%RUN_VCONJ_EXT_LAG

tic
global a ab sab0 
dig=32;
sab0=sr_laguerre(dig,500);
%for a=[[-.9:.6:.9] [1.7:.7:3.8] [4.7:.9:7.4]] 
for a=0
  a
  ab=r_laguerre(30,a); 
  for n=30
    dig=32; [V,d]=Vconj_ext_lag(dig,n);
    d
    for k=1:n
      if imag(d(k))==0
        d(k)=d(k)+(1e-20)*i; break
      end
    end
%    plot(d,'k*','MarkerSize',16);set(gca,'FontSize',24) 
    semilogx(d,'k*','MarkerSize',16);set(gca,'FontSize',24)
%    axis([10^(-23) 10^(3) -.17 .17])
    for i=1:n
      if real(d(i))<=0, error('conjecture is false'); end
    end
    disp('conjecture is true')
  end
end
toc
