secante.m

%///////////////////////////////////////////////////
%//          Función Secante                     ///
%//        Desarrollada por Jorge De La Cruz     ///
%/                                              ///
%//////////////////////////////////////////////////
function xr=secante(fun,x0,x1,tol,imax)
x=[x0 x1];
f=eval(fun);
err=tol+1;
n=1;
while (err<tol)&&(n<imax)
    xr=x(1,2)-f(1,2)*(x(1,1)-x(1,2))/(f(1,1)-f(1,2));
    err=abs((xr-x(1,2))/xr);
    error=err*100;
    x(1,1)=x(1,2);
    x(1,2)=xr;
    f=eval(fun);
    fprintf('Iteración: %d, Error: %f, Raiz: %f\n',n,error,xr)
    n=n+1;
end