clear
%
% itera la funzione a partire da un punto
% e disegna in un subplot il valore dell'iterata
%
global n l;
fig=input('quale figura? ');
figure(fig)
set(fig,'position',[407 12 612 684])
clf
subplot(2,1,2)
a=-.2;b=1.2;
c=-.2;d=1.2;
set(fig,'defaultlinelinewidth',2)
hold on;
l=input('quanto vale lambda? ');
n=1;
fplot('doppio(x)',[0 1],'r')
fplot('1*x',[a b],'k')
set(fig,'defaultlinelinewidth',1)
fplot('0*x',[a b],'b')
plot([0 0],[c d],'b')
set(fig,'defaultlinelinewidth',2)
axis([a b c d])
x=input('punto di partenza? ');
plot([x x],[0 doppio(x)],'c')
nmax=input('quante iterazioni? ');
subplot(2,1,1)
axis([0 nmax 0 1])
hold on;
for i=1:nmax
  subplot(2,1,1)
  title(['x=' num2str(x)],'fontsize',15,'color','r')
  plot([i i+1],[x doppio(x)])
  subplot(2,1,2)
  title(['Iterazioni=' num2str(i)],'fontsize',15,'color','r')
  plot([x doppio(x)],[doppio(x) doppio(x)],'c')
  x=doppio(x);
  plot([x x],[x doppio(x)],'c')
  pause(.15)
end
