function [raiz,func,er,iter]=secante(xi1,xi2,fx,e,itermax)

iter=0

while(1)

    xnewi = xi2-((fx(xi2)*(xi1-xi2))/(fx(xi1)-fx(xi2)))
    iter = iter+1
    er=abs((xnewi-xi2)/(xnewi))*100

    if er <= e || itermax <= iter
        break
    end

 xi1 = xi2;
 xi2 = xnewi;


end
raiz=xnewi;
func=fx(raiz);
iter;
er;

end