New figure style

1 files changed, 451 insertions, 419 deletions

diff --git a/figures.nb b/figures.nb
index 1c534ec..2dc8929 100644
--- a/figures.nb
+++ b/figures.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[  10553611,     192993]
-NotebookOptionsPosition[  10538359,     192748]
-NotebookOutlinePosition[  10538757,     192764]
-CellTagsIndexPosition[  10538714,     192761]
+NotebookDataLength[  10555001,     193025]
+NotebookOptionsPosition[  10539747,     192780]
+NotebookOutlinePosition[  10540142,     192796]
+CellTagsIndexPosition[  10540099,     192793]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -195,6 +195,18 @@ Cell[BoxData[{
         RowBox[{"f", "'"}], "[", "1", "]"}]]}], 
      ")"}]}]]}], "\[IndentingNewLine]", 
  RowBox[{
+  RowBox[{"Esh", "[", "f_", "]"}], ":=", 
+  SqrtBox[
+   RowBox[{"4", 
+    RowBox[{"f", "[", "1", "]"}], 
+    RowBox[{"(", 
+     RowBox[{"1", "-", 
+      FractionBox[
+       RowBox[{"f", "[", "1", "]"}], 
+       RowBox[{
+        RowBox[{"f", "'"}], "[", "1", "]"}]]}], 
+     ")"}]}]]}], "\[IndentingNewLine]", 
+ RowBox[{
   RowBox[{"VSATs", "[", 
    RowBox[{"f_", ",", "\[Alpha]_"}], "]"}], ":=", 
   SqrtBox[
@@ -222,8 +234,9 @@ Cell[BoxData[{
 
  CellChangeTimes->{{3.9337642116352386`*^9, 3.933764290035758*^9}, {
   3.933764331668426*^9, 3.933764440182709*^9}, {3.9337652714948797`*^9, 
-  3.933765271654711*^9}},
- CellLabel->"In[3]:=",ExpressionUUID->"b03bc860-b1c0-4e93-9060-8118f88e47e4"],
+  3.933765271654711*^9}, {3.934628931522331*^9, 3.934628982537657*^9}},
+ CellLabel->
+  "In[436]:=",ExpressionUUID->"b03bc860-b1c0-4e93-9060-8118f88e47e4"],
 
 Cell[BoxData[
  RowBox[{
@@ -596,7 +609,10 @@ Cell[BoxData[
             SubscriptBox["V", "0"]}]}], "]"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
-           RowBox[{"0.2", ",", "0.32"}], "}"}], "]"}]}], "]"}], ",", 
+           RowBox[{"0.045", ",", "0.0125"}], "}"}], "]"}], ",", 
+         RowBox[{"ImageScaled", "[", 
+          RowBox[{"{", 
+           RowBox[{"0", ",", "0"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
@@ -609,8 +625,10 @@ q\",FontSlant->\"Italic\"]\)) = \!\(\*StyleBox[\"q\",FontSlant->\"Italic\"]\)\
            RowBox[{"ScriptLevel", "->", "1"}]}], "]"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
-           RowBox[{"0.85", ",", "0.91"}], "}"}], "]"}]}], "]"}]}], "}"}]}], 
-    ",", 
+           RowBox[{"0.95", ",", "0.91"}], "}"}], "]"}], ",", 
+         RowBox[{"ImageScaled", "[", 
+          RowBox[{"{", 
+           RowBox[{"1", ",", "0.5"}], "}"}], "]"}]}], "]"}]}], "}"}]}], ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{
       RowBox[{"590", "/", "2"}], "+", "22"}]}], ",", 
@@ -668,9 +686,10 @@ q\",FontSlant->\"Italic\"]\)) = \!\(\*StyleBox[\"q\",FontSlant->\"Italic\"]\)\
    3.933649406292515*^9, 3.933649406339818*^9}, {3.933649450189885*^9, 
    3.933649450306967*^9}, {3.933669603756253*^9, 3.93366960474959*^9}, {
    3.933763782188147*^9, 3.933763853668864*^9}, {3.933763889963334*^9, 
-   3.9337638968932343`*^9}, {3.9346177266119347`*^9, 3.934617726812172*^9}},
+   3.9337638968932343`*^9}, {3.9346177266119347`*^9, 3.934617726812172*^9}, {
+   3.934691358426899*^9, 3.934691402679966*^9}, 3.93469148334969*^9},
  CellLabel->
-  "In[425]:=",ExpressionUUID->"6c182b3c-b61b-4da5-97eb-545f093d6397"],
+  "In[472]:=",ExpressionUUID->"6c182b3c-b61b-4da5-97eb-545f093d6397"],
 
 Cell[BoxData[
  GraphicsBox[
@@ -3731,7 +3750,8 @@ AkWetiKaJ7dAzfVFw8SQCVQzLU/Sy2kFx365dJvYCfT//2P+D7LdgIU=
              RowBox[{"LegendLabel", "\[Rule]", 
                SubscriptBox["V", "0"]}]}], "]"}]& ), Editable -> True], 
        TraditionalForm]], 
-     Scaled[{0.2, 0.32}]], 
+     Scaled[{0.045, 0.0125}], 
+     ImageScaled[{0, 0}]], 
     InsetBox[
      FormBox[
       StyleBox[
@@ -3741,7 +3761,8 @@ StyleBox[\\\"q\\\",FontSlant->\\\"Italic\\\"]\\)) = \\!\\(\\*StyleBox[\\\"q\\\
        FontSize -> 12, 
        GrayLevel[0], ScriptLevel -> 1, StripOnInput -> False], 
       TraditionalForm], 
-     Scaled[{0.85, 0.91}]]},
+     Scaled[{0.95, 0.91}], 
+     ImageScaled[{1, 0.5}]]},
   Frame->{{True, True}, {True, True}},
   FrameLabel->{{
      FormBox[
@@ -3806,9 +3827,10 @@ StyleBox[\\\"q\\\",FontSlant->\\\"Italic\\\"]\\)) = \\!\\(\\*StyleBox[\\\"q\\\
    3.93364868051263*^9}, 3.933648724316554*^9, 3.933649364304496*^9, 
    3.933649407517312*^9, 3.93364945127024*^9, 3.933669606189589*^9, {
    3.933763814158901*^9, 3.933763845794353*^9}, 3.9337639997438083`*^9, 
-   3.9338438381602073`*^9, 3.933845140162109*^9, 3.934617728107791*^9},
+   3.9338438381602073`*^9, 3.933845140162109*^9, 3.934617728107791*^9, {
+   3.934691363308331*^9, 3.934691404119993*^9}, 3.934691484594481*^9},
  CellLabel->
-  "Out[425]=",ExpressionUUID->"aa34ee8b-81c2-4f88-9ac7-cc32bcaf34a7"]
+  "Out[472]=",ExpressionUUID->"7f960138-517a-4f1a-b9e6-0eaf7b02798e"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -3940,7 +3962,10 @@ Cell[BoxData[{
            RowBox[{"LegendFunction", "->", "Panel"}]}], "]"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
-           RowBox[{"0.32", ",", "0.32"}], "}"}], "]"}]}], "]"}], ",", 
+           RowBox[{"0.045", ",", "0.0125"}], "}"}], "]"}], ",", 
+         RowBox[{"ImageScaled", "[", 
+          RowBox[{"{", 
+           RowBox[{"0", ",", "0"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
@@ -3953,8 +3978,10 @@ q\",FontSlant->\"Italic\"]\)) = \!\(\*FractionBox[\(1\), \
            RowBox[{"ScriptLevel", "->", "1"}]}], "]"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
-           RowBox[{"0.83", ",", "0.91"}], "}"}], "]"}]}], "]"}]}], "}"}]}], 
-    ",", 
+           RowBox[{"0.95", ",", "0.91"}], "}"}], "]"}], ",", 
+         RowBox[{"ImageScaled", "[", 
+          RowBox[{"{", 
+           RowBox[{"1", ",", "0.5"}], "}"}], "]"}]}], "]"}]}], "}"}]}], ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{
       RowBox[{"590", "/", "2"}], "+", "22"}]}], ",", 
@@ -3991,9 +4018,10 @@ q\",FontSlant->\"Italic\"]\)) = \!\(\*FractionBox[\(1\), \
    3.9336493690019407`*^9}, {3.933649400492437*^9, 3.933649400539138*^9}, {
    3.9336494473909883`*^9, 3.933649447500427*^9}, {3.93366961091483*^9, 
    3.933669611694421*^9}, {3.933764016856601*^9, 3.933764023559519*^9}, {
-   3.934617731755888*^9, 3.934617731978382*^9}},
+   3.934617731755888*^9, 3.934617731978382*^9}, 3.934691417570671*^9, {
+   3.93469145016115*^9, 3.934691467707241*^9}},
  CellLabel->
-  "In[426]:=",ExpressionUUID->"987acbda-9443-4a50-9527-bdd438ec8a24"],
+  "In[470]:=",ExpressionUUID->"987acbda-9443-4a50-9527-bdd438ec8a24"],
 
 Cell[BoxData[
  GraphicsBox[
@@ -6310,7 +6338,8 @@ P4Cy1OycNvz9DP4PZqoQVA==
                     "GrayLevelColorSwatchTemplate"]}], "}"}]}], ",", 
              RowBox[{"LegendFunction", "\[Rule]", "Panel"}]}], "]"}]& ), 
         Editable -> True], TraditionalForm]], 
-     Scaled[{0.32, 0.32}]], 
+     Scaled[{0.045, 0.0125}], 
+     ImageScaled[{0, 0}]], 
     InsetBox[
      FormBox[
       StyleBox[
@@ -6320,14 +6349,15 @@ StyleBox[\\\"q\\\",FontSlant->\\\"Italic\\\"]\\)) = \\!\\(\\*FractionBox[\\(1\
        "BitstreamCharter", FontSize -> 12, 
        GrayLevel[0], ScriptLevel -> 1, StripOnInput -> False], 
       TraditionalForm], 
-     Scaled[{0.83, 0.91}]]},
+     Scaled[{0.95, 0.91}], 
+     ImageScaled[{1, 0.5}]]},
   Frame->{{True, True}, {True, True}},
   FrameLabel->{{
      FormBox[
       TagBox[
        StyleBox[
         RowBox[{
-          SubscriptBox["\[ScriptCapitalS]", "\[CapitalOmega]"], "(", 
+          SubscriptBox["\[ScriptCapitalS]", "\[Chi]"], "(", 
           TagBox[
            TagBox["m", HoldForm], HoldForm], ")"}], FontOpacity -> 0, 
         StripOnInput -> False], HoldForm], TraditionalForm], None}, {
@@ -6394,8 +6424,10 @@ StyleBox[\\\"q\\\",FontSlant->\\\"Italic\\\"]\\)) = \\!\\(\\*FractionBox[\\(1\
    3.933648499779223*^9}, {3.933648609096498*^9, 3.933648614499567*^9}, {
    3.933648647064361*^9, 3.933648654341125*^9}, 3.93364871732869*^9, 
    3.933649370443953*^9, 3.933649402158951*^9, 3.933649452874392*^9, 
-   3.933669613274262*^9, 3.9337640250881147`*^9},
- CellLabel->"Out[19]=",ExpressionUUID->"34c26d83-2227-445e-bd36-24d72298b64f"]
+   3.933669613274262*^9, 3.9337640250881147`*^9, 3.934617733506632*^9, 
+   3.934691419259253*^9, {3.934691461328948*^9, 3.934691469599452*^9}},
+ CellLabel->
+  "Out[471]=",ExpressionUUID->"7b6f9e79-91f7-47eb-ba89-358c82ab5fdd"]
 }, Open  ]],
 
 Cell[BoxData[{
@@ -6412,8 +6444,9 @@ Cell[BoxData[{
    RowBox[{"\"\<figs/action_3.pdf\>\"", ",", "actionPlot3"}], "]"}], 
   ";"}]}], "Input",
  CellChangeTimes->{{3.933648344039223*^9, 3.933648353137401*^9}, {
-  3.9337640740719557`*^9, 3.9337640872245827`*^9}},
- CellLabel->"In[21]:=",ExpressionUUID->"718f433c-5ec4-4bac-860a-5bace6d1b65e"]
+  3.933764074071956*^9, 3.933764087224583*^9}},
+ CellLabel->
+  "In[428]:=",ExpressionUUID->"718f433c-5ec4-4bac-860a-5bace6d1b65e"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -17346,7 +17379,7 @@ nb8BQ7BpS7mvIC6e2Q6gotdkVBHvKi6oTj1rlmh5RvS2Q3VPxRVJiZoLOTUs
 ZSPuyFao/+IE4IE=
   "],
  CellLabel->
-  "In[359]:=",ExpressionUUID->"b7c04588-51c4-46ba-b43a-323e54fb82c5"],
+  "In[441]:=",ExpressionUUID->"b7c04588-51c4-46ba-b43a-323e54fb82c5"],
 
 Cell[BoxData[
  GraphicsBox[{
@@ -17492,31 +17525,31 @@ Cell[BoxData[
        RoundingRadius->0]}, {}, {}}, {{}, 
      {RGBColor[0.922526, 0.385626, 0.209179], Opacity[0.5], EdgeForm[{Opacity[
       0.371], Thickness[Small]}], 
-      RectangleBox[{0.51, -7.97166860472579}, {0.52, -6.450470422144176},
+      RectangleBox[{0.51, -7.97166860472579}, {0.52, -6.53813982376767},
        RoundingRadius->0], 
-      RectangleBox[{0.52, -7.97166860472579}, {0.53, -6.450470422144176},
+      RectangleBox[{0.52, -7.97166860472579}, {0.53, -6.53813982376767},
        RoundingRadius->0], 
-      RectangleBox[{0.53, -7.97166860472579}, {0.54, -5.757323241584231},
+      RectangleBox[{0.53, -7.97166860472579}, {0.54, -5.844992643207725},
        RoundingRadius->0], 
-      RectangleBox[{0.54, -7.97166860472579}, {0.55, -2.839552509499952},
+      RectangleBox[{0.54, -7.97166860472579}, {0.55, -2.8745781776380235},
        RoundingRadius->0], 
-      RectangleBox[{0.55, -7.97166860472579}, {0.56, -1.4070453052249297},
+      RectangleBox[{0.55, -7.97166860472579}, {0.56, -1.3906453469542168},
        RoundingRadius->0], 
-      RectangleBox[{0.56, -7.97166860472579}, {0.57, -0.937041675979194},
+      RectangleBox[{0.56, -7.97166860472579}, {0.57, -0.9546435149859708},
        RoundingRadius->0], 
-      RectangleBox[{0.57, -7.97166860472579}, {0.58, -1.501710531766008},
+      RectangleBox[{0.57, -7.97166860472579}, {0.58, -1.5011872213540407},
        RoundingRadius->0], 
-      RectangleBox[{0.58, -7.97166860472579}, {0.59, -2.712800803860808},
+      RectangleBox[{0.58, -7.97166860472579}, {0.59, -2.666938812859779},
        RoundingRadius->0], 
-      RectangleBox[{0.59, -7.97166860472579}, {0.6, -4.658710952916121},
+      RectangleBox[{0.59, -7.97166860472579}, {0.6, -4.458698282087834},
        RoundingRadius->0]}, {}, {}}, {{}, 
      {RGBColor[0.528488, 0.470624, 0.701351], Opacity[0.5], EdgeForm[{Opacity[
       0.371], Thickness[Small]}], 
-      RectangleBox[{0.55, -7.97166860472579}, {0.56, -2.4423470353692043},
+      RectangleBox[{0.55, -7.97166860472579}, {0.56, -2.159484249353372},
        RoundingRadius->0], 
-      RectangleBox[{0.56, -7.97166860472579}, {0.57, -0.6505875661411494},
+      RectangleBox[{0.56, -7.97166860472579}, {0.57, -0.6931471805599453},
        RoundingRadius->0], 
-      RectangleBox[{0.57, -7.97166860472579}, {0.58, -0.9382696385929302},
+      RectangleBox[{0.57, -7.97166860472579}, {0.58, -0.9555114450274363},
        RoundingRadius->
         0]}, {}, {}}}, {{{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
 {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
@@ -17730,9 +17763,9 @@ Cell[BoxData[
    3.934534392268108*^9, 3.9345353078480988`*^9, {3.934539300731804*^9, 
    3.9345393184029303`*^9}, 3.934540129597991*^9, 3.9345597400455647`*^9, 
    3.934562350814537*^9, 3.9346034075597*^9, 3.9346079981461897`*^9, 
-   3.934611965218227*^9, 3.934615228943548*^9},
+   3.934611965218227*^9, 3.934615228943548*^9, 3.9346897823417997`*^9},
  CellLabel->
-  "Out[367]=",ExpressionUUID->"f2e5b5ab-73a2-4890-8c6d-8c0a51640602"]
+  "Out[449]=",ExpressionUUID->"1bfc257b-9094-4610-bb24-5027a2b1163b"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -17777,7 +17810,7 @@ Cell[BoxData[
   3.93445667139495*^9, 3.934456673780755*^9}, {3.9345393217278957`*^9, 
   3.9345393239916487`*^9}},
  CellLabel->
