(* 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[     14842,        340]
NotebookOptionsPosition[     14361,        319]
NotebookOutlinePosition[     14705,        334]
CellTagsIndexPosition[     14662,        331]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Maximum diffraction efficiency as a function of angular miss match for a \
volume hologram
\
\>", "Title",
 CellChangeTimes->{{3.440930658059*^9, 3.4409306911470003`*^9}}],

Cell["\<\
From Optical Imaging and Spectroscopy (Wiley - OSA 2009)
By David J. Brady
www.opticalimaging.org
Figure 4.23\
\>", "Subtitle",
 CellChangeTimes->{{3.4409307282320004`*^9, 3.440930761152*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"K", "=", 
   RowBox[{"2", " ", 
    RowBox[{"Sin", "[", 
     RowBox[{"Pi", "/", "6"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"de", "=", 
   RowBox[{"10", "^", 
    RowBox[{"(", 
     RowBox[{"-", "2"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"kr", "[", "theta_", "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", "theta", "]"}], ",", 
     RowBox[{"Cos", "[", "theta", "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ks", "[", "theta_", "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"kr", "[", "theta", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "-", "K"}], ",", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"1", "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"kr", "[", "theta", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], "-", "K"}], ")"}], "^", "2"}]}], 
      "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dkz", "[", "theta_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"kr", "[", "theta", "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}], "-", 
    RowBox[{
     RowBox[{"ks", "[", "theta", "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gamma", "[", "theta_", "]"}], ":=", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"dkz", "[", "theta", "]"}], "^", "2"}], "+", 
      RowBox[{
       RowBox[{"de", "^", "2"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"kr", "[", "theta", "]"}], "[", 
          RowBox[{"[", "2", "]"}], "]"}], " ", 
         RowBox[{
          RowBox[{"ks", "[", "theta", "]"}], "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}]}], "]"}], "/", "2"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"eta", "[", "theta_", "]"}], ":=", 
   RowBox[{"N", "[", 
    RowBox[{
     RowBox[{"de", "^", "2"}], "/", 
     RowBox[{"(", 
      RowBox[{"4", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"ks", "[", "theta", "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], "^", "2"}], " ", 
       RowBox[{
        RowBox[{"gamma", "[", "theta", "]"}], "^", "2"}]}], ")"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"eta", "[", "theta", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"theta", ",", 
     FractionBox[
      RowBox[{"3", " ", "\[Pi]"}], "24"], ",", 
     FractionBox[
      RowBox[{"5", " ", "\[Pi]"}], "24"]}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Radians", ",", 
      RowBox[{"Diffraction", " ", "Efficiency"}]}], "}"}]}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k4FW8bB3AhSqmUUkpkqShKVLZ8o5QQCpVUlixZWixJSqGFFCFriOyR
nfITIksoZM12zpk5RyLLkSUl8s7711yfa2aeZ+ae+76fZ7ZYXT1pw8nBwcFa
xMHx/+P5Jo6zf7d0w21folDddR8sN5EX05PoxlPNV2dJTx+U9loOxEp2w4Q5
PDt31webhj64qG/rRpXV7BnVAB/0cD147LOzGxqWpoXtL3xwRnlpGe/+bujM
fVS8VecD42QBMUG9bnSf2LDwUsQXOp7iAzvdu8EZ+7ktp9kXqTq8Dq4t3agP
7lrC9rgP+qaTHllbe1D8spHRf+AhxNM+B6h69uCsKs8yVyV/dJjwhdPbe7Bq
aWAKT34ArHmypa9L98LSbDrpn0UgrHoF34g96IWH9Bn739bBuHwp84gYoxfh
XGXel61CkX5WaM01ohccBn2XHjuEol/vHuM92QtaWF5btksozsmbeZj398JT
zEmL514odGb5Ml4M9WLJBF3qd1Iotj5x4BeZ6oV2uYvRyEAoiBzp9g1L+zAr
m3de1fkZjGfSLNco9OFc04G23KgwiP+a8Lmr2AcB+WD3HUlhYE8dSBze24cP
Fd+0srPCEDDRxqxS6kOhzaOAzx/C8H504aKbeh80mpNinEbDINN/2rbjWB84
vnv6aB4Ox8IXXsdIiz6oJhHk/d/hyMiwc9sY1AefH6TTI69I3NXos7r6tA8R
fo3Sdx9FwrjL8ERVcB8at5oq3AmPxPxiFTnHZ334FVp7MiorEoaWywdLovqQ
0T3ceoAeiV9CeWZnk/pw2NrR55RGFDQfzGpGF/dhE3dLMM/KaPSaBwoIsajr
W82qmxueI7hotaF1fx9WrBaVl+h+jsPLooLyvvVhzNLiiO/358h+k7hMb5B6
n/Ka2IvcMfDlL17sM9qHS31Z5wvVYyDzjvnnx0wf7JhnA6OLYuC5TolZvpyG
wDLmwZbXsdjlVCa2fAUNX/s3uxeUxqK/UtPcdCUNrjucliZ9joX+5eN9kwI0
7LP49SBjJBbi1Vad24VoaBjy9DonG4cG58CG0C00VJ62J03z4rChkZlvu4+G
TWIuNJnqF7DYdVTry34aRiYiss98fYHUkMyvyso0nO1USIz68QKKp9zmlqvR
8ORGp66BQDz0GYuPFGjQwBX3SPa5eTzu/9zevaBHQ9Wb43UlC/EYX3t1Ieoi
DRWT65c5pCVgv0dbCKcNDTNOWg9U8hNwp2e/pJMtDf7b2AlryxKwLJ7jGOxp
uDksMTXcmoCt20NDv12hIY5JDxVeSICZSpHUHk8aTLa7Hnpi+hK1F/7qfgqm
YX+mzU8ZoUQImj56vSmUhnqnIVq0eCKsjIT4rzyjYed4R+EauUT8O6rQtCqC
BkdNYdPtWonYL+9oeCqGBtnT1pxfXRORztVrTKbQEH7BwvRUWyIC0kvOz5TQ
cG5824BWTBK6ErXLtUtp+CKV4y+XnoStcZ2bn5fRUFJ09q9EURI+hEww1Cpo
cLazDdvbnIS/njJWvjVUfGI0Xaa5kuF0/Lkt/xca3vwpEJu5mgyDiZtXJb7R
sL7mw2XfkymQ+zMgETJAAxm5VfeiVQpWcBh3/ftOQ0rkjwkTlxQ08ctp9Pyg
YaXCEJ9zaAr0pZmrQ8ZpCEKWtk9bCo5b6Lz595eGO7UR81tMU6HbJDzfvZqO
79yyG3e5pkGmwy/vqCAd+9pUVno/SANf35RN0Vo6Cg6uuT0QmUblSVNT8Ho6
Xtn+PDxVmgadxfcSjm6mg3/7gKbQknQcUxs+VCRNx0dtWc3oxHQczXgXEHyQ
jrTKdL6goVdYck356YwGHakxTmFX/71C3d63zy4cosNdsvy4w5oMaFfmx+48
QsfyZQtjmQcod73KrtOlQz2j+Zz1M8o8Ua0cp6nzCluuNx3KhI6Vm7DzZTp6
xI6El/33GnzbJzZ3XaFjQ5F79vrW12gYvSqBa3S8droVHfrjNXRuOu7kd6Xj
8Lb+PNbGLOgEW6m/8qAjeNYkjsM7C7rlhlbkPTp+E1o6xvrZ0BOWzTjxnI5v
Q5uGPThzIejRfjshhg7TiEs1LStz0dtxy4AdS8dq7ridqiK5cAhpmHoST8eV
j+A/qJQL/yWXUJdMh7/MyzVrr+ai+ldiu3oOFc9c40/cRC7U2tYv7KimI4n3
ecin5jxwy1e0eNZQ77c5WO8KIw+fguyS62vpoIeHm0ux83BW580xu3o6JGx5
17esyIdHpVFYYhMdvDy1r8QN8lGYEyS9oZuOG1d15xvb8iH7hNuYZ4x63t/F
9JNjBXj4K8DTmU3HyO6Y/Wc5C0FYCLzsG6eDuXeT9t11hQjdu3ksf5KO4u/2
1yVQiBn6fn/zP3S8byqx7gkpRKW8Y2kxNwNXr3ff2n+gCCZfWyQdNzLwPfj7
YbesN8jWOKPbuYmBNknL869r3mDJa7qzxmYGLDkb3Pjob1DiPVwutIUBA5+/
7cor30JUZrFp9VYG2q8cm7rs+hZDt5UCRfYwIOB9fd7lUDG8xOOnm7UZSGGN
VZpwl4AuafBDXIeBL3MpiTOiJVDftkC/rsuARaTf2WrVEnDsNK/bqM8Av+S+
FIZrCXz3isbYGTGQH1+xfdtACfy14w8unGcgZr93jnbbO4ReiX8s58pA0Rev
5Z6tZZi8ZuDt40bZb0Z351QZjF0X3NqvM7Dh3tGStevKsdbD/IKnBzW/2Obx
p2fLEeUjKl/rxUCFYV2k3EA54sLiO8/7M1DvWpIB7gqkl8RvCYxjYC7C9YaP
eiWe18s5zL1gwEg0+haPSSUCu8ryHRMYCFGYfF/kWAmXX72HdJIYWLBdFB0W
XQnVPetteV8xoHSg6c2FmUo0vQrO8ClkYE9cwXOfdx9QUSw6OV7EwECGZVVv
+wcUfMxWtXjLwKf7Z0Ztxz4g6tvnz+olDLimComuFq+C1Zal7L/vGeDN9N9f
/7gK01E+Cu6fGIibdvTbbl+NwbRVt799ZsChUHBZ44Nq9LyJrzZuYqDwkOWz
jMRqlLeXmSi0MDAf7dm/mlYN/1WzN8Y7GQjVMD2YblyDTf4upQ5MBspXPP98
yaAWmjcuapn/YcBH6v3BvBt1WKvFRf84y0BgJ9n5O6YOg6uT3HfPMfCB38fh
cUUdArOZaYsWGJg44OsexldPrTO7F5/kJFBWmcetm1iPfTK5dlO8BCSD5hNn
iAaICnAUpi8hEBWpxtDh+4Qlvw04zi8lMLDxQsG0wif01rCjavgIHLx27JmJ
/yd4W+5qiOAncG7L3rJTez/jU1T2TuU1BKZfNLnLvGxE4d1/HqOUf5bmTlp9
acQLW/2al4IEijyONy3iaMI1xbHzfOsIaEsFxbtbNGHdF9mnvesJ0H+Z6Zlu
bYYFb9ZPr80EXjV/q7tx8Qumr2e++SBN4Pnma8xE+VYwt6/64SBD4ITPVHGs
fiu+9LqJrNlBYDDOfmmbYysyNNTvX9xJ4Eyzm+JMaisu8Lec4N5FYO/UqdSd
Ym2oTf41oqVIwG/f+dW1m9tRcNpMbIxyeKS5cx3akcBXYRSxl0DpTcXVqyzb
4XntUcnAPgJxan8snZPbIae2yd9PmUByasiJJ3IdiGjTkKhXJzD2PuRKimEn
7j1MPeUMAgoslcMa7p24prwsYMNBAubcWmk7YjuhE98+bq9BwJDD8PLYYCf+
OdiV8x2mxvO/YaL28CtsOQNN9Y4RmBUX2HPrSxe1fnY9bTYiYNuy7Kd1Wi+c
HHaOPjAm4M7MITj7epGY5K2jZkJANERYTUCA2hetk1786hQBr4RbWj63+zAw
e9PT15T63pz7Zt+doSGieqPNXnMCHKWFzZNU35g6ba4S40Cgi236ujGQhExI
QeQJRwJ76uInrHJIWDTwTvM6ERiWX2sk30Lis1pujttlAvs2fv5zYy0TSVsW
SelfIzB5rETqZQITJ4cTVy5yJ9CwsCJ2oIKF3DsD/bY+BNL/sy/ZIDGAH/cM
pAV8CRziR0ft0QFIPCq+/I6y3YfolkdOA4h4FvBr5X0CywasNXXfDMArXW7J
fw8J8Cy5xR+k8x06re47lj0h8OmaiNFNt0Hc/8q4WkRZ7kxEZ270IMr6tAvN
Awm8mNUtYJQPYvd34QOFQQSU/sksE146BKG5cv3zIQQOi7+1LI0dQr8Ur0tO
BDW/qfqEXfkPbN5x7Y1pJAGafpgoQf7A6d3ds1xRBALq15hKLh5Gg0rmvTPR
BJbWFkdx6w4jz8AgfFEsFU9f69+f2oZx52ZksdFLArrDq8ViO0dQfIdjfp6y
ptEGeaPpEfy8Z6+Rnkigu+Al+XLNKKyDVBvmkgjMkMFPfuuPgupdvSmpBJ7q
uhzbWTGK++naYoZpBI4O28Vp9I6iLCvPepZy9NS7lLbpUewuvjeq/4pA60Hy
jYX0GIQaty3MZFL5sOHk9+pHY6iQjx5+8ZrA3YeB3tPxY3CI4OvSyiJQ1b4o
52nRGMrNR3OfZROokXR5O00fw6XqC3EqOQQmygxlSifGICD95RFJ2SepzYZc
zIb1RL7VrjyqP+SuElSXYWPFaUmDTsqFgfcTrqmyUfwuXNUrn8Dn2pcyv3XZ
WPbAQ/BTAYHG9ATleQc2CoeGOFwKCazI3OjifpONC/pmo+uLCIxHkavU/NjI
F1KvtX1D5Zd2T2dyAhvnbufk878lEJhuZXX4NRs8pFh8IeX+ENHN0m/ZyNUK
fWxWTODfqcceJyrZMM3g8uD8j4Cygtafdw1scK68bv2K8qadERp2bWy8dh0w
NCyh+kP86PKTvWyc6jp9YIYyzy4T+VtMNjgO1Eu/eEflb1lvPDnIRsZLlXVa
pVT8FGes74+xYczzmnOEct2XvnSrSTZVvyLs0DLqe1U059yaYSOtOahXuZyq
hw6bnqZZNgwVOeoIyvukPqSYzbMxG+Vc6PeeGs+6JnPLAhvJ88wEuQoCjr+i
T6ziGIe+lXFgB2V2wuCunZR/19bcvF1J9Wd+59Y66vrEHfttJT4QUL0/v8Tl
Hxt6weknGyj77nCVM55jY3pqA5yrCCzwtgZc/cPGC9PHO9ZXU/muwn2veppN
/UfOCb2n3L2pJMroJxsT4le4bWsIrP+r6iAywkasH2N8eS11/135fPEBNo6M
GNIKKNM5zY9aM9gYN/xQf/YjATP6mU2sr2w8L1J4s6iOQORiWSQ0s3FIOCUx
nTJ9JVd3bC0bI3fWPTWoJ5D0N1+2p5SNCJbfrV+Ud4+ejDHNZ+PHawfjw5+o
+hzkLZGMYSNMoO/gMOVWZ65U1yA21N2Py4Z+JrD4TJzoMh82QrCbh2gkoPjc
RmmjNRsqyS8nHjYRuL3mQVOkMRv9S9YwZJsJ5BU20a0Ps6HUOv321hcCa6cX
HfmzhQ3mPrtk8RZq/aoLVqlZycbjmK7gesqr1qxh/ZgbA936nb1QG4GQpGnj
4x1jeDDjvbGgg8Dvq3qXi++MwYNJyl/qpPKjZZvNCxuqnho1tUW+Uv3RSOds
j+4YDJO4r/t1UevdnRs6F9eNQdjAv8msl1oP7Nd7SSWPIjv1qQ83SeD7t6ac
HykjSAgZj/yPcuCQR9+S+yN4dvtE9hUm1T/ovLxlliPwOLmmt4tF9Wfh5Ykz
G0dw6F+EYtYA1c9plj+3PhlGl8mL7yYjBFx/9wnRLvxAw8GFeb5Rql+8c/qw
V+kHynZYCFZQ/qN4n9NK4AcSF4lryLCpen0SvfZQ1RCcslKe//tJ4KOM1KIH
UkNYtDjreNoMgdh4pdT3A98hU/iu4DcnCePq478srnyDmKN83ksuEt9Gn0hr
6nzDOvG0bB1uEoWTEnSNrd/AFRz6KnYxiQr/do+X9H70OdrHH1xCIiNqeeeC
YT+eSgg99ucn0XdnVyHfARamQl2s1q8nce668cOl+0n8ODZoXkm5NqDe5hh1
JDgunHfYQGLy07fud3+oPnLl2JlSYRLbDy+WUqbqLlVHTN9ChAR33uK8qCNU
XXM2KaeLk1gf2i87Tv0HlDlLCyjJklh2QLOo8F4v5rKDlNiUJw1Tmhv0e6E2
MmmeKkeCJr5k6qRwL0psy7MFd5NY0bx58dv8HrwxM9L7uYeE5WjoprLBbqrf
ePllKJF4sZV1Vda+C2xfZralMvU8Qs5HhVS7IFdxtHO9CgnOq4nXLvF34bXK
aik/VRKyi+PeHyj4ile70j5cVCfhROc6Gs/1FYkbWuY3HSaR9axE+dmbDpCn
9km1U57NDTWMDOqAWFiM3mMtEqlOvA9/2XYgfoVtzJ8jJNqldihXre9ALNdf
pc5jJDQ/Th7z9m5H+Kik21MDEgpLNYUY5m3wr/T4sciMhLL/P82lpi3Yf2Hg
vyLKq8fd3j5WbaH2B0aP7M+R0JZTyjDY3AItxV3bW86TuLzrbEh0/xdwpn2z
SbAg4Wt994yk2xfcfnKSVLclsej74wrxA83YIV2RO0GZ97+wlXVLm9FTI+ud
akdi3vHEa1pnE5QXloiusCdxcs/DmyYuTfjl/P4czZEa7/PqSNPsRlw7vbPr
ljOJDdayvo3KnyE6FZ22y4WElvX7ktnln9EUzHuDRXlOrmSxP/EJsg3Mtbpu
JK6f8RR6T+1Hf6hFGwnfoObXngt4QGuAtThPc/FtEqs8S0WzI+thOsqomfYj
EeCztzVf+yOWn7K6HedP7XN2bPR6sv0jysv792g9IiGfZWGVtOQjJIOH4sMC
qPgN8mU+rK/F+J7JmwrUvujmpJe0oH4t/D145JxDSeq/Pq2p07IGxVyyESOx
VHyfHL8dk1sFR6ccvbA4EnYWfs2SkVXY3CHPpfaChH6JvWKfVxXup+679jie
xJY/rtFtulUwPHZQRyaRxMbfXu3dQx8wGGT0zy6NxKmns6fZsh+wXtjTlpVH
wnWyxquurQKCS0eOROeTUGHdfZpWVoFVv89vMyggYXP0WlVOWgWWdGoMlhSS
CD0WIahyuwIzIUsdQt+SKFPvktq5rQKdS6Mva5SRUJy8OHxlyXs8+/PWLb6O
xM8h4aM6eaUIGpQ2MaknsSTwuSVnUCkCvsbsXdZAwuUx0/i3Qyl8i+7+cv9E
Qii2MjFGqhQuzkc99JtIfNTOVMiLewfDoc5b820kguSHj6RFlWBF97SvGYPE
/o6CIzffFGNF2G2dxQSJAauTVxgxxeA34FqdQ3kpp1XWFZ9iLK9Z9ZKTSaJ1
+zs53uPF4Mvb8f5VP4l8iZwQoYG34H1k+XdmiMQbse0fXUTfgkO50TVsioTE
31emIllF4JgyUlWfJvHIdHhoXWQRFrJ7OAcpm6TKvd/tU4R/koMhqjMkLojF
Hqk2KcLcKq5c5h8qvrItR605ivBnUGlk9wIVj6Trb03MCjERlWzduJSJtkdD
2fe3FsCqQKHdlY8JG437gTcEC9Da+OGQ8DImjsUK8N/jLEAeJylut5yJlAYh
TRY9H9ecREiOlUzwr9CkVUXlYxQR5xUFmTgvIl1DrsrH4IDfqZjNTGg+K/rq
LZCHM4uEajVEmVB7c8hGhTMPHzem7h2kTD4r/cQ7mYtUw2rBvVuYOLda6QWt
PRc2JRxtTRJMZLk+q3KOzgUz8KYBpzQT4xZ6SmJbc0FTdNS2V2BiXXq7q190
NiI6hkgRRSa+zLZOa3plQ9/90q1WysEZ1z0kLbNR8dYmW3UfE0It8+5npLOR
qGIhuEKZiYwNgype77Jge9CEyFen7peuTPMdeI0xXXjMHWNi99WhuzSTTKSO
lAnk6TBR/ZEIZh7IhHmgWqaNLhNeOSxDnq2Z+NKkTG/SY4LYIrT61a8M5J9Q
PPzSgIl9t+c3norOgPtp6VVHTJhg8D/IlOh/hQWrNelPLZgYSq/8pxOUjtLm
1O1KlkycZb8Ulr6VDg81lVcEZej4Lmy6lI7xtZYZ8heZ8C1enaSlmQ6yLvt1
mw0TW0/TOyJm0lAlp5Mn5MhEu+jbjyK2afCb9S6Jv85EgyhXN/tEKg7bCapq
uzOxQko3Qk8jFRztae/GKYddVfJ8tzsVHllNpRoeTDRO5uk3r0yFvcWm9yxP
6nto/WfxuSkFurVvq7Z5M6EzpHmZxzAFK0PHPucEUPnRJd/afiEZgg+cb9g+
ZsJwk9nylQbJEPaY2iLyhIma0GM7zJAMyQuz7gGBTEzrX8raLpYMJRmeLTbB
TKhMfBoIZybB8oPIdeEIJmaTXQcTHZJQMKEn8uAlE25bdgjSHyai+FvzR9VE
Kr9eO/VL3kxEeddJlwnKTuKjcZ6OiagrP/PRPJkJvfGBGycNE9EXYO2sksZE
T6PLnTzhRCyWuF3Dfs1EK9Np0cb8lzhtlHn5bDETh7p41AWHE2Cx+tAC939M
rLYb/dXHSMCllp7gHMqPT7Kf57YnwNOAr5D7HROde8OdPMoT8ELXfja7jAnB
/8yK/EMT0H9omx9XFTV/3i7hBLUEuCgmJbxuZEKZlvY0YXc8AtfGtP1jUvHf
yL1HuzMWPIqq/KksJgrKcry+VcfizsneI8f7mTBJVFUILYjFtacbS2K+MXHv
mFLYhpBYGC+NTVAapJ6v+sABul4sNs3HXnYZZUL8UPyfXR9jkNn/gndghgnX
d6fveNc+R31BomrjchZop3qabo5EIeDMnnhffhYgaHT1EC0KevOVnEorWFAf
elEi3BSFL0fI+sSVLCq/tgpM5EShq1v0jMdqFg5HnV7QcIvCwEKsm8R66n5l
/32mC5Hg1IvMuinBwqIlfVpzmyOh1v9YdKsKC2oNmtsFfMLBabLboZnyoY5K
r+Tr4fhY017oocqCgllQ9UGHcJxME9H5pMbChymlRWFG4bjkkON2DSyUrrq3
P3lrOMLGW+tLDrNwXW1J1cWmMIzMbXAzMGBBQKJqUlwyDHFr0+s8rFnIPF7i
SQyE4vVytQO7bVg4N+drmdwXihKuL3nfKe92LXG91hqKzp8zz0/ZsRDgL/Jb
rDwUq5qOXlZ0YKE6sCSUGR6K+w+/C4xfZaFA+0wVcSQUDjNbzexusTBnNdQT
nB2Cfd0poyahLEx6fzq0+VkwCndp8vE9Y0HnLXPz14BgKDykby2n7E0KrInw
DcZuBSGLreEsyGXx7drqEgyZQP/WX5EskPS9IUEngrFZw/FtZBwLLpotk54C
weB5tdunO52FNKk7Xvt2PEWHxzvB8+9ZYNakT2SZBcJqA/eiC0MsHDwsc3CD
eQC26cnZD63rx1FiaapinB967j6OuKLRjyNcHGYmlx7g2VOOWhHHfmQ+4Dwg
6ncP9+RPO5+O6keH7gb5uxU+sGwnyIAP/ehVDgnSPe6NG0v1mrTH+1E53ef4
vdMLhofEjuhT9jx0fW8U5e1eU2VGlCNvHuY4RrlnPDbrAmWRB37RGR1eUOsa
feJGudA+vudyuxc40p7qJlC2/7YqcqrFCwGH2+pmKMcHN/3mbPSC1Z20g/OU
ffL2DxV89oJq8a1izp/9OPCzs8ea8sgOyXR+ypkFbytrP3nBYM11PwnKW8IX
vQho8IIgc90RA8qDOnnBq+uo6zcOlxlT5ra9GVb10Qs1Ju/3nqWsq3oj2o2y
e72dlA3lR3/XpHXWeqErt5j7FuVx8ZYvz2u8kPvjyW1vyicsjtB1KT+StJx6
QLlC6ufIXLUXVKKW9gdTzt31nd+c8ppWmlkE5Rd2e8RWUR5Zlt8W8//xVxQo
VFZ5oVrroe5Lyuqb7bVdKMfdPVuVSvl0sPEFCcr/A3NORZo=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  AxesOrigin->{0.4, 0},
  Frame->True,
  FrameLabel->{
    FormBox["Radians", TraditionalForm], 
    FormBox[
     RowBox[{"Diffraction", " ", "Efficiency"}], TraditionalForm]},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.4409306427130003`*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{830, 647},
WindowMargins->{{Automatic, -948}, {Automatic, -6}},
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, 181, 5, 245, "Title"],
Cell[774, 30, 202, 6, 133, "Subtitle"],
Cell[979, 38, 2440, 80, 172, "Input"],
Cell[CellGroupData[{
Cell[3444, 122, 586, 16, 72, "Input"],
Cell[4033, 140, 10300, 175, 250, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)