gaussian_beamwaist_second_lens_wz_depent100.nb

(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 11.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    130315,       2440]
NotebookOptionsPosition[    127582,       2375]
NotebookOutlinePosition[    128093,       2395]
CellTagsIndexPosition[    128050,       2392]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"\"\<now with a0-depending focusing lens of target\>\"", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", "$MaxExtraPrecision", "\
\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"w0", " ", "=", " ", "0.012"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lambdaL", " ", "=", " ", "0.0008"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q", " ", "=", " ", 
   RowBox[{
    SuperscriptBox["w0", "2"], "*", 
    RowBox[{"\[Pi]", "/", 
     RowBox[{"(", "lambdaL", ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"D0", " ", "=", " ", "0.00005"}], "\[IndentingNewLine]", 
 RowBox[{"R", " ", "=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", "*", 
      RowBox[{"(", 
       RowBox[{"D0", "^", "2"}], ")"}]}], "+", 
     RowBox[{"(", 
      RowBox[{"0.012", "^", "2"}], ")"}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{"8", "*", "D0"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"1", "/", 
   RowBox[{"(", 
    RowBox[{"8", "*", "D0"}], ")"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"4", "*", 
    RowBox[{"D0", "^", "2"}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"zr", " ", "=", "  ", 
   RowBox[{"\[Pi]", "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"w0", "^", "2"}], ")"}], "/", "lambdaL"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wz", " ", "=", "  ", 
   RowBox[{"w0", "*", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"u", "/", "zr"}], ")"}], "2"]}], ")"}], "0.5"]}]}], 
  ";"}], "\[IndentingNewLine]", "\"\<wz^2/8*Dz\>\"", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"N", "[", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"8", "*", "D0"}], ")"}]}], ",", " ", 
    RowBox[{"u", "=", 
     RowBox[{"-", "2"}]}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{"u", ",", " ", "wz"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wz", " ", "=", "  ", 
   RowBox[{"w0", "*", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"u", "/", "zr"}], ")"}], "2"]}], ")"}], "0.5"]}]}], 
  ";"}], "\[IndentingNewLine]", "\"\<maximum denting Dstart in focus:\>\"", "\
\[IndentingNewLine]", 
 RowBox[{"Dstart", " ", "=", " ", "0.00005"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D100", "=", 
   RowBox[{"Dstart", "*", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["w0", "2"], "/", 
       SuperscriptBox["wz", "2"]}], ")"}], "0.5"]}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"R100", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", "*", 
       RowBox[{"(", 
        RowBox[{"D100", "^", "2"}], ")"}]}], "+", 
      RowBox[{"(", 
       RowBox[{"wz", "^", "2"}], ")"}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"8", "*", "D100"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", "\"\<focal length inwards\>\"", "\
\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f1", "=", " ", 
   RowBox[{"R100", "/", "2"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", "\"\<focal length \
outwards\>\"", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fout", "=", " ", 
   RowBox[{
    RowBox[{"-", "R100"}], "/", "2"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AA", "=", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        SuperscriptBox["q", "2"], ")"}], "/", "f1"}], ")"}], " ", "-", " ", 
     RowBox[{"u", "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"u", "/", "f1"}]}], ")"}]}]}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BB", "=", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["q", "2"], "/", 
       SuperscriptBox["f1", "2"]}], ")"}], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"u", "/", "f1"}]}], ")"}], "2"]}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A", "=", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        SuperscriptBox["q", "2"], ")"}], "/", "fout"}], ")"}], " ", "-", " ", 
     RowBox[{"u", "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"u", "/", "fout"}]}], ")"}]}]}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B", " ", "=", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["q", "2"], "/", 
       SuperscriptBox["fout", "2"]}], ")"}], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"u", "/", "fout"}]}], ")"}], "2"]}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vin", "=", " ", 
   RowBox[{"AA", "/", "BB"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"vpositive", "=", " ", 
    RowBox[{"A", "/", "B"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", "f1", "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"u", ",", " ", 
      RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", " ", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<R_P\>\"", ",", " ", "\"\<w(z)\>\""}], "}"}]}]}], "]"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", "\"\<new focal position \
at\>\"", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"vin", ",", " ", "vpositive"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"u", ",", " ", 
      RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", " ", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<focal position inward denting\>\"", ",", " ", 
       "\"\<focal position for outward denting\>\""}], "}"}]}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"wnew", " ", "=", 
    RowBox[{"w0", "*", " ", 
     SqrtBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"vin", "/", "f1"}]}], ")"}], "2"], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "/", 
           SuperscriptBox["q", "2"]}], ")"}], "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"u", "+", 
            RowBox[{"vin", "*", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"(", 
                RowBox[{"u", "/", "f1"}], ")"}]}], ")"}]}]}], ")"}], "2"]}]}],
        ")"}]]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"woutward", " ", "=", 
   RowBox[{"\[Sqrt]", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["w0", "2"], "*", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"vpositive", "/", "fout"}]}], ")"}], "2"], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "/", 
           SuperscriptBox["q", "2"]}], ")"}], "*", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"u", "+", 
            RowBox[{"vpositive", "*", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"(", 
                RowBox[{"u", "/", "fout"}], ")"}]}], ")"}]}]}], ")"}], 
          "2"]}]}], ")"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", "\"\<new beamwaist w0'\>\"", "\
\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"wnew", ",", " ", "woutward"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"u", ",", " ", 
     RowBox[{"-", "2"}], ",", " ", "2"}], "}"}], ",", " ", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<w0 new inwards \>\"", ",", " ", "\"\<w0 new outwards\>\""}],
      "}"}]}], ",", " ", 
   RowBox[{"PlotRange", "->", "All"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{
  "vin", ",", " ", "R100", ",", " ", "wnew", ",", " ", "woutward", ",", " ", 
   "AA", ",", " ", "BB", ",", " ", "A", ",", " ", "B", ",", " ", "f1", ",", 
   " ", "fout", ",", " ", "zr", ",", " ", "q", ",", "  ", "D100", ",", " ", 
   "vpositive", ",", "wz", ",", " ", "u", ",", " ", "Dstart"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.794314875410557*^9, 3.794314943370333*^9}, {
   3.7943149821542397`*^9, 3.7943150294124484`*^9}, {3.794315104605982*^9, 
   3.794315105007962*^9}, {3.7943151963252907`*^9, 3.7943151974898167`*^9}, {
   3.7943152641208725`*^9, 3.7943152705120645`*^9}, {3.7943155648997865`*^9, 
   3.7943155670783978`*^9}, {3.7943156657568693`*^9, 3.794315667418025*^9}, {
   3.79431572857049*^9, 3.7943157639360247`*^9}, {3.794315816326953*^9, 
   3.794315850456994*^9}, {3.7943159097165976`*^9, 3.794315911719454*^9}, {
   3.79456845543289*^9, 3.794568473081211*^9}, {3.7945685631768*^9, 
   3.7945685642118163`*^9}, {3.7946345903526363`*^9, 
   3.7946346049881926`*^9}, {3.7946346396745405`*^9, 
   3.7946346417148485`*^9}, {3.794634698520875*^9, 3.794634698940757*^9}, 
   3.7946347496118183`*^9, {3.794634830427973*^9, 3.7946349451495647`*^9}, {
   3.7946383649296074`*^9, 3.7946383672081594`*^9}, {3.7946384024580708`*^9, 
   3.794638431110917*^9}, {3.7946384962522106`*^9, 3.794638505981099*^9}, {
   3.7946410360112934`*^9, 3.7946413307191305`*^9}, {3.794641399895091*^9, 
   3.7946414657473125`*^9}, {3.7946415004587183`*^9, 3.794641500527658*^9}, {
   3.7946417392054167`*^9, 3.794641743405181*^9}, {3.7946418148662376`*^9, 
   3.794641834264062*^9}, {3.794641896573287*^9, 3.794641939475767*^9}, {
   3.7946423227989025`*^9, 3.7946423261108227`*^9}, {3.7947247085234604`*^9, 
   3.7947247203076553`*^9}, {3.794726275053335*^9, 3.794726426512578*^9}, {
   3.7947264889820504`*^9, 3.7947264891418724`*^9}, {3.794730909820056*^9, 
   3.7947309099270077`*^9}, {3.7947329342027817`*^9, 
   3.7947329500967813`*^9}, {3.794733154886886*^9, 3.7947331657066536`*^9}, {
   3.7947332381834517`*^9, 3.7947332498499203`*^9}, {3.7947364488041253`*^9, 
   3.7947364546821203`*^9}, {3.794807202332262*^9, 3.794807256969123*^9}, {
   3.794807287417116*^9, 3.7948072917819333`*^9}, {3.7952425400951138`*^9, 
   3.795242540465025*^9}, {3.7952425749698663`*^9, 3.7952425794332757`*^9}, {
   3.7952436984554286`*^9, 3.795243698848116*^9}, 3.7952441454224935`*^9, {
   3.7952442796003923`*^9, 3.7952443081141925`*^9}, {3.7952443836440444`*^9, 
   3.7952443843272347`*^9}, {3.7952444785888405`*^9, 3.795244503457402*^9}, {
   3.7952448243135*^9, 3.7952449567958193`*^9}, {3.7952465662620053`*^9, 
   3.7952465687029686`*^9}, {3.7952466156289415`*^9, 3.795246618406769*^9}, {
   3.795246665211236*^9, 3.7952466720526237`*^9}, {3.795249290657151*^9, 
   3.7952493256719313`*^9}, {3.795249532788207*^9, 3.7952495447476788`*^9}, {
   3.795249713021587*^9, 3.7952497738810577`*^9}, 
   3.795250092325485*^9},ExpressionUUID->"8eb55666-f6ae-4817-b1dc-\
97623cb3b7f6"],

Cell[BoxData["\<\"now with a0-depending focusing lens of target\"\>"], \
"Output",
 CellChangeTimes->{
  3.794314945800291*^9, {3.7943150310646667`*^9, 3.794315048506762*^9}, 
   3.7943151072098074`*^9, 3.794315153286956*^9, 3.7943152075483303`*^9, 
   3.7943152385253363`*^9, 3.794315275370985*^9, {3.7943155721302013`*^9, 
   3.7943155761584516`*^9}, 3.794315668786056*^9, {3.7943157526510787`*^9, 
   3.7943157701853943`*^9}, {3.794315824457923*^9, 3.7943158628430786`*^9}, {
   3.794315916259015*^9, 3.7943159228369756`*^9}, 3.7945684773567142`*^9, 
   3.7945689948613462`*^9, {3.7946346127647614`*^9, 3.794634663809724*^9}, 
   3.7946347063193965`*^9, {3.7946347526574287`*^9, 3.7946347820448813`*^9}, {
   3.794634895506701*^9, 3.7946349150137067`*^9}, 3.794634946553169*^9, 
   3.7946383703881855`*^9, {3.794638406513837*^9, 3.794638433036111*^9}, 
   3.794638516239507*^9, {3.794641270207844*^9, 3.7946413318098054`*^9}, {
   3.7946414783608007`*^9, 3.7946415054439983`*^9}, {3.7946417486042614`*^9, 
   3.794641763332284*^9}, {3.7946418657845855`*^9, 3.794641886680495*^9}, 
   3.79464194338577*^9, 3.7946423317964315`*^9, 3.794724727263647*^9, 
   3.79472632915077*^9, {3.7947264047106733`*^9, 3.794726427639537*^9}, 
   3.794726490201174*^9, 3.794730912925059*^9, 3.7947329522013664`*^9, {
   3.794733156492443*^9, 3.7947331676599183`*^9}, {3.7947332394921923`*^9, 
   3.79473327410503*^9}, 3.7948071617754903`*^9, 3.794807258345866*^9, 
   3.7948072931551332`*^9, 3.795242367411996*^9, 3.7952424583155403`*^9, 
   3.7952425424929047`*^9, 3.795242583699671*^9, 3.7952437027533703`*^9, 
   3.795244147365472*^9, {3.7952442871992188`*^9, 3.7952443120813293`*^9}, {
   3.795244387945779*^9, 3.7952444028510475`*^9}, {3.7952444796953225`*^9, 
   3.79524450561207*^9}, 3.7952448497200675`*^9, {3.795244890200576*^9, 
   3.795244915584087*^9}, 3.795244957964657*^9, 3.795246570176077*^9, 
   3.7952466194782915`*^9, 3.795246676978777*^9, {3.795249293874092*^9, 
   3.795249330772705*^9}, 3.795249548533166*^9, {3.795249731748011*^9, 
   3.79524975746432*^9}, 
   3.795250097669506*^9},ExpressionUUID->"072b0ff0-f759-46ae-93db-\
f29944b57a68"],

