(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    109382,       6454]
NotebookOptionsPosition[    107884,       6403]
NotebookOutlinePosition[    108341,       6421]
CellTagsIndexPosition[    108298,       6418]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Hyperfocal distance
\
\>", "Title",
 CellChangeTimes->{{3.448223030943*^9, 3.448223033837*^9}, {3.448223574467*^9,
   3.448223591288*^9}, {3.448229261191*^9, 3.4482292842469997`*^9}, {
  3.4482844577019997`*^9, 3.448284460659*^9}}],

Cell["\<\
From Optical Imaging and Spectroscopy (Wiley - OSA 2009)
By David J. Brady
www.opticalimaging.org
Figure 10.1\
\>", "Subtitle",
 CellChangeTimes->{{3.4409307282320004`*^9, 3.440930761152*^9}, {
   3.440930913613*^9, 3.440930913829*^9}, {3.441217577128286*^9, 
   3.441217577638286*^9}, {3.441217735493286*^9, 3.441217744740286*^9}, {
   3.441220815238286*^9, 3.441220815693286*^9}, 3.4412208544512863`*^9, {
   3.441221706495286*^9, 3.4412217089142857`*^9}, {3.4423098590344*^9, 
   3.4423098760734*^9}, {3.4423113274954*^9, 3.4423113292064*^9}, {
   3.446195649849*^9, 3.446195656665*^9}, {3.446195702189*^9, 
   3.446195705157*^9}, {3.4461957827200003`*^9, 3.4461957952320004`*^9}, {
   3.446195977118*^9, 3.446195977317*^9}, 3.446196015252*^9, {
   3.446196169539*^9, 3.4461962126879997`*^9}, {3.448222809815*^9, 
   3.448222818554*^9}, {3.44822307*^9, 3.448223073166*^9}, {3.448223615737*^9,
    3.4482236175889997`*^9}, {3.4482292924560003`*^9, 
   3.4482292926470003`*^9}, {3.4482844629119997`*^9, 3.448284463271*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"Needs", "[", "\"\<Rayica`Rayica`\>\"", "]"}], ";"}],
  FormatType->StandardForm,
  FontFamily->"Consolas",
  FontSize->10.5]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"F", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Np", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CoC", "=", "0.10"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"zH", "=", 
   RowBox[{
    RowBox[{"F", "^", "2"}], "/", 
    RowBox[{"(", 
     RowBox[{"CoC", " ", "Np"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"zi", "=", 
   RowBox[{"zH", " ", 
    RowBox[{"F", "/", 
     RowBox[{"(", 
      RowBox[{"zH", "-", "F"}], ")"}]}]}]}], ";"}]}], "Input"],

