(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     82511,       3411]
NotebookOptionsPosition[     81231,       3364]
NotebookOutlinePosition[     81573,       3379]
CellTagsIndexPosition[     81530,       3376]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Optical Imaging and Spectroscopy
\
\>", "Title",
 CellChangeTimes->{{3.4403684545769997`*^9, 3.44036846296*^9}}],

Cell["\<\
David J. Brady
Duke University
www.opticalimaging.org\
\>", "Subtitle",
 CellChangeTimes->{{3.440368592783*^9, 3.4403686166610003`*^9}}],

Cell["\<\
Figures 2.7 and 2.8
\
\>", "Text",
 CellChangeTimes->{{3.440368637427*^9, 3.440368649851*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"thetaPerp1", "=", 
   RowBox[{"Pi", "/", "10"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"thetaPerp2", "=", 
   RowBox[{
    RowBox[{"-", "Pi"}], "/", "10"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n1", "=", "1.0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n2Max", "=", "1.8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"thetaAMin", "=", 
   RowBox[{"thetaPerp1", "-", 
    RowBox[{"Pi", "/", "2"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"thetaAMax", "=", 
   RowBox[{"thetaPerp1", "+", 
    RowBox[{"ArcSin", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"n2Max", "/", "n1"}], ")"}], 
      RowBox[{"Sin", "[", 
       RowBox[{"thetaPerp2", "-", "thetaPerp1", "+", 
        RowBox[{"ArcSin", "[", 
         RowBox[{"n1", "/", "n2Max"}], "]"}]}], "]"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"thetab", "[", 
    RowBox[{"thetaa_", ",", "n2_"}], "]"}], ":=", 
   RowBox[{"thetaPerp2", "+", 
    RowBox[{"ArcSin", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"n2", "/", "n1"}], ")"}], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{"ArcSin", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"n1", "/", "n2"}], ")"}], 
          RowBox[{"Sin", "[", 
           RowBox[{"thetaa", "-", "thetaPerp1"}], "]"}]}], "]"}], "+", 
        "thetaPerp1", "-", "thetaPerp2"}], "]"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input"],

Cell[CellGroupData[{

Cell["figure 2.7", "Subsection",
 CellChangeTimes->{{3.440368829888*^9, 3.440368834225*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"180", " ", 
        RowBox[{"thetab", "[", 
         RowBox[{
          RowBox[{
           FractionBox["1", "180"], " ", 
           RowBox[{"(", 
            RowBox[{"-", "x"}], ")"}], " ", "\[Pi]"}], ",", "1.1`"}], "]"}]}],
        "\[Pi]"]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"180", " ", 
        RowBox[{"thetab", "[", 
         RowBox[{
          RowBox[{
           FractionBox["1", "180"], " ", 
           RowBox[{"(", 
            RowBox[{"-", "x"}], ")"}], " ", "\[Pi]"}], ",", "1.3`"}], "]"}]}],
        "\[Pi]"]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"180", " ", 
        RowBox[{"thetab", "[", 
         RowBox[{
          RowBox[{
           FractionBox["1", "180"], " ", 
           RowBox[{"(", 
            RowBox[{"-", "x"}], ")"}], " ", "\[Pi]"}], ",", "1.5`"}], "]"}]}],
        "\[Pi]"]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"180", " ", 
        RowBox[{"thetab", "[", 
         RowBox[{
          RowBox[{
           FractionBox["1", "180"], " ", 
           RowBox[{"(", 
            RowBox[{"-", "x"}], ")"}], " ", "\[Pi]"}], ",", "1.7`"}], "]"}]}],
        "\[Pi]"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"180", " ", "thetaAMax"}], "\[Pi]"]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"180", " ", "thetaAMin"}], "\[Pi]"]}]}], "}"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Incident Angle\>\"", ",", "\"\<Transmitted  angle\>\""}], 
     "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"FontSize", "\[Rule]", "14"}], "}"}]}]}], "]"}]], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.178346 0.0110812 0.313561 0.0057196 [
