0001
0002
0003
0004
0005
0006 lambda=[514; 633; 1000];
0007
0008
0009 aideg=48:0.005:60;
0010
0011
0012 Lgap=500;
0013
0014
0015 eAg=epsAg(lambda);
0016
0017 nP=1.766;
0018 nM=1.33;
0019
0020
0021
0022
0023 nNbSurf=2;
0024 Cepsilon{1}=nP^2+0*lambda;
0025 Cepsilon{2}=nM^2+0*lambda;
0026 Cepsilon{3}=eAg;
0027 CL{1}=0;
0028 CL{2}=Lgap;
0029
0030
0031 stResTM=PlnMultiRef ('TM',nNbSurf, lambda, Cepsilon, CL, aideg);
0032
0033
0034
0035
0036 Rp=abs(stResTM.rP).^2;
0037
0038
0039
0040
0041
0042
0043
0044 scrsz = get(0,'ScreenSize');
0045 figAspectRatio=1.5;
0046 figWidth=3/4*scrsz(3);
0047 figure('Name','Fig. 3.14(a)', ...
0048 'Position',[(scrsz(3)-figWidth)/2 scrsz(4)-150-figWidth/figAspectRatio figWidth figWidth/figAspectRatio]);
0049
0050
0051 plot(aideg,Rp(1,:),aideg,Rp(2,:),aideg,Rp(3,:));
0052 title('Water/Ag PSPP excitation in the Otto configuration - L_{gap}=500 nm');
0053
0054 axis([48 58 0 1.15]);
0055 xlabel('angle of incidence [degrees]');
0056 ylabel('Reflectivity');
0057 legend('\lambda=514 nm','\lambda=633 nm','\lambda=1000 nm','Location','East');
0058
0059
0060
0061
0062