% harjutustunni nr. 4 ülesanne 4
% alglähendite leidmine, graafik
f=@(x) x.^3-6*x.^2+3*atan(x)+3;
fplot(f,[-1,6])
yline(0)
grid on
% alglähenditeks võime võtta -0.5, 1.1 ja 5.5
% 1. lahendame Newtoni meetodiga
ftuletis=@(x) 3*x.^2-12*x+3./(1+x.^2);
x=-0.5;
i=0;
while abs(f(x))>10^-3
    x=x-f(x)/ftuletis(x);
    i=i+1;
end
lahend1newton=x
sammud1newton=i

x=1;
i=0;
while abs(f(x))>10^-3
    x=x-f(x)/ftuletis(x);
    i=i+1;
end
lahend21newton=x
sammud2newton=i

x=5.5;
i=0;
while abs(f(x))>10^-3
    x=x-f(x)/ftuletis(x);
    i=i+1;
end
lahend3newton=x
sammud3newton=i

% 2. lahendame modifitseeritud Newtoni meetodiga
x=-0.5;
i=0;
while abs(f(x))>10^-3
    x=x-f(x)/ftuletis(-0.5);
    i=i+1;
end
lahend1newtonmo=x
sammud1newtonmo=i

x=1;
i=0;
while abs(f(x))>10^-3
    x=x-f(x)/ftuletis(1);
    i=i+1;
end
lahend2newtonmo=x
sammud2newtonmo=i

x=5.5;
i=0;
while abs(f(x))>10^-3
    x=x-f(x)/ftuletis(5.5);
    i=i+1;
end
lahend3newtonmo=x
sammud3newtonmo=i