gaussian_beamwaist_second_lens_fixed.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[    102877,       1980]
NotebookOptionsPosition[    100693,       1927]
NotebookOutlinePosition[    101205,       1947]
CellTagsIndexPosition[    101162,       1944]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"\"\<now with constant focusing lens of target\>\"", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"w0", " ", "=", " ", "0.012"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lambdaL", " ", "=", " ", "0.0008"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D0", " ", "=", " ", "0.0001"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q", " ", "=", " ", 
   RowBox[{
    SuperscriptBox["w0", "2"], "*", 
    RowBox[{"\[Pi]", "/", 
     RowBox[{"(", "lambdaL", ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", "\"\<plasma beam radius in mm\>\"", "\
\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wzConst", " ", "=", "0.03"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"R", " ", "=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", "*", 
      RowBox[{"(", 
       RowBox[{"D0", "^", "2"}], ")"}]}], "+", 
     RowBox[{"(", 
      RowBox[{"wzConst", "^", "2"}], ")"}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{"8", "*", "D0"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"zr", " ", "=", "  ", 
   RowBox[{"\[Pi]", "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"w0", "^", "2"}], ")"}], "/", "lambdaL"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"wz", " ", "=", "  ", 
    RowBox[{"w0", "*", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"u", "/", "zr"}], ")"}], "2"]}], ")"}], "0.5"]}]}], ";"}], 
  "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", "\"\<focal length inwards\>\
\"", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f1", "=", " ", 
   RowBox[{"R", "/", "2"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", "\"\<focal length outwrds\>\
\"", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fout", "=", " ", 
   RowBox[{
    RowBox[{"-", "R"}], "/", "2"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"AA", " ", "=", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       SuperscriptBox["q", "2"], ")"}], "/", "f1"}], ")"}], " ", "-", " ", 
    RowBox[{"u", "*", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"u", "/", "f1"}]}], ")"}]}]}], ")"}]}], "\[IndentingNewLine]", 
 RowBox[{"BB", " ", "=", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["q", "2"], "/", 
      SuperscriptBox["f1", "2"]}], ")"}], "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"u", "/", "f1"}]}], ")"}], "2"]}], 
   ")"}]}], "\[IndentingNewLine]", 
 RowBox[{"A", "=", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       SuperscriptBox["q", "2"], ")"}], "/", "fout"}], ")"}], " ", "-", " ", 
    RowBox[{"u", "*", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"u", "/", "fout"}]}], ")"}]}]}], 
   ")"}]}], "\[IndentingNewLine]", 
 RowBox[{"B", " ", "=", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["q", "2"], "/", 
      SuperscriptBox["fout", "2"]}], ")"}], "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"u", "/", "fout"}]}], ")"}], "2"]}], 
   ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vpositive", " ", "=", " ", 
   RowBox[{"A", "/", "B"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"vin", "=", " ", 
    RowBox[{"AA", "/", "BB"}]}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"wzConst", ",", " ", "wz", ",", " ", "R"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"u", ",", " ", 
      RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", " ", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<A_plasma\>\"", ",", " ", "\"\<w(z)\>\"", ",", " ", "\"\<R_P\>\""}],
       "}"}]}]}], "]"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", "\"\<new focal position \
at\>\"", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"vin", ",", " ", "vpositive"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"u", ",", " ", 
      RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", " ", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<focal position inward denting\>\"", ",", " ", 
       "\"\<focal position for outward denting\>\""}], "}"}]}], ",", " ", 
    RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"wnew", " ", "=", " ", 
    SqrtBox[
     RowBox[{
      SuperscriptBox["w0", "2"], "*", 
      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", " ", "=", " ", 
   SqrtBox[
    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[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"wnew", ",", " ", "woutward"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"u", ",", " ", "40", ",", " ", "100"}], "}"}], ",", " ", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<w0 new inwards \>\"", ",", " ", "\"\<w0 new outwards\>\""}], 
      "}"}]}], ",", " ", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"defocusing", " ", "[", "mm", "]"}], ",", " ", 
       RowBox[{"w0_new", " ", "[", "mm", "]"}]}], "}"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{
  "D0", ",", " ", "R", ",", " ", "zr", ",", " ", "f1", ",", " ", "fout", ",", 
   " ", "AA", ",", " ", "BB", ",", " ", "A", ",", " ", "B", ",", " ", "u", 
   ",", " ", "vpositive", ",", " ", "vin", ",", " ", "u", ",", " ", "wnew", 
   ",", " ", "woutward"}], "]"}]}], "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.7947248614101686`*^9, 
   3.7947248915429335`*^9}, {3.7947249449380755`*^9, 
   3.7947249453036737`*^9}, {3.7947249774659986`*^9, 
   3.7947249778620195`*^9}, {3.7947250191465125`*^9, 
   3.7947250971803613`*^9}, {3.7947251584838924`*^9, 
   3.7947252385827007`*^9}, {3.7947253248325086`*^9, 3.794725330681611*^9}, {
   3.794725403341341*^9, 3.794725427081435*^9}, {3.794725483225827*^9, 
   3.794725483541307*^9}, {3.794725532131135*^9, 3.79472553811138*^9}, {
   3.794725577549977*^9, 3.794725585408351*^9}, {3.7947256970782895`*^9, 
   3.7947257328954735`*^9}, {3.7947257765667496`*^9, 
   3.7947258330298176`*^9}, {3.794725910981253*^9, 3.794725927707589*^9}, {
   3.794725979400593*^9, 3.794725993683514*^9}, {3.7947260373475323`*^9, 
   3.7947260426271124`*^9}, {3.7947265762338133`*^9, 3.794726595206025*^9}, {
   3.7947270501117525`*^9, 3.794727051021263*^9}, {3.7947271228788443`*^9, 
   3.7947271361275883`*^9}, {3.7947272212042475`*^9, 
   3.7947273830258837`*^9}, {3.79472745413818*^9, 3.7947274830166698`*^9}, {
   3.794732882689921*^9, 3.794732900965762*^9}, {3.794733304951043*^9, 
   3.794733361270187*^9}, {3.7948063576232476`*^9, 3.794806359162566*^9}, {
   3.7948064790306997`*^9, 3.7948065103101873`*^9}, {3.794806589719776*^9, 
   3.794806612122366*^9}, 3.794806644718006*^9, {3.7948066838085237`*^9, 
   3.794806704393957*^9}, {3.794806763799684*^9, 3.7948069065329156`*^9}, {
   3.7948069568323507`*^9, 3.794806957238482*^9}, {3.7948070042967367`*^9, 
   3.7948070175383573`*^9}, {3.794807472844716*^9, 3.794807474785512*^9}, {
   3.7948076879004145`*^9, 3.7948076893553343`*^9}, {3.7948090599795876`*^9, 
   3.7948090645650177`*^9}},ExpressionUUID->"64a19659-40a1-4f78-a395-\
898a26abc84f"],

Cell[BoxData["\<\"now with constant 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.7947249094809403`*^9, {3.7947249528065677`*^9, 
   3.79472498269234*^9}, {3.794725032655322*^9, 3.794725098563628*^9}, {
   3.7947251627313647`*^9, 3.794725178824561*^9}, {3.794725225492092*^9, 
   3.7947252485863*^9}, 3.7947253366229343`*^9, 3.794725405322149*^9, 
   3.79472548506772*^9, 3.794725539544921*^9, 3.7947255910811806`*^9, 
   3.79472596213417*^9, 3.7947259977710323`*^9, {3.7947260392955523`*^9, 
   3.7947260459999447`*^9}, 3.7947265982792654`*^9, 3.7947270556074953`*^9, 
   3.7947271395719943`*^9, {3.7947272713596916`*^9, 3.794727283084779*^9}, {
   3.794727354190976*^9, 3.794727384006111*^9}, 3.7947274585846977`*^9, 
   3.7947274926602116`*^9, 3.794732903188779*^9, {3.794733323514694*^9, 
   3.79473336260562*^9}, 3.7948063608217783`*^9, 3.7948064873907776`*^9, 
   3.79480655083574*^9, {3.7948065929669304`*^9, 3.794806613333333*^9}, 
   3.794806646108723*^9, {3.794806687910923*^9, 3.794806708123826*^9}, 
   3.7948068214439864`*^9, {3.794806886591997*^9, 3.794806907732184*^9}, {
   3.7948069597452793`*^9, 3.7948069753920135`*^9}, {3.7948070055700855`*^9, 
   3.794807018612915*^9}, {3.7948074517970304`*^9, 3.7948074754786463`*^9}, 
   3.794807690869913*^9, 
   3.794809065594967*^9},ExpressionUUID->"318f5e6a-a907-40d4-bf5a-\
67866c78c0ad"],

Cell[BoxData["\<\"plasma beam radius in mm\"\>"], "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.7947249094809403`*^9, {3.7947249528065677`*^9, 
   3.79472498269234*^9}, {3.794725032655322*^9, 3.794725098563628*^9}, {
   3.7947251627313647`*^9, 3.794725178824561*^9}, {3.794725225492092*^9, 
   3.7947252485863*^9}, 3.7947253366229343`*^9, 3.794725405322149*^9, 
   3.79472548506772*^9, 3.794725539544921*^9, 3.7947255910811806`*^9, 
   3.79472596213417*^9, 3.7947259977710323`*^9, {3.7947260392955523`*^9, 
   3.7947260459999447`*^9}, 3.7947265982792654`*^9, 3.7947270556074953`*^9, 
   3.7947271395719943`*^9, {3.7947272713596916`*^9, 3.794727283084779*^9}, {
   3.794727354190976*^9, 3.794727384006111*^9}, 3.7947274585846977`*^9, 
   3.7947274926602116`*^9, 3.794732903188779*^9, {3.794733323514694*^9, 
   3.79473336260562*^9}, 3.7948063608217783`*^9, 3.7948064873907776`*^9, 
   3.79480655083574*^9, {3.7948065929669304`*^9, 3.794806613333333*^9}, 
   3.794806646108723*^9, {3.794806687910923*^9, 3.794806708123826*^9}, 
   3.7948068214439864`*^9, {3.794806886591997*^9, 3.794806907732184*^9}, {
   3.7948069597452793`*^9, 3.7948069753920135`*^9}, {3.7948070055700855`*^9, 
   3.794807018612915*^9}, {3.7948074517970304`*^9, 3.7948074754786463`*^9}, 
   3.794807690869913*^9, 
   3.794809065610625*^9},ExpressionUUID->"c9ab8be8-23ad-4952-bb08-\
1ee57f18d7c6"],

Cell[BoxData["1.1250499999999999`"], "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.7947249094809403`*^9, {3.7947249528065677`*^9, 
   3.79472498269234*^9}, {3.794725032655322*^9, 3.794725098563628*^9}, {
   3.7947251627313647`*^9, 3.794725178824561*^9}, {3.794725225492092*^9, 
   3.7947252485863*^9}, 3.7947253366229343`*^9, 3.794725405322149*^9, 
   3.79472548506772*^9, 3.794725539544921*^9, 3.7947255910811806`*^9, 
   3.79472596213417*^9, 3.7947259977710323`*^9, {3.7947260392955523`*^9, 
   3.7947260459999447`*^9}, 3.7947265982792654`*^9, 3.7947270556074953`*^9, 
   3.7947271395719943`*^9, {3.7947272713596916`*^9, 3.794727283084779*^9}, {
   3.794727354190976*^9, 3.794727384006111*^9}, 3.7947274585846977`*^9, 
   3.7947274926602116`*^9, 3.794732903188779*^9, {3.794733323514694*^9, 
   3.79473336260562*^9}, 3.7948063608217783`*^9, 3.7948064873907776`*^9, 
   3.79480655083574*^9, {3.7948065929669304`*^9, 3.794806613333333*^9}, 
   3.794806646108723*^9, {3.794806687910923*^9, 3.794806708123826*^9}, 
   3.7948068214439864`*^9, {3.794806886591997*^9, 3.794806907732184*^9}, {
   3.7948069597452793`*^9, 3.7948069753920135`*^9}, {3.7948070055700855`*^9, 
   3.794807018612915*^9}, {3.7948074517970304`*^9, 3.7948074754786463`*^9}, 
   3.794807690869913*^9, 
   3.794809065610625*^9},ExpressionUUID->"df7f219f-6168-4081-b8ec-\
5a619f7576ec"],

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.7947249094809403`*^9, {3.7947249528065677`*^9, 
   3.79472498269234*^9}, {3.794725032655322*^9, 3.794725098563628*^9}, {
   3.7947251627313647`*^9, 3.794725178824561*^9}, {3.794725225492092*^9, 
   3.7947252485863*^9}, 3.7947253366229343`*^9, 3.794725405322149*^9, 
   3.79472548506772*^9, 3.794725539544921*^9, 3.7947255910811806`*^9, 
   3.79472596213417*^9, 3.7947259977710323`*^9, {3.7947260392955523`*^9, 
   3.7947260459999447`*^9}, 3.7947265982792654`*^9, 3.7947270556074953`*^9, 
   3.7947271395719943`*^9, {3.7947272713596916`*^9, 3.794727283084779*^9}, {
   3.794727354190976*^9, 3.794727384006111*^9}, 3.7947274585846977`*^9, 
   3.7947274926602116`*^9, 3.794732903188779*^9, {3.794733323514694*^9, 
   3.79473336260562*^9}, 3.7948063608217783`*^9, 3.7948064873907776`*^9, 
   3.79480655083574*^9, {3.7948065929669304`*^9, 3.794806613333333*^9}, 
   3.794806646108723*^9, {3.794806687910923*^9, 3.794806708123826*^9}, 
   3.7948068214439864`*^9, {3.794806886591997*^9, 3.794806907732184*^9}, {
   3.7948069597452793`*^9, 3.7948069753920135`*^9}, {3.7948070055700855`*^9, 
   3.794807018612915*^9}, {3.7948074517970304`*^9, 3.7948074754786463`*^9}, 
   3.794807690869913*^9, 
   3.794809065610625*^9},ExpressionUUID->"4af490b1-5a5c-472f-8db8-\
961f940d5856"],

