clear;
format long;
x1=4;
x=0;

it=0; 

while (abs(x-x1)>1e-10)

it=it+1;
err(it)=abs(x-x1);
err1(it)=abs(1-x1);
val(it)=x1;   
x=x1;

f=exp(x)-exp(1);
fp=exp(x);


x1=x-f/fp;

abs(x-x1)

end;

x

for i=2:length(err)-1
  ss(i-1)=log(err(i+1)/err(i))/log(err(i)/err(i-1));
ss1(i-1)=log(err1(i+1)/err1(i))/log(err1(i)/err1(i-1));
end;