Home > SPlaC v1_0 > BookFigures > MakeFig3_14a.m

MakeFig3_14a

PURPOSE ^

Function to reproduce Fig. 3.14(a)

SYNOPSIS ^

function MakeFig3_14a()

DESCRIPTION ^

 Function to reproduce Fig. 3.14(a)
 Angle dependence of the reflection coefficient at three wavelengths
 (514, 633, 1000 nm) for coupling to PSPPs at a silver/water interface
 with a sapphire prism using the Otto ATR configuration.
 Thickness of water layer is 500 nm.

 This file is part of the SPlaC v1.0 package (copyright 2008)
 Check the README file for further information

EXAMPLE OF OUTPUT ^

Example figure output

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 %%%%%%%%%%%%%%%%%%
0002 % Computations
0003 %%%%%%%%%%%%%%%%%%
0004 
0005 % lambda in nm (column)
0006 lambda=[514; 633; 1000]; % column [3 x 1]
0007 
0008 % angles in degrees (row)
0009 aideg=48:0.005:60; % row [1 x 2401]
0010 
0011 % gap thickness
0012 Lgap=500; % in nm
0013 
0014 % calculate epsilon for silver
0015 eAg=epsAg(lambda);
0016 % refractive indices
0017 nP=1.766; % Sapphire - Prism
0018 nM=1.33; % Water - Dielectric for PSPPs
0019 
0020 % Defines Otto configuration, 2 interfaces, 3 layers
0021 % Prism/Dielectric/Metal
0022 % all epsilons must be columns (lambda dependent)
0023 nNbSurf=2;
0024 Cepsilon{1}=nP^2+0*lambda; % Prism
0025 Cepsilon{2}=nM^2+0*lambda; % Dielectric for PSPP
0026 Cepsilon{3}=eAg; % Metal
0027 CL{1}=0; % interfaces positions
0028 CL{2}=Lgap;
0029 
0030 % solves the problem for TM waves
0031 stResTM=PlnMultiRef ('TM',nNbSurf, lambda, Cepsilon, CL, aideg);
0032 
0033 
0034 %Reflectivity (reflection coefficient $R^p=|r^p|^2$)
0035 % Rp is matrix [3 x 2401]
0036 Rp=abs(stResTM.rP).^2;
0037 
0038 
0039 %%%%%%%%%%%%%%%%%%
0040 % Drawing
0041 %%%%%%%%%%%%%%%%%%
0042 
0043 % create, position, and resize figure
0044 scrsz = get(0,'ScreenSize'); % scrsz(3) contains screen width
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 % create plot
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 % format graph
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

This web page is part of the SPlaC package © 2008. Contact: Eric Le Ru
Generated on Wed 03-Dec-2008 11:10:14 by m2html © 2003 (adapted)