function anima(g,x0)
%g=@(x)0.8*x+0.3;
%g=@(x)-0.8*x+0.3;
g=@(x)-1.2*x-0.2;

xn=x0;
figure(1);
fplot(g,[-4 8]); 
grid on;
hold on; % permite pegar graficos
fplot('x',[-4 8],'r');
for i=1:15,
   xn1=g(xn);
   plot([xn xn1],[xn1 xn1],'k');
   pause(0.25); %el tiempo de pausa para graficar
   xn=xn1;
   xn1 = g(xn);
   plot([xn xn],[xn xn1],'k');
   pause(0.25);
end
hold off;
