% Harjutustund 5, ülesanne 1
y=@(x) x^5-x^2-2;
ytuletis=@(x) 5*x^4-2*x;
fplot(y,[-2,2])
yline(0)
grid on
% Newtoni meetod
% alglähendiks olgu 1.3
x=1.3;
sammud=0;
while abs(y(x))>10^(-6)
  x=x-y(x)/ytuletis(x); % Newtoni meetodi eeskiri
  sammud=sammud+1;
end
lahendnewton=x
sammudnewton=sammud
% lõikajate meetod
% alglähendeid peab olema kaks, alglähenditeks olgu 1.3 ja 1.25
x0=1.3;
x1=1.25;
sammud=0;
while abs(y(x1))>10^(-6)
  x2=x1-(x1-x0)/(y(x1)-y(x0))*y(x1); % lõikajate  meetodi eeskiri
  sammud=sammud+1;
  x0=x1;
  x1=x2;
end
lahendloikajad=x1
sammudloikajad=sammud