Changeset 492 in ETALON for CLIO

Timestamp:

Apr 18, 2016, 2:51:08 PM (8 years ago)

Author:

hodnevuc

Message:

 

File:

• CLIO/CTR+gfw/CTR.m (modified) (6 diffs)

CLIO/CTR+gfw/CTR.m

@@ -24 +24 @@
 pulse_len_ps=2.5;%Nominal bunch duration (FWHM), ps 
 gam=100;%relativistic gamma
-
+basefig=0;%base number of figures
+icolor='r';%color of lines on plot
 if (~isempty(var))
 disp(var);
@@ -91 +92 @@
 E_total_1=sum(CTR_spec_N(imin:end))*(omega(2)-omega(1));
 if PlotFunc(1)==1
-figure(10)
-loglog(3e+8./nu*1e+3,FFT_spec_om,'k','linew',2)
+figure(basefig+1)
+loglog(3e+8./nu*1e+3,FFT_spec_om,icolor,'linew',2)
 hold on
 % loglog(3e+8./(nu2(1:round(length(nu))))*1e+3,FFT_spec_om,'r','linew',2)
@@ -106 +107 @@
 
 if PlotFunc(2)==1
-figure(20)
-loglog(c./nu*1e+3,CTR_spec_1*1e+18,'r','linew',2)
+figure(basefig+2)
+loglog(c./nu*1e+3,CTR_spec_1*1e+18,icolor,'linew',2)
 hold on
 grid on
@@ -117 +118 @@
 
 if PlotFunc(3)==1
-figure(30)
-semilogy(c./nu*1e+3,CTR_spec_N*1e+18,'r','linew',2)
+figure(basefig+3)
+semilogy(c./nu*1e+3,CTR_spec_N*1e+18,icolor,'linew',2)
 set(gca,'fontsize',16)
 ylabel('dI/d\omega, [\muJ/THz]')
@@ -134 +135 @@
 
 if PlotFunc(4)==1
-figure(40)
-plot(time*1e+3,Profile./max(Profile),'r','linew',2)
+figure(basefig+4)
+plot(time*1e+3,Profile./max(Profile),icolor,'linew',2)
 set(gca,'fontsize',16)
 title(['Profile, fwhm=' num2str(pulse_len_ps) ' ps'])
@@ -146 +147 @@
 
 if PlotFunc(5)==1
-figure(50)
+figure(basefig+5)
 [h h]=contourf(c./nu*1e+3,Theta*1e+3,d2Udisk.*1e+18,40);
  set(h,'LineStyle','none');