function [c,err,it]=T22_pfijo(f,x,delta,niter)
%
%function function [c,err,it]=T22_pfijo(f,x,delta,niter)
%Resuelve una ecuacion no lineal utilizando el Método de Punto Fijo
%
%Entrada
%	f	   nombre de la funcion (pasado como variable symbolica)
%	x		punto inicial de las iteraciones
%	delta	tolerancia de la raiz
%	niter numero de iteraciones
%Salida
%	c		raiz aproximada
%	err	error estimado para la raiz
%  it    sucesion de aproximaciones a la raiz
%
% Ejemplo:  [sol,errores,puntos]=enlpf('enlgx',-1,0.001,30)

if (nargin<4),niter=1024;end                  % Verificacion de los argumentos de entrada
if (nargin<3),delta=eps;end                 
if nargin<2,error('ERROR T22_pfijo: Numero insuficiente de argumentos');end
%
if nargout>2, it=zeros(niter,2); end         % Generacion del vector de salida
for k=1:niter
    c=feval(f,x);                  
    if nargout>2;it(k,:)=[x,c];end;     % Almacenamiento de las soluciones
    err=abs(c-x);if err<delta,break,end    % Error de la iteracion
    x=c;
end
if k>niter,disp('Agotadas las iteraciones sin convergencia');k=niter;end
if nargout>2,it=it(1:k,:);end            % Iteraciones sucesivas