-  "In[368]:=",ExpressionUUID->"d5c71612-e41c-40a0-8f22-153b347f934a"],
+  "In[450]:=",ExpressionUUID->"d5c71612-e41c-40a0-8f22-153b347f934a"],
 
 Cell[BoxData[
  GraphicsBox[{
@@ -17785,93 +17818,93 @@ Cell[BoxData[
     Opacity[0.392], Thickness[Small]}], {{}, 
      {RGBColor[0.97858, 0.678934, 0.157834], Opacity[0.5], EdgeForm[{Opacity[
       0.392], Thickness[Small]}], 
-      RectangleBox[{0.512, 0.}, {0.514, 0.001579778830963665},
+      RectangleBox[{0.512, 0.}, {0.514, 0.001447178002894356},
        RoundingRadius->0], 
-      RectangleBox[{0.526, 0.}, {0.528, 0.001579778830963665},
+      RectangleBox[{0.526, 0.}, {0.528, 0.001447178002894356},
        RoundingRadius->0], 
-      RectangleBox[{0.534, 0.}, {0.536, 0.001579778830963665},
+      RectangleBox[{0.534, 0.}, {0.536, 0.001447178002894356},
        RoundingRadius->0], 
-      RectangleBox[{0.538, 0.}, {0.54, 0.001579778830963665},
+      RectangleBox[{0.538, 0.}, {0.54, 0.001447178002894356},
        RoundingRadius->0], 
-      RectangleBox[{0.54, 0.}, {0.542, 0.00631911532385466},
+      RectangleBox[{0.54, 0.}, {0.542, 0.005788712011577424},
        RoundingRadius->0], 
-      RectangleBox[{0.542, 0.}, {0.544, 0.007898894154818325},
+      RectangleBox[{0.542, 0.}, {0.544, 0.00723589001447178},
        RoundingRadius->0], 
-      RectangleBox[{0.544, 0.}, {0.546, 0.009478672985781991},
+      RectangleBox[{0.544, 0.}, {0.546, 0.008683068017366137},
        RoundingRadius->0], 
-      RectangleBox[{0.546, 0.}, {0.548, 0.017377567140600316},
+      RectangleBox[{0.546, 0.}, {0.548, 0.01881331403762663},
        RoundingRadius->0], 
-      RectangleBox[{0.548, 0.}, {0.55, 0.017377567140600316},
+      RectangleBox[{0.548, 0.}, {0.55, 0.015918958031837915},
        RoundingRadius->0], 
-      RectangleBox[{0.55, 0.}, {0.552, 0.026856240126382307},
+      RectangleBox[{0.55, 0.}, {0.552, 0.030390738060781478},
        RoundingRadius->0], 
-      RectangleBox[{0.552, 0.}, {0.554, 0.036334913112164295},
+      RectangleBox[{0.552, 0.}, {0.554, 0.03328509406657019},
        RoundingRadius->0], 
-      RectangleBox[{0.554, 0.}, {0.556, 0.06003159557661927},
+      RectangleBox[{0.554, 0.}, {0.556, 0.06367583212735166},
        RoundingRadius->0], 
-      RectangleBox[{0.556, 0.}, {0.558, 0.04897314375987362},
+      RectangleBox[{0.556, 0.}, {0.558, 0.049204052098408106},
        RoundingRadius->0], 
-      RectangleBox[{0.558, 0.}, {0.56, 0.07266982622432859},
+      RectangleBox[{0.558, 0.}, {0.56, 0.0723589001447178},
        RoundingRadius->0], 
-      RectangleBox[{0.56, 0.}, {0.562, 0.07109004739336493},
+      RectangleBox[{0.56, 0.}, {0.562, 0.06801736613603473},
        RoundingRadius->0], 
-      RectangleBox[{0.562, 0.}, {0.564, 0.08056872037914692},
+      RectangleBox[{0.562, 0.}, {0.564, 0.07814761215629522},
        RoundingRadius->0], 
-      RectangleBox[{0.564, 0.}, {0.566, 0.07424960505529225},
+      RectangleBox[{0.564, 0.}, {0.566, 0.07380607814761216},
        RoundingRadius->0], 
-      RectangleBox[{0.566, 0.}, {0.568, 0.08846761453396525},
+      RectangleBox[{0.566, 0.}, {0.568, 0.08683068017366136},
        RoundingRadius->0], 
-      RectangleBox[{0.568, 0.}, {0.57, 0.07740916271721959},
+      RectangleBox[{0.568, 0.}, {0.57, 0.07814761215629522},
        RoundingRadius->0], 
-      RectangleBox[{0.57, 0.}, {0.572, 0.045813586097946286},
+      RectangleBox[{0.57, 0.}, {0.572, 0.04630969609261939},
        RoundingRadius->0], 
-      RectangleBox[{0.572, 0.}, {0.574, 0.06635071090047394},
+      RectangleBox[{0.572, 0.}, {0.574, 0.06657018813314038},
        RoundingRadius->0], 
-      RectangleBox[{0.574, 0.}, {0.576, 0.04107424960505529},
+      RectangleBox[{0.574, 0.}, {0.576, 0.04341534008683068},
        RoundingRadius->0], 
-      RectangleBox[{0.576, 0.}, {0.578, 0.04107424960505529},
+      RectangleBox[{0.576, 0.}, {0.578, 0.03907380607814761},
        RoundingRadius->0], 
-      RectangleBox[{0.578, 0.}, {0.58, 0.02843601895734597},
+      RectangleBox[{0.578, 0.}, {0.58, 0.027496382054992764},
        RoundingRadius->0], 
-      RectangleBox[{0.58, 0.}, {0.582, 0.02527646129541864},
+      RectangleBox[{0.58, 0.}, {0.582, 0.027496382054992764},
        RoundingRadius->0], 
-      RectangleBox[{0.582, 0.}, {0.584, 0.017377567140600316},
+      RectangleBox[{0.582, 0.}, {0.584, 0.017366136034732273},
        RoundingRadius->0], 
-      RectangleBox[{0.584, 0.}, {0.586, 0.01263823064770932},
+      RectangleBox[{0.584, 0.}, {0.586, 0.013024602026049204},
        RoundingRadius->0], 
-      RectangleBox[{0.586, 0.}, {0.588, 0.00631911532385466},
+      RectangleBox[{0.586, 0.}, {0.588, 0.005788712011577424},
        RoundingRadius->0], 
-      RectangleBox[{0.588, 0.}, {0.59, 0.004739336492890996},
+      RectangleBox[{0.588, 0.}, {0.59, 0.005788712011577424},
        RoundingRadius->0], 
-      RectangleBox[{0.59, 0.}, {0.592, 0.00315955766192733},
+      RectangleBox[{0.59, 0.}, {0.592, 0.002894356005788712},
        RoundingRadius->0], 
-      RectangleBox[{0.592, 0.}, {0.594, 0.00315955766192733},
+      RectangleBox[{0.592, 0.}, {0.594, 0.005788712011577424},
        RoundingRadius->0], 
-      RectangleBox[{0.594, 0.}, {0.596, 0.00315955766192733},
+      RectangleBox[{0.594, 0.}, {0.596, 0.002894356005788712},
        RoundingRadius->0]}, {}, {}}, {{}, 
      {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.5], EdgeForm[{Opacity[
       0.392], Thickness[Small]}], 
-      RectangleBox[{0.552, 0.}, {0.554, 0.043478260869565216},
+      RectangleBox[{0.552, 0.}, {0.554, 0.038461538461538464},
        RoundingRadius->0], 
-      RectangleBox[{0.558, 0.}, {0.56, 0.043478260869565216},
+      RectangleBox[{0.558, 0.}, {0.56, 0.07692307692307693},
        RoundingRadius->0], 
-      RectangleBox[{0.56, 0.}, {0.562, 0.13043478260869565},
+      RectangleBox[{0.56, 0.}, {0.562, 0.11538461538461539},
        RoundingRadius->0], 
-      RectangleBox[{0.562, 0.}, {0.564, 0.08695652173913043},
+      RectangleBox[{0.562, 0.}, {0.564, 0.07692307692307693},
        RoundingRadius->0], 
-      RectangleBox[{0.564, 0.}, {0.566, 0.13043478260869565},
+      RectangleBox[{0.564, 0.}, {0.566, 0.15384615384615385},
        RoundingRadius->0], 
-      RectangleBox[{0.566, 0.}, {0.568, 0.043478260869565216},
+      RectangleBox[{0.566, 0.}, {0.568, 0.038461538461538464},
        RoundingRadius->0], 
-      RectangleBox[{0.568, 0.}, {0.57, 0.13043478260869565},
+      RectangleBox[{0.568, 0.}, {0.57, 0.11538461538461539},
        RoundingRadius->0], 
-      RectangleBox[{0.57, 0.}, {0.572, 0.13043478260869565},
+      RectangleBox[{0.57, 0.}, {0.572, 0.11538461538461539},
        RoundingRadius->0], 
-      RectangleBox[{0.572, 0.}, {0.574, 0.08695652173913043},
+      RectangleBox[{0.572, 0.}, {0.574, 0.11538461538461539},
        RoundingRadius->0], 
-      RectangleBox[{0.574, 0.}, {0.576, 0.13043478260869565},
+      RectangleBox[{0.574, 0.}, {0.576, 0.11538461538461539},
        RoundingRadius->0], 
-      RectangleBox[{0.576, 0.}, {0.578, 0.043478260869565216},
+      RectangleBox[{0.576, 0.}, {0.578, 0.038461538461538464},
        RoundingRadius->
         0]}, {}, {}}}, {{{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
 {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
@@ -17903,9 +17936,9 @@ Cell[BoxData[
   3.934534357206147*^9, 3.93453439358037*^9, 3.934535308706031*^9, 
   3.934539324478046*^9, 3.934540130218936*^9, 3.9345597410078707`*^9, 
   3.934562352107854*^9, 3.934603408431879*^9, 3.934607998784039*^9, 
-  3.9346119659144297`*^9, 3.93461522964292*^9},
+  3.9346119659144297`*^9, 3.93461522964292*^9, 3.93468978336204*^9},
  CellLabel->
-  "Out[368]=",ExpressionUUID->"15eecab7-6f2e-4f51-ab59-b11829825066"]
+  "Out[450]=",ExpressionUUID->"2e8593a7-6b89-4dfb-aa2f-8e4c57e92656"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -17920,13 +17953,13 @@ Cell[BoxData[
   3.933323187989256*^9, 3.933323188934312*^9}, {3.934456311887268*^9, 
   3.934456312895072*^9}},
  CellLabel->
-  "In[369]:=",ExpressionUUID->"6729ea2e-916f-4c77-ad4d-d272adeb529e"],
+  "In[451]:=",ExpressionUUID->"6729ea2e-916f-4c77-ad4d-d272adeb529e"],
 
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
-  "977", ",", "1000", ",", "1065", ",", "1000", ",", "1066", ",", "633", ",", 
-   "23"}], "}"}]], "Output",
+  "977", ",", "1000", ",", "1065", ",", "1000", ",", "1066", ",", "691", ",", 
+   "26"}], "}"}]], "Output",
  CellChangeTimes->{{3.93331583257968*^9, 3.933315839260758*^9}, 
    3.9333183200470448`*^9, 3.933319442564992*^9, {3.933319906042847*^9, 
    3.933319910736731*^9}, 3.93332085758463*^9, 3.933322926674952*^9, 
@@ -17950,9 +17983,9 @@ Cell[BoxData[
    3.934534395511795*^9, 3.934535309339665*^9, 3.934539328160946*^9, 
    3.9345401314132566`*^9, 3.934559741980297*^9, 3.934562354422721*^9, 
    3.934603410326893*^9, 3.93460799943266*^9, 3.934611967006476*^9, 
-   3.934615230533216*^9},
+   3.934615230533216*^9, 3.934689787534449*^9},
  CellLabel->
-  "Out[369]=",ExpressionUUID->"aba920a7-24d4-48a9-abc4-340913a33287"]
+  "Out[451]=",ExpressionUUID->"253a859e-233a-494e-aa84-1c06d206b33f"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -17982,7 +18015,7 @@ Cell[BoxData[
   3.934454359966218*^9, 3.934454364454646*^9}, {3.934454611704898*^9, 
   3.934454635096731*^9}, {3.934454768798436*^9, 3.934454777390574*^9}},
  CellLabel->
-  "In[370]:=",ExpressionUUID->"04e6644b-90a9-4b4e-90ba-9f54a0b030a5"],
+  "In[452]:=",ExpressionUUID->"04e6644b-90a9-4b4e-90ba-9f54a0b030a5"],
 
 Cell[BoxData[
  InterpretationBox[
@@ -18064,9 +18097,9 @@ Cell[BoxData[
    3.934458330594358*^9, 3.934515570211307*^9, 3.934534400495366*^9, 
    3.934535310079324*^9, 3.9345393326235657`*^9, 3.9345597430706587`*^9, 
    3.9345623554283743`*^9, 3.934603411439204*^9, 3.934608002835271*^9, 
-   3.9346119677265577`*^9, 3.934615231220584*^9},
+   3.9346119677265577`*^9, 3.934615231220584*^9, 3.934689789265394*^9},
  CellLabel->
-  "Out[370]=",ExpressionUUID->"670f5bb6-e3c3-40eb-95ab-5d64eee71eb8"]
+  "Out[452]=",ExpressionUUID->"6695f125-8140-4a0f-bfd8-fbe609a847bf"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -18118,7 +18151,7 @@ Cell[BoxData[
   3.934611618706479*^9, 3.934611724453783*^9}, {3.9346118815735826`*^9, 
   3.9346118827153683`*^9}, {3.934611951062459*^9, 3.934611960719027*^9}},
  CellLabel->
-  "In[371]:=",ExpressionUUID->"4f6ec33b-2722-4715-8283-2253119f6e1c"],
+  "In[453]:=",ExpressionUUID->"4f6ec33b-2722-4715-8283-2253119f6e1c"],
 
 Cell[BoxData[
  GraphicsBox[{{{{
@@ -18166,10 +18199,10 @@ Cell[BoxData[
         Antialiasing->False]}, 
       {RGBColor[0.368417, 0.506779, 0.709798], 
        StyleBox[{{}, {
-          LineBox[{{6.931471805599453, -8.002981611230691}, {
-           6.931471805599453, -7.201163452191442}}], 
-          LineBox[{{6.931471805599453, -7.201163452191442}, {
-           6.931471805599453, -6.761949468281562}}]}},
+          LineBox[{{6.931471805599453, -8.420652295905239}, {
+           6.931471805599453, -7.3914977318129065`}}], 
+          LineBox[{{6.931471805599453, -7.3914977318129065`}, {
+           6.931471805599453, -6.895161929118611}}]}},
         Antialiasing->False]}, {}}, {}}, 
     InterpretationBox[{
       TagBox[
@@ -18182,7 +18215,7 @@ Cell[BoxData[
           4.852030263919617, -3.034622703287792}, {
           5.545177444479562, -3.7335071428557325`}, {
           6.238324625039508, -4.608976087567104}, {
-          6.931471805599453, -7.201163452191442}}]},
+          6.931471805599453, -7.3914977318129065`}}]},
         Annotation[#, "Charting`Private`Tag#1"]& ],
        {"WolframDynamicHighlight", <|
         "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
@@ -18204,16 +18237,16 @@ Cell[BoxData[
                4.852030263919617, -3.034622703287792}, {
                5.545177444479562, -3.7335071428557325`}, {
                6.238324625039508, -4.608976087567104}, {
-               6.931471805599453, -7.201163452191442}}]}, 
+               6.931471805599453, -7.3914977318129065`}}]}, 
              "Charting`Private`Tag#1"]}}, <|
           "HighlightElements" -> <|
             "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
            "LayoutOptions" -> <|
             "PanelPlotLayout" -> <||>, 
              "PlotRange" -> {{2.597496856317093, 
-              6.931471805599453}, {-8.53208016569916, -1.241829090770801}}, 
+              6.931471805599453}, {-8.9824359517431, -1.241829090770801}}, 
              "Frame" -> {{False, False}, {False, False}}, 
-             "AxesOrigin" -> {2.597496856317093, -8.53208016569916}, 
+             "AxesOrigin" -> {2.597496856317093, -8.9824359517431}, 
              "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
              "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
              "DefaultStyle" -> {
@@ -18236,9 +18269,9 @@ Cell[BoxData[
           "LayoutOptions" -> <|
            "PanelPlotLayout" -> <||>, 
             "PlotRange" -> {{2.597496856317093, 
-             6.931471805599453}, {-8.53208016569916, -1.241829090770801}}, 
+             6.931471805599453}, {-8.9824359517431, -1.241829090770801}}, 
             "Frame" -> {{False, False}, {False, False}}, 
-            "AxesOrigin" -> {2.597496856317093, -8.53208016569916}, 
+            "AxesOrigin" -> {2.597496856317093, -8.9824359517431}, 
             "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
             "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
             "DefaultStyle" -> {
@@ -18272,16 +18305,16 @@ Cell[BoxData[
            4.852030263919617, -3.034622703287792}, {
            5.545177444479562, -3.7335071428557325`}, {
            6.238324625039508, -4.608976087567104}, {
-           6.931471805599453, -7.201163452191442}}]}, 
+           6.931471805599453, -7.3914977318129065`}}]}, 
          "Charting`Private`Tag#1"]}}, <|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, 
          "PlotRange" -> {{2.597496856317093, 
-          6.931471805599453}, {-8.53208016569916, -1.241829090770801}}, 
+          6.931471805599453}, {-8.9824359517431, -1.241829090770801}}, 
          "Frame" -> {{False, False}, {False, False}}, 
-         "AxesOrigin" -> {2.597496856317093, -8.53208016569916}, 
+         "AxesOrigin" -> {2.597496856317093, -8.9824359517431}, 
          "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
          "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
          "DefaultStyle" -> {
@@ -18497,7 +18530,7 @@ QESKr8zjExrAlsEyxgoCIEB7GHcNmRYawGyBXpdCAyBAsqY+Tk4ZGsAFh0Yj
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{None, None},
-  AxesOrigin->{2.597496856317093, -8.53208016569916},
+  AxesOrigin->{2.597496856317093, -8.9824359517431},
   DisplayFunction->Identity,
   Frame->{{False, False}, {False, False}},
   FrameLabel->{{None, None}, {None, None}},
@@ -18580,7 +18613,7 @@ QESKr8zjExrAlsEyxgoCIEB7GHcNmRYawGyBXpdCAyBAsqY+Tk4ZGsAFh0Yj
         Exp[
          Part[#, 2]]}& )}},
   PlotRange->{{2.597496856317093, 
-   6.931471805599453}, {-8.53208016569916, -1.241829090770801}},
+   6.931471805599453}, {-8.9824359517431, -1.241829090770801}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
@@ -18729,6 +18762,18 @@ QESKr8zjExrAlsEyxgoCIEB7GHcNmRYawGyBXpdCAyBAsqY+Tk4ZGsAFh0Yj
           StyleBox["\"0.100\"", ShowStringCharacters -> False], 
           0.1`15.954589770191003, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 
+       0.}}, {-11.512925464970229`, 
+       FormBox[
+        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
+       0.}}, {-10.819778284410283`, 
+       FormBox[
+        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
+       0.}}, {-10.41431317630212, 
+       FormBox[
+        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
+       0.}}, {-10.126631103850338`, 
+       FormBox[
+        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}, {-9.903487552536127, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
@@ -18822,20 +18867,6 @@ QESKr8zjExrAlsEyxgoCIEB7GHcNmRYawGyBXpdCAyBAsqY+Tk4ZGsAFh0Yj
        0.}}, {-0.6931471805599453, 
        FormBox[
         TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
-       0.}}, {-0.5108256237659907, 
-       FormBox[
-        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
-       0.}}, {-0.35667494393873245`, 
-       FormBox[
-        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
-       0.}}, {-0.2231435513142097, 
-       FormBox[
-        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
-       0.}}, {-0.10536051565782628`, 
-       FormBox[
-        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0., 
-       FormBox[
-        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
        0.}}}}]]], "Output",
  CellChangeTimes->{
   3.933314548051053*^9, {3.933314592678224*^9, 3.9333145951242037`*^9}, {
@@ -18867,9 +18898,9 @@ QESKr8zjExrAlsEyxgoCIEB7GHcNmRYawGyBXpdCAyBAsqY+Tk4ZGsAFh0Yj
    3.934603413351125*^9, 3.934608003457206*^9, {3.934611619964244*^9, 
    3.9346116410521917`*^9}, {3.9346117086880283`*^9, 
    3.9346117355749197`*^9}, {3.934611944095132*^9, 3.934611968368557*^9}, 
-   3.934615232173963*^9},
+   3.934615232173963*^9, 3.934689791519289*^9},
  CellLabel->
-  "Out[371]=",ExpressionUUID->"5f95b587-01c3-436e-9341-9fe0ec6d289b"]
+  "Out[453]=",ExpressionUUID->"06d43c26-a733-490d-bb9e-b4aa610ca532"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -18899,7 +18930,7 @@ Cell[BoxData[
    3.933732473373189*^9, 3.933732474553158*^9}, {3.934454791353747*^9, 
    3.93445479184977*^9}, 3.9345393542247753`*^9},
  CellLabel->
-  "In[372]:=",ExpressionUUID->"c699da20-b8e1-4d8d-b830-d061605f160c"],
+  "In[454]:=",ExpressionUUID->"c699da20-b8e1-4d8d-b830-d061605f160c"],
 
 Cell[BoxData[
  InterpretationBox[
@@ -18914,8 +18945,8 @@ Cell[BoxData[
                TagBox[
                 TagBox[
                  RowBox[{
-                   RowBox[{"-", "2.8248117579952257`"}], "-", 
-                   RowBox[{"0.5134370572516892`", " ", "x"}]}], Short], 
+                   RowBox[{"-", "2.8233955692243256`"}], "-", 
+                   RowBox[{"0.5151657004528558`", " ", "x"}]}], Short], 
                 "SummaryItem"]}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
@@ -18934,8 +18965,8 @@ Cell[BoxData[
                TagBox[
                 TagBox[
                  RowBox[{
-                   RowBox[{"-", "2.8248117579952257`"}], "-", 
-                   RowBox[{"0.5134370572516892`", " ", "x"}]}], Short], 
+                   RowBox[{"-", "2.8233955692243256`"}], "-", 
+                   RowBox[{"0.5151657004528558`", " ", "x"}]}], Short], 
                 "SummaryItem"]}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
@@ -18954,13 +18985,13 @@ Cell[BoxData[
      "SummaryPanel"],
     DynamicModuleValues:>{}], "]"}],
   FittedModel[{
-   "Linear", {-2.8248117579952257`, -0.5134370572516892}, {{$CellContext`x}, {
+   "Linear", {-2.8233955692243256`, -0.5151657004528558}, {{$CellContext`x}, {
      1, $CellContext`x}}, {0, 0}}, {{1412.6878464872914`, 1664.4504186974987`,
-    890.8796597977583, 57.162183383813776`}}, {{1, 
+    939.7527939989117, 67.46484019519293}}, {{1, 
      Around[-3.3399688647329566`, 0.026605835131095847`]}, {2, 
      Around[-3.8401099861489447`, 0.02451119971810141]}, {3, 
-     Around[-4.400195342063766, 0.03350352311071254]}, {4, 
-     Around[-4.6265104322084865`, 0.13226520078908152`]}}, {{1., 1.}, {1., 
+     Around[-4.410780401425112, 0.032620693312989335`]}, {4, 
+     Around[-4.607057643271122, 0.12174783639180374`]}}, {{1., 1.}, {1., 
    2.}, {1., 3.}, {1., 4.}}, 
    Function[Null, 
     Internal`LocalizedBlock[{$CellContext`x}, #], {HoldAll}]],
@@ -18988,9 +19019,9 @@ Cell[BoxData[
    3.9345155741595078`*^9, 3.9345344031359*^9, 3.9345353119237757`*^9, 
    3.9345393548221207`*^9, 3.934559751642457*^9, 3.934562358110663*^9, 
    3.934603414272962*^9, 3.93460800414159*^9, 3.934611968924135*^9, 
-   3.934615233333233*^9},
+   3.934615233333233*^9, 3.93468979315462*^9},
  CellLabel->
-  "Out[372]=",ExpressionUUID->"22f6d4e3-f58f-42ca-a947-d73af4f59190"]
+  "Out[454]=",ExpressionUUID->"8ed04a05-f9b3-48a2-b9ab-bc73d7dbc5f4"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -19015,7 +19046,7 @@ Cell[BoxData[
    ")"}]}]], "Input",
  CellChangeTimes->{{3.9345393573682117`*^9, 3.9345393592962923`*^9}},
  CellLabel->
-  "In[373]:=",ExpressionUUID->"a50d66f9-04d2-4491-ae90-63cb096c85d3"],
+  "In[455]:=",ExpressionUUID->"a50d66f9-04d2-4491-ae90-63cb096c85d3"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -19041,21 +19072,21 @@ Cell[BoxData[
      "Around"],
     Around[0.0214912374766498, 0.000526776013979309]], ",", 
    InterpretationBox[
-    TemplateBox[{"0.0123", "0.0004"},
+    TemplateBox[{"0.0121", "0.0004"},
      "Around"],
-    Around[0.012274941856381545`, 0.0004112537981679317]], ",", 
+    Around[0.012145696111873265`, 0.0003962010279381848]], ",", 
    InterpretationBox[
-    TemplateBox[{"0.0098", "0.0013"},
+    TemplateBox[{"0.0100", "0.0012"},
      "Around"],
-    Around[0.009788858456922586, 0.0012947253293007647`]]}], "}"}]], "Output",\
+    Around[0.009981143228443191, 0.0012151825927796615`]]}], "}"}]], "Output",\
 
  CellChangeTimes->{3.934455765670926*^9, 3.934458333336471*^9, 
   3.934515574888485*^9, 3.934534403844996*^9, 3.9345353124851313`*^9, 
   3.9345393595288467`*^9, 3.9345597523032093`*^9, 3.934562359014784*^9, 
   3.934603415145192*^9, 3.9346080052677193`*^9, 3.934611969552739*^9, 
-  3.93461523416987*^9},
+  3.93461523416987*^9, 3.934689794161952*^9},
  CellLabel->
-  "Out[373]=",ExpressionUUID->"93972afe-cf98-4775-a402-768aa8f557c9"]
+  "Out[455]=",ExpressionUUID->"a1a21893-024e-4fe0-8571-380027b787e2"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -19162,7 +19193,7 @@ Cell[BoxData[
    3.934611988008995*^9}, {3.934612083452138*^9, 3.934612085166892*^9}, {
    3.934614657222783*^9, 3.934614675854508*^9}},
  CellLabel->
-  "In[374]:=",ExpressionUUID->"e5d2c2e9-65d2-42b6-87d6-57bf360d129a"],
+  "In[456]:=",ExpressionUUID->"e5d2c2e9-65d2-42b6-87d6-57bf360d129a"],
 
 Cell[BoxData[
  GraphicsBox[{
@@ -19171,34 +19202,34 @@ Cell[BoxData[
         TagBox[
          {GrayLevel[0], AbsoluteThickness[2], Opacity[1.], 
           LineBox[CompressedData["
-1:eJwVjms0lAkYgKeZyTAXzHzfjEuZT5bYVq5rUklvG7q5LKtQsWetLtJJmkrI
-oUbZSCm0upxc1m5Iu8kil3xvkVYMItImyYp12TSIKbFrfzznOc+/Z0lwuM8u
-JoPB8Jjnf2edljdKXrPAU8C7GmWqojtXib0j+lkQm28QHfG5iuaPlXU2DrKg
-aL1FQKiVio72+/g6/i0L+NGuegGOKtrX4oR6eIYFDQNxaY7uKpr7+JwZLWGD
-G04mT8tV9FFBYdwedzaslfccP1Krot3Te+3vlrPB+nlxUETwOG2TZuuzJ3sh
-2I0+4FpUTdDWyRzOzSgNUP5Zdl9jdpKebba8c9OTA51/VJpkOE7RTLaMqHTQ
-BOacxf6+c9O0iV0dN1CgBfXa0ejXrKajvGV3BdNacGu3w2yyxUc6q3p6R0w3
-F5g1jP7w4zN0r7Hzpdg7PPjn3a8dMRWfaP+je0+nXOHD3L5Hv7kJ5+iROj2B
-nVwAufggfaXPv7THt5KktA3a0M0dFB5wY+DAsLqaaaUD6q4cpVTFQOUKm/UK
-pi70ks3nvk9dgLXjHUx+pC5sP2xdx1nDxOxvflojH9KF5PbMZsUAE3m2JbWm
-vkJIzJb3pCWwUMgpNX35SAjiC4pglg0bfw740PrKXgThY+xRjVY2Ps2z9h/K
-F0FARNVQaOxCHMlI2f5kEQGfxqOq88w18DzLKp+VSEBoX0G6vF4DW0Kx1Wlm
-vt9rv845xMFr7hkuuIcE+6Nv7EIITfTuuGBv0kZC2VRtwNxtTczZFj+b5CqG
-hivPJqd3aGGcb7HIuVgMBUU7M07NaKF681Om2kwCBn2SwkP5XAwYlB5IzZTA
-Or3naSt8eLiBUWQqZ+nBl5V8Reo7Hj4RflG2M1IPKuOPDGy8xse/s0Yvpv6l
-B9xSL68MJwEOtncM53roAzFkm1LxXIAnGMVG1agPRbBp7ZoEbSwoaL5KWRqA
-SKNtyvczHdy/pWfyTLYBcMbOmzS16OC9UJvLzgJDeJP7qiDMURffLy+8+yTS
-EJZ4zlgGJupiw7C4JGzEEJYm2+6b69bFZaZ1ai+/RSCKMy4cshSi+bYQg9VN
-i6CevSwvQSFEnpVlKXvtYtiWVP5DcpcQY0/KrukXLobG+tnwbnMRJrXYBdlL
-jUArI0j4MlaEZpcjwjKTjGC54bFS82YR3tDsmngxaQSWWWKXnsUEPjxo47d0
-rxQmS5VnXQ4ReHBr48KqdinkKpy7Ju8TWJF5JORqhxTe8n+56V9LILObqo15
-JgXHS4K46joC04IPxzu9kEJzfrdZwiMCy8KNZu71SUGtjJYTSgI/nQl/hyop
-eOiXa9t1EZhYQ7yo16FgqsjaNfwtga0LalbeEFLwlexH/fYxAvVd92YmEhSc
-pedGZCoCCxurt27Uo8CkTXlxboLApq5drQ1SCrZMh/WmfCBQNFH+sGk5Bdnr
-8mOK2CTukAWb3rKmYPSxjpeuBol5UXxFii0FMt9Ik8McEh0Y34GnAwWPd7s1
-rOaS6C/gVrU4zf8k90sadUjM+fp3g9vOFIDYfdhKSOJwWtCxVJj/uV5y76KI
-xBjDEgdvFwqMi0+GbBeTWBcYmG7rRkHYquEVNRIS+TmcCeFGCspqvXkm+iRu
-7S/2Ht9EAcOjoueUAYnXzXfebttCweZO4ztDhiT+BxizMx8=
+1:eJwVx3s0lAkYgPFpZlxnhpn5vnE3XyzRJsYIp83atyIpEjEpQpaliFpFyKac
+TajWJqU4Ll2Qrkq0mvrePSOREopUkkopug3K7Ext2/7xnN95rKKTg2KZDAbD
+/1v/W7ErpcPoKQtCUZXxm7aS7vtBFLhpmAX9mvlHMzhKmvu+sa9jhAUy94L2
+VL6Szlipfpr97tuftTRJNlPSwfY7VKMaFqwoW3Ap0lFJ69/cZ0sbsSFg6573
+IFPSqby67XF+bPCRTI9hVStpvwNDLpeb2DCn0sd/t/c4LSlyDoqr1IL31RGi
++IoJ2qlAR+dUujbMNFW7hz+bpL90Olw4tUwHGEO/F6nFn2gm241odtWFptsP
+hpNSp2hraYv+Gp4evJ1xoXCqUUWnB7pd5k3pAasmSCoTqukK+VRY5oA+NGU+
+50bGaeih6Z4Hsy5wYOSKav62E5/p0NT4XXuPcEFt3ZeY/O8XeqzFmCdN4cHu
+j+7jqfCV9o80yi/yMYAwA+9Q0pOBL0dVcqajIUS7BklDXzPwtrtkYQ6TD3b7
+q+bOyJuGivFeJjeNDxHM3nmRbkysXHHsx5TXfBguy169YYiJHOeLCptgAdht
+SKrW2s5Cgc4lm8c3BDCwHN7qzmLjiVX/dD1xEULA+uC1BzvYeO+4U+jrWiFI
+D/l17UvXwrHivau7zQmIfScPC7fRxj9YjrWsXAJCMpPJBoU23lmHXR4aAprM
+tdtSN+pgmV+xF8aRcF85WKsQ6GJg758u1j0kLBp3qn5xTherZNlf8r1FYKsd
+W/5rmB5uD64XetaLQBEwoMjT6KFqyT2mytYIek67D3NO6uOqEXFSYYkROM3h
+WP28goM+jNM2KSxjWKKcXuA1zsFuwazG8DRjuP+32YfCci6+qnizv/C5MVi3
+yXbG/cTDkbu9o0f9TUCu0ncmHvNwB6PeUo4m0Opx7OHM3QZ48mRnKeVgCoWN
+WfU37QwxcengZF6lKbQt9Mjpu2eIV9dJDnvyzCAqRzzfbR4fP86uu9ydZgYs
+9cPOhHw+to+KLiaMmUFkht5D2RAfv7dpUQWsNIcjogeaXRIB2sliTOfdMod9
+zWalibkC5Dg6XGL/ZAG1m0va5AMCzNrpVmZSZwFHfZu4QQ5CzL8jjXARW0Kw
+/eLOsp1CtD28KaEk3xJeWmVUO9wVYo1u/8SjSUuokLzi2lkTeH2jZOWMeDHw
+fds+9KURuDGkQ+vKXTFEbfMd67hB4F8lW2JKe8Ww+m2UUtJOIHOAUmTeF0NQ
+xNap4psEFkVvzvZ4JAYvqGFF3SawMdlSc/WZGOzZWhaTPQR+zkv+gEoxvCtA
+P4tBAnOvEY9aDSnYVup+NnGSwK5p1+bWCCjYwg1o6P5IoIl3fEkuQcGGrF+a
+3aYIrOuQhyw2piAqsriVoSbwVn9sV7uYggXfTQwe+EqgcKLp+q3ZFOidOmt4
+VZ/EMLdomzNOFDAtWkXWXBKPp3Nz9jpToNnz2DyXR6IrYy0sc6XgTRLXPpBP
+YihP/8odDwq6pOvhhYjEquUNpuc9KWg/tmPREmMSR4sithYCBQrysN85ExIz
+zS66BnpR0PDpRmi6OYkta9YccF5EwZm4JxGDFiRyq3QmBIspqO7/FLNQTGLI
+cH3guC8F5b4GCbUUieV24ed7llJwqNl2E8+KxP8A/hwmHg==
            "]]},
          Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
       {"WolframDynamicHighlight", <|
@@ -19215,42 +19246,42 @@ xBjDEgdvFwqMi0+GbBeTWBcYmG7rRkHYquEVNRIS+TmcCeFGCspqvXkm+iRu
                AbsoluteThickness[2], 
                GrayLevel[0]], 
               Line[CompressedData["
-1:eJwVjms0lAkYgKeZyTAXzHzfjEuZT5bYVq5rUklvG7q5LKtQsWetLtJJmkrI
-oUbZSCm0upxc1m5Iu8kil3xvkVYMItImyYp12TSIKbFrfzznOc+/Z0lwuM8u
-JoPB8Jjnf2edljdKXrPAU8C7GmWqojtXib0j+lkQm28QHfG5iuaPlXU2DrKg
-aL1FQKiVio72+/g6/i0L+NGuegGOKtrX4oR6eIYFDQNxaY7uKpr7+JwZLWGD
-G04mT8tV9FFBYdwedzaslfccP1Krot3Te+3vlrPB+nlxUETwOG2TZuuzJ3sh
-2I0+4FpUTdDWyRzOzSgNUP5Zdl9jdpKebba8c9OTA51/VJpkOE7RTLaMqHTQ
-BOacxf6+c9O0iV0dN1CgBfXa0ejXrKajvGV3BdNacGu3w2yyxUc6q3p6R0w3
-F5g1jP7w4zN0r7Hzpdg7PPjn3a8dMRWfaP+je0+nXOHD3L5Hv7kJ5+iROj2B
-nVwAufggfaXPv7THt5KktA3a0M0dFB5wY+DAsLqaaaUD6q4cpVTFQOUKm/UK
-pi70ks3nvk9dgLXjHUx+pC5sP2xdx1nDxOxvflojH9KF5PbMZsUAE3m2JbWm
-vkJIzJb3pCWwUMgpNX35SAjiC4pglg0bfw740PrKXgThY+xRjVY2Ps2z9h/K
-F0FARNVQaOxCHMlI2f5kEQGfxqOq88w18DzLKp+VSEBoX0G6vF4DW0Kx1Wlm
-vt9rv845xMFr7hkuuIcE+6Nv7EIITfTuuGBv0kZC2VRtwNxtTczZFj+b5CqG
-hivPJqd3aGGcb7HIuVgMBUU7M07NaKF681Om2kwCBn2SwkP5XAwYlB5IzZTA
-Or3naSt8eLiBUWQqZ+nBl5V8Reo7Hj4RflG2M1IPKuOPDGy8xse/s0Yvpv6l
-B9xSL68MJwEOtncM53roAzFkm1LxXIAnGMVG1agPRbBp7ZoEbSwoaL5KWRqA
-SKNtyvczHdy/pWfyTLYBcMbOmzS16OC9UJvLzgJDeJP7qiDMURffLy+8+yTS
-EJZ4zlgGJupiw7C4JGzEEJYm2+6b69bFZaZ1ai+/RSCKMy4cshSi+bYQg9VN
-i6CevSwvQSFEnpVlKXvtYtiWVP5DcpcQY0/KrukXLobG+tnwbnMRJrXYBdlL
-jUArI0j4MlaEZpcjwjKTjGC54bFS82YR3tDsmngxaQSWWWKXnsUEPjxo47d0
-rxQmS5VnXQ4ReHBr48KqdinkKpy7Ju8TWJF5JORqhxTe8n+56V9LILObqo15
-JgXHS4K46joC04IPxzu9kEJzfrdZwiMCy8KNZu71SUGtjJYTSgI/nQl/hyop
-eOiXa9t1EZhYQ7yo16FgqsjaNfwtga0LalbeEFLwlexH/fYxAvVd92YmEhSc
-pedGZCoCCxurt27Uo8CkTXlxboLApq5drQ1SCrZMh/WmfCBQNFH+sGk5Bdnr
-8mOK2CTukAWb3rKmYPSxjpeuBol5UXxFii0FMt9Ik8McEh0Y34GnAwWPd7s1
-rOaS6C/gVrU4zf8k90sadUjM+fp3g9vOFIDYfdhKSOJwWtCxVJj/uV5y76KI
-xBjDEgdvFwqMi0+GbBeTWBcYmG7rRkHYquEVNRIS+TmcCeFGCspqvXkm+iRu
-7S/2Ht9EAcOjoueUAYnXzXfebttCweZO4ztDhiT+BxizMx8=
+1:eJwVx3s0lAkYgPFpZlxnhpn5vnE3XyzRJsYIp83atyIpEjEpQpaliFpFyKac
+TajWJqU4Ll2Qrkq0mvrePSOREopUkkopug3K7Ext2/7xnN95rKKTg2KZDAbD
+/1v/W7ErpcPoKQtCUZXxm7aS7vtBFLhpmAX9mvlHMzhKmvu+sa9jhAUy94L2
+VL6Szlipfpr97tuftTRJNlPSwfY7VKMaFqwoW3Ap0lFJ69/cZ0sbsSFg6573
+IFPSqby67XF+bPCRTI9hVStpvwNDLpeb2DCn0sd/t/c4LSlyDoqr1IL31RGi
++IoJ2qlAR+dUujbMNFW7hz+bpL90Olw4tUwHGEO/F6nFn2gm241odtWFptsP
+hpNSp2hraYv+Gp4evJ1xoXCqUUWnB7pd5k3pAasmSCoTqukK+VRY5oA+NGU+
+50bGaeih6Z4Hsy5wYOSKav62E5/p0NT4XXuPcEFt3ZeY/O8XeqzFmCdN4cHu
+j+7jqfCV9o80yi/yMYAwA+9Q0pOBL0dVcqajIUS7BklDXzPwtrtkYQ6TD3b7
+q+bOyJuGivFeJjeNDxHM3nmRbkysXHHsx5TXfBguy169YYiJHOeLCptgAdht
+SKrW2s5Cgc4lm8c3BDCwHN7qzmLjiVX/dD1xEULA+uC1BzvYeO+4U+jrWiFI
+D/l17UvXwrHivau7zQmIfScPC7fRxj9YjrWsXAJCMpPJBoU23lmHXR4aAprM
+tdtSN+pgmV+xF8aRcF85WKsQ6GJg758u1j0kLBp3qn5xTherZNlf8r1FYKsd
+W/5rmB5uD64XetaLQBEwoMjT6KFqyT2mytYIek67D3NO6uOqEXFSYYkROM3h
+WP28goM+jNM2KSxjWKKcXuA1zsFuwazG8DRjuP+32YfCci6+qnizv/C5MVi3
+yXbG/cTDkbu9o0f9TUCu0ncmHvNwB6PeUo4m0Opx7OHM3QZ48mRnKeVgCoWN
+WfU37QwxcengZF6lKbQt9Mjpu2eIV9dJDnvyzCAqRzzfbR4fP86uu9ydZgYs
+9cPOhHw+to+KLiaMmUFkht5D2RAfv7dpUQWsNIcjogeaXRIB2sliTOfdMod9
+zWalibkC5Dg6XGL/ZAG1m0va5AMCzNrpVmZSZwFHfZu4QQ5CzL8jjXARW0Kw
+/eLOsp1CtD28KaEk3xJeWmVUO9wVYo1u/8SjSUuokLzi2lkTeH2jZOWMeDHw
+fds+9KURuDGkQ+vKXTFEbfMd67hB4F8lW2JKe8Ww+m2UUtJOIHOAUmTeF0NQ
+xNap4psEFkVvzvZ4JAYvqGFF3SawMdlSc/WZGOzZWhaTPQR+zkv+gEoxvCtA
+P4tBAnOvEY9aDSnYVup+NnGSwK5p1+bWCCjYwg1o6P5IoIl3fEkuQcGGrF+a
+3aYIrOuQhyw2piAqsriVoSbwVn9sV7uYggXfTQwe+EqgcKLp+q3ZFOidOmt4
+VZ/EMLdomzNOFDAtWkXWXBKPp3Nz9jpToNnz2DyXR6IrYy0sc6XgTRLXPpBP
+YihP/8odDwq6pOvhhYjEquUNpuc9KWg/tmPREmMSR4sithYCBQrysN85ExIz
+zS66BnpR0PDpRmi6OYkta9YccF5EwZm4JxGDFiRyq3QmBIspqO7/FLNQTGLI
+cH3guC8F5b4GCbUUieV24ed7llJwqNl2E8+KxP8A/hwmHg==
                "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
           "LayoutOptions" -> <|"PanelPlotLayout" -> <||>, "PlotRange" -> {{
                Log[12], 
-               Log[2500]}, {-5.026282103780952, -1.0714050346731088`}}, 
+               Log[2500]}, {-5.032277839591777, -1.064085464819092}}, 
             "Frame" -> {{True, True}, {True, True}}, 
-            "AxesOrigin" -> {2.4849066497880057`, -5.02628210378094}, 
+            "AxesOrigin" -> {2.4849066497880057`, -5.0322778395917656`}, 
             "ImageSize" -> {280, 280/GoldenRatio}, "Axes" -> {True, True}, 
             "LabelStyle" -> {
              FontFamily -> "Bitstream Charter", FontSize -> 12, 
@@ -19274,9 +19305,9 @@ xBjDEgdvFwqMi0+GbBeTWBcYmG7rRkHYquEVNRIS+TmcCeFGCspqvXkm+iRu
           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
          "LayoutOptions" -> <|"PanelPlotLayout" -> <||>, "PlotRange" -> {{
               Log[12], 
-              Log[2500]}, {-5.026282103780952, -1.0714050346731088`}}, 
+              Log[2500]}, {-5.032277839591777, -1.064085464819092}}, 
            "Frame" -> {{True, True}, {True, True}}, 
-           "AxesOrigin" -> {2.4849066497880057`, -5.02628210378094}, 
+           "AxesOrigin" -> {2.4849066497880057`, -5.0322778395917656`}, 
            "ImageSize" -> {280, 280/GoldenRatio}, "Axes" -> {True, True}, 
            "LabelStyle" -> {FontFamily -> "Bitstream Charter", FontSize -> 12, 
              GrayLevel[0]}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
@@ -19304,42 +19335,42 @@ xBjDEgdvFwqMi0+GbBeTWBcYmG7rRkHYquEVNRIS+TmcCeFGCspqvXkm+iRu
            AbsoluteThickness[2], 
            GrayLevel[0]], 
           Line[CompressedData["
-1:eJwVjms0lAkYgKeZyTAXzHzfjEuZT5bYVq5rUklvG7q5LKtQsWetLtJJmkrI
-oUbZSCm0upxc1m5Iu8kil3xvkVYMItImyYp12TSIKbFrfzznOc+/Z0lwuM8u
-JoPB8Jjnf2edljdKXrPAU8C7GmWqojtXib0j+lkQm28QHfG5iuaPlXU2DrKg
-aL1FQKiVio72+/g6/i0L+NGuegGOKtrX4oR6eIYFDQNxaY7uKpr7+JwZLWGD
-G04mT8tV9FFBYdwedzaslfccP1Krot3Te+3vlrPB+nlxUETwOG2TZuuzJ3sh
-2I0+4FpUTdDWyRzOzSgNUP5Zdl9jdpKebba8c9OTA51/VJpkOE7RTLaMqHTQ
-BOacxf6+c9O0iV0dN1CgBfXa0ejXrKajvGV3BdNacGu3w2yyxUc6q3p6R0w3
-F5g1jP7w4zN0r7Hzpdg7PPjn3a8dMRWfaP+je0+nXOHD3L5Hv7kJ5+iROj2B
-nVwAufggfaXPv7THt5KktA3a0M0dFB5wY+DAsLqaaaUD6q4cpVTFQOUKm/UK
-pi70ks3nvk9dgLXjHUx+pC5sP2xdx1nDxOxvflojH9KF5PbMZsUAE3m2JbWm
-vkJIzJb3pCWwUMgpNX35SAjiC4pglg0bfw740PrKXgThY+xRjVY2Ps2z9h/K
-F0FARNVQaOxCHMlI2f5kEQGfxqOq88w18DzLKp+VSEBoX0G6vF4DW0Kx1Wlm
-vt9rv845xMFr7hkuuIcE+6Nv7EIITfTuuGBv0kZC2VRtwNxtTczZFj+b5CqG
-hivPJqd3aGGcb7HIuVgMBUU7M07NaKF681Om2kwCBn2SwkP5XAwYlB5IzZTA
-Or3naSt8eLiBUWQqZ+nBl5V8Reo7Hj4RflG2M1IPKuOPDGy8xse/s0Yvpv6l
-B9xSL68MJwEOtncM53roAzFkm1LxXIAnGMVG1agPRbBp7ZoEbSwoaL5KWRqA
-SKNtyvczHdy/pWfyTLYBcMbOmzS16OC9UJvLzgJDeJP7qiDMURffLy+8+yTS
-EJZ4zlgGJupiw7C4JGzEEJYm2+6b69bFZaZ1ai+/RSCKMy4cshSi+bYQg9VN
-i6CevSwvQSFEnpVlKXvtYtiWVP5DcpcQY0/KrukXLobG+tnwbnMRJrXYBdlL
-jUArI0j4MlaEZpcjwjKTjGC54bFS82YR3tDsmngxaQSWWWKXnsUEPjxo47d0
-rxQmS5VnXQ4ReHBr48KqdinkKpy7Ju8TWJF5JORqhxTe8n+56V9LILObqo15
-JgXHS4K46joC04IPxzu9kEJzfrdZwiMCy8KNZu71SUGtjJYTSgI/nQl/hyop
-eOiXa9t1EZhYQ7yo16FgqsjaNfwtga0LalbeEFLwlexH/fYxAvVd92YmEhSc
-pedGZCoCCxurt27Uo8CkTXlxboLApq5drQ1SCrZMh/WmfCBQNFH+sGk5Bdnr
-8mOK2CTukAWb3rKmYPSxjpeuBol5UXxFii0FMt9Ik8McEh0Y34GnAwWPd7s1
-rOaS6C/gVrU4zf8k90sadUjM+fp3g9vOFIDYfdhKSOJwWtCxVJj/uV5y76KI
-xBjDEgdvFwqMi0+GbBeTWBcYmG7rRkHYquEVNRIS+TmcCeFGCspqvXkm+iRu
-7S/2Ht9EAcOjoueUAYnXzXfebttCweZO4ztDhiT+BxizMx8=
+1:eJwVx3s0lAkYgPFpZlxnhpn5vnE3XyzRJsYIp83atyIpEjEpQpaliFpFyKac
+TajWJqU4Ll2Qrkq0mvrePSOREopUkkopug3K7Ext2/7xnN95rKKTg2KZDAbD
+/1v/W7ErpcPoKQtCUZXxm7aS7vtBFLhpmAX9mvlHMzhKmvu+sa9jhAUy94L2
+VL6Szlipfpr97tuftTRJNlPSwfY7VKMaFqwoW3Ap0lFJ69/cZ0sbsSFg6573
+IFPSqby67XF+bPCRTI9hVStpvwNDLpeb2DCn0sd/t/c4LSlyDoqr1IL31RGi
++IoJ2qlAR+dUujbMNFW7hz+bpL90Olw4tUwHGEO/F6nFn2gm241odtWFptsP
+hpNSp2hraYv+Gp4evJ1xoXCqUUWnB7pd5k3pAasmSCoTqukK+VRY5oA+NGU+
+50bGaeih6Z4Hsy5wYOSKav62E5/p0NT4XXuPcEFt3ZeY/O8XeqzFmCdN4cHu
+j+7jqfCV9o80yi/yMYAwA+9Q0pOBL0dVcqajIUS7BklDXzPwtrtkYQ6TD3b7
+q+bOyJuGivFeJjeNDxHM3nmRbkysXHHsx5TXfBguy169YYiJHOeLCptgAdht
+SKrW2s5Cgc4lm8c3BDCwHN7qzmLjiVX/dD1xEULA+uC1BzvYeO+4U+jrWiFI
+D/l17UvXwrHivau7zQmIfScPC7fRxj9YjrWsXAJCMpPJBoU23lmHXR4aAprM
+tdtSN+pgmV+xF8aRcF85WKsQ6GJg758u1j0kLBp3qn5xTherZNlf8r1FYKsd
+W/5rmB5uD64XetaLQBEwoMjT6KFqyT2mytYIek67D3NO6uOqEXFSYYkROM3h
+WP28goM+jNM2KSxjWKKcXuA1zsFuwazG8DRjuP+32YfCci6+qnizv/C5MVi3
+yXbG/cTDkbu9o0f9TUCu0ncmHvNwB6PeUo4m0Opx7OHM3QZ48mRnKeVgCoWN
+WfU37QwxcengZF6lKbQt9Mjpu2eIV9dJDnvyzCAqRzzfbR4fP86uu9ydZgYs
+9cPOhHw+to+KLiaMmUFkht5D2RAfv7dpUQWsNIcjogeaXRIB2sliTOfdMod9
+zWalibkC5Dg6XGL/ZAG1m0va5AMCzNrpVmZSZwFHfZu4QQ5CzL8jjXARW0Kw
+/eLOsp1CtD28KaEk3xJeWmVUO9wVYo1u/8SjSUuokLzi2lkTeH2jZOWMeDHw
+fds+9KURuDGkQ+vKXTFEbfMd67hB4F8lW2JKe8Ww+m2UUtJOIHOAUmTeF0NQ
+xNap4psEFkVvzvZ4JAYvqGFF3SawMdlSc/WZGOzZWhaTPQR+zkv+gEoxvCtA
+P4tBAnOvEY9aDSnYVup+NnGSwK5p1+bWCCjYwg1o6P5IoIl3fEkuQcGGrF+a
+3aYIrOuQhyw2piAqsriVoSbwVn9sV7uYggXfTQwe+EqgcKLp+q3ZFOidOmt4
+VZ/EMLdomzNOFDAtWkXWXBKPp3Nz9jpToNnz2DyXR6IrYy0sc6XgTRLXPpBP
+YihP/8odDwq6pOvhhYjEquUNpuc9KWg/tmPREmMSR4sithYCBQrysN85ExIz
+zS66BnpR0PDpRmi6OYkta9YccF5EwZm4JxGDFiRyq3QmBIspqO7/FLNQTGLI
+cH3guC8F5b4GCbUUieV24ed7llJwqNl2E8+KxP8A/hwmHg==
            "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
      "HighlightElements" -> <|
        "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
       "LayoutOptions" -> <|"PanelPlotLayout" -> <||>, "PlotRange" -> {{
            Log[12], 
-           Log[2500]}, {-5.026282103780952, -1.0714050346731088`}}, 
+           Log[2500]}, {-5.032277839591777, -1.064085464819092}}, 
         "Frame" -> {{True, True}, {True, True}}, 
-        "AxesOrigin" -> {2.4849066497880057`, -5.02628210378094}, 
+        "AxesOrigin" -> {2.4849066497880057`, -5.0322778395917656`}, 
         "ImageSize" -> {280, 280/GoldenRatio}, "Axes" -> {True, True}, 
         "LabelStyle" -> {FontFamily -> "Bitstream Charter", FontSize -> 12, 
           GrayLevel[0]}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
@@ -19401,17 +19432,17 @@ xBjDEgdvFwqMi0+GbBeTWBcYmG7rRkHYquEVNRIS+TmcCeFGCspqvXkm+iRu
         Antialiasing->False]}, 
       {RGBColor[0.368417, 0.506779, 0.709798], 
        StyleBox[{{}, {
-          LineBox[{{6.931471805599453, -4.434272967629937}, {
-           6.931471805599453, -4.400195342063766}}], 
-          LineBox[{{6.931471805599453, -4.400195342063766}, {
-           6.931471805599453, -4.367240833017735}}]}},
+          LineBox[{{6.931471805599453, -4.443945010895267}, {
+           6.931471805599453, -4.410780401425112}}], 
+          LineBox[{{6.931471805599453, -4.410780401425112}, {
+           6.931471805599453, -4.378680468153793}}]}},
         Antialiasing->False]}, 
       {RGBColor[0.368417, 0.506779, 0.709798], 
        StyleBox[{{}, {
-          LineBox[{{7.6246189861593985`, -4.768379574077334}, {
-           7.6246189861593985`, -4.6265104322084865`}}], 
-          LineBox[{{7.6246189861593985`, -4.6265104322084865`}, {
-           7.6246189861593985`, -4.502290203550463}}]}},
+          LineBox[{{7.6246189861593985`, -4.736879167565585}, {
+           7.6246189861593985`, -4.607057643271122}}], 
+          LineBox[{{7.6246189861593985`, -4.607057643271122}, {
+           7.6246189861593985`, -4.492169606178341}}]}},
         Antialiasing->False]}}, {
       {RGBColor[0.368417, 0.506779, 0.709798], 
        StyleBox[{
@@ -19513,14 +19544,14 @@ xBjDEgdvFwqMi0+GbBeTWBcYmG7rRkHYquEVNRIS+TmcCeFGCspqvXkm+iRu
          GeometricTransformationBox[
           LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
          GeometricTransformationBox[
-          LineBox[{{{6.931471805599453, -4.367240833017735}, 
-             Offset[{3, 0}, {6.931471805599453, -4.367240833017735}]}, {{
-             6.931471805599453, -4.367240833017735}, 
-             Offset[{-3, 0}, {6.931471805599453, -4.367240833017735}]}, {{
-             6.931471805599453, -4.434272967629937}, 
-             Offset[{3, 0}, {6.931471805599453, -4.434272967629937}]}, {{
-             6.931471805599453, -4.434272967629937}, 
-             Offset[{-3, 0}, {6.931471805599453, -4.434272967629937}]}}], {{{
+          LineBox[{{{6.931471805599453, -4.378680468153793}, 
+             Offset[{3, 0}, {6.931471805599453, -4.378680468153793}]}, {{
+             6.931471805599453, -4.378680468153793}, 
+             Offset[{-3, 0}, {6.931471805599453, -4.378680468153793}]}, {{
+             6.931471805599453, -4.443945010895267}, 
+             Offset[{3, 0}, {6.931471805599453, -4.443945010895267}]}, {{
+             6.931471805599453, -4.443945010895267}, 
+             Offset[{-3, 0}, {6.931471805599453, -4.443945010895267}]}}], {{{
            1., 0.}, {0., 1.}}, {0., 0.}}]},
         Antialiasing->False]}, 
       {RGBColor[0.368417, 0.506779, 0.709798], 
@@ -19528,15 +19559,15 @@ xBjDEgdvFwqMi0+GbBeTWBcYmG7rRkHYquEVNRIS+TmcCeFGCspqvXkm+iRu
          GeometricTransformationBox[
           LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
          GeometricTransformationBox[
-          LineBox[{{{7.6246189861593985`, -4.502290203550463}, 
-             Offset[{3, 0}, {7.6246189861593985`, -4.502290203550463}]}, {{
-             7.6246189861593985`, -4.502290203550463}, 
-             Offset[{-3, 0}, {7.6246189861593985`, -4.502290203550463}]}, {{
-             7.6246189861593985`, -4.768379574077334}, 
-             Offset[{3, 0}, {7.6246189861593985`, -4.768379574077334}]}, {{
-             7.6246189861593985`, -4.768379574077334}, 
+          LineBox[{{{7.6246189861593985`, -4.492169606178341}, 
+             Offset[{3, 0}, {7.6246189861593985`, -4.492169606178341}]}, {{
+             7.6246189861593985`, -4.492169606178341}, 
+             Offset[{-3, 0}, {7.6246189861593985`, -4.492169606178341}]}, {{
+             7.6246189861593985`, -4.736879167565585}, 
+             Offset[{3, 0}, {7.6246189861593985`, -4.736879167565585}]}, {{
+             7.6246189861593985`, -4.736879167565585}, 
              Offset[{-3, 0}, {
-              7.6246189861593985`, -4.768379574077334}]}}], {{{1., 0.}, {0., 
+              7.6246189861593985`, -4.736879167565585}]}}], {{{1., 0.}, {0., 
            1.}}, {0., 0.}}]},
         Antialiasing->False]}}}, 
     InterpretationBox[{
@@ -19550,8 +19581,8 @@ xBjDEgdvFwqMi0+GbBeTWBcYmG7rRkHYquEVNRIS+TmcCeFGCspqvXkm+iRu
           4.852030263919617, -2.8197301612902668`}, {
           5.545177444479562, -3.3399688647329566`}, {
           6.238324625039508, -3.8401099861489447`}, {
-          6.931471805599453, -4.400195342063766}, {
-          7.6246189861593985`, -4.6265104322084865`}}]},
+          6.931471805599453, -4.410780401425112}, {
+          7.6246189861593985`, -4.607057643271122}}]},
         Annotation[#, "Charting`Private`Tag#1"]& ],
        {"WolframDynamicHighlight", <|
         "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
@@ -19573,17 +19604,17 @@ xBjDEgdvFwqMi0+GbBeTWBcYmG7rRkHYquEVNRIS+TmcCeFGCspqvXkm+iRu
                4.852030263919617, -2.8197301612902668`}, {
                5.545177444479562, -3.3399688647329566`}, {
                6.238324625039508, -3.8401099861489447`}, {
-               6.931471805599453, -4.400195342063766}, {
-               7.6246189861593985`, -4.6265104322084865`}}]}, 
+               6.931471805599453, -4.410780401425112}, {
+               7.6246189861593985`, -4.607057643271122}}]}, 
              "Charting`Private`Tag#1"]}}, <|
           "HighlightElements" -> <|
             "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
            "LayoutOptions" -> <|
             "PanelPlotLayout" -> <||>, 
              "PlotRange" -> {{2.5683148786633105`, 
-              7.6246189861593985`}, {-5.047414895584938, -1.202691572522}}, 
+              7.6246189861593985`}, {-5.013449403497898, -1.202691572522}}, 
              "Frame" -> {{False, False}, {False, False}}, 
-             "AxesOrigin" -> {2.5683148786633105`, -5.047414895584938}, 
+             "AxesOrigin" -> {2.5683148786633105`, -5.013449403497898}, 
              "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
              "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
              "DefaultStyle" -> {
@@ -19606,9 +19637,9 @@ xBjDEgdvFwqMi0+GbBeTWBcYmG7rRkHYquEVNRIS+TmcCeFGCspqvXkm+iRu
           "LayoutOptions" -> <|
            "PanelPlotLayout" -> <||>, 
             "PlotRange" -> {{2.5683148786633105`, 
-             7.6246189861593985`}, {-5.047414895584938, -1.202691572522}}, 
+             7.6246189861593985`}, {-5.013449403497898, -1.202691572522}}, 
             "Frame" -> {{False, False}, {False, False}}, 
-            "AxesOrigin" -> {2.5683148786633105`, -5.047414895584938}, 
+            "AxesOrigin" -> {2.5683148786633105`, -5.013449403497898}, 
             "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
             "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
             "DefaultStyle" -> {
@@ -19642,17 +19673,17 @@ xBjDEgdvFwqMi0+GbBeTWBcYmG7rRkHYquEVNRIS+TmcCeFGCspqvXkm+iRu
            4.852030263919617, -2.8197301612902668`}, {
            5.545177444479562, -3.3399688647329566`}, {
            6.238324625039508, -3.8401099861489447`}, {
-           6.931471805599453, -4.400195342063766}, {
-           7.6246189861593985`, -4.6265104322084865`}}]}, 
+           6.931471805599453, -4.410780401425112}, {
+           7.6246189861593985`, -4.607057643271122}}]}, 
          "Charting`Private`Tag#1"]}}, <|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, 
          "PlotRange" -> {{2.5683148786633105`, 
-          7.6246189861593985`}, {-5.047414895584938, -1.202691572522}}, 
+          7.6246189861593985`}, {-5.013449403497898, -1.202691572522}}, 
          "Frame" -> {{False, False}, {False, False}}, 
-         "AxesOrigin" -> {2.5683148786633105`, -5.047414895584938}, 
+         "AxesOrigin" -> {2.5683148786633105`, -5.013449403497898}, 
          "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
          "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
          "DefaultStyle" -> {
@@ -19674,7 +19705,7 @@ xBjDEgdvFwqMi0+GbBeTWBcYmG7rRkHYquEVNRIS+TmcCeFGCspqvXkm+iRu
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{None, None},
-  AxesOrigin->{2.4849066497880057`, -5.02628210378094},
+  AxesOrigin->{2.4849066497880057`, -5.0322778395917656`},
   DisplayFunction->Identity,
   Epilog->{
     LineBox[{{0, -4.235990818437241}, {100, -4.235990818437241}}], {
@@ -20116,9 +20147,9 @@ xBjDEgdvFwqMi0+GbBeTWBcYmG7rRkHYquEVNRIS+TmcCeFGCspqvXkm+iRu
          Part[#, 2]]}& )}},
   PlotRange->NCache[{{
       Log[12], 
-      Log[2500]}, {-5.026282103780952, -1.0714050346731088`}}, {{
+      Log[2500]}, {-5.032277839591777, -1.064085464819092}}, {{
     2.4849066497880004`, 
-    7.824046010856292}, {-5.026282103780952, -1.0714050346731088`}}],
+    7.824046010856292}, {-5.032277839591777, -1.064085464819092}}],
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
@@ -20159,9 +20190,10 @@ xBjDEgdvFwqMi0+GbBeTWBcYmG7rRkHYquEVNRIS+TmcCeFGCspqvXkm+iRu
    3.934539378731186*^9, 3.9345597529798813`*^9, 3.934562360076745*^9, 
    3.934603418964913*^9, 3.934608006365135*^9, {3.9346117725099497`*^9, 
    3.9346119322474327`*^9}, {3.9346119701780243`*^9, 3.9346119883637733`*^9}, 
-   3.934612085480156*^9, 3.934614676086709*^9, 3.934615235007635*^9},
+   3.934612085480156*^9, 3.934614676086709*^9, 3.934615235007635*^9, 
+   3.934689795835146*^9},
  CellLabel->
-  "Out[374]=",ExpressionUUID->"77c89222-5a66-4830-a35d-c39177f17b74"]
+  "Out[456]=",ExpressionUUID->"dc4c2d53-39e1-468a-a5d6-44eb961caf69"]
 }, Open  ]],
 
 Cell[BoxData[{
@@ -20222,22 +20254,22 @@ Cell[BoxData[{
   3.9345620108963537`*^9, 3.93456203180792*^9}, {3.93456290528482*^9, 
   3.934562911596554*^9}},
  CellLabel->
-  "In[378]:=",ExpressionUUID->"c455b4ff-c06e-4670-8c0b-a6b83b146cb8"],
+  "In[457]:=",ExpressionUUID->"c455b4ff-c06e-4670-8c0b-a6b83b146cb8"],
 
-Cell[BoxData["1.065401480790113`"], "Output",
+Cell[BoxData["1.311357794508008`"], "Output",
  CellChangeTimes->{3.934562032031098*^9, 3.934562363090907*^9, 
   3.9345629119112453`*^9, 3.934603423849854*^9, 3.93460800775655*^9, 
-  3.934611971515953*^9, 3.934615238823287*^9},
+  3.934611971515953*^9, 3.934615238823287*^9, 3.934689806654533*^9},
  CellLabel->
-  "Out[378]=",ExpressionUUID->"f467a816-b753-401a-9cd1-33aaa8625b41"],
+  "Out[457]=",ExpressionUUID->"32dbbbde-6b6b-4274-b442-6fe9479060cc"],
 
 Cell[BoxData[
- RowBox[{"-", "1.6844474272148888`"}]], "Output",
+ RowBox[{"-", "1.987271903509797`"}]], "Output",
  CellChangeTimes->{3.934562032031098*^9, 3.934562363090907*^9, 
   3.9345629119112453`*^9, 3.934603423849854*^9, 3.93460800775655*^9, 
-  3.934611971515953*^9, 3.934615238824196*^9},
+  3.934611971515953*^9, 3.934615238823287*^9, 3.934689806655532*^9},
  CellLabel->
-  "Out[379]=",ExpressionUUID->"7e645a45-fa80-41c2-8b3c-521aa2144a29"]
+  "Out[458]=",ExpressionUUID->"050c3262-fa28-4245-9911-6553474af8d4"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -20908,7 +20940,7 @@ Cell[BoxData[
  CellLabel->
   "Out[382]=",ExpressionUUID->"e8003fd8-91d5-43e7-8f54-b5e982139cb4"]
 }, Open  ]]
-}, Open  ]],
+}, Closed]],
 
 Cell[CellGroupData[{
 
@@ -192746,7 +192778,7 @@ e9ede64c5cca"]
 }, Open  ]]
 }, Open  ]]
 },
-WindowSize->{1024.5, 519.75},
+WindowSize->{609, 503.25},
 WindowMargins->{{0, Automatic}, {Automatic, 0}},
 FrontEndVersion->"14.0 for Linux x86 (64-bit) (December 12, 2023)",
 StyleDefinitions->"Default.nb",
@@ -192765,234 +192797,234 @@ CellTagsIndex->{}
 Notebook[{
 Cell[CellGroupData[{
 Cell[580, 22, 158, 3, 50, "Section",ExpressionUUID->"bbc7c15f-5b7d-4690-8a22-e1e38c3edf32"],
-Cell[741, 27, 4315, 135, 84, "Input",ExpressionUUID->"41b24844-1147-4d0a-b487-e8350b1d5c79"],
-Cell[5059, 164, 1923, 61, 145, "Input",ExpressionUUID->"b03bc860-b1c0-4e93-9060-8118f88e47e4"],
-Cell[6985, 227, 2814, 81, 44, "Input",ExpressionUUID->"b26718dc-2cea-4fdb-b7ee-88d00ee5b4db"],
-Cell[9802, 310, 693, 20, 47, "Input",ExpressionUUID->"08648c98-5e11-49e5-9ecf-4568bf068ad0"],
-Cell[10498, 332, 748, 19, 22, "Input",ExpressionUUID->"336506fe-ed5b-44be-8723-7d5b12b2b85d"],
-Cell[11249, 353, 4547, 145, 100, "Input",ExpressionUUID->"c1297907-e97f-4b0c-9644-ead31698af8d"],
-Cell[15799, 500, 348, 9, 35, "Input",ExpressionUUID->"bc0c79a5-5d5f-41ea-a0ca-c421c1cc8550"]
+Cell[741, 27, 4315, 135, 221, "Input",ExpressionUUID->"41b24844-1147-4d0a-b487-e8350b1d5c79"],
+Cell[5059, 164, 2294, 74, 185, "Input",ExpressionUUID->"b03bc860-b1c0-4e93-9060-8118f88e47e4"],
+Cell[7356, 240, 2814, 81, 66, "Input",ExpressionUUID->"b26718dc-2cea-4fdb-b7ee-88d00ee5b4db"],
+Cell[10173, 323, 693, 20, 47, "Input",ExpressionUUID->"08648c98-5e11-49e5-9ecf-4568bf068ad0"],
+Cell[10869, 345, 748, 19, 22, "Input",ExpressionUUID->"336506fe-ed5b-44be-8723-7d5b12b2b85d"],
+Cell[11620, 366, 4547, 145, 167, "Input",ExpressionUUID->"c1297907-e97f-4b0c-9644-ead31698af8d"],
+Cell[16170, 513, 348, 9, 35, "Input",ExpressionUUID->"bc0c79a5-5d5f-41ea-a0ca-c421c1cc8550"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[16184, 514, 150, 3, 50, "Section",ExpressionUUID->"f6acd268-0983-4ccc-b375-6fb0a5032805"],
+Cell[16555, 527, 150, 3, 50, "Section",ExpressionUUID->"f6acd268-0983-4ccc-b375-6fb0a5032805"],
 Cell[CellGroupData[{
-Cell[16359, 521, 163, 3, 41, "Subsection",ExpressionUUID->"80e4596a-0f6c-482b-9d38-4e3778e2b753"],
+Cell[16730, 534, 163, 3, 41, "Subsection",ExpressionUUID->"80e4596a-0f6c-482b-9d38-4e3778e2b753"],
 Cell[CellGroupData[{
-Cell[16547, 528, 5788, 144, 121, "Input",ExpressionUUID->"6c182b3c-b61b-4da5-97eb-545f093d6397"],
-Cell[22338, 674, 179121, 3136, 227, "Output",ExpressionUUID->"aa34ee8b-81c2-4f88-9ac7-cc32bcaf34a7"]
+Cell[16918, 541, 6096, 150, 246, "Input",ExpressionUUID->"6c182b3c-b61b-4da5-97eb-545f093d6397"],
+Cell[23017, 693, 179253, 3139, 227, "Output",ExpressionUUID->"7f960138-517a-4f1a-b9e6-0eaf7b02798e"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[201496, 3815, 7183, 180, 213, "Input",ExpressionUUID->"987acbda-9443-4a50-9527-bdd438ec8a24"],
-Cell[208682, 3997, 128644, 2400, 218, "Output",ExpressionUUID->"34c26d83-2227-445e-bd36-24d72298b64f"]
+Cell[202307, 3837, 7490, 186, 362, "Input",ExpressionUUID->"987acbda-9443-4a50-9527-bdd438ec8a24"],
+Cell[209800, 4025, 128792, 2404, 227, "Output",ExpressionUUID->"7b6f9e79-91f7-47eb-ba89-358c82ab5fdd"]
 }, Open  ]],
-Cell[337341, 6400, 604, 15, 53, "Input",ExpressionUUID->"718f433c-5ec4-4bac-860a-5bace6d1b65e"]
+Cell[338607, 6432, 604, 16, 53, "Input",ExpressionUUID->"718f433c-5ec4-4bac-860a-5bace6d1b65e"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[337982, 6420, 175, 3, 41, "Subsection",ExpressionUUID->"5df07bd5-2097-4030-81f4-b69a40cb15f6"],
+Cell[339248, 6453, 175, 3, 41, "Subsection",ExpressionUUID->"5df07bd5-2097-4030-81f4-b69a40cb15f6"],
 Cell[CellGroupData[{
-Cell[338182, 6427, 8992, 206, 176, "Input",ExpressionUUID->"5506e17b-9ca1-45dd-9a22-41bf59df28ce"],
-Cell[347177, 6635, 23297, 456, 159, "Output",ExpressionUUID->"f02fb6a6-e405-4836-80f0-e33cd4587ade"]
+Cell[339448, 6460, 8992, 206, 283, "Input",ExpressionUUID->"5506e17b-9ca1-45dd-9a22-41bf59df28ce"],
+Cell[348443, 6668, 23297, 456, 159, "Output",ExpressionUUID->"f02fb6a6-e405-4836-80f0-e33cd4587ade"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[370511, 7096, 9013, 212, 176, "Input",ExpressionUUID->"92265c04-e236-4e0e-8f2d-85dfff966601"],
-Cell[379527, 7310, 12422, 272, 159, "Output",ExpressionUUID->"53525ec3-63aa-4102-8c66-00e0698a79ca"]
+Cell[371777, 7129, 9013, 212, 299, "Input",ExpressionUUID->"92265c04-e236-4e0e-8f2d-85dfff966601"],
+Cell[380793, 7343, 12422, 272, 159, "Output",ExpressionUUID->"53525ec3-63aa-4102-8c66-00e0698a79ca"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[391986, 7587, 7294, 171, 130, "Input",ExpressionUUID->"2024fdeb-ff4f-4e26-834d-bece770e0a79"],
-Cell[399283, 7760, 25704, 487, 159, "Output",ExpressionUUID->"19c70bd8-82b7-4eb1-9dbb-9ea50e360376"]
+Cell[393252, 7620, 7294, 171, 237, "Input",ExpressionUUID->"2024fdeb-ff4f-4e26-834d-bece770e0a79"],
+Cell[400549, 7793, 25704, 487, 159, "Output",ExpressionUUID->"19c70bd8-82b7-4eb1-9dbb-9ea50e360376"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[425024, 8252, 6178, 141, 115, "Input",ExpressionUUID->"b3fc4f55-4c0b-4c22-9d55-e6dad1b1d50e"],
-Cell[431205, 8395, 24732, 465, 159, "Output",ExpressionUUID->"deb3543a-4d75-4574-bbae-98c342faea83"]
+Cell[426290, 8285, 6178, 141, 207, "Input",ExpressionUUID->"b3fc4f55-4c0b-4c22-9d55-e6dad1b1d50e"],
+Cell[432471, 8428, 24732, 465, 159, "Output",ExpressionUUID->"deb3543a-4d75-4574-bbae-98c342faea83"]
 }, Open  ]],
-Cell[455952, 8863, 1101, 27, 84, "Input",ExpressionUUID->"587076b9-908e-406a-9c46-ad3a25c086de"]
+Cell[457218, 8896, 1101, 27, 84, "Input",ExpressionUUID->"587076b9-908e-406a-9c46-ad3a25c086de"]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[457090, 8895, 162, 3, 30, "Subsection",ExpressionUUID->"5159d821-004a-42df-9d4c-fa83e8d77495"],
+Cell[458356, 8928, 162, 3, 30, "Subsection",ExpressionUUID->"5159d821-004a-42df-9d4c-fa83e8d77495"],
 Cell[CellGroupData[{
-Cell[457277, 8902, 7382, 172, 140, "Input",ExpressionUUID->"6c065066-6bf9-4f3a-a1a0-0b9cba9f452c"],
-Cell[464662, 9076, 51249, 968, 177, "Output",ExpressionUUID->"7e82ffb6-84e7-4a29-8501-6c669630aa8e"]
+Cell[458543, 8935, 7382, 172, 267, "Input",ExpressionUUID->"6c065066-6bf9-4f3a-a1a0-0b9cba9f452c"],
+Cell[465928, 9109, 51249, 968, 177, "Output",ExpressionUUID->"7e82ffb6-84e7-4a29-8501-6c669630aa8e"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[515948, 10049, 6421, 149, 118, "Input",ExpressionUUID->"b7835bf7-af7e-4043-ba65-56202b80be80"],
-Cell[522372, 10200, 2560, 41, 125, "Message",ExpressionUUID->"27f8d3a1-af00-43ff-a010-d91ea739ca18"],
-Cell[524935, 10243, 1028, 19, 22, "Message",ExpressionUUID->"eed8c3e0-eea5-4156-aeeb-895e7f9ef13f"],
-Cell[525966, 10264, 93525, 1708, 177, "Output",ExpressionUUID->"0bb4ebbd-525a-40a9-8738-739ec949f19e"]
+Cell[517214, 10082, 6421, 149, 253, "Input",ExpressionUUID->"b7835bf7-af7e-4043-ba65-56202b80be80"],
+Cell[523638, 10233, 2560, 41, 186, "Message",ExpressionUUID->"27f8d3a1-af00-43ff-a010-d91ea739ca18"],
+Cell[526201, 10276, 1028, 19, 34, "Message",ExpressionUUID->"eed8c3e0-eea5-4156-aeeb-895e7f9ef13f"],
+Cell[527232, 10297, 93525, 1708, 177, "Output",ExpressionUUID->"0bb4ebbd-525a-40a9-8738-739ec949f19e"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[619528, 11977, 8597, 210, 190, "Input",ExpressionUUID->"60fc774e-789f-47e9-995f-80fba0589db7"],
-Cell[628128, 12189, 3522, 55, 125, "Message",ExpressionUUID->"3f1e63ad-98f0-4464-9bdf-6d9d8e725115"],
-Cell[631653, 12246, 97618, 1734, 177, "Output",ExpressionUUID->"d21fb0df-419f-4363-bb7f-617faf904692"]
+Cell[620794, 12010, 8597, 210, 362, "Input",ExpressionUUID->"60fc774e-789f-47e9-995f-80fba0589db7"],
+Cell[629394, 12222, 3522, 55, 186, "Message",ExpressionUUID->"3f1e63ad-98f0-4464-9bdf-6d9d8e725115"],
+Cell[632919, 12279, 97618, 1734, 177, "Output",ExpressionUUID->"d21fb0df-419f-4363-bb7f-617faf904692"]
 }, Open  ]],
-Cell[729286, 13983, 861, 21, 68, "Input",ExpressionUUID->"1b485599-abd1-4bc0-967d-165fc92d833b"]
+Cell[730552, 14016, 861, 21, 68, "Input",ExpressionUUID->"1b485599-abd1-4bc0-967d-165fc92d833b"]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[730184, 14009, 168, 3, 30, "Subsection",ExpressionUUID->"b535800b-9d38-4d4f-9e23-c69cf4d429fb"],
-Cell[730355, 14014, 633, 15, 24, "Input",ExpressionUUID->"f9bfb54c-f8f3-4525-abeb-233750cee79a"],
-Cell[730991, 14031, 1328, 26, 24, "Input",ExpressionUUID->"7618c6de-8d4a-471b-b096-c27a59d6c675"],
+Cell[731450, 14042, 168, 3, 30, "Subsection",ExpressionUUID->"b535800b-9d38-4d4f-9e23-c69cf4d429fb"],
+Cell[731621, 14047, 633, 15, 24, "Input",ExpressionUUID->"f9bfb54c-f8f3-4525-abeb-233750cee79a"],
+Cell[732257, 14064, 1328, 26, 24, "Input",ExpressionUUID->"7618c6de-8d4a-471b-b096-c27a59d6c675"],
 Cell[CellGroupData[{
-Cell[732344, 14061, 369, 8, 22, "Input",ExpressionUUID->"f0210815-94c5-4cb1-80fe-bd2530af8882"],
-Cell[732716, 14071, 1159, 23, 42, "Output",ExpressionUUID->"fe6a90df-8284-4593-ad95-18776dee12ba"]
+Cell[733610, 14094, 369, 8, 22, "Input",ExpressionUUID->"f0210815-94c5-4cb1-80fe-bd2530af8882"],
+Cell[733982, 14104, 1159, 23, 42, "Output",ExpressionUUID->"fe6a90df-8284-4593-ad95-18776dee12ba"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[733912, 14099, 1477, 42, 39, "Input",ExpressionUUID->"94b6c17c-655e-47eb-9104-1a3e8efc5930"],
-Cell[735392, 14143, 2609, 78, 54, "Output",ExpressionUUID->"a47fe3af-36d2-4287-bd83-2a93e3914f03"]
+Cell[735178, 14132, 1477, 42, 98, "Input",ExpressionUUID->"94b6c17c-655e-47eb-9104-1a3e8efc5930"],
+Cell[736658, 14176, 2609, 78, 94, "Output",ExpressionUUID->"a47fe3af-36d2-4287-bd83-2a93e3914f03"]
 }, Open  ]],
-Cell[738016, 14224, 2817, 65, 39, "Input",ExpressionUUID->"baaf63c8-5be4-4d2a-a22b-7dc91aa7910c"],
+Cell[739282, 14257, 2817, 65, 106, "Input",ExpressionUUID->"baaf63c8-5be4-4d2a-a22b-7dc91aa7910c"],
 Cell[CellGroupData[{
-Cell[740858, 14293, 676, 19, 35, "Input",ExpressionUUID->"f413f90a-2bbe-4119-afe0-c4eeb6f72ad3"],
-Cell[741537, 14314, 1383, 37, 41, "Output",ExpressionUUID->"88b56873-7ab9-4829-8db3-a20d0df14d25"]
+Cell[742124, 14326, 676, 19, 35, "Input",ExpressionUUID->"f413f90a-2bbe-4119-afe0-c4eeb6f72ad3"],
+Cell[742803, 14347, 1383, 37, 56, "Output",ExpressionUUID->"88b56873-7ab9-4829-8db3-a20d0df14d25"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[742957, 14356, 632, 16, 35, "Input",ExpressionUUID->"f4199132-776b-444e-905f-98463bad3266"],
-Cell[743592, 14374, 396, 7, 42, "Output",ExpressionUUID->"c3a6a8d3-f6e2-4820-ad3e-241c8716142b"]
+Cell[744223, 14389, 632, 16, 35, "Input",ExpressionUUID->"f4199132-776b-444e-905f-98463bad3266"],
+Cell[744858, 14407, 396, 7, 42, "Output",ExpressionUUID->"c3a6a8d3-f6e2-4820-ad3e-241c8716142b"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[744025, 14386, 1520, 37, 35, "Input",ExpressionUUID->"a2bdf3e3-eab7-4136-8b03-4eb31b271821"],
-Cell[745548, 14425, 1838, 26, 25, "Output",ExpressionUUID->"d0a3d4a6-34ba-40f2-a7d0-f233befe2a26"]
+Cell[745291, 14419, 1520, 37, 86, "Input",ExpressionUUID->"a2bdf3e3-eab7-4136-8b03-4eb31b271821"],
+Cell[746814, 14458, 1838, 26, 25, "Output",ExpressionUUID->"d0a3d4a6-34ba-40f2-a7d0-f233befe2a26"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[747423, 14456, 1391, 36, 35, "Input",ExpressionUUID->"bdc90b67-e81a-4882-976a-f1ebbb721caf"],
-Cell[748817, 14494, 388, 6, 25, "Output",ExpressionUUID->"542b581b-e106-4e4d-9ba9-cf5b96db734b"]
+Cell[748689, 14489, 1391, 36, 86, "Input",ExpressionUUID->"bdc90b67-e81a-4882-976a-f1ebbb721caf"],
+Cell[750083, 14527, 388, 6, 25, "Output",ExpressionUUID->"542b581b-e106-4e4d-9ba9-cf5b96db734b"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[749242, 14505, 5042, 119, 121, "Input",ExpressionUUID->"aa7e3288-606c-43dd-b026-af18071365ea"],
-Cell[754287, 14626, 43675, 801, 78, "Output",ExpressionUUID->"8869033b-708a-43fd-adfb-83f0ccfdf27e"]
+Cell[750508, 14538, 5042, 119, 220, "Input",ExpressionUUID->"aa7e3288-606c-43dd-b026-af18071365ea"],
+Cell[755553, 14659, 43675, 801, 78, "Output",ExpressionUUID->"8869033b-708a-43fd-adfb-83f0ccfdf27e"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[797999, 15432, 4059, 92, 89, "Input",ExpressionUUID->"dcf47297-6e73-48db-95c6-2be317bfb5b5"],
-Cell[802061, 15526, 92270, 1688, 156, "Output",ExpressionUUID->"50b8d242-2452-4ef9-ade0-89cad39074e7"]
+Cell[799265, 15465, 4059, 92, 156, "Input",ExpressionUUID->"dcf47297-6e73-48db-95c6-2be317bfb5b5"],
+Cell[803327, 15559, 92270, 1688, 156, "Output",ExpressionUUID->"50b8d242-2452-4ef9-ade0-89cad39074e7"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[894368, 17219, 4471, 129, 160, "Input",ExpressionUUID->"b7c04588-51c4-46ba-b43a-323e54fb82c5"],
-Cell[898842, 17350, 19236, 384, 178, "Output",ExpressionUUID->"f2e5b5ab-73a2-4890-8c6d-8c0a51640602"]
+Cell[895634, 17252, 4471, 129, 452, "Input",ExpressionUUID->"b7c04588-51c4-46ba-b43a-323e54fb82c5"],
+Cell[900108, 17383, 19260, 384, 178, "Output",ExpressionUUID->"1bfc257b-9094-4610-bb24-5027a2b1163b"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[918115, 17739, 1344, 40, 38, "Input",ExpressionUUID->"d5c71612-e41c-40a0-8f22-153b347f934a"],
-Cell[919462, 17781, 5766, 126, 186, "Output",ExpressionUUID->"15eecab7-6f2e-4f51-ab59-b11829825066"]
+Cell[919405, 17772, 1344, 40, 53, "Input",ExpressionUUID->"d5c71612-e41c-40a0-8f22-153b347f934a"],
+Cell[920752, 17814, 5790, 126, 186, "Output",ExpressionUUID->"2e8593a7-6b89-4dfb-aa2f-8e4c57e92656"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[925265, 17912, 457, 10, 22, "Input",ExpressionUUID->"6729ea2e-916f-4c77-ad4d-d272adeb529e"],
-Cell[925725, 17924, 1874, 30, 35, "Output",ExpressionUUID->"aba920a7-24d4-48a9-abc4-340913a33287"]
+Cell[926579, 17945, 457, 10, 22, "Input",ExpressionUUID->"6729ea2e-916f-4c77-ad4d-d272adeb529e"],
+Cell[927039, 17957, 1896, 30, 35, "Output",ExpressionUUID->"253a859e-233a-494e-aa84-1c06d206b33f"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[927636, 17959, 961, 25, 25, "Input",ExpressionUUID->"04e6644b-90a9-4b4e-90ba-9f54a0b030a5"],
-Cell[928600, 17986, 4097, 82, 49, "Output",ExpressionUUID->"670f5bb6-e3c3-40eb-95ab-5d64eee71eb8"]
+Cell[928972, 17992, 961, 25, 57, "Input",ExpressionUUID->"04e6644b-90a9-4b4e-90ba-9f54a0b030a5"],
+Cell[929936, 18019, 4119, 82, 49, "Output",ExpressionUUID->"6695f125-8140-4a0f-bfd8-fbe609a847bf"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[932734, 18073, 1971, 47, 76, "Input",ExpressionUUID->"4f6ec33b-2722-4715-8283-2253119f6e1c"],
-Cell[934708, 18122, 34412, 749, 148, "Output",ExpressionUUID->"5f95b587-01c3-436e-9341-9fe0ec6d289b"]
+Cell[934092, 18106, 1971, 47, 91, "Input",ExpressionUUID->"4f6ec33b-2722-4715-8283-2253119f6e1c"],
+Cell[936066, 18155, 34340, 747, 148, "Output",ExpressionUUID->"06d43c26-a733-490d-bb9e-b4aa610ca532"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[969157, 18876, 941, 25, 25, "Input",ExpressionUUID->"c699da20-b8e1-4d8d-b830-d061605f160c"],
-Cell[970101, 18903, 4598, 89, 49, "Output",ExpressionUUID->"22f6d4e3-f58f-42ca-a947-d73af4f59190"]
+Cell[970443, 18907, 941, 25, 57, "Input",ExpressionUUID->"c699da20-b8e1-4d8d-b830-d061605f160c"],
+Cell[971387, 18934, 4617, 89, 49, "Output",ExpressionUUID->"8ed04a05-f9b3-48a2-b9ab-bc73d7dbc5f4"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[974736, 18997, 691, 20, 25, "Input",ExpressionUUID->"a50d66f9-04d2-4491-ae90-63cb096c85d3"],
-Cell[975430, 19019, 1419, 38, 37, "Output",ExpressionUUID->"93972afe-cf98-4775-a402-768aa8f557c9"]
+Cell[976041, 19028, 691, 20, 41, "Input",ExpressionUUID->"a50d66f9-04d2-4491-ae90-63cb096c85d3"],
+Cell[976735, 19050, 1441, 38, 54, "Output",ExpressionUUID->"a1a21893-024e-4fe0-8571-380027b787e2"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[976886, 19062, 4121, 102, 125, "Input",ExpressionUUID->"e5d2c2e9-65d2-42b6-87d6-57bf360d129a"],
-Cell[981010, 19166, 46291, 997, 161, "Output",ExpressionUUID->"77c89222-5a66-4830-a35d-c39177f17b74"]
+Cell[978213, 19093, 4121, 102, 188, "Input",ExpressionUUID->"e5d2c2e9-65d2-42b6-87d6-57bf360d129a"],
+Cell[982337, 19197, 46309, 998, 161, "Output",ExpressionUUID->"dc4c2d53-39e1-468a-a5d6-44eb961caf69"]
 }, Open  ]],
-Cell[1027316, 20166, 556, 15, 53, "Input",ExpressionUUID->"8abd0066-58cc-4935-be9c-3bede175f9cf"],
+Cell[1028661, 20198, 556, 15, 53, "Input",ExpressionUUID->"8abd0066-58cc-4935-be9c-3bede175f9cf"],
 Cell[CellGroupData[{
-Cell[1027897, 20185, 1285, 39, 43, "Input",ExpressionUUID->"c455b4ff-c06e-4670-8c0b-a6b83b146cb8"],
-Cell[1029185, 20226, 309, 5, 35, "Output",ExpressionUUID->"f467a816-b753-401a-9cd1-33aaa8625b41"],
-Cell[1029497, 20233, 327, 6, 35, "Output",ExpressionUUID->"7e645a45-fa80-41c2-8b3c-521aa2144a29"]
+Cell[1029242, 20217, 1285, 39, 74, "Input",ExpressionUUID->"c455b4ff-c06e-4670-8c0b-a6b83b146cb8"],
+Cell[1030530, 20258, 331, 5, 35, "Output",ExpressionUUID->"32dbbbde-6b6b-4274-b442-6fe9479060cc"],
+Cell[1030864, 20265, 348, 6, 35, "Output",ExpressionUUID->"050c3262-fa28-4245-9911-6553474af8d4"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1029861, 20244, 1276, 35, 42, "Input",ExpressionUUID->"5d1f916c-a784-49e1-8c0c-4c3c76f0c816"],
-Cell[1031140, 20281, 4497, 91, 55, "Output",ExpressionUUID->"c7d9eb4d-1411-4062-aab8-29af2cad1024"]
+Cell[1031249, 20276, 1276, 35, 59, "Input",ExpressionUUID->"5d1f916c-a784-49e1-8c0c-4c3c76f0c816"],
+Cell[1032528, 20313, 4497, 91, 55, "Output",ExpressionUUID->"c7d9eb4d-1411-4062-aab8-29af2cad1024"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1035674, 20377, 1324, 34, 42, "Input",ExpressionUUID->"a04437e1-ad3b-4721-b631-2e920551efc0"],
-Cell[1037001, 20413, 4671, 92, 51, "Output",ExpressionUUID->"c9130ad0-7626-4136-aa61-d83624a05169"]
+Cell[1037062, 20409, 1324, 34, 59, "Input",ExpressionUUID->"a04437e1-ad3b-4721-b631-2e920551efc0"],
+Cell[1038389, 20445, 4671, 92, 51, "Output",ExpressionUUID->"c9130ad0-7626-4136-aa61-d83624a05169"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1041709, 20510, 2183, 59, 53, "Input",ExpressionUUID->"fe010fe0-3f0c-4ab4-be57-676536c7b785"],
-Cell[1043895, 20571, 15118, 337, 179, "Output",ExpressionUUID->"e8003fd8-91d5-43e7-8f54-b5e982139cb4"]
+Cell[1043097, 20542, 2183, 59, 99, "Input",ExpressionUUID->"fe010fe0-3f0c-4ab4-be57-676536c7b785"],
+Cell[1045283, 20603, 15118, 337, 179, "Output",ExpressionUUID->"e8003fd8-91d5-43e7-8f54-b5e982139cb4"]
 }, Open  ]]
-}, Open  ]],
+}, Closed]],
 Cell[CellGroupData[{
-Cell[1059062, 20914, 206, 4, 41, "Subsection",ExpressionUUID->"ff39082a-03fc-42e8-9724-cba9e881655b"],
-Cell[1059271, 20920, 1704, 46, 75, "Input",ExpressionUUID->"872cc790-4f13-4d2d-99a7-abdf4436fa2c"],
-Cell[1060978, 20968, 1015, 17, 22, "Input",ExpressionUUID->"f17e49ae-1bb3-48f1-9b75-bbeb65878fdc"],
-Cell[1061996, 20987, 1246, 23, 24, "Input",ExpressionUUID->"b398376c-4a37-4baa-8263-1a3b2b0d511d"],
-Cell[1063245, 21012, 718, 20, 24, "Input",ExpressionUUID->"2b59e2ea-3c03-4c5d-ba00-f9025a081a2f"],
+Cell[1060450, 20946, 206, 4, 30, "Subsection",ExpressionUUID->"ff39082a-03fc-42e8-9724-cba9e881655b"],
+Cell[1060659, 20952, 1704, 46, 109, "Input",ExpressionUUID->"872cc790-4f13-4d2d-99a7-abdf4436fa2c"],
+Cell[1062366, 21000, 1015, 17, 22, "Input",ExpressionUUID->"f17e49ae-1bb3-48f1-9b75-bbeb65878fdc"],
+Cell[1063384, 21019, 1246, 23, 24, "Input",ExpressionUUID->"b398376c-4a37-4baa-8263-1a3b2b0d511d"],
+Cell[1064633, 21044, 718, 20, 24, "Input",ExpressionUUID->"2b59e2ea-3c03-4c5d-ba00-f9025a081a2f"],
 Cell[CellGroupData[{
-Cell[1063988, 21036, 1667, 37, 41, "Input",ExpressionUUID->"915061c0-7ec9-48b1-a951-8e51348a9795"],
-Cell[1065658, 21075, 55327, 1054, 336, "Output",ExpressionUUID->"93b1d9e1-547b-4a56-9209-648c8c715d70"]
+Cell[1065376, 21068, 1667, 37, 74, "Input",ExpressionUUID->"915061c0-7ec9-48b1-a951-8e51348a9795"],
+Cell[1067046, 21107, 55327, 1054, 336, "Output",ExpressionUUID->"93b1d9e1-547b-4a56-9209-648c8c715d70"]
 }, Open  ]],
-Cell[1121000, 22132, 317, 8, 22, "Input",ExpressionUUID->"86708862-7b81-4d16-95d3-4da6365a6038"],
-Cell[1121320, 22142, 2191, 49, 41, "Input",ExpressionUUID->"9de20adc-add5-4dad-bd65-1e8498717078"],
+Cell[1122388, 22164, 317, 8, 22, "Input",ExpressionUUID->"86708862-7b81-4d16-95d3-4da6365a6038"],
+Cell[1122708, 22174, 2191, 49, 41, "Input",ExpressionUUID->"9de20adc-add5-4dad-bd65-1e8498717078"],
 Cell[CellGroupData[{
-Cell[1123536, 22195, 2279, 53, 41, "Input",ExpressionUUID->"e528bc83-fedd-4cb7-a7e2-7fb607978acf"],
-Cell[1125818, 22250, 64299, 1232, 336, "Output",ExpressionUUID->"6bbbb0ed-a433-4420-8afa-bfa6f4669dd0"]
+Cell[1124924, 22227, 2279, 53, 41, "Input",ExpressionUUID->"e528bc83-fedd-4cb7-a7e2-7fb607978acf"],
+Cell[1127206, 22282, 64299, 1232, 336, "Output",ExpressionUUID->"6bbbb0ed-a433-4420-8afa-bfa6f4669dd0"]
 }, Open  ]],
-Cell[1190132, 23485, 848, 17, 22, "Input",ExpressionUUID->"ef6f487a-9ee3-4aa0-b539-506a622a13b7"],
+Cell[1191520, 23517, 848, 17, 22, "Input",ExpressionUUID->"ef6f487a-9ee3-4aa0-b539-506a622a13b7"],
 Cell[CellGroupData[{
-Cell[1191005, 23506, 1354, 26, 24, "Input",ExpressionUUID->"0db98d0e-b92d-4ab8-bb66-61f53b411000"],
-Cell[1192362, 23534, 328445, 5397, 296, 269006, 4425, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"05ce0ab7-c150-4319-bc8c-f6fbbda4fda7"]
+Cell[1192393, 23538, 1354, 26, 24, "Input",ExpressionUUID->"0db98d0e-b92d-4ab8-bb66-61f53b411000"],
+Cell[1193750, 23566, 328445, 5397, 296, 269006, 4425, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"05ce0ab7-c150-4319-bc8c-f6fbbda4fda7"]
 }, Open  ]],
-Cell[1520822, 28934, 815, 23, 40, "Input",ExpressionUUID->"40263386-cd9f-4a8d-b927-488a1cae2843"],
+Cell[1522210, 28966, 815, 23, 40, "Input",ExpressionUUID->"40263386-cd9f-4a8d-b927-488a1cae2843"],
 Cell[CellGroupData[{
-Cell[1521662, 28961, 2207, 42, 38, "Input",ExpressionUUID->"994154ba-91be-43cc-9ca0-50745729e383"],
-Cell[1523872, 29005, 269883, 4439, 161, "Output",ExpressionUUID->"148e4c1a-652b-4992-8055-5b38b2e33f1c"]
+Cell[1523050, 28993, 2207, 42, 38, "Input",ExpressionUUID->"994154ba-91be-43cc-9ca0-50745729e383"],
+Cell[1525260, 29037, 269883, 4439, 161, "Output",ExpressionUUID->"148e4c1a-652b-4992-8055-5b38b2e33f1c"]
 }, Open  ]],
-Cell[1793770, 33447, 1065, 17, 22, "Input",ExpressionUUID->"1ac93f6b-d483-4656-bc4e-cafae8d64928"],
-Cell[1794838, 33466, 1419, 30, 24, "Input",ExpressionUUID->"e5032b08-7a83-444c-b31e-b851a96b69c9"],
-Cell[1796260, 33498, 1086, 30, 24, "Input",ExpressionUUID->"4360d156-0917-4230-ba20-5153b91f78dd"],
+Cell[1795158, 33479, 1065, 17, 22, "Input",ExpressionUUID->"1ac93f6b-d483-4656-bc4e-cafae8d64928"],
+Cell[1796226, 33498, 1419, 30, 24, "Input",ExpressionUUID->"e5032b08-7a83-444c-b31e-b851a96b69c9"],
+Cell[1797648, 33530, 1086, 30, 24, "Input",ExpressionUUID->"4360d156-0917-4230-ba20-5153b91f78dd"],
 Cell[CellGroupData[{
-Cell[1797371, 33532, 1765, 39, 41, "Input",ExpressionUUID->"24bd308d-c1c0-418c-9278-e1cef4b12f0f"],
-Cell[1799139, 33573, 492466, 9337, 336, "Output",ExpressionUUID->"c7e54478-684c-4d40-af44-a66ef70233cc"]
+Cell[1798759, 33564, 1765, 39, 41, "Input",ExpressionUUID->"24bd308d-c1c0-418c-9278-e1cef4b12f0f"],
+Cell[1800527, 33605, 492466, 9337, 336, "Output",ExpressionUUID->"c7e54478-684c-4d40-af44-a66ef70233cc"]
 }, Open  ]],
-Cell[2291620, 42913, 317, 8, 22, "Input",ExpressionUUID->"f7d8a0e0-db54-4a86-97a2-09b9bb47639b"],
-Cell[2291940, 42923, 2391, 56, 41, "Input",ExpressionUUID->"670190eb-97cf-48ad-b575-b3100869cb93"],
+Cell[2293008, 42945, 317, 8, 22, "Input",ExpressionUUID->"f7d8a0e0-db54-4a86-97a2-09b9bb47639b"],
+Cell[2293328, 42955, 2391, 56, 41, "Input",ExpressionUUID->"670190eb-97cf-48ad-b575-b3100869cb93"],
 Cell[CellGroupData[{
-Cell[2294356, 42983, 2348, 56, 41, "Input",ExpressionUUID->"578ccac6-7b17-4583-9281-66874ba9b897"],
-Cell[2296707, 43041, 795623, 14282, 336, "Output",ExpressionUUID->"b80ff946-be74-415d-8de2-ab145714ebf3"]
+Cell[2295744, 43015, 2348, 56, 41, "Input",ExpressionUUID->"578ccac6-7b17-4583-9281-66874ba9b897"],
+Cell[2298095, 43073, 795623, 14282, 336, "Output",ExpressionUUID->"b80ff946-be74-415d-8de2-ab145714ebf3"]
 }, Open  ]],
-Cell[3092345, 57326, 848, 17, 22, "Input",ExpressionUUID->"a515cac5-2419-4e69-aff7-acf2ed64e535"],
+Cell[3093733, 57358, 848, 17, 22, "Input",ExpressionUUID->"a515cac5-2419-4e69-aff7-acf2ed64e535"],
 Cell[CellGroupData[{
-Cell[3093218, 57347, 1354, 26, 24, "Input",ExpressionUUID->"f89589c3-3d58-45c8-9cc4-1a567916cd3b"],
-Cell[3094575, 57375, 560902, 9207, 296, "Output",ExpressionUUID->"7542bad6-cea8-486a-ad70-240e327e482d"]
+Cell[3094606, 57379, 1354, 26, 24, "Input",ExpressionUUID->"f89589c3-3d58-45c8-9cc4-1a567916cd3b"],
+Cell[3095963, 57407, 560902, 9207, 296, "Output",ExpressionUUID->"7542bad6-cea8-486a-ad70-240e327e482d"]
 }, Open  ]],
-Cell[3655492, 66585, 815, 23, 40, "Input",ExpressionUUID->"584b6c8b-947f-4280-9a9c-7ab2728cd4b7"],
+Cell[3656880, 66617, 815, 23, 40, "Input",ExpressionUUID->"584b6c8b-947f-4280-9a9c-7ab2728cd4b7"],
 Cell[CellGroupData[{
-Cell[3656332, 66612, 2201, 42, 38, "Input",ExpressionUUID->"7a622b9e-63d1-4073-8620-2e390e4d56bd"],
-Cell[3658536, 66656, 560220, 9198, 161, "Output",ExpressionUUID->"cc529c41-089a-4275-8426-a2014dd26b11"]
+Cell[3657720, 66644, 2201, 42, 38, "Input",ExpressionUUID->"7a622b9e-63d1-4073-8620-2e390e4d56bd"],
+Cell[3659924, 66688, 560220, 9198, 161, "Output",ExpressionUUID->"cc529c41-089a-4275-8426-a2014dd26b11"]
 }, Open  ]],
-Cell[4218771, 75857, 1627, 36, 38, "Input",ExpressionUUID->"b4b2f41d-2e37-47da-9ba6-562bb35857f8"],
-Cell[4220401, 75895, 577, 16, 24, "Input",ExpressionUUID->"94331b49-df2d-48dc-9c78-a542603df328"],
+Cell[4220159, 75889, 1627, 36, 38, "Input",ExpressionUUID->"b4b2f41d-2e37-47da-9ba6-562bb35857f8"],
+Cell[4221789, 75927, 577, 16, 24, "Input",ExpressionUUID->"94331b49-df2d-48dc-9c78-a542603df328"],
 Cell[CellGroupData[{
-Cell[4221003, 75915, 1258, 33, 24, "Input",ExpressionUUID->"fa6551ed-ab50-40f7-9b77-8b6ae3f11f33"],
-Cell[4222264, 75950, 2522980, 48064, 286, "Output",ExpressionUUID->"1168ec66-8687-4c95-8f7b-591acb738b27"]
+Cell[4222391, 75947, 1258, 33, 24, "Input",ExpressionUUID->"fa6551ed-ab50-40f7-9b77-8b6ae3f11f33"],
+Cell[4223652, 75982, 2522980, 48064, 286, "Output",ExpressionUUID->"1168ec66-8687-4c95-8f7b-591acb738b27"]
 }, Open  ]],
-Cell[6745259, 124017, 254, 7, 22, "Input",ExpressionUUID->"c0e2215b-6c8a-4d76-b692-b351b0f9c2ee"],
-Cell[6745516, 124026, 2061, 49, 41, "Input",ExpressionUUID->"e1ec0204-d79b-43d2-91be-5ef87bf83dbf"],
+Cell[6746647, 124049, 254, 7, 22, "Input",ExpressionUUID->"c0e2215b-6c8a-4d76-b692-b351b0f9c2ee"],
+Cell[6746904, 124058, 2061, 49, 41, "Input",ExpressionUUID->"e1ec0204-d79b-43d2-91be-5ef87bf83dbf"],
 Cell[CellGroupData[{
-Cell[6747602, 124079, 1617, 33, 22, "Input",ExpressionUUID->"d982051e-8a3f-46b8-b9a6-c5fd1fb15b3c"],
-Cell[6749222, 124114, 2568146, 48452, 336, "Output",ExpressionUUID->"8a79898f-8c41-4f2b-b502-795be7e4aa6b"]
+Cell[6748990, 124111, 1617, 33, 22, "Input",ExpressionUUID->"d982051e-8a3f-46b8-b9a6-c5fd1fb15b3c"],
+Cell[6750610, 124146, 2568146, 48452, 336, "Output",ExpressionUUID->"8a79898f-8c41-4f2b-b502-795be7e4aa6b"]
 }, Open  ]],
-Cell[9317383, 172569, 795, 16, 22, "Input",ExpressionUUID->"655b3958-406c-4270-9fe9-daeb72feaa1a"],
+Cell[9318771, 172601, 795, 16, 22, "Input",ExpressionUUID->"655b3958-406c-4270-9fe9-daeb72feaa1a"],
 Cell[CellGroupData[{
-Cell[9318203, 172589, 1355, 26, 24, "Input",ExpressionUUID->"64a83c48-1333-4bf5-8046-beea10bc8ca9"],
-Cell[9319561, 172617, 584911, 9603, 296, "Output",ExpressionUUID->"7e5f1c92-bf6a-4096-ad54-d323bfc1730a"]
+Cell[9319591, 172621, 1355, 26, 24, "Input",ExpressionUUID->"64a83c48-1333-4bf5-8046-beea10bc8ca9"],
+Cell[9320949, 172649, 584911, 9603, 296, "Output",ExpressionUUID->"7e5f1c92-bf6a-4096-ad54-d323bfc1730a"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[9904509, 182225, 1801, 36, 38, "Input",ExpressionUUID->"4af7039e-624b-403a-a217-39596557d073"],
-Cell[9906313, 182263, 622812, 10226, 138, 583952, 9589, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"1b72ff84-f8dd-4c43-882c-d391e6753a71"]
+Cell[9905897, 182257, 1801, 36, 38, "Input",ExpressionUUID->"4af7039e-624b-403a-a217-39596557d073"],
+Cell[9907701, 182295, 622812, 10226, 138, 583952, 9589, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"1b72ff84-f8dd-4c43-882c-d391e6753a71"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[10529162, 192494, 950, 25, 38, "Input",ExpressionUUID->"b138cba4-9273-4e2b-a292-61ce9cfdc73c"],
-Cell[10530115, 192521, 627, 15, 138, "Output",ExpressionUUID->"5fadd0a3-c66f-4348-b0f3-af515a92cba2"]
+Cell[10530550, 192526, 950, 25, 38, "Input",ExpressionUUID->"b138cba4-9273-4e2b-a292-61ce9cfdc73c"],
+Cell[10531503, 192553, 627, 15, 138, "Output",ExpressionUUID->"5fadd0a3-c66f-4348-b0f3-af515a92cba2"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[10530779, 192541, 4013, 107, 92, "Input",ExpressionUUID->"9edd1e7c-f2f3-43e3-9815-eefb0715d66a"],
-Cell[10534795, 192650, 2374, 61, 48, "Output",ExpressionUUID->"d4dfa7f2-94fe-4ea7-be34-a9f88e32595a"]
+Cell[10532167, 192573, 4013, 107, 92, "Input",ExpressionUUID->"9edd1e7c-f2f3-43e3-9815-eefb0715d66a"],
+Cell[10536183, 192682, 2374, 61, 48, "Output",ExpressionUUID->"d4dfa7f2-94fe-4ea7-be34-a9f88e32595a"]
 }, Open  ]],
-Cell[10537184, 192714, 1147, 30, 99, "Input",ExpressionUUID->"812cdae8-d5de-418f-b2d9-e9ede64c5cca"]
+Cell[10538572, 192746, 1147, 30, 99, "Input",ExpressionUUID->"812cdae8-d5de-418f-b2d9-e9ede64c5cca"]
 }, Open  ]]
 }, Open  ]]
 }