function z=pfijo(g,x0,Tol)
syms x
dg=subs(diff(g(x)),x0)
if abs(dg)<1
    fprintf('El metodo converge')
z=[x0];
error=1;
while error>Tol
    x1=g(x0);
    error=abs(x1-x0);
    z=[z;x1];
    x0=x1;
end
else
    fprintf('El metodo diverge')
end