% Running Secant Method clear; % Tolerance TOL=.00001 %Maximum number of iteration itmax=100 % First two estimates p0=3 p1=4 % Call to the subroutine sec ('fn',TOL,itmax, p0, p1);