function vis_floating(b,t,L,U,colore)

% vis_floating(b,t,L,U)
% visualizza i numeri floating point F(b,t,L,U).
% E' possibile specificare il colore, ad esempio
% vis_floating(b,t,L,U,'g') per la visualizzazione in verde.
if nargin == 4 colore = 'r'; end;
rmin=num2str(b^(L-1));
rmax=b^U*(1-b^(-t));
srmax=num2str(rmax);
EPS=num2str(b^(1-t));
a=[];
m=[];
  for k=0:b^(t-1)-1
    for m1=1:b-1
      m=[m,m1/b+k*b^(-t)];
    end;
  end;
  for p=L:U
    a=[a,m*b^p];
  end;
a=[-fliplr(a),a];
a=[a',a'];
%z=zeros(size(a));
plot(a,[-rmax/10,rmax/10],colore,[0,0],[-rmax/10,rmax/10],'k')
%plot(a,z,"*","markersize",1,[0,1,1+b^(1-t)],[0,0,0],"@1","markersize",3);
title(['realmin = ', rmin,'      ','realmax = ', srmax, '      ','eps = ',EPS]);
set(gca,'YTick',[])
axis('image')
end
