%Joonis alglähendite leidmiseks
fplot(@(x)x.^3-6*x.^2+3*atan(x)+3,[-2,7])
grid on
legend()

%Jooniselt on näha, et funktsioonil on 3 nullkohta=>
%võrrandil on 3 reaalset lahendit.
%Valime alglähenditeks -0.5 ja 1 ja 5.7.

%Defineerime f ja f'
f=@(x)x^3-6*x^2+3*atan(x)+3;
ftuletis=@(x)3*x^2-12*x+3/(1+x^2);

%esimene lahend
x=-0.5; %alglähend
j=0; %sammude loendur
while abs(f(x))>10^-6
x=x-f(x)/ftuletis(x);
j=j+1;
end
lahend1=x
sammud1=j

%teine lahend
x=1; %alglähend
j=0; %sammude loendur
while abs(f(x))>10^-6
x=x-f(x)/ftuletis(x);
j=j+1;
end
lahend2=x
sammud2=j

%kolmas lahend
x=5.7; %alglähend
j=0; %sammude loendur
while abs(f(x))>10^-6
x=x-f(x)/ftuletis(x);
j=j+1;
end
lahend3=x
sammud3=j

lahend=[lahend1,lahend2,lahend3]
sammud=[sammud1,sammud2,sammud3]