% Tund nr 4, ülesanne 1
% lahendame võrrandi x^3-2x-4=0 Newtoni meetodiga

% defineerime funktsiooni
f=@(x) x.^3-2*x-4;
% teeme joonise ja määrame seejärel alglähendi(d)
fplot(f,[1,3])
grid on 
yline(0) % x-telg ehk y=0
% jooniselt on näha, et alglähendiks võime
% võtta 1.8
x=1.8;

% defineerime tuletise funktsiooni
ftuletis=@(x) 3*x^2-2;
i=0; % sammude loendur
while abs(f(x))>10^-6
    x=x-f(x)/ftuletis(x);
    i=i+1;
end
lahend1NM=x
sammud1NM=i
kontroll1=f(lahend1NM)

% võtame alglähendiks 2
x=2;

% defineerime tuletise funktsiooni
ftuletis=@(x) 3*x^2-2;
i=0; % sammude loendur
while abs(f(x))>10^-6
    x=x-f(x)/ftuletis(x);
    i=i+1;
end
lahend1NM=x
sammud1NM=i
kontroll1=f(lahend1NM)

% lahendame võrrandi modifitseeritud Newtoni
% meetodiga
x=1.8;

% defineerime tuletise funktsiooni
ftuletis=@(x) 3*x^2-2;
i=0; % sammude loendur
while abs(f(x))>10^-6
    x=x-f(x)/ftuletis(1.8);
    i=i+1;
end
lahend1NM=x
sammud1NM=i
kontroll1=f(lahend1NM)

