% plot the spectrum
%


function s_view(Dfu,U)


for i=1:1:length(U)
  i
  U(:,i)
  abu(:,i) = eig( Dfu(U(:,i)) ) ;
  
end

figure;

r_apu =real(abu);
i_apu = imag(abu);


for i=1:1:length(r_apu)
  
  hold off;

  plot(r_apu(:,i),i_apu(:,i),'b*');
  
  H=line([0;0],[min(min(i_apu)),max(max(i_apu))])
  
  set(H,'color',[0.5,0.5,0.5]);
  
  set(gca,'Xlim',[min(min(r_apu)),max(max(r_apu))])
  set(gca,'Ylim',[min(min(i_apu)),max(max(i_apu))])
  
  pause(0.2);
  
end