[.17835 -0.0125 -6.1875 -17 ]
[.17835 -0.0125 6.1875 0 ]
[.39997 -0.0125 -10.375 -17 ]
[.39997 -0.0125 10.375 0 ]
[.62159 -0.0125 -10.375 -17 ]
[.62159 -0.0125 10.375 0 ]
[.84322 -0.0125 -10.375 -17 ]
[.84322 -0.0125 10.375 0 ]
[ 0 0 -0.125 0 ]
[.5 -0.0125 -60.625 -34 ]
[.5 -0.0125 60.625 -17 ]
[-0.0125 .08478 -29.9375 -8.5 ]
[-0.0125 .08478 0 8.5 ]
[-0.0125 .19917 -29.9375 -8.5 ]
[-0.0125 .19917 0 8.5 ]
[-0.0125 .31356 -12.375 -8.5 ]
[-0.0125 .31356 0 8.5 ]
[-0.0125 .42795 -20.75 -8.5 ]
[-0.0125 .42795 0 8.5 ]
[-0.0125 .54235 -20.75 -8.5 ]
[-0.0125 .54235 0 8.5 ]
[ 0 0 -0.125 0 ]
[-0.01875 .30902 -46.9375 -77.375 ]
[-0.01875 .30902 -29.9375 77.375 ]
[ 0 .61803 .125 0 ]
[ 1 0 .125 0 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.17835 0 m
.17835 .00625 L
s
gsave
.17835 -0.0125 -67.1875 -21 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(0) show
1.000 setlinewidth
grestore
.39997 0 m
.39997 .00625 L
s
gsave
.39997 -0.0125 -71.375 -21 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(20) show
1.000 setlinewidth
grestore
.62159 0 m
.62159 .00625 L
s
gsave
.62159 -0.0125 -71.375 -21 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(40) show
1.000 setlinewidth
grestore
.84322 0 m
.84322 .00625 L
s
gsave
.84322 -0.0125 -71.375 -21 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(60) show
1.000 setlinewidth
grestore
.125 Mabswid
.23375 0 m
.23375 .00375 L
s
.28916 0 m
.28916 .00375 L
s
.34456 0 m
.34456 .00375 L
s
.45538 0 m
.45538 .00375 L
s
.51078 0 m
.51078 .00375 L
s
.56619 0 m
.56619 .00375 L
s
.677 0 m
.677 .00375 L
s
.7324 0 m
.7324 .00375 L
s
.78781 0 m
.78781 .00375 L
s
.12294 0 m
.12294 .00375 L
s
.06753 0 m
.06753 .00375 L
s
.01213 0 m
.01213 .00375 L
s
.89862 0 m
.89862 .00375 L
s
.95403 0 m
.95403 .00375 L
s
.25 Mabswid
0 0 m
1 0 L
s
gsave
.5 -0.0125 -121.625 -38 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(Incident) show
138.375 16.188 moveto
(Angle) show
180.250 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
1.000 setlinewidth
grestore
0 .08478 m
.00625 .08478 L
s
gsave
-0.0125 .08478 -90.9375 -12.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Mathematica1Mono
%%IncludeFont: Mathematica1Mono
/Mathematica1Mono findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(-) show
72.188 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(40) show
1.000 setlinewidth
grestore
0 .19917 m
.00625 .19917 L
s
gsave
-0.0125 .19917 -90.9375 -12.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Mathematica1Mono
%%IncludeFont: Mathematica1Mono
/Mathematica1Mono findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(-) show
72.188 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(20) show
1.000 setlinewidth
grestore
0 .31356 m
.00625 .31356 L
s
gsave
-0.0125 .31356 -73.375 -12.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(0) show
1.000 setlinewidth
grestore
0 .42795 m
.00625 .42795 L
s
gsave
-0.0125 .42795 -81.75 -12.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(20) show
1.000 setlinewidth
grestore
0 .54235 m
.00625 .54235 L
s
gsave
-0.0125 .54235 -81.75 -12.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(40) show
1.000 setlinewidth
grestore
.125 Mabswid
0 .11338 m
.00375 .11338 L
s
0 .14197 m
.00375 .14197 L
s
0 .17057 m
.00375 .17057 L
s
0 .22777 m
.00375 .22777 L
s
0 .25637 m
.00375 .25637 L
s
0 .28496 m
.00375 .28496 L
s
0 .34216 m
.00375 .34216 L
s
0 .37076 m
.00375 .37076 L
s
0 .39936 m
.00375 .39936 L
s
0 .45655 m
.00375 .45655 L
s
0 .48515 m
.00375 .48515 L
s
0 .51375 m
.00375 .51375 L
s
0 .05618 m
.00375 .05618 L
s
0 .02758 m
.00375 .02758 L
s
0 .57094 m
.00375 .57094 L
s
0 .59954 m
.00375 .59954 L
s
.25 Mabswid
0 0 m
0 .61803 L
s
gsave
-0.01875 .30902 -176.813 -12.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
138.375 12.5 translate
90 rotate
-138.375 -12.5 translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(Transmitted) show
171.875 16.188 moveto
(angle) show
213.750 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
1.000 setlinewidth
grestore
.17835 .61178 m
.17835 .61803 L
s
.39997 .61178 m
.39997 .61803 L
s
.62159 .61178 m
.62159 .61803 L
s
.84322 .61178 m
.84322 .61803 L
s
.125 Mabswid
.23375 .61428 m
.23375 .61803 L
s
.28916 .61428 m
.28916 .61803 L
s
.34456 .61428 m
.34456 .61803 L
s
.45538 .61428 m
.45538 .61803 L
s
.51078 .61428 m
.51078 .61803 L
s
.56619 .61428 m
.56619 .61803 L
s
.677 .61428 m
.677 .61803 L
s
.7324 .61428 m
.7324 .61803 L
s
.78781 .61428 m
.78781 .61803 L
s
.12294 .61428 m
.12294 .61803 L
s
.06753 .61428 m
.06753 .61803 L
s
.01213 .61428 m
.01213 .61803 L
s
.89862 .61428 m
.89862 .61803 L
s
.95403 .61428 m
.95403 .61803 L
s
.25 Mabswid
0 .61803 m
1 .61803 L
s
.99375 .08478 m
1 .08478 L
s
.99375 .19917 m
1 .19917 L
s
.99375 .31356 m
1 .31356 L
s
.99375 .42795 m
1 .42795 L
s
.99375 .54235 m
1 .54235 L
s
.125 Mabswid
.99625 .11338 m
1 .11338 L
s
.99625 .14197 m
1 .14197 L
s
.99625 .17057 m
1 .17057 L
s
.99625 .22777 m
1 .22777 L
s
.99625 .25637 m
1 .25637 L
s
.99625 .28496 m
1 .28496 L
s
.99625 .34216 m
1 .34216 L
s
.99625 .37076 m
1 .37076 L
s
.99625 .39936 m
1 .39936 L
s
.99625 .45655 m
1 .45655 L
s
.99625 .48515 m
1 .48515 L
s
.99625 .51375 m
1 .51375 L
s
.99625 .05618 m
1 .05618 L
s
.99625 .02758 m
1 .02758 L
s
.99625 .57094 m
1 .57094 L
s
.99625 .59954 m
1 .59954 L
s
.25 Mabswid
1 0 m
1 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .21051 m
.06244 .23122 L
.10458 .25356 L
.14415 .27433 L
.18221 .29413 L
.22272 .31502 L
.26171 .33496 L
.30316 .35595 L
.34309 .37598 L
.3815 .39505 L
.42237 .4151 L
.46172 .43413 L
.49955 .45214 L
.53984 .47095 L
.57861 .48861 L
.61984 .50681 L
.65954 .52365 L
.69774 .53904 L
.73838 .55433 L
.77751 .56773 L
.81909 .5802 L
.85916 .59008 L
.89771 .59722 L
.91765 .5999 L
.92782 .60097 L
.93871 .60191 L
.94392 .60227 L
.94885 .60257 L
.95365 .60281 L
.9581 .60299 L
.9623 .60312 L
.96676 .60323 L
.96907 .60327 L
.97124 .60329 L
.97249 .60331 L
.97362 .60331 L
.97487 .60332 L
.97619 .60332 L
s
.02381 .15974 m
.06244 .18288 L
.10458 .20719 L
.14415 .22927 L
.18221 .24994 L
.22272 .27137 L
.26171 .29148 L
.30316 .31233 L
.34309 .33191 L
.3815 .35025 L
.42237 .36922 L
.46172 .3869 L
.49955 .40332 L
.53984 .42011 L
.57861 .43552 L
.61984 .45099 L
.65954 .46488 L
.69774 .47719 L
.73838 .48901 L
.77751 .49899 L
.81909 .50793 L
.85916 .51476 L
.89771 .51955 L
.91765 .5213 L
.92782 .522 L
.93871 .52261 L
.94392 .52285 L
.94885 .52304 L
.95365 .52319 L
.9581 .52331 L
.9623 .5234 L
.96676 .52347 L
.96907 .52349 L
.97124 .52351 L
.97249 .52351 L
.97362 .52352 L
.97487 .52352 L
.97619 .52352 L
s
.02381 .09944 m
.06244 .12741 L
.10458 .15548 L
.14415 .18013 L
.18221 .2026 L
.22272 .22543 L
.26171 .24646 L
.30316 .26791 L
.34309 .28774 L
.3815 .30608 L
.42237 .32478 L
.46172 .34199 L
.49955 .35778 L
.53984 .37371 L
.57861 .38814 L
.61984 .40244 L
.65954 .4151 L
.69774 .42618 L
.73838 .43667 L
.77751 .44543 L
.81909 .45317 L
.85916 .45903 L
.89771 .46311 L
.91765 .46459 L
.92769 .46518 L
.93871 .4657 L
.94818 .46604 L
.9568 .46626 L
.96157 .46635 L
.96409 .46639 L
.96676 .46642 L
.96909 .46644 L
.97041 .46645 L
.97166 .46646 L
.9728 .46646 L
.97384 .46647 L
.97498 .46647 L
.97619 .46647 L
s
.02381 .01472 m
.06244 .05684 L
.10458 .09364 L
.14415 .12359 L
.18221 .14965 L
.22272 .17522 L
.26171 .19819 L
.30316 .22111 L
.34309 .24192 L
.3815 .26088 L
.42237 .27996 L
.46172 .29731 L
.49955 .31304 L
.53984 .32875 L
.57861 .34284 L
.61984 .35666 L
.65954 .36879 L
.69774 .37931 L
.73838 .38919 L
.77751 .39738 L
.81909 .40458 L
.85916 .40999 L
.89771 .41374 L
.91765 .4151 L
.92769 .41564 L
.93871 .41612 L
.94818 .41643 L
.9568 .41664 L
.96157 .41672 L
.96409 .41675 L
.96676 .41678 L
.96909 .4168 L
.97041 .41681 L
.97166 .41681 L
.9728 .41682 L
.97384 .41682 L
.97498 .41682 L
.97619 .41682 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{439.375, 271.5625},
 ImageMargins->{{38, 0}, {0, 0}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXHvMXEUVv9377fe1fH1+pbS1pf1a+qC0pRRqgba2PNqv2xcWrUgQbUsF
W6hC6opUiIaIQUTFICEiGzXEV4gaoiE0RliN7xCiJhINIazvYCQhhPgKwXXv
uTPnzNw9Zx5396v9w4bvcnfund/vnDMzZ849M/fuOVg/fP17D9aPHDo4uv3Y
wVsOHzn0/tGxm491itIJSTLhic7ftNEkO28niT60O/+1T2SHrMRxPgfOq0m7
WU/Mf7VGK3nYuG8+nKdJo5Yk9SYUJQ8x11udGwrXv6cumQwVOKYZFlzN6POy
KlBb4nTuqcBdE4He/Kep2u1m0qkxAIXZsZ40220NnULxYKe0ntRz7cxaqRZG
FwcJU7RZLWm02skwXBtiryk6xK7X6R7NU9EaaMO0Gp3aJE6tVtRZKV21lVbX
ulTr/H08b5anjBYDdviVHQdBEl2mLdLhrSjlsl/WZcWWSZYysBUEz+7Lpawo
KrCTIV3O1B50S6IFbdS0adFUWe1hTZgVKfBUtZpVRaHnwpym0ZHNupeUHBBN
l2r54denfJaeJOlHjB3pJ7lMatTHfmlorc+HQuyZDW/qQ9PEcVu1jGQbsWqr
oOjNXqGt4+wphgqfPkWsKA01S/3U4q6IZh3s6mvKNJUQlQpWNfuc16qqJdEz
GKoEegazirrH9AzFvqHdnyzZkBpc3YMt8wzaU9iDMadGpyRKJvfsQcsfGece
RJLHmH/UIHE6B1GFT8h2t3pVZo8OQoVpOj1B2tN4He43vJ2uavYsVNfoHbku
MHCs8WCCY9Nw0nXNwVWGeTIcB6j/mtMMhzpcmOSMjqL0bagIIaPhOlzq0OZe
uRkWYuXcmWS/RpieNV1pBPCdcdCsg/lnMZCfzdmCoiODzZx7hwKlmqqVtoyV
K32GLFrLhFe3v0kraMjbqfZAXgPoQsLOkue3Gx3G6Kc7ioIm2r9Vrdgi+8uq
cvYdY6DRfXQxbhe6EUVAXVU25ip8yBxtBr/qKTvU5WJYpJq44q5dMx29NQeJ
VcaUJl2hjuF5haobbI3MuR3+8lo7jQ6mR++Au4pLDaHKNtNnKLtVUDXbh2fV
KwzFxbY+SkubqdbYZXknc2oTq2jhuEjK9Ie6OhcFbTX01w7OoKi4JdgQpNpu
k7crTneoVrXch7ZpkFVUSFqvG+MIbu+LRntMjm5Lc4bepoYvDohcm8AmNomq
URq0GvXuu7RvY0BshyDU1l4NFbSVEWqhMkZ8VHVXKShj9qCsRBlzB4LUuh76
zFCOr73d8CT1ht3HhCpjzGAdcFdRmuippjDR7VLF9uN9Y4C/u2YZEnRMnLcW
ZxRzDHZVUTPKeEy0YARIJR3P3RSVqplVN12FKZvBlI30uazfHKe6zFOZslRu
lkuYsr09lF0URw/HD4x/nUEJ52gczpCEc1MczkQJ58Y4nEkSzpGThAPhybBU
+z14i8MzuGuH6zBZwrkhDmeKhHN9HA43EuH47jicaRLOoTic6RLOdf8bHM7L
wfFgHA7nBeF4IA5npoSzP2QMzJJqvzNkDLhrh+twhoRzbRzObAnnHXE4c1D5
MrXfIElxdRzOPAnn7XE48yWcq2ScZfC/0HwB54fPlFjfJrMu1z/CH/C5KWmB
RL1PptaNph9As39cJrLqEFF4eAcRgXShJNiVeIsabUvUnb08U3Oz/qjds98q
G2SJUrfEoy/XJosl1blwTImwVPW2uGdVjv0sif3Nfva4h0uOfYnEfoVvAEY9
DXLUS+32DiAMeJjjhjsXqorjcJcshhi+VpwDaGccouiwyFSRiKfF6L89DnvY
r/+YjDjEN+IaBOUivoIxtuHPqgmaZR4aOAq0a2x1uqvummcz2FP96lzuU6cc
MxcDivPUZSEykEn1CpA5WXAycPFjwdpBzPHaj/jtvmV8mE/36+xl5jswF5C6
VdwUN/a4kFLsMhtlbFqfJ1OlTBlnPgpHF9hGC+KjeCYN7KJcACvq7EidaJ/Y
vf/ArzMX/Ba6jINZa29GaaK1AZGwxZ6zDm+p9t6m3Nwg2nhdoKaqXc9lbl8o
9SEHNjceFsXIvTYOe7EkowMn72OdcKzZTFpwqYXb6Dp97hymJheOFboW51ss
g08Eg9d1XIwdvKWX41YwCBSMLbTpVgfQGW63WTdX/BoSnRiSubs5Z7KCMGbn
NoVpdspbvDAUw436ze8VYQjM32haNoBmyJ6/uOqTGNsXWoEbpgVPxm5j8HjT
YT/zMplZp9F4r8WFbpxnKYyns/CnI7kzlZGWazs4cm6hDzPfdL/tgpjj50B3
sCRG9tyFoqfOHrB8c1JUAFWwSIAMJh83W7jjKFF7btJm2qJ7M59b+9kozQJJ
5wBmc2YI7QVzbWb3qJobN4pn4A3lt/VwKR7OFPP9I5jLwVqpoLK7dri0BMkj
tqhDHpwTsUXNTY74mxv+nNNOrfuCtvBQSm+BrUnoSJmBAFYsOYRzmBVeZHo2
mpgmj9ibwxl/FEUWXQi3qGAZf8DIf4E74+J6vTwQseFGTB2SvO5ByD1ed0Uv
WvKOWesNFTZiJDNbd+fwTTXcMOSizHn2MCSpucUyJt7UAQ8ZL9/J1tItVnYj
jTt1eKYtNtefuVXMQsSWDy8jkws3579PN4Zb/M4ZTnp38Ct2fIceOh8ctjeG
yzC6Y+D5kkxcarEPsRUXEYvemDNxH6IsLjYWZeCalHkK1l4z1A5TbL7QKGsg
xCI02Lgoa5pT5wIftxOJiyx9LQCII4HM/8GzQsqjjKFn2qTi4CT613u3MUWy
BS9WoHqtT+YVQ1e3EyXt/y0Lwj2lzWUIFjKa/lOGFR8xowJLjvTvvZO6I0Wi
ejWkq5RM03H0hftIpFdkQXIHNmAFmp3z0JWDUUYWOluEZy/3bnUuE1egKtR4
qXdSd16O6MkOZUih4jKmL3EEf8UzR6JkeSDYi3FdlPNmKwKp/iJT6VjVDGN0
DzSfdLgWWhlI/6c4TekFWkyfJlwOcXUg/R/GxxesCaT/XTl6lTwV6dcG0r9Q
0vjGjM4Z/wKmjHMOJMjzsiDcMFrHQHCwz8XBrrchRP8CV+Hib3ofpxcxbUVn
5Kqf7dM4BbCNflJg+hWWOdaxQsfkJicpzSO/HJ8xudkmFfvnYtT+mfEZnZc4
+ywl3J8en9F5mUSf2tr/LG7wbGVgFzFa/SQOdiwQ9kcybP5QzH/ZYyVTrSZR
Fgz0A1/7DFnvqutuoXfJ5RmqoA2SOxmJFjNGaPokmmg9BJkdVWW08sA9KkG7
O1C4J8sLp7q5Fs6bab3CFillOg2UncCzqi2Izti1ilbKz7UgEZnJvbb3KfTj
JXh2wtePjdfTlYAqDzw/Xqi3+IWCCo/LQq2KZ93nZF2KrN/2s0bkKK+SWFNk
hbLHAhqg4EhUQ+gGiEg9Xs0ItZgxxTd9Y8fev8K90ztfuZuA5OM1TqmWoVSP
+qUqM1Ff66RfjvRfCzCKXiJpF8IUlcvn5sd3OekphvqKTI/f7Gk3k4a5LpC7
D/qsA23U4CQ54JcEKjzik8ROSA3CMSX/IbTDdU76FUj/RZkeH61xy40ZhV4v
EaQ2wcN41fFofQMDRpPPOQj2kCwtB3vYCbsSYR+Mg73Rhi1EFgALn9i5Pw72
KMJyAeVqJLgvDvZ9TthzEfaTcbC3SLCpDXtPHOwxBpYmWHo0vzsOti7BFqS9
Kw72VgZ2KQN7ZxzsbTZsYZJbg2Uf9sDC7bfjGTdPr8HeejxkoN7BgNGcch6C
3RqnMKcIWZRmjbVIcCyO4CMIxs0GFyDBzXGwd0qwKcKCtJHv336UgSWPug5h
I19B/ZgNW3DUb0TYQ3GwdyNswWXD2YUIuz8O9h4JFm6DzAvkSa6Jg70XIcgI
BLsBYR2vr9HYuo+RkZKn8JUhmLDpmcYxtj4jgcFtkHiYmJ053iopsUv2fps1
tVnhhZAh5Hc/AZbYKvsAspOTX4U9poY6e/eAl9o5+6DNDhdpnt2Dujv2Jfew
VfZzyL7UZgfd96LuXN1iqiJyl+znkZpWSGhaga4/OTvjNuJYXa3cVtmGTZ/a
9BDDz8rOHLsRTuZOuy+guMsZcW+Thez/hrovoSg0e52Hojg+OxH6TDcTy+I2
yRVYH2HkXItyOibv0F0meqds7B45wPqyLV0htDiKZcXNEJ4dvX3aB/dVlI6W
ASGUgHnJ8ckLro0xr9HbLrevMzKtR5kcn4wI3Q88Itmp9L62R22RKWqARj7g
F9m3kXgEZerXZrZvoMgUP21AkR0fSeC8YT6Se9nH9i1bHLi4EcWJ/MrBYwhB
YJsQzPHGvidxx01v30HBKRjbjFyON9HlfFy14KVzT7CcgXrcJoeLW3CoOF6J
ll30gFEGxBzvE8hGvJcir+PFYTnfVk3svbOy0t9FpVch+eXZGYS/jtgxb91J
VqIe/qxoLvcJtAHjSTyjvQIQFkPAdCGWdS180qTCrbFy7+c8ZVPBRVg1Gcay
8Obk1pC/j7BEsA8JuO8pOEbZD1FaSj6A35iRnTk2TYdu3vkxElAEBPmwSdlZ
ZMDGEfwUCSiucYRYZo5UZ2sHA6l+jlQUmjhCKGc61hPxPo1U5yOVIwoKNdYz
CBuUwgiF/QXCUq7BkcIIhaUNCesR1pfCgNt/jWc0gVOCWw3y2JXiZ9FiF+OZ
Nypwrwpzc9FvUc6gmTxwqZd7JnwOmWhedUzSgeu2HNPzyESzqmMGD1yY5Zhe
wKbZgkyO+duzysq1z+9RF5osI79b8keE2IoQjvmWg/gz6jmGEJfGQbyIUuxA
CN9HEOD2v+HZbqxIu6kcCauXUGjIb4EvjHwV/GXkgeVsX76Dg3gFIaCzT8/O
HK/ocRCvoiKwqgVzpWMq4yD+gVLcEVfxX8h9PK7ia8j4Qbli79/3eh3lq8s0
ffqgFxwnoF6OCdJFGJGmaOfKtf1TZ98+1AXo7Xy8aEVvwgvWZ8H69lGudj62
2ma8xqvZv09xwZHe+zns5+z9A1xwnGIPZte46PmzW3Ckl9cdCyc9fnYLjiOo
mSNOEb9JOwtrR361EY5zsHbkegsc52HtyG8awpH2gTmCDLE27RO60lO7gkMT
uiQEG7RBzjERwvFsrLOjhJS06LGtRG16VHJ8U0qsTeuUm0vUpgU+7hZfbcon
rS9Rm4LC80vUhgQFhDuOx3ixdg1rOz4oItaGxSWImHxP+NQroffDugy97ebr
lfuzw9SsODKggeNJ+PY1lxs6iZ/4/v+H30+ND7+3swvmV/qTCf8FAOBJpQ==
\
\>"],
 ImageRangeCache->{{{0, 438.375}, {270.563, 0}} -> {-30.1712, -72.8527, \
0.240535, 0.466014}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["f2 flint glass", "Section",
 CellChangeTimes->{{3.440368750851*^9, 3.4403687541730003`*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"b1", "=", "1.34533359"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"b2", "=", 
     RowBox[{"2.09073176", " ", 
      RowBox[{"10", "^", 
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}]}]}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"b3", "=", 
     RowBox[{"9.37357162", " ", 
      RowBox[{"10", "^", 
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}]}]}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"c1", "=", 
     RowBox[{"9.97743871", " ", 
      RowBox[{"10", "^", 
       RowBox[{"(", 
        RowBox[{"-", "3"}], ")"}]}]}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"c2", "=", 
     RowBox[{"4.70450767", " ", 
      RowBox[{"10", "^", 
       RowBox[{"(", 
        RowBox[{"-", "2"}], ")"}]}]}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"c3", "=", 
     RowBox[{"1.11886764", " ", 
      RowBox[{"10", "^", "2"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"n", "[", "lambda_", "]"}], ":=", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"1", "+", 
       RowBox[{"b1", " ", 
        RowBox[{
         RowBox[{"lambda", "^", "2"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"lambda", "^", "2"}], "-", "c1"}], ")"}]}]}], "+", 
       RowBox[{"b2", " ", 
        RowBox[{
         RowBox[{"lambda", "^", "2"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"lambda", "^", "2"}], "-", "c2"}], ")"}]}]}], "+", 
       RowBox[{"b3", " ", 
        RowBox[{
         RowBox[{"lambda", "^", "2"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"lambda", "^", "2"}], "-", "c3"}], ")"}]}]}]}], "]"}]}], 
    ";"}]}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"n", "[", 
    FractionBox["l", "1000"], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"l", ",", "500", ",", "700"}], "}"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<wavelength (nm)\>\"", ",", "\"\<Index of Refraction\>\""}], 
     "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"FontSize", "\[Rule]", "14"}], "}"}]}]}], "]"}]], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
-2.35714 0.00476191 -54.7076 33.9344 [
[.02381 -0.0125 -14.5625 -17 ]
[.02381 -0.0125 14.5625 0 ]
[.2619 -0.0125 -14.5625 -17 ]
[.2619 -0.0125 14.5625 0 ]
[.5 -0.0125 -14.5625 -17 ]
[.5 -0.0125 14.5625 0 ]
[.7381 -0.0125 -14.5625 -17 ]
[.7381 -0.0125 14.5625 0 ]
[.97619 -0.0125 -14.5625 -17 ]
[.97619 -0.0125 14.5625 0 ]
[ 0 0 -0.125 0 ]
[.5 -0.0125 -64.8125 -34 ]
[.5 -0.0125 64.8125 -17 ]
[-0.0125 .0116 -54.25 -8.5 ]
[-0.0125 .0116 0 8.5 ]
[-0.0125 .09644 -45.875 -8.5 ]
[-0.0125 .09644 0 8.5 ]
[-0.0125 .18128 -54.25 -8.5 ]
[-0.0125 .18128 0 8.5 ]
[-0.0125 .26611 -37.5 -8.5 ]
[-0.0125 .26611 0 8.5 ]
[-0.0125 .35095 -54.25 -8.5 ]
[-0.0125 .35095 0 8.5 ]
[-0.0125 .43578 -45.875 -8.5 ]
[-0.0125 .43578 0 8.5 ]
[-0.0125 .52062 -54.25 -8.5 ]
[-0.0125 .52062 0 8.5 ]
[-0.0125 .60546 -37.5 -8.5 ]
[-0.0125 .60546 0 8.5 ]
[ 0 0 -0.125 0 ]
[-0.01875 .30902 -71.25 -81.5625 ]
[-0.01875 .30902 -54.25 81.5625 ]
[ 0 .61803 .125 0 ]
[ 1 0 .125 0 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.02381 0 m
.02381 .00625 L
s
gsave
.02381 -0.0125 -75.5625 -21 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(500) show
1.000 setlinewidth
grestore
.2619 0 m
.2619 .00625 L
s
gsave
.2619 -0.0125 -75.5625 -21 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(550) show
1.000 setlinewidth
grestore
.5 0 m
.5 .00625 L
s
gsave
.5 -0.0125 -75.5625 -21 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(600) show
1.000 setlinewidth
grestore
.7381 0 m
.7381 .00625 L
s
gsave
.7381 -0.0125 -75.5625 -21 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(650) show
1.000 setlinewidth
grestore
.97619 0 m
.97619 .00625 L
s
gsave
.97619 -0.0125 -75.5625 -21 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(700) show
1.000 setlinewidth
grestore
.125 Mabswid
.07143 0 m
.07143 .00375 L
s
.11905 0 m
.11905 .00375 L
s
.16667 0 m
.16667 .00375 L
s
.21429 0 m
.21429 .00375 L
s
.30952 0 m
.30952 .00375 L
s
.35714 0 m
.35714 .00375 L
s
.40476 0 m
.40476 .00375 L
s
.45238 0 m
.45238 .00375 L
s
.54762 0 m
.54762 .00375 L
s
.59524 0 m
.59524 .00375 L
s
.64286 0 m
.64286 .00375 L
s
.69048 0 m
.69048 .00375 L
s
.78571 0 m
.78571 .00375 L
s
.83333 0 m
.83333 .00375 L
s
.88095 0 m
.88095 .00375 L
s
.92857 0 m
.92857 .00375 L
s
.25 Mabswid
0 0 m
1 0 L
s
gsave
.5 -0.0125 -125.813 -38 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(wavelength) show
%%IncludeResource: font Mathematica2Mono
%%IncludeFont: Mathematica2Mono
/Mathematica2Mono findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
155.125 16.188 moveto
(H) show
163.500 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(nm) show
%%IncludeResource: font Mathematica2Mono
%%IncludeFont: Mathematica2Mono
/Mathematica2Mono findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
180.250 16.188 moveto
(L) show
188.625 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
1.000 setlinewidth
grestore
0 .0116 m
.00625 .0116 L
s
gsave
-0.0125 .0116 -115.25 -12.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(1.6125) show
1.000 setlinewidth
grestore
0 .09644 m
.00625 .09644 L
s
gsave
-0.0125 .09644 -106.875 -12.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(1.615) show
1.000 setlinewidth
grestore
0 .18128 m
.00625 .18128 L
s
gsave
-0.0125 .18128 -115.25 -12.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(1.6175) show
1.000 setlinewidth
grestore
0 .26611 m
.00625 .26611 L
s
gsave
-0.0125 .26611 -98.5 -12.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(1.62) show
1.000 setlinewidth
grestore
0 .35095 m
.00625 .35095 L
s
gsave
-0.0125 .35095 -115.25 -12.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(1.6225) show
1.000 setlinewidth
grestore
0 .43578 m
.00625 .43578 L
s
gsave
-0.0125 .43578 -106.875 -12.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(1.625) show
1.000 setlinewidth
grestore
0 .52062 m
.00625 .52062 L
s
gsave
-0.0125 .52062 -115.25 -12.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(1.6275) show
1.000 setlinewidth
grestore
0 .60546 m
.00625 .60546 L
s
gsave
-0.0125 .60546 -98.5 -12.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(1.63) show
1.000 setlinewidth
grestore
.125 Mabswid
0 .02857 m
.00375 .02857 L
s
0 .04554 m
.00375 .04554 L
s
0 .06251 m
.00375 .06251 L
s
0 .07947 m
.00375 .07947 L
s
0 .11341 m
.00375 .11341 L
s
0 .13037 m
.00375 .13037 L
s
0 .14734 m
.00375 .14734 L
s
0 .16431 m
.00375 .16431 L
s
0 .19824 m
.00375 .19824 L
s
0 .21521 m
.00375 .21521 L
s
0 .23218 m
.00375 .23218 L
s
0 .24914 m
.00375 .24914 L
s
0 .28308 m
.00375 .28308 L
s
0 .30005 m
.00375 .30005 L
s
0 .31701 m
.00375 .31701 L
s
0 .33398 m
.00375 .33398 L
s
0 .36791 m
.00375 .36791 L
s
0 .38488 m
.00375 .38488 L
s
0 .40185 m
.00375 .40185 L
s
0 .41882 m
.00375 .41882 L
s
0 .45275 m
.00375 .45275 L
s
0 .46972 m
.00375 .46972 L
s
0 .48668 m
.00375 .48668 L
s
0 .50365 m
.00375 .50365 L
s
0 .53759 m
.00375 .53759 L
s
0 .55455 m
.00375 .55455 L
s
0 .57152 m
.00375 .57152 L
s
0 .58849 m
.00375 .58849 L
s
.25 Mabswid
0 0 m
0 .61803 L
s
gsave
-0.01875 .30902 -205.313 -12.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
142.563 12.5 translate
90 rotate
-142.563 -12.5 translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(Index) show
113.250 16.188 moveto
(of) show
138.375 16.188 moveto
(Refraction) show
222.125 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
1.000 setlinewidth
grestore
.02381 .61178 m
.02381 .61803 L
s
.2619 .61178 m
.2619 .61803 L
s
.5 .61178 m
.5 .61803 L
s
.7381 .61178 m
.7381 .61803 L
s
.97619 .61178 m
.97619 .61803 L
s
.125 Mabswid
.07143 .61428 m
.07143 .61803 L
s
.11905 .61428 m
.11905 .61803 L
s
.16667 .61428 m
.16667 .61803 L
s
.21429 .61428 m
.21429 .61803 L
s
.30952 .61428 m
.30952 .61803 L
s
.35714 .61428 m
.35714 .61803 L
s
.40476 .61428 m
.40476 .61803 L
s
.45238 .61428 m
.45238 .61803 L
s
.54762 .61428 m
.54762 .61803 L
s
.59524 .61428 m
.59524 .61803 L
s
.64286 .61428 m
.64286 .61803 L
s
.69048 .61428 m
.69048 .61803 L
s
.78571 .61428 m
.78571 .61803 L
s
.83333 .61428 m
.83333 .61803 L
s
.88095 .61428 m
.88095 .61803 L
s
.92857 .61428 m
.92857 .61803 L
s
.25 Mabswid
0 .61803 m
1 .61803 L
s
.99375 .0116 m
1 .0116 L
s
.99375 .09644 m
1 .09644 L
s
.99375 .18128 m
1 .18128 L
s
.99375 .26611 m
1 .26611 L
s
.99375 .35095 m
1 .35095 L
s
.99375 .43578 m
1 .43578 L
s
.99375 .52062 m
1 .52062 L
s
.99375 .60546 m
1 .60546 L
s
.125 Mabswid
.99625 .02857 m
1 .02857 L
s
.99625 .04554 m
1 .04554 L
s
.99625 .06251 m
1 .06251 L
s
.99625 .07947 m
1 .07947 L
s
.99625 .11341 m
1 .11341 L
s
.99625 .13037 m
1 .13037 L
s
.99625 .14734 m
1 .14734 L
s
.99625 .16431 m
1 .16431 L
s
.99625 .19824 m
1 .19824 L
s
.99625 .21521 m
1 .21521 L
s
.99625 .23218 m
1 .23218 L
s
.99625 .24914 m
1 .24914 L
s
.99625 .28308 m
1 .28308 L
s
.99625 .30005 m
1 .30005 L
s
.99625 .31701 m
1 .31701 L
s
.99625 .33398 m
1 .33398 L
s
.99625 .36791 m
1 .36791 L
s
.99625 .38488 m
1 .38488 L
s
.99625 .40185 m
1 .40185 L
s
.99625 .41882 m
1 .41882 L
s
.99625 .45275 m
1 .45275 L
s
.99625 .46972 m
1 .46972 L
s
.99625 .48668 m
1 .48668 L
s
.99625 .50365 m
1 .50365 L
s
.99625 .53759 m
1 .53759 L
s
.99625 .55455 m
1 .55455 L
s
.99625 .57152 m
1 .57152 L
s
.99625 .58849 m
1 .58849 L
s
.25 Mabswid
1 0 m
1 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .60332 m
.06244 .56386 L
.10458 .5232 L
.14415 .48709 L
.18221 .45412 L
.22272 .42079 L
.26171 .39029 L
.30316 .35947 L
.34309 .33122 L
.3815 .30528 L
.42237 .27894 L
.46172 .25471 L
.49955 .23241 L
.53984 .20967 L
.57861 .18869 L
.61984 .16732 L
.65954 .14757 L
.69774 .12932 L
.73838 .11065 L
.77751 .09336 L
.81909 .07568 L
.85916 .05929 L
.89771 .04409 L
.93871 .02848 L
.97619 .01472 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{442.375, 273.438},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXXnMZEURfztvvmMPWHYXFpTrgxVhFREBUUT3W0DhYxGCiyggHiuoiyeB
8cZF1HgQopFovIZ4EGI0hGgI0aBhhBCvSDAaQtTgqEjQKBI0qGhgfNOvu7q6
51d9vDcf8gccvW/6va76VXV1d1Vfe/qO3s43vG1H76ILdiyccsmOi3dedMGl
Cye/45Iqq1xRFCturv5ft1CMn0dFYZJR9d/oe+NknDOd5/+oP2aK0aBX8H+W
+sNik3pXFoNerxjU3IsNOm80Ghb9Xr8YVr8ur0k9pl/1l4qiN6g/XzCfD/tF
X+ftZfIqlua7XS6JYUXDJ8FREInRoOj1BpzEbeqPWcVxqfq3P6yL9JfUc0f9
mFMcmLTFkv455loyFIWmXnKOulRHpd2xstRb/a6rsmfGxAiwKVaqd6UtUumg
JjOvVO5Ug2ZdS6I/KyukVjdGGrf2rNBjCToajirjkV8L9FgCizDQalqrirG6
lhgd8+34O6PZil8Jqu4DvJpW1kZQvebCq2cjeKWoDjOiJaeOulqxPaWVSmrL
0drgHKtOQxp9N2MsZ9CzEHQdVR919GttSE61kqwr3dcMsKmO8TMJVFNWv9Yy
IXuae9e8wYgsD/PMvjO8usSrT7icOlhVKWEMubYA9TxgJLV+q+rrAJ11NE7S
LddVSTU4/jUPqgF9N8ssIyh09T1vqS6kcTdkja6rKfPvGM09QI80Xd1bup79
G5Sq0SgNkL6JbN2hrHGRqzL2O/6sza5r+hpGrsMUBitBt+kS9WFawg7vIIQK
mbSRJ3qF3Mq7Qm2KpiusG4hhN1BS2O6gQBJ0mIAcrTMM4SFmsp/yO52RKWe4
1D2nVa8mATHqTpZ1z1LF+CNJRZEqRuilAAhmkjW5mnT9nbGTQC9lKoaGo0pd
HaoYGqBIuFKPylzrFUszyo6LO4M/HmXtmB6qmBmn0RgkTvc+zloyo/Aat0GN
7AiisRR9DU13pjPqx0pfmEr3nG1NkupmYjBHUFZbKEYEGtSrfKtt9U2XKmFi
JP8j0M5+omW5ffWeRNZaWsC3mwYrbrl70Xc9Yq9Z/cEQcr2gTYyybkXFRqCb
DUCIy2vK6oMpe/H8+TSN3HFwe4OuznY8RTH7hDCRNNonCm2E+285cMKUcjC5
ppGnmto/KbaxvpW3zvHXrOt1RiT1mvX/4uvFNOLNeBtlTjiy1HU1hb01gXIb
zK7HXLbCWnv7xRnmKzbsUyc7EIk4r0vn9YkEzlKcSeHiklnkEusiZtjjfZ0b
U2Qh3SKywD5BBvqtXAl6DDH1NeHz1eU64deR+kKVLr12442c+gqQWWTwx/94
QawB5riSya8jxGfz4ZoGxRm2w+hVEPdsp1NBnOJMChdcQSouGM84UJ/uAGtX
QQLx2Xy4vMdzI7WWFbTNKBB4ruUUlBCi3IjrVqCJmSkARRQbAUQ9yBSryu1Z
reX3JkvyXhS+XhQpZnFB3fuUgE1QzAJ2kn49GS/3Qj6B89pl2I1XRW0yfC5m
squbfJ1bFQIZxzPSEXa3FbCtIsUsYItUFW7E681NNMOIGohur858N+Nr569L
xwE1U5hepLc1lbR+X2ayxSFNj80tTUDq4uy6+5mHlBjCXIDGO+RxlVGAM/+W
r1sdQqlvphz9nj7+Qy2X7RwnsyxXa8BgmwV5uz+Z94TKQ3WkO2Q76+Kb57wz
ecfbqG4VXdj0CmdpZpKsvM7ncevzaUQ2yMwnCrh9ynkBJe6jX3FHiHoZrDQU
23cBGeszFZ6GVJnIdMBKgFmlF+YJs5rlhULcjqgIM9dXfztPsllXT+UpY1C0
dowTBXA2hksM6JBCZ7goeliek+Ag1Z03Tjp1C2mgRDG4QWCNzfHh2+TxIEgE
ew6BXdW8xk3enJgHVnvldQAR7NlU5WsagmVeLwIrBiC8MbneGUKi0u0Edq0M
dqP+QXVVg9kN2GAXf+osJDmBfjGxQhyDfCYZw3oZ8t76FV8n2t20HNHJcr+f
0QTd7RT9koPVucZAuDs1R6pVv0+nn+v9PgE5JCo9jUTdWxZVLL1EfJ7SoPTJ
xHu/BqVPIt4HNCh9AvE+KFLa6ncL/TwoWb/H05dPb4DyOEK5uUHpY4n3MxuU
PppKH9Gg9JFU+jnJ+j2CpD0qWb+HU5ljG6DcTHye36D0ocT7+AalD6HSL2pQ
+mBCvpis3wXiuDVZv/vTly9ugHJf4nhKg9L7EO9T5dKm8T9ufnk7B1ylG0kt
L5UFo62My+cr5zrDexLuM2TcdguA3VphfMlhv08u8HoArI37nOWbridJzlxO
SbIcblEA6+uvdWHzFuzvvNCmWvg7skJgMxxuvskx6lzvTrBfvvx2E3LCQ6sC
yO9X6RpC/4plRp/klSf6sKsI9Tky6gP0j7ZudyKmecJ0nozpQP2qjV/toHJ6
b+BAI6Qz1LzOl5Gi+i1B3iIRG9VPRguv9huxpWilLEEjRmO+SlcQ7R1x3Gjj
1gRuj8SjBPmCPMW8BHz+X0L7xhRidp0+Fe0jxGBnijqGNPmcqvR/EYM3ywxW
S2jV1w+7JGJe2T/o87fLHGmB3gksC9XPDUe0hsNLPkR0L05QFWvtoe0YnMSD
xOCSKTUpj8QDxKCXIAHbkUsSsDMmSIK/EIN3yQxoIalqXH3uW/UVYeu52HHC
euN/djlwW7Ag7QbOWWOldbWKmrmfyL4vwUoHgyCx+4jYZTIxZLn3UsFdMcvF
54NOBMV+T0Q/GKv0OWc3l64P2tuJ2sSQiH8oRnzeWSE2xNVzvU3TVvI9LtXJ
/l+mpZsAMs7fENWPxrGajR9DH2v9jOj/iuh/PFZ7s3bcNYZZtzbjYj1usVrp
kOWb4P29mN5uTuQM3k0auFLWwDKucDgT8t6exIxI7i4S46o8MdoEZ47L4bu4
kYDtlwT4kzHLxoeu+MCxShQsK1Yzawt8gnxWkkfFbz93pcCtvl/vx6c5BOOQ
KIWhIKfNUgnIi0Vzd5IQV8tVMWd+DOpjchrLbiL8eNyGVEvHghJjuTsI+2fi
2OtVA3XQL4o9ErWZhR9/i5D2l3YDYH4G8gKgrf3YQwLAflbqMu3XWIJbbOKx
4E+pJj6X0qDDnqDp4qYRLka3njh7b+Kh5I9J0C/IgtpJ2h+6n8cigdvp82si
1L1Xt1HBL+cV/AEV/GpewVuo4LV5Bb9PBa9L0eDN7ucxDX6XPv9GHqzvgLxM
EjcR7+vzCt5IBW/IK/htKvgtuWBK5FhKNG7wlY5mGngvYQ5GIYfzBoJ7owy3
Tbx4PTG4aXkYfJMYIHtBkzFeH8WdGaQiZHIBVhRbOWcA5djq64T/5pTGd537
eazxXUuf35KnfjST9DWQl0kW1apZ1W4csPi7JPngzDZ1uXEK2kD1FdLWrbJY
VgTLEa0B7GsEbhek2E3lBdpyhRxINOAEBCIfT3McjigGZtul+kHB5LBlDjoy
RlHIh7yGauH2NNBmBqgZ6KSQxPhsyhFS5vQlgO02v0lalJWT2B+0QilEH85s
obehjWP7Imn1R7JWN4v83byVIA/5Zp8npj9pyBScRRD2SyGhkesbQHKo/pHs
vIs7oRCYz5IyUOihIRymX+V52hObm9CcBApuAkjsmHM1Ab/DN3A05nwa5N0Z
4eO9+hRx/EVeQTR5kUniKuJ9V17BK6ng3Sla/QT46C5fv6krnsgz+hjh+bWM
J3VFGzFAc6BRVrOOLOr/2kftJIr1ERLrnsa80DabD4O8KId5cBLZaaDI5buC
JPidTJ9cG/eUhf6s9i2r3zZWQFPzv/XtSVwl8wruIoj35jWCy6jgfXLB3PWH
94O8APmmKxHvJex/ihFPW4nwKLwH5LXgxNcpFIF3A1r3+xbQYnXinaSfv8bq
VlydQHpHK4kBDsjsLgV5D8gkWp8zSQw5luV4CVrZ/VvMjNwmz69iWr7YJPF1
xrLKxWSBD+UJnLdKkR/HuHtKUo6VoI0FD/qNNTXWbLngYpzaNqdRkDx/lysp
N+gMSZgRGaG81HWZt5LxPZwmV0pcGjPCUMQl3m2Yd9rlLSAvScK0mDYoYXp4
Jx6uzzstg3YQ/VMWNvvITORsTOujMzvJCB+RUTc7NTMRRHZxtrNDUuem7vt7
E8gLCJK/+Q/tcfs3vZ3CDsALqQIelXGj5d/U+AZt+QuwQrvFUufOXw/yHouz
ajJN/zpS26h+ShNIVwaajX4tyIvRttH3a6TSK3xjQe7m+a40gcO4dEkMbfiy
+x9N+OaVfJUELcCGe/Vmvcca39D4LsirP9eVBbldPhMWVPP78QIbp9D26FR2
3LQ4u0Ck8kqJXeDcKUWNQ3urNbHWGxlttH22q7XVvtXYvSvUw9gBOdLFoP37
KkXbGGLbX73Pt7u495ApIrt/mYQsQIeCfX8LSdVZoWAfnRVR6bpY3ZVOUOtc
2BnYMnuGq5E941x4QB4ejcRTVxNnR0N9Kzd6VKfofJNK94rLwq3d2aLblzV2
msRvY5wfj0bsLhHr0q2jPL/dTDcybxeCn+raTOBc7gKzwuWPtDNC6SWpEjOF
aRoxi9GxxxqdaVTpU1OMzTamlhc2RMNhZVbIT7FKRZE9t3MT2XMnusFJsjYx
rihA4PA40rbTlWgr2CCKgkLd1mEtmuNX6f55oqAePvWAWVJMGw/61DBpu5uF
ZgLwWd49dKFpxbVxGZCn20QatLPJVEfLeLdNYIvGSZUm3XyARnWrnFg0skUq
vUnmneovomPzKn1ae9rHu2Z9aPt2ibi8QJIgwM8YCB+wqufUhdHjJJaHySzD
59fQzQlWCG4gqcp/nkTxGe0rFt0SodLMKzKOcQ0kcEVGg7N4R0sgA2zabLU8
SuL37CnZvaKALgKxUqVGHLEKPlLiEriHpM0eTKQilSKlNtyIiapdpchQAkb7
LInOMXl0DpfoPHea9oJapEWL7SV/0nSz25BR/xhoYalWiXrXVH6ctrm08PHd
kNry4BwazVSKxj8QlIdOfaMlnOkHsU641fzoHboCSqWB+4NST6dPc8nYOW6V
eVrvEEnGF8oyosF7SuvG+Qf1kGdqK4l3Ow3uLgwu/DY4kCeCRY53NwY7vq5L
Km5xEO9gCTPqOFMwp0e1xhfLOIuHgiSVImdg2ZZmW564Q4GsSpH3Od2VWtNp
T/ts3YGSSMiBmohq0ZWBViGxqBZN06gUTewE/Cg0c6VSNNcVoLOvROfkPDpo
3lKlmbe3oXlalaKZ3Ym62SeIIlY36BpLlW7LkwEtGKgULTEE6KCFDpUGrn5D
dNDij0rRxwE6GyQ6gSvdvItFRRSxukHLZCoNXMKG6KAlPZWiRcAAHXQhrUrR
tdYBOugqcZWelUcHjT8qDVybZhUvXrt1VkrdrJZKBy49Q3TEa9TQwneAjngJ
YeA6MxNoTPl+kVLzcEIdfJBFvALvXBk1OmTUIoRB8Yhw7Ee8/ixwPVvsHFbo
ZhDkPSoMyvGekdCc69uvjCHyV1aVJjoLi39hE/Gjl3BwR6rJffO5J+AGPRvc
I1H/z38XQOrZOh6GmFAoVZwn0t8t8WRe0ByaHnBkUyC6bauebjRmsZP1GU1P
LzrT9ro51adZWv29MdJzseJ/kjrkow==\
\>"],
 ImageRangeCache->{{{0, 441.375}, {272.438, 0}} -> {449.192, 1.60861, \
0.58763, 8.24603}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["figure 2.8", "Subsection",
 CellChangeTimes->{{3.4403688616730003`*^9, 3.440368867705*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"180", " ", 
      RowBox[{"thetab", "[", 
       RowBox[{"0", ",", 
        RowBox[{"n", "[", 
         FractionBox["l", "1000"], "]"}]}], "]"}]}], "\[Pi]"]}], ",", 
   RowBox[{"{", 
    RowBox[{"l", ",", "400", ",", "800"}], "}"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<wavelength (nm)\>\"", ",", "\"\<Transmitted angle\>\""}], 
     "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"FontSize", "\[Rule]", "14"}], "}"}]}]}], "]"}]], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
