clear
%
% segue l'evoluzione dell'iterata n-esima in funzione di lambda
%
global n l
fig=input('quale figura?  ');
figure(fig)
set(fig,'position',[407 12 612 684])
n=input('che cicli cerchiamo? ');
lmin=input('lambda di partenza?  ');
lmax=input('lambda d''arrivo?  ');
lpas=input('con che passo?  ');
for l=lmin:lpas:lmax
  clf
  text(0.3,0.8,['lambda=' num2str(l,'%1.3f')],'fontsize',20,'color','b')
  set(fig,'defaultlinelinewidth',2)
  hold on;
  fplot('1*x',[0 1],'k')
  grid on;
  fplot('doppio(x)',[0 1],'r',100)
  pause
end
