(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    227231,       3805]
NotebookOptionsPosition[    208240,       3475]
NotebookOutlinePosition[    226483,       3785]
CellTagsIndexPosition[    226440,       3782]
WindowFrame->Normal
ContainsDynamic->True *)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 StyleBox["Exploring Eye Exposure to Laser Radiation at Distance", 
  "Subsection"],
 "\n\nNOTE: This document is a work in progress. Please email any comments or \
corrections to the address at the bottom of this document.\n",
 StyleBox["WARNING: Do not use this document as a guide for the determination \
of safe levels of laser exposure.", "Subsubsection"],
 " \n\nNews accounts of laser pointers being pointed at aircraft have given \
rise to concerns about the safety of these devices, particularly some of the \
high powered devices that are being sold. This demonstration explores the \
possible exposure that might occur to the retina in the case of an exposure \
at distances on the order of thousands of meters.\n\nLasers have a divergence \
that yields a beam diameter at a given distance. The power transmitted \
through an aperture smaller than the beam diameter is approximately the total \
power at distance multiplied by the ratio of the aperture area to the total \
area of the incident beam. If the aperture is the pupil of an eye the \
incident beam will be focused to a spot on the retina. The power transmitted \
through the pupil divided by the spot area determines the exposure plotted \
below in Watts/",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["cm", "2"], TraditionalForm]]],
 ". "
}], "Text",
 CellChangeTimes->{{3.408357787692192*^9, 3.4083579070938835`*^9}, {
   3.408357944417552*^9, 3.4083579461600575`*^9}, {3.408357987028824*^9, 
   3.408357995521035*^9}, {3.408358027016323*^9, 3.4083580896664095`*^9}, {
   3.4083585435891185`*^9, 3.4083589281220493`*^9}, {3.408358966156741*^9, 
   3.408359036708189*^9}, {3.408359083235091*^9, 3.408359125435773*^9}, {
   3.4083591678667855`*^9, 3.408359182317565*^9}, {3.4083592600693665`*^9, 
   3.4083593046835184`*^9}, {3.4083593600831795`*^9, 
   3.4083593622663183`*^9}, {3.4083595505170097`*^9, 3.408359550757355*^9}, {
   3.4083596329655647`*^9, 3.408359687954635*^9}, {3.40835975597244*^9, 
   3.408359780788123*^9}, {3.4083598331734495`*^9, 3.4083598339545727`*^9}, {
   3.408359904085416*^9, 3.4083599068594046`*^9}, {3.4083600269220467`*^9, 
   3.408360028183861*^9}, {3.4083601290288687`*^9, 3.408360140315098*^9}, {
   3.408360186010805*^9, 3.408360392257373*^9}, {3.4083607044763217`*^9, 
   3.4083607383249936`*^9}, {3.408360794295475*^9, 3.408360816026723*^9}, {
   3.4083608590586*^9, 3.4083608863878975`*^9}, {3.4083610035563774`*^9, 
   3.408361028932867*^9}, {3.408361094096568*^9, 3.408361121706269*^9}, {
   3.4083627094793744`*^9, 3.4083627996690607`*^9}, {3.4083628442231264`*^9, 
   3.4083629403513517`*^9}, {3.4083660200196977`*^9, 3.408366020850893*^9}, 
   3.4083660576237698`*^9, {3.408366234187656*^9, 3.408366260205067*^9}, {
   3.4083673748778877`*^9, 3.40836737558891*^9}, {3.408367903798438*^9, 
   3.408368032153003*^9}, {3.4083680653006673`*^9, 3.408368075325082*^9}, {
   3.4083681141509104`*^9, 3.4083681199592624`*^9}, {3.4083681886780753`*^9, 
   3.4083682889622765`*^9}, {3.408368343150195*^9, 3.408368409495595*^9}, {
   3.4083684702429457`*^9, 3.4083685042418337`*^9}, {3.408368544139203*^9, 
   3.408368564858997*^9}, 3.408369012652893*^9, {3.4083690529308095`*^9, 
   3.408369070345851*^9}, {3.4083691419688396`*^9, 3.408369146685622*^9}, 
   3.408373565499565*^9, {3.408373779997998*^9, 3.408373781089568*^9}, {
   3.408373823170077*^9, 3.4083738266050158`*^9}, {3.4083738790203857`*^9, 
   3.4083738807428627`*^9}, {3.408373938385749*^9, 3.408373940168312*^9}, {
   3.408373984692334*^9, 3.4083739881072445`*^9}, {3.4083743560763583`*^9, 
   3.4083743827647343`*^9}, {3.4083744157121105`*^9, 
   3.4083745709152813`*^9}, {3.4083746026108575`*^9, 
   3.4083746935916815`*^9}, {3.4083747802062273`*^9, 
   3.4083748507076035`*^9}, {3.408374891015563*^9, 3.4083749085207343`*^9}, {
   3.4083749408271885`*^9, 3.408374951101963*^9}, {3.408375022434534*^9, 
   3.408375037295904*^9}, {3.4083750748899612`*^9, 3.408375154053794*^9}, {
   3.408375249881587*^9, 3.4083752692894945`*^9}, {3.4083753867183485`*^9, 
   3.4083753877197886`*^9}, {3.408375444801869*^9, 3.408375447005037*^9}, {
   3.4083754907178926`*^9, 3.4083755170257215`*^9}, {3.4083755611992397`*^9, 
   3.4083757101634398`*^9}, 3.4083769141346655`*^9, {3.4083802758085155`*^9, 
   3.4083804229400797`*^9}, {3.408380453584144*^9, 3.4083805019637103`*^9}, {
   3.4083805555707936`*^9, 3.408380587156211*^9}, 3.408380972610467*^9, {
   3.408381004346101*^9, 3.4083810419001007`*^9}, {3.4083810737358785`*^9, 
   3.408381086123691*^9}, {3.40838112545024*^9, 3.408381153961237*^9}, {
   3.408382007819024*^9, 3.4083821114380207`*^9}, {3.408384040632066*^9, 
   3.408384129850355*^9}, {3.408384171199813*^9, 3.4083841930512333`*^9}, {
   3.408384240148957*^9, 3.4083843144257617`*^9}, {3.408384414659891*^9, 
   3.4083844180047007`*^9}, {3.4084528421260047`*^9, 
   3.4084528575882387`*^9}, {3.4084529233427887`*^9, 
   3.4084529506921153`*^9}, {3.4084530091762114`*^9, 3.40845303932957*^9}, {
   3.408453154445098*^9, 3.4084531674437885`*^9}, {3.4084532608981695`*^9, 
   3.408453261358832*^9}, {3.408453301055914*^9, 3.408453376324144*^9}, {
   3.408453483908843*^9, 3.408453493632826*^9}, {3.40845358368231*^9, 
   3.408453660552845*^9}, {3.408453779033211*^9, 3.4084537915512114`*^9}, {
   3.4084538234771185`*^9, 3.4084538238877087`*^9}, {3.4084538885306606`*^9, 
   3.4084539295095854`*^9}, {3.408464444759773*^9, 3.408464593874189*^9}, {
   3.408464624047576*^9, 3.408464626030427*^9}, {3.408464682251269*^9, 
   3.408464854829424*^9}, {3.4084649137942114`*^9, 3.4084649560850224`*^9}, 
   3.4084649989266253`*^9, {3.408465135492998*^9, 3.4084651907224145`*^9}, {
   3.408465278989336*^9, 3.4084652851882496`*^9}, {3.4084653865540066`*^9, 
   3.4084653899088306`*^9}, {3.4084654348534575`*^9, 3.408465441122472*^9}, {
   3.408465612599043*^9, 3.4084656369039917`*^9}, {3.4084656708027363`*^9, 
   3.4084657843860607`*^9}, {3.4084658455840592`*^9, 
   3.4084658494896755`*^9}, {3.4084678111403904`*^9, 
   3.4084678513782496`*^9}, {3.4084679723722305`*^9, 3.408468017386958*^9}, {
   3.4084686231580143`*^9, 3.408468626452752*^9}, {3.4084687520834*^9, 
   3.408468760014805*^9}, {3.408468813000995*^9, 3.408468964669083*^9}, {
   3.4084692549965534`*^9, 3.4084692805132446`*^9}, {3.408469333569536*^9, 
   3.4084693684797344`*^9}, {3.408485853552824*^9, 3.408485869906339*^9}, {
   3.4084859133788495`*^9, 3.408486128297888*^9}, {3.408486208192771*^9, 
   3.4084862116277103`*^9}, 3.408486242301818*^9, 3.408486274187667*^9, {
   3.4084863560153294`*^9, 3.4084863879812946`*^9}, {3.408486420468008*^9, 
   3.4084864687274017`*^9}, {3.408486636979336*^9, 3.4084867079914465`*^9}, 
   3.4084869129661856`*^9, {3.408486961626155*^9, 3.4084870193291283`*^9}, {
   3.4084870539388943`*^9, 3.4084870558716736`*^9}, {3.4084870926445503`*^9, 
   3.4084872918910527`*^9}, 3.4084874655006914`*^9, {3.408487613703797*^9, 
   3.4084876296767645`*^9}, {3.4084876634753647`*^9, 
   3.4084876715870285`*^9}, {3.408487721378626*^9, 3.4084881113593903`*^9}, {
   3.4084881667390223`*^9, 3.4084883538580866`*^9}, {3.4084884006553774`*^9, 
   3.4084884921869936`*^9}, {3.408488715748459*^9, 3.4084887262235217`*^9}, {
   3.408488776325565*^9, 3.408488795863659*^9}, {3.4084890260847006`*^9, 
   3.4084890417171793`*^9}, {3.408489087553088*^9, 3.4084891128795056`*^9}, {
   3.4084891866656046`*^9, 3.408489243367138*^9}, {3.4084894146133776`*^9, 
   3.408489415925264*^9}, 3.408489484223472*^9, {3.4084895159290624`*^9, 
   3.408489516319624*^9}, {3.408489707594664*^9, 3.408489708946608*^9}, {
   3.408491819153205*^9, 3.4084918657602224`*^9}, {3.408492058477336*^9, 
   3.4084920923159933`*^9}, {3.408492160994749*^9, 3.4084921624268084`*^9}, {
   3.4084922098349776`*^9, 3.4084922246062174`*^9}, {3.4084922655350704`*^9, 
   3.408492306203549*^9}, {3.4084923923374033`*^9, 3.4084924608058558`*^9}, {
   3.408557456214427*^9, 3.408557637795528*^9}, {3.4085576718845453`*^9, 
   3.4085577842561283`*^9}, {3.408557843992024*^9, 3.4085579962910194`*^9}, {
   3.4085581112663455`*^9, 3.4085581172749853`*^9}, {3.4085581506629953`*^9, 
   3.408558151564291*^9}, {3.4085582278539906`*^9, 3.408558235034315*^9}, 
   3.4085582685725408`*^9, {3.408558482960816*^9, 3.408558498112603*^9}, {
   3.4085586095828896`*^9, 3.4085586386246495`*^9}, {3.408558680775259*^9, 
   3.408558685652272*^9}, {3.408558747621379*^9, 3.408558747891768*^9}, {
   3.408558821697896*^9, 3.4085589787337027`*^9}, {3.408559015516594*^9, 
   3.4085590252505903`*^9}, 3.408559064727355*^9, {3.4085591607053647`*^9, 
   3.408559377947744*^9}, {3.4085594243644876`*^9, 3.4085594820975037`*^9}, {
   3.4085595126113806`*^9, 3.4085595734688897`*^9}, {3.4085596071373024`*^9, 
   3.408559624692546*^9}, {3.4085596553666525`*^9, 3.4085597768813825`*^9}, {
   3.4085598511181297`*^9, 3.4085598753730063`*^9}, {3.4085599169828386`*^9, 
   3.408559931573819*^9}, {3.4085600009535823`*^9, 3.408560035142744*^9}, {
   3.408560079236147*^9, 3.408560168534552*^9}, {3.4085602169141183`*^9, 
   3.4085602179456015`*^9}, {3.408560287044962*^9, 3.408560296598699*^9}, {
   3.4085603314888687`*^9, 3.4085603330811586`*^9}, {3.4085603669799023`*^9, 
   3.408560511177248*^9}, {3.4085605816085234`*^9, 3.40856059609936*^9}, {
   3.408560893206579*^9, 3.4085609438293715`*^9}, {3.40856098315592*^9, 
   3.4085611518885455`*^9}, {3.4085612010892925`*^9, 3.4085614332130704`*^9}, 
   3.4085614788787346`*^9, 3.408561570300192*^9, {3.4085739272886686`*^9, 
   3.408573990339331*^9}, {3.40857402065292*^9, 3.4085741713195677`*^9}, {
   3.408647081029355*^9, 3.40864739139564*^9}, {3.4086474348180785`*^9, 
   3.408647486131864*^9}, {3.4086475191893983`*^9, 3.4086475238961663`*^9}, {
   3.4086479511805716`*^9, 3.4086480850230274`*^9}, {3.4086481259118223`*^9, 
   3.4086481342237744`*^9}, {3.4086481692741747`*^9, 
   3.4086481732699203`*^9}, {3.4086483747997055`*^9, 
   3.4086484385714045`*^9}, {3.408657096420781*^9, 3.408657141545667*^9}, {
   3.4086643739753904`*^9, 3.4086646096642942`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Needs", "[", "\"\<Units`\>\"", "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.408357787692192*^9, 3.4083579070938835`*^9}, {
   3.408357944417552*^9, 3.4083579461600575`*^9}, {3.408357987028824*^9, 
   3.408357995521035*^9}, {3.408358027016323*^9, 3.4083580896664095`*^9}, {
   3.4083585435891185`*^9, 3.4083589281220493`*^9}, {3.408358966156741*^9, 
   3.408359036708189*^9}, {3.408359083235091*^9, 3.408359125435773*^9}, {
   3.4083591678667855`*^9, 3.408359182317565*^9}, {3.4083592600693665`*^9, 
   3.4083593046835184`*^9}, {3.4083593600831795`*^9, 
   3.4083593622663183`*^9}, {3.4083595505170097`*^9, 3.408359550757355*^9}, {
   3.4083596329655647`*^9, 3.408359687954635*^9}, {3.40835975597244*^9, 
   3.408359780788123*^9}, {3.4083598331734495`*^9, 3.4083598339545727`*^9}, {
   3.408359904085416*^9, 3.4083599068594046`*^9}, {3.4083600269220467`*^9, 
   3.408360028183861*^9}, {3.4083601290288687`*^9, 3.408360140315098*^9}, {
   3.408360186010805*^9, 3.408360392257373*^9}, {3.4083607044763217`*^9, 
   3.4083607383249936`*^9}, {3.408360794295475*^9, 3.408360816026723*^9}, {
   3.4083608590586*^9, 3.4083608863878975`*^9}, {3.4083610035563774`*^9, 
   3.408361028932867*^9}, {3.408361094096568*^9, 3.408361121706269*^9}, {
   3.4083627094793744`*^9, 3.4083627996690607`*^9}, {3.4083628442231264`*^9, 
   3.4083629403513517`*^9}, {3.4083660200196977`*^9, 3.408366020850893*^9}, 
   3.4083660576237698`*^9, {3.408366234187656*^9, 3.408366260205067*^9}, {
   3.4083673748778877`*^9, 3.40836737558891*^9}, {3.408367903798438*^9, 
   3.408368032153003*^9}, {3.4083680653006673`*^9, 3.408368075325082*^9}, {
   3.4083681141509104`*^9, 3.4083681199592624`*^9}, {3.4083681886780753`*^9, 
   3.4083682889622765`*^9}, {3.408368343150195*^9, 3.408368409495595*^9}, {
   3.4083684702429457`*^9, 3.4083685042418337`*^9}, {3.408368544139203*^9, 
   3.408368564858997*^9}, 3.408369012652893*^9, {3.4083690529308095`*^9, 
   3.408369070345851*^9}, {3.4083691419688396`*^9, 3.408369146685622*^9}, 
   3.408373565499565*^9, {3.408373779997998*^9, 3.408373781089568*^9}, {
   3.408373823170077*^9, 3.4083738266050158`*^9}, {3.4083738790203857`*^9, 
   3.4083738807428627`*^9}, {3.408373938385749*^9, 3.408373940168312*^9}, {
   3.408373984692334*^9, 3.4083739881072445`*^9}, {3.4083743560763583`*^9, 
   3.4083743827647343`*^9}, {3.4083744157121105`*^9, 
   3.4083745709152813`*^9}, {3.4083746026108575`*^9, 
   3.4083746935916815`*^9}, {3.4083747802062273`*^9, 
   3.4083748507076035`*^9}, {3.408374891015563*^9, 3.4083749085207343`*^9}, {
   3.4083749408271885`*^9, 3.408374951101963*^9}, {3.408375022434534*^9, 
   3.408375037295904*^9}, {3.4083750748899612`*^9, 3.408375154053794*^9}, {
   3.408375249881587*^9, 3.4083752692894945`*^9}, {3.4083753867183485`*^9, 
   3.4083753877197886`*^9}, {3.408375444801869*^9, 3.408375447005037*^9}, {
   3.4083754907178926`*^9, 3.4083755170257215`*^9}, {3.4083755611992397`*^9, 
   3.4083757101634398`*^9}, 3.4083769141346655`*^9, {3.4083802758085155`*^9, 
   3.4083804229400797`*^9}, {3.408380453584144*^9, 3.4083805019637103`*^9}, {
   3.4083805555707936`*^9, 3.408380587156211*^9}, 3.408380972610467*^9, {
   3.408381004346101*^9, 3.4083810419001007`*^9}, {3.4083810737358785`*^9, 
   3.408381086123691*^9}, {3.40838112545024*^9, 3.408381153961237*^9}, {
   3.408382007819024*^9, 3.4083821114380207`*^9}, {3.408384040632066*^9, 
   3.408384129850355*^9}, {3.408384171199813*^9, 3.4083841930512333`*^9}, {
   3.408384240148957*^9, 3.4083843144257617`*^9}, {3.408384414659891*^9, 
   3.4083844180047007`*^9}, {3.4084528421260047`*^9, 
   3.4084528575882387`*^9}, {3.4084529233427887`*^9, 
   3.4084529506921153`*^9}, {3.4084530091762114`*^9, 3.40845303932957*^9}, {
   3.408453154445098*^9, 3.4084531674437885`*^9}, {3.4084532608981695`*^9, 
   3.408453261358832*^9}, {3.408453301055914*^9, 3.408453376324144*^9}, {
   3.408453483908843*^9, 3.408453493632826*^9}, {3.40845358368231*^9, 
   3.408453660552845*^9}, {3.408453779033211*^9, 3.4084537915512114`*^9}, {
   3.4084538234771185`*^9, 3.4084538238877087`*^9}, {3.4084538885306606`*^9, 
   3.4084539295095854`*^9}, {3.408464444759773*^9, 3.408464593874189*^9}, {
   3.408464624047576*^9, 3.408464626030427*^9}, {3.408464682251269*^9, 
   3.408464854829424*^9}, {3.4084649137942114`*^9, 3.4084649560850224`*^9}, 
   3.4084649989266253`*^9, {3.408465135492998*^9, 3.4084651907224145`*^9}, {
   3.408465278989336*^9, 3.4084652851882496`*^9}, {3.4084653865540066`*^9, 
   3.4084653899088306`*^9}, {3.4084654348534575`*^9, 3.408465441122472*^9}, {
   3.408465612599043*^9, 3.4084656369039917`*^9}, {3.4084656708027363`*^9, 
   3.4084657843860607`*^9}, {3.4084658455840592`*^9, 
   3.4084658494896755`*^9}, {3.4084678111403904`*^9, 
   3.4084678513782496`*^9}, {3.4084679723722305`*^9, 3.408468017386958*^9}, {
   3.4084686231580143`*^9, 3.408468626452752*^9}, {3.4084687520834*^9, 
   3.408468760014805*^9}, {3.408468813000995*^9, 3.408468964669083*^9}, {
   3.4084692549965534`*^9, 3.4084692805132446`*^9}, {3.408469333569536*^9, 
   3.4084693684797344`*^9}, {3.408485853552824*^9, 3.408485869906339*^9}, {
   3.4084859133788495`*^9, 3.408486128297888*^9}, {3.408486208192771*^9, 
   3.4084862116277103`*^9}, 3.408486242301818*^9, 3.408486274187667*^9, {
   3.4084863560153294`*^9, 3.4084863879812946`*^9}, {3.408486420468008*^9, 
   3.4084864687274017`*^9}, {3.408486636979336*^9, 3.4084867079914465`*^9}, 
   3.4084869129661856`*^9, {3.408486961626155*^9, 3.4084870193291283`*^9}, {
   3.4084870539388943`*^9, 3.4084870558716736`*^9}, {3.4084870926445503`*^9, 
   3.4084872918910527`*^9}, 3.4084874655006914`*^9, {3.408487613703797*^9, 
   3.4084876296767645`*^9}, {3.4084876634753647`*^9, 
   3.4084876715870285`*^9}, {3.408487721378626*^9, 3.4084881113593903`*^9}, {
   3.4084881667390223`*^9, 3.4084883538580866`*^9}, {3.4084884006553774`*^9, 
   3.4084884921869936`*^9}, {3.408488715748459*^9, 3.4084887262235217`*^9}, {
   3.408488776325565*^9, 3.408488795863659*^9}, {3.4084890260847006`*^9, 
   3.4084890417171793`*^9}, {3.408489087553088*^9, 3.4084891128795056`*^9}, {
   3.4084891866656046`*^9, 3.408489243367138*^9}, {3.4084894146133776`*^9, 
   3.408489415925264*^9}, 3.408489484223472*^9, {3.4084895159290624`*^9, 
   3.408489516319624*^9}, {3.408489707594664*^9, 3.408489708946608*^9}, {
   3.408491819153205*^9, 3.4084918657602224`*^9}, {3.408492058477336*^9, 
   3.4084920923159933`*^9}, {3.408492160994749*^9, 3.4084921624268084`*^9}, {
   3.4084922098349776`*^9, 3.4084922246062174`*^9}, {3.4084922655350704`*^9, 
   3.408492306203549*^9}, {3.4084923923374033`*^9, 3.4084924608058558`*^9}, {
   3.408557456214427*^9, 3.408557637795528*^9}, {3.4085576718845453`*^9, 
   3.4085577842561283`*^9}, {3.408557843992024*^9, 3.4085579962910194`*^9}, {
   3.4085581112663455`*^9, 3.4085581172749853`*^9}, {3.4085581506629953`*^9, 
   3.408558151564291*^9}, {3.4085582278539906`*^9, 3.408558235034315*^9}, 
   3.4085582685725408`*^9, {3.408558482960816*^9, 3.408558498112603*^9}, {
   3.4085586095828896`*^9, 3.4085586386246495`*^9}, {3.408558680775259*^9, 
   3.408558685652272*^9}, {3.408558747621379*^9, 3.408558747891768*^9}, {
   3.408558821697896*^9, 3.4085589787337027`*^9}, {3.408559015516594*^9, 
   3.4085590252505903`*^9}, 3.408559064727355*^9, {3.4085591607053647`*^9, 
   3.408559377947744*^9}, {3.4085594243644876`*^9, 3.4085594820975037`*^9}, {
   3.4085595126113806`*^9, 3.4085595734688897`*^9}, {3.4085596071373024`*^9, 
   3.408559624692546*^9}, {3.4085596553666525`*^9, 3.4085597768813825`*^9}, {
   3.4085598511181297`*^9, 3.4085598753730063`*^9}, {3.4085599169828386`*^9, 
   3.408559931573819*^9}, {3.4085600009535823`*^9, 3.408560035142744*^9}, {
   3.408560079236147*^9, 3.408560168534552*^9}, {3.4085602169141183`*^9, 
   3.4085602179456015`*^9}, {3.408560287044962*^9, 3.408560296598699*^9}, {
   3.4085603314888687`*^9, 3.4085603330811586`*^9}, {3.4085603669799023`*^9, 
   3.408560511177248*^9}, {3.4085605816085234`*^9, 3.40856059609936*^9}, {
   3.408560893206579*^9, 3.4085609438293715`*^9}, {3.40856098315592*^9, 
   3.4085611518885455`*^9}, {3.4085612010892925`*^9, 3.4085614332130704`*^9}, 
   3.4085614788787346`*^9, 3.408561570300192*^9, {3.4085739272886686`*^9, 
   3.4085739686080832`*^9}}],

Cell["Ratio of circular areas:", "Text",
 CellChangeTimes->{{3.408357787692192*^9, 3.4083579070938835`*^9}, {
   3.408357944417552*^9, 3.4083579461600575`*^9}, {3.408357987028824*^9, 
   3.408357995521035*^9}, {3.408358027016323*^9, 3.4083580896664095`*^9}, {
   3.4083585435891185`*^9, 3.4083589281220493`*^9}, {3.408358966156741*^9, 
   3.408359036708189*^9}, {3.408359083235091*^9, 3.408359125435773*^9}, {
   3.4083591678667855`*^9, 3.408359182317565*^9}, {3.4083592600693665`*^9, 
   3.4083593046835184`*^9}, {3.4083593600831795`*^9, 
   3.4083593622663183`*^9}, {3.4083595505170097`*^9, 3.408359550757355*^9}, {
   3.4083596329655647`*^9, 3.408359687954635*^9}, {3.40835975597244*^9, 
   3.408359780788123*^9}, {3.4083598331734495`*^9, 3.4083598339545727`*^9}, {
   3.408359904085416*^9, 3.4083599068594046`*^9}, {3.4083600269220467`*^9, 
   3.408360028183861*^9}, {3.4083601290288687`*^9, 3.408360140315098*^9}, {
   3.408360186010805*^9, 3.408360392257373*^9}, {3.4083607044763217`*^9, 
   3.4083607383249936`*^9}, {3.408360794295475*^9, 3.408360816026723*^9}, {
   3.4083608590586*^9, 3.4083608863878975`*^9}, {3.4083610035563774`*^9, 
   3.408361028932867*^9}, {3.408361094096568*^9, 3.408361121706269*^9}, {
   3.4083627094793744`*^9, 3.4083627996690607`*^9}, {3.4083628442231264`*^9, 
   3.4083629403513517`*^9}, {3.4083660200196977`*^9, 3.408366020850893*^9}, 
   3.4083660576237698`*^9, {3.408366234187656*^9, 3.408366260205067*^9}, {
   3.4083673748778877`*^9, 3.40836737558891*^9}, {3.408367903798438*^9, 
   3.408368032153003*^9}, {3.4083680653006673`*^9, 3.408368075325082*^9}, {
   3.4083681141509104`*^9, 3.4083681199592624`*^9}, {3.4083681886780753`*^9, 
   3.4083682889622765`*^9}, {3.408368343150195*^9, 3.408368409495595*^9}, {
   3.4083684702429457`*^9, 3.4083685042418337`*^9}, {3.408368544139203*^9, 
   3.408368564858997*^9}, 3.408369012652893*^9, {3.4083690529308095`*^9, 
   3.408369070345851*^9}, {3.4083691419688396`*^9, 3.408369146685622*^9}, 
   3.408373565499565*^9, {3.408373779997998*^9, 3.408373781089568*^9}, {
   3.408373823170077*^9, 3.4083738266050158`*^9}, {3.4083738790203857`*^9, 
   3.4083738807428627`*^9}, {3.408373938385749*^9, 3.408373940168312*^9}, {
   3.408373984692334*^9, 3.4083739881072445`*^9}, {3.4083743560763583`*^9, 
   3.4083743827647343`*^9}, {3.4083744157121105`*^9, 
   3.4083745709152813`*^9}, {3.4083746026108575`*^9, 
   3.4083746935916815`*^9}, {3.4083747802062273`*^9, 
   3.4083748507076035`*^9}, {3.408374891015563*^9, 3.4083749085207343`*^9}, {
   3.4083749408271885`*^9, 3.408374951101963*^9}, {3.408375022434534*^9, 
   3.408375037295904*^9}, {3.4083750748899612`*^9, 3.408375154053794*^9}, {
   3.408375249881587*^9, 3.4083752692894945`*^9}, {3.4083753867183485`*^9, 
   3.4083753877197886`*^9}, {3.408375444801869*^9, 3.408375447005037*^9}, {
   3.4083754907178926`*^9, 3.4083755170257215`*^9}, {3.4083755611992397`*^9, 
   3.4083757101634398`*^9}, 3.4083769141346655`*^9, {3.4083802758085155`*^9, 
   3.4083804229400797`*^9}, {3.408380453584144*^9, 3.4083805019637103`*^9}, {
   3.4083805555707936`*^9, 3.408380587156211*^9}, 3.408380972610467*^9, {
   3.408381004346101*^9, 3.4083810419001007`*^9}, {3.4083810737358785`*^9, 
   3.408381086123691*^9}, {3.40838112545024*^9, 3.408381153961237*^9}, {
   3.408382007819024*^9, 3.4083821114380207`*^9}, {3.408384040632066*^9, 
   3.408384129850355*^9}, {3.408384171199813*^9, 3.4083841930512333`*^9}, {
   3.408384240148957*^9, 3.4083843144257617`*^9}, {3.408384414659891*^9, 
   3.4083844180047007`*^9}, {3.4084528421260047`*^9, 
   3.4084528575882387`*^9}, {3.4084529233427887`*^9, 
   3.4084529506921153`*^9}, {3.4084530091762114`*^9, 3.40845303932957*^9}, {
   3.408453154445098*^9, 3.4084531674437885`*^9}, {3.4084532608981695`*^9, 
   3.408453261358832*^9}, {3.408453301055914*^9, 3.408453376324144*^9}, {
   3.408453483908843*^9, 3.408453493632826*^9}, {3.40845358368231*^9, 
   3.408453660552845*^9}, {3.408453779033211*^9, 3.4084537915512114`*^9}, {
   3.4084538234771185`*^9, 3.4084538238877087`*^9}, {3.4084538885306606`*^9, 
   3.4084539295095854`*^9}, {3.408464444759773*^9, 3.408464593874189*^9}, {
   3.408464624047576*^9, 3.408464626030427*^9}, {3.408464682251269*^9, 
   3.408464854829424*^9}, {3.4084649137942114`*^9, 3.4084649560850224`*^9}, 
   3.4084649989266253`*^9, {3.408465135492998*^9, 3.4084651907224145`*^9}, {
   3.408465278989336*^9, 3.4084652851882496`*^9}, {3.4084653865540066`*^9, 
   3.4084653899088306`*^9}, {3.4084654348534575`*^9, 3.408465441122472*^9}, {
   3.408465612599043*^9, 3.4084656369039917`*^9}, {3.4084656708027363`*^9, 
   3.4084657843860607`*^9}, {3.4084658455840592`*^9, 
   3.4084658494896755`*^9}, {3.4084678111403904`*^9, 
   3.4084678513782496`*^9}, {3.4084679723722305`*^9, 3.408468017386958*^9}, {
   3.4084686231580143`*^9, 3.408468626452752*^9}, {3.4084687520834*^9, 
   3.408468760014805*^9}, {3.408468813000995*^9, 3.408468964669083*^9}, {
   3.4084692549965534`*^9, 3.4084692805132446`*^9}, {3.408469333569536*^9, 
   3.4084693684797344`*^9}, {3.408485853552824*^9, 3.408485869906339*^9}, {
   3.4084859133788495`*^9, 3.408486128297888*^9}, {3.408486208192771*^9, 
   3.4084862116277103`*^9}, 3.408486242301818*^9, 3.408486274187667*^9, {
   3.4084863560153294`*^9, 3.4084863879812946`*^9}, {3.408486420468008*^9, 
   3.4084864687274017`*^9}, {3.408486636979336*^9, 3.4084867079914465`*^9}, 
   3.4084869129661856`*^9, {3.408486961626155*^9, 3.4084870193291283`*^9}, {
   3.4084870539388943`*^9, 3.4084870558716736`*^9}, {3.4084870926445503`*^9, 
   3.4084872918910527`*^9}, 3.4084874655006914`*^9, {3.408487613703797*^9, 
   3.4084876296767645`*^9}, {3.4084876634753647`*^9, 
   3.4084876715870285`*^9}, {3.408487721378626*^9, 3.4084881113593903`*^9}, {
   3.4084881667390223`*^9, 3.4084883538580866`*^9}, {3.4084884006553774`*^9, 
   3.4084884921869936`*^9}, {3.408488715748459*^9, 3.4084887262235217`*^9}, {
   3.408488776325565*^9, 3.408488795863659*^9}, {3.4084890260847006`*^9, 
   3.4084890417171793`*^9}, {3.408489087553088*^9, 3.4084891128795056`*^9}, {
   3.4084891866656046`*^9, 3.408489243367138*^9}, {3.4084894146133776`*^9, 
   3.408489415925264*^9}, 3.408489484223472*^9, {3.4084895159290624`*^9, 
   3.408489516319624*^9}, {3.408489707594664*^9, 3.408489708946608*^9}, {
   3.408491819153205*^9, 3.4084918657602224`*^9}, {3.408492058477336*^9, 
   3.4084920923159933`*^9}, {3.408492160994749*^9, 3.4084921624268084`*^9}, {
   3.4084922098349776`*^9, 3.4084922246062174`*^9}, {3.4084922655350704`*^9, 
   3.408492306203549*^9}, {3.4084923923374033`*^9, 3.4084924608058558`*^9}, {
   3.408557456214427*^9, 3.408557637795528*^9}, {3.4085576718845453`*^9, 
   3.4085577842561283`*^9}, {3.408557843992024*^9, 3.4085579962910194`*^9}, {
   3.4085581112663455`*^9, 3.4085581172749853`*^9}, {3.4085581506629953`*^9, 
   3.408558151564291*^9}, {3.4085582278539906`*^9, 3.408558235034315*^9}, 
   3.4085582685725408`*^9, {3.408558482960816*^9, 3.408558498112603*^9}, {
   3.4085586095828896`*^9, 3.4085586386246495`*^9}, {3.408558680775259*^9, 
   3.408558685652272*^9}, {3.408558747621379*^9, 3.408558747891768*^9}, {
   3.408558821697896*^9, 3.4085589787337027`*^9}, {3.408559015516594*^9, 
   3.4085590252505903`*^9}, 3.408559064727355*^9, {3.4085591607053647`*^9, 
   3.408559377947744*^9}, {3.4085594243644876`*^9, 3.4085594820975037`*^9}, {
   3.4085595126113806`*^9, 3.4085595734688897`*^9}, {3.4085596071373024`*^9, 
   3.408559624692546*^9}, {3.4085596553666525`*^9, 3.4085597768813825`*^9}, {
   3.4085598511181297`*^9, 3.4085598753730063`*^9}, {3.4085599169828386`*^9, 
   3.408559931573819*^9}, {3.4085600009535823`*^9, 3.408560035142744*^9}, {
   3.408560079236147*^9, 3.408560168534552*^9}, {3.4085602169141183`*^9, 
   3.4085602179456015`*^9}, {3.408560287044962*^9, 3.408560296598699*^9}, {
   3.4085603314888687`*^9, 3.4085603330811586`*^9}, {3.4085603669799023`*^9, 
   3.408560511177248*^9}, {3.4085605816085234`*^9, 3.40856059609936*^9}, {
   3.408560893206579*^9, 3.4085609438293715`*^9}, {3.40856098315592*^9, 
   3.4085611518885455`*^9}, {3.4085612010892925`*^9, 3.4085614332130704`*^9}, 
   3.4085614788787346`*^9, {3.408561570300192*^9, 3.4085616060315714`*^9}, {
   3.4085616694527664`*^9, 3.4085616702138605`*^9}, {3.408569905034952*^9, 
   3.4085699710498767`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"areaRatio", "[", 
   RowBox[{"d1_", ",", "d2_"}], "]"}], " ", ":=", " ", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox["d1", "2"], ")"}], "2"], 
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox["d2", "2"], ")"}], "2"]]}]], "Input",
 CellChangeTimes->{{3.408357787692192*^9, 3.4083579070938835`*^9}, {
   3.408357944417552*^9, 3.4083579461600575`*^9}, {3.408357987028824*^9, 
   3.408357995521035*^9}, {3.408358027016323*^9, 3.4083580896664095`*^9}, {
   3.4083585435891185`*^9, 3.4083589281220493`*^9}, {3.408358966156741*^9, 
   3.408359036708189*^9}, {3.408359083235091*^9, 3.408359125435773*^9}, {
   3.4083591678667855`*^9, 3.408359182317565*^9}, {3.4083592600693665`*^9, 
   3.4083593046835184`*^9}, {3.4083593600831795`*^9, 
   3.4083593622663183`*^9}, {3.4083595505170097`*^9, 3.408359550757355*^9}, {
   3.4083596329655647`*^9, 3.408359687954635*^9}, {3.40835975597244*^9, 
   3.408359780788123*^9}, {3.4083598331734495`*^9, 3.4083598339545727`*^9}, {
   3.408359904085416*^9, 3.4083599068594046`*^9}, {3.4083600269220467`*^9, 
   3.408360028183861*^9}, {3.4083601290288687`*^9, 3.408360140315098*^9}, {
   3.408360186010805*^9, 3.408360392257373*^9}, {3.4083607044763217`*^9, 
   3.4083607383249936`*^9}, {3.408360794295475*^9, 3.408360816026723*^9}, {
   3.4083608590586*^9, 3.4083608863878975`*^9}, {3.4083610035563774`*^9, 
   3.408361028932867*^9}, {3.408361094096568*^9, 3.408361121706269*^9}, {
   3.4083627094793744`*^9, 3.4083627996690607`*^9}, {3.4083628442231264`*^9, 
   3.4083629403513517`*^9}, {3.4083660200196977`*^9, 3.408366020850893*^9}, 
   3.4083660576237698`*^9, {3.408366234187656*^9, 3.408366260205067*^9}, {
   3.4083673748778877`*^9, 3.40836737558891*^9}, {3.408367903798438*^9, 
   3.408368032153003*^9}, {3.4083680653006673`*^9, 3.408368075325082*^9}, {
   3.4083681141509104`*^9, 3.4083681199592624`*^9}, {3.4083681886780753`*^9, 
   3.4083682889622765`*^9}, {3.408368343150195*^9, 3.408368409495595*^9}, {
   3.4083684702429457`*^9, 3.4083685042418337`*^9}, {3.408368544139203*^9, 
   3.408368564858997*^9}, 3.408369012652893*^9, {3.4083690529308095`*^9, 
   3.408369070345851*^9}, {3.4083691419688396`*^9, 3.408369146685622*^9}, 
   3.408373565499565*^9, {3.408373779997998*^9, 3.408373781089568*^9}, {
   3.408373823170077*^9, 3.4083738266050158`*^9}, {3.4083738790203857`*^9, 
   3.4083738807428627`*^9}, {3.408373938385749*^9, 3.408373940168312*^9}, {
   3.408373984692334*^9, 3.4083739881072445`*^9}, {3.4083743560763583`*^9, 
   3.4083743827647343`*^9}, {3.4083744157121105`*^9, 
   3.4083745709152813`*^9}, {3.4083746026108575`*^9, 
   3.4083746935916815`*^9}, {3.4083747802062273`*^9, 
   3.4083748507076035`*^9}, {3.408374891015563*^9, 3.4083749085207343`*^9}, {
   3.4083749408271885`*^9, 3.408374951101963*^9}, {3.408375022434534*^9, 
   3.408375037295904*^9}, {3.4083750748899612`*^9, 3.408375154053794*^9}, {
   3.408375249881587*^9, 3.4083752692894945`*^9}, {3.4083753867183485`*^9, 
   3.4083753877197886`*^9}, {3.408375444801869*^9, 3.408375447005037*^9}, {
   3.4083754907178926`*^9, 3.4083755170257215`*^9}, {3.4083755611992397`*^9, 
   3.4083757101634398`*^9}, 3.4083769141346655`*^9, {3.4083802758085155`*^9, 
   3.4083804229400797`*^9}, {3.408380453584144*^9, 3.4083805019637103`*^9}, {
   3.4083805555707936`*^9, 3.408380587156211*^9}, 3.408380972610467*^9, {
   3.408381004346101*^9, 3.4083810419001007`*^9}, {3.4083810737358785`*^9, 
   3.408381086123691*^9}, {3.40838112545024*^9, 3.408381153961237*^9}, {
   3.408382007819024*^9, 3.4083821114380207`*^9}, {3.408384040632066*^9, 
   3.408384129850355*^9}, {3.408384171199813*^9, 3.4083841930512333`*^9}, {
   3.408384240148957*^9, 3.4083843144257617`*^9}, {3.408384414659891*^9, 
   3.4083844180047007`*^9}, {3.4084528421260047`*^9, 
   3.4084528575882387`*^9}, {3.4084529233427887`*^9, 
   3.4084529506921153`*^9}, {3.4084530091762114`*^9, 3.40845303932957*^9}, {
   3.408453154445098*^9, 3.4084531674437885`*^9}, {3.4084532608981695`*^9, 
   3.408453261358832*^9}, {3.408453301055914*^9, 3.408453376324144*^9}, {
   3.408453483908843*^9, 3.408453493632826*^9}, {3.40845358368231*^9, 
   3.408453660552845*^9}, {3.408453779033211*^9, 3.4084537915512114`*^9}, {
   3.4084538234771185`*^9, 3.4084538238877087`*^9}, {3.4084538885306606`*^9, 
   3.4084539295095854`*^9}, {3.408464444759773*^9, 3.408464593874189*^9}, {
   3.408464624047576*^9, 3.408464626030427*^9}, {3.408464682251269*^9, 
   3.408464854829424*^9}, {3.4084649137942114`*^9, 3.4084649560850224`*^9}, 
   3.4084649989266253`*^9, {3.408465135492998*^9, 3.4084651907224145`*^9}, {
   3.408465278989336*^9, 3.4084652851882496`*^9}, {3.4084653865540066`*^9, 
   3.4084653899088306`*^9}, {3.4084654348534575`*^9, 3.408465441122472*^9}, {
   3.408465612599043*^9, 3.4084656369039917`*^9}, {3.4084656708027363`*^9, 
   3.4084657843860607`*^9}, {3.4084658455840592`*^9, 
   3.4084658494896755`*^9}, {3.4084678111403904`*^9, 
   3.4084678513782496`*^9}, {3.4084679723722305`*^9, 3.408468017386958*^9}, {
   3.4084686231580143`*^9, 3.408468626452752*^9}, {3.4084687520834*^9, 
   3.408468760014805*^9}, {3.408468813000995*^9, 3.408468964669083*^9}, {
   3.4084692549965534`*^9, 3.4084692805132446`*^9}, {3.408469333569536*^9, 
   3.4084693684797344`*^9}, {3.408485853552824*^9, 3.408485869906339*^9}, {
   3.4084859133788495`*^9, 3.408486128297888*^9}, {3.408486208192771*^9, 
   3.4084862116277103`*^9}, 3.408486242301818*^9, 3.408486274187667*^9, {
   3.4084863560153294`*^9, 3.4084863879812946`*^9}, {3.408486420468008*^9, 
   3.4084864687274017`*^9}, {3.408486636979336*^9, 3.4084867079914465`*^9}, 
   3.4084869129661856`*^9, {3.408486961626155*^9, 3.4084870193291283`*^9}, {
   3.4084870539388943`*^9, 3.4084870558716736`*^9}, {3.4084870926445503`*^9, 
   3.4084872918910527`*^9}, 3.4084874655006914`*^9, {3.408487613703797*^9, 
   3.4084876296767645`*^9}, {3.4084876634753647`*^9, 
   3.4084876715870285`*^9}, {3.408487721378626*^9, 3.4084881113593903`*^9}, {
   3.4084881667390223`*^9, 3.4084883538580866`*^9}, {3.4084884006553774`*^9, 
   3.4084884921869936`*^9}, {3.408488715748459*^9, 3.4084887262235217`*^9}, {
   3.408488776325565*^9, 3.408488795863659*^9}, {3.4084890260847006`*^9, 
   3.4084890417171793`*^9}, {3.408489087553088*^9, 3.4084891128795056`*^9}, {
   3.4084891866656046`*^9, 3.408489243367138*^9}, {3.4084894146133776`*^9, 
   3.408489415925264*^9}, 3.408489484223472*^9, {3.4084895159290624`*^9, 
   3.408489516319624*^9}, {3.408489707594664*^9, 3.408489708946608*^9}, {
   3.408491819153205*^9, 3.4084918657602224`*^9}, {3.408492058477336*^9, 
   3.4084920923159933`*^9}, {3.408492160994749*^9, 3.4084921624268084`*^9}, {
   3.4084922098349776`*^9, 3.4084922246062174`*^9}, {3.4084922655350704`*^9, 
   3.408492306203549*^9}, {3.4084923923374033`*^9, 3.4084924608058558`*^9}, {
   3.408557456214427*^9, 3.408557637795528*^9}, {3.4085576718845453`*^9, 
   3.4085577842561283`*^9}, {3.408557843992024*^9, 3.4085579962910194`*^9}, {
   3.4085581112663455`*^9, 3.4085581172749853`*^9}, {3.4085581506629953`*^9, 
   3.408558151564291*^9}, {3.4085582278539906`*^9, 3.408558235034315*^9}, 
   3.4085582685725408`*^9, {3.408558482960816*^9, 3.408558498112603*^9}, {
   3.4085586095828896`*^9, 3.4085586386246495`*^9}, {3.408558680775259*^9, 
   3.408558685652272*^9}, {3.408558747621379*^9, 3.408558747891768*^9}, {
   3.408558821697896*^9, 3.4085589787337027`*^9}, {3.408559015516594*^9, 
   3.4085590252505903`*^9}, 3.408559064727355*^9, {3.4085591607053647`*^9, 
   3.408559377947744*^9}, {3.4085594243644876`*^9, 3.4085594820975037`*^9}, {
   3.4085595126113806`*^9, 3.4085595734688897`*^9}, {3.4085596071373024`*^9, 
   3.408559624692546*^9}, {3.4085596553666525`*^9, 3.4085597768813825`*^9}, {
   3.4085598511181297`*^9, 3.4085598753730063`*^9}, {3.4085599169828386`*^9, 
   3.408559931573819*^9}, {3.4085600009535823`*^9, 3.408560035142744*^9}, {
   3.408560079236147*^9, 3.408560168534552*^9}, {3.4085602169141183`*^9, 
   3.4085602179456015`*^9}, {3.408560287044962*^9, 3.408560296598699*^9}, {
   3.4085603314888687`*^9, 3.4085603330811586`*^9}, {3.4085603669799023`*^9, 
   3.408560511177248*^9}, {3.4085605816085234`*^9, 3.40856059609936*^9}, {
   3.408560893206579*^9, 3.4085609438293715`*^9}, {3.40856098315592*^9, 
   3.4085611518885455`*^9}, {3.4085612010892925`*^9, 3.4085614332130704`*^9}, 
   3.4085614788787346`*^9, {3.408561570300192*^9, 3.408561575527709*^9}, 
   3.4085616164064894`*^9, {3.4085699876938095`*^9, 3.4085700090344963`*^9}}],

Cell["Area for a given diameter in meters:", "Text",
 CellChangeTimes->{{3.4085700209115744`*^9, 3.4085700264895954`*^9}, {
  3.408570066797555*^9, 3.408570074258283*^9}, {3.4086456148711233`*^9, 
  3.4086456170342336`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"area", "[", "diameter_", "]"}], " ", ":=", " ", 
  RowBox[{"\[Pi]", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      FractionBox["diameter", "2"], "Meter"}], ")"}], "2"]}]}]], "Input",
 CellChangeTimes->{{3.408357787692192*^9, 3.4083579070938835`*^9}, {
   3.408357944417552*^9, 3.4083579461600575`*^9}, {3.408357987028824*^9, 
   3.408357995521035*^9}, {3.408358027016323*^9, 3.4083580896664095`*^9}, {
   3.4083585435891185`*^9, 3.4083589281220493`*^9}, {3.408358966156741*^9, 
   3.408359036708189*^9}, {3.408359083235091*^9, 3.408359125435773*^9}, {
   3.4083591678667855`*^9, 3.408359182317565*^9}, {3.4083592600693665`*^9, 
   3.4083593046835184`*^9}, {3.4083593600831795`*^9, 
   3.4083593622663183`*^9}, {3.4083595505170097`*^9, 3.408359550757355*^9}, {
   3.4083596329655647`*^9, 3.408359687954635*^9}, {3.40835975597244*^9, 
   3.408359780788123*^9}, {3.4083598331734495`*^9, 3.4083598339545727`*^9}, {
   3.408359904085416*^9, 3.4083599068594046`*^9}, {3.4083600269220467`*^9, 
   3.408360028183861*^9}, {3.4083601290288687`*^9, 3.408360140315098*^9}, {
   3.408360186010805*^9, 3.408360392257373*^9}, {3.4083607044763217`*^9, 
   3.4083607383249936`*^9}, {3.408360794295475*^9, 3.408360816026723*^9}, {
   3.4083608590586*^9, 3.4083608863878975`*^9}, {3.4083610035563774`*^9, 
   3.408361028932867*^9}, {3.408361094096568*^9, 3.408361121706269*^9}, {
   3.4083627094793744`*^9, 3.4083627996690607`*^9}, {3.4083628442231264`*^9, 
   3.4083629403513517`*^9}, {3.4083660200196977`*^9, 3.408366020850893*^9}, 
   3.4083660576237698`*^9, {3.408366234187656*^9, 3.408366260205067*^9}, {
   3.4083673748778877`*^9, 3.40836737558891*^9}, {3.408367903798438*^9, 
   3.408368032153003*^9}, {3.4083680653006673`*^9, 3.408368075325082*^9}, {
   3.4083681141509104`*^9, 3.4083681199592624`*^9}, {3.4083681886780753`*^9, 
   3.4083682889622765`*^9}, {3.408368343150195*^9, 3.408368409495595*^9}, {
   3.4083684702429457`*^9, 3.4083685042418337`*^9}, {3.408368544139203*^9, 
   3.408368564858997*^9}, 3.408369012652893*^9, {3.4083690529308095`*^9, 
   3.408369070345851*^9}, {3.4083691419688396`*^9, 3.408369146685622*^9}, 
   3.408373565499565*^9, {3.408373779997998*^9, 3.408373781089568*^9}, {
   3.408373823170077*^9, 3.4083738266050158`*^9}, {3.4083738790203857`*^9, 
   3.4083738807428627`*^9}, {3.408373938385749*^9, 3.408373940168312*^9}, {
   3.408373984692334*^9, 3.4083739881072445`*^9}, {3.4083743560763583`*^9, 
   3.4083743827647343`*^9}, {3.4083744157121105`*^9, 
   3.4083745709152813`*^9}, {3.4083746026108575`*^9, 
   3.4083746935916815`*^9}, {3.4083747802062273`*^9, 
   3.4083748507076035`*^9}, {3.408374891015563*^9, 3.4083749085207343`*^9}, {
   3.4083749408271885`*^9, 3.408374951101963*^9}, {3.408375022434534*^9, 
   3.408375037295904*^9}, {3.4083750748899612`*^9, 3.408375154053794*^9}, {
   3.408375249881587*^9, 3.4083752692894945`*^9}, {3.4083753867183485`*^9, 
   3.4083753877197886`*^9}, {3.408375444801869*^9, 3.408375447005037*^9}, {
   3.4083754907178926`*^9, 3.4083755170257215`*^9}, {3.4083755611992397`*^9, 
   3.4083757101634398`*^9}, 3.4083769141346655`*^9, {3.4083802758085155`*^9, 
   3.4083804229400797`*^9}, {3.408380453584144*^9, 3.4083805019637103`*^9}, {
   3.4083805555707936`*^9, 3.408380587156211*^9}, 3.408380972610467*^9, {
   3.408381004346101*^9, 3.4083810419001007`*^9}, {3.4083810737358785`*^9, 
   3.408381086123691*^9}, {3.40838112545024*^9, 3.408381153961237*^9}, {
   3.408382007819024*^9, 3.4083821114380207`*^9}, {3.408384040632066*^9, 
   3.408384129850355*^9}, {3.408384171199813*^9, 3.4083841930512333`*^9}, {
   3.408384240148957*^9, 3.4083843144257617`*^9}, {3.408384414659891*^9, 
   3.4083844180047007`*^9}, {3.4084528421260047`*^9, 
   3.4084528575882387`*^9}, {3.4084529233427887`*^9, 
   3.4084529506921153`*^9}, {3.4084530091762114`*^9, 3.40845303932957*^9}, {
   3.408453154445098*^9, 3.4084531674437885`*^9}, {3.4084532608981695`*^9, 
   3.408453261358832*^9}, {3.408453301055914*^9, 3.408453376324144*^9}, {
   3.408453483908843*^9, 3.408453493632826*^9}, {3.40845358368231*^9, 
   3.408453660552845*^9}, {3.408453779033211*^9, 3.4084537915512114`*^9}, {
   3.4084538234771185`*^9, 3.4084538238877087`*^9}, {3.4084538885306606`*^9, 
   3.4084539295095854`*^9}, {3.408464444759773*^9, 3.408464593874189*^9}, {
   3.408464624047576*^9, 3.408464626030427*^9}, {3.408464682251269*^9, 
   3.408464854829424*^9}, {3.4084649137942114`*^9, 3.4084649560850224`*^9}, 
   3.4084649989266253`*^9, {3.408465135492998*^9, 3.4084651907224145`*^9}, {
   3.408465278989336*^9, 3.4084652851882496`*^9}, {3.4084653865540066`*^9, 
   3.4084653899088306`*^9}, {3.4084654348534575`*^9, 3.408465441122472*^9}, {
   3.408465612599043*^9, 3.4084656369039917`*^9}, {3.4084656708027363`*^9, 
   3.4084657843860607`*^9}, {3.4084658455840592`*^9, 
   3.4084658494896755`*^9}, {3.4084678111403904`*^9, 
   3.4084678513782496`*^9}, {3.4084679723722305`*^9, 3.408468017386958*^9}, {
   3.4084686231580143`*^9, 3.408468626452752*^9}, {3.4084687520834*^9, 
   3.408468760014805*^9}, {3.408468813000995*^9, 3.408468964669083*^9}, {
   3.4084692549965534`*^9, 3.4084692805132446`*^9}, {3.408469333569536*^9, 
   3.4084693684797344`*^9}, {3.408485853552824*^9, 3.408485869906339*^9}, {
   3.4084859133788495`*^9, 3.408486128297888*^9}, {3.408486208192771*^9, 
   3.4084862116277103`*^9}, 3.408486242301818*^9, 3.408486274187667*^9, {
   3.4084863560153294`*^9, 3.4084863879812946`*^9}, {3.408486420468008*^9, 
   3.4084864687274017`*^9}, {3.408486636979336*^9, 3.4084867079914465`*^9}, 
   3.4084869129661856`*^9, {3.408486961626155*^9, 3.4084870193291283`*^9}, {
   3.4084870539388943`*^9, 3.4084870558716736`*^9}, {3.4084870926445503`*^9, 
   3.4084872918910527`*^9}, 3.4084874655006914`*^9, {3.408487613703797*^9, 
   3.4084876296767645`*^9}, {3.4084876634753647`*^9, 
   3.4084876715870285`*^9}, {3.408487721378626*^9, 3.4084881113593903`*^9}, {
   3.4084881667390223`*^9, 3.4084883538580866`*^9}, {3.4084884006553774`*^9, 
   3.4084884921869936`*^9}, {3.408488715748459*^9, 3.4084887262235217`*^9}, {
   3.408488776325565*^9, 3.408488795863659*^9}, {3.4084890260847006`*^9, 
   3.4084890417171793`*^9}, {3.408489087553088*^9, 3.4084891128795056`*^9}, {
   3.4084891866656046`*^9, 3.408489243367138*^9}, {3.4084894146133776`*^9, 
   3.408489415925264*^9}, 3.408489484223472*^9, {3.4084895159290624`*^9, 
   3.408489516319624*^9}, {3.408489707594664*^9, 3.408489708946608*^9}, {
   3.408491819153205*^9, 3.4084918657602224`*^9}, {3.408492058477336*^9, 
   3.4084920923159933`*^9}, {3.408492160994749*^9, 3.4084921624268084`*^9}, {
   3.4084922098349776`*^9, 3.4084922246062174`*^9}, {3.4084922655350704`*^9, 
   3.408492306203549*^9}, {3.4084923923374033`*^9, 3.4084924608058558`*^9}, {
   3.408557456214427*^9, 3.408557637795528*^9}, {3.4085576718845453`*^9, 
   3.4085577842561283`*^9}, {3.408557843992024*^9, 3.4085579962910194`*^9}, {
   3.4085581112663455`*^9, 3.4085581172749853`*^9}, {3.4085581506629953`*^9, 
   3.408558151564291*^9}, {3.4085582278539906`*^9, 3.408558235034315*^9}, 
   3.4085582685725408`*^9, {3.408558482960816*^9, 3.408558498112603*^9}, {
   3.4085586095828896`*^9, 3.4085586386246495`*^9}, {3.408558680775259*^9, 
   3.408558685652272*^9}, {3.408558747621379*^9, 3.408558747891768*^9}, {
   3.408558821697896*^9, 3.4085589787337027`*^9}, {3.408559015516594*^9, 
   3.4085590252505903`*^9}, 3.408559064727355*^9, {3.4085591607053647`*^9, 
   3.408559377947744*^9}, {3.4085594243644876`*^9, 3.4085594820975037`*^9}, {
   3.4085595126113806`*^9, 3.4085595734688897`*^9}, {3.4085596071373024`*^9, 
   3.408559624692546*^9}, {3.4085596553666525`*^9, 3.4085597768813825`*^9}, {
   3.4085598511181297`*^9, 3.4085598753730063`*^9}, {3.4085599169828386`*^9, 
   3.408559931573819*^9}, {3.4085600009535823`*^9, 3.408560035142744*^9}, {
   3.408560079236147*^9, 3.408560168534552*^9}, {3.4085602169141183`*^9, 
   3.4085602179456015`*^9}, {3.408560287044962*^9, 3.408560296598699*^9}, {
   3.4085603314888687`*^9, 3.4085603330811586`*^9}, {3.4085603669799023`*^9, 
   3.408560511177248*^9}, {3.4085605816085234`*^9, 3.40856059609936*^9}, {
   3.408560893206579*^9, 3.4085609438293715`*^9}, {3.40856098315592*^9, 
   3.4085611518885455`*^9}, {3.4085612010892925`*^9, 3.4085614332130704`*^9}, 
   3.4085614788787346`*^9, {3.408561570300192*^9, 3.408561575527709*^9}, 
   3.4085616164064894`*^9, {3.4085699876938095`*^9, 3.4085700321777744`*^9}, {
   3.4085719226461344`*^9, 3.4085719240581646`*^9}}],

Cell[TextData[{
 "Beam diameter at distance (ref. Photon Inc. ",
 StyleBox["Application Note 220",
  FontSlant->"Italic"],
 "):"
}], "Text",
 CellChangeTimes->{{3.408357787692192*^9, 3.4083579070938835`*^9}, {
   3.408357944417552*^9, 3.4083579461600575`*^9}, {3.408357987028824*^9, 
   3.408357995521035*^9}, {3.408358027016323*^9, 3.4083580896664095`*^9}, {
   3.4083585435891185`*^9, 3.4083589281220493`*^9}, {3.408358966156741*^9, 
   3.408359036708189*^9}, {3.408359083235091*^9, 3.408359125435773*^9}, {
   3.4083591678667855`*^9, 3.408359182317565*^9}, {3.4083592600693665`*^9, 
   3.4083593046835184`*^9}, {3.4083593600831795`*^9, 
   3.4083593622663183`*^9}, {3.4083595505170097`*^9, 3.408359550757355*^9}, {
   3.4083596329655647`*^9, 3.408359687954635*^9}, {3.40835975597244*^9, 
   3.408359780788123*^9}, {3.4083598331734495`*^9, 3.4083598339545727`*^9}, {
   3.408359904085416*^9, 3.4083599068594046`*^9}, {3.4083600269220467`*^9, 
   3.408360028183861*^9}, {3.4083601290288687`*^9, 3.408360140315098*^9}, {
   3.408360186010805*^9, 3.408360392257373*^9}, {3.4083607044763217`*^9, 
   3.4083607383249936`*^9}, {3.408360794295475*^9, 3.408360816026723*^9}, {
   3.4083608590586*^9, 3.4083608863878975`*^9}, {3.4083610035563774`*^9, 
   3.408361028932867*^9}, {3.408361094096568*^9, 3.408361121706269*^9}, {
   3.4083627094793744`*^9, 3.4083627996690607`*^9}, {3.4083628442231264`*^9, 
   3.4083629403513517`*^9}, {3.4083660200196977`*^9, 3.408366020850893*^9}, 
   3.4083660576237698`*^9, {3.408366234187656*^9, 3.408366260205067*^9}, {
   3.4083673748778877`*^9, 3.40836737558891*^9}, {3.408367903798438*^9, 
   3.408368032153003*^9}, {3.4083680653006673`*^9, 3.408368075325082*^9}, {
   3.4083681141509104`*^9, 3.4083681199592624`*^9}, {3.4083681886780753`*^9, 
   3.4083682889622765`*^9}, {3.408368343150195*^9, 3.408368409495595*^9}, {
   3.4083684702429457`*^9, 3.4083685042418337`*^9}, {3.408368544139203*^9, 
   3.408368564858997*^9}, 3.408369012652893*^9, {3.4083690529308095`*^9, 
   3.408369070345851*^9}, {3.4083691419688396`*^9, 3.408369146685622*^9}, 
   3.408373565499565*^9, {3.408373779997998*^9, 3.408373781089568*^9}, {
   3.408373823170077*^9, 3.4083738266050158`*^9}, {3.4083738790203857`*^9, 
   3.4083738807428627`*^9}, {3.408373938385749*^9, 3.408373940168312*^9}, {
   3.408373984692334*^9, 3.4083739881072445`*^9}, {3.4083743560763583`*^9, 
   3.4083743827647343`*^9}, {3.4083744157121105`*^9, 
   3.4083745709152813`*^9}, {3.4083746026108575`*^9, 
   3.4083746935916815`*^9}, {3.4083747802062273`*^9, 
   3.4083748507076035`*^9}, {3.408374891015563*^9, 3.4083749085207343`*^9}, {
   3.4083749408271885`*^9, 3.408374951101963*^9}, {3.408375022434534*^9, 
   3.408375037295904*^9}, {3.4083750748899612`*^9, 3.408375154053794*^9}, {
   3.408375249881587*^9, 3.4083752692894945`*^9}, {3.4083753867183485`*^9, 
   3.4083753877197886`*^9}, {3.408375444801869*^9, 3.408375447005037*^9}, {
   3.4083754907178926`*^9, 3.4083755170257215`*^9}, {3.4083755611992397`*^9, 
   3.4083757101634398`*^9}, 3.4083769141346655`*^9, {3.4083802758085155`*^9, 
   3.4083804229400797`*^9}, {3.408380453584144*^9, 3.4083805019637103`*^9}, {
   3.4083805555707936`*^9, 3.408380587156211*^9}, 3.408380972610467*^9, {
   3.408381004346101*^9, 3.4083810419001007`*^9}, {3.4083810737358785`*^9, 
   3.408381086123691*^9}, {3.40838112545024*^9, 3.408381153961237*^9}, {
   3.408382007819024*^9, 3.4083821114380207`*^9}, {3.408384040632066*^9, 
   3.408384129850355*^9}, {3.408384171199813*^9, 3.4083841930512333`*^9}, {
   3.408384240148957*^9, 3.4083843144257617`*^9}, {3.408384414659891*^9, 
   3.4083844180047007`*^9}, {3.4084528421260047`*^9, 
   3.4084528575882387`*^9}, {3.4084529233427887`*^9, 
   3.4084529506921153`*^9}, {3.4084530091762114`*^9, 3.40845303932957*^9}, {
   3.408453154445098*^9, 3.4084531674437885`*^9}, {3.4084532608981695`*^9, 
   3.408453261358832*^9}, {3.408453301055914*^9, 3.408453376324144*^9}, {
   3.408453483908843*^9, 3.408453493632826*^9}, {3.40845358368231*^9, 
   3.408453660552845*^9}, {3.408453779033211*^9, 3.4084537915512114`*^9}, {
   3.4084538234771185`*^9, 3.4084538238877087`*^9}, {3.4084538885306606`*^9, 
   3.4084539295095854`*^9}, {3.408464444759773*^9, 3.408464593874189*^9}, {
   3.408464624047576*^9, 3.408464626030427*^9}, {3.408464682251269*^9, 
   3.408464854829424*^9}, {3.4084649137942114`*^9, 3.4084649560850224`*^9}, 
   3.4084649989266253`*^9, {3.408465135492998*^9, 3.4084651907224145`*^9}, {
   3.408465278989336*^9, 3.4084652851882496`*^9}, {3.4084653865540066`*^9, 
   3.4084653899088306`*^9}, {3.4084654348534575`*^9, 3.408465441122472*^9}, {
   3.408465612599043*^9, 3.4084656369039917`*^9}, {3.4084656708027363`*^9, 
   3.4084657843860607`*^9}, {3.4084658455840592`*^9, 
   3.4084658494896755`*^9}, {3.4084678111403904`*^9, 
   3.4084678513782496`*^9}, {3.4084679723722305`*^9, 3.408468017386958*^9}, {
   3.4084686231580143`*^9, 3.408468626452752*^9}, {3.4084687520834*^9, 
   3.408468760014805*^9}, {3.408468813000995*^9, 3.408468964669083*^9}, {
   3.4084692549965534`*^9, 3.4084692805132446`*^9}, {3.408469333569536*^9, 
   3.4084693684797344`*^9}, {3.408485853552824*^9, 3.408485869906339*^9}, {
   3.4084859133788495`*^9, 3.408486128297888*^9}, {3.408486208192771*^9, 
   3.4084862116277103`*^9}, 3.408486242301818*^9, 3.408486274187667*^9, {
   3.4084863560153294`*^9, 3.4084863879812946`*^9}, {3.408486420468008*^9, 
   3.4084864687274017`*^9}, {3.408486636979336*^9, 3.4084867079914465`*^9}, 
   3.4084869129661856`*^9, {3.408486961626155*^9, 3.4084870193291283`*^9}, {
   3.4084870539388943`*^9, 3.4084870558716736`*^9}, {3.4084870926445503`*^9, 
   3.4084872918910527`*^9}, 3.4084874655006914`*^9, {3.408487613703797*^9, 
   3.4084876296767645`*^9}, {3.4084876634753647`*^9, 
   3.4084876715870285`*^9}, {3.408487721378626*^9, 3.4084881113593903`*^9}, {
   3.4084881667390223`*^9, 3.4084883538580866`*^9}, {3.4084884006553774`*^9, 
   3.4084884921869936`*^9}, {3.408488715748459*^9, 3.4084887262235217`*^9}, {
   3.408488776325565*^9, 3.408488795863659*^9}, {3.4084890260847006`*^9, 
   3.4084890417171793`*^9}, {3.408489087553088*^9, 3.4084891128795056`*^9}, {
   3.4084891866656046`*^9, 3.408489243367138*^9}, {3.4084894146133776`*^9, 
   3.408489415925264*^9}, 3.408489484223472*^9, {3.4084895159290624`*^9, 
   3.408489516319624*^9}, {3.408489707594664*^9, 3.408489708946608*^9}, {
   3.408491819153205*^9, 3.4084918657602224`*^9}, {3.408492058477336*^9, 
   3.4084920923159933`*^9}, {3.408492160994749*^9, 3.4084921624268084`*^9}, {
   3.4084922098349776`*^9, 3.4084922246062174`*^9}, {3.4084922655350704`*^9, 
   3.408492306203549*^9}, {3.4084923923374033`*^9, 3.4084924608058558`*^9}, {
   3.408557456214427*^9, 3.408557637795528*^9}, {3.4085576718845453`*^9, 
   3.4085577842561283`*^9}, {3.408557843992024*^9, 3.4085579962910194`*^9}, {
   3.4085581112663455`*^9, 3.4085581172749853`*^9}, {3.4085581506629953`*^9, 
   3.408558151564291*^9}, {3.4085582278539906`*^9, 3.408558235034315*^9}, 
   3.4085582685725408`*^9, {3.408558482960816*^9, 3.408558498112603*^9}, {
   3.4085586095828896`*^9, 3.4085586386246495`*^9}, {3.408558680775259*^9, 
   3.408558685652272*^9}, {3.408558747621379*^9, 3.408558747891768*^9}, {
   3.408558821697896*^9, 3.4085589787337027`*^9}, {3.408559015516594*^9, 
   3.4085590252505903`*^9}, 3.408559064727355*^9, {3.4085591607053647`*^9, 
   3.408559377947744*^9}, {3.4085594243644876`*^9, 3.4085594820975037`*^9}, {
   3.4085595126113806`*^9, 3.4085595734688897`*^9}, {3.4085596071373024`*^9, 
   3.408559624692546*^9}, {3.4085596553666525`*^9, 3.4085597768813825`*^9}, {
   3.4085598511181297`*^9, 3.4085598753730063`*^9}, {3.4085599169828386`*^9, 
   3.408559931573819*^9}, {3.4085600009535823`*^9, 3.408560035142744*^9}, {
   3.408560079236147*^9, 3.408560168534552*^9}, {3.4085602169141183`*^9, 
   3.4085602179456015`*^9}, {3.408560287044962*^9, 3.408560296598699*^9}, {
   3.4085603314888687`*^9, 3.4085603330811586`*^9}, {3.4085603669799023`*^9, 
   3.408560511177248*^9}, {3.4085605816085234`*^9, 3.40856059609936*^9}, {
   3.408560893206579*^9, 3.4085609438293715`*^9}, {3.40856098315592*^9, 
   3.4085611518885455`*^9}, {3.4085612010892925`*^9, 3.4085614332130704`*^9}, 
   3.4085614788787346`*^9, {3.408561570300192*^9, 3.408561575527709*^9}, {
   3.4085616164064894`*^9, 3.408561665366891*^9}, 3.4086572298826895`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"diameter", "[", 
    RowBox[{"waist_", ",", " ", "distance_", ",", "divergence_"}], "]"}], " ",
    ":=", " ", 
   SqrtBox[
    RowBox[{
     SuperscriptBox["waist", "2"], " ", "+", " ", 
     RowBox[{
      SuperscriptBox["divergence", "2"], " ", 
      SuperscriptBox["distance", "2"]}]}]]}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.408357787692192*^9, 3.4083579070938835`*^9}, {
   3.408357944417552*^9, 3.4083579461600575`*^9}, {3.408357987028824*^9, 
   3.408357995521035*^9}, {3.408358027016323*^9, 3.4083580896664095`*^9}, {
   3.4083585435891185`*^9, 3.4083589281220493`*^9}, {3.408358966156741*^9, 
   3.408359036708189*^9}, {3.408359083235091*^9, 3.408359125435773*^9}, {
   3.4083591678667855`*^9, 3.408359182317565*^9}, {3.4083592600693665`*^9, 
   3.4083593046835184`*^9}, {3.4083593600831795`*^9, 
   3.4083593622663183`*^9}, {3.4083595505170097`*^9, 3.408359550757355*^9}, {
   3.4083596329655647`*^9, 3.408359687954635*^9}, {3.40835975597244*^9, 
   3.408359780788123*^9}, {3.4083598331734495`*^9, 3.4083598339545727`*^9}, {
   3.408359904085416*^9, 3.4083599068594046`*^9}, {3.4083600269220467`*^9, 
   3.408360028183861*^9}, {3.4083601290288687`*^9, 3.408360140315098*^9}, {
   3.408360186010805*^9, 3.408360392257373*^9}, {3.4083607044763217`*^9, 
   3.4083607383249936`*^9}, {3.408360794295475*^9, 3.408360816026723*^9}, {
   3.4083608590586*^9, 3.4083608863878975`*^9}, {3.4083610035563774`*^9, 
   3.408361028932867*^9}, {3.408361094096568*^9, 3.408361121706269*^9}, {
   3.4083627094793744`*^9, 3.4083627996690607`*^9}, {3.4083628442231264`*^9, 
   3.4083629403513517`*^9}, {3.4083660200196977`*^9, 3.408366020850893*^9}, 
   3.4083660576237698`*^9, {3.408366234187656*^9, 3.408366260205067*^9}, {
   3.4083673748778877`*^9, 3.40836737558891*^9}, {3.408367903798438*^9, 
   3.408368032153003*^9}, {3.4083680653006673`*^9, 3.408368075325082*^9}, {
   3.4083681141509104`*^9, 3.4083681199592624`*^9}, {3.4083681886780753`*^9, 
   3.4083682889622765`*^9}, {3.408368343150195*^9, 3.408368409495595*^9}, {
   3.4083684702429457`*^9, 3.4083685042418337`*^9}, {3.408368544139203*^9, 
   3.408368564858997*^9}, 3.408369012652893*^9, {3.4083690529308095`*^9, 
   3.408369070345851*^9}, {3.4083691419688396`*^9, 3.408369146685622*^9}, 
   3.408373565499565*^9, {3.408373779997998*^9, 3.408373781089568*^9}, {
   3.408373823170077*^9, 3.4083738266050158`*^9}, {3.4083738790203857`*^9, 
   3.4083738807428627`*^9}, {3.408373938385749*^9, 3.408373940168312*^9}, {
   3.408373984692334*^9, 3.4083739881072445`*^9}, {3.4083743560763583`*^9, 
   3.4083743827647343`*^9}, {3.4083744157121105`*^9, 
   3.4083745709152813`*^9}, {3.4083746026108575`*^9, 
   3.4083746935916815`*^9}, {3.4083747802062273`*^9, 
   3.4083748507076035`*^9}, {3.408374891015563*^9, 3.4083749085207343`*^9}, {
   3.4083749408271885`*^9, 3.408374951101963*^9}, {3.408375022434534*^9, 
   3.408375037295904*^9}, {3.4083750748899612`*^9, 3.408375154053794*^9}, {
   3.408375249881587*^9, 3.4083752692894945`*^9}, {3.4083753867183485`*^9, 
   3.4083753877197886`*^9}, {3.408375444801869*^9, 3.408375447005037*^9}, {
   3.4083754907178926`*^9, 3.4083755170257215`*^9}, {3.4083755611992397`*^9, 
   3.4083757101634398`*^9}, 3.4083769141346655`*^9, {3.4083802758085155`*^9, 
   3.4083804229400797`*^9}, {3.408380453584144*^9, 3.4083805019637103`*^9}, {
   3.4083805555707936`*^9, 3.408380587156211*^9}, 3.408380972610467*^9, {
   3.408381004346101*^9, 3.4083810419001007`*^9}, {3.4083810737358785`*^9, 
   3.408381086123691*^9}, {3.40838112545024*^9, 3.408381153961237*^9}, {
   3.408382007819024*^9, 3.4083821114380207`*^9}, {3.408384040632066*^9, 
   3.408384129850355*^9}, {3.408384171199813*^9, 3.4083841930512333`*^9}, {
   3.408384240148957*^9, 3.4083843144257617`*^9}, {3.408384414659891*^9, 
   3.4083844180047007`*^9}, {3.4084528421260047`*^9, 
   3.4084528575882387`*^9}, {3.4084529233427887`*^9, 
   3.4084529506921153`*^9}, {3.4084530091762114`*^9, 3.40845303932957*^9}, {
   3.408453154445098*^9, 3.4084531674437885`*^9}, {3.4084532608981695`*^9, 
   3.408453261358832*^9}, {3.408453301055914*^9, 3.408453376324144*^9}, {
   3.408453483908843*^9, 3.408453493632826*^9}, {3.40845358368231*^9, 
   3.408453660552845*^9}, {3.408453779033211*^9, 3.4084537915512114`*^9}, {
   3.4084538234771185`*^9, 3.4084538238877087`*^9}, {3.4084538885306606`*^9, 
   3.4084539295095854`*^9}, {3.408464444759773*^9, 3.408464593874189*^9}, {
   3.408464624047576*^9, 3.408464626030427*^9}, {3.408464682251269*^9, 
   3.408464854829424*^9}, {3.4084649137942114`*^9, 3.4084649560850224`*^9}, 
   3.4084649989266253`*^9, {3.408465135492998*^9, 3.4084651907224145`*^9}, {
   3.408465278989336*^9, 3.4084652851882496`*^9}, {3.4084653865540066`*^9, 
   3.4084653899088306`*^9}, {3.4084654348534575`*^9, 3.408465441122472*^9}, {
   3.408465612599043*^9, 3.4084656369039917`*^9}, {3.4084656708027363`*^9, 
   3.4084657843860607`*^9}, {3.4084658455840592`*^9, 
   3.4084658494896755`*^9}, {3.4084678111403904`*^9, 
   3.4084678513782496`*^9}, {3.4084679723722305`*^9, 3.408468017386958*^9}, {
   3.4084686231580143`*^9, 3.408468626452752*^9}, {3.4084687520834*^9, 
   3.408468760014805*^9}, {3.408468813000995*^9, 3.408468964669083*^9}, {
   3.4084692549965534`*^9, 3.4084692805132446`*^9}, {3.408469333569536*^9, 
   3.4084693684797344`*^9}, {3.408485853552824*^9, 3.408485869906339*^9}, {
   3.4084859133788495`*^9, 3.408486128297888*^9}, {3.408486208192771*^9, 
   3.4084862116277103`*^9}, 3.408486242301818*^9, 3.408486274187667*^9, {
   3.4084863560153294`*^9, 3.4084863879812946`*^9}, {3.408486420468008*^9, 
   3.4084864687274017`*^9}, {3.408486636979336*^9, 3.4084867079914465`*^9}, 
   3.4084869129661856`*^9, {3.408486961626155*^9, 3.4084870193291283`*^9}, {
   3.4084870539388943`*^9, 3.4084870558716736`*^9}, {3.4084870926445503`*^9, 
   3.4084872918910527`*^9}, 3.4084874655006914`*^9, {3.408487613703797*^9, 
   3.4084876296767645`*^9}, {3.4084876634753647`*^9, 
   3.4084876715870285`*^9}, {3.408487721378626*^9, 3.4084881113593903`*^9}, {
   3.4084881667390223`*^9, 3.4084883538580866`*^9}, {3.4084884006553774`*^9, 
   3.4084884921869936`*^9}, {3.408488715748459*^9, 3.4084887262235217`*^9}, {
   3.408488776325565*^9, 3.408488795863659*^9}, {3.4084890260847006`*^9, 
   3.4084890417171793`*^9}, {3.408489087553088*^9, 3.4084891128795056`*^9}, {
   3.4084891866656046`*^9, 3.408489243367138*^9}, {3.4084894146133776`*^9, 
   3.408489415925264*^9}, 3.408489484223472*^9, {3.4084895159290624`*^9, 
   3.408489516319624*^9}, {3.408489707594664*^9, 3.408489708946608*^9}, {
   3.408491819153205*^9, 3.4084918657602224`*^9}, {3.408492058477336*^9, 
   3.4084920923159933`*^9}, {3.408492160994749*^9, 3.4084921624268084`*^9}, {
   3.4084922098349776`*^9, 3.4084922246062174`*^9}, {3.4084922655350704`*^9, 
   3.408492306203549*^9}, {3.4084923923374033`*^9, 3.4084924608058558`*^9}, {
   3.408557456214427*^9, 3.408557637795528*^9}, {3.4085576718845453`*^9, 
   3.4085577842561283`*^9}, {3.408557843992024*^9, 3.4085579962910194`*^9}, {
   3.4085581112663455`*^9, 3.4085581172749853`*^9}, {3.4085581506629953`*^9, 
   3.408558151564291*^9}, {3.4085582278539906`*^9, 3.408558235034315*^9}, 
   3.4085582685725408`*^9, {3.408558482960816*^9, 3.408558498112603*^9}, {
   3.4085586095828896`*^9, 3.4085586386246495`*^9}, {3.408558680775259*^9, 
   3.408558685652272*^9}, {3.408558747621379*^9, 3.408558747891768*^9}, {
   3.408558821697896*^9, 3.4085589787337027`*^9}, {3.408559015516594*^9, 
   3.4085590252505903`*^9}, 3.408559064727355*^9, {3.4085591607053647`*^9, 
   3.408559377947744*^9}, {3.4085594243644876`*^9, 3.4085594820975037`*^9}, {
   3.4085595126113806`*^9, 3.4085595734688897`*^9}, {3.4085596071373024`*^9, 
   3.408559624692546*^9}, {3.4085596553666525`*^9, 3.4085597768813825`*^9}, {
   3.4085598511181297`*^9, 3.4085598753730063`*^9}, {3.4085599169828386`*^9, 
   3.408559931573819*^9}, {3.4085600009535823`*^9, 3.408560035142744*^9}, {
   3.408560079236147*^9, 3.408560168534552*^9}, {3.4085602169141183`*^9, 
   3.4085602179456015`*^9}, {3.408560287044962*^9, 3.408560296598699*^9}, {
   3.4085603314888687`*^9, 3.4085603330811586`*^9}, {3.4085603669799023`*^9, 
   3.408560511177248*^9}, {3.4085605816085234`*^9, 3.40856059609936*^9}, {
   3.408560893206579*^9, 3.4085609438293715`*^9}, {3.40856098315592*^9, 
   3.4085611518885455`*^9}, {3.4085612010892925`*^9, 3.4085614332130704`*^9}, 
   3.4085614788787346`*^9, {3.408561570300192*^9, 3.408561575527709*^9}, {
   3.4085616164064894`*^9, 3.408561622054611*^9}, 3.4085616865273185`*^9}],

Cell["Fraction of power transmitted through the pupil at distance:", "Text",
 CellChangeTimes->{{3.408357787692192*^9, 3.4083579070938835`*^9}, {
   3.408357944417552*^9, 3.4083579461600575`*^9}, {3.408357987028824*^9, 
   3.408357995521035*^9}, {3.408358027016323*^9, 3.4083580896664095`*^9}, {
   3.4083585435891185`*^9, 3.4083589281220493`*^9}, {3.408358966156741*^9, 
   3.408359036708189*^9}, {3.408359083235091*^9, 3.408359125435773*^9}, {
   3.4083591678667855`*^9, 3.408359182317565*^9}, {3.4083592600693665`*^9, 
   3.4083593046835184`*^9}, {3.4083593600831795`*^9, 
   3.4083593622663183`*^9}, {3.4083595505170097`*^9, 3.408359550757355*^9}, {
   3.4083596329655647`*^9, 3.408359687954635*^9}, {3.40835975597244*^9, 
   3.408359780788123*^9}, {3.4083598331734495`*^9, 3.4083598339545727`*^9}, {
   3.408359904085416*^9, 3.4083599068594046`*^9}, {3.4083600269220467`*^9, 
   3.408360028183861*^9}, {3.4083601290288687`*^9, 3.408360140315098*^9}, {
   3.408360186010805*^9, 3.408360392257373*^9}, {3.4083607044763217`*^9, 
   3.4083607383249936`*^9}, {3.408360794295475*^9, 3.408360816026723*^9}, {
   3.4083608590586*^9, 3.4083608863878975`*^9}, {3.4083610035563774`*^9, 
   3.408361028932867*^9}, {3.408361094096568*^9, 3.408361121706269*^9}, {
   3.4083627094793744`*^9, 3.4083627996690607`*^9}, {3.4083628442231264`*^9, 
   3.4083629403513517`*^9}, {3.4083660200196977`*^9, 3.408366020850893*^9}, 
   3.4083660576237698`*^9, {3.408366234187656*^9, 3.408366260205067*^9}, {
   3.4083673748778877`*^9, 3.40836737558891*^9}, {3.408367903798438*^9, 
   3.408368032153003*^9}, {3.4083680653006673`*^9, 3.408368075325082*^9}, {
   3.4083681141509104`*^9, 3.4083681199592624`*^9}, {3.4083681886780753`*^9, 
   3.4083682889622765`*^9}, {3.408368343150195*^9, 3.408368409495595*^9}, {
   3.4083684702429457`*^9, 3.4083685042418337`*^9}, {3.408368544139203*^9, 
   3.408368564858997*^9}, 3.408369012652893*^9, {3.4083690529308095`*^9, 
   3.408369070345851*^9}, {3.4083691419688396`*^9, 3.408369146685622*^9}, 
   3.408373565499565*^9, {3.408373779997998*^9, 3.408373781089568*^9}, {
   3.408373823170077*^9, 3.4083738266050158`*^9}, {3.4083738790203857`*^9, 
   3.4083738807428627`*^9}, {3.408373938385749*^9, 3.408373940168312*^9}, {
   3.408373984692334*^9, 3.4083739881072445`*^9}, {3.4083743560763583`*^9, 
   3.4083743827647343`*^9}, {3.4083744157121105`*^9, 
   3.4083745709152813`*^9}, {3.4083746026108575`*^9, 
   3.4083746935916815`*^9}, {3.4083747802062273`*^9, 
   3.4083748507076035`*^9}, {3.408374891015563*^9, 3.4083749085207343`*^9}, {
   3.4083749408271885`*^9, 3.408374951101963*^9}, {3.408375022434534*^9, 
   3.408375037295904*^9}, {3.4083750748899612`*^9, 3.408375154053794*^9}, {
   3.408375249881587*^9, 3.4083752692894945`*^9}, {3.4083753867183485`*^9, 
   3.4083753877197886`*^9}, {3.408375444801869*^9, 3.408375447005037*^9}, {
   3.4083754907178926`*^9, 3.4083755170257215`*^9}, {3.4083755611992397`*^9, 
   3.4083757101634398`*^9}, 3.4083769141346655`*^9, {3.4083802758085155`*^9, 
   3.4083804229400797`*^9}, {3.408380453584144*^9, 3.4083805019637103`*^9}, {
   3.4083805555707936`*^9, 3.408380587156211*^9}, 3.408380972610467*^9, {
   3.408381004346101*^9, 3.4083810419001007`*^9}, {3.4083810737358785`*^9, 
   3.408381086123691*^9}, {3.40838112545024*^9, 3.408381153961237*^9}, {
   3.408382007819024*^9, 3.4083821114380207`*^9}, {3.408384040632066*^9, 
   3.408384129850355*^9}, {3.408384171199813*^9, 3.4083841930512333`*^9}, {
   3.408384240148957*^9, 3.4083843144257617`*^9}, {3.408384414659891*^9, 
   3.4083844180047007`*^9}, {3.4084528421260047`*^9, 
   3.4084528575882387`*^9}, {3.4084529233427887`*^9, 
   3.4084529506921153`*^9}, {3.4084530091762114`*^9, 3.40845303932957*^9}, {
   3.408453154445098*^9, 3.4084531674437885`*^9}, {3.4084532608981695`*^9, 
   3.408453261358832*^9}, {3.408453301055914*^9, 3.408453376324144*^9}, {
   3.408453483908843*^9, 3.408453493632826*^9}, {3.40845358368231*^9, 
   3.408453660552845*^9}, {3.408453779033211*^9, 3.4084537915512114`*^9}, {
   3.4084538234771185`*^9, 3.4084538238877087`*^9}, {3.4084538885306606`*^9, 
   3.4084539295095854`*^9}, {3.408464444759773*^9, 3.408464593874189*^9}, {
   3.408464624047576*^9, 3.408464626030427*^9}, {3.408464682251269*^9, 
   3.408464854829424*^9}, {3.4084649137942114`*^9, 3.4084649560850224`*^9}, 
   3.4084649989266253`*^9, {3.408465135492998*^9, 3.4084651907224145`*^9}, {
   3.408465278989336*^9, 3.4084652851882496`*^9}, {3.4084653865540066`*^9, 
   3.4084653899088306`*^9}, {3.4084654348534575`*^9, 3.408465441122472*^9}, {
   3.408465612599043*^9, 3.4084656369039917`*^9}, {3.4084656708027363`*^9, 
   3.4084657843860607`*^9}, {3.4084658455840592`*^9, 
   3.4084658494896755`*^9}, {3.4084678111403904`*^9, 
   3.4084678513782496`*^9}, {3.4084679723722305`*^9, 3.408468017386958*^9}, {
   3.4084686231580143`*^9, 3.408468626452752*^9}, {3.4084687520834*^9, 
   3.408468760014805*^9}, {3.408468813000995*^9, 3.408468964669083*^9}, {
   3.4084692549965534`*^9, 3.4084692805132446`*^9}, {3.408469333569536*^9, 
   3.4084693684797344`*^9}, {3.408485853552824*^9, 3.408485869906339*^9}, {
   3.4084859133788495`*^9, 3.408486128297888*^9}, {3.408486208192771*^9, 
   3.4084862116277103`*^9}, 3.408486242301818*^9, 3.408486274187667*^9, {
   3.4084863560153294`*^9, 3.4084863879812946`*^9}, {3.408486420468008*^9, 
   3.4084864687274017`*^9}, {3.408486636979336*^9, 3.4084867079914465`*^9}, 
   3.4084869129661856`*^9, {3.408486961626155*^9, 3.4084870193291283`*^9}, {
   3.4084870539388943`*^9, 3.4084870558716736`*^9}, {3.4084870926445503`*^9, 
   3.4084872918910527`*^9}, 3.4084874655006914`*^9, {3.408487613703797*^9, 
   3.4084876296767645`*^9}, {3.4084876634753647`*^9, 
   3.4084876715870285`*^9}, {3.408487721378626*^9, 3.4084881113593903`*^9}, {
   3.4084881667390223`*^9, 3.4084883538580866`*^9}, {3.4084884006553774`*^9, 
   3.4084884921869936`*^9}, {3.408488715748459*^9, 3.4084887262235217`*^9}, {
   3.408488776325565*^9, 3.408488795863659*^9}, {3.4084890260847006`*^9, 
   3.4084890417171793`*^9}, {3.408489087553088*^9, 3.4084891128795056`*^9}, {
   3.4084891866656046`*^9, 3.408489243367138*^9}, {3.4084894146133776`*^9, 
   3.408489415925264*^9}, 3.408489484223472*^9, {3.4084895159290624`*^9, 
   3.408489516319624*^9}, {3.408489707594664*^9, 3.408489708946608*^9}, {
   3.408491819153205*^9, 3.4084918657602224`*^9}, {3.408492058477336*^9, 
   3.4084920923159933`*^9}, {3.408492160994749*^9, 3.4084921624268084`*^9}, {
   3.4084922098349776`*^9, 3.4084922246062174`*^9}, {3.4084922655350704`*^9, 
   3.408492306203549*^9}, {3.4084923923374033`*^9, 3.4084924608058558`*^9}, {
   3.408557456214427*^9, 3.408557637795528*^9}, {3.4085576718845453`*^9, 
   3.4085577842561283`*^9}, {3.408557843992024*^9, 3.4085579962910194`*^9}, {
   3.4085581112663455`*^9, 3.4085581172749853`*^9}, {3.4085581506629953`*^9, 
   3.408558151564291*^9}, {3.4085582278539906`*^9, 3.408558235034315*^9}, 
   3.4085582685725408`*^9, {3.408558482960816*^9, 3.408558498112603*^9}, {
   3.4085586095828896`*^9, 3.4085586386246495`*^9}, {3.408558680775259*^9, 
   3.408558685652272*^9}, {3.408558747621379*^9, 3.408558747891768*^9}, {
   3.408558821697896*^9, 3.4085589787337027`*^9}, {3.408559015516594*^9, 
   3.4085590252505903`*^9}, 3.408559064727355*^9, {3.4085591607053647`*^9, 
   3.408559377947744*^9}, {3.4085594243644876`*^9, 3.4085594820975037`*^9}, {
   3.4085595126113806`*^9, 3.4085595734688897`*^9}, {3.4085596071373024`*^9, 
   3.408559624692546*^9}, {3.4085596553666525`*^9, 3.4085597768813825`*^9}, {
   3.4085598511181297`*^9, 3.4085598753730063`*^9}, {3.4085599169828386`*^9, 
   3.408559931573819*^9}, {3.4085600009535823`*^9, 3.408560035142744*^9}, {
   3.408560079236147*^9, 3.408560168534552*^9}, {3.4085602169141183`*^9, 
   3.4085602179456015`*^9}, {3.408560287044962*^9, 3.408560296598699*^9}, {
   3.4085603314888687`*^9, 3.4085603330811586`*^9}, {3.4085603669799023`*^9, 
   3.408560511177248*^9}, {3.4085605816085234`*^9, 3.40856059609936*^9}, {
   3.408560893206579*^9, 3.4085609438293715`*^9}, {3.40856098315592*^9, 
   3.4085611518885455`*^9}, {3.4085612010892925`*^9, 3.4085614332130704`*^9}, 
   3.4085614788787346`*^9, {3.408561570300192*^9, 3.408561575527709*^9}, {
   3.4085616164064894`*^9, 3.408561622054611*^9}, {3.4085616865273185`*^9, 
   3.4085617304705057`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"pupilPower", "[", 
    RowBox[{
    "rating_", ",", "distance_", ",", "divergence_", ",", "pupilDiameter_", 
     ",", "waist_"}], "]"}], " ", ":=", " ", 
   RowBox[{"Watt", " ", "rating", " ", 
    RowBox[{"areaRatio", "[", 
     RowBox[{"pupilDiameter", ",", 
      RowBox[{"diameter", "[", 
       RowBox[{"waist", ",", "distance", ",", "divergence"}], "]"}]}], 
     "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.408357787692192*^9, 3.4083579070938835`*^9}, {
   3.408357944417552*^9, 3.4083579461600575`*^9}, {3.408357987028824*^9, 
   3.408357995521035*^9}, {3.408358027016323*^9, 3.4083580896664095`*^9}, {
   3.4083585435891185`*^9, 3.4083589281220493`*^9}, {3.408358966156741*^9, 
   3.408359036708189*^9}, {3.408359083235091*^9, 3.408359125435773*^9}, {
   3.4083591678667855`*^9, 3.408359182317565*^9}, {3.4083592600693665`*^9, 
   3.4083593046835184`*^9}, {3.4083593600831795`*^9, 
   3.4083593622663183`*^9}, {3.4083595505170097`*^9, 3.408359550757355*^9}, {
   3.4083596329655647`*^9, 3.408359687954635*^9}, {3.40835975597244*^9, 
   3.408359780788123*^9}, {3.4083598331734495`*^9, 3.4083598339545727`*^9}, {
   3.408359904085416*^9, 3.4083599068594046`*^9}, {3.4083600269220467`*^9, 
   3.408360028183861*^9}, {3.4083601290288687`*^9, 3.408360140315098*^9}, {
   3.408360186010805*^9, 3.408360392257373*^9}, {3.4083607044763217`*^9, 
   3.4083607383249936`*^9}, {3.408360794295475*^9, 3.408360816026723*^9}, {
   3.4083608590586*^9, 3.4083608863878975`*^9}, {3.4083610035563774`*^9, 
   3.408361028932867*^9}, {3.408361094096568*^9, 3.408361121706269*^9}, {
   3.4083627094793744`*^9, 3.4083627996690607`*^9}, {3.4083628442231264`*^9, 
   3.4083629403513517`*^9}, {3.4083660200196977`*^9, 3.408366020850893*^9}, 
   3.4083660576237698`*^9, {3.408366234187656*^9, 3.408366260205067*^9}, {
   3.4083673748778877`*^9, 3.40836737558891*^9}, {3.408367903798438*^9, 
   3.408368032153003*^9}, {3.4083680653006673`*^9, 3.408368075325082*^9}, {
   3.4083681141509104`*^9, 3.4083681199592624`*^9}, {3.4083681886780753`*^9, 
   3.4083682889622765`*^9}, {3.408368343150195*^9, 3.408368409495595*^9}, {
   3.4083684702429457`*^9, 3.4083685042418337`*^9}, {3.408368544139203*^9, 
   3.408368564858997*^9}, 3.408369012652893*^9, {3.4083690529308095`*^9, 
   3.408369070345851*^9}, {3.4083691419688396`*^9, 3.408369146685622*^9}, 
   3.408373565499565*^9, {3.408373779997998*^9, 3.408373781089568*^9}, {
   3.408373823170077*^9, 3.4083738266050158`*^9}, {3.4083738790203857`*^9, 
   3.4083738807428627`*^9}, {3.408373938385749*^9, 3.408373940168312*^9}, {
   3.408373984692334*^9, 3.4083739881072445`*^9}, {3.4083743560763583`*^9, 
   3.4083743827647343`*^9}, {3.4083744157121105`*^9, 
   3.4083745709152813`*^9}, {3.4083746026108575`*^9, 
   3.4083746935916815`*^9}, {3.4083747802062273`*^9, 
   3.4083748507076035`*^9}, {3.408374891015563*^9, 3.4083749085207343`*^9}, {
   3.4083749408271885`*^9, 3.408374951101963*^9}, {3.408375022434534*^9, 
   3.408375037295904*^9}, {3.4083750748899612`*^9, 3.408375154053794*^9}, {
   3.408375249881587*^9, 3.4083752692894945`*^9}, {3.4083753867183485`*^9, 
   3.4083753877197886`*^9}, {3.408375444801869*^9, 3.408375447005037*^9}, {
   3.4083754907178926`*^9, 3.4083755170257215`*^9}, {3.4083755611992397`*^9, 
   3.4083757101634398`*^9}, 3.4083769141346655`*^9, {3.4083802758085155`*^9, 
   3.4083804229400797`*^9}, {3.408380453584144*^9, 3.4083805019637103`*^9}, {
   3.4083805555707936`*^9, 3.408380587156211*^9}, 3.408380972610467*^9, {
   3.408381004346101*^9, 3.4083810419001007`*^9}, {3.4083810737358785`*^9, 
   3.408381086123691*^9}, {3.40838112545024*^9, 3.408381153961237*^9}, {
   3.408382007819024*^9, 3.4083821114380207`*^9}, {3.408384040632066*^9, 
   3.408384129850355*^9}, {3.408384171199813*^9, 3.4083841930512333`*^9}, {
   3.408384240148957*^9, 3.4083843144257617`*^9}, {3.408384414659891*^9, 
   3.4083844180047007`*^9}, {3.4084528421260047`*^9, 
   3.4084528575882387`*^9}, {3.4084529233427887`*^9, 
   3.4084529506921153`*^9}, {3.4084530091762114`*^9, 3.40845303932957*^9}, {
   3.408453154445098*^9, 3.4084531674437885`*^9}, {3.4084532608981695`*^9, 
   3.408453261358832*^9}, {3.408453301055914*^9, 3.408453376324144*^9}, {
   3.408453483908843*^9, 3.408453493632826*^9}, {3.40845358368231*^9, 
   3.408453660552845*^9}, {3.408453779033211*^9, 3.4084537915512114`*^9}, {
   3.4084538234771185`*^9, 3.4084538238877087`*^9}, {3.4084538885306606`*^9, 
   3.4084539295095854`*^9}, {3.408464444759773*^9, 3.408464593874189*^9}, {
   3.408464624047576*^9, 3.408464626030427*^9}, {3.408464682251269*^9, 
   3.408464854829424*^9}, {3.4084649137942114`*^9, 3.4084649560850224`*^9}, 
   3.4084649989266253`*^9, {3.408465135492998*^9, 3.4084651907224145`*^9}, {
   3.408465278989336*^9, 3.4084652851882496`*^9}, {3.4084653865540066`*^9, 
   3.4084653899088306`*^9}, {3.4084654348534575`*^9, 3.408465441122472*^9}, {
   3.408465612599043*^9, 3.4084656369039917`*^9}, {3.4084656708027363`*^9, 
   3.4084657843860607`*^9}, {3.4084658455840592`*^9, 
   3.4084658494896755`*^9}, {3.4084678111403904`*^9, 
   3.4084678513782496`*^9}, {3.4084679723722305`*^9, 3.408468017386958*^9}, {
   3.4084686231580143`*^9, 3.408468626452752*^9}, {3.4084687520834*^9, 
   3.408468760014805*^9}, {3.408468813000995*^9, 3.408468964669083*^9}, {
   3.4084692549965534`*^9, 3.4084692805132446`*^9}, {3.408469333569536*^9, 
   3.4084693684797344`*^9}, {3.408485853552824*^9, 3.408485869906339*^9}, {
   3.4084859133788495`*^9, 3.408486128297888*^9}, {3.408486208192771*^9, 
   3.4084862116277103`*^9}, 3.408486242301818*^9, 3.408486274187667*^9, {
   3.4084863560153294`*^9, 3.4084863879812946`*^9}, {3.408486420468008*^9, 
   3.4084864687274017`*^9}, {3.408486636979336*^9, 3.4084867079914465`*^9}, 
   3.4084869129661856`*^9, {3.408486961626155*^9, 3.4084870193291283`*^9}, {
   3.4084870539388943`*^9, 3.4084870558716736`*^9}, {3.4084870926445503`*^9, 
   3.4084872918910527`*^9}, 3.4084874655006914`*^9, {3.408487613703797*^9, 
   3.4084876296767645`*^9}, {3.4084876634753647`*^9, 
   3.4084876715870285`*^9}, {3.408487721378626*^9, 3.4084881113593903`*^9}, {
   3.4084881667390223`*^9, 3.4084883538580866`*^9}, {3.4084884006553774`*^9, 
   3.4084884921869936`*^9}, {3.408488715748459*^9, 3.4084887262235217`*^9}, {
   3.408488776325565*^9, 3.408488795863659*^9}, {3.4084890260847006`*^9, 
   3.4084890417171793`*^9}, {3.408489087553088*^9, 3.4084891128795056`*^9}, {
   3.4084891866656046`*^9, 3.408489243367138*^9}, {3.4084894146133776`*^9, 
   3.408489415925264*^9}, 3.408489484223472*^9, {3.4084895159290624`*^9, 
   3.408489516319624*^9}, {3.408489707594664*^9, 3.408489708946608*^9}, {
   3.408491819153205*^9, 3.4084918657602224`*^9}, {3.408492058477336*^9, 
   3.4084920923159933`*^9}, {3.408492160994749*^9, 3.4084921624268084`*^9}, {
   3.4084922098349776`*^9, 3.4084922246062174`*^9}, {3.4084922655350704`*^9, 
   3.408492306203549*^9}, {3.4084923923374033`*^9, 3.4084924608058558`*^9}, {
   3.408557456214427*^9, 3.408557637795528*^9}, {3.4085576718845453`*^9, 
   3.4085577842561283`*^9}, {3.408557843992024*^9, 3.4085579962910194`*^9}, {
   3.4085581112663455`*^9, 3.4085581172749853`*^9}, {3.4085581506629953`*^9, 
   3.408558151564291*^9}, {3.4085582278539906`*^9, 3.408558235034315*^9}, 
   3.4085582685725408`*^9, {3.408558482960816*^9, 3.408558498112603*^9}, {
   3.4085586095828896`*^9, 3.4085586386246495`*^9}, {3.408558680775259*^9, 
   3.408558685652272*^9}, {3.408558747621379*^9, 3.408558747891768*^9}, {
   3.408558821697896*^9, 3.4085589787337027`*^9}, {3.408559015516594*^9, 
   3.4085590252505903`*^9}, 3.408559064727355*^9, {3.4085591607053647`*^9, 
   3.408559377947744*^9}, {3.4085594243644876`*^9, 3.4085594820975037`*^9}, {
   3.4085595126113806`*^9, 3.4085595734688897`*^9}, {3.4085596071373024`*^9, 
   3.408559624692546*^9}, {3.4085596553666525`*^9, 3.4085597768813825`*^9}, {
   3.4085598511181297`*^9, 3.4085598753730063`*^9}, {3.4085599169828386`*^9, 
   3.408559931573819*^9}, {3.4085600009535823`*^9, 3.408560035142744*^9}, {
   3.408560079236147*^9, 3.408560168534552*^9}, {3.4085602169141183`*^9, 
   3.4085602179456015`*^9}, {3.408560287044962*^9, 3.408560296598699*^9}, {
   3.4085603314888687`*^9, 3.4085603330811586`*^9}, {3.4085603669799023`*^9, 
   3.408560511177248*^9}, {3.4085605816085234`*^9, 3.40856059609936*^9}, {
   3.408560893206579*^9, 3.4085609438293715`*^9}, {3.40856098315592*^9, 
   3.4085611518885455`*^9}, {3.4085612010892925`*^9, 3.4085614332130704`*^9}, 
   3.4085614788787346`*^9, {3.408561570300192*^9, 3.408561575527709*^9}, {
   3.4085616164064894`*^9, 3.408561622054611*^9}, {3.4085616865273185`*^9, 
   3.4085616902827187`*^9}}],

Cell[TextData[{
 "\n Spot size of beam of pupil width (Need citation for this calculation of \
spot size on retina. In ",
 StyleBox["Laser Safety ",
  FontSlant->"Italic"],
 "(Henderson and Schulmeister) there is a reference to 1.5 milliradian being \
the smallest spot size that can be achieved which should correlate to ca. \
.017 mm.)"
}], "Text",
 CellChangeTimes->{{3.408357787692192*^9, 3.4083579070938835`*^9}, {
   3.408357944417552*^9, 3.4083579461600575`*^9}, {3.408357987028824*^9, 
   3.408357995521035*^9}, {3.408358027016323*^9, 3.4083580896664095`*^9}, {
   3.4083585435891185`*^9, 3.4083589281220493`*^9}, {3.408358966156741*^9, 
   3.408359036708189*^9}, {3.408359083235091*^9, 3.408359125435773*^9}, {
   3.4083591678667855`*^9, 3.408359182317565*^9}, {3.4083592600693665`*^9, 
   3.4083593046835184`*^9}, {3.4083593600831795`*^9, 
   3.4083593622663183`*^9}, {3.4083595505170097`*^9, 3.408359550757355*^9}, {
   3.4083596329655647`*^9, 3.408359687954635*^9}, {3.40835975597244*^9, 
   3.408359780788123*^9}, {3.4083598331734495`*^9, 3.4083598339545727`*^9}, {
   3.408359904085416*^9, 3.4083599068594046`*^9}, {3.4083600269220467`*^9, 
   3.408360028183861*^9}, {3.4083601290288687`*^9, 3.408360140315098*^9}, {
   3.408360186010805*^9, 3.408360392257373*^9}, {3.4083607044763217`*^9, 
   3.4083607383249936`*^9}, {3.408360794295475*^9, 3.408360816026723*^9}, {
   3.4083608590586*^9, 3.4083608863878975`*^9}, {3.4083610035563774`*^9, 
   3.408361028932867*^9}, {3.408361094096568*^9, 3.408361121706269*^9}, {
   3.4083627094793744`*^9, 3.4083627996690607`*^9}, {3.4083628442231264`*^9, 
   3.4083629403513517`*^9}, {3.4083660200196977`*^9, 3.408366020850893*^9}, 
   3.4083660576237698`*^9, {3.408366234187656*^9, 3.408366260205067*^9}, {
   3.4083673748778877`*^9, 3.40836737558891*^9}, {3.408367903798438*^9, 
   3.408368032153003*^9}, {3.4083680653006673`*^9, 3.408368075325082*^9}, {
   3.4083681141509104`*^9, 3.4083681199592624`*^9}, {3.4083681886780753`*^9, 
   3.4083682889622765`*^9}, {3.408368343150195*^9, 3.408368409495595*^9}, {
   3.4083684702429457`*^9, 3.4083685042418337`*^9}, {3.408368544139203*^9, 
   3.408368564858997*^9}, 3.408369012652893*^9, {3.4083690529308095`*^9, 
   3.408369070345851*^9}, {3.4083691419688396`*^9, 3.408369146685622*^9}, 
   3.408373565499565*^9, {3.408373779997998*^9, 3.408373781089568*^9}, {
   3.408373823170077*^9, 3.4083738266050158`*^9}, {3.4083738790203857`*^9, 
   3.4083738807428627`*^9}, {3.408373938385749*^9, 3.408373940168312*^9}, {
   3.408373984692334*^9, 3.4083739881072445`*^9}, {3.4083743560763583`*^9, 
   3.4083743827647343`*^9}, {3.4083744157121105`*^9, 
   3.4083745709152813`*^9}, {3.4083746026108575`*^9, 
   3.4083746935916815`*^9}, {3.4083747802062273`*^9, 
   3.4083748507076035`*^9}, {3.408374891015563*^9, 3.4083749085207343`*^9}, {
   3.4083749408271885`*^9, 3.408374951101963*^9}, {3.408375022434534*^9, 
   3.408375037295904*^9}, {3.4083750748899612`*^9, 3.408375154053794*^9}, {
   3.408375249881587*^9, 3.4083752692894945`*^9}, {3.4083753867183485`*^9, 
   3.4083753877197886`*^9}, {3.408375444801869*^9, 3.408375447005037*^9}, {
   3.4083754907178926`*^9, 3.4083755170257215`*^9}, {3.4083755611992397`*^9, 
   3.4083757101634398`*^9}, 3.4083769141346655`*^9, {3.4083802758085155`*^9, 
   3.4083804229400797`*^9}, {3.408380453584144*^9, 3.4083805019637103`*^9}, {
   3.4083805555707936`*^9, 3.408380587156211*^9}, 3.408380972610467*^9, {
   3.408381004346101*^9, 3.4083810419001007`*^9}, {3.4083810737358785`*^9, 
   3.408381086123691*^9}, {3.40838112545024*^9, 3.408381153961237*^9}, {
   3.408382007819024*^9, 3.4083821114380207`*^9}, {3.408384040632066*^9, 
   3.408384129850355*^9}, {3.408384171199813*^9, 3.4083841930512333`*^9}, {
   3.408384240148957*^9, 3.4083843144257617`*^9}, {3.408384414659891*^9, 
   3.4083844180047007`*^9}, {3.4084528421260047`*^9, 
   3.4084528575882387`*^9}, {3.4084529233427887`*^9, 
   3.4084529506921153`*^9}, {3.4084530091762114`*^9, 3.40845303932957*^9}, {
   3.408453154445098*^9, 3.4084531674437885`*^9}, {3.4084532608981695`*^9, 
   3.408453261358832*^9}, {3.408453301055914*^9, 3.408453376324144*^9}, {
   3.408453483908843*^9, 3.408453493632826*^9}, {3.40845358368231*^9, 
   3.408453660552845*^9}, {3.408453779033211*^9, 3.4084537915512114`*^9}, {
   3.4084538234771185`*^9, 3.4084538238877087`*^9}, {3.4084538885306606`*^9, 
   3.4084539295095854`*^9}, {3.408464444759773*^9, 3.408464593874189*^9}, {
   3.408464624047576*^9, 3.408464626030427*^9}, {3.408464682251269*^9, 
   3.408464854829424*^9}, {3.4084649137942114`*^9, 3.4084649560850224`*^9}, 
   3.4084649989266253`*^9, {3.408465135492998*^9, 3.4084651907224145`*^9}, {
   3.408465278989336*^9, 3.4084652851882496`*^9}, {3.4084653865540066`*^9, 
   3.4084653899088306`*^9}, {3.4084654348534575`*^9, 3.408465441122472*^9}, {
   3.408465612599043*^9, 3.4084656369039917`*^9}, {3.4084656708027363`*^9, 
   3.4084657843860607`*^9}, {3.4084658455840592`*^9, 
   3.4084658494896755`*^9}, {3.4084678111403904`*^9, 
   3.4084678513782496`*^9}, {3.4084679723722305`*^9, 3.408468017386958*^9}, {
   3.4084686231580143`*^9, 3.408468626452752*^9}, {3.4084687520834*^9, 
   3.408468760014805*^9}, {3.408468813000995*^9, 3.408468964669083*^9}, {
   3.4084692549965534`*^9, 3.4084692805132446`*^9}, {3.408469333569536*^9, 
   3.4084693684797344`*^9}, {3.408485853552824*^9, 3.408485869906339*^9}, {
   3.4084859133788495`*^9, 3.408486128297888*^9}, {3.408486208192771*^9, 
   3.4084862116277103`*^9}, 3.408486242301818*^9, 3.408486274187667*^9, {
   3.4084863560153294`*^9, 3.4084863879812946`*^9}, {3.408486420468008*^9, 
   3.4084864687274017`*^9}, {3.408486636979336*^9, 3.4084867079914465`*^9}, 
   3.4084869129661856`*^9, {3.408486961626155*^9, 3.4084870193291283`*^9}, {
   3.4084870539388943`*^9, 3.4084870558716736`*^9}, {3.4084870926445503`*^9, 
   3.4084872918910527`*^9}, 3.4084874655006914`*^9, {3.408487613703797*^9, 
   3.4084876296767645`*^9}, {3.4084876634753647`*^9, 
   3.4084876715870285`*^9}, {3.408487721378626*^9, 3.4084881113593903`*^9}, {
   3.4084881667390223`*^9, 3.4084883538580866`*^9}, {3.4084884006553774`*^9, 
   3.4084884921869936`*^9}, {3.408488715748459*^9, 3.4084887262235217`*^9}, {
   3.408488776325565*^9, 3.408488795863659*^9}, {3.4084890260847006`*^9, 
   3.4084890417171793`*^9}, {3.408489087553088*^9, 3.4084891128795056`*^9}, {
   3.4084891866656046`*^9, 3.408489243367138*^9}, {3.4084894146133776`*^9, 
   3.408489415925264*^9}, 3.408489484223472*^9, {3.4084895159290624`*^9, 
   3.408489516319624*^9}, {3.408489707594664*^9, 3.408489708946608*^9}, {
   3.408491819153205*^9, 3.4084918657602224`*^9}, {3.408492058477336*^9, 
   3.4084920923159933`*^9}, {3.408492160994749*^9, 3.4084921624268084`*^9}, {
   3.4084922098349776`*^9, 3.4084922246062174`*^9}, {3.4084922655350704`*^9, 
   3.408492306203549*^9}, {3.4084923923374033`*^9, 3.4084924608058558`*^9}, {
   3.408557456214427*^9, 3.408557637795528*^9}, {3.4085576718845453`*^9, 
   3.4085577842561283`*^9}, {3.408557843992024*^9, 3.4085579962910194`*^9}, {
   3.4085581112663455`*^9, 3.4085581172749853`*^9}, {3.4085581506629953`*^9, 
   3.408558151564291*^9}, {3.4085582278539906`*^9, 3.408558235034315*^9}, 
   3.4085582685725408`*^9, {3.408558482960816*^9, 3.408558498112603*^9}, {
   3.4085586095828896`*^9, 3.4085586386246495`*^9}, {3.408558680775259*^9, 
   3.408558685652272*^9}, {3.408558747621379*^9, 3.408558747891768*^9}, {
   3.408558821697896*^9, 3.4085589787337027`*^9}, {3.408559015516594*^9, 
   3.4085590252505903`*^9}, 3.408559064727355*^9, {3.4085591607053647`*^9, 
   3.408559377947744*^9}, {3.4085594243644876`*^9, 3.4085594820975037`*^9}, {
   3.4085595126113806`*^9, 3.4085595734688897`*^9}, {3.4085596071373024`*^9, 
   3.408559624692546*^9}, {3.4085596553666525`*^9, 3.4085597768813825`*^9}, {
   3.4085598511181297`*^9, 3.4085598753730063`*^9}, {3.4085599169828386`*^9, 
   3.408559931573819*^9}, {3.4085600009535823`*^9, 3.408560035142744*^9}, {
   3.408560079236147*^9, 3.408560168534552*^9}, {3.4085602169141183`*^9, 
   3.4085602179456015`*^9}, {3.408560287044962*^9, 3.408560296598699*^9}, {
   3.4085603314888687`*^9, 3.4085603330811586`*^9}, {3.4085603669799023`*^9, 
   3.408560511177248*^9}, {3.4085605816085234`*^9, 3.40856059609936*^9}, {
   3.408560893206579*^9, 3.4085609438293715`*^9}, {3.40856098315592*^9, 
   3.4085611518885455`*^9}, {3.4085612010892925`*^9, 
   3.4085614332130704`*^9}, {3.4085614788787346`*^9, 3.408561544543155*^9}, {
   3.408561741366173*^9, 3.408561822242467*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"spotSize", "[", 
     RowBox[{"eyeFocalLength_", ",", "\[Lambda]_", ",", "pupilDiameter_"}], 
     "]"}], " ", ":=", " ", 
    RowBox[{"2.44", " ", 
     FractionBox[
      RowBox[{"eyeFocalLength", " ", "\[Lambda]"}], "pupilDiameter"]}]}], " ",
    ";"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.408357787692192*^9, 3.4083579070938835`*^9}, {
   3.408357944417552*^9, 3.4083579461600575`*^9}, {3.408357987028824*^9, 
   3.408357995521035*^9}, {3.408358027016323*^9, 3.4083580896664095`*^9}, {
   3.4083585435891185`*^9, 3.4083589281220493`*^9}, {3.408358966156741*^9, 
   3.408359036708189*^9}, {3.408359083235091*^9, 3.408359125435773*^9}, {
   3.4083591678667855`*^9, 3.408359182317565*^9}, {3.4083592600693665`*^9, 
   3.4083593046835184`*^9}, {3.4083593600831795`*^9, 
   3.4083593622663183`*^9}, {3.4083595505170097`*^9, 3.408359550757355*^9}, {
   3.4083596329655647`*^9, 3.408359687954635*^9}, {3.40835975597244*^9, 
   3.408359780788123*^9}, {3.4083598331734495`*^9, 3.4083598339545727`*^9}, {
   3.408359904085416*^9, 3.4083599068594046`*^9}, {3.4083600269220467`*^9, 
   3.408360028183861*^9}, {3.4083601290288687`*^9, 3.408360140315098*^9}, {
   3.408360186010805*^9, 3.408360392257373*^9}, {3.4083607044763217`*^9, 
   3.4083607383249936`*^9}, {3.408360794295475*^9, 3.408360816026723*^9}, {
   3.4083608590586*^9, 3.4083608863878975`*^9}, {3.4083610035563774`*^9, 
   3.408361028932867*^9}, {3.408361094096568*^9, 3.408361121706269*^9}, {
   3.4083627094793744`*^9, 3.4083627996690607`*^9}, {3.4083628442231264`*^9, 
   3.4083629403513517`*^9}, {3.4083660200196977`*^9, 3.408366020850893*^9}, 
   3.4083660576237698`*^9, {3.408366234187656*^9, 3.408366260205067*^9}, {
   3.4083673748778877`*^9, 3.40836737558891*^9}, {3.408367903798438*^9, 
   3.408368032153003*^9}, {3.4083680653006673`*^9, 3.408368075325082*^9}, {
   3.4083681141509104`*^9, 3.4083681199592624`*^9}, {3.4083681886780753`*^9, 
   3.4083682889622765`*^9}, {3.408368343150195*^9, 3.408368409495595*^9}, {
   3.4083684702429457`*^9, 3.4083685042418337`*^9}, {3.408368544139203*^9, 
   3.408368564858997*^9}, 3.408369012652893*^9, {3.4083690529308095`*^9, 
   3.408369070345851*^9}, {3.4083691419688396`*^9, 3.408369146685622*^9}, 
   3.408373565499565*^9, {3.408373779997998*^9, 3.408373781089568*^9}, {
   3.408373823170077*^9, 3.4083738266050158`*^9}, {3.4083738790203857`*^9, 
   3.4083738807428627`*^9}, {3.408373938385749*^9, 3.408373940168312*^9}, {
   3.408373984692334*^9, 3.4083739881072445`*^9}, {3.4083743560763583`*^9, 
   3.4083743827647343`*^9}, {3.4083744157121105`*^9, 
   3.4083745709152813`*^9}, {3.4083746026108575`*^9, 
   3.4083746935916815`*^9}, {3.4083747802062273`*^9, 
   3.4083748507076035`*^9}, {3.408374891015563*^9, 3.4083749085207343`*^9}, {
   3.4083749408271885`*^9, 3.408374951101963*^9}, {3.408375022434534*^9, 
   3.408375037295904*^9}, {3.4083750748899612`*^9, 3.408375154053794*^9}, {
   3.408375249881587*^9, 3.4083752692894945`*^9}, {3.4083753867183485`*^9, 
   3.4083753877197886`*^9}, {3.408375444801869*^9, 3.408375447005037*^9}, {
   3.4083754907178926`*^9, 3.4083755170257215`*^9}, {3.4083755611992397`*^9, 
   3.4083757101634398`*^9}, 3.4083769141346655`*^9, {3.4083802758085155`*^9, 
   3.4083804229400797`*^9}, {3.408380453584144*^9, 3.4083805019637103`*^9}, {
   3.4083805555707936`*^9, 3.408380587156211*^9}, 3.408380972610467*^9, {
   3.408381004346101*^9, 3.4083810419001007`*^9}, {3.4083810737358785`*^9, 
   3.408381086123691*^9}, {3.40838112545024*^9, 3.408381153961237*^9}, {
   3.408382007819024*^9, 3.4083821114380207`*^9}, {3.408384040632066*^9, 
   3.408384129850355*^9}, {3.408384171199813*^9, 3.4083841930512333`*^9}, {
   3.408384240148957*^9, 3.4083843144257617`*^9}, {3.408384414659891*^9, 
   3.4083844180047007`*^9}, {3.4084528421260047`*^9, 
   3.4084528575882387`*^9}, {3.4084529233427887`*^9, 
   3.4084529506921153`*^9}, {3.4084530091762114`*^9, 3.40845303932957*^9}, {
   3.408453154445098*^9, 3.4084531674437885`*^9}, {3.4084532608981695`*^9, 
   3.408453261358832*^9}, {3.408453301055914*^9, 3.408453376324144*^9}, {
   3.408453483908843*^9, 3.408453493632826*^9}, {3.40845358368231*^9, 
   3.408453660552845*^9}, {3.408453779033211*^9, 3.4084537915512114`*^9}, {
   3.4084538234771185`*^9, 3.4084538238877087`*^9}, {3.4084538885306606`*^9, 
   3.4084539295095854`*^9}, {3.408464444759773*^9, 3.408464593874189*^9}, {
   3.408464624047576*^9, 3.408464626030427*^9}, {3.408464682251269*^9, 
   3.408464854829424*^9}, {3.4084649137942114`*^9, 3.4084649560850224`*^9}, 
   3.4084649989266253`*^9, {3.408465135492998*^9, 3.4084651907224145`*^9}, {
   3.408465278989336*^9, 3.4084652851882496`*^9}, {3.4084653865540066`*^9, 
   3.4084653899088306`*^9}, {3.4084654348534575`*^9, 3.408465441122472*^9}, {
   3.408465612599043*^9, 3.4084656369039917`*^9}, {3.4084656708027363`*^9, 
   3.4084657843860607`*^9}, {3.4084658455840592`*^9, 
   3.4084658494896755`*^9}, {3.4084678111403904`*^9, 
   3.4084678513782496`*^9}, {3.4084679723722305`*^9, 3.408468017386958*^9}, {
   3.4084686231580143`*^9, 3.408468626452752*^9}, {3.4084687520834*^9, 
   3.408468760014805*^9}, {3.408468813000995*^9, 3.408468964669083*^9}, {
   3.4084692549965534`*^9, 3.4084692805132446`*^9}, {3.408469333569536*^9, 
   3.4084693684797344`*^9}, {3.408485853552824*^9, 3.408485869906339*^9}, {
   3.4084859133788495`*^9, 3.408486128297888*^9}, {3.408486208192771*^9, 
   3.4084862116277103`*^9}, 3.408486242301818*^9, 3.408486274187667*^9, {
   3.4084863560153294`*^9, 3.4084863879812946`*^9}, {3.408486420468008*^9, 
   3.4084864687274017`*^9}, {3.408486636979336*^9, 3.4084867079914465`*^9}, 
   3.4084869129661856`*^9, {3.408486961626155*^9, 3.4084870193291283`*^9}, {
   3.4084870539388943`*^9, 3.4084870558716736`*^9}, {3.4084870926445503`*^9, 
   3.4084872918910527`*^9}, 3.4084874655006914`*^9, {3.408487613703797*^9, 
   3.4084876296767645`*^9}, {3.4084876634753647`*^9, 
   3.4084876715870285`*^9}, {3.408487721378626*^9, 3.4084881113593903`*^9}, {
   3.4084881667390223`*^9, 3.4084883538580866`*^9}, {3.4084884006553774`*^9, 
   3.4084884921869936`*^9}, {3.408488715748459*^9, 3.4084887262235217`*^9}, {
   3.408488776325565*^9, 3.408488795863659*^9}, {3.4084890260847006`*^9, 
   3.4084890417171793`*^9}, {3.408489087553088*^9, 3.4084891128795056`*^9}, {
   3.4084891866656046`*^9, 3.408489243367138*^9}, {3.4084894146133776`*^9, 
   3.408489415925264*^9}, 3.408489484223472*^9, {3.4084895159290624`*^9, 
   3.408489516319624*^9}, {3.408489707594664*^9, 3.408489708946608*^9}, {
   3.408491819153205*^9, 3.4084918657602224`*^9}, {3.408492058477336*^9, 
   3.4084920923159933`*^9}, {3.408492160994749*^9, 3.4084921624268084`*^9}, {
   3.4084922098349776`*^9, 3.4084922246062174`*^9}, {3.4084922655350704`*^9, 
   3.408492306203549*^9}, {3.4084923923374033`*^9, 3.4084924608058558`*^9}, {
   3.408557456214427*^9, 3.408557637795528*^9}, {3.4085576718845453`*^9, 
   3.4085577842561283`*^9}, {3.408557843992024*^9, 3.4085579962910194`*^9}, {
   3.4085581112663455`*^9, 3.4085581172749853`*^9}, {3.4085581506629953`*^9, 
   3.408558151564291*^9}, {3.4085582278539906`*^9, 3.408558235034315*^9}, 
   3.4085582685725408`*^9, {3.408558482960816*^9, 3.408558498112603*^9}, {
   3.4085586095828896`*^9, 3.4085586386246495`*^9}, {3.408558680775259*^9, 
   3.408558685652272*^9}, {3.408558747621379*^9, 3.408558747891768*^9}, {
   3.408558821697896*^9, 3.4085589787337027`*^9}, {3.408559015516594*^9, 
   3.4085590252505903`*^9}, 3.408559064727355*^9, {3.4085591607053647`*^9, 
   3.408559377947744*^9}, {3.4085594243644876`*^9, 3.4085594820975037`*^9}, {
   3.4085595126113806`*^9, 3.4085595734688897`*^9}, {3.4085596071373024`*^9, 
   3.408559624692546*^9}, {3.4085596553666525`*^9, 3.4085597768813825`*^9}, {
   3.4085598511181297`*^9, 3.4085598753730063`*^9}, {3.4085599169828386`*^9, 
   3.408559931573819*^9}, {3.4085600009535823`*^9, 3.408560035142744*^9}, {
   3.408560079236147*^9, 3.408560168534552*^9}, {3.4085602169141183`*^9, 
   3.4085602179456015`*^9}, {3.408560287044962*^9, 3.408560296598699*^9}, {
   3.4085603314888687`*^9, 3.4085603330811586`*^9}, {3.4085603669799023`*^9, 
   3.408560511177248*^9}, {3.4085605816085234`*^9, 3.40856059609936*^9}, {
   3.408560893206579*^9, 3.4085609438293715`*^9}, {3.40856098315592*^9, 
   3.4085611518885455`*^9}, {3.4085612010892925`*^9, 
   3.4085614332130704`*^9}, {3.4085614788787346`*^9, 
   3.4085614842865105`*^9}, {3.4085696366089745`*^9, 3.408569804480362*^9}, 
   3.408569982015645*^9, {3.4086456746070194`*^9, 3.408645687435466*^9}}],

Cell["\<\
Calculate exposure in Watts per square Meter given rating in milliwatts, \
distance in meters, divergence in milliradians, pupilDiameter in millimeters, \
eyeFocalLength in millimeters, laser wavelength \[Lambda] in nanometers, beam \
waist in millimeters:\
\>", "Text",
 CellChangeTimes->{{3.408357787692192*^9, 3.4083579070938835`*^9}, {
   3.408357944417552*^9, 3.4083579461600575`*^9}, {3.408357987028824*^9, 
   3.408357995521035*^9}, {3.408358027016323*^9, 3.4083580896664095`*^9}, {
   3.4083585435891185`*^9, 3.4083589281220493`*^9}, {3.408358966156741*^9, 
   3.408359036708189*^9}, {3.408359083235091*^9, 3.408359125435773*^9}, {
   3.4083591678667855`*^9, 3.408359182317565*^9}, {3.4083592600693665`*^9, 
   3.4083593046835184`*^9}, {3.4083593600831795`*^9, 
   3.4083593622663183`*^9}, {3.4083595505170097`*^9, 3.408359550757355*^9}, {
   3.4083596329655647`*^9, 3.408359687954635*^9}, {3.40835975597244*^9, 
   3.408359780788123*^9}, {3.4083598331734495`*^9, 3.4083598339545727`*^9}, {
   3.408359904085416*^9, 3.4083599068594046`*^9}, {3.4083600269220467`*^9, 
   3.408360028183861*^9}, {3.4083601290288687`*^9, 3.408360140315098*^9}, {
   3.408360186010805*^9, 3.408360392257373*^9}, {3.4083607044763217`*^9, 
   3.4083607383249936`*^9}, {3.408360794295475*^9, 3.408360816026723*^9}, {
   3.4083608590586*^9, 3.4083608863878975`*^9}, {3.4083610035563774`*^9, 
   3.408361028932867*^9}, {3.408361094096568*^9, 3.408361121706269*^9}, {
   3.4083627094793744`*^9, 3.4083627996690607`*^9}, {3.4083628442231264`*^9, 
   3.4083629403513517`*^9}, {3.4083660200196977`*^9, 3.408366020850893*^9}, 
   3.4083660576237698`*^9, {3.408366234187656*^9, 3.408366260205067*^9}, {
   3.4083673748778877`*^9, 3.40836737558891*^9}, {3.408367903798438*^9, 
   3.408368032153003*^9}, {3.4083680653006673`*^9, 3.408368075325082*^9}, {
   3.4083681141509104`*^9, 3.4083681199592624`*^9}, {3.4083681886780753`*^9, 
   3.4083682889622765`*^9}, {3.408368343150195*^9, 3.408368409495595*^9}, {
   3.4083684702429457`*^9, 3.4083685042418337`*^9}, {3.408368544139203*^9, 
   3.408368564858997*^9}, 3.408369012652893*^9, {3.4083690529308095`*^9, 
   3.408369070345851*^9}, {3.4083691419688396`*^9, 3.408369146685622*^9}, 
   3.408373565499565*^9, {3.408373779997998*^9, 3.408373781089568*^9}, {
   3.408373823170077*^9, 3.4083738266050158`*^9}, {3.4083738790203857`*^9, 
   3.4083738807428627`*^9}, {3.408373938385749*^9, 3.408373940168312*^9}, {
   3.408373984692334*^9, 3.4083739881072445`*^9}, {3.4083743560763583`*^9, 
   3.4083743827647343`*^9}, {3.4083744157121105`*^9, 
   3.4083745709152813`*^9}, {3.4083746026108575`*^9, 
   3.4083746935916815`*^9}, {3.4083747802062273`*^9, 
   3.4083748507076035`*^9}, {3.408374891015563*^9, 3.4083749085207343`*^9}, {
   3.4083749408271885`*^9, 3.408374951101963*^9}, {3.408375022434534*^9, 
   3.408375037295904*^9}, {3.4083750748899612`*^9, 3.408375154053794*^9}, {
   3.408375249881587*^9, 3.4083752692894945`*^9}, {3.4083753867183485`*^9, 
   3.4083753877197886`*^9}, {3.408375444801869*^9, 3.408375447005037*^9}, {
   3.4083754907178926`*^9, 3.4083755170257215`*^9}, {3.4083755611992397`*^9, 
   3.4083757101634398`*^9}, 3.4083769141346655`*^9, {3.4083802758085155`*^9, 
   3.4083804229400797`*^9}, {3.408380453584144*^9, 3.4083805019637103`*^9}, {
   3.4083805555707936`*^9, 3.408380587156211*^9}, 3.408380972610467*^9, {
   3.408381004346101*^9, 3.4083810419001007`*^9}, {3.4083810737358785`*^9, 
   3.408381086123691*^9}, {3.40838112545024*^9, 3.408381153961237*^9}, {
   3.408382007819024*^9, 3.4083821114380207`*^9}, {3.408384040632066*^9, 
   3.408384129850355*^9}, {3.408384171199813*^9, 3.4083841930512333`*^9}, {
   3.408384240148957*^9, 3.4083843144257617`*^9}, {3.408384414659891*^9, 
   3.4083844180047007`*^9}, {3.4084528421260047`*^9, 
   3.4084528575882387`*^9}, {3.4084529233427887`*^9, 
   3.4084529506921153`*^9}, {3.4084530091762114`*^9, 3.40845303932957*^9}, {
   3.408453154445098*^9, 3.4084531674437885`*^9}, {3.4084532608981695`*^9, 
   3.408453261358832*^9}, {3.408453301055914*^9, 3.408453376324144*^9}, {
   3.408453483908843*^9, 3.408453493632826*^9}, {3.40845358368231*^9, 
   3.408453660552845*^9}, {3.408453779033211*^9, 3.4084537915512114`*^9}, {
   3.4084538234771185`*^9, 3.4084538238877087`*^9}, {3.4084538885306606`*^9, 
   3.4084539295095854`*^9}, {3.408464444759773*^9, 3.408464593874189*^9}, {
   3.408464624047576*^9, 3.408464626030427*^9}, {3.408464682251269*^9, 
   3.408464854829424*^9}, {3.4084649137942114`*^9, 3.4084649560850224`*^9}, 
   3.4084649989266253`*^9, {3.408465135492998*^9, 3.4084651907224145`*^9}, {
   3.408465278989336*^9, 3.4084652851882496`*^9}, {3.4084653865540066`*^9, 
   3.4084653899088306`*^9}, {3.4084654348534575`*^9, 3.408465441122472*^9}, {
   3.408465612599043*^9, 3.4084656369039917`*^9}, {3.4084656708027363`*^9, 
   3.4084657843860607`*^9}, {3.4084658455840592`*^9, 
   3.4084658494896755`*^9}, {3.4084678111403904`*^9, 
   3.4084678513782496`*^9}, {3.4084679723722305`*^9, 3.408468017386958*^9}, {
   3.4084686231580143`*^9, 3.408468626452752*^9}, {3.4084687520834*^9, 
   3.408468760014805*^9}, {3.408468813000995*^9, 3.408468964669083*^9}, {
   3.4084692549965534`*^9, 3.4084692805132446`*^9}, {3.408469333569536*^9, 
   3.4084693684797344`*^9}, {3.408485853552824*^9, 3.408485869906339*^9}, {
   3.4084859133788495`*^9, 3.408486128297888*^9}, {3.408486208192771*^9, 
   3.4084862116277103`*^9}, 3.408486242301818*^9, 3.408486274187667*^9, {
   3.4084863560153294`*^9, 3.4084863879812946`*^9}, {3.408486420468008*^9, 
   3.4084864687274017`*^9}, {3.408486636979336*^9, 3.4084867079914465`*^9}, 
   3.4084869129661856`*^9, {3.408486961626155*^9, 3.4084870193291283`*^9}, {
   3.4084870539388943`*^9, 3.4084870558716736`*^9}, {3.4084870926445503`*^9, 
   3.4084872918910527`*^9}, 3.4084874655006914`*^9, {3.408487613703797*^9, 
   3.4084876296767645`*^9}, {3.4084876634753647`*^9, 
   3.4084876715870285`*^9}, {3.408487721378626*^9, 3.4084881113593903`*^9}, {
   3.4084881667390223`*^9, 3.4084883538580866`*^9}, {3.4084884006553774`*^9, 
   3.4084884921869936`*^9}, {3.408488715748459*^9, 3.4084887262235217`*^9}, {
   3.408488776325565*^9, 3.408488795863659*^9}, {3.4084890260847006`*^9, 
   3.4084890417171793`*^9}, {3.408489087553088*^9, 3.4084891128795056`*^9}, {
   3.4084891866656046`*^9, 3.408489243367138*^9}, {3.4084894146133776`*^9, 
   3.408489415925264*^9}, 3.408489484223472*^9, {3.4084895159290624`*^9, 
   3.408489516319624*^9}, {3.408489707594664*^9, 3.408489708946608*^9}, {
   3.408491819153205*^9, 3.4084918657602224`*^9}, {3.408492058477336*^9, 
   3.4084920923159933`*^9}, {3.408492160994749*^9, 3.4084921624268084`*^9}, {
   3.4084922098349776`*^9, 3.4084922246062174`*^9}, {3.4084922655350704`*^9, 
   3.408492306203549*^9}, {3.4084923923374033`*^9, 3.4084924608058558`*^9}, {
   3.408557456214427*^9, 3.408557637795528*^9}, {3.4085576718845453`*^9, 
   3.4085577842561283`*^9}, {3.408557843992024*^9, 3.4085579962910194`*^9}, {
   3.4085581112663455`*^9, 3.4085581172749853`*^9}, {3.4085581506629953`*^9, 
   3.408558151564291*^9}, {3.4085582278539906`*^9, 3.408558235034315*^9}, 
   3.4085582685725408`*^9, {3.408558482960816*^9, 3.408558498112603*^9}, {
   3.4085586095828896`*^9, 3.4085586386246495`*^9}, {3.408558680775259*^9, 
   3.408558685652272*^9}, {3.408558747621379*^9, 3.408558747891768*^9}, {
   3.408558821697896*^9, 3.4085589787337027`*^9}, {3.408559015516594*^9, 
   3.4085590252505903`*^9}, 3.408559064727355*^9, {3.4085591607053647`*^9, 
   3.408559377947744*^9}, {3.4085594243644876`*^9, 3.4085594820975037`*^9}, {
   3.4085595126113806`*^9, 3.4085595734688897`*^9}, {3.4085596071373024`*^9, 
   3.408559624692546*^9}, {3.4085596553666525`*^9, 3.4085597768813825`*^9}, {
   3.4085598511181297`*^9, 3.4085598753730063`*^9}, {3.4085599169828386`*^9, 
   3.408559931573819*^9}, {3.4085600009535823`*^9, 3.408560035142744*^9}, {
   3.408560079236147*^9, 3.408560168534552*^9}, {3.4085602169141183`*^9, 
   3.4085602179456015`*^9}, {3.408560287044962*^9, 3.408560296598699*^9}, {
   3.4085603314888687`*^9, 3.4085603330811586`*^9}, {3.4085603669799023`*^9, 
   3.408560511177248*^9}, {3.4085605816085234`*^9, 3.40856059609936*^9}, {
   3.408560893206579*^9, 3.4085609438293715`*^9}, {3.40856098315592*^9, 
   3.4085611518885455`*^9}, {3.4085612010892925`*^9, 
   3.4085614668914976`*^9}, {3.408561830203915*^9, 3.4085618385058527`*^9}, {
   3.408570205897571*^9, 3.408570262378787*^9}, {3.408657355343093*^9, 
   3.4086573763933616`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"exposure", "[", 
    RowBox[{
    "rating_", ",", "distance_", ",", "divergence_", ",", "pupilDiameter_", 
     ",", "eyeFocalLength_", ",", "\[Lambda]_", ",", "waist_"}], "]"}], " ", ":=",
    " ", 
   RowBox[{
    RowBox[{"pupilPower", "[", 
     RowBox[{
      RowBox[{"rating", " ", 
       RowBox[{"10", "^", 
        RowBox[{"-", "3"}]}]}], ",", "distance", ",", 
      RowBox[{"divergence", " ", 
       RowBox[{"10", "^", 
        RowBox[{"-", "3"}]}]}], ",", 
      RowBox[{"pupilDiameter", " ", 
       RowBox[{"10", "^", 
        RowBox[{"-", "3"}]}]}], ",", 
      RowBox[{"waist", " ", 
       RowBox[{"10", "^", 
        RowBox[{"-", "3"}]}]}]}], "]"}], " ", "/", 
    RowBox[{"area", "[", 
     RowBox[{"spotSize", "[", 
      RowBox[{
       RowBox[{"eyeFocalLength", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "3"}]}]}], ",", 
       RowBox[{"\[Lambda]", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "9"}]}]}], ",", 
       RowBox[{"pupilDiameter", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "3"}]}]}]}], "]"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.408357787692192*^9, 3.4083579070938835`*^9}, {
   3.408357944417552*^9, 3.4083579461600575`*^9}, {3.408357987028824*^9, 
   3.408357995521035*^9}, {3.408358027016323*^9, 3.4083580896664095`*^9}, {
   3.4083585435891185`*^9, 3.4083589281220493`*^9}, {3.408358966156741*^9, 
   3.408359036708189*^9}, {3.408359083235091*^9, 3.408359125435773*^9}, {
   3.4083591678667855`*^9, 3.408359182317565*^9}, {3.4083592600693665`*^9, 
   3.4083593046835184`*^9}, {3.4083593600831795`*^9, 
   3.4083593622663183`*^9}, {3.4083595505170097`*^9, 3.408359550757355*^9}, {
   3.4083596329655647`*^9, 3.408359687954635*^9}, {3.40835975597244*^9, 
   3.408359780788123*^9}, {3.4083598331734495`*^9, 3.4083598339545727`*^9}, {
   3.408359904085416*^9, 3.4083599068594046`*^9}, {3.4083600269220467`*^9, 
   3.408360028183861*^9}, {3.4083601290288687`*^9, 3.408360140315098*^9}, {
   3.408360186010805*^9, 3.408360392257373*^9}, {3.4083607044763217`*^9, 
   3.4083607383249936`*^9}, {3.408360794295475*^9, 3.408360816026723*^9}, {
   3.4083608590586*^9, 3.4083608863878975`*^9}, {3.4083610035563774`*^9, 
   3.408361028932867*^9}, {3.408361094096568*^9, 3.408361121706269*^9}, {
   3.4083627094793744`*^9, 3.4083627996690607`*^9}, {3.4083628442231264`*^9, 
   3.4083629403513517`*^9}, {3.4083660200196977`*^9, 3.408366020850893*^9}, 
   3.4083660576237698`*^9, {3.408366234187656*^9, 3.408366260205067*^9}, {
   3.4083673748778877`*^9, 3.40836737558891*^9}, {3.408367903798438*^9, 
   3.408368032153003*^9}, {3.4083680653006673`*^9, 3.408368075325082*^9}, {
   3.4083681141509104`*^9, 3.4083681199592624`*^9}, {3.4083681886780753`*^9, 
   3.4083682889622765`*^9}, {3.408368343150195*^9, 3.408368409495595*^9}, {
   3.4083684702429457`*^9, 3.4083685042418337`*^9}, {3.408368544139203*^9, 
   3.408368564858997*^9}, 3.408369012652893*^9, {3.4083690529308095`*^9, 
   3.408369070345851*^9}, {3.4083691419688396`*^9, 3.408369146685622*^9}, 
   3.408373565499565*^9, {3.408373779997998*^9, 3.408373781089568*^9}, {
   3.408373823170077*^9, 3.4083738266050158`*^9}, {3.4083738790203857`*^9, 
   3.4083738807428627`*^9}, {3.408373938385749*^9, 3.408373940168312*^9}, {
   3.408373984692334*^9, 3.4083739881072445`*^9}, {3.4083743560763583`*^9, 
   3.4083743827647343`*^9}, {3.4083744157121105`*^9, 
   3.4083745709152813`*^9}, {3.4083746026108575`*^9, 
   3.4083746935916815`*^9}, {3.4083747802062273`*^9, 
   3.4083748507076035`*^9}, {3.408374891015563*^9, 3.4083749085207343`*^9}, {
   3.4083749408271885`*^9, 3.408374951101963*^9}, {3.408375022434534*^9, 
   3.408375037295904*^9}, {3.4083750748899612`*^9, 3.408375154053794*^9}, {
   3.408375249881587*^9, 3.4083752692894945`*^9}, {3.4083753867183485`*^9, 
   3.4083753877197886`*^9}, {3.408375444801869*^9, 3.408375447005037*^9}, {
   3.4083754907178926`*^9, 3.4083755170257215`*^9}, {3.4083755611992397`*^9, 
   3.4083757101634398`*^9}, 3.4083769141346655`*^9, {3.4083802758085155`*^9, 
   3.4083804229400797`*^9}, {3.408380453584144*^9, 3.4083805019637103`*^9}, {
   3.4083805555707936`*^9, 3.408380587156211*^9}, 3.408380972610467*^9, {
   3.408381004346101*^9, 3.4083810419001007`*^9}, {3.4083810737358785`*^9, 
   3.408381086123691*^9}, {3.40838112545024*^9, 3.408381153961237*^9}, {
   3.408382007819024*^9, 3.4083821114380207`*^9}, {3.408384040632066*^9, 
   3.408384129850355*^9}, {3.408384171199813*^9, 3.4083841930512333`*^9}, {
   3.408384240148957*^9, 3.4083843144257617`*^9}, {3.408384414659891*^9, 
   3.4083844180047007`*^9}, {3.4084528421260047`*^9, 
   3.4084528575882387`*^9}, {3.4084529233427887`*^9, 
   3.4084529506921153`*^9}, {3.4084530091762114`*^9, 3.40845303932957*^9}, {
   3.408453154445098*^9, 3.4084531674437885`*^9}, {3.4084532608981695`*^9, 
   3.408453261358832*^9}, {3.408453301055914*^9, 3.408453376324144*^9}, {
   3.408453483908843*^9, 3.408453493632826*^9}, {3.40845358368231*^9, 
   3.408453660552845*^9}, {3.408453779033211*^9, 3.4084537915512114`*^9}, {
   3.4084538234771185`*^9, 3.4084538238877087`*^9}, {3.4084538885306606`*^9, 
   3.4084539295095854`*^9}, {3.408464444759773*^9, 3.408464593874189*^9}, {
   3.408464624047576*^9, 3.408464626030427*^9}, {3.408464682251269*^9, 
   3.408464854829424*^9}, {3.4084649137942114`*^9, 3.4084649560850224`*^9}, 
   3.4084649989266253`*^9, {3.408465135492998*^9, 3.4084651907224145`*^9}, {
   3.408465278989336*^9, 3.4084652851882496`*^9}, {3.4084653865540066`*^9, 
   3.4084653899088306`*^9}, {3.4084654348534575`*^9, 3.408465441122472*^9}, {
   3.408465612599043*^9, 3.4084656369039917`*^9}, {3.4084656708027363`*^9, 
   3.4084657843860607`*^9}, {3.4084658455840592`*^9, 
   3.4084658494896755`*^9}, {3.4084678111403904`*^9, 
   3.4084678513782496`*^9}, {3.4084679723722305`*^9, 3.408468017386958*^9}, {
   3.4084686231580143`*^9, 3.408468626452752*^9}, {3.4084687520834*^9, 
   3.408468760014805*^9}, {3.408468813000995*^9, 3.408468964669083*^9}, {
   3.4084692549965534`*^9, 3.4084692805132446`*^9}, {3.408469333569536*^9, 
   3.4084693684797344`*^9}, {3.408485853552824*^9, 3.408485869906339*^9}, {
   3.4084859133788495`*^9, 3.408486128297888*^9}, {3.408486208192771*^9, 
   3.4084862116277103`*^9}, 3.408486242301818*^9, 3.408486274187667*^9, {
   3.4084863560153294`*^9, 3.4084863879812946`*^9}, {3.408486420468008*^9, 
   3.4084864687274017`*^9}, {3.408486636979336*^9, 3.4084867079914465`*^9}, 
   3.4084869129661856`*^9, {3.408486961626155*^9, 3.4084870193291283`*^9}, {
   3.4084870539388943`*^9, 3.4084870558716736`*^9}, {3.4084870926445503`*^9, 
   3.4084872918910527`*^9}, 3.4084874655006914`*^9, {3.408487613703797*^9, 
   3.4084876296767645`*^9}, {3.4084876634753647`*^9, 
   3.4084876715870285`*^9}, {3.408487721378626*^9, 3.4084881113593903`*^9}, {
   3.4084881667390223`*^9, 3.4084883538580866`*^9}, {3.4084884006553774`*^9, 
   3.4084884921869936`*^9}, {3.408488715748459*^9, 3.4084887262235217`*^9}, {
   3.408488776325565*^9, 3.408488795863659*^9}, {3.4084890260847006`*^9, 
   3.4084890417171793`*^9}, {3.408489087553088*^9, 3.4084891128795056`*^9}, {
   3.4084891866656046`*^9, 3.408489243367138*^9}, {3.4084894146133776`*^9, 
   3.408489415925264*^9}, 3.408489484223472*^9, {3.4084895159290624`*^9, 
   3.408489516319624*^9}, {3.408489707594664*^9, 3.408489708946608*^9}, {
   3.408491819153205*^9, 3.4084918657602224`*^9}, {3.408492058477336*^9, 
   3.4084920923159933`*^9}, {3.408492160994749*^9, 3.4084921624268084`*^9}, {
   3.4084922098349776`*^9, 3.4084922246062174`*^9}, {3.4084922655350704`*^9, 
   3.408492306203549*^9}, {3.4084923923374033`*^9, 3.4084924608058558`*^9}, {
   3.408557456214427*^9, 3.408557637795528*^9}, {3.4085576718845453`*^9, 
   3.4085577842561283`*^9}, {3.408557843992024*^9, 3.4085579962910194`*^9}, {
   3.4085581112663455`*^9, 3.4085581172749853`*^9}, {3.4085581506629953`*^9, 
   3.408558151564291*^9}, {3.4085582278539906`*^9, 3.408558235034315*^9}, 
   3.4085582685725408`*^9, {3.408558482960816*^9, 3.408558498112603*^9}, {
   3.4085586095828896`*^9, 3.4085586386246495`*^9}, {3.408558680775259*^9, 
   3.408558685652272*^9}, {3.408558747621379*^9, 3.408558747891768*^9}, {
   3.408558821697896*^9, 3.4085589787337027`*^9}, {3.408559015516594*^9, 
   3.4085590252505903`*^9}, 3.408559064727355*^9, {3.4085591607053647`*^9, 
   3.408559377947744*^9}, {3.4085594243644876`*^9, 3.4085594820975037`*^9}, {
   3.4085595126113806`*^9, 3.4085595734688897`*^9}, {3.4085596071373024`*^9, 
   3.408559624692546*^9}, {3.4085596553666525`*^9, 3.4085597768813825`*^9}, {
   3.4085598511181297`*^9, 3.4085598753730063`*^9}, {3.4085599169828386`*^9, 
   3.408559931573819*^9}, {3.4085600009535823`*^9, 3.408560035142744*^9}, {
   3.408560079236147*^9, 3.408560168534552*^9}, {3.4085602169141183`*^9, 
   3.4085602179456015`*^9}, {3.408560287044962*^9, 3.408560296598699*^9}, {
   3.4085603314888687`*^9, 3.4085603330811586`*^9}, {3.4085603669799023`*^9, 
   3.408560511177248*^9}, {3.4085605816085234`*^9, 3.40856059609936*^9}, {
   3.408560893206579*^9, 3.4085609438293715`*^9}, {3.40856098315592*^9, 
   3.4085611518885455`*^9}, {3.4085612010892925`*^9, 3.408561440143035*^9}, 
   3.408561871082696*^9, {3.4085619779063005`*^9, 3.4085620337766385`*^9}, {
   3.408562081955917*^9, 3.4085620858615327`*^9}, {3.408562255835944*^9, 
   3.408562256106333*^9}, {3.4085624230664096`*^9, 3.4085624235971727`*^9}, {
   3.408562461752037*^9, 3.408562517091611*^9}, {3.408562548006064*^9, 
   3.4085625760563984`*^9}, {3.4085627226872435`*^9, 
   3.4085627277044573`*^9}, {3.408562913701909*^9, 3.4085629768627295`*^9}, {
   3.4085630107614737`*^9, 3.40856303426527*^9}, {3.4085630809423885`*^9, 
   3.408563149490957*^9}, {3.408563199623043*^9, 3.408563292646805*^9}, {
   3.4085634317067633`*^9, 3.4085634323376703`*^9}, {3.4085698421044626`*^9, 
   3.4085698671304483`*^9}, {3.40857018313484*^9, 3.408570195051976*^9}, {
   3.4085702756779103`*^9, 3.4085703144336386`*^9}, {3.4085713392472477`*^9, 
   3.4085713400083427`*^9}, {3.4085716238965535`*^9, 3.408571643965411*^9}, {
   3.408573811872709*^9, 3.408573823269096*^9}, {3.4086457161767936`*^9, 
   3.40864572158457*^9}, {3.408645755583458*^9, 3.4086457629840994`*^9}, {
   3.4086458723713903`*^9, 3.408645890116907*^9}, 3.408645944495099*^9, {
   3.408646758665819*^9, 3.40864675932677*^9}, {3.4086468234790163`*^9, 
   3.4086468391215086`*^9}, {3.408648192127035*^9, 3.4086482204677873`*^9}, {
   3.4086498380237184`*^9, 3.408649840747635*^9}, {3.4087096660012045`*^9, 
   3.4087097769807854`*^9}, {3.408710149606595*^9, 3.4087101610530543`*^9}, {
   3.408710745483424*^9, 3.4087107988201184`*^9}, {3.408735982491763*^9, 
   3.408735985506098*^9}, {3.408736352363613*^9, 3.4087364166260176`*^9}, {
   3.408737257094552*^9, 3.4087372854953904`*^9}, {3.4087373321624947`*^9, 
   3.408737337029493*^9}, {3.4087396447678576`*^9, 3.4087396474116592`*^9}}],

Cell[TextData[{
 "Plot retinal exposure for a range of laser powers and distances as Watts \
per ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["cm", "2"], TraditionalForm]]],
 " which intersects a plane of maximum exposure. Parameters may be set via \
the sliders."
}], "Text",
 CellChangeTimes->{{3.408357787692192*^9, 3.4083579070938835`*^9}, {
   3.408357944417552*^9, 3.4083579461600575`*^9}, {3.408357987028824*^9, 
   3.408357995521035*^9}, {3.408358027016323*^9, 3.4083580896664095`*^9}, {
   3.4083585435891185`*^9, 3.4083589281220493`*^9}, {3.408358966156741*^9, 
   3.408359036708189*^9}, {3.408359083235091*^9, 3.408359125435773*^9}, {
   3.4083591678667855`*^9, 3.408359182317565*^9}, {3.4083592600693665`*^9, 
   3.4083593046835184`*^9}, {3.4083593600831795`*^9, 
   3.4083593622663183`*^9}, {3.4083595505170097`*^9, 3.408359550757355*^9}, {
   3.4083596329655647`*^9, 3.408359687954635*^9}, {3.40835975597244*^9, 
   3.408359780788123*^9}, {3.4083598331734495`*^9, 3.4083598339545727`*^9}, {
   3.408359904085416*^9, 3.4083599068594046`*^9}, {3.4083600269220467`*^9, 
   3.408360028183861*^9}, {3.4083601290288687`*^9, 3.408360140315098*^9}, {
   3.408360186010805*^9, 3.408360392257373*^9}, {3.4083607044763217`*^9, 
   3.4083607383249936`*^9}, {3.408360794295475*^9, 3.408360816026723*^9}, {
   3.4083608590586*^9, 3.4083608863878975`*^9}, {3.4083610035563774`*^9, 
   3.408361028932867*^9}, {3.408361094096568*^9, 3.408361121706269*^9}, {
   3.4083627094793744`*^9, 3.4083627996690607`*^9}, {3.4083628442231264`*^9, 
   3.4083629403513517`*^9}, {3.4083660200196977`*^9, 3.408366020850893*^9}, 
   3.4083660576237698`*^9, {3.408366234187656*^9, 3.408366260205067*^9}, {
   3.4083673748778877`*^9, 3.40836737558891*^9}, {3.408367903798438*^9, 
   3.408368032153003*^9}, {3.4083680653006673`*^9, 3.408368075325082*^9}, {
   3.4083681141509104`*^9, 3.4083681199592624`*^9}, {3.4083681886780753`*^9, 
   3.4083682889622765`*^9}, {3.408368343150195*^9, 3.408368409495595*^9}, {
   3.4083684702429457`*^9, 3.4083685042418337`*^9}, {3.408368544139203*^9, 
   3.408368564858997*^9}, 3.408369012652893*^9, {3.4083690529308095`*^9, 
   3.408369070345851*^9}, {3.4083691419688396`*^9, 3.408369146685622*^9}, 
   3.408373565499565*^9, {3.408373779997998*^9, 3.408373781089568*^9}, {
   3.408373823170077*^9, 3.4083738266050158`*^9}, {3.4083738790203857`*^9, 
   3.4083738807428627`*^9}, {3.408373938385749*^9, 3.408373940168312*^9}, {
   3.408373984692334*^9, 3.4083739881072445`*^9}, {3.4083743560763583`*^9, 
   3.4083743827647343`*^9}, {3.4083744157121105`*^9, 
   3.4083745709152813`*^9}, {3.4083746026108575`*^9, 
   3.4083746935916815`*^9}, {3.4083747802062273`*^9, 
   3.4083748507076035`*^9}, {3.408374891015563*^9, 3.4083749085207343`*^9}, {
   3.4083749408271885`*^9, 3.408374951101963*^9}, {3.408375022434534*^9, 
   3.408375037295904*^9}, {3.4083750748899612`*^9, 3.408375154053794*^9}, {
   3.408375249881587*^9, 3.4083752692894945`*^9}, {3.4083753867183485`*^9, 
   3.4083753877197886`*^9}, {3.408375444801869*^9, 3.408375447005037*^9}, {
   3.4083754907178926`*^9, 3.4083755170257215`*^9}, {3.4083755611992397`*^9, 
   3.4083757101634398`*^9}, 3.4083769141346655`*^9, {3.4083802758085155`*^9, 
   3.4083804229400797`*^9}, {3.408380453584144*^9, 3.4083805019637103`*^9}, {
   3.4083805555707936`*^9, 3.408380587156211*^9}, 3.408380972610467*^9, {
   3.408381004346101*^9, 3.4083810419001007`*^9}, {3.4083810737358785`*^9, 
   3.408381086123691*^9}, {3.40838112545024*^9, 3.408381153961237*^9}, {
   3.408382007819024*^9, 3.4083821114380207`*^9}, {3.408384040632066*^9, 
   3.408384129850355*^9}, {3.408384171199813*^9, 3.4083841930512333`*^9}, {
   3.408384240148957*^9, 3.4083843144257617`*^9}, {3.408384414659891*^9, 
   3.4083844180047007`*^9}, {3.4084528421260047`*^9, 
   3.4084528575882387`*^9}, {3.4084529233427887`*^9, 
   3.4084529506921153`*^9}, {3.4084530091762114`*^9, 3.40845303932957*^9}, {
   3.408453154445098*^9, 3.4084531674437885`*^9}, {3.4084532608981695`*^9, 
   3.408453261358832*^9}, {3.408453301055914*^9, 3.408453376324144*^9}, {
   3.408453483908843*^9, 3.408453493632826*^9}, {3.40845358368231*^9, 
   3.408453660552845*^9}, {3.408453779033211*^9, 3.4084537915512114`*^9}, {
   3.4084538234771185`*^9, 3.4084538238877087`*^9}, {3.4084538885306606`*^9, 
   3.4084539295095854`*^9}, {3.408464444759773*^9, 3.408464593874189*^9}, {
   3.408464624047576*^9, 3.408464626030427*^9}, {3.408464682251269*^9, 
   3.408464854829424*^9}, {3.4084649137942114`*^9, 3.4084649560850224`*^9}, 
   3.4084649989266253`*^9, {3.408465135492998*^9, 3.4084651907224145`*^9}, {
   3.408465278989336*^9, 3.4084652851882496`*^9}, {3.4084653865540066`*^9, 
   3.4084653899088306`*^9}, {3.4084654348534575`*^9, 3.408465441122472*^9}, {
   3.408465612599043*^9, 3.4084656369039917`*^9}, {3.4084656708027363`*^9, 
   3.4084657843860607`*^9}, {3.4084658455840592`*^9, 
   3.4084658494896755`*^9}, {3.4084678111403904`*^9, 
   3.4084678513782496`*^9}, {3.4084679723722305`*^9, 3.408468017386958*^9}, {
   3.4084686231580143`*^9, 3.408468626452752*^9}, {3.4084687520834*^9, 
   3.408468760014805*^9}, {3.408468813000995*^9, 3.408468964669083*^9}, {
   3.4084692549965534`*^9, 3.4084692805132446`*^9}, {3.408469333569536*^9, 
   3.4084693684797344`*^9}, {3.408485853552824*^9, 3.408485869906339*^9}, {
   3.4084859133788495`*^9, 3.408486128297888*^9}, {3.408486208192771*^9, 
   3.4084862116277103`*^9}, 3.408486242301818*^9, 3.408486274187667*^9, {
   3.4084863560153294`*^9, 3.4084863879812946`*^9}, {3.408486420468008*^9, 
   3.4084864687274017`*^9}, {3.408486636979336*^9, 3.4084867079914465`*^9}, 
   3.4084869129661856`*^9, {3.408486961626155*^9, 3.4084870193291283`*^9}, {
   3.4084870539388943`*^9, 3.4084870558716736`*^9}, {3.4084870926445503`*^9, 
   3.4084872918910527`*^9}, 3.4084874655006914`*^9, {3.408487613703797*^9, 
   3.4084876296767645`*^9}, {3.4084876634753647`*^9, 
   3.4084876715870285`*^9}, {3.408487721378626*^9, 3.4084881113593903`*^9}, {
   3.4084881667390223`*^9, 3.4084883538580866`*^9}, {3.4084884006553774`*^9, 
   3.4084884921869936`*^9}, {3.408488715748459*^9, 3.4084887262235217`*^9}, {
   3.408488776325565*^9, 3.408488795863659*^9}, {3.4084890260847006`*^9, 
   3.4084890417171793`*^9}, {3.408489087553088*^9, 3.4084891128795056`*^9}, {
   3.4084891866656046`*^9, 3.408489243367138*^9}, {3.4084894146133776`*^9, 
   3.408489415925264*^9}, 3.408489484223472*^9, {3.4084895159290624`*^9, 
   3.408489516319624*^9}, {3.408489707594664*^9, 3.408489708946608*^9}, {
   3.408491819153205*^9, 3.4084918657602224`*^9}, {3.408492058477336*^9, 
   3.4084920923159933`*^9}, {3.408492160994749*^9, 3.4084921624268084`*^9}, {
   3.4084922098349776`*^9, 3.4084922246062174`*^9}, {3.4084922655350704`*^9, 
   3.408492306203549*^9}, {3.4084923923374033`*^9, 3.4084924608058558`*^9}, {
   3.408557456214427*^9, 3.408557637795528*^9}, {3.4085576718845453`*^9, 
   3.4085577842561283`*^9}, {3.408557843992024*^9, 3.4085579962910194`*^9}, {
   3.4085581112663455`*^9, 3.4085581172749853`*^9}, {3.4085581506629953`*^9, 
   3.408558151564291*^9}, {3.4085582278539906`*^9, 3.408558235034315*^9}, 
   3.4085582685725408`*^9, {3.408558482960816*^9, 3.408558498112603*^9}, {
   3.4085586095828896`*^9, 3.4085586386246495`*^9}, {3.408558680775259*^9, 
   3.408558685652272*^9}, {3.408558747621379*^9, 3.408558747891768*^9}, {
   3.408558821697896*^9, 3.4085589787337027`*^9}, {3.408559015516594*^9, 
   3.4085590252505903`*^9}, 3.408559064727355*^9, {3.4085591607053647`*^9, 
   3.408559377947744*^9}, {3.4085594243644876`*^9, 3.4085594820975037`*^9}, {
   3.4085595126113806`*^9, 3.4085595734688897`*^9}, {3.4085596071373024`*^9, 
   3.408559624692546*^9}, {3.4085596553666525`*^9, 3.4085597768813825`*^9}, {
   3.4085598511181297`*^9, 3.4085598753730063`*^9}, {3.4085599169828386`*^9, 
   3.408559931573819*^9}, {3.4085600009535823`*^9, 3.408560035142744*^9}, {
   3.408560079236147*^9, 3.408560168534552*^9}, {3.4085602169141183`*^9, 
   3.4085602179456015`*^9}, {3.408560287044962*^9, 3.408560296598699*^9}, {
   3.4085603314888687`*^9, 3.4085603330811586`*^9}, {3.4085603669799023`*^9, 
   3.408560511177248*^9}, {3.4085605816085234`*^9, 3.40856059609936*^9}, {
   3.408560893206579*^9, 3.4085609438293715`*^9}, {3.40856098315592*^9, 
   3.4085611518885455`*^9}, {3.4085612010892925`*^9, 3.408561440143035*^9}, 
   3.408561871082696*^9, {3.4085619779063005`*^9, 3.4085620337766385`*^9}, {
   3.408562081955917*^9, 3.4085620858615327`*^9}, {3.408562255835944*^9, 
   3.408562256106333*^9}, {3.4085624230664096`*^9, 3.4085624235971727`*^9}, {
   3.408562461752037*^9, 3.408562517091611*^9}, {3.408562548006064*^9, 
   3.4085625760563984`*^9}, {3.4085627226872435`*^9, 
   3.4085627277044573`*^9}, {3.408562913701909*^9, 3.4085629768627295`*^9}, {
   3.4085630107614737`*^9, 3.40856303426527*^9}, {3.4085630809423885`*^9, 
   3.408563149490957*^9}, {3.408563199623043*^9, 3.408563292646805*^9}, {
   3.4085634317067633`*^9, 3.4085634323376703`*^9}, {3.4085698421044626`*^9, 
   3.4085698671304483`*^9}, {3.40857018313484*^9, 3.408570195051976*^9}, {
   3.4085702756779103`*^9, 3.4085703144336386`*^9}, {3.4085743272137327`*^9, 
   3.4085743441981554`*^9}, {3.4086498554487743`*^9, 
   3.4086498957467203`*^9}, {3.4087437108642206`*^9, 3.4087438322545586`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"Plot3D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Convert", "[", 
          RowBox[{
           RowBox[{"exposure", "[", 
            RowBox[{
            "rating", ",", "d", ",", "divergence", ",", "pupilDia", ",", "17",
              ",", "\[Lambda]", ",", "waist"}], "]"}], ",", 
           RowBox[{"Watt", "/", 
            RowBox[{"Centimeter", "^", "2"}]}]}], "]"}], " ", 
         RowBox[{
          RowBox[{"Centimeter", "^", "2"}], "/", "Watt"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"rating", ",", "5", ",", "500"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"d", ",", "minDistance", ",", "maxDistance"}], "}"}], ",", 
        RowBox[{"ColorFunction", "\[Rule]", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Hue", "[", "1", " ", "]"}], "&"}], ")"}]}], ",", 
        RowBox[{
        "PlotLabel", "\[Rule]", 
         "\"\<Retinal Exposure W/\!\(\*SuperscriptBox[\(cm\), \(2\)]\)\>\""}],
         ",", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Rating (mW)\>\"", ",", "\"\<Distance (m)\>\""}], 
          "}"}]}]}], "]"}], ",", 
      RowBox[{"Plot3D", "[", 
       RowBox[{"maxExposure", ",", 
        RowBox[{"{", 
         RowBox[{"rating", ",", "5", ",", "500"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"d", ",", "minDistance", ",", "maxDistance"}], "}"}], ",", 
        RowBox[{"ColorFunction", "\[Rule]", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Hue", "[", ".7", "]"}], "&"}], ")"}]}]}], "]"}]}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "divergence", ",", ".52", ",", "\"\<Divergence (milliradians)\>\""}], 
       "}"}], ",", ".1", ",", "2", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "minDistance", ",", "1000", ",", "\"\<Min Distance (meters)\>\""}], 
       "}"}], ",", "100", ",", "1000", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "maxDistance", ",", "10000", ",", "\"\<Max distance (meters)\>\""}], 
       "}"}], ",", "1000", ",", "10000", ",", "1000", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"waist", ",", "3", ",", "\"\<beam waist (millimeters)\>\""}], 
       "}"}], ",", "1", ",", "10", ",", "1", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "pupilDia", ",", "7", ",", "\"\<pupil diameter (millimeters)\>\""}], 
       "}"}], ",", "1", ",", "8", ",", "1", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\[Lambda]", ",", "530", ",", "\"\<Wavelength (nanometers)\>\""}], 
       "}"}], ",", "400", ",", "900", ",", "10", ",", 
      RowBox[{"Appearance", " ", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",",
     
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "maxExposure", ",", "16", ",", 
        "\"\<maximum exposure (W/\!\(\*SuperscriptBox[\(cm\), \
\(2\)]\))\>\""}], "}"}], ",", "1", ",", "100", ",", "1", ",", 
      RowBox[{"Appearance", " ", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",",
     "\[IndentingNewLine]", 
    RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.408357787692192*^9, 3.4083579070938835`*^9}, {
   3.408357944417552*^9, 3.4083579461600575`*^9}, {3.408357987028824*^9, 
   3.408357995521035*^9}, {3.408358027016323*^9, 3.4083580896664095`*^9}, {
   3.4083585435891185`*^9, 3.4083589281220493`*^9}, {3.408358966156741*^9, 
   3.408359036708189*^9}, {3.408359083235091*^9, 3.408359125435773*^9}, {
   3.4083591678667855`*^9, 3.408359182317565*^9}, {3.4083592600693665`*^9, 
   3.4083593046835184`*^9}, {3.4083593600831795`*^9, 
   3.4083593622663183`*^9}, {3.4083595505170097`*^9, 3.408359550757355*^9}, {
   3.4083596329655647`*^9, 3.408359687954635*^9}, {3.40835975597244*^9, 
   3.408359780788123*^9}, {3.4083598331734495`*^9, 3.4083598339545727`*^9}, {
   3.408359904085416*^9, 3.4083599068594046`*^9}, {3.4083600269220467`*^9, 
   3.408360028183861*^9}, {3.4083601290288687`*^9, 3.408360140315098*^9}, {
   3.408360186010805*^9, 3.408360392257373*^9}, {3.4083607044763217`*^9, 
   3.4083607383249936`*^9}, {3.408360794295475*^9, 3.408360816026723*^9}, {
   3.4083608590586*^9, 3.4083608863878975`*^9}, {3.4083610035563774`*^9, 
   3.408361028932867*^9}, {3.408361094096568*^9, 3.408361121706269*^9}, {
   3.4083627094793744`*^9, 3.4083627996690607`*^9}, {3.4083628442231264`*^9, 
   3.4083629403513517`*^9}, {3.4083660200196977`*^9, 3.408366020850893*^9}, 
   3.4083660576237698`*^9, {3.408366234187656*^9, 3.408366260205067*^9}, {
   3.4083673748778877`*^9, 3.40836737558891*^9}, {3.408367903798438*^9, 
   3.408368032153003*^9}, {3.4083680653006673`*^9, 3.408368075325082*^9}, {
   3.4083681141509104`*^9, 3.4083681199592624`*^9}, {3.4083681886780753`*^9, 
   3.4083682889622765`*^9}, {3.408368343150195*^9, 3.408368409495595*^9}, {
   3.4083684702429457`*^9, 3.4083685042418337`*^9}, {3.408368544139203*^9, 
   3.408368564858997*^9}, 3.408369012652893*^9, {3.4083690529308095`*^9, 
   3.408369070345851*^9}, {3.4083691419688396`*^9, 3.408369146685622*^9}, 
   3.408373565499565*^9, {3.408373779997998*^9, 3.408373781089568*^9}, {
   3.408373823170077*^9, 3.4083738266050158`*^9}, {3.4083738790203857`*^9, 
   3.4083738807428627`*^9}, {3.408373938385749*^9, 3.408373940168312*^9}, {
   3.408373984692334*^9, 3.4083739881072445`*^9}, {3.4083743560763583`*^9, 
   3.4083743827647343`*^9}, {3.4083744157121105`*^9, 
   3.4083745709152813`*^9}, {3.4083746026108575`*^9, 
   3.4083746935916815`*^9}, {3.4083747802062273`*^9, 
   3.4083748507076035`*^9}, {3.408374891015563*^9, 3.4083749085207343`*^9}, {
   3.4083749408271885`*^9, 3.408374951101963*^9}, {3.408375022434534*^9, 
   3.408375037295904*^9}, {3.4083750748899612`*^9, 3.408375154053794*^9}, {
   3.408375249881587*^9, 3.4083752692894945`*^9}, {3.4083753867183485`*^9, 
   3.4083753877197886`*^9}, {3.408375444801869*^9, 3.408375447005037*^9}, {
   3.4083754907178926`*^9, 3.4083755170257215`*^9}, {3.4083755611992397`*^9, 
   3.4083757101634398`*^9}, 3.4083769141346655`*^9, {3.4083802758085155`*^9, 
   3.4083804229400797`*^9}, {3.408380453584144*^9, 3.4083805019637103`*^9}, {
   3.4083805555707936`*^9, 3.408380587156211*^9}, 3.408380972610467*^9, {
   3.408381004346101*^9, 3.4083810419001007`*^9}, {3.4083810737358785`*^9, 
   3.408381086123691*^9}, {3.40838112545024*^9, 3.408381153961237*^9}, {
   3.408382007819024*^9, 3.4083821114380207`*^9}, {3.408384040632066*^9, 
   3.408384129850355*^9}, {3.408384171199813*^9, 3.4083841930512333`*^9}, {
   3.408384240148957*^9, 3.4083843144257617`*^9}, {3.408384414659891*^9, 
   3.4083844180047007`*^9}, {3.4084528421260047`*^9, 
   3.4084528575882387`*^9}, {3.4084529233427887`*^9, 
   3.4084529506921153`*^9}, {3.4084530091762114`*^9, 3.40845303932957*^9}, {
   3.408453154445098*^9, 3.4084531674437885`*^9}, {3.4084532608981695`*^9, 
   3.408453261358832*^9}, {3.408453301055914*^9, 3.408453376324144*^9}, {
   3.408453483908843*^9, 3.408453493632826*^9}, {3.40845358368231*^9, 
   3.408453660552845*^9}, {3.408453779033211*^9, 3.4084537915512114`*^9}, {
   3.4084538234771185`*^9, 3.4084538238877087`*^9}, {3.4084538885306606`*^9, 
   3.4084539295095854`*^9}, {3.408464444759773*^9, 3.408464593874189*^9}, {
   3.408464624047576*^9, 3.408464626030427*^9}, {3.408464682251269*^9, 
   3.408464854829424*^9}, {3.4084649137942114`*^9, 3.4084649560850224`*^9}, 
   3.4084649989266253`*^9, {3.408465135492998*^9, 3.4084651907224145`*^9}, {
   3.408465278989336*^9, 3.4084652851882496`*^9}, {3.4084653865540066`*^9, 
   3.4084653899088306`*^9}, {3.4084654348534575`*^9, 3.408465441122472*^9}, {
   3.408465612599043*^9, 3.4084656369039917`*^9}, {3.4084656708027363`*^9, 
   3.4084657843860607`*^9}, {3.4084658455840592`*^9, 
   3.4084658494896755`*^9}, {3.4084678111403904`*^9, 
   3.4084678513782496`*^9}, {3.4084679723722305`*^9, 3.408468017386958*^9}, {
   3.4084686231580143`*^9, 3.408468626452752*^9}, {3.4084687520834*^9, 
   3.408468760014805*^9}, {3.408468813000995*^9, 3.408468964669083*^9}, {
   3.4084692549965534`*^9, 3.4084692805132446`*^9}, {3.408469333569536*^9, 
   3.4084693684797344`*^9}, {3.408485853552824*^9, 3.408485869906339*^9}, {
   3.4084859133788495`*^9, 3.408486128297888*^9}, {3.408486208192771*^9, 
   3.4084862116277103`*^9}, 3.408486242301818*^9, 3.408486274187667*^9, {
   3.4084863560153294`*^9, 3.4084863879812946`*^9}, {3.408486420468008*^9, 
   3.4084864687274017`*^9}, {3.408486636979336*^9, 3.4084867079914465`*^9}, 
   3.4084869129661856`*^9, {3.408486961626155*^9, 3.4084870193291283`*^9}, {
   3.4084870539388943`*^9, 3.4084870558716736`*^9}, {3.4084870926445503`*^9, 
   3.4084872918910527`*^9}, 3.4084874655006914`*^9, {3.408487613703797*^9, 
   3.4084876296767645`*^9}, {3.4084876634753647`*^9, 
   3.4084876715870285`*^9}, {3.408487721378626*^9, 3.4084881113593903`*^9}, {
   3.4084881667390223`*^9, 3.4084883538580866`*^9}, {3.4084884006553774`*^9, 
   3.4084884921869936`*^9}, {3.408488715748459*^9, 3.4084887262235217`*^9}, {
   3.408488776325565*^9, 3.408488795863659*^9}, {3.4084890260847006`*^9, 
   3.4084890417171793`*^9}, {3.408489087553088*^9, 3.4084891128795056`*^9}, {
   3.4084891866656046`*^9, 3.408489243367138*^9}, {3.4084894146133776`*^9, 
   3.408489415925264*^9}, 3.408489484223472*^9, {3.4084895159290624`*^9, 
   3.408489516319624*^9}, {3.408489707594664*^9, 3.408489708946608*^9}, {
   3.408491819153205*^9, 3.4084918657602224`*^9}, {3.408492058477336*^9, 
   3.4084920923159933`*^9}, {3.408492160994749*^9, 3.4084921624268084`*^9}, {
   3.4084922098349776`*^9, 3.4084922246062174`*^9}, {3.4084922655350704`*^9, 
   3.408492306203549*^9}, {3.4084923923374033`*^9, 3.4084924608058558`*^9}, {
   3.408557456214427*^9, 3.408557637795528*^9}, {3.4085576718845453`*^9, 
   3.4085577842561283`*^9}, {3.408557843992024*^9, 3.4085579962910194`*^9}, {
   3.4085581112663455`*^9, 3.4085581172749853`*^9}, {3.4085581506629953`*^9, 
   3.408558151564291*^9}, {3.4085582278539906`*^9, 3.408558235034315*^9}, 
   3.4085582685725408`*^9, {3.408558482960816*^9, 3.408558498112603*^9}, {
   3.4085586095828896`*^9, 3.4085586386246495`*^9}, {3.408558680775259*^9, 
   3.408558685652272*^9}, {3.408558747621379*^9, 3.408558747891768*^9}, {
   3.408558821697896*^9, 3.4085589787337027`*^9}, {3.408559015516594*^9, 
   3.4085590252505903`*^9}, 3.408559064727355*^9, {3.4085591607053647`*^9, 
   3.408559377947744*^9}, {3.4085594243644876`*^9, 3.4085594820975037`*^9}, {
   3.4085595126113806`*^9, 3.4085595734688897`*^9}, {3.4085596071373024`*^9, 
   3.408559624692546*^9}, {3.4085596553666525`*^9, 3.4085597768813825`*^9}, {
   3.4085598511181297`*^9, 3.4085598753730063`*^9}, {3.4085599169828386`*^9, 
   3.408559931573819*^9}, {3.4085600009535823`*^9, 3.408560035142744*^9}, {
   3.408560079236147*^9, 3.408560168534552*^9}, {3.4085602169141183`*^9, 
   3.4085602179456015`*^9}, {3.408560287044962*^9, 3.408560296598699*^9}, {
   3.4085603314888687`*^9, 3.4085603330811586`*^9}, {3.4085603669799023`*^9, 
   3.408560511177248*^9}, {3.4085605816085234`*^9, 3.40856059609936*^9}, {
   3.408560893206579*^9, 3.4085609438293715`*^9}, {3.40856098315592*^9, 
   3.4085611518885455`*^9}, {3.4085612010892925`*^9, 3.408561440143035*^9}, 
   3.408561871082696*^9, {3.4085619779063005`*^9, 3.4085620337766385`*^9}, {
   3.408562081955917*^9, 3.4085620858615327`*^9}, {3.408562255835944*^9, 
   3.408562256106333*^9}, {3.4085624230664096`*^9, 3.4085624235971727`*^9}, {
   3.408562461752037*^9, 3.408562517091611*^9}, {3.408562548006064*^9, 
   3.4085625760563984`*^9}, {3.4085627226872435`*^9, 
   3.4085627277044573`*^9}, {3.408562913701909*^9, 3.4085629768627295`*^9}, {
   3.4085630107614737`*^9, 3.40856303426527*^9}, {3.4085630809423885`*^9, 
   3.408563149490957*^9}, {3.408563199623043*^9, 3.408563292646805*^9}, {
   3.4085634317067633`*^9, 3.4085634323376703`*^9}, {3.4085698421044626`*^9, 
   3.4085698671304483`*^9}, {3.40857018313484*^9, 3.408570195051976*^9}, {
   3.4085702756779103`*^9, 3.408570310628166*^9}, {3.408570349173592*^9, 
   3.408570625601075*^9}, {3.408570832458522*^9, 3.4085708583757887`*^9}, {
   3.408570938571104*^9, 3.4085709392320547`*^9}, {3.4085709949621906`*^9, 
   3.4085710082112417`*^9}, {3.408571139590155*^9, 3.408571158437256*^9}, {
   3.4085712721207247`*^9, 3.408571309314206*^9}, {3.408571433062147*^9, 
   3.4085714468720045`*^9}, {3.4085714908953075`*^9, 3.408571523422078*^9}, {
   3.408571816713811*^9, 3.4085718219012704`*^9}, {3.4085718916816096`*^9, 
   3.408571893424115*^9}, {3.408571984424968*^9, 3.408572031622835*^9}, {
   3.4085721229942207`*^9, 3.408572157393685*^9}, {3.408573082383755*^9, 
   3.408573096474016*^9}, {3.408573135410003*^9, 3.408573235874464*^9}, {
   3.4085733636882515`*^9, 3.4085733964153104`*^9}, {3.408573430043666*^9, 
   3.4085734839511805`*^9}, {3.4085735170287437`*^9, 
   3.4085736341571665`*^9}, {3.408573704348096*^9, 3.4085737244469967`*^9}, {
   3.4085743862586355`*^9, 3.4085743913259215`*^9}, 3.4086457796380463`*^9, {
   3.40864597745249*^9, 3.4086460485246863`*^9}, {3.4086461186855726`*^9, 
   3.4086461495199103`*^9}, {3.4086464454053726`*^9, 
   3.4086465128623714`*^9}, {3.4086467516557393`*^9, 3.408646752126416*^9}, {
   3.408646873731275*^9, 3.4086469249148736`*^9}, 3.4086470399502864`*^9, {
   3.4086482954255714`*^9, 3.408648298079387*^9}, {3.408648476055304*^9, 
   3.408648624709058*^9}, {3.408648739754485*^9, 3.4086487457430964`*^9}, {
   3.408648958418909*^9, 3.408648984055773*^9}, {3.408649148071616*^9, 
   3.408649150655331*^9}, {3.408649186506883*^9, 3.4086492050535517`*^9}, {
   3.408649616485162*^9, 3.408649707055395*^9}, {3.408649757858446*^9, 
   3.40864975980124*^9}, {3.4086497915569024`*^9, 3.4086498092022753`*^9}, {
   3.408653075148475*^9, 3.4086530830698657`*^9}, {3.408653223732128*^9, 
   3.408653318197963*^9}, {3.4086574265554914`*^9, 3.4086574483668547`*^9}, {
   3.408707901754342*^9, 3.408707935713173*^9}, {3.408707977252904*^9, 
   3.408708024390685*^9}, {3.408708121400178*^9, 3.4087082387088594`*^9}, 
   3.4087091193852096`*^9, {3.4087097986619616`*^9, 3.408709857636763*^9}, 
   3.4087098947501297`*^9, {3.4087100126797037`*^9, 3.4087100134708414`*^9}, {
   3.408710059997744*^9, 3.408710100806424*^9}, {3.408710270149928*^9, 
   3.4087102741657023`*^9}, 3.408710313041603*^9, {3.4087104645394464`*^9, 
   3.4087105275800943`*^9}, {3.4087105645332303`*^9, 
   3.4087105695103874`*^9}, {3.4087106958220143`*^9, 
   3.4087107221398573`*^9}, {3.4087358800344367`*^9, 3.408735901565397*^9}, {
   3.4087360273662896`*^9, 3.408736038191856*^9}, 3.408736068415315*^9, 
   3.408736439308634*^9, {3.408736497011606*^9, 3.408736502249138*^9}, {
   3.408736571949362*^9, 3.4087366616884003`*^9}, {3.4087367218348866`*^9, 
   3.4087368118643427`*^9}, {3.408737139745813*^9, 3.4087371436714573`*^9}, {
   3.4087371976891313`*^9, 3.408737236414816*^9}, 3.4087373242110605`*^9, {
   3.4087373568980627`*^9, 3.4087373704775887`*^9}, {3.408737443893155*^9, 
   3.408737482068048*^9}, {3.4087375138237104`*^9, 3.4087375561145215`*^9}, {
   3.408737595451085*^9, 3.4087376594631295`*^9}, {3.4087381425077133`*^9, 
   3.4087383365166845`*^9}, 3.4087383786072083`*^9, {3.408738652250688*^9, 
   3.4087386954528093`*^9}, {3.4087389823052835`*^9, 
   3.4087391026783714`*^9}, {3.4087393909128323`*^9, 
   3.4087395583135424`*^9}, {3.4087396768339663`*^9, 3.4087397621866975`*^9}, 
   3.4087397971569824`*^9, {3.408739846588061*^9, 3.408739878353738*^9}, {
   3.408739930789136*^9, 3.408739936867877*^9}, {3.408739971587802*^9, 
   3.408739978758112*^9}, {3.408740040677147*^9, 3.408740106822259*^9}, 
   3.4087401967115135`*^9, 3.408748616633645*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`divergence$$ = 
    0.52, $CellContext`maxDistance$$ = 10000, $CellContext`maxExposure$$ = 
    25, $CellContext`minDistance$$ = 1000, $CellContext`pupilDia$$ = 
    6, $CellContext`waist$$ = 3, $CellContext`\[Lambda]$$ = 530, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`divergence$$], 0.52, "Divergence (milliradians)"}, 
      0.1, 2}, {{
       Hold[$CellContext`minDistance$$], 1000, "Min Distance (meters)"}, 100, 
      1000}, {{
       Hold[$CellContext`maxDistance$$], 10000, "Max distance (meters)"}, 
      1000, 10000, 1000}, {{
       Hold[$CellContext`waist$$], 3, "beam waist (millimeters)"}, 1, 10, 
      1}, {{
       Hold[$CellContext`pupilDia$$], 7, "pupil diameter (millimeters)"}, 1, 
      8, 1}, {{
       Hold[$CellContext`\[Lambda]$$], 530, "Wavelength (nanometers)"}, 400, 
      900, 10}, {{
       Hold[$CellContext`maxExposure$$], 16, 
       "maximum exposure (W/\!\(\*SuperscriptBox[\(cm\), \(2\)]\))"}, 1, 100, 
      1}}, Typeset`size$$ = {667., {259., 266.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`divergence$189959$$ = 
    0, $CellContext`minDistance$189960$$ = 
    0, $CellContext`maxDistance$189961$$ = 0, $CellContext`waist$189962$$ = 
    0, $CellContext`pupilDia$189963$$ = 0, $CellContext`\[Lambda]$189964$$ = 
    0, $CellContext`maxExposure$189965$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`divergence$$ = 
        0.52, $CellContext`maxDistance$$ = 10000, $CellContext`maxExposure$$ = 
        16, $CellContext`minDistance$$ = 1000, $CellContext`pupilDia$$ = 
        7, $CellContext`waist$$ = 3, $CellContext`\[Lambda]$$ = 530}, 
      "ControllerVariables" :> {
        Hold[$CellContext`divergence$$, $CellContext`divergence$189959$$, 0], 
        
        Hold[$CellContext`minDistance$$, $CellContext`minDistance$189960$$, 
         0], 
        Hold[$CellContext`maxDistance$$, $CellContext`maxDistance$189961$$, 
         0], 
        Hold[$CellContext`waist$$, $CellContext`waist$189962$$, 0], 
        Hold[$CellContext`pupilDia$$, $CellContext`pupilDia$189963$$, 0], 
        Hold[$CellContext`\[Lambda]$$, $CellContext`\[Lambda]$189964$$, 0], 
        Hold[$CellContext`maxExposure$$, $CellContext`maxExposure$189965$$, 
         0]}, "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        Plot3D[Units`Convert[
           $CellContext`exposure[$CellContext`rating, $CellContext`d, \
$CellContext`divergence$$, $CellContext`pupilDia$$, 
            17, $CellContext`\[Lambda]$$, $CellContext`waist$$], Units`Watt/
           Units`Centimeter^2] (Units`Centimeter^2/
          Units`Watt), {$CellContext`rating, 5, 
          500}, {$CellContext`d, $CellContext`minDistance$$, \
$CellContext`maxDistance$$}, ColorFunction -> (Hue[1]& ), PlotLabel -> 
         "Retinal Exposure W/\!\(\*SuperscriptBox[\(cm\), \(2\)]\)", 
         AxesLabel -> {"Rating (W)", "Distance (m)"}], 
        Plot3D[$CellContext`maxExposure$$, {$CellContext`rating, 5, 
          500}, {$CellContext`d, $CellContext`minDistance$$, \
$CellContext`maxDistance$$}, ColorFunction -> (Hue[0.7]& )]], 
      "Specifications" :> {{{$CellContext`divergence$$, 0.52, 
          "Divergence (milliradians)"}, 0.1, 2, Appearance -> 
         "Labeled"}, {{$CellContext`minDistance$$, 1000, 
          "Min Distance (meters)"}, 100, 1000, Appearance -> 
         "Labeled"}, {{$CellContext`maxDistance$$, 10000, 
          "Max distance (meters)"}, 1000, 10000, 1000, Appearance -> 
         "Labeled"}, {{$CellContext`waist$$, 3, "beam waist (millimeters)"}, 
         1, 10, 1, Appearance -> 
         "Labeled"}, {{$CellContext`pupilDia$$, 7, 
          "pupil diameter (millimeters)"}, 1, 8, 1, Appearance -> 
         "Labeled"}, {{$CellContext`\[Lambda]$$, 530, 
          "Wavelength (nanometers)"}, 400, 900, 10, Appearance -> 
         "Labeled"}, {{$CellContext`maxExposure$$, 16, 
          "maximum exposure (W/\!\(\*SuperscriptBox[\(cm\), \(2\)]\))"}, 1, 
         100, 1, Appearance -> "Labeled"}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{716., {406.5, 413.5}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({Units`Convert[
         Pattern[Units`Private`old, 
          Blank[]], 
         Pattern[Units`Private`new, 
          Blank[]]] := 
       Module[{Units`Private`x, Units`Private`y, Units`Private`t1, 
          Units`Private`oldUU, Units`Private`t1UU}, 
         Condition[
         Units`Private`oldUU = 
           Units`Private`UniqueCasesUnit[Units`Private`old]; If[
            MatchQ[Units`Private`old, Pattern[Units`Private`x, 
               Blank[]]^Pattern[Units`Private`y, 
               Blank[Rational]]], 
            Units`Private`x = Part[Units`Private`old, 1]; 
            Units`Private`y = Part[Units`Private`old, 2]; 
            Units`Private`t1 = 
             Units`Private`myConvert[
              Units`Private`x, Units`Private`oldUU, 
               Units`Private`new^(1/Units`Private`y)]; 
            Units`Private`t1UU = 
             Units`Private`UniqueCasesUnit[Units`Private`t1]; 
            Units`Private`t1 = 
             PowerExpand[
              Units`Private`t1^Units`Private`y, Units`Private`t1UU], 
            Units`Private`t1 = 
             Units`Private`myConvert[
              Units`Private`old, Units`Private`oldUU, Units`Private`new]; 
            Units`Private`t1UU = 
             Units`Private`UniqueCasesUnit[Units`Private`t1]; 
            Units`Private`t1 = 
             PowerExpand[Units`Private`t1, Units`Private`t1UU]]; If[
            Units`Private`HasUnitQ[
             N[Units`Private`t1]], Message[
              MessageName[Units`Convert, "incomp"], Units`Private`old, 
              Units`Private`new]; Return[Units`Private`old], If[
              Apply[Or, 
               Map[
               Position[Units`Private`new, #] != {}& , {
                Units`Centigrade, Units`Celsius, Units`Kelvin, 
                 Units`Fahrenheit, Units`Rankine}]], 
              Message[
               MessageName[Units`Convert, "temp"]]]; 
            Return[Units`Private`t1 Units`Private`new]], 
          And[
           If[Head[Units`Private`old] === List, Message[
              MessageName[Units`Convert, "old"], Units`Private`old]; False, 
            True], 
           If[Head[Units`Private`new] === List, Message[
              MessageName[Units`Convert, "new"], Units`Private`new]; False, 
            True]]]], 
       TagSet[Units`Convert, 
        MessageName[Units`Convert, "incomp"], 
        "Incompatible units in `1` and `2`."], 
       TagSet[Units`Convert, 
        MessageName[Units`Convert, "new"], 
        "Argument `` should be a simple expression involving units, not a \
list."], 
       TagSet[Units`Convert, 
        MessageName[Units`Convert, "old"], 
        "Argument `` should be a simple expression involving units, not a \
list."], 
       TagSet[Units`Convert, 
        MessageName[Units`Convert, "temp"], 
        "Warning: Convert[old,new] converts units of temperature. \
ConvertTemperature[temp,old,new] converts absolute temperature."], 
       TagSet[Units`Convert, 
        MessageName[Units`Convert, "usage"], 
        "\!\(\*RowBox[{\"Convert\", \"[\", RowBox[{StyleBox[\"expr\", \
\"TI\"], \",\", StyleBox[\"newunits\", \"TI\"]}], \"]\"}]\) converts \
\!\(\*StyleBox[\"expr\", \"TI\"]\) to a form involving a combination of units \
\!\(\*StyleBox[\"newunits\", \"TI\"]\)."], Units`Private`UniqueCasesUnit[
         Pattern[Units`Private`expr, 
          Blank[]]] := Union[
         Cases[Units`Private`expr, 
          PatternTest[
           Blank[Symbol], And[
            MatchQ[#, 
             Blank[Symbol]], 
            Or[
             MemberQ[{"Units`", "SIUnits`"}, 
              Context[#]], 
             MemberQ[{
              Span, Cup, Degree, Circle, Point, Last, Drop, Gamma, 
               Byte}, #]]]& ], Infinity]], 
       TagSet[Cup, 
        MessageName[Cup, "usage"], 
        "\!\(\*RowBox[{\"Cup\", \"[\", RowBox[{StyleBox[\"x\", \"TI\"], \
\",\", StyleBox[\"y\", \"TI\"], \",\", StyleBox[\"\[Ellipsis]\", \"TR\"]}], \
\"]\"}]\) displays as \!\(\*RowBox[{\"x\", \"\[Cup]\", \"y\", \"\[Cup]\", \"\
\[Ellipsis]\"}]\). It is also a unit of volume."], Units`Private`myConvert[
         Pattern[Units`Private`x, 
          Blank[]], 
         Pattern[Units`Private`uniqueUnits, 
          Blank[]], 
         Pattern[Units`Private`new, 
          Blank[]]] := 
       Module[{Units`Private`temp1, Units`Private`temp2, Units`Private`temp3, 
          Units`Private`tempUniqueUnits}, 
         Units`Private`temp1 = 
          Collect[Units`Private`x, Units`Private`uniqueUnits]; 
         Units`Private`temp2 = 
          Units`SI[Units`Private`temp1/Units`Private`new]; 
         Units`Private`tempUniqueUnits = 
          Units`Private`UniqueCasesUnit[Units`Private`temp2]; 
         Units`Private`temp3 = 
          Collect[Units`Private`temp2, Units`Private`tempUniqueUnits]; 
         ReplaceRepeated[Units`Private`temp3, Units`Private`$ToFundamental]], 
       Units`SI[
         Pattern[Units`Private`expr, 
          Blank[]]] := ReplaceRepeated[
         ReplaceRepeated[
          ReplaceRepeated[Units`Private`expr, Units`Private`$ToIntermediate], 
          Units`Private`$SIPrefixes], Units`Private`$ToSI], 
       TagSet[Units`SI, 
        MessageName[Units`SI, "usage"], 
        "\!\(\*RowBox[{\"SI\", \"[\", StyleBox[\"expr\", \"TI\"], \"]\"}]\) \
converts \!\(\*StyleBox[\"expr\", \"TI\"]\) to SI units (International \
System)."], Units`Private`$ToIntermediate = 
       Dispatch[{
         Units`Percent -> 1/100, Units`Gross -> 144, Units`Dozen -> 12, 
          Units`BakersDozen -> 13, Units`Mole -> 6.0221367*^23, 
          Units`ArcMinute -> Degree/60, Units`ArcSecond -> Units`ArcMinute/60,
           Units`Quadrant -> Units`RightAngle, Units`Grade -> 
          Units`RightAngle/100, Units`AU -> Units`AstronomicalUnit, 
          Units`DidotPoint -> Units`Didot, Units`Cicero -> 12 Units`Didot, 
          Units`Mil -> Units`Inch/1000, Units`Caliber -> Units`Inch/100, 
          Units`Hand -> 4 Units`Inch, Units`Link -> 7.92 Units`Inch, Span -> 
          9 Units`Inch, Units`Cubit -> 18 Units`Inch, Units`Ell -> 
          45 Units`Inch, Point -> Units`Inch/72, Units`PrintersPoint -> 
          0.013837 Units`Inch, Units`Pica -> 12 Point, Units`Foot -> 
          12 Units`Inch, Units`Feet -> Units`Foot, Units`Fathom -> 
          6 Units`Foot, Units`Rope -> 20 Units`Foot, Units`Chain -> 
          66 Units`Foot, Units`Cable -> 720 Units`Foot, Units`Skein -> 
          360 Units`Foot, Units`Stadion -> 622 Units`Foot, Units`Yard -> 
          3 Units`Foot, Units`Bolt -> 40 Units`Yard, Units`Furlong -> 
          220 Units`Yard, Units`Stadium -> 202 Units`Yard, Units`Rod -> 
          5.5 Units`Yard, Units`Pole -> Units`Rod, Units`Perch -> Units`Rod, 
          Units`SurveyMile -> 320 Units`Rod, Units`Mile -> 5280 Units`Foot, 
          Units`StatuteMile -> Units`Mile, Units`League -> 3 Units`Mile, 
          Units`Acre -> 43560 Units`Foot^2, Units`Rood -> Units`Acre/4, 
          Units`Section -> Units`Mile^2, Units`Township -> 36 Units`Section, 
          Units`Cord -> 128 Units`Foot^3, Units`RegisterTon -> 
          100 Units`Foot^3, Units`BoardFoot -> 144 Units`Inch^3, Units`UKPint -> 
          0.568261 Units`Liter, Units`ImperialPint -> 0.568261 Units`Liter, 
          Units`WineBottle -> 0.7576778 Units`Liter, Last -> 
          2909.414 Units`Liter, Units`UKGallon -> 4.54609 Units`Liter, 
          Units`ImperialGallon -> 4.54609 Units`Liter, Units`Firkin -> 
          9 Units`UKGallon, Units`Gallon -> 4 Units`Quart, 
          Units`Jeroboam -> (4 Units`Gallon)/5, Units`Bucket -> 
          4 Units`Gallon, Units`Puncheon -> 84 Units`Gallon, Units`Butt -> 
          126 Units`Gallon, Units`Hogshead -> Units`Butt/2, Units`Tun -> 
          4 Units`Hogshead, Units`Pint -> 2 Cup, Cup -> 0.236588 Units`Liter, 
          Units`FluidOunce -> Units`Pint/16, Units`Minim -> 
          Units`FluidOunce/480, Units`Shot -> Units`FluidOunce, Units`Jigger -> 
          1.5 Units`Shot, Units`Pony -> 0.5 Units`Jigger, Units`FluidDram -> 
          Units`FluidOunce/8, Units`Tablespoon -> 4 Units`FluidDram, 
          Units`Teaspoon -> Units`Tablespoon/3, Units`Gill -> Units`Pint/4, 
          Units`Noggin -> Units`Gill, Units`Quart -> 2 Units`Pint, 
          Units`Fifth -> (4 Units`Quart)/5, Units`Magnum -> 2 Units`Quart, 
          Units`Peck -> 8.81 Units`Liter, Units`Bushel -> 4 Units`Peck, 
          Units`Seam -> 8 Units`Bushel, Units`Bag -> 3 Units`Bushel, 
          Units`Omer -> 0.45 Units`Peck, Units`Ephah -> 10 Units`Omer, 
          Units`Hour -> 60 Units`Minute, Units`Day -> 24 Units`Hour, 
          Units`Week -> 7 Units`Day, Units`Fortnight -> 2 Units`Week, 
          Units`Year -> 365 Units`Day, Units`Month -> Units`Year/12, 
          Units`Decade -> 10 Units`Year, Units`Century -> 100 Units`Year, 
          Units`Millennium -> 1000 Units`Year, Units`TropicalYear -> 
          365.24219 Units`Day, Units`SiderealYear -> 365.25636 Units`Day, 
          Units`Knot -> Units`NauticalMile/Units`Hour, Units`Quintal -> 
          100000 Units`Gram, Units`SolarMass -> 1.9891*^33 Units`Gram, 
          Units`AssayTon -> 29.167 Units`Gram, Units`Grain -> 
          0.06479900000000001 Units`Gram, Units`Carat -> 0.2 Units`Gram, 
          Units`Shekel -> 14.1 Units`Gram, Units`Obolos -> 0.71538 Units`Gram,
           Units`Drachma -> 4.2923 Units`Gram, Units`Libra -> 
          325.971 Units`Gram, Units`TroyOunce -> 31.103 Units`Gram, 
          Units`Pennyweight -> 1.555 Units`Gram, Units`Tonne -> 
          1000000 Units`Gram, Units`MetricTon -> Units`Tonne, Units`AMU -> 
          1.6605402000000002`*^-24 Units`Gram, Units`AtomicMassUnit -> 
          Units`AMU, Units`Dalton -> Units`AMU, Units`Pound -> 16 Units`Ounce,
           Units`AvoirdupoisPound -> Units`Pound, Units`Pondus -> 
          0.71864 Units`Pound, Units`Stone -> 14 Units`Pound, Units`Wey -> 
          252 Units`Pound, Units`Bale -> 500 Units`Pound, Units`LongTon -> 
          2240 Units`Pound, Units`Cental -> 100 Units`Pound, Units`ShortTon -> 
          2000 Units`Pound, Units`Ton -> 2000 Units`Pound, 
          Units`NetHundredweight -> 100 Units`Pound, Units`ShortHundredweight -> 
          100 Units`Pound, Units`Hundredweight -> 112 Units`Pound, 
          Units`GrossHundredweight -> Units`Hundredweight, Units`Mina -> 
          0.9463 Units`Pound, Units`Talent -> 60 Units`Mina, Units`Ounce -> 
          28.3495 Units`Gram, Units`AvoirdupoisOunce -> Units`Ounce, 
          Units`Geepound -> Units`Slug, Units`Denier -> 
          Units`Gram/(9000 Units`Meter), Units`Dyne -> Units`Newton/100000, 
          Units`Poundal -> 0.138255 Units`Newton, Units`TonForce -> 
          9964.02 Units`Newton, Units`PoundForce -> 4.44822 Units`Newton, 
          Units`PoundWeight -> Units`PoundForce, Units`KilogramForce -> 
          9.80665 Units`Newton, Units`KilogramWeight -> Units`KilogramForce, 
          Units`GramWeight -> Units`KilogramWeight/1000, Units`Atmosphere -> 
          101325. Units`Pascal, Units`InchMercury -> 3386.39 Units`Pascal, 
          Units`Barye -> Units`Pascal/10, Units`Bar -> 100000 Units`Pascal, 
          Units`PSI -> 6894.7570000000005` Units`Pascal, 
          Units`PoundsPerSquareInch -> Units`PSI, Units`Torr -> 
          133.322 Units`Pascal, Units`MillimeterMercury -> Units`Torr, 
          Units`Rydberg -> 2.1799*^-11 Units`Erg, Units`BritishThermalUnit -> 
          Units`BTU, Units`Therm -> 100000 Units`BTU, Units`Centigrade -> 
          Units`Kelvin, Units`Celsius -> Units`Centigrade, 
          Units`Fahrenheit -> (5 Units`Kelvin)/9, Units`Rankine -> 
          Units`Fahrenheit, Units`Poise -> 0.1 Units`Pascal Units`Second, 
          Units`Reyn -> 68947.59999999999 Units`Poise, Units`Rhes -> 
          Units`Poise^(-1), Units`Phot -> 10000 Units`Lux, 
          Units`FootCandle -> (Units`Lux Units`Meter^2)/Units`Foot^2, 
          Units`Apostilb -> Units`Lambert/10000, Units`Lumerg -> Units`Talbot,
           Units`Rad -> 0.01 Units`GrayDose, Units`Curie -> 
          37000000000 Units`Becquerel, 
          Units`Rontgen -> (0.00025800000000000004` Units`Coulomb)/
           Units`Kilogram, Units`Roentgen -> Units`Rontgen, Units`Abmho -> 
          1000000000 Units`Mho, Units`Gauss -> Units`Tesla/10000, Gamma -> 
          Units`Tesla/1000000000, 
          Units`BohrMagneton -> (9.2740154*^-21 Units`Erg)/Units`Gauss, 
          Units`NuclearMagneton -> (5.050786600000001*^-24 Units`Erg)/
           Units`Gauss, Byte -> 8 Units`Bit, Units`Nibble -> 4 Units`Bit, 
          Units`Baud -> Units`Bit/Units`Second}], 
       TagSet[Units`Percent, 
        MessageName[Units`Percent, "usage"], "Percent is a unit multiplier."],
        
       TagSet[Units`Gross, 
        MessageName[Units`Gross, "usage"], "Gross is a unit multiplier."], 
       TagSet[Units`Dozen, 
        MessageName[Units`Dozen, "usage"], "Dozen is a unit multiplier."], 
       TagSet[Units`BakersDozen, 
        MessageName[Units`BakersDozen, "usage"], 
        "BakersDozen is a unit multiplier."], 
       TagSet[Units`Mole, 
        MessageName[Units`Mole, "symbol"], "mol"], 
       TagSet[Units`Mole, 
        MessageName[Units`Mole, "usage"], 
        "Mole is the fundamental SI unit of amount of substance."], 
       TagSet[Units`ArcMinute, 
        MessageName[Units`ArcMinute, "usage"], 
        "ArcMinute is a unit multiplier."], 
       TagSet[Units`ArcSecond, 
        MessageName[Units`ArcSecond, "usage"], 
        "ArcSecond is a unit multiplier."], 
       TagSet[Units`Quadrant, 
        MessageName[Units`Quadrant, "usage"], 
        "Quadrant is a unit multiplier."], 
       TagSet[Units`RightAngle, 
        MessageName[Units`RightAngle, "usage"], 
        "RightAngle is a unit multiplier."], 
       TagSet[Units`Grade, 
        MessageName[Units`Grade, "usage"], "Grade is a unit multiplier."], 
       TagSet[Units`AU, 
        MessageName[Units`AU, "usage"], "AU is a unit of length."], 
       TagSet[Units`AstronomicalUnit, 
        MessageName[Units`AstronomicalUnit, "symbol"], "AU"], 
       TagSet[Units`AstronomicalUnit, 
        MessageName[Units`AstronomicalUnit, "usage"], 
        "AstronomicalUnit is a unit of length."], 
       TagSet[Units`DidotPoint, 
        MessageName[Units`DidotPoint, "usage"], 
        "DidotPoint is a unit of length."], 
       TagSet[Units`Didot, 
        MessageName[Units`Didot, "usage"], "Didot is a unit of length."], 
       TagSet[Units`Cicero, 
        MessageName[Units`Cicero, "usage"], "Cicero is a unit of length."], 
       TagSet[Units`Mil, 
        MessageName[Units`Mil, "usage"], "Mil is a unit of length."], 
       TagSet[Units`Inch, 
        MessageName[Units`Inch, "symbol"], "in"], 
       TagSet[Units`Inch, 
        MessageName[Units`Inch, "usage"], "Inch is a unit of length."], 
       TagSet[Units`Caliber, 
        MessageName[Units`Caliber, "usage"], "Caliber is a unit of length."], 
       
       TagSet[Units`Hand, 
        MessageName[Units`Hand, "usage"], "Hand is a unit of length."], 
       TagSet[Units`Link, 
        MessageName[Units`Link, "usage"], "Link is a unit of length."], 
       TagSet[Units`Cubit, 
        MessageName[Units`Cubit, "usage"], "Cubit is a unit of length."], 
       TagSet[Units`Ell, 
        MessageName[Units`Ell, "usage"], "Ell is a unit of length."], 
       TagSet[Units`PrintersPoint, 
        MessageName[Units`PrintersPoint, "usage"], 
        "PrintersPoint is a unit of length."], 
       TagSet[Units`Pica, 
        MessageName[Units`Pica, "usage"], "Pica is a unit of length."], 
       TagSet[Units`Foot, 
        MessageName[Units`Foot, "symbol"], "ft"], 
       TagSet[Units`Foot, 
        MessageName[Units`Foot, "usage"], "Foot is a unit of length."], 
       TagSet[Units`Feet, 
        MessageName[Units`Feet, "usage"], "Feet is a unit of length."], 
       TagSet[Units`Fathom, 
        MessageName[Units`Fathom, "usage"], "Fathom is a unit of length."], 
       TagSet[Units`Rope, 
        MessageName[Units`Rope, "usage"], "Rope is a unit of length."], 
       TagSet[Units`Chain, 
        MessageName[Units`Chain, "usage"], "Chain is a unit of length."], 
       TagSet[Units`Cable, 
        MessageName[Units`Cable, "usage"], "Cable is a unit of length."], 
       TagSet[Units`Skein, 
        MessageName[Units`Skein, "usage"], "Skein is a unit of length."], 
       TagSet[Units`Stadion, 
        MessageName[Units`Stadion, "usage"], "Stadion is a unit of length."], 
       
       TagSet[Units`Yard, 
        MessageName[Units`Yard, "symbol"], "yd"], 
       TagSet[Units`Yard, 
        MessageName[Units`Yard, "usage"], "Yard is a unit of length."], 
       TagSet[Units`Bolt, 
        MessageName[Units`Bolt, "usage"], "Bolt is a unit of length."], 
       TagSet[Units`Furlong, 
        MessageName[Units`Furlong, "usage"], "Furlong is a unit of length."], 
       
       TagSet[Units`Stadium, 
        MessageName[Units`Stadium, "usage"], "Stadium is a unit of length."], 
       
       TagSet[Units`Rod, 
        MessageName[Units`Rod, "usage"], "Rod is a unit of length."], 
       TagSet[Units`Pole, 
        MessageName[Units`Pole, "usage"], "Pole is a unit of length."], 
       TagSet[Units`Perch, 
        MessageName[Units`Perch, "usage"], "Perch is a unit of length."], 
       TagSet[Units`SurveyMile, 
        MessageName[Units`SurveyMile, "usage"], 
        "SurveyMile is a unit of length."], 
       TagSet[Units`Mile, 
        MessageName[Units`Mile, "symbol"], "mi"], 
       TagSet[Units`Mile, 
        MessageName[Units`Mile, "usage"], "Mile is a unit of length."], 
       TagSet[Units`StatuteMile, 
        MessageName[Units`StatuteMile, "usage"], 
        "StatuteMile is a unit of length."], 
       TagSet[Units`League, 
        MessageName[Units`League, "usage"], "League is a unit of length."], 
       TagSet[Units`Acre, 
        MessageName[Units`Acre, "usage"], "Acre is a unit of area."], 
       TagSet[Units`Rood, 
        MessageName[Units`Rood, "usage"], "Rood is a unit of area."], 
       TagSet[Units`Section, 
        MessageName[Units`Section, "usage"], "Section is a unit of area."], 
       TagSet[Units`Township, 
        MessageName[Units`Township, "usage"], "Township is a unit of area."], 
       
       TagSet[Units`Cord, 
        MessageName[Units`Cord, "usage"], "Cord is a unit of volume."], 
       TagSet[Units`RegisterTon, 
        MessageName[Units`RegisterTon, "usage"], 
        "RegisterTon is a unit of volume."], 
       TagSet[Units`BoardFoot, 
        MessageName[Units`BoardFoot, "usage"], 
        "BoardFoot is a unit of volume."], 
       TagSet[Units`UKPint, 
        MessageName[Units`UKPint, "symbol"], "ipt"], 
       TagSet[Units`UKPint, 
        MessageName[Units`UKPint, "usage"], 
        "UKPint is a British volume unit."], 
       TagSet[Units`Liter, 
        MessageName[Units`Liter, "symbol"], "l"], 
       TagSet[Units`Liter, 
        MessageName[Units`Liter, "usage"], "Liter is a unit of volume."], 
       TagSet[Units`ImperialPint, 
        MessageName[Units`ImperialPint, "symbol"], "ipt"], 
       TagSet[Units`ImperialPint, 
        MessageName[Units`ImperialPint, "usage"], 
        "ImperialPint is a British volume unit."], 
       TagSet[Units`WineBottle, 
        MessageName[Units`WineBottle, "usage"], 
        "WineBottle is a unit of volume."], 
       TagSet[Units`UKGallon, 
        MessageName[Units`UKGallon, "symbol"], "impgal"], 
       TagSet[Units`UKGallon, 
        MessageName[Units`UKGallon, "usage"], 
        "UKGallon is a British volume unit."], 
       TagSet[Units`ImperialGallon, 
        MessageName[Units`ImperialGallon, "symbol"], "impgal"], 
       TagSet[Units`ImperialGallon, 
        MessageName[Units`ImperialGallon, "usage"], 
        "ImperialGallon is a British volume unit."], 
       TagSet[Units`Firkin, 
        MessageName[Units`Firkin, "usage"], "Firkin is a unit of volume."], 
       TagSet[Units`Gallon, 
        MessageName[Units`Gallon, "symbol"], "gal"], 
       TagSet[Units`Gallon, 
        MessageName[Units`Gallon, "usage"], "Gallon is a US volume unit."], 
       TagSet[Units`Quart, 
        MessageName[Units`Quart, "usage"], "Quart is a unit of volume."], 
       TagSet[Units`Jeroboam, 
        MessageName[Units`Jeroboam, "usage"], 
        "Jeroboam is a unit of volume."], 
       TagSet[Units`Bucket, 
        MessageName[Units`Bucket, "usage"], "Bucket is a unit of volume."], 
       TagSet[Units`Puncheon, 
        MessageName[Units`Puncheon, "usage"], 
        "Puncheon is a unit of volume."], 
       TagSet[Units`Butt, 
        MessageName[Units`Butt, "usage"], "Butt is a unit of volume."], 
       TagSet[Units`Hogshead, 
        MessageName[Units`Hogshead, "usage"], 
        "Hogshead is a unit of volume."], 
       TagSet[Units`Tun, 
        MessageName[Units`Tun, "usage"], "Tun is a unit of volume."], 
       TagSet[Units`Pint, 
        MessageName[Units`Pint, "symbol"], "pt"], 
       TagSet[Units`Pint, 
        MessageName[Units`Pint, "usage"], "Pint is a unit of volume."], 
       TagSet[Units`FluidOunce, 
        MessageName[Units`FluidOunce, "usage"], 
        "FluidOunce is a unit of volume."], 
       TagSet[Units`Minim, 
        MessageName[Units`Minim, "usage"], "Minim is a unit of volume."], 
       TagSet[Units`Shot, 
        MessageName[Units`Shot, "usage"], "Shot is a unit of volume."], 
       TagSet[Units`Jigger, 
        MessageName[Units`Jigger, "usage"], "Jigger is a unit of volume."], 
       TagSet[Units`Pony, 
        MessageName[Units`Pony, "usage"], "Pony is a unit of volume."], 
       TagSet[Units`FluidDram, 
        MessageName[Units`FluidDram, "usage"], 
        "FluidDram is a unit of volume."], 
       TagSet[Units`Tablespoon, 
        MessageName[Units`Tablespoon, "usage"], 
        "Tablespoon is a unit of volume."], 
       TagSet[Units`Teaspoon, 
        MessageName[Units`Teaspoon, "usage"], 
        "Teaspoon is a unit of volume."], 
       TagSet[Units`Gill, 
        MessageName[Units`Gill, "usage"], "Gill is a unit of volume."], 
       TagSet[Units`Noggin, 
        MessageName[Units`Noggin, "usage"], "Noggin is a unit of volume."], 
       TagSet[Units`Fifth, 
        MessageName[Units`Fifth, "usage"], "Fifth is a unit of volume."], 
       TagSet[Units`Magnum, 
        MessageName[Units`Magnum, "usage"], "Magnum is a unit of volume."], 
       TagSet[Units`Peck, 
        MessageName[Units`Peck, "usage"], "Peck is a unit of volume."], 
       TagSet[Units`Bushel, 
        MessageName[Units`Bushel, "usage"], "Bushel is a unit of volume."], 
       TagSet[Units`Seam, 
        MessageName[Units`Seam, "usage"], "Seam is a unit of volume."], 
       TagSet[Units`Bag, 
        MessageName[Units`Bag, "usage"], "Bag is a unit of volume."], 
       TagSet[Units`Omer, 
        MessageName[Units`Omer, "usage"], "Omer is a unit of volume."], 
       TagSet[Units`Ephah, 
        MessageName[Units`Ephah, "usage"], "Ephah is a unit of volume."], 
       TagSet[Units`Hour, 
        MessageName[Units`Hour, "symbol"], "h"], 
       TagSet[Units`Hour, 
        MessageName[Units`Hour, "usage"], "Hour is a unit of time."], 
       TagSet[Units`Minute, 
        MessageName[Units`Minute, "symbol"], "min"], 
       TagSet[Units`Minute, 
        MessageName[Units`Minute, "usage"], "Minute is a unit of time."], 
       TagSet[Units`Day, 
        MessageName[Units`Day, "symbol"], "d"], 
       TagSet[Units`Day, 
        MessageName[Units`Day, "usage"], "Day is a unit of time."], 
       TagSet[Units`Week, 
        MessageName[Units`Week, "usage"], "Week is a unit of time."], 
       TagSet[Units`Fortnight, 
        MessageName[Units`Fortnight, "usage"], 
        "Fortnight is a unit of time."], 
       TagSet[Units`Year, 
        MessageName[Units`Year, "symbol"], "yr"], 
       TagSet[Units`Year, 
        MessageName[Units`Year, "usage"], "Year is a unit of time."], 
       TagSet[Units`Month, 
        MessageName[Units`Month, "usage"], "Month is a unit of time."], 
       TagSet[Units`Decade, 
        MessageName[Units`Decade, "usage"], "Decade is a unit of time."], 
       TagSet[Units`Century, 
        MessageName[Units`Century, "usage"], "Century is a unit of time."], 
       TagSet[Units`Millennium, 
        MessageName[Units`Millennium, "usage"], 
        "Millennium is a unit of time."], 
       TagSet[Units`TropicalYear, 
        MessageName[Units`TropicalYear, "usage"], 
        "TropicalYear is a unit of time."], 
       TagSet[Units`SiderealYear, 
        MessageName[Units`SiderealYear, "usage"], 
        "SiderealYear is a unit of time."], 
       TagSet[Units`Knot, 
        MessageName[Units`Knot, "usage"], "Knot is a unit of speed."], 
       TagSet[Units`NauticalMile, 
        MessageName[Units`NauticalMile, "symbol"], "nm"], 
       TagSet[Units`NauticalMile, 
        MessageName[Units`NauticalMile, "usage"], 
        "NauticalMile is a unit of length."], 
       TagSet[Units`Quintal, 
        MessageName[Units`Quintal, "usage"], "Quintal is a unit of mass."], 
       TagSet[Units`Gram, 
        MessageName[Units`Gram, "symbol"], "g"], 
       TagSet[Units`Gram, 
        MessageName[Units`Gram, "usage"], 
        "Gram is the fundamental CGS unit of mass."], 
       TagSet[Units`SolarMass, 
        MessageName[Units`SolarMass, "usage"], 
        "SolarMass is a unit of mass."], 
       TagSet[Units`AssayTon, 
        MessageName[Units`AssayTon, "usage"], "AssayTon is a unit of mass."], 
       
       TagSet[Units`Grain, 
        MessageName[Units`Grain, "usage"], "Grain is a unit of weight."], 
       TagSet[Units`Carat, 
        MessageName[Units`Carat, "usage"], "Carat is a unit of weight."], 
       TagSet[Units`Shekel, 
        MessageName[Units`Shekel, "usage"], "Shekel is a unit of weight."], 
       TagSet[Units`Obolos, 
        MessageName[Units`Obolos, "usage"], "Obolos is a unit of weight."], 
       TagSet[Units`Drachma, 
        MessageName[Units`Drachma, "usage"], "Drachma is a unit of weight."], 
       
       TagSet[Units`Libra, 
        MessageName[Units`Libra, "usage"], "Libra is a unit of weight."], 
       TagSet[Units`TroyOunce, 
        MessageName[Units`TroyOunce, "usage"], 
        "TroyOunce is a unit of weight."], 
       TagSet[Units`Pennyweight, 
        MessageName[Units`Pennyweight, "usage"], 
        "Pennyweight is a unit of weight."], 
       TagSet[Units`Tonne, 
        MessageName[Units`Tonne, "symbol"], "t"], 
       TagSet[Units`Tonne, 
        MessageName[Units`Tonne, "usage"], "Tonne is a unit of mass."], 
       TagSet[Units`MetricTon, 
        MessageName[Units`MetricTon, "usage"], 
        "MetricTon is a unit of mass."], 
       TagSet[Units`AMU, 
        MessageName[Units`AMU, "usage"], "AMU is a unit of mass. "], 
       TagSet[Units`AtomicMassUnit, 
        MessageName[Units`AtomicMassUnit, "usage"], 
        "AtomicMassUnit is a unit of mass."], 
       TagSet[Units`Dalton, 
        MessageName[Units`Dalton, "usage"], "Dalton is a unit of mass."], 
       TagSet[Units`Pound, 
        MessageName[Units`Pound, "symbol"], "lb"], 
       TagSet[Units`Pound, 
        MessageName[Units`Pound, "usage"], "Pound is a unit of weight."], 
       TagSet[Units`Ounce, 
        MessageName[Units`Ounce, "symbol"], "oz"], 
       TagSet[Units`Ounce, 
        MessageName[Units`Ounce, "usage"], "Ounce is a unit of weight."], 
       TagSet[Units`AvoirdupoisPound, 
        MessageName[Units`AvoirdupoisPound, "usage"], 
        "AvoirdupoisPound is a unit of weight."], 
       TagSet[Units`Pondus, 
        MessageName[Units`Pondus, "usage"], "Pondus is a unit of weight."], 
       TagSet[Units`Stone, 
        MessageName[Units`Stone, "usage"], "Stone is a unit of weight."], 
       TagSet[Units`Wey, 
        MessageName[Units`Wey, "usage"], "Wey is a unit of weight."], 
       TagSet[Units`Bale, 
        MessageName[Units`Bale, "usage"], "Bale is a unit of weight."], 
       TagSet[Units`LongTon, 
        MessageName[Units`LongTon, "usage"], "LongTon is a unit of weight."], 
       
       TagSet[Units`Cental, 
        MessageName[Units`Cental, "usage"], "Cental is a unit of weight."], 
       TagSet[Units`ShortTon, 
        MessageName[Units`ShortTon, "usage"], 
        "ShortTon is a unit of weight."], 
       TagSet[Units`Ton, 
        MessageName[Units`Ton, "usage"], "Ton is a unit of weight."], 
       TagSet[Units`NetHundredweight, 
        MessageName[Units`NetHundredweight, "usage"], 
        "NetHundredweight is a unit of weight."], 
       TagSet[Units`ShortHundredweight, 
        MessageName[Units`ShortHundredweight, "usage"], 
        "ShortHundredweight is a unit of weight."], 
       TagSet[Units`Hundredweight, 
        MessageName[Units`Hundredweight, "symbol"], "cwt"], 
       TagSet[Units`Hundredweight, 
        MessageName[Units`Hundredweight, "usage"], 
        "Hundredweight is a unit of weight."], 
       TagSet[Units`GrossHundredweight, 
        MessageName[Units`GrossHundredweight, "usage"], 
        "GrossHundredweight is a unit of weight."], 
       TagSet[Units`Mina, 
        MessageName[Units`Mina, "usage"], "Mina is a unit of weight."], 
       TagSet[Units`Talent, 
        MessageName[Units`Talent, "usage"], "Talent is a unit of weight."], 
       TagSet[Units`AvoirdupoisOunce, 
        MessageName[Units`AvoirdupoisOunce, "usage"], 
        "AvoirdupoisOunce is a unit of weight."], 
       TagSet[Units`Geepound, 
        MessageName[Units`Geepound, "usage"], "Geepound is a unit of mass."], 
       
       TagSet[Units`Slug, 
        MessageName[Units`Slug, "usage"], "Slug is a unit of mass."], 
       TagSet[Units`Denier, 
        MessageName[Units`Denier, "usage"], 
        "Denier is a unit of fineness for yarn or thread."], 
       TagSet[Units`Meter, 
        MessageName[Units`Meter, "symbol"], "m"], 
       TagSet[Units`Meter, 
        MessageName[Units`Meter, "usage"], 
        "Meter is the fundamental SI unit of length."], 
       TagSet[Units`Dyne, 
        MessageName[Units`Dyne, "symbol"], "dyn"], 
       TagSet[Units`Dyne, 
        MessageName[Units`Dyne, "usage"], 
        "Dyne is the derived CGS unit of force."], 
       TagSet[Units`Newton, 
        MessageName[Units`Newton, "symbol"], "N"], 
       TagSet[Units`Newton, 
        MessageName[Units`Newton, "usage"], 
        "Newton is the derived SI unit of force."], 
       TagSet[Units`Poundal, 
        MessageName[Units`Poundal, "symbol"], "pdl"], 
       TagSet[Units`Poundal, 
        MessageName[Units`Poundal, "usage"], "Poundal is a unit of force."], 
       TagSet[Units`TonForce, 
        MessageName[Units`TonForce, "usage"], "TonForce is a unit of force."],
        
       TagSet[Units`PoundForce, 
        MessageName[Units`PoundForce, "symbol"], "lbf"], 
       TagSet[Units`PoundForce, 
        MessageName[Units`PoundForce, "usage"], 
        "PoundForce is a unit of force."], 
       TagSet[Units`PoundWeight, 
        MessageName[Units`PoundWeight, "usage"], 
        "PoundWeight is a unit of force."], 
       TagSet[Units`KilogramForce, 
        MessageName[Units`KilogramForce, "usage"], 
        "KilogramForce is a unit of force."], 
       TagSet[Units`KilogramWeight, 
        MessageName[Units`KilogramWeight, "usage"], 
        "KilogramWeight is a unit of force."], 
       TagSet[Units`GramWeight, 
        MessageName[Units`GramWeight, "usage"], 
        "GramWeight is a unit of force."], 
       TagSet[Units`Atmosphere, 
        MessageName[Units`Atmosphere, "symbol"], "atm"], 
       TagSet[Units`Atmosphere, 
        MessageName[Units`Atmosphere, "usage"], 
        "Atmosphere is a unit of pressure."], 
       TagSet[Units`Pascal, 
        MessageName[Units`Pascal, "symbol"], "Pa"], 
       TagSet[Units`Pascal, 
        MessageName[Units`Pascal, "usage"], 
        "Pascal is the derived SI unit of pressure."], 
       TagSet[Units`InchMercury, 
        MessageName[Units`InchMercury, "usage"], 
        "InchMercury is a unit of pressure."], 
       TagSet[Units`Barye, 
        MessageName[Units`Barye, "usage"], "Barye is a unit of pressure."], 
       TagSet[Units`Bar, 
        MessageName[Units`Bar, "symbol"], "bar"], 
       TagSet[Units`Bar, 
        MessageName[Units`Bar, "usage"], "Bar is a unit of pressure."], 
       TagSet[Units`PSI, 
        MessageName[Units`PSI, "usage"], "PSI is a unit of pressure."], 
       TagSet[Units`PoundsPerSquareInch, 
        MessageName[Units`PoundsPerSquareInch, "usage"], 
        "PoundsPerSquareInch is a unit of pressure."], 
       TagSet[Units`Torr, 
        MessageName[Units`Torr, "usage"], "Torr is a unit of pressure."], 
       TagSet[Units`MillimeterMercury, 
        MessageName[Units`MillimeterMercury, "usage"], 
        "MillimeterMercury is a unit of pressure."], 
       TagSet[Units`Rydberg, 
        MessageName[Units`Rydberg, "usage"], "Rydberg is a unit of energy."], 
       
       TagSet[Units`Erg, 
        MessageName[Units`Erg, "symbol"], "erg"], 
       TagSet[Units`Erg, 
        MessageName[Units`Erg, "usage"], 
        "Erg is the derived CGS unit of energy."], 
       TagSet[Units`BritishThermalUnit, 
        MessageName[Units`BritishThermalUnit, "symbol"], "Btu"], 
       TagSet[Units`BritishThermalUnit, 
        MessageName[Units`BritishThermalUnit, "usage"], 
        "BritishThermalUnit is a unit of energy."], 
       TagSet[Units`BTU, 
        MessageName[Units`BTU, "symbol"], "Btu"], 
       TagSet[Units`BTU, 
        MessageName[Units`BTU, "usage"], "BTU is a unit of energy."], 
       TagSet[Units`Therm, 
        MessageName[Units`Therm, "usage"], "Therm is a unit of energy."], 
       TagSet[Units`Centigrade, 
        MessageName[Units`Centigrade, "usage"], 
        "Centigrade is a unit of temperature."], 
       TagSet[Units`Kelvin, 
        MessageName[Units`Kelvin, "symbol"], "K"], 
       TagSet[Units`Kelvin, 
        MessageName[Units`Kelvin, "usage"], 
        "Kelvin is the fundamental SI unit of thermodynamic temperature."], 
       TagSet[Units`Celsius, 
        MessageName[Units`Celsius, "usage"], 
        "Celsius is a unit of temperature."], 
       TagSet[Units`Fahrenheit, 
        MessageName[Units`Fahrenheit, "usage"], 
        "Fahrenheit is a unit of temperature."], 
       TagSet[Units`Rankine, 
        MessageName[Units`Rankine, "usage"], 
        "Rankine is a unit of temperature."], 
       TagSet[Units`Poise, 
        MessageName[Units`Poise, "symbol"], "P"], 
       TagSet[Units`Poise, 
        MessageName[Units`Poise, "usage"], 
        "Poise is the derived CGS unit of absolute viscosity."], 
       TagSet[Units`Second, 
        MessageName[Units`Second, "symbol"], "s"], 
       TagSet[Units`Second, 
        MessageName[Units`Second, "usage"], 
        "Second is the fundamental SI unit of time."], 
       TagSet[Units`Reyn, 
        MessageName[Units`Reyn, "usage"], 
        "Reyn is a unit of absolute viscosity."], 
       TagSet[Units`Rhes, 
        MessageName[Units`Rhes, "usage"], "Rhes is a unit of viscosity."], 
       TagSet[Units`Phot, 
        MessageName[Units`Phot, "symbol"], "ph"], 
       TagSet[Units`Phot, 
        MessageName[Units`Phot, "usage"], 
        "Phot is the derived CGS unit of illumination (illuminance)."], 
       TagSet[Units`Lux, 
        MessageName[Units`Lux, "symbol"], "lx"], 
       TagSet[Units`Lux, 
        MessageName[Units`Lux, "usage"], 
        "Lux is the derived SI unit of illumination (illuminance)."], 
       TagSet[Units`FootCandle, 
        MessageName[Units`FootCandle, "usage"], 
        "FootCandle is a unit of illumination (illuminance)."], 
       TagSet[Units`Apostilb, 
        MessageName[Units`Apostilb, "usage"], 
        "Apostilb is a unit of luminance (photometric brightness)."], 
       TagSet[Units`Lambert, 
        MessageName[Units`Lambert, "usage"], 
        "Lambert is a unit of luminance (photometric brightness)."], 
       TagSet[Units`Lumerg, 
        MessageName[Units`Lumerg, "usage"], 
        "Lumerg is a unit of luminous energy (quantity of light)."], 
       TagSet[Units`Talbot, 
        MessageName[Units`Talbot, "usage"], 
        "Talbot is a unit of luminous energy (quantity of light)."], 
       TagSet[Units`Rad, 
        MessageName[Units`Rad, "symbol"], "rad"], 
       TagSet[Units`Rad, 
        MessageName[Units`Rad, "usage"], 
        "Rad is a unit of absorbed dose of radiation."], 
       TagSet[Units`GrayDose, 
        MessageName[Units`GrayDose, "symbol"], "Gy"], 
       TagSet[Units`GrayDose, 
        MessageName[Units`GrayDose, "usage"], 
        "GrayDose is the derived SI unit of absorbed dose of radiation."], 
       TagSet[Units`Curie, 
        MessageName[Units`Curie, "symbol"], "Ci"], 
       TagSet[Units`Curie, 
        MessageName[Units`Curie, "usage"], 
        "Curie is a unit of radioactivity."], 
       TagSet[Units`Becquerel, 
        MessageName[Units`Becquerel, "symbol"], "Bq"], 
       TagSet[Units`Becquerel, 
        MessageName[Units`Becquerel, "usage"], 
        "Becquerel is the derived SI unit of radioactivity."], 
       TagSet[Units`Rontgen, 
        MessageName[Units`Rontgen, "symbol"], "R"], 
       TagSet[Units`Rontgen, 
        MessageName[Units`Rontgen, "usage"], 
        "Rontgen is a unit of exposure to X or gamma radiation."], 
       TagSet[Units`Coulomb, 
        MessageName[Units`Coulomb, "symbol"], "C"], 
       TagSet[Units`Coulomb, 
        MessageName[Units`Coulomb, "usage"], 
        "Coulomb is the derived SI unit of electric charge."], 
       TagSet[Units`Kilogram, 
        MessageName[Units`Kilogram, "symbol"], "kg"], 
       TagSet[Units`Kilogram, 
        MessageName[Units`Kilogram, "usage"], 
        "Kilogram is the fundamental SI unit of mass."], 
       TagSet[Units`Roentgen, 
        MessageName[Units`Roentgen, "symbol"], "R"], 
       TagSet[Units`Roentgen, 
        MessageName[Units`Roentgen, "usage"], 
        "Roentgen is a unit of exposure to X or gamma radiation."], 
       TagSet[Units`Abmho, 
        MessageName[Units`Abmho, "usage"], 
        "Abmho is a unit of electric conductance in the CGS system."], 
       TagSet[Units`Mho, 
        MessageName[Units`Mho, "usage"], 
        "Mho is a unit of electric conductance."], 
       TagSet[Units`Gauss, 
        MessageName[Units`Gauss, "symbol"], "G"], 
       TagSet[Units`Gauss, 
        MessageName[Units`Gauss, "usage"], 
        "Gauss is the derived CGS unit of magnetic flux density."], 
       TagSet[Units`Tesla, 
        MessageName[Units`Tesla, "symbol"], "T"], 
       TagSet[Units`Tesla, 
        MessageName[Units`Tesla, "usage"], 
        "Tesla is the derived SI unit of magnetic flux density."], 
       TagSet[Units`BohrMagneton, 
        MessageName[Units`BohrMagneton, "usage"], 
        "BohrMagneton is a unit of magnetic moment."], 
       TagSet[Units`NuclearMagneton, 
        MessageName[Units`NuclearMagneton, "usage"], 
        "NuclearMagneton is a unit of magnetic moment."], 
       TagSet[Units`Bit, 
        MessageName[Units`Bit, "symbol"], "bit"], 
       TagSet[Units`Bit, 
        MessageName[Units`Bit, "usage"], 
        "Bit is the fundamental unit of information."], 
       TagSet[Units`Nibble, 
        MessageName[Units`Nibble, "usage"], 
        "Nibble is a unit of information."], 
       TagSet[Units`Baud, 
        MessageName[Units`Baud, "usage"], "Baud is a unit of information."], 
       Units`Private`$SIPrefixes = 
       Dispatch[{
         Units`Yotta -> 1000000000000000000000000, Units`Zetta -> 
          1000000000000000000000, Units`Exa -> 1000000000000000000, 
          Units`Peta -> 1000000000000000, Units`Tera -> 1000000000000, 
          Units`Giga -> 1000000000, Units`Mega -> 1000000, Units`Kilo -> 1000,
           Units`Hecto -> 100, Units`Deca -> 10, Units`Deci -> 1/10, 
          Units`Centi -> 1/100, Units`Milli -> 1/1000, Units`Micro -> 
          1/1000000, Units`Nano -> 1/1000000000, Units`Pico -> 
          1/1000000000000, Units`Femto -> 1/1000000000000000, Units`Atto -> 
          1/1000000000000000000, Units`Zepto -> 1/1000000000000000000000, 
          Units`Yocto -> 1/1000000000000000000000000}], 
       TagSet[Units`Yotta, 
        MessageName[Units`Yotta, "symbol"], "Y"], 
       TagSet[Units`Yotta, 
        MessageName[Units`Yotta, "usage"], 
        "Yotta is the SI unit prefix denoting \!\(\*SuperscriptBox[\"10\", \
\"24\"]\)."], 
       TagSet[Units`Zetta, 
        MessageName[Units`Zetta, "symbol"], "Z"], 
       TagSet[Units`Zetta, 
        MessageName[Units`Zetta, "usage"], 
        "Zetta is the SI unit prefix denoting \!\(\*SuperscriptBox[\"10\", \
\"21\"]\)."], 
       TagSet[Units`Exa, 
        MessageName[Units`Exa, "symbol"], "E"], 
       TagSet[Units`Exa, 
        MessageName[Units`Exa, "usage"], 
        "Exa is the SI unit prefix denoting \!\(\*SuperscriptBox[\"10\", \"18\
\"]\)."], 
       TagSet[Units`Peta, 
        MessageName[Units`Peta, "symbol"], "P"], 
       TagSet[Units`Peta, 
        MessageName[Units`Peta, "usage"], 
        "Peta is the SI unit prefix denoting \!\(\*SuperscriptBox[\"10\", \
\"15\"]\)."], 
       TagSet[Units`Tera, 
        MessageName[Units`Tera, "symbol"], "T"], 
       TagSet[Units`Tera, 
        MessageName[Units`Tera, "usage"], 
        "Tera is the SI unit prefix denoting \!\(\*SuperscriptBox[\"10\", \
\"12\"]\)."], 
       TagSet[Units`Giga, 
        MessageName[Units`Giga, "symbol"], "G"], 
       TagSet[Units`Giga, 
        MessageName[Units`Giga, "usage"], 
        "Giga is the SI unit prefix denoting \!\(\*SuperscriptBox[\"10\", \"9\
\"]\)."], 
       TagSet[Units`Mega, 
        MessageName[Units`Mega, "symbol"], "M"], 
       TagSet[Units`Mega, 
        MessageName[Units`Mega, "usage"], 
        "Mega is the SI unit prefix denoting \!\(\*SuperscriptBox[\"10\", \"6\
\"]\)."], 
       TagSet[Units`Kilo, 
        MessageName[Units`Kilo, "symbol"], "k"], 
       TagSet[Units`Kilo, 
        MessageName[Units`Kilo, "usage"], 
        "Kilo is the SI unit prefix denoting \!\(\*SuperscriptBox[\"10\", \"3\
\"]\)."], 
       TagSet[Units`Hecto, 
        MessageName[Units`Hecto, "symbol"], "h"], 
       TagSet[Units`Hecto, 
        MessageName[Units`Hecto, "usage"], 
        "Hecto is the SI unit prefix denoting \!\(\*SuperscriptBox[\"10\", \
\"2\"]\)."], 
       TagSet[Units`Deca, 
        MessageName[Units`Deca, "symbol"], "da"], 
       TagSet[Units`Deca, 
        MessageName[Units`Deca, "usage"], 
        "Deca is the SI unit prefix denoting \!\(\*SuperscriptBox[\"10\", \"1\
\"]\)."], 
       TagSet[Units`Deci, 
        MessageName[Units`Deci, "symbol"], "d"], 
       TagSet[Units`Deci, 
        MessageName[Units`Deci, "usage"], 
        "Deci is the SI unit prefix denoting \!\(\*FractionBox[\"1\", \"10\"]\
\)."], 
       TagSet[Units`Centi, 
        MessageName[Units`Centi, "symbol"], "c"], 
       TagSet[Units`Centi, 
        MessageName[Units`Centi, "usage"], 
        "Centi is the SI unit prefix denoting \
\!\(\*SuperscriptBox[StyleBox[\"10\", \"TR\"], RowBox[{\"-\", StyleBox[\"2\", \
\"TR\"]}]]\)."], 
       TagSet[Units`Milli, 
        MessageName[Units`Milli, "symbol"], "m"], 
       TagSet[Units`Milli, 
        MessageName[Units`Milli, "usage"], 
        "Milli is the SI unit prefix denoting \!\(\*SuperscriptBox[\"10\", \
RowBox[{\"-\", \"3\"}]]\)."], 
       TagSet[Units`Micro, 
        MessageName[Units`Micro, "symbol"], "mu"], 
       TagSet[Units`Micro, 
        MessageName[Units`Micro, "usage"], 
        "Micro is the SI unit prefix denoting \!\(\*SuperscriptBox[\"10\", \
RowBox[{\"-\", \"6\"}]]\)."], 
       TagSet[Units`Nano, 
        MessageName[Units`Nano, "symbol"], "n"], 
       TagSet[Units`Nano, 
        MessageName[Units`Nano, "usage"], 
        "Nano is the SI unit prefix denoting \!\(\*SuperscriptBox[\"10\", \
RowBox[{\"-\", \"9\"}]]\)."], 
       TagSet[Units`Pico, 
        MessageName[Units`Pico, "symbol"], "p"], 
       TagSet[Units`Pico, 
        MessageName[Units`Pico, "usage"], 
        "Pico is the SI unit prefix denoting \!\(\*SuperscriptBox[\"10\", \
RowBox[{\"-\", \"12\"}]]\)."], 
       TagSet[Units`Femto, 
        MessageName[Units`Femto, "symbol"], "f"], 
       TagSet[Units`Femto, 
        MessageName[Units`Femto, "usage"], 
        "Femto is the SI unit prefix denoting \!\(\*SuperscriptBox[\"10\", \
RowBox[{\"-\", \"15\"}]]\)."], 
       TagSet[Units`Atto, 
        MessageName[Units`Atto, "symbol"], "a"], 
       TagSet[Units`Atto, 
        MessageName[Units`Atto, "usage"], 
        "Atto is the SI unit prefix denoting \
\!\(\*SuperscriptBox[StyleBox[\"10\", \"TR\"], StyleBox[RowBox[{\"-\", \
\"18\"}], \"TR\"]]\)."], 
       TagSet[Units`Zepto, 
        MessageName[Units`Zepto, "symbol"], "z"], 
       TagSet[Units`Zepto, 
        MessageName[Units`Zepto, "usage"], 
        "Zepto is the SI unit prefix denoting \!\(\*SuperscriptBox[\"10\", \
RowBox[{\"-\", \"21\"}]]\)."], 
       TagSet[Units`Yocto, 
        MessageName[Units`Yocto, "symbol"], "y"], 
       TagSet[Units`Yocto, 
        MessageName[Units`Yocto, "usage"], 
        "Yocto is the SI unit prefix denoting \!\(\*SuperscriptBox[\"10\", \
RowBox[{\"-\", \"24\"}]]\)."], Units`Private`$ToSI = 
       Dispatch[{
         Degree -> (Pi Units`Radian)/180, Circle -> 2 Pi Units`Radian, 
          Units`RightAngle -> (Pi Units`Radian)/2, Units`Centimeter -> 
          Units`Meter/100, Units`Angstrom -> Units`Meter/10000000000, 
          Units`XUnit -> 1.0019999999999999`*^-13 Units`Meter, Units`Fermi -> 
          Units`Meter/1000000000000000, Units`Micron -> Units`Meter/1000000, 
          Units`NauticalMile -> 1852. Units`Meter, Units`LightYear -> 
          9.46073*^15 Units`Meter, Units`Parsec -> 
          30857000000000000 Units`Meter, Units`AstronomicalUnit -> 
          1.4959787066*^11 Units`Meter, Units`Didot -> Units`Meter/2660, 
          Units`Inch -> (127 Units`Meter)/5000, Units`Barn -> 
          Units`Meter^2/10000000000000000000000000000, Units`Hectare -> 
          10000 Units`Meter^2, Units`Are -> 100 Units`Meter^2, Units`Stere -> 
          Units`Meter^3, Units`Barrel -> 0.159 Units`Meter^3, Drop -> 
          3.*^-8 Units`Meter^3, Units`Liter -> Units`Meter^3/1000, 
          Units`Kayser -> 100/Units`Meter, Units`Diopter -> Units`Meter^(-1), 
          Units`Minute -> 60 Units`Second, Units`SiderealSecond -> 
          0.9972696 Units`Second, 
          Units`Gravity -> (9.80665 Units`Meter)/Units`Second^2, Units`Gal -> 
          Units`Meter/(100 Units`Second^2), Units`Gram -> Units`Kilogram/1000,
           Units`Slug -> 14.5939 Units`Kilogram, Units`ElectronVolt -> 
          1.6021773300000002`*^-19 Units`Joule, Units`Calorie -> 
          4.1868 Units`Joule, Units`Erg -> Units`Joule/10000000, Units`BTU -> 
          1055.0600000000002` Units`Joule, Units`Horsepower -> 
          745.7 Units`Watt, Units`ChevalVapeur -> 735.499 Units`Watt, 
          Units`Stokes -> Units`Meter^2/(10000 Units`Second), 
          Units`Stilb -> (10000 Units`Candela)/Units`Meter^2, Units`Nit -> 
          Units`Candela/Units`Meter^2, Units`Hefner -> 0.92 Units`Candela, 
          Units`Candle -> Units`Candela, 
          Units`Lambert -> (10000 Units`Lumen)/(Units`Meter^2 Pi), 
          Units`Talbot -> Units`Lumen Units`Second, Units`Rutherford -> 
          1000000/Units`Second, Units`Amp -> Units`Ampere, Units`Abampere -> 
          10 Units`Ampere, Units`Statampere -> 3.335635*^-10 Units`Ampere, 
          Units`Gilbert -> (5 Units`Ampere)/(2 Pi), Units`Biot -> 
          10 Units`Ampere, Units`Abohm -> Units`Ohm/1000000000, Units`Statohm -> 
          8.987584*^11 Units`Ohm, Units`Mho -> Units`Ohm^(-1), 
          Units`Abcoulomb -> 10 Units`Coulomb, Units`Statcoulomb -> 
          3.335635*^-10 Units`Coulomb, Units`Abfarad -> 
          1000000000 Units`Farad, Units`Statfarad -> 
          1.112646*^-12 Units`Farad, Units`Abhenry -> Units`Henry/1000000000, 
          Units`Stathenry -> 8.987584*^11 Units`Henry, Units`Abvolt -> 
          Units`Volt/100000000, Units`Statvolt -> 299.793 Units`Volt, 
          Units`Oersted -> (250 Units`Ampere)/(Units`Meter Pi), Units`Maxwell -> 
          Units`Weber/100000000}], 
       TagSet[Units`Radian, 
        MessageName[Units`Radian, "symbol"], "rad"], 
       TagSet[Units`Radian, 
        MessageName[Units`Radian, "usage"], 
        "Radian is a dimensionless measure of plane angle."], 
       TagSet[Units`Centimeter, 
        MessageName[Units`Centimeter, "symbol"], "cm"], 
       TagSet[Units`Centimeter, 
        MessageName[Units`Centimeter, "usage"], 
        "Centimeter is the fundamental CGS unit of length."], 
       TagSet[Units`Angstrom, 
        MessageName[Units`Angstrom, "usage"], 
        "Angstrom is a unit of length."], 
       TagSet[Units`XUnit, 
        MessageName[Units`XUnit, "usage"], "XUnit is a unit of length."], 
       TagSet[Units`Fermi, 
        MessageName[Units`Fermi, "usage"], "Fermi is a unit of length."], 
       TagSet[Units`Micron, 
        MessageName[Units`Micron, "usage"], "Micron is a unit of length."], 
       TagSet[Units`LightYear, 
        MessageName[Units`LightYear, "symbol"], "ly"], 
       TagSet[Units`LightYear, 
        MessageName[Units`LightYear, "usage"], 
        "LightYear is a unit of length."], 
       TagSet[Units`Parsec, 
        MessageName[Units`Parsec, "symbol"], "pc"], 
       TagSet[Units`Parsec, 
        MessageName[Units`Parsec, "usage"], "Parsec is a unit of length."], 
       TagSet[Units`Barn, 
        MessageName[Units`Barn, "symbol"], "b"], 
       TagSet[Units`Barn, 
        MessageName[Units`Barn, "usage"], "Barn is a unit of area."], 
       TagSet[Units`Hectare, 
        MessageName[Units`Hectare, "symbol"], "ha"], 
       TagSet[Units`Hectare, 
        MessageName[Units`Hectare, "usage"], "Hectare is a unit of area."], 
       TagSet[Units`Are, 
        MessageName[Units`Are, "usage"], "Are is a unit of area."], 
       TagSet[Units`Stere, 
        MessageName[Units`Stere, "symbol"], "st"], 
       TagSet[Units`Stere, 
        MessageName[Units`Stere, "usage"], "Stere is a unit of volume."], 
       TagSet[Units`Barrel, 
        MessageName[Units`Barrel, "symbol"], "bbl"], 
       TagSet[Units`Barrel, 
        MessageName[Units`Barrel, "usage"], "Barrel is a unit of volume."], 
       TagSet[Units`Kayser, 
        MessageName[Units`Kayser, "usage"], 
        "Kayser is a unit of inverse length."], 
       TagSet[Units`Diopter, 
        MessageName[Units`Diopter, "usage"], 
        "Diopter is a unit of inverse length."], 
       TagSet[Units`SiderealSecond, 
        MessageName[Units`SiderealSecond, "usage"], 
        "SiderealSecond is a unit of time."], 
       TagSet[Units`Gravity, 
        MessageName[Units`Gravity, "symbol"], "g"], 
       TagSet[Units`Gravity, 
        MessageName[Units`Gravity, "usage"], 
        "Gravity is a measure of the acceleration due to gravity."], 
       TagSet[Units`Gal, 
        MessageName[Units`Gal, "symbol"], "gal"], 
       TagSet[Units`Gal, 
        MessageName[Units`Gal, "usage"], 
        "Gal is the derived CGS measure of acceleration due to gravity."], 
       TagSet[Units`ElectronVolt, 
        MessageName[Units`ElectronVolt, "symbol"], "eV"], 
       TagSet[Units`ElectronVolt, 
        MessageName[Units`ElectronVolt, "usage"], 
        "ElectronVolt is a unit of energy."], 
       TagSet[Units`Joule, 
        MessageName[Units`Joule, "symbol"], "J"], 
       TagSet[Units`Joule, 
        MessageName[Units`Joule, "usage"], 
        "Joule is the derived SI unit of energy."], 
       TagSet[Units`Calorie, 
        MessageName[Units`Calorie, "usage"], "Calorie is a unit of energy."], 
       
       TagSet[Units`Horsepower, 
        MessageName[Units`Horsepower, "usage"], 
        "Horsepower is a unit of power."], 
       TagSet[Units`Watt, 
        MessageName[Units`Watt, "symbol"], "W"], 
       TagSet[Units`Watt, 
        MessageName[Units`Watt, "usage"], 
        "Watt is the derived SI unit of power."], 
       TagSet[Units`ChevalVapeur, 
        MessageName[Units`ChevalVapeur, "usage"], 
        "ChevalVapeur is a unit of power."], 
       TagSet[Units`Stokes, 
        MessageName[Units`Stokes, "symbol"], "St"], 
       TagSet[Units`Stokes, 
        MessageName[Units`Stokes, "usage"], 
        "Stokes is the derived CGS unit of kinematic viscosity."], 
       TagSet[Units`Stilb, 
        MessageName[Units`Stilb, "symbol"], "sb"], 
       TagSet[Units`Stilb, 
        MessageName[Units`Stilb, "usage"], 
        "Stilb is the derived CGS unit of luminance (photometric \
brightness)."], 
       TagSet[Units`Candela, 
        MessageName[Units`Candela, "symbol"], "cd"], 
       TagSet[Units`Candela, 
        MessageName[Units`Candela, "usage"], 
        "Candela is the fundamental SI unit of luminous intensity."], 
       TagSet[Units`Nit, 
        MessageName[Units`Nit, "usage"], 
        "Nit is a unit of luminance (photometric brightness)."], 
       TagSet[Units`Hefner, 
        MessageName[Units`Hefner, "usage"], 
        "Hefner is a unit of luminous intensity."], 
       TagSet[Units`Candle, 
        MessageName[Units`Candle, "usage"], 
        "Candle is a unit of luminous intensity."], 
       TagSet[Units`Lumen, 
        MessageName[Units`Lumen, "symbol"], "lm"], 
       TagSet[Units`Lumen, 
        MessageName[Units`Lumen, "usage"], 
        "Lumen is the derived SI unit of luminous flux."], 
       TagSet[Units`Rutherford, 
        MessageName[Units`Rutherford, "usage"], 
        "Rutherford is a unit of radioactivity."], 
       TagSet[Units`Amp, 
        MessageName[Units`Amp, "usage"], 
        "Amp is an abbreviation for Ampere."], 
       TagSet[Units`Ampere, 
        MessageName[Units`Ampere, "symbol"], "A"], 
       TagSet[Units`Ampere, 
        MessageName[Units`Ampere, "usage"], 
        "Ampere is the fundamental SI unit of electric current."], 
       TagSet[Units`Abampere, 
        MessageName[Units`Abampere, "usage"], 
        "Abampere is a unit of electric current in the CGS system."], 
       TagSet[Units`Statampere, 
        MessageName[Units`Statampere, "usage"], 
        "Statampere is a unit of electric current."], 
       TagSet[Units`Gilbert, 
        MessageName[Units`Gilbert, "usage"], 
        "Gilbert is a unit of magnetomotive force."], 
       TagSet[Units`Biot, 
        MessageName[Units`Biot, "usage"], 
        "Biot is a unit of electric current."], 
       TagSet[Units`Abohm, 
        MessageName[Units`Abohm, "usage"], 
        "Abohm is a unit of electric resistance in the CGS system."], 
       TagSet[Units`Ohm, 
        MessageName[Units`Ohm, "symbol"], "Omega"], 
       TagSet[Units`Ohm, 
        MessageName[Units`Ohm, "usage"], 
        "Ohm is the derived SI unit of electric resistance."], 
       TagSet[Units`Statohm, 
        MessageName[Units`Statohm, "usage"], 
        "Statohm is a unit of electric resistance."], 
       TagSet[Units`Abcoulomb, 
        MessageName[Units`Abcoulomb, "usage"], 
        "Abcoulomb is a unit of electric charge in the CGS system."], 
       TagSet[Units`Statcoulomb, 
        MessageName[Units`Statcoulomb, "usage"], 
        "Statcoulomb is a unit of electric charge."], 
       TagSet[Units`Abfarad, 
        MessageName[Units`Abfarad, "usage"], 
        "Abfarad is a unit of electric capacitance in the CGS system."], 
       TagSet[Units`Farad, 
        MessageName[Units`Farad, "symbol"], "F"], 
       TagSet[Units`Farad, 
        MessageName[Units`Farad, "usage"], 
        "Farad is the derived SI unit of electric capacitance."], 
       TagSet[Units`Statfarad, 
        MessageName[Units`Statfarad, "usage"], 
        "Statfarad is a unit of electric capacitance."], 
       TagSet[Units`Abhenry, 
        MessageName[Units`Abhenry, "usage"], 
        "Abhenry is a unit of inductance in the CGS system."], 
       TagSet[Units`Henry, 
        MessageName[Units`Henry, "symbol"], "H"], 
       TagSet[Units`Henry, 
        MessageName[Units`Henry, "usage"], 
        "Henry is the derived SI unit of inductance."], 
       TagSet[Units`Stathenry, 
        MessageName[Units`Stathenry, "usage"], 
        "Stathenry is a unit of inductance."], 
       TagSet[Units`Abvolt, 
        MessageName[Units`Abvolt, "usage"], 
        "Abvolt is a unit of electric potential difference in the CGS \
system."], 
       TagSet[Units`Volt, 
        MessageName[Units`Volt, "symbol"], "V"], 
       TagSet[Units`Volt, 
        MessageName[Units`Volt, "usage"], 
        "Volt is the derived SI unit of electric potential difference."], 
       TagSet[Units`Statvolt, 
        MessageName[Units`Statvolt, "usage"], 
        "Statvolt is a unit of electric potential difference."], 
       TagSet[Units`Oersted, 
        MessageName[Units`Oersted, "symbol"], "Oe"], 
       TagSet[Units`Oersted, 
        MessageName[Units`Oersted, "usage"], 
        "Oersted is the derived CGS unit of magnetic intensity."], 
       TagSet[Units`Maxwell, 
        MessageName[Units`Maxwell, "symbol"], "Mx"], 
       TagSet[Units`Maxwell, 
        MessageName[Units`Maxwell, "usage"], 
        "Maxwell is the derived CGS unit of magnetic flux."], 
       TagSet[Units`Weber, 
        MessageName[Units`Weber, "symbol"], "Wb"], 
       TagSet[Units`Weber, 
        MessageName[Units`Weber, "usage"], 
        "Weber is the derived SI unit of magnetic flux."], 
       Units`Private`$ToFundamental = 
       Dispatch[{
         Units`Radian -> 1, Units`Steradian -> Units`Radian^2, 
          Units`Newton -> (Units`Kilogram Units`Meter)/Units`Second^2, 
          Units`Pascal -> Units`Newton/Units`Meter^2, Units`Joule -> 
          Units`Meter Units`Newton, Units`Watt -> Units`Joule/Units`Second, 
          Units`Coulomb -> Units`Ampere Units`Second, Units`Volt -> 
          Units`Watt/Units`Ampere, Units`Ohm -> Units`Volt/Units`Ampere, 
          Units`Siemens -> Units`Ampere/Units`Volt, Units`Farad -> 
          Units`Coulomb/Units`Volt, Units`Weber -> Units`Second Units`Volt, 
          Units`Henry -> Units`Ohm Units`Second, Units`Tesla -> 
          Units`Weber/Units`Meter^2, Units`Lumen -> 
          Units`Candela Units`Steradian, Units`Lux -> 
          Units`Lumen/Units`Meter^2, Units`Hertz -> Units`Second^(-1), 
          Units`Becquerel -> Units`Second^(-1), Units`GrayDose -> 
          Units`Joule/Units`Kilogram}], 
       TagSet[Units`Steradian, 
        MessageName[Units`Steradian, "symbol"], "sr"], 
       TagSet[Units`Steradian, 
        MessageName[Units`Steradian, "usage"], 
        "Steradian is a dimensionless measure of solid angle."], 
       TagSet[Units`Siemens, 
        MessageName[Units`Siemens, "symbol"], "S"], 
       TagSet[Units`Siemens, 
        MessageName[Units`Siemens, "usage"], 
        "Siemens is the derived SI unit of electric conductance."], 
       TagSet[Units`Hertz, 
        MessageName[Units`Hertz, "symbol"], "Hz"], 
       TagSet[Units`Hertz, 
        MessageName[Units`Hertz, "usage"], 
        "Hertz is the derived SI unit of frequency."], 
       Units`Private`HasUnitQ[
         Pattern[Units`Private`expr, 
          Blank[]]] := Count[Units`Private`expr, 
          PatternTest[
           Blank[Symbol], And[
            MatchQ[#, 
             Blank[Symbol]], 
            Or[
             MemberQ[{"Units`", "SIUnits`"}, 
              Context[#]], 
             
             MemberQ[{
              Span, Cup, Degree, Circle, Point, Last, Drop, Gamma, 
               Byte}, #]]]& ], Infinity] =!= 0, $CellContext`exposure[
         Pattern[$CellContext`rating, 
          Blank[]], 
         Pattern[$CellContext`distance, 
          Blank[]], 
         Pattern[$CellContext`divergence, 
          Blank[]], 
         Pattern[$CellContext`pupilDiameter, 
          Blank[]], 
         Pattern[$CellContext`eyeFocalLength, 
          Blank[]], 
         Pattern[$CellContext`\[Lambda], 
          Blank[]], 
         Pattern[$CellContext`waist, 
          Blank[]]] := $CellContext`pupilPower[$CellContext`rating/
          10^3, $CellContext`distance, $CellContext`divergence/
          10^3, $CellContext`pupilDiameter/10^3, $CellContext`waist/
          10^3]/$CellContext`area[
         $CellContext`spotSize[$CellContext`eyeFocalLength/
          10^3, $CellContext`\[Lambda]/10^9, $CellContext`pupilDiameter/
          10^3]], $CellContext`pupilPower[
         Pattern[$CellContext`rating, 
          Blank[]], 
         Pattern[$CellContext`distance, 
          Blank[]], 
         Pattern[$CellContext`divergence, 
          Blank[]], 
         Pattern[$CellContext`pupilDiameter, 
          Blank[]], 
         Pattern[$CellContext`waist, 
          Blank[]]] := 
       Units`Watt $CellContext`rating \
$CellContext`areaRatio[$CellContext`pupilDiameter, 
          $CellContext`diameter[$CellContext`waist, $CellContext`distance, \
$CellContext`divergence]], $CellContext`areaRatio[
         Pattern[$CellContext`d1, 
          Blank[]], 
         Pattern[$CellContext`d2, 
          Blank[]]] := ($CellContext`d1/2)^2/($CellContext`d2/
         2)^2, $CellContext`diameter[
         Pattern[$CellContext`waist, 
          Blank[]], 
         Pattern[$CellContext`distance, 
          Blank[]], 
         Pattern[$CellContext`divergence, 
          Blank[]]] := 
       Sqrt[$CellContext`waist^2 + $CellContext`divergence^2 \
$CellContext`distance^2], $CellContext`area[
         Pattern[$CellContext`diameter, 
          Blank[]]] := 
       Pi (($CellContext`diameter/2) Units`Meter)^2, $CellContext`spotSize[
         Pattern[$CellContext`eyeFocalLength, 
          Blank[]], 
         Pattern[$CellContext`\[Lambda], 
          Blank[]], 
         Pattern[$CellContext`pupilDiameter, 
          Blank[]]] := 
       2.44 (($CellContext`eyeFocalLength \
$CellContext`\[Lambda])/$CellContext`pupilDiameter)}; 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.4087395675768623`*^9, {3.408739772731861*^9, 3.408739799410222*^9}, 
   3.4087398825497713`*^9, 3.408739939852168*^9, {3.4087399834148083`*^9, 
   3.4087400011903677`*^9}, {3.408740047516982*^9, 3.4087400747060785`*^9}, 
   3.408740112971101*^9, 3.4087402030806723`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Thank You", "Subsubsection",
 CellChangeTimes->{{3.40864991843935*^9, 3.4086499244179473`*^9}, {
  3.408650050669488*^9, 3.4086500589413824`*^9}}],

Cell["\<\
Thank you for viewing this demonstration. Did you find it useful? Do you have \
a suggestion for a correction or other improvement? Please contact us at \
analyst@10squaredcorp.com and let us know.\
\>", "Text",
 CellChangeTimes->{{3.40864991843935*^9, 3.408650030420371*^9}, {
  3.4086500609442625`*^9, 3.4086501007815456`*^9}, {3.40865749542452*^9, 
  3.4086574965361185`*^9}}]
}, Open  ]]
},
WindowSize->{1013, 647},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
DockedCells->FEPrivate`If[
  FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], {
   Cell[
    BoxData[
     Cell[
      GraphicsData[
      "CompressedBitmap", 
       "eJzdXWdgVEeSnlUiYzA2mdUCygFEkhDKRAkMAhsWE8wZe8FgwHjB9p7DLuwa\n\
7CUJY6IIAgmUESighAQSCiihnBMCRDz7wu/7sd91v9f9pt/Mm5EE+M/9mNSv\n\
Q1V1d31V1WGWbvxiy6YdG7/Y+vHGPyzatfHzLVs/3v2HhTt3kSTL3+l0Flt0\n\
Op3zH3T0O8hX9vYWOjs7dVaozsvHleB3kB8ZhfbWVmspeQAa6upxLzAE3ePd\n\
UeYyBc0Bvnj0b6F4+NkaVK1fjXuXL+sspbz90NnRgerr15C/YzsKZs1B8UhH\n\
JE7zQsWVKzrQPNLbHCm37m3Wbtb3+3B1nANiN21DVXGxlZQ8Ah2krvp31+KR\n\
w3Tct5+JlsWBaN8Qgifb3sPDD0LR9OFK1EWcQW3qNVSeO4u87Z+icI4vaqe6\n\
ocjVFedGT8a15e+ivbHRVNs2qKuqQoLbLMQPnICL07xRfOwE6nNuWUiP30R7\n\
czPaVq7AIy9vtE2bjZo5nmhauwAPdq/Cs+/X4fE6QtPSeWgJDULzqvmo8JuO\n\
8hnuqJjmgRhbJ4RTGla8q2/eR25+pPQxBimE9fQRk5Azwg7J5DPDcSru7Pgc\n\
ZSdPo2TdWjz18sTDQH80+vqi1c4DDX4z8eD7lXj69/fQ+UUo2jYFo2nRTDRv\n\
mYe7gTNREDQFCVPccMHWHhedXHDz8z/rTDQ+DjXFRUhycEfsyMnkZYfccXZI\n\
H2+POHsHFDk44anbTDwO8EfnwkB0zZiDDnc33N+5AI/Prcej42vR/mUwyjYG\n\
oHSdN26tmo3kebMQ7uCMw2PG45SLGyoTE6WmyaDQ9ZfatERdVhbqb92SfukJ\n\
myISNhYdbW3IWPFHXBn2eyT6euPu3z9CxT+3oOTAFlQe2oKGI5+i8acdaDix\n\
Ew0/f4a6w1tQd2o7GmO/RMOVr9AY/RVqLvwZVSe3o/LUDpQf/wylhz5F5vaV\n\
OOExBTe/+RaFBw9ZszHQ0daKisuXUXo2HFlr1yLjvVW4Fx+vJ2+qTN4o6WMy\n\
7pLOSXBzQdWFr9B87QhqY4+hKeE4HqefxYP0cDxIO4OutHDcz7iArszz6Lz6\n\
MzpjjqKTPGvPOYfW3HNoJN9rk06iNv446pJ+RlPqSeR+8QmuOLgh87OdKCP0\n\
lNNXZCRKzpzB9XXrkRi6HElkgOeQwXCT0NmYny/I0EMkchIKDochLsQPDVf3\n\
415kOCqvROJpWiy60qPxXzU5+J97OfglPxVP8zPxrCAdL1Kj8cuNWDxLicGT\n\
tBh0p8ahLTkO7dFRaIm+hKpzhOiLkWgnBJ2d4oIfJtkizMkJh13dcH46Ge2e\n\
0xHnPAV3p3qhaLY/sjd/gra6+iaJHGu0Xk9DlYsvKoe5oCZ0Pf2tG8/GRHFx\n\
sTxOyK8XLG3btm1IT0+XfgWytFOnTknpERERpNckbt9gj6je4VVYMQm0Nbci\n\
ccVyxCz2QV38D2RknEf31Sj8WpCCC37+SAkJQWt6JP6z4Ta689Px+HYyXhQn\n\
43l2LLqTiLQSL+FJdATuX7qAzvPn8fBSBJrPhKMhOhqdN1Jx0GsqDnhMQpj7\n\
ZJx1d0Y20REl84JQExCEXO8A0p1fUgk0Mwl0VFajynMRKn8/Q5ICkQaZgzL5\n\
lZWVEnf0138IEkhKShIkYIVbZObQNPqMfLcWheCIwiNhyP7oIyL6zbi54zPk\n\
/3gAVak3UH0zGwVbNyOPKIXUd/xRH/8jHqdexLPMaLyozkKSTwDKdBNwY4IL\n\
cndtQVv+VTyvzMZTIownt+LwKOUyEcglPCICuU8E0nrxPBojzxOlexqt8bF4\n\
lJ2G5IW+yA/xQePS+WgNWohm/2CUBwUhPSAQd/b/oGtnHLTl3ZG4p6/mn8PH\n\
9lIAc1najz/+iKNHjwr9rBsofRBtU1SEqsiLaDwXjurLUSiNjkFh5GUUbN+O\n\
uqnT0PXmRNwfPgntQyaizckZT6a54ZmdK24vCUBV/H4ycy/iQcYVdN9LR5x/\n\
EMoHOKB2qDNu6yYi0W06bv/wDbrKUvGkMAldqZHoTIxAx9WLaI2LQPWlsygN\n\
P4l7Z47jflIcOm/eQNm7S9Cycinayef9NaGoXTgfGZ5zcGM9Gf01NR2Mo5q5\n\
yyVh1K3/RNdXadDfu3btMpaGK+oqylFI9NnNd1fgnpMbSkdNQuwIW8SMnYw8\n\
e0dkjrZFzaCJePiWHTrdXNHuNwsPPDyQuzwIpVF/J1P/HDoyL+N+WQqiyYDO\n\
H+yA4lFuKBnthuKhDkgeSuoLnIvik/vRfjMGLQnn0RB/gaiZ8yi9cBoFP4fh\n\
7vEwMsES0XozDRWfrMaDbzfg0ZYVBFAXICfAD5nrN9AJohvMGGiOjFXGBpkl\n\
EkeW9BdhlT7jE9yCGRt0RtVt3a3oFfpJf5N02SCxYIUb/rJHKEzTrMQ0+l1K\n\
tmKAQAcpVVKMEKlSkiblsdBXrF2JBesc+oxxQw0jXshGZEXJRHpfoHiQkoez\n\
yJUGpYpSJykSOoUiY5ntZY3GfYf1oiDPe+LWktl3VDWT9tViJL9pOsuv0xcw\n\
LdNBSlpvqLbg4EvyirKmXCjNjFARTl+UKJpdZJTm6U2TNuZ7pm/0W/L5y2in\n\
6txaGJi0Lp5fkKjOwpQQ+2lMfp4moiFvuLGxUZr85JkyBKIJNH399ddSfvpJ\n\
fjPF0E9BT1qGlqXt0jr37t1LiKK1DKDfJYyhz3ibVN3ychR5rXpsS/sZnxe0\n\
Tpqun8mWCqaRTyZEdT4bM/VaasjIhvHM6+Avyh/hgcqYtaOuk/NooVGn6TQb\n\
MU16UYuGQJUsVhsJtQQjh2fnvSZwKklf3yODjIrSvKzXORzw6pgkhkkjiJbj\n\
HNGep/XS32LPm6iHM8WYUITHSDEnG7HPTPdjP4kKPq7oi35n+XqUM+0vgzHZ\n\
87Cz4YJVmqRCIWTIj4dIMqO1cpnQ4nSkUEop4zydtUjT2eyUuaHViXlY9Zqj\n\
k5Mk9rvRsNALjlDO0V1GSie0khZLiXd1b9sOdDt6oNveCUV2LshzJHbQ9Klo\n\
meiC+65T0DbbG/fnByDng2AUXNiDuoSzxPO4hJbCBJzzD8C1YXbIGOOK9DEu\n\
5OWK7NGuuDZ0MsKJR3g5dCkKTx1CRRzxQC6Fo/DEURQePYjK2DNouJ2Kxtw0\n\
NOzZgF9/+hBPvlyBqiVBSPH1I17U2SGsPwRFK70oMFuwZ1SRi88oyvAJoZjK\n\
7BmxkRQko+n0ORPay0I8xw+q4qkJxizz3wDiBRBQASjPQw0/Vivl00pBHYY0\n\
fLSIAqPUM4jvmc6B1NAWDSs9w7Lcja0C01LVp/WWbgXc5Y7k5bXoJnRasmSJ\n\
RGbPkZbMNdQDrPeeYol1bnBy60c/YfsZjklRhi+P69yo59OeKjGmpJSGeRrV\n\
PDQ//WS6kOXpr2h4mpfmoVqJqxCi2SwkcB0oKTmahSscqqxoGi1C05mC633L\n\
A83lkZph6M5nDSdU78brDQA9cPSmabUAbZggBGNC4YqjAvltyTLz6mmf8GwS\n\
ZhvXbDrNRgWgtIup/KRqqLhtFOygj7jIFSKsRb6lziLE6OSigyS0Eo01ygOt\n\
jpbhJgE3mjiF3CiUTQj6xFKEL5ZvkLm6DDnR9YoVrS5Up3Hs5yjLx6mAuqYF\n\
LZtD1kYjVT8WJvQ4DJl8VeXZhFTkxqwGJQ/tA/qcfvJ0Wi8ry5gaIJWnZUXG\n\
eBs0nZoC5kaROA40ZMvtHb39zYI+w9F0pxDNYQfQNX822p3d0eo9EzWLvNGy\n\
aA4eTJ+NR3OCkLE6GLfO/Q2lMWdQFncWNblxCPP1Rdgbtjg92oGG1kY5kLrI\n\
d5wZaY/Dg8fj+/F2iFi3FnlnjiIr7CBunTiI8qRzqL2Tgrr8VLQc+Dc827MS\n\
nWsCcGeuN64vWYKWe5U6jv2i2lf7fLKnKj6jiplPS9Fm4DqYfPYGkXrCfrkJ\n\
KxWSSlV3qjw5WsGrmgCWogev08YUmmat5ONYpGAJa9gIUdXJUliil7TyJhRx\n\
W9Di8oASK+3BBLBW0npLMyeO+sCcOCW5n4pmMQhBiePVUpNPaM5Eaz2YAn2n\n\
nHaQaDypDFWhCKlO3xPqPnk5a4ATJSh0EUO5nhF1CNc3XJRMp1gKRajqEvUz\n\
d+vMVcOasuzN4wGqx6JS44BCNJnCrxZi9IYxJietajizXPdT30lLZqIAekZ5\n\
axU20m4jOl0JdlD9znGE47EWKHLXg3apGDBQ6fp+qqY4bDHPXVGS3C3XhIvX\n\
Q61pCNfuJLMkvcRIsxQfK7ITi9A+Ztg6QKMIZ4DbFzTmw6sWR+MrwDJHd2pt\n\
MVgeLn0MQ2daMvG8F+BBiBfuL/dG68ZgtK5fhO7FgchcF4ys8L+i8MJRFEX8\n\
jHs3orDfazZ2DxmL7962xTcjba3w7du2uqH4buREfDN8AnYOHoVvHF1w/qMP\n\
cfdaOMpTzqGm+Dpqcq6h5eBG/PrP99H60SLkBPrhemjoUCYBMUqqVnd651zx\n\
Tz0X6YOabFGCuklaaSbVW1/hl6h1Ln9Bz74y/PZTYJWbGlwSBq6aMf4SMtSg\n\
Y4gI6kYte6JUHocqFKEmgRZS9Rl3e6JViy6NJmTTjJkthE59s50qu8FMc30G\n\
3h7FbC1ZC8xcMRqgfNDWbd2t7et39hlr+yvaQ5z11Dmi30kdXPnS6mgS95sM\n\
3FuhhNLLWrpFrKaHVowe91c95vRyJ4ToWb7dwhh/1ASa4skMxHJVTC0S2pqB\n\
lEyz3DOysqCrglVcw/cWWXlkQVzC6COymtX4r4dac8j6EiDU57FlKT5WqOcB\n\
7E7m7VLOBrL8wjNlFPE6aD6+kYZbXZoRApOM8JHAe493i3586t6UPoaio/gu\n\
2tYvR1fgTDzeRtB01xI8WD8XmcsCkUcc3KrIY6hOjUB9XiIOzPHBd2+Mx/7R\n\
djbYN2oyKb5v9GT6DX8dPA573xyPqNAQFMT8hJaKNNQTn7b95Gb89+kNeLB1\n\
EQoX+CF5MfFpq6oGM/pFPcUVHXEaFf+RAaTWeqm1oQ7W53opLFXC2EwPsi01\n\
XJ2/ljB2PzFErWKaamKhdn28W1o0ZTYF0fAqCgyWvQ0lZAI9jZxTKULQZ5/V\n\
Rh8ENkmi4SaDXmGn0o0kTViWULCtt81Zme+L3tCvXnbgQCvETtT0yWk8Ii97\n\
tdyz7huaDjbSrNxr5aEwPuvZd770KhZjjzSXhK3Yu+gxEW1hxSTHlYaqditV\n\
DFhJ7meYLHklPERnDjaN09QMcGJNY6a1uKSnMGzNmDMRVu0JM/Uykp+J4jaH\n\
QnyAUnjg4UVpmcBUs9q9zAPJlCMeqDYwiH4rDn4DHGWGgxLf0RxZg4wEQYtx\n\
/1fkikaIrdmg4N1LhSSuSNCFe0NOKC5zTOXwbSCtXmIqnag8hs1MW46pI6SP\n\
IWi7lYuuD0PwaIMP2j8MwqN9f0TO9hUoOvs3NMadQktGJNqKk3DK1x/nh09G\n\
9FhX0u6VsS4EUC+PdETMaEfcmOmF7E3rkPbPL4lrehpdpcloLcpAx+lN+J/z\n\
69C9aS6aVvogMygAN9Z9wAFV2fBFdBX3Cole4x3GfTbpEfcbVK7NbwOrltJm\n\
HwZ6pI3XgKUDjPxMcT8R/a4nzVqMHcsV/n6GTMZLw6iliJd0NGpBa6/9T2O6\n\
Xg07+fjvqV4tkLRgQQraXSyvTnOEGFeu7xTFOyedQ39zU65x32G5sv5mh1Rf\n\
oNFUgPQloFFGj218/xfXYDoRF40A0ESypZjMdh9ZKo6UyORvg41WikPBbAZp\n\
ZVVG/t8WFvsb6VC+U44qTrNNaqcJ269kaf8/AUIztpQoNbZNTG5NysKapHXy\n\
LVI0sxAs4I4jtcE48PEwOVuz6CPw8YVc+oiaN3QhmwHfW2xmth7bh/ZV/mjZ\n\
EYyOf6xCzu73UHqemMJRJ9GcFIGO21dx3i8AqUPtcXOMmxXdHUU80eyRLrg5\n\
wgmFTtNQ/P5yXP96J3LjzqKlNBUdhYnounsN7bdT0HFyE/770HK8+GIRHm4P\n\
QXmgN1J9/VB8NAyttbUDmWQVR5KoHEW99Fc0Fvc3Ra2kttJfNwbyOUpRl+pH\n\
rdpeAQMFnFfhD9v3qw9EGm34lmGZpusDlq/mVgrr0DzAI67oqWTZ631R5gl+\n\
NaDs38t6tYDSiuWjDuTL0T7AyM+nYQexE8lvpbxRxF2kh2DwS6DpEJXCEZ1M\n\
ASal772JcRq4KcIOWZ24PUc7pKevjpZ7PfFbqqeYJ2roiMoNy+BA+e5FWJoV\n\
M73Yaq1oYi3WBRQwAp+egKz3kVG1Hud0kLTeLtDyJrhQaBUMTX7zsDNHQcEe\n\
k158S52Cgq8/sNuLQSeEU7k6EEDRqJ+5Iy+GQTikdyoGhX7MGAtniCmGVDPS\n\
YPYZgnJzUiLaAmehZpUPKrctROZny1EV9Q+0XDqJ9pgL6MxJQLRfIIoG2qPi\n\
bTcLlL3tqnsbZSNcUDbUCTUT3FG7eCHy93yOa0cP4vqhQ2jIjEf7retoy0pA\n\
V0Ea7t8hwPb1Mjz7cgEeffUOHr0fhI5Fs1Ho5YVkzzlIXfVHtFZX6wYwvvm+\n\
IK44GQxbsDMlAnibiwq/1qVUnXqhjptRJpdQxY03Qh08IKjgixFac4Y47xy9\n\
meI3Az59Xz3VJFJePRVPDSqHaIQlQkH+CknMqVaR2RP2mSP9FRdT+2lXbcM6\n\
UNx81MlsP77vmTDKmeFZKKM2bMoY1CjlE8CXU8WBl/eDsLyqaCkF1w0HJrfW\n\
zOOzWq0yT9ekuuthY1GS8fYl9Z4Ta/E0KHc9dGJ1DNN601ovtzEJEG3kzMra\n\
TPb6OHL20CpD/d5gtGDtKBI1PNTDZCBuBmYtKEV4GieQbQ8ytTtIL1FrFfH8\n\
sE5Pq738rK5Ikn4CyiTx/bSaMNi3zUx6crX2Ag0SzSnpxQOxNJ/hlmpzjiZh\n\
q6eNTSbHnrYgub3DOFQNc2GdWgniDhDy9wTReqkM0ByBXLqsI3SG40e/iY7B\n\
tD1arsahaYUXKld6oWCTP9I2B6Puyj48iDmHhynR6L6djATfIFTa2KN2hCtq\n\
3nRF9RBnNLztgjYfP5T9+U/IuXgcxWkJqElJwO0TJ9GQHofHZel4mHcdj4uy\n\
yGcWqt8LQMOKaahb4YOWBd7oeMcXLZ6eKPaYiTTP2UhethzFP/1EHOoaNh/1\n\
YWPmUXKlZsGUJtN5slpkgEmK8L4TFfFr3n9M467shKuwVitl1Z+MMmkdWClh\n\
cul4FKVYxgbOjLDZS3S7ZRdZOLpquK1HT7a1yptmp16NnTcO3KbB3MaQVrWU\n\
B4qhDAXuOD283wRDhbMo4jtvQY7RMvL1gNsz+WYB3cSuZPnwmbJ4xmGZtWUy\n\
AGIUs5YnqmjWqOMf6qCOmhVrI2NBNolkxoz3mA/Uh7mF9RZu+wmWglQ936tO\n\
26T5xc1q5hDfGJ/eMFKdvT2hITtvippT6uGnN7jS41FKU6dD9Ed5f5ODTOLK\n\
8asdZJIDrNwFI+laIV0rRqVhYFQ4C6MELBQrYJjKI6WP+TEefsJVTOOAZXSQ\n\
6Q3N0z9aZ8cMT9ToTxBNlPKIAQ/enyL0CkJQIJ//NujbHuviwGZ8mmlQX/jR\n\
7FzRoGJ1G1svwzStB0MWTTWtHMPr+WwTp0Ksgpt4nHu2nKFUzy1nvrtLlDCF\n\
fD4GjYPzgzSD86akpxVyobRQs5TjCP3NNcvvRFPDEY3f/jvKF89BxQfEbPjY\n\
Fzf+tAgNsT/gfmwEniRF42l+GmJ9glA6wF5SZBXDndAwZRaqP16DrEN7cCsm\n\
Em0FN9GZn4mGzOu4G3UJVdEX8aIkBU8Lr+GXiix03yGmxoa5aJ7rjOoZDqhz\n\
cUbT9KmodvRAqeNUlLt7IN9tOjJnzEbGu6tQcuoMjeErdytouWB8sdVC8rCs\n\
VHCnGBRWih5mZ565+ucAaYQ6otFBLRv92ehBki6nBSkGCHu19PdYMDdZ76Na\n\
KwdtBRwydv30wFWp7BoyTBOtIGuxAjEqwfubO5/yNmDjGAJbTxAEIkYHGM08\n\
l3yYt1Nwj6XbY2i5ISocFTcSULYMYN3IxDBm3UbVMQKW6kUmUK2PaVB0JyV5\n\
Mu8o1WUn1lq0Kgal1C5pq0E4Pi00ZSkKSJm6JmweYTu2EE/QZEEveB4boEQZ\n\
BrLoNmwOtMKFKKoLUAxGsJVKksIWcnNGBlcr4nFKY6Vs/v4Rni4bGfRdvzmH\n\
wycvl6QcrX2puyd6vpfCePGZXzhB8xGyTK/tmqvWWuXnM4o114l5aFiIFrM6\n\
3lSkzR15bh2IB5j4tifaPq1DvHuEpVkya9DEfSKqKgVyVddoiPFv8WoTdppd\n\
sp9IE5Rirao4DBre0iGYULINRt5FVFZuQ3k16rXsBx4M4MeThCZ1XGLiBSGm\n\
2OId0ZdrenjblH5+Jwotp+98Y0mr7kuxVoI2vFrz29gGqbax9a6z9bOer2ro\n\
RWOpsCUYDPKGNuIR1daidN5clHi5o2DJbGSFeiN5zUI0xfyArovn8DghGo9v\n\
peK8TwCSB0xEkcM0lK1aiuw9u5F+6hhKoiJRGX0Z1QmxaM5KRmtOCqqvxuJe\n\
VAQe5ybgaU4cXhTdQHdeBurX+OPhInfUudmj1sEOdU72aBpnj/Kxdihxn4IK\n\
x2modPBAleMUlMz0Qv77a1B58RKa75ZwfSTceqYIn6dRFcnVpDoOPVDlqisX\n\
TgmnZ1lYwWjdmtXH1oOtVWF+ZjzoREzldSvwJeOi3l9V6pcv0BKvIaPYQctT\n\
E8AgTX1sRwnkh65XupivzivXdhgwzTBVvFCRMy0RZaOHPUHAclRBwjD1aoAs\n\
eel+MQ5M9Oo3mVr58RCV5y3eXEbbpkyysL2YpoTezNCrWB7WZvBZrmeosjlR\n\
uU6T1MkDH2baMBeIMDzZoJhgpDnRKOmJBeE4gmGESLbXZCGbuF9NFZVRhiXJ\n\
Y9Y6sFKQ2eD8qKhtB5pJE2PXo3pZVisfh1Ku0qgqm6rRxjCNtHEa9Rle/kB/\n\
eQtiYP6XkZ9G9zxo8TZAVJN2qP/qC9Q5uCFv+hSkOrvjirMzEkMD0CipybPo\n\
IH5TY1I8TnrOQeIsT2R/sQWpR35Aaewl1F+Lwb0rF1F8Lhy3T51EfvgZVMZH\n\
oSI2ErdOnUBj3AW0J1zA45vX8CjnBsqW+qNzsSdqpriiaMYM5AQEIv+jjcjb\n\
uhU1sXGoTUiwIG/x1GJOiEP9lSjUxpD+v33LMKSmHAKU1JehHUqnyWBDhaef\n\
4sZp9mJmcccKr5nPDMXdMHBUBhrQZ2Bpq1tzMvVgvEYtWsE+FtzTZMWphxki\n\
XCdjboaI17W97hlieMURtUU8XmGGiAsVPL7jI8wac8e+B5meIfJps4mo/8f3\n\
uDdtCjLsXBEz3hHR4+0RYTsJMSF+qL78PZpOH0fJyRMoOXMKl0OXIXXvlyi5\n\
GoGugmt4Up+Dpw3ZeFCeIW08qE+ORknEaWQdDUN62GFkHjmEguNHiTFwGm3J\n\
sejIvoHCBYEo85uN3LlzUfTPA6gm3sdgPsIZ0OgB0kp1HRX5rvjW+s1ZPU8G\n\
EQPtlXmlM1w+l4ei2CAzSRQC+zoBelxIp/lHaswBdvGWPhbB9qD1eV7wTc7c\n\
4BdHlDjK+EgRN0Pz5be+zgz9Pi71tdfytQHad1dxC53o92lMUJWVw5Vv4kIk\n\
529kL6oj7PgwXnpze5GZ+TKMz5fiu6he+yFKxjngwihbRA21RdJbtrg4wRZH\n\
xk5AuK8nyi/uw60fD6Do6BGUnjiK8sjTaMpNROfdZHRWpOI+fZVcQ3tBAppS\n\
o9GcEYP2zEjURp9CHt3Q8/0+pJHyBWdOkCF6E48qypDj74lcr1koJNN/KCPT\n\
WJdbKYaZGQtFmC/qAaqst8lgw4IiBEY79UsmtE3eoUb7STWmDMUWyaLic9rc\n\
8JVu6SWTlcbnTGYeqYkjeqNdb9v10JqpI/M8+MJtHREtRgn5ejMnhMtZ5VIG\n\
c3E4a13rEldKG3UvF5sc/MbleLyAxrb9WB5zV3cO1uCHjfghvPPp312kpiF3\n\
336kEBsq194d16Z4ISF4MeJ95yNj1RpELwrGURc3XBo2Adl/+QwNyQQd7pXh\n\
eXMtXnQ04vmDFjx/0olfXnThxfMu/NLdghcPGvG0rQFPW+vwrJ28mqrwuKYC\n\
XffK0VxSioctzfjff/0L98KOINXFGal+fii/dMlF363GwUR5b65+CHMxzzM1\n\
FqbID+QZJNo8f+jL6HESpMgvQB1lMALoryca+VTS7of2pibE+wfh+uIlKPru\n\
W9QmJ6OpqpL+XQRT3ONQX1qKhPnBuDJ0DA7a2SHhkw9Rf+wA6k+GoSHyJNqu\n\
R6Aj/QraUiPRlhIl/QFA6/WzaLl0DA3hP6HhzCE0njyIhhNHyPejqAo7hEp6\n\
O+3mT3BmsiNibe1w1dsH5REXdf/SYFf6KwYvkW4yz9vbUUEGdkdrMwsFjUNF\n\
Zjay9v2A88uXYY/tWJyeMRn1871Qs2Y+2veuxrP9a/DrpW34NX4Xfo3YjF8S\n\
P8HzCx+ge9McdITOQss77mgOdEJ90DQ0zJuOkhnuyCQWfDyh75ytI85NoP/j\n\
4YbiY8dUdPINOSKdo6WPMYhasRz7x41BjvdUNPrOQdvGZXj+40Y8/XIlnn6/\n\
Bs//thq/hq3Drz+vxvO9y/BwexC65ruie90s3A/xQHWgJxrnTEOd73TcneqO\n\
PCc3xBPb6cTvHRA5xhbpa9cJ/1chuzJsLIxDc0MjjgUE4MTbY1A30wst7wbj\n\
0ZbleLrjPbz46yp0bQ7B412hePJREF78JRhPvluGzp0haJnvhqZZ9mj3Iuou\n\
0BuV7tNQM88PZZ4zUeLshqIpU5E82Rkxb01CwsLF0mDREzFbTURJYiLO2k5E\n\
rq0TGmcGoHvVMjzasBgPPghB658WozYkAA3Lg9AW4oknOxbi8RdL0b7CD60B\n\
09Hg7oAqRzuU+/uhZO/fURUVhbzdu5GxYiVuE2nedXNHylhHhA2fgJt79poi\n\
4k2UXo5C4mQ7VPqQBwsX4KGnPxpDl6Jowzrc+frfcffIYeRsWI+8QD/UB/vg\n\
4ao5uP9+ANpme6DRwxllzq6oPHuG33rRWluDsrNncYtOLA+im0bbIXyWD/0X\n\
FoEGL5GGfohbvRoZpPu6/PzRvTwYLZ/tRF1ykvRXLhZsbrZUVODGH99HDmGu\n\
KcQbD5YFoH2GB1odHXH7ncWoy85WdrHRqVtMhl7yHH/ETHJG9nd/NW5cVtw2\n\
qL99S5rnNa6ziGQXoy09DR2NjdbMqKHtpq9di4Jp09E0w5M4sVNQN2yi5EwS\n\
+rjPU020Q9bHmxDn7UtqzNO35im2ZoWcnZ8j02MmKvwXofFmbn9GRG1GhnSd\n\
ceWsaah2ckXZZBeUnTo1gJWiDGV/uh03v/qLNL+V2mfJtfP/NpL+yuadJcib\n\
uwA1t28PZPIoOnQYucSpbrJzQlXoe9J+Y25h1RBA6Wht1U9T6W2mWK8lSo4f\n\
R0ZIMOrulrKCVqRHc5HiE4B6W2eUvv+Bvuw8uexb3DIhqJW6Zi0qU1KU/16g\n\
aVlbP0UxQbDCzVuMyvJ2O5qbFXXPAbLqejLSZsym/z2iMypoxzLRXkte/A5S\n\
V682zmTPMmX+aROuL1thwPpcOZPud/8HKWwI5g=="], "Graphics", Evaluatable -> False, 
      ImageSize -> {616, 41}, ImageMargins -> {{0, 0}, {0, 0}}, 
      ImageRegion -> {{0, 1}, {0, 1}}]], "DockedCell", Background -> 
    GrayLevel[0.866682], CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> 
    RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, 
    CellFrameMargins -> 0], 
   Cell[
    BoxData[
     GridBox[{{
        Cell[
         GraphicsData[
         "CompressedBitmap", 
          "eJzVV0tIVFEYvs4dx9FkFtZCAh+LyhLMDDNNXJio+UILKqOVqOHbUtEEH5BR\n\
ahmC2MuQHhNFJpJIUFRChK4qNwWuWrSsdfjI/s5/zn/unHvnTpoMRBfunfP4\n\
H9/3/+f850xJRVtNdWNFW21lRXx+S8XZmtrK1vi85hY2pIdomjbP3th4DdvA\n\
mvSZh56eHja5/k8W/9HB6/XC7Owsvto5/hVjbJZLbDWLo+hSezS+TBy/Yux/\n\
E9f5NxJWZmoAHxzHZ/l+AW+vvD5v7gs5B3ac2NLchg7OYXvt+2f4uTgl9bis\n\
FgGrC3f4lDSDbXzWvr71M625TBbx/fXjG6rIaRWwAkAnVoq24CjAhv+RIP1q\n\
DlKTiFHTwb9ibKk3Bo0LN+y7fCsT6CG5UAOfZIjyWzaTG5d/bibKEYLw5BRd\n\
a/wiueTq3CAHh68pS/07DdKYKUbKgYMsSxhmjIl0im1uws6L05QlnmuBCR34\n\
SZuzYjcmGLsDYjcx13mX4GsCf7iBX8UuVQkNk2Wj6IzlkVzRmBJsxsCIwUxN\n\
RJC2FaHAFWEQ2kicXAYhjAs3ycAzdaeMxXAyX6vMMsafqXgC7RHeRjMoz+NF\n\
Y5vKlp1cqB1ZDLHE6+Z4/ZajL0e6ylqpAhaImH2qKWJvBydFGBSjINikSG58\n\
dE96tPEjjDG5uHABYt5k6aMFt5EcybXM65BdlQzzi49EzbyJZSCgelSo9hTt\n\
4Qp1p9W9bo2Cb2tR6ZSrNHiJQQhqEG33TpSMr6gdbJHZ1j1S5cUDNwIWaEZa\n\
nl6sv15+jLpCtZHL+GqGQ6lkan4kCUIhuEYHBB2Isx1w7kqteCy7NrtJdRPs\n\
3aSr4aIdkWCAlgTQu1wfvLpTVmyzphBSzhm+fLk+ydodV4H8oCwdEbhee2NY\n\
miU2tfxLvwYuSjO2KVS6Uu4s8Im+x49+IAoWug5+ZfCYFp9SP6w5DMqBFeq/\n\
6VgdUWs/lQy6+viOS/mYyoZLVB1WWWRBpEucTrcHyzVQnA2hKg15mTQOFlzx\n\
SsHhQXKSN3nx5BH27QKlZDtNu0m5TkpuFqAmVUnGvwYK16Yrn+j/5Y3vn/01\n\
iCfx8YIi6G9q4r3tmzNxLy8fBmtrTSY2+OcqjsQvtrfDo+wcGCsp1R6qU064\n\
0tAAk4eywJuTC30dHV7z7EBjIzxOTYfpjCwYqK/3kL2e7m7D1YjQiOE/Lj41\n\
erIchhjiuwl74d3+DBg/eiySNK8yg7dPnYberi5tVGjGkuaD3HzwVp+BqT1J\n\
8CElDV4UF8JwVWUEaV5jmpOHc2Gkqkq7rmqGwQSj9jEtHV4lJ8JcUip8Kj0C\n\
02VlcKGzk50YgslQfT08O5AJT7Ky0TlZ2EbGL7e2wmBTs+TAvm641NcHLwtL\n\
YDFqBzzdvQvepxyEL8VFsFBUDDfr6sIUw2/2ZcDzuEQYO37ihjCshfwGPGMf\nPw=="], 
         "Graphics", Evaluatable -> False, ImageSize -> {199, 30}, 
         ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], 
        ButtonBox[
         Cell[
          GraphicsData[
          "CompressedBitmap", 
           "eJylVb1uAjEMDuSAUqTr1J234A3aqQ9xQpVgqFpRZkZWNkZWRkZmRkZmVkZ2\n\
xtSfY0e+9MrSSLkY27E//4W3aj55/6jm03E1fJ1VX5Pp+Hv48jkjlm8550a0\n\
y6EDHYiUzygsFgsS1o42Hw9hs9mE6/UasHCu12tI+KTVYbUy7Ha7pIZ1uVys\n\
GtPL5ZJpmLzdbrgTvXgrol+0XBHO5zOr4irtyO7zTWHx3u/3CRTo1Wol4FMM\n\
WBBB5Xg8MlDQsE6rYLUnjkFVIdputwm7qCYvigLmCCi5AvSSZapnbUFPY89l\n\
hN4zhE44HA4J3el0EtMcjHusAUHG8gTX4ikZIwxqpmwM1gwcqh7xC8k//CtU\n\
YrcFIthaXS1Z7IJuKiMyqcBI3pIIvHUtcRU5rDYLe4zKZgvVkLS4qJObw3eA\n\
+qeIkQG9Z20obm0/U2lpP5/CB09jRxW18mhPyoO7F9xzY87zNrTIgF56ovEO\n\
PGri8BsoRSeyB7U2w7ZtbNsOg1JIYCioBixtczewwZ+BWW9IEcrVES8NerUu\n\
gGcZqMju/womz5vtPnWNHOqMUkf+v0AohmIDDT19T/I7pBc90Rd3ZBycrY5W\n\
AEOn49JUHW+qowMKm6STXgVvX4GUTfsqEB1no8uXbTZBk3EdJ9RLbsgY9FJj\n\
6kaXyMMRvelzjWRpIInt01MRX+KGPxo5XOsHSMiAwg=="], "Graphics", Evaluatable -> 
          False, ImageSize -> {55, 14}, ImageMargins -> {{0, 0}, {0, 0}}, 
          ImageRegion -> {{0, 1}, {0, 1}}], BaseStyle -> "Hyperlink", 
         ButtonData -> {
           URL["http://www.wolfram.com/upgrade"], None}, ButtonNote -> 
         "http://www.wolfram.com/upgrade"], 
        Cell[
         GraphicsData[
         "CompressedBitmap", 
          "eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwMAExnwIDiP0fyIQS\n\
jP9bWloY/8+ZPZuBgfF/V2cn4//VK1cOFnZ7ezvj/+XLlgFdyggAJaVbgQ==\n"], "Graphics", 
         Evaluatable -> False, ImageSize -> {2, 14}, 
         ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], 
        ButtonBox[
         Cell[
          GraphicsData[
          "CompressedBitmap", 
           "eJyVVj1vIjEQ9bIBRKKjyClFOn5NUvEjUBQpKU6JctSUtHSUtJSU1JSU1LSU\n\
9JTOPHued0x2SWJpWXvGOx/Pb8YMR+OX53+j8evTaPD4MXp/eX36P3h4+xBR\n\
WTjnhvL0Bw5zL1P9GfrJZCLK7NUKr9LP53OPgVWQlVi5O386nbC0G/x0Og3z\n\
xWKRybHGgN7KMYcdjPV67TrBzZXfbreeQ+aMBQOfYMWty+UybZV5S5XH4zGJ\n\
xTK9xeB7/nA4BBEfbFHLYT6bzVyRA8EcEhDuPllnvjZXmiJOVs78VqtVJocN\n\
yJgUwrgKvnrBFrISWXhgd7PZhO8Uc9dVUBQM2onhdlOocKHm6V5SgoFekFlk\n\
4AJuMd/tdn6/33+PTJlYUMn6GQtgktFbBJAVdOKG8lJNGnIlULCVx3seLfd2\n\
lBLWjdFH8+2MuwSlc6YDcMpfAQHGm0GIVCsDaJplxMVdJ5D5EWuCbz03Zg4T\n\
yErC0My7aRuzIWUS/PJLgKtDaEShpZlCDVcEsYq6zlysVDJczqxAZV1ixt+s\n\
Zs5xYG2wPCmHZzACMuiwjqSNfqDT2pAcILu5BFAWQwVqvwmcVMsYOAzwwcTX\n\
UpgotgAhXFJAgCoQ+29L5zYLzCZCOZIHORko25/dI+B0GsqGn3wtm95FTBRH\n\
V9ak09Zf08vYD6V2gLoTNrDrEV3Lip8wxXRXASvylMcANlBmbqrY6kgTUAlG\n\
2FYtNGcBpK7zHSQSmCMnTNCNPZaUZgMEpNpj1YJekikdFkidTNLUkm2nAmBj\n\
QfcutYNgv82ClxIquO4ilghrG1vF0z/Z5U40eDEiFl72X2PN7cWLzNX+M3HF\nJ/Rd8Mk="], 
          "Graphics", Evaluatable -> False, ImageSize -> {77, 14}, 
          ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], 
         BaseStyle -> "Hyperlink", ButtonData -> {
           URL["http://www.wolfram.com/company/terms.html"], None}, 
         ButtonNote -> "http://www.wolfram.com/company/terms.html"]}}, 
      ColumnsEqual -> False, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], 
    "DockedCell", Background -> GrayLevel[0.494118], 
    CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> 
    RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, 
    CellFrameMargins -> {{0, 0}, {0, -1}}]}, {}],
ShowSelection->True,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)",
StyleDefinitions->FrontEnd`FileName[{"Creative"}, "NaturalColor.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 10018, 141, 290, "Text"],
Cell[10589, 164, 8277, 114, 71, "Input"],
Cell[18869, 280, 8285, 112, 34, "Text"],
Cell[27157, 394, 8510, 121, 86, "Input"],
Cell[35670, 517, 224, 3, 34, "Text"],
Cell[35897, 522, 8502, 119, 66, "Input"],
Cell[44402, 643, 8353, 116, 34, "Text"],
Cell[52758, 761, 8592, 123, 82, "Input"],
Cell[61353, 886, 8319, 112, 34, "Text"],
Cell[69675, 1000, 8688, 124, 71, "Input"],
Cell[78366, 1126, 8515, 119, 76, "Text"],
Cell[86884, 1247, 8594, 122, 90, "Input"],
Cell[95481, 1371, 8497, 117, 55, "Text"],
Cell[103981, 1490, 10923, 166, 93, "Input"],
Cell[114907, 1658, 9285, 130, 57, "Text"],
Cell[CellGroupData[{
Cell[124217, 1792, 16277, 268, 438, "Input"],
Cell[140497, 2062, 67146, 1394, 854, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[207680, 3461, 152, 2, 33, "Subsubsection"],
Cell[207835, 3465, 389, 7, 55, "Text"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
(* NotebookSignature Fu0E0J5Zc7L0CA13XVX5nYn1 *)