fplot(@(x)x.^3-6*x.^2+3*atan(x)+3,[-2,6])
grid on

%alglähendid on -0.5 ja 1 ja 6

x=-0.5; %alglähend jooniselt
while abs(x^3-6*x^2+3*atan(x)+3)>10^-8
x=x-(1+x^2)*(x^3-6*x^2+3*atan(x)+3)/(3*x^2+3*x^4-12*x-12*x^3+3);
end
vastus1=x

x=1; %alglähend jooniselt
while abs(x^3-6*x^2+3*atan(x)+3)>10^-8
x=x-(1+x^2)*(x^3-6*x^2+3*atan(x)+3)/(3*x^2+3*x^4-12*x-12*x^3+3);
end
vastus2=x

x=6; %alglähend jooniselt
while abs(x^3-6*x^2+3*atan(x)+3)>10^-8
x=x-(1+x^2)*(x^3-6*x^2+3*atan(x)+3)/(3*x^2+3*x^4-12*x-12*x^3+3);
end
vastus3=x
lahendid=[vastus1;vastus2;vastus3]