Cell[BoxData["0.5625249999999999`"], "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.7947249094809403`*^9, {3.7947249528065677`*^9, 
   3.79472498269234*^9}, {3.794725032655322*^9, 3.794725098563628*^9}, {
   3.7947251627313647`*^9, 3.794725178824561*^9}, {3.794725225492092*^9, 
   3.7947252485863*^9}, 3.7947253366229343`*^9, 3.794725405322149*^9, 
   3.79472548506772*^9, 3.794725539544921*^9, 3.7947255910811806`*^9, 
   3.79472596213417*^9, 3.7947259977710323`*^9, {3.7947260392955523`*^9, 
   3.7947260459999447`*^9}, 3.7947265982792654`*^9, 3.7947270556074953`*^9, 
   3.7947271395719943`*^9, {3.7947272713596916`*^9, 3.794727283084779*^9}, {
   3.794727354190976*^9, 3.794727384006111*^9}, 3.7947274585846977`*^9, 
   3.7947274926602116`*^9, 3.794732903188779*^9, {3.794733323514694*^9, 
   3.79473336260562*^9}, 3.7948063608217783`*^9, 3.7948064873907776`*^9, 
   3.79480655083574*^9, {3.7948065929669304`*^9, 3.794806613333333*^9}, 
   3.794806646108723*^9, {3.794806687910923*^9, 3.794806708123826*^9}, 
   3.7948068214439864`*^9, {3.794806886591997*^9, 3.794806907732184*^9}, {
   3.7948069597452793`*^9, 3.7948069753920135`*^9}, {3.7948070055700855`*^9, 
   3.794807018612915*^9}, {3.7948074517970304`*^9, 3.7948074754786463`*^9}, 
   3.794807690869913*^9, 
   3.794809065610625*^9},ExpressionUUID->"62d098a7-cfe4-4440-aa70-\
0d38186b1fde"],

Cell[BoxData["\<\"focal length outwrds\"\>"], "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.7947249094809403`*^9, {3.7947249528065677`*^9, 
   3.79472498269234*^9}, {3.794725032655322*^9, 3.794725098563628*^9}, {
   3.7947251627313647`*^9, 3.794725178824561*^9}, {3.794725225492092*^9, 
   3.7947252485863*^9}, 3.7947253366229343`*^9, 3.794725405322149*^9, 
   3.79472548506772*^9, 3.794725539544921*^9, 3.7947255910811806`*^9, 
   3.79472596213417*^9, 3.7947259977710323`*^9, {3.7947260392955523`*^9, 
   3.7947260459999447`*^9}, 3.7947265982792654`*^9, 3.7947270556074953`*^9, 
   3.7947271395719943`*^9, {3.7947272713596916`*^9, 3.794727283084779*^9}, {
   3.794727354190976*^9, 3.794727384006111*^9}, 3.7947274585846977`*^9, 
   3.7947274926602116`*^9, 3.794732903188779*^9, {3.794733323514694*^9, 
   3.79473336260562*^9}, 3.7948063608217783`*^9, 3.7948064873907776`*^9, 
   3.79480655083574*^9, {3.7948065929669304`*^9, 3.794806613333333*^9}, 
   3.794806646108723*^9, {3.794806687910923*^9, 3.794806708123826*^9}, 
   3.7948068214439864`*^9, {3.794806886591997*^9, 3.794806907732184*^9}, {
   3.7948069597452793`*^9, 3.7948069753920135`*^9}, {3.7948070055700855`*^9, 
   3.794807018612915*^9}, {3.7948074517970304`*^9, 3.7948074754786463`*^9}, 
   3.794807690869913*^9, 
   3.7948090656262484`*^9},ExpressionUUID->"890a3854-5cc3-48d7-bba5-\
2a0a972172f4"],

Cell[BoxData[
 RowBox[{"-", "0.5625249999999999`"}]], "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.7947249094809403`*^9, {3.7947249528065677`*^9, 
   3.79472498269234*^9}, {3.794725032655322*^9, 3.794725098563628*^9}, {
   3.7947251627313647`*^9, 3.794725178824561*^9}, {3.794725225492092*^9, 
   3.7947252485863*^9}, 3.7947253366229343`*^9, 3.794725405322149*^9, 
   3.79472548506772*^9, 3.794725539544921*^9, 3.7947255910811806`*^9, 
   3.79472596213417*^9, 3.7947259977710323`*^9, {3.7947260392955523`*^9, 
   3.7947260459999447`*^9}, 3.7947265982792654`*^9, 3.7947270556074953`*^9, 
   3.7947271395719943`*^9, {3.7947272713596916`*^9, 3.794727283084779*^9}, {
   3.794727354190976*^9, 3.794727384006111*^9}, 3.7947274585846977`*^9, 
   3.7947274926602116`*^9, 3.794732903188779*^9, {3.794733323514694*^9, 
   3.79473336260562*^9}, 3.7948063608217783`*^9, 3.7948064873907776`*^9, 
   3.79480655083574*^9, {3.7948065929669304`*^9, 3.794806613333333*^9}, 
   3.794806646108723*^9, {3.794806687910923*^9, 3.794806708123826*^9}, 
   3.7948068214439864`*^9, {3.794806886591997*^9, 3.794806907732184*^9}, {
   3.7948069597452793`*^9, 3.7948069753920135`*^9}, {3.7948070055700855`*^9, 
   3.794807018612915*^9}, {3.7948074517970304`*^9, 3.7948074754786463`*^9}, 
   3.794807690869913*^9, 
   3.7948090656262484`*^9},ExpressionUUID->"0300cbc9-c851-45b4-96c0-\
8a1c2376cc53"],

Cell[BoxData[
 RowBox[{"0.5684639484383721`", "\[VeryThinSpace]", "-", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"1.7776987689436028`", " ", "u"}]}], ")"}], " ", 
   "u"}]}]], "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.7947249094809403`*^9, {3.7947249528065677`*^9, 
   3.79472498269234*^9}, {3.794725032655322*^9, 3.794725098563628*^9}, {
   3.7947251627313647`*^9, 3.794725178824561*^9}, {3.794725225492092*^9, 
   3.7947252485863*^9}, 3.7947253366229343`*^9, 3.794725405322149*^9, 
   3.79472548506772*^9, 3.794725539544921*^9, 3.7947255910811806`*^9, 
   3.79472596213417*^9, 3.7947259977710323`*^9, {3.7947260392955523`*^9, 
   3.7947260459999447`*^9}, 3.7947265982792654`*^9, 3.7947270556074953`*^9, 
   3.7947271395719943`*^9, {3.7947272713596916`*^9, 3.794727283084779*^9}, {
   3.794727354190976*^9, 3.794727384006111*^9}, 3.7947274585846977`*^9, 
   3.7947274926602116`*^9, 3.794732903188779*^9, {3.794733323514694*^9, 
   3.79473336260562*^9}, 3.7948063608217783`*^9, 3.7948064873907776`*^9, 
   3.79480655083574*^9, {3.7948065929669304`*^9, 3.794806613333333*^9}, 
   3.794806646108723*^9, {3.794806687910923*^9, 3.794806708123826*^9}, 
   3.7948068214439864`*^9, {3.794806886591997*^9, 3.794806907732184*^9}, {
   3.7948069597452793`*^9, 3.7948069753920135`*^9}, {3.7948070055700855`*^9, 
   3.794807018612915*^9}, {3.7948074517970304`*^9, 3.7948074754786463`*^9}, 
   3.794807690869913*^9, 
   3.7948090656262484`*^9},ExpressionUUID->"2ed36e77-825c-4b70-9ec1-\
58c67a298b40"],

