source: ETALON/CLIO/Analysis/SectionPhase4.m @ 715

close all; clear all; clc;
load analyzeSP.mat


%% Spectrum


separation=-10;


figure(9) 
hold on
Spectrum=amp(6,:).*exp(lamb(6,:)*separation);
errorbar(48:7:118,Spectrum,Spectrum.*sqrt((Ierrp(6,:,1)./amp(6,:)).^2+(separation*Ierrp(6,:,2)).^2),'k','linewidth',2)
 
%  plot(48:7:118, SP_spec_1(1:2:(end-1))*5e+16,'k','linewidth',2)
load('GFW/Spec3.mat')
 plot(48:7:118, Spectr(1:11)./max(Spectr(1:11))*max(Spectrum),'--or','linewidth',2)
load('GFW/Spec.mat')
 plot(48:7:118, Spectr(1:11)./max(Spectr(1:11))*max(Spectrum),'-^r','linewidth',2)
load('GFW/Spec7.mat')
 plot(48:7:118, Spectr(1:11)./max(Spectr(1:11))*max(Spectrum),'-.*r','linewidth',2)

set(gca,'fontsize',16)

legend('Data','3ps','5ps','7ps','location','southeast')
xlabel('Angle, [deg.]')
ylabel('Amplitude, [a.u.]')
title('Spectrum')
grid on 
ylim([0 0.02])
load('GFW/SEY.mat')


figure(10) 
  [hc hc]=contourf (48:7:118, Bphase, amp.*exp(lamb.*separation))
    set(hc,'LineStyle','none');

 set(gca,'fontsize',16)
 xlabel('Angle, [deg.]')
 ylabel('\phi_S, [a.u.]')
 title('Spectrum map')
 
 
 load('GFW/SEYP5.mat')

figure(10341) 
 [hc hc]=contourf(300./(6*(1-cos((48:7:118)/180*pi))), Bphase, amp.*exp(lamb.*(-5))./repmat((Integral(1:11)),[11 1])*1e-17,40)
 colorbar
  set(hc,'LineStyle','none');
 set(gca,'fontsize',16)
 xlabel('Frequency, [GHz]')
 ylabel('\phi_S, [a.u.]')
 title('Form Factor (BGS=5 mm)')


load('GFW/SEY.mat')

 figure(10342) 
 [hc hc]=contourf(300./(6*(1-cos((48:7:118)/180*pi))), Bphase, amp.*exp(lamb.*(-10))./repmat((Integral(1:11)),[11 1])*1e-17,40)
 colorbar
  set(hc,'LineStyle','none');
 set(gca,'fontsize',16)
 xlabel('Frequency, [GHz]')
 ylabel('\phi_S, [a.u.]')
 title('Form Factor (BGS=10 mm)')
 
 
load('GFW/SEYP15.mat')

 figure(10343) 
 [hc hc]=contourf(300./(6*(1-cos((48:7:118)/180*pi))), Bphase, amp.*exp(lamb.*(-15))./repmat((Integral(1:11)),[11 1])*1e-17,40)
 colorbar
  set(hc,'LineStyle','none');
 set(gca,'fontsize',16)
 xlabel('Frequency, [GHz]')
 ylabel('\phi_S, [a.u.]')
 title('Form Factor (BGS=15 mm)')
%  
% figure(11) 
% [hc hc]=contourf(300./(6*(1-cos((48:7:118)/180*pi))), Bphase, amp.*exp(lamb.*separation),40)
% 
%  colorbar
%   set(hc,'LineStyle','none');
%  set(gca,'fontsize',16)
%  xlabel('Frequency, [GHz]')
%  ylabel('\phi_B, [a.u.]')
%  title('Spectrum without background')
% 
%  

figure(12) 
c=6;
hold on
load('GFW/SEYP5.mat')
plot(300./(6*(1-cos((48:7:118)/180*pi))), ((amp(c,:).*exp(lamb(c,:)*separation))./Integral(1:11)*1e-25),'-^k','linewidth',2)
load('GFW/SEY.mat')
plot(300./(6*(1-cos((48:7:118)/180*pi))), ((amp(c,:).*exp(lamb(c,:)*separation))./Integral(1:11)*1e-25),'-^r','linewidth',2)
load('GFW/SEYP15.mat')
plot(300./(6*(1-cos((48:7:118)/180*pi))), ((amp(c,:).*exp(lamb(c,:)*separation))./Integral(1:11)*1e-25),'-^b','linewidth',2)
set(gca,'fontsize',16)
legend('BGS=5mm','BGS=10mm','BGS=15mm','Location','northwest')
xlabel('Frequency, [GHz]')
ylabel('Amplitude, [a.u.]')
title('FormFactor')
grid on

load('GFW/SEY.mat')
figure
hold on
plot(300./(6*(1-cos((48:7:118)/180*pi))),  amp(2,:).*exp(lamb(2,:).*(-10))./(Integral(1:11))*1e-24,'-^b','linewidth',2)
plot(300./(6*(1-cos((48:7:118)/180*pi))),  amp(4,:).*exp(lamb(4,:).*(-10))./(Integral(1:11))*1e-24,'-^m','linewidth',2)
plot(300./(6*(1-cos((48:7:118)/180*pi))),  amp(6,:).*exp(lamb(6,:).*(-10))./(Integral(1:11))*1e-24,'-^k','linewidth',2)
 plot(300./(6*(1-cos((48:7:118)/180*pi))),  amp(8,:).*exp(lamb(8,:).*(-10))./(Integral(1:11))*1e-24,'-^g','linewidth',2)
plot(300./(6*(1-cos((48:7:118)/180*pi))),  amp(10,:).*exp(lamb(10,:).*(-10))./(Integral(1:11))*1e-24,'-^r','linewidth',2)

 set(gca,'fontsize',16)
 xlabel('Frequency, [GHz]')
 legend('\phi_S=235','\phi_S=245','\phi_S=255','\phi_S=265','\phi_S=275')
 title('Form Factor (BGS=10 mm)')
ylabel('Amplitude, [a.u.]')
grid on
Freq=300./(6*(1-cos((48:7:118)/180*pi)));
for c=1:11
FF(c,:)=amp(c,:).*exp(lamb(c,:).*(-10))./(Integral(1:11))*1e-24;
end
save FFXSP.mat Freq FF