Cell[BoxData["50.`"], "Output",
 CellChangeTimes->{
  3.794314945800291*^9, {3.7943150310646667`*^9, 3.794315048506762*^9}, 
   3.7943151072098074`*^9, 3.794315153286956*^9, 3.7943152075483303`*^9, 
   3.7943152385253363`*^9, 3.794315275370985*^9, {3.7943155721302013`*^9, 
   3.7943155761584516`*^9}, 3.794315668786056*^9, {3.7943157526510787`*^9, 
   3.7943157701853943`*^9}, {3.794315824457923*^9, 3.7943158628430786`*^9}, {
   3.794315916259015*^9, 3.7943159228369756`*^9}, 3.7945684773567142`*^9, 
   3.7945689948613462`*^9, {3.7946346127647614`*^9, 3.794634663809724*^9}, 
   3.7946347063193965`*^9, {3.7946347526574287`*^9, 3.7946347820448813`*^9}, {
   3.794634895506701*^9, 3.7946349150137067`*^9}, 3.794634946553169*^9, 
   3.7946383703881855`*^9, {3.794638406513837*^9, 3.794638433036111*^9}, 
   3.794638516239507*^9, {3.794641270207844*^9, 3.7946413318098054`*^9}, {
   3.7946414783608007`*^9, 3.7946415054439983`*^9}, {3.7946417486042614`*^9, 
   3.794641763332284*^9}, {3.7946418657845855`*^9, 3.794641886680495*^9}, 
   3.79464194338577*^9, 3.7946423317964315`*^9, 3.794724727263647*^9, 
   3.79472632915077*^9, {3.7947264047106733`*^9, 3.794726427639537*^9}, 
   3.794726490201174*^9, 3.794730912925059*^9, 3.7947329522013664`*^9, {
   3.794733156492443*^9, 3.7947331676599183`*^9}, {3.7947332394921923`*^9, 
   3.79473327410503*^9}, 3.7948071617754903`*^9, 3.794807258345866*^9, 
   3.7948072931551332`*^9, 3.795242367411996*^9, 3.7952424583155403`*^9, 
   3.7952425424929047`*^9, 3.795242583699671*^9, 3.7952437027533703`*^9, 
   3.795244147365472*^9, {3.7952442871992188`*^9, 3.7952443120813293`*^9}, {
   3.795244387945779*^9, 3.7952444028510475`*^9}, {3.7952444796953225`*^9, 
   3.79524450561207*^9}, 3.7952448497200675`*^9, {3.795244890200576*^9, 
   3.795244915584087*^9}, 3.795244957964657*^9, 3.795246570176077*^9, 
   3.7952466194782915`*^9, 3.795246676978777*^9, {3.795249293874092*^9, 
   3.795249330772705*^9}, 3.795249548533166*^9, {3.795249731748011*^9, 
   3.79524975746432*^9}, 
   3.795250097669506*^9},ExpressionUUID->"a82ace7e-07d1-4687-821c-\
4b7486a59166"],

Cell[BoxData["0.00005`"], "Output",
 CellChangeTimes->{
  3.794314945800291*^9, {3.7943150310646667`*^9, 3.794315048506762*^9}, 
   3.7943151072098074`*^9, 3.794315153286956*^9, 3.7943152075483303`*^9, 
   3.7943152385253363`*^9, 3.794315275370985*^9, {3.7943155721302013`*^9, 
   3.7943155761584516`*^9}, 3.794315668786056*^9, {3.7943157526510787`*^9, 
   3.7943157701853943`*^9}, {3.794315824457923*^9, 3.7943158628430786`*^9}, {
   3.794315916259015*^9, 3.7943159228369756`*^9}, 3.7945684773567142`*^9, 
   3.7945689948613462`*^9, {3.7946346127647614`*^9, 3.794634663809724*^9}, 
   3.7946347063193965`*^9, {3.7946347526574287`*^9, 3.7946347820448813`*^9}, {
   3.794634895506701*^9, 3.7946349150137067`*^9}, 3.794634946553169*^9, 
   3.7946383703881855`*^9, {3.794638406513837*^9, 3.794638433036111*^9}, 
   3.794638516239507*^9, {3.794641270207844*^9, 3.7946413318098054`*^9}, {
   3.7946414783608007`*^9, 3.7946415054439983`*^9}, {3.7946417486042614`*^9, 
   3.794641763332284*^9}, {3.7946418657845855`*^9, 3.794641886680495*^9}, 
   3.79464194338577*^9, 3.7946423317964315`*^9, 3.794724727263647*^9, 
   3.79472632915077*^9, {3.7947264047106733`*^9, 3.794726427639537*^9}, 
   3.794726490201174*^9, 3.794730912925059*^9, 3.7947329522013664`*^9, {
   3.794733156492443*^9, 3.7947331676599183`*^9}, {3.7947332394921923`*^9, 
   3.79473327410503*^9}, 3.7948071617754903`*^9, 3.794807258345866*^9, 
   3.7948072931551332`*^9, 3.795242367411996*^9, 3.7952424583155403`*^9, 
   3.7952425424929047`*^9, 3.795242583699671*^9, 3.7952437027533703`*^9, 
   3.795244147365472*^9, {3.7952442871992188`*^9, 3.7952443120813293`*^9}, {
   3.795244387945779*^9, 3.7952444028510475`*^9}, {3.7952444796953225`*^9, 
   3.79524450561207*^9}, 3.7952448497200675`*^9, {3.795244890200576*^9, 
   3.795244915584087*^9}, 3.795244957964657*^9, 3.795246570176077*^9, 
   3.7952466194782915`*^9, 3.795246676978777*^9, {3.795249293874092*^9, 
   3.795249330772705*^9}, 3.795249548533166*^9, {3.795249731748011*^9, 
   3.79524975746432*^9}, 
   3.795250097669506*^9},ExpressionUUID->"bb8e1c6c-a9db-406f-aa8f-\
3460b5fee50d"],

Cell[BoxData["0.360025`"], "Output",
 CellChangeTimes->{
  3.794314945800291*^9, {3.7943150310646667`*^9, 3.794315048506762*^9}, 
   3.7943151072098074`*^9, 3.794315153286956*^9, 3.7943152075483303`*^9, 
   3.7943152385253363`*^9, 3.794315275370985*^9, {3.7943155721302013`*^9, 
   3.7943155761584516`*^9}, 3.794315668786056*^9, {3.7943157526510787`*^9, 
   3.7943157701853943`*^9}, {3.794315824457923*^9, 3.7943158628430786`*^9}, {
   3.794315916259015*^9, 3.7943159228369756`*^9}, 3.7945684773567142`*^9, 
   3.7945689948613462`*^9, {3.7946346127647614`*^9, 3.794634663809724*^9}, 
   3.7946347063193965`*^9, {3.7946347526574287`*^9, 3.7946347820448813`*^9}, {
   3.794634895506701*^9, 3.7946349150137067`*^9}, 3.794634946553169*^9, 
   3.7946383703881855`*^9, {3.794638406513837*^9, 3.794638433036111*^9}, 
   3.794638516239507*^9, {3.794641270207844*^9, 3.7946413318098054`*^9}, {
   3.7946414783608007`*^9, 3.7946415054439983`*^9}, {3.7946417486042614`*^9, 
   3.794641763332284*^9}, {3.7946418657845855`*^9, 3.794641886680495*^9}, 
   3.79464194338577*^9, 3.7946423317964315`*^9, 3.794724727263647*^9, 
   3.79472632915077*^9, {3.7947264047106733`*^9, 3.794726427639537*^9}, 
   3.794726490201174*^9, 3.794730912925059*^9, 3.7947329522013664`*^9, {
   3.794733156492443*^9, 3.7947331676599183`*^9}, {3.7947332394921923`*^9, 
   3.79473327410503*^9}, 3.7948071617754903`*^9, 3.794807258345866*^9, 
   3.7948072931551332`*^9, 3.795242367411996*^9, 3.7952424583155403`*^9, 
   3.7952425424929047`*^9, 3.795242583699671*^9, 3.7952437027533703`*^9, 
   3.795244147365472*^9, {3.7952442871992188`*^9, 3.7952443120813293`*^9}, {
   3.795244387945779*^9, 3.7952444028510475`*^9}, {3.7952444796953225`*^9, 
   3.79524450561207*^9}, 3.7952448497200675`*^9, {3.795244890200576*^9, 
   3.795244915584087*^9}, 3.795244957964657*^9, 3.795246570176077*^9, 
   3.7952466194782915`*^9, 3.795246676978777*^9, {3.795249293874092*^9, 
   3.795249330772705*^9}, 3.795249548533166*^9, {3.795249731748011*^9, 
   3.79524975746432*^9}, 
   3.795250097669506*^9},ExpressionUUID->"420b34aa-2cf6-4959-ac46-\
a9c43ce84cc0"],

Cell[CellGroupData[{

Cell[BoxData["2500.`"], "Print",
 CellChangeTimes->{
  3.7952448497231293`*^9, {3.7952448902036734`*^9, 3.7952449155930796`*^9}, 
   3.7952449579688015`*^9, 3.795246570176077*^9, 3.7952466194782915`*^9, 
   3.7952466769808216`*^9, {3.795249293874092*^9, 3.7952493307806835`*^9}, 
   3.7952495485392447`*^9, {3.795249731748011*^9, 3.79524975746432*^9}, 
   3.795250097669506*^9},ExpressionUUID->"c3100b44-5953-40e3-bd1c-\
6f81b0a05e41"],

Cell[BoxData["1.`*^-8"], "Print",
 CellChangeTimes->{
  3.7952448497231293`*^9, {3.7952448902036734`*^9, 3.7952449155930796`*^9}, 
   3.7952449579688015`*^9, 3.795246570176077*^9, 3.7952466194782915`*^9, 
   3.7952466769808216`*^9, {3.795249293874092*^9, 3.7952493307806835`*^9}, 
   3.7952495485392447`*^9, {3.795249731748011*^9, 3.79524975746432*^9}, 
   3.795250097669506*^9},ExpressionUUID->"b665b34f-dc84-4e97-ac32-\
1744bdc4a5e2"]
}, Open  ]],

Cell[BoxData["\<\"wz^2/8*Dz\"\>"], "Output",
 CellChangeTimes->{
  3.794314945800291*^9, {3.7943150310646667`*^9, 3.794315048506762*^9}, 
   3.7943151072098074`*^9, 3.794315153286956*^9, 3.7943152075483303`*^9, 
   3.7943152385253363`*^9, 3.794315275370985*^9, {3.7943155721302013`*^9, 
   3.7943155761584516`*^9}, 3.794315668786056*^9, {3.7943157526510787`*^9, 
   3.7943157701853943`*^9}, {3.794315824457923*^9, 3.7943158628430786`*^9}, {
   3.794315916259015*^9, 3.7943159228369756`*^9}, 3.7945684773567142`*^9, 
   3.7945689948613462`*^9, {3.7946346127647614`*^9, 3.794634663809724*^9}, 
   3.7946347063193965`*^9, {3.7946347526574287`*^9, 3.7946347820448813`*^9}, {
   3.794634895506701*^9, 3.7946349150137067`*^9}, 3.794634946553169*^9, 
   3.7946383703881855`*^9, {3.794638406513837*^9, 3.794638433036111*^9}, 
   3.794638516239507*^9, {3.794641270207844*^9, 3.7946413318098054`*^9}, {
   3.7946414783608007`*^9, 3.7946415054439983`*^9}, {3.7946417486042614`*^9, 
   3.794641763332284*^9}, {3.7946418657845855`*^9, 3.794641886680495*^9}, 
   3.79464194338577*^9, 3.7946423317964315`*^9, 3.794724727263647*^9, 
   3.79472632915077*^9, {3.7947264047106733`*^9, 3.794726427639537*^9}, 
   3.794726490201174*^9, 3.794730912925059*^9, 3.7947329522013664`*^9, {
   3.794733156492443*^9, 3.7947331676599183`*^9}, {3.7947332394921923`*^9, 
   3.79473327410503*^9}, 3.7948071617754903`*^9, 3.794807258345866*^9, 
   3.7948072931551332`*^9, 3.795242367411996*^9, 3.7952424583155403`*^9, 
   3.7952425424929047`*^9, 3.795242583699671*^9, 3.7952437027533703`*^9, 
   3.795244147365472*^9, {3.7952442871992188`*^9, 3.7952443120813293`*^9}, {
   3.795244387945779*^9, 3.7952444028510475`*^9}, {3.7952444796953225`*^9, 
   3.79524450561207*^9}, 3.7952448497200675`*^9, {3.795244890200576*^9, 
   3.795244915584087*^9}, 3.795244957964657*^9, 3.795246570176077*^9, 
   3.7952466194782915`*^9, 3.795246676978777*^9, {3.795249293874092*^9, 
   3.795249330772705*^9}, 3.795249548533166*^9, {3.795249731748011*^9, 
   3.79524975746432*^9}, 
   3.795250097685131*^9},ExpressionUUID->"2cae66ba-fd3e-4b46-81cc-\
1e763a0cc265"],

Cell[BoxData[
 TemplateBox[{
  "N","precsm",
   "\"Requested precision \\!\\(\\*RowBox[{\\\"-\\\", \\\"2\\\"}]\\) is \
smaller than $MinPrecision. Using $MinPrecision instead.\"",2,577,14,
   21477121931308064283,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.7952448902036734`*^9, 3.7952449155960765`*^9}, 
   3.7952449579688015`*^9, 3.795246570191698*^9, 3.7952466194782915`*^9, 
   3.7952466769808216`*^9, {3.795249293874092*^9, 3.795249330783736*^9}, 
   3.7952495485392447`*^9, {3.795249731763635*^9, 3.7952497574799843`*^9}, 
   3.795250097685131*^9},ExpressionUUID->"1a0ae20e-df87-4fc5-81f4-\
e6e7cce18708"],

Cell[BoxData["2500.`"], "Output",
 CellChangeTimes->{
  3.794314945800291*^9, {3.7943150310646667`*^9, 3.794315048506762*^9}, 
   3.7943151072098074`*^9, 3.794315153286956*^9, 3.7943152075483303`*^9, 
   3.7943152385253363`*^9, 3.794315275370985*^9, {3.7943155721302013`*^9, 
   3.7943155761584516`*^9}, 3.794315668786056*^9, {3.7943157526510787`*^9, 
   3.7943157701853943`*^9}, {3.794315824457923*^9, 3.7943158628430786`*^9}, {
   3.794315916259015*^9, 3.7943159228369756`*^9}, 3.7945684773567142`*^9, 
   3.7945689948613462`*^9, {3.7946346127647614`*^9, 3.794634663809724*^9}, 
   3.7946347063193965`*^9, {3.7946347526574287`*^9, 3.7946347820448813`*^9}, {
   3.794634895506701*^9, 3.7946349150137067`*^9}, 3.794634946553169*^9, 
   3.7946383703881855`*^9, {3.794638406513837*^9, 3.794638433036111*^9}, 
   3.794638516239507*^9, {3.794641270207844*^9, 3.7946413318098054`*^9}, {
   3.7946414783608007`*^9, 3.7946415054439983`*^9}, {3.7946417486042614`*^9, 
   3.794641763332284*^9}, {3.7946418657845855`*^9, 3.794641886680495*^9}, 
   3.79464194338577*^9, 3.7946423317964315`*^9, 3.794724727263647*^9, 
   3.79472632915077*^9, {3.7947264047106733`*^9, 3.794726427639537*^9}, 
   3.794726490201174*^9, 3.794730912925059*^9, 3.7947329522013664`*^9, {
   3.794733156492443*^9, 3.7947331676599183`*^9}, {3.7947332394921923`*^9, 
   3.79473327410503*^9}, 3.7948071617754903`*^9, 3.794807258345866*^9, 
   3.7948072931551332`*^9, 3.795242367411996*^9, 3.7952424583155403`*^9, 
   3.7952425424929047`*^9, 3.795242583699671*^9, 3.7952437027533703`*^9, 
   3.795244147365472*^9, {3.7952442871992188`*^9, 3.7952443120813293`*^9}, {
   3.795244387945779*^9, 3.7952444028510475`*^9}, {3.7952444796953225`*^9, 
   3.79524450561207*^9}, 3.7952448497200675`*^9, {3.795244890200576*^9, 
   3.795244915584087*^9}, 3.795244957964657*^9, 3.795246570176077*^9, 
   3.7952466194782915`*^9, 3.795246676978777*^9, {3.795249293874092*^9, 
   3.795249330772705*^9}, 3.795249548533166*^9, {3.795249731748011*^9, 
   3.79524975746432*^9}, 
   3.79525009773203*^9},ExpressionUUID->"e76ed453-7930-4ce7-b2a1-\
6432dc06fe6c"],

Cell[BoxData["\<\"maximum denting Dstart in focus:\"\>"], "Output",
 CellChangeTimes->{
  3.794314945800291*^9, {3.7943150310646667`*^9, 3.794315048506762*^9}, 
   3.7943151072098074`*^9, 3.794315153286956*^9, 3.7943152075483303`*^9, 
   3.7943152385253363`*^9, 3.794315275370985*^9, {3.7943155721302013`*^9, 
   3.7943155761584516`*^9}, 3.794315668786056*^9, {3.7943157526510787`*^9, 
   3.7943157701853943`*^9}, {3.794315824457923*^9, 3.7943158628430786`*^9}, {
   3.794315916259015*^9, 3.7943159228369756`*^9}, 3.7945684773567142`*^9, 
   3.7945689948613462`*^9, {3.7946346127647614`*^9, 3.794634663809724*^9}, 
   3.7946347063193965`*^9, {3.7946347526574287`*^9, 3.7946347820448813`*^9}, {
   3.794634895506701*^9, 3.7946349150137067`*^9}, 3.794634946553169*^9, 
   3.7946383703881855`*^9, {3.794638406513837*^9, 3.794638433036111*^9}, 
   3.794638516239507*^9, {3.794641270207844*^9, 3.7946413318098054`*^9}, {
   3.7946414783608007`*^9, 3.7946415054439983`*^9}, {3.7946417486042614`*^9, 
   3.794641763332284*^9}, {3.7946418657845855`*^9, 3.794641886680495*^9}, 
   3.79464194338577*^9, 3.7946423317964315`*^9, 3.794724727263647*^9, 
   3.79472632915077*^9, {3.7947264047106733`*^9, 3.794726427639537*^9}, 
   3.794726490201174*^9, 3.794730912925059*^9, 3.7947329522013664`*^9, {
   3.794733156492443*^9, 3.7947331676599183`*^9}, {3.7947332394921923`*^9, 
   3.79473327410503*^9}, 3.7948071617754903`*^9, 3.794807258345866*^9, 
   3.7948072931551332`*^9, 3.795242367411996*^9, 3.7952424583155403`*^9, 
   3.7952425424929047`*^9, 3.795242583699671*^9, 3.7952437027533703`*^9, 
   3.795244147365472*^9, {3.7952442871992188`*^9, 3.7952443120813293`*^9}, {
   3.795244387945779*^9, 3.7952444028510475`*^9}, {3.7952444796953225`*^9, 
   3.79524450561207*^9}, 3.7952448497200675`*^9, {3.795244890200576*^9, 
   3.795244915584087*^9}, 3.795244957964657*^9, 3.795246570176077*^9, 
   3.7952466194782915`*^9, 3.795246676978777*^9, {3.795249293874092*^9, 
   3.795249330772705*^9}, 3.795249548533166*^9, {3.795249731748011*^9, 
   3.79524975746432*^9}, 
   3.79525009773203*^9},ExpressionUUID->"0a6b5d6d-1083-4a09-8625-\
df241ffc970d"],

Cell[BoxData["0.00005`"], "Output",
 CellChangeTimes->{
  3.794314945800291*^9, {3.7943150310646667`*^9, 3.794315048506762*^9}, 
   3.7943151072098074`*^9, 3.794315153286956*^9, 3.7943152075483303`*^9, 
   3.7943152385253363`*^9, 3.794315275370985*^9, {3.7943155721302013`*^9, 
   3.7943155761584516`*^9}, 3.794315668786056*^9, {3.7943157526510787`*^9, 
   3.7943157701853943`*^9}, {3.794315824457923*^9, 3.7943158628430786`*^9}, {
   3.794315916259015*^9, 3.7943159228369756`*^9}, 3.7945684773567142`*^9, 
   3.7945689948613462`*^9, {3.7946346127647614`*^9, 3.794634663809724*^9}, 
   3.7946347063193965`*^9, {3.7946347526574287`*^9, 3.7946347820448813`*^9}, {
   3.794634895506701*^9, 3.7946349150137067`*^9}, 3.794634946553169*^9, 
   3.7946383703881855`*^9, {3.794638406513837*^9, 3.794638433036111*^9}, 
   3.794638516239507*^9, {3.794641270207844*^9, 3.7946413318098054`*^9}, {
   3.7946414783608007`*^9, 3.7946415054439983`*^9}, {3.7946417486042614`*^9, 
   3.794641763332284*^9}, {3.7946418657845855`*^9, 3.794641886680495*^9}, 
   3.79464194338577*^9, 3.7946423317964315`*^9, 3.794724727263647*^9, 
   3.79472632915077*^9, {3.7947264047106733`*^9, 3.794726427639537*^9}, 
   3.794726490201174*^9, 3.794730912925059*^9, 3.7947329522013664`*^9, {
   3.794733156492443*^9, 3.7947331676599183`*^9}, {3.7947332394921923`*^9, 
   3.79473327410503*^9}, 3.7948071617754903`*^9, 3.794807258345866*^9, 
   3.7948072931551332`*^9, 3.795242367411996*^9, 3.7952424583155403`*^9, 
   3.7952425424929047`*^9, 3.795242583699671*^9, 3.7952437027533703`*^9, 
   3.795244147365472*^9, {3.7952442871992188`*^9, 3.7952443120813293`*^9}, {
   3.795244387945779*^9, 3.7952444028510475`*^9}, {3.7952444796953225`*^9, 
   3.79524450561207*^9}, 3.7952448497200675`*^9, {3.795244890200576*^9, 
   3.795244915584087*^9}, 3.795244957964657*^9, 3.795246570176077*^9, 
   3.7952466194782915`*^9, 3.795246676978777*^9, {3.795249293874092*^9, 
   3.795249330772705*^9}, 3.795249548533166*^9, {3.795249731748011*^9, 
   3.79524975746432*^9}, 
   3.79525009773203*^9},ExpressionUUID->"0313da73-048b-4602-b83f-\
cbca408ec2f6"],

Cell[BoxData[
 RowBox[{"0.00005`", " ", 
  SuperscriptBox[
   RowBox[{"(", 
    FractionBox["1", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"3.1271970259980795`", " ", 
         SuperscriptBox["u", "2"]}]}], ")"}], "1.`"]], ")"}], 
   "0.5`"]}]], "Output",
 CellChangeTimes->{
  3.794314945800291*^9, {3.7943150310646667`*^9, 3.794315048506762*^9}, 
   3.7943151072098074`*^9, 3.794315153286956*^9, 3.7943152075483303`*^9, 
   3.7943152385253363`*^9, 3.794315275370985*^9, {3.7943155721302013`*^9, 
   3.7943155761584516`*^9}, 3.794315668786056*^9, {3.7943157526510787`*^9, 
   3.7943157701853943`*^9}, {3.794315824457923*^9, 3.7943158628430786`*^9}, {
   3.794315916259015*^9, 3.7943159228369756`*^9}, 3.7945684773567142`*^9, 
   3.7945689948613462`*^9, {3.7946346127647614`*^9, 3.794634663809724*^9}, 
   3.7946347063193965`*^9, {3.7946347526574287`*^9, 3.7946347820448813`*^9}, {
   3.794634895506701*^9, 3.7946349150137067`*^9}, 3.794634946553169*^9, 
   3.7946383703881855`*^9, {3.794638406513837*^9, 3.794638433036111*^9}, 
   3.794638516239507*^9, {3.794641270207844*^9, 3.7946413318098054`*^9}, {
   3.7946414783608007`*^9, 3.7946415054439983`*^9}, {3.7946417486042614`*^9, 
   3.794641763332284*^9}, {3.7946418657845855`*^9, 3.794641886680495*^9}, 
   3.79464194338577*^9, 3.7946423317964315`*^9, 3.794724727263647*^9, 
   3.79472632915077*^9, {3.7947264047106733`*^9, 3.794726427639537*^9}, 
   3.794726490201174*^9, 3.794730912925059*^9, 3.7947329522013664`*^9, {
   3.794733156492443*^9, 3.7947331676599183`*^9}, {3.7947332394921923`*^9, 
   3.79473327410503*^9}, 3.7948071617754903`*^9, 3.794807258345866*^9, 
   3.7948072931551332`*^9, 3.795242367411996*^9, 3.7952424583155403`*^9, 
   3.7952425424929047`*^9, 3.795242583699671*^9, 3.7952437027533703`*^9, 
   3.795244147365472*^9, {3.7952442871992188`*^9, 3.7952443120813293`*^9}, {
   3.795244387945779*^9, 3.7952444028510475`*^9}, {3.7952444796953225`*^9, 
   3.79524450561207*^9}, 3.7952448497200675`*^9, {3.795244890200576*^9, 
   3.795244915584087*^9}, 3.795244957964657*^9, 3.795246570176077*^9, 
   3.7952466194782915`*^9, 3.795246676978777*^9, {3.795249293874092*^9, 
   3.795249330772705*^9}, 3.795249548533166*^9, {3.795249731748011*^9, 
   3.79524975746432*^9}, 
   3.79525009773203*^9},ExpressionUUID->"86ed97c5-b1b9-4485-822c-\
4aa985dfeb90"],

Cell[BoxData["\<\"focal length inwards\"\>"], "Output",
 CellChangeTimes->{
  3.794314945800291*^9, {3.7943150310646667`*^9, 3.794315048506762*^9}, 
   3.7943151072098074`*^9, 3.794315153286956*^9, 3.7943152075483303`*^9, 
   3.7943152385253363`*^9, 3.794315275370985*^9, {3.7943155721302013`*^9, 
   3.7943155761584516`*^9}, 3.794315668786056*^9, {3.7943157526510787`*^9, 
   3.7943157701853943`*^9}, {3.794315824457923*^9, 3.7943158628430786`*^9}, {
   3.794315916259015*^9, 3.7943159228369756`*^9}, 3.7945684773567142`*^9, 
   3.7945689948613462`*^9, {3.7946346127647614`*^9, 3.794634663809724*^9}, 
   3.7946347063193965`*^9, {3.7946347526574287`*^9, 3.7946347820448813`*^9}, {
   3.794634895506701*^9, 3.7946349150137067`*^9}, 3.794634946553169*^9, 
   3.7946383703881855`*^9, {3.794638406513837*^9, 3.794638433036111*^9}, 
   3.794638516239507*^9, {3.794641270207844*^9, 3.7946413318098054`*^9}, {
   3.7946414783608007`*^9, 3.7946415054439983`*^9}, {3.7946417486042614`*^9, 
   3.794641763332284*^9}, {3.7946418657845855`*^9, 3.794641886680495*^9}, 
   3.79464194338577*^9, 3.7946423317964315`*^9, 3.794724727263647*^9, 
   3.79472632915077*^9, {3.7947264047106733`*^9, 3.794726427639537*^9}, 
   3.794726490201174*^9, 3.794730912925059*^9, 3.7947329522013664`*^9, {
   3.794733156492443*^9, 3.7947331676599183`*^9}, {3.7947332394921923`*^9, 
   3.79473327410503*^9}, 3.7948071617754903`*^9, 3.794807258345866*^9, 
   3.7948072931551332`*^9, 3.795242367411996*^9, 3.7952424583155403`*^9, 
   3.7952425424929047`*^9, 3.795242583699671*^9, 3.7952437027533703`*^9, 
   3.795244147365472*^9, {3.7952442871992188`*^9, 3.7952443120813293`*^9}, {
   3.795244387945779*^9, 3.7952444028510475`*^9}, {3.7952444796953225`*^9, 
   3.79524450561207*^9}, 3.7952448497200675`*^9, {3.795244890200576*^9, 
   3.795244915584087*^9}, 3.795244957964657*^9, 3.795246570176077*^9, 
   3.7952466194782915`*^9, 3.795246676978777*^9, {3.795249293874092*^9, 
   3.795249330772705*^9}, 3.795249548533166*^9, {3.795249731748011*^9, 
   3.79524975746432*^9}, 
   3.795250097747616*^9},ExpressionUUID->"7320dfef-3557-48aa-9031-\
e6b47c476a12"],

Cell[BoxData[
 FractionBox[
  RowBox[{"1250.`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"1.`*^-8", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox["1", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"3.1271970259980795`", " ", 
             SuperscriptBox["u", "2"]}]}], ")"}], "1.`"]], ")"}], "1.`"]}], 
     "+", 
     RowBox[{"0.000144`", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"3.1271970259980795`", " ", 
          SuperscriptBox["u", "2"]}]}], ")"}], "1.`"]}]}], ")"}]}], 
  SuperscriptBox[
   RowBox[{"(", 
    FractionBox["1", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"3.1271970259980795`", " ", 
         SuperscriptBox["u", "2"]}]}], ")"}], "1.`"]], ")"}], 
   "0.5`"]]], "Output",
 CellChangeTimes->{
  3.794314945800291*^9, {3.7943150310646667`*^9, 3.794315048506762*^9}, 
   3.7943151072098074`*^9, 3.794315153286956*^9, 3.7943152075483303`*^9, 
   3.7943152385253363`*^9, 3.794315275370985*^9, {3.7943155721302013`*^9, 
   3.7943155761584516`*^9}, 3.794315668786056*^9, {3.7943157526510787`*^9, 
   3.7943157701853943`*^9}, {3.794315824457923*^9, 3.7943158628430786`*^9}, {
   3.794315916259015*^9, 3.7943159228369756`*^9}, 3.7945684773567142`*^9, 
   3.7945689948613462`*^9, {3.7946346127647614`*^9, 3.794634663809724*^9}, 
   3.7946347063193965`*^9, {3.7946347526574287`*^9, 3.7946347820448813`*^9}, {
   3.794634895506701*^9, 3.7946349150137067`*^9}, 3.794634946553169*^9, 
   3.7946383703881855`*^9, {3.794638406513837*^9, 3.794638433036111*^9}, 
   3.794638516239507*^9, {3.794641270207844*^9, 3.7946413318098054`*^9}, {
   3.7946414783608007`*^9, 3.7946415054439983`*^9}, {3.7946417486042614`*^9, 
   3.794641763332284*^9}, {3.7946418657845855`*^9, 3.794641886680495*^9}, 
   3.79464194338577*^9, 3.7946423317964315`*^9, 3.794724727263647*^9, 
   3.79472632915077*^9, {3.7947264047106733`*^9, 3.794726427639537*^9}, 
   3.794726490201174*^9, 3.794730912925059*^9, 3.7947329522013664`*^9, {
   3.794733156492443*^9, 3.7947331676599183`*^9}, {3.7947332394921923`*^9, 
   3.79473327410503*^9}, 3.7948071617754903`*^9, 3.794807258345866*^9, 
   3.7948072931551332`*^9, 3.795242367411996*^9, 3.7952424583155403`*^9, 
   3.7952425424929047`*^9, 3.795242583699671*^9, 3.7952437027533703`*^9, 
   3.795244147365472*^9, {3.7952442871992188`*^9, 3.7952443120813293`*^9}, {
   3.795244387945779*^9, 3.7952444028510475`*^9}, {3.7952444796953225`*^9, 
   3.79524450561207*^9}, 3.7952448497200675`*^9, {3.795244890200576*^9, 
   3.795244915584087*^9}, 3.795244957964657*^9, 3.795246570176077*^9, 
   3.7952466194782915`*^9, 3.795246676978777*^9, {3.795249293874092*^9, 
   3.795249330772705*^9}, 3.795249548533166*^9, {3.795249731748011*^9, 
   3.79524975746432*^9}, 
   3.795250097747616*^9},ExpressionUUID->"26784185-d808-49dc-90c0-\
097dc8276b15"],

Cell[BoxData["\<\"focal length outwards\"\>"], "Output",
 CellChangeTimes->{
  3.794314945800291*^9, {3.7943150310646667`*^9, 3.794315048506762*^9}, 
   3.7943151072098074`*^9, 3.794315153286956*^9, 3.7943152075483303`*^9, 
   3.7943152385253363`*^9, 3.794315275370985*^9, {3.7943155721302013`*^9, 
   3.7943155761584516`*^9}, 3.794315668786056*^9, {3.7943157526510787`*^9, 
   3.7943157701853943`*^9}, {3.794315824457923*^9, 3.7943158628430786`*^9}, {
   3.794315916259015*^9, 3.7943159228369756`*^9}, 3.7945684773567142`*^9, 
   3.7945689948613462`*^9, {3.7946346127647614`*^9, 3.794634663809724*^9}, 
   3.7946347063193965`*^9, {3.7946347526574287`*^9, 3.7946347820448813`*^9}, {
   3.794634895506701*^9, 3.7946349150137067`*^9}, 3.794634946553169*^9, 
   3.7946383703881855`*^9, {3.794638406513837*^9, 3.794638433036111*^9}, 
   3.794638516239507*^9, {3.794641270207844*^9, 3.7946413318098054`*^9}, {
   3.7946414783608007`*^9, 3.7946415054439983`*^9}, {3.7946417486042614`*^9, 
   3.794641763332284*^9}, {3.7946418657845855`*^9, 3.794641886680495*^9}, 
   3.79464194338577*^9, 3.7946423317964315`*^9, 3.794724727263647*^9, 
   3.79472632915077*^9, {3.7947264047106733`*^9, 3.794726427639537*^9}, 
   3.794726490201174*^9, 3.794730912925059*^9, 3.7947329522013664`*^9, {
   3.794733156492443*^9, 3.7947331676599183`*^9}, {3.7947332394921923`*^9, 
   3.79473327410503*^9}, 3.7948071617754903`*^9, 3.794807258345866*^9, 
   3.7948072931551332`*^9, 3.795242367411996*^9, 3.7952424583155403`*^9, 
   3.7952425424929047`*^9, 3.795242583699671*^9, 3.7952437027533703`*^9, 
   3.795244147365472*^9, {3.7952442871992188`*^9, 3.7952443120813293`*^9}, {
   3.795244387945779*^9, 3.7952444028510475`*^9}, {3.7952444796953225`*^9, 
   3.79524450561207*^9}, 3.7952448497200675`*^9, {3.795244890200576*^9, 
   3.795244915584087*^9}, 3.795244957964657*^9, 3.795246570176077*^9, 
   3.7952466194782915`*^9, 3.795246676978777*^9, {3.795249293874092*^9, 
   3.795249330772705*^9}, 3.795249548533166*^9, {3.795249731748011*^9, 
   3.79524975746432*^9}, 
   3.795250097747616*^9},ExpressionUUID->"181a5e34-0454-43c0-8fce-\
44a246c064ab"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"1250.`", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"1.`*^-8", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox["1", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"3.1271970259980795`", " ", 
              SuperscriptBox["u", "2"]}]}], ")"}], "1.`"]], ")"}], "1.`"]}], 
      "+", 
      RowBox[{"0.000144`", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"3.1271970259980795`", " ", 
           SuperscriptBox["u", "2"]}]}], ")"}], "1.`"]}]}], ")"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox["1", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"3.1271970259980795`", " ", 
          SuperscriptBox["u", "2"]}]}], ")"}], "1.`"]], ")"}], 
    "0.5`"]]}]], "Output",
 CellChangeTimes->{
  3.794314945800291*^9, {3.7943150310646667`*^9, 3.794315048506762*^9}, 
   3.7943151072098074`*^9, 3.794315153286956*^9, 3.7943152075483303`*^9, 
   3.7943152385253363`*^9, 3.794315275370985*^9, {3.7943155721302013`*^9, 
   3.7943155761584516`*^9}, 3.794315668786056*^9, {3.7943157526510787`*^9, 
   3.7943157701853943`*^9}, {3.794315824457923*^9, 3.7943158628430786`*^9}, {
   3.794315916259015*^9, 3.7943159228369756`*^9}, 3.7945684773567142`*^9, 
   3.7945689948613462`*^9, {3.7946346127647614`*^9, 3.794634663809724*^9}, 
   3.7946347063193965`*^9, {3.7946347526574287`*^9, 3.7946347820448813`*^9}, {
   3.794634895506701*^9, 3.7946349150137067`*^9}, 3.794634946553169*^9, 
   3.7946383703881855`*^9, {3.794638406513837*^9, 3.794638433036111*^9}, 
   3.794638516239507*^9, {3.794641270207844*^9, 3.7946413318098054`*^9}, {
   3.7946414783608007`*^9, 3.7946415054439983`*^9}, {3.7946417486042614`*^9, 
   3.794641763332284*^9}, {3.7946418657845855`*^9, 3.794641886680495*^9}, 
   3.79464194338577*^9, 3.7946423317964315`*^9, 3.794724727263647*^9, 
   3.79472632915077*^9, {3.7947264047106733`*^9, 3.794726427639537*^9}, 
   3.794726490201174*^9, 3.794730912925059*^9, 3.7947329522013664`*^9, {
   3.794733156492443*^9, 3.7947331676599183`*^9}, {3.7947332394921923`*^9, 
   3.79473327410503*^9}, 3.7948071617754903`*^9, 3.794807258345866*^9, 
   3.7948072931551332`*^9, 3.795242367411996*^9, 3.7952424583155403`*^9, 
   3.7952425424929047`*^9, 3.795242583699671*^9, 3.7952437027533703`*^9, 
   3.795244147365472*^9, {3.7952442871992188`*^9, 3.7952443120813293`*^9}, {
   3.795244387945779*^9, 3.7952444028510475`*^9}, {3.7952444796953225`*^9, 
   3.79524450561207*^9}, 3.7952448497200675`*^9, {3.795244890200576*^9, 
   3.795244915584087*^9}, 3.795244957964657*^9, 3.795246570176077*^9, 
   3.7952466194782915`*^9, 3.795246676978777*^9, {3.795249293874092*^9, 
   3.795249330772705*^9}, 3.795249548533166*^9, {3.795249731748011*^9, 
   3.79524975746432*^9}, 
   3.795250097763236*^9},ExpressionUUID->"d2d1dd1d-2625-4100-8a79-\
8c96206235fe"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJw1WXc0Fn7ctbPXYzZRZKWySujzlZBCEioKGSX5yUjJKpFQkqysomRllUKS
72M+9t57PHbZmzxv7znv+9c995x7zz3n/nXPucKW9wxsaKioqHypqaj+F70m
dBcpFAJRJWqH5t03czTuwbfSu00gBnv4rA19Mkd6nINr+RsEoqOx5zPxKHMk
pOT4994SgVi2vGJX8cgclQa9YRwaJxB1lou0FMEcMcp07ifWE4i0bD+Tl2rM
UPh9iwtPYgnEmPtPZjrHbqDP1C5JVCcIxKd9ngL7Ja4jehstWcEb3MTZENGn
+xKvIkJXhf2HUC4il51NYHucETIoi7GSqOEkdlkkm3BNGiCPOVX716McxJ1+
3TvGqvqo4GGMXfZFdqJ7gsVvla0LSO+NkdBONCvRvflZ3J0YLaQV/0vv3G9m
YkV7r5I/SR0lkx51uJgyEbOSfNYy4xAy8wvnbUzdRQSS29FL0srI24I2i4XA
QOxT4hO8cloRUR05gNWf0RFD1LMt2ZhlUc+L6Oef22mIc5USHolnpFFrhVCG
RSMNMRP3fhk5LI3qKClNvNU0xCe0HucV2KRRsUue4JMiGiKzzLkg9i4p9MG0
9bPhRxoiTcfLxNcOUshOiq3pryMN0ZdBY3fDO0m0VfNEQJ+Vhui/xh9KzyqB
9jLbpi2foSaeO1XtIywghsyK616KqFAT7xV9HEuliKJE5+OO+grURN7kLSr1
CVEk1rupmHGYmsjGHoay80TR0YzgcitWauKdCnue28ai6Ixe7mBLOxXx1yBE
6UYfQnfe7PB+saUi+lzcpVcqfRDdVZCk791Lwd5NE3kZAULImf5HygMOCk7N
jLxK7yqE3Nu1znPTUPBD3mcqDjeFUJCrTYj2xA6uZz2S7XhKCKV/TxAs+LKD
T6fRrzv0HEBTCvwyEZo7uLVC90jw5/3otiLdlYuOf7HsidImF5u9yOrEQGpZ
2RbmWDQt7JUXQLdSTxhr5m/hZDY9Lwt+AWQnGEpbnb6Ftx/3P97Z4EeOW+pm
DaFbeDUtiM8f8yNPnEboNt/CSd/36ZZe4EfhWq7es1ubWIvDfI1sy4cqr7Aa
Cspv4jimdXq/7zyousqGOu7wJq6/o9ywO5YH1SnhrP17NnGw5eLd6ic8qGWP
M9Mhmk08b+Cx+Z8ODxoc7CyWadrAE0lwuJVMQOu3P0qctd/A1zu5e2h3E5Ck
2ymKQ9I6Fond8cqO4ELEfj3J0ch1fEBUPV/GkwsZq1sZXQlcx/czjC5WWXKh
p+wvP4PDOubIUbI8f4wLdSf1X+E8uY4vR1x7HFDHiQKan+R8qV3DKoa3NgeZ
ONG4JOnm8uIqPnf17zGZo2zI83XvS9uxVRwkOv34JQ0b4l6dy+/rXMXhY46L
ezpY0ekSAfaKolU85i/WWO/FiiKu2BVG+K/iytPqau6NLOisHxvhxO5VLBms
09PnwYwS+y+XP1JbwUH+WYGUtV1Iliy72Sa/gnM2Si71t+5C5dNcx46Jr2CS
IV31SPYuNL7WGDvOvoL75tJuW9vuQpLcOi6X+5Yxl0pCJ/QyoK+aZ0WOPFzG
BVKsvOpV9Kg8W/7JUMYS5mB8ld9ZTIuM8gh5yglL+IZckYz3e1o0XrQ4Exm2
hMWM8uy0n9AixpqcK7ruS1jj3WSr7hlapEuWPlqotYRjQiwGWapoUIeA6EDY
yCKmOZzhda6HGk348KpoCSzi/Cd1vMKCVIjZK3sujHkRU1i8/kyuUUDGTfvj
0PYCbiH3HR38RYEHDl7M7sMLmCGM/vyP8xRgMB3rykhfwK/MwGKf7Q4ckv/u
yq26gJc0+B47fdkGy3HD7P6b8zjUhNcp03MD/IdnLSUN53F5lqBwy4UNSO8L
4HuoOY81JjNWT+/ZgMWWIi9OqXkMPzcPzxeuA81j7bf+k3O4mGJ+Kv3vGsDx
qeZLbHPYn9qNrP16FQojxDUmjf/gz4QX199NLgGj6YQVtcofHGb9/R1XyRIY
CyU/3S38B/My6FiXRS/BYvpBos7Mb+y+vRg/fGEJJIj7lb88/o0L54qraXIX
4e00z3H31BnsGk1hSn25AK5AvY91cwob+VMpUjpnoZSOqCw6OIX1NGh9vkbN
AmeNt8np8ilsf7VXuv3KLGQYbkc5vprCxSMjK7e6/wD5zhp3u8gU7mwvcMsZ
/g0G4X8Y312YxAEqVG2eDDNwbKp7+Wj8OObNLDjJ8m4C7s8fkeD3G8c6KX+v
aDpMQMGaz40du3EsXcZU1nF6AtQYJCvrTo5jU97WQ6tD42Bw0D3qTtsYHpBu
+y4qMQ6uN3af+sgyhqtSltT/VpGh0NrBIWiRjANOctPavCPDzt3SD07dZFxw
261g730y+LvbsaAUMp7an5HrLkSGt1GFfX1nyPhZVHX2hOcoFDabPOZzH8U9
jMrHVM6OwE5XVu5fi1H8KmdPv8f+ETgzRDNJ1hrFJp9L1Bg2hqF2Nl0/l3cU
T6bfHN/IGoY+li1h/S8j+JKDY8jl/cNA0YgtD5wcxi0KZVcDmIfgbGEv01/j
Idx3rTvT80gfZKV/UiIpD+HU1blrIbO9IBB7706o0BDmejXWpJTTCx1rDG8u
tA3izGolioFCL4h6GHPGbw7gX9TWUU80e6DUZ4UVafVjZ/mY43v9uiDSMtC+
jbMfvxbRatbT64I76vvqbHv6MH9CxyqrYBdw0mu8CP2vD79eGWwXz+kE84Bw
ptGwXjx2qYm3htwB26/kGPyHuvFt+V/n2W+3Q9M9ks3u9G6st9ezP0GpHT7q
m1ZkuXTj/a5O53NZ2+E8t69fJ0M3fsIfPmT4rQ2iI1poJI504dH0jtsPmdpA
Mc6JUvuoA1uriXe8r2kBZi96cwv1DszurcLUn9QC/Teii5dZO3CO16RkyOMW
8DtQ4rUvoR3Lnk2Mv6jYAq0fOLcdKttwlcjBo0fTmsExLXudi9CK+bcoBb0f
m+AYu4PvmaEWLPx82EHkeRMsOEuzu2S2YC7V5VuVdk3grJJ2sE2rBT/3vil3
SK4JXBs/6EV6NuMJ88tshq8bQVH+ZneldjPmC+kUib3eCKtvD1iv8TVjzzGK
WoREIzy0jHt09UsTtuxqonlf0QBL01LaCnWN2CdCsmSOvgHuf0s1i7zViCXF
vbXzOuth1Uv0/hpVIxbuV+wWT6+Hdc4D738oNGBFgaJc9kv1sK3IvaL6vg7v
OXhQpzK5Dhh81xM0navxmY+EFjmnWniu45qXwlqND167H2KiWwuMfIu1jClV
OFKkb0RIshaY02ZWa3pJ2Dh/2ztwrAY4Ggd0LmpU4rwBWfd8qxp4/dbUMmew
AueN01eQztYAt2XXQy73Cswy9fGCs1gN8Kw0f2jNKsea1DavwmaqQWBPxfoV
gTKsfbSYcdWzGqLJauw/vpZimnx+IFlWw+6s4oO7dUtx/ZG29SPa1bBPrUCv
z6cEzzFb1f3grwb1BmPtkg6MwzRVbYp+VoHmTf37viwYmww78UolV8G5Ze33
GqgYNzb8UZYKrQKd3aor1WlF2CZ2QXDAtgqMbx1MbPH8gaN8+rapD1RBkJNL
wJvvBXhzlvT+LHsV/PIsu2cwm4+dBgp7OHZIcCjM6nSLeR728LQqOD1Igqvv
ckXfvP2Ohx7++pLYRIIXabRsBs3fcIHdf/MvSkmwiD/2Np/JxZQaLaaVFBKI
1S6Vhnp8xZWtAvousSS41qGefunbF5ys9Ob7wxASEH+PujWL5mDy93ttXI9I
MDl3myjyKwv7RjRypjiQ4CIDY8gHmX/rrafVqcSaBPvlzkl/4ErHJJWaSj8D
EjzTntwU9k3F2Z8MDY+cJ8Fv84DqxOVk/BvnK5mcIcHlB+JvhW99wnHNg+dZ
lElQ+LLqVmLnRzxXGmGG5Ekg/NFWQVj7A85690Rv4wgJAn4w0iUWJuD4dbE1
BXESDLy/9Ent6jucpTR/YlWEBJl1oWfUlGNxc7PoktJ+EnhsNA+i/W+xwsVl
NurdJNAW4/ZC1BE418Te8QIfCfgvG+xG5FDsEu1LL0ggQS3l0L3Hr4KxmQvv
zzucJLC99inN2/A5fl486qPKTgK6XFGy124ffOZilG44KwmQoI7qJtEV99kT
eRxYSDD/Ntp6IdoSU0l1NtUwk8CTJrxC86Q2eKYoe6f/4zIxViQexXuQIK24
l+2ffkDwyywLhyewn1zLWPzHL8t1Ffmr+cGcTZSCKRsJ8rqvPH3uEQQliL9Y
k4MEbMSZg+Umr+HZitml71wkgLDP/uUPwyDgt+rfZB4SON26O1UeHgltmnYt
ewRI8EFJSqfiSzSooCdkwl4StLHOZFU0xMGJB9TnQ4RIwDCUzlU58x5yCIZ7
X4mSIO6awikrv0SoGy55yClFAgX1iLuj3B+hT/WhB99xEjRIr8RZJSZBzrKP
dsIJElBRfadYFadAnapML2iSIHqK5zhZJw1WezQXjPRIINt639K6Nx0iJt4/
mDcmgXWyfIX1eibopNuH5d4hwd+Q8FWyfzaYa4mH97n8619lM+xrUA7kGeV0
BHn/04uZVMgKfgVdQhO3WwQJju1hHnAe+goBDeov8xP/+TkKV7+m5MJvvxNa
XlkkiNwQFJdT/A67JjkS4qpJQKrrDpK7XABJta905RiqwNath2Qq9QOokwXN
BQWqgPFQL50fbSE0KS87JUhWwXmPPu+23J+QVy7hEXapCuokBp1deTBcX/25
a09KFdi3D2bH/8ZwSjJmha+4CvyR46qlJRHqvH1oC9qr4PBvR7kXp0qAYSmi
dYahGmzVnTN7p0uh92zhFSmnajgZvVg7Z1wG5o5v4GZwNTDOOU/TlpVBkg35
vFp6NaTFuByWji0H9ntsITTj1TC9cD/R80IlhCnyDMTb1IB9wsOIfRnVoFrs
UzvyrBZUVtdyjwvUgGET82uezFpg1XFr0fCrAQ1Nue3ttlrIXHPjcLheC+UW
bVdXxOpgVs89sJi1Hs5peiTFt9ZBcdJmSotbPZyRPcL9jqoeXm26V46T64Fb
UzX4ukw9HE32oOX41QDyRu/C+F/WQ4F3cXG2YhPsLVtrStRvgIS0nfof9k1A
V056luXbAAFtp/vLPjTBi9SLN3zyG+CqJN7qZG8G+UzVHC/hRthoxyepJpqh
uDGZa26nEU4dKfmqH9UK6yfj143nm0ChrSOyuLoVbmcYK0r+8x3z+O0uvd0K
wTFMAabSzSBWza/OeLMNqnXyTHruNAPBxqEVS7ZDeAHfa+OpZvgdt2dZprgD
pt+qaRZutsCE+vGuuPkOYDak6krf3woj05pFzAc7oThENZFavRW6Tzr7jT/v
hMY5163Rl61Q2VbF8+5SF6RuBfYGibbBe9YHCmxj3dBN/+xbr107xOS+EPTg
74GpIt0/jhHtEGmS+HdSuweqDrlLuBLb4WVqXUV5Vg/oli8t1vF3gNvZg8ae
br2QamHTVV3bAQaeTQ9mWPqh6rkyjYd2F9A84O2zFhyC9c7wstH3vWBikd5S
IP9vF2VpfTAe6IWv56GaVX8I+GRe2Vru6wPLA3fyvvkPwRr0d2nF90FpVdFr
uuUhmDr/N94iqR9891hrJDUMg2z/5QGvpkHoo99QXp8aBmvTxLx7rEMgPx8s
q0M/ArFi32yWjg0BuTz/wLLyCGxD0/4V93+5Diyb6mkjEHhC3e8P9zDQlXzN
GvUdhYGf+TPsl0fg+metTyfej0IAB2PVe88R+BbRF/uicBQSowePBSWPgLUd
Q6DcwigIVrJe+W9rBCoIJla+ZmTYlTZb4ZY2Cv63qAUOKo2Bj3vRYVr+MdjF
qu9jOTsOd58O+ZBPTcLVwyZERaYJkKCpbfO+NwnpZ6wpzIcmYD8da4Zn0iTo
PXLzyr02AV6phcFJHFMQOZ7wiK5iAiL2fc/MmZ4CsZIFp+TYSdBUPXmI/9sM
aDwIs5w+Nw0aXdQUhqg5iAyNTyy2mgZmd9Q22DUHkxkpQ2+8p2F+kbE0nG0e
Xo7+NFP+Ng2rchdCA/TnoU2fbPLywAzMBcqE7++eB2sphcsyqzMwHPjogdzK
AvgOdag7f/wDiuRnOp4myzDw48J/bkV/ICZo7pvok2U4FUaM9G7/Axaz4/wM
ycswr5E+FbRrFkyP1XjbLy6D2WevkI93Z2FMUTG9LXgFTj041NsmNweD/KaX
lBpXYYNe6ccey3koHam9/MJrA5Kdl+rfOcwDiY1R2i59AwwHM0eEPebhobl8
yLPODcgpEGEVD5+Hn9Siac6ym3DrLqu5fOU8TD235JCa2YS2pkE6XckFeLXY
Vadsuw05sf763osLEMJsXcj3hgK1BP8JDqpFSJTwKzeqpcD4i2feiWyL4Hws
S8+Jhgrt9fTLKBdfhG8Pzuq7qFChgOtPGVnMF0HymL7gxa9UyGKfNzGqdhEW
pxr6vT9RI873rse+JC0Bnzf5dEA6LZLidyWd+boEo3su66nU0SLNkPtmbXgJ
fB859u2epUWej11ervUswQfXoYkrsnRo0txpUpVrGUr/Dg+3FdEhotB/CTVe
y9Dbahm11E2P7n2w5iQbr8DTpPcdwQqM6NWj6LhXVivgwPCVX9qEEWXpN4gr
Oa6At3rZ00VvRjS7c0LtVeAKTN7rlF+vYkT2pizOJ4tWAFGHxUyZMSE7nq+t
L4VXwVTvwLbbG2Z0y58SqfB7FQ7rt6bPCrAh/xvyB4fWVyFgTjMPn2FDyfJ3
soPo1+BOnFjfT3s2NDbSQhrcvwY6gvrtCiVsyBqS1wMvrcGrkNuccvbsyHJd
x2Qgbw0UDULUb9dwIDO7mH3PfdYh2Pxs8RFDLrTVzdSwELwOKh4POG/f5UJv
tR95X49Zh0zXlKd5T7lQs/jVweO563CbxnEp6gsXOjvBm9hHXodT8c9Vb3Fy
Iwnr0EOy5zZgVihY6lQLN1q+ESDVz74Jqg4qsmy3eVDgpQdKcnFboG773qCh
kx+9qZO0z0jbgqCO3uOWa/woTmvwnWj+FnBOd1gT+AVQjuo5OoGWLQi4Sd6p
NxZAXRK7G7d3bcMfvZuhnzoFkDhNsXWlyzYsWl1OmB4QRJVf6V9fu/AXvrfS
zh6l24voeCLGH2/ugFpT7+hNYyHEPevNzr2LAqf5wa7IVggJV9kqJhEowEBR
Q6IeQui0p4p/lTQF6ng0FoUThNAj8qgolzkF5JX4OKumhdDsN1mbD2UUuHM8
Sa3uqTD6LTnpZKlJhUSMHZb6fomgztpn834c1AhJuly1uimKwk/HaxjxUaMf
tvkk00eiyODLtxjRfdRIBrX/vBUqihoiR89WSlKjv0t8+t9KRFHlTbXoXZrU
6DQj3ZrMQTGUt7atFuRJjeo9hL6kTomhyIP3w0KmqNE1ERH7YT9xZORhqRhT
RoOE/9MooFuVQvYsMyINJnSo5tHKnT0Jx9GBz5WRDNP0aEeaQ0KmSgF5FKhf
5ojdhd7m5wTn75xCjsn2eYpHmRDH1ibD1jmEWGlOWMqMMSNCxHWfSwXqSOM/
wwjJMFZ029c8dT5QCwn82HdP4xA7mr3qXaHpfwG9cQ4IPdbJgVwuMWm0S+oj
A/+LR+LzOFEo7V+mJykGSNLUzyjJiwul8l5nCDM0Qh3jTB/CjLiRT/FI3jXf
q6jBckyN+wABTXqdD+8oMUXDdCnrESIENJHYcHehyRQtJ9tmC4oR0JWF9Uqu
IVMkODOzV/gIAcVy67Ja7Zgia5fFtaPKBJRuoTenpXwdbfpSMnWvENBz9eCN
PXnXkdgnwd2BIQR0IvqXwnL2DaSk1dvEGkZAgR6X3UrwDaQzFff8dSQBFb5e
MwtvvIGcjgitRMUTkKPRw70X5m6gou9iTcmfCcjCKOf+towZMqiU8y8nEZB9
4pDnvWwzZGO7onKuloAGfw8+isJmyI05f6m2gYDiXYSlKhrNULzeqZut7QT0
WMEt6/i8GZrsQCojowQkHt9oePG4Odp0o1mymSCgQ+3KnJ/UzBHbnvK0qWkC
wrp0AVQG5kjWXIt/YYGAMmjzc6qczZEGNVPD/RUC8ixNsVLwNUdXP9b4ra8T
UE85dWdKmDmy03ip7LlNQF4XqliEkszR//0D6P//gf8BDh4Niw==
          "]]}, Annotation[#, "Charting`Private`Tag$10683#1"]& ]}}, {}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
     Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{-5, 5}, {0., 126.82214426863078`}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{"\"R_P\"", "\"w(z)\""}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                   None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                   DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, 
                  Selectable -> False], ",", 
                 RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.794314945800291*^9, {3.7943150310646667`*^9, 3.794315048506762*^9}, 
   3.7943151072098074`*^9, 3.794315153286956*^9, 3.7943152075483303`*^9, 
   3.7943152385253363`*^9, 3.794315275370985*^9, {3.7943155721302013`*^9, 
   3.7943155761584516`*^9}, 3.794315668786056*^9, {3.7943157526510787`*^9, 
   3.7943157701853943`*^9}, {3.794315824457923*^9, 3.7943158628430786`*^9}, {
   3.794315916259015*^9, 3.7943159228369756`*^9}, 3.7945684773567142`*^9, 
   3.7945689948613462`*^9, {3.7946346127647614`*^9, 3.794634663809724*^9}, 
   3.7946347063193965`*^9, {3.7946347526574287`*^9, 3.7946347820448813`*^9}, {
   3.794634895506701*^9, 3.7946349150137067`*^9}, 3.794634946553169*^9, 
   3.7946383703881855`*^9, {3.794638406513837*^9, 3.794638433036111*^9}, 
   3.794638516239507*^9, {3.794641270207844*^9, 3.7946413318098054`*^9}, {
   3.7946414783608007`*^9, 3.7946415054439983`*^9}, {3.7946417486042614`*^9, 
   3.794641763332284*^9}, {3.7946418657845855`*^9, 3.794641886680495*^9}, 
   3.79464194338577*^9, 3.7946423317964315`*^9, 3.794724727263647*^9, 
   3.79472632915077*^9, {3.7947264047106733`*^9, 3.794726427639537*^9}, 
   3.794726490201174*^9, 3.794730912925059*^9, 3.7947329522013664`*^9, {
   3.794733156492443*^9, 3.7947331676599183`*^9}, {3.7947332394921923`*^9, 
   3.79473327410503*^9}, 3.7948071617754903`*^9, 3.794807258345866*^9, 
   3.7948072931551332`*^9, 3.795242367411996*^9, 3.7952424583155403`*^9, 
   3.7952425424929047`*^9, 3.795242583699671*^9, 3.7952437027533703`*^9, 
   3.795244147365472*^9, {3.7952442871992188`*^9, 3.7952443120813293`*^9}, {
   3.795244387945779*^9, 3.7952444028510475`*^9}, {3.7952444796953225`*^9, 
   3.79524450561207*^9}, 3.7952448497200675`*^9, {3.795244890200576*^9, 
   3.795244915584087*^9}, 3.795244957964657*^9, 3.795246570176077*^9, 
   3.7952466194782915`*^9, 3.795246676978777*^9, {3.795249293874092*^9, 
   3.795249330772705*^9}, 3.795249548533166*^9, {3.795249731748011*^9, 
   3.79524975746432*^9}, 
   3.795250097866833*^9},ExpressionUUID->"152a17e1-be7e-412f-b46a-\
45097f790ad8"],

Cell[BoxData["\<\"new focal position at\"\>"], "Output",
 CellChangeTimes->{
  3.794314945800291*^9, {3.7943150310646667`*^9, 3.794315048506762*^9}, 
   3.7943151072098074`*^9, 3.794315153286956*^9, 3.7943152075483303`*^9, 
   3.7943152385253363`*^9, 3.794315275370985*^9, {3.7943155721302013`*^9, 
   3.7943155761584516`*^9}, 3.794315668786056*^9, {3.7943157526510787`*^9, 
   3.7943157701853943`*^9}, {3.794315824457923*^9, 3.7943158628430786`*^9}, {
   3.794315916259015*^9, 3.7943159228369756`*^9}, 3.7945684773567142`*^9, 
   3.7945689948613462`*^9, {3.7946346127647614`*^9, 3.794634663809724*^9}, 
   3.7946347063193965`*^9, {3.7946347526574287`*^9, 3.7946347820448813`*^9}, {
   3.794634895506701*^9, 3.7946349150137067`*^9}, 3.794634946553169*^9, 
   3.7946383703881855`*^9, {3.794638406513837*^9, 3.794638433036111*^9}, 
   3.794638516239507*^9, {3.794641270207844*^9, 3.7946413318098054`*^9}, {
   3.7946414783608007`*^9, 3.7946415054439983`*^9}, {3.7946417486042614`*^9, 
   3.794641763332284*^9}, {3.7946418657845855`*^9, 3.794641886680495*^9}, 
   3.79464194338577*^9, 3.7946423317964315`*^9, 3.794724727263647*^9, 
   3.79472632915077*^9, {3.7947264047106733`*^9, 3.794726427639537*^9}, 
   3.794726490201174*^9, 3.794730912925059*^9, 3.7947329522013664`*^9, {
   3.794733156492443*^9, 3.7947331676599183`*^9}, {3.7947332394921923`*^9, 
   3.79473327410503*^9}, 3.7948071617754903`*^9, 3.794807258345866*^9, 
   3.7948072931551332`*^9, 3.795242367411996*^9, 3.7952424583155403`*^9, 
   3.7952425424929047`*^9, 3.795242583699671*^9, 3.7952437027533703`*^9, 
   3.795244147365472*^9, {3.7952442871992188`*^9, 3.7952443120813293`*^9}, {
   3.795244387945779*^9, 3.7952444028510475`*^9}, {3.7952444796953225`*^9, 
   3.79524450561207*^9}, 3.7952448497200675`*^9, {3.795244890200576*^9, 
   3.795244915584087*^9}, 3.795244957964657*^9, 3.795246570176077*^9, 
   3.7952466194782915`*^9, 3.795246676978777*^9, {3.795249293874092*^9, 
   3.795249330772705*^9}, 3.795249548533166*^9, {3.795249731748011*^9, 
   3.79524975746432*^9}, 
   3.795250097866833*^9},ExpressionUUID->"a6cfc163-02bd-4511-853b-\
931694acbfbd"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwtmXk0ld/3x+VWxiQpZJ6HZKgoqXaFUiGkDBGqT4mUZMgsRUpkKjJLRMk8
ZjgX95rneZ7uvebM83R/z3et31/Peq11nrPP3vv93udZ6xF88EL3P1oaGpq6
PTQ0/3vKwNEpKpWKgudLpYrsN+HFhrDvxiYVZaSdyDGz2YSMbHmxpRUqiher
ub7fahNOSmg+GJumIvP0mm86Zptw5tC73vouKnJuqmucuLEJl0gLtd/Sqchy
vjWSS2ATdN83/D5lSkWHLr857127AY5N76yflO6ikoxb4b78G9DezjRVZr6D
7sWvv0Z/1oAX/4L9DM824r11sWr9zirkWhH2HRzYRNtuDc2V+1fA7JP8fI/X
Bmr06XWrj16C9WAXXwTryPuU2F6c9iIksAxyhY+sIsYX/AffTM1D1A1527YP
K+jMPcGocME58Hpm/lry+jI67ZqkKZs8Ay64X462/xZRtOZCejD9FJh7Nol0
Ji8g0vepvuykcfhSQgmPspxHPo9mjvc+pMDfIQnmVKFZlMfWE9hBTwJh1ktX
9GKm0YbzZXWfhWHIkvK1HCVNIHXBPefCYwdgiJgpoKg4hgyfnKynx/cARfrL
SZRHQtT5RfqhV51wyD1FUWbPCBo6skniu9IGPnkS1axrw8jVO/UUVbENNmd/
Gi7NDCNCkUoE5XgbjJomuRZ0DyNL69VswpE2yLqcUH4lYxiNq3Jq10+2gu6+
aC1902F0/fj4AG1IK4hzCTbQuAwhCcb1vGNTLSCtOCeduNSP6n5/CTf53QyP
ZTw8Cgf6Udfwasz++GaIFTvY2lDVjzh9iXfzvzYDG4es42pkP9qQeEmS9WqG
tbXnZddU+1HlBd40N8NmKC+cvTMV2odajjH/82doBoMLs+6yir3II7+yjX+o
EYIV3FtUBHoRO7HN53F9I9SdYBExYOxF9XTVwiWFjXCRT6bGc7AHicQGHI8I
bQRhqvXhVp8e9Cudk3T4ZiPM4v/9tOvqRoasn60Zihrgreq/5sLXXYhkoKTK
+bMeytVnbp1+2IV43vzxz/xaDzSa041pml1I5VR3opFPPbjemaxPEOpCYVYv
tPv/qweHx5Rq//pOVPKBfiFatB4sfAfw5gKd6FvWn2e8yXWgUd+QwVDdjhTV
DPVFC2vhY3O97LusdnQhzus4+lUL1e11abtR7aiMZl35aVQtqA3UpC69bEf4
Uk7+WY9auDhLTB7gbkdraoo3i67VghxraVzmizYkx8cm8Li3Bo7opQUacrSi
fWIrBHbmGsgS8/urhmtFdaVcBwJpakB74wlZfq4FeWrubeVaqYaPMYJnGata
0F+dzn6DwWrYnQgd+uvQgvS35S57Z1bDmJuLDE9nMwpZD4r6ZlQNz28FhZdI
NqEXLC99KvKrIHn5xsyXPU3o23BbzOG0Khj9tvfS855GNBDQ/dH2RxXcJTuO
831oRA2dGxPGQVUATvcVPScakOvbJ8xkqypgTTjefuVnPWo+LmJdKlwFWavE
g9UitchUco6aH1MJAb++l1/cqEFHew8/v/S1Eqzue9jnNtSgX6RDhb3+lSBS
ebbvu0MNyviSuKLqVglfv/xOcquuRswMP53njSvB+XTQhVPPqlCuvovuT/5K
uDthPZ9yqQr5BfC43OKshFNRNxIEjlSh2i7jCoZDlTCD28vAUlqJPD9eI+TQ
VsL9Nof2iYOViOWV+F7KGBGu2BpbxWQT0IFoJcesLCLwiSnxHfEloH5u/Xz3
VCJs9Rxp8TMmIAOjBDOTJCLkXG5SdNpHQCn6qrS6EUQQO3SFVk+/Ap3h3GTi
eksEWiJfbu3xClSj/oPfyY0IQ6+3nlymqUA9300I045ECB/OaZBJKUdc9tEd
9NZEYMwQ/8awVYbCXzalCBkQYezhXg3PpjLkdlG2m+M2ESo4RnZXE8pQe+tA
Gb8WEVw9Ih6RNcoQYzD9wBNVIsxqHZBDMXgkb3K4sUeeCIl9FP/Jd6VIXehG
5HVWIvS6Ho2NPlWK2q+9EkhjJgIL37UMndEStPxJ4oYwAxEczJJbC6EEPeAy
jMUOD1cplhwfN4sQt2DX0KUVAjj7REpcTClCJt0inMcXCZAmXq+0qF+EWkUu
8onNEYDD8oSxUe5f9JJJLkVrkgATs3NxUjaFqPtcr47lIAF4AgWyBvkK0RF3
usC+PgJoy+tUBDcUoKPi1VUmPQQoeJVF2ZQqQOqrmee+tBNghp20mtaTj7zT
Nd/caCWAQN5h+oe++chD6EE3azMBPqzbSdVR8tDcml5Tcx0BSr8lKnuE5qFt
f6pzbQ0BFs91apxSyUMdtkVaHVUEMHI78yIyLhep8rr78BEIEMBn4XnrVi6q
Cf2zalxOgHIUHoTbzUHFM/AzFU8AKdrNbKt7OUiU33zUo4QA9xOkiPyMOah3
/2snXDEBglXvdbYVZKNTHLSW4X8JsOlTvK58NBt1ntn/cjWfADIS/xjmCVmI
85NlKMojwIMaXu4fr7KQT+nR4xG5BKhj8rjA3JKJzKIS699mE4DmT7oW3iMT
2UV2kYOzCHBaa9jUTiYTPdWc/5idSQCLOdaXEgMZ6ENSPpGSQYCowMte/X4Z
yCKNNkoS42Z525DAcxno+ddsdo90AtAnqV3/0JqO7JsLFcfSCGAzkWS1IJuO
xEXZGEwx7paiDzD0T0P+tZXBk38IcMn6aUbZ1B9k4TzX641xcnptq6T6HxTi
mzlxCmPWxeMrQYmpyHADKpZSCeB02p9jkzYV5Yb1vSRiPOowq/TA7DcKZGrb
Ssb4RuEt49qSX2huzssiBuOsrQz3k9y/EMvkHZSI8bGLbPERr1OQ/V8CHcLY
y/NVBW1nMto0vnt9CuPp8naK5alklMMe5yeOxdfbp0jfFvgTTfqodTpgXHwt
TEp5Ngl1Na3LdWMs8nFdI+FmEvIMd064ieX3qd7wBVNKIjKXjlBowXiZpSjo
1f5ExPFZYc4Cq4+JDk9O38MfaCxIqZsNq9/M0oqSPSEBGUovcNVh7Pq1CbGI
JiBOezVKKFZ/ZqUUtWTv74i42HXZButPVJ9X3eWxeLQkZnDGBOuftLuxTt/V
eKQd/7bhXg4BigQUu+x+xqEmNjHmZ1i/c+paibdaYpBRvtr3Mkwf7aw+LV7B
0eh7dDwDXSEBlu4oDeTejkLn6U4q3cf0dHI4dpm78xuqJGgcuoLpT0f0Ns2t
sHAUUSNZ21iK9dNyP7OXQRiK7B62ssb0mr78THiiNxTtfBfxG64gQKOSgCx3
VAg6dd+ZK5dIgFn3tnNaJsEo+tr5rEjMDwZsdj8s0Gf0c0lZNBbzT1hUb1Hj
ZX/EcLOItbiBAJ1il9tOEz6iKl4pyekmAtxWZqHdU+ONePB79npi/gwm2nE9
ufkWKS2JdVM6Mf3d6pNraPBEQX452//zc2S1NjqZ6Ijy2U/c88b879ku0c5d
oYl8aHDPM7H5IH1wwHLfidMQM21N/DWDxVvwimVdNwATWdH8PGyeuIRcrbU6
bQM2fRGf968SoELgw/toVi9gyhUQfo8jwruvQjZnAt7B0aIto6N02LxiLjZo
YXoP1WdZXQoYiVC9Niu5j+4TfK4/EqXARoQnT6Qe5+0GQ+VigDu7EBHUhRyN
3l4IhfRLJeznxYggMVChpe36BS6WnaM4SBFhStfkzNRGGFzPtTEVO0WEZxcD
6flWoqBaPoVsrUaEQkaXjnL7BCjg0q5NxuZ33IkjbelCP8B0X06L+ysi+Gin
N0c1/YDc7vKbz5yIoPeVVOcgmQQ3Uz+2+XsTYV5Qo1xqIBkKlru6Z2Kw+0OJ
Nz1YNQ147lipSXQSgdk4P9VjIQ0MniumuA4QYcld59ezmHS4czfXaZJMBLPR
cl1h1ww44Fj7nXmZiM2bNc2djkx4U9U54Xy4EmqyTVUzP+SAHa2Twn79SjhP
lK4QH86BBy0edyZNKyGjc+NyjGIuaH0lrVAssPt1IwT8SLng9FKZRtqlEh5B
9bn/LuTDI52z5//FVQK1Vk6ea6EQ6I/g0/UWKkFhdA/fGwMEGSr+nZBUBTJ/
9RfkUhBstxWfTMqsArHgP4ThDQTHJFXHRUqqgCk+VSFOEw/faOtirNqrYFvb
oJ86i4cWffqTAnurYSAjXRLJlwPV38dZwaIaYm3uEy5gPnlaWbEaqFIDUcYM
aV+GCHCF7fhjUd0aCFfPCfuH9R2fJunWblYDgQKMVtHYvUkNfzfv5V4Dns25
h3Y2iFB8yv2ocFENmMsdMC0+XwX+t3VIb5RqQXi+aONceQ1wnk4lqt+sA9cG
lXfL/2rgIVHq9uD9Ouj8VceSxlULlET6M19t6+Djf33Cgi9rofsH/wvriDqY
793UpBOogw6m7Lji6TooJSp9b3OrhzC/b4qrofVgFJl/45lSE7wS/DT6jbYR
cl5Dh+h/TeC6MH0w41gjsNytMh0KbILrZh1sMycboYy1y053ogmi1nIYOx82
AruKy62om81wNNqu366qEVwKIpy8NpvB0liubvUL9l5CT4OWQSswjX4RsEhu
hnnvtMdE61bYp1dQ9zOvGcIt3lKV37bCwZpZ0y1CM0ycOCEvmdYKOQriDoMj
zeBb4BmK29sG9M5JBV94WqC6QfxeQXobSDeZG7Z9aYFr6/YTgnQdILWUIjkQ
1gqzvTfehPN0wPDEabHM5Fb4WsJ/7ODJDpjdUXCJKGyFMa+am9vGHcAl+OHO
n75W8DnAm96Z1QGMDw62twu0QaUQwd7vfieEuUiXnMTiqGmy4VZyu2BuV5/H
tL8dAswZFjZquoDyy/9u1Gw7dNvTDO0OdMH8sztjMzQdYBkz+5d+fze4+Fge
qhbtgIC5Wlueu91wRf1hx2ObDugOejuqstoNFZdU9K4xdIJl53JZsGIvnHrq
PBp4vQs+m3Z5yuX3Q6mlRpAwrhd8Zs7DWH0/FO1kMrHy9IK70/edyNF+WD6d
dvqQQi88D7F2pmMZAD8FoqjOk17QqsLZDT4agMbr+iaE+l5gkZV78oltEObd
RZmMI/sgYNdXc8J6CJsHs8cvXB2AKi3eA9psI/CUhzlO9uEwsMuMHLXlGYEH
T20XfW2GwexAokCo2AiU+bLYk92GYbNO+nT3uRGIXFu5HR8+DNLXz98zezgC
/NoOmicahyFQ5V6KTc4IPE9QVX2gNAJGZ7+pBd0dhSSFE7s5LNiTw+RWttko
qGz/ezTDPQpLqwKGHZajECdDTuWTHIVPucnPuDxGIZ3Oo8BWZRTQyYKQ+J8Y
Z7JbNzuOgsiJrpHM9VHYIqqr8wyNwj/BI+6tESRgEgpy90skwVmX+JdlP0gw
INV+GjJJ4NV+4r+MNBKsWIhzkopJcPT9VY2AchI4GwoRN9pIcHHG8diNKRII
fJA+pL+HDJ/zevPKlMjQkCNnZGNAht6DT35lqJAhJFnm29IDMog8XYqO1SRj
82dj3dSaDAXczN5u5mSgldors/iGDMOeF24rfSADP++n9NkUMsjfjJvL6CbD
DM2ucOcyGVx/SJNiR8kwGDIhmb5Dhsqdgs6AGTJ45fmyPt1PAaOMlpJnNBRo
c6hTc+OggNcR3CcJCQrIxeg5cpylQP3zzx4cJymgFnctaxwocLSa+9X+8xSg
LxVQDr1GgV/Op43ItyiwEHG4y+Muts/QfxJxjhR4/vibcaAtBfiUFrk/v6FA
semrUyedKGAR7H7Q3Y8CdvsVXH97UGBbNWz1XiwF/gz9Ghb8RIGrMcJTN1Io
wCJjVMAbTIHAtfQBpWwKhDb/c5oNo4DIr2oCRxUFXOceizMnYHFwdwr2t1Bg
9QlflX4yBQqMR36v9FJgrvq/Avs/FNA4uBncNksBVqmIGdF8Cny18PEpX6dA
1UBKX14RBYbL2JwzacfgTVGYHQeeAvZ2x80/Hx0DuYyHi6rVWL6Mc8V3Bceg
4xFni1k9tn9sFief9Bis/NZ4e6kZq5+Cgx1FcQxkLwRIkNqwfGqVmlMvj4G5
5e2ha10UiDHbOW6nMQa9+TiiNXYuWMW/V9YfA8ESmtXbA1h8v3ck2gdj8OdW
uv/GEFZ/QXWofTYG3WueSSajWL75TJFBjmOQn7Fj6EGmAFGjadXAC4u/1IA3
GaPA49FgXQH/MfhwiLi4No715fXdtPGwMQhon96vOYn158AxxvTvY3Dd3u+w
8RQFbiYM/OfwZww4es7KiExTYOZsfNmFgjHsO2LY6gfGAY2PePdVjIGDd/Nw
H8ZyjySc6hvGoOxddVwNxi0b0+0h3WNwyZgWPcPY9nO63D3SGPxov6RFwPZn
F331SWh2DA6a9Js1YfHz/ipOTK6PgbxDM73/BAX0tTdVMnHjsGtdo7+NnX+d
UhL7mmUcrK1OmvJQKBDh8mYLuMahplZFbgbL//whNX06kXHQrj3UbzlMgYEk
+uxGmXH45xP5Kgyrn/v5epavSuNw43ov3UusvgKtny1NVMfhpVBLymonBcqf
3K4UuTUOT7ujLMWx/jzcOSo0YzgOhYLv7tE2USBJIqbH+cU4iH1YOZxNpIB6
qbnCFedxiD9hT/XB9DB5WzSIwXscNpn5Hu7B9CLtkaoeHjEOLdldQ5Q0CjSy
2/wwTRyHHpUBAS1Mfy9+naIRzxiHJ+HHpAzjKZDV8Tc/lzgO9I80/t3G9Kxn
5X7YrXkcrl5/13H5IwVWaK68UO0bhxN030cbMZ+cla4Ra5sfByvBkLbyFxQo
9er6Ms89AY9+xchsXKWAGWfkQr7YBJBk1e9UKVNgT9p9TQ/5Cfj9bTbkhBwF
VHsoe1muTUCCZNR8KebnWtnlV8dtJ6Ak6m7+wAgZnhHzmxZdJ2DvdX6hO21k
OHDP5fjf9xMg9M2T/j6BDNo+tCT1aGy9xo6IYCIZuvpZdR9XT0AiT4myPjZ3
bvj9123XOgFaErgv7tpkKFb6e/9t/wRoq435XQIyxH19aBU3PwGxH16zBnOT
wUI7710v5yRcscxXMG4iQe8uI9Ok0CRcPKUpfb2IBBp/TIPWpCfhEInsWZ9E
AnlGhhj2y5NgFpJvGOpKgs2Ke/laTyehg3npAI8wCZ7ZZlwweTUJf7P+E0ln
IsGgwD6CldskrDCfOdqxNArlbmnNvkGT4Gg9y9BdPgp+Z/ZMlRdOwiu22GcZ
90aB53cSzxnGKZiP1DN7+noEAgy3vquxT0EyP1vqXqMRoKHXltTjm4LO6Bpv
GeURID/aUHh5cgo0zraZntgehj98Grd+G03BscYl1o7Xw3AxeOEN/+8pSHk0
LO5fOAgZl67Sy+ROgToBRX94PghCcxEB59EULNJ4qiYIDcJ+DdVIwzaMb7xx
lvUdgKZ9YTkhW1PAqWV+KF+9H8yczo/TaUyDsR+dDk1cD0g9qu6YvTsNNiHz
hb7QA0taeoQO82mwH1bSZxvsBh+RZ/EJjtNgoLIhLMPZDalNkfcgYRqE67wq
/3h2woboVpPD5jRIjWQZSYi0QXBrYQEleQbwM0HCst5VYFyi9rM+ewbiLi2v
6flVgmhyy5fs0hno5nE23/1MhAK3Sds37TMgXvVQZDG0AgYluE7w0vwDLd6v
rze4EUh5vI7X0/8HNw7/qL5A9wcqjp/5WLFvFqS2nmjEX81BYgzFEz/U52Hu
LHXc0o+EFqtkLL9rzkOoyYFJjXoSKvWJn47VnYf09egaxgNkdHfv+9kI43mw
ZxVh4QggI2+qznKgzTycI6onGAdQEHllnOoaPg9akrU4qs84+j56mOPOxDwE
kZ/8sdCbRs/jfcJ1/81DoV1y+7vP0+ic2QaX9uI80Bm2GlvWTqPWgUGem9vz
4EZ05wiEGbSnJ0XoMusCPNAcDD4v/g+ZNYHMibML4PKh7GDn9CziLbZS2+e7
AMWX/Xcviiwgdq7Nzef+C0Av7+yse2kBMTv4ZnQHL4BF+ej6ZeMFtC2byJ0a
ja33uzqUE7KAehMGF3SzF2Cu633TJM0i+uqnExM3uAB+eQluge2LiOXemTVl
hUUYFpevYTVfRvsLiKmJ5xaB/jH3zz+vl9EOu96Dg5cWQVaRvVc8cBnNNNo0
jN5YhJGAsuSc0mVUe+VXwgezRUC04Ysnj62g91K82l1+iyA0nvalv3YF0WzS
ptiOLoKB/csXrYfXkBmpZ8ljfBG8laW/MImtIXx9xkX/mUUotN6+KnV2DXnG
3m//uboImuz5rZzGa4iq+pfaz7gEDqzcMqXf19Du55d3r51agtUjVJdrx9fR
tugwjufdEqTCtYNqUhvI+GC+luSHJbAnCYe8VNpAxev+3xQDluA2eMy8V99A
rnXKsjrhS7CweP2X7eMNtGUTZuSTugQm83THVOM30GaRVuZ8+xLQPS/tW2bb
RGs6JfeJosvgpOrw1nl8E3n1pA9cPL4MgYlzW/Irm4jF/Ltxgdwy4Eq4jdtp
t5CYzXuj38rLQGJ7aN/Lu4X0AnTuBuksA1n80/N53S2UUUvRNHFbBoan11f/
K9xCT1VYLqy0L8Ph2v4Jz9fbaLmWpvh57zKs0XoJDb/dRp66S+cmhpbh4f3i
JZnP2yjcvPts39QyFAiyUyITt1Glx/fTZTQrsDCslZHXso2EihWl/aVXgODB
H80svoP6Tptyi75bASKn9xX2qh30eEPhoPeHFcgQv9Tl2LyD5kuYcZSAFeB1
j9Fu6tlBe6/9nfrxbQWcjyUaGM3sIBnDI39F0leg6cr+9yTWXeTpVmcg0rsC
oWypTN36u0is8sxXYblVKHy3H/9vYBfZ6LMeEupfhfT06pn7TVT0IFk2QnRk
FRa2RiUXO6jozoaWsOTYKhB2pO949FPRuUh/Bbn5VdgZEkl5P0lF+4YYjS7u
XQM7sldr8h4afMTjfQlG0msw2j9RNXWMBk+w3zwd4roGb8I0yx1u0uC5QskG
e3nXITbV7mxDIg0+7V7cz6XXG7AcciPgzO09eP0LHurVJZtwfjHPApH24DPv
Wwud296CB49taT9b0OLXGVVwhXd24ANXwZ2gJVq8bouyIm/4LljkShqdeYXD
MyozlRVH70JYWa37C3scvuxH703jhF3IdBaI+umIw8u9djKPTNuFExOvyjlc
cXgW/vxPXESMn2pVr73D4WuenSQdWdyFV7ZfGfO/4vCX6CUDWTSocGyPXv3p
vzj8+sv1Y2k6VJhfeZj3rBiHT++rStTUp4JyEznhRykOz5f+uOjTAypo89//
yF6Bw2/f+THG6ESFu4VM/st1OHx+Av8FuiQqpNxnSsodwOGfH5irSvpNhZoh
nol/Qzi8mGOp7tVMbP+0MXmxURw+9IaJhXcxFUQPxA58HcPhbRciQnBtVAj9
71HU6zkcXuqeJV9CNxV8FXaFMhdw+BGCUsqVQSq05p3NnlzC4bXDu0vfTFJh
97DTgtE6Dk9Pm3xdcI4KujKLsSGbODyycmzHL1PhotOiQf02Du/QcdXUbJMK
HqezePZRcfj//z8JekeeTl/Ysxf/f5vqJyA=
          "]]}, Annotation[#, "Charting`Private`Tag$10752#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwtmXk01P/3x60huywtCNkrIRLFixb7FoWI0EIq9ZElWZJKtEhCKaGUbJEl
e65lxj72xr7PjLGWfWYs853fOb+/3udxzuu87n3f5/Pe1/t9XtLud2yusTAx
MdUyMzH931MFic7Q6XQ4L3JjVpeZTf8O9UAklUYH8k5cqgGdVf9noZr88iod
xK3WXc5useqrK1q4k2bpcDODvmJOZdXXEnwy0NpLhy++Po8vLbLq608uNifm
0SHwnTl7yDirvs0zXPbRy3T478/Xq7U1rPoB7U9ue1Rtg9PTQ/dtw1n1e3q4
Z2rctkDnbMtuJwqLvkT1HWEt8U34c+Sf3ns/Fv1fNzHs/MM0kDYSMtm9yKzv
+lLtX384FbAfcvw77Zn1KbFBkYAooFW4192+lEl/SrxmxlCHAvfJ6Sf++8Wk
j0/fYdGmQQHiU1neqAIm/cLyN4LDShSAgkdPCnKY9L0nvn+g7aIA7a2ezlwq
k/6kWk+OJnkddG5kG69FMum3dRzqzI5ZBxrTYpmePZN+paPP0aMv1oH0MsOM
9zyTfjahJL786Tp4Kyod6Ldm0o+knHJserAOlXLDUZ6mTPqnpS5Okq6uA87M
7uE1XSb90jtPV6W114FXqUi2S4ZJP41vZM/78TXoeNvAHomno1gnxKE9tAbt
ehpiIe10FJ6RutKPX4PX4t0yNxvpyP3UlfZ9rWswJDdHViunIxl/8pOU4jXI
MmK96fmJjr4ML/1Nf7EGBTIdGV7udJSaw1H/S3MNTNM0fhqRtlEM1bPQTnUN
9B6+fKEzso3CDJtT15UZ8QzdJWXx28h17GWQttQaSHLx7h7EbqP9wkJqv3eu
QZw9QQD/dRslB4knYUZXQdXLQnvedRslmar5dEetQmp+jgdT5xaS5TZt7niy
CmcIqEe/cQtlt7jLtD1chXVs/nd/2ELl5nFdjX6roFLIqVL7Ywv1W66rV7mt
wubnS5fwUVtI1Pb3cob2KmRRawmjaAu9djLxC51egWvCeSJ/vmwiUXF3XBBh
BeTvDl1KeL+JkoceyAWOrkDrBO9e0+hNlOuc8+fenxV4m3UlOjJwE7Ve5j92
o2YFlk2wIS5Wm4jz6p8128QV+Nlzc9GOsoHCb7ndVzJZgTd7O4yK9TbQSLRL
UvnpFeh/9o/judoG0sl3qjbTWwE/df8CE9kNtLR6gdP76Aok0t4rv+TaQG4P
Td8XSKxAnmerw55uGtKPPVp6YmkZet+Z/FBzp6HtEnaKxcdl+HvwgLfOHSpy
HGARH41fBp+c0zMnL1NR8SYd3Y1ZhpOzhxTlrajI24D2LPbpMmyGyunmqFDR
cPOCWO+dZfgxn78rfI6CKod7tVzPLEO49/tklSsUFMSaFeAzvwQjzBt5zifW
kXeiyw5X8hL49FooqSmtI/cju+ItJpfglYTn9rToOjJ1Ci5Q7F+C/PpbWtxL
a2h3oeX8CGYJiv3fW3F+X0NF7svuZklL0GTeKd/JvYYWak5aypotQUHmjfRW
WEET9otDgoZLgP5xHxTIWkF/5r/dpOsvwdqd9LuacSuocg9/1MCxJbje6k6S
9VxBL/4br4uRWYLy/a9U4/lWkKJ0hPYWdRFWrpaOZl1YRm5h7bL4jEXw9Llv
a966iOz6U/SG0xYhYnl0TrlwEZmq33UgJC/Cq/ojwrOJi0iDIPByKW4Rsuto
YgIei4jT2GaZ79EiZJ3BB83T/6Fc/j81RhcXQWOyw2nr4D+0kTzgUsa1CJu4
ovmewTkU/5v4PsnrHxhEdMscPkVE5aOKPDkyC4CWY4I4NcpR8EnmHx92L8Cj
Ym/lIJlSpJvYbxHFtwArCdo8wkLFqNrm+evrtHmoQ6NOkyv5qAE7KyTdNQ/R
r9IuGseloZ7s3D0Jj+bBkiPZnJcvERYCNBTCxubgZedJxqiqZfiOp9EbPwfe
tcH6gx518J8a0dO5dQ48zHrNF2wwsDITn6VTOgeiTbrd7nL1sOG8fnj19RxU
3N7rz13RBJxnyjW80BwkbVcNDNl0wAEB/VPnk2fh3P1zz27k4SFadfyB19tZ
wJ/jK/YU7QWKdXhhWOQsfGgMFr4b3AutbzCyP3xmoaYs5embs33gu8uEY4fR
LJi9vGpCbemHelGb1pK/M7BbVHfVMWMIVLWW2doIM7B/nhRiSh+CD/ZxuoT+
GRj1zlZQuzAMd97jcwUwM3Bh1fXZ+NYw7N7r9ObG+xmQlfXYX3NqFLwkrtrt
M5iBq9LjREncGPTosr9WOzYDhmejmnX+jYGeS3qD0cEZYEuXTu8QGoddKeTj
viIzwOXXWe1lNw6VUrf34aangd0y1ca5dxzkDfjOT45MA2twbYzF2jjEuOW9
pHZPw2BfjGuZ8ARc+7K4JVc1DcUZBYts1hPAJ+s/Fho7DWtPzhf7VU/A/TNi
e+KfTUOYVLmm+eAETFwtPZcdPA0Lh16bf16dgJJvtNre69PwNLJGrklxElwV
Hn5TPTENmCTXXomoSWg2khoxVJ2G9B8taD1lEjQ8a0Sd5aYhEkN+bFs8CVyZ
rJFR/NPgMeoj8m58EgqUI70mJsmgkHDnwSV1AuzvdC072E8GG+EO/I6zBHgZ
oM3p10aGtFm5X7r2BLiGmfnGUUaGx1yblbYPCLDbxWL8UDQZLMJMd2hWEOAJ
m7yq/2My7BXy8rRvJsBi1nYo47CDDx52Mjz9BGhezxO3uUIGYQ9y+ZFVAoS8
EXIIOE6GZYpgq58iEWa0ZtOrD5Nh5NGUgoEGEexG6la5DpChU/uf5TdEBNWD
fm+TeMnwucbV+cQFIiR1WkwQWchA9TOjeF8mAtd9ebUjlCnoXj6D1btBhAlM
b1vNxBRY9bfcKg4igtXNnxLcfVMQYOi8w/UJESoFo26dx02Bi/SwVeZLIsS7
6OycKpkCblxsiGQSEVjYd11U/TEFPxMalMzTiOCdPfs98MsUkGxrRSSyiGBM
STrL82oKcjbiDXOKifAr2S/uQvgU1BizON6qJILMWcvJ5IApoO3QMu2uIUL0
rLw6+dYUvNqk0sfribDxhh6m5j4FBLOoq4ktRPA83tf+wH4Kos2fu9HaidAz
8lMSYz4F8rmUMfYeIhg8jbrNe2oKBokiuMpeIuQedK+005qCXVMOAlKDRNjX
pcOdemgKiAou8aojRIi8v8txWnoKXiz2Gv4dI8KK5FyGutgUfNgK5XeeJIIb
FrMexDMFuZdZBx4QidB285MhlnkKEiq3YkymiKAj5B/Pt06C621jks1kInwv
tSTYz5FA8tjs7a1pIghfVjj6eZwEpA97PAkzRHjEzhQ+gyeBv+ie9YezRFjI
7us42koC/b/abJ0MdrTJ3x9SQwJiivv9PgY3UKK864tJ0H2Q9eQ7BmukuP/m
zyGBQA2nFh+DU8+e4Ln4mQRF6Z3Weoz9eed2OX1JIIH6fem7ioz4D2LnMmdf
kCA4RyQIx8iXdBxL0XhEAq8be+1VSESwHf1kFOpPArMvo2QzAhGqn/onNNwk
QcojS2GFCSIcOmRFFHAjga/Ew8rqUSIkdiloONqR4J1fbt2eYSLsCGR6nGZG
ArsKDe6jA0QYxeZLHTtGAsPAtcHMbiIE21LPHD9EAiOFkVSTDiLsHte/oSND
gv11egtFrUSw3mzP1+MjwT2e0bl/GCLMRYnh9dlIQAkxYK6rZugjdpl2ikaE
zGf2V68w/FKtvnDKiJH3neGT3YKFRLhUrelhMkQENUmBE9K5RKBYhLww6yIC
zS0+kzmT0Q83eHqsqohw6oCB8fFkRr1SlK85JBBBwI131+sIIpw87BPlyPC1
bz6XnnYYEfrKy35cCifCw6IbP8sCGevwxmuu3kTgLM1YR7cY+vF4PLthSAS+
/ICMe1ZEcA9My3ywRgCW/HOJTPxE2N4xiwueI4A9m8aFizuI8CFOfSl0ggAm
506wx24RoCuvRudxGwHkBe49/jZLgNOk0ZYX6QRISzgQdrWeALK24gtJdgQQ
HPiVU+5PAOKheHVgzKXYlonbxvWToBz6bYGcPQlMF6aY0somwbv9V5bQ50lw
cHl2bSZnEij/4WWuv5iEm4uNFQZvJ2FnidguXtdJENJ9NSN1eRJUDT4sO3JN
wvjXucd8KxMQdCGlaM1pAlJa7b1AZAIEQzOPqTCPw/MuJvM08zGIKFZsFFgf
g+LeUw12aAxoC98vLs+NAamrX5BXfQwmLqcHl/aNwRKepTJcbAwKDNJqT/0c
A7m81aTD2FGwYf9kaX95DEp59krsWB4BhT3SOKagUcjoihXKtBuGQ8f+Hvq2
PAQvmljSqowH4LrKw4dlw0NwEYXJ3TkyACny/F24hiGQUk3K0BAdACGxIwFr
H4dAvExYkj7ZD+vr3jVGZ4bANLM1Pi6sH2rLFi7MxA1CwmJ2+p/ffeCguxB6
5NgA3GG98lXZpBdiNUM7T0sNwPcvWYe/qPdCy2E+WYedA5Anp9qgKt4LepIq
TWEj/aBYtH7m7V88HKDf3tUV0Q/iDrU7vN/hYaF6/rtvbx90/BFnCZ39A4/P
zHeU3e+FB2eZPvF+64Fa4zkrjSu9UCLWxdzwpgeYLGbbci16QaV3JishtAeC
L0y3psn0Anhv/7rv0AP+14mNr1rx4Lj6WdSItwc8I4er3aTwIJevFsIR1A3m
rbifXI09cNL3sMfY9S543tF65ElBD7wXSS44b9cFjT0tudtJPRAnVm0wcrYL
zg435Sz/1wO/8dFManJdoLeAzRje1wOa57Q6ugmdoCpQlZp/pxt0VcVH2Tw7
QeR8bsxFsS6QObzqUhPSAQXyL8rPsnaBx44A2ZK7HWBN9SCo/e0E0tAryaor
HfA8Wfr4zoZOYDtwIIJu0gHb5LjRcv9OGDT6S7EU6wBSSJCKOL4D/jPlF1Tx
agdvqzfvfyu1Q4FeQDidioOMFdO5eOZ2cNl99QofAQcTiWz63v1tEKHuu3ay
DQd2hIApyag2eL18cJDyBQco0OVYGBkHWbT049MWOBBIO9hz6nsroN9v9iVm
tkLBGpa/UbYZyqxl7T4FtEB01pdaPWoTdAeu31660gI3XR76/cI1QWbL83c3
rFtAtv744Bf/JngdcaPot1ILJMRnp4c0NsKO1E4F2nAzPNB4o3v0VgPkuJTX
5Zg3gx359r9M/QborPEPEz3RDEeTTNOkRBpAKOZrRqpSM8yxsnHxVdXD5c82
PSIczeDS7d9D5q+HFKmbrWF1TXDK59LN5EIMSOUTpE6fagJJeW1JkUgMFHMr
5X5Xb4KNfpHOF5cw0ECKED54oAmKDNqPBbJjYJB7J3c0WxPIC55iOW9fB2SW
X9QaRp47fyokcm3UwLwNngln1wjfBomvpp9UwbNgRMZFNsBAsGjKp6NVkLij
biQzpAH4JI1+npv4DR+Cc04k+zSAv2tGVxn6DRn8byfbLzWAIdFL7DmtAirO
G/NcUG8A8sLfVOW7ZXCRUsXZN14P4jFSBSOSZbB8XMxfva8erNXO1cXiSuGa
4hu9r231UHqvgEhTLgXpW5OpuIp6iKL4KrcQi8FU0vKv5rt6UGahFd50KoI4
+YHdVjb14JKmjN2/swikixbGxUzrIfaME767tBCO89nwrxvUAy2iknJCtBAs
lcQvUdTqoYX7oS5PZz70hXXLse+qhz5lzuiLr3KheFh0S6cfC/q3b/ysmfkB
+2f7LK50YSEjr7lLyfgH/L3hL/W5BQuBGq/EaCw5UEXyEHGuwsJePaHPH+5n
goxiaFPPVyw4nxMvGrzyFfYOGKyV+GFhbnlV2w+TBlfMudos7mIhOKEd+OTS
YLXe/sW6FxaSBsNbDEif4Y3VjcgIVywUtXRhrTqTodTYxeKNORZ6BCI6w2M/
wZzmmCDWCAvLF7SHf9kmQVqbrxvPaSyoj6Ws7MMnwlGeGb8/2ljIW7l1gDwQ
B7THLmesFbHQpi11ZF/SW/DtPK+2XxYLC6HdOpbOsUA1N7ZllsKCg5DvV094
DeVP3HnoYliwPcHHwtz0FO54VaiPcmIhFuu7x8PsMSRUPEg3ZMdCh9WgKg4X
BoN117aqmbHwsdEa1L8FQNNh4cMLNAyE9Sj27KuzAEmR2kdKCxg4xD/sxX5Y
A03uc9yUn8UAfjE8RYDigHoF7/FokTEQ9Naw+abGXaQs86whegID26GBH1OO
+CHz9f7L+FHGfl45t7qVHyAqv7On6jAG6qSinn0SCEfjzjbf9vVh4EmCzF2t
6CdISfZjQ84fDBjyVDp0cj9D/Co1mtbdGGhcX1Bi53iJvkhvd+LaMODhoXy9
eDsWxYfwCKfVY8BYJsDxsW4cci/7kozFYEBxuM7SOjgeaYs7HKHVYmDGxllr
hvoOmQy4GSQCBpp5sw6WHE9En6w281mrMJDduLb/ScAHVLFhwBFWiYFbejGc
kqtJqHh5Sy+3DAMW1KHNmaPJSMZFVdC1FAMqRUqLJT4pyFws4vuBEgxEalX4
1DqkovggZhrlFwYoceNzipRUNGxayDRWhAHPJQ6P1+8+o5T48sI+Rt/3WamM
rx77griyznBPFjDy/3He6RL+C9pkekXfzsdA2c6gP7V+aWhQeTjyEINTD4t0
58l8RSSlHP5LPzEQYZ3XkdT+FZV+4tZMzcPA7XsmbVHB39BfQ8e/lFwMnE+Y
bPFXSkc5G1ya1xl8oiyk6Qo+Hdk9T9mc+oEBmSGxBuvH35FjUsHJUAZz0fMx
uqoZKOP9/Kwig/9Jm9cqD2egYxG8zOQcDPSeIYHY80zktTDuU8HgKo+w32xa
WcgIzI+nMfjr870Vi5NZCHv4lHEKg1/8KCodiclGbe8aE/MY7NNhWdyim4Ns
r1MO9DDYYZlcWDqTg8z+bgzzMOIh0cf53979QL72/HCRwfLaEnmxZ3KRrm9Y
VTmDeS6V5DxczEVeP3K7jzDeZzn0XNat5DzUNrJzrZTB8x2r3TlyP1GXtpiE
HaMerhO1NgeCfyIOBQ99Dka9epZfdyZ2/UTvFFLsWxlsxO5sLaCUj3KKfR2/
MepbLqrcHvEwH3Uq5+rHMvRQUVy32PqTj7TfybC8Zej1RRvTeu9QAdrIKUv4
ztBTxOyN2Ux4ATqXdHOtnaH35u2DJr1HChHbC5t1J4Y/7jykNFhEFKKX1k2R
wPDPRAzWEDNUiPbrjWCPVWCgqfDymfyoIsTeKCLryvDfSeyhOoWxInTOkqop
VI2Bn3iqQfKxX+h67GZPbw0GEqhv0YvJX4gYFJ30CYuBndxuVcw6xYhofrH4
UwMGQsRVdO/HFKOwlQqU34SBq6hR55puCQrYff2JEKNf+qzjywbfliAZCTc1
1w4MmLm7H7eZKUEJzY5qNV0YUH+6qYnelSLAWfP97sUAvVlVbc9iGbJuiQn6
yOhnn6GtvNdG5aj5+VV6OBEDpPlmlR3J5ag1Jj8lhNH/rQLXDi2bVqDq/wL3
5TDmxQe7RAXc10rEmrRkOr+BAc0JZslHDoDSx9V4N/ZgQaXcflE1E1DKhQ+E
ZgksyMf+wIxRAXW/+bAzWxoL3J9zNFMtqhGL8+sjSUpY2LR2GKIvVKPv4dec
DHSwMPwzTwnUapE5+6ThWxcsDCQ57hJzrEVL/FcJ165gAR/JvuUdXotc2hYi
jT0Z89PVqUOyuxYdv2qF1/XBQpUAR0Cobx3yEBLhI0dgIeWuC0a3BIOEWDw8
tAoZ8/wSV278KAaNqTx+wVmGhffGRe/mObCoMDvCf5pxXsRI7bz5yQGLhpX3
xw40YyGs45fgFhWLCm6T/AMnseCmynu58mQDcqMcwKSL1cOBfxVUndomVMg3
O5f+oh6CcaefrMw3Id9tUz3BuHrAZ7Xw5e5pRiy/T8S/SqqH59cGD0j/14wu
3M04XfmjHv4N0Cw4pFqQ4kyx+mJHPVRhtb90h7SiJLZ707/2NoDjxxLTW9rt
6BzTA8GYigYouo/+yF1rR70Hf8YfrWec93YNl0dj2pFjpGY6uaMBagR6fW3I
7UjdYdj5GakBhE8HWSWZdaAz3eS6BKFGCCr9EBhO60DhNq9tabcbwSStH2fp
0IXIVXeFK9Wa4N/T3OvY211I9Cre1lKvCd57PqafeNyFUuLCBBdNm4B8+LCa
Um4XIlBTaR5XmyCyNCyOla0bHdnHqbTvfRM04hScSvO60dlP+RJxLM1gRPEj
S3P8Qbgstudlk81w1kKIdfVXL2PestzbjW+FaDeuRWpTL8o+3rX1htgKfX5M
o9vDvUiYckdhz2oreCUvlHPu6EO2GtFm1sI4iP7b7CNu14fsi00i3Gxx0Pfm
8cTptT5UCRNavD048MKv1MQeG0BBZ9NqfEcZ35WXe8NUS4bQSTU23rnoDoiY
O4lIrUNoT46pvHhiB4QGftn6ODGEpoSprbZpHeD99vYDDr5h1DnFWt5f0gGW
Day+I1eHUelsDR6NdwDfEVWPl0IjqEGUrnlPsxOityMtyLdH0Tzs3O8x2QkN
lhK81kLjSK5XjJ3tQjfMS4uEdn2YRPKOzSdmrPHg53vQ7bUoCWETnNYc4vqh
d0jA5nojGVl8e3TKwH8YXANPTnGYz6KVi08STuWNQd1Bred17AuonMCZf/zf
BMhzVZK/Gv9Dj+psBi0ViCBRefMse+QiGpMJsRL1mgImGkumz8QSkltMqE9e
nob1c79dsHIr6Gmp3jbvlTkY1Li8T+7JKgqLFXU+K/oX7toLCMoMraGUnvyZ
dcI/2BNHcGCToCCSEQuL/aElyHVK/b58n4rqyi9JRLxdBnvdh8aNv2loQSDL
kpu0Avkut2V0NjfQttG6m4nGGlB2nmYtu7CFwizDSlk+r4NN54ljEu+3keWB
0t8DaxTYeYK7pvLTNrK97DPcvUmBmq8DZpfSthFZF4RwLFRQvR/o9jF3G6Vo
Jf8GPirw7S95uQe7jfYF2Qqmy1Oh6Zb6pMjSNmrSpL7zt6OCPqdSDJ85HVWT
K93ki6mM/2HK3txzdCT4dW5LupIKeYMN3yzs6ehg5JkciVoqSOZdr3jpTkfS
6uxIpI0Kmxe+knYG0tHJUKo2O4kKJWn7dTnS6Whlt/cdsggNvHn/NqRn09HG
iIIMcR8N5AOqbAzzGevHfInj0jSIM3X2fFpJR0GK1z8NHqaBz+KHt6zddJRz
ltrefpYGyk5ekml9dNTXmsKGM6PBOEY789QIHS3UiJo0n6OB9fu+qkfTdCS/
U5QZ60wDTpYME+m/dNT43tu39goN4GZAT/UKHZ3gOb4ON2jg/8fwsiuNjpwK
HaN+36HB/98Hoth/VcoVfjT4H8+or9Q=
          "]]}, Annotation[#, "Charting`Private`Tag$10752#2"]& ]}}, {}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
     Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{-2, 2}, {-2.5006063834613688`, 2.5006063834613688`}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"focal position inward denting\"", 
       "\"focal position for outward denting\""}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.794314945800291*^9, {3.7943150310646667`*^9, 3.794315048506762*^9}, 
   3.7943151072098074`*^9, 3.794315153286956*^9, 3.7943152075483303`*^9, 
   3.7943152385253363`*^9, 3.794315275370985*^9, {3.7943155721302013`*^9, 
   3.7943155761584516`*^9}, 3.794315668786056*^9, {3.7943157526510787`*^9, 
   3.7943157701853943`*^9}, {3.794315824457923*^9, 3.7943158628430786`*^9}, {
   3.794315916259015*^9, 3.7943159228369756`*^9}, 3.7945684773567142`*^9, 
   3.7945689948613462`*^9, {3.7946346127647614`*^9, 3.794634663809724*^9}, 
   3.7946347063193965`*^9, {3.7946347526574287`*^9, 3.7946347820448813`*^9}, {
   3.794634895506701*^9, 3.7946349150137067`*^9}, 3.794634946553169*^9, 
   3.7946383703881855`*^9, {3.794638406513837*^9, 3.794638433036111*^9}, 
   3.794638516239507*^9, {3.794641270207844*^9, 3.7946413318098054`*^9}, {
   3.7946414783608007`*^9, 3.7946415054439983`*^9}, {3.7946417486042614`*^9, 
   3.794641763332284*^9}, {3.7946418657845855`*^9, 3.794641886680495*^9}, 
   3.79464194338577*^9, 3.7946423317964315`*^9, 3.794724727263647*^9, 
   3.79472632915077*^9, {3.7947264047106733`*^9, 3.794726427639537*^9}, 
   3.794726490201174*^9, 3.794730912925059*^9, 3.7947329522013664`*^9, {
   3.794733156492443*^9, 3.7947331676599183`*^9}, {3.7947332394921923`*^9, 
   3.79473327410503*^9}, 3.7948071617754903`*^9, 3.794807258345866*^9, 
   3.7948072931551332`*^9, 3.795242367411996*^9, 3.7952424583155403`*^9, 
   3.7952425424929047`*^9, 3.795242583699671*^9, 3.7952437027533703`*^9, 
   3.795244147365472*^9, {3.7952442871992188`*^9, 3.7952443120813293`*^9}, {
   3.795244387945779*^9, 3.7952444028510475`*^9}, {3.7952444796953225`*^9, 
   3.79524450561207*^9}, 3.7952448497200675`*^9, {3.795244890200576*^9, 
   3.795244915584087*^9}, 3.795244957964657*^9, 3.795246570176077*^9, 
   3.7952466194782915`*^9, 3.795246676978777*^9, {3.795249293874092*^9, 
   3.795249330772705*^9}, 3.795249548533166*^9, {3.795249731748011*^9, 
   3.79524975746432*^9}, 
   3.795250098001924*^9},ExpressionUUID->"b3a16eeb-4110-4e6c-a506-\
9b77641b408a"],

Cell[BoxData["\<\"new beamwaist w0'\"\>"], "Output",
 CellChangeTimes->{
  3.794314945800291*^9, {3.7943150310646667`*^9, 3.794315048506762*^9}, 
   3.7943151072098074`*^9, 3.794315153286956*^9, 3.7943152075483303`*^9, 
   3.7943152385253363`*^9, 3.794315275370985*^9, {3.7943155721302013`*^9, 
   3.7943155761584516`*^9}, 3.794315668786056*^9, {3.7943157526510787`*^9, 
   3.7943157701853943`*^9}, {3.794315824457923*^9, 3.7943158628430786`*^9}, {
   3.794315916259015*^9, 3.7943159228369756`*^9}, 3.7945684773567142`*^9, 
   3.7945689948613462`*^9, {3.7946346127647614`*^9, 3.794634663809724*^9}, 
   3.7946347063193965`*^9, {3.7946347526574287`*^9, 3.7946347820448813`*^9}, {
   3.794634895506701*^9, 3.7946349150137067`*^9}, 3.794634946553169*^9, 
   3.7946383703881855`*^9, {3.794638406513837*^9, 3.794638433036111*^9}, 
   3.794638516239507*^9, {3.794641270207844*^9, 3.7946413318098054`*^9}, {
   3.7946414783608007`*^9, 3.7946415054439983`*^9}, {3.7946417486042614`*^9, 
   3.794641763332284*^9}, {3.7946418657845855`*^9, 3.794641886680495*^9}, 
   3.79464194338577*^9, 3.7946423317964315`*^9, 3.794724727263647*^9, 
   3.79472632915077*^9, {3.7947264047106733`*^9, 3.794726427639537*^9}, 
   3.794726490201174*^9, 3.794730912925059*^9, 3.7947329522013664`*^9, {
   3.794733156492443*^9, 3.7947331676599183`*^9}, {3.7947332394921923`*^9, 
   3.79473327410503*^9}, 3.7948071617754903`*^9, 3.794807258345866*^9, 
   3.7948072931551332`*^9, 3.795242367411996*^9, 3.7952424583155403`*^9, 
   3.7952425424929047`*^9, 3.795242583699671*^9, 3.7952437027533703`*^9, 
   3.795244147365472*^9, {3.7952442871992188`*^9, 3.7952443120813293`*^9}, {
   3.795244387945779*^9, 3.7952444028510475`*^9}, {3.7952444796953225`*^9, 
   3.79524450561207*^9}, 3.7952448497200675`*^9, {3.795244890200576*^9, 
   3.795244915584087*^9}, 3.795244957964657*^9, 3.795246570176077*^9, 
   3.7952466194782915`*^9, 3.795246676978777*^9, {3.795249293874092*^9, 
   3.795249330772705*^9}, 3.795249548533166*^9, {3.795249731748011*^9, 
   3.79524975746432*^9}, 
   3.7952500980175056`*^9},ExpressionUUID->"08c2132c-986e-4f37-9cac-\
316136e6ab65"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwtmXk0Ve/bxpUGUZJSX2VKKVSiRKiuotJgVhrIHBXHHCKzlCiS4VSIlJBQ
KITHmDmRkEiGJHEGlKFy3v1b6/1rr8/az9rPfu7ruu57r7XXWzoanJ/PxcUV
PY+L639XOawe4XA4ZOjbxTQx/mA4zmy4MTPLIXkHJEVXLgtGTq7CpolfHGKz
IBmLlwZjh7S25dBPDrmi4H+LsSQYyiuCuxo7OKTeNu1o4cJg7B9g19/L5pDZ
xARZ/AuCwfWmZzvNOOTHmr3VfKNB8GgOptmWzhGVfz3s5NogtLXxjZRb/CNW
neCdcg+CaJnjKmWRv+TCTfdC5Y1ByLerWri8Z5Ys2rZXxrMxEObhCqxPgTNE
evuzkD3nAzEd5X2DYJrMdoU7Fv0NQAr/F2F632/iPhn+sC8gAPHHFFw+hP4i
2ciyHZrzR6C9hafM0UnSLBme/sPLH97cGR4uY+OkJiTso1q5Hyz8mze2p7GJ
x8XxM8lhvogp+UaPv8Qi/6nnf2Jo+qCoV3pppiSD9H7/F9vX6o0NAvvVTyT+
JNvD8xnzrL3wUvbGpf6BYcLzWz1Sq9oTvdUvJJSUhkgtM8bXRdID37bG7CCv
BoiAhYyoC/0yVvimK8nN6yO9x4X/zZt0xVYl5tYnE91kI23rdKavC2zk/PwK
e7oJa6PcwnueLni4aXlrU003mT9qdeO6iwsE12z3+P2gmzSJzC20t3HB1JRD
uebBbqJ0P9fBUMcFFYWMkyPRn4nXltbrSWIuOL2X4btdqYtI1UqtO1PujKCD
Y+8LPTvIvBqHUk8BZ1QcGdVVtOoghy/5JR3icwaX9s93WdodhPlOZ/fqRc64
evJHY4pkB/k2+exhxR8nuNt8q73V2E52P/b/eeS7Ey7c6CmzkGgnl+fzOQsQ
J2g1NuUsqW0j7IvSgbnOTrj5vnF78Ms2ctmqe8d8mhNq2xqy5uLbyKpyCYOT
F5xwqKcuc8K5jSQEC07ymDlhH6M6rWddG8npXGefquUEeYHSpBeOH4hi9hdb
Iu0EoRNZkWfWtJJc04jUzXWOeLkprOgQdysxtE9CcLkj9GZsBxWYLcRSdqL3
R6Ejbiau381b00K+nPM1fZ/hiLnh6N4i9xZi6pFqz3fLEUM+3nIi7e+JXXZu
srqhIxx079BLZJoJ3wgz9u+QA9Imj43GzGsmygFpBbe+OqD/3oL9Dp/ekUZL
r80yXQ4wGvT4Lhb6jpwRqBTya3IArpgq+Q83kYvhLUZpeQ4QSNnSpv60kWiU
KgbMBDvg5e/q5bUb68n4L4XY3m0OuJ3xqGLfTB3JP1nZaSHtADtTv8v5TXWk
5mp9OVvSARvf7v78yL2OpFkql6j+54DYmGepPrW1JEl0SZsLtwO8FO/s3Wlf
Q/aI9Z273k2D0TCNlb6/hpzqazIf6aBhZ/yxFAmhGvLUSWfA+AMNo9wLlvCX
viXxss8SLtXTYPrBvW14+VvCe6/cZnchDeouJnaJuVVE86TYseR7NIhtUhET
ulFFFB00X47H0PDnk1BLmEkVETDIuGwYRUPegWalKwuriJyC+SGNMBo2rVCf
f+JUJeEqZIX1+NAwv1osv35LJZl+qKr/zIuGXs8/tge4KklT7PWvNzxooH/N
a5JLryBHAsujXZ1p4M3ZfG/Jn3LyZsruE48NDUNWC7T8m8uJ1RUXNyMrGirX
9M39Tikna/azjuSZ03DV7771oFY5+bd1f3uSMQ2nd3qsMV5fTkYzBZ5tP0PD
ru+G9S2/ygiv/En2OyMaGDrL5EliGVkdaMQLAxrq54/073ItI65vpGeW69Hw
9NXbmEzNMsLuvHeHrU1D2R6uqZ19hAjKPJ4aOkrDk8/fbv0ILiVZiYIb4tVp
6Lq6+mHCzlJS8kc9ZPkBGvjFNHP0+0vIW+Wgljugwd08rbUQJaTF/YRO5R4a
MuZ9GqAxiom+8t9YFzUavjxa8mt9QjHxO9f3S16VhsPfLq25OfuGSDIzN35W
psEr5IH0vvQ3ZO5oKV+NEg1ZmxtVxk+9IZq/LZUrdtHQX/v3WOqiN2QbQym3
UZGGNZe2mZzNLyJPWjtvDu2kQYvPlMZvXUQkx3/ULafYP/O2b4VgEanU5b96
ZAelnzaJcC8vJOYZo5mRCjQMM5hJsk6F5FeQ3IVheRpEIiVefhErJAIy/oW6
FOsp6FdGNRUQ44LIzLfbaQhuDWg7fLWAnJMV1NamuMD15bdZ2QKie6YwdUCO
8tuqgd9Zn14T8SX7qkMplni1ksfqxmuSzDybB4pPnDoovEb5NckrbvJbSHHo
tJtsw7dX5IPkqZ2ft9FQeu+Jml/0K+LWW9RVRvG4arvWTo1XZKKSBLyieFP3
ItPv7HyyoXS7YjHFZ32UHR8k5RP/vo5/LRTfFrvgr6ubT6ScboxMUVxB6He4
5/LI5sFVi+So/X6b1z16nZlHhqcNTdwolp0/m2tnnEce5YnP1FNsmiJbLc6b
R/5zOTmsQJ0v6qBx+4eCXGI88nFXOsVvv4V9v26bS/r2XRuTp+ozG1I8rbY6
l9hyH19XR7Gc9NgSVtVLYnxEsMGZqq9lnei6x64vya4ndTxbqPo38PntXdry
glQOtZ1rpvThep6tU+b3gvz8u+ZWEaWnos5XMze5F+RhiozXK0rv+MgDgd1h
OUSpk5R8pfzxXsHlbqRqDuEN0N+6XIUGntRDR0Nbs4nq4sYbOpSfOmV5bp+5
lUX00srUuPbSsJ92Mad85DnRVbLNcNlHQ1p2favMkeek/6Gu8m/Kr1cUb62Z
nZ9JNpTZdctrUP5yZ6hYmj8jfJWjS4cP0nCsUNekviSD6BseC885TMPafYLJ
9z3TiXq2ddrlYzQE+rtWzm9PI70775xz0aLhZ0Xbt0s704hQ65Uofx0aijXj
ZNUYqUSKJzKzhcrfOX2RvM9Wj8mFMM1ZTRPKLxO/VC5XpZDVAyVC1aZUvmOb
Cb9UChkcVrcwtKDO/zmw4cBQMmnZofE6heoPeQ2t1botiURsLP3pKhca2gRC
WgKjEkjBEe5wkcs0TJxU6ck3jCecz15zuzxp2PH14eS69nska6tMSYIvDdmT
9huGu6LJJz1zxoFwGt6pSGxfF3+XcLJsIjsiqH7h+0FV51wUqRntEve7S/UX
QbfHF0gEqVZcq7zgAQ2Gavzz59VdI9srb9C/Z1D5apNuW1epTQLPVrwVfUfD
1uU9lxZuU0TlIoGxjlYa2tmBDwWmT4NmmVL5mOrP3ncP19spOmGqTDrXvY/q
bxKh1xMEAtGfxJn6+4sGW1tZm1dzUTgY0rEikZoHRyQ9zgbtjcbuFknhUGpe
SPdU6uhdjcHiczz3r8s5YMTgnPLITBx8wn+pEVUH2O+L5BH7FY893gYX155w
QCGv98eKyynw+SrfGHbTAUnbhD5kSz7Gc4eIcb0oB4ToZb+Pb36MhIDyP9vu
O+BE7ECDu0wqnLTaZrdnOIC1XqtCticN6nt7w042OGCTimh21MEstA8YSSkJ
OmKpyetMP3YWck4n3QlY54gJX/0M+8RsFOu6TX3b6Ajz/gqDDVdz8J/p0akZ
ZUcqH1Pa/z6+wKx2IdEzc0RdrtnBF6F5GK2IO1/30hF7qrdWbv6aB5V3y0cz
SxyR0z5zIFEpH+78G+9k1DoiduYuwgbyoSt6J3DyiyOsUat6fu9rSA+Jhlku
cgKnXl5BmF2I13FVP/OUnLCrf55YwGkCuhpDODXZCXJFp9jy6QQip0ym9NOc
sCnqedXXGYLMQzFHebOdwJecuStJuwznTYcdkoqd8FfvdDeHUQYeQ+scq04n
9ORkyxCFClRxiqu0BZ3x0Mm0au/rKjB53j1nRjgj3mRJVkxvFUTt3l1VozuD
fiQvbmxxNRQ09n+LTnJGpASvXcLpaiRr+qY7vXCG//v8Ff9mqqH4pVSw6YMz
LOSXmRXvqUGDYfZGyXUu2MB6M6NaUYeI2i0nruW54GqTRvDkWB0mLUvqnYgL
2jMa+LOE62Env7eCVu+Cm+c/b1jvXI+8/gz7+K8uYHXNai+WaIC1kRbeLXNF
abXKow8+jfAZfhEVaeeKsw9eH7NXaQbnXbDcjKIb8jzxUep8M4wTzJwV1N3A
b1Rj1hvZjNLj39f66LqhXKDDzWC4Gce/2Q7oXHLDKg1v3fjj72H7Svm/L0lu
8C64fyVw9j3aVv4ghSsu42jKpyad062wmVzn3TvfHaxrWTbVtFZUH5upMhZ0
B/1CEEctqBXL2BE9o+vdMbxtm4JMViviayQqtA+440aBfzT3gg/4LypAd2mA
O2qbNhsXZH+AmFWCY/gCD2hOXx5ev/gj1qlsNRYR8QSj61gAXeQjFn4rPG8k
54nYEvG1y3d8BP9Ky4Sn+z0xFFh3/K/JR9Qe6xyMOO+JkGWi2e0vP0JxizW/
V44n3kpWXQ4zbcfqfye73h67gkPagty/8jug1DcS237HC7ctlrBn6jrQXVbv
kv3EC52XuXrnejrQ/uJobWKhFy4lMop4FnXCVpJHpryPWs+sdxEx6sTKLruK
1Tu90XknqF/jdyd+n/gUKNTljUvtk+VRSl2Q9lg4Oqjig9yRn9lxx7oAvRGJ
F3o++DvXnxBv2oVCHcctsbY+uL255UpqSBcqDu5f/iyGWu/5XKGovQtnpMsU
509Q69faJPe5f0ZB3lkJj5e+iDDr8Jd/3Q3fabP6QEl/hIzuwVBjN/gO06+l
yPvD98qjfw/6u3EPq3Xb9vnD4S7NazF/D+7e3AUbY3/o1HC7fbHuQerFmxNa
Mf7g3y5vGy74BbJqCvfllwbg9twN7WFaL+JO2nSnLgpESBiDLzGoFxunq/T7
VgfC978T9Yb3ejHsHHp22+ZAOOwQ1yRVvTixssRwVjMQm3PPSjQs+4oPf7jE
L94MxOLvLOFH1l/xyafzSYpgEGp0RJfpCfbBuHr4yQf5YKyS61vtItIHa0Uf
GWH1YJgveyIRvakPZoPiAo6GwZht2KrYqdqHHwIO4lruwdh6dI+xuVUfptXK
RxuKgxGpYZzulNeHdwaBc0Na13B2971Dd4z6Iflb0DDtSgjG1gv5tt4fwMfm
Y/uiF4Zit3eyc/njAay1Hxu8tzYUgW3bzudkDWC/m69G9vZQrL5+WOt2xQDU
RrYsWHI2FPtGPdYeGxnAhUmTAI/sUES86npVrjKIp+PWsUrnbkLheBIzp3MQ
9SLc9Z2VYbjstsUiYvUQrBZFWM0W3EZHt4CBTe0whh89HHatjMKxsPOdbq3D
mLB8oS/8PgrFKkWmQd3DODutXFTUHYWkWCu7JNYwnBxK2lm/onBB71Vw138/
cKlKXltK+i5mK41f61z8gd2fOhdfD7sLkWepIsq8IzibkpA7qBWN22f+PDq0
agQbdn/annM6Glw8ejInxEZQbhHQ6GwdjUHrmV3OO0agePz603bvaDwX09J9
dnYEJcN/M9ZnRGNfFDtA/NkIpiWSaXcXxMD8yp7vi7V+oiD+fMGj7BjIWtd+
ZBj9hOHf04yXRTGY0DlR9dHiJ1qipbpyqmMQstE+OcXjJwbGBRZc/hyDzOYH
xkj5iVKjlNXCi2IxI/Wn2X32JxSOiP58cioWFQLXS88tHMVYuoanl0Uswv8I
Pj8oMApVq4M1KnaxkGiRvSm4aRTioR6LPH1jcfjq2YNZ+qNIdXV7zUiJRVRr
YcG3tFHMMayWPBmJhUnJoaeNuaN4pi25YdVELKTSWmJyS0dxvqO3ye5PLAp8
frgEtI2ibHDpxTa+OHyRFt4myjWGQ+tvjV3fEgdZP8/kE6fGMPP2Ju95mzhM
XlwQqWY5BrXiZSYGtDiUnIj0laSNYZuvwPQmtzjoyaYZswLH4O4w23stIA7u
HzuEwrPGsF5T+IzwgzhUblG+WbmQQfWx3a536uJguv1ECns5A9VOg4kx7+Iw
vcO5WHwtA5M/Av8EfYjDVtVnDG85Bh50NRiI98Qh+oi4oeIpBuprrZl6zDjI
ae2xt7RggF/IY+XTiTjU6p65FmnHQJfMsjvfp+Lwz+ju61E/Blx9BYo2c9Fh
c36xyJM0Buhet1ueLKeD6+LGXR9eMtAYurpBdyUd9+0P6MwrYeDAsiLnwdV0
vHP19j/XwgCPt+LfJlE6lAOZg0KzDOyUFUxOkaWj9drSOY0FTORby9x/vI0O
+1CZNS78TOr7I/VNpDwdSZFWR99JMpEee7FMVokOnocdz0OOM8ErGfXTdj8d
jx5Nvs07yYSGjsm+KnU69qSu+NpvxsTV0ojTSw/R4fT8uCDcmFBWNNljfpQO
3hcXttB8mbg7WrTT/jgdj/OuHXxwgwk/+hIda206Pr0h7lPxTIQcWaolrE+H
G+mOkHrKxLk1Gy3aDejgr5xJM3zBxFgC44/fCTrU63d+zq5mIrqXW/beKTq6
m/Qme5qZ2OnOPc5zhg73FtqypV1M9N1bm37+LB0ZnU9xgcGEyg05gyETOg51
V52OnWZS83nAm9eUDhaTtdtyHguNu9cuEDGjo8TZ79CVRSyMD4QvXmdOx82J
ZQaRfCyERx1JWWxBx6nL8aZPBVjI0suc7KN445SsXakQCwLWNsIZlnSwPQs9
Pq5l4eln5+3mVnSUzmoGj4qzUCWx6uQCazrCrrZHckuxwHOzKy2W4tNz1glr
ZVnwYcUdXXOeDin/iXSF7SxMH7Y0CqF4fF7gqyOKLGxQjGQMUEyCBCrNVFg4
nf1KQd6GjvCFD5vd97EQk5QKO4rPXN/WfUuDhdKgS7tjKN60pHj48REWnJYf
3JNF8XiN3KVH2izoKdfavaK4NCT550MDFu5F94X/7/7NQ6toCadY0LcNKo2l
2GjBdcZ9ExYaAhrEHSmWrJxxpFuwMKDK9V6ZYkaAPTvGhnqe9W0Gi3q/ov29
LnftqP0OLX5wn+JrHP3JSCcWIu6L/VKkWK+06vLtyyx8pKeJlFHnF/FRngrz
YkFoKk5hD8XDahmeoX4sBP75Y5hO1S9vVmQ2JJgF39tzKYsp9i+M8A4OZYFu
0H/gFFVvLc/5/wJuszBczqVDp/QY/PWdc5XOgmps0Q4mpWdO3tkArwQW8q9c
0lpI8VXXpvmej1hYbOtltIzSfxX75ULXTBYy518vnTCm42u21HWnFyyYHVhk
2kr5J9OBzuPwioWHat+dUih/aYz68F0so+oxI+smSvmP/xkr3KaaBTFXzdS3
J+noumjFb13PQujHXc2WlF9dvh9ZYdbGAg7yhbpR/n7Uv3LNyWEWju+PU5xH
5cEhOYRuMMbCxi+K+YeovKiazwjrjbNweM3unb6aVF57vogc/8uCeN26jAYN
OuZ9Spc8IMDGbPacYLcaHY1xIo/3CbEhXfiKv0qFDrpRhNSetWwsKbzPl6xM
h3ybm7TyRjaCNa1DVXfSYd4MuW272Vh0FSuZMnRsvf0yW3YvG6ekpeMCN9Mx
rSWlIK3OxvfAnLVLpeiIqOdV3KBFPX9hY8I8Ccov1R9VhM3Z+HzBeeaKEB2i
xXaHFt5g49OXRFI0F4dVwrOzDrfYGFnqaub9Jw5L3W/kdEZR+21S9dwxHYe/
25+sy0xg43CSc1owOw5dKV/YBrlsDPaJzysZiENsmH5i0hc29l/bkRf/Ng78
xspTarvG0T/xOZv7ehy4Zuenu/SPYzzE/8GP6VhM6ZeYVktNQm//npO3qHn1
WdFsnVTwL8hnmAktehkNp1MCKyS7f+PFZtGm8Ky7EI4ePL1AdBpB32oVlHqi
kGWc9HTCcwbJKzYZaK2Lwqm9fkdqS2bha9+soxBwBy9MaZKqf/9g/UWZXbac
SEzzanAXnvyHa2/serxCImHQoqYkSp+DxvFfFvJSkeBV4ysvTpjD3UkO58GG
SJQ/7jpukjKHIo+uGB7JSMh7XrF4kDWHfKfJJ4NikeAXfx0uXD0H7tg49bT/
IlFnv2NAaHwOEszHb02WRmI/j0wkvxYHS3b31P4cjsC08/TaLH0OVBKvic99
i0D255on2qc4CNZPVhYciIBYts2bcEsO3t4tT0VPBP6efDzEe4UDXe7Ws9kt
EXidIr53cSoHVd7BzK9FEXBYxqxJfcaBS3ViMX9BBDZ5lBocfsGB5fvxXfvy
IxB97NyFa8UcVHdKSj/KjoAL+/5d7g8caKX2DPk8joCs8SWxlE4OGlqm2QXJ
EeirUklX/8KBY63Ew1+JEdCjd5YG/OBAYU1sl+u9CPDMTzu6nsnBZOF5m/zY
CBA7j7aySQ6WvzkcMX03gpq/h83MZznoW/jPcO+dCPz//xJMPtTODbodgf8D
U7uXeA==
          "]]}, Annotation[#, "Charting`Private`Tag$10826#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwtmXk0Ve/bxkVKKmRIUkLJUJQxY7ckiYxfoURUSmkf8zw7CiUz5xARmmWW
ITzGzJnnmUjGY0iGOO/+rfX+tddn7Wfdz36u67rvvfbafHdt9C1paWhognfR
0PzvKgaHZ6hUKlpN0solhoaBzcbJoI1NKsIUxPauhIdBVq746ZU/VJRypCvl
XlQYSAhp3Z2apSKjrvU8dXIYXDgU0N/UQ0Vn3QxN+VPCQHliqSEuk4pozLKf
sX8NA/3A5s+Sd6jIXFU2bXM4DFxaArCHZTuI6nx/wu9oOHR27p+psNhGCipN
qWT/cDhebsN+4dg/FJu/NnZ/JRzyravpmYc2ESdi1Y50iADzEHFKn/8GSuS3
sVA6HAnrkR5BCNbRkSHSHfO6SEhlGuYij62h/T7v3hV9ioIEDXH7juA/6NTL
47sdvkSD/xMLV+Frq6jpRdNuy5IY8KD75GI/v4zSB4sC7RZjgRBntsd8ehlZ
D9kEta7Ewt1zbDFaE8vIjSvcS3Q9FjRMPHOE+pZRd93grjEaEhzJ1Z4frl5G
yZtOEWdZSZB3d+WuZgLOGXI8alIkWKhQ1D6luYzQ8MjYphMJxo2WBg+pLaOD
txZ4V91I0DX/1pqqvIwUuT70TnuRoISLObhfZhltumYaVD8lwQu7sapw/mU0
94d3UjmGBEJ8z+S2N5aQ6GjqpHwuCSx8W051f1hCdcsGOh4zJDDsS7o4lLqE
UlXOXUuZJ4GGhK3xz9dLqMuTo6iCQgKpnywhy9FL6EzXo+e/10jAoK6/wuS3
hD6+iOjqoyVDBnNXxdWbS8hjRiH+JBcZUq3eDmgbLCF13eYn1dxkIFc4/bmh
s4Qk7eNGTXjI4OdwWPj+lSVksJEgTjhJBoMeo3Bf8SX0et316HFRMmy97jcr
2reEXIfYcoIukoHy95Nr+e4l9L6Jc+9TZTL81PWIrKVS0I0a373OKmT4QXvs
e9cfCsreXg2WViNDlcncyCCFgtj5ohrp1MlQmFeyMTFLQceSyy58v0aGlAem
ostjFNSzasAkqEUGEhK9ujFIQd8bly7UaJMh5MiOOU0vBaUhf0YjXTI4NbyO
ZvpBQedFI4Vu/EcGdbHRLZFiCvovkqm4wJgMSoFZHBL5FGRsKJq4eJMMEqO+
5+SyKOjIqJjAURMycEfy3bv6joLyQzbfqJmSgWV2yVP7DQWZYNM31M3IsFu1
MvZGAgW5TNKJKt4hw8Kfuw33IinoxZunVRvmZJjQlvz5+CUFZRDtVKosyND7
nm7HLoiCIsvi7nnfJUMzTSenG5GC6rPn95y5R4bKm2nivt4UVPbD7kA9zgU5
jpqBbhQUSLhkYHyfDOn7r1iGOlIQ65fwsl6ck+9z+MTYUJDttYwzGpZkiCmd
JCc8piDFF/Se6TibucZ7X7CkoE5MZJb+ARmEJHXut9+hoJP3G1S0cF6ap9PA
blFQVCaLiT/OxR8KzzHcoKDNmyYH3uJMvIdxpOpQ0I7kxXP5OF/n4d9S0qCg
x/1PE3Jw5ujrHu1VpSCuSnnRRJyHo158dwAKEtVIK3bE+b22cjqTPAVpdmry
yOFsu+9PxEcpCgoZp4rP4M8nV/3RRfUcBQ3I97QE4kzrY2Y6IkxBt5ml2g/h
3CjHdtn9FAURz9SyBeHnjV6tFeI4QUFvBaJsZnB9zDI9mbK4KMg+erFcFmfB
x+KrGuz4/uohE/a4vpRTU32TTLifgY65ZFz/opF45LuPgjqusx78hPvjH6/z
lns3BYmFiDe/w/0jfWI4jG0vIlYHurZQ3F8RXvuxlOVFdCyLb80C978kZiC9
99ciciyKOMp7mwyjvhmXVdsX0dfEzwO38fzYr3Eyu9cuoq1WssyAEZ6PJ379
mSWL6BOL5UFVQzIIGxnYcb9fRGBpntWpj9drKlXUS1hEmhJ5F//hedVWEWQI
jFhElVSZ5oM6eD3RzdfLHouoNGjMcUEDr5d677GQ3SKyJroYlOL9EXukWdrs
wSIStjxR4YT3zze65KZ63UXEJjXUmXIJr+e2j0y9sogGjQ9d5QT8eRfs70kr
LKIilvhBR0W8Xv+VzWSBRdRl2Mg0K4PX08ms6T66iCaa3nrQSeF5qTkScYBl
ER1/dzF9tzgZtLJmBV03F5DamBtNhQi+/lnEDZ2WBdSZKSR54ji+/t8m79Pq
BTT05YaLBz5Piu3uzxUXLSAH5DOGOMgwcvsC8XTaAprWY/tFw/S/PA5lbbsu
oGtIjefuNgmKR4QOpPMvIPOhIX5SDwk8FXd9iT+ygFIspH7XtZNAKa5PK5hp
AbXsYTCdbCZBuf7zsAeb86jtA7vqcBUJamtmWfna5xEqyV5rySBB5+cMrli/
eaRCFSXk+ZIgliGwOMBlHpXOlVtHuJPAyPKOiQM2j160mV++6UiCfh6WRN2b
8+h4eXbax4ckGIuw490vPo8y/Df1tbXw+e4iJeg7OofYn3X/yGEnQVbngTpC
9xw6+22M+/JBEtiJT1qZNs2hqKU/pxA9CVZnYj7JF86hi8USJe5rsbBl+lf0
T9gckv3+3YS2JxYYVIulHsMc8uC5aW8VHQsnWZRVDF7Pov3/ntjc3BULoefH
3B9HzaJ93Nb9FWsxsK7rn+sbNIs+pYn3Hp6LgaaI6lNf7GdRbqGbfmB3DDiy
Xdu75+osUvt1vDXwUwx8P6zfVLA4g7K11USldWLg8fH7htyXZhD74cD+hpBo
yBEJejw+MY0S9R6ybk5GwkhNNq+MzBRKf4+J9+0JA8//NlRlz04hfvMPZLmF
UDgypvxInn8K7Tx8/i21KxR0/7VkX2SaQjJG0iMxaaFQLrGgcnVqEhke1BRY
UwmF5CQRS+PYSfT9a0hpnd9LuOuW+tF97SeqEExyfssQApNnYyTQ1wnkhjQO
dCkHg4j324XpzxNocfhSYq1wMBBa8j+xvplAtKN9A02swbBu183/4MUEMiiy
CmOeDALGAk62g+YTaGw6aNn5eRCcvxS/cmvfBJI8ZSzW1RsIHjeS8tZMxtGB
kIjtVeIzKH+XacurN45+7v5bqmHzDHavo7MaauOoeGi+KvfWMwiNH01LPD+O
0kKPvULizyB5hC9GlX4c3U+lUS4bfQrfH6U5RWaMIS2ri/UGKk/hkPdHGbFd
Y+hhQ45CDVsAPPsqVMfydxR5j4F9Lm0AbC68v7kyN4p+Ss78zF4iwvidd56F
vaOI+5/OvZEWIuRcSq1UyRpFG1xnqVshRNCnT9Q2ujOKNvN5JaQZiSDIxddM
4zGChvKTawks/sDy/ASl5sEIinpU4HJjlz+sbx5ne6E/glwjn5hqLvtB3eDR
mxwiI+hV3fW0+51+YJXMPincN4zExII5r8f5wSdBhm39C8OIKuUlNiXgB2dl
Fs++XRlEvOoSQKvhCw/EfHyKhgaRGKdb4BsFX0g6zdzeXDuI6PR4ZfVEfYGV
85zL2qtBJNxb/HqMxRf+/iVUXFUdRD4fEs48z/aByqKFGzPRA6go9kD84R5v
MFZa8D4n048+/ZzgdZTzgkhp77bLvP3IILg6OJ7XCxpFmU4ZM/ajDmxv0PBe
L7jII1bvO9yHNEnbw2XdnnCSirG1P+tD/zEqig87ecJC+fx7x55e1PP7nKVf
kQcQVedbi1x70F8scjn9hjtUqs/pSN3rQW2DLNRCZXeg0Zr9kaHVgw4ep8QN
n3EHzxu/m1L5e9C/4Gk+Z1p3cH4wWfeyqRu9fqfA0pnlBlZBQ+UWvN2oYmv1
uiyrG1xvas7aV9eJCib1Lx/85QLPW5vOBeR0otUrcJevywXqOhszdhI6EfZL
3fp6lQtcGapPX7HrRPvTBOemklzg4kLNhyHuThTY6et75pYLnGcpS8626UDc
63yLY+3OwGGQEX6Tsx2Nd1qX+3Q6Qc7pF8VX6NoR8t8M0P3uBLobD3+KL7Yh
Rz0TCclCJ3j+mk+WsbYNZeh1MYklOMHOdPRIsXMb+ncoUXX9vhNMeXmIHetu
RS+3e/3aNxyBoBNBLhVuQRLSFpzK5x3hw6rGXMyuFjRqaPFU8pQjjMftVib0
/UCG5/eJXzjiCIY/XX7xBP9A6X0ezDY0jgBuZjK+083I+sJ2aFKbA7CknulU
ed+EOm5ar6w7O0DOWg1z3akG9JZfpkK+2R5CP6VUXtyoR3GPPG2vVNqDtZmP
U35zPUq9WO1lUWAPp77LDqQ416MkNuTe/MYeYmM+v/Oqq0M6V1I9HVzswV0q
QknySS36HSxYMytgDyr2t61f51YjmzrJt+JhdsBzWo6HI6gancGeqWk/s4Ot
Po62F7erEZ123lt3LzvIu9Qi40ZfjeobdTDaJ3Zw+pAKrYFRFXo3KNDedM0O
GLME4/ZtVSBZXcIbFQY7eDsw+fJ3QBliZOA3vBtuC/2eh5MSJctQU1JMQ3ew
LTDxXM3SGy9FDs48JUZEW3A2/9BeBKXohu78irezLahNPuZ8vvkNhdd//m5h
agvTC4vJIrZFqKQ8NspO1BaOhfPmDPMUId0fV4Y/CtqCrrheVWRzIQou8T+x
wGcLhQ45k5sihYhGeJ9l/GFbCF53FGmc/IqUFoK4/GhsQYR2M9faJA+txWzr
0XyxAbNUkZoTjHnohOJe8ekUG4hUNenuKMxFdGFeO1NkG9h8VrKucDgXrRi3
nRZ+agON+32UDrRlo6ycrzulZjbQK8IQevNlBjrmf9332GEbUMYeZVXMfEGD
166eeHLQBj5kNrQLq39BDDmfitt224Cb1EvOTdp0RB0r/Ty8QoCjF1nfxLt+
REjx7+B2OwFM9Y7lDdxLQ3e+WzSrxhBgbuWPnFN1KvJvuc7BGkoAz9gWxCSQ
iupKGd6sPCNAwoB/46WpN2iPaaf2iisB8hrba3TaXqNw49qICVMCZK4+OTnd
H414WbkueZ4hwA853nPcCVEodnorMVCAAAveHfLappFoV8M29u4EAYxZHdOs
UBgq1FKX4mEnwH8KTLS76p8iK7T1Z3UbA99OoU7uKi20kxJ9RaoLg7PMQ4/p
RaXAYKppyrYVg+4l/ySWdWOQ9mKQKG/EwCNKrcFayhY4J8/FxFZiUMUbHJiI
z13WwrMyfNkYBMTy214IDYAkAWhZSsdA7UCJcdv+QDjgczmr8wMGdX8XhOn3
hkD6gxCutmQMHj4UefB1JxIG86/LpEZgoM7vcouoFA1CusvfdodiIDRUpa3r
GQNbEStCrs8xmNE3vTCzQYLkSMHgaCIGTy6GM/D8SYADpQbsKc4YaG0M/puR
fA085lnPIhwwEMsTXiqwT4KOE6J+kbYYrEePzQmtJwOzo9ZI3WMMihg9uiqd
UuGSQOQavTkGyaIcHZn8aRBeePyehikGz3QzWxNa0sBbZWtX6i0MDGInGp2F
34HcMu+r8BsYKBR51d/rfgeUqRwXgf8w4B/krNUlvocH10Q0f+hiQOG7Xiky
9AFmtZNemVzHoEd1CnE+/witbw5vgQYGZQ99S3df+AT7Ex8cllXH4MWXvMLh
8M+gzVJ15Z4qBvat2l8bldLhd62zYqwKBsYr07mFM+lAIurlDSpjcFrueGak
agY0xu2ZT1XC4MDtgnSfpQwQfJkbfkoRgxVvvU9PXmdCYvRZj0J5DOZb/3Sk
C2RBKs104h05DMzHK/VPembBsqzFDJcsBp0rYW1x7VmgkX5E/5cMBlfpTXVZ
hLPBvzzqe600rqfQX63trmz41kubUCGJQYpcdZPD2RzIX+Qa7ZfAgEMzQnPG
PwdOZcr/3YNz0G2zBvO+HJi2ou24Io7BP+zMtZ5zuTDAyGZJOo+Bjc96rdaz
XFBiYUvaOofBeHiNWvVgLoQ4fLG3x9kwJbJGXjIPDJMj2rbEMKjPvaOaHZwH
TpYOX0g4K9acrRIczQOzX4zrV3DO6t649FomH3Ii2VP34Hxy+ns5+8t82Mus
l9wnikHsRhS8mMiH7+JPx8pwZtxvUbZL/iu4LLkZf8XZ65iYkmv4Vzh0898a
wpkiuvVtYeorBHkMZQzgfB/q5C2VCiDh4bLdPrx+r25M0UBUATRxs0tcw1nz
7l1Z/Rn8vvuJsXicyxzOFdQpF0LXxT+2OzhLPP0nDaRCUKC4dTjg53sbW5+X
P18Iyr0xm5s4H/kQK3lWtQgO/pXqjcL1CSm6l5MSXwTZ62pmF3H9qA3nxbmW
isBVBHlv4mw/uJ0ZdrUYSLbRZ+pwvafmG8T2vC6GEYUKw/e4PzeppC+eq8VQ
7HN5mSSFQROL5dkVjW/w+MMxShzupzK/xOdHb76BaYSeyhfc71xJqvDo32+Q
5THT33YBg3jDOMHmtBLw5XF/r43nh8nqwbvLWyVQQxeJ3ilg4OcmKVCsVwqB
ErpTzHj+rBKa+d/vlAKXu4AQB55P6fFdPH7GCNI4Mtd/q+H5KTZaOv8R55+y
nh/wvJ+O/FI9uoEgsbrA3Qnvh/1v0qWTtcrhEFPeN3ltPC+6xoPUhXK4St1h
szPE+1eR7rsRZwXYR7tJpxhjsCqUkZkJFfDmpoXrGN6fczS7iXfCK+BrypD0
8zsYDGVlCiPxSihhqjIiPsKgP+EWG+etShCmb79+6gk+34Lotwn+leBVqM3Y
QcDgh7lJK09HJfgFy+bcdMT9Y9nr4u1YBdPSrT6Mvhgk2ZpVKxVUg0wWyYoS
h0HC7X0ZMSPVoPBN/KtVIgZk9TzS/N4a4D5WzL2Az7dwXkbrROMa4FItouXF
559va/6h7Y0aeKnQfvBEAQYW5w/eKVGshb5vccG+PRiYHStUZ7esBS23EzI1
AxjcYrgn8eRlLUxtbGgeHsVAf7SQ/thwLXhTrwYNTWOgEn4/3cOnDqQcZtmo
m3jeKd825CvrYSs5hPYpH/5+ab4csDpfD4rGB4P+niZA96dGpgyuBqhaH+hy
OUuA55YDJ/nsGuBNRFnUmwsEoPRvau3lbYRHbzKPkrUJUFYjl9Lh1QT+/m0E
eh8C3HpVoPFErgVSWUtC/X/j7ydX6BKwbIETZMX+KAoBmAxr74yEt0CmoOzF
7L8EqGDpcdSfboFZqydHWfbYAPtlD50EzVZ4+pIl6/ZJG/AojHfz32wFOwb5
UgFzG7iW2tesbdwOIS3M7tzjNkB5mvGgBmsHTuakGMKMDZCtiFQFYjskwu+a
xmUbmBYVFRfOaAedBNqj7btsIajQN5pudwfkd1zZmGS1hbpmQZPCzA54Uv9I
ck3aFq6uO03z7e2CCFmbr6E+tnBFi5XuT34PDEem7DU+YQdhd3p8zxcMQs9/
lG+LmD3Uah8/qMs6BiXsiuGSOw4wz8fh3R4/AbvrMOfrgU7g5HjGIuzwFPzH
+N/dVSYX6Blk0X9QNw0yr3btz8LFMXdT/LX3+iycXrA33pR0h6ozF55X0S8A
JcJ5vKHSA07vK5lOU6fAAP3lR7KnvOB4ifUV+qAliF8Z0zxj7Q00m7Qf7ceX
gV3+cz5HgQ/81Ss1qxFYBX+TzAPI2hcGpO5wCwT8gSV2FuW3/3zB1ojlEP/g
GmgmcayP+fgBV/RP493H12FfuCotzZIfZJgkv19x3QB23dxYwbv+YKTko15X
uglsWi/VfKr8IdsM45f/twXSVnGXirmJsM54ma7oxjYIHnS+R++If3+1Kcgc
J++AgOj7PzuICIwK+ytKEncg/injkmoFESrS+jVvp+7A4duPPZ5XEuG8q5vF
q4wd+OfXqMReQwSmEwUhXDU7UPGt2ou/gQj1TyQmOJZ3IPj8IrNIJxGUGYTD
ma5TQefc5bdTv/D97daPZuhRYbYssJ3nNxEyB2rfahlR4egR5mjDGSLwZD74
FnKXCvaWLzqr54jw70baFKMbFfoFSnQS8O/JgtQTSnvfUWHedET/whYRCAcX
a999pkJpSkSP1T8inHYp01fLpoKFN8dK3DYRojVMrZ6WUOFaq+TiJpUI9kvx
UXQdVLhUKkVTuDsAREwe86T2UmF0bQim6ANgrFruo8owFfJZXnGy7w0AXXJv
md9vKhjtWQoj7AsABtoP1/gWqZDW2nf+FWMAIGuXzvJVKkgbOz+u3R8Azl1q
d8w3qXDSfkFx5UAA/P//B5iafPSBhykA/g8iIW2I
          "]]}, Annotation[#, "Charting`Private`Tag$10826#2"]& ]}}, {}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0.0035618363797864055`}, FrameTicks -> {{Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0.0035618363797864055`}, 
     DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotRange -> {All, All}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{Automatic, Automatic}, {
       Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{"\"w0 new inwards \"", "\"w0 new outwards\""}, "LineLegend",
       DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.794314945800291*^9, {3.7943150310646667`*^9, 3.794315048506762*^9}, 
   3.7943151072098074`*^9, 3.794315153286956*^9, 3.7943152075483303`*^9, 
   3.7943152385253363`*^9, 3.794315275370985*^9, {3.7943155721302013`*^9, 
   3.7943155761584516`*^9}, 3.794315668786056*^9, {3.7943157526510787`*^9, 
   3.7943157701853943`*^9}, {3.794315824457923*^9, 3.7943158628430786`*^9}, {
   3.794315916259015*^9, 3.7943159228369756`*^9}, 3.7945684773567142`*^9, 
   3.7945689948613462`*^9, {3.7946346127647614`*^9, 3.794634663809724*^9}, 
   3.7946347063193965`*^9, {3.7946347526574287`*^9, 3.7946347820448813`*^9}, {
   3.794634895506701*^9, 3.7946349150137067`*^9}, 3.794634946553169*^9, 
   3.7946383703881855`*^9, {3.794638406513837*^9, 3.794638433036111*^9}, 
   3.794638516239507*^9, {3.794641270207844*^9, 3.7946413318098054`*^9}, {
   3.7946414783608007`*^9, 3.7946415054439983`*^9}, {3.7946417486042614`*^9, 
   3.794641763332284*^9}, {3.7946418657845855`*^9, 3.794641886680495*^9}, 
   3.79464194338577*^9, 3.7946423317964315`*^9, 3.794724727263647*^9, 
   3.79472632915077*^9, {3.7947264047106733`*^9, 3.794726427639537*^9}, 
   3.794726490201174*^9, 3.794730912925059*^9, 3.7947329522013664`*^9, {
   3.794733156492443*^9, 3.7947331676599183`*^9}, {3.7947332394921923`*^9, 
   3.79473327410503*^9}, 3.7948071617754903`*^9, 3.794807258345866*^9, 
   3.7948072931551332`*^9, 3.795242367411996*^9, 3.7952424583155403`*^9, 
   3.7952425424929047`*^9, 3.795242583699671*^9, 3.7952437027533703`*^9, 
   3.795244147365472*^9, {3.7952442871992188`*^9, 3.7952443120813293`*^9}, {
   3.795244387945779*^9, 3.7952444028510475`*^9}, {3.7952444796953225`*^9, 
   3.79524450561207*^9}, 3.7952448497200675`*^9, {3.795244890200576*^9, 
   3.795244915584087*^9}, 3.795244957964657*^9, 3.795246570176077*^9, 
   3.7952466194782915`*^9, 3.795246676978777*^9, {3.795249293874092*^9, 
   3.795249330772705*^9}, 3.795249548533166*^9, {3.795249731748011*^9, 
   3.79524975746432*^9}, 
   3.795250098281213*^9},ExpressionUUID->"aac0a433-c952-4930-927b-\
6121ba039ecb"]
}, Open  ]]
},
WindowSize->{944, 877},
WindowMargins->{{98, Automatic}, {Automatic, 56}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{595.3199999999999, 841.92}},
FrontEndVersion->"11.1 for Microsoft Windows (64-bit) (April 18, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 11203, 303, 1229, "Input", "ExpressionUUID" -> \
"8eb55666-f6ae-4817-b1dc-97623cb3b7f6"],
Cell[11786, 327, 2147, 31, 30, "Output", "ExpressionUUID" -> \
"072b0ff0-f759-46ae-93db-f29944b57a68"],
Cell[13936, 360, 2096, 30, 30, "Output", "ExpressionUUID" -> \
"a82ace7e-07d1-4687-821c-4b7486a59166"],
Cell[16035, 392, 2100, 30, 30, "Output", "ExpressionUUID" -> \
"bb8e1c6c-a9db-406f-aa8f-3460b5fee50d"],
Cell[18138, 424, 2101, 30, 30, "Output", "ExpressionUUID" -> \
"420b34aa-2cf6-4959-ac46-a9c43ce84cc0"],
Cell[CellGroupData[{
Cell[20264, 458, 435, 7, 22, "Print", "ExpressionUUID" -> \
"c3100b44-5953-40e3-bd1c-6f81b0a05e41"],
Cell[20702, 467, 436, 7, 24, "Print", "ExpressionUUID" -> \
"b665b34f-dc84-4e97-ac32-1744bdc4a5e2"]
}, Open  ]],
Cell[21153, 477, 2109, 30, 30, "Output", "ExpressionUUID" -> \
"2cae66ba-fd3e-4b46-81cc-1e763a0cc265"],
Cell[23265, 509, 640, 12, 21, "Message", "ExpressionUUID" -> \
"1a0ae20e-df87-4fc5-81f4-e6e7cce18708"],
Cell[23908, 523, 2097, 30, 30, "Output", "ExpressionUUID" -> \
"e76ed453-7930-4ce7-b2a1-6432dc06fe6c"],
Cell[26008, 555, 2131, 30, 30, "Output", "ExpressionUUID" -> \
"0a6b5d6d-1083-4a09-8625-df241ffc970d"],
Cell[28142, 587, 2099, 30, 30, "Output", "ExpressionUUID" -> \
"0313da73-048b-4602-b83f-cbca408ec2f6"],
Cell[30244, 619, 2361, 40, 57, "Output", "ExpressionUUID" -> \
"86ed97c5-b1b9-4485-822c-4aa985dfeb90"],
Cell[32608, 661, 2120, 30, 30, "Output", "ExpressionUUID" -> \
"7320dfef-3557-48aa-9031-e6b47c476a12"],
Cell[34731, 693, 2936, 59, 105, "Output", "ExpressionUUID" -> \
"26784185-d808-49dc-90c0-097dc8276b15"],
Cell[37670, 754, 2121, 30, 30, "Output", "ExpressionUUID" -> \
"181a5e34-0454-43c0-8fce-44a246c064ab"],
Cell[39794, 786, 2982, 60, 105, "Output", "ExpressionUUID" -> \
"d2d1dd1d-2625-4100-8a79-8c96206235fe"],
Cell[42779, 848, 18020, 331, 245, "Output", "ExpressionUUID" -> \
"152a17e1-be7e-412f-b46a-45097f790ad8"],
Cell[60802, 1181, 2121, 30, 30, "Output", "ExpressionUUID" -> \
"a6cfc163-02bd-4511-853b-931694acbfbd"],
Cell[62926, 1213, 32505, 585, 240, "Output", "ExpressionUUID" -> \
"b3a16eeb-4110-4e6c-a506-9b77641b408a"],
Cell[95434, 1800, 2119, 30, 30, "Output", "ExpressionUUID" -> \
"08c2132c-986e-4f37-9cac-316136e6ab65"],
Cell[97556, 1832, 30010, 540, 284, "Output", "ExpressionUUID" -> \
"aac0a433-c952-4930-927b-6121ba039ecb"]
}, Open  ]]
}
]
*)