Untitled

                Never    
function p=secan(f,x0,x1,ep,nmax)
k=1;
while k<=nmax
p=x1-(f(x1)*(x1-x0))./(f(x1)-f(x0));
    if abs((p-x1)/p)*100<ep;
        break
    else
    x0=x1;
    x1=p;
    k=k+1;
end
end
end

Raw Text