
% Tund 3,  Ülesanne 6

clear % puhastame vahemälu
% Leiame võrrandi x^3-6x^2+3 arctan x+3=0 lahendid.

% defineerime funktsiooni
f=@(x) x.^3-6*x.^2+3*atan(x)+3;

% joonistame funktsiooni
fplot(f,[-1,6])
grid on
title('Ülesande nr 6 graafik')
yline(0)
legend('x^3-6x^2+3 arctan x+3=0','y=0')

% jooniselt näeme, et alglähenditeks sobivad -0.5 ja 1 ja 5.5
lahend1=fzero(f,-0.5)
lahend2=fzero(f,1)
lahend3=fzero(f,5.5)
%fzero asemel võib kasutada ka käsku fsolve

% kontrollime, kas asendades lahend1, lahend2 ja lahend3 esialgsesse
% võrrandisse, saame 0,00000... ligikaudu võrdne 0.
f(lahend1)
f(lahend2)
f(lahend3)