Cell[BoxData[
 RowBox[{"1.0105576613277136`", "\[VeryThinSpace]", "+", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"1.7776987689436028`", " ", "u"}]}], ")"}], "2"]}]], "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.7947249094809403`*^9, {3.7947249528065677`*^9, 
   3.79472498269234*^9}, {3.794725032655322*^9, 3.794725098563628*^9}, {
   3.7947251627313647`*^9, 3.794725178824561*^9}, {3.794725225492092*^9, 
   3.7947252485863*^9}, 3.7947253366229343`*^9, 3.794725405322149*^9, 
   3.79472548506772*^9, 3.794725539544921*^9, 3.7947255910811806`*^9, 
   3.79472596213417*^9, 3.7947259977710323`*^9, {3.7947260392955523`*^9, 
   3.7947260459999447`*^9}, 3.7947265982792654`*^9, 3.7947270556074953`*^9, 
   3.7947271395719943`*^9, {3.7947272713596916`*^9, 3.794727283084779*^9}, {
   3.794727354190976*^9, 3.794727384006111*^9}, 3.7947274585846977`*^9, 
   3.7947274926602116`*^9, 3.794732903188779*^9, {3.794733323514694*^9, 
   3.79473336260562*^9}, 3.7948063608217783`*^9, 3.7948064873907776`*^9, 
   3.79480655083574*^9, {3.7948065929669304`*^9, 3.794806613333333*^9}, 
   3.794806646108723*^9, {3.794806687910923*^9, 3.794806708123826*^9}, 
   3.7948068214439864`*^9, {3.794806886591997*^9, 3.794806907732184*^9}, {
   3.7948069597452793`*^9, 3.7948069753920135`*^9}, {3.7948070055700855`*^9, 
   3.794807018612915*^9}, {3.7948074517970304`*^9, 3.7948074754786463`*^9}, 
   3.794807690869913*^9, 
   3.7948090656262484`*^9},ExpressionUUID->"29d00523-1c0b-4659-a1c0-\
af7858999066"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "0.5684639484383721`"}], "-", 
  RowBox[{"u", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"1.7776987689436028`", " ", "u"}]}], ")"}]}]}]], "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.7947249094809403`*^9, {3.7947249528065677`*^9, 
   3.79472498269234*^9}, {3.794725032655322*^9, 3.794725098563628*^9}, {
   3.7947251627313647`*^9, 3.794725178824561*^9}, {3.794725225492092*^9, 
   3.7947252485863*^9}, 3.7947253366229343`*^9, 3.794725405322149*^9, 
   3.79472548506772*^9, 3.794725539544921*^9, 3.7947255910811806`*^9, 
   3.79472596213417*^9, 3.7947259977710323`*^9, {3.7947260392955523`*^9, 
   3.7947260459999447`*^9}, 3.7947265982792654`*^9, 3.7947270556074953`*^9, 
   3.7947271395719943`*^9, {3.7947272713596916`*^9, 3.794727283084779*^9}, {
   3.794727354190976*^9, 3.794727384006111*^9}, 3.7947274585846977`*^9, 
   3.7947274926602116`*^9, 3.794732903188779*^9, {3.794733323514694*^9, 
   3.79473336260562*^9}, 3.7948063608217783`*^9, 3.7948064873907776`*^9, 
   3.79480655083574*^9, {3.7948065929669304`*^9, 3.794806613333333*^9}, 
   3.794806646108723*^9, {3.794806687910923*^9, 3.794806708123826*^9}, 
   3.7948068214439864`*^9, {3.794806886591997*^9, 3.794806907732184*^9}, {
   3.7948069597452793`*^9, 3.7948069753920135`*^9}, {3.7948070055700855`*^9, 
   3.794807018612915*^9}, {3.7948074517970304`*^9, 3.7948074754786463`*^9}, 
   3.794807690869913*^9, 
   3.7948090656418753`*^9},ExpressionUUID->"2fd59e1c-346b-4752-ac4b-\
d9157ed99d42"],

