%Leiame alglähendid
a=4;b=6;c=5;
f=@(x)a/10*x-b/40+sin(x);
ftuletis=@(x)4/10+cos(x)
fplot(@(x)4/10*x-6/40+sin(x))
grid on
legend()
%title('joonis alglähendite leidmiseks') 
%Alglähend on 
% x=0.1
x=0.1;
samm=0;
while abs(f(x))>10^-6
    x=x-f(x)/ftuletis(x)
    samm=samm+1;
end
x
sammHIM=samm
%Lahendan HIM
x=0.1
%kontrollin koonduvust
tuletis=abs(asin(4/10)) % Sobib x<1 
samm=0;
ftul=ftuletis(x)
while abs(f(x))>10^-6 
        x=asin(-4/10*x+b/40)
        samm=samm+1;
    	end
x
samm