clear
fig=input('quale figura? ');
a=input('primo estremo lmin? [0-4] ');
b=input('secondo estremo lmax? [0-4] ');
passo=input('quanti valori di lambda? ');
lin=input('che spessore? ');
passo=(b-a)/passo;
uno=input('da quale? (prima iterata da plottare) ');
nmax=input('quanti? (numero iterate da plottare) ');
x=.3;
figure(fig)
clf
axis([a b 0 1])
grid on;
hold on;
set(fig,'defaultlinemarkersize',lin)
global l
for l=a:passo:b
  global n;
  n=uno;
  xx=doppio(x);
  global n
  n=1;
  plot(l,xx,'.')
  for i=1:nmax
    xx=doppio(xx);
    plot(l,xx,'.')
  end
end