Cell[CellGroupData[{

Cell[BoxData["zH"], "Input"],

Cell[BoxData["5.`"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"light", "=", 
   RowBox[{"GridOfRays", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"F", "/", "Np"}], ",", 
       RowBox[{"F", "/", "Np"}]}], "}"}], ",", 
     RowBox[{"NumberOfRays", "\[Rule]", "5"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"biglens", "=", 
   RowBox[{"Move", "[", 
    RowBox[{
     RowBox[{"PlanoConvexLens", "[", 
      RowBox[{"F", ",", 
       RowBox[{"F", "/", "Np"}], ",", ".2", ",", "\"\<Big Lens\>\""}], "]"}], 
     ",", "zH"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"screen", "=", 
   RowBox[{"Move", "[", 
    RowBox[{
     RowBox[{"Screen", "[", 
      RowBox[{"F", "/", "Np"}], "]"}], ",", 
     RowBox[{"zi", "+", "zH"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"sys", "=", 
   RowBox[{"AnalyzeSystem", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"light", ",", "biglens", ",", "screen"}], "}"}], ",", 
     RowBox[{"PlotType", "\[Rule]", "Full3D"}], ",", 
     RowBox[{"ColorView", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"RayLength", ",", "GrayLevel"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .41999 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics3D
%%IncludeResource: font Times
%%IncludeFont: Times
/Times findfont 10  scalefont  setfont
% Scaling calculations
-0.0487247 1.04872 -0.302152 1.04872 [
[ 0 0 0 0 ]
[ 1 .41999 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 0 m
1 0 L
1 .41999 L
0 .41999 L
closepath
clip
newpath
0 0 0 r
2 Mabswid
.07089 .34662 Mdot
1 g
.5 Mabswid
[ ] 0 setdash
.07089 .34662 m
.07089 .34662 L
s
0 0 0 r
2 Mabswid
.06963 .36258 Mdot
1 g
.5 Mabswid
.06963 .36258 m
.06963 .36258 L
s
0 0 0 r
2 Mabswid
.06017 .33704 Mdot
1 g
.5 Mabswid
.06017 .33704 m
.06017 .33704 L
s
.007 g
.05887 .35304 m
.76874 .12554 L
s
0 0 0 r
2 Mabswid
.06708 .3948 Mdot
1 g
.5 Mabswid
.06708 .3948 m
.06708 .3948 L
s
0 0 0 r
2 Mabswid
.03849 .31768 Mdot
1 g
.5 Mabswid
.03849 .31768 m
.03849 .31768 L
s
0 0 0 r
2 Mabswid
.06579 .41107 Mdot
1 g
.5 Mabswid
.06579 .41107 m
.06579 .41107 L
s
.007 g
.05624 .38532 m
.77075 .15916 L
s
.03711 .33373 m
.75088 .10261 L
s
0 0 0 r
2 Mabswid
.02753 .30789 Mdot
1 g
.5 Mabswid
.02753 .30789 m
.02753 .30789 L
s
0 0 0 r
2 Mabswid
.05491 .40162 Mdot
1 g
.5 Mabswid
.05491 .40162 m
.05491 .40162 L
s
0 0 0 r
2 Mabswid
.02611 .32397 Mdot
1 g
.5 Mabswid
.02611 .32397 m
.02611 .32397 L
s
.007 g
.03432 .36614 m
.75279 .13636 L
s
0 0 0 r
2 Mabswid
.03292 .3825 Mdot
1 g
.5 Mabswid
.03292 .3825 m
.03292 .3825 L
s
0 0 0 r
2 Mabswid
.02324 .35644 Mdot
1 g
.5 Mabswid
.02324 .35644 m
.02324 .35644 L
s
0 0 0 r
2 Mabswid
.02179 .37283 Mdot
1 g
.5 Mabswid
.02179 .37283 m
.02179 .37283 L
s
0 g
.78029 .13221 m
.77707 .1217 L
s
.77707 .1217 m
.79795 .11501 L
s
.77707 .1217 m
.77309 .1117 L
s
.78254 .14252 m
.78029 .13221 L
s
.78029 .13221 m
.80118 .12554 L
s
.77309 .1117 m
.79398 .10498 L
s
.77309 .1117 m
.76863 .10287 L
s
.78254 .14252 m
.80346 .13587 L
s
.79795 .11501 m
.80118 .12554 L
s
.79398 .10498 m
.79795 .11501 L
s
.656 .751 .92 r
.77215 .14624 m .80464 .14532 L .78369 .15196 L F
0 g
.78363 .1599 m
.78369 .15196 L
s
.78254 .14252 m
.78296 .14593 L
s
.06836 .37864 m
.78369 .15196 L
s
.80118 .12554 m
.80346 .13587 L
s
.78954 .09612 m
.79398 .10498 L
s
.544 .324 .532 r
.76397 .0958 m .78562 .10013 L .75897 .10873 L F
.76397 .0958 m .78491 .08901 L .78562 .10013 L F
0 g
.04937 .3274 m
.76397 .0958 L
s
.78545 .09744 m
.78954 .09612 L
s
.973 g
.76397 .0958 m
.78512 .0923 L
s
0 0 0 r
2 Mabswid
.76397 .0958 Mdot
0 g
.5 Mabswid
.76397 .0958 m
.78491 .08901 L
s
.75943 .09096 m
.76397 .0958 L
s
.78491 .08901 m
.78954 .09612 L
s
.78238 .1658 m
.78363 .1599 L
s
.78363 .1599 m
.80463 .15327 L
s
.656 .751 .92 r
.77215 .14624 m .79881 .13776 L .80464 .14532 L F
0 g
.80346 .13587 m
.80464 .14532 L
s
.656 .751 .92 r
.76302 .1397 m .79881 .13776 L .77215 .14624 L F
0 g
.77215 .14624 m
.78369 .15196 L
s
.78369 .15196 m
.80464 .14532 L
s
.973 g
.78369 .15196 m
.80291 .14309 L
s
.01 g
.05756 .36913 m
.76731 .14307 L
s
0 g
.80463 .15327 m
.80464 .14532 L
s
.544 .324 .532 r
.75897 .10873 m .78633 .11129 L .75642 .12091 L F
.966 g
.76874 .12554 m
.79388 .11781 L
s
.01 g
.04803 .34342 m
.75742 .1149 L
s
.544 .324 .532 r
.75897 .10873 m .78562 .10013 L .78633 .11129 L F
0 g
.75897 .10873 m
.76397 .0958 L
s
.785 g
.80291 .14309 m
.94885 .06233 L
s
0 0 0 r
2 Mabswid
.80291 .14309 Mdot
0 g
.5 Mabswid
.75943 .09096 m
.7804 .08415 L
s
.75943 .09096 m
.75531 .08871 L
s
.78491 .08901 m
.78562 .10013 L
s
.7804 .08415 m
.78491 .08901 L
s
.789 g
.79388 .11781 m
.9521 .07034 L
s
0 0 0 r
2 Mabswid
.79388 .11781 Mdot
.656 .751 .92 r
.76302 .1397 m .79294 .13016 L .79881 .13776 L F
0 g
.5 Mabswid
.79881 .13776 m
.80464 .14532 L
s
.656 .751 .92 r
.75602 .13244 m .79294 .13016 L .76302 .1397 L F
0 g
.76302 .1397 m
.77215 .14624 L
s
.963 g
.76731 .14307 m
.79478 .13254 L
s
.785 g
.78512 .0923 m
.95459 .07893 L
s
0 0 0 r
2 Mabswid
.78512 .0923 Mdot
0 g
.5 Mabswid
.80463 .15327 m
.80342 .15916 L
s
.78 .16924 m
.78238 .1658 L
s
.78238 .1658 m
.80342 .15916 L
s
.544 .324 .532 r
.75642 .12091 m .78704 .12251 L .75602 .13244 L F
.75642 .12091 m .78633 .11129 L .78704 .12251 L F
0 g
.75642 .12091 m
.75897 .10873 L
s
.963 g
.75742 .1149 m
.7861 .10779 L
s
0 g
.78562 .10013 m
.78633 .11129 L
s
.77633 .08188 m
.7804 .08415 L
s
.75531 .08871 m
.77633 .08188 L
s
.75531 .08871 m
.75189 .08921 L
s
.80342 .15916 m
.8011 .16259 L
s
.791 g
.79478 .13254 m
.95192 .06673 L
s
0 0 0 r
2 Mabswid
.79478 .13254 Mdot
.544 .324 .532 r
.75602 .13244 m .78776 .13378 L .75771 .14336 L F
.656 .751 .92 r
.75602 .13244 m .78704 .12251 L .79294 .13016 L F
.544 .324 .532 r
.75602 .13244 m .78704 .12251 L .78776 .13378 L F
0 g
.5 Mabswid
.79294 .13016 m
.79881 .13776 L
s
.656 .751 .92 r
.75107 .12448 m .78704 .12251 L .75602 .13244 L F
0 0 0 r
2 Mabswid
.75602 .13244 Mdot
0 g
.5 Mabswid
.75631 .12419 m
.75642 .12091 L
s
.013 g
.04668 .35954 m
.75602 .13244 L
s
0 g
.77665 .16996 m
.78 .16924 L
s
.78 .16924 m
.8011 .16259 L
s
.791 g
.7861 .10779 m
.95397 .07266 L
s
0 0 0 r
2 Mabswid
.7861 .10779 Mdot
.966 g
.5 Mabswid
.75088 .10261 m
.77825 .09744 L
s
0 0 0 r
2 Mabswid
.75088 .10261 Mdot
0 g
.5 Mabswid
.77296 .08236 m
.77633 .08188 L
s
.75189 .08921 m
.77296 .08236 L
s
.75189 .08921 m
.74942 .09246 L
s
.544 .324 .532 r
.75771 .14336 m .78848 .1451 L .76159 .15364 L F
.966 g
.77075 .15916 m
.79582 .14755 L
s
.01 g
.04532 .37577 m
.75936 .14859 L
s
.544 .324 .532 r
.75771 .14336 m .78776 .13378 L .78848 .1451 L F
0 g
.75602 .13244 m
.75771 .14336 L
s
.8011 .16259 m
.7978 .1633 L
s
.656 .751 .92 r
.75107 .12448 m .78111 .11482 L .78704 .12251 L F
0 g
.78633 .11129 m
.78704 .12251 L
s
.78704 .12251 m
.79294 .13016 L
s
.656 .751 .92 r
.74827 .11576 m .78111 .11482 L .75107 .12448 L F
0 g
.75107 .12448 m
.75602 .13244 L
s
.961 g
.75602 .13244 m
.78704 .12251 L
s
.01 g
.03572 .34988 m
.74939 .12022 L
s
.789 g
.79582 .14755 m
.95133 .06254 L
s
0 0 0 r
2 Mabswid
.79582 .14755 Mdot
0 g
.5 Mabswid
.77255 .16791 m
.77665 .16996 L
s
.77665 .16996 m
.7978 .1633 L
s
.793 g
.78704 .12251 m
.95363 .06918 L
s
0 0 0 r
2 Mabswid
.78704 .12251 Mdot
0 g
.5 Mabswid
.78704 .12251 m
.78776 .13378 L
s
0 0 0 r
2 Mabswid
.75936 .14859 Mdot
.789 g
.5 Mabswid
.77825 .09744 m
.95592 .07581 L
s
0 0 0 r
2 Mabswid
.77825 .09744 Mdot
.74939 .12022 Mdot
0 g
.5 Mabswid
.77054 .08559 m
.77296 .08236 L
s
.74942 .09246 m
.77054 .08559 L
s
.74942 .09246 m
.74806 .09824 L
s
.544 .324 .532 r
.76159 .15364 m .78921 .15648 L .76797 .16319 L F
0 g
.04396 .3921 m
.76797 .16319 L
s
.544 .324 .532 r
.76159 .15364 m .78848 .1451 L .78921 .15648 L F
0 g
.75771 .14336 m
.76159 .15364 L
s
.76159 .15364 m
.76797 .16319 L
s
.963 g
.75936 .14859 m
.78799 .13732 L
s
0 g
.7978 .1633 m
.79374 .16122 L
s
.76797 .16319 m
.77255 .16791 L
s
.77255 .16791 m
.79374 .16122 L
s
.78776 .13378 m
.78848 .1451 L
s
.656 .751 .92 r
.74827 .11576 m .77515 .10709 L .78111 .11482 L F
0 g
.78111 .11482 m
.78704 .12251 L
s
.656 .751 .92 r
.74793 .10618 m .77515 .10709 L .74827 .11576 L F
0 g
.74827 .11576 m
.75107 .12448 L
s
.963 g
.74939 .12022 m
.77925 .11241 L
s
.791 g
.78799 .13732 m
.95328 .0657 L
s
0 0 0 r
2 Mabswid
.78799 .13732 Mdot
.791 g
.5 Mabswid
.77925 .11241 m
.95533 .07162 L
s
0 0 0 r
2 Mabswid
.77925 .11241 Mdot
0 g
.5 Mabswid
.76924 .09137 m
.77054 .08559 L
s
.74806 .09824 m
.76924 .09137 L
s
.973 g
.76797 .16319 m
.78899 .1531 L
s
0 0 0 r
2 Mabswid
.76797 .16319 Mdot
0 g
.5 Mabswid
.76324 .15612 m
.76797 .16319 L
s
.76797 .16319 m
.78921 .15648 L
s
.78921 .15648 m
.79374 .16122 L
s
.966 g
.75279 .13636 m
.78011 .12728 L
s
0 0 0 r
2 Mabswid
.75279 .13636 Mdot
0 g
.5 Mabswid
.78848 .1451 m
.78921 .15648 L
s
.656 .751 .92 r
.74793 .10618 m .76915 .09932 L .77515 .10709 L F
0 g
.76915 .09932 m
.77515 .10709 L
s
.74793 .10618 m
.74806 .09824 L
s
.77515 .10709 m
.78111 .11482 L
s
.02468 .34015 m
.74793 .10618 L
s
.74793 .10618 m
.74827 .11576 L
s
.973 g
.74793 .10618 m
.77093 .10163 L
s
0 0 0 r
2 Mabswid
.74793 .10618 Mdot
0 g
.5 Mabswid
.74793 .10618 m
.76915 .09932 L
s
.74793 .10618 m
.74905 .11574 L
s
.76915 .09932 m
.76924 .09137 L
s
.785 g
.78899 .1531 m
.95267 .05947 L
s
0 0 0 r
2 Mabswid
.78899 .1531 Mdot
0 g
.5 Mabswid
.75868 .14718 m
.76324 .15612 L
s
.76324 .15612 m
.7845 .14938 L
s
.789 g
.78011 .12728 m
.95515 .06802 L
s
0 0 0 r
2 Mabswid
.78011 .12728 Mdot
0 g
.5 Mabswid
.7845 .14938 m
.78921 .15648 L
s
.74905 .11574 m
.7703 .10889 L
s
.74905 .11574 m
.75132 .12626 L
s
.785 g
.77093 .10163 m
.95839 .076 L
s
0 0 0 r
2 Mabswid
.77093 .10163 Mdot
0 g
.5 Mabswid
.75461 .13699 m
.75868 .14718 L
s
.75868 .14718 m
.77996 .1404 L
s
.96294 .06211 m
.96625 .07283 L
s
.959 .05186 m
.96294 .06211 L
s
.75132 .12626 m
.7726 .11943 L
s
.75132 .12626 m
.75461 .13699 L
s
.96625 .07283 m
.96872 .08332 L
s
.76915 .09932 m
.7703 .10889 L
s
.75461 .13699 m
.7759 .13018 L
s
.95469 .04276 m
.959 .05186 L
s
.7845 .14938 m
.77996 .1404 L
s
.96872 .08332 m
.97017 .09287 L
s
.7726 .11943 m
.7703 .10889 L
s
.95029 .03541 m
.95469 .04276 L
s
.77996 .1404 m
.7759 .13018 L
s
.97017 .09287 m
.9705 .10086 L
s
.97017 .09287 m
.96468 .08502 L
s
.97017 .09287 m
.97017 .09287 L
s
.7759 .13018 m
.7726 .11943 L
s
.95029 .03541 m
.95029 .03541 L
s
.9514 .04662 m
.95029 .03541 L
s
.9461 .03033 m
.95029 .03541 L
s
.9705 .10086 m
.96969 .10673 L
s
.96468 .08502 m
.95917 .07712 L
s
.95251 .05787 m
.9514 .04662 L
s
.9424 .02786 m
.9461 .03033 L
s
.96969 .10673 m
.96778 .11008 L
s
.95917 .07712 m
.95363 .06918 L
s
0 0 0 r
2 Mabswid
.95839 .076 Mdot
0 g
.5 Mabswid
.95363 .06918 m
.95251 .05787 L
s
0 0 0 r
2 Mabswid
.95267 .05947 Mdot
0 g
.5 Mabswid
.93944 .0282 m
.9424 .02786 L
s
0 0 0 r
2 Mabswid
.95515 .06802 Mdot
0 g
.5 Mabswid
.96778 .11008 m
.9649 .11065 L
s
0 0 0 r
2 Mabswid
.95533 .07162 Mdot
.95328 .0657 Mdot
.95592 .07581 Mdot
.95363 .06918 Mdot
0 g
.5 Mabswid
.95475 .08054 m
.95363 .06918 L
s
.95363 .06918 m
.94805 .06119 L
s
0 0 0 r
2 Mabswid
.95133 .06254 Mdot
.95397 .07266 Mdot
.95192 .06673 Mdot
0 g
.5 Mabswid
.93744 .03134 m
.93944 .0282 L
s
0 0 0 r
2 Mabswid
.9521 .07034 Mdot
0 g
.5 Mabswid
.9649 .11065 m
.96123 .10839 L
s
0 0 0 r
2 Mabswid
.95459 .07893 Mdot
0 g
.5 Mabswid
.95588 .09196 m
.95475 .08054 L
s
0 0 0 r
2 Mabswid
.94885 .06233 Mdot
0 g
.5 Mabswid
.94805 .06119 m
.94245 .05316 L
s
.93654 .0371 m
.93744 .03134 L
s
.96123 .10839 m
.95701 .10342 L
s
.95701 .10342 m
.95588 .09196 L
s
.94245 .05316 m
.93681 .04508 L
s
.93681 .04508 m
.93654 .0371 L
s
.95701 .10342 m
.95255 .09608 L
s
.95701 .10342 m
.95701 .10342 L
s
.93824 .05476 m
.93681 .04508 L
s
.93681 .04508 m
.93681 .04508 L
s
.95255 .09608 m
.94814 .08686 L
s
.94073 .06545 m
.93824 .05476 L
s
.94814 .08686 m
.94411 .07641 L
s
.94411 .07641 m
.94073 .06545 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{690, 289.688},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnXuQHEUdx+dmZh93ucuFXC5AiOTykJcEhPhEQVGEkoJCKZCCgoIQwURA
ECLI+w2BiBVFFMWipKTE9wMQHyiFopgQCgpFUQoKpVAURFExqVDoOd2/fvy6
59e9Pbs9m/3Drexmb3am+/P99e/37Z653b1Dl69eedJpy1evWrF86qAzl5+x
ctWKs6YOPP3MYlM2lCTp7UkytHAqYc+nk0Q+TBf/4OFO9sA2/39DtxvWsIeM
xXVX+6Wr+YY8gaBPy3vKft6Z3jkzds6IbUtCDsyJbYvtA68idmoS2xaFHNgi
ti0MPpCHJLyfirujbewWjtX9geagF7ep/hzbsJON/7yAbIBHsV35MCso1MCn
xLb5tTZmFwG7UblMVdQOdGOlYWj01h4dY6pRSnHPjVKk8zqF0UVDbQvqYI2z
sXAlW6/RDCXG+vXrE3GjEm37cMgMt5WkwS1eY+3EWknZY5ps2LAhcyn1tsPa
gHaKJjhe5uLZjlaYKzVFCwACmx944IEE3YKaFD4lNZWGg7WZq3EVnVKiSy1f
YbYMI9Hkx7BG5X3jxo3s5dwVzFK7l6t2iz0Zsh5r1h4cLVoVe+SqV09otrU7
utQKDRxkcUNC8Zjo3n1lUOrmYrMbHvIMIqZblL3ybSkcwW6Z6stlEKX+LrTH
RfbXEIONj+bpCSGUSSf+p7TNtfu6ACUsa4UFTXbH8zVHSScrIxdji5VxtdSa
q9TleTg9mCBRJAVw8diy2lb9pTqatKWV8vAcVCFGUc8SfZiFJIesUh+T7IGP
yPvgmRywEdbHGBEPKkY+py6lx2z20IC0lswHq5i2VBClXTD5ssEJonMqJysB
jSsgKts5377sWZNRtfEgyzJl90zgykzUudMZF09KCLVEOkqEDjHDC/JVq4+l
7HGGkiAOk3nVYI8Zqv1CkvCIsg9u54y4P1VITcNU9KH+E3o1yde0Y5AivAFp
/nxYmkqEoDYHKDfKqdgyP6aYFgS5nEptNV4Tip7v3Fbza1spaoGFTTNrlOMg
7FDatMyyHQPpbTNlt5KzNQEjob03ByDQtvbwNWigpKJRpShH48FbLqAbpiKR
aHy0iv0WekpWR6/E3FAvUVOuLpNM0accPku2bNnC92Wh5KW9jaJvKPq2Go+G
CAJOKUNKpqRY5TLVgzJqGKliSWEgmKaGMThypzElrqnEjcC2ArvpEZd5xS2m
rWuYgJ8TojDTCs1VIZdc6GuJ4cPiGkpcS4kbBW8osFsecblKQtEdcoadI0oD
fCMPRQrKwWogXewZu/NU5braStdMpUvkDh8iQ09G6CnuuxFM4WL0AknSyzYU
qUWfJZs3bxbb5BpJrAjNBtS4t1UZ5mJpij2PD9MwIbqhBlHM2EUrSxVzD6mo
KHMljEkq7mKaLZ61kXJjNuV9jMBaqszcJJj3JAaoHUwvzI3/WHDJUbrt3udR
ARWsLZjqy83OgmMdgZ8BfZRFZKaIvVXgg9D1CWqx59DQEH/GgpxCmOWrIES7
Nmzj84vpB9OOGXBEqUtVgo2qgcmVppapifexLFjTf9FIMDXmYBpimR6mht1B
V64GS/zfDtTWMLXxZ2Nm0gk7kHVoCM2V0DcQjVPzKpb8MoRTDqDNB7oT5h3c
vWEYkcjEdnSlUq9lczUe/Nl4J21tQtubXYHzaNusBwz6YGMq7oYXsuFjeth9
Bn/MlUahkyequApRVpN51AybatBJBvv/rYQG6iQN63opVJccQaZhJn9sGLrk
GMLspS+DiHum0nFWuEiZcFIgu+9HCKIqYRKJ/EeQSBwqqWiUPabYdtiNKdy0
aVPxEzzKmRsCbl6cYfeO4zpiSubDur+Z+B55f0MSDEUtQlGbPebIeeSLGUpW
OXHzPFVLXsJG806iclPUu5QofAHieWTuhQA9ic0gBGRKQMORhmxQROC4EZZN
haqKlhokYQZohajzcIYaKRlcXIHLkag/u0TNtETBLglbn2g9TIO8s63COMtS
nEvnjlJGLSm5IaW4n4jU/NFUkyur30aN6DAMDJQEzqwc6UKZxX9uqsOFxxjr
w5zOrFGVWQ7y9yPypwly/uMkkVy50tCw5ictxCyRRE1MvAe4smDFPFXjMaZi
PqwHQnnbyQj7KRf2tkJymkLYBCCHHiagG5ZxATHUD2uJLbHYTZ7LZQRxbi64
RdbLdMPYT3ixgRpsU2a5ttgWQQqnDk0yi2XAZ5qI5XRYhQB/iwarDNgUgHK2
Y7cRhmUvotn/LUXuG/JxNeQjNN0piO7XQTMVv0LQYqj6hEzDUJkrt8nAM0qN
6Fwl5x7s0xD2L8OxMx5h2Is9E3d9+SMlFoal9JC6UhgbcxpW9kEtWFtOXULb
6UjXwz3rGiXMnqvBa0Nk9ny2kleQ5QHK5/XlLeushZ9wnYHIH6yYSOOqeVGP
jIdwOt6XnoX0/KW6I87mKdgzEewGdXRO8PGanDCnmUzFqjhEOpj4P7f4VNbY
UyUs1CRaOcNXI8T7XbO5RtxWITYUIk/KVF0naKHFMVo0N1SQxuicPBuR3Oea
iS0ScQ4mK8rCsS/fsv/hBJpe1qcWYmYg8hE9B0He650GLEh8ZSXLMlkKFix1
WSz3EOMLR3LER1zs5yL2H1dhF5cNGbZ9pmsmp7i1nSoIK3CsvFtmJZ2P2H/o
YteVbrFnnL1hhEkWk1iD+4lZvMVJXoo8TcLq+Wlarx7YC3IFcQHCv8s1Ofss
lhKUo5RCIzCTvDipt8kT1hyfJOHI5JQKdr8Iqbij51nDqo1cSXJeWKGUpZBF
CZsy9AocDQwSaP66kufVJUjSt2NL4qPUUNv0acAYVD2vIGkC5GKmaaiRz/V7
DYpnlyEF36g4IVK8wmuLbcOKdwQmbIgkq1zpqNQ01ERLGJk9VE1cjsC/Gg6u
vSknwLkYfPIp86TpDrnx+wdSDFSJNNNpce33SiTgtm4EUPXMt21DCMioMYCZ
Qc8P5TNPwGcX7CQ+D0GBfzXCvzUq/hyBL8/eVFh56EeQryLWnEDli7Tyuz+u
QuS3KDrnsioANiNOiTjsGA0r1+8MVlqvPEmSb+wRba1BsDcTMxdve9I7c2nY
CTii2C+zYswyYlzlOFr0MMQU/RLH8esQHNObCMwe7XxCHZmrZ9jiZWy106RY
jIyx8m1qyYAl3BhBgmWHlAR9wtJW4PYaToWdencHZr4hKrOV3JnKnGEi7Npc
hq1f8E1P47ew42T+hMreCrhzvcZt4fJnY6pzMdug2wjkSJHi4pREuZi5osFW
9/Fwq2sp4gD30MT6auEMxCezWb/NirpAi/NhbXxTtkjnKJZhRVqOsv9dtZh4
TX+I7SFG83shwF7SgoQkcaTxlVGZLYO2mOWIy9/86qV5bvyql0iT0gkH33AN
EnJZkBBqptGGnXndzhICOsz3rUgbcX6UIdeDY76Ka/TicCnRbFGL00HQfVG/
CddvTeSirkUCLkCR0gHuwFzdGydNZuuqjfN35031KpfwMQR+LmqxmqlXL+Pc
BU4lD13VspV1SMLZfZRgFYNe0I2Y5cvj/CkEedZWhuTb9PVQbfGfQZCno1GK
Njv6kfSM9DkEcmqQH1Ae7bQ2v0dbVHcgllW9sfTsRHchlpPrZAko1B8glhVB
LHr6qe52/or7EWI5IZylT6V2L6I7buDo7kN0xwwc3f2I7ii0Z7WJ1QLqxQ42
IKAjULF29EjLjbp0gAdR9+/1dh+x6HWhPYy6PxTtGbd7Z/B/hbo/uKL/RfQc
vu03iOWgbvwvYpX8DrEcMHA1/ASi278WOl0p1emeQnT71UenY8erPFXPJsyC
s6ztaUT3loh0AW4UELs/Ibo3xabrOe/+guhe76GzJhLKt3tm+Sti2RvtqTuo
1az+jrrfU211+nbsGvsn6n53V/d+e9RpqlNIFxHVvR7Wf6Pud0HlFqmqLSBq
GrUGegsCenV/PSdgtF5BdIsGznOmEd2CgfOcaXimEecPJmITIW7fM+IkYVfV
/UIXLMcaRohzwxFbCqiSgzinYR2zMQQ0EQ7kd1S/g/gHcRYCmuUB0oGdoyJU
C9AEAhrrBNR3X9OZJJ6PoN27oIroZ/hrTpooE/tsElYF4i8u0sEZAJPQgZsy
EHuli+0Yi4Hulf7ShSbdTkC3ZTDpxBfUbQqnq+78oSy7A8u/wlmaRFFSVhFg
YFZRwkdnkxeDWCi/79kgdFyWAcsLHhZr7qlgX35v0NXnpIOPeCbPdaLr3rn8
3qBjR3kDfEgzeTYOXeyMh49aJs+gPbcu0NsA6Pdq2CtMjnGArDp8BwA9Ge4J
XdFVcgkdrgOB7vGIdL0sdyy6dwPdY+F0LYLF6RLUHO1kOQRYHg1i8ftppZyi
POEwYHkknCWGY4WW4OFA91Acutj1eCTQbRwkOh27o4FuvYcubKashe5YoPt5
J7oavCygQo8Hup9GpNNelnb2D3/Nig8R34N0dAsUp0xPAqC7gwqhfjqrTFcC
3ffDy7StWu7Z0KyhOxVYvjuYliE+p3n7YNKJjzd+qxY6XZQUXYBlfATovl4f
nY6d/My3cWSgeXwUOL8SkdOytl5qVXzw7kseuqqTVsTqvRjovtiJrp8+p+nE
R7O+0DNdLc4nPr70eTV6Pjo9bTvoKnlLQPWKt2h/VscuM+hSgi9zVSFFGOAv
vOWGi3AtEH66Zn+Z61VG+Yt+W6z+wEOSXN8/H3RliG+8PwmU6wbJBTXdDUB3
XWy6OJV8I9Bd2zNdLT5zE9BdHYcuts/cDHRX1ELXs8fcAnSXeuj07KvfyFiB
Lo7H3AqcF3XitKJYyqPOfN14y5eB7vyKdP6ZxOku3Xvg14DzHBXbQM7+uMw3
gW61jmLojByBL6CSvwN8H94KLhhQyXcC3Yf65jP+StacViV/DzhPqY+zakVr
v9HRvBsoVw4OJTXm9wDlSTVT9ug6PwHKE4Mow+aYiCuvnwHd8R46awYM9e44
rvML4Du2E19dnuivZvhbEsnRPdNRnljddZz1/BBwHqnoe+Ksq54fAcrD1daU
2HOr0T0KdIcNJt1jQHeIzsSuVw/du2FAPT8OnNSfXlkW5JBh5KEOGVDjTwLx
gUF0Ffy7yzMYq7L/AHTvDKdznhlYVL2cuWi+Z4Dv7RX5nL1RHhmjfp4Fzn2r
cva3yp8Dyn08lORs3V/KF4ByHlHj8zqR1+iilDtZtf6im3yu2rMe8o6+6veB
l4D8tWpr97OT9k5qDunSpzYD39JYfLF96mXgm02M/KSXuSvHj1Fl/3ETz9ZV
5l0FUPNBrS7LH4YAfInHCvxT1kSdFjANP3JE/smcNBzRk3vdwvqrij+0EWzm
RIttpAFg8M37yYIIYE4nalcBgi8uTObbVhcMhKyxlBA9XnLhD/DFhDD/dLVi
r6tm5xiR64AT10Ko+hR/Kk9/qor625JisHwpHNNCrIiJv8+sP1U1i0SMaWwB
FQB/4S/Ru9fgrwEY4g+n629yC8WgfEB/E0TAPM8flkD3i7USr3F3rPpWlVKC
PwSXLATtfahnqoB2QxDVTgO7Log9oMsdzfHtyiZC02wv6HKHPmb265Az9Wn+
fyN0+ZraymUf6GBX0GR2ULEgqFzcF/H3Prc6w7Q/dEPZ8GRNKX+Au8vZNSXD
QdDlopqaPxian4JUiN78oaj5vHOyUt9CqRt7D7z4KtWj/u790Jw5ApqYp3ai
rlu2qqTEUdDidqqWYoTtGGh0aYSmjoOmdovQ1AnQ1C4gNbgp/6CugBd3hnC7
8iI3mjAa+AC8NO6uyQr58UF3Y+OqsdDUEH8MZ4GKV2igxd9s2Stw97Ng9z2h
nwqxF39BZJne3RPn8+CluURo9Dev+Bq40N3AhFffJXDgrt6dLkd5lLp2uspI
NuMl8c2wS4ijroOXFhIvrTOG2HjpenhJbxDvaNiD0F+SEbRTqenShp28zawN
bSbGhqVelCsq7FQLXjL0PyPKGsM=\
\>"],
 ImageRangeCache->{{{0, 689}, {288.688, 0}} -> {0.045324, 0.288113, \
0.00138725, 0.00138725}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"light", "=", 
   RowBox[{"ConeOfRays", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"180", "/", "Pi"}], ")"}], 
      RowBox[{"(", " ", 
       RowBox[{"F", "/", 
        RowBox[{"(", 
         RowBox[{"2", " ", "zH", " ", "Np"}], ")"}]}], ")"}]}], ",", 
     RowBox[{"NumberOfRays", "\[Rule]", "15"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"biglens", "=", 
   RowBox[{"Move", "[", 
    RowBox[{
     RowBox[{"PlanoConvexLens", "[", 
      RowBox[{"F", ",", 
       RowBox[{"F", "/", "Np"}], ",", ".2", ",", "\"\<Big Lens\>\""}], "]"}], 
     ",", "zH"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"screen", "=", 
   RowBox[{"Move", "[", 
    RowBox[{
     RowBox[{"Screen", "[", 
      RowBox[{"F", "/", "Np"}], "]"}], ",", 
     RowBox[{"zi", "+", "zH"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"sys", "=", 
   RowBox[{"AnalyzeSystem", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"light", ",", "biglens", ",", "screen"}], "}"}], ",", 
     RowBox[{"PlotType", "\[Rule]", "Full3D"}], ",", 
     RowBox[{"ColorView", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"RayLength", ",", "GrayLevel"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .41999 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics3D
%%IncludeResource: font Times
%%IncludeFont: Times
/Times findfont 10  scalefont  setfont
% Scaling calculations
-0.0487247 1.04872 -0.302152 1.04872 [
[ 0 0 0 0 ]
[ 1 .41999 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 0 m
1 0 L
1 .41999 L
0 .41999 L
closepath
clip
newpath
0 g
.5 Mabswid
[ ] 0 setdash
.04668 .35954 m
.75054 .12806 L
s
.04668 .35954 m
.75308 .13659 L
s
.04668 .35954 m
.75654 .14427 L
s
.04668 .35954 m
.76375 .15207 L
s
.04668 .35954 m
.76624 .15086 L
s
.04668 .35954 m
.76737 .14636 L
s
.04668 .35954 m
.76507 .13103 L
s
.04668 .35954 m
.76203 .12283 L
s
.04668 .35954 m
.7547 .11211 L
s
.04668 .35954 m
.74977 .1143 L
s
.78029 .13221 m
.77707 .1217 L
s
.77707 .1217 m
.79795 .11501 L
s
.77707 .1217 m
.77309 .1117 L
s
.78254 .14252 m
.78029 .13221 L
s
.78029 .13221 m
.80118 .12554 L
s
.77309 .1117 m
.79398 .10498 L
s
.77309 .1117 m
.76863 .10287 L
s
.78254 .14252 m
.80346 .13587 L
s
.79795 .11501 m
.80118 .12554 L
s
.79398 .10498 m
.79795 .11501 L
s
.656 .751 .92 r
.77215 .14624 m .80464 .14532 L .78369 .15196 L F
0 g
.78363 .1599 m
.78369 .15196 L
s
.78254 .14252 m
.78296 .14593 L
s
.80118 .12554 m
.80346 .13587 L
s
.78954 .09612 m
.79398 .10498 L
s
.544 .324 .532 r
.76397 .0958 m .78562 .10013 L .75897 .10873 L F
.76397 .0958 m .78491 .08901 L .78562 .10013 L F
0 g
.78545 .09744 m
.78954 .09612 L
s
.76397 .0958 m
.78491 .08901 L
s
.75943 .09096 m
.76397 .0958 L
s
.78491 .08901 m
.78954 .09612 L
s
.78238 .1658 m
.78363 .1599 L
s
.78363 .1599 m
.80463 .15327 L
s
.656 .751 .92 r
.77215 .14624 m .79881 .13776 L .80464 .14532 L F
0 g
.80346 .13587 m
.80464 .14532 L
s
.656 .751 .92 r
.76302 .1397 m .79881 .13776 L .77215 .14624 L F
0 g
.77215 .14624 m
.78369 .15196 L
s
.78369 .15196 m
.80464 .14532 L
s
.04668 .35954 m
.76385 .14029 L
s
.76637 .13952 m
.76695 .13935 L
s
.80463 .15327 m
.80464 .14532 L
s
.544 .324 .532 r
.75897 .10873 m .78633 .11129 L .75642 .12091 L F
0 g
.04668 .35954 m
.75735 .11649 L
s
.544 .324 .532 r
.75897 .10873 m .78562 .10013 L .78633 .11129 L F
0 g
.75897 .10873 m
.76397 .0958 L
s
1 g
.78616 .10871 m
.78692 .10851 L
s
0 g
.75943 .09096 m
.7804 .08415 L
s
.75943 .09096 m
.75531 .08871 L
s
.78491 .08901 m
.78562 .10013 L
s
.7804 .08415 m
.78491 .08901 L
s
.656 .751 .92 r
.76302 .1397 m .79294 .13016 L .79881 .13776 L F
0 g
.79881 .13776 m
.80464 .14532 L
s
.656 .751 .92 r
.75602 .13244 m .79294 .13016 L .76302 .1397 L F
0 g
.76302 .1397 m
.77215 .14624 L
s
1 g
.79266 .13018 m
.79464 .12947 L
s
0 g
.80463 .15327 m
.80342 .15916 L
s
.78 .16924 m
.78238 .1658 L
s
.78238 .1658 m
.80342 .15916 L
s
.544 .324 .532 r
.75642 .12091 m .78704 .12251 L .75602 .13244 L F
.75642 .12091 m .78633 .11129 L .78704 .12251 L F
1 g
.7866 .11561 m
.79019 .11456 L
s
0 g
.75642 .12091 m
.75897 .10873 L
s
1 g
.76507 .13103 m
.79292 .12197 L
s
.7547 .11211 m
.78365 .10486 L
s
.82 g
.79292 .12197 m
.95379 .06917 L
s
0 0 0 r
2 Mabswid
.79292 .12197 Mdot
0 g
.5 Mabswid
.78562 .10013 m
.78633 .11129 L
s
.82 g
.79019 .11456 m
.9537 .06893 L
s
0 0 0 r
2 Mabswid
.79019 .11456 Mdot
0 g
.5 Mabswid
.77633 .08188 m
.7804 .08415 L
s
.82 g
.79464 .12947 m
.95385 .06941 L
s
0 0 0 r
2 Mabswid
.79464 .12947 Mdot
0 g
.5 Mabswid
.75531 .08871 m
.77633 .08188 L
s
.75531 .08871 m
.75189 .08921 L
s
.80342 .15916 m
.8011 .16259 L
s
.544 .324 .532 r
.75602 .13244 m .78776 .13378 L .75771 .14336 L F
1 g
.76624 .15086 m
.79408 .13983 L
s
.76737 .14636 m
.79505 .13579 L
s
.656 .751 .92 r
.75602 .13244 m .78704 .12251 L .79294 .13016 L F
.544 .324 .532 r
.75602 .13244 m .78704 .12251 L .78776 .13378 L F
0 g
.79294 .13016 m
.79881 .13776 L
s
.656 .751 .92 r
.75107 .12448 m .78704 .12251 L .75602 .13244 L F
0 g
.75631 .12419 m
.75642 .12091 L
s
.04668 .35954 m
.75166 .11145 L
s
.82 g
.78692 .10851 m
.95361 .06874 L
s
0 0 0 r
2 Mabswid
.78692 .10851 Mdot
0 g
.5 Mabswid
.77665 .16996 m
.78 .16924 L
s
.78 .16924 m
.8011 .16259 L
s
1 g
.75166 .11145 m
.78096 .10426 L
s
.82 g
.79505 .13579 m
.95387 .06961 L
s
0 0 0 r
2 Mabswid
.79505 .13579 Mdot
0 g
.5 Mabswid
.77296 .08236 m
.77633 .08188 L
s
.82 g
.78365 .10486 m
.95351 .06862 L
s
0 0 0 r
2 Mabswid
.78365 .10486 Mdot
0 g
.5 Mabswid
.75189 .08921 m
.77296 .08236 L
s
.75189 .08921 m
.74942 .09246 L
s
.82 g
.79408 .13983 m
.95384 .06973 L
s
0 0 0 r
2 Mabswid
.79408 .13983 Mdot
.544 .324 .532 r
.75771 .14336 m .78848 .1451 L .76159 .15364 L F
0 g
.5 Mabswid
.04668 .35954 m
.76013 .14979 L
s
.544 .324 .532 r
.75771 .14336 m .78776 .13378 L .78848 .1451 L F
0 g
.75602 .13244 m
.75771 .14336 L
s
1 g
.78831 .14232 m
.79189 .1409 L
s
0 g
.8011 .16259 m
.7978 .1633 L
s
1 g
.74977 .1143 m
.77932 .10681 L
s
.656 .751 .92 r
.75107 .12448 m .78111 .11482 L .78704 .12251 L F
0 g
.78633 .11129 m
.78704 .12251 L
s
.78704 .12251 m
.79294 .13016 L
s
.656 .751 .92 r
.74827 .11576 m .78111 .11482 L .75107 .12448 L F
0 g
.75107 .12448 m
.75602 .13244 L
s
.04668 .35954 m
.74937 .12017 L
s
.77255 .16791 m
.77665 .16996 L
s
.77665 .16996 m
.7978 .1633 L
s
1 g
.7881 .13907 m
.78885 .13878 L
s
0 g
.78704 .12251 m
.78776 .13378 L
s
.82 g
.78096 .10426 m
.95344 .0686 L
s
0 0 0 r
2 Mabswid
.78096 .10426 Mdot
.82 g
.5 Mabswid
.79189 .1409 m
.95379 .06976 L
s
0 0 0 r
2 Mabswid
.79189 .1409 Mdot
.74937 .12017 Mdot
0 g
.5 Mabswid
.77054 .08559 m
.77296 .08236 L
s
1 g
.75654 .14427 m
.78548 .13382 L
s
0 0 0 r
2 Mabswid
.75654 .14427 Mdot
0 g
.5 Mabswid
.74942 .09246 m
.77054 .08559 L
s
.74942 .09246 m
.74806 .09824 L
s
.544 .324 .532 r
.76159 .15364 m .78921 .15648 L .76797 .16319 L F
.76159 .15364 m .78848 .1451 L .78921 .15648 L F
0 g
.75771 .14336 m
.76159 .15364 L
s
.76159 .15364 m
.76797 .16319 L
s
.7978 .1633 m
.79374 .16122 L
s
1 g
.75054 .12806 m
.78009 .1192 L
s
0 0 0 r
2 Mabswid
.75054 .12806 Mdot
1 g
.5 Mabswid
.75308 .13659 m
.78238 .1269 L
s
0 0 0 r
2 Mabswid
.75308 .13659 Mdot
0 g
.5 Mabswid
.76797 .16319 m
.77255 .16791 L
s
.77255 .16791 m
.79374 .16122 L
s
.82 g
.77932 .10681 m
.9534 .06868 L
s
0 0 0 r
2 Mabswid
.77932 .10681 Mdot
0 g
.5 Mabswid
.78776 .13378 m
.78848 .1451 L
s
.656 .751 .92 r
.74827 .11576 m .77515 .10709 L .78111 .11482 L F
0 g
.78111 .11482 m
.78704 .12251 L
s
.656 .751 .92 r
.74793 .10618 m .77515 .10709 L .74827 .11576 L F
0 g
.74827 .11576 m
.75107 .12448 L
s
1 g
.74937 .12017 m
.77901 .1121 L
s
.82 g
.78885 .13878 m
.9537 .06969 L
s
0 0 0 r
2 Mabswid
.78885 .13878 Mdot
0 g
.5 Mabswid
.76924 .09137 m
.77054 .08559 L
s
.82 g
.77901 .1121 m
.95339 .06884 L
s
0 0 0 r
2 Mabswid
.77901 .1121 Mdot
0 g
.5 Mabswid
.74806 .09824 m
.76924 .09137 L
s
.82 g
.78548 .13382 m
.9536 .06953 L
s
0 0 0 r
2 Mabswid
.78548 .13382 Mdot
0 g
.5 Mabswid
.76324 .15612 m
.76797 .16319 L
s
.76797 .16319 m
.78921 .15648 L
s
.78921 .15648 m
.79374 .16122 L
s
.78848 .1451 m
.78921 .15648 L
s
.82 g
.78009 .1192 m
.95343 .06907 L
s
0 0 0 r
2 Mabswid
.78009 .1192 Mdot
.82 g
.5 Mabswid
.78238 .1269 m
.95351 .06931 L
s
0 0 0 r
2 Mabswid
.78238 .1269 Mdot
.656 .751 .92 r
.74793 .10618 m .76915 .09932 L .77515 .10709 L F
0 g
.5 Mabswid
.76915 .09932 m
.77515 .10709 L
s
.74793 .10618 m
.74806 .09824 L
s
.77515 .10709 m
.78111 .11482 L
s
.74793 .10618 m
.74827 .11576 L
s
.74793 .10618 m
.76915 .09932 L
s
.74793 .10618 m
.74905 .11574 L
s
.76915 .09932 m
.76924 .09137 L
s
.75868 .14718 m
.76324 .15612 L
s
.76324 .15612 m
.7845 .14938 L
s
.7845 .14938 m
.78921 .15648 L
s
.74905 .11574 m
.7703 .10889 L
s
.74905 .11574 m
.75132 .12626 L
s
.75461 .13699 m
.75868 .14718 L
s
.75868 .14718 m
.77996 .1404 L
s
.96294 .06211 m
.96625 .07283 L
s
.959 .05186 m
.96294 .06211 L
s
.75132 .12626 m
.7726 .11943 L
s
.75132 .12626 m
.75461 .13699 L
s
.96625 .07283 m
.96872 .08332 L
s
.76915 .09932 m
.7703 .10889 L
s
.75461 .13699 m
.7759 .13018 L
s
.95469 .04276 m
.959 .05186 L
s
.7845 .14938 m
.77996 .1404 L
s
.96872 .08332 m
.97017 .09287 L
s
.7726 .11943 m
.7703 .10889 L
s
.95029 .03541 m
.95469 .04276 L
s
.77996 .1404 m
.7759 .13018 L
s
.97017 .09287 m
.9705 .10086 L
s
.97017 .09287 m
.96468 .08502 L
s
.97017 .09287 m
.97017 .09287 L
s
.7759 .13018 m
.7726 .11943 L
s
.95029 .03541 m
.95029 .03541 L
s
.9514 .04662 m
.95029 .03541 L
s
.9461 .03033 m
.95029 .03541 L
s
.9705 .10086 m
.96969 .10673 L
s
.96468 .08502 m
.95917 .07712 L
s
.95251 .05787 m
.9514 .04662 L
s
.9424 .02786 m
.9461 .03033 L
s
.96969 .10673 m
.96778 .11008 L
s
.95917 .07712 m
.95363 .06918 L
s
.95363 .06918 m
.95251 .05787 L
s
.93944 .0282 m
.9424 .02786 L
s
.96778 .11008 m
.9649 .11065 L
s
0 0 0 r
2 Mabswid
.95379 .06917 Mdot
.9537 .06893 Mdot
.95385 .06941 Mdot
.95361 .06874 Mdot
.95387 .06961 Mdot
.95351 .06862 Mdot
.95384 .06973 Mdot
0 g
.5 Mabswid
.95475 .08054 m
.95363 .06918 L
s
.95363 .06918 m
.94805 .06119 L
s
0 0 0 r
2 Mabswid
.95344 .0686 Mdot
.95379 .06976 Mdot
.9534 .06868 Mdot
.9537 .06969 Mdot
.95339 .06884 Mdot
.9536 .06953 Mdot
.95343 .06907 Mdot
.95351 .06931 Mdot
0 g
.5 Mabswid
.93744 .03134 m
.93944 .0282 L
s
.9649 .11065 m
.96123 .10839 L
s
.95588 .09196 m
.95475 .08054 L
s
.94805 .06119 m
.94245 .05316 L
s
.93654 .0371 m
.93744 .03134 L
s
.96123 .10839 m
.95701 .10342 L
s
.95701 .10342 m
.95588 .09196 L
s
.94245 .05316 m
.93681 .04508 L
s
.93681 .04508 m
.93654 .0371 L
s
.95701 .10342 m
.95255 .09608 L
s
.95701 .10342 m
.95701 .10342 L
s
.93824 .05476 m
.93681 .04508 L
s
.93681 .04508 m
.93681 .04508 L
s
.95255 .09608 m
.94814 .08686 L
s
.94073 .06545 m
.93824 .05476 L
s
.94814 .08686 m
.94411 .07641 L
s
.94411 .07641 m
.94073 .06545 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{691.813, 290.563},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXHnMHVUVf531zXvf1zZd6IKlX2mtpAgVRKXagEWwiFYRXFAM+lnAVtsU
awWUsMliFyJhUYLBYCSowWAk4EIwosSVYOCDiCKxgYiiiDaoKC74+d175p5z
7p1zZ+68lxL+6KTfvOk9c37nd7Y763vrxrdtOGPz+LaN68fH1m4dP2vDxvUf
G3vjlq1TQ/G0Tie6vdOZduBYR21PdjpmNTn1D1bfVCs1vG9g0IGdahWruB7k
inbogbQDQZ/EP7W8TN45tnaOhLFlruJ2YadEGFsaopgKYweGKGZqHamRF8vu
bEwtS/aqYi4ojr0Aiok1NrUsFnV16LoDasgFfEATSbXkbQDcDlCLm5BJT1fs
/wKAVSKX1Xi3SMaQd5a6TiK2sMlLn2LoWMXAzhrW0iQTC2MLZFCJTXh4gkDj
urzZu84PwXM9DgbbFRCqocBCmc0LAdPxjoaCMHwmJiY6ZgkCu4LtpJTVX6LW
4Xx0U4BpASf24ezn4lyqVl0BJwKcuiBVwC5Uq1EBzC1uX8FXED+pVrMZYtta
mOsinq1Wc9A5EbbSTBLXCvJH1WqeQpZ2T8qq42OGuDTJVOA3qdVCBd/1NtoQ
8PMx1evUVp/lzWRR/an/j6itvpfEYLPyHJeQZgiZiNEVtawlfrHFb6ZaTw+0
VxewShnOUqsUY6nDtEZtjUDXTm3lAqFCrWfuDUIzfMHRyDFuOTZWYYMS5wig
quxTtZ5dwyqTm6VCto/RKwuKL0hS6t5XqnVX4BZjA7s+yCWr998vMBPS3FJx
qsAMRFgSFPwujq2EnRtdiH1pyNR6fiB1aaKttLp0jmyIl86zxVurcVl+u07a
jjuvqPU2EbwtY1bV0Aeg/WvKT7qqkH110kQ9HLMx5YYNtgydiaCCLReSQBcO
qHGByqRCPEeRdL0WdZA+S5TeuerHYrXVs/1IfX5IJaj9WCJ3eyGUx2zRGanL
aKaKAUyxr9hYgA7EggMp0o4xEeTK0iFoe6+lYrt4WBOoz57jRbnMsdOg+zqz
05AKXuix5UINDOQCKxSKi6JbOtBXG251qc/pyEUqjljwKLU9ckpsBUYv3A92
vR5bxCOk7mk0baNvM80FpokQ+5cLIZROwYLKJ8fymRJ85ft/wu7t1bBPkLMU
+0TwKMM4p+gR9c5KMZit/KDLp0S7AVLjUOHMQtg4UgHFthNdnxOJXUqHD+8E
9XImOJGyNjaFNvXnzUMquJD7XNCBeJXASeIZ3tU9wY+4TIbZEWMu5cFxoms7
kQlOHOmrjvCWHtVcE2RdMnfPPCAdE+XlrTM/ac4FFnt5HsPOA7uCFzTpvnYo
L1jE1d+IXufWmMkGpUtPMma2pUNCgXGvZ3yUwE660gti3FfrSjubqo9ZO1vV
4uSA5p8CCecC9TW+Xmy6JpSod9XanVGhnqqeUCtK5jX1no+6zs6xMDa1VG7J
UD3nGM1Uc8gqlVBGjYqgIZF4ISCxo8PXB11OCdJNMEyanXCkUaMRnzDscrXi
k9r1WR4NqnPK6S6haYBDlcaWHChWU5ywKLJzFUMuq6WlpWcyHv9Tq55tMHbm
TYgQzUrMYnl2AIGyZ6AqgwwZbGAM/oNBoHPIFLnkAhcdAbpFmJZF4qQwtVuP
Dv1OVj7CuDyHXMrdqZGs3iiwpuNydjO+K0STSRMnfsJvzRiFEJrNjM6zEh37
mlRnT+h5PovweSBi3WgFKbVpbGE0/gqTsLENpuSbF9TxZi8eO6NRsGJi4/xq
y4icw62UwK2M6h6JauUqns95pqgiIp24pN2zOvif3t8csuh8QZpLaY6SHNjG
HPiznfJIdqDrOKCWSOYuNZA+mYuRE+9fqz5ZyCtnEGcz0k/ZpPXc1EfkBIu0
cqGi1rnVF6Zn6HyN9SGnEDkhrRA8lxF8UiA44iKb6BSYWcaX+im1fDB8I96E
FZ5dX+rPYySf8JFMGaxZdFpTKD+qBcMIztbtI60pSlOsTqMlNaE8n7F83Mcy
sYs2QYLmIMZvjeUsvNRR5uRCuh0nEruQEdstz908aMTTvUoCNUPW3Evm9zEy
4bQvYkVtyHpvXX6KcX00aJrqIxf3+QJUnEm+3iVzCpYazH36JHGeKK/xdbVe
ypg+glENYzrqi315RebrKhrD4qF5tZr4yxnFh1tS1FVQwJanf2J2/8E9UzVn
diaA2OTbGaeHBuHUeGBlIVX8CqQfCcmnY1NlRtLBtb1QC3fggcEdqOzFrwVM
i6W+cjWM+YlUeWVgF67L+OeDMNb7F2zSMvxy5MLvfBgwfaw3JcpJ3GtPQp7D
t0NCz6HTcf/yptyUVWkeku7NZ0JoPs1Y/dQOTVbLIUWng+YV0xp0mcct/6iN
5ayD7jN3O9Vpox2HewQOPfS0j1LuvcnFDDYRuIf8zD3km/Dzyelun/HGrhlF
OkUQnRjpSDc+LmOcvtvMKbcZkHQGu0ljSkR6oMHt3dlszyk/So9TDn1oUGPe
OWz0Goh8G00FEElsIjSpdJGDO4mFcLgjkMOoEAzSSJFDgQmhMuHVfxsGP25t
L7a5Op5GAEDz5CSdOfna4es2G+lEgchRazq94ASDLmKoOqWzD6kvOLmvSeQq
fVn4+EkFk2KQnelLp03rSjfsOauv2t3jOaQ4rJyUSlGbKbCisnLiJ4WO6PAj
4M1Cs7cip7fmCuQSHxHr2SNnrXfbwcjdJDSfl5yTT2qGBWhPyl0uENnJOHwx
kMOIL0BaukiwnKGULgt2MctfGMIyeb/EVwoJ7qe3PsMsf16YhMhyD6VkuSv4
/FIx91QVbFzjXsUYXNeGQeLznZ7Txii9llm5ttlKQIRX4th1DPtqlIdiOzHU
W/czxCvbIHpj8iBDvCIQse/zX289zBB3tEbsChwfYYiX2zlKbcQCpV5EvfUb
hnhJM6ITR4njYwzxYttrL2I9xycY4gVCHLuBiBFKn2SI57VB9Hr9FEM8d1hE
vfUXhvjxQMSe7XViazzDELf6EGMbp57jswxxC1ZPJCDWe00azzHEzThaj0hs
c4Hjfxnih4dAJI1JhvihNojkdWJzpMd65fbpQuPkvoQntURzBjveDOucOjuw
xLbPYE9rA+uwdYIwncG+T9iJYLvNQSDYWQz2PXbKvLCFIHXY8hf83tUaNvOl
jH9x4uQ2sPVBeAmDPbEZVkpZIrBdzGDXCe2QCbDeIBDbpQz2zUKkvLD1bJcz
2ONrYXMhtl62KxjscahYufoY3MAhzMAxQvIk2K4gdWAPY7BHN8OmgWyPYLCr
h4CVLoQ06JHMwKpAAwHheB2DfY3gnBc2lPfRzMARtQboKsgxIPE+hsEe1ho2
9fFO0MBxzMChvvqOfaYoWF5TFKI3MVMHtzElZUMK1luYgYOGMBDgy4nM1PLa
3ctn1FawnLBJvpzMDCwdzECoL+9mpsaEGqPHlU7iQw28lxlYNJgB976dbeA0
ZmBhswEnB0mzB+PMwLzayvKaCvXlDGZqbi2zoU3xt5xmDWHKG8AITW1ipma0
NpW18Yq/GeR9PcExRa8KZM1ekSn+Zk/RxpQUwHqv+Oss9YejxA6WczIWYOoT
zJTep18LSx70EIK/kDENRQEQ9cwugvHna+stwEqBiOWrBP9ujZi24V0+7/hn
GyvOoc5rhXqsvJX690AriRCd2E5jeYv0mdaIFKe4mffVML6nNo6xz4qU1c+C
/tPoTb12bGtfD9p/HEz7BtD+vU87EbQp4jeC9m/baJPtm0D7MUE7bmb+ZdDe
jaOSduLTvgW0H63NNz23SpoRbwX9Xw2L2EXE20D/F7aH0qxJp2TE5w7QfrBW
22v7O6B9f6C2Y/su0L5P0JZyE9m27wbte3HUqx0LzO8B7Z/Uasc+2z8G7R/6
tCW/SftnoP0D9Dtqo30faH+vVtvL/AHQvmsw7YdA+04cdb7sXT870n2NX8L4
t5pxYoHFr0H79lrtyPYhR+3doP0Nn7YTAa8Pj8P4rYPh0EXR72D8FsSRZgTH
m3pmf4BxeoY9ICJxfBrGb65FlI5wAdh7YPxLg2FLz80J+28wfmMbbCc6Xux/
wPgNewP7XzB+/WDYfcR5Hvb43GA49bGl8+Dycax0+eg14IwVNmz5OuZV6E17
CHhLAB6I91q7mdhg8DIJPNf3gtXzmQHC7W0gujZE+T26y4aAKH9E4hL1UQRC
5DZE+eNVF/kgRuzdy1/oOp92l9+1dcJV/hyc/vWd0WZSy0B4jvqYZ4vKnwDc
Bu5booNBpK9459qiQ0Gkr7vn2KLDQbRJEMHXaTsbIVuWaBWIzhREq0G0Xn3M
skWvB9EHBNEbQKRvE820RWtBdKogOgFEp0BJWqK3guidgujtIDpJEL0DRG9T
H9Nt0SkgWoc5JNGpIDoBmssSvR9EawVR+eXCY3FaIFH59bo1gmgjiI7CtiFR
+b2v1VicJDoLRDptThOVXx16tSA6B0T6V2OcEi2/dfIKQXQBiA4RRBeDSD+x
yWxR+YKjvinsTMvlu2H63R1nKoNf/oIfeHREV4JI3y6NbNE1IKKBF8vvgu4b
2DcQMNCZ9n/LvkiE\
\>"],
 ImageRangeCache->{{{0, 690.813}, {289.563, 0}} -> {0.0455148, 0.288113, \
0.00138306, 0.00138306}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"light", "=", 
   RowBox[{"ConeOfRays", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"180", "/", "Pi"}], ")"}], 
      RowBox[{"(", " ", 
       RowBox[{"F", "/", 
        RowBox[{"(", 
         RowBox[{"zH", " ", "Np"}], ")"}]}], ")"}]}], ",", 
     RowBox[{"NumberOfRays", "\[Rule]", "15"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"biglens", "=", 
   RowBox[{"Move", "[", 
    RowBox[{
     RowBox[{"PlanoConvexLens", "[", 
      RowBox[{"F", ",", 
       RowBox[{"F", "/", "Np"}], ",", ".2", ",", "\"\<Big Lens\>\""}], "]"}], 
     ",", 
     RowBox[{"zH", "/", "2"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"screen", "=", 
   RowBox[{"Move", "[", 
    RowBox[{
     RowBox[{"Screen", "[", 
      RowBox[{"F", "/", "Np"}], "]"}], ",", 
     RowBox[{"zi", "+", 
      RowBox[{"zH", "/", "2"}]}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"sys", "=", 
   RowBox[{"AnalyzeSystem", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"light", ",", "biglens", ",", "screen"}], "}"}], ",", 
     RowBox[{"PlotType", "\[Rule]", "Full3D"}], ",", 
     RowBox[{"ColorView", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"RayLength", ",", "GrayLevel"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .48128 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics3D
%%IncludeResource: font Times
%%IncludeFont: Times
/Times findfont 10  scalefont  setfont
% Scaling calculations
-0.043299 1.0433 -0.266786 1.0433 [
[ 0 0 0 0 ]
[ 1 .48128 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 0 m
1 0 L
1 .48128 L
0 .48128 L
closepath
clip
newpath
0 g
.5 Mabswid
[ ] 0 setdash
.0627 .38793 m
.61719 .20057 L
s
.0627 .38793 m
.62122 .21425 L
s
.0627 .38793 m
.62693 .2265 L
s
.0627 .38793 m
.6392 .23869 L
s
.0627 .38793 m
.64361 .23657 L
s
.0627 .38793 m
.64579 .22922 L
s
.0627 .38793 m
.64251 .20468 L
s
.0627 .38793 m
.63763 .19164 L
s
.0627 .38793 m
.62532 .17469 L
s
.0627 .38793 m
.61654 .17839 L
s
.66733 .20627 m
.66225 .18965 L
s
.66225 .18965 m
.69491 .17917 L
s
.66225 .18965 m
.65586 .17386 L
s
.67076 .22265 m
.66733 .20627 L
s
.66733 .20627 m
.70002 .19586 L
s
.65586 .17386 m
.68853 .16331 L
s
.65586 .17386 m
.64856 .15993 L
s
.67076 .22265 m
.7035 .21228 L
s
.69491 .17917 m
.70002 .19586 L
s
.68853 .16331 m
.69491 .17917 L
s
.656 .751 .92 r
.65366 .22881 m .70514 .22739 L .67231 .23772 L F
0 g
.67187 .25048 m
.67231 .23772 L
s
.67076 .22265 m
.67134 .22832 L
s
.70002 .19586 m
.7035 .21228 L
s
.68127 .1493 m
.68853 .16331 L
s
.544 .324 .532 r
.64082 .14878 m .67434 .1558 L .63258 .16935 L F
.64082 .14878 m .6736 .13807 L .67434 .1558 L F
0 g
.67416 .15161 m
.68127 .1493 L
s
.64082 .14878 m
.6736 .13807 L
s
.63316 .14117 m
.64082 .14878 L
s
.6736 .13807 m
.68127 .1493 L
s
.66945 .26007 m
.67187 .25048 L
s
.67187 .25048 m
.70481 .24016 L
s
.656 .751 .92 r
.65366 .22881 m .69546 .21558 L .70514 .22739 L F
0 g
.7035 .21228 m
.70514 .22739 L
s
.656 .751 .92 r
.63872 .21861 m .69546 .21558 L .65366 .22881 L F
0 g
.65366 .22881 m
.67231 .23772 L
s
.67231 .23772 m
.70514 .22739 L
s
.0627 .38793 m
.64004 .21951 L
s
.64412 .21832 m
.6454 .21795 L
s
.70481 .24016 m
.70514 .22739 L
s
.544 .324 .532 r
.63258 .16935 m .67508 .17365 L .62814 .18878 L F
0 g
.0627 .38793 m
.62976 .18168 L
s
.544 .324 .532 r
.63258 .16935 m .67434 .1558 L .67508 .17365 L F
0 g
.63258 .16935 m
.64082 .14878 L
s
1 g
.67488 .16888 m
.67623 .1685 L
s
0 g
.63316 .14117 m
.66603 .13039 L
s
.63316 .14117 m
.62608 .13765 L
s
.6736 .13807 m
.67434 .1558 L
s
.66603 .13039 m
.6736 .13807 L
s
.656 .751 .92 r
.63872 .21861 m .68568 .20366 L .69546 .21558 L F
1 g
.68587 .2039 m
.68902 .2028 L
s
0 g
.69546 .21558 m
.70514 .22739 L
s
.656 .751 .92 r
.62707 .20725 m .68568 .20366 L .63872 .21861 L F
0 g
.63872 .21861 m
.65366 .22881 L
s
.70481 .24016 m
.70252 .24975 L
s
.66519 .26581 m
.66945 .26007 L
s
.66945 .26007 m
.70252 .24975 L
s
.544 .324 .532 r
.62814 .18878 m .67582 .19164 L .62707 .20725 L F
.62814 .18878 m .67508 .17365 L .67582 .19164 L F
1 g
.67535 .18031 m
.68179 .17837 L
s
0 g
.62814 .18878 m
.63258 .16935 L
s
1 g
.64251 .20468 m
.6863 .19049 L
s
.62532 .17469 m
.67057 .16258 L
s
.628 g
.6863 .19049 m
.94391 .10645 L
s
0 0 0 r
2 Mabswid
.6863 .19049 Mdot
.628 g
.5 Mabswid
.68179 .17837 m
.94264 .10294 L
s
0 0 0 r
2 Mabswid
.68179 .17837 Mdot
0 g
.5 Mabswid
.67434 .1558 m
.67508 .17365 L
s
.65907 .1268 m
.66603 .13039 L
s
.628 g
.68902 .2028 m
.94476 .10997 L
s
0 0 0 r
2 Mabswid
.68902 .2028 Mdot
0 g
.5 Mabswid
.62608 .13765 m
.65907 .1268 L
s
.62608 .13765 m
.62006 .1385 L
s
.70252 .24975 m
.69839 .25547 L
s
.628 g
.67623 .1685 m
.94118 .10006 L
s
0 0 0 r
2 Mabswid
.67623 .1685 Mdot
.544 .324 .532 r
.62707 .20725 m .67657 .20977 L .62927 .22481 L F
1 g
.5 Mabswid
.64361 .23657 m
.68759 .22 L
s
.64579 .22922 m
.68948 .21323 L
s
.656 .751 .92 r
.62707 .20725 m .67582 .19164 L .68568 .20366 L F
.544 .324 .532 r
.62707 .20725 m .67582 .19164 L .67657 .20977 L F
0 g
.68568 .20366 m
.69546 .21558 L
s
.656 .751 .92 r
.61859 .19473 m .67582 .19164 L .62707 .20725 L F
0 g
.62782 .19423 m
.62814 .18878 L
s
.0627 .38793 m
.62001 .17374 L
s
.65935 .26726 m
.66519 .26581 L
s
.66519 .26581 m
.69839 .25547 L
s
1 g
.62001 .17374 m
.66579 .16166 L
s
.628 g
.68948 .21323 m
.94506 .11292 L
s
0 0 0 r
2 Mabswid
.68948 .21323 Mdot
.628 g
.5 Mabswid
.67057 .16258 m
.93977 .0983 L
s
0 0 0 r
2 Mabswid
.67057 .16258 Mdot
0 g
.5 Mabswid
.65318 .12761 m
.65907 .1268 L
s
.62006 .1385 m
.61554 .14373 L
s
.65318 .12761 m
.62006 .1385 L
s
.628 g
.68759 .22 m
.94474 .11477 L
s
0 0 0 r
2 Mabswid
.68759 .22 Mdot
.544 .324 .532 r
.62927 .22481 m .67733 .22804 L .63492 .24142 L F
0 g
.5 Mabswid
.0627 .38793 m
.63283 .23527 L
s
.544 .324 .532 r
.62927 .22481 m .67657 .20977 L .67733 .22804 L F
0 g
.62707 .20725 m
.62927 .22481 L
s
1 g
.67718 .22435 m
.68365 .22191 L
s
0 g
.69839 .25547 m
.69268 .25687 L
s
1 g
.61654 .17839 m
.66273 .16593 L
s
.656 .751 .92 r
.61859 .19473 m .66587 .17951 L .67582 .19164 L F
0 g
.67508 .17365 m
.67582 .19164 L
s
.67582 .19164 m
.68568 .20366 L
s
.656 .751 .92 r
.61346 .18099 m .66587 .17951 L .61859 .19473 L F
0 g
.61859 .19473 m
.62707 .20725 L
s
.0627 .38793 m
.61553 .18788 L
s
.65231 .26426 m
.65935 .26726 L
s
1 g
.67696 .21907 m
.67832 .21857 L
s
0 g
.67582 .19164 m
.67657 .20977 L
s
.628 g
.66579 .16166 m
.93866 .09797 L
s
0 0 0 r
2 Mabswid
.66579 .16166 Mdot
.628 g
.5 Mabswid
.68365 .22191 m
.94386 .11522 L
s
0 0 0 r
2 Mabswid
.68365 .22191 Mdot
.61553 .18788 Mdot
0 g
.5 Mabswid
.64879 .13282 m
.65318 .12761 L
s
1 g
.62693 .2265 m
.67252 .21051 L
s
0 0 0 r
2 Mabswid
.62693 .2265 Mdot
0 g
.5 Mabswid
.61554 .14373 m
.64879 .13282 L
s
.61554 .14373 m
.61285 .15304 L
s
.544 .324 .532 r
.63492 .24142 m .67809 .24644 L .64454 .25696 L F
0 g
.65935 .26726 m
.69268 .25687 L
s
.544 .324 .532 r
.63492 .24142 m .67733 .22804 L .67809 .24644 L F
0 g
.62927 .22481 m
.63492 .24142 L
s
.63492 .24142 m
.64454 .25696 L
s
.69268 .25687 m
.68575 .25381 L
s
1 g
.61719 .20057 m
.66353 .18645 L
s
0 0 0 r
2 Mabswid
.61719 .20057 Mdot
1 g
.5 Mabswid
.62122 .21425 m
.66728 .19913 L
s
0 0 0 r
2 Mabswid
.62122 .21425 Mdot
0 g
.5 Mabswid
.64454 .25696 m
.65231 .26426 L
s
.65231 .26426 m
.68575 .25381 L
s
.628 g
.66273 .16593 m
.93805 .09914 L
s
0 0 0 r
2 Mabswid
.66273 .16593 Mdot
0 g
.5 Mabswid
.67657 .20977 m
.67733 .22804 L
s
.656 .751 .92 r
.61346 .18099 m .65583 .16727 L .66587 .17951 L F
0 g
.66587 .17951 m
.67582 .19164 L
s
.656 .751 .92 r
.6122 .16582 m .65583 .16727 L .61346 .18099 L F
0 g
.61346 .18099 m
.61859 .19473 L
s
1 g
.61553 .18788 m
.66192 .1747 L
s
.628 g
.67832 .21857 m
.94258 .11416 L
s
0 0 0 r
2 Mabswid
.67832 .21857 Mdot
0 g
.5 Mabswid
.64623 .14212 m
.64879 .13282 L
s
.64623 .14212 m
.61285 .15304 L
s
.628 g
.66192 .1747 m
.93803 .10159 L
s
0 0 0 r
2 Mabswid
.66192 .1747 Mdot
.628 g
.5 Mabswid
.67252 .21051 m
.9411 .11179 L
s
0 0 0 r
2 Mabswid
.67252 .21051 Mdot
0 g
.5 Mabswid
.63659 .24582 m
.64454 .25696 L
s
.64454 .25696 m
.67809 .24644 L
s
.67809 .24644 m
.68575 .25381 L
s
.67733 .22804 m
.67809 .24644 L
s
.628 g
.66353 .18645 m
.93861 .1049 L
s
0 0 0 r
2 Mabswid
.66353 .18645 Mdot
.628 g
.5 Mabswid
.66728 .19913 m
.9397 .10852 L
s
0 0 0 r
2 Mabswid
.66728 .19913 Mdot
.656 .751 .92 r
.6122 .16582 m .64569 .15491 L .65583 .16727 L F
0 g
.5 Mabswid
.64569 .15491 m
.65583 .16727 L
s
.6122 .16582 m
.61285 .15304 L
s
.65583 .16727 m
.66587 .17951 L
s
.6122 .16582 m
.61346 .18099 L
s
.6122 .16582 m
.64569 .15491 L
s
.6122 .16582 m
.61365 .1812 L
s
.64569 .15491 m
.64623 .14212 L
s
.62902 .23161 m
.63659 .24582 L
s
.63659 .24582 m
.67021 .23523 L
s
.67021 .23523 m
.67809 .24644 L
s
.61365 .1812 m
.64723 .17032 L
s
.61365 .1812 m
.61712 .1981 L
s
.62237 .21531 m
.62902 .23161 L
s
.62902 .23161 m
.66268 .22093 L
s
.95645 .09524 m
.96176 .11243 L
s
.95013 .07879 m
.95645 .09524 L
s
.61712 .1981 m
.65077 .18728 L
s
.61712 .1981 m
.62237 .21531 L
s
.96176 .11243 m
.96572 .12926 L
s
.64569 .15491 m
.64723 .17032 L
s
.62237 .21531 m
.65604 .20456 L
s
.94321 .06416 m
.95013 .07879 L
s
.67021 .23523 m
.66268 .22093 L
s
.96572 .12926 m
.96807 .14463 L
s
.65077 .18728 m
.64723 .17032 L
s
.93615 .0523 m
.94321 .06416 L
s
.66268 .22093 m
.65604 .20456 L
s
.96807 .14463 m
.96865 .15753 L
s
.96807 .14463 m
.9593 .13207 L
s
.96807 .14463 m
.96807 .14463 L
s
.65604 .20456 m
.65077 .18728 L
s
.92939 .04403 m
.93615 .0523 L
s
.93615 .0523 m
.93615 .0523 L
s
.93792 .07025 m
.93615 .0523 L
s
.96865 .15753 m
.96739 .16707 L
s
.9593 .13207 m
.95045 .11938 L
s
.93792 .07025 m
.93971 .08835 L
s
.9234 .03994 m
.92939 .04403 L
s
.96739 .16707 m
.96436 .17258 L
s
.95045 .11938 m
.94151 .10658 L
s
.93971 .08835 m
.94151 .10658 L
s
.91859 .04036 m
.9234 .03994 L
s
0 0 0 r
2 Mabswid
.94391 .10645 Mdot
.94264 .10294 Mdot
.94476 .10997 Mdot
.94118 .10006 Mdot
0 g
.5 Mabswid
.96436 .17258 m
.95974 .17364 L
s
0 0 0 r
2 Mabswid
.94506 .11292 Mdot
.93977 .0983 Mdot
.94474 .11477 Mdot
0 g
.5 Mabswid
.94333 .12496 m
.94151 .10658 L
s
.94151 .10658 m
.93249 .09366 L
s
0 0 0 r
2 Mabswid
.93866 .09797 Mdot
.94386 .11522 Mdot
.93805 .09914 Mdot
.94258 .11416 Mdot
0 g
.5 Mabswid
.91531 .04532 m
.91859 .04036 L
s
0 0 0 r
2 Mabswid
.93803 .10159 Mdot
.9411 .11179 Mdot
.93861 .1049 Mdot
.9397 .10852 Mdot
0 g
.5 Mabswid
.95974 .17364 m
.95382 .1701 L
s
.94516 .14348 m
.94333 .12496 L
s
.93249 .09366 m
.92339 .08061 L
s
.9138 .05455 m
.91531 .04532 L
s
.95382 .1701 m
.94701 .16214 L
s
.94701 .16214 m
.94516 .14348 L
s
.92339 .08061 m
.91419 .06744 L
s
.91419 .06744 m
.9138 .05455 L
s
.94701 .16214 m
.93976 .15029 L
s
.94701 .16214 m
.94701 .16214 L
s
.91419 .06744 m
.91419 .06744 L
s
.91649 .08313 m
.91419 .06744 L
s
.93976 .15029 m
.93259 .13534 L
s
.92052 .10051 m
.91649 .08313 L
s
.93259 .13534 m
.92602 .11834 L
s
.92602 .11834 m
.92052 .10051 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{480.438, 231.25},
 ImageMargins->{{254, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXAuoZlUVPnPe/+veeTrN5OhtzBxMM0uxMooeKEYJRgUSBZdJmcGyQUeS
HvTO0tSyMDLJq0ZDTxLMtCiSIIIIgggiCCwQqZAohCKE27/32ns99ll7n/P/
d0KJDnP/e+46e6/9rW899j77nH/etH78yFXvWT9+9PD62qXXrR87cvTw9WuX
vPe6uajYlmXbHsuy7Im1zJxvzk/dx+b83+YfzYeR/A+f/9B85MbmM5n0YZTm
eHYGu/4De15kwJUVZaUiW+vpUymy07fY5yHleqPITuvp0yqyA/+tPpbhQYiG
t2Qyc/ThGKH2QS0D7aeGfaymsYsM3nt+PHfQAP3d2BiVaOxR7U8MZI7RlvtK
4Lki25uIZ3NoMTNMT4cgLcwLRXZKR5VOgaZPg9bV199HKxca1j3PoG6tz1AZ
1/3wwD5Dbdn9DOouF4yXXT36quGhzFU9EoNWLtu7yjY2NopFzJi3t23M7xp7
uwvSPqlsJ1P2oPmwvV0jc2Z+LB5b4bQKwVV8z3yMFRWlU+T94w8AnFb6LfOx
qioFrr317tBI4/pOmI9dTANraJVFHbeDabnffOyG5hQ3HpolbNPMCxL2EM33
cHuN2Cu1yiyHhUMfhD6h1zjlY3wlNkaBFrkoJD0iHLp5ooUXH/JO87EdmamU
gQrFyQX2iKS6Nu52Nu4dyriVHFcP+q5arXJpMj78beZjpDBdJSGVMd8MKJzL
wLw5CZMg1dJ3ozBIUriKhBd5gr4cRpsfl/WjqhRUYyR0AKrUNMLj9yJERXci
r0viK2P4NOdamVZf4+z2Y74AxvUFwWJ+JTIUIKglvmYg5slAzJHplcM9Hyl2
GvxRQnXw3AeaL0SL7NVGck92VEk7VgZmTVhaQyPOQ6yu0vPD/40qtEL9YplZ
jcTeDrRnx0J+idtzDtlThvbk6DC6Zzs3hp68UUv0Ocp2b8EHvJqdDRo9Qr8a
4uw3/MItb/402nRI4m8Xwb93IP4G2eKoDyGbJV4v8KxCwKXBSzshY4m1lpFS
Sxlh3Z+oISMV31kobSlRO0sot3A1lEoHnRYDW/WDPZAAO1YIXglha0FfyQAZ
W8ydArUPYZcYz00SNq0p1qySjso+xC+IhVEpA2GmsLwnCXck4VayaB48OXCB
1kxuTPgUmwUsu2O7hN0uAlsbfxBmC3LCjDbQHNAZJllQOMaItEKkLfp+jEgb
GQ8W6aFlkQbXxwFmdwC3epbUMdgVwvbry002lWhWnKNYoe1B9VkxwkCeXzjx
0796M7Jpwo4c7agJcykw+4AJLeu0omAi4150koyj+QVsg6veykmQueBUD6lF
EyimyuEmvARjexngtNaqFeA1S1+fLfMfDXtAf45nFFNUoi7YEuac9TZIS8Ts
cJeOb+9Rw14LqDI3h7WS6kkMeED2y2K+X6ZgTnX0+i3ABu6d8MP9TdZU/daQ
Gy5WRtKWqHopXbWAKwHfBw5fBvn4LcIa6y/kLth5Y2/FQva8all7WNibn5Ug
FcxPzmQ+FSqWHh64iCh7Nk2irxD9a2LpGchWe9DPzKdbRHYx29ygEq+vlCKo
W8m5jbrXYzwsg3VsPsNJAbJCg77R2RHR7jOHmUDEXwauyuS+xFkK3BrhlkqI
FEi827zxwHOl/vMbMZEIs37Ulvh1hvX5aIHF5bY0JUIYzjqrS22uzMH+vFoE
1bsYqudBy4zvoTji2DEC1mTsINkOE5t8qL4QHJpKSglxpEC8mkE8HXu7u4/M
FFNLoVXRdXKtsMd5Ae9L/jyaIoarcpHNq+JRBvNUySTtS2kR6OphF3oFV2US
gapM31mNoqbJ/xoGc79kk+5fqD5MEqXVw4FUoLmRrXnbGJd1kstrGci9mp+Q
hTq86kFOKblrzCf/g+sO34atVhVGxwqPxxjE3Yq7KzwLYE94CeVxN0I0vDJv
uGdElCMBGo2/6xm4nTEnB+5uEFen6nhOWybzBIWVAOuitqNjsTbI4Q0M5mq/
m+nJj9t88aXTbTVHMojWMcRh9PlBcBvbXdK/j2GeJakNbx3RGAt3FEusWlmk
eNa01RhtB0duQt7PEI+TLBP2GWPZGqoVUZokzRl3vJ8yNsUdSwA8WFh1gX+Q
AW8l1YUCN1plRxgF6iwaFjKaWfkKmdQuaMWHmRXVQPqn0Fhr1zXPBnmjbI/Z
cDbiWrXGjthN1DJhy0eZLer8mbQl8ozBVuE2cIU5RoorvAH0JLSzTlORf0Ig
7w2j1ukK6MzgGnDKofqoQtRhYndnlrDIYzB1wX8Kxnq6n/FCmjGNMW4rIhHQ
TQ0tXdw8ThM9Y8bSTg/VPwND/TssWqkYsWcrPPLNoL5XQdRrSGW9zOT2SEgv
l81/boFB/kn0dh6lRKFq7b14qqK1V7UQ6eLNkVSL/FYY5alkGJRJpAXSuxrc
49D9cYjLD+8oZcT50W+Dk3/0e7tIAqMlVDdm7Z4cvwWWN/XhVG6Js2WfXM60
OcR/G+TyiYKXJnztaVeLYEslBkpW1zyTtBETyTEC/WSS5lLCtqPMJGz3PKUL
u0LYNa6Z6qAI87mS55iXO5B/STA7FCLFSYEFqwaItl26FjDiWlxZO3RP9KdQ
IfERlgBfxEaXaB5sX4kVSxWO9PGBzh5LpEFOUQSTbW5jKZMzlrYFEgX3p0FO
1qBR+kwYIEGxC4th0GijJ1jNuJr5WJLGoh9rlEZ6dWMHy5Rw/6NiG1Ey78zP
ZwHSH8yvRqqnIaOAAvJalKUA5QhI2w53gH4/3L9DIdqzkWznHmXTXZrPGu3h
m4P2u0UcGgVHVwvJn3bjHo5mqJxGyxEOqeP/LfpawzpJYhgrlA5GDd0yl/Vq
cUIEPNd/Q4TrsRAQOlmE7mgp1oBri4BCFrM8qpnVhF8rLhj1448T332B1vxt
b74azh7bHzMHPcuupH49cn7VN+ssZAj1aBaJIJr/guSNbt4Exjgf/HJQVGnG
aANRO5r6FoovVza78WVXnzVSpxvzCxlQcegdU6P+aGMg9yggW8zoTo8uZpq3
boe2P0+4QquOKXs0R7D4SiTKvmRyD/3CBi0vPgdD/cz8qmOmUF2KmKK5RiPa
uuuAakKmv59PN2SBqs/DX49K4EHJobjJlasB99FYOoie176Hhfg61HwBBD+J
Qawkf1r+tQq7dRKs9r4YjUY03Aldf6Q4vtHA9TmeeIT2egxbreEbOMBpxM+W
hi+D6BEESwFM7kyBpVbBjenMnJ2vBl7GF9p3g8aHkuHWiyCgyyJYMWcXYojR
Vbd98KA0OhiyxWBoYiZqwWWr8MV49X64+IDCbyOHWtQ6y+/j0Py7J0F98CDB
qv8zNP+2QtQw9QF1hH5qzp6E5t/YmnoNvVX/d2h+QuYouY/UN1IW7NBaKp4C
ZV9DrNH1BqmlBVgU479Ayb0KBcGTp0ZRVkhlT4Oye5SiFCiL8Emtovf8diCb
yNugxd1JRqrh42pmTXA0V/XuUmyrFKKiD0H5A2avG14ty74U440iso6hDbiB
+6/si8RNwmZN8wDU7hXsOxB1eu+TRmHc6EtfGsN91/L2JOuVZD2Kv5C6nwMt
biX8iZ3Qajj6MY7gvvJ98zIjpK2gMdagxU1JL5TpUfRVLzF1Blz/ZMIObQT3
6lUXM6xkso8toy+FmEZ4IVz/CCII9FUSXy57nwe9PwS5mfEVVCnRNErvl0Lv
DyTiRNNXoL4Cx7X6LoLeN0o2o70DNK+A3jdIJqhmVFJP0BveU4S3KmjsoHcw
NiF/LfQ+1t+7VnpfAr2vlbwEvXO8qq2DrJ43gPwaRU8wNp212Pty6H1Exgr1
DmyIorgC5FdLrgI9eb+et4L88HJ6atRzJcjXpd3BJrS2CRXV+A6QvzPmEXr4
rOmmucu9Lvj2pB7tBimqu0LdV4H8yhg/Ud1RtEdA/rataqRq+26QvwUzMWi5
HVu6N7GuoLH1ezPNb5Tjx0F++TJaKFtvBPkbyQe6llXs4V5yse+07kOpe2nk
UvNrL0o/DlL7Cu8pKL0JpPZ15D0odQ+1X21+7UKp2+ux3zLdiVJ3I2+L5A6U
ujtoW3iJ7btAam/oVlD6VZDa7zbMUHofSO1EQrHydZCei5610m+C9Gwp/Q5I
D8lq9ABIz8TcsNLvg/QgetBK4b9wgP9hqETpj0Fqv/SWo/RRkNrzZ8N/uvT/
82fFebbtPyaRvPM=\
\>"],
 ImageRangeCache->{{{0, 479.438}, {230.25, 0}} -> {0.0404696, 0.255711, \
0.00200352, 0.00200352}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"light1", "=", 
   RowBox[{"GridOfRays", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"F", "/", "Np"}], ",", 
       RowBox[{"F", "/", "Np"}]}], "}"}], ",", 
     RowBox[{"NumberOfRays", "\[Rule]", "5"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"light2", "=", 
   RowBox[{"Move", "[", 
    RowBox[{
     RowBox[{"ConeOfRays", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"180", "/", "Pi"}], ")"}], 
        RowBox[{"(", " ", 
         RowBox[{"F", "/", 
          RowBox[{"(", 
           RowBox[{"2", " ", "zH", " ", "Np"}], ")"}]}], ")"}]}], ",", 
       RowBox[{"NumberOfRays", "\[Rule]", "15"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "F"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"light3", "=", 
   RowBox[{"Move", "[", 
    RowBox[{
     RowBox[{"ConeOfRays", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"180", "/", "Pi"}], ")"}], 
        RowBox[{"(", " ", 
         RowBox[{"F", "/", 
          RowBox[{"(", 
           RowBox[{"zH", " ", "Np"}], ")"}]}], ")"}]}], ",", 
       RowBox[{"NumberOfRays", "\[Rule]", "15"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"zH", "/", "2"}], ",", 
       RowBox[{"2", "F"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lens1", "=", 
   RowBox[{"Move", "[", 
    RowBox[{
     RowBox[{"PlanoConvexLens", "[", 
      RowBox[{"F", ",", 
       RowBox[{"F", "/", "Np"}], ",", ".07", ",", "\"\<Big Lens\>\""}], "]"}],
      ",", "zH"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"lens2", "=", 
   RowBox[{"Move", "[", 
    RowBox[{
     RowBox[{"PlanoConvexLens", "[", 
      RowBox[{"F", ",", 
       RowBox[{"F", "/", "Np"}], ",", ".07", ",", "\"\<Big Lens\>\""}], "]"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"zH", ",", "F"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lens3", "=", 
   RowBox[{"Move", "[", 
    RowBox[{
     RowBox[{"PlanoConvexLens", "[", 
      RowBox[{"F", ",", 
       RowBox[{"F", "/", "Np"}], ",", ".07", ",", "\"\<Big Lens\>\""}], "]"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"zH", ",", 
       RowBox[{"2", "F"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"screen1", "=", 
   RowBox[{"Move", "[", 
    RowBox[{
     RowBox[{"Screen", "[", 
      RowBox[{"F", "/", "Np"}], "]"}], ",", 
     RowBox[{"zi", "+", "zH"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"screen2", "=", 
   RowBox[{"Move", "[", 
    RowBox[{
     RowBox[{"Screen", "[", 
      RowBox[{"F", "/", "Np"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"zi", "+", "zH"}], ",", "F"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"screen3", "=", 
   RowBox[{"Move", "[", 
    RowBox[{
     RowBox[{"Screen", "[", 
      RowBox[{"F", "/", "Np"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"zi", "+", "zH"}], ",", 
       RowBox[{"2", "F"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sys", "=", 
   RowBox[{"AnalyzeSystem", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "light1", ",", " ", "light2", ",", " ", "light3", ",", "lens1", ",", 
       "lens2", ",", "lens3", ",", "screen1", ",", "screen2", ",", 
       "screen3"}], "}"}], ",", 
     RowBox[{"PlotType", "\[Rule]", "Full3D"}], ",", 
     RowBox[{"ColorView", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"RayLength", ",", "GrayLevel"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .51841 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics3D
%%IncludeResource: font Times
%%IncludeFont: Times
/Times findfont 10  scalefont  setfont
% Scaling calculations
-0.0149516 1.01495 -0.224503 1.01495 [
[ 0 0 0 0 ]
[ 1 .51841 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 0 m
1 0 L
1 .51841 L
0 .51841 L
closepath
clip
newpath
.009 g
.5 Mabswid
[ ] 0 setdash
.12389 .40099 m
.72877 .20206 L
s
.12389 .40099 m
.73095 .20939 L
s
.12389 .40099 m
.73393 .21599 L
s
.12389 .40099 m
.74012 .22269 L
s
.12389 .40099 m
.74226 .22166 L
s
.12389 .40099 m
.74323 .21779 L
s
.12389 .40099 m
.74125 .20461 L
s
.12389 .40099 m
.73865 .19757 L
s
.12389 .40099 m
.73235 .18835 L
s
.12389 .40099 m
.72811 .19024 L
s
.503 g
.48259 .37731 m
.78892 .27856 L
s
.48259 .37731 m
.79104 .28569 L
s
.48259 .37731 m
.79389 .29205 L
s
.48259 .37731 m
.7997 .29829 L
s
.48259 .37731 m
.80165 .29712 L
s
.48259 .37731 m
.80247 .29321 L
s
.48259 .37731 m
.80044 .28027 L
s
.48259 .37731 m
.79792 .27345 L
s
.48259 .37731 m
.79197 .26471 L
s
.48259 .37731 m
.78811 .26687 L
s
0 0 0 r
2 Mabswid
.06901 .32229 Mdot
1 g
.5 Mabswid
.06901 .32229 m
.06901 .32229 L
s
0 0 0 r
2 Mabswid
.06765 .33622 Mdot
1 g
.5 Mabswid
.06765 .33622 m
.06765 .33622 L
s
0 0 0 r
2 Mabswid
.05922 .31355 Mdot
1 g
.5 Mabswid
.05922 .31355 m
.05922 .31355 L
s
.007 g
.05782 .3275 m
.68148 .11909 L
s
0 0 0 r
2 Mabswid
.0649 .36433 Mdot
1 g
.5 Mabswid
.0649 .36433 m
.0649 .36433 L
s
0 0 0 r
2 Mabswid
.03942 .29586 Mdot
1 g
.5 Mabswid
.03942 .29586 m
.03942 .29586 L
s
0 0 0 r
2 Mabswid
.06351 .37853 Mdot
1 g
.5 Mabswid
.06351 .37853 m
.06351 .37853 L
s
.007 g
.05499 .35567 m
.68282 .1484 L
s
.03794 .30986 m
.66507 .09803 L
s
0 0 0 r
2 Mabswid
.0294 .28691 Mdot
1 g
.5 Mabswid
.0294 .28691 m
.0294 .28691 L
s
0 0 0 r
2 Mabswid
.05357 .36989 Mdot
1 g
.5 Mabswid
.05357 .36989 m
.05357 .36989 L
s
0 0 0 r
2 Mabswid
.02788 .30094 Mdot
1 g
.5 Mabswid
.02788 .30094 m
.02788 .30094 L
s
.007 g
.03496 .33814 m
.66631 .12744 L
s
0 0 0 r
2 Mabswid
.03345 .35242 Mdot
1 g
.5 Mabswid
.03345 .35242 m
.03345 .35242 L
s
0 0 0 r
2 Mabswid
.02482 .32927 Mdot
1 g
.5 Mabswid
.02482 .32927 m
.02482 .32927 L
s
0 g
.81282 .28094 m
.81013 .27219 L
s
.81013 .27219 m
.81088 .27196 L
s
.81013 .27219 m
.80686 .26391 L
s
.81088 .27196 m
.81356 .28071 L
s
.8076 .26368 m
.81088 .27196 L
s
.81474 .28958 m
.81282 .28094 L
s
.81282 .28094 m
.81356 .28071 L
s
.81356 .28071 m
.81549 .28936 L
s
.80686 .26391 m
.8076 .26368 L
s
.80686 .26391 m
.80322 .25666 L
s
.80397 .25643 m
.8076 .26368 L
s
.81474 .28958 m
.81549 .28936 L
s
0 0 0 r
2 Mabswid
.02328 .34357 Mdot
1 g
.5 Mabswid
.02328 .34357 m
.02328 .34357 L
s
0 g
.80322 .25666 m
.80397 .25643 L
s
.656 .751 .92 r
.8063 .29294 m .81653 .29732 L .81578 .29755 L F
0 g
.81578 .29755 m
.81585 .3043 L
s
.81474 .28958 m
.8157 .29697 L
s
.656 .751 .92 r
.8063 .29294 m .81179 .29126 L .81653 .29732 L F
0 g
.81653 .29732 m
.8166 .30408 L
s
.81549 .28936 m
.81653 .29732 L
s
.81578 .29755 m
.81653 .29732 L
s
.554 .339 .543 r
.79945 .25091 m .80088 .26009 L .79539 .26179 L F
.79945 .25091 m .8002 .25068 L .80088 .26009 L F
0 g
.80031 .25222 m
.80322 .25666 L
s
.8002 .25068 m
.80397 .25643 L
s
.79945 .25091 m
.8002 .25068 L
s
.79581 .24707 m
.79945 .25091 L
s
.79656 .24683 m
.8002 .25068 L
s
.989 g
.80044 .28027 m
.80736 .27813 L
s
0 g
.81495 .30939 m
.81585 .3043 L
s
.81585 .3043 m
.8166 .30408 L
s
.656 .751 .92 r
.79884 .28767 m .81179 .29126 L .8063 .29294 L F
0 g
.8063 .29294 m
.81578 .29755 L
s
.503 g
.48259 .37731 m
.79934 .28802 L
s
.79972 .28791 m
.80204 .28726 L
s
0 g
.8166 .30408 m
.8157 .30916 L
s
.656 .751 .92 r
.79884 .28767 m .80703 .28516 L .81179 .29126 L F
.989 g
.8073 .28551 m
.80894 .28496 L
s
0 g
.81179 .29126 m
.81653 .29732 L
s
.554 .339 .543 r
.79539 .26179 m .80156 .26954 L .79337 .27207 L F
.989 g
.79792 .27345 m
.8049 .27145 L
s
.503 g
.48259 .37731 m
.79413 .26822 L
s
.554 .339 .543 r
.79539 .26179 m .80088 .26009 L .80156 .26954 L F
0 g
.79539 .26179 m
.79945 .25091 L
s
.8002 .25068 m
.80088 .26009 L
s
.766 g
.80736 .27813 m
.95979 .23076 L
s
0 0 0 r
2 Mabswid
.80736 .27813 Mdot
.766 g
.5 Mabswid
.8049 .27145 m
.95921 .22915 L
s
0 0 0 r
2 Mabswid
.8049 .27145 Mdot
.989 g
.5 Mabswid
.80132 .26624 m
.80198 .26606 L
s
.766 g
.80894 .28496 m
.96019 .23238 L
s
0 0 0 r
2 Mabswid
.80894 .28496 Mdot
0 g
.5 Mabswid
.79581 .24707 m
.79656 .24683 L
s
.79581 .24707 m
.79253 .24539 L
s
.79328 .24516 m
.79656 .24683 L
s
.989 g
.80247 .29321 m
.80937 .29078 L
s
.656 .751 .92 r
.79317 .28182 m .80703 .28516 L .79884 .28767 L F
0 g
.79884 .28767 m
.8063 .29294 L
s
.81312 .31244 m
.81495 .30939 L
s
.81495 .30939 m
.8157 .30916 L
s
.766 g
.80198 .26606 m
.95856 .22785 L
s
0 0 0 r
2 Mabswid
.80198 .26606 Mdot
0 g
.5 Mabswid
.8157 .30916 m
.81387 .31222 L
s
.554 .339 .543 r
.79337 .27207 m .80225 .27903 L .79317 .28182 L F
.79337 .27207 m .80156 .26954 L .80225 .27903 L F
0 g
.79337 .27207 m
.79539 .26179 L
s
.80088 .26009 m
.80156 .26954 L
s
.766 g
.80937 .29078 m
.96034 .23376 L
s
0 0 0 r
2 Mabswid
.80937 .29078 Mdot
.989 g
.5 Mabswid
.79197 .26471 m
.7991 .2629 L
s
0 0 0 r
2 Mabswid
.79197 .26471 Mdot
.656 .751 .92 r
.79317 .28182 m .80225 .27903 L .80703 .28516 L F
0 g
.5 Mabswid
.80703 .28516 m
.81179 .29126 L
s
.989 g
.80165 .29712 m
.80857 .2946 L
s
.766 g
.7991 .2629 m
.95794 .22708 L
s
0 0 0 r
2 Mabswid
.7991 .2629 Mdot
0 g
.5 Mabswid
.79253 .24539 m
.79328 .24516 L
s
.79253 .24539 m
.78985 .24602 L
s
.7906 .24578 m
.79328 .24516 L
s
.766 g
.80857 .2946 m
.96022 .23464 L
s
0 0 0 r
2 Mabswid
.80857 .2946 Mdot
.554 .339 .543 r
.79317 .28182 m .80294 .28857 L .79471 .29108 L F
.79317 .28182 m .80225 .27903 L .80294 .28857 L F
.656 .751 .92 r
.78921 .27541 m .80225 .27903 L .79317 .28182 L F
0 g
.5 Mabswid
.79328 .27654 m
.79337 .27207 L
s
.503 g
.48259 .37731 m
.78956 .26433 L
s
0 g
.8105 .31325 m
.81312 .31244 L
s
.81312 .31244 m
.81387 .31222 L
s
.81387 .31222 m
.81125 .31303 L
s
.989 g
.78956 .26433 m
.79675 .26252 L
s
.7997 .29829 m
.80668 .29574 L
s
.656 .751 .92 r
.78921 .27541 m .79744 .27287 L .80225 .27903 L F
0 g
.80225 .27903 m
.80703 .28516 L
s
.80156 .26954 m
.80225 .27903 L
s
.766 g
.79675 .26252 m
.95746 .22698 L
s
0 0 0 r
2 Mabswid
.79675 .26252 Mdot
0 g
.5 Mabswid
.78985 .24602 m
.78796 .24892 L
s
.7906 .24578 m
.78985 .24602 L
s
.766 g
.80668 .29574 m
.95985 .23488 L
s
0 0 0 r
2 Mabswid
.80668 .29574 Mdot
0 g
.5 Mabswid
.78871 .24869 m
.7906 .24578 L
s
.554 .339 .543 r
.79471 .29108 m .80363 .29814 L .79809 .29983 L F
.79471 .29108 m .80294 .28857 L .80363 .29814 L F
.503 g
.48259 .37731 m
.79682 .29654 L
s
0 g
.79317 .28182 m
.79471 .29108 L
s
.80225 .27903 m
.80294 .28857 L
s
.989 g
.78811 .26687 m
.79535 .265 L
s
.656 .751 .92 r
.78707 .26839 m .79744 .27287 L .78921 .27541 L F
0 g
.78921 .27541 m
.79317 .28182 L
s
.80724 .31174 m
.8105 .31325 L
s
.8105 .31325 m
.81125 .31303 L
s
.81125 .31303 m
.80799 .31151 L
s
.989 g
.80335 .29422 m
.80401 .29399 L
s
.766 g
.79535 .265 m
.9572 .22755 L
s
0 0 0 r
2 Mabswid
.79535 .265 Mdot
.656 .751 .92 r
.78707 .26839 m .79261 .26667 L .79744 .27287 L F
.503 g
.5 Mabswid
.48259 .37731 m
.78788 .2719 L
s
0 g
.79744 .27287 m
.80225 .27903 L
s
.766 g
.80401 .29399 m
.95928 .23444 L
s
0 0 0 r
2 Mabswid
.80401 .29399 Mdot
.989 g
.5 Mabswid
.78788 .2719 m
.79514 .26992 L
s
0 0 0 r
2 Mabswid
.78788 .2719 Mdot
.989 g
.5 Mabswid
.79389 .29205 m
.80102 .28963 L
s
0 0 0 r
2 Mabswid
.79389 .29205 Mdot
0 g
.5 Mabswid
.78796 .24892 m
.78871 .24869 L
s
.78796 .24892 m
.78698 .25392 L
s
.78773 .25368 m
.78871 .24869 L
s
.554 .339 .543 r
.79809 .29983 m .80433 .30776 L .80357 .30799 L F
.79809 .29983 m .80363 .29814 L .80433 .30776 L F
0 g
.79471 .29108 m
.79809 .29983 L
s
.79809 .29983 m
.80357 .30799 L
s
.80294 .28857 m
.80363 .29814 L
s
.766 g
.79514 .26992 m
.95722 .2287 L
s
0 0 0 r
2 Mabswid
.79514 .26992 Mdot
.989 g
.5 Mabswid
.78892 .27856 m
.79616 .27644 L
s
0 0 0 r
2 Mabswid
.78892 .27856 Mdot
.989 g
.5 Mabswid
.79104 .28569 m
.79824 .28341 L
s
0 0 0 r
2 Mabswid
.79104 .28569 Mdot
0 g
.5 Mabswid
.80357 .30799 m
.80724 .31174 L
s
.80724 .31174 m
.80799 .31151 L
s
.766 g
.80102 .28963 m
.95863 .23338 L
s
0 0 0 r
2 Mabswid
.80102 .28963 Mdot
0 g
.5 Mabswid
.80433 .30776 m
.80799 .31151 L
s
.80363 .29814 m
.80433 .30776 L
s
.656 .751 .92 r
.78699 .26068 m .79261 .26667 L .78707 .26839 L F
0 g
.78707 .26839 m
.78921 .27541 L
s
.766 g
.79616 .27644 m
.9575 .23024 L
s
0 0 0 r
2 Mabswid
.79616 .27644 Mdot
.766 g
.5 Mabswid
.79824 .28341 m
.958 .23189 L
s
0 0 0 r
2 Mabswid
.79824 .28341 Mdot
.656 .751 .92 r
.78699 .26068 m .78774 .26045 L .79261 .26667 L F
0 g
.5 Mabswid
.78774 .26045 m
.79261 .26667 L
s
.79261 .26667 m
.79744 .27287 L
s
.78699 .26068 m
.78707 .26839 L
s
.78698 .25392 m
.78699 .26068 L
s
.78773 .25368 m
.78698 .25392 L
s
.78773 .25368 m
.78774 .26045 L
s
.79975 .30225 m
.80357 .30799 L
s
.80357 .30799 m
.80433 .30776 L
s
.80051 .30202 m
.80433 .30776 L
s
.78699 .26068 m
.78774 .26045 L
s
.78699 .26068 m
.788 .26874 L
s
.78774 .26045 m
.78876 .26851 L
s
.79603 .29491 m
.79975 .30225 L
s
.79975 .30225 m
.80051 .30202 L
s
.80051 .30202 m
.79679 .29468 L
s
.788 .26874 m
.78876 .26851 L
s
.788 .26874 m
.78995 .27755 L
s
.7907 .27732 m
.78876 .26851 L
s
.79269 .28648 m
.79603 .29491 L
s
.79603 .29491 m
.79679 .29468 L
s
.79679 .29468 m
.79344 .28625 L
s
.96592 .2242 m
.96868 .23312 L
s
.96268 .21572 m
.96592 .2242 L
s
.78995 .27755 m
.79269 .28648 L
s
.7907 .27732 m
.78995 .27755 L
s
.96868 .23312 m
.97078 .24191 L
s
.79344 .28625 m
.7907 .27732 L
s
.79269 .28648 m
.79344 .28625 L
s
.95916 .20826 m
.96268 .21572 L
s
.97078 .24191 m
.97206 .24997 L
s
.95561 .2023 m
.95916 .20826 L
s
.97206 .24997 m
.97245 .25677 L
s
.97206 .24997 m
.96765 .24365 L
s
.97206 .24997 m
.97206 .24997 L
s
.95225 .19826 m
.95561 .2023 L
s
.95561 .2023 m
.95561 .2023 L
s
.95665 .21179 m
.95561 .2023 L
s
.97245 .25677 m
.97191 .26184 L
s
.96765 .24365 m
.96322 .2373 L
s
.9577 .22133 m
.95665 .21179 L
s
.94932 .19642 m
.95225 .19826 L
s
.97191 .26184 m
.97048 .26484 L
s
.96322 .2373 m
.95876 .23091 L
s
.95876 .23091 m
.9577 .22133 L
s
.94702 .19692 m
.94932 .19642 L
s
0 0 0 r
2 Mabswid
.95979 .23076 Mdot
.95921 .22915 Mdot
.96019 .23238 Mdot
0 g
.5 Mabswid
.97048 .26484 m
.96823 .26553 L
s
0 0 0 r
2 Mabswid
.95856 .22785 Mdot
.96034 .23376 Mdot
.95794 .22708 Mdot
.96022 .23464 Mdot
0 g
.5 Mabswid
.95982 .24054 m
.95876 .23091 L
s
.95876 .23091 m
.95428 .22449 L
s
0 0 0 r
2 Mabswid
.95746 .22698 Mdot
.95985 .23488 Mdot
.9572 .22755 Mdot
.95928 .23444 Mdot
.95722 .2287 Mdot
0 g
.5 Mabswid
.94551 .19975 m
.94702 .19692 L
s
0 0 0 r
2 Mabswid
.95863 .23338 Mdot
0 g
.5 Mabswid
.75157 .1966 m
.74815 .18801 L
s
.75233 .19635 m
.75157 .1966 L
s
.75433 .20563 m
.75157 .1966 L
s
0 0 0 r
2 Mabswid
.9575 .23024 Mdot
0 g
.5 Mabswid
.74891 .18776 m
.75233 .19635 L
s
.75233 .19635 m
.7551 .20538 L
s
0 0 0 r
2 Mabswid
.958 .23189 Mdot
0 g
.5 Mabswid
.75627 .21449 m
.75433 .20563 L
s
.75433 .20563 m
.7551 .20538 L
s
.7551 .20538 m
.75704 .21425 L
s
.74815 .18801 m
.74891 .18776 L
s
.74815 .18801 m
.74432 .18042 L
s
.74508 .18017 m
.74891 .18776 L
s
.96823 .26553 m
.96532 .26386 L
s
.75627 .21449 m
.75704 .21425 L
s
.95982 .24054 m
.96088 .2502 L
s
.95428 .22449 m
.94977 .21803 L
s
.74432 .18042 m
.74508 .18017 L
s
.656 .751 .92 r
.74734 .21768 m .75802 .22236 L .75726 .22261 L F
0 g
.75721 .22943 m
.75726 .22261 L
s
.75627 .21449 m
.75718 .222 L
s
.656 .751 .92 r
.74734 .21768 m .75297 .21589 L .75802 .22236 L F
0 g
.75798 .22919 m
.75802 .22236 L
s
.75704 .21425 m
.75802 .22236 L
s
.75726 .22261 m
.75802 .22236 L
s
.9449 .20474 m
.94551 .19975 L
s
.96532 .26386 m
.96195 .25992 L
s
.96088 .2502 m
.96195 .25992 L
s
.544 .324 .532 r
.74031 .17434 m .74165 .18363 L .73602 .18545 L F
.74031 .17434 m .74108 .17409 L .74165 .18363 L F
0 g
.74117 .17564 m
.74432 .18042 L
s
.74108 .17409 m
.74508 .18017 L
s
.74031 .17434 m
.74108 .17409 L
s
.73641 .17018 m
.74031 .17434 L
s
.73718 .16993 m
.74108 .17409 L
s
.94977 .21803 m
.94524 .21154 L
s
.989 g
.74125 .20461 m
.74832 .20232 L
s
0 g
.75613 .23449 m
.75721 .22943 L
s
.75721 .22943 m
.75798 .22919 L
s
.656 .751 .92 r
.7395 .21207 m .75297 .21589 L .74734 .21768 L F
0 g
.74734 .21768 m
.75726 .22261 L
s
.009 g
.12389 .40099 m
.74021 .21258 L
s
.74073 .21242 m
.74287 .21176 L
s
0 g
.75798 .22919 m
.7569 .23425 L
s
.94524 .21154 m
.9449 .20474 L
s
.656 .751 .92 r
.7395 .21207 m .7479 .20939 L .75297 .21589 L F
.989 g
.74825 .20984 m
.74989 .20926 L
s
0 g
.75297 .21589 m
.75802 .22236 L
s
.544 .324 .532 r
.73602 .18545 m .74222 .19322 L .73382 .19592 L F
.989 g
.73865 .19757 m
.74579 .19547 L
s
.009 g
.12389 .40099 m
.73462 .19212 L
s
.544 .324 .532 r
.73602 .18545 m .74165 .18363 L .74222 .19322 L F
0 g
.73602 .18545 m
.74031 .17434 L
s
.74108 .17409 m
.74165 .18363 L
s
.766 g
.74832 .20232 m
.90326 .15146 L
s
0 0 0 r
2 Mabswid
.74832 .20232 Mdot
0 g
.5 Mabswid
.96195 .25992 m
.95835 .25397 L
s
.96195 .25992 m
.96195 .25992 L
s
.766 g
.74579 .19547 m
.90328 .15153 L
s
0 0 0 r
2 Mabswid
.74579 .19547 Mdot
.989 g
.5 Mabswid
.74203 .19007 m
.74274 .18988 L
s
.766 g
.74989 .20926 m
.90324 .1514 L
s
0 0 0 r
2 Mabswid
.74989 .20926 Mdot
0 g
.5 Mabswid
.73641 .17018 m
.73718 .16993 L
s
.73641 .17018 m
.73287 .16825 L
s
.73364 .168 m
.73718 .16993 L
s
.989 g
.74323 .21779 m
.75025 .21511 L
s
.656 .751 .92 r
.73348 .20583 m .7479 .20939 L .7395 .21207 L F
0 g
.7395 .21207 m
.74734 .21768 L
s
.75409 .23745 m
.75613 .23449 L
s
.75613 .23449 m
.7569 .23425 L
s
.766 g
.74274 .18988 m
.90331 .15158 L
s
0 0 0 r
2 Mabswid
.74274 .18988 Mdot
0 g
.5 Mabswid
.7569 .23425 m
.75486 .2372 L
s
.94651 .2197 m
.94524 .21154 L
s
.94524 .21154 m
.94524 .21154 L
s
.544 .324 .532 r
.73382 .19592 m .74279 .20285 L .73348 .20583 L F
.73382 .19592 m .74222 .19322 L .74279 .20285 L F
0 g
.73382 .19592 m
.73602 .18545 L
s
.74165 .18363 m
.74222 .19322 L
s
.766 g
.75025 .21511 m
.90177 .15195 L
s
.90177 .15195 m
.90323 .15134 L
s
0 0 0 r
2 Mabswid
.75025 .21511 Mdot
0 g
.5 Mabswid
.95835 .25397 m
.95476 .24641 L
s
.989 g
.73235 .18835 m
.73969 .18652 L
s
0 0 0 r
2 Mabswid
.73235 .18835 Mdot
.656 .751 .92 r
.73348 .20583 m .74279 .20285 L .7479 .20939 L F
0 g
.5 Mabswid
.7479 .20939 m
.75297 .21589 L
s
.989 g
.74226 .22166 m
.74932 .21886 L
s
0 g
.94862 .22865 m
.94651 .2197 L
s
.766 g
.73969 .18652 m
.90333 .15162 L
s
0 0 0 r
2 Mabswid
.73969 .18652 Mdot
0 g
.5 Mabswid
.73287 .16825 m
.73364 .168 L
s
.73287 .16825 m
.72993 .16868 L
s
.7307 .16843 m
.73364 .168 L
s
.95476 .24641 m
.95144 .23777 L
s
.95144 .23777 m
.94862 .22865 L
s
.766 g
.74932 .21886 m
.90324 .15131 L
s
0 0 0 r
2 Mabswid
.74932 .21886 Mdot
.544 .324 .532 r
.73348 .20583 m .74337 .21252 L .73493 .21521 L F
.73348 .20583 m .74279 .20285 L .74337 .21252 L F
.656 .751 .92 r
.72923 .19898 m .74279 .20285 L .73348 .20583 L F
0 g
.5 Mabswid
.73367 .20025 m
.73382 .19592 L
s
.009 g
.12389 .40099 m
.72973 .18779 L
s
0 g
.75121 .23807 m
.75409 .23745 L
s
.75409 .23745 m
.75486 .2372 L
s
.75486 .2372 m
.75198 .23783 L
s
.989 g
.72973 .18779 m
.73716 .18596 L
s
.74012 .22269 m
.74726 .21986 L
s
.656 .751 .92 r
.72923 .19898 m .73766 .19627 L .74279 .20285 L F
0 g
.74279 .20285 m
.7479 .20939 L
s
.74222 .19322 m
.74279 .20285 L
s
.766 g
.73716 .18596 m
.90335 .15162 L
s
0 0 0 r
2 Mabswid
.73716 .18596 Mdot
0 g
.5 Mabswid
.72993 .16868 m
.7307 .16843 L
s
.72993 .16868 m
.72781 .17146 L
s
.766 g
.74726 .21986 m
.90326 .1513 L
s
0 0 0 r
2 Mabswid
.74726 .21986 Mdot
0 g
.5 Mabswid
.72858 .17121 m
.7307 .16843 L
s
.544 .324 .532 r
.73493 .21521 m .74394 .22224 L .73826 .22405 L F
.73493 .21521 m .74337 .21252 L .74394 .22224 L F
.009 g
.12389 .40099 m
.73702 .22074 L
s
0 g
.73348 .20583 m
.73493 .21521 L
s
.74279 .20285 m
.74337 .21252 L
s
.989 g
.72811 .19024 m
.7356 .18834 L
s
.656 .751 .92 r
.72682 .19149 m .73766 .19627 L .72923 .19898 L F
0 g
.72923 .19898 m
.73348 .20583 L
s
.74768 .23631 m
.75121 .23807 L
s
.75121 .23807 m
.75198 .23783 L
s
.75198 .23783 m
.74846 .23606 L
s
.989 g
.7437 .21818 m
.74441 .21791 L
s
.766 g
.7356 .18834 m
.90337 .1516 L
s
0 0 0 r
2 Mabswid
.7356 .18834 Mdot
.656 .751 .92 r
.72682 .19149 m .7325 .18966 L .73766 .19627 L F
.009 g
.5 Mabswid
.12389 .40099 m
.72777 .19528 L
s
0 g
.73766 .19627 m
.74279 .20285 L
s
.766 g
.74441 .21791 m
.90328 .15132 L
s
0 0 0 r
2 Mabswid
.74441 .21791 Mdot
.989 g
.5 Mabswid
.72777 .19528 m
.73529 .19323 L
s
0 0 0 r
2 Mabswid
.72777 .19528 Mdot
.989 g
.5 Mabswid
.73393 .21599 m
.74127 .21334 L
s
0 0 0 r
2 Mabswid
.73393 .21599 Mdot
0 g
.5 Mabswid
.72781 .17146 m
.72858 .17121 L
s
.72781 .17146 m
.72664 .17644 L
s
.72742 .17618 m
.72858 .17121 L
s
.544 .324 .532 r
.73826 .22405 m .74453 .23201 L .74375 .23225 L F
.73826 .22405 m .74394 .22224 L .74453 .23201 L F
0 g
.73493 .21521 m
.73826 .22405 L
s
.73826 .22405 m
.74375 .23225 L
s
.74337 .21252 m
.74394 .22224 L
s
.766 g
.73529 .19323 m
.90337 .15156 L
s
0 0 0 r
2 Mabswid
.73529 .19323 Mdot
.989 g
.5 Mabswid
.72877 .20206 m
.73627 .19982 L
s
0 0 0 r
2 Mabswid
.72877 .20206 Mdot
.989 g
.5 Mabswid
.73095 .20939 m
.73839 .20693 L
s
0 0 0 r
2 Mabswid
.73095 .20939 Mdot
0 g
.5 Mabswid
.74375 .23225 m
.74768 .23631 L
s
.74768 .23631 m
.74846 .23606 L
s
.766 g
.74127 .21334 m
.90177 .15195 L
s
.90177 .15195 m
.90331 .15136 L
s
0 0 0 r
2 Mabswid
.74127 .21334 Mdot
0 g
.5 Mabswid
.74453 .23201 m
.74846 .23606 L
s
.74394 .22224 m
.74453 .23201 L
s
.656 .751 .92 r
.72653 .18326 m .7325 .18966 L .72682 .19149 L F
0 g
.72682 .19149 m
.72923 .19898 L
s
.766 g
.73627 .19982 m
.90177 .15195 L
s
.90177 .15195 m
.90336 .15149 L
s
0 0 0 r
2 Mabswid
.73627 .19982 Mdot
.766 g
.5 Mabswid
.73839 .20693 m
.90334 .15142 L
s
0 0 0 r
2 Mabswid
.73839 .20693 Mdot
.656 .751 .92 r
.72653 .18326 m .72731 .18301 L .7325 .18966 L F
0 g
.5 Mabswid
.72731 .18301 m
.7325 .18966 L
s
.7325 .18966 m
.73766 .19627 L
s
.72653 .18326 m
.72682 .19149 L
s
.72653 .18326 m
.72664 .17644 L
s
.72742 .17618 m
.72664 .17644 L
s
.72731 .18301 m
.72742 .17618 L
s
.73968 .22618 m
.74375 .23225 L
s
.74375 .23225 m
.74453 .23201 L
s
.74046 .22593 m
.74453 .23201 L
s
.72653 .18326 m
.72731 .18301 L
s
.72653 .18326 m
.72749 .19148 L
s
.72731 .18301 m
.72826 .19123 L
s
.73576 .21849 m
.73968 .22618 L
s
.73968 .22618 m
.74046 .22593 L
s
.74046 .22593 m
.73654 .21825 L
s
.72749 .19148 m
.72826 .19123 L
s
.72749 .19148 m
.72944 .20051 L
s
.73022 .20026 m
.72826 .19123 L
s
.73227 .20973 m
.73576 .21849 L
s
.73576 .21849 m
.73654 .21825 L
s
.73654 .21825 m
.73305 .20948 L
s
.9113 .14538 m
.91415 .1546 L
s
.90792 .13657 m
.9113 .14538 L
s
.72944 .20051 m
.73022 .20026 L
s
.72944 .20051 m
.73227 .20973 L
s
.91415 .1546 m
.91627 .16361 L
s
.73305 .20948 m
.73022 .20026 L
s
.73227 .20973 m
.73305 .20948 L
s
.90421 .12875 m
.90792 .13657 L
s
.91627 .16361 m
.91751 .17182 L
s
.90043 .12244 m
.90421 .12875 L
s
.91751 .17182 m
.9178 .17869 L
s
.91751 .17182 m
.9128 .16507 L
s
.91751 .17182 m
.91751 .17182 L
s
.89683 .11807 m
.90043 .12244 L
s
.90043 .12244 m
.90043 .12244 L
s
.90138 .13207 m
.90043 .12244 L
s
.9178 .17869 m
.91711 .18373 L
s
.9128 .16507 m
.90807 .15829 L
s
.90234 .14174 m
.90138 .13207 L
s
.89365 .11595 m
.89683 .11807 L
s
.91711 .18373 m
.91547 .18661 L
s
.90807 .15829 m
.9033 .15146 L
s
.9033 .15146 m
.90234 .14174 L
s
.89111 .11624 m
.89365 .11595 L
s
.91547 .18661 m
.91299 .1871 L
s
0 0 0 r
2 Mabswid
.90334 .15142 Mdot
.90336 .15149 Mdot
.90331 .15136 Mdot
.90337 .15156 Mdot
.90328 .15132 Mdot
.90337 .1516 Mdot
.90326 .1513 Mdot
.90335 .15162 Mdot
0 g
.5 Mabswid
.90427 .16122 m
.9033 .15146 L
s
.9033 .15146 m
.89851 .1446 L
s
0 0 0 r
2 Mabswid
.90324 .15131 Mdot
.90333 .15162 Mdot
.90323 .15134 Mdot
.90331 .15158 Mdot
.90324 .1514 Mdot
.90328 .15153 Mdot
.90326 .15146 Mdot
0 g
.5 Mabswid
.88939 .11894 m
.89111 .11624 L
s
.6919 .12522 m
.68904 .1159 L
s
.68904 .1159 m
.68982 .11564 L
s
.68904 .1159 m
.68547 .10696 L
s
.68982 .11564 m
.69268 .12496 L
s
.68625 .1067 m
.68982 .11564 L
s
.69385 .13432 m
.6919 .12522 L
s
.6919 .12522 m
.69268 .12496 L
s
.69268 .12496 m
.69463 .13406 L
s
.68547 .10696 m
.68625 .1067 L
s
.68547 .10696 m
.68142 .09901 L
s
.68221 .09874 m
.68625 .1067 L
s
.91299 .1871 m
.90983 .18516 L
s
.69385 .13432 m
.69463 .13406 L
s
.90524 .17103 m
.90427 .16122 L
s
.89851 .1446 m
.89369 .13769 L
s
.68142 .09901 m
.68221 .09874 L
s
.656 .751 .92 r
.68438 .13732 m .69555 .14232 L .69477 .14258 L F
0 g
.69459 .14947 m
.69477 .14258 L
s
0 0 0 r
2 Mabswid
.69477 .14258 Mdot
0 g
.5 Mabswid
.69385 .13432 m
.69469 .14194 L
s
.06628 .35023 m
.69477 .14258 L
s
.992 g
.68148 .11909 m
.68655 .11744 L
s
0 0 0 r
2 Mabswid
.68148 .11909 Mdot
.656 .751 .92 r
.68438 .13732 m .69015 .13541 L .69555 .14232 L F
0 g
.5 Mabswid
.69537 .14921 m
.69555 .14232 L
s
.69463 .13406 m
.69555 .14232 L
s
.999 g
.69477 .14258 m
.69548 .14224 L
s
0 g
.69477 .14258 m
.69555 .14232 L
s
.758 g
.69548 .14224 m
.83876 .05899 L
s
0 0 0 r
2 Mabswid
.69548 .14224 Mdot
0 g
.5 Mabswid
.88862 .12389 m
.88939 .11894 L
s
.90983 .18516 m
.90621 .18089 L
s
.763 g
.68655 .11744 m
.84219 .06752 L
s
0 0 0 r
2 Mabswid
.68655 .11744 Mdot
0 g
.5 Mabswid
.90621 .18089 m
.90524 .17103 L
s
.532 .307 .519 r
.67716 .09256 m .67838 .10197 L .67261 .10391 L F
.67716 .09256 m .67795 .0923 L .67838 .10197 L F
0 g
.04936 .30474 m
.67716 .09256 L
s
.67802 .09385 m
.68142 .09901 L
s
.67795 .0923 m
.68221 .09874 L
s
.999 g
.67716 .09256 m
.67795 .09242 L
s
0 0 0 r
2 Mabswid
.67716 .09256 Mdot
0 g
.5 Mabswid
.67716 .09256 m
.67795 .0923 L
s
.67297 .08807 m
.67716 .09256 L
s
.67376 .0878 m
.67795 .0923 L
s
.758 g
.67795 .09242 m
.84483 .07651 L
s
0 0 0 r
2 Mabswid
.67795 .09242 Mdot
0 g
.5 Mabswid
.89369 .13769 m
.88885 .13075 L
s
.69331 .1545 m
.69459 .14947 L
s
.69459 .14947 m
.69537 .14921 L
s
.656 .751 .92 r
.67612 .13132 m .69015 .13541 L .68438 .13732 L F
0 g
.68438 .13732 m
.69477 .14258 L
s
.69537 .14921 m
.6941 .15424 L
s
.88885 .13075 m
.88862 .12389 L
s
.656 .751 .92 r
.67612 .13132 m .68472 .12845 L .69015 .13541 L F
.01 g
.05641 .34154 m
.68 .13441 L
s
0 g
.69015 .13541 m
.69555 .14232 L
s
.532 .307 .519 r
.67261 .10391 m .67882 .11169 L .67022 .11458 L F
.01 g
.04792 .31871 m
.67117 .10932 L
s
.532 .307 .519 r
.67261 .10391 m .67838 .10197 L .67882 .11169 L F
0 g
.67261 .10391 m
.67716 .09256 L
s
.67795 .0923 m
.67838 .10197 L
s
.989 g
.68 .13441 m
.68714 .13155 L
s
0 0 0 r
2 Mabswid
.68 .13441 Mdot
0 g
.5 Mabswid
.90621 .18089 m
.90237 .17458 L
s
.90621 .18089 m
.90621 .18089 L
s
.67297 .08807 m
.67376 .0878 L
s
.67297 .08807 m
.66913 .08584 L
s
.66992 .08557 m
.67376 .0878 L
s
.989 g
.67117 .10932 m
.67863 .10736 L
s
0 0 0 r
2 Mabswid
.67117 .10932 Mdot
.765 g
.5 Mabswid
.68714 .13155 m
.84204 .0637 L
s
0 0 0 r
2 Mabswid
.68714 .13155 Mdot
.656 .751 .92 r
.66972 .12465 m .68472 .12845 L .67612 .13132 L F
0 g
.5 Mabswid
.67612 .13132 m
.68438 .13732 L
s
.69102 .15733 m
.69331 .1545 L
s
.69331 .1545 m
.6941 .15424 L
s
.6941 .15424 m
.69181 .15707 L
s
.89007 .13907 m
.88885 .13075 L
s
.88885 .13075 m
.88885 .13075 L
s
.532 .307 .519 r
.67022 .11458 m .67927 .12146 L .66972 .12465 L F
.67022 .11458 m .67882 .11169 L .67927 .12146 L F
0 g
.67022 .11458 m
.67261 .10391 L
s
.67838 .10197 m
.67882 .11169 L
s
.765 g
.67863 .10736 m
.84429 .07018 L
s
0 0 0 r
2 Mabswid
.67863 .10736 Mdot
0 g
.5 Mabswid
.90237 .17458 m
.89859 .16666 L
s
.656 .751 .92 r
.66972 .12465 m .67927 .12146 L .68472 .12845 L F
0 g
.68472 .12845 m
.69015 .13541 L
s
.89221 .14825 m
.89007 .13907 L
s
.66913 .08584 m
.66992 .08557 L
s
.66913 .08584 m
.66591 .08604 L
s
.6667 .08578 m
.66992 .08557 L
s
.89859 .16666 m
.89512 .15767 L
s
.992 g
.68282 .1484 m
.6879 .14597 L
s
0 0 0 r
2 Mabswid
.68282 .1484 Mdot
0 g
.5 Mabswid
.89512 .15767 m
.89221 .14825 L
s
.532 .307 .519 r
.66972 .12465 m .67971 .13127 L .67106 .13415 L F
.66972 .12465 m .67927 .12146 L .67971 .13127 L F
.656 .751 .92 r
.66513 .11732 m .67927 .12146 L .66972 .12465 L F
0 0 0 r
2 Mabswid
.66972 .12465 Mdot
.013 g
.5 Mabswid
.04647 .33278 m
.66972 .12465 L
s
0 g
.67001 .11875 m
.67022 .11458 L
s
.68786 .15774 m
.69102 .15733 L
s
.69102 .15733 m
.69181 .15707 L
s
.69181 .15707 m
.68865 .15748 L
s
.763 g
.6879 .14597 m
.84148 .0593 L
s
0 0 0 r
2 Mabswid
.6879 .14597 Mdot
.992 g
.5 Mabswid
.66507 .09803 m
.67062 .09691 L
s
0 0 0 r
2 Mabswid
.66507 .09803 Mdot
.656 .751 .92 r
.66513 .11732 m .67378 .11442 L .67927 .12146 L F
0 0 0 r
.67927 .12146 Mdot
.767 g
.5 Mabswid
.67927 .12146 m
.84397 .06646 L
s
0 g
.67927 .12146 m
.68472 .12845 L
s
.986 g
.66972 .12465 m
.67927 .12146 L
s
0 g
.67882 .11169 m
.67927 .12146 L
s
.763 g
.67062 .09691 m
.84645 .07361 L
s
0 0 0 r
2 Mabswid
.67062 .09691 Mdot
0 g
.5 Mabswid
.66591 .08604 m
.6667 .08578 L
s
.66591 .08604 m
.66353 .08869 L
s
.66432 .08842 m
.6667 .08578 L
s
.532 .307 .519 r
.67106 .13415 m .68016 .14113 L .67433 .14306 L F
.67106 .13415 m .67971 .13127 L .68016 .14113 L F
.01 g
.04502 .34694 m
.67244 .13868 L
s
0 g
.66972 .12465 m
.67106 .13415 L
s
.67927 .12146 m
.67971 .13127 L
s
.656 .751 .92 r
.66243 .10931 m .67378 .11442 L .66513 .11732 L F
0 g
.66513 .11732 m
.66972 .12465 L
s
.68403 .15569 m
.68786 .15774 L
s
.68786 .15774 m
.68865 .15748 L
s
.68865 .15748 m
.68483 .15543 L
s
.989 g
.67244 .13868 m
.67991 .13565 L
s
0 0 0 r
2 Mabswid
.67244 .13868 Mdot
.656 .751 .92 r
.66243 .10931 m .66825 .10735 L .67378 .11442 L F
.01 g
.5 Mabswid
.03646 .32395 m
.66353 .11341 L
s
0 g
.67378 .11442 m
.67927 .12146 L
s
.989 g
.66353 .11341 m
.67132 .11128 L
s
0 0 0 r
2 Mabswid
.66353 .11341 Mdot
.765 g
.5 Mabswid
.67991 .13565 m
.84365 .06274 L
s
0 0 0 r
2 Mabswid
.67991 .13565 Mdot
0 g
.5 Mabswid
.66353 .08869 m
.66432 .08842 L
s
.66353 .08869 m
.66216 .09362 L
s
.66295 .09335 m
.66432 .08842 L
s
.532 .307 .519 r
.67433 .14306 m .6806 .15104 L .67981 .1513 L F
0 g
.04355 .36119 m
.67981 .1513 L
s
.532 .307 .519 r
.67433 .14306 m .68016 .14113 L .6806 .15104 L F
0 g
.67106 .13415 m
.67433 .14306 L
s
.67433 .14306 m
.67981 .1513 L
s
.67971 .13127 m
.68016 .14113 L
s
.765 g
.67132 .11128 m
.84589 .06921 L
s
0 0 0 r
2 Mabswid
.67132 .11128 Mdot
0 g
.5 Mabswid
.67981 .1513 m
.68403 .15569 L
s
.68403 .15569 m
.68483 .15543 L
s
.6806 .15104 m
.68483 .15543 L
s
.68016 .14113 m
.6806 .15104 L
s
.656 .751 .92 r
.66191 .1005 m .66825 .10735 L .66243 .10931 L F
0 g
.66243 .10931 m
.66513 .11732 L
s
.656 .751 .92 r
.66191 .1005 m .6627 .10023 L .66825 .10735 L F
0 g
.6627 .10023 m
.66825 .10735 L
s
.02636 .31506 m
.66191 .1005 L
s
.66825 .10735 m
.67378 .11442 L
s
.66191 .1005 m
.66243 .10931 L
s
.66191 .1005 m
.66216 .09362 L
s
.66295 .09335 m
.66216 .09362 L
s
.6627 .10023 m
.66295 .09335 L
s
.999 g
.67981 .1513 m
.6806 .15091 L
s
0 0 0 r
2 Mabswid
.67981 .1513 Mdot
0 g
.5 Mabswid
.67548 .14485 m
.67981 .1513 L
s
.67981 .1513 m
.6806 .15104 L
s
.758 g
.6806 .15091 m
.8431 .05646 L
s
0 0 0 r
2 Mabswid
.6806 .15091 Mdot
.992 g
.5 Mabswid
.66631 .12744 m
.67187 .12554 L
s
0 0 0 r
2 Mabswid
.66631 .12744 Mdot
0 g
.5 Mabswid
.67627 .14459 m
.6806 .15104 L
s
.763 g
.67187 .12554 m
.84574 .0654 L
s
0 0 0 r
2 Mabswid
.67187 .12554 Mdot
.999 g
.5 Mabswid
.66191 .1005 m
.66277 .10032 L
s
0 0 0 r
2 Mabswid
.66191 .1005 Mdot
0 g
.5 Mabswid
.66191 .1005 m
.6627 .10023 L
s
.66191 .1005 m
.66279 .10887 L
s
.758 g
.66277 .10032 m
.84915 .07388 L
s
0 0 0 r
2 Mabswid
.66277 .10032 Mdot
0 g
.5 Mabswid
.6627 .10023 m
.66359 .1086 L
s
.67133 .13679 m
.67548 .14485 L
s
.67548 .14485 m
.67627 .14459 L
s
.67627 .14459 m
.67213 .13653 L
s
.66279 .10887 m
.66359 .1086 L
s
.66279 .10887 m
.66476 .11815 L
s
.66556 .11788 m
.66359 .1086 L
s
.66768 .12768 m
.67133 .13679 L
s
.67133 .13679 m
.67213 .13653 L
s
.67213 .13653 m
.66847 .12741 L
s
.85291 .06112 m
.85585 .07065 L
s
.84937 .05195 m
.85291 .06112 L
s
.66476 .11815 m
.66556 .11788 L
s
.66476 .11815 m
.66768 .12768 L
s
.85585 .07065 m
.85799 .0799 L
s
.66847 .12741 m
.66556 .11788 L
s
.66768 .12768 m
.66847 .12741 L
s
.84545 .04375 m
.84937 .05195 L
s
.85799 .0799 m
.85919 .08826 L
s
.84143 .03705 m
.84545 .04375 L
s
.85919 .08826 m
.85936 .09518 L
s
.85919 .08826 m
.85414 .08103 L
s
.85919 .08826 m
.85919 .08826 L
s
.83755 .03231 m
.84143 .03705 L
s
.84143 .03705 m
.84143 .03705 L
s
.84227 .0468 m
.84143 .03705 L
s
.85936 .09518 m
.85848 .10018 L
s
.85414 .08103 m
.84907 .07377 L
s
.84312 .05661 m
.84227 .0468 L
s
.83409 .02988 m
.83755 .03231 L
s
.85848 .10018 m
.85662 .10292 L
s
0 0 0 r
2 Mabswid
.84915 .07388 Mdot
0 g
.5 Mabswid
.84907 .07377 m
.84397 .06646 L
s
0 0 0 r
2 Mabswid
.8431 .05646 Mdot
0 g
.5 Mabswid
.84397 .06646 m
.84312 .05661 L
s
0 0 0 r
2 Mabswid
.84574 .0654 Mdot
0 g
.5 Mabswid
.83129 .02992 m
.83409 .02988 L
s
0 0 0 r
2 Mabswid
.84589 .06921 Mdot
0 g
.5 Mabswid
.85662 .10292 m
.85388 .10318 L
s
0 0 0 r
2 Mabswid
.84365 .06274 Mdot
.84645 .07361 Mdot
.84397 .06646 Mdot
0 g
.5 Mabswid
.84482 .07636 m
.84397 .06646 L
s
.84397 .06646 m
.83883 .0591 L
s
0 0 0 r
2 Mabswid
.84148 .0593 Mdot
.84429 .07018 Mdot
0 g
.5 Mabswid
.82933 .03246 m
.83129 .02992 L
s
0 0 0 r
2 Mabswid
.84204 .0637 Mdot
0 g
.5 Mabswid
.85388 .10318 m
.85044 .10093 L
s
0 0 0 r
2 Mabswid
.84219 .06752 Mdot
0 g
.5 Mabswid
.84568 .0863 m
.84482 .07636 L
s
0 0 0 r
2 Mabswid
.84483 .07651 Mdot
0 g
.5 Mabswid
.83883 .0591 m
.83367 .05171 L
s
0 0 0 r
2 Mabswid
.83876 .05899 Mdot
0 g
.5 Mabswid
.82837 .03735 m
.82933 .03246 L
s
.85044 .10093 m
.84654 .0963 L
s
.84654 .0963 m
.84568 .0863 L
s
.83367 .05171 m
.82848 .04427 L
s
.82848 .04427 m
.82837 .03735 L
s
.84654 .0963 m
.84245 .08959 L
s
.84654 .0963 m
.84654 .0963 L
s
.82965 .05274 m
.82848 .04427 L
s
.82848 .04427 m
.82848 .04427 L
s
.84245 .08959 m
.83845 .08127 L
s
.83181 .06217 m
.82965 .05274 L
s
.83845 .08127 m
.83482 .07191 L
s
.83482 .07191 m
.83181 .06217 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{734.938, 381},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXQmwZkV1/udu/9tmHvNmYwRhZtj3RWMUCAiJYNBASVQCEQLMIJtsw7AN
i8M27IuKGBQX1GhMLFSCC8EYgTGLKVOxEitbaWElMSFblVVJpZKCevm7T/c5
p/ue7tv3vfcvb5xb8/9z3+17u8/5vnNOL7e7/185f8vFF15+/pZLNp6/7pTN
51918SUbr1l38pWbe5fyJZ1O9qNOZ8kt6zrqfLbTsV+zvX/w9ZL6Upd3XRjg
hY3qK1dUbPWTLtAXig7wNGs/mfr7Bvnm3Lk5F65dm/JgIVzb4j94vnBTOdcH
K9Qs6faucG1z8oO6nGv6dTu7po50seb+oGsjveNq8VmtyFibJzyRuoZkzyL1
31cteAa+ZaqjEjDIhGuXpzhT75AMtkV+siapmb5vIJlujGSao1lI2V8mZ9Us
w0LkSAKr44UXXgiikJ5pbpR+8cUXMVHK8VI/x03eTUqcTH8XTmYBC43mp3KB
/Ho5kZhJcm00Vm3hUbLYXHR+eUikS0R31TrpB9nt6i+4ViIf9qCrDdmfh9kb
yJgZkuYMTnMkyX6uJ3uJcnNygPeis2PHjtYlvAdLqAw6FglAR+WZO3oFkb/Y
z/tszLvUOXQd6dXHSowIpWd+lrlJAW+zqwxIKltejDoK4sKNvBLLtdLOrMHE
yyg8w0K/1KwVoVIu8kt5F5YyyXwGSmBewDwB3N56CcCYUNCvYkHTHBabDxiz
+paja1IZZwgEjWFpXTBqKVqo73jg5LLULPp05hO27ILZti1oOljQ3K691xfk
FPU1rkpeqoqaiihRRtJqtvhmzHdc5bsm8mxlTIKnSVm+CSixWZq4Bfhw31+b
iIVvIGKhRwkGUqIMXslFSKQ9I+pTK5cX/q/gVr3j59VZpTLtuoZpYhG6H4UU
az3qfF1T0R4C3EVeJv8t8AZzHKwuTAhiGQt2wk4hSWk/WP2uj4g6hqJwAf9F
oJVaVXups0mVf46m4/lXBUBqhHup2sQLIzfXIsDrBtl0xwWxLmRi/zOKSD2v
GRS2GxK2dFMrFJZisCTkvvMQMthRrFDcyai4uhQdUbsormHIi+lW5AMFo2yS
9Sco1xj6jS5+GRYvCTfFIooVrnCF04AeMi+RShSp7kUEHjkQyazLKF0HIqk8
mg/BAtNFowZvzozkntPutPIVgnzLUb4JxMpra5TN4h7WTtwCxQ3GsoB3r1CX
dE00SeIWfhQqMc1WC9wmj3LtKyLsPwJlGtFXX33V3GkLslgphB1LXEOBxw2f
+ompiOCVK7iG+ucEIaW2HW8N/BhNIessWbIkR7y7pqXFjb93rELblCRe2iRx
7kr8RkE6qQHHJf4RM96exHXnyjG4G5tRsFvjnp01PeXlIei1iMsiinQFRTwr
l/SSBga5Xn/v6VXv9+HzvOnElKN292SUpd0iyo1hmu3pcIc4zg0hkWb23zSx
VGBWvTs+/+1/YxrWmbPskYZUrWR4tjyi17irlybtRJSRN9R/0CR5dy6S5/yh
mrmRDjMop+7fZm68NT7Uk/0pJvFfYt4BiSeZvSiBjdCNSFO1rc9WuLLliGuO
bqFx/TKT7S/c+FKXTXtaD1MuGwcVBFViFTqyqgObZmSDjoGvFAQlEMdQ0KeZ
oN9rEnQ5K80Kmalv21JWMioJ1ad3nsHVF2u97xmErG6mk4KUzzApv9sk5UpB
ytx8q8MI1+GNnt4xTdGwJtOUK5M2v68ymf7YdRh9toaZpCq8xh1QKg5L9I4p
ggiM1IpE9WKOArH+tPp8nYm2QxDN9hOzLEPUbKVtDY8IDXUyxiQJ1cerByeQ
xmeZXM+H5CqUWKalrYSRnbNEMcqQGLkghmbu95kY3wqJUYEYtpTKcMhl6fBe
jDf4Z6sL8r6lKCdJcrlQhbydSfdcVLqySTq/HcEbYjWklrnyeSZ1uR+8bZ5c
3G9ExaWObNcT1xx2KJb7iX7EQjgdFfEKAUypjj6VSfzVqMSTmMocA0TvfZsY
BG5Tg5NaGFNI95WCNFKb6JeZhE9HJZx2MeUEOdIw0tRBtjglAHm1IJLUJH0r
E/NLrpheeSTwDN5XmZD8yiuv6HswclBInoyKuVkQSRqbPoWJ+UVPzFrlsTtK
uorVMz1JCyUor+U7PAJK8m0Jyaef5eB9IV2q1ZBB7y5b5+Z5jvf1nMnWqtav
jNl64xcZ8/ierNcmi/q5lqJya7CSWivlfs6rGutpJAGN9S0TgL4+wRDUwQ3h
M3PSo0Q97Aee1cJCm8IqwHGXQrCkyI2CImRtXPxPzUn8whc/B0Mil1Q6lI4O
lozSo6BwJO99toaE91g4manx8QVUo8K8Ss+WsJlaC731lim1PnWL5WbX1yOq
fIwZ63xVGU9Whdr8s7zd6NnVrZ4WtRHRtzBFfpPFvfkqshQLLj33ML0E/53v
bKDOllq52wRGAvNSuH4fdm0ub6nSbq5KZiRAN+eptWqLtmJZ2D2XuW1uGnxw
fhqsZJYK1sUDsemzUQONCUFVh3aOOwXxId7JKPwS0+Hh+emw2qDEezCaDW1T
ZGqs+MKLAHDNUWi7jH3s9R/X6YEF0Ak6ZcJQUV0nYtG2/OxQtmdmd0fkLxJ1
u3eBdVNn5pOTgqGuZk9A3i+1tqrbLvcK4SI2XC61ZE9kmm7vn6YFy7quLnXn
yCIfiCgi9Ryk2MmVu6N/ylH3LqKc1euhoOxJU+XezFTa1j+VqP+Xhc3TqqRV
l/TyeUpR6pb+KTXNTMp2Epwhz5y5iYogPNak6if1w05g+m3tn34rKGoUfHQB
9NP1g30vru96OKRSlqLI9f1TRKeVxtVVFU3vzRplT6DjeKbFlpAWIFruiDZ/
payFqSwcduxb/qByNDbQpNLVcZVqgq1aGK0Cjf9xlPuR1ubGtbpimFpFXscR
ax8QWYOBqBqTEU0vGyn+/HiNXNV0pmE3+OYZSez+AtP54pHS2Z+dgDhonR+A
6ETEWsWlyWVSdccVv5CiAiCmBIKBo6FCoPuvNAFDK36POpvw2JUsOkXxC0ZU
8Rlgt3fcpc6mYAg+EI8TdD6O6XweQjlaOn9UXZhWmkoaFOabX+vIvQmu7DlY
ajYCLq3HdpYrFaWpR/xluL1mM5DI53qeLei5Fogegp6PqQsrlZ6TLfWU+DyW
6XlmSM+q/1o9qi6sUVotE6QMT4SWNeVh6J1u0dkgtdKjWWuVVssTteIz9phG
XKF3uKV6zfL+KqRbeEtZBWFrRh1FV0YokV5acK1OG6JWD6FWZl5MXb9x9b06
kURqyXMN39Y/DVeB2GENT8UbTkBd85CuugGwextdPV558Hxrn7WGkqFWs5Wt
+qBUb0cyqCuiJ/Atc0EIUq8bgmlz/bnib4kqTu86+6b4aSiW1DY/Un1PIwRl
FIJKfe8VgUCaQHsMA+OkZjBMwsLp/w7UX1rarFc6jAu6av0LRMIzkDF1tt5Y
Ps8vAYQT+gRCIfv8OwVxJCT2Vd8TUSRKAQmN3T5zQ+K4PiHhvfM9UxCDXqWu
Q70zKNq2jj0LCHqFnrxzgBD/mtR/Uz/V9/rl2gHOjgKxhzqbFIAoBVfQtB80
B6Xf0Fela9Z/riAO7/vcf8Y9hM8qF4EuIlCFgoFnCnpE5FAMOE1YvG6wWDRt
K6GwUB8tu34JPOViUaE1mKkSzlmGqYcnI3AkyhzsKPcHi02CYIWJjRwLax/2
8Uk0BykK5JjadV0od6OKZDZHN7Bjr/Gu2mHDgu+iIHxVCD6aySrBl7vwjaEt
VQJ8ZGnSYpim/u3BwwLtUkEwPuhA/qe+a7UpjVB1EaLKhagSIEpdpcIhOhAJ
GzBENAeXOk8ajm7I5QoBkG4IEJ16rHEtrrwVgw/P74fCZoOIzlcxTuxMADMk
S2vNHNUlFyI4xqNwmE4QjWbbXHqf440befbHsdkwWGyuEbFRsNCt6q+eoRDZ
0kzh0kVmDJHpCoZyEubCX4fuPVjVt4AQmbpfHTRNxK5CAVG05Cpu+C39XsJE
VGGKuncxNfccgpo5qEmOb2f9lEwzx9ylfk2FHOeuykXE5u9mqq8drOrXMoYJ
hA4tqlEHq1C5/3ZMldoVdKb7clnne5nOq4egc3Cy1CyO1FgDCNq3VJMFwYgZ
wAMMjBWjA0bhuj9fd2zjQO7BAnI7RlGmG8VDDIfdhoUDOUIuZWgOWF7hNjjV
YYJiFVK/iKgvtdH2YZAsHVFIzEdezcVa4dRTk7oapes5JfpLhtcuxRLYCIOP
0sRoo0Sv+PmiSTv5vGCqWy0JmEYLep8ArgT4eoZXd/h4UaCpZ2h78db3aIo+
2JfV3kZrPrzoVNeEoGRa0uo2Kb6vY8gVg0XuOhaOHeRo+R+vv3uRqPCmLpMq
O+zY6oTrcLmLylVzQGXJEFCJVWA1dGZn+dR2E7C73vIC3sANtvYKFzepiyit
oqPupcHtVVSSdXkBwREEj0IchTHdDsgQLGkYhOJWJfiftESuhtP/LT6cpHfO
hQJLMippEkzdzAg0aWVeDbT/kUBTn8GB5plNECyYNTMJlBr/VO0H64gKMdue
cFYxSiMUlQCYtAJQenu8N5z9Vwg6fW3NEKCTJgwHkczMzVwzO6BjYaQxP1qX
6N7veC3hqY3yJgFPaS4nvLft/HRYeF6PcKQ10roCpKYNz6oQdVjT1JZIfSFa
TNgxIZEGFj0Mb2mH4X8OFcNYt7ktlh4L8u6kLqTo3FIF4/n6tiCutdHF18LJ
v2Po3Mmg5Su9aXhfnZmImQsLEi2O1GG/vTWiL6Pm1BZcdDhm6Pi0zMC+JuE1
U6e+CBLt1bum4bwTc4ut6oRZP52fLDYkvUoqEzDVZxMYmo12PUhzr0LiC+Wp
3ShV+tvbYPoPiw7TWtp4CFF+rWMCac7wq3egcVDWD8F1p5eGFGDTo85Lw8K0
1jXpD5b2zFTn9VcDdmmcra7MR1++L4ivbKd7wNkPQ5hKjrbgEN+AcErN+Big
XouJGqZFKECUHrTurwV4L5zsHkH3ylWQ1ESQDBdmmXb+Lg5yCLdknFeC4g04
x8JDGt5SleUZMK/uOu4YvgMxG2SFa3Y0aWEQ/+tBIJ4zJ7PNuSV8iuaCwx6M
GzqPkpm+PXwCZm27qiCw57dG3SD+Vz8TiEuBpULsvZda8ntrG4XaYi9dgx3q
O9/fibFnQV2ucQn5shXykmUn7WBgQP/zgYEemADdR7ylgcYK8y3d6pSN+Kj8
aTMJv0mCOOcN0P4Z2ZswFtsfkL251TeiK/cH3IRAUmIu2izHm3Ht1H6pRgIZ
lvl0/mR+IGujLxYAZAmONIS7FBoENMebnixdg6YNrzyD7orAO13DunNGgP/O
AgAPi2kKPxi3YKHWAHP5kN/Ap1HSIoJLJr8cBaVQsh3yCIx2BOOJQfyF0UC8
ZiRbk/CuIvgF8U4NMgWLmh15Xvtt8MQOPc3Q4m4/6iiQA2kl1irQ+g8XPweR
ro6AfVLQWYsWTlHmVii1/tK3bG3/BvtvLlbsJStOpYJGCBrDjr5rLySAhrS3
ounTmjBGCkBYJ6qJj2cXIR+xka+yDSUJkYn8YwNSEfyd2Mqlh17SsBrO9x5L
npQprPLufG1EObopwgM1m+KMxMfP02rp/ZEZqWOqJ/d0kY8JlxmHI8sHRjOm
s/lfGvwxND2DYiw4TasiASSNpqqZlFjlHqtMJGc5FPLqHVcI8Ocu/JWBmsNv
76r3gyWODQNfIUepbQs2f/w9uNJwj3cpytAtBOycqhIi4gmEX1+jlZdFrSrh
gBatsX9qVLGPNKXKyF3tK40yCr/OZcq1/sINSOIoW/qo3ApI/d2fLSKSvEBv
yjTmWTw86QccjxipWp4jMb/df2IksxwoRW2rc8lnPLJC3T0IUE44I9qkjakk
HwuMtZrG8W8NgLH2byrNbvILw5c8VjgW4sb8knTvOAZZotn7Xt8jsAyIlvbr
JF0lSRtshWOi+2rZkPXp0SWrWkBq0qKebiGci2TV5Xp9Kn3CNYlAvh+wHxOl
aX6GtE/uFKTFWs5to995CZ6gDr0BxLhLoNStKVyydAtkeYQsGnEwFD2x81Ak
9UKlUKep3BQKP/rSQSH4g9vX0H1EBEAs/0KCLsY0rh/HC/SjPTsB9i3cQtoN
g9777YNsFAIbnjMQB3pztjUyB9L+TaYh9xh5hNDRb5yF1F9e4OHSf1j/3YIp
qSHXgjPtQdJCTwovewuceQMDhcCZNBqt73tNax4/NPo8yg28sgWPcoXUdTmj
XKXfEuSTnx989/1WTP3CYEIg0HM6b4OrIIF7eUU3sPfIiLJ3C+TeJ/a6Anvk
cdJv7gXY0zXLJHJWCewVLmcFMuq16WfNEMc6gUDpLd4MpD44ygRWC0hXY8ik
cqRf++NDzopA9dF/TbsO6JFEsbQUUgMdan3XvomOaHi8bxePxv2ouRJcsmj2
UrA8Mogn0CE9Nj2HbMGm9sr927F5907Cpk4bc0NmIXictLavMIFTYiq+x1oW
4o+8kXb4owXC9UESejFyMNwVZ+3OnYm1FlUf5XqrAA4fqLU8Wi6ltTVeLKW1
yFQxEvMVnmUgWO/ssIbwba+ZJsxti4O1Cn1nrqwF0iR/vB3NvTDweewF3Y6o
oW0MPbfz9vKr5WJ5PCpoTCKPt44oj+YXO7N4h3BezAbj6l0MLmevvU7uLCcM
jpd4nub5oUhnJIpKu1hKA8yG0ZtGmVHNmtdBL5CHbhNvlXsXtVz0GZ+R7u8D
qA62Ywinzh6Zy4vnhF03Ncaa9sM3shBgGbL448ToxUiSN5OvXWNUcrf7QKNt
27bxlXmWsA7t7sK6gCJZ1KiskIY0smirccPPdeRE8shxoJc8Qux03TMPef3E
A4i8KUudIcB2LVmhgM+413CbJtCpxRgDPZaWIyGwKTvs7BmjoRod0EuEuovX
JHM3P5Lrgm4+tV3HbOPB29XRG+OgADUv0GEDeJh1NjKgE3Ae1I1VhGTxD0bA
J3g5Axap3PDAbd8hgSy/aCLBrE926hepHfEegOXynYmQws3jIQpBuUNIxijR
Zx389VInJsnrYOtOQdekbYfICX4Dcrq0/5g3rjd+vxA9WmAuRSCN/sOgbA/V
QkIfEAwEogyBpwZtK5ADUegCUP6iAcEORUSWYb4/FPXzdBaoRiAWpNwejgQl
U5KuG2axd0k7m/pjA144sdFK2ptMoqhAP9gEz2/ihHj2ObqEdAX4KfDos0eS
QKf3tKVQJ1BnjzWKAPxARA9iHnALeHcMv83RyMJqQ7XCjf1SlJFv8CxQW7Rq
doIPNFcEmhF4K1Pxpqo+TJ+B7+VjfUIyfrMoLkSEQN0lAPy5g6QisGY5lQXq
VHsseL7wQawQPJxzt+o1zR+24Q+1Rs1YpYXMSuxtsk4tH7YpZ83qYZPczq8P
EmpvUW0riBvjP71d8UCPNUVzwRmIFTv90/MDvksq3yEV0Kh33yTfiPsB7MPb
+bUhkrMtGknmTo6U24coLsVoqqV1XaZyoYeRs7aUbR5J43wSPXr+I7wz77xr
4FTU2tttSaEKOhiUHsVQVEQokGCmiTqlQlgyex9rtG5v7kcgQMG77s4Zgwe+
Vs5tbWD3auS45T8q1AoS3HaeBI9EupvQC0Z8uNxWx3Z0j8KMB7q27etA0dNH
BeLJEJxeIPGs+MNNUT4OKzzZRTu1h8LV4slHJiy2nXrH2G2wBsYoYPtdM3/W
dZnXLw4mEgz7saaQ7nEiNUh582h2Vtxr1mUF26ez9sW5OD83UOneFOblqFHh
Jdhayl1euolc6e+PIB8iMzX+zCJD60l0lhEp9IYIunQ2AtVGtkUXgbf1nZOb
YJfmoo4QC7EXNF40k3L7CFYOWTov5C853p9RCKNeG9q9GYOytMSnqcN+wp1f
TGNGHgPtGzm3R0MSOQERULiEBV3k8Ug4mzs5dhlavVav7ambs1dFosvcAWCc
iHwvWmKkeiboI4+7sUsa3KgwSMVYoVA2zpjq4F68NBau/xQ52A56H0/OkTsD
rIuTgCz0rP7+qFB5lC6qFIgK99o4XstRgZLV6coHDLRmo9N6nW5+Me9YHpC8
Qe3GV/0jBLsXkCbU2ccQ2KwZYi/EjLkQe3V1wcBmI0p20qH3MwjmF/r2NOBw
FtaOLvyTiVAHt2d7ojX8FEu8qF9rNCEHNJrEubCzV1iXI8bC6kXDAjVSiYV4
nElloXJxlpzA46gwevJamDeWrDoFKmooOJrD7Sk9PLjvwLjhwU1hvWw2+o9H
4ZZ6a1Ub888R+BIdwcdcfaRt2kzEP2LE0ae5sYR+asj5hIt+6aGfNEIX7KWR
I0wg9lk77FcKSTS9YTHyoVPH1dknFwp7ryaWsDejrjECaFNJGfaZxQ970A3a
UsFa+kKA8lqgwfuIHtrItpPzt/9sC0TDzP6LkIXcZUHf9ykWkpMRj7f0E3Be
FsK55gH70p2jhnOw5ZKAfdADnlwoPqRglLsszLRjIV9EmHstfwr2T2KE8Sy0
wPDciHSwMZTgAxmivwYVltZxmXp3/QgAfyeCl7mASnPh9H2fnjPIJYHXVO8m
QLwn2jFZtGnK7zXywHoRQ9/3GSE6NMKZarPB+wjQ9Qhj6QO6xyIC1Asgulv6
2RC0XQ/INLuU34GNqzN/AS78Vb9mYu/uowLshABdIUDsTcmRovVnQwGCuonU
AQ0AGm/7Be1YU3AIWi8Njd0DSlOvZoXI0wij753pxc6fQ2NOQDoYAYiHhEih
ET4SnujYnzQBNNMWYg0TSG/0RDJe6docYG5qyo25gD4Pyhw4NPDuwuAaH9r2
YoC2ws8vADwsFvivexygvgOC7zeiQEnBUqqPNGSTLjwF2kXcXevgETx/CuLu
A+44wvDQmXefvvaFkEVlAmTNFlX6afpvydp0c+B7DMR80UNG3UKCzG/1CC4n
AfN9EH0dajttIKg3doYIlhenJLB+JxGs3AVrKgTMD0DM16JmM8bCODDzXerR
V0T0PtITgvax9R4x75IMS2P1t6DAHhii5uVdK0CO+cMT9y4PHq//wMJQsyfp
az8EMY+Yt+qNy0+2Q62Spn/QPL6I+tP7Iy8MS86hU38Muh46bF3jrcKg1sFq
iJCgMBG0BCkX/ew/ATozQiQ1gLQOGf0Cy7s2pb6fojiQCJE+mwzB8TLAccC8
VQ+sA2qldd5sIk9BeKnrSo4xEdL1P0C4feetq7fWYwF11Ne+JOiYuXyuUGc/
BX02QGQfuj5L1dmXUXaPgULQYkad/TfTokVc8mS+G3JuIXPCNc3GV5o1qlyN
/hc02hs1Cjbb0rQ05dojWxB9J9volqFu8MPCMH1GCycF0kS1asHinpBSY2hk
Ogg+HRI7FyhZrs5mwUd0ea+B83aWFhB2BgWTIra2n98Db2oUNnOFhekDsBH5
/EX0BNOjNs+0EWw3FGwCSjlk3oJNJVpqgrBB6yWxl4EMBwH5AxBbt4G/hgGv
ldjTKPYMEztPElKPEE4KAk3PTSDv2lIUzexDtFwIADMLIK40Oqgx/XobFaRr
pALsas1GHtLE3S0q2gqhyCksEvZh7qxHO5xnkd/AsBEscgPk+LqkgvZQmT4L
pKTBOYkFwbsYWO6TpRe0F2ZwMNy5u2BSJlaL+entudaq/J5D7/GEnMAyDg+X
MdNUxrJQ3fQcaGTLOBqePrgpv93Vs98ES7TPvgHuPBBAbHj2D+DMPnsMezbH
O9eoO78FZ/bO4+HO/UJ3rsY7T4I7N7h3rlZ36p96XYV3ngx3rkP674f03p3f
RsfQd54Kd+phoZUq/XmIdTb9NEg/QuDoWvcZqjDPCD+zGUrvPfOiG13fDc88
6aYvw3Sz3dQnQLpe+g51RvHjXEh/AiSx6eR5F0D6AYJMV+Izeoid7PO98Mxj
6PV/pM7GMR32/Yft9Sl9DNPN4vdHQNNeuv797wrTN0P6g256ielmVevhgsxn
oQ98F6zBPrM1/MyZgFjvGf23/nob3H4XgOUknQ5JtwtJhmC97cGkm2R4vFlI
OguSbgSQnaRzIOl6wNdJgt+Jgd8dHXOTNkHS1UKS2QrlCiHJsHaZ+q/rJhnC
LhaSzOr5C4FBJ+laSNoI5DlJN0CS1qFwk26GpHOEpPdDkt7RInOT7oAkuvDS
rgu7Luy6sOvCrgsjf6Gz5P8BWW46nw==\
\>"],
 ImageRangeCache->{{{0, 733.938}, {380, 0}} -> {0.0141035, 0.221194, \
0.00134416, 0.00134416}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"light", "=", 
   RowBox[{"GridOfRays", "[", 
    RowBox[{
     RowBox[{"F", "/", "Np"}], ",", 
     RowBox[{"NumberOfRays", "\[Rule]", "3"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"biglens", "=", 
   RowBox[{"Move", "[", 
    RowBox[{
     RowBox[{"PlanoConvexLens", "[", 
      RowBox[{"F", ",", 
       RowBox[{"F", "/", "Np"}], ",", ".07"}], "]"}], ",", "zH"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"screen", "=", 
   RowBox[{"Move", "[", 
    RowBox[{
     RowBox[{"Screen", "[", 
      RowBox[{"F", "/", "Np"}], "]"}], ",", 
     RowBox[{"zi", "+", "zH"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"sys", "=", 
   RowBox[{"AnalyzeSystem", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"light", ",", "biglens", ",", "screen"}], "}"}], ",", 
     RowBox[{"PlotType", "\[Rule]", "SideView"}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"ColorView", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"RayLength", ",", "GrayLevel"}], "}"}]}], ",", 
     RowBox[{"ShowLabels", "\[Rule]", "False"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .08 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Times
%%IncludeFont: Times
/Times findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.152381 0.04 0.152381 [
[ 0 0 0 0 ]
[ 1 .08 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
% Start of user PostScript
/mathtops {
gsave
MBeginOrig
moveto
MEndOrig
currentpoint
grestore
} bind def
/MAtocoords {
mathtops 4 2 roll mathtops
4 copy pop pop
3 -1 roll sub
/arry exch def
exch sub
/arrx exch def
arrx dup mul
arry dup mul
add sqrt
/arrl exch def
translate
} bind def
/MAarrowhead1 {
gsave
MAtocoords
arrl 0. eq
{ 0 0 Mdot }
{
currentlinewidth 1 Mabswid
currentlinewidth dup scale setlinewidth
[ arrx arrl div
arry arrl div
-1 arry mul arrl div
arrx arrl div
0 0 ]
concat
-8. 2. moveto 0 0 lineto
-8. -2. lineto
-6. 0 lineto fill
-8. 2. moveto 0 0 lineto
-8. -2. lineto
-6. 0 lineto
-8. 2. lineto stroke
} ifelse
grestore
} def
% End of user PostScript
.5 g
.7955 .04 m
.79638 .04 L
.79638 .04 L
.78991 .04 L
.7955 .04 L
F
.78991 .04 m
.79638 .04 L
.79638 .04 L
.78674 .04 L
.78991 .04 L
F
.78674 .04 m
.79638 .04 L
.79638 .04 L
.78571 .04 L
.78674 .04 L
F
.78571 .04 m
.79638 .04 L
.79638 .04 L
.78674 .04 L
.78571 .04 L
F
.78674 .04 m
.79638 .04 L
.79638 .04 L
.78991 .04 L
.78674 .04 L
F
.78991 .04 m
.79638 .04 L
.79638 .04 L
.7955 .04 L
.78991 .04 L
F
0 g
.5 Mabswid
[ ] 0 setdash
.7955 .04 m
.78991 .04 L
.78674 .04 L
.78571 .04 L
.78674 .04 L
.78991 .04 L
.7955 .04 L
.79638 .04 L
.79638 .04 L
.79638 .04 L
.79638 .04 L
.79638 .04 L
.79638 .04 L
.79638 .04 L
.7955 .04 L
s
.5 g
.7955 .0019 m
.79638 .0019 L
.79638 .0146 L
.78991 .0146 L
.7955 .0019 L
F
.78991 .0146 m
.79638 .0146 L
.79638 .0273 L
.78674 .0273 L
.78991 .0146 L
F
.78674 .0273 m
.79638 .0273 L
.79638 .04 L
.78571 .04 L
.78674 .0273 L
F
.78571 .04 m
.79638 .04 L
.79638 .0527 L
.78674 .0527 L
.78571 .04 L
F
.78674 .0527 m
.79638 .0527 L
.79638 .0654 L
.78991 .0654 L
.78674 .0527 L
F
.78991 .0654 m
.79638 .0654 L
.79638 .0781 L
.7955 .0781 L
.78991 .0654 L
F
0 g
.7955 .0019 m
.78991 .0146 L
.78674 .0273 L
.78571 .04 L
.78674 .0527 L
.78991 .0654 L
.7955 .0781 L
.79638 .0781 L
.79638 .0654 L
.79638 .0527 L
.79638 .04 L
.79638 .0273 L
.79638 .0146 L
.79638 .0019 L
.7955 .0019 L
s
.7955 .04 m
.79638 .04 L
.79638 .04986 L
.7955 .04986 L
.7955 .04 L
s
.7955 .04986 m
.79638 .04986 L
.79638 .05905 L
.7955 .05905 L
.7955 .04986 L
s
.7955 .05905 m
.79638 .05905 L
.79638 .06694 L
.7955 .06694 L
.7955 .05905 L
s
.7955 .06694 m
.79638 .06694 L
.79638 .07299 L
.7955 .07299 L
.7955 .06694 L
s
.7955 .07299 m
.79638 .07299 L
.79638 .0768 L
.7955 .0768 L
.7955 .07299 L
s
.7955 .0768 m
.79638 .0768 L
.79638 .0781 L
.7955 .0781 L
.7955 .0768 L
s
.7955 .0781 m
.79638 .0781 L
.79638 .0768 L
.7955 .0768 L
.7955 .0781 L
s
.7955 .0768 m
.79638 .0768 L
.79638 .07299 L
.7955 .07299 L
.7955 .0768 L
s
.7955 .07299 m
.79638 .07299 L
.79638 .06694 L
.7955 .06694 L
.7955 .07299 L
s
.7955 .06694 m
.79638 .06694 L
.79638 .05905 L
.7955 .05905 L
.7955 .06694 L
s
.7955 .05905 m
.79638 .05905 L
.79638 .04986 L
.7955 .04986 L
.7955 .05905 L
s
.7955 .04986 m
.79638 .04986 L
.79638 .04 L
.7955 .04 L
.7955 .04986 L
s
.7955 .04 m
.79638 .04 L
.79638 .03014 L
.7955 .03014 L
.7955 .04 L
s
.7955 .03014 m
.79638 .03014 L
.79638 .02095 L
.7955 .02095 L
.7955 .03014 L
s
.7955 .02095 m
.79638 .02095 L
.79638 .01306 L
.7955 .01306 L
.7955 .02095 L
s
.7955 .01306 m
.79638 .01306 L
.79638 .00701 L
.7955 .00701 L
.7955 .01306 L
s
.7955 .00701 m
.79638 .00701 L
.79638 .0032 L
.7955 .0032 L
.7955 .00701 L
s
.7955 .0032 m
.79638 .0032 L
.79638 .0019 L
.7955 .0019 L
.7955 .0032 L
s
.7955 .0019 m
.79638 .0019 L
.79638 .0032 L
.7955 .0032 L
.7955 .0019 L
s
.7955 .0032 m
.79638 .0032 L
.79638 .00701 L
.7955 .00701 L
.7955 .0032 L
s
.7955 .00701 m
.79638 .00701 L
.79638 .01306 L
.7955 .01306 L
.7955 .00701 L
s
.7955 .01306 m
.79638 .01306 L
.79638 .02095 L
.7955 .02095 L
.7955 .01306 L
s
.7955 .02095 m
.79638 .02095 L
.79638 .03014 L
.7955 .03014 L
.7955 .02095 L
s
.7955 .03014 m
.79638 .03014 L
.79638 .04 L
.7955 .04 L
.7955 .03014 L
s
.97619 .04 m
.97619 .04 L
.97619 .04 L
.97619 .04 L
.97619 .04 L
.97619 .04 L
.97619 .04 L
.97619 .04 L
.97619 .04 L
.97619 .04 L
.97619 .04 L
.97619 .04 L
.97619 .04 L
.97619 .04 L
.97619 .04 L
s
.97619 .0019 m
.97619 .0146 L
.97619 .0273 L
.97619 .04 L
.97619 .0527 L
.97619 .0654 L
.97619 .0781 L
.97619 .0781 L
.97619 .0654 L
.97619 .0527 L
.97619 .04 L
.97619 .0273 L
.97619 .0146 L
.97619 .0019 L
.97619 .0019 L
s
.97619 .04 m
.97619 .04986 L
.97619 .05905 L
.97619 .06694 L
.97619 .07299 L
.97619 .0768 L
.97619 .0781 L
.97619 .0768 L
.97619 .07299 L
.97619 .06694 L
.97619 .05905 L
.97619 .04986 L
.97619 .04 L
.97619 .03014 L
.97619 .02095 L
.97619 .01306 L
.97619 .00701 L
.97619 .0032 L
.97619 .0019 L
.97619 .0032 L
.97619 .00701 L
.97619 .01306 L
.97619 .02095 L
.97619 .03014 L
.97619 .04 L
s
.013 g
.02381 .04 m
.78571 .04 L
s
% Start of user PostScript
0. 0. 5. 0. MAarrowhead1
% End of user PostScript
0 0 0 r
2 Mabswid
.78571 .04 Mdot
.01 g
.5 Mabswid
.02381 .04 m
.78804 .04 L
s
% Start of user PostScript
0. 0. 5.0152863 0. MAarrowhead1
% End of user PostScript
0 0 0 r
2 Mabswid
.78804 .04 Mdot
.01 g
.5 Mabswid
.02381 .0565 m
.78804 .0565 L
s
% Start of user PostScript
0. 0.10825318 5.0152863 0.10825318 MAarrowhead1
% End of user PostScript
0 0 0 r
2 Mabswid
.78804 .0565 Mdot
.01 g
.5 Mabswid
.02381 .0235 m
.78804 .0235 L
s
% Start of user PostScript
0. -0.10825318 5.0152863 -0.10825318 MAarrowhead1
% End of user PostScript
0 0 0 r
2 Mabswid
.78804 .0235 Mdot
0 g
.5 Mabswid
.02381 .04 m
.7955 .04 L
s
% Start of user PostScript
0. 0. 5.0642197 0. MAarrowhead1
% End of user PostScript
0 0 0 r
2 Mabswid
.7955 .04 Mdot
0 g
.5 Mabswid
.02381 .07299 m
.7955 .07299 L
s
% Start of user PostScript
0. 0.21650635 5.0642197 0.21650635 MAarrowhead1
% End of user PostScript
0 0 0 r
2 Mabswid
.7955 .07299 Mdot
0 g
.5 Mabswid
.02381 .00701 m
.7955 .00701 L
s
% Start of user PostScript
0. -0.21650635 5.0642197 -0.21650635 MAarrowhead1
% End of user PostScript
0 0 0 r
2 Mabswid
.7955 .00701 Mdot
.987 g
.5 Mabswid
.78571 .04 m
.79638 .04 L
s
% Start of user PostScript
5. 0. 5.07 0. MAarrowhead1
% End of user PostScript
0 0 0 r
2 Mabswid
.79638 .04 Mdot
.99 g
.5 Mabswid
.78804 .04 m
.79638 .04 L
s
% Start of user PostScript
5.0152863 0. 5.07 0. MAarrowhead1
% End of user PostScript
0 0 0 r
2 Mabswid
.79638 .04 Mdot
.99 g
.5 Mabswid
.78804 .0565 m
.79638 .05589 L
s
% Start of user PostScript
5.0152863 0.10825318 5.07 0.10426051 MAarrowhead1
% End of user PostScript
0 0 0 r
2 Mabswid
.79638 .05589 Mdot
.99 g
.5 Mabswid
.78804 .0235 m
.79638 .02411 L
s
% Start of user PostScript
5.0152863 -0.10825318 5.07 -0.10426051 MAarrowhead1
% End of user PostScript
0 0 0 r
2 Mabswid
.79638 .02411 Mdot
1 g
.5 Mabswid
.7955 .04 m
.79638 .04 L
s
% Start of user PostScript
5.0642197 0. 5.07 0. MAarrowhead1
% End of user PostScript
0 0 0 r
2 Mabswid
.79638 .04 Mdot
1 g
.5 Mabswid
.7955 .07299 m
.79638 .07285 L
s
% Start of user PostScript
5.0642197 0.21650635 5.07 0.21559526 MAarrowhead1
% End of user PostScript
0 0 0 r
2 Mabswid
.79638 .07285 Mdot
1 g
.5 Mabswid
.7955 .00701 m
.79638 .00715 L
s
% Start of user PostScript
5.0642197 -0.21650635 5.07 -0.21559526 MAarrowhead1
% End of user PostScript
0 0 0 r
2 Mabswid
.79638 .00715 Mdot
.768 g
.5 Mabswid
.79638 .04 m
.97619 .04 L
s
% Start of user PostScript
5.07 0. 6.25 0. MAarrowhead1
% End of user PostScript
0 0 0 r
2 Mabswid
.97619 .04 Mdot
.766 g
.5 Mabswid
.79638 .04 m
.97619 .04 L
s
% Start of user PostScript
5.07 0. 6.25 0. MAarrowhead1
% End of user PostScript
0 0 0 r
2 Mabswid
.97619 .04 Mdot
.766 g
.5 Mabswid
.79638 .05589 m
.97619 .03586 L
s
% Start of user PostScript
5.07 0.10426051 6.25 -0.02715615 MAarrowhead1
% End of user PostScript
0 0 0 r
2 Mabswid
.97619 .03586 Mdot
.766 g
.5 Mabswid
.79638 .02411 m
.97619 .04414 L
s
% Start of user PostScript
5.07 -0.10426051 6.25 0.02715615 MAarrowhead1
% End of user PostScript
0 0 0 r
2 Mabswid
.97619 .04414 Mdot
.759 g
.5 Mabswid
.79638 .04 m
.97619 .04 L
s
% Start of user PostScript
5.07 0. 6.25 0. MAarrowhead1
% End of user PostScript
0 0 0 r
2 Mabswid
.97619 .04 Mdot
.759 g
.5 Mabswid
.79638 .07285 m
.97619 .02884 L
s
% Start of user PostScript
5.07 0.21559526 6.25 -0.073264003 MAarrowhead1
% End of user PostScript
0 0 0 r
2 Mabswid
.97619 .02884 Mdot
.759 g
.5 Mabswid
.79638 .00715 m
.97619 .05116 L
s
% Start of user PostScript
5.07 -0.21559526 6.25 0.073264003 MAarrowhead1
% End of user PostScript
0 0 0 r
2 Mabswid
.97619 .05116 Mdot
0 0 m
1 0 L
1 .08 L
0 .08 L
closepath
clip
newpath
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{673.438, 53.875},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJy9mM9rFDEUx9PMzM5aOtWWbsUf1UVaESkVBT3ooQfFPUhR8ODBgyyL2FKk
0q7n/VvE/2TZf0rZZc3LS76Z3WbHrBkcmjSdST7vR16Slx51+8efv3b7J71u
u3Pe/XZ80rtovz47V6+SFSHkDyHE07ag9lQ1TTVVP1z9pIpe2xctqiT1+o5W
a75ToV8kgmH6lUipTjBw7uvWPGLd0ykJQbQYoZ5fVDWMcHqGw6EtFyE6bMJC
1XMwGAj7SPqQEucshFNAb1nqTkAqEmpq4mmwZj7OKjhfQjgbJe9YjioatQ5U
Lxa1CdSnWNQ2UB9jUTeB+hCCuub1uYXdAex9CKzJoSWlTLk1mUwWsu+B/TaE
fYWqjNi86DTblATQ+4C++etiUqjfVGWE0KMfYnRnOZXykqWj0UiXhGpHfBns
wISIktkzxqUsVGH3gD0MwV71TLLDFsC2gX0Rj90G9hbborAHbCRtV1Hsu2Bf
h8r71GrEsx+A7Rb4LvSW8Y55DAEFBNxGS/LKUV8l/ZnGy3tOX1eJmEPKFlq5
GUt+s6GbmgCuFGoHJokOWF0Sj7YZFHkFw91Rs4aWOSys4ZnRYcrHnv596Uhu
enXguqyD1at83B1xvCgpKRydmvCh3tYZOdUZQrgiAOYOadVpPB5f0oEee2b3
mSg82UaoaWanVc873jysQWYWbT9rnfZ/o7xWKj2cGyFlNez2ZE6gGQl2rjts
g1XGTbPxpPqQsNsDprk6vg9LohbEdx4S0NVSniF4m4tWLW/5mFzJRkav3wPY
5/aLXbZKtWoQsAfTNiBgHwEfNzk7UN7lOI+gfJzeLbBvQNsnaAU5xmUsJg1X
B67bsNbgmB0oH3TgusygYTKD8s6TQm+XA1WkB750xZdruNwnPHtpQMfw9MmX
rjjvuS1gyQSv1ky0xgz5P+XtNd4mlrzj1HXtKngtCTFz1EVfCP/5qlrjndl3
b3cHb9DV33kn47USOjDofxPmPxpi5Q++OZu2\
\>"],
 ImageRangeCache->{{{0, 672.438}, {52.875, 0}} -> {-0.213375, -0.262503, \
0.00992917, 0.00992917}}]
}, Open  ]],

Cell[BoxData[
 FractionBox[
  SuperscriptBox["F", "2"], 
  SubscriptBox["Nz", "H"]]], "Input"]
}, Open  ]]
},
WindowToolbars->"RulerBar",
WindowSize->{929, 752},
WindowMargins->{{Automatic, 36}, {Automatic, -4}},
DockedCells->FEPrivate`FrontEndResource[
 "FEExpressions", "CompatibilityToolbar"],
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 241, 6, 137, "Title"],
Cell[811, 30, 1034, 18, 133, "Subtitle"],
Cell[1848, 50, 183, 6, 31, "Input"],
Cell[2034, 58, 556, 18, 112, "Input"],
Cell[CellGroupData[{
Cell[2615, 80, 28, 0, 31, "Input"],
Cell[2646, 82, 30, 0, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2713, 87, 1141, 35, 112, "Input"],
Cell[3857, 124, 17100, 1001, 298, 10845, 895, "GraphicsData", "PostScript", \
"Graphics"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20994, 1130, 1241, 38, 112, "Input"],
Cell[22238, 1170, 14548, 867, 299, 9699, 784, "GraphicsData", "PostScript", \
"Graphics"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36823, 2042, 1284, 40, 112, "Input"],
Cell[38110, 2084, 14271, 866, 240, 9789, 789, "GraphicsData", "PostScript", \
"Graphics"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52418, 2955, 3609, 114, 252, "Input"],
Cell[56030, 3071, 40406, 2633, 389, 29937, 2458, "GraphicsData", \
"PostScript", "Graphics"]
}, Open  ]],
Cell[CellGroupData[{
Cell[96473, 5709, 1136, 34, 132, "Input"],
Cell[97612, 5745, 10147, 649, 62, 8878, 625, "GraphicsData", "PostScript", \
"Graphics"]
}, Open  ]],
Cell[107774, 6397, 94, 3, 52, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)