nlchromplot

example:   nlchromplot(esrf,-.04,.04,30,16,1)

0001 function nlchromplot(ring,min_delta,max_delta,steps,nper,fig,dash)
0002 %example:   nlchromplot(esrf,-.04,.04,30,16,1)
0003 delta_dif=(max_delta-min_delta)/steps;
0004 delta_vals=linspace(min_delta,max_delta,steps);
0005 nu_delta=zeros(2,steps);
0006 for j=1:steps
0007 [lindata,nu_delta(:,j)]=atlinopt(ring,min_delta+(j-1)*delta_dif);
0008 %[lindata,nu_delta(:,j)]=linopt(ring,min_delta+(j-1)*delta_dif);
0009 end
0010 nux=nper*nu_delta(1,:);
0011 nux=nux-floor(nux);
0012 nuz=nper*nu_delta(2,:);
0013 %nuz=1-(nuz-floor(nuz));
0014 nuz=nuz-floor(nuz);
0015 figure(fig)
0016 if(dash)
0017     plot(delta_vals,nux,'--r');
0018     hold on
0019     plot(delta_vals,nuz,'--b');
0020     xlabel('$\delta$','FontSize',14,'Interpreter','latex');
0021     grid on
0022 else
0023     plot(delta_vals,nux,'-r');
0024     hold on
0025     plot(delta_vals,nuz,'-b');
0026      xlabel('$\delta$','FontSize',14,'Interpreter','latex');
0027     grid on
0028 end