-0.928572 0.00238095 7.59495 0.283408 [
[.02381 -0.0125 -14.5625 -17 ]
[.02381 -0.0125 14.5625 0 ]
[.2619 -0.0125 -14.5625 -17 ]
[.2619 -0.0125 14.5625 0 ]
[.5 -0.0125 -14.5625 -17 ]
[.5 -0.0125 14.5625 0 ]
[.7381 -0.0125 -14.5625 -17 ]
[.7381 -0.0125 14.5625 0 ]
[.97619 -0.0125 -14.5625 -17 ]
[.97619 -0.0125 14.5625 0 ]
[ 0 0 -0.125 0 ]
[.5 -0.0125 -64.8125 -34 ]
[.5 -0.0125 64.8125 -17 ]
[-0.0125 .08465 -46.6875 -8.5 ]
[-0.0125 .08465 0 8.5 ]
[-0.0125 .22635 -29.9375 -8.5 ]
[-0.0125 .22635 0 8.5 ]
[-0.0125 .36806 -46.6875 -8.5 ]
[-0.0125 .36806 0 8.5 ]
[-0.0125 .50976 -29.9375 -8.5 ]
[-0.0125 .50976 0 8.5 ]
[ 0 0 -0.125 0 ]
[-0.01875 .30902 -63.6875 -73.1875 ]
[-0.01875 .30902 -46.6875 73.1875 ]
[ 0 .61803 .125 0 ]
[ 1 0 .125 0 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.02381 0 m
.02381 .00625 L
s
gsave
.02381 -0.0125 -75.5625 -21 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(400) show
1.000 setlinewidth
grestore
.2619 0 m
.2619 .00625 L
s
gsave
.2619 -0.0125 -75.5625 -21 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(500) show
1.000 setlinewidth
grestore
.5 0 m
.5 .00625 L
s
gsave
.5 -0.0125 -75.5625 -21 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(600) show
1.000 setlinewidth
grestore
.7381 0 m
.7381 .00625 L
s
gsave
.7381 -0.0125 -75.5625 -21 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(700) show
1.000 setlinewidth
grestore
.97619 0 m
.97619 .00625 L
s
gsave
.97619 -0.0125 -75.5625 -21 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(800) show
1.000 setlinewidth
grestore
.125 Mabswid
.07143 0 m
.07143 .00375 L
s
.11905 0 m
.11905 .00375 L
s
.16667 0 m
.16667 .00375 L
s
.21429 0 m
.21429 .00375 L
s
.30952 0 m
.30952 .00375 L
s
.35714 0 m
.35714 .00375 L
s
.40476 0 m
.40476 .00375 L
s
.45238 0 m
.45238 .00375 L
s
.54762 0 m
.54762 .00375 L
s
.59524 0 m
.59524 .00375 L
s
.64286 0 m
.64286 .00375 L
s
.69048 0 m
.69048 .00375 L
s
.78571 0 m
.78571 .00375 L
s
.83333 0 m
.83333 .00375 L
s
.88095 0 m
.88095 .00375 L
s
.92857 0 m
.92857 .00375 L
s
.25 Mabswid
0 0 m
1 0 L
s
gsave
.5 -0.0125 -125.813 -38 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(wavelength) show
%%IncludeResource: font Mathematica2Mono
%%IncludeFont: Mathematica2Mono
/Mathematica2Mono findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
155.125 16.188 moveto
(H) show
163.500 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(nm) show
%%IncludeResource: font Mathematica2Mono
%%IncludeFont: Mathematica2Mono
/Mathematica2Mono findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
180.250 16.188 moveto
(L) show
188.625 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
1.000 setlinewidth
grestore
0 .08465 m
.00625 .08465 L
s
gsave
-0.0125 .08465 -107.688 -12.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Mathematica1Mono
%%IncludeFont: Mathematica1Mono
/Mathematica1Mono findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(-) show
72.188 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(26.5) show
1.000 setlinewidth
grestore
0 .22635 m
.00625 .22635 L
s
gsave
-0.0125 .22635 -90.9375 -12.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Mathematica1Mono
%%IncludeFont: Mathematica1Mono
/Mathematica1Mono findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(-) show
72.188 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(26) show
1.000 setlinewidth
grestore
0 .36806 m
.00625 .36806 L
s
gsave
-0.0125 .36806 -107.688 -12.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Mathematica1Mono
%%IncludeFont: Mathematica1Mono
/Mathematica1Mono findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(-) show
72.188 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(25.5) show
1.000 setlinewidth
grestore
0 .50976 m
.00625 .50976 L
s
gsave
-0.0125 .50976 -90.9375 -12.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Mathematica1Mono
%%IncludeFont: Mathematica1Mono
/Mathematica1Mono findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(-) show
72.188 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(25) show
1.000 setlinewidth
grestore
.125 Mabswid
0 .11299 m
.00375 .11299 L
s
0 .14133 m
.00375 .14133 L
s
0 .16967 m
.00375 .16967 L
s
0 .19801 m
.00375 .19801 L
s
0 .25469 m
.00375 .25469 L
s
0 .28303 m
.00375 .28303 L
s
0 .31137 m
.00375 .31137 L
s
0 .33971 m
.00375 .33971 L
s
0 .3964 m
.00375 .3964 L
s
0 .42474 m
.00375 .42474 L
s
0 .45308 m
.00375 .45308 L
s
0 .48142 m
.00375 .48142 L
s
0 .05631 m
.00375 .05631 L
s
0 .02797 m
.00375 .02797 L
s
0 .5381 m
.00375 .5381 L
s
0 .56644 m
.00375 .56644 L
s
0 .59478 m
.00375 .59478 L
s
.25 Mabswid
0 0 m
0 .61803 L
s
gsave
-0.01875 .30902 -189.375 -12.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
134.188 12.5 translate
90 rotate
-134.188 -12.5 translate
0 25 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
63.000 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(Transmitted) show
163.500 16.188 moveto
(angle) show
205.375 16.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 14.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
1.000 setlinewidth
grestore
.02381 .61178 m
.02381 .61803 L
s
.2619 .61178 m
.2619 .61803 L
s
.5 .61178 m
.5 .61803 L
s
.7381 .61178 m
.7381 .61803 L
s
.97619 .61178 m
.97619 .61803 L
s
.125 Mabswid
.07143 .61428 m
.07143 .61803 L
s
.11905 .61428 m
.11905 .61803 L
s
.16667 .61428 m
.16667 .61803 L
s
.21429 .61428 m
.21429 .61803 L
s
.30952 .61428 m
.30952 .61803 L
s
.35714 .61428 m
.35714 .61803 L
s
.40476 .61428 m
.40476 .61803 L
s
.45238 .61428 m
.45238 .61803 L
s
.54762 .61428 m
.54762 .61803 L
s
.59524 .61428 m
.59524 .61803 L
s
.64286 .61428 m
.64286 .61803 L
s
.69048 .61428 m
.69048 .61803 L
s
.78571 .61428 m
.78571 .61803 L
s
.83333 .61428 m
.83333 .61803 L
s
.88095 .61428 m
.88095 .61803 L
s
.92857 .61428 m
.92857 .61803 L
s
.25 Mabswid
0 .61803 m
1 .61803 L
s
.99375 .08465 m
1 .08465 L
s
.99375 .22635 m
1 .22635 L
s
.99375 .36806 m
1 .36806 L
s
.99375 .50976 m
1 .50976 L
s
.125 Mabswid
.99625 .11299 m
1 .11299 L
s
.99625 .14133 m
1 .14133 L
s
.99625 .16967 m
1 .16967 L
s
.99625 .19801 m
1 .19801 L
s
.99625 .25469 m
1 .25469 L
s
.99625 .28303 m
1 .28303 L
s
.99625 .31137 m
1 .31137 L
s
.99625 .33971 m
1 .33971 L
s
.99625 .3964 m
1 .3964 L
s
.99625 .42474 m
1 .42474 L
s
.99625 .45308 m
1 .45308 L
s
.99625 .48142 m
1 .48142 L
s
.99625 .05631 m
1 .05631 L
s
.99625 .02797 m
1 .02797 L
s
.99625 .5381 m
1 .5381 L
s
.99625 .56644 m
1 .56644 L
s
.99625 .59478 m
1 .59478 L
s
.25 Mabswid
1 0 m
1 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .01472 m
.06244 .08303 L
.10458 .14655 L
.14415 .19786 L
.18221 .241 L
.22272 .28141 L
.26171 .31582 L
.30316 .34833 L
.34309 .3763 L
.3815 .40055 L
.42237 .42388 L
.46172 .44427 L
.49955 .46219 L
.53984 .47968 L
.57861 .49515 L
.61984 .51029 L
.65954 .52376 L
.69774 .53578 L
.73838 .54769 L
.77751 .55838 L
.81909 .56898 L
.85916 .57854 L
.89771 .58719 L
.93871 .59585 L
.97619 .60332 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{441.813, 273.063},
 ImageMargins->{{42, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXQnMXUUVvn3b///daGuBqkj/LmIFlUWsUhW6wnOpgqiguLQ2mKJItTyX
aDQgcQuRuEZCXogaNcQ9RENA9IUYtxAkIRo1mv6QEBISEo1GYtDwvO/cmXPP
3PuduTP3vv6thmKn782d+c6Zc86cmTlz7nPv/sHBK9+zf3DVgf3zFx3e/96D
Vx24dv7CQ4fTqvaSJFlyZ/p39Xwy+TxOEluM0/+N75oUk5rpfH6c/ukm49Eg
kX/6w4VkMz1rJ6PBIBll1JM1pm48XkiGg2GykH77eAb1hHk07CfJYJQ132Cb
LwyToalba+tSkrbd9S7EQopRhJBcMMR4lAwGIwnxM/qnRxT76X/DhazLsE+f
W/RlhiiI0SZ983VCtS24SAx6W1I0vVpUdibCoqfmWYequxMwZth2a9Ozdt4l
lUEGM0sid9RgSGcjMc3aKae5bOxoXO3lg56MoGXYoT4F+FVAji1gEZa1DGtp
MhFXX+DYtpN2VrIpvTZQ3XVSTXOZEaSP5eDpsx14KqiWMKK+o6OOEeyApJKO
OqeY2+CMUKeFRu261nJGg5wFo6O0Ucs8NobkqJXHOuc+FgxbdUw+84AyZPq2
Sgxy4HB5gsZRTsN+Fu0srQ7TGjJfjg6WpkKYsJxZAH0eCUgj31R9LSCzllED
y1bKqs0anHybBWpA7XrCMryDTtvLmeqyNHFDudF1DLJsJzBXA480XdnnuAX7
t1zSpCEJsLwZNnMoy13OqU/eTn42ZtexvkbAtYTAoBLMnG4jH2ZG6DgIRSFl
GzneFfJT6QqNKbbNSLMJYsmNaBS5O0jQCFpigJJbZxnCS0zZTxWdztj2s1Qy
z5mL10BAHo2TFe5ZU0xxJUkRWTGKlwJMCJPM4DLorJ21E4+Xsorh5SgVV4sV
wwsUD65tVmUp9ZSkXWUn3Z3FH6+y+ZruU0zXmTSWE8e9T6r6dhVe7k6ocb6C
GF6SoWHNONMufZkrDiaVvSSbQbJuSos5YmVZzoodAi/qaX0ubWrTYSWUVvIH
gXROUS3L9dUnMmxuaZ693TRISctdy+0GTN6QOmKB3F3QJjlvzcp+MpDNGjAI
s02mBlPexcvPewzncquXct4G1Sn7HVy9y1Q7u2S1tRekPEfk/i0GyVVoHC87
rad05hsbeBw72RYluVCYVN+ZcD13JSJHJ/y++niHcNhyyk/oC39eD3ynUUdp
A8suqxmyu59tT0UQaH+Qfm/GbrdafSW6WZuKx3ukkYkFxDTX2HIeu/xsl5I1
iHbxkx7PPVlEkdghXZVx9+1GYrDKc7ZNY7g1igc3yrMeQc5Me9J1Z07GgyMY
oRrHYtyDyG5Fm8jIwhC3i6FN/hQOui1NbkGPc4nkj5shyklY2oDk5lwP3NFj
t7xZTK2z3YjAHsF9UuEj4tRHJ4tJzIItz0Fspj55bGmGmHnlwhreHzaTqlHb
bsY2rTKVNcPeYWwB7amngewKt9sIkdUlnMN0ZlvxfGs2p1OZbVZtbNWu2uQ+
WEzElv8xC1csKt3pIIolqRmi9eXlc/Sg5AycZXNQcgbOytxzIh30N1NfBT8V
j4269hi6fOITTjGbJDIAVHZr5cc+XdVDdPZ+5oTfaYRoJeuEtMaloEYTAfTc
qNF4bEMkzcALauOzRkrHniQK50mleqdUU2F3U4wC5nH5tuM3Whh6N3SyAxHT
CmXS2pJcX9AWrAaT9vhZOMPGCdGc0ojQlM/YdHSgS7lrJkXhPDj5YwfYA3Ur
A+tOWIS+i0HjeO/bBXWdp1T6v9w3UqVUvuv47IPMjcr9cTgzGs6+Y4Mzq+G8
vQKH1pE5rffbuInHK/t7h49hWjhLNZy3xuEs03Decmxwlms4VxwbnBUazpvj
cJAbovJNi4RDBr5K631ZyBxAbpPKy+PG4Odi8XFWazhvjMNZo+G84ejjnGoe
yduKrGHPuZmkv/LicrZ8POB9Pu3x7V65cLGDHNDTNMZfrzO+nv7JTsUuoxQm
sbem6AqCM3pchvMbcHglgjxwHcZPMo/k1TDfBSsJFMXL0XKQ3r2WtF5MxozQ
KrhW4/9Snf8NkgdzDJdR/CQphZtXauwQgRM1Ji7mJsa5bLQ44lAsExNAqNSS
lrFZJAmVidfpktgkSRfyRNLvK40JoiAjmgUnaSxcEjILCsG4TNIcThLhLbsy
ycAMWvWasLOQzSFnCiU2+ueazvJAdk7W2LlYZ2fefHFzFk2IEgcm5iQ7hdkp
HR7am67TWHytziLy49PCebqG85o4nGdoOHsXCYcUcIrW+1XcxLMHeabW+9Vx
Y/BzgXF4vXGjRheAHs/S4F9ZBe9mNNlT6cJwyIvCS44Deqdq9F4RQi8XX9dM
SblgInrrNXr9ozO+xaY3r9G7aCrmWAcezZoNGg5qbHCQCNqgjsRC03+TRmU3
N+kVsXP/3w40qY0alT36WGxkpXzlWq1i/6j8spOLqiq7AsRmjd6uanpBuipA
PFujtzNwfEZf508JG5nkaRrOjjic52g426tsJ91TjUb0Dgy9D9PnabsN9Nyi
kUFz3BHprJO1mJvrgj1enAcQnquRQyopkhNOT6Y1Gqs5j2fuGRqRl3GTngst
DU9Cj4b0MhEayekakZdXjWTGefGISZvsb6Qk/4D8fqSci1Ttt56n0XupTs9G
56rm8PM1bDRwz/x4gYaDlDUF33OmRg81LtGLXzua0JMJvqHjO0uj9+I4eaKJ
fLaGvTVMdu7bFtqa/kKNyrncpLCmS/8Yqhc/lWZzA0FQiYh65kYdHPayLBMr
BxvtU536izRy51SRm8lfepFryYSF4Qi6QmQxVCIbc2h1RF4LTY/QXRWaAFSi
KVOQZk4yfzN18sQsMkiaiAUqkUcAK7JdWPI4TxZJS0lzUCw2gusGNNDlX32u
7WuvImePGmffNxuKNWK3KHaHBE4lWk4Mm3YndjSjsEikyPypREto5Aq3WfIV
FpnNo7BoF0Dl6dwk8vBkN98R0VqkXbQdohJtoMD5wH15zJXYaZKdcgQXxSHR
TjCXU5UC8xy8LTwHgiO36K60CTtlj+EqcKO0nbBoLopro80DlejcEKnATaZT
RIQXRW4v0FhEJymPUtFQ0dGOSnQYjNQQctDoSEolOsR69hvoiEwlOlRH7olQ
KIFKFHyowia3jYIvVG7kJiX3FX9e8FPBfMsX163u0s+hEUw1uQfF1CLVgKJ4
VM43x0YBTyrXN8dGwWIqUXjZY+IoyE0lCotHHo/QfQCV6AahEAmW3szaidyr
IZmgewwq0c2HZyz5wsMxH7jBQnc2VKJbntohXXTjReU6bhIwrU3ER5Wdn0oN
2YlVC8kOXVlSiS45PfZ7CQuhTm90x08lygqItH6U/0AlypiYgvWjDBcqUU7M
FKwfZfhQiXKCphCoQplJVKJcpgB6VTPicteyIqmEzgOUC0clyp4rXQijDEEq
l3ETz4WwvzemncHhn7BC5yeUU0kl2iaDGIpNWLHasq8uokNkno0aRmHW2bhK
e/CEMfZpA0Kb6kByMtJfQEB5x1SikzWImvSzCIk7Oj36/w6NnCfH297O5D9t
YUhlITCkqQOupiITyK/UmGzF4bxTw1kSMNiC/ZtBb+OBHQQYTxZnJbqkRO+/
IVUddGU4fYeLUuf/U01K/tyPs5aYMCEay7tB3b91UhxCSc+GQ5mmmBl2/jss
+cUaono1S7CSlnsO7VHZzi1dkeA1oO5fOine+/M1J4Y9xHx7wJDBvw/U/VOH
0BNju6Ww6lD+nI941Y/fOaudGXuYR+thdb2xCCWcKn+bCeS1Ti8bdgDq/q6z
3SQR1gYKZUbpClCXxzffz5L8G9cZR4QyWmdiCBTG90FQ91ddDiirtSfHbCxq
BahD5D/EI/UQVXNX9R+nylQens/6YVD3WIgV+wOiYmUITWX9CEskgL4S7WxC
/6Og7lGdk3nzpRDUbEtqhfkiz0ezge3Qnu1jLCkPf8i7XgfqHomDuJ5pR3a8
gTs+rHeskUbzCVD3kE4hJoOGuP0Uf3qQPxVyWELSYwrcfBrUHanmuka2zGeY
60r8+PSYGxn8L1VKrZcP81lQ9yedVGhs8ibm2wOGrPhz3PEPVdKst6X9Aqj7
XQip+DyXL/JYAgjUSWz5MhN4IE5Y53PHm0HH3+J5GJiwUgC7mcHuDxFCfNbK
LUzgvuZ2O2Swe+Ps9lbu+Juqieo/ORZ6fpVxfxUgvtIZslv4iZXMxlDax9eZ
0C/qTLyOqCMiiMY3mMbPAwZTOkR2EzfXRB/Mt5jQPVXamHPiIvTXWW2ybRgi
chsTGVWPRvoPFM7dymDf4U936/PQH3f+Lnf8SZwVf5873tl8Lv2Qwe5oDnb7
pKSqH+lg8qBugwK9QAI/Zm5vDyNQigRU+Kk7eAQ/aC6Ou5jb7zUHu5s5+3Zz
sBFzdluc7d3DXHyzas56Ys+5B6NPuVdzplB8YPmXDPS1qsleK6b8ax79rfXx
Pfvhe5n/YTV+jajxfYx/S5X2osLE97NcvhJnTg9wxy/pHW0GX5PwFjpA/p6J
f14nfpaRRr2AFYp5/JHJ3qSTbZLzhwJOaPx/ZkZu1BmxKbRVAacZBjvCnz7J
n8y8tum/VeEjxO1DDIbOuobbc63thoeKEK2HeZ7cEGIZwUEgdF/3CI8LxSUK
tCICPojWo0wLhXkMrbPNl5ohHXTf9RjTRYE2j3+gqCD9XzZ8IK7jP5jitXEd
H2eKh+I6PsEUr67oSFJ7kpvn90OeK2Aql3AfdCPm4W2cDcr2PlCjdz6/99Xo
vZR7R/52D5UrWCeRvyRD5WqmHflbJ1SuZdqeX1dQe6/j3pHvsVNJ6Vd0DvG8
cuxPuqN9r+dtyNwgqXoL85sHH6qs8gzu43k7S+19JmvH816R2vscpu15+0Xt
vZV7e96kUHtv497odbWq3uezbj25tWrvXdzbk82p9u5zb0/yoNp7L/f2pJwV
7OpS7rMm2K4uY/miH2Wq4vIKpuhJL1F772Or9GSLqL2P0e/foSQ5lNwWWvfU
L0D+3/WtUul48kD+eis1ifgN2GTJfwESBLKe\
\>"],
 ImageRangeCache->{{{0, 440.813}, {272.063, 0}} -> {308.719, -27.2121, \
1.15257, 0.00968292}}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\

sf14 glass\
\>", "Section"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"b1", "=", "1.69182538"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"b2", "=", "0.285919934"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"b3", "=", " ", "1.12595145"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"c1", "=", " ", "0.0133151542"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"c2", "=", " ", "0.0612647445"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"c3", "=", " ", "118.405242"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"n", "[", "lambda_", "]"}], ":=", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"1", "+", 
       RowBox[{"b1", " ", 
        RowBox[{
         RowBox[{"lambda", "^", "2"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"lambda", "^", "2"}], "-", "c1"}], ")"}]}]}], "+", 
       RowBox[{"b2", " ", 
        RowBox[{
         RowBox[{"lambda", "^", "2"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"lambda", "^", "2"}], "-", "c2"}], ")"}]}]}], "+", 
       RowBox[{"b3", " ", 
        RowBox[{
         RowBox[{"lambda", "^", "2"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"lambda", "^", "2"}], "-", "c3"}], ")"}]}]}]}], "]"}]}], 
    ";"}]}]}]], "Input"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{943, 557},