Cell[BoxData[
 RowBox[{"1.0105576613277136`", "\[VeryThinSpace]", "+", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"1.7776987689436028`", " ", "u"}]}], ")"}], "2"]}]], "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.7947249094809403`*^9, {3.7947249528065677`*^9, 
   3.79472498269234*^9}, {3.794725032655322*^9, 3.794725098563628*^9}, {
   3.7947251627313647`*^9, 3.794725178824561*^9}, {3.794725225492092*^9, 
   3.7947252485863*^9}, 3.7947253366229343`*^9, 3.794725405322149*^9, 
   3.79472548506772*^9, 3.794725539544921*^9, 3.7947255910811806`*^9, 
   3.79472596213417*^9, 3.7947259977710323`*^9, {3.7947260392955523`*^9, 
   3.7947260459999447`*^9}, 3.7947265982792654`*^9, 3.7947270556074953`*^9, 
   3.7947271395719943`*^9, {3.7947272713596916`*^9, 3.794727283084779*^9}, {
   3.794727354190976*^9, 3.794727384006111*^9}, 3.7947274585846977`*^9, 
   3.7947274926602116`*^9, 3.794732903188779*^9, {3.794733323514694*^9, 
   3.79473336260562*^9}, 3.7948063608217783`*^9, 3.7948064873907776`*^9, 
   3.79480655083574*^9, {3.7948065929669304`*^9, 3.794806613333333*^9}, 
   3.794806646108723*^9, {3.794806687910923*^9, 3.794806708123826*^9}, 
   3.7948068214439864`*^9, {3.794806886591997*^9, 3.794806907732184*^9}, {
   3.7948069597452793`*^9, 3.7948069753920135`*^9}, {3.7948070055700855`*^9, 
   3.794807018612915*^9}, {3.7948074517970304`*^9, 3.7948074754786463`*^9}, 
   3.794807690869913*^9, 
   3.7948090656418753`*^9},ExpressionUUID->"3bf232cd-3f4a-44e2-a952-\
da702b3f6d76"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQXfvc99P//8IHdsi1vg7cMc9+SkmCd8NsBH81Y/ES
BnMEnzXV3UgyVgjOF75xNGfRREE4P+jwrGTNUwJwfvV725wJj/nh/B3ls7LW
+/PB+X6TQhX+zeSB893n7vXzeMMF5y87XnmtOJoTzo9rmSJ6fgU7nF+XwLyO
W5gNzmfQld/v3MoC59/qntm++ioTnC/DlbHyixMjnJ9tqsV6W+b/fhg/2fze
isOHf8P5WhVW//OW/IDzF94NPlLp+BXOf94oauMu8QnO3zVVw/VF2Fs43+Dl
zS/6c5/B+S67bnP+DXsA5xesXP9DUPgynB+WprzwUs1OOP/4mZtdxsE77GF8
K92DmwKmX4bzmcpE76RIPoDz2XkCGpPePYPzmx9ccy5a/BbO3zC7LaDu00c4
P39RisCTsK9wflzWLNn2xh9wfmdgmaXxnN9wPovI1Gf1v/7B+ddPt35o4Wd0
gPFDq5PMZh1mgvNzuF8rnYtigfPlVx+bxvaKFc6v3uEczD+bHc4vWJazzUyf
E87nYTJP0nvKBee75oZM1ZrMA+dL7JTNd1Xhg/MnFXVMNLjOD+cHtfnrzt0m
AOdrRbeELqkVhPOvPeNcNDlUCM4/l/TUUUheGM5XWyop1dmP4EPzC5wPADoz
nDE=
          "]]}, Annotation[#, "Charting`Private`Tag$10213#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJw1l3k01VsbxzlJhiPDT2VI0iBEdSll6vnJFSKhcitpMOVSZmWsXNPvHNHh
IEIyD3HM0zmyjzkpZYhcXcMlcwOZG7znXet9/9jrWZ+19rOfYe9n7fWVs3G1
sCdxcXF1cNZ/beDE6fn1dYy9Q73Qcfo8C8b9ty4O/MDY9i6KToXmLDAVGVqu
WsXYckGvb7mdZsFODbefrt8wtr5WtP/S7yxooMbwDY9j7FKj3SWkwyzgO9C3
g/0aYzvJWIZKi7Eg1uua8f0kjL3Qrtlv2sGEZ9yemVxHMfa4qoVz7UkmbLQ3
UJW0FmOTnioLzuysAex98830aFH2ZEbV/vrN1WDR+NhW8aUIW/XalstKpCrw
/6JzkzYqzN53cK+zyFAFVN957FR0ZjPbed1nJu9NOZjGnN/5K5HMxpdTtozl
lYFBynNTw1kBdrvq6/IxSilkt/r2elrxs92/LguXBpbAlZDYLW9yN7FP3rW5
5WVVDHevbWAIYrxs7LZlgcVjBnCpyCK9UB72wPVPPmOUAvg7IjH82TsSW+LX
d+s803zYLuCYt3CCm60s4FuopJ0LzkeUNg5sX0eNFRE5DK5ssD06mNvY+B29
503WcO7JACUfzXWXzBW09MEyxLU7DdL+Odvkq7uIHqp2l/RdTYWJoC3aBhLz
qDMtWe6dbxIw4xT0Jy0/oRbZ885ujo/g0FT/wsGUcZT1LjZnJJ8OXl9VFLeF
jKP72vdE41PoUL0cZP3LaRyZz06fMqPRQZdXqeXVsXFE6L+x6vWmg8Vuv0d/
9nxEUh1Bhkq6dPC2ltLMEPyIRLVWjv94HwPMzkv3tvqNIrLa1wPZQjHw6z2j
7Oe1UfSByV2owh0DJ4ZJk2MGo8h6ey6jdiEa2j/nm5VtGUXjbn7+cwPR8EHw
u5xZyb+IXb1jrSo/Gtb1k5ookyPIYRQttBhFw+/MAf6flsPI0UEh5EYUDRj5
WRqtWsPIQEtXWvAvGkgkuf4ZvXMYUcpX9zG9adC7zBtj3DOEutuK+bWsabDX
31IkZW0QseWzX79UpkFD0CIZN/gH/ZyaJnklP4QfUWq8YcP9aD1H4sZx9Sh4
69pqL5XfjyqW/OY7dkZBhplVM8OzHy20yuQECkbBKbHgkD7eftQyyR2lPhIJ
iXFdJEWV92iHcbOHTFQkqCe7r7f79qLGQOPi1U8PwC2vaEUU60bySJDe3hoB
hza7BJ8Y7kIUfh/elqoImPNQ3uxZ2IVobyt1/s2JAA/tvN09Bl3o4KGNI/eJ
CPB+k24aH9CJtq+EWlsbR8C36f1GR169QXkTFPWWPip4ledeiXd4g3xdtmmv
tFFhKXCv1zLXGySWpJJ7ppYKKyKyqTVHOhChE5bomkaFH+piizqpr9Dx/EEZ
v1tU4A1eeXrSow0lj0HfNJkK4SbelTnkNlQAmcxIbirwbZ1v58t5gYRLQu9d
XKKAQN7M0suBVsTH7xB0c5gCwm8GTc7otyCG09VtYZUUoCVY2RQPNSNyvQjL
u4ACYjbv74j6NaNkhw0fHqZTQHyxM72b0YT2Kxlf+v0hBSSkm1f+kGhEy0mP
KGVOFEgc091cU9qAVC+IXf5xnQJSjLrdUqcb0Pb7EvLuFykgo1tt+iGoHgWe
VLQYMqSAXoelUX0vQstzSc+7FClw8rqZV7AgQinzijz3d1HAcMEoVR+vQ5K0
iphL0hQwkdJZbMurRTaoQy5BiAKWDrvTugJqkBrts4jGAgFUd08ipqIa2Rs+
7HL/TMDzgEZXi89VSCJSTblvkoA9dNvjXVcrkXHHAVmFQQIuPCnbG5NQgfbU
H5/H+gmIyNsgZNFZjrSM694q9xAwjzIGOk+UITun75LjLwmQb//WEO1fiuYU
favCWgi42KuXb15egjZFjjSfayCAPTvq07m3GPlHrdJ8mQRMfrnB3vWcgZol
t/u+rSTgDC/fw/QDhWhDuIDi+TICdqgZKqeL5iP+HW+VJwsICDWaXJMLzkUv
LYMzl/IImL1KtKUtZCO5ssr9ajkEnL2tkCDnkIXCNac6UzIJYD544ZDWl4Go
T1Oy1NMJkMtwPCJnlI7oxRfKf6YSQNTw8aQxnyK1nlSBbykEDKaaZ+leeMKZ
t+WyrckEFL6KPqGrlYRml/5lOj4mwH+1cwjfkYD+2DKiMJVAgJG8WCDOHYfY
Frd4Ex4RsO2shRQ+Fo2q239e8o4noH19j+u9qEgUkEFSCYojwPFiVt7dc+Go
4vTHIFYsATxle8cCpYKQwuKmK3s4jEua6KyxvdGF9aYmFp2ArwmJdnOJNsi2
0KU6iMMBpNjmk8eMAPvbVPM2hw88tm0VV3cFeJd9KpHDg5IlnwWFAyD2ctHk
NIfPqr2vDdMNgYKSBDFnzvmV/X/8Fe5PhZDX1GZJTj5C7JndTZdocLQk6+cS
h4H+LKzpDh2WurkrSZx63B2cp5pi44HMKJ7U5tSbrrHfpLkkEQavPY/KSiSg
hzzDaO5Ihgp/lafaSQTwDueLtsykgtQ/3OIkTj+TLx7RtA1Jg5jio8OLTwg4
ohfnPCqWAZ5E2+q2NAI6lBeTbdMygUYvPueYQQAXV8W6bV0O3BS2S6TnEpA4
Jf7bmEkeOJgqOLg8I0C128vGbiAf/gk9rHmHQYBd9uFmu5VC2GV5ukysgoCf
D2OXxsKKIPZUiFpWNaf/2mv0UmoxHBqzcrev5eyXv9SsKlkKf010dLo0EXBI
WmDQY7gUzAJ5X1S94PgLM5dKc8pgukF694HXBMSvSiqoqVdAaRp/VnovAa2v
+qlqZ6thsc1hPmeGc58+f7da7a+BbpFfo71zBPDtGeAJ2cCEnoJyLc0VAk75
f7jbU8aCEb8i/5SNFHilOOThLY6gTaGR3smZ35vvhopSZhFczzUXT1WiQBju
tmRjw4bb0p5JqaoU2DfrphahWQ9WP/XXjulRwFHPo3BgugH67te6tjpQ4Fji
fPsXy0ZAku5p+9wowPfFY3pDYyNc0WvQqvGlQN5jz33KSU1wNE+83TWSAtNz
XmkBxi2Ak78J76nixH96J06moA2cb0u/9sKooL20XPabxEv4fP/D7BtZKpBN
fLr0Q17CdBA1/4IyFQqXfYRdLreDAiNxdU6fCp9N/Sh15Ndw4vHvWdqcd1V9
t66uSP0tXKZ/Elz+RAVNlfpSs0fdcHjV6k/p+Qg40tMbX9fWDcxHWl98SA/g
kP+sn/KPbhA/e6N4SewByLdt0+O73gPxrUIki8MPALN36UZK74D8/HhlkM8D
mE2WXjhQ1wtrW8ydY3kjIZV8+4jQx36onu6z5DsWBaTbWz7YSQ7DxNKT9gAP
Gly6lt9VfXgYlDNbrd/fpUHpKWgjmw3DtbTnoRBBAxvZPyvLw4YhbNvlg4cy
Of/ni1oaz8IwCH5Slk3opUGwtJ1+ZscIjN+73HFTJxp46ksZo8Gj8GnoK1+4
WAxsIpsF2Xweh3capAZyLx2Ch3v1PDI+QVoiY7U29hEUJ4WZ3Z2fg+mEY60r
xkngmm4nMma5CJl39tCS/VLhitNjmfCgFajOph7+7XkaUMxva6glfwcd+ZiU
EWYG8IjHjd9b+wVmxc+bDaezoK899GuIMDduLqUj/mQlB87726g/biThGwSp
y6/V8+Gm4Myujks8OL1VSPKReQHIPmuJ553eiBs/6LtQb8sA/2q9s8JJm3D2
VNiMoUUxuGXfrFQ/yI9/bbNckL1WAmTSUZsDHwVwr6GtZ3aHloL+rXNxSnQy
PunE+/1MVhlI1Mi46u/ZjFvkyHwPKi2HGA8i+lCfMB5Km0qq660Ai7AzKimV
IriThuC+gYlKULIKOZ8ZKIobJ6yd6/5WBb3j/On082L4aSddauvWGuiw+agr
JovhL06+uuotz4QRnpyVuF0YbiuD96nuZ8JCtmORpDyGq+q0mH89yATJmZnt
cioYPsMgmTlrMMHOc375oBaGn/8u5H7dhAlrweuFp//AcMMd63qmHkyQz5KU
ojzE8KQI4V1KdUzQMBh4S6Zj+H1q7spEAxNMppLDafGceLU7u7JameCusnPx
UQqG/5aWGynXyYTaCvm32c8wPHDDrLzkGBMsWtTCmloxPM5wbphPgAX2jova
hu0Y7v/hxVjLZhb4CFR9a+/AcIO6GzMhGAtSTDWvd7/D8Pz4RS5uGRZM9uLa
/45iOOJSPL16kAVrPqRv9hMYPm0jdqOKoxeEpJvypqYx/EpwVbC3BgtUrxps
m5vDcItTB5vnTrBAn5u/w2sRw8cl1qeKDFhwIeNlyMoKhk8shoi6mLDASf+B
VsAPDO+8g7SUOXrlf3oG/7+e+Q91q2Wy
          "]]}, Annotation[#, "Charting`Private`Tag$10213#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQXfvc99P//8IHLK4dzTVh+GQ/pSTBu2E2gr+asXgJ
gzmCz5rqbiQZKwTnC984mrNooiCcH3R4VrLmKQE4v/q9bc6Ex/xw/o7yWVnr
/fngfL9JoQr/ZvLA+e5z9/p5vOGC85cdr7xWHM0J58e1TBE9v4Idzq9LYF7H
LcwG5zPoyu93bmWB8291z2xffZUJzpfhylj5xYkRzs821WK9LfN/P4yfbH5v
xeHDv+F8rQqr/3lLfsD5C+8GH6l0/ArnP28UtXGX+ATn75qq4foi7C2cb/Dy
5hf9uc/gfJddtzn/hj2A8wtWrv8hKHwZzg9LU154qWYnnH/8zM0u4+Ad9jC+
le7BTQHTL8P5TGWid1IkH8D57DwBjUnvnsH5zQ+uORctfgvnb5jdFlD36SOc
n78oReBJ2Fc4Py5rlmx74w84vzOwzNJ4zm84n0Vk6rP6X//g/OunWz+08DM6
wPih1Ulmsw4zwfk53K+VzkWxwPnyq49NY3vFCudX73AO5p/NDucXLMvZZqbP
CefzMJkn6T3lgvNdc0Omak3mgfMldsrmu6rwwfmTijomGlznh/OD2vx1524T
gPO1oltCl9QKwvnXnnEumhwqBOefS3rqKCQvDOerLZWU6uxH8KH5Bc4HACGX
gMU=
          "]]}, Annotation[#, "Charting`Private`Tag$10213#3"]& ]}}, {}, {}}, {
    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., 1.1250499999999999`}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{"\"A_plasma\"", "\"w(z)\"", "\"R_P\""}, "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}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                 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[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.560181, 0.691569, 0.194885]"], 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.560181, 0.691569, 0.194885]; 
                    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.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           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.7947249094809403`*^9, {3.7947249528065677`*^9, 
   3.79472498269234*^9}, {3.794725032655322*^9, 3.794725098563628*^9}, {
   3.7947251627313647`*^9, 3.794725178824561*^9}, {3.794725225492092*^9, 
   3.7947252485863*^9}, 3.7947253366229343`*^9, 3.794725405322149*^9, 
   3.79472548506772*^9, 3.794725539544921*^9, 3.7947255910811806`*^9, 
   3.79472596213417*^9, 3.7947259977710323`*^9, {3.7947260392955523`*^9, 
   3.7947260459999447`*^9}, 3.7947265982792654`*^9, 3.7947270556074953`*^9, 
   3.7947271395719943`*^9, {3.7947272713596916`*^9, 3.794727283084779*^9}, {
   3.794727354190976*^9, 3.794727384006111*^9}, 3.7947274585846977`*^9, 
   3.7947274926602116`*^9, 3.794732903188779*^9, {3.794733323514694*^9, 
   3.79473336260562*^9}, 3.7948063608217783`*^9, 3.7948064873907776`*^9, 
   3.79480655083574*^9, {3.7948065929669304`*^9, 3.794806613333333*^9}, 
   3.794806646108723*^9, {3.794806687910923*^9, 3.794806708123826*^9}, 
   3.7948068214439864`*^9, {3.794806886591997*^9, 3.794806907732184*^9}, {
   3.7948069597452793`*^9, 3.7948069753920135`*^9}, {3.7948070055700855`*^9, 
   3.794807018612915*^9}, {3.7948074517970304`*^9, 3.7948074754786463`*^9}, 
   3.794807690869913*^9, 
   3.7948090657355585`*^9},ExpressionUUID->"1c722814-5d18-4775-b1ba-\
0955a3afa9dc"],

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.7947249094809403`*^9, {3.7947249528065677`*^9, 
   3.79472498269234*^9}, {3.794725032655322*^9, 3.794725098563628*^9}, {
   3.7947251627313647`*^9, 3.794725178824561*^9}, {3.794725225492092*^9, 
   3.7947252485863*^9}, 3.7947253366229343`*^9, 3.794725405322149*^9, 
   3.79472548506772*^9, 3.794725539544921*^9, 3.7947255910811806`*^9, 
   3.79472596213417*^9, 3.7947259977710323`*^9, {3.7947260392955523`*^9, 
   3.7947260459999447`*^9}, 3.7947265982792654`*^9, 3.7947270556074953`*^9, 
   3.7947271395719943`*^9, {3.7947272713596916`*^9, 3.794727283084779*^9}, {
   3.794727354190976*^9, 3.794727384006111*^9}, 3.7947274585846977`*^9, 
   3.7947274926602116`*^9, 3.794732903188779*^9, {3.794733323514694*^9, 
   3.79473336260562*^9}, 3.7948063608217783`*^9, 3.7948064873907776`*^9, 
   3.79480655083574*^9, {3.7948065929669304`*^9, 3.794806613333333*^9}, 
   3.794806646108723*^9, {3.794806687910923*^9, 3.794806708123826*^9}, 
   3.7948068214439864`*^9, {3.794806886591997*^9, 3.794806907732184*^9}, {
   3.7948069597452793`*^9, 3.7948069753920135`*^9}, {3.7948070055700855`*^9, 
   3.794807018612915*^9}, {3.7948074517970304`*^9, 3.7948074754786463`*^9}, 
   3.794807690869913*^9, 
   3.7948090657355585`*^9},ExpressionUUID->"19127f18-01cb-41a2-9e3d-\
1530ea510ece"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwtmHk4Fe/7x/GRbGU5yl5EkpCytKD7SEgpSlGSCqkkSogsEakoZMtelogS
WQrJnOz7Muc4dg6Obazn2Jfynd91/f6a6zXXzDP3836/n3ueGWlrp4u32VhY
WE6zsrD839F77Bxzc5NAail3fLhwmAajnjsXezYIJIXCuuQCnM/zDyz/XCWQ
2NS+/HHBWerYw79O8wTSz/sjjQuHaFAeFM5JGyWQZP468i+o0IBTuWMXqYlA
6u0O1ptVpkGky82zvvEEUvBGrVqnAg2+sD5OYzlCIFX9WvJ13kODLbcNDote
FySlHPvApsxHA0JnlUPKOwHSSsHYdd/lAbhYEWezv56fdC54/aR18wB4zmo7
hA3zkVxOdQWvJg5A0ZM4+xzj7aS5knzzcocBOB9+WepfLC9J5WKo8t3DA2CQ
+Pv86Slu0rJYwK9z8/2QXuNBfXyNixQWkdHimtcPVgGRO1o+byUFmi2ERdv2
g8/N/77xEDhIIr/MLVIJ/cCitBvRfcFOCvpHKdT81QfdwbEvv7SzkSJqiCdu
GfeBBPfdzIWTrCSHT/fc3Pp64b66wpYeiU3ksul932iTXrA50v+5omIdYWHu
U2T53gMK7sc3HdNWkJ+WO4/ybemB5D7TSg+dRcS1ePBn24FuGPPboWUgwkT0
s/708J3ogpIoeb1xs2nEImnibf72TlCZ6Fo4mDiKvPAKz1bOpcKpkh6uv2Y0
5M7ZD0Gamu3wLevTsRpNGvJUnliToNYOIvFO995J0RDuW80KG0rtQF3mCD9L
GUBYil7EFUq1w15PM/7EtX4kMnH5vRBHO5T7LfISDfqQHL16ZmgrBTZCVDkC
aV2ICr2XZ8mWAq1ONbfFsrqQP1ysqZpWFEg1uVb17XEXohUunO1nToEzgv4B
HRxdCHukli/fGQrERqFs+5U6Eb5f7tzqBymgkfBos8GDigTPyP8mrZLhYWbO
igCBjFzaLSxaEUYGle2O/idpKPLmichXUhAZGM6K2x9no0hui79DeQAZnLUy
ZSgGKCIwZbCd7E4G15aU89FebYjR+q19SrfIMI8dMFRvbEEEl1cDJg6TwaXg
s1W0XQtiLPTxhLYSGZa897oss7QgEzLxXe/3kWGFf/eHYvVmhOK78NRaggwb
GoKL2h8aEQkj022mHGTg8F/5qO9ch1wXELvS1oPCSyPXHxm8dcjY1NszX6ko
cO5kNnBm1CK7zMWS37WhwJ05uVTfU4NA0bSnVw0KfC39RsZ61chqWtaB7nwU
RMSrVsxFKpATqmZb50NQiKXrbC/OK0fKn5+KiAxCQexbmYzYuXJkf9I6u14g
CpI6Red7/f4g+w9vDpK9UdBtNjP8Q0WQeYsMUt4DFPRvmbj48yAIdbEjl3IP
hdMLhh/0iGVIw1zIEU47FIzEtBfrMkuRmIyDHp+sUDCzk0lGvYoRy1NCihUm
KAQ9evwqvLAIMd4sf/DmHAq/vSqcLs78RMbXJDzvnUFBNsLmBHrjByKcKe59
8xQKV5Ly94bHFCI9+YpHPHVQCM78b9vFtgLknlSNwZcTKDCR1J62k/lI0gsx
jnPHUJBrmC9/55mH9Csu+yMaKFyl6mZdKPiOJH3OXDmthgJpati9bW8uom3M
dE05iML47B3Snt/fkJHCgquPlVAw5uAMTVHORtQ5szDLAyjsUj2tmCKQhajs
4Oz23IfCC8PxNWn/z4i2w+yuvL0oTN14VZe8kI5oznP3s8miYOomHyNt9wmh
a6iFOO5BoeRNrV1yRyqyzFqcsSiFgnTqXXVpwxTEXeh6WsxuFF4Vc7Inl3xE
tpRf2zTfhUL/hwufdK4kIf2u99TVJFHIbnx3UkczHgkVL6xUkkDBc7VtgLgr
BiHbTyjqiaNgKCfoTWSNQkJ2KM8+FUNB2PSiGJH+DjGnyoe0iKLQsCnr9Czk
LeJo9e+tLs53r37K9Ln0EgmUNnXpEEGBPX8v3VvMD9n572xtMM5EUSPtNZIr
UkgKEbyF81xMrC0j1hqZ8T3ZZ46zF1tklf5RQxCl8hU8xFk5zqZGSMMJcoak
ZL/i3C/6fYaHzwtM1aRLufHnmap2lgbqBIDiE23etzj/6DJ//tIzCLLX9qSr
4vVuI03KVFqEwRGOTYlNnCHiS2DlkwhoWvfeMofP75Hd/YnKyGgQMKhf5MD1
SDl2wKjqeyzU7gx+cQrXi8I7+a2qOQH+9Q+dy8T15KBlCVRPfoDJ5AcT6tIo
JFxVP24TkAxNf08sYLgf6rpR94cFUyH87wBPHe5Xs+Jigk1yGoRlGbW0yqHA
wlK4aVOWAdfrM3pv4P7HTggdohtlwqHG/PvjeD4Ok12sbXuyYGQIUUlUQcE2
Xa3KdiUb6sIdlt7iefsbGrlED8yB3FEwaMDz2KC1FpEXlAtP8pwcj2jj18tZ
VB0WzQMnLvpMEp5vFXHufmdaHtxf70+JP43fz1eylJeRDyTv90N1RihEr4rK
q2oUgmiSce3vyyjUNHYFqZoWQfp6QcVOe9xP9+6aaweK4bRbW9vBh3h/kO1h
D/ivBC500umv3VA449nrQ8n/Bb4eb5rYA1DA5Pp+bQSXQtNOQd99wfh6QvtW
ZG1/g/KUCSMkHIXG/QPOrkII2Lefoh5MQcGhfSAncQqBqJyog/ezUAgkPlyy
tiaBZGau4GweCvumHqoGH/8Dj4Q/n6FU4vXoOmf3YOWAeYc4H5xC4Wgss2HW
rALQlkn2+iW8vlln7L+KChgTYFALWMmQGfd4n2J8JehYPRR9JkIGjOGS7HW2
Gs73TcqzniFDicEiEvazGjJvSNUeNSdDUKJrf5pMDWgebLestSXDAUM38ab1
Gsg66Kk270sGh49PoiS/1sHc7srFd7/JoLW0nH9IpB7uaxZ/SG0iA6+RO6oX
UA9Pk3gKhfrJkL3szudo2QAPEmWKRVgoMHP+6esy3iYIsb1VQjpNgbK0tQzU
vQlsWH/cHL1GgZC1p9Wj9CYoJqVecXaiwMF0z//4fjdDrV3bI9J7ChT5lJXl
aLRCGzMcPTNNgY+Z/5qKHVqhtkkro+i/dnhFOdFXkdIKxa8PV4WLtcMVBWS9
Y3sb8L4X8QwxbIfVduQoy1gbxJl86yr42g7Hlf7kmbwng+jJVHGVV1RQp1Cj
y+rIEIjEeH1OpYKK59RTxQ0yEC6aJ75AqCBXJ6zLeYsCe5jRJMcVKhBuO5IR
hXao0f1rv+nYAVMJ4gvKZVSor/kzLuzUCWO6hzoT5qhg/kU8ZiCsE4Yw/VJu
mQ4I++vGyZPfCV1HnQNGX3bARuMIKXilE6optUJJFzrBwORQuPyrLvjA66a+
baQLXOypg8bF3RCXHyzqKdwNhYsE8R2D3RBtkfx33LAb3g5u/lXl6oE3nxur
Kr91g0KtbvdTix5wPyVj5uXeA1FP16z4WHvholer2yRPH/TpqVToXe8DNrcd
vbaiNGAhMam/ZWhgcTMLLVKjwYFtFT/mtWmQdwbqeE1oIJdsJqFzhQbWu+/9
KAjE932EiEOSb/H9Ym1pGPsCDZRrI2oKlmngL26rl9Y8CIx4wVMKLYPA/ifv
27D/MBQbK5IOeA+D5ReDT0c+DMO0DX98wvthKIjqjQ8uGYYtv4x2rnwfBlt7
jteqjGHgWPmYdm90GKoIFjb+VnRQvL7EQThPh0A7VhGZYyNQkUGMfSA8Alt5
TfysZ0ahn/oqeChoFK7ssyBpcI3Bru01vjs+jkLWSdtNbtkxuH2Jqr+jcBTO
e7h7518dgwr9a3Ie/aMQPfrRg71qDGpd12oqlcdA7g/jUXr8OLw9K3N1B37e
vXc99+mPcVivohOGqWNQv7xl7nzbOPgmKXC6j4+Bo7KY4zLHBGy7+I53mXsc
fsSftD/tPAEys4dq9c+Ng55bhDV2GoPQdv6H8jXjEP0uMbnMBgOfdddem/Zx
GP+aQQv3wUDnfFac3fA4vBn+ZaVZgMHoia2F5f/GgWJCt3izexIEVCQ6ug9P
gJzDTOzN45PAeWlivxlMgPvLlU61y5NQd/2SX9zZCZAo4zXvC5oEOqfI1Wc2
E2B7QN1UeWkSUkYcBMrDJuCHPoSzCUzBSRO2jrfxE8BpbdhGPTAF3ZGD0nvT
J+BrzHXjZ7emoJG9puhnyQQsbAk829o4BaU3JbyeDE6AvnRYUNrYFJxQ7ZzM
xCYgRiuuzp1tGoTuyaxkzU+A1uNvBtJHp4GzODJCbAsG/jSqrnPqNGwVMh/4
tReD/uKzD9xLpyEHVtmmFDE4HkGK9mmfBvYBYZUFVQzm9LImgrbOwH5uL6kQ
HQysvniHpt6fAVH5A01MCwxKAphFmQEz8D1zNWv6JgY7rO4M5STOgIBlcXiF
HQaN/BfUS1tmIP+O8VY2Z3x8N9keiuosVIsX61ACMYg2jmXvMZqFYXt0f14w
Bgz57cqDt2fh7ZM2JccwDD73LPtOv58FyY0lweexGLAXOmTN587i+Y4s6k7E
4EbIIHm1bhY66hbZCCkY7NRpkOPYmAUvB75tslkYHN0mJR/IPQcfTxWH/s3G
ffTo1uISngNa7apW0XcMTpoa2/GpzIFP6GwsWoTB6pZjxeLWc9CmfrX3UxUG
6c7zTUmOc9DRbKcWUYvBpYHsIWnPOciWvppn24BBbtEeXvnIORh9wBdV2Irr
s7dP6svHOfAfFM5XJ2PAE/5eXTl7DuSGA+7Ft2Ngd5/3hlr1HJhtrvGIdmMg
1Fn9+Cc6B+iNiq+HejEoP+X36vjAHPjdvGN8qB8DyV1L34krc3BUeGNjdBCD
+qDc6gp2BtgL5fxMHMbAfdm+R1+AAQn6pWStEQworQPs5xQYoOEh8Up9HIPn
2nGirRoMiFuj1IdOYKCSdUnZVJcBnYRvFWQM938nny7VmAEPjcWqWacwCPav
M79qyYCiC+2yYtO4fnP+Dr13GcAlOHRIcgbXz/KE3w1XBrgefX2CZxaDyLqV
qCE/BqwlmcfTcT6pkZ91O4QBvIsSMZlzeH5SHiDjcQx4F4D5WzAwSOKTp9zP
YACPsGD2Ms5GXkPjM/kMUF6TveXHxPUfT/j7iMSA7D3zU8s4p182F1xsZICV
Q1DCtXlc/3KBfe5deH1L6r++4sx2sFFzfYQBPxK8IyZxzo0PNPFhMkDh5V4n
kQUMGgiBY3wsTKAp79yhjvNo8Auf5G1M+M+nVE8bZ1b2FztUxZlw55+k5SGc
JbwCvlbKM+HyK5U8AZyPLPjrmmngbN79sR8f/6KDf/eYLhN26TCfxeD8gP78
kccFJrhuI6bjH0fwyvI5J88NJphPe92j4PWnUvw+JDgw4Rb/pV3mOJcZ+Wko
P2UCamYjUovPv6vStwl5yQTV3VpZ+3Be0PK1vRDFBFC23euG68dX+Gx9KIUJ
33PMuvNxfRWUnoW75DJhr/ELkUHcj5uSPqT3DUxQO61+jwf3yzPK23x/FxNy
Qlx3cOF+Rm/znikZZUJmhLPPMu53419PiX7WeRCZX/6WgedjzNUz34lvHlo8
9nPaj+F6zjw9wyo5D+fsH+jsGsX97/dwlz06D8WWiQ7X8byZmnnw/dCbh4q2
C+PjeB4dm93TDUznQe9KtvkdGgZpZU8o9o7zwCllIXaiDwP+D64q39PmYWF1
6pgFFYMDwq41J/PmwXbPhk0ABQP9UBcrCjIP11Oee6aiGHg9e/xmuXseErkS
rf40YzB+49G4tsACpCr9UX9ejQFJ6sHHeu8FMClD7hrgfbknxuGIZfACZAds
0+vG1/MSv0PzdMwCWPsctbydg4Ei6/0N/oIFyGLtYdri/SBm8O4Vc2wBhKqe
J23/iIFTii0/3WwRFBqj3qoEYRDiEZsQYrMIoaaa4cEvMfhm0ix/7OEiYFW5
XEMBGMz8O6IT8noRDDmnKvyeYeBwjcf5aOki/Jn++jDUBcPXZR75jfQShFt7
xq1dx9d74Ga0+tQSlLgTaHnKeH+wj5N86bcCa6Wl/RkNE/D6gtsx1YR1WK1e
VmrjngB2oajRZ2v/QEwwpLkPf191NLyYC+BjJX690pyWVTgGlz2tNeIq2Ija
z+d4VfePgQPP5J5mC3bilUM870uLR2H3l+poDmwL8U9HrW79tVHwLNI15Yvf
SszgjNRlZx+Fh+kOPzQOchEfVAiscPweAV62I9bKI9zEd+wtHaMeI6D34FKU
QgQvsa+oaPMocQREiiWd9GS3EzWtQnTe8o9AuPOrdyodfMSxyjc6z4bocDHQ
WCnxBz9Rz49PkrWUDgrXAi6neQsQF7crM4di6UAd5UqJuCxIDAr4qWHlTodm
6xEdwd0E4qD59juMa3QYZM9YidpDIJ55VnLAHeeF9Ls5onIEojJIS21a0EF0
clJCWolAbDTMfb8NZ9vHzOWDmgTilyvtZYpX6LDmv5l9zpxALGwPaH98iQ5y
n0TFXocSiIz9/fay5+hwzKCnlTeCQHwYssDMNaKD0UTCy7BoAtGyyCNDG+dH
SlKL7xMJxJ9T96PMz9KhtFCuNf0LgRiAqj1/a4jPr1o1sLKGQBQ2KH3Nqk+H
23cXtU43EIgxdbubwvTo4M79c76hmUC8FH5XUwrnxPPHb5HbCUQezjMxcIoO
41Si1tAwgfipNdfE9yRerzvb/O0xAvHr5ZRxfpy3iVdmTmAEIrb1V1ayDh0O
3zAQZjAIxA/K7NkVRDrosXI1uywSiKPYlulLOF9JrQ9YWSEQh23azEaBDvZ6
bzS9NgjE33eMsSc4////RqJd+90MLpz/B9/CjLw=
          "]]}, Annotation[#, "Charting`Private`Tag$10293#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwtmHk4VO/7xxGSPaNCCSFZk6hsnUGIaLGTUpZSn7JLWZIsUT4VSrZKtBBZ
UraP3GMPZTnGvk3NGObYZsaalO/5Xdfvr+d6XXPmmft+P+/3Pc915Nx9bby4
ODg4jnNycPzfGjFpzd7YIJAu9Xq/24LQgB62fWl4nUAycVFQv4bzSdHxlYpf
BJKIxw5yB86yun5/fBcIJOpmeuwTIg3q7yfzUegEUrrqcqicMQ34NPp3k74T
SP/1JVQZmdLgSdCFE3cyCaRYMhdH1gkaFHAGvuY4jO/vI/rkPyca8HiZa0me
EyMtF/YlGIfQgDDQdC0naSspInjWPjeVBjYNGR7KbaIk+SX/oTuVNAibN7z2
mCpCsmpzumbygwaVIRlXi08Jk2zHG6ifBCbgZLK97N90QdImaWPPc8gEmD//
cvL4DD8pKu27HPXmBLxtudUXeHYLyUeFnNv1eQLOxzzZ1pm3mXQ8YL3Uj5MO
ty9sKhIg8JKulUndpdrQgUNdBkxiuUn/BF/8KVZMh6EH6fcKerlIlusjlyjy
k7CL3zt/0ZiTVC260t6bOwn/6KjwDO/agO5W2grVbAo8Do/lNTT8hkpVi9Np
nAxQuam34fN6FeKLzoXwNDCANHpShZq6ChN60o5uzQxwMPGwd0xYhSh3YcWq
VgbcFU4sQHxW4byBteu1LgYMvh51FD2yCqiBLKVzlAHx3XdKSttX4IKd9ZvI
VQbQVVouLrKXoexhX8R2dQzCHw8nek8sg07hgqKNJgZiy/MVI/3LwHg7WPHg
IAZH6ySEm2qWwejjN6NVXQyeOl6tfhq3DHXjO4I/mWFwLEaIcFhqGezqWEqv
3TB4NWrbeMtoCdSjdENfPMRAi6a1RtZeAtek9hs6SRg0Yls1NfctwX8Vp8Nb
UjCgr3Rm0oWXQDb40N6RNAxUxKwCbUcWYbRqI7gxB4OPZsf2qIcsglz+hmvg
ZwxMrOWd4q8uwkfe73YFFRiQbbkeUs8twmzxuPJIFQbLF0i/0o8tQrtN5Xel
Wgz0wwy6ecUWIVf+RLx7MwbfonZududZBDLivOb6FYPz8WsGX1YXwDN5/M/J
NgzuPK3MCxxfgOjiys2SHXi9xdp3KIULoOl4VonYi4F9OaFcP3sBOqvNVdh9
eP017OnUlAWYkX1kmTGAAV9biaN16AIsnw/Z9W0Yg/SuR//mXV+AYV3uK/aj
eH/9Pg2bLi5AiHQdH3kMA2ua2v5q8wWw/sPyLfmBwRgm4LVNfwHskz5+E6Ji
4MfCMvw0FqDsvu47NxoGyX/zeJW2LcAh8WOr43QM5HniDe7yLUDYR/O/QlMY
fBK4HDD6mw3b9ERe7Wdg0CehOJbykw13Akg9VtMYXJbhFp/vZQPtsPas+QwG
q4pUC8tWNjjXR5TrzGKQoFYf+aaGDSVjYextcxhIHXz1maOEDejccY8pnAt0
70yfzWXDb0y3rXAeAwOim1xFKhtGfUcn3ZkYfDc76ih2nw2qQ2th/CxcX2vp
f69HsIHol2Sai/O87Xr9Vz82vMno51Jn43q7DK/Ke7KBQ03P/x3OWy9Wa0Q6
ssGm6qy12AIGOZfTPYcs2cC9Sdz2Os4HfW5m6BxlA9nX17AS58Ygx67HB/DP
M4qa2Tg7hB3inVFgw/q8ad6uRQwmo7YZmEuwoc97NEMHZ/6I4vkUfjbcCJ48
YIizxk2LXMo6CxLTY3U0cbYJpDqoz7NAeUuTuTDON3wi+EN/sMCwMG1LP75/
xpUdtc09LOg8Pyh1H+daz1J/QjMLnrmYSSnh/NPthOKFShaUtse++YD3w3t2
YqDwPQuWkxSdpXFWcYhM/JXFAqZmVlcwrsfJM5JEs0csEGJavC3H9QuwKltI
jmIBWS00cBzX96m59bvxQBYo/vDsmsf1rzSedFG7xAI9N027Sfy8RgyjhG85
sSDAdOFJE36eCtqfg8UMWfAt8Wa2NobB8f2nlN3243xNI7kR98c1FcZIgRwL
RIhfH+pOYvBYMfrxKoEFF1IOKqVM4P6RlT5myssCu9Xz0124/wZ2VqwkrTLh
ZYXhVTbuz/XtZwrGMCZkt7cfWBnH8ygUK3azkwlfDVU78nC/X+KTaW6sY0Li
snm13SAG9zdV3dr6iQnjbZ+kf+J5QX/NUN6nMSFV0dX3ZTee18W4Jyv3mbDt
98z1DjxvUkzZ48cimBB6/B73aDsG7nS74tGLTJAPH9r6rAmDuB9z7ip2TPj+
k5RsVI/B+5H47SFmTEgO3klqxfPORmsiRFWZkF+ipu6Pz4ftHQ4HzkkzwTuT
6v+oDAO9ViYtX4QJavv2XE8oxoAr0iItbmoe3BL8Hgi/w8AyOGJD5vs8WLXd
LU7D50/SP6WXqkrn4eva4cT15xjIOknqzITOg0dswfVTTzBADjC6zwjNQ5XP
33JCJF6fkrTuNGsOKnxlE87dwqBD+kx2TN8caDUxBCIC8TzwV/lUvJwD/1ZE
Rv8yPn+p8QLSWnOgbxVw/Y0V7ufBmoDy7XNwm8Tx+aEpBoJdzMFTv2fhgL/L
B4ujGGTWOOXdbZyFnwEh1Vr7Mah+us90ymEW+J8b1TQI4/Pn7KQHp8EsfOzq
umHPi+dB9u1dKblZ2Neyl1L+hwHs9/Ikq+kZoGXu4JmcZoAyabd+aeQMUH+L
kJlNDLgRO+rc5jkDD+wijyz+x4BGy6ybVIsZOPmrkKOxlAEXeiXLt4nPwAf9
D7otWQxIw8QPhOZNQ7xDhJ6NH/7/UtxzKuXfaWhNjMss8mSAdnCyT2HANNCq
l9PITgzo3BApHDOYBmVDwSPhRAbwbhNQMsF9oFq33U1LiAHBCKe04BoDol2G
o/mypqCem6SvOM4Arbrc1R+JUyDadtvlaCMDhq6wf0ZFTEGh3fozv4cM+DfJ
mSJ+fgpoV1bEevcwYFf7msC9XVNg82SW78WJKVCPru3PfzgJ2c6FShWaU6BN
KCPPhU3C3O5/zLq2TcFxmcddv70n4X7+VDQXZRIiuu+wfYwnoa6W+vdS0CT4
0b9GNrDpoMkYXNz/nA4XHL7wxFvQIYiprrwjhg6X/VPKfmnToXIl6tzfq3Sg
ejkZGcnSwYhXpfnbETq0/zQysVueABv50GdXyBOQhfpOZGRPQPA5Kb1c/F7i
qKDRYjxHg+pul8jtoVTg0fqytSCQCn8Hisr+XKDCMcm7A5ZnqWBM4ZqimVNh
bbPP/mFjKrTPvT9dto0KzRcefu/eSoURgd9yp0t/gpcXbUW7+CdsmGY2Jkz9
AL6asiOt+HqsenjLHwcKVJjutmCfp0DR+ze6LfoUuHv43e6aYxSQyPS9kiRL
AbvcU8wsFQr0rfAmnyCPg3b8Wbszs+OgGOYg+nxtDNoks6a3y45DfdSSINF8
FO7pdL4UTB6FVPeEa2TRUeDd+0Ij++IoXDGR/uY9NAKu2m/N4g6MgiiP6YOk
6yNQMhuRewYdAbf4J1uoKcNwdHi/2g6JEVh/eJA3jjIIy7FjMvWfh6DLt8VL
6v0gyM/qZZg+GILc02ebigIHwchLufngxSGwFIuO6ecdhEWvx852wkOQ/hTl
UlYfgLlu+TDS9UE4lOW/0X6rD2xanNumjAbw+c/jdsGkD+4whSkhuwdg9Fx6
7aJgH3SxRLTCf/dDjExdhHR2L8Sb/PGfKO+HnhzRdZ9mMnQvVWscPdgPfvnF
q1sJPdA2efLeJuM+0BT2iTamoPg5Spg3KvUBK0BNOPADCvdUT2hgQn0QYJAv
TzZH4fRrV2XP4V4I7sw5mRreDVg/3OEN64VD2hcHmy26ISe225Hu0QvLaTKe
K9u7ISZ6s/o+614Icc+65VTaBQF6xwY6ZXthAVO10PnWCToN4a7Z38gQ9Cnv
fOqlThCXmw2IqiTDcoRi0ApHJ2xOtZUjvSbDqqjMyyqdDghSPdRie5sM64fE
lgxffgO3Qkueeh0y8EavZpsFtMI0wcxV5nMP3LMKLn8n2AptZNP5+Lc9wLed
3c737iv8ybUcPZbWA/z508ttwy2Amn8pKwnvAZHOMatTps1Q0n/mirFFDzxO
O+teMt4Ee0IU/+4z7AEx94GQraFNID6j+ObsgR4QX+rO6SlqhMjmhOVXUj0g
sbNp1VGiAUYyb6hlMVFIpxkJV32sB0J05cg3OgpSRbXyUtb18P4hv5bJKArS
RpUnR6LqIGBL3pM/bSi84NfxNNxVB+avl3iJ9SjIkEtvvSgnwUOf8KnGKhRM
Ohws6voAanSDW5LzUTC7eDooWgCAXWSrPvQKheOLFi9NibVQK+HZcyEDBSsp
w6XW/BowGFyv2JeIgsMl+VdoeBVovXVcTgxA4b5/YHzy50pw2EzS6L2Gwpfw
Bl+buQq4q7BD1+4yCgopHkdRt3JgIl8nFlxRcHpRppic9hlK+/p2EpxQeJC/
Scim+xMINJ08cckWBTbkDncbl4F3FH/bG0sU9rYv1CeFfYT8KY7yx2YoOPeZ
vD/zqRT+7iCTC41RIM1Qb3YrlgCT5wcrWB+FqfnLpD1fikA5szhV7ggKp3j5
HuVofAAPzsf//dZGYffB42o5W9+D0uDuH0f2oxBrMbUmF50H9KC15Aw1FGbc
4ltfLb4FZNVSaZ8KCrY39qXJXXoD6Zt2rlGUUKhO/HrpVX8uvC8Y9W5UREEu
11tHziIH5nv80W55FOKr+LhfVWfDurHiM749KIy9PPPGyOkFlAVUSHjLovDh
W5KxkX4mXNntWj2/G4WwX93jxN1psDvpC+WFNAoWe8UiiJxP4d7nv6ygXSjs
sLWRItKSQB6rsfffiUL7hoJv5MN/QThza3CKFArezm/yb9vdgze5KdVDkihw
lynSIqSioPiWU7IZzkRJK8M1UjD8ll+60ieBAjMt3ZOV7g6Kf2+XJOAczvWk
yeyIBXL5RGKfG84aGR4t4od8kY107ZNOOI9Jls4JiIQjvL9EHwTgbHtwoCbO
KAZBuAy4inAuH3S8ey/sPpJWdUaFH/89IdK0fKPLY2TQxDcsDmckpSCuMSQF
2XlDy3cPXq//pX8YjU9SkcdI1Z1RnHN0Va2aStORTfPZahV4f2TB6aKmjiwk
256HVYT3z0t5v7V5+iVi/jXSuhHXJ8tZR88j5hWyyrG3YRnXT8fk6T9UsVzk
9o94simub4faUpbHq9fIiEQZT6kcChwcnzc8at8hZy5TxgYV8DwxxA/QrPKR
QHWr1NS9KGj1BLl7Dr9H5nStE6/vQ8HzrXaT5+oH5MX97+7euB/+PHqyTIsr
RgZ7iecfaOD6G6ylfLxfgly2V+9o1sSf3+vSpCX5EbmbN3c6VgcFzZ38YwGU
j4gMN+f9zbj//ohUL398V4YoLHLFZOuhkPpLct/BQ58RTok727cRUWj5Nnj/
oG0lktVAv/vnBH6eN4dazqpWIVINUtf8TqHApzDMHbOpGtH9Sj+/ZoOCZdjI
bXLZf0hIcX3kGRcUvimPBwSLA2I6qUzfuIJ/3yTgwzBWjxCcNVLX8bweSWe3
zzs0IOdiFw8VJOH7zQdgmxoaEKSEIHM1FYX8jEAltcxGhEcgw2pHNgoYK+hV
+IlmpHEnU07xEwrXskOeShe2Ii3jszENYygYLK+UHZBoQxosPa9a01AQtLqJ
msa0IafWjjj+ZOD+Xrkp4uPajvyUWVBQW0Jh7mRoQq3gd+S3T+DEYcEeqLxd
W1t8qAuZDHb1WNbvAT31uo+nn/Ug5mrbq29l94AOuS+1trUH8WoPdbmNz1vN
sJlQtfUehN/eOCiusAf2tu4w4btIRkQ9o//NruwBgpdPD6j0ImX55q2rXT0w
k7VzUaO2Dxm6QYLdXGR4KXhDR2hiEJFIi7sQ60UGrhvbRjwlKQhZi55ooNYL
mwVPR7nP0ZE6l12nZvDBGE3pMwnInUV66QaXt0gPQElm3OnbbBaS6iaky6s1
CL45nqI0hyWkPG4k8uWBITh/NUP6XtQqst4d3LC6PgQJZ27oHsz6jSTpbxgK
5Q8Dt/hTeuTaX8TVpmvppeUI9LfHMmNEOIkD22Bi9PsI2Ie5H8po4CKyAzrz
HlmOwjWB6T0dLtxEvYlLFO3SUZApaE7lxXiIEgbiX5b4xyCs0sRWJHMzcd1W
9eXvi2Pg9/Za+aH9W4gCvumFjPdjIMh12F1jgp84e3mPgg57DEyv2z1VSREk
5uRFvw48MA4SVdK+pgrCRD43JdnDl8chOSA+SbNfhMjp/IjjXtY42MSdUn9e
Lkq8pUNW0GgbB5WzMfavI7YSs57cd45dGIc++pacFHsxorqkXFW4MAU63CeM
xGQIxETFMefL+D3pB/e71ad7CMS+NsXgTzgvvvUultxLIF4yY4dwylFAcnp6
l5w6gThXb66dibNnIHtlvz6BaOCgmPB9DwXWojc+WDsSiOXrzz6oK1Jg7xtJ
qYRHBOLpduf9I8oU0DUf7hJMIRBNf3Ge2Yvfx6wYWfcepxKIelNJZ/1w9leX
XXr2nEBUeJuiyq1KgZrPe7veFhCIDdHmlSpqFLBpPhjX2EIg5g7k/BuoQQEv
7yWD4+0E4uMjlcY1ON/kr1ho7yAQlRmuP7j3U+D5Sb2LPb0EosWxiOGnOE/1
EQ1+UglEnrrDjeWaeL03uRa8JgnEgJKJ5r84C+1szGdgBGLnhaAyswMU0HIz
38FiEYiVx10t+3A25dzSEbREILqntC5Ka1HAKbctZnUV778JSfDC+appon74
OoE4MPB18wec//99I7Gz3sdvEef/AYjVbdY=
          "]]}, Annotation[#, "Charting`Private`Tag$10293#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 -> {All, All}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{Automatic, Automatic}, {
       Automatic, Automatic}}, 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.7947249094809403`*^9, {3.7947249528065677`*^9, 
   3.79472498269234*^9}, {3.794725032655322*^9, 3.794725098563628*^9}, {
   3.7947251627313647`*^9, 3.794725178824561*^9}, {3.794725225492092*^9, 
   3.7947252485863*^9}, 3.7947253366229343`*^9, 3.794725405322149*^9, 
   3.79472548506772*^9, 3.794725539544921*^9, 3.7947255910811806`*^9, 
   3.79472596213417*^9, 3.7947259977710323`*^9, {3.7947260392955523`*^9, 
   3.7947260459999447`*^9}, 3.7947265982792654`*^9, 3.7947270556074953`*^9, 
   3.7947271395719943`*^9, {3.7947272713596916`*^9, 3.794727283084779*^9}, {
   3.794727354190976*^9, 3.794727384006111*^9}, 3.7947274585846977`*^9, 
   3.7947274926602116`*^9, 3.794732903188779*^9, {3.794733323514694*^9, 
   3.79473336260562*^9}, 3.7948063608217783`*^9, 3.7948064873907776`*^9, 
   3.79480655083574*^9, {3.7948065929669304`*^9, 3.794806613333333*^9}, 
   3.794806646108723*^9, {3.794806687910923*^9, 3.794806708123826*^9}, 
   3.7948068214439864`*^9, {3.794806886591997*^9, 3.794806907732184*^9}, {
   3.7948069597452793`*^9, 3.7948069753920135`*^9}, {3.7948070055700855`*^9, 
   3.794807018612915*^9}, {3.7948074517970304`*^9, 3.7948074754786463`*^9}, 
   3.794807690869913*^9, 
   3.7948090658317575`*^9},ExpressionUUID->"f33670e0-4027-4a2e-b7ff-\
04a6ad47a382"],

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.7947249094809403`*^9, {3.7947249528065677`*^9, 
   3.79472498269234*^9}, {3.794725032655322*^9, 3.794725098563628*^9}, {
   3.7947251627313647`*^9, 3.794725178824561*^9}, {3.794725225492092*^9, 
   3.7947252485863*^9}, 3.7947253366229343`*^9, 3.794725405322149*^9, 
   3.79472548506772*^9, 3.794725539544921*^9, 3.7947255910811806`*^9, 
   3.79472596213417*^9, 3.7947259977710323`*^9, {3.7947260392955523`*^9, 
   3.7947260459999447`*^9}, 3.7947265982792654`*^9, 3.7947270556074953`*^9, 
   3.7947271395719943`*^9, {3.7947272713596916`*^9, 3.794727283084779*^9}, {
   3.794727354190976*^9, 3.794727384006111*^9}, 3.7947274585846977`*^9, 
   3.7947274926602116`*^9, 3.794732903188779*^9, {3.794733323514694*^9, 
   3.79473336260562*^9}, 3.7948063608217783`*^9, 3.7948064873907776`*^9, 
   3.79480655083574*^9, {3.7948065929669304`*^9, 3.794806613333333*^9}, 
   3.794806646108723*^9, {3.794806687910923*^9, 3.794806708123826*^9}, 
   3.7948068214439864`*^9, {3.794806886591997*^9, 3.794806907732184*^9}, {
   3.7948069597452793`*^9, 3.7948069753920135`*^9}, {3.7948070055700855`*^9, 
   3.794807018612915*^9}, {3.7948074517970304`*^9, 3.7948074754786463`*^9}, 
   3.794807690869913*^9, 
   3.7948090658317575`*^9},ExpressionUUID->"19e2b1b7-881f-4ba8-8e41-\
627a31cc6551"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVjGs0lAkYgClN1CHfh5nJ/TazU3Jtt0R6XxojlMaY4dMkRBdpaaWNVIez
ahHVTpt1G0s7OUTqEG1ssYlcQoncKmUnS0wlJxmXbPvjOc95/jxme6MF+5ao
qKjs+Mr/3itxX6GiwsVx2WTB3Sg26FrYqouXcLE9Z9ZA+zAbGiuZtGo1Ll6I
uewUFsEGTs+46mENLkb3ZYauDGfDO4ZE2UtyUaAZwQ8LZEO89OXoDRYXNXjX
Tttz2XCx+PjDYG8u8k7anHfXZ0PdvZLkukwujq4/K8RmFjjHeulbO7lj+Zhj
gtCYBR+kkTZNXe5oNfTF9X6KJSQqvD+FHORh58T0vskFC7BtOthbssIDe8yt
T0RGWwBTh+ZofMUDD8sJRtikOZiODVUibxseGK/OexJtDkvfxA2H/7sN3aQb
vrH+bAYmIsmFW6c8UWLj+D2Zbga7fEYDKky9MMkk2znKyAw6au/lD/7phYtp
+cqPNaZgtFOYRfPxxvwR5vK8PaZwLpJ9fei9N/7tJNotWzABh/k4lJ/djvKj
DZx8gQnM6Km/z1y7AzVHunabFBpDtsif7922A63ERWd2zRpBrAbLzirUB4fM
rBMY+4wgimdndWfpTiyJHTAvbDGEws+1spjcnTgvPjr+3RZDUDLvGypM+OgV
0pCnLDMA7ZYz9YVH+BhkGew2ZWEAWytTLSZq+VgVtof9uFgfaMNWv2Zo+iK9
O4jD4ujDiJfWgweBvujhWTXOv7UaKnn89pMyX4zz71yTyVsN2j/byc998kWv
2O6jeU+ZkKrqW2PnKkAjSxeLyUgmSOpX5a+7JECa4pSh/yIDUkgbcck/AjRf
15oqyGJAbn56b62NH06pryB9nBngEp0aykr0Q90krUFpPx3m45uuWT7yQ1s2
a5NHEh2KGWHtMroQVbsn3Jyt6SBXShcSDggxqj5e3NCtB5vpqxWjFUKs4s29
Kk3WA8vjDm/L1ERo/EN6zn47PVhDphfRfEXYn3BEoirXBQN03/w6V4Supi1h
Vrm6IK3IGyIVItw2ENgY7KMLzsHfug04+uPH5+6tN9V1IYJ/qGImzR+1u24n
u9bpQHL34txvg/540bZRaB2vA39JetTa2QHYsXFZc8omHfjpsqdBYFwANreK
9vtPk3Cga+HDiQcBGH4sRrn5DgmOV4gCo1UUvpa4ZD4+TUJ2dcNuRgiFv0w0
lqu5ksBYVt1XVEphoceV4lZ1El4WbnGZKaNQ7bNOaddyEmRbHhZ6llNIozjN
AzQSHOL6Dk3cpDBKgyMYVyPBZ3x23r6awhSnlVc1VUk48wTM7tZTuPemzC1A
ScCUtCXiaQ+FcvsY+DJGQI2ToMOyl8Il8rkMja+d2Dvg8GMfhdfuF0zrjhKg
RUzMMQcpHORb0deNELA2Wev8nlcUus50ZIiHCQg95Fcx9pbCN7HXxXUDBHCW
P6c7T1CYVTTt+aifgHd/hCekKyi8lM0U9PcRcPLFMa7tBwrXbn92Y+oZAVn8
rGexnyhMK20sWPOUgGCFqXPTNIUfb4cGbewigJ1W8jtjhsKSq1Xr3Z8QcKuh
5mDN7Nd/Y6x1aCcBCSFb21fOU7ihrZcf3UGA20KbfdAChdmi4YxT7QSo5wgz
y79QmCi4KD/3iIDODS9mFxcpPF72QpjTRsB/yfwZRQ==
          "]]}, Annotation[#, "Charting`Private`Tag$10368#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVkHk41AkcxidXbn7jmHGf00FNk3rKpvp+08wUg8Yc/NDm6NLYjacorYon
bKmcRRgjV8om7TOYCsmT0qlEltiodhzlyFOrELX2j/d5n/d5Pu/zPs9rFxYp
2K1CoVC85/W/h2VxtCkUNt6YUE859pwBxg4rNINU2Nh8wCZ+8ikD7lfTNRRq
bGyzyNTZ/5gBSzpHFvyixcbzbVcHQ+4zYJyWNd1FZWNhtm6Rdz0Djsj6hq8z
2Ch+6PrJ/TIDMq4cfhDMY+OQnHJdGs+AO40VSXdy2LhWVb1yZiUD3KI9zZev
4yBDJbRmMsMRJmQRzJZ2Dq6VxAUuUHWEhDHeZEg4FwW30wyN4h1gRUt4V4X2
FuR2UZMjv9oD3UjD1bpkC4qnuYXieHuwfd9fjdytKBlIWqhQtQfVgdh3u4a2
4kzeYMehDDuwEWel1xzzwPaSZTu1nOwg0GfYX27rifIwjyCrJlt4Vt9Y2HvT
E+OON080hNqC1TZRroYPD4PJfI6Tli2ciVh0rf8jDxktzB17Am3AZTYWlb97
oZ785Dl9hTVMmWh+zHHyRn5kWneAjjXkif34vCfeKLT7lNshsYJoLQbLOdQH
uW1BFJ1eS9jPZTnfUt2Gybzx/mUcSyj+Wl92QLoNeWpVwmuNFjBNv2s5ZsPH
1PRaUayLBRg+Sm4qjuLjr1qJTLMqc9hcneIwWs/Hkdt1q4i15qDxzvl8qp4v
7r60aaqgzgwGPfXv3QvwxQHx1xsnPM2gmstvPVrmi8Lso7fwDR0MT7KUZybn
86odBT1RdEhZ4FvH2iTAsmqmZZAuHbKaDAqXnROgg0FCulopDU5RmUEV/wiw
JPr9Yj2ggbTwbFc9U4hhbgcNG5WmsCEyJZSRIETZ+EBtT7IpzB5p+cPxqRBt
vZoEKixTuELb2VpmKkJelFqLV58JKKdlc3F7RWhQORSz6ZQJrDc1GxuWi9DL
hHJeuM4EHA+7fKhUE2OmSabIa9gYllLPlmv4inF5ZyZzWGYMFshZ/1Yqxlrq
zcB//YxBJi/op46JMfyC5lZrXWNwC17t3uPqh9nPXy1mPTSCfXyJfOq0H0bl
GMeeSzCCpJc/vl3o9cPZ46Nha9YbQUNWp1rrIn+8q+ezx+I7FRKzPSwCYv1R
9jjGObGBCnvb5yZ+u+ePam/N+l8lUMG1hCiyMiCxaRhWP9pChTxF83ZaCIl+
wqUp4TpUoKkrusuvkpiw/fN49EsC+oo3bpiqJHE0JvTUiQ4CyjY+KPaoIjFN
O9Uto50Al9huyeifJDLddT9ebSPAZ2RmdqWCxBfbXU8rnxKQ/ALsbjeRuDOv
NjXwPgGfZY/2dXSSOCJSVgYoCKhbJ3jm2DXfP253SFJLQEJXj8uhbhJzS/LJ
uBoC9InRb/ReEiOGWPtkcgKckvTTdrwh8cqTYzffVREQKhHK338gsX2Vje6B
ywQsWfi3qdsoiXl9G/cmlRMwXror7uwYibe0g3pzLhFw9HUMe8XE/L79Ef2G
UgJy+bl/RU+SWPRT38WFRQQEj9m6tXyZ/+fhwbvmFwlYdLriIm2KxFDJ4Nzy
QgJqmuvC62ZIlKLwjqiAgLiQza06s/N8CYcTLiXAfe7Jyp/nSCyPUVfG5ROg
mS/KqfpO4qsXadL0PAKer3k98+MHiV/aXkeU5hLwH7CEFYw=
          "]]}, Annotation[#, "Charting`Private`Tag$10368#2"]& ]}}, {}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {40.00000122448979, 0.00006712434239181442}, 
     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 -> {
       FormBox[
        RowBox[{"defocusing", "(", "mm", ")"}], TraditionalForm], 
       FormBox[
        RowBox[{"w0_new", "(", "mm", ")"}], TraditionalForm]}, 
     AxesOrigin -> {40.00000122448979, 0.00006712434239181442}, 
     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.7947249094809403`*^9, {3.7947249528065677`*^9, 
   3.79472498269234*^9}, {3.794725032655322*^9, 3.794725098563628*^9}, {
   3.7947251627313647`*^9, 3.794725178824561*^9}, {3.794725225492092*^9, 
   3.7947252485863*^9}, 3.7947253366229343`*^9, 3.794725405322149*^9, 
   3.79472548506772*^9, 3.794725539544921*^9, 3.7947255910811806`*^9, 
   3.79472596213417*^9, 3.7947259977710323`*^9, {3.7947260392955523`*^9, 
   3.7947260459999447`*^9}, 3.7947265982792654`*^9, 3.7947270556074953`*^9, 
   3.7947271395719943`*^9, {3.7947272713596916`*^9, 3.794727283084779*^9}, {
   3.794727354190976*^9, 3.794727384006111*^9}, 3.7947274585846977`*^9, 
   3.7947274926602116`*^9, 3.794732903188779*^9, {3.794733323514694*^9, 
   3.79473336260562*^9}, 3.7948063608217783`*^9, 3.7948064873907776`*^9, 
   3.79480655083574*^9, {3.7948065929669304`*^9, 3.794806613333333*^9}, 
   3.794806646108723*^9, {3.794806687910923*^9, 3.794806708123826*^9}, 
   3.7948068214439864`*^9, {3.794806886591997*^9, 3.794806907732184*^9}, {
   3.7948069597452793`*^9, 3.7948069753920135`*^9}, {3.7948070055700855`*^9, 
   3.794807018612915*^9}, {3.7948074517970304`*^9, 3.7948074754786463`*^9}, 
   3.794807690869913*^9, 
   3.7948090659098105`*^9},ExpressionUUID->"a37c0b24-f70e-429d-83b4-\
752b4f4992d1"]
}, Open  ]]
},
WindowSize->{870, 877},
WindowMargins->{{Automatic, 376}, {Automatic, 52}},
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, 9561, 254, 1004, "Input", "ExpressionUUID" -> \
"64a19659-40a1-4f78-a395-898a26abc84f"],
Cell[10144, 278, 1845, 26, 30, "Output", "ExpressionUUID" -> \
"318f5e6a-a907-40d4-bf5a-67866c78c0ad"],
Cell[11992, 306, 1828, 26, 30, "Output", "ExpressionUUID" -> \
"c9ab8be8-23ad-4952-bb08-1ee57f18d7c6"],
Cell[13823, 334, 1815, 26, 30, "Output", "ExpressionUUID" -> \
"df7f219f-6168-4081-b8ec-5a619f7576ec"],
Cell[15641, 362, 1824, 26, 30, "Output", "ExpressionUUID" -> \
"4af490b1-5a5c-472f-8db8-961f940d5856"],
Cell[17468, 390, 1815, 26, 30, "Output", "ExpressionUUID" -> \
"62d098a7-cfe4-4440-aa70-0d38186b1fde"],
Cell[19286, 418, 1826, 26, 30, "Output", "ExpressionUUID" -> \
"890a3854-5cc3-48d7-bba5-2a0a972172f4"],
Cell[21115, 446, 1834, 27, 30, "Output", "ExpressionUUID" -> \
"0300cbc9-c851-45b4-96c0-8a1c2376cc53"],
Cell[22952, 475, 1979, 32, 30, "Output", "ExpressionUUID" -> \
"2ed36e77-825c-4b70-9ec1-58c67a298b40"],
Cell[24934, 509, 1976, 31, 30, "Output", "ExpressionUUID" -> \
"29d00523-1c0b-4659-a1c0-af7858999066"],
Cell[26913, 542, 1973, 32, 30, "Output", "ExpressionUUID" -> \
"2fd59e1c-346b-4752-ac4b-d9157ed99d42"],
Cell[28889, 576, 1976, 31, 30, "Output", "ExpressionUUID" -> \
"3bf232cd-3f4a-44e2-a952-da702b3f6d76"],
Cell[30868, 609, 22543, 438, 245, "Output", "ExpressionUUID" -> \
"1c722814-5d18-4775-b1ba-0955a3afa9dc"],
Cell[53414, 1049, 1827, 26, 30, "Output", "ExpressionUUID" -> \
"19127f18-01cb-41a2-9e3d-1530ea510ece"],
Cell[55244, 1077, 26822, 490, 240, "Output", "ExpressionUUID" -> \
"f33670e0-4027-4a2e-b7ff-04a6ad47a382"],
Cell[82069, 1569, 1823, 26, 30, "Output", "ExpressionUUID" -> \
"19e2b1b7-881f-4ba8-8e41-627a31cc6551"],
Cell[83895, 1597, 16782, 327, 226, "Output", "ExpressionUUID" -> \
"a37c0b24-f70e-429d-83b4-752b4f4992d1"]
}, Open  ]]
}
]
*)