clc
f1=@(x) exp(-x);
function yy=Iteracion(f,es,imax,xr,ea)
  iter=0;
  while or((ea<es),(iter<=imax))
     xrold=xr;
     xr=f(xrold);
     iter=iter+1;
     if ne(xr,0)
       ea=abs((xr-xrold)/xr)*100;
     end
  end
    yy=xr;
end

r1=Iteracion(f1,3,5,0.25,2.6);
fprintf("El valor de la raiz es = %f \n",r1)