Df (x)=diff (f (x));
X0=2;
E=(1/2) * (10 ^ (5));
[x1, k]=Newton (x0, e) function] [x1, k=Newton (x0, e)
N=100;
k=1;
Y=f (x0);
Dy=df (x0);
X1=x0 - y/dy;
While abs (x1 - x0)>=e x0=x1; Y=f (x0); Dy=df (x0); X1=x0 - y/dy; k=k+1; If k==n break end
End
End
