Home > SPlaC v1_0 > BookFigures > MakeFigE_3.m

MakeFigE_3

PURPOSE ^

Function to reproduce Fig. E.3

SYNOPSIS ^

function MakeFigE_3()

DESCRIPTION ^

 Function to reproduce Fig. E.3
 Real and imaginary parts of epsilon for silver and gold
 using the analytical expressions of Appendix E.

 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=transpose(300:2:1000);
0007 
0008 % calculate epsilon for ag and Au
0009 eAg=epsAg(lambda);
0010 eAu=epsAu(lambda);
0011 
0012 %%%%%%%%%%%%%%%%%%
0013 % Drawing
0014 %%%%%%%%%%%%%%%%%%
0015 
0016 % create, position, and resize figure
0017 scrsz = get(0,'ScreenSize'); % scrsz(3) contains screen width
0018 figAspectRatio=3;
0019 figWidth=3/4*scrsz(3);
0020 figure('Name','Fig. E.3', ...
0021     'Position',[(scrsz(3)-figWidth)/2 scrsz(4)-150-figWidth/figAspectRatio figWidth figWidth/figAspectRatio]);
0022 
0023 % plot real(epsilon)
0024 subplot(1,2,1);
0025 plot(lambda,real(eAu),'-',lambda,real(eAg),':');
0026 % format graph
0027 axis([301 1000 -48 0]);
0028 xlabel('Wavelength [nm]');
0029 ylabel('Re(\epsilon(\omega)');
0030 legend('Gold','Silver');
0031 
0032 % plot imag(epsilon)
0033 subplot(1,2,2);
0034 plot(lambda,imag(eAu),'-',lambda,imag(eAg),':');
0035 % format graph
0036 axis([301 1000 0 5.9]);
0037 xlabel('Wavelength [nm]');
0038 ylabel('Im(\epsilon(\omega)');
0039 legend('Gold','Silver');
0040 
0041 
0042 
0043

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)