clear
fplot(@(x)x.^3-6*x.^2+3*atan(x)+3,[-2,8])
grid on
legend()
%alglähendid jooniselt -0.5 ja 1 ja 5.5

%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);

%alglähend
x=-0.5
while abs(f(x))>10^-6
    x=x-f(x)/ftuletis(x);
end
vastus1=x

%alglähend
y=1
while abs(f(y))>10^-6
    y=y-f(y)/ftuletis(y);
end
vastus2=y

%alglähend
z=5.5
while abs(f(z))>10^-6
    z=z-f(z)/ftuletis(z);
end
vastus3=z
%vastuste vektor
vastus=[vastus1,vastus2,vastus3]