1 | close all; clear all; clc; |
---|
2 | load analyze.mat |
---|
3 | |
---|
4 | |
---|
5 | %% Spectrum |
---|
6 | |
---|
7 | |
---|
8 | separation=-10; |
---|
9 | |
---|
10 | figure |
---|
11 | hold on |
---|
12 | |
---|
13 | |
---|
14 | |
---|
15 | figure(9) |
---|
16 | hold on |
---|
17 | Spectrum=amp(6,:).*exp(lamb(6,:)*separation); |
---|
18 | errorbar(48:7:118,Spectrum,Spectrum.*sqrt((Ierrp(6,:,1)./amp(6,:)).^2+(separation*Ierrp(6,:,2)).^2),'k','linewidth',2) |
---|
19 | |
---|
20 | % plot(48:7:118, SP_spec_1(1:2:(end-1))*5e+16,'k','linewidth',2) |
---|
21 | load('GFW/Spec3.mat') |
---|
22 | plot(48:7:118, Spectr(1:11)./max(Spectr(1:11))*max(Spectrum),'--or','linewidth',2) |
---|
23 | load('GFW/Spec5.mat') |
---|
24 | plot(48:7:118, Spectr(1:11)./max(Spectr(1:11))*max(Spectrum),'-^r','linewidth',2) |
---|
25 | load('GFW/Spec7.mat') |
---|
26 | plot(48:7:118, Spectr(1:11)./max(Spectr(1:11))*max(Spectrum),'-.*r','linewidth',2) |
---|
27 | |
---|
28 | set(gca,'fontsize',16) |
---|
29 | |
---|
30 | legend('Data','3ps','5ps','7ps','location','northeast') |
---|
31 | xlabel('Angle, [deg.]') |
---|
32 | ylabel('Amplitude, [a.u.]') |
---|
33 | title('Spectrum') |
---|
34 | grid on |
---|
35 | % ylim([0 0.02]) |
---|
36 | % load('GFW/SEY.mat') |
---|
37 | |
---|
38 | |
---|
39 | figure(10) |
---|
40 | [hc hc]=contourf (48:7:118, Bphase, amp.*exp(lamb.*separation)) |
---|
41 | set(hc,'LineStyle','none'); |
---|
42 | |
---|
43 | set(gca,'fontsize',16) |
---|
44 | xlabel('Angle, [deg.]') |
---|
45 | ylabel('\phi_B, [a.u.]') |
---|
46 | title('Spectrum map') |
---|
47 | |
---|
48 | |
---|
49 | load('GFW/SEY5c.mat') |
---|
50 | |
---|
51 | figure(10341) |
---|
52 | [hc hc]=contourf(300./(6*(1-cos((48:7:118)/180*pi))), Bphase, amp.*exp(lamb.*(-5))./repmat((Integral(1:11)),[7 1])*1e-17,40) |
---|
53 | colorbar |
---|
54 | set(hc,'LineStyle','none'); |
---|
55 | set(gca,'fontsize',16) |
---|
56 | xlabel('Frequency, [GHz]') |
---|
57 | ylabel('\phi_B, [a.u.]') |
---|
58 | title('Form Factor (BGS=5 mm)') |
---|
59 | |
---|
60 | |
---|
61 | load('GFW/SEY10c.mat') |
---|
62 | |
---|
63 | figure(10342) |
---|
64 | [hc hc]=contourf(300./(6*(1-cos((48:7:118)/180*pi))), Bphase, amp.*exp(lamb.*(-10))./repmat((Integral(1:11)),[7 1])*1e-17,40) |
---|
65 | colorbar |
---|
66 | set(hc,'LineStyle','none'); |
---|
67 | set(gca,'fontsize',16) |
---|
68 | xlabel('Frequency, [GHz]') |
---|
69 | ylabel('\phi_B, [a.u.]') |
---|
70 | title('Form Factor (BGS=10 mm)') |
---|
71 | |
---|
72 | |
---|
73 | load('GFW/SEY15c.mat') |
---|
74 | |
---|
75 | figure(10343) |
---|
76 | [hc hc]=contourf(300./(6*(1-cos((48:7:118)/180*pi))), Bphase, amp.*exp(lamb.*(-15))./repmat((Integral(1:11)),[7 1])*1e-17,40) |
---|
77 | colorbar |
---|
78 | set(hc,'LineStyle','none'); |
---|
79 | set(gca,'fontsize',16) |
---|
80 | xlabel('Frequency, [GHz]') |
---|
81 | ylabel('\phi_B, [a.u.]') |
---|
82 | title('Form Factor (BGS=15 mm)') |
---|
83 | % |
---|
84 | % figure(11) |
---|
85 | % [hc hc]=contourf(300./(6*(1-cos((48:7:118)/180*pi))), Bphase, amp.*exp(lamb.*separation),40) |
---|
86 | % |
---|
87 | % colorbar |
---|
88 | % set(hc,'LineStyle','none'); |
---|
89 | % set(gca,'fontsize',16) |
---|
90 | % xlabel('Frequency, [GHz]') |
---|
91 | % ylabel('\phi_B, [a.u.]') |
---|
92 | % title('Spectrum without background') |
---|
93 | % |
---|
94 | % |
---|
95 | |
---|
96 | figure(12) |
---|
97 | c=6; |
---|
98 | hold on |
---|
99 | load('GFW/SEY5c.mat') |
---|
100 | plot(300./(6*(1-cos((48:7:118)/180*pi))), ((amp(c,:).*exp(lamb(c,:)*separation))./Integral(1:11)*1e-25),'-^k','linewidth',2) |
---|
101 | load('GFW/SEY10c.mat') |
---|
102 | plot(300./(6*(1-cos((48:7:118)/180*pi))), ((amp(c,:).*exp(lamb(c,:)*separation))./Integral(1:11)*1e-25),'-^r','linewidth',2) |
---|
103 | load('GFW/SEY15c.mat') |
---|
104 | plot(300./(6*(1-cos((48:7:118)/180*pi))), ((amp(c,:).*exp(lamb(c,:)*separation))./Integral(1:11)*1e-25),'-^b','linewidth',2) |
---|
105 | set(gca,'fontsize',16) |
---|
106 | legend('BGS=5mm','BGS=10mm','BGS=15mm','Location','northwest') |
---|
107 | xlabel('Frequency, [GHz]') |
---|
108 | ylabel('Amplitude, [a.u.]') |
---|
109 | title('FormFactor') |
---|
110 | grid on |
---|
111 | |
---|
112 | load('GFW/SEY10c.mat') |
---|
113 | figure |
---|
114 | hold on |
---|
115 | plot(300./(6*(1-cos((48:7:118)/180*pi))), amp(1,:).*exp(lamb(1,:).*(-10))./(Integral(1:11))*1e-24,'-^b','linewidth',2) |
---|
116 | plot(300./(6*(1-cos((48:7:118)/180*pi))), amp(3,:).*exp(lamb(3,:).*(-10))./(Integral(1:11))*1e-24,'-^m','linewidth',2) |
---|
117 | plot(300./(6*(1-cos((48:7:118)/180*pi))), amp(4,:).*exp(lamb(4,:).*(-10))./(Integral(1:11))*1e-24,'-^k','linewidth',2) |
---|
118 | plot(300./(6*(1-cos((48:7:118)/180*pi))), amp(5,:).*exp(lamb(5,:).*(-10))./(Integral(1:11))*1e-24,'-^g','linewidth',2) |
---|
119 | plot(300./(6*(1-cos((48:7:118)/180*pi))), amp(7,:).*exp(lamb(7,:).*(-10))./(Integral(1:11))*1e-24,'-^r','linewidth',2) |
---|
120 | |
---|
121 | set(gca,'fontsize',16) |
---|
122 | xlabel('Frequency, [GHz]') |
---|
123 | legend('\phi_B=5.84','\phi_B=5.64','\phi_B=5.54','\phi_B=5.44','\phi_B=6.04') |
---|
124 | title('Form Factor (BGS=10 mm)') |
---|
125 | ylabel('Amplitude, [a.u.]') |
---|
126 | grid on |
---|
127 | Freq=300./(3*(1-cos((48:7:118)/180*pi))); |
---|
128 | for c=1:7 |
---|
129 | FF(c,:)=amp(c,:).*exp(lamb(c,:).*(-10))./(Integral(1:11))*1e-24; |
---|
130 | end |
---|
131 | save FFX.mat Freq FF |
---|