WindowMargins->{{Automatic, 23}, {Automatic, 26}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 27, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 122, 4, 137, "Title"],
Cell[715, 29, 146, 5, 105, "Subtitle"],
Cell[864, 36, 104, 4, 47, "Text"],
Cell[971, 42, 1524, 46, 192, "Input"],
Cell[CellGroupData[{
Cell[2520, 92, 92, 1, 36, "Subsection"],
Cell[CellGroupData[{
Cell[2637, 97, 1931, 61, 125, "Input"],
Cell[4571, 160, 23165, 993, 280, 17636, 899, "GraphicsData", "PostScript", \
"Graphics"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27785, 1159, 98, 1, 71, "Section"],
Cell[27886, 1162, 1704, 56, 172, "Input"],
Cell[CellGroupData[{
Cell[29615, 1222, 559, 15, 72, "Input"],
Cell[30177, 1239, 26629, 1128, 282, 20736, 1028, "GraphicsData", \
"PostScript", "Graphics"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56843, 2372, 97, 1, 36, "Subsection"],
Cell[CellGroupData[{
Cell[56965, 2377, 706, 20, 81, "Input"],
Cell[57674, 2399, 22153, 911, 282, 16801, 820, "GraphicsData", "PostScript", \
"Graphics"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[79888, 3317, 38, 3, 97, "Section"],
Cell[79929, 3322, 1274, 38, 192, "Input"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)