diff --git a/code/fRTOV.nb b/code/fRTOV.nb
index ebf85b7cba3a5b8ebb9fb487ee086ff2a05d684c..922ddf07f262d5a736a13b73c53a5cd431e3158a 100644
--- a/code/fRTOV.nb
+++ b/code/fRTOV.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[    308190,       6733]
-NotebookOptionsPosition[    300966,       6609]
-NotebookOutlinePosition[    301305,       6624]
-CellTagsIndexPosition[    301262,       6621]
+NotebookDataLength[   1033579,      21628]
+NotebookOptionsPosition[   1009680,      21241]
+NotebookOutlinePosition[   1010018,      21256]
+CellTagsIndexPosition[   1009975,      21253]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -40,8 +40,7 @@ f12b50c01fc0"],
 Cell[BoxData[
  RowBox[{"Quit", "[", "]"}]], "Input",
  CellChangeTimes->{{3.7663070407935143`*^9, 3.766307042502633*^9}},
- CellLabel->
-  "In[122]:=",ExpressionUUID->"48ed9086-116a-42f0-a5b0-679401b983a5"],
+ CellLabel->"In[1]:=",ExpressionUUID->"48ed9086-116a-42f0-a5b0-679401b983a5"],
 
 Cell[CellGroupData[{
 
@@ -87,18 +86,19 @@ Cell[BoxData[{
   3.732600525554344*^9}, {3.7326005770224867`*^9, 3.7326005795135403`*^9}, {
   3.732600632606847*^9, 3.7326006346108913`*^9}, {3.732975019494709*^9, 
   3.7329750214290047`*^9}, {3.751961842434617*^9, 3.751961845986887*^9}, {
-  3.799749402058936*^9, 
-  3.7997494404407387`*^9}},ExpressionUUID->"28d9c623-2f35-4b48-afc0-\
-bf102c8402c2"],
+  3.799749402058936*^9, 3.7997494404407387`*^9}},
+ CellLabel->"In[2]:=",ExpressionUUID->"28d9c623-2f35-4b48-afc0-bf102c8402c2"],
 
 Cell[BoxData[
  TemplateBox[{
-  "General","obspkg",
-   "\"\\!\\(\\*RowBox[{\\\"\\\\\\\"ErrorBarPlots`\\\\\\\"\\\"}]\\) is now \
-obsolete. The legacy version being loaded may conflict with current \
-functionality. See the Compatibility Guide for updating information.\"",2,2,1,
-   19646905974076635359,"Local"},
-  "MessageTemplate"]], "Message", "MSG",
+  "TakeColumn","shdw",
+   "\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"TakeColumn\\\\\\\"\\\"}]\\) appears \
+in multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"\\\\\\\"NRLists`\
+\\\\\\\"\\\", \\\",\\\", \\\"\\\\\\\"GRTensor`\\\\\\\"\\\"}], \\\"}\\\"}]\\); \
+definitions in context \\!\\(\\*RowBox[{\\\"\\\\\\\"NRLists`\\\\\\\"\\\"}]\\) \
+may shadow or be shadowed by other definitions.\"",2,4,1,19650746535428073077,
+   "Local","NRLists`TakeColumn"},
+  "MessageTemplate2"]], "Message", "MSG",
  CellChangeTimes->{
   3.746871497164113*^9, 3.746944059800922*^9, 3.74712138071828*^9, 
    3.747134186310419*^9, 3.7473688319422607`*^9, 3.747376183699349*^9, 
@@ -150,17 +150,19 @@ functionality. See the Compatibility Guide for updating information.\"",2,2,1,
    3.763206644407735*^9, 3.7632117296387568`*^9, 3.763238000472332*^9, 
    3.763446163685577*^9, 3.766307054494019*^9, 3.7997286540993147`*^9, 
    3.79972939055659*^9, 3.79974113328829*^9, 3.799741450768428*^9, 
-   3.7997430721582537`*^9, 3.799743745274967*^9},
+   3.7997430721582537`*^9, 3.799743745274967*^9, 3.800267172417066*^9, 
+   3.80032976830613*^9},
  CellLabel->
   "During evaluation of \
-In[2]:=",ExpressionUUID->"3a083d41-624c-433b-8f6c-7554d496da5d"],
+In[2]:=",ExpressionUUID->"20c619b8-deb9-4d28-9c8a-cebe7e4279c9"],
 
 Cell[BoxData[
  TemplateBox[{
-  "Get","noopen",
-   "\"Cannot open \
-\\!\\(\\*RowBox[{\\\"\\\\\\\"NinjaBase`\\\\\\\"\\\"}]\\).\"",2,3,2,
-   19646905974076635359,"Local"},
+  "General","obspkg",
+   "\"\\!\\(\\*RowBox[{\\\"\\\\\\\"ErrorBarPlots`\\\\\\\"\\\"}]\\) is now \
+obsolete. The legacy version being loaded may conflict with current \
+functionality. See the Compatibility Guide for updating information.\"",2,4,2,
+   19650746535428073077,"Local"},
   "MessageTemplate"]], "Message", "MSG",
  CellChangeTimes->{
   3.746871497164113*^9, 3.746944059800922*^9, 3.74712138071828*^9, 
@@ -213,17 +215,23 @@ Cell[BoxData[
    3.763206644407735*^9, 3.7632117296387568`*^9, 3.763238000472332*^9, 
    3.763446163685577*^9, 3.766307054494019*^9, 3.7997286540993147`*^9, 
    3.79972939055659*^9, 3.79974113328829*^9, 3.799741450768428*^9, 
-   3.7997430721582537`*^9, 3.799743746138856*^9},
+   3.7997430721582537`*^9, 3.799743745274967*^9, 3.800267172417066*^9, 
+   3.800329768327969*^9},
  CellLabel->
   "During evaluation of \
-In[2]:=",ExpressionUUID->"53368634-5397-480e-86b4-81420dba9e61"],
+In[2]:=",ExpressionUUID->"75449cf3-ac2e-42a2-a4b4-f95728952ac3"],
 
 Cell[BoxData[
  TemplateBox[{
-  "Needs","nocont",
-   "\"Context \\!\\(\\*RowBox[{\\\"\\\\\\\"NinjaBase`\\\\\\\"\\\"}]\\) was \
-not created when Needs was evaluated.\"",2,3,3,19646905974076635359,"Local"},
-  "MessageTemplate"]], "Message", "MSG",
+  "AtomsList","shdw",
+   "\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"AtomsList\\\\\\\"\\\"}]\\) appears \
+in multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \
+RowBox[{\\\"\\\\\\\"DataFits`\\\\\\\"\\\", \\\",\\\", \\\"\\\\\\\"GRTensor`\\\
+\\\\\"\\\"}], \\\"}\\\"}]\\); definitions in context \
+\\!\\(\\*RowBox[{\\\"\\\\\\\"DataFits`\\\\\\\"\\\"}]\\) may shadow or be \
+shadowed by other definitions.\"",2,4,3,19650746535428073077,"Local",
+   "DataFits`AtomsList"},
+  "MessageTemplate2"]], "Message", "MSG",
  CellChangeTimes->{
   3.746871497164113*^9, 3.746944059800922*^9, 3.74712138071828*^9, 
    3.747134186310419*^9, 3.7473688319422607`*^9, 3.747376183699349*^9, 
@@ -275,21 +283,23 @@ not created when Needs was evaluated.\"",2,3,3,19646905974076635359,"Local"},
    3.763206644407735*^9, 3.7632117296387568`*^9, 3.763238000472332*^9, 
    3.763446163685577*^9, 3.766307054494019*^9, 3.7997286540993147`*^9, 
    3.79972939055659*^9, 3.79974113328829*^9, 3.799741450768428*^9, 
-   3.7997430721582537`*^9, 3.7997437461631403`*^9},
+   3.7997430721582537`*^9, 3.799743745274967*^9, 3.800267172417066*^9, 
+   3.8003297683747663`*^9},
  CellLabel->
   "During evaluation of \
-In[2]:=",ExpressionUUID->"d23e9f49-eabe-49e7-81c0-b72f5919b75a"],
+In[2]:=",ExpressionUUID->"1271dc18-b95e-448d-a5f4-4fe16e987d3c"],
 
 Cell[BoxData[
  TemplateBox[{
-  "AtomsList","shdw",
-   "\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"AtomsList\\\\\\\"\\\"}]\\) appears \
-in multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \
-RowBox[{\\\"\\\\\\\"GRTensor`\\\\\\\"\\\", \\\",\\\", \\\"\\\\\\\"DataFits`\\\
-\\\\\"\\\"}], \\\"}\\\"}]\\); definitions in context \
-\\!\\(\\*RowBox[{\\\"\\\\\\\"GRTensor`\\\\\\\"\\\"}]\\) may shadow or be \
-shadowed by other definitions.\"",2,4,4,19646905974076635359,"Local",
-   "GRTensor`AtomsList"},
+  "InterpolationDomain","shdw",
+   "\"Symbol \
+\\!\\(\\*RowBox[{\\\"\\\\\\\"InterpolationDomain\\\\\\\"\\\"}]\\) appears in \
+multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \
+RowBox[{\\\"\\\\\\\"NRTimeSeries`\\\\\\\"\\\", \\\",\\\", \
+\\\"\\\\\\\"GRTensor`\\\\\\\"\\\"}], \\\"}\\\"}]\\); definitions in context \
+\\!\\(\\*RowBox[{\\\"\\\\\\\"NRTimeSeries`\\\\\\\"\\\"}]\\) may shadow or be \
+shadowed by other definitions.\"",2,5,4,19650746535428073077,"Local",
+   "NRTimeSeries`InterpolationDomain"},
   "MessageTemplate2"]], "Message", "MSG",
  CellChangeTimes->{
   3.746871497164113*^9, 3.746944059800922*^9, 3.74712138071828*^9, 
@@ -342,22 +352,19 @@ shadowed by other definitions.\"",2,4,4,19646905974076635359,"Local",
    3.763206644407735*^9, 3.7632117296387568`*^9, 3.763238000472332*^9, 
    3.763446163685577*^9, 3.766307054494019*^9, 3.7997286540993147`*^9, 
    3.79972939055659*^9, 3.79974113328829*^9, 3.799741450768428*^9, 
-   3.7997430721582537`*^9, 3.799743746212335*^9},
+   3.7997430721582537`*^9, 3.799743745274967*^9, 3.800267172417066*^9, 
+   3.800329768596044*^9},
  CellLabel->
   "During evaluation of \
-In[2]:=",ExpressionUUID->"eef537de-e7c0-4112-ab75-d5eb954989ae"],
+In[2]:=",ExpressionUUID->"f14306e6-a8fe-4a55-b18f-81648a88ca8c"],
 
 Cell[BoxData[
  TemplateBox[{
-  "InterpolationDomain","shdw",
-   "\"Symbol \
-\\!\\(\\*RowBox[{\\\"\\\\\\\"InterpolationDomain\\\\\\\"\\\"}]\\) appears in \
-multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"\\\\\\\"GRTensor`\\\
-\\\\\"\\\", \\\",\\\", \\\"\\\\\\\"NRTimeSeries`\\\\\\\"\\\"}], \
-\\\"}\\\"}]\\); definitions in context \\!\\(\\*RowBox[{\\\"\\\\\\\"GRTensor`\
-\\\\\\\"\\\"}]\\) may shadow or be shadowed by other definitions.\"",2,4,5,
-   19646905974076635359,"Local","GRTensor`InterpolationDomain"},
-  "MessageTemplate2"]], "Message", "MSG",
+  "Get","noopen",
+   "\"Cannot open \
+\\!\\(\\*RowBox[{\\\"\\\\\\\"NinjaBase`\\\\\\\"\\\"}]\\).\"",2,5,5,
+   19650746535428073077,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
  CellChangeTimes->{
   3.746871497164113*^9, 3.746944059800922*^9, 3.74712138071828*^9, 
    3.747134186310419*^9, 3.7473688319422607`*^9, 3.747376183699349*^9, 
@@ -409,22 +416,18 @@ multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"\\\\\\\"GRTensor`\\\
    3.763206644407735*^9, 3.7632117296387568`*^9, 3.763238000472332*^9, 
    3.763446163685577*^9, 3.766307054494019*^9, 3.7997286540993147`*^9, 
    3.79972939055659*^9, 3.79974113328829*^9, 3.799741450768428*^9, 
-   3.7997430721582537`*^9, 3.799743746219078*^9},
+   3.7997430721582537`*^9, 3.799743745274967*^9, 3.800267172417066*^9, 
+   3.8003297706812057`*^9},
  CellLabel->
   "During evaluation of \
-In[2]:=",ExpressionUUID->"b5bdc1f5-72c3-480e-bccd-59fb8caa8275"],
+In[2]:=",ExpressionUUID->"48c073fb-c447-48f6-b5a2-1a1e85b3138e"],
 
 Cell[BoxData[
  TemplateBox[{
-  "TakeColumn","shdw",
-   "\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"TakeColumn\\\\\\\"\\\"}]\\) appears \
-in multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \
-RowBox[{\\\"\\\\\\\"GRTensor`\\\\\\\"\\\", \\\",\\\", \
-\\\"\\\\\\\"NRLists`\\\\\\\"\\\"}], \\\"}\\\"}]\\); definitions in context \
-\\!\\(\\*RowBox[{\\\"\\\\\\\"GRTensor`\\\\\\\"\\\"}]\\) may shadow or be \
-shadowed by other definitions.\"",2,4,6,19646905974076635359,"Local",
-   "GRTensor`TakeColumn"},
-  "MessageTemplate2"]], "Message", "MSG",
+  "Needs","nocont",
+   "\"Context \\!\\(\\*RowBox[{\\\"\\\\\\\"NinjaBase`\\\\\\\"\\\"}]\\) was \
+not created when Needs was evaluated.\"",2,5,6,19650746535428073077,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
  CellChangeTimes->{
   3.746871497164113*^9, 3.746944059800922*^9, 3.74712138071828*^9, 
    3.747134186310419*^9, 3.7473688319422607`*^9, 3.747376183699349*^9, 
@@ -476,10 +479,11 @@ shadowed by other definitions.\"",2,4,6,19646905974076635359,"Local",
    3.763206644407735*^9, 3.7632117296387568`*^9, 3.763238000472332*^9, 
    3.763446163685577*^9, 3.766307054494019*^9, 3.7997286540993147`*^9, 
    3.79972939055659*^9, 3.79974113328829*^9, 3.799741450768428*^9, 
-   3.7997430721582537`*^9, 3.7997437462293253`*^9},
+   3.7997430721582537`*^9, 3.799743745274967*^9, 3.800267172417066*^9, 
+   3.800329770685054*^9},
  CellLabel->
   "During evaluation of \
-In[2]:=",ExpressionUUID->"a7f5fd78-4a9d-4d3e-ba04-3b2dc7fa838e"]
+In[2]:=",ExpressionUUID->"6f5ad4e6-ad41-488e-92bc-cd66fc260f5e"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -491,7 +495,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.680081117951901*^9, 3.680081142740662*^9}, {
   3.682340182633325*^9, 3.6823401863136787`*^9}, {3.754026009116239*^9, 
   3.754026010028365*^9}, {3.754135003572989*^9, 3.754135004024921*^9}},
- CellLabel->"In[5]:=",ExpressionUUID->"2038f51c-ef1d-478a-a6d8-12f5b4a73949"],
+ CellLabel->"In[6]:=",ExpressionUUID->"2038f51c-ef1d-478a-a6d8-12f5b4a73949"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -512,9 +516,8 @@ Cell[BoxData[
        FrameTicks->None,
        ImageSize->
         Dynamic[{
-         Automatic, 
-          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-           Magnification])}],
+         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+          Magnification]}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
@@ -560,9 +563,8 @@ Cell[BoxData[
        FrameTicks->None,
        ImageSize->
         Dynamic[{
-         Automatic, 
-          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-           Magnification])}],
+         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+          Magnification]}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
@@ -608,9 +610,8 @@ Cell[BoxData[
        FrameTicks->None,
        ImageSize->
         Dynamic[{
-         Automatic, 
-          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-           Magnification])}],
+         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+          Magnification]}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
@@ -656,9 +657,8 @@ Cell[BoxData[
        FrameTicks->None,
        ImageSize->
         Dynamic[{
-         Automatic, 
-          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-           Magnification])}],
+         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+          Magnification]}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
@@ -704,9 +704,8 @@ Cell[BoxData[
        FrameTicks->None,
        ImageSize->
         Dynamic[{
-         Automatic, 
-          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-           Magnification])}],
+         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+          Magnification]}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
@@ -752,9 +751,8 @@ Cell[BoxData[
        FrameTicks->None,
        ImageSize->
         Dynamic[{
-         Automatic, 
-          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-           Magnification])}],
+         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+          Magnification]}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
@@ -799,9 +797,8 @@ Cell[BoxData[
        FrameTicks->None,
        ImageSize->
         Dynamic[{
-         Automatic, 
-          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-           Magnification])}],
+         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+          Magnification]}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
@@ -845,9 +842,8 @@ Cell[BoxData[
        FrameTicks->None,
        ImageSize->
         Dynamic[{
-         Automatic, 
-          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-           Magnification])}],
+         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+          Magnification]}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
@@ -892,9 +888,8 @@ Cell[BoxData[
        FrameTicks->None,
        ImageSize->
         Dynamic[{
-         Automatic, 
-          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-           Magnification])}],
+         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+          Magnification]}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
@@ -938,9 +933,8 @@ Cell[BoxData[
        FrameTicks->None,
        ImageSize->
         Dynamic[{
-         Automatic, 
-          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-           Magnification])}],
+         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+          Magnification]}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
@@ -985,9 +979,8 @@ Cell[BoxData[
        FrameTicks->None,
        ImageSize->
         Dynamic[{
-         Automatic, 
-          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-           Magnification])}],
+         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+          Magnification]}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
@@ -1033,9 +1026,8 @@ Cell[BoxData[
        FrameTicks->None,
        ImageSize->
         Dynamic[{
-         Automatic, 
-          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-           Magnification])}],
+         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+          Magnification]}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
@@ -1082,9 +1074,8 @@ Cell[BoxData[
        FrameTicks->None,
        ImageSize->
         Dynamic[{
-         Automatic, 
-          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-           Magnification])}],
+         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+          Magnification]}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
@@ -1131,9 +1122,8 @@ Cell[BoxData[
        FrameTicks->None,
        ImageSize->
         Dynamic[{
-         Automatic, 
-          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-           Magnification])}],
+         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+          Magnification]}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
@@ -1180,9 +1170,8 @@ Cell[BoxData[
        FrameTicks->None,
        ImageSize->
         Dynamic[{
-         Automatic, 
-          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-           Magnification])}],
+         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+          Magnification]}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
@@ -1271,8 +1260,9 @@ Cell[BoxData[
    3.761946349808724*^9, 3.763206647126134*^9, 3.76321172976406*^9, 
    3.763238000582753*^9, 3.7634461637743883`*^9, 3.766307054673841*^9, 
    3.799728659345296*^9, 3.799729391800663*^9, 3.7997411347610283`*^9, 
-   3.799741452062593*^9, 3.799743073419889*^9, 3.799743746456357*^9},
- CellLabel->"Out[5]=",ExpressionUUID->"f92f6d8d-3a3f-4fd9-8774-4ee9966c211a"]
+   3.799741452062593*^9, 3.799743073419889*^9, 3.799743746456357*^9, 
+   3.800267177579319*^9, 3.8003297709626627`*^9},
+ CellLabel->"Out[6]=",ExpressionUUID->"c9b5e1e6-0bb3-4453-be55-4d753260e308"]
 }, Open  ]]
 }, Closed]],
 
@@ -1321,7 +1311,7 @@ Cell[BoxData[{
    3.71912639669911*^9}, {3.724072460832786*^9, 3.724072467201078*^9}, {
    3.725084601527223*^9, 3.725084625197569*^9}, {3.7337367520460243`*^9, 
    3.73373675229137*^9}, {3.7337368914027243`*^9, 3.7337369134723597`*^9}},
- CellLabel->"In[6]:=",ExpressionUUID->"a948f404-6fd9-4fe5-a838-380ebe7da944"]
+ CellLabel->"In[7]:=",ExpressionUUID->"a948f404-6fd9-4fe5-a838-380ebe7da944"]
 }, Closed]],
 
 Cell[CellGroupData[{
@@ -1469,7 +1459,7 @@ Cell[BoxData[{
    3.752911182797737*^9, 3.7529111834029713`*^9}, {3.756792269346093*^9, 
    3.756792281031231*^9}, 3.757660566742996*^9, {3.760426018088688*^9, 
    3.760426018299608*^9}},
- CellLabel->"In[13]:=",ExpressionUUID->"1ad43db6-9498-4d09-bd75-e999ffd7c57c"],
+ CellLabel->"In[14]:=",ExpressionUUID->"1ad43db6-9498-4d09-bd75-e999ffd7c57c"],
 
 Cell[BoxData[
  InterpretationBox[
@@ -1507,10 +1497,10 @@ Cell[BoxData[
    3.7632117300732117`*^9, 3.76323800074466*^9, 3.763446163942415*^9, 
    3.766307054848144*^9, 3.799728659429925*^9, 3.7997293918865213`*^9, 
    3.799741134870844*^9, 3.799741452166616*^9, 3.7997430735106688`*^9, 
-   3.799743746532728*^9},
+   3.799743746532728*^9, 3.800267177713377*^9, 3.800329771078725*^9},
  CellLabel->
   "During evaluation of \
-In[13]:=",ExpressionUUID->"f9a60beb-52dc-48b6-99fd-766e2c1a49a3"]
+In[14]:=",ExpressionUUID->"c5b13547-f526-4a03-83fd-16c12c53e5ab"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -1649,7 +1639,7 @@ Cell[BoxData[{
    3.752911182797737*^9, 3.7529111834029713`*^9}, {3.756792269346093*^9, 
    3.756792281031231*^9}, {3.757660763658102*^9, 3.7576608573176537`*^9}, {
    3.760426025013876*^9, 3.760426025166932*^9}},
- CellLabel->"In[23]:=",ExpressionUUID->"0fd01fca-9e4d-45c8-aa33-cd917ee1a17c"],
+ CellLabel->"In[24]:=",ExpressionUUID->"0fd01fca-9e4d-45c8-aa33-cd917ee1a17c"],
 
 Cell[BoxData[
  InterpretationBox[
@@ -1661,23 +1651,23 @@ Cell[BoxData[
   "{pmax, \[Rho]max} = ", {0.0004921814252195873, 0.001476544275656867}],
   Editable->False]], "Print",
  CellChangeTimes->CompressedData["
-1:eJwVz11IU2EAxvGplbPEUQ0b1USFMXA1zdRltMmZzGSulootygZpaYS0ycRa
-NQf5UVs2spGttFhzGlo5ShQxP1AqmZ1E7CIFKz0Fpb1F0JoX6uo5Fw+/q//F
-k1BiKDgTxuFwCrAmi1gq+feDiotW6Fhzxf7nafBUVO1LPRyMl243Q5cmpuo6
-nD/W5bRBta1zsxeqBlIvsxb6TmyZgl81a5GFHEI1ejaZamHdW2ae1TrS0t0A
-ba/oB23wdnOScBZOZs79DELXnC3Aym8WxvHCCGUuf2OLhRcedZRug+p+X7oA
-5nKTZ+LhXevsUTF0mdemJFD07kriHqggPYY8mBrjOWmFVUxPfTuUWe7kTMCy
-4LOIAMyx9cqLwgl171brZyPc1btY/BA6LedGh2Go76OShtHemYmkCEIVu+tX
-d8Pmer1aCv0DSzUHYc5hgdwEn5bRWS5YlJhZPQ7/8LhjITj2S6SNXYd+Z69I
-BZemP+krIU1M11jTxTqHdj2hNDv2rlTArvcpl0xQarxR4YVLh8YrO2BWP/f+
-ELTzqRUaEr/S8A0GJWb51g2ECt/X7TgAvws8bgpO5z/5wGp8bcguh9WyhZAR
-SvnBxYvwZs3KXwdk8o7YnZA7sywfhIRmjrPaZa6GRXg1ubFPHkmoVaE+WgHb
-h0sWdHAyW6YciUIf+D00CluXFU2TsHoqIiNtI6EyrYKETh7+e/NVZ7WEajnN
-uFlTvpDi8/Cx70Ud68D+Uq0BDjEZbaz/Ael5PMc=
+1:eJwVz11Ik2EAxfGppbNEqYaNSlFhDLSmmToNN3kmW6KrabYWtQZpaYS0yWS1
+ag7SWTO1TLKZFqbT0EopUcT8QKlMWzLsIgUrfQtKe4ogmxfq6rwXh9/V/+JE
+5ukPn/HhcDhHsFqLUBTz7wcJD5JqWDOEE88S4KnAshc6OBgh2mGGDmVwyXU4
+f6yzzg4z7R1bnFA+EH+ZNbf7xFY3/KpcD8jlUFLVstlYBsvfMvOs1pHGrgpo
+f+m63wpv10eHzcKplLmfHuiYsy+z8urDwkN8KDEXvraHwgsP2/O3w8z+7kQ+
+zODGzkTAu9bZo0LoMK+7Y6Dg3ZWovVBKe/RZMD645aQVljA9tjYottxRTMIC
+z1O/Zaiw90rUvpQ03Gr6bIC7exe1D2Cd5dzoMPT2fZS5YJBzZjLajxJts21t
+D6y36TJFcGJgqfQAVBziS4zwSYErzQHVUSmmcfgnhDvmhWO/BKrQDeh39Qrk
+cGn6k64YuqjxGmuiUFOj2kiJcue+1SLY+T7ukhGKDDeKnHDp4HhxO0zr594b
+gpU8suqCdEKm/wY9MWbJNn9KfJO7alLhd35LM4HTOY8/sBpe6dMLoUm84DVA
+Ec+zeBFWl67+rYFMVnZlHeTOrEgGIXUxx1krxY6KRXg1tqpPEkDJWpguSArb
+hvMWNHAqXSwbCUS//HtoFDatSGunoMntl5SwiZIUKz+yIwT/nTnysypKGk8z
+zaxxX6j2PHzU/bycdWB/vkoPh5ikVla3Wpusz6bE/2bqm2r4H/gTRBE=
   "],
  CellLabel->
   "During evaluation of \
-In[23]:=",ExpressionUUID->"387174a0-e39d-4e4a-9f9e-81ac4cefcb4e"]
+In[24]:=",ExpressionUUID->"321cf719-f666-43ec-935c-c83a1e4d2f4b"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -1821,7 +1811,7 @@ Cell[BoxData[{
    3.761324243139904*^9}, {3.761386741843794*^9, 3.761386742723947*^9}, {
    3.761388861085012*^9, 3.76138886493277*^9}, {3.761389249527339*^9, 
    3.761389265400592*^9}},
- CellLabel->"In[32]:=",ExpressionUUID->"77ab1cfc-93f2-4366-a35a-f2f21c62690e"],
+ CellLabel->"In[33]:=",ExpressionUUID->"77ab1cfc-93f2-4366-a35a-f2f21c62690e"],
 
 Cell[BoxData[
  InterpretationBox[
@@ -1837,10 +1827,11 @@ Cell[BoxData[
   3.7632066738279543`*^9, 3.763211759698391*^9, 3.7632380260353727`*^9, 
   3.763446192211947*^9, 3.7663070808354673`*^9, 3.799728682562434*^9, 
   3.799729415084195*^9, 3.799741159411627*^9, 3.799741477599988*^9, 
-  3.799743099110464*^9, 3.799743769768092*^9},
+  3.799743099110464*^9, 3.799743769768092*^9, 3.800267202898532*^9, 
+  3.80032979390794*^9},
  CellLabel->
   "During evaluation of \
-In[32]:=",ExpressionUUID->"a84cd5ca-f2d0-4f50-b4b2-33f2d4e43472"]
+In[33]:=",ExpressionUUID->"ff92c27f-5341-441a-9552-32e22231ba20"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -1987,7 +1978,7 @@ Cell[BoxData[
    3.761324243139904*^9}, {3.761386741843794*^9, 3.761386742723947*^9}, {
    3.761388861085012*^9, 3.76138886493277*^9}, {3.761389199904294*^9, 
    3.761389275570942*^9}, {3.761389381141817*^9, 3.761389390693115*^9}},
- CellLabel->"In[38]:=",ExpressionUUID->"f7117468-dbb9-4616-a069-36663920d67a"],
+ CellLabel->"In[39]:=",ExpressionUUID->"f7117468-dbb9-4616-a069-36663920d67a"],
 
 Cell[BoxData[
  InterpretationBox[
@@ -2005,10 +1996,11 @@ Cell[BoxData[
    3.763206673926786*^9, 3.7632117598455353`*^9, 3.763238026117269*^9, 
    3.763446192294529*^9, 3.766307080900033*^9, 3.79972868262257*^9, 
    3.799729415136396*^9, 3.799741159501554*^9, 3.799741477675737*^9, 
-   3.7997430992145433`*^9, 3.799743769818578*^9},
+   3.7997430992145433`*^9, 3.799743769818578*^9, 3.8002672029379473`*^9, 
+   3.8003297939689302`*^9},
  CellLabel->
   "During evaluation of \
-In[38]:=",ExpressionUUID->"ca853243-7719-479d-9642-9bee5294e811"]
+In[39]:=",ExpressionUUID->"31b0ffb0-31b6-4529-8e67-a058637265ca"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -2166,7 +2158,7 @@ Cell[BoxData[
    3.761896262179117*^9}, {3.761896674085622*^9, 3.761896704875496*^9}, {
    3.761896750903027*^9, 3.761896751223851*^9}, {3.761909158931108*^9, 
    3.761909164775187*^9}},
- CellLabel->"In[47]:=",ExpressionUUID->"dc83ef56-f120-4495-9245-8a021c3a3982"],
+ CellLabel->"In[48]:=",ExpressionUUID->"dc83ef56-f120-4495-9245-8a021c3a3982"],
 
 Cell[BoxData[
  InterpretationBox[
@@ -2182,10 +2174,11 @@ Cell[BoxData[
    3.761946384291409*^9, 3.763206677974258*^9, 3.763211764413743*^9, 
    3.763238030483203*^9, 3.763446197063313*^9, 3.7663070850012903`*^9, 
    3.799728686510469*^9, 3.7997294194383993`*^9, 3.7997411634376593`*^9, 
-   3.799741481644096*^9, 3.799743103196538*^9, 3.7997437739658003`*^9},
+   3.799741481644096*^9, 3.799743103196538*^9, 3.7997437739658003`*^9, 
+   3.8002672068781033`*^9, 3.800329798028219*^9},
  CellLabel->
   "During evaluation of \
-In[47]:=",ExpressionUUID->"a092876b-0262-4cc7-a80b-027026a449cb"]
+In[48]:=",ExpressionUUID->"b0bb5aca-c07d-4584-ae06-71ea70c2ab4a"]
 }, Open  ]]
 }, Closed]],
 
@@ -2209,7 +2202,7 @@ Cell[BoxData[
     RowBox[{"JF", ".", " ", "To"}], " ", 
     RowBox[{"check", "!"}]}]}], "  ", "*)"}]], "Input",
  CellChangeTimes->{{3.75904370256964*^9, 3.7590437670911713`*^9}},
- CellLabel->"In[56]:=",ExpressionUUID->"b5d331c0-4beb-4074-96a9-fbaf549e0231"],
+ CellLabel->"In[57]:=",ExpressionUUID->"b5d331c0-4beb-4074-96a9-fbaf549e0231"],
 
 Cell[BoxData[
  RowBox[{
@@ -2416,7 +2409,7 @@ Cell[BoxData[
    3.757690209589861*^9, 3.757690314031863*^9}, {3.757696861324963*^9, 
    3.7576968892999287`*^9}, {3.757697014385922*^9, 3.7576970147638474`*^9}, 
    3.7576972963403177`*^9, 3.7579025845997257`*^9},
- CellLabel->"In[57]:=",ExpressionUUID->"cfc40657-89f8-4127-89c9-d0b86703f68c"],
+ CellLabel->"In[58]:=",ExpressionUUID->"cfc40657-89f8-4127-89c9-d0b86703f68c"],
 
 Cell[BoxData[
  RowBox[{
@@ -2577,7 +2570,7 @@ Cell[BoxData[
   3.757660958788515*^9, 3.75766097717794*^9}, {3.757674503378913*^9, 
   3.757674504522341*^9}, {3.757674779274324*^9, 3.757674786943243*^9}, {
   3.757690448554556*^9, 3.757690454050997*^9}},
- CellLabel->"In[58]:=",ExpressionUUID->"2da6bdd4-9a3e-491c-8ac0-864bd1df73dc"],
+ CellLabel->"In[59]:=",ExpressionUUID->"2da6bdd4-9a3e-491c-8ac0-864bd1df73dc"],
 
 Cell[BoxData[
  RowBox[{
@@ -2759,7 +2752,7 @@ Cell[BoxData[
    3.757681282484675*^9, 3.7576812834152603`*^9}, 3.757681341349505*^9, {
    3.757681422973255*^9, 3.757681424648437*^9}, 3.7576814967951612`*^9, {
    3.759034912595289*^9, 3.759034914951844*^9}},
- CellLabel->"In[59]:=",ExpressionUUID->"e677e2a6-f3af-4ae7-a350-40d556f009cb"],
+ CellLabel->"In[60]:=",ExpressionUUID->"e677e2a6-f3af-4ae7-a350-40d556f009cb"],
 
 Cell[BoxData[
  RowBox[{
@@ -2978,7 +2971,7 @@ Cell[BoxData[
     "}"}]}], ";"}]], "Code",
  CellChangeTimes->{{3.7599327430202103`*^9, 3.759932755522725*^9}, 
    3.76147915291782*^9},
- CellLabel->"In[60]:=",ExpressionUUID->"cab98d8f-8fbd-48d0-b448-9471155c97cb"],
+ CellLabel->"In[61]:=",ExpressionUUID->"cab98d8f-8fbd-48d0-b448-9471155c97cb"],
 
 Cell[BoxData[
  RowBox[{
@@ -3174,7 +3167,7 @@ Cell[BoxData[
    3.75872787975467*^9, 3.758727885182138*^9}, 3.758728011204338*^9, 
    3.758728083695305*^9, {3.758728271861187*^9, 3.758728272334424*^9}, 
    3.758728339278962*^9, {3.759563236226492*^9, 3.7595632368024397`*^9}},
- CellLabel->"In[61]:=",ExpressionUUID->"0267a229-a6d0-4957-983c-48ec871caa20"],
+ CellLabel->"In[62]:=",ExpressionUUID->"0267a229-a6d0-4957-983c-48ec871caa20"],
 
 Cell[BoxData[
  RowBox[{
@@ -3370,7 +3363,7 @@ Cell[BoxData[
    3.75872787975467*^9, 3.758727885182138*^9}, 3.758728011204338*^9, 
    3.758728083695305*^9, {3.758728271861187*^9, 3.758728272334424*^9}, 
    3.758728339278962*^9, {3.75889187850662*^9, 3.758891881990465*^9}},
- CellLabel->"In[62]:=",ExpressionUUID->"757b9d70-4a08-4bc0-a1be-a30efbfd8eb8"],
+ CellLabel->"In[63]:=",ExpressionUUID->"757b9d70-4a08-4bc0-a1be-a30efbfd8eb8"],
 
 Cell[BoxData[
  RowBox[{
@@ -3497,7 +3490,135 @@ Cell[BoxData[
    3.7586046338768387`*^9, {3.758666809181267*^9, 3.758666852939644*^9}, {
    3.758669914290998*^9, 3.7586699159788847`*^9}, 3.758891337544981*^9, {
    3.759034918552967*^9, 3.7590349196873207`*^9}},
- CellLabel->"In[63]:=",ExpressionUUID->"970dfa80-5cdd-4f81-91fc-d1a3907c1372"]
+ CellLabel->"In[64]:=",ExpressionUUID->"970dfa80-5cdd-4f81-91fc-d1a3907c1372"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Conversions", "Subsection",
+ CellChangeTimes->{{3.800331526847766*^9, 
+  3.800331531018318*^9}},ExpressionUUID->"a3dc796b-7d10-4de5-a008-\
+e0220a368313"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{"fH", "[", 
+     RowBox[{"f_", ",", "M_"}], "]"}], ":=", 
+    RowBox[{"Module", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"c", ",", "G", ",", "MS"}], "}"}], ",", "\n", 
+      RowBox[{
+       RowBox[{"c", "=", 
+        RowBox[{"2.99792458", " ", 
+         RowBox[{"10", "^", "8"}]}]}], ";", 
+       RowBox[{"G", "=", 
+        RowBox[{"6.67259", "*", 
+         RowBox[{"10", "^", 
+          RowBox[{"-", "11"}]}]}]}], ";", 
+       RowBox[{"MS", "=", 
+        RowBox[{"1.9885", "*", 
+         RowBox[{"10", "^", "30"}]}]}], ";", "\n", 
+       RowBox[{
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", "c", ")"}], "^", "3"}], "/", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"(", "M", ")"}], "MS", 
+           RowBox[{"(", "G", ")"}]}], ")"}]}], " ", "f"}]}]}], "]"}]}], ";"}], 
+  RowBox[{"(*", " ", 
+   RowBox[{"in", " ", "Solar", " ", "mass", " ", "units"}], " ", 
+   "*)"}]}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"fNU", "[", 
+    RowBox[{"f_", ",", "M_"}], "]"}], ":=", 
+   RowBox[{"Module", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"c", ",", "G", ",", "MS"}], "}"}], ",", 
+     RowBox[{
+      RowBox[{"c", "=", 
+       RowBox[{"2.99792458", " ", 
+        RowBox[{"10", "^", "8"}]}]}], ";", 
+      RowBox[{"G", "=", 
+       RowBox[{"6.67259", "*", 
+        RowBox[{"10", "^", 
+         RowBox[{"-", "11"}]}]}]}], ";", 
+      RowBox[{"MS", "=", 
+       RowBox[{"1.9885", "*", 
+        RowBox[{"10", "^", "30"}]}]}], ";", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"(", "M", ")"}], "MS", 
+          RowBox[{"(", "G", ")"}]}], ")"}], "/", 
+        RowBox[{
+         RowBox[{"(", "c", ")"}], "^", "3"}]}], " ", "f"}]}]}], "]"}]}], 
+  "\n"}], "\n", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"tPhys", "[", 
+    RowBox[{"t_", ",", "M_"}], "]"}], ":=", 
+   RowBox[{"Module", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"c", ",", "G", ",", "MS"}], "}"}], ",", 
+     RowBox[{
+      RowBox[{"c", "=", 
+       RowBox[{"2.99792458", " ", 
+        RowBox[{"10", "^", "8"}]}]}], ";", 
+      RowBox[{"G", "=", 
+       RowBox[{"6.67259", "*", 
+        RowBox[{"10", "^", 
+         RowBox[{"-", "11"}]}]}]}], ";", 
+      RowBox[{"MS", "=", 
+       RowBox[{"1.9885", "*", 
+        RowBox[{"10", "^", "30"}]}]}], ";", "\n", "                     ", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"(", "M", ")"}], "MS", 
+          RowBox[{"(", "G", ")"}]}], ")"}], "/", 
+        RowBox[{
+         RowBox[{"(", "c", ")"}], "^", "3"}]}], " ", "t"}]}]}], "]"}]}], 
+  "\n"}], "\n", 
+ RowBox[{
+  RowBox[{"tNR", "[", 
+   RowBox[{"t_", ",", "M_"}], "]"}], ":=", 
+  RowBox[{"Module", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"c", ",", "G", ",", "MS"}], "}"}], ",", 
+    RowBox[{
+     RowBox[{"c", "=", 
+      RowBox[{"2.99792458", " ", 
+       RowBox[{"10", "^", "8"}]}]}], ";", 
+     RowBox[{"G", "=", 
+      RowBox[{"6.67259", "*", 
+       RowBox[{"10", "^", 
+        RowBox[{"-", "11"}]}]}]}], ";", 
+     RowBox[{"MS", "=", 
+      RowBox[{"1.9885", "*", 
+       RowBox[{"10", "^", "30"}]}]}], ";", "\n", "                      ", 
+     RowBox[{
+      RowBox[{"1", "/", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"(", "M", ")"}], "MS", 
+           RowBox[{"(", "G", ")"}]}], ")"}], "/", 
+         RowBox[{
+          RowBox[{"(", "c", ")"}], "^", "3"}]}], ")"}]}], " ", "t"}]}]}], 
+   "]"}]}]}], "Code",
+ CellLabel->
+  "In[150]:=",ExpressionUUID->"a8c0d528-cd9a-4968-a954-ae2d9a72ec09"]
 }, Closed]]
 }, Open  ]],
 
@@ -3510,10 +3631,8 @@ Cell["TOV + shooting solver", "Section",
 
 Cell[CellGroupData[{
 
-Cell["\<\
-Comparison of all three eqs. for \[Alpha]=10000, \[Beta]=100 (I correct from \
-one frame to other \[Rho]=0.9) \
-\>", "Subsection",
+Cell["Solving massive case \[Alpha]=10000, \[Beta]=100 (\[Rho]=0.9)", \
+"Subsection",
  CellChangeTimes->{{3.752234605281361*^9, 3.7522346079350986`*^9}, {
    3.753167070882065*^9, 3.753167090863799*^9}, {3.7531811429438963`*^9, 
    3.753181146838257*^9}, {3.757147416187327*^9, 3.757147460550118*^9}, {
@@ -3527,7 +3646,9 @@ one frame to other \[Rho]=0.9) \
    3.761196452439826*^9}, {3.761196637770349*^9, 3.761196637943589*^9}, 
    3.7611968117273283`*^9, {3.761197001776472*^9, 3.761197002831397*^9}, {
    3.799728628764008*^9, 3.799728640039735*^9}, {3.799744274066036*^9, 
-   3.7997442876410427`*^9}},ExpressionUUID->"72589bbd-52d7-448c-9e07-\
+   3.7997442876410427`*^9}, {3.800270548973502*^9, 3.800270558740662*^9}, {
+   3.8002707685092497`*^9, 
+   3.800270771066518*^9}},ExpressionUUID->"72589bbd-52d7-448c-9e07-\
 de570aaa91a1"],
 
 Cell[BoxData[
@@ -3549,7 +3670,8 @@ Cell[BoxData[
    3.79974114556886*^9, 3.799741145739929*^9}, {3.7997414767027607`*^9, 
    3.799741479179397*^9}, {3.799741516010109*^9, 3.7997415161976233`*^9}, {
    3.7997416056403637`*^9, 3.799741606072221*^9}},
- CellLabel->"In[64]:=",ExpressionUUID->"64505dfe-3bce-42a2-b055-674f282dde89"],
+ CellLabel->
+  "In[305]:=",ExpressionUUID->"64505dfe-3bce-42a2-b055-674f282dde89"],
 
 Cell[CellGroupData[{
 
@@ -3581,7 +3703,8 @@ Cell[BoxData[{
  CellChangeTimes->{{3.761195603094919*^9, 3.7611956904668093`*^9}, {
   3.761195795828185*^9, 3.761195796417717*^9}, {3.7611964633579073`*^9, 
   3.7611964649155188`*^9}},
- CellLabel->"In[65]:=",ExpressionUUID->"719fbc17-d50a-4f25-ac5d-a6aef37f69ae"],
+ CellLabel->
+  "In[306]:=",ExpressionUUID->"719fbc17-d50a-4f25-ac5d-a6aef37f69ae"],
 
 Cell[BoxData[
  FractionBox["10329567735", "4246397"]], "Output",
@@ -3591,8 +3714,9 @@ Cell[BoxData[
    3.799728693489087*^9, 3.799729419956626*^9, 3.799730889940345*^9, 
    3.799735024614737*^9, 3.799740572454596*^9, {3.799741481910733*^9, 
    3.799741498076989*^9}, 3.7997416073982077`*^9, 3.799743507419874*^9, 
-   3.799743786624095*^9},
- CellLabel->"Out[65]=",ExpressionUUID->"3847cf13-919c-4a6b-938a-398839373961"],
+   3.799743786624095*^9, 3.800270578741549*^9},
+ CellLabel->
+  "Out[306]=",ExpressionUUID->"058d8d59-638e-4520-b74c-d83cffecbc8c"],
 
 Cell[BoxData["2432.548754862063`"], "Output",
  CellChangeTimes->{{3.7611956168221617`*^9, 3.7611956906863327`*^9}, {
@@ -3601,8 +3725,9 @@ Cell[BoxData["2432.548754862063`"], "Output",
    3.799728693489087*^9, 3.799729419956626*^9, 3.799730889940345*^9, 
    3.799735024614737*^9, 3.799740572454596*^9, {3.799741481910733*^9, 
    3.799741498076989*^9}, 3.7997416073982077`*^9, 3.799743507419874*^9, 
-   3.799743786633514*^9},
- CellLabel->"Out[66]=",ExpressionUUID->"b3f85246-65e3-41d8-8483-b38b57662aca"]
+   3.799743786624095*^9, 3.800270578743834*^9},
+ CellLabel->
+  "Out[307]=",ExpressionUUID->"99022d75-8502-4f4a-8870-ada7da5f945b"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -3619,7 +3744,8 @@ Cell[BoxData[
    RowBox[{"\[Beta]", "\[Rule]", "0"}]}], "]"}]], "Input",
  CellChangeTimes->{{3.79974187887288*^9, 3.799741890365131*^9}, {
    3.799742736948552*^9, 3.7997427408735332`*^9}, 3.7997428704774427`*^9},
- CellLabel->"In[74]:=",ExpressionUUID->"3985141c-be0d-4e4e-a042-57220e2c8e73"],
+ CellLabel->
+  "In[308]:=",ExpressionUUID->"3985141c-be0d-4e4e-a042-57220e2c8e73"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -3638,10 +3764,13 @@ Cell[BoxData[
  CellChangeTimes->{{3.799741879446569*^9, 3.79974189114353*^9}, 
    3.799742744876916*^9, 3.799742871212757*^9, {3.799743475183888*^9, 
    3.79974350929755*^9}, {3.7997437913193827`*^9, 3.799743828324107*^9}, 
-   3.799743868817437*^9},
- CellLabel->"Out[74]=",ExpressionUUID->"673921fa-9f44-4817-b066-54a2b4882ccb"]
+   3.799743868817437*^9, 3.800270580355638*^9},
+ CellLabel->
+  "Out[308]=",ExpressionUUID->"bfef73d6-6784-4aec-b690-a22be7c9b4ad"]
 }, Open  ]],
 
+Cell[CellGroupData[{
+
 Cell[BoxData[
  RowBox[{"Evaluate", "[", 
   RowBox[{
@@ -3658,7 +3787,60 @@ Cell[BoxData[
         RowBox[{"Sqrt", "[", "3", "]"}]}], "\[CurlyPhi]"}], "]"}]}], "]"}], 
    "[", 
    RowBox[{"[", "2", "]"}], "]"}], "]"}]], "Input",
- CellLabel->"",ExpressionUUID->"d14ed336-3d9c-4223-a7b0-60c6dacdcad0"],
+ CellLabel->
+  "In[309]:=",ExpressionUUID->"d14ed336-3d9c-4223-a7b0-60c6dacdcad0"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{
+   SuperscriptBox["\[ExponentialE]", 
+    RowBox[{"-", 
+     FractionBox[
+      RowBox[{"4", " ", "\[CurlyPhi]"}], 
+      SqrtBox["3"]]}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "\[Alpha]"}], "+", 
+     SqrtBox[
+      RowBox[{
+       SuperscriptBox["\[Alpha]", "2"], "+", 
+       RowBox[{"3", " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"-", "1"}], "+", 
+          SuperscriptBox["\[ExponentialE]", 
+           FractionBox[
+            RowBox[{"2", " ", "\[CurlyPhi]"}], 
+            SqrtBox["3"]]]}], ")"}], " ", "\[Beta]"}]}]]}], ")"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     SuperscriptBox["\[Alpha]", "2"], "+", 
+     RowBox[{"6", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", "1"}], "+", 
+        SuperscriptBox["\[ExponentialE]", 
+         FractionBox[
+          RowBox[{"2", " ", "\[CurlyPhi]"}], 
+          SqrtBox["3"]]]}], ")"}], " ", "\[Beta]"}], "-", 
+     RowBox[{"\[Alpha]", " ", 
+      SqrtBox[
+       RowBox[{
+        SuperscriptBox["\[Alpha]", "2"], "+", 
+        RowBox[{"3", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", "1"}], "+", 
+           SuperscriptBox["\[ExponentialE]", 
+            FractionBox[
+             RowBox[{"2", " ", "\[CurlyPhi]"}], 
+             SqrtBox["3"]]]}], ")"}], " ", "\[Beta]"}]}]]}]}], ")"}]}], 
+  RowBox[{"27", " ", 
+   SuperscriptBox["\[Beta]", "2"]}]]], "Output",
+ CellChangeTimes->{3.800270581473598*^9},
+ CellLabel->
+  "Out[309]=",ExpressionUUID->"59dd66ab-891c-44bd-b39a-656047274a0c"]
+}, Open  ]],
 
 Cell[BoxData[
  RowBox[{
@@ -3685,7 +3867,10 @@ Cell[BoxData[
   3.7997424139592133`*^9, 3.799742427434136*^9}, {3.799743280090276*^9, 
   3.799743280264242*^9}, {3.799743568973083*^9, 3.7997435857595987`*^9}, {
   3.799743901444808*^9, 3.799743902574534*^9}},
- CellLabel->"In[75]:=",ExpressionUUID->"bb1e81bf-6f7b-4d93-a9ac-53d6fd8c1489"],
+ CellLabel->
+  "In[310]:=",ExpressionUUID->"bb1e81bf-6f7b-4d93-a9ac-53d6fd8c1489"],
+
+Cell[CellGroupData[{
 
 Cell[BoxData[
  RowBox[{
@@ -3697,7 +3882,26 @@ Cell[BoxData[
       RowBox[{"R", "^", "2"}]}]}], "]"}], "]"}]}]], "Input",
  CellChangeTimes->{{3.7997425031634293`*^9, 3.799742513873288*^9}, {
    3.7997432952008142`*^9, 3.7997432956633463`*^9}, 3.799743337061818*^9},
- CellLabel->"In[76]:=",ExpressionUUID->"024bcf28-8095-42df-9004-51269bdbc461"],
+ CellLabel->
+  "In[311]:=",ExpressionUUID->"024bcf28-8095-42df-9004-51269bdbc461"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "SetDelayed","write",
+   "\"Tag \\!\\(\\*RowBox[{\\\"Indeterminate\\\"}]\\) in \
+\\!\\(\\*RowBox[{\\\"Indeterminate\\\", \\\"[\\\", \\\"\[Alpha]_\\\", \\\"]\\\
+\"}]\\) is Protected.\"",2,311,63,19650336214106342288,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.800270581743972*^9},
+ CellLabel->
+  "During evaluation of \
+In[311]:=",ExpressionUUID->"8833624e-8881-4de4-8375-ecdb2d5b06fc"],
+
+Cell[BoxData["$Failed"], "Output",
+ CellChangeTimes->{3.800270581753923*^9},
+ CellLabel->
+  "Out[311]=",ExpressionUUID->"db91f67c-cd2c-4151-88c9-950169087d6e"]
+}, Open  ]],
 
 Cell[CellGroupData[{
 
@@ -3712,7 +3916,7 @@ Cell[BoxData[
   3.7997435956997347`*^9, 3.799743596142418*^9}, {3.799743641480315*^9, 
   3.799743642210538*^9}, {3.799744130965465*^9, 3.799744134155665*^9}},
  CellLabel->
-  "In[145]:=",ExpressionUUID->"37047281-e390-4fa8-8ee7-c348b35cfac5"],
+  "In[312]:=",ExpressionUUID->"37047281-e390-4fa8-8ee7-c348b35cfac5"],
 
 Cell[BoxData[
  FractionBox[
@@ -3732,9 +3936,9 @@ Cell[BoxData[
         SqrtBox["3"]]]}], ")"}], "2"]}], "40000"]], "Output",
  CellChangeTimes->{{3.799743375946844*^9, 3.799743390454073*^9}, 
    3.799743597056731*^9, 3.7997436428651037`*^9, 3.799743907040793*^9, 
-   3.799744134816084*^9},
+   3.799744134816084*^9, 3.8002705820328417`*^9},
  CellLabel->
-  "Out[145]=",ExpressionUUID->"70a0d93b-5686-4212-8bd8-09e2583efa57"]
+  "Out[312]=",ExpressionUUID->"acdcc1f5-5db7-4c33-96d8-246536ef6bc7"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -3757,7 +3961,7 @@ Cell[BoxData[
    3.799743372016027*^9}, {3.799743601800734*^9, 3.799743696787794*^9}, {
    3.799744137148329*^9, 3.7997441398878193`*^9}},
  CellLabel->
-  "In[146]:=",ExpressionUUID->"cf9b9008-43f4-4e17-bf0d-421fed27767c"],
+  "In[313]:=",ExpressionUUID->"cf9b9008-43f4-4e17-bf0d-421fed27767c"],
 
 Cell[BoxData[
  GraphicsBox[{{{}, {}, 
@@ -4033,7 +4237,7 @@ NVDnHOOL/OqHu25XyJu9Yg2Ps75MLAb44RzEghz71sjri/SukeX2w0m9FphV
 3rYGrn9GgcJuvjiW+5uS7kRrWB+XMm0/5osjWbz3frpLnq/CloqjwQc3wZdR
 9WnPGuTsqne4XH1wXbM+2/v71jBVa9bazuyD+x9eEm2N
        "]]},
-     Annotation[#, "Charting`Private`Tag$34726#1"]& ], 
+     Annotation[#, "Charting`Private`Tag$45555#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
       1.], LineBox[CompressedData["
@@ -4122,7 +4326,7 @@ FcXRg7+dvt5M2NDOim6tcHuntA+/LWec7zfsfIj+fqmvo3Xtl9/OTqmt5POx
 pueHVg+OHZ+0pve/3+k4Zh5gQ5///af8eypzNvS8Lx73I8nn8O95fL8Ihi/+
 NpdKCJNvgC2931QcJbi61pZ+3zLuR1ld/e1/Aaip6Mg=
        "]]},
-     Annotation[#, "Charting`Private`Tag$34726#2"]& ]}, {}},
+     Annotation[#, "Charting`Private`Tag$45555#2"]& ]}, {}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{None, None},
@@ -4366,9 +4570,9 @@ NpdKCJNvgC2931QcJbi61pZ+3zLuR1ld/e1/Aaip6Mg=
    3.799742637032835*^9, 3.7997427208564663`*^9}, {3.79974278249749*^9, 
    3.7997428867291393`*^9}, 3.79974301613666*^9, {3.7997432903368797`*^9, 
    3.7997433726417303`*^9}, {3.799743589921074*^9, 3.7997436977872047`*^9}, 
-   3.79974390846951*^9, 3.799744140535379*^9},
+   3.79974390846951*^9, 3.799744140535379*^9, 3.800270589800338*^9},
  CellLabel->
-  "Out[146]=",ExpressionUUID->"7bada2d9-6367-4955-824d-e8ff7c661ccc"]
+  "Out[313]=",ExpressionUUID->"c9604202-5ccf-4f05-bd86-f7e2d46659c2"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -4397,16 +4601,17 @@ Cell[BoxData[{
    "]"}]}]}], "Input",
  CellChangeTimes->{{3.799743203500659*^9, 3.799743250871842*^9}},
  CellLabel->
-  "In[147]:=",ExpressionUUID->"7a19f391-ea85-4ac1-9169-0e71076cc730"],
+  "In[314]:=",ExpressionUUID->"7a19f391-ea85-4ac1-9169-0e71076cc730"],
 
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]], "Output",
  CellChangeTimes->{
   3.799743214073285*^9, {3.7997432468575363`*^9, 3.799743251334929*^9}, 
-   3.799743707666994*^9, 3.799743910706882*^9, 3.799744200465077*^9},
+   3.799743707666994*^9, 3.799743910706882*^9, 3.799744200465077*^9, 
+   3.8002705918544292`*^9},
  CellLabel->
-  "Out[147]=",ExpressionUUID->"087ecfed-9943-4551-b692-661afb206f5c"],
+  "Out[314]=",ExpressionUUID->"885eab31-d901-41e9-a3c3-27e40e1b2597"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -4436,9 +4641,10 @@ Cell[BoxData[
   "}"}]], "Output",
  CellChangeTimes->{
   3.799743214073285*^9, {3.7997432468575363`*^9, 3.799743251334929*^9}, 
-   3.799743707666994*^9, 3.799743910706882*^9, 3.7997442004766207`*^9},
+   3.799743707666994*^9, 3.799743910706882*^9, 3.799744200465077*^9, 
+   3.800270591857584*^9},
  CellLabel->
-  "Out[148]=",ExpressionUUID->"ea0c880a-df6d-442d-b50b-47145437344d"]
+  "Out[315]=",ExpressionUUID->"810e491c-0f35-4674-836e-b70b6ec08f67"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -4459,16 +4665,17 @@ Cell[BoxData[
      RowBox[{"\"\<Frame\>\"", "\[Rule]", "\"\<Einstein\>\""}], ",", 
      RowBox[{"\"\<PerturbationIndex\>\"", "\[Rule]", "0"}], ",", 
      RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}], ",", 
-     RowBox[{"\"\<Frame\>\"", "\[Rule]", "\"\<Jordan\>\""}]}], "]"}]}], 
+     RowBox[{"\"\<Frame\>\"", "\[Rule]", "\"\<Einstein\>\""}]}], "]"}]}], 
   ";"}]], "Input",
  CellChangeTimes->{{3.799728733247157*^9, 3.7997287364424067`*^9}, 
    3.7997288832709417`*^9, {3.799728968175254*^9, 3.799728982672014*^9}, {
    3.799729023508072*^9, 3.799729023890072*^9}, {3.799729459292788*^9, 
    3.7997294604522047`*^9}, {3.7997299495562067`*^9, 3.799729955516183*^9}, 
    3.799740556231011*^9, {3.799743258037326*^9, 3.799743285155098*^9}, {
-   3.799743715479664*^9, 3.799743723921689*^9}},
+   3.799743715479664*^9, 3.799743723921689*^9}, {3.800270604178*^9, 
+   3.800270606415579*^9}},
  CellLabel->
-  "In[149]:=",ExpressionUUID->"1c093b45-c7e6-436b-b249-347e2408b6ea"],
+  "In[317]:=",ExpressionUUID->"1c093b45-c7e6-436b-b249-347e2408b6ea"],
 
 Cell[BoxData["\<\"Variables must be given as: {p,Var_gtt,Var_grr,\[CurlyPhi]}\
 \"\>"], "Print",
@@ -4485,10 +4692,10 @@ Cell[BoxData["\<\"Variables must be given as: {p,Var_gtt,Var_grr,\[CurlyPhi]}\
    3.799741115532481*^9, 3.799741207335517*^9, 3.799741271686201*^9, 
    3.799741341234377*^9, 3.799741483022235*^9, 3.799741519813848*^9, 
    3.799743269252585*^9, 3.799743724556808*^9, 3.79974391204735*^9, 
-   3.79974420112391*^9},
+   3.79974420112391*^9, {3.80027059235882*^9, 3.800270606936305*^9}},
  CellLabel->
   "During evaluation of \
-In[149]:=",ExpressionUUID->"f2034283-f23d-4ae2-a46d-ca0292694df7"]
+In[317]:=",ExpressionUUID->"e6d6d668-3c70-457a-b89e-87b1c4dccbd1"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -4646,7 +4853,7 @@ Cell[BoxData[{
    3.799743054564272*^9}, {3.799743733062394*^9, 3.799743734757841*^9}, {
    3.79974391645446*^9, 3.799744093989855*^9}},
  CellLabel->
-  "In[150]:=",ExpressionUUID->"84f93c30-180e-48f1-b654-ba099d58a792"],
+  "In[318]:=",ExpressionUUID->"84f93c30-180e-48f1-b654-ba099d58a792"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -4672,9 +4879,8 @@ Cell[BoxData[
                     None, Evaluator -> Automatic, Method -> "Preemptive"], 
                     Alignment -> {Center, Center}, ImageSize -> 
                     Dynamic[{
-                    Automatic, 
-                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])}]], 
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
                     GraphicsBox[{{
                     GrayLevel[0.6], 
                     AbsolutePointSize[5], 
@@ -4752,9 +4958,8 @@ q5SZmRFAL++xNeOlE0Dwt3AR
                     None, Evaluator -> Automatic, Method -> "Preemptive"], 
                     Alignment -> {Center, Center}, ImageSize -> 
                     Dynamic[{
-                    Automatic, 
-                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])}]], 
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
                     GraphicsBox[{{
                     GrayLevel[0.6], 
                     AbsolutePointSize[5], 
@@ -4849,7 +5054,7 @@ q5SZmRFAL++xNeOlE0Dwt3AR
              ButtonFunction :> 
              BoxForm`EmbedSummaryInterpretation[
               InterpolatingFunction, 
-               6685495667531923544855311148715535768998172509303948580256, 
+               6686662917728339168924294022376408081225002725641034355344, 
                EvaluationBox[], 
                Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
              "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
@@ -4867,7 +5072,7 @@ q5SZmRFAL++xNeOlE0Dwt3AR
 InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
 2432.54875486206306193226869744}}, <>]"& )],
      False,
-     BoxID -> 6685495667531923544855311148715535768998172509303948580256,
+     BoxID -> 6686662917728339168924294022376408081225002725641034355344,
      Editable->False,
      SelectWithContents->True,
      Selectable->False], ",", 
@@ -4891,9 +5096,8 @@ InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
                     None, Evaluator -> Automatic, Method -> "Preemptive"], 
                     Alignment -> {Center, Center}, ImageSize -> 
                     Dynamic[{
-                    Automatic, 
-                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])}]], 
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
                     GraphicsBox[{{
                     GrayLevel[0.6], 
                     AbsolutePointSize[5], 
@@ -4970,9 +5174,8 @@ q5SZmRFAL++xNeOlE0Dwt3AR
                     None, Evaluator -> Automatic, Method -> "Preemptive"], 
                     Alignment -> {Center, Center}, ImageSize -> 
                     Dynamic[{
-                    Automatic, 
-                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])}]], 
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
                     GraphicsBox[{{
                     GrayLevel[0.6], 
                     AbsolutePointSize[5], 
@@ -5067,7 +5270,7 @@ q5SZmRFAL++xNeOlE0Dwt3AR
              ButtonFunction :> 
              BoxForm`EmbedSummaryInterpretation[
               InterpolatingFunction, 
-               6685495667531923544855311148715535769016619253377658129952, 
+               6686662917728339168924294022376408081243449469714743897600, 
                EvaluationBox[], 
                Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
              "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
@@ -5085,7 +5288,7 @@ q5SZmRFAL++xNeOlE0Dwt3AR
 InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
 2432.54875486206306193226869744}}, <>]"& )],
      False,
-     BoxID -> 6685495667531923544855311148715535769016619253377658129952,
+     BoxID -> 6686662917728339168924294022376408081243449469714743897600,
      Editable->False,
      SelectWithContents->True,
      Selectable->False], ",", 
@@ -5109,9 +5312,8 @@ InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
                     None, Evaluator -> Automatic, Method -> "Preemptive"], 
                     Alignment -> {Center, Center}, ImageSize -> 
                     Dynamic[{
-                    Automatic, 
-                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])}]], 
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
                     GraphicsBox[{{
                     GrayLevel[0.6], 
                     AbsolutePointSize[5], 
@@ -5188,9 +5390,8 @@ q5SZmRFAL++xNeOlE0Dwt3AR
                     None, Evaluator -> Automatic, Method -> "Preemptive"], 
                     Alignment -> {Center, Center}, ImageSize -> 
                     Dynamic[{
-                    Automatic, 
-                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])}]], 
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
                     GraphicsBox[{{
                     GrayLevel[0.6], 
                     AbsolutePointSize[5], 
@@ -5285,7 +5486,7 @@ q5SZmRFAL++xNeOlE0Dwt3AR
              ButtonFunction :> 
              BoxForm`EmbedSummaryInterpretation[
               InterpolatingFunction, 
-               6685495667531923544855311148715535769035065997451367724688, 
+               6686662917728339168924294022376408081261896213788453446896, 
                EvaluationBox[], 
                Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
              "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
@@ -5303,7 +5504,7 @@ q5SZmRFAL++xNeOlE0Dwt3AR
 InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
 2432.54875486206306193226869744}}, <>]"& )],
      False,
-     BoxID -> 6685495667531923544855311148715535769035065997451367724688,
+     BoxID -> 6686662917728339168924294022376408081261896213788453446896,
      Editable->False,
      SelectWithContents->True,
      Selectable->False], ",", 
@@ -5327,9 +5528,8 @@ InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
                     None, Evaluator -> Automatic, Method -> "Preemptive"], 
                     Alignment -> {Center, Center}, ImageSize -> 
                     Dynamic[{
-                    Automatic, 
-                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])}]], 
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
                     GraphicsBox[{{
                     GrayLevel[0.6], 
                     AbsolutePointSize[5], 
@@ -5406,9 +5606,8 @@ q5SZmRFAL++xNeOlE0Dwt3AR
                     None, Evaluator -> Automatic, Method -> "Preemptive"], 
                     Alignment -> {Center, Center}, ImageSize -> 
                     Dynamic[{
-                    Automatic, 
-                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])}]], 
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
                     GraphicsBox[{{
                     GrayLevel[0.6], 
                     AbsolutePointSize[5], 
@@ -5503,7 +5702,7 @@ q5SZmRFAL++xNeOlE0Dwt3AR
              ButtonFunction :> 
              BoxForm`EmbedSummaryInterpretation[
               InterpolatingFunction, 
-               6685495667531923544855311148715535769053512741525077273184, 
+               6686662917728339168924294022376408081280342957862162979232, 
                EvaluationBox[], 
                Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
              "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
@@ -5521,391 +5720,3695 @@ q5SZmRFAL++xNeOlE0Dwt3AR
 InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
 2432.54875486206306193226869744}}, <>]"& )],
      False,
-     BoxID -> 6685495667531923544855311148715535769053512741525077273184,
+     BoxID -> 6686662917728339168924294022376408081280342957862162979232,
      Editable->False,
      SelectWithContents->True,
      Selectable->False], ",", "0", ",", 
     FractionBox["1508989", "10000000"], ",", "0"}], "}"}], "}"}]], "Output",
  CellChangeTimes->{{3.799743926333913*^9, 3.799744097322673*^9}, 
-   3.7997442097385473`*^9},
+   3.7997442097385473`*^9, 3.8002706177803297`*^9},
  CellLabel->
-  "Out[151]=",ExpressionUUID->"10628954-c335-43d3-9aed-f444bca02ca8"]
+  "Out[319]=",ExpressionUUID->"8e495db3-dec7-4c20-999f-0778b45c18fd"]
 }, Open  ]],
 
 Cell[CellGroupData[{
 
 Cell[BoxData[
- RowBox[{
-  RowBox[{"testST", "[", 
-   RowBox[{"[", "4", "]"}], "]"}], "@", "2000"}]], "Input",
- CellChangeTimes->{{3.799744099642733*^9, 3.7997441015893507`*^9}},
- CellLabel->
-  "In[144]:=",ExpressionUUID->"1e1403dd-e8e6-4dfd-b8d9-a24853eb585c"],
-
-Cell[BoxData["0.0000111111266857419793606552169845108521345621309793045902`29.\
-034835405216388"], "Output",
- CellChangeTimes->{3.7997441021239347`*^9},
- CellLabel->
-  "Out[144]=",ExpressionUUID->"ed6e3bf3-c813-418f-b1ed-f8a3bd8ece2a"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[{
- RowBox[{
-  RowBox[{"di", "=", 
-   RowBox[{"1", "/", "100"}]}], ";"}], "\n", 
- RowBox[{"tab", "=", 
-  RowBox[{"Table", "[", 
+ RowBox[{"Plot", "[", 
+  RowBox[{
    RowBox[{
-    RowBox[{
-     RowBox[{"myeqsa", "=", 
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"eqsef", "/.", 
-         RowBox[{"\[Alpha]", "\[Rule]", "\[Alpha]val"}]}], "/.", 
-        RowBox[{"\[Beta]", "\[Rule]", " ", 
-         RowBox[{"(", "\[Beta]val", ")"}]}]}], ")"}]}], ";", 
-     "\[IndentingNewLine]", 
-     RowBox[{"\[Rho]c", "=", 
-      RowBox[{"\[Rho]max", " ", "*", "i"}]}], ";", "\[IndentingNewLine]", 
-     RowBox[{"rin", "=", 
-      RowBox[{"Rationalize", "[", 
-       RowBox[{"10", "^", 
-        RowBox[{"-", "5"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
-     RowBox[{"pc", "=", 
-      RowBox[{"Rationalize", "[", 
-       RowBox[{
-        RowBox[{
-         RowBox[{"eqEoS", "[", 
-          RowBox[{"[", 
-           RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.", 
-         RowBox[{
-          RowBox[{"\[Rho]", "[", "r", "]"}], "->", "\[Rho]c"}]}], ",", 
-        RowBox[{"10", "^", 
-         RowBox[{"(", 
-          RowBox[{"-", "16"}], ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
-     RowBox[{"myeqs\[Alpha]1eff", "=", 
-      RowBox[{
-       RowBox[{"myeqsa", "/.", 
-        RowBox[{
-         RowBox[{"\[Rho]", "[", "r", "]"}], "\[Rule]", 
-         RowBox[{"Max", "[", 
-          RowBox[{
-           RowBox[{"\[Rho]int", "[", 
-            RowBox[{"p", "[", "r", "]"}], "]"}], ",", "0"}], "]"}]}]}], "/.", 
-       
-       RowBox[{
-        RowBox[{"p", "[", "r", "]"}], "\[Rule]", 
-        RowBox[{"Max", "[", 
-         RowBox[{
-          RowBox[{"Chop", "[", 
-           RowBox[{"p", "[", "r", "]"}], "]"}], ",", "0"}], "]"}]}]}]}], ";", 
-     "\[IndentingNewLine]", 
-     RowBox[{"eqsIC", "=", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{
-         RowBox[{"p", "[", "rin", "]"}], "==", "pc"}], ",", 
-        RowBox[{
-         RowBox[{"\[Lambda]", "[", "rin", "]"}], "\[Equal]", "0"}], ",", 
-        RowBox[{
-         RowBox[{"w", "[", "rin", "]"}], "\[Equal]", 
-         RowBox[{"Rationalize", "[", "0", "]"}]}], ",", 
-        RowBox[{
-         RowBox[{
-          RowBox[{"\[CurlyPhi]", "'"}], "[", "rin", "]"}], "\[Equal]", 
-         "0"}]}], "}"}]}], ";", "\n", 
-     RowBox[{"eqsfin", "=", 
-      RowBox[{"Flatten", "@", 
-       RowBox[{"Join", "[", 
-        RowBox[{"myeqs\[Alpha]1eff", ",", 
-         RowBox[{"Join", "[", "eqsIC", "]"}]}], "]"}]}]}], ";", 
-     "\[IndentingNewLine]", 
-     RowBox[{"testST", "=", 
-      RowBox[{"ShootingNStars", "[", 
-       RowBox[{"eqsfin", ",", 
-        RowBox[{"{", 
-         RowBox[{"rin", ",", "rfin"}], "}"}], ",", "r", ",", 
-        RowBox[{"{", 
-         RowBox[{"p", ",", "\[Lambda]", ",", "w", ",", "\[CurlyPhi]"}], "}"}],
-         ",", "4", ",", 
-        RowBox[{"{", 
-         RowBox[{"15092", "/", "100000"}], "}"}], ",", 
-        RowBox[{"\"\<Verbose\>\"", "\[Rule]", "True"}], ",", 
-        RowBox[{"\"\<Bracketing\>\"", "\[Rule]", "True"}]}], "]"}]}]}], 
-    "\[IndentingNewLine]", ",", 
+    RowBox[{"testST", "[", 
+     RowBox[{"[", "4", "]"}], "]"}], "@", "r"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"r", ",", "rin", ",", "1000"}], "}"}], ",", 
+   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
+   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+   RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
-     RowBox[{"i", ",", 
-      RowBox[{"{", "\[Rho]0c", "}"}]}], "}"}]}], 
-   "]"}]}], "\[IndentingNewLine]"}], "Input",
- CellChangeTimes->{{3.751811766206811*^9, 3.751811788078196*^9}, {
-   3.751811911948484*^9, 3.751811928632483*^9}, {3.75184597343232*^9, 
-   3.751845976175544*^9}, {3.7518460087135067`*^9, 3.751846012500869*^9}, {
-   3.751846190310767*^9, 3.7518461915528593`*^9}, {3.75184650815858*^9, 
-   3.751846513586975*^9}, {3.751979411570162*^9, 3.7519794439694443`*^9}, {
-   3.7519794759265623`*^9, 3.751979477352743*^9}, {3.75197962132337*^9, 
-   3.751979631487918*^9}, {3.751979665655856*^9, 3.751979691880835*^9}, 
-   3.751979748783423*^9, 3.751979853346014*^9, 3.751979947397644*^9, {
-   3.751980863276256*^9, 3.751980887163767*^9}, {3.751981674447106*^9, 
-   3.7519817248910418`*^9}, {3.751981805383251*^9, 3.751981808481189*^9}, {
-   3.752226633279251*^9, 3.7522266567554502`*^9}, {3.752226715595039*^9, 
-   3.7522267287510138`*^9}, {3.752226821839292*^9, 3.752226841252283*^9}, {
-   3.7522269087894497`*^9, 3.7522269113670807`*^9}, {3.752227006931594*^9, 
-   3.7522270736780376`*^9}, {3.752227118069972*^9, 3.752227138711067*^9}, {
-   3.752227221901513*^9, 3.7522272579199038`*^9}, {3.752227313422024*^9, 
-   3.752227334406859*^9}, {3.752227438229046*^9, 3.752227443051566*^9}, {
-   3.752227554273136*^9, 3.752227563342155*^9}, {3.752227670227501*^9, 
-   3.75222772869241*^9}, {3.752227858829393*^9, 3.752227876761191*^9}, {
-   3.752228025046372*^9, 3.7522280274498053`*^9}, {3.752228161796549*^9, 
-   3.7522282030314083`*^9}, {3.752228440580614*^9, 3.7522284451987553`*^9}, {
-   3.7522286049563637`*^9, 3.752228614626943*^9}, {3.752233670581884*^9, 
-   3.752233671080874*^9}, 3.7522338556718493`*^9, {3.75223466839053*^9, 
-   3.7522347065447407`*^9}, {3.752413203362537*^9, 3.752413224640437*^9}, {
-   3.75241346650229*^9, 3.752413480171154*^9}, {3.7524135649458723`*^9, 
-   3.752413605740526*^9}, {3.752413759764978*^9, 3.7524137647649193`*^9}, {
-   3.757147436108445*^9, 3.75714752868994*^9}, {3.7571476885249357`*^9, 
-   3.757147691120302*^9}, {3.757147727105349*^9, 3.757147777137907*^9}, {
-   3.757147812585622*^9, 3.7571478308864813`*^9}, {3.757148186835968*^9, 
-   3.757148190842628*^9}, {3.757820714840118*^9, 3.757820731952281*^9}, {
-   3.7578207671689463`*^9, 3.75782077362683*^9}, {3.7578208226123037`*^9, 
-   3.757820826477024*^9}, {3.757820950983934*^9, 3.757820983849414*^9}, {
-   3.757821026048717*^9, 3.757821026703146*^9}, {3.7578210648635597`*^9, 
-   3.7578211626559772`*^9}, {3.757821584112419*^9, 3.75782173574968*^9}, {
-   3.7578222849687567`*^9, 3.757822363483889*^9}, {3.757822984488474*^9, 
-   3.757822992479261*^9}, {3.757826798645417*^9, 3.757826963279611*^9}, {
-   3.7578270552691307`*^9, 3.75782711873971*^9}, {3.7578284436770983`*^9, 
-   3.757828446187387*^9}, 3.757828482771422*^9, {3.758959874880513*^9, 
-   3.758959890557139*^9}, {3.758959926662064*^9, 3.7589599601648293`*^9}, {
-   3.758959991096417*^9, 3.758959996979047*^9}, {3.758960339543404*^9, 
-   3.7589603426621513`*^9}, {3.7589833973519173`*^9, 
-   3.7589835475088873`*^9}, {3.7592110485665913`*^9, 3.759211053096925*^9}, 
-   3.759216321187221*^9, {3.7603485498428917`*^9, 3.760348573574058*^9}, {
-   3.760348619593515*^9, 3.7603487709948683`*^9}, {3.7603488180472517`*^9, 
-   3.76034885507169*^9}, {3.760348945156185*^9, 3.760349415862315*^9}, {
-   3.760350097219532*^9, 3.760350324766295*^9}, {3.761191804544631*^9, 
-   3.761191808295714*^9}, {3.761191931820159*^9, 3.761192345732918*^9}, {
-   3.761193839376589*^9, 3.761193904597291*^9}, {3.761193949904818*^9, 
-   3.761194051544373*^9}, 3.761194535920648*^9, {3.761194569630628*^9, 
-   3.761194582613164*^9}, 3.761194664710396*^9, {3.761194946768532*^9, 
-   3.761195024868537*^9}, {3.761195108962014*^9, 3.761195138319393*^9}, {
-   3.761195174742742*^9, 3.7611955234868393`*^9}, {3.761195701890441*^9, 
-   3.761195702341032*^9}, 3.761196485634391*^9, {3.761196658559492*^9, 
-   3.761196661141837*^9}, 3.7611968379516068`*^9, {3.761197023030426*^9, 
-   3.7611970255263033`*^9}, {3.761197076692329*^9, 3.761197118552474*^9}, {
-   3.79973097002567*^9, 3.799730994204389*^9}, {3.799731024367084*^9, 
-   3.799731086926413*^9}, {3.7997311261169252`*^9, 3.799731132399192*^9}, {
-   3.79973124118622*^9, 3.79973125969013*^9}, 3.799731972509701*^9, {
-   3.799732195538846*^9, 3.79973219829803*^9}, 3.799732363970727*^9, {
-   3.799732485907164*^9, 3.7997325170248833`*^9}, {3.799732562559083*^9, 
-   3.7997325773676977`*^9}, {3.7997327616671677`*^9, 3.799732776773637*^9}, {
-   3.799732955832143*^9, 3.799733006749688*^9}, 3.7997330372231007`*^9, {
-   3.799733079432432*^9, 3.799733115607945*^9}, {3.799733234074205*^9, 
-   3.79973325617085*^9}, {3.7997333899754953`*^9, 3.7997333988737698`*^9}, {
-   3.799734578742381*^9, 3.7997346140397377`*^9}, {3.799734708096471*^9, 
-   3.799734735575932*^9}, {3.799734766768032*^9, 3.7997347742308903`*^9}, {
-   3.799734897349547*^9, 3.7997349017321177`*^9}, {3.799735189295854*^9, 
-   3.799735195201284*^9}, {3.799739954009355*^9, 3.799739956346936*^9}, {
-   3.799740074559992*^9, 3.7997400750403223`*^9}, {3.799740146668169*^9, 
-   3.799740146877178*^9}, {3.799740432611566*^9, 3.799740527363008*^9}, {
-   3.7997406360526876`*^9, 3.799740637027987*^9}, {3.799740712749544*^9, 
-   3.799740749426177*^9}, 3.799741055042562*^9, {3.799741088206442*^9, 
-   3.799741122183194*^9}, {3.799741170641355*^9, 3.799741187729862*^9}, {
-   3.799741233795031*^9, 3.799741233969874*^9}, {3.79974137137066*^9, 
-   3.799741396173649*^9}, {3.799741435103573*^9, 3.799741435289009*^9}, {
-   3.79974149565993*^9, 3.79974149909788*^9}, {3.799741548137055*^9, 
-   3.799741549828787*^9}, {3.7997416627503777`*^9, 3.799741665147204*^9}, {
-   3.799741715792798*^9, 3.7997418282047358`*^9}, {3.799744111375866*^9, 
-   3.799744113973298*^9}},ExpressionUUID->"5c8ab894-f16c-44e7-9d93-\
-adc4a4231419"],
+     RowBox[{"\"\<radius\>\"", ",", "\"\<\[CurlyPhi]\>\""}], "}"}]}], ",", 
+   RowBox[{"FrameStyle", "\[Rule]", 
+    RowBox[{"Directive", "[", 
+     RowBox[{"Black", ",", "Bold", ",", "14"}], "]"}]}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.799744099642733*^9, 3.7997441015893507`*^9}, {
+  3.800270687087513*^9, 3.800270746882992*^9}},
+ CellLabel->
+  "In[332]:=",ExpressionUUID->"1e1403dd-e8e6-4dfd-b8d9-a24853eb585c"],
 
 Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{"{", 
-   RowBox[{
+ GraphicsBox[{{{}, {}, 
     TagBox[
-     TemplateBox[{RowBox[{
-         StyleBox[
-          TagBox["InterpolatingFunction", "SummaryHead"], 
-          "NonInterpretableSummary"], 
-         StyleBox["[", "NonInterpretableSummary"], 
-         DynamicModuleBox[{
-          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
-          TemplateBox[{
-            TemplateBox[{
-              PaneSelectorBox[{False -> GridBox[{{
-                    PaneBox[
-                    ButtonBox[
-                    DynamicBox[
-                    FEPrivate`FrontEndResource[
-                    "FEBitmaps", "SquarePlusIconMedium"]], 
-                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
-                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
-                    Alignment -> {Center, Center}, ImageSize -> 
-                    Dynamic[{
-                    Automatic, 
-                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])}]], 
-                    GraphicsBox[{{
-                    GrayLevel[0.6], 
-                    AbsolutePointSize[5], 
-                    PointBox[{1, 1}], 
-                    PointBox[{2, 4}], 
-                    PointBox[{3, 2}], 
-                    PointBox[{4, 3}]}, {{}, {}, {
-                    AbsoluteThickness[1], 
-                    Opacity[1.], 
-                    LineBox[CompressedData["
-1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
-3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
-cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
-QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
-wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
-ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
-/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
-klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
-42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
-IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
-7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
-QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
-CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
-7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
-/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
-q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
-vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
-shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
-q5SZmRFAL++xNeOlE0Dwt3AR
-                    "]]}}}, AspectRatio -> 1, Axes -> 
-                    False, Background -> GrayLevel[0.93], Frame -> True, 
-                    FrameStyle -> Directive[
-                    GrayLevel[0.7], 
-                    Thickness[Tiny]], FrameTicks -> None, 
-                    ImageSize -> {Automatic, 
-                    Dynamic[
-                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
-                    GridBox[{{
-                    RowBox[{
-                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
-                    "\[InvisibleSpace]", 
-                    TagBox[
-                    RowBox[{"{", 
-                    RowBox[{"{", 
-                    
-                    RowBox[{"1.`30.*^-5", ",", 
-                    "2432.54875486206306193226869743926439284881`30."}], 
-                    "}"}], "}"}], "SummaryItem"]}]}, {
-                    RowBox[{
-                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
-                    "\[InvisibleSpace]", 
-                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
-                    GridBoxAlignment -> {
-                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
-                    AutoDelete -> False, 
-                    GridBoxItemSize -> {
-                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
-                    GridBoxSpacings -> {
-                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
-                    BaseStyle -> {
-                    ShowStringCharacters -> False, NumberMarks -> False, 
-                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
-                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
-                  False, 
-                  GridBoxItemSize -> {
-                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
-                  BaselinePosition -> {1, 1}], True -> GridBox[{{
-                    PaneBox[
-                    ButtonBox[
-                    DynamicBox[
-                    FEPrivate`FrontEndResource[
-                    "FEBitmaps", "SquareMinusIconMedium"]], 
-                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
-                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
-                    Alignment -> {Center, Center}, ImageSize -> 
-                    Dynamic[{
-                    Automatic, 
-                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])}]], 
-                    GraphicsBox[{{
-                    GrayLevel[0.6], 
-                    AbsolutePointSize[5], 
-                    PointBox[{1, 1}], 
-                    PointBox[{2, 4}], 
-                    PointBox[{3, 2}], 
-                    PointBox[{4, 3}]}, {{}, {}, {
-                    AbsoluteThickness[1], 
-                    Opacity[1.], 
-                    LineBox[CompressedData["
-1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
-3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
-cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
-QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
-wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
-ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
-/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
-klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
-42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
-IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
-7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
-QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
-CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
-7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
-/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
-q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
-vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
-shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
-q5SZmRFAL++xNeOlE0Dwt3AR
-                    "]]}}}, AspectRatio -> 1, Axes -> 
-                    False, Background -> GrayLevel[0.93], Frame -> True, 
-                    FrameStyle -> Directive[
-                    GrayLevel[0.7], 
-                    Thickness[Tiny]], FrameTicks -> None, 
-                    ImageSize -> {Automatic, 
-                    Dynamic[
-                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
-                    GridBox[{{
-                    RowBox[{
-                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
-                    "\[InvisibleSpace]", 
-                    TagBox[
-                    RowBox[{"{", 
-                    RowBox[{"{", 
-                    
-                    RowBox[{"1.`30.*^-5", ",", 
-                    "2432.54875486206306193226869743926439284881`30."}], 
-                    "}"}], "}"}], "SummaryItem"]}]}, {
-                    RowBox[{
-                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
-                    "\[InvisibleSpace]", 
-                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
-                    RowBox[{
-                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
-                    "\[InvisibleSpace]", 
-                    TagBox["3", "SummaryItem"]}]}, {
-                    RowBox[{
-                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
-                    "\[InvisibleSpace]", 
-                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
-                    RowBox[{
-                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
-                    "\[InvisibleSpace]", 
-                    TagBox["False", "SummaryItem"]}]}}, 
-                    GridBoxAlignment -> {
-                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
-                    AutoDelete -> False, 
-                    GridBoxItemSize -> {
-                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
-                    GridBoxSpacings -> {
-                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
-                    BaseStyle -> {
-                    ShowStringCharacters -> False, NumberMarks -> False, 
-                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
-                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
-                  False, GridBoxItemSize -> {
-                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
-                  BaselinePosition -> {1, 1}]}, 
-               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
+     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
+      1.], LineBox[CompressedData["
+1:eJwVymcgFQ7bgHGrVFbKroxkZJWQEee+j05W9pa9k73JqewVh6wIZWVkpFRC
+ZKVCKGVr2Eohof6R93k/XR9+l4CDt6EzDRUVlQA1FdX/VyN5mKlwaofAzoNP
+y/Q7oDI/R8CrcBAePfp8hFavA7YizKykCqchbaFXj0WrA47KTZXd9f0OTbuL
+BxuIHXAs4Ekoc+EaJB68Ojst1wH1b8L4tBJ+Awy0xjgId4CWCPFFjO829CfW
+pfw70AFeGPX4swQ16nRwfgz42w4K353j/xXQov6pypigT+1Ac0vD8jD7bvyk
+9ke8oqUdetTEpZQS9mAJtV1CWXY7ZKwxUZtv70MKSV2WxrMdbApWBgN9mbDJ
+ZM4Fz7SDiM5gafosC16UNJ4epWmH31tjz0YkWJGukRhzpqMNrI20S+ddDuCg
+4AJTf1gbtFc0p2wUHMRDPPSZ/8TbQITqROiucTYkH74ypTjYCkmmBQ5s7Bwo
+aU7e2fZphZUqVm1BPU4U01h6/ImuFUxoo+ROJXDh3Y6kjzJHnkOjxS9eYgc3
+svt166sebgHeWuc9+ts8aC5MzxhG3wwLVhrjnr5HMEd0obisohF06ho6yZW8
+SL5lG/TNtQEe7hWvuT7Lhy+YrzRZHX0KjCf7zr9J4UdHjubA0dknQBiPbX0v
+IYCeP9R8/Dsfg08syE28FkBfHSFNhZZHUCT9u2La5Si62Pxy8Omvg/cTtbzf
+aAXx21RwIcP6Q6CPd0v/WSCIxT7YeFXiISjJHN3zn8ox5BMfnyrzfwAeH8fI
+1OPHUFf54r7GV7VwOyF9dU+IEJ7S9xqREKuFAVltl/3swmj8wdLFTvI+0Hym
+G+d8KIxDJ6eHSDw1IHe9WY9PTwTVonQ+7OeuhltfpBSlEkSRW6m/9/m5SuhN
+mq+WEz6O9xMjB9/53IMd+YKjKh3HsTa2x423vAKcKKyM2tti2KZJOmctXw5Z
+it3hRrfEsfJN/tmM5DJ4PRO5fkFeAq+p32GIXioFqTO/Prr5SmJcSu3i37a7
+YDdXZeTLLIXkIpUSB/m7kHbD+VVIpRTe8c67f6auBDbnhx7EzZ7AScmLY4nP
+iiHztXq6OvEkvhmvOqesWQxSfCU6PSkn0VXJIfL9WBHYdVu1v5OQxsSpJ3Ex
+DEXwh6+BbBomjaqTPaMH7xVCWiC7/NhrafQYZhzy0y6EF/x9lV9cTuGr8MQb
+L3ILQCwYMlcKZHCvkpYC5/PbEK/Qvc28IYPGObI0ZUdvw9wfYxfJ87J4bWf8
+0vL1fCgiX5K/tC6LCznM3/y98oCKsH4nXksOibpbrkfnc8Fm59qesjty2LPV
+Ze/plAvckZmj05qncZOHIWDZ/RYEneVXpblzGmlDbC80refAe7rKe/y/TqP/
+w4Fm7agcSI1rDbO+LY8SbtkMTBXZsCf525HhnwpYPbIp/4DnJrjoBsWuqyui
+TWm+FrZkQScL9fLBfEXUlKGYejplQXgaR6u+uhIGcp5YPvU0EzZvEh26c8+g
+dW7RYP3lDDC26O1eWDmD3VukC0EnM+Ahj5kMvZoy9lmLPOdaSAevfA860ooy
+TijGGLdZpcNc0c3SZhIBe+kVA8Ys0oDkdJRlIoeAf99HNS0eToMioerg/34Q
+8Ol3rhH7LzfAurxdQz4HMJItZdzS6wZ8HQoKHAlC3OvbFww3UyFH/lmFayEi
+yakszcIpFTSyqT9u9CBqCvz3Ne5UKpRaJKmxCxCxw/ou/itOAYeJQk7DHiJe
+1J+131CgAKvK/Pkv60RMnWQQrJ1KhtZ8iXAfflXcOGKiwENJBl7b+gVKoCpu
+NR5afrOYBGNfeht6+M7iHzaNBb+662Awv2l5LoCEy3K3tjZiE2B/YjSFJo+E
+7xQDov9qJcCABGvb8w4Sel+3GV1jSQB9PzFhpYPn8GdJq3pFXjzob1utSD08
+hy7OLupprXGge7A9mmtFDV1a9cdlpGKB+Ylu/QdOdbR7FpzBvxMDfebji2mg
+jvREo+b6gRjQuf1LlylFHf+WH9EcDowB7eMi3DRSGlhE/WP7ysto0IKk6m/u
+mpjGJXa/KyYK9k1xfS5P10RGi2+8U7ZR0B1994BLkyY+COo1DVWKAs3uluDP
++7QwrnV9nnU1EjRMVokfKrTwZelRqRrHSFBzNx1qmT+PX4PuNb6zioDdzNN7
+yCzamN79pemBSgR01XqfUZTXxuH8Bt/vvBFwbiO+oC5WG5V+X6kLmAoHUkTT
+pXIhHYyyU07I9gwH1Zv8OzccdTFE5sjkjtA1oA2ZKYpL1EW1mHe91GtXodO8
+XO3KA138pixamdR6FdR4TlIu7ujisYGAMVnrq3A+H45Arh5SmQ3NZuVdgXsG
+948Euenjtztyv6hOkWGf6o3lFbI+8sf+YKvaTQb3U/5t7qn6uBAuJNgxHgYS
+B+Wd7ev/9zcQV6XiwqDmfUuV9i4DnDXIVXs/dRkemvWdESw0wFGSk5ZgVSgc
+0Khluv3IANNOdJbPxIaCv0LaJ65XBvgytCNzyz4UZLlNo5iXDVBD9HiqOHco
+PBmb7P6jbIjPvrTpuF4PgSbr7xYDI4bIe83a2/tqMHQ6MoZc2W+MYr1h0c7Z
+gcCxHLp+W8gYLzKRyY9CA+Hi5Xm/ViVjzDkf16VuGQgMN9o9aZ2NUXWhfE6e
+LxAMW0IcExqMsXlQVUHkXgB84prVzXQwQenkEwIZPf5wssSw90mwCd7JEXj/
+qtYfIk+0ao4kmSCTsXKtXJY/CKvlkg7Vm2BxcCbxsb0/ePgbKBUymCI9z/FF
+xb9+8N+bZqHqR6YoZXhL/Z28H2hbiBf3vTbF69dZi4HfD27PZPOvfDTFKV/T
+x+N7/ID41/+QzF4zXLja9T1/zBfiRcVYG6zNkH1X/F3lcF/giMra6txtjiGu
+zYMhgz4greA9OGFugUJYKzkh6Q1JTlT6mR4WmPqCe5yXwRvmUm/06oRb4NZn
+5pzcBS+4tVj3oqXMAk9qE/iJJV5Ak/u7vmDDAkmV7lWSvF4wuB2R55RxAZdd
+d4IOH/aEwI4M56V+S4yY0annUXGHgWWhqZJpSyzOH0p8wO8OYofrbaw3LbFK
+MJwugM4dPgaMmvXxWuGhwQyfy72XQE2YV6vW0wrZ0tsORNlcAs6EMqkABmss
+aF/ekkt0gwbdxs2/ajY4vcwdObftCnQcw3yWVjZ46elbGpMZV9CfXFNv9LXB
+MfL8+tduV5hzl8wOybPBy5Psn65nuwJbQoHC+qoNiuYL382WcwWvjtjQH3m2
+eIHuoER2kAuw5lVc8Qm1Q6nf+g/FDzjDk516Vv5oOwzxzdtc23ICK8euu/0U
+OzxNXVM0Nu8E5WLTb6RK7DCxok6BpsUJCA2Heb/32aGYud1SnbsTeAyltLgd
+s0cOyspt715H6NoftOPQb48Okz9YhwodYOnsu/ufR+2xVG+63yjVAQ4ES9nZ
+zNgjY69M1sJVB7CZnGu1+GOPI6WqmaZWDrBRYRapL+iAtOp/p4HLAYTPKu4i
+BDtgjMn8SaEMe4gJ3NrHzeeIdU/JNAq5dnCv3Lwp67gj3g2e7dNOsoOB8Ufu
+bLKOWLSlwxlwxQ4Oq3r2smg6ovUroTt/bO3gEfPH5N3+jrhXXeDEpJAdzJQ9
+3/+ryxG5DYSyRtxsgTQWydHv5YRvgqx39bVYw49JH7XsECcc/ibj+anUGrK/
+2ATZRzphKDlsF0OKNXxfUBpay3RCGbK4RK2tNWRt/szkanbCNKkNQSkaa5hn
+c2R3YHDG1yNRiiPnrSBR7yzbepkzVqZyfvyxcgFkjaRJLQ+cMa1g1YRq4gJ8
+NOULiGtyRgNntTKRlxdAxubvIHe/M0aJvLCsz78AEx516YQNZ3w3T90yfP4C
+SCYKHownuaC25r8ymioLGOikPXDoiwtOxs1nqISZw1pm/c36by4YVin9/pyr
+OXC4uh8x3nBBhsmJOkcjc7DcOyiazOCK1WM2w5/EzWFOpwh25FxRTIvWYGjS
+DLaG0HM60RVbmIqHC8+ZgejilVeVshfx++PfnkuCphDB9Puqcrwb/rjwiLOe
+3RhE76tEH0tzw1XrQQ4zemPo049KYMxzw9hGJR+6P0ZwOIM5Y+K+GxqqPF6J
+nTCCpzxCFeRhN6zRq3E+XmIEKyKGg8+EL+Ht6c+WQ3JGYKdaJaLy4hJ2oKyC
+q4MhQLDdgAqNBwpRetvsJ/XBZWFtdY3BA9/pih7jf6cPFIu4g/fYPVA2P5Rz
+oUsfJs7UmHIc98AlxrHYjFp9uEy1NfFDzwMbX4842UTrw6OEm4t38j2wg9b1
+RLWkPojm9dHQKHoit+nUixkmPTjQpizX5e2F78ei8rBEGx7uZFbpXfbC/tVi
+OsdUbTAkLAuORnvhnNlYVRZZG9KaCg8s5XghQ8+Sj7SJNrA+2b3C2umFh84p
+Pz5Frw37KwfuWXN5o85r91Ujr/PAkunEv97qjXshLyxDQwtiZbt2HUjwwbyR
+LFLAcQ3genYmYivZB2N4A/T8eDTg3tkHW3NpPjj858aHMAYN6DPMW2vK80FB
+aSWRB9/VgcPX74tzrQ82Rw5XFT9Uh7Jq3uaGYR98WWD69jZBHV4JBwfYC/ui
+1z6j3BIbNdjHLTpd2+GLFXYjv948I4F5XPjeXa99UYzsJqJ/nwRl6yMnLPp8
+MYCYRTtZSALSuwQy9agvpsc0UzjiSHDl+jd2wx++aP9yuZfekAQr2zUaa1x+
+6Gzeszm6eBY+TMnVyHn54ZIr784m/1koqDob2sjlj61MnROclUSooemoXj/i
+jx1dM+KSBURoNledOinoj43L1alamUQYoyOeL5P0R9ZPjVfyrxGBzZpwJEPV
+HzfzubmLjYkQz6TY5unhj98ar+8ToSKCj5fUXoFWf3wjpXTsixUC8SR3Tpxr
+AKrPRbbYmxHgYqdoZeedQIx9i8XP3ZWgiP5noMfPIIwgvbmV9O40OFqun4qW
+CsHCxfrRhU0ZOG3zsHx3TCje7aYcVzCWBjaD4+XaHy4jn9B9lzJlKQg1Hsuh
+YSGjIGE681KNGKzsPkcSdLyCl6P1GYUtRODH68XPdQVXMWxC8/Na6THYIGvQ
+7xm5hncnE70dzI5CgvdJ/+mMcPznulorK8IPY+Wj45dPRaBMzznvvGeH4VHD
+pwL1yQg0P87hft2CG9Lb28U2oiNRT0/EdsqXA54MtldbCUQhIbYw0IiFDRye
+8SX/7o5Cv4pfvW9fsoJBdY6ztls02r19TtnuYwG1rBWaSLoYZPnsxfoskRE6
+TUu2lqpi8CsfOXnUZS/E8AUus2jF4gfvRXXxvt0w8LyIcPFXLEr3R1Od0qMD
+m4vfY0PS49DWMY/3rwoNrO5hz7h0Ih4jd25vzHhRAXNEzvaNkXjsSTCcCLLd
+JnhRn7HzDUrA0N4v9N4h/xHMLBT5YgUSMYqLo8qvcpOgVsFWTH6diI9Ca/LC
+lNYJIdRM/OIu17FqbjV6Q3qNICPt8Id5fxK6M9xv2aW0Sjjl9r7nXk0SPk+w
+lpWVWCaczhF0FNVKRq76j2n2mkuEjoJ+0/GfyahqLUrWIy8SMmqzz6qlUvCv
+LQu/oPA84VyErdiudAoKbHw9Tzo8T9gwEGbtzKTgteoTSpcOzBPM1+o+EnMp
+qGLVZ9z5b45w5HR/qEopBYdVclQfDM8RSpt21co+o6BfO8duj8Q5wtMuv8OC
+CxQMySVlm6zNEtxuKtJOfaXgUiU27Ps6S+C5SPW14DsFCemPTTo/zxLIeyn1
+vGsUlMLQ36S+WQJRu8KQ5x8Fs8kPK8IqZgndbz/Fs7Kl4N6cxc/P7GYJYUWl
+3gMcKfjEdqDxqdksQcLf0zSFOwUt2r1+PNWdJVDY/goy8aXgcnH8hS7lWYKh
+GcfzPWIpyFTqxsjOPUugFZ28+1IiBe/5Ey7L7J8lPPpdnBR74n9+y0jalH6W
+wHFL+gKdXApavuL0L1+fIby89Bs75FPQdOHxn+GlGULImecikUopuD/Vr41h
+ZoYgxhjLTFRJQbd19Vdnx2cI4xPa6zuQglQ20ozh72YI/wfs3U4s
+       "]]},
+     Annotation[#, "Charting`Private`Tag$61307#1"]& ]}, {}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->{Automatic, Automatic},
+  DisplayFunction->Identity,
+  Frame->{{True, True}, {True, True}},
+  FrameLabel->{{
+     FormBox["\"\[CurlyPhi]\"", TraditionalForm], None}, {
+     FormBox["\"radius\"", TraditionalForm], None}},
+  FrameStyle->Directive[
+    GrayLevel[0], Bold, 14],
+  FrameTicks->FrontEndValueCache[{{Automatic, 
+      Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+      Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.05, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.1, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.15, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {-0.05, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-0.04, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-0.03, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-0.02, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-0.01, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.01, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.02, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.03, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.04, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.06, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.07, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.08, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.09, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.11, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.12, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.13, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.14, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.16, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.17, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.18, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.19, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.2, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}}}, {Automatic, {{0., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {200., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {400., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {600., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {800., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {1000., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {-200., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-150., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-100., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-50., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {50., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {100., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {150., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {250., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {300., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {350., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {450., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {500., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {550., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {650., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {700., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {750., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {850., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {900., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {950., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {1050., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {1100., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {1150., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {1200., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}}}}],
+  GridLines->{None, None},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  ImagePadding->All,
+  Method->{
+   "DefaultBoundaryStyle" -> Automatic, 
+    "DefaultGraphicsInteraction" -> {
+     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+      "Effects" -> {
+       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+        "Droplines" -> {
+         "freeformCursorMode" -> True, 
+          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "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->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.05], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{
+  3.7997441021239347`*^9, 3.8002706194466047`*^9, {3.800270695010317*^9, 
+   3.8002707471914463`*^9}},
+ CellLabel->
+  "Out[332]=",ExpressionUUID->"b7c41775-e083-429f-a12f-e84252548d72"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{"Star", " ", "radius", " ", "in", " ", "Kms"}], " ", "*)"}], 
+  "\[IndentingNewLine]", 
+  RowBox[{"rs", "=", 
+   RowBox[{"(", 
+    RowBox[{"r", "/.", 
+     RowBox[{"FindRoot", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{
+          RowBox[{"testST", "[", 
+           RowBox[{"[", "1", "]"}], "]"}], "@", "r"}], "/", "pc"}], 
+        "\[Equal]", 
+        RowBox[{"10", "^", 
+         RowBox[{"-", "10"}]}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"r", ",", "7"}], "}"}]}], "]"}]}], ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.800270242749151*^9, 3.80027030785861*^9}, 
+   3.800270383268487*^9},
+ CellLabel->
+  "In[333]:=",ExpressionUUID->"7f9ff39f-8710-49f8-a542-c9f973274d82"],
+
+Cell[BoxData["8.50775492919548`"], "Output",
+ CellChangeTimes->{{3.80027027391672*^9, 3.800270308797633*^9}, 
+   3.800270384049402*^9, 3.800270459937956*^9, 3.800270644924939*^9, 
+   3.800270755307358*^9},
+ CellLabel->
+  "Out[333]=",ExpressionUUID->"7c99b552-a19f-44eb-b388-8c08bca69728"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"(*", " ", 
+  RowBox[{"Scalar", " ", "charge", " ", "and", " ", "sensitivy"}], " ", 
+  "*)"}]], "Input",
+ CellChangeTimes->{{3.800270330467413*^9, 
+  3.800270362936037*^9}},ExpressionUUID->"38603e06-81f9-4540-b442-\
+c2b9eb49ef1f"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"dmm", "=", 
+   RowBox[{"D", "[", 
+    RowBox[{
+     RowBox[{"mm", "[", "r", "]"}], ",", "r"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"d\[CurlyPhi]", "=", 
+   RowBox[{"D", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"testST", "[", 
+       RowBox[{"[", "4", "]"}], "]"}], "@", "r"}], ",", "r"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"scharge", "=", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "1"}], "/", 
+      RowBox[{"mm", "[", "r", "]"}]}], 
+     RowBox[{"(", 
+      RowBox[{"dmm", "/", "d\[CurlyPhi]"}], ")"}]}], ")"}], "/.", 
+   RowBox[{"r", "\[Rule]", "rs"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{"sensitivity", "=", 
+  RowBox[{"s", "/.", 
+   RowBox[{
+    RowBox[{"Solve", "[", 
+     RowBox[{
+      RowBox[{"scharge", "\[Equal]", 
+       RowBox[{"-", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", "s"}], "-", "1"}], ")"}], "/", 
+          RowBox[{"Sqrt", "[", "3", "]"}]}], ")"}]}]}], ",", "s"}], "]"}], 
+    "[", 
+    RowBox[{"[", "1", "]"}], "]"}]}]}]}], "Input",
+ CellChangeTimes->{{3.800269069716412*^9, 3.800269100089019*^9}, {
+  3.8002703908874826`*^9, 3.800270442449894*^9}},
+ CellLabel->
+  "In[334]:=",ExpressionUUID->"e757a525-69f7-4d56-83c3-fc04f587b774"],
+
+Cell[BoxData["0.08654932918566136`"], "Output",
+ CellChangeTimes->{
+  3.800270395571419*^9, {3.800270426928735*^9, 3.8002704616329536`*^9}, {
+   3.800270528901786*^9, 3.800270533308147*^9}, 3.800270646481843*^9, 
+   3.8002707563850803`*^9},
+ CellLabel->
+  "Out[336]=",ExpressionUUID->"3b5686dd-093e-4e89-bc6e-2fa6fdded850"],
+
+Cell[BoxData["0.4250460822447153`"], "Output",
+ CellChangeTimes->{
+  3.800270395571419*^9, {3.800270426928735*^9, 3.8002704616329536`*^9}, {
+   3.800270528901786*^9, 3.800270533308147*^9}, 3.800270646481843*^9, 
+   3.800270756386858*^9},
+ CellLabel->
+  "Out[337]=",ExpressionUUID->"68c7f9d2-8dcc-49c1-9ea4-2d806ade74f4"]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Solving massive case \[Alpha]=100, \[Beta]=0 (\[Rho]=0.9)", "Subsection",
+ CellChangeTimes->{{3.752234605281361*^9, 3.7522346079350986`*^9}, {
+   3.753167070882065*^9, 3.753167090863799*^9}, {3.7531811429438963`*^9, 
+   3.753181146838257*^9}, {3.757147416187327*^9, 3.757147460550118*^9}, {
+   3.757671911245981*^9, 3.757671926111849*^9}, {3.75767223402105*^9, 
+   3.7576722492781773`*^9}, {3.757674083638866*^9, 3.757674084172323*^9}, {
+   3.757756672156261*^9, 3.757756672909164*^9}, {3.7584314309819603`*^9, 
+   3.758431460647915*^9}, {3.75854094907749*^9, 3.758540953951942*^9}, {
+   3.758959848351142*^9, 3.7589598566628942`*^9}, {3.759216333017268*^9, 
+   3.759216334201138*^9}, {3.760348904765798*^9, 3.760348904992159*^9}, {
+   3.7611938141816063`*^9, 3.761193814387906*^9}, {3.761196452310245*^9, 
+   3.761196452439826*^9}, {3.761196637770349*^9, 3.761196637943589*^9}, 
+   3.7611968117273283`*^9, {3.761197001776472*^9, 3.761197002831397*^9}, {
+   3.799728628764008*^9, 3.799728640039735*^9}, {3.799744274066036*^9, 
+   3.7997442876410427`*^9}, {3.800270548973502*^9, 3.800270558740662*^9}, {
+   3.800270772385442*^9, 
+   3.800270779953618*^9}},ExpressionUUID->"b2820fff-bf8c-40c3-b557-\
+8da092f86f4d"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[Alpha]val", "=", "100"}], ";", 
+  RowBox[{"\[Beta]val", "=", "0"}], ";", 
+  RowBox[{"\[Rho]0c", "=", "0.9"}], ";", 
+  RowBox[{"rfin", "=", "1000"}], ";"}]], "Input",
+ CellChangeTimes->{{3.758960365001339*^9, 3.758960368896003*^9}, {
+   3.759210811184042*^9, 3.7592108204741783`*^9}, {3.76034857506057*^9, 
+   3.760348575310082*^9}, {3.7603486130275373`*^9, 3.7603486132782927`*^9}, {
+   3.760348908398329*^9, 3.760348908636458*^9}, {3.761191827154107*^9, 
+   3.761191827841091*^9}, {3.761191890895837*^9, 3.7611918911590977`*^9}, {
+   3.761193818491131*^9, 3.761193818611755*^9}, {3.761193928601096*^9, 
+   3.7611939288123703`*^9}, {3.761196458733745*^9, 3.761196458839838*^9}, {
+   3.761196652689629*^9, 3.761196652878489*^9}, 3.7611968315373373`*^9, {
+   3.7611970148462563`*^9, 3.761197038302237*^9}, {3.799728661913889*^9, 
+   3.799728671794139*^9}, {3.799730879155096*^9, 3.799730880599743*^9}, {
+   3.79974114556886*^9, 3.799741145739929*^9}, {3.7997414767027607`*^9, 
+   3.799741479179397*^9}, {3.799741516010109*^9, 3.7997415161976233`*^9}, {
+   3.7997416056403637`*^9, 3.799741606072221*^9}, {3.800270803351468*^9, 
+   3.800270806543145*^9}},
+ CellLabel->
+  "In[338]:=",ExpressionUUID->"3ef9ecbc-c1f2-4a48-955d-4ebded0720f2"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"rfin", "=", 
+  RowBox[{"Rationalize", "[", 
+   RowBox[{
+    RowBox[{"r", "/.", 
+     RowBox[{"FindRoot", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"0.5", 
+         RowBox[{
+          RowBox[{"Exp", "[", 
+           RowBox[{
+            RowBox[{"-", "r"}], "/", 
+            RowBox[{"Sqrt", "[", 
+             RowBox[{"6", "\[Alpha]val"}], "]"}]}], "]"}], "/", "r"}]}], 
+        "\[Equal]", 
+        RowBox[{"10", "^", 
+         RowBox[{"-", "8"}]}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"r", ",", 
+         RowBox[{"Sqrt", "[", 
+          RowBox[{"6", "\[Alpha]val"}], "]"}]}], "}"}]}], "]"}]}], ",", 
+    RowBox[{"10", "^", 
+     RowBox[{"-", "16"}]}]}], "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{"rfin", "*", "1."}]}], "Input",
+ CellChangeTimes->{{3.761195603094919*^9, 3.7611956904668093`*^9}, {
+  3.761195795828185*^9, 3.761195796417717*^9}, {3.7611964633579073`*^9, 
+  3.7611964649155188`*^9}},
+ CellLabel->
+  "In[339]:=",ExpressionUUID->"5e8acc5b-d57e-4cd3-afd8-01af9a7f0214"],
+
+Cell[BoxData[
+ FractionBox["834856389", "2830622"]], "Output",
+ CellChangeTimes->{{3.7611956168221617`*^9, 3.7611956906863327`*^9}, {
+   3.761196460664765*^9, 3.761196465248084*^9}, 3.7611966538801613`*^9, 
+   3.76119683236248*^9, {3.761197017179509*^9, 3.7611970563792973`*^9}, 
+   3.799728693489087*^9, 3.799729419956626*^9, 3.799730889940345*^9, 
+   3.799735024614737*^9, 3.799740572454596*^9, {3.799741481910733*^9, 
+   3.799741498076989*^9}, 3.7997416073982077`*^9, 3.799743507419874*^9, 
+   3.799743786624095*^9, 3.800270578741549*^9, 3.800270808292194*^9},
+ CellLabel->
+  "Out[339]=",ExpressionUUID->"603a021f-99a3-4d1c-917a-f07c14ee9571"],
+
+Cell[BoxData["294.93743389262147`"], "Output",
+ CellChangeTimes->{{3.7611956168221617`*^9, 3.7611956906863327`*^9}, {
+   3.761196460664765*^9, 3.761196465248084*^9}, 3.7611966538801613`*^9, 
+   3.76119683236248*^9, {3.761197017179509*^9, 3.7611970563792973`*^9}, 
+   3.799728693489087*^9, 3.799729419956626*^9, 3.799730889940345*^9, 
+   3.799735024614737*^9, 3.799740572454596*^9, {3.799741481910733*^9, 
+   3.799741498076989*^9}, 3.7997416073982077`*^9, 3.799743507419874*^9, 
+   3.799743786624095*^9, 3.800270578741549*^9, 3.8002708082947283`*^9},
+ CellLabel->
+  "Out[340]=",ExpressionUUID->"ff5abd93-f1d7-433e-af55-010a77d25c41"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"V\[CurlyPhi]", "[", 
+   RowBox[{"\[Alpha]_", ",", "\[Beta]_"}], "]"}], ":=", 
+  RowBox[{"Evaluate", "[", 
+   RowBox[{
+    RowBox[{"fR2Pot", "[", 
+     RowBox[{
+      RowBox[{"R", "+", 
+       RowBox[{"\[Alpha]", " ", 
+        RowBox[{"R", "^", "2"}]}], "+", 
+       RowBox[{"\[Beta]", " ", 
+        RowBox[{"R", "^", "3"}]}]}], ",", 
+      RowBox[{"Exp", "[", 
+       RowBox[{
+        RowBox[{"2", "/", 
+         RowBox[{"Sqrt", "[", "3", "]"}]}], "\[CurlyPhi]"}], "]"}]}], "]"}], 
+    "[", 
+    RowBox[{"[", "2", "]"}], "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.799730870251994*^9, 3.799730895228208*^9}, {
+  3.799732747894565*^9, 3.799732748072727*^9}, {3.799733596198909*^9, 
+  3.799733596378071*^9}, {3.79974056343463*^9, 3.799740566744836*^9}, {
+  3.7997424139592133`*^9, 3.799742427434136*^9}, {3.799743280090276*^9, 
+  3.799743280264242*^9}, {3.799743568973083*^9, 3.7997435857595987`*^9}, {
+  3.799743901444808*^9, 3.799743902574534*^9}},
+ CellLabel->
+  "In[342]:=",ExpressionUUID->"44fbb0a8-b946-400a-b087-2cbbd124e507"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"xx", "=", 
+  RowBox[{"{", 
+   RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], 
+   "}"}]}], "\[IndentingNewLine]", 
+ RowBox[{"g", "=", 
+  RowBox[{"DiagonalMatrix", "[", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"-", 
+      RowBox[{"Exp", "[", 
+       RowBox[{"2", " ", 
+        RowBox[{"w", "[", "r", "]"}]}], "]"}]}], ",", 
+     RowBox[{"Exp", "[", 
+      RowBox[{"2", " ", 
+       RowBox[{"\[Lambda]", "[", "r", "]"}]}], "]"}], ",", 
+     RowBox[{"r", "^", "2"}], ",", 
+     RowBox[{
+      RowBox[{"r", "^", "2"}], " ", 
+      RowBox[{
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "^", "2"}]}]}], "}"}], 
+   "]"}]}]}], "Input",
+ CellChangeTimes->{{3.799743203500659*^9, 3.799743250871842*^9}},
+ CellLabel->
+  "In[346]:=",ExpressionUUID->"8efacc6e-2635-4c77-8de1-f8af2a464add"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.799743214073285*^9, {3.7997432468575363`*^9, 3.799743251334929*^9}, 
+   3.799743707666994*^9, 3.799743910706882*^9, 3.799744200465077*^9, 
+   3.8002705918544292`*^9, 3.800270826775854*^9},
+ CellLabel->
+  "Out[346]=",ExpressionUUID->"ce57dd36-adac-4715-9653-7a0281933f9f"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"-", 
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"2", " ", 
+        RowBox[{"w", "[", "r", "]"}]}]]}], ",", "0", ",", "0", ",", "0"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", 
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{"2", " ", 
+       RowBox[{"\[Lambda]", "[", "r", "]"}]}]], ",", "0", ",", "0"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", 
+     SuperscriptBox["r", "2"], ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     RowBox[{
+      SuperscriptBox["r", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{
+  3.799743214073285*^9, {3.7997432468575363`*^9, 3.799743251334929*^9}, 
+   3.799743707666994*^9, 3.799743910706882*^9, 3.799744200465077*^9, 
+   3.8002705918544292`*^9, 3.800270826778426*^9},
+ CellLabel->
+  "Out[347]=",ExpressionUUID->"f148db56-d3f5-4438-9e20-f0b3b27f757e"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Limit", "[", 
+  RowBox[{
+   RowBox[{"V\[CurlyPhi]", "[", 
+    RowBox[{"\[Alpha]val", ",", "\[Beta]"}], "]"}], ",", 
+   RowBox[{"\[Beta]", "\[Rule]", "0"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.800270849839679*^9, 3.8002708634368773`*^9}},
+ CellLabel->
+  "In[350]:=",ExpressionUUID->"beee0b9e-f64b-4695-b3ae-7af4ced4148e"],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", "400"], " ", 
+  SuperscriptBox["\[ExponentialE]", 
+   RowBox[{"-", 
+    FractionBox[
+     RowBox[{"4", " ", "\[CurlyPhi]"}], 
+     SqrtBox["3"]]}]], " ", 
+  SuperscriptBox[
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "1"}], "+", 
+     SuperscriptBox["\[ExponentialE]", 
+      FractionBox[
+       RowBox[{"2", " ", "\[CurlyPhi]"}], 
+       SqrtBox["3"]]]}], ")"}], "2"]}]], "Output",
+ CellChangeTimes->{{3.8002708368166037`*^9, 3.800270864079774*^9}},
+ CellLabel->
+  "Out[350]=",ExpressionUUID->"b03a74d9-dbee-4aae-974b-34c5a517ca89"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"eqsef", "=", 
+   RowBox[{"STTOV", "[", 
+    RowBox[{"xx", ",", "g", ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"Limit", "[", 
+        RowBox[{
+         RowBox[{"V\[CurlyPhi]", "[", 
+          RowBox[{"\[Alpha]val", ",", "\[Beta]"}], "]"}], ",", 
+         RowBox[{"\[Beta]", "\[Rule]", "0"}]}], "]"}], ",", "\[CurlyPhi]"}], 
+      "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"p", ",", "w", ",", "\[Lambda]", ",", "\[CurlyPhi]"}], "}"}], 
+     ",", "\[Epsilon]p", ",", 
+     RowBox[{"\"\<Frame\>\"", "\[Rule]", "\"\<Einstein\>\""}], ",", 
+     RowBox[{"\"\<PerturbationIndex\>\"", "\[Rule]", "0"}], ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}], ",", 
+     RowBox[{"\"\<Frame\>\"", "\[Rule]", "\"\<Einstein\>\""}]}], "]"}]}], 
+  ";"}]], "Input",
+ CellChangeTimes->{{3.799728733247157*^9, 3.7997287364424067`*^9}, 
+   3.7997288832709417`*^9, {3.799728968175254*^9, 3.799728982672014*^9}, {
+   3.799729023508072*^9, 3.799729023890072*^9}, {3.799729459292788*^9, 
+   3.7997294604522047`*^9}, {3.7997299495562067`*^9, 3.799729955516183*^9}, 
+   3.799740556231011*^9, {3.799743258037326*^9, 3.799743285155098*^9}, {
+   3.799743715479664*^9, 3.799743723921689*^9}, {3.800270604178*^9, 
+   3.800270606415579*^9}, 3.8002708682137423`*^9},
+ CellLabel->
+  "In[351]:=",ExpressionUUID->"44e9fca0-a2b6-40c2-acd5-969ff36f73de"],
+
+Cell[BoxData["\<\"Variables must be given as: {p,Var_gtt,Var_grr,\[CurlyPhi]}\
+\"\>"], "Print",
+ CellChangeTimes->{
+  3.799729462231133*^9, 3.7997295350110188`*^9, {3.7997295835423737`*^9, 
+   3.7997296701772346`*^9}, {3.799729712713916*^9, 3.79972973189968*^9}, {
+   3.799729799952426*^9, 3.799729864164646*^9}, {3.799729906612266*^9, 
+   3.799729918098641*^9}, {3.7997299558888493`*^9, 3.799729971163601*^9}, {
+   3.799730003301291*^9, 3.799730020127832*^9}, {3.799730077365672*^9, 
+   3.7997301137051973`*^9}, 3.799730152524106*^9, 3.799730197228074*^9, 
+   3.799730349353533*^9, 3.7997306365091143`*^9, 3.7997307330896997`*^9, 
+   3.799730784453965*^9, 3.799730831967885*^9, 3.7997309038076897`*^9, 
+   3.7997335997251673`*^9, 3.799740556724641*^9, 3.799740658881074*^9, 
+   3.799741115532481*^9, 3.799741207335517*^9, 3.799741271686201*^9, 
+   3.799741341234377*^9, 3.799741483022235*^9, 3.799741519813848*^9, 
+   3.799743269252585*^9, 3.799743724556808*^9, 3.79974391204735*^9, 
+   3.79974420112391*^9, {3.80027059235882*^9, 3.800270606936305*^9}, 
+   3.800270828038651*^9, 3.800270868791256*^9},
+ CellLabel->
+  "During evaluation of \
+In[351]:=",ExpressionUUID->"bc4a9936-ccb5-4fd6-a83c-b3a4d43052de"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"di", "=", 
+   RowBox[{"1", "/", "100"}]}], ";"}], "\n", 
+ RowBox[{"tab", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"myeqsa", "=", 
+      RowBox[{"(", "eqsef", ")"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"\[Rho]c", "=", 
+      RowBox[{"\[Rho]max", " ", "*", "i"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"rin", "=", 
+      RowBox[{"Rationalize", "[", 
+       RowBox[{"10", "^", 
+        RowBox[{"-", "5"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"pc", "=", 
+      RowBox[{"Rationalize", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"eqEoS", "[", 
+          RowBox[{"[", 
+           RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.", 
+         RowBox[{
+          RowBox[{"\[Rho]", "[", "r", "]"}], "->", "\[Rho]c"}]}], ",", 
+        RowBox[{"10", "^", 
+         RowBox[{"(", 
+          RowBox[{"-", "16"}], ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"myeqs\[Alpha]1eff", "=", 
+      RowBox[{
+       RowBox[{"myeqsa", "/.", 
+        RowBox[{
+         RowBox[{"\[Rho]", "[", "r", "]"}], "\[Rule]", 
+         RowBox[{"Max", "[", 
+          RowBox[{
+           RowBox[{"\[Rho]int", "[", 
+            RowBox[{"p", "[", "r", "]"}], "]"}], ",", "0"}], "]"}]}]}], "/.", 
+       
+       RowBox[{
+        RowBox[{"p", "[", "r", "]"}], "\[Rule]", 
+        RowBox[{"Max", "[", 
+         RowBox[{
+          RowBox[{"p", "[", "r", "]"}], ",", "0"}], "]"}]}]}]}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{"eqsIC", "=", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"p", "[", "rin", "]"}], "==", "pc"}], ",", 
+        RowBox[{
+         RowBox[{"\[Lambda]", "[", "rin", "]"}], "\[Equal]", "0"}], ",", 
+        RowBox[{
+         RowBox[{"w", "[", "rin", "]"}], "\[Equal]", 
+         RowBox[{"Rationalize", "[", "0", "]"}]}], ",", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"\[CurlyPhi]", "'"}], "[", "rin", "]"}], "\[Equal]", 
+         "0"}]}], "}"}]}], ";", "\n", 
+     RowBox[{"eqsfin", "=", 
+      RowBox[{"Flatten", "@", 
+       RowBox[{"Join", "[", 
+        RowBox[{"myeqs\[Alpha]1eff", ",", 
+         RowBox[{"Join", "[", "eqsIC", "]"}]}], "]"}]}]}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{"testST", "=", 
+      RowBox[{"ShootingNStars", "[", 
+       RowBox[{"eqsfin", ",", 
+        RowBox[{"{", 
+         RowBox[{"rin", ",", "rfin"}], "}"}], ",", "r", ",", 
+        RowBox[{"{", 
+         RowBox[{"p", ",", "\[Lambda]", ",", "w", ",", "\[CurlyPhi]"}], "}"}],
+         ",", "4", ",", 
+        RowBox[{"{", 
+         RowBox[{"129083593171", "/", "1000000000000"}], "}"}], ",", 
+        RowBox[{"\"\<Verbose\>\"", "\[Rule]", "True"}], ",", 
+        RowBox[{"\"\<Bracketing\>\"", "\[Rule]", "True"}]}], "]"}]}]}], 
+    "\[IndentingNewLine]", ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{"{", "\[Rho]0c", "}"}]}], "}"}]}], 
+   "]"}]}], "\[IndentingNewLine]"}], "Input",
+ CellChangeTimes->{{3.751811766206811*^9, 3.751811788078196*^9}, {
+   3.751811911948484*^9, 3.751811928632483*^9}, {3.75184597343232*^9, 
+   3.751845976175544*^9}, {3.7518460087135067`*^9, 3.751846012500869*^9}, {
+   3.751846190310767*^9, 3.7518461915528593`*^9}, {3.75184650815858*^9, 
+   3.751846513586975*^9}, {3.751979411570162*^9, 3.7519794439694443`*^9}, {
+   3.7519794759265623`*^9, 3.751979477352743*^9}, {3.75197962132337*^9, 
+   3.751979631487918*^9}, {3.751979665655856*^9, 3.751979691880835*^9}, 
+   3.751979748783423*^9, 3.751979853346014*^9, 3.751979947397644*^9, {
+   3.751980863276256*^9, 3.751980887163767*^9}, {3.751981674447106*^9, 
+   3.7519817248910418`*^9}, {3.751981805383251*^9, 3.751981808481189*^9}, {
+   3.752226633279251*^9, 3.7522266567554502`*^9}, {3.752226715595039*^9, 
+   3.7522267287510138`*^9}, {3.752226821839292*^9, 3.752226841252283*^9}, {
+   3.7522269087894497`*^9, 3.7522269113670807`*^9}, {3.752227006931594*^9, 
+   3.7522270736780376`*^9}, {3.752227118069972*^9, 3.752227138711067*^9}, {
+   3.752227221901513*^9, 3.7522272579199038`*^9}, {3.752227313422024*^9, 
+   3.752227334406859*^9}, {3.752227438229046*^9, 3.752227443051566*^9}, {
+   3.752227554273136*^9, 3.752227563342155*^9}, {3.752227670227501*^9, 
+   3.75222772869241*^9}, {3.752227858829393*^9, 3.752227876761191*^9}, {
+   3.752228025046372*^9, 3.7522280274498053`*^9}, {3.752228161796549*^9, 
+   3.7522282030314083`*^9}, {3.752228440580614*^9, 3.7522284451987553`*^9}, {
+   3.7522286049563637`*^9, 3.752228614626943*^9}, {3.752233670581884*^9, 
+   3.752233671080874*^9}, 3.7522338556718493`*^9, {3.75223466839053*^9, 
+   3.7522347065447407`*^9}, {3.752413203362537*^9, 3.752413224640437*^9}, {
+   3.75241346650229*^9, 3.752413480171154*^9}, {3.7524135649458723`*^9, 
+   3.752413605740526*^9}, {3.752413759764978*^9, 3.7524137647649193`*^9}, {
+   3.757147436108445*^9, 3.75714752868994*^9}, {3.7571476885249357`*^9, 
+   3.757147691120302*^9}, {3.757147727105349*^9, 3.757147777137907*^9}, {
+   3.757147812585622*^9, 3.7571478308864813`*^9}, {3.757148186835968*^9, 
+   3.757148190842628*^9}, {3.757820714840118*^9, 3.757820731952281*^9}, {
+   3.7578207671689463`*^9, 3.75782077362683*^9}, {3.7578208226123037`*^9, 
+   3.757820826477024*^9}, {3.757820950983934*^9, 3.757820983849414*^9}, {
+   3.757821026048717*^9, 3.757821026703146*^9}, {3.7578210648635597`*^9, 
+   3.7578211626559772`*^9}, {3.757821584112419*^9, 3.75782173574968*^9}, {
+   3.7578222849687567`*^9, 3.757822363483889*^9}, {3.757822984488474*^9, 
+   3.757822992479261*^9}, {3.757826798645417*^9, 3.757826963279611*^9}, {
+   3.7578270552691307`*^9, 3.75782711873971*^9}, {3.7578284436770983`*^9, 
+   3.757828446187387*^9}, 3.757828482771422*^9, {3.758959874880513*^9, 
+   3.758959890557139*^9}, {3.758959926662064*^9, 3.7589599601648293`*^9}, {
+   3.758959991096417*^9, 3.758959996979047*^9}, {3.758960339543404*^9, 
+   3.7589603426621513`*^9}, {3.7589833973519173`*^9, 
+   3.7589835475088873`*^9}, {3.7592110485665913`*^9, 3.759211053096925*^9}, 
+   3.759216321187221*^9, {3.7603485498428917`*^9, 3.760348573574058*^9}, {
+   3.760348619593515*^9, 3.7603487709948683`*^9}, {3.7603488180472517`*^9, 
+   3.76034885507169*^9}, {3.760348945156185*^9, 3.760349415862315*^9}, {
+   3.760350097219532*^9, 3.760350324766295*^9}, {3.761191804544631*^9, 
+   3.761191808295714*^9}, {3.761191931820159*^9, 3.761192345732918*^9}, {
+   3.761193839376589*^9, 3.761193904597291*^9}, {3.761193949904818*^9, 
+   3.761194051544373*^9}, 3.761194535920648*^9, {3.761194569630628*^9, 
+   3.761194582613164*^9}, 3.761194664710396*^9, {3.761194946768532*^9, 
+   3.761195024868537*^9}, {3.761195108962014*^9, 3.761195138319393*^9}, {
+   3.761195174742742*^9, 3.7611955234868393`*^9}, {3.761195701890441*^9, 
+   3.761195702341032*^9}, 3.761196485634391*^9, {3.761196658559492*^9, 
+   3.761196661141837*^9}, 3.7611968379516068`*^9, {3.761197023030426*^9, 
+   3.7611970255263033`*^9}, {3.761197076692329*^9, 3.761197118552474*^9}, {
+   3.79973097002567*^9, 3.799730994204389*^9}, {3.799731024367084*^9, 
+   3.799731086926413*^9}, {3.7997311261169252`*^9, 3.799731132399192*^9}, {
+   3.79973124118622*^9, 3.79973125969013*^9}, 3.799731972509701*^9, {
+   3.799732195538846*^9, 3.79973219829803*^9}, 3.799732363970727*^9, {
+   3.799732485907164*^9, 3.7997325170248833`*^9}, {3.799732562559083*^9, 
+   3.7997325773676977`*^9}, {3.7997327616671677`*^9, 3.799732776773637*^9}, {
+   3.799732955832143*^9, 3.799733006749688*^9}, 3.7997330372231007`*^9, {
+   3.799733079432432*^9, 3.799733115607945*^9}, {3.799733234074205*^9, 
+   3.79973325617085*^9}, {3.7997333899754953`*^9, 3.7997333988737698`*^9}, {
+   3.799734578742381*^9, 3.7997346140397377`*^9}, {3.799734708096471*^9, 
+   3.799734735575932*^9}, {3.799734766768032*^9, 3.7997347742308903`*^9}, {
+   3.799734897349547*^9, 3.7997349017321177`*^9}, {3.799735189295854*^9, 
+   3.799735195201284*^9}, {3.7997406126776133`*^9, 3.799740621944942*^9}, {
+   3.799741298650671*^9, 3.799741300526568*^9}, 3.799742965642508*^9, {
+   3.799743007167285*^9, 3.799743007454126*^9}, {3.7997430411218843`*^9, 
+   3.799743054564272*^9}, {3.799743733062394*^9, 3.799743734757841*^9}, {
+   3.79974391645446*^9, 3.799744093989855*^9}, 3.800270831089217*^9},
+ CellLabel->
+  "In[352]:=",ExpressionUUID->"a18ecb8d-96bc-4b7c-a3a6-b402877a8aa7"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"{", 
+   RowBox[{
+    TagBox[
+     TemplateBox[{RowBox[{
+         StyleBox[
+          TagBox["InterpolatingFunction", "SummaryHead"], 
+          "NonInterpretableSummary"], 
+         StyleBox["[", "NonInterpretableSummary"], 
+         DynamicModuleBox[{
+          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
+          TemplateBox[{
+            TemplateBox[{
+              PaneSelectorBox[{False -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "294.93743389262148036721257730633055208361`30."}], "}"}],
+                     "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, 
+                  GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "294.93743389262148036721257730633055208361`30."}], "}"}],
+                     "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}]}, 
+               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
+             "SummaryPanel"], 
+            ButtonBox[
+             DynamicBox[
+              ToBoxes[
+               If[
+                
+                Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
+                 "Local"], 
+                Style["This object cannot be used as input.", "SummaryEmbed"], 
+                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 2681544, 
+                 Dynamic[Typeset`embedState$$]]], StandardForm]], 
+             ButtonFunction :> 
+             BoxForm`EmbedSummaryInterpretation[
+              InterpolatingFunction, 
+               6686662917728339168924294022376408081298789701935872507728, 
+               EvaluationBox[], 
+               Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
+             "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
+             Dynamic[
+               
+               And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === 
+                "Local", Typeset`embedState$$ === "Ready"]], Appearance -> 
+             Inherited, Method -> Inherited, Evaluator -> Automatic]}, 
+           "SummaryEmbedGrid"], DynamicModuleValues :> {}], 
+         StyleBox["]", "NonInterpretableSummary"]}]},
+      "CopyTag",
+      DisplayFunction->(#& ),
+      InterpretationFunction->(
+       "                                                         -5\n\
+InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
+294.937433892621480367212577306}}, <>]"& )],
+     False,
+     BoxID -> 6686662917728339168924294022376408081298789701935872507728,
+     Editable->False,
+     SelectWithContents->True,
+     Selectable->False], ",", 
+    TagBox[
+     TemplateBox[{RowBox[{
+         StyleBox[
+          TagBox["InterpolatingFunction", "SummaryHead"], 
+          "NonInterpretableSummary"], 
+         StyleBox["[", "NonInterpretableSummary"], 
+         DynamicModuleBox[{
+          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
+          TemplateBox[{
+            TemplateBox[{
+              PaneSelectorBox[{False -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "294.93743389262148036721257730633055208361`30."}], "}"}],
+                     "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "294.93743389262148036721257730633055208361`30."}], "}"}],
+                     "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}]}, 
+               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
+             "SummaryPanel"], 
+            ButtonBox[
+             DynamicBox[
+              ToBoxes[
+               If[
+                
+                Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
+                 "Local"], 
+                Style["This object cannot be used as input.", "SummaryEmbed"], 
+                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 2662136, 
+                 Dynamic[Typeset`embedState$$]]], StandardForm]], 
+             ButtonFunction :> 
+             BoxForm`EmbedSummaryInterpretation[
+              InterpolatingFunction, 
+               6686662917728339168924294022376408081317236446009599337680, 
+               EvaluationBox[], 
+               Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
+             "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
+             Dynamic[
+               
+               And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === 
+                "Local", Typeset`embedState$$ === "Ready"]], Appearance -> 
+             Inherited, Method -> Inherited, Evaluator -> Automatic]}, 
+           "SummaryEmbedGrid"], DynamicModuleValues :> {}], 
+         StyleBox["]", "NonInterpretableSummary"]}]},
+      "CopyTag",
+      DisplayFunction->(#& ),
+      InterpretationFunction->(
+       "                                                         -5\n\
+InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
+294.937433892621480367212577306}}, <>]"& )],
+     False,
+     BoxID -> 6686662917728339168924294022376408081317236446009599337680,
+     Editable->False,
+     SelectWithContents->True,
+     Selectable->False], ",", 
+    TagBox[
+     TemplateBox[{RowBox[{
+         StyleBox[
+          TagBox["InterpolatingFunction", "SummaryHead"], 
+          "NonInterpretableSummary"], 
+         StyleBox["[", "NonInterpretableSummary"], 
+         DynamicModuleBox[{
+          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
+          TemplateBox[{
+            TemplateBox[{
+              PaneSelectorBox[{False -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "294.93743389262148036721257730633055208361`30."}], "}"}],
+                     "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "294.93743389262148036721257730633055208361`30."}], "}"}],
+                     "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}]}, 
+               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
+             "SummaryPanel"], 
+            ButtonBox[
+             DynamicBox[
+              ToBoxes[
+               If[
+                
+                Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
+                 "Local"], 
+                Style["This object cannot be used as input.", "SummaryEmbed"], 
+                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 2659712, 
+                 Dynamic[Typeset`embedState$$]]], StandardForm]], 
+             ButtonFunction :> 
+             BoxForm`EmbedSummaryInterpretation[
+              InterpolatingFunction, 
+               6686662917728339168924294022376408081335683190083291619600, 
+               EvaluationBox[], 
+               Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
+             "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
+             Dynamic[
+               
+               And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === 
+                "Local", Typeset`embedState$$ === "Ready"]], Appearance -> 
+             Inherited, Method -> Inherited, Evaluator -> Automatic]}, 
+           "SummaryEmbedGrid"], DynamicModuleValues :> {}], 
+         StyleBox["]", "NonInterpretableSummary"]}]},
+      "CopyTag",
+      DisplayFunction->(#& ),
+      InterpretationFunction->(
+       "                                                         -5\n\
+InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
+294.937433892621480367212577306}}, <>]"& )],
+     False,
+     BoxID -> 6686662917728339168924294022376408081335683190083291619600,
+     Editable->False,
+     SelectWithContents->True,
+     Selectable->False], ",", 
+    TagBox[
+     TemplateBox[{RowBox[{
+         StyleBox[
+          TagBox["InterpolatingFunction", "SummaryHead"], 
+          "NonInterpretableSummary"], 
+         StyleBox["[", "NonInterpretableSummary"], 
+         DynamicModuleBox[{
+          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
+          TemplateBox[{
+            TemplateBox[{
+              PaneSelectorBox[{False -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "294.93743389262148036721257730633055208361`30."}], "}"}],
+                     "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.`30.*^-5", ",", 
+                    "294.93743389262148036721257730633055208361`30."}], "}"}],
+                     "}"}], "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}]}, 
+               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
+             "SummaryPanel"], 
+            ButtonBox[
+             DynamicBox[
+              ToBoxes[
+               If[
+                
+                Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
+                 "Local"], 
+                Style["This object cannot be used as input.", "SummaryEmbed"], 
+                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 3370104, 
+                 Dynamic[Typeset`embedState$$]]], StandardForm]], 
+             ButtonFunction :> 
+             BoxForm`EmbedSummaryInterpretation[
+              InterpolatingFunction, 
+               6686662917728339168924294022376408081354129934157018488592, 
+               EvaluationBox[], 
+               Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
+             "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
+             Dynamic[
+               
+               And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === 
+                "Local", Typeset`embedState$$ === "Ready"]], Appearance -> 
+             Inherited, Method -> Inherited, Evaluator -> Automatic]}, 
+           "SummaryEmbedGrid"], DynamicModuleValues :> {}], 
+         StyleBox["]", "NonInterpretableSummary"]}]},
+      "CopyTag",
+      DisplayFunction->(#& ),
+      InterpretationFunction->(
+       "                                                         -5\n\
+InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
+294.937433892621480367212577306}}, <>]"& )],
+     False,
+     BoxID -> 6686662917728339168924294022376408081354129934157018488592,
+     Editable->False,
+     SelectWithContents->True,
+     Selectable->False], ",", "0", ",", 
+    FractionBox["129083593171", "1000000000000"], ",", "0"}], "}"}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.799743926333913*^9, 3.799744097322673*^9}, 
+   3.7997442097385473`*^9, 3.8002706177803297`*^9, 3.800270875454393*^9},
+ CellLabel->
+  "Out[353]=",ExpressionUUID->"5e8d1719-5585-41b7-af48-00c401a7b5e7"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"testST", "[", 
+     RowBox[{"[", "4", "]"}], "]"}], "@", "r"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"r", ",", "rin", ",", "1000"}], "}"}], ",", 
+   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
+   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+   RowBox[{"FrameLabel", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"\"\<radius\>\"", ",", "\"\<\[CurlyPhi]\>\""}], "}"}]}], ",", 
+   RowBox[{"FrameStyle", "\[Rule]", 
+    RowBox[{"Directive", "[", 
+     RowBox[{"Black", ",", "Bold", ",", "14"}], "]"}]}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.799744099642733*^9, 3.7997441015893507`*^9}, {
+  3.800270687087513*^9, 3.800270746882992*^9}},
+ CellLabel->
+  "In[354]:=",ExpressionUUID->"565e8596-4dc2-441a-8302-b53cc1f29c77"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {}, 
+    TagBox[
+     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
+      1.], LineBox[CompressedData["
+1:eJwVV3c41t8bDiVlJjshZCc7VOfz2Hvv116Rvd/X3qMyM7ISDWRWxFf0eYVk
+JZUkSlYoKkWhyM/vr3Pd13M/59zPuM55zgkXf1N3yn379mlS7dv3/1U74y19
+xewu+ngs6+6L5E6s9nrRCb+K19jyUad74kmd2Ha8lZ1kxRzGm5uspBTbifHL
+z1bdCfyK/TBREJoP68QEQ1rCGSrWML4bJhuHvTux1ueRvLqXNjH+mfoPMbad
+mK6wytPkwB2MLeH5KJV2J+YHiQ+nJSjAuGx02FiqE1P86p72r5wKXpUtbjGy
+dGKUxdq23KzUkNviaYJ/ImODmuKSypdooPuh8YfyQjKWt0ZPYb1zGGZnj5uP
+YWTMoXz1dWggPXzS9VCzmsAxYYPXlbmfGMHqQdq+rQs4trk90TEucQRmcxO2
+Y+cfY/Zm+pWLF5jhx84yXZ3JY6zr7uOs3+VHwUORrKNS34EJ7zsdfmCSBZrC
+WS+z/m7H0i3LXVhY2SBo4HSwgHg7tlp3RF/AiB16WKLWbus9wiyoEuVlLnFA
+v6dp7hmrNuyRzTqPSjcnjNUHN9Eb/ofx3HOnMd7hgjZia4eUdCu2ZKc96Rt4
+HPw28zLnepsxg6a2nqhaHnh0dmf5UmIT9uCQeMOVT7zAvc93P7XaA4xOaljv
+eRYfdM+XGS9y3MfQZErnqMQJqHFI9cTp7mEBKZj8+/4TwKBQ8e6nXAN2U3rz
+7twFfojg2bzJHV2Hjb6/x7NMJQAPj2d4n1ypwQ6mXcz9WS4AhbmFZbLRdzFl
+WX6aP+cFgWtaIU9eohrzmZqIopgUBDrTiuhHvyqxsku5P2hIJ6FJTkhxdOwO
+NiKnf4GJVQj0TT8+2h26jVFO759kfyAEjkMxkcxjtzD5K4+NeI2EwU4TFYuv
+3sSKZySVJC+JQFlpWDyHSQU2lL5YLy8kCtLSDU7K+eXY7ply/vPdolDvJPl6
+uv8G5pZ5hE5/RwzG6DVXEzSvYwVKA3FmxeJwmx5D7nylWP98wi/CGQmYUDh0
+7dHhEkzy7PrUxcBTQBaZlnpJW4Q5LdSZBTJIwm4ON4UnXyF2Nce9j1QrCckr
+S72sKtewjcWx+6mfTkNohoOY5618LL9fK1dLRQpaax+a5M3lYZK8tw0Gs6Rg
+TuJ2zKxEHuY0YNf1SkIaGh9LaheOX8W2eNuiLCOl4cifDesNpavY1VDWMxP9
+0mBRNfzX7WYO9pRvuHbmggxUKxbOP03JxsSIWP5quSxM+fY3+QpnYGmKAzsM
+v2VB9cN8pYZcOrawZX7hlJ4cfNaot0rWu4LdjPI64/VLDoxmRFy+F1zC9qFf
+N9J05eEkVZ8p/UAa5rAbS1N1Qx6U/qvwIB1IwzgT8t/N6SiAlCPlQFRuCham
+xqdKeUMBKrSlKvU+JWOj+2tr+NYVQGXjQ+HL88lYdmpnpH3ZGZhm39dznyIJ
+o8lYPv72pyLEKJ69c2soHrtgGJbyS0sJbMz8RWf04rEeRorvR68rwdmHLnS1
+L+KwuKtsncZayqCm4PRcvC8WmzKrEPEvVQa2E+o79Usx2DlWiZyMH8rAeDCu
+qo8pBtu4puIyUHIWOHLoBmLCojBzm6GBpdWzoDcz/iyuKRJ7wGUle1DzHAwa
+Vncs/o7A/K777FdfPQcfHoTETGaFYws3r1U+VkdgyRrB8YKKiKm78TO+L0JA
+xxB+0Mw3DLt5sp745xuC0KZbC8TJUMy+ukv7TBEGr7Y3fvzsCcG+jIWFjocB
+1CVu5Kn2BWFFZzruelQASCZrgKlpEKZdSDH1exBgUemv/MjHQKzSJl2T9YQK
+qMMdodL9gZjL+wp200EVmK4g9uLzftiR84t6M79U4O+bmLEkUT+s87pEXACf
+KpTmtMdFBPtiPI6tS5mhqjCtu7uiweaDTcwMtQ3yqoHQ09qX61cvYpdUmb8R
+dNXgQ1fn/JNtT0zxlhX/lxA1eH4+fvCylydW4DZ7mWZADWzv8+xkm3hgJosb
+thoh6vA7UJpFQdcdY7qclElZqg61NzeL88fdsBGJI0/I3eqgPxa2XXPRDTMO
+EhNSPqoBI7Q16jW5rpjxjt2q5AMNOBHV4EN5wAVjKv/Mv/JOA7T1ZgKPVjlj
+I6phFncpNCEqMfW+kZ4zZpSW9UjARBMo++Q7GIqdMMOjXUkcq5ogLf5yXb3M
+AWNoMWx9w64FmCop4zClAzZsPfn5KqYFQRWfW4wv2mMGZeuG9FlakBx9fIBS
+1Q7TFxXmpJTUBgm2VzLlnASMbqhJj2yhDRMNTDYHr9lgQ34QExWtDRsD2Uza
+7DaYXrPN3O8hbejNe/aNns8a08XS65e9daDR/CbXsLEldniWY7o6Vwf+O30p
+m2/OAhtIusN8oV0HrA8wve4jWmA6Azhx+rAuaIxwucxUmWPaFj9U3tzVBe/D
+Vn9aTphhNJvRIVdf6sLHfncxpaemWF/x4SqjLV24+nxTrtrLFNOaFqAb0NaD
+a6MhX3naTTBNb8sxfFEPGKsjLVGgMUbNMEcTxagP4kWcpHV+Y6z3nv9ZpTP6
+0KNAtE6pM8I0fqeVN6XoA/PFv1GHEw0x9fh2r+qTBjDaltCkZ6aPqV7j281x
+NQT7b6/CW4K0MSrS/M3Uy4Ywric1UUGljfVYV2tG3zcE9hJryvsFWpgml1Sm
+564hSODkc3Tdmpjedew4VmIEG9Zxt+JkNTC6GKoncl1GoGlVHmk6qo4NOzxz
+E/tsBGQKjhM/w9QxkWzhscvHjGF3v3dCyBM1rMak8XjYRWPo+DtXm+ylih1W
+zfm+GmUMcjOYeQ+HKuYtE/zEO9sYunK8Gy/1qWASR8+4O7cag6qZ98M0CRWs
+YRSv0z9gArJ950ISDwD2wGr4rECFCXw1utNa8eUsxqx9j76s2QTuNcQlyAae
+xYIVr37k6DOB5p1zi1tbypgcp2Uiw3cTiGnYkNg8ooy1THwY2DpnCkkr/k05
+BEWMbZBcGmJsCtViltnXf5zBiO0Vft9dTSFhotf5yuUzmGKpO/Ony6bAf9f9
+7uITBazd/qvNyLgp/BCMFLmrIY9xG74Q11sxhV8sDdn9X+SwKHR/5+muKTwf
+uO+VkiOHId7QinYhM8hvmWBpmZPFOqe3lypDzGBi//d6rmIZrMeVjhTNZA6P
+y9OFZrWlMLbv4b/KTprD6B0FBbud05hnxGJQp7I5BEo7NePepzHanC5fKndz
+iBt8KVFjLImZ4iTXS23mwLRzMbBESQK7rbMwXTNsDi3PVtmpH4ljv0bNHIbm
+zEG860PeyDlxrHBZ0oaRwQI4MqepLXTEsI8cnwzzXSzgwION+++iRDCp26ZD
+LUQLmEw/RLfLIIIlnO7UGU+3gEeWrTlit4QxIc0S9WOtFnBWauS+90shzCfY
+RLmC1hL+vvi0P1X9JPbn+eOT9c2WUDY3PKsXzY/p24jfGu63hLMtGsFx4vxY
+2Xwh3+qUJShli4+enjyBqfwNPiZ7yAosl5JEZ9EJLE1E7EibvRWoL1IpvWbj
+wyaarmVOBFkBmx9liUI5LyaBHaDbTrWCHZeDRsasvNgLi2nqvaaAY9Dh/J2a
+B2NLLNjuobYGObdCjlxqbsyTYX/EwjFraKtbahRMP4Y9KgrcOChtDdxVZczz
+R49h9vf0f+raWoNkN2VplygXdvsD5dJIozVs0Dt/WPDlwKQV/V+/t7aBR0yZ
+7vVGrFi62z7jfB8bIK1DZdsWC7aQnTNkEGcDxUQxTPIOC1b8uekpXmUDb4bI
+r8/sY8EoSzZby3/bAKcU6bRQLzNm9+ySnM1hAgR+mzw4HMGMtaxx3T/CQ4C2
+W0odjVLMmJf++ZoEDQIUbrb60pYfwV7vxJe65RFger1GKi+dCZMUO8p5vJoA
+cdLtQRG6TFia5e38N+0EmH806xx0iAk719ibqTlHgD/cp1oOsTJit51o40Vk
+bOHR0S8F/tL0WGh3nvvKC1sI1jgf69Z9CBv5fnL29pwtmBKQvof9IUyMu9XB
+fsMWUux3smm3aLCpkHdWwzx2MMx75AW3PA2mKcSje8/XDg6uGnytJFNj5aaN
+vZ7xdoAVvHffcqfG/sSA2ol8O1Ck3f37Hz011vDW5dzVDjtIE4oO9HA+gLFf
+qpIMobWHLirNd1Mc+7Ggh4q1Erz20EZof/27nwobmukX/iRjD33Bf7wNo6iw
+OOUVPkuCPcx29KdVzVNiS8tSRxXv2kMZI/3P4G4KrM3w0cZfTQf4iXU+u+G1
+i/azveW1tXMAq6m+EbqFf8j4w5rWo0AHkP5B+bLN9R9a8D5VSCp1gBInPdda
+9x3Ecqlc8dcPB0jZ/6n9fcJf5Gj82Mn8oCPk3y06osj4F9WwT6Q1cTtC7/3L
+hNTrf5BK5dF3gVqO0Jezb3uKvIX8ulPCv5U6woD27+ZUrk3UdvlWhcEDRwhC
+Oc0FDzfQftPO/rpnjpCtT0lnbbqBSqa3OL1/OoKmRHjL6+zfaD5G4cOagBOk
+qD44Oc/3Cx0pvRsdEL6H30rWRqX+RC27rUf4kpxgLepjvr/yT2Tn2nvnRaYT
+0LDc4qv99gNVi809l7ztBNRUN4o/EX4g1MbN83XYCfrXPmmOqKyieW7xB6Xv
+nKDJIuLsx+3v6HKckqb+vBPMYoyqBNJ39EbL0q92ywlsCGbuU6HfkM9YFn5R
+0Bm+P/0zwX55BTErl5lynnaGXxQHPkmxrKDW63ULfUrOkPTZt+lc+TKidO9n
+EDFyBh7n5TeH8S+oaI3ScSHcGU4oNa2VMn5GvUxhuy4vnKF2VPD5F6oFtKL2
+qnH6nTM40Bp1Ctd+QsxESSeHeWfY6PhQ/srsE3L4sNBps+UMcU1sDIS78+j3
+XasEYwEXOLmpl5zuNoe4PzTJDJ9ygdTXp5ny2eaQKhPTnJ6iC7xkY1j80D+L
+MsP61LQMXOCqTFPoMblZJKSmdAARXUAtk2+1lW0G6YflP2yPdwHD1+oMcq+m
+UdDdH+5K6S4gtjR7ry9zGuGMNb1yFS7gf/a0lCjtNLJ8z5UmPugC18ujJAv4
+plBy6PZhTl5X+DIdGzOVPYFqqq3bC0RdgT2DJviz0AQamWz2ZpFzBd8r1wNu
+4e8Qt6rvEKOOK1yZo7tGszaOmhmmMqiDXaFGRpg04fcWTagoo6RoV6jLfdN1
+48hbtC+04BtFmiukLr0Q/vhwDOlPGhrtlLrCxPWwsSbKMTRfRWZa73UFuecx
+MYz1o+jw5LEngS9dQWrNrmCXMIqkGEiB3yddweuSYeLZw6MoKkTq1ZdVV1g1
+mU2I93mNWFQqcme43CCrjvrKQ+wVUp9IYHvh5wbJlZ6jMdwj6NuHAM1CkhsU
+avTkSHa9QIUzDmHOCW7gz0FDOG7wAn1dUh5by3eDiOQT3zk9h1HBxs98jsdu
+IHfLrHzi/hBaZHFldaF133tvVyyFsvrRVQ4TDXFWd3BxjmnVle5H57ix0HUe
+d5jsXi98PtqHsgWOvUmRcYfrxAbWCd4+pCjzOq/Wxh0oqFkn4p72ostGaiy/
+qtzh3Ti9/KRuD5Izk1bH77vD1Zk5uvJ9PWjKkjcktd0dBuxlXpJau5Gsw9/X
+nC/cYcGJbcJCpBu992nKRb/d4UCwYqARWxc6dVngaJr6BXBm0Y7Y4e1E4xlH
+1EwML8BPDjJ/wAAZJeTsBnFZX4AbG94mhZZkNFY4+arO+wJYTV6XWArGUUxV
+7tWXVy/AgaDFrPEnHWikh4r52MwFyFdTS/1wpw2t5bdea12+AEwryR2foQ2x
+eXgfN/99AUrKE/gvffgP2R56LZJB6wH1vTJUnsf+QwsGN7FdeQ9gOS/ksFXd
+gg7xWj4tAQ94LO9W/sOoBUmsHtJT1POAj0YHH+hvPkSBVwMtA508oPjr2hyL
+wUO0PQa+c5c9QJSBZd6CuhnxVq//jM33AGHZLNuh1iakGl5N4i73AILWK9FI
+ryaUeowpyeKhB7h6hpz0e/0AMTt9LH720QPUU94GCzbdRyKfo/tq5TzhsFfA
+5rBeI9J7JG2ojXkCU8VYQeTLBuR35dPreR1PENHbJdPZNKCmUwYfjzt6gv7y
+WQfctx6hIO7fWZc8IUjSSCanrhY5q41ESuR5QsuWW30u1KIkliSK/jJPIIiH
+cqqM1aD+lmU6ymZPkGWnOZZAXYPM/z4SCJnyBM1TrPuXwqsRccjvLtNnT5jJ
+K4hP56pGxdf5T9eveQL7eILe3Y4q9BG7rLxAcxF0Fa1M5Q5UIa8kGxNr2YuQ
+4GYi/6PyDoqn34w5l3YRBAQLOaxFbiGRxvNJglcvAv9fSr93szfRsHHiJbrS
+i7DyspySUHYTcecx5L1vvAjtLrQ8uhw30X9cJ+9Gvb0ILgSJ/Hj2CrQqbPq6
+Q8gLwpJs2O7GlaFr/dfGb0t5QYaErKYZcxlC3h8+pCt7wecssZCcO9dReoPn
+kp2hF9ys5CM+GClFIvKxO9uhXvD7BcpdUixBTqp1wuefeoG7V8i3EP1CdHD+
+h8TJF14gWYvuDK9fQw3JZ2To33lBO3ezrWfZNbTd13Xuw4oX5GelOOr8KkCF
+Ru9Molm8YaUXq1S/n49G7KijHrt6Q4hgdLuPQy4i/tOLv+PrDZNzcladHLmI
+pzwnJYO4x5fkvnVk9CrymePOsb/iDcRNlydlBlcRjZds5c4Db2BmuaWyTz8H
+YUSnkfOUPtBmTrBZ/JSJLiyt/Vij9QGxghCpc+GZKNMm9WgNqw8MGYfRsDBk
+ovdnGyzZRH2AyyGJ8cy5DBSxb/v9NyMfOO73lrH17hXUfOna5xvXfSCOkfsd
+PE1Dk3/EaC2rfOArLWeXi18aovTBJeju+8BiyIpLG0caMjH85E/q8QG2JK6r
+awGp6Buz7G/jZR+QCdMLFTqdgkRKhykplXwhdDHQlv5jIjKidxH8T9UXErrE
+/uQVJaKwmF8afvq+UDVUxXTUIhE9deK+NOHoC/zGb1bnhxOQy0kvxqYUXxCp
+FlJNeB6Prjcc4HYb9QUmM8k68mIs6uEtOs815QuLghdnCkmxaCVbwnFk0Rcy
+0f5ffw/HIuVgs5vn/vqCUUjwgo5cDBo/UyHCyu8HYfJr8QGFUYj5yTn5Xn8/
+SHcusk24GY4e7ObXGUX4wY9WJeUjquHIFH0XeJfkB8u2spHMcyR0tb2CeaXI
+D2pf0u9aiJLQkRbq1SM9fhD93KFdtzcM3Vt39CgZ9oOKt5UdbwLCkLFs25Tg
+Oz+IU27equYOQ9n3vJ+f+eYH5Y33cllIoYipdqTGnsMfltn13CLPh6B7n0X5
+F/n94fhf0bGuH8HIWCSxKOCUP8i+2IJTVcEo+458WqKqP/SlnGuyYQ1GTOXF
+7nd9/KFwVT675F8gYsx34/vV6Q8ajmFVehQBqOH142sxg/5AfeXRYNsVf2TI
+zM5IM+YPTqK5XJVs/igzq3+Ha9kfHjp7nngi7YcOalzzLT8cAF8KqGR1onyQ
+1bya6CfGANi/9vQjxVEfVJW4Oi/KGgCGNi4zxrXeSKtLx66JNwDMTMK3iqa9
+UCq2rdsrFwBBVt6iCvYX0dhUNTWtcgD4corG/dv1REIxFl1GWAB8ZP5bdfq2
+J+rtaFB6pxMAsaP7tFtXPRC1srPIikMA5OX9NR4quoBS5HoPMF8KgA/MX0Zf
+Crshjo6z8dsZAfBkqZzQOOeKatTuby9cDYCAu+u6yeWuaNi0dK29NAA4DkXu
+0B13RWyBQTPu9wKAtGVuIXXCBVXV8zxue7uHRSIzmM2ckLJ8nuLt9wHwgiXC
+apvbCQ11HGrOnAmA8/W4hN0LR7Q6uF7juhwAv3tmSh//c0CKXwYK6XcDIJOp
+s9DG3x71CRFDnIUCQZdxtLE+l4AIDSvf9cQD4eMVo0QRREAr8i7eClKBIP4I
+pS58tkFMGgYutMqBwOzHZHhMwwZZuwoYPzQIBGWdhuRfh6zRly+FgzdMA2Gl
+PI2DHbdCUUEMWpetAiHmSk+fbbAVKo/fOu/oHAiCU7tXsRlL9PnGC/FDoYHQ
+eMjQgXbAAkUJa1SthQcCO0Y6MJ1igRgaH/FPxQTCyM0mi3Z1CySD3+FsStvT
+y6bxkNRtjiLeRx60Lw2E/qY32c1DZugwp8jcve5A+J2mknaJ1hRZp8YdOtAf
+CAvy1/u2X5mgql/jp22GA2EyzKjEp8QEqb+6FEXxLhDuuWS8kTttgqKvLLOa
+fguEX38OPWVwMUZDW2rnKtcCQWJq2Jpe2hhxeZa6/NkMhA6bzVvf9xmjFnWD
+xptUQXB9jnGuStMIre40aK9xBIHHbx/90nkDhHwO+mvxBAFn7aFapWwDlD7h
+mF8iEATlY4c0gs8bINFWplk1ySDw3wgkVJXqI5eAoMg8tSBgfbBlnOGrh97M
+yjfI+wXBNwNaHS8LHSRokjl6KTgIQj/KFVdy6KAg8sKfD6Qg6JrdblX6oI0Y
+Sq9ppSQGgZJ3T7eFlzbSttiaHisMAjrKEHaqPC1U0G1yULwsCGxNIlVynbXQ
+vHTNqdhbe/v9GP3sIKWF4hlsI4Qb9vh3cYfSl5ro0bOOo6TuIJhyPsVvz6+J
+aBRYlYf69vhuqfRhWxrI6ravE99wEJj3nAhteqmB1uN46vvGg0CxB7nlJGsg
+1e9hr7mngmCdv2VBwlkDZdu/2AqYCwJq9w8Ts+c10CnlOE3Ob0GwIEKqz/uj
+jqKqx31814KAT+/S1pUJdTTAJp37ZDMIRIppr+a1q6MLazMfL1IFw5XRMI6X
+ceqovE4t/BFHMNzjp3DA2dVRA2V3/a/jwSB5vkYreJ86emytOislEAzfJb7Z
+8H1RQxP7VfSqTgVDzJlpI7tONbRE6IydlQkGujFsa7FODW3cw5qPK+75c0la
+uherIRZ7dDxPNRicai0FTpPUEH/TY5MXWsHQUVZURfJUQ9KHzqccNggGVgP6
+gw02aggcOx5pmAZDuUfI7HM9NWT48Oz3OKtgWA3XnBtDasiOtl2gwy4YzA1J
+7c9k1JC3s7L1hnMw6Jiqn7whrIYiWtvSZTyCYe7Pz1nb42oojV7pia9PMMiJ
+3sK3j6qhAtf/flUHBkNdJvPlOFo1dKftjNh8WDCkH7nAs0ClhpoZWx14o4JB
+T/qnrcSOKupyV8glxAfDrheVmOmGKhppf/gsPyUYuq5Xhln+VEUfj8hvj1wJ
+hmP+gQqK31TRN49mKbqcYPBu1HX7/UUVbT+WddcqCAYzXIYie0kVHWZpKkoo
+CQaO77Qs+xdVEaeXzPDj8mA48tXlrsmCKhLpvE+5dScY6PnOvCbuYQU26TNy
+tcHQztRdHbrHV/e55+1/by9fz9U1dT+rIrOu0+U1D4OhR793aH1ZFblwNI5+
+erRX3zefnEO+q6IAP8lDJzqDodGx7HTfmiqK6ak/b/c0GJz/MLp931RFGVyn
+gq4NBIOglLb053+qqDSgrvLVi718eR9+3nxADdX0ik/Sv9nLv01hgAm9GvqP
+u5ZRZyIYNM0irHFWNfQsSEw96WMwcLVr9fzhUUPzPKL1fz4Hw9K+fXIfZdXQ
+z5DqGfnvwXDUP6AnGVNDFIPCbIHrwbAi5/ljc6++PESh2MV/e/HqSpuoeqgh
+ied3mvj3h0CIijEfe5gaOitwcsn+UMjef5+/52GyGrJ+IWAyejQElDuFRgyq
+1NCFk7eSGTlDYLQ94oNGmxoKjeR/pMsTAqJXrA4dGFJDV4VPCDwRCQHmk7S0
+Y2tqqDy63Gr7VAg88fuUukCjjhpf86afkQ0BWbPpgHYedTQUy/Or/nwIODEP
+vmjUV0cTb66LflYNAU3xusXnburos/hxB0HtEGARPNFYH62OqMePPSs2DYHQ
+ksr4xvvqSEWKsyjVIwTSv3UpV/NroKt+zhmePiEARvcHHyANNFt3N14nMAR2
+F8NHnGw1UJKoshdtZAic4mO8f7tAA/Xy257NygwBvtm6vDYWTcTmfOt0QG4I
+1Na8Kn4ur4k8biwLmBSGQGZVGznWau8+4Y6iO3pzLx8WU5HtpZpIl/X6h4KH
+IRAmkBkeKamFis0+vSQ+CoFX+U663uZaaDnnVK81OQRMMxT+/IzQQukMeANX
+fwiY3XaJ6+3XQi8Ofowtex8CdhQvn7r5aSPzP3z8lVShIPRlKKH8lQ66rXiR
+LZUmFJIK88eKKXTRr7D7hz3pQ0GkmSebW1oXFayprImy79nF/krez9FF71Zc
+eurFQoFvS0znj7Uecvh4+8JDk1D4kqh7a+CfPvLsEantubHHXy4+gRsYo9DP
+ZrqMd0KBvPHE6rGfMUpgiP1sUxMKnXrHdb9kGaNS6zfC35tD4WKwE8WzV8bo
+xUr8bc6BUHjr1CBgTzBBCqyT1/3WQ2FWwLv1or8pOnAhI5tDJwyWeEtmfG+a
+I+Yr/512NQwDpUmbVMJTc8Rzb2643iwMvsqcVj69ZI4U/yjRqzmEgZ5ztlTy
+KQvkk7lwyTc4DIpFID2rxQKNtmCJXdfDgLD2OdaCbIlmJr346W+FwWUKJ1aD
+j5bo276CJ1bVYfBf3K/0zX+WiEZvZXflQRhIDdKp2J23Qmc/Fkax94WBWXZT
+6PJDK3Tz4M9Qn59hMP3U7WvZVWv0g2Vh1G4jDLSD98nr11gj4J+QNdgOgzz1
+C4PRT6zR1LmuH6eoifDIaaTb4Zs1OqXbYsxDS4RsTV4i9X4bFGVV08jARISG
+F7eOCXDaIK6gq77fOYngWVltVqtigy7Gpgx95CFCrtu9NwwWNui/9AjxEQEi
+lK2+OvnWwwZZVrl8vneKCCNaVQnJV2zQnWZL7QoZIsisxnO4ltqg9Se6VTln
+iGDtdSMzr84GXX0v4x6kQoSUV5k3ZgZs0MxnoR4XTSJcqsiyXR+3QVIbXAJm
+ekS4Z3BQWWfBBsXuZ0xQMyaCr6FnzeRPGzR8hGpG1oIIKPcxQ9U/G3ScdwMT
+JBDBrzq/vfIQAflILJexOBKhe/LrxpujBNSu9HFnvxsRzJyP75w+TkCHtV7b
+/fIkAgep83fjSQKyMX/W/smXCF2ZtyhNThFQtXM711gQES54NkgxyBHQhl9j
+eC+RCJIqLxJmlQhIM+rWeEvUHl77tNK3N6/lX7p2piqeCJtcjeYdqgQ0X3Cl
+4FoKEcLPNea0ahCQ7O3YX6lXiJC+eNz3oRYBJdwPNidlE2H0/UjFPW0Ceol7
+NHnmE8FBRvj9rT3MN2TLbFNMBB/SetulPb7/O6NAnRtEYJnyHrDb2w9fUBtR
+uk2E45a0mex759GvnzktdpcIme0pYc3nCciOQiKTq4EIGb8fLJxSJKBaBr6v
+h5v29PEFysRIE9CfYyz6f1uJoFhbVHZDlIB0RGlqlzuIMBW36JTOR0CFCtuH
+3j8hQsKpuRuIjYAW1VY9h3qJoEMxHHTvMAEpmMw/6xjcq7d8xszkjg1KdhgX
+qh8hQidz/vyj7zZo1Hso+fobItxgHnXTmrZBQSnNajEf9+qLXZMxfmyDnuRW
+3/SbJ4JYzQ2qzrt7821FKYXjZyK4bD+27smzQY4N2U5G3/b6883hIcsYG9TQ
+nkTG1oigP1+yGHDBBu30kXikNolwkNb/JJ2BDdIf84nm2yHC0ySL7ydkbNCX
+VfOzFAdJ0LuuHn1zwxop/dMu/kFLgssXLLp331qjNNrzWzNMJOjydijqaLFG
+QkInW7u4SDAwnqem5G+NQmU52Zp4SVB3np91Wdsa9QB96C1BEhSHo8BpPmvk
+avtLJkmSBLcDww+HD1ohP6Ohc1OyJDAV+lYrUWyFItRuaSoqkaBG7Fpe0wUr
+lC1uQlhRI4GMcT/GumWJSnlF3DR19uzfSvre45ao6uiub7khCU6mbQiaJFgi
+/G9dvLkNCfarLk9wUFqi/u+JVxocSHAupUfRGt+7T+YI+TRuJPB87BXETbJA
+y4M0dzv8SJDGZB50eN4ccZS6jQgm7eld/bVjVWqGBLLPTsRcIsHQ/iWsWM0M
+SSYxz49nkkCW/U0X3ZIp0vDp3EgvIsEJywqCpYgpCjrHzfurgQRH+tyfQ7Ix
+ipZaEzFqJsHUjbanAyzGKE1wQOZuGwm0KjdXzFSN0A06kqZ9DwkWPT7RBzoZ
+oKH3r32fviNBQeKqQZq+Dno7UkPk/UgCq8rjnfoK2mi2Jz4+fJ4Ewg+2lTY5
+tNBW3en8U99JkG/EFFvWp46Eoq905O8Ph/DNd85VpRiSCXTp/X4oHO6D1KU/
+m+fQeXelER3GcNiwPKUerqGMzA0W53Y4wyFW58sAb4Mcij+uRnvhdDjUzUQ7
+0AScQOlHuFg75cJBxHftWjViQ4UHfvBwKYeDkwt19nw9JWr4WiYzrB4Oq/uu
+fztgdAR///iPjQIhHCKapWQfJ8rgCg4PqqmTw/fms9usAZo6OKXyvU6ty3uY
+On+VzlsPf87aMJ6Wtad3Yj/LdpEB7vb8Lg1tcTjweBsMVdKa4FfPVXgyNoZD
+SINRRWG/Be7AcSPOuDkcrj4xVfpMbYWLrpcW5rSFQ2eDuP2sjjXeWVvYd7Qn
+HOY3UuSZZgj4N65sEY534aBNChdiF3fCH/3OAJupcOjgT9bVm3HCk19dsS6e
+C4ca4pTktWJnnPtyahr3t3CgnO7nKmJzxXW3Ypb4qCJgxTad+7z8BfzOW99q
+0VMREMRLU/mbxRcPaPLu9JKJgKi2OuqpfX74uayL47VnIoBbbmLGf9UPf6Xp
+TiOpGgH0Zty/7XwD8H0tdp4yVhFAlD93LdovCLfL0xM5Gx8Bl9/YciWNhOEi
+AToQlRIBQreqNQQvEPE1PS3rx1cioOQ9ndryDhG/TKWWhhVEAPvZPjUquXD8
+vyDlJbXaCFD9tCKz/igSZzERrdZ/EwHM7QcaHErjcH7W1VjZiQh4Wh76xm0t
+Dj/9rsWK62MEkPeP98brxeO6zuoHl5YiwO7oy/pDu/F4XKDjhcTtCNj+pjuZ
+H5yIf83JF3wkEAke6cx3nuel4H8s7LbLRSLhuMNXwYv/UnAaLoHR1FORkH32
+SZnaxVRc8Oa9RIszkRDS+pamUzUNJzwYnF3V3fM3Nzp/4sBlvPcVRYVwUCTo
+Jt0jfOrPwEcL+kgMxEhgEj16sFk7E58hZBn/ioyEtZdqpK99mfj2LPe+7uRI
+OHK653jd8yxcdu2Mo0NRJAwMbnWYr2fj5Uf9jud3RkLU/pKsUtlcPNx8ooiS
+MQqEOqLsGAwLcdXdRG4zlijQaH2dmt9QiNPVnLpxizMKWiqidCSYivDy3bjb
+6oJRwNbkzJMzVoT31Qg3pijt2fuNckMCSnA2itCew25RcJdHSTJ7ogyfruXR
+sr0YBawVB23ZDW7gNZZ9/bV+USBcrHH7ZecNHNUde6EfHgVDmkkX1y3KcXer
+rneZmVGQaTxQEqhdgTfXM35nbouC3ixdTUb9W3iMdVugKx4F50rG/oRn3cK1
+qVzXm7qjQDVLipTz+hb+3rply3w4CnY+PhoZtL+NU+23339tLgokdP9eyIm4
+g5sSajiPMURDiJx1ddxYFb5KraEu4BoNzgP3BjVO1OPbRa0pnJ7RwHN8Vrg9
+rB6nOSXWz+gbDdSLUWUrQ/U4nxmj4XZYNIyXoLy0yAbc+MY7qzeXoyFq1mLr
+6Uwjfu+Mn3fqg2jQpU3teXDxPt4xMF0f3RoN06nx/gXF9/E+e7PV4I5owH1L
+5mYG7+PTiYqhTr3RkPc6se7B6Qc40whlrNJENPgw91822H6A+3teu7pMEQOz
+Z/s+b95txiP+HnozQx0DaUvDvJUzzXhKZhT7OG0MPOzYH/eU8yFe1uxc2sMa
+Aw80rf3srzzEh/dJVF4XjQGXE2lr+0NacMmizjYjkxg4YuRlN2T7H/6t//N0
+U3kMOPVw6Uhe7sAfqSdK59yJgRfaop3MIx14Cpk7wa8mBlQGDF9GsD3GeR4a
+CYg2xwBHlFPp+O3HuFH5Q/eyZzGgz7W4NvUMx++FxX9J+xYDjswxs+9zO/Eg
+Ac51+3OxYJLht/JDtBtHZQ/Uz6rEgr2029aoRTd+mFM/n0MzFuZk+aYPJHTj
+NxliFV4bxUKkrsZr08lu/PXWPEnbNRaeWwtl3s7pweVG7u3IXI6FpQUjrwT6
+Xvx3lPZBmvFYcLJX/sCs0Y/HTPVQGn2IhV3X6iHeuH6cGlT+5c/GAtvkjHxh
+ez/OTqX8S+BrLMxyh7c9lx3AS3vyf/BSxEFM31KkreggjuumfjzLFgdOQZ5G
+iaLPcUorr/ZgiIPNojZB1icjeG+qiBK7Whwk6PuFz38awS//t9DySCMOWLVa
+2NcOv8SPcrk+oNCLg4ijwiEvLF7igh9s72ZZxIE2KsrJ+PYS13Q1uFbrFQeT
+1PwXPSRe45f8pYLn8uIgcsmAf3ryDe7H8nrE5locPBSfc5OiHsPN20IlR4ri
+YLBb91+n1BjOQ9X+uaMsDg7zF1rfThnDmws0nAqq42AoxrwuUv4tPvWYYKDT
+EQeCzz5l1N8Yx2XokoUb5+IgcX4w6XT1JM5+Xzj55EIc4DEH645NTuLbFgOz
+JUtxUOP+u9aE4T3+7AZjWdrXOLDn+xRSGvoet5MtZnHZiIPzmwarD7U+4CmE
+RgpW2nh4eUw9BPszhU9Uv5uMkImH2n+ci0SDGZznyVcGIfl4WEjpH/b0m8Gd
+31GovjwTD5fsrstfyZrBlw6JVQufj4dDP70d3F/N4L+8IkJGteLhw5Fu+VDC
+LM506hi9pH08lFV66suFzOFa9+3QTGo86HZ7nel+8Qm/3B8QmH45HhKnaaJN
+Nz7hwzNJt89kxAMlyT6Wi3cBN2euP5x5NR5+Ff6ps/BfwF2Cd8aUr8cDE6uE
+TSzzIh4jX+af9yAeGB4wf33juoQ3t30s1/oQD+49Lo+05ZbxcY2Dtgsf42GA
+fqDkissy/velJGvy7J5/8uIgXc4yrvol+lLXYjyccp1iHvy2jI9wcQed/xkP
+JbacvKh+BV+JtFaTPZgAy2yv38grfMMF0ctPPNIJYMPlMcTxeBXXHti88Vg2
+AZD9mqf9+CrubclHsFNIALmj97Cna6v4Az//4aKzCaBp1SKwK/YDhxv0rSya
+CdB463oCb8kP3G6fbtph2wQomqbql0r4ied2dYn9TkqAANe8i1d81vHxruEe
+j9QE6GhHyWaX13Hu7gmHd5cSgFPR5hiqXscru39e7chMALpYWcnI+XX8vx7+
+vwmFCZD7OUe+0OEX/r43YZCxLgEuGsqdI9n8xgUHVX1EXyeAeuaEapXXJu45
+aEhd8mYvHse6zq30Tbx+kFBON54ABnSNeUGNm7jCUNDo9/cJsKJpTX67volr
+P795rmUhAexJhbeC47dw3xeU9Gp/EqCKx+UAw80/eMvrrnq7E4nA575vsIli
+B7fRguNUgolAd+0LwV1iB99+9Dj9rlAi/HA3mNG22sFVbv7n/Vs8EZw+e8ZV
+1u/gQwENotkKiXBOa/dNp90/fIa++E63XiKYJ7y9Wdizi9NpB14XC0uEV9Hp
+bDQOFOTG9m90L0mJ0LX6X35tGAXZ9LRPFDEyESYX7ee9sijI19g8bHviEmGB
+htLw/BMKMv8nO06HK4kwqyO+KCtEST6ToJ2fU753PpvKvuhflGSXDt6MzYFE
+iIw9uF+kZj9Z6Hb8+8DniTCS+1cop2c/+cuVOfHlF4lgZOsmyvpxPznQtmrg
+w2giuNj78fixHCDH/ZGk6Z5KhGMfK2guxB0glymixIyfiTBQXLYVa09Nnmi2
+C+fnSoKpZ9Xm3yVoyGWleF8JdxLce6T98r0uDdkliY+DlTcJDigJjyx60pA/
+m823HBRMgkRBvNbyDg1586f3+sqpJKAIjUXFvIfIbNKR/q0qSfDMbIVtiPMw
+2aS+yF3/YhLQp2R/DztJR16nYTzX5p0EJ0dJDPmadORCtyRmIb8k8ObhU37l
+QUeePuZP3g1KgifCEww1NXTkgMvqnE1RScBlHsX8SpqenOnxfYgzOwn6nhzo
+Y9NkIA+d0JBbbEkCj2y+4lQ1JrJmwSplwv5kMCj4pDDdykzWdn/bIHAwGXJm
+7O/6DzOTdeVwwtNDyRC9XNjP8omZbPjqygMaxmR4E4OblDMfJVsyCLtkcSbD
+dYvzZ3C/o+QLKfZPSiWToeeDuYCAOAs5OWwgttU6GZJHXP0oHrKSeyxvb6/U
+JUO5U7lhNRMnebHIP825MRmEnpyoVhLnJB/+oMwydj8ZDPN6SDManGRj15fi
+5JZkWKwn/BcSyUl+7/+PkNOZDK7PMqB2kZO8nmbdJj+6h6f/ULv3cJEF2+nC
+Yv4mg14Go1JgFjc5mTf0O6NuCrwMCbG4doaPTD1237hNPwU24k0LtHX4yGnp
+3+67GKWASmUQOmTLR7685RHy0DwFKNburvwXw0fOfE3YIjimQIgzmnzVy0cu
+TAWqypAU+PahZmbL5gS55jst+7kbKWC/QRtnl85PHiHfRJ7rKUBb0PXvicBJ
+ctCX7tj53ykwf4j7sbjiSTIL66dOp60UIIlSKd7RP0m28RJWs/mXAjuFb1Of
+hZ4kz7LUaenSpMKRgM+ZA30nyesXHxpLcKeCU+RDeBUoRGZn6XNZVUuFixe4
+uEVHhMkOnl9TSLmpQHNWv+pgpxh5mprfaCk/FR4u9V6RHBcju9yxZLfeE51V
+wz9xYVWM7DFLrjpzPRWCj56YoD0hTg6wu9r3uzIVSG8D/EUSxcmJxmcOhz5K
+BeE3Z88160qQqxXjMwJnUuGrWxbJZvEU+QcNa57X6TQ4tmyoF1snRX7F1S7N
+KJMGKgY3XvN0SJEfSDi/aJJLg+6Yg/QDg1LkIOP6wztKaWA/QKhXW5Yir1/T
+iM9STwPKWwp2PWLS5E2hML9mmzSwUuA7R1EnTd6n8Vb7X2IaPD0g//JaqwyZ
+Ib5oJ2c8DaRPH5puWZcj+1GcdQoMuwQ7laIbGc1KZCsbJd6UE5fhRA78Y+rH
+yJp3WW5F9V+G0BWLh9YX1cgkCno+8QtXIJ0s6M96VossK+2yxcCUDuNCoM97
+UJ8sc3F0sKYhHST5THTTC43JCkUCriK6GXDnnkvpf5Fm5O7yF5aTPzOAyclm
+O5zBipx3r1BNMzsTNvNSKa6PE8ga8Y5iB3Izob3ts3LRFwL5t4nQkZ78THC6
+AGw3tglk67WmKZWSTOC8o971jM+WfFzhRfj5yj37qKxdxkVbcmX7gXtyHZlQ
+QOu7u7JtS/6vN4hbYCkT6BKXiZzi9uSL15SoZr9kgh4BEkyQPZnLc9+X8q+Z
+4PfOqC7XxJ4cdSizlWctE0pqrvsrkOzJKvp3Tbn+ZYL7ZWGB30/tyQMvP6Yd
+YckCQhpFt7OrAznyZqX/CFsWCJymrz1PdCBLBPtaZnFmgYSGzprAFQdyJstf
+AXreLPCXz29mbHIgm1qxkWnEsoB9NM3HjcqRTCXy4c4ziSz4rnC8L5fdkdy8
+eSs95XQWlFxNuP1c3JHMVixN2C+fBQ/rBVedzB3Jz7w2oftMFlSZFXg88nQk
+k86ShROUs6CBrBrAE+1IFqNLYVA5nwVpjFoMGTmO5Mn3+r92sSxgCXqiQV3p
+SP4fBC1IJA==
+       "]]},
+     Annotation[#, "Charting`Private`Tag$69410#1"]& ]}, {}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->{Automatic, 0},
+  DisplayFunction->Identity,
+  Frame->{{True, True}, {True, True}},
+  FrameLabel->{{
+     FormBox["\"\[CurlyPhi]\"", TraditionalForm], None}, {
+     FormBox["\"radius\"", TraditionalForm], None}},
+  FrameStyle->Directive[
+    GrayLevel[0], Bold, 14],
+  FrameTicks->FrontEndValueCache[{{Automatic, 
+      Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+      Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.025, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.05, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.075, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.1, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.125, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {-0.025, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-0.02, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-0.015, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-0.01, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-0.005, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.005, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.01, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.015, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.02, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.03, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.035, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.04, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.045, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.055, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.06, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.065, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.07, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.08, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.085, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.09, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.095, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.105, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.11, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.115, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.12, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.13, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.135, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.14, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.145, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.15, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}}}, {Automatic, {{0., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {200., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {400., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {600., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {800., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {1000., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {-200., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-150., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-100., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-50., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {50., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {100., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {150., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {250., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {300., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {350., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {450., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {500., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {550., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {650., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {700., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {750., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {850., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {900., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {950., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {1050., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {1100., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {1150., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {1200., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}}}}],
+  GridLines->{None, None},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  ImagePadding->All,
+  Method->{
+   "DefaultBoundaryStyle" -> Automatic, 
+    "DefaultGraphicsInteraction" -> {
+     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+      "Effects" -> {
+       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+        "Droplines" -> {
+         "freeformCursorMode" -> True, 
+          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "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->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.05], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{
+  3.7997441021239347`*^9, 3.8002706194466047`*^9, {3.800270695010317*^9, 
+   3.8002707471914463`*^9}, 3.800270877205411*^9},
+ CellLabel->
+  "Out[354]=",ExpressionUUID->"22ebddef-18bc-479d-a8ff-19e35db5b592"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{"Star", " ", "radius", " ", "in", " ", "Kms"}], " ", "*)"}], 
+  "\[IndentingNewLine]", 
+  RowBox[{"rs", "=", 
+   RowBox[{"(", 
+    RowBox[{"r", "/.", 
+     RowBox[{"FindRoot", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{
+          RowBox[{"testST", "[", 
+           RowBox[{"[", "1", "]"}], "]"}], "@", "r"}], "/", "pc"}], 
+        "\[Equal]", 
+        RowBox[{"10", "^", 
+         RowBox[{"-", "10"}]}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"r", ",", "7"}], "}"}]}], "]"}]}], ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.800270242749151*^9, 3.80027030785861*^9}, 
+   3.800270383268487*^9},
+ CellLabel->
+  "In[355]:=",ExpressionUUID->"cc65265d-0cfe-4427-b7e5-0a15535d81cf"],
+
+Cell[BoxData["8.316582330894995`"], "Output",
+ CellChangeTimes->{{3.80027027391672*^9, 3.800270308797633*^9}, 
+   3.800270384049402*^9, 3.800270459937956*^9, 3.800270644924939*^9, 
+   3.800270755307358*^9, 3.800270885058587*^9},
+ CellLabel->
+  "Out[355]=",ExpressionUUID->"165c943e-61fb-4db1-b256-d4ddb7d91843"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"(*", " ", 
+  RowBox[{"Scalar", " ", "charge", " ", "and", " ", "sensitivy"}], " ", 
+  "*)"}]], "Input",
+ CellChangeTimes->{{3.800270330467413*^9, 
+  3.800270362936037*^9}},ExpressionUUID->"3090482e-6c5c-4f63-b628-\
+0b772cc2d3bf"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"dmm", "=", 
+   RowBox[{"D", "[", 
+    RowBox[{
+     RowBox[{"mm", "[", "r", "]"}], ",", "r"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"d\[CurlyPhi]", "=", 
+   RowBox[{"D", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"testST", "[", 
+       RowBox[{"[", "4", "]"}], "]"}], "@", "r"}], ",", "r"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"scharge", "=", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "1"}], "/", 
+      RowBox[{"mm", "[", "r", "]"}]}], 
+     RowBox[{"(", 
+      RowBox[{"dmm", "/", "d\[CurlyPhi]"}], ")"}]}], ")"}], "/.", 
+   RowBox[{"r", "\[Rule]", "rs"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{"sensitivity", "=", 
+  RowBox[{"s", "/.", 
+   RowBox[{
+    RowBox[{"Solve", "[", 
+     RowBox[{
+      RowBox[{"scharge", "\[Equal]", 
+       RowBox[{"-", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", "s"}], "-", "1"}], ")"}], "/", 
+          RowBox[{"Sqrt", "[", "3", "]"}]}], ")"}]}]}], ",", "s"}], "]"}], 
+    "[", 
+    RowBox[{"[", "1", "]"}], "]"}]}]}]}], "Input",
+ CellChangeTimes->{{3.800269069716412*^9, 3.800269100089019*^9}, {
+  3.8002703908874826`*^9, 3.800270442449894*^9}},
+ CellLabel->
+  "In[356]:=",ExpressionUUID->"8a5b6906-12c3-45e9-94db-2214437f6f1d"],
+
+Cell[BoxData["0.09208161904310339`"], "Output",
+ CellChangeTimes->{
+  3.800270395571419*^9, {3.800270426928735*^9, 3.8002704616329536`*^9}, {
+   3.800270528901786*^9, 3.800270533308147*^9}, 3.800270646481843*^9, 
+   3.8002707563850803`*^9, 3.8002708867414007`*^9},
+ CellLabel->
+  "Out[358]=",ExpressionUUID->"6d432a27-bd5f-486b-a489-63a850ae6102"],
+
+Cell[BoxData["0.4202549786870715`"], "Output",
+ CellChangeTimes->{
+  3.800270395571419*^9, {3.800270426928735*^9, 3.8002704616329536`*^9}, {
+   3.800270528901786*^9, 3.800270533308147*^9}, 3.800270646481843*^9, 
+   3.8002707563850803`*^9, 3.800270886743248*^9},
+ CellLabel->
+  "Out[359]=",ExpressionUUID->"503e8131-6d9d-4f5d-83a6-5c9f15ca6dba"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LogPlot", "[", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "1"}], "/", 
+      RowBox[{"mm", "[", "r", "]"}]}], 
+     RowBox[{"(", 
+      RowBox[{"dmm", "/", "d\[CurlyPhi]"}], ")"}]}], ")"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"r", ",", "rin", ",", "20"}], "}"}], ",", 
+   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+   RowBox[{"FrameLabel", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"\"\<radius\>\"", ",", "\"\<scalar charge\>\""}], "}"}]}], ",", 
+   RowBox[{"FrameStyle", "\[Rule]", 
+    RowBox[{"Directive", "[", 
+     RowBox[{"Black", ",", "Bold", ",", "14"}], "]"}]}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.80027094261069*^9, 3.800270984707211*^9}},
+ CellLabel->
+  "In[364]:=",ExpressionUUID->"843cfd2f-69c2-46f4-8b37-bf4d35a364e2"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {}, 
+    TagBox[
+     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
+      1.], LineBox[CompressedData["
+1:eJwdlXk0lW0Xxs9gylBmZ3LOMSbTi1NkyLPNVCTekGQKRUXGTJWQKYWSQkQp
+DaikDNHzoBRJGSqUzELeIvN0fGd9f93rt/ba97Xva93r2jKeAXbeBBwOtx+P
+w/3/XBdv0LO/hRhcWzxM+6oGrfcK8/L8biEa/baTzZ1qoCYy8mtPz22k4d4z
+R3myGszZLPJZrd9Frn2N4rKPUoWaVH5Fc5kHyMGc1KncvyoQ0yJtYmJWgugc
+PbyFGKkCFnya7uD7GCmeWaXIbFYBXrnbr/LNnyLL5hspSSXKMFmvYp3XXY48
+9O4N9LdXhjb3599y/SoQX90EizC8MjzdMPTLWXuO6Pq60jOeb4PwXXaJ15nV
+CE1J1rZNdRu4fP8mkVVeg1SbaI48/60ESJR3UaZpLdJW5Z61rUIJeKrD6zOO
+oUiA/odD+pZKMKeCV7I8gyH8tQn7EUkl8Fk1C7Awr0da349MXxvbCrtzPq6b
+dTcgt7xwe/wvbYVaX3Ezs8JGRHH3zcPZR7aCmu7BVFO/1wh3ZWbbUf2tINw9
+RDFZe4PUjAWcDf6jCF8lFnSA2YwgTf82pvkoguWo3jlkohlhQrcPwUIRairO
+NRmWtyAJIrjz3kqKkG+/6cAu01YkOIrPv+k/BfDKoAXpHfuIaPOaNz8+rwDH
+nzz5fpP0CbGdOEk/eEwB5En2MbQzn5DPFyIk8vcpQNbP62+p5u2Ipf47kR8M
+BYhIkHGgdHcgI48D1BKa5EHrd+NytkEnovAgIcrpqTxMHvDJIxd2ImaMI3eu
+35QHF4VHIyS/LkSgIyd8T4g8wOvtwVJrn5GU9NgZupI88BAs08WZPciRXPXq
+V/lykP/tvRnfpR4kJe/jmeBLcqD9fN/q6jKn3hR041S0HPgcc/QZ7uxFnl8M
+itQ7JAdNbT4G5YnfkYVvZfHtVDm4kHthfN+ffmTWumMhslgWLtdwfZRRH0BE
+uheF2rJlwbm46UGu1wCSXrUmYZMqC39jdrultQ8gfxrFnD8FyoLsdruWsEeD
+yErf3DPUUBZiczwKzNyGEe6/drmn+2XAJlEuCr02jOD8nyzKdskAJWT0gG7r
+MCLn+Ghw6p0MlFv7CqjpjiBH22Xqe8plYAgXGCYuNoqkPPXy4kmSAaOjMXuH
+m8YQyvyRzRo6MoDbfmspRn0SqfLfOVB8lwkuo//ed/WYRFiOJwdf5jGhKovf
+ySBzEgnqEj7x4xoTTi2HVi4uTyJN43b6NglMGHi1N8z/zS+kaa3pfcdRJmBW
+K7OHXP5DvtsM7jVV4/Djh6epZtNI4HkhaYPzDPBPurAvxXUaiSg2a7QLYQDN
+w33r8ulpZPTmT6HoowwIF5X8+uXhNCImaFnMbcMAjdDz2leEZ5Czu9NKf1MZ
+UKDnNM/3fQbZqrCyZ6KGDufecAcvBM0iHvSTtjpcdIhnH7w6enEW2VWYszV8
+WRpSdMqedRXNIgEeVzzf/JaGrAcOc+VfZhF97Rdx8T3SUHapODRAbw4ZNYpZ
+yHgsDT8OWIWP4+cRFb5i/Y+HpcFgLPVMb/oCYt0xXirRQIMVHvGkV2XLSMvP
+gxZzRVQIvzlQ0tK8jJxVWxDpyKXCgmZp+5eRZcQs6txC5RUqzLiYU/9QVpDa
+3YeacmOoMF4eXsZIXEEGNm+Pr3ehwhfXvq4Yt1WkzKgPDZOkwtMX92RMhNeR
+Ewb1PdQ0Cmx/drNveCcOqBlWP4OukOHXo+NNd92J4HHzR1PilBTksswN+Vp5
+YC7TiIvsKAlWTXvfBG/lhysvuSZHpsRhqTAtl2YlBKh94eapJ2KwjycAx3IU
+BonL1T2ZvqIg617hvDAlAg5NfT8JIAIhaJrBq0gxOG7pcdRUWhhMxqa9HZQl
+QLbU6XNFmRCcGt5uVKghAXHaQsI9RUKQPxBOm9KWAPOdngnLOUKw1IvrPG8i
+AaIPnIfUE4Wg5KMwlLpIQKCYyiVfNyGQrNagcKVJwLj51csiW4Rg8uKptqez
+nPvi9SML/QRBKrniwdqyBNR5KExscxcE04SleAucJJx1vitVckAQbsXE6PcJ
+SkJxcjY+DwTh39D0+3yKkiAguiSqLikIr1yfxLo5SYJ9Ge3pHCoAVzSntYXq
+JOEAvbafLCQAfWZ29v2NkqA3Mo0U4ARAybki4GmLJIh/sZ0gz/EDGht+/0C3
+JAR8InqO9vLDVCeOkj8rCe8v57V2FfODWZjIurqyFDhv1O/rMOSH9JRgMl5T
+CjAPxMRHkx++53/e0akjBXd06qzH5fgh6G22/2kzKbBoOKhfwccP+STZAdRd
+Cn6dYb1xb98ESzVajbbXpcDU1I+7wHUTmHzM7JfNlwLZgEs/evdtgsvDC6tz
+RVLwnsRwWYVNIC/4cnt2uRR0Oe648Ut2E+w/bHJv8IMULFgY/Q0c5YOHG/bJ
+QVwkSPjv4ll3Lz6YF3tx11SABO9cJviz7fkAlEgNkqIkCMlpv/rAmA++2n5f
+qWGQwK/Waf9eJh9w3fY6QdQnwXP2lYGwHl44bBq6LzOQBIxuZjXOmBdePZk/
+Yx5OgrUVGy8PdV5gSoeVLJ0lQdj70qYYCi8MzYdtOpxKgppbMtGzMzzgUxze
+qFBMgpXNVvjDeTzwVmx55mspCfbUGmadSOQBpZgIZkoFCU5td1WTD+SBX06R
+Z37Xk4DoTxs8Y8IDp/ijdSq/k2DVKL/Ge5gb2sPWvH2HSZCtoX7VtIUbtIaj
+M6mTJIjUDYfiJ9xwdd96w4dpEmQZD6onZXHD3MszM+cWSXDuenvwQBQ3HFBi
+M7TYJHj4Mfss3ZMbXmSetRnhInNyMujQsCk3kPAb0VkCZLgzntuXK8sNESfP
+PbIUJYM6PnJ5eYwLens2elZIZHjytjAj6z4XGJjH8JUyyHA7LrK3y5cL2PTz
+3iJqZPi31XupfZIIsZ9iGb0WZEjzQf+LGyPAsAHRJtWGDGo73mwSKSKA6YO4
+aMMDZDjd2VEl4EEAntj4ntueZJCf6/Xa1YOHi6yEq8fPkKGCN7xIuwEHmVnJ
+vOvlZFBUl+Z5MraGzBP4tR9Xk4HsKuK0Y+8a4hCQ4uWBkWGv6vnntCerCNny
+Yv2bD2S4QC478ytoBclfTo26PE4G8xlaRsDwIlLskv6HQadAzs7tn+x8/iI5
+Ro9vuMpTgEs37teZ6hnksmKbUZ4yBbRUr9gX8M8gIdMCmRQdCsRU/bbUs/6D
+QHziTglbCshkm0g4JE0gvY/OnuePpUDcE6+0Myq9yIf0PGWrJApUnS74L7r/
+C4KF1nYmXqaALa9TlFtSJ3IPWVHgzqUAcSsrze9UMxLcGdqy8YwCaJKPwy+N
+66hPVWawYQ0FhG2K2ppOVKDOec9oZzAKzN8uPUnJr0fh6Iz/SisFvjwtME05
++AkVXD0hNj9KgXeTd+UlZ/vRjf6LtawpCpydJjYdXB5E/75+6B30lwKu5ptz
+MtaH0bEHzZufLlHAPd7Prp57DO25PF75h02BQONnXR4i42hrMK+HOjcVHlPf
+jHQwJlHMSZH/pAAV8IftZp01ptBnu8yePRKhgq+Z9QwJfqP3ZL1cJqWo8FO0
+zapWcwbN5o3j3kanQkH9p4L6lb9o6lRh2VF5KhgevNewEDeHnmvHHO8pU6H2
+k2xrxNd5NOhFP25UgwqvdzQGVa8voN657AdyOlRIMfx5v3Z9EXWKkbb33EWF
+6ZN16559S+heb4O1AhMqWPFuUr1WuIwiuw/d7beiQtbUn+CTNiuo1j+RNnRb
+KvQPzrse/rmCKopnL7o4UIH5NrrWJGAVJS9XFuRy9tDVIxoH0sdXUcEfX6x6
+PakwWaXDtefAGrrRMP+X5EsFKeXQP0n5a+jfYvGbjgFUkK0nWfW0r6GjqSyz
+rFAqQNeA9VGudbQ70O53VxQVAsyWQ7i119H3DoHXxWKp8FKfIPfMZx19pZ8O
+dklUOJ72pCUgax29y9125WMmZ0+qem2WmF1Hg7KtdFpKqSC6pTdNopCNxl1L
+kEmvoMKdSKU7jz+w0cyMRgGHl5z+PUYvtZbZ6IvkXQOD76hguzIZvrp3A12N
+0ExeHqbCjlYLuZ6fG6hgmH8wOkkFfqdmJTY3DqMHPTp8YYYKWmvqDmlSOAz8
+FLRENqiwZV48VkcXh8U7k78pUWhQx1Nc/z0Mh11zcHjzm0kDn/AL/goXcNg9
+u6uPK7bS4I3CRNjGFRz2brdQPOyggc3gxFhQKQ7rMd/tz2NAAwfBh49EanDY
+pHGiU6sxhz+wv+1twmFC+ng1J1saEJV0f93p48yjYyhFd6SBFgvNejOOwzRY
+UfiRwzRoFJI1TZvFYXYq858DjtPgRm7weUU+PJZFnTibmEADRU0t7io1PFYs
+pehrfYkGJ2LGSSe18ViV2BF7sUwavP+rvDRoiMd6Bfq23iqkwVyhwxfJfXiM
+sfbp04taGuCHzsmvn8BjGktCL6MbaWDyd5cwPgSPGc/tvmvcQgNR3X+EvkXi
+Ma+p1xFtX2lA9ec7TUvCY/e/V8mO/eX4s3NuhFSIx6q75wVLlmmwpFRnJl6M
+x1q6tBYDcdJwqMD/91IJHptqLXm/LiQN5Tal5IQqjl5dQYjENmm4rWTLP9TG
+6c9LajJ1k4Ymvj9IyzIecxH1UrnuLQ0BDR7WZWw8hktE0ieOS8OttWTbVCIB
+Mz+1cPByuDQMZ+7i0hYiYB3GXv99zZAGVWa6NcIkYJM/EfHjr6WBvOPhN4YZ
+AbvkQo2oa5EGq38yo/OtCJhG+0LflnZpSD0mZiFpQ8DCakqLK/qkIX5okD3j
+QMCIl6j67AVpkPUJ2ONwjIDRtBY9MrbRYTTYaN+7ZAKG3utoGv6HDoljt9U/
+XyJgntQyFW1tOkzh7am9GQTsPpf3fK8xHTTOvXvQlk3AdnztSJJ3oUPeycQ4
+pwcEzCa67HHlZTpY/lIQGG0iYDPTyeL81+jQ2D19P7CFgGV6e0e45NLBW2u/
+xvwHAtZrQzPB36eDx5XczT+6CNhRmZQvu+vpoLUuy7IYImAxTd7rfbN0OOZf
+sWy5SsCM7NzuVK7QoSPXazWcTcAIP5ysMvAM8KybTr6JJ2Lx83uumW5hgKLe
+pGY9LxFLktdSe6TMgNu5IqW+YkTM6olKZ7wmA1bebQ7TlCRi/AYKEa47GaBf
+P/x5ikTEUu1Jb0TMGTAlz3TUoROxjFi2S7gHAxpDly+JKBExu81LBLtjDCgP
+MG7wVCZi4jkz91UCGPDZbCKlUJWIZT0dmfsRzQDrwdbACQ0i5rjrR05VHAO2
+J9aHzGoRMVLzV7iSwgDeZ+Uvp7YTsZyBllSzGwz4xGuQfm8nETt04rUW4xYD
+Bnv0vh/RI2K0pbrupbsMMPK8VyNoQMT64irPdpQwwNbC6Pj1XUQsf8tT+ZJn
+DODBH9o7Z0jE3HIftlyoYcAfvoYWeSBizK1Fp9zqGVDUf0FVyYiIDZbnSeq+
+Y0BU2kdZvDERu214vVb0I0f/q+/Ncg4faUn3nPrMgIgjj6IQEyIm75DC1/Sd
+AXfTMrIecnhsMK7s1jADBk4bBy1yuPjkmX8jJhmQlTwXIWdKxI4th63YzXD8
+1hUL/ofDyhdOFaguMSCsjjUrzeFfwn7mPBsMyB3/HTfD6Xdo01z4Q2CCh9rs
+7RIOa2eqN7vwMGFLrmTDfg5LOavcbN7EBHTxqMUwZ74lhlKAthATFMuRS0c4
+3D0qb3xHmAmfnV0HOznvq3okIyEszgQFnspGDQ5nB9LHo6WYEBpUHhTF8cN5
+XeqyA50Jmnq66UMcv/QaxT0aZTh6XXWbiRymJots11Bggtu24Qgyx9/v4gK9
+m1SZMO1/vvIffSLmqspWqNNlgopPvDufDhHzPDRSJ3eACW/NtPpX1IiYjfV0
+dowTE3yaUwN6OP9BF1kL7TvEhOJD8m6VKkRMWE5c/bonR/9kQETINiL2atIk
+n/8UE5KkvTy5FYgYJfLO2ZkUJjQv2lhtoxGxzhueCIoxob9W8UYvPxEz/TKA
+OavKQFh1Iq5ugoD5HCmRkpmXAaG3mf+WPuHkR5felY9tshC+V2PsRjin7njD
+XShHDvYl7BJ9bcmp92FB1h7yENfhy4kdAjZiXnI/VFcBqhxJzNIZPNbQ4KOl
+RlSE2oYSE6v3eMxVdqS/tU8RDBfueO4pwmM18art/hVbQTn8oL1wDB5zWDaR
+LIhWgteCC72xbnjsyX76ueoD2yAtqcicxcnn3bVv9T2ZynAg78VeASYeK9pm
+YCD0UxkU7xxktBDxWG1ksHvBKxXI2m2rVjiKw8R/RHQ3JKqC9RTSE9aCw5QV
+TEI+eKhBxdD+u1JlOCzm7LcjR9XUQeypTKNEJg7L6jW8TpxXB/feZ4bUKBzm
+R/H+nfjhHwi6dkU+1B2HIdqlrR/2aIBeg9+u7xY4TGn/poo91RrgrtzUWq2G
+w079t7uuRV4TFkacBY+I47Bu0ZBTIsmaEJtSX7ZtZQNlPjy7o3VeE3wkI5MD
+3m2gSS2nimwOaYHqCcUgydwNdN8Jyx0dr7TgxvaLlVEnN9D5c/juZmUWXLP9
+QKIZbqC1tNvyyWkseHzYqydJeAMla8xt7M5gQZDc89J3WzbQMBPzb4JXWeA4
+5h0ryGENv8mM9CwWjK8FHC8U2kCLKrU2ruexYCiBvmWFfwO9aNfYc+8RC0TT
+x1S3cG+gzkkjl1+/ZQFD5F1z+yIbrczV9ktoZkFCu14ggcPij5PMLN+zoGYr
+4ciOBTba9ll17X0bC94UPXS4M8dGjeVCfTs/s6D3dv9Q8Qwb3faK23RomAW+
+j+Pktk+x0YR2R0bRKAtiLD+8j/jFRodGHqx4/2SBwPOXj19OstGbAjZPJyZZ
+sNfrmdGOCTYqfDCLPjPDgvQTIQa8Y2z05Inx5fJZFoy5vfTXHmWjLef0PofM
+s+DYllxhrxE2Gn/vx8WlJRZc15SvfznERgerNY7WrLCg1snObWyQjRp+iDWO
+XmPBiJ9sqjCHcwe6pA3ZLIi0+JamN8BGl2YVlzc2OPPULZV79bPR/wEY+pO7
+
+       "]]},
+     Annotation[#, "Charting`Private`Tag$73409#1"]& ]}, {}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->{0.00001, -2.4082936277620357`},
+  CoordinatesToolOptions:>{"DisplayFunction" -> ({
+      Part[#, 1], 
+      Exp[
+       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+      Part[#, 1], 
+      Exp[
+       Part[#, 2]]}& )},
+  DisplayFunction->Identity,
+  Frame->{{True, True}, {True, True}},
+  FrameLabel->{{
+     FormBox["\"scalar charge\"", TraditionalForm], None}, {
+     FormBox["\"radius\"", TraditionalForm], None}},
+  FrameStyle->Directive[
+    GrayLevel[0], Bold, 14],
+  FrameTicks->FrontEndValueCache[{{Quiet[
+       Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , 
+      Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, 
+      Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{{{0., 
+        FormBox["1", TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {4.605170185988092, 
+        FormBox["100", TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {9.210340371976184, 
+        FormBox[
+         TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> 
+          SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {13.815510557964274`, 
+        FormBox[
+         TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> 
+          SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {-4.605170185988091, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {2.302585092994046, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {6.907755278982137, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {11.512925464970229`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {16.11809565095832, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {18.420680743952367`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}}, {{0., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {4.605170185988092, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {9.210340371976184, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {13.815510557964274`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {-4.605170185988091, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {2.302585092994046, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {6.907755278982137, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {11.512925464970229`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {16.11809565095832, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {18.420680743952367`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}}}, {Automatic, {{0., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {5., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {10., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {15., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {20., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {-5., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-4., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-3., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-2., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-1., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {1., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {2., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {3., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {4., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {6., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {7., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {8., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {9., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {11., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {12., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {13., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {14., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {16., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {17., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {18., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {19., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {21., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {22., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {23., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {24., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {25., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}}}}],
+  GridLines->{None, None},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  ImagePadding->All,
+  Method->{
+   "DefaultBoundaryStyle" -> Automatic, 
+    "DefaultGraphicsInteraction" -> {
+     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+      "Effects" -> {
+       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+        "Droplines" -> {
+         "freeformCursorMode" -> True, 
+          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
+    AbsolutePointSize[6], "ScalingFunctions" -> None},
+  PlotRange->NCache[{{
+      Rational[1, 100000], 20}, {-2.4082936277620357`, 
+     14.920138298485305`}}, {{0.00001, 20}, {-2.4082936277620357`, 
+     14.920138298485305`}}],
+  PlotRangeClipping->True,
+  PlotRangePadding->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.05], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Quiet[
+     Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& }]], "Output",
+ CellChangeTimes->{{3.800270949319919*^9, 3.800270985169726*^9}},
+ CellLabel->
+  "Out[364]=",ExpressionUUID->"351b1ced-1b62-4b15-a826-224777724a80"]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Solving massless case \[Alpha]=\[Infinity], \[Beta]=0 (\[Rho]=0.9) ", \
+"Subsection",
+ CellChangeTimes->{{3.752234605281361*^9, 3.7522346079350986`*^9}, {
+   3.753167070882065*^9, 3.753167090863799*^9}, {3.7531811429438963`*^9, 
+   3.753181146838257*^9}, {3.757147416187327*^9, 3.757147460550118*^9}, {
+   3.757671911245981*^9, 3.757671926111849*^9}, {3.75767223402105*^9, 
+   3.7576722492781773`*^9}, {3.757674083638866*^9, 3.757674084172323*^9}, {
+   3.757756672156261*^9, 3.757756672909164*^9}, {3.7584314309819603`*^9, 
+   3.758431460647915*^9}, {3.75854094907749*^9, 3.758540953951942*^9}, {
+   3.758959848351142*^9, 3.7589598566628942`*^9}, {3.759216333017268*^9, 
+   3.759216334201138*^9}, {3.760348904765798*^9, 3.760348904992159*^9}, {
+   3.7611938141816063`*^9, 3.761193814387906*^9}, {3.761196452310245*^9, 
+   3.761196452439826*^9}, {3.761196637770349*^9, 3.761196637943589*^9}, 
+   3.7611968117273283`*^9, {3.761197001776472*^9, 3.761197002831397*^9}, {
+   3.799728628764008*^9, 3.799728640039735*^9}, {3.799744274066036*^9, 
+   3.7997442876410427`*^9}, {3.800270032986332*^9, 
+   3.8002700487619953`*^9}},ExpressionUUID->"37266eb5-8195-46d9-9a9f-\
+dc6f7b0c4e42"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[Alpha]val", "=", "\[Infinity]"}], ";", 
+  RowBox[{"\[Beta]val", "=", "0"}], ";", 
+  RowBox[{"\[Rho]0c", "=", "0.9"}], ";", 
+  RowBox[{"rfin", "=", "100000"}], ";"}]], "Input",
+ CellChangeTimes->{{3.758960365001339*^9, 3.758960368896003*^9}, {
+   3.759210811184042*^9, 3.7592108204741783`*^9}, {3.76034857506057*^9, 
+   3.760348575310082*^9}, {3.7603486130275373`*^9, 3.7603486132782927`*^9}, {
+   3.760348908398329*^9, 3.760348908636458*^9}, {3.761191827154107*^9, 
+   3.761191827841091*^9}, {3.761191890895837*^9, 3.7611918911590977`*^9}, {
+   3.761193818491131*^9, 3.761193818611755*^9}, {3.761193928601096*^9, 
+   3.7611939288123703`*^9}, {3.761196458733745*^9, 3.761196458839838*^9}, {
+   3.761196652689629*^9, 3.761196652878489*^9}, 3.7611968315373373`*^9, {
+   3.7611970148462563`*^9, 3.761197038302237*^9}, {3.799728661913889*^9, 
+   3.799728671794139*^9}, {3.799730879155096*^9, 3.799730880599743*^9}, {
+   3.79974114556886*^9, 3.799741145739929*^9}, {3.7997414767027607`*^9, 
+   3.799741479179397*^9}, {3.799741516010109*^9, 3.7997415161976233`*^9}, {
+   3.7997416056403637`*^9, 3.799741606072221*^9}, {3.800270053630711*^9, 
+   3.800270057688645*^9}, {3.800270200418695*^9, 3.800270200594396*^9}},
+ CellLabel->
+  "In[243]:=",ExpressionUUID->"f2c60745-11df-4b9e-8051-c69371e69dca"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"V\[CurlyPhi]", "[", "\[Alpha]_", "]"}], ":=", 
+  RowBox[{"Evaluate", "[", 
+   RowBox[{
+    RowBox[{"fR2Pot", "[", 
+     RowBox[{
+      RowBox[{"R", "+", 
+       RowBox[{"\[Alpha]", " ", 
+        RowBox[{"R", "^", "2"}]}]}], ",", 
+      RowBox[{"Exp", "[", 
+       RowBox[{
+        RowBox[{"2", "/", 
+         RowBox[{"Sqrt", "[", "3", "]"}]}], "\[CurlyPhi]"}], "]"}]}], "]"}], 
+    "[", 
+    RowBox[{"[", "1", "]"}], "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.799730870251994*^9, 3.799730895228208*^9}, {
+  3.799732747894565*^9, 3.799732748072727*^9}, {3.799733596198909*^9, 
+  3.799733596378071*^9}, {3.79974056343463*^9, 3.799740566744836*^9}, {
+  3.7997424139592133`*^9, 3.799742427434136*^9}, {3.799743280090276*^9, 
+  3.799743280264242*^9}, {3.799743568973083*^9, 3.7997435857595987`*^9}, {
+  3.799743901444808*^9, 3.799743902574534*^9}, {3.800270113284046*^9, 
+  3.800270134701097*^9}},
+ CellLabel->
+  "In[244]:=",ExpressionUUID->"e7d3970f-a814-42d5-8628-fabec9687213"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"eqsfinET", "=", 
+   RowBox[{"STTOV", "[", 
+    RowBox[{"xx", ",", "g", ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"V\[CurlyPhi]", "[", "\[Alpha]val", "]"}], ",", 
+       "\[CurlyPhi]"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"p", ",", "w", ",", "\[Lambda]", ",", "\[CurlyPhi]"}], "}"}], 
+     ",", "\[Epsilon]p", ",", 
+     RowBox[{"\"\<Frame\>\"", "\[Rule]", "\"\<Einstein\>\""}], ",", 
+     RowBox[{"\"\<PerturbationIndex\>\"", "\[Rule]", "0"}], ",", 
+     RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}], ",", 
+     RowBox[{"\"\<Frame\>\"", "\[Rule]", "\"\<Einstein\>\""}]}], "]"}]}], 
+  ";"}]], "Input",
+ CellLabel->
+  "In[245]:=",ExpressionUUID->"a4192e9e-8e22-4457-9aa1-67d399dbac4f"],
+
+Cell[BoxData["\<\"Variables must be given as: {p,Var_gtt,Var_grr,\[CurlyPhi]}\
+\"\>"], "Print",
+ CellChangeTimes->{3.800270163561726*^9, 3.800270201981956*^9},
+ CellLabel->
+  "During evaluation of \
+In[245]:=",ExpressionUUID->"50897667-9781-4278-a9a3-8ee39432db80"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"di", "=", 
+   RowBox[{"1", "/", "100"}]}], ";"}], "\n", 
+ RowBox[{"tab", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"myeqsa", "=", "eqsfinET"}], ";", "\[IndentingNewLine]", 
+     RowBox[{"\[Rho]c", "=", 
+      RowBox[{"\[Rho]max", " ", "*", "i"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"rin", "=", 
+      RowBox[{"Rationalize", "[", 
+       RowBox[{"10", "^", 
+        RowBox[{"-", "5"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"pc", "=", 
+      RowBox[{"Rationalize", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"eqEoS", "[", 
+          RowBox[{"[", 
+           RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.", 
+         RowBox[{
+          RowBox[{"\[Rho]", "[", "r", "]"}], "->", "\[Rho]c"}]}], ",", 
+        RowBox[{"10", "^", 
+         RowBox[{"(", 
+          RowBox[{"-", "16"}], ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
+     RowBox[{"myeqs\[Alpha]1eff", "=", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"myeqsa", "/.", 
+         RowBox[{
+          RowBox[{"\[Rho]", "[", "r", "]"}], "\[Rule]", 
+          RowBox[{"Max", "[", 
+           RowBox[{
+            RowBox[{"\[Rho]int", "[", 
+             RowBox[{"p", "[", "r", "]"}], "]"}], ",", "0"}], "]"}]}]}], "/.", 
+        RowBox[{
+         RowBox[{"p", "[", "r", "]"}], "\[Rule]", 
+         RowBox[{"Max", "[", 
+          RowBox[{
+           RowBox[{"p", "[", "r", "]"}], ",", "0"}], "]"}]}]}], "/.", 
+       RowBox[{
+        RowBox[{"\[CurlyPhi]", "[", "r", "]"}], "\[Rule]", "0"}]}]}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{"eqsIC", "=", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"p", "[", "rin", "]"}], "==", "pc"}], ",", 
+        RowBox[{
+         RowBox[{"\[Lambda]", "[", "rin", "]"}], "\[Equal]", "0"}], ",", 
+        RowBox[{
+         RowBox[{"w", "[", "rin", "]"}], "\[Equal]", 
+         RowBox[{"Rationalize", "[", 
+          RowBox[{"-", "0.12"}], "]"}]}], ",", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"\[CurlyPhi]", "'"}], "[", "rin", "]"}], "\[Equal]", 
+         "0"}]}], "}"}]}], ";", "\n", 
+     RowBox[{"eqsfin", "=", 
+      RowBox[{"Flatten", "@", 
+       RowBox[{"Join", "[", 
+        RowBox[{"myeqs\[Alpha]1eff", ",", 
+         RowBox[{"Join", "[", "eqsIC", "]"}]}], "]"}]}]}], ";", 
+     "\[IndentingNewLine]", 
+     RowBox[{"testST", "=", 
+      RowBox[{"ShootingNStars", "[", 
+       RowBox[{"eqsfin", ",", 
+        RowBox[{"{", 
+         RowBox[{"rin", ",", "rfin"}], "}"}], ",", "r", ",", 
+        RowBox[{"{", 
+         RowBox[{"p", ",", "\[Lambda]", ",", "w", ",", "\[CurlyPhi]"}], "}"}],
+         ",", "4", ",", 
+        RowBox[{"{", 
+         RowBox[{"150460", "/", "1000000"}], "}"}], ",", 
+        RowBox[{"\"\<Verbose\>\"", "\[Rule]", "True"}], ",", 
+        RowBox[{"\"\<Bracketing\>\"", "\[Rule]", "True"}]}], "]"}]}]}], 
+    "\[IndentingNewLine]", ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{"{", "\[Rho]0c", "}"}]}], "}"}]}], 
+   "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"testST", "[", 
+      RowBox[{"[", "4", "]"}], "]"}], "@", "r"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"r", ",", "rin", ",", "rfin"}], "}"}]}], "]"}]}], "Input",
+ CellChangeTimes->{{3.751811766206811*^9, 3.751811788078196*^9}, {
+   3.751811911948484*^9, 3.751811928632483*^9}, {3.75184597343232*^9, 
+   3.751845976175544*^9}, {3.7518460087135067`*^9, 3.751846012500869*^9}, {
+   3.751846190310767*^9, 3.7518461915528593`*^9}, {3.75184650815858*^9, 
+   3.751846513586975*^9}, {3.751979411570162*^9, 3.7519794439694443`*^9}, {
+   3.7519794759265623`*^9, 3.751979477352743*^9}, {3.75197962132337*^9, 
+   3.751979631487918*^9}, {3.751979665655856*^9, 3.751979691880835*^9}, 
+   3.751979748783423*^9, 3.751979853346014*^9, 3.751979947397644*^9, {
+   3.751980863276256*^9, 3.751980887163767*^9}, {3.751981674447106*^9, 
+   3.7519817248910418`*^9}, {3.751981805383251*^9, 3.751981808481189*^9}, {
+   3.752226633279251*^9, 3.7522266567554502`*^9}, {3.752226715595039*^9, 
+   3.7522267287510138`*^9}, {3.752226821839292*^9, 3.752226841252283*^9}, {
+   3.7522269087894497`*^9, 3.7522269113670807`*^9}, {3.752227006931594*^9, 
+   3.7522270736780376`*^9}, {3.752227118069972*^9, 3.752227138711067*^9}, {
+   3.752227221901513*^9, 3.7522272579199038`*^9}, {3.752227313422024*^9, 
+   3.752227334406859*^9}, {3.752227438229046*^9, 3.752227443051566*^9}, {
+   3.752227554273136*^9, 3.752227563342155*^9}, {3.752227670227501*^9, 
+   3.75222772869241*^9}, {3.752227858829393*^9, 3.752227876761191*^9}, {
+   3.752228025046372*^9, 3.7522280274498053`*^9}, {3.752228161796549*^9, 
+   3.7522282030314083`*^9}, {3.752228440580614*^9, 3.7522284451987553`*^9}, {
+   3.7522286049563637`*^9, 3.752228614626943*^9}, {3.752233670581884*^9, 
+   3.752233671080874*^9}, 3.7522338556718493`*^9, {3.75223466839053*^9, 
+   3.7522347065447407`*^9}, {3.752413203362537*^9, 3.752413224640437*^9}, {
+   3.75241346650229*^9, 3.752413480171154*^9}, {3.7524135649458723`*^9, 
+   3.752413605740526*^9}, {3.752413759764978*^9, 3.7524137647649193`*^9}, {
+   3.757147436108445*^9, 3.75714752868994*^9}, {3.7571476885249357`*^9, 
+   3.757147691120302*^9}, {3.757147727105349*^9, 3.757147777137907*^9}, {
+   3.757147812585622*^9, 3.7571478308864813`*^9}, {3.757148186835968*^9, 
+   3.757148190842628*^9}, {3.757820714840118*^9, 3.757820731952281*^9}, {
+   3.7578207671689463`*^9, 3.75782077362683*^9}, {3.7578208226123037`*^9, 
+   3.757820826477024*^9}, {3.757820950983934*^9, 3.757820983849414*^9}, {
+   3.757821026048717*^9, 3.757821026703146*^9}, {3.7578210648635597`*^9, 
+   3.7578211626559772`*^9}, {3.757821584112419*^9, 3.75782173574968*^9}, {
+   3.7578222849687567`*^9, 3.757822363483889*^9}, {3.757822984488474*^9, 
+   3.757822992479261*^9}, {3.757826798645417*^9, 3.757826963279611*^9}, {
+   3.7578270552691307`*^9, 3.75782711873971*^9}, {3.7578284436770983`*^9, 
+   3.757828446187387*^9}, 3.757828482771422*^9, {3.758959874880513*^9, 
+   3.758959890557139*^9}, {3.758959926662064*^9, 3.7589599601648293`*^9}, {
+   3.758959991096417*^9, 3.758959996979047*^9}, {3.758960339543404*^9, 
+   3.7589603426621513`*^9}, {3.7589833973519173`*^9, 
+   3.7589835475088873`*^9}, {3.7592110485665913`*^9, 3.759211053096925*^9}, 
+   3.759216321187221*^9, {3.7603485498428917`*^9, 3.760348573574058*^9}, {
+   3.760348619593515*^9, 3.7603487709948683`*^9}, {3.7603488180472517`*^9, 
+   3.76034885507169*^9}, {3.760348945156185*^9, 3.760349415862315*^9}, {
+   3.760350097219532*^9, 3.760350324766295*^9}, {3.761191804544631*^9, 
+   3.761191808295714*^9}, {3.761191931820159*^9, 3.761192345732918*^9}, {
+   3.761193839376589*^9, 3.761193904597291*^9}, {3.761193949904818*^9, 
+   3.761194051544373*^9}, 3.761194535920648*^9, {3.761194569630628*^9, 
+   3.761194582613164*^9}, 3.761194664710396*^9, {3.761194946768532*^9, 
+   3.761195024868537*^9}, {3.761195108962014*^9, 3.761195138319393*^9}, {
+   3.761195174742742*^9, 3.7611955234868393`*^9}, {3.761195701890441*^9, 
+   3.761195702341032*^9}, {3.761197431362507*^9, 3.761197434878265*^9}, 
+   3.761197610437681*^9, 3.761197761330946*^9, {3.761197827374948*^9, 
+   3.761197923777866*^9}, {3.7611994064170303`*^9, 3.76119940655284*^9}, {
+   3.761199702153017*^9, 3.7611997420321712`*^9}, {3.761199798586887*^9, 
+   3.761199824023198*^9}, {3.761300042288076*^9, 3.761300148438778*^9}, {
+   3.7613010194331713`*^9, 3.761301052605021*^9}, {3.761454463312401*^9, 
+   3.761454568382906*^9}, {3.761454753506536*^9, 3.761454766194107*^9}, {
+   3.761645443868292*^9, 3.761645513147262*^9}, {3.761645859680225*^9, 
+   3.761645888718947*^9}, {3.761645933723823*^9, 3.761645935185717*^9}, {
+   3.761646078670492*^9, 3.761646084719283*^9}, {3.761646376661693*^9, 
+   3.761646382561935*^9}, {3.763206861519676*^9, 3.763206993581048*^9}, {
+   3.800268642426085*^9, 3.800268652683538*^9}, {3.800269623769086*^9, 
+   3.800269754571274*^9}, {3.800270204636671*^9, 3.800270210578388*^9}},
+ CellLabel->
+  "In[249]:=",ExpressionUUID->"7b6c4690-015e-4366-94b4-6ab38f039057"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"{", 
+   RowBox[{
+    TagBox[
+     TemplateBox[{RowBox[{
+         StyleBox[
+          TagBox["InterpolatingFunction", "SummaryHead"], 
+          "NonInterpretableSummary"], 
+         StyleBox["[", "NonInterpretableSummary"], 
+         DynamicModuleBox[{
+          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
+          TemplateBox[{
+            TemplateBox[{
+              PaneSelectorBox[{False -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    RowBox[{"1.`30.*^-5", ",", "100000.`30."}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    RowBox[{"1.`30.*^-5", ",", "100000.`30."}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}]}, 
+               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
+             "SummaryPanel"], 
+            ButtonBox[
+             DynamicBox[
+              ToBoxes[
+               If[
+                
+                Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
+                 "Local"], 
+                Style["This object cannot be used as input.", "SummaryEmbed"], 
+                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 2866880, 
+                 Dynamic[Typeset`embedState$$]]], StandardForm]], 
+             ButtonFunction :> 
+             BoxForm`EmbedSummaryInterpretation[
+              InterpolatingFunction, 
+               6686662917728339168924294022376408081151215749346214872992, 
+               EvaluationBox[], 
+               Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
+             "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
+             Dynamic[
+               
+               And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === 
+                "Local", Typeset`embedState$$ === "Ready"]], Appearance -> 
+             Inherited, Method -> Inherited, Evaluator -> Automatic]}, 
+           "SummaryEmbedGrid"], DynamicModuleValues :> {}], 
+         StyleBox["]", "NonInterpretableSummary"]}]},
+      "CopyTag",
+      DisplayFunction->(#& ),
+      InterpretationFunction->(
+       "                                                         -5\n\
+InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
+100000.000000000000000000000000}}, <>]"& )],
+     False,
+     BoxID -> 6686662917728339168924294022376408081151215749346214872992,
+     Editable->False,
+     SelectWithContents->True,
+     Selectable->False], ",", 
+    TagBox[
+     TemplateBox[{RowBox[{
+         StyleBox[
+          TagBox["InterpolatingFunction", "SummaryHead"], 
+          "NonInterpretableSummary"], 
+         StyleBox["[", "NonInterpretableSummary"], 
+         DynamicModuleBox[{
+          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
+          TemplateBox[{
+            TemplateBox[{
+              PaneSelectorBox[{False -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    RowBox[{"1.`30.*^-5", ",", "100000.`30."}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    RowBox[{"1.`30.*^-5", ",", "100000.`30."}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}]}, 
+               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
+             "SummaryPanel"], 
+            ButtonBox[
+             DynamicBox[
+              ToBoxes[
+               If[
+                
+                Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
+                 "Local"], 
+                Style["This object cannot be used as input.", "SummaryEmbed"], 
+                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 2843560, 
+                 Dynamic[Typeset`embedState$$]]], StandardForm]], 
+             ButtonFunction :> 
+             BoxForm`EmbedSummaryInterpretation[
+              InterpolatingFunction, 
+               6686662917728339168924294022376408081169662493419924414208, 
+               EvaluationBox[], 
+               Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
+             "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
+             Dynamic[
+               
+               And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === 
+                "Local", Typeset`embedState$$ === "Ready"]], Appearance -> 
+             Inherited, Method -> Inherited, Evaluator -> Automatic]}, 
+           "SummaryEmbedGrid"], DynamicModuleValues :> {}], 
+         StyleBox["]", "NonInterpretableSummary"]}]},
+      "CopyTag",
+      DisplayFunction->(#& ),
+      InterpretationFunction->(
+       "                                                         -5\n\
+InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
+100000.000000000000000000000000}}, <>]"& )],
+     False,
+     BoxID -> 6686662917728339168924294022376408081169662493419924414208,
+     Editable->False,
+     SelectWithContents->True,
+     Selectable->False], ",", 
+    TagBox[
+     TemplateBox[{RowBox[{
+         StyleBox[
+          TagBox["InterpolatingFunction", "SummaryHead"], 
+          "NonInterpretableSummary"], 
+         StyleBox["[", "NonInterpretableSummary"], 
+         DynamicModuleBox[{
+          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
+          TemplateBox[{
+            TemplateBox[{
+              PaneSelectorBox[{False -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    RowBox[{"1.`30.*^-5", ",", "100000.`30."}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    RowBox[{"1.`30.*^-5", ",", "100000.`30."}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}]}, 
+               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
              "SummaryPanel"], 
             ButtonBox[
              DynamicBox[
@@ -5915,12 +9418,12 @@ q5SZmRFAL++xNeOlE0Dwt3AR
                 Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
                  "Local"], 
                 Style["This object cannot be used as input.", "SummaryEmbed"], 
-                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 1486712, 
+                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 2844936, 
                  Dynamic[Typeset`embedState$$]]], StandardForm]], 
              ButtonFunction :> 
              BoxForm`EmbedSummaryInterpretation[
               InterpolatingFunction, 
-               6685490547278413119663134985305171373845323211257069590032, 
+               6686662917728339168924294022376408081188109237493633976864, 
                EvaluationBox[], 
                Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
              "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
@@ -5936,23 +9439,2777 @@ q5SZmRFAL++xNeOlE0Dwt3AR
       InterpretationFunction->(
        "                                                         -5\n\
 InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
-2432.54875486206306193226869744}}, <>]"& )],
+100000.000000000000000000000000}}, <>]"& )],
      False,
-     BoxID -> 6685490547278413119663134985305171373845323211257069590032,
+     BoxID -> 6686662917728339168924294022376408081188109237493633976864,
      Editable->False,
      SelectWithContents->True,
      Selectable->False], ",", 
     TagBox[
      TemplateBox[{RowBox[{
          StyleBox[
-          TagBox["InterpolatingFunction", "SummaryHead"], 
-          "NonInterpretableSummary"], 
-         StyleBox["[", "NonInterpretableSummary"], 
-         DynamicModuleBox[{
-          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
-          TemplateBox[{
-            TemplateBox[{
-              PaneSelectorBox[{False -> GridBox[{{
+          TagBox["InterpolatingFunction", "SummaryHead"], 
+          "NonInterpretableSummary"], 
+         StyleBox["[", "NonInterpretableSummary"], 
+         DynamicModuleBox[{
+          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
+          TemplateBox[{
+            TemplateBox[{
+              PaneSelectorBox[{False -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquarePlusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    RowBox[{"1.`30.*^-5", ",", "100000.`30."}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    GraphicsBox[{{
+                    GrayLevel[0.6], 
+                    AbsolutePointSize[5], 
+                    PointBox[{1, 1}], 
+                    PointBox[{2, 4}], 
+                    PointBox[{3, 2}], 
+                    PointBox[{4, 3}]}, {{}, {}, {
+                    AbsoluteThickness[1], 
+                    Opacity[1.], 
+                    LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                    "]]}}}, AspectRatio -> 1, Axes -> 
+                    False, Background -> GrayLevel[0.93], Frame -> True, 
+                    FrameStyle -> Directive[
+                    GrayLevel[0.7], 
+                    Thickness[Tiny]], FrameTicks -> None, 
+                    ImageSize -> {Automatic, 
+                    Dynamic[
+                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    RowBox[{"1.`30.*^-5", ",", "100000.`30."}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}]}, 
+               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
+             "SummaryPanel"], 
+            ButtonBox[
+             DynamicBox[
+              ToBoxes[
+               If[
+                
+                Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
+                 "Local"], 
+                Style["This object cannot be used as input.", "SummaryEmbed"], 
+                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 3600520, 
+                 Dynamic[Typeset`embedState$$]]], StandardForm]], 
+             ButtonFunction :> 
+             BoxForm`EmbedSummaryInterpretation[
+              InterpolatingFunction, 
+               6686662917728339168924294022376408081206555981567343571280, 
+               EvaluationBox[], 
+               Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
+             "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
+             Dynamic[
+               
+               And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === 
+                "Local", Typeset`embedState$$ === "Ready"]], Appearance -> 
+             Inherited, Method -> Inherited, Evaluator -> Automatic]}, 
+           "SummaryEmbedGrid"], DynamicModuleValues :> {}], 
+         StyleBox["]", "NonInterpretableSummary"]}]},
+      "CopyTag",
+      DisplayFunction->(#& ),
+      InterpretationFunction->(
+       "                                                         -5\n\
+InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
+100000.000000000000000000000000}}, <>]"& )],
+     False,
+     BoxID -> 6686662917728339168924294022376408081206555981567343571280,
+     Editable->False,
+     SelectWithContents->True,
+     Selectable->False], ",", "0", ",", 
+    FractionBox["7523", "50000"], ",", "0"}], "}"}], "}"}]], "Output",
+ CellChangeTimes->{{3.800270176514963*^9, 3.8002702127922077`*^9}},
+ CellLabel->
+  "Out[250]=",ExpressionUUID->"dbc97866-cb98-4423-86d6-8d45d26c2193"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {}, 
+    TagBox[
+     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
+      1.], LineBox[CompressedData["
+1:eJwVzHk0FAobBnBLiBnbmLElIqIrcimq63pf8llbbii7UiQUIXGpe5WsqSNa
+pSSVqC6VLZKdsY/BtDG2EWPfZ1D5pj/e857fOc/zqB4PtPMW4OPji+Hdrx9k
+czqhqacCbSjznX7TG+BCAlulu7cCXy4fzh2d2gCDkktG83qVKGzYncfJ2wDa
+z7hx6wor0Yv2JnPMaAO8p//Q1CyvwrWXQ7q1booQo/HzUE5rFXrvcS9lH1SE
+A+E/I7WZVSi1RUFEc68i9G9ca9++VoU7KmjMka2KIOTLF77LtBqJ5dY3I7kK
+cGBNgGpdV43S5uhedE8B+rTXnzrdWoMveqxav4/Jw0MNt4SunhpUznLf7Tog
+Dx4q+bnGEzVIbPK+Sv0oD0yS0ySRUIsHXZiO7bXy0LOcHfzKqhZHJbRHEjLk
+4VOD5cWpmlqMciprvu0oD7QTcSlnS+vwi3JsmWmHHCS7f337qbEO2WE3XEwb
+5eCg4/Zu/FyH22qYZvuq5KDN5qOcNLcOQdQ0Ofq1HLT8rvng9c561HJJTw1N
+kQPqWn32XH49Xve4XGx/RA4q7wuXn8tuwM/x5wxPDcuCV+9RsmZJAxrcH1eS
+Y8qCqMo7/8/UBiTbxFrTGLJg99hf0WSsAfkOSKl4UmWB9ZwWJqJDxWoB5pmV
+F7x8UZp+2hsqZjw9N7p8jpen6T6vKG/E3fs0YnLEZWFJOn4tqK0R06mRsZEi
+snDffuCIel8jboaVS4f5eXuMVKEEviZ0c1/cqrpIgfO93ON2e5vQYVHpLqWX
+AvfHqjcOU5vQ8YbRnpP/UYC1zjFVrKsZDb4/U7M6QoG2VvZSAKsZ48oLpmUP
+UeDd7QsunQvNGLIpt3PclgLXtR6rplNasOdTVmG2KQV27ZvM03FswfCEzPcn
+dSiQlBrd8teXFnSNOLjKFaLATrV8oTv9rViwrDWlXUaGTeNmvqszrRgc92dm
+bhEZxAq6W47yt6FaUxLqviFD//9WU7XU2rBMsGSzeQ4ZEn0t1EpPtKHwbnJG
+zh0yMPN7THq/taFKY2SxQygZYkE0fPNkO74flKUsG5DBJ2+afuZ7O54xDi6w
+0SPDE8lx2R4hGuY/1/mYsY0MV/7tCNpCoeHI+3cpDhpksDj6ULPMgIacqnHH
+EVkyNCnvSmWdpWHSLf6RVysyQH/g72c0TsMDBgJmGbUyMHifLt/b14H/HvKo
+1fGUgbowK0/N0Q5UZS0U/nSXgef2H3KCZjqQW8y+S3eRgQBC7h5hfjruWMtV
+i3aQgZWIS27b1eiYGHykW9hKBkgueo8uedFR2ch5/63tMmAmf11zC5uO+S/i
+Mwr4ZCDrprVh4FwniuXYvjPNJYGAuW/EtpVOTCs+e52ZTYJj8/Ef2Pxd6F8Y
+aHzxKQmU7KgWXtJd2C0UqFj5iAQ3JS0dnfW68OQW+yzXOySITTQP3xvQhZ3B
++oqjV0jgFwWlcmNdyK/ZRrXyJIH+6Z0mlQPdaOvHLqlRJoFBX1D8EXY3Vs+2
+13UokWCH3X/0iZluXJxV0B5QJIHRLk0fBT4GjhItlwXlSGC8TiE5WJmBj86H
+XXSWJIFF+vcBdVcGNq0MLJnxkcC5pSYmoYuBXn637gkPSUPUNrtWu4aP+Kak
+zU/8pTQEsuU2bmN8xqbGKfknZtKgE2PnWFv1FQ0spUM8p6QgaaOhXRajFw8p
+lV62zZCC3Ic2XTUDfZjgf8LhrasU2K75Pupg9WMXiRgloi4FKTqCxV6TA9jZ
+EE581SMJ2Mwwc2QN4i0bNz1itCTAyE/dyekhlKlaYxdrS8KDsApm1hILxXJ7
+9ocwJeB4WKlg6fgwstLN/x5Kl4DwRdGEkMVvGKJak7jqKgGLg6nRSZMjKFjE
+6D+vLgF08yLT+v5R7OUULPwxJw5r6jrHskbZqJl9SWO0QhxSzzHn+5hjGPmH
+077TN8Uh3Iw1UsEex8NX04JfnRKH8iuXMyqnJ3DAXje7GcXB19C1ZRNrEgeE
+LTMllMXB+2S8s/rkFF7UmyhrWyECVWjGNY41jf8IGflwvhKhnshNjvGfQWeB
+KOt/KohAO6ymrjA9g1pWhzu9HxPhGoMd1OM7i2xWXERLPBFCbn8NnJ2aRdZH
+BcadACIQr/tpGfrPocTSMclQRyJ0V9SZEYbn8EfQYPSkKW9fz1Zc33ce7V7c
+8KjVJoL/5zMp8ax5BN39w8ryRNhVVdqg57eANYIlNv2CRNg51OnhO7mA8r4x
+LqszBPhmnJjf4bOIWtXkdu1+AlR0+725OrGI+uf1TeraCLDv2WhA6KkllIm4
+tgMrCLD+tf616YEljNw+rPIynwCTK89cy7w5yMwLHYzJJEDMhRJWUT8H02rX
+XVpOJUD9b+tEewY5WFCrZ/KBZ+HPB3X4hzm4YLIiFM1z7M6RUFs2BzfouxQS
+f3mKItI/y0Hanz9TNqXwfCxkq6ggFyPuuVraJBMg3lw3wFWDi19a6qKeJhGA
+Ovd3SpQmFx9I/Zbkz/P6zLqip1u56GRMz/yd5/gfbmvTOlz84Do0Xn6V56Kr
+yVcMuVh+7P0KI5EACVrsN68suTjWz+YjJBCgibHjI92ai4lXLPI64gkgFhO1
+yrHl4mxFmc9dnhMH5MzN/uKiv+3wksYvp1l0M5y46CAyds00jte3SlledeFi
+fUFl0nqexTi9G1Xduaj9Ku1Weywvbx960t+T57H9de48N/FXJSaf4GLLN9UJ
+dZ7F8ol5hd5cPPVwSmkihgA2Hk6dX3y4aB/42vEtz4nEJ5w1Xy62lfikR/D8
+f8s++fo=
+       "]]},
+     Annotation[#, "Charting`Private`Tag$42200#1"]& ]}, {}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->{0.00001, 0.00005249290875385255},
+  DisplayFunction->Identity,
+  Frame->{{False, False}, {False, False}},
+  FrameLabel->{{None, None}, {None, None}},
+  FrameTicks->{{Automatic, 
+     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+     Charting`ScaledFrameTicks[{Identity, Identity}]}},
+  GridLines->{None, None},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  ImagePadding->All,
+  Method->{
+   "DefaultBoundaryStyle" -> Automatic, 
+    "DefaultGraphicsInteraction" -> {
+     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+      "Effects" -> {
+       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+        "Droplines" -> {
+         "freeformCursorMode" -> True, 
+          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
+    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& )}},
+  PlotRange->NCache[{{
+      Rational[1, 100000], 100000}, {0.00005249290875385255, 
+     0.00010656442190100815`}}, {{0.00001, 100000}, {0.00005249290875385255, 
+     0.00010656442190100815`}}],
+  PlotRangeClipping->True,
+  PlotRangePadding->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.05], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{{3.800270176514963*^9, 3.800270212896626*^9}},
+ CellLabel->
+  "Out[251]=",ExpressionUUID->"51c94f0b-c84f-4066-b4c4-9d24b6fd79a1"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", " ", 
+   RowBox[{"Star", " ", "radius", " ", "in", " ", "Kms"}], " ", "*)"}], 
+  "\[IndentingNewLine]", 
+  RowBox[{"rs", "=", 
+   RowBox[{"(", 
+    RowBox[{"r", "/.", 
+     RowBox[{"FindRoot", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{
+          RowBox[{"testST", "[", 
+           RowBox[{"[", "1", "]"}], "]"}], "@", "r"}], "/", "pc"}], 
+        "\[Equal]", 
+        RowBox[{"10", "^", 
+         RowBox[{"-", "10"}]}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"r", ",", "7"}], "}"}]}], "]"}]}], ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.800270242749151*^9, 3.80027030785861*^9}, 
+   3.800270383268487*^9},
+ CellLabel->
+  "In[292]:=",ExpressionUUID->"d085706e-a105-47d4-ab54-c587323ea7e2"],
+
+Cell[BoxData["7.327899409133327`"], "Output",
+ CellChangeTimes->{{3.80027027391672*^9, 3.800270308797633*^9}, 
+   3.800270384049402*^9, 3.800270459937956*^9},
+ CellLabel->
+  "Out[292]=",ExpressionUUID->"07235865-1dfb-4e17-9206-09e93c9845de"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"(*", " ", 
+  RowBox[{"Scalar", " ", "charge", " ", "and", " ", "sensitivy"}], " ", 
+  "*)"}]], "Input",
+ CellChangeTimes->{{3.800270330467413*^9, 
+  3.800270362936037*^9}},ExpressionUUID->"4ab87890-76c2-4a56-8e4e-\
+9f0ed3234489"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"dmm", "=", 
+   RowBox[{"D", "[", 
+    RowBox[{
+     RowBox[{"mm", "[", "r", "]"}], ",", "r"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"d\[CurlyPhi]", "=", 
+   RowBox[{"D", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"testST", "[", 
+       RowBox[{"[", "4", "]"}], "]"}], "@", "r"}], ",", "r"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"scharge", "=", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "1"}], "/", 
+      RowBox[{"mm", "[", "r", "]"}]}], 
+     RowBox[{"(", 
+      RowBox[{"dmm", "/", "d\[CurlyPhi]"}], ")"}]}], ")"}], "/.", 
+   RowBox[{"r", "\[Rule]", "rs"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{"sensitivity", "=", 
+  RowBox[{"s", "/.", 
+   RowBox[{
+    RowBox[{"Solve", "[", 
+     RowBox[{
+      RowBox[{"scharge", "\[Equal]", 
+       RowBox[{"-", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", "s"}], "-", "1"}], ")"}], "/", 
+          RowBox[{"Sqrt", "[", "3", "]"}]}], ")"}]}]}], ",", "s"}], "]"}], 
+    "[", 
+    RowBox[{"[", "1", "]"}], "]"}]}]}]}], "Input",
+ CellChangeTimes->{{3.800269069716412*^9, 3.800269100089019*^9}, {
+  3.8002703908874826`*^9, 3.800270442449894*^9}},
+ CellLabel->
+  "In[301]:=",ExpressionUUID->"6190f88e-521c-4d0a-892d-6bb8d284f63d"],
+
+Cell[BoxData["0.10910597419476072`"], "Output",
+ CellChangeTimes->{
+  3.800270395571419*^9, {3.800270426928735*^9, 3.8002704616329536`*^9}, {
+   3.800270528901786*^9, 3.800270533308147*^9}},
+ CellLabel->
+  "Out[303]=",ExpressionUUID->"2167ca09-4ace-4c44-81b0-100d2bce83d6"],
+
+Cell[BoxData["0.40551145464268784`"], "Output",
+ CellChangeTimes->{
+  3.800270395571419*^9, {3.800270426928735*^9, 3.8002704616329536`*^9}, {
+   3.800270528901786*^9, 3.80027053330991*^9}},
+ CellLabel->
+  "Out[304]=",ExpressionUUID->"fd40c151-392a-48c4-a90b-4b4b0a7dfc79"]
+}, Open  ]]
+}, Closed]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Paper Berti: PhysRevD.85.064041", "Section",
+ CellChangeTimes->{{3.792480252993371*^9, 
+  3.792480268952677*^9}},ExpressionUUID->"5749bd47-dc02-4cba-a2cf-\
+201a855b2151"],
+
+Cell[CellGroupData[{
+
+Cell["\[Omega]-ms", "Subsection",
+ CellChangeTimes->{{3.800175366028179*^9, 
+  3.800175396215652*^9}},ExpressionUUID->"ba981157-8458-4263-8a67-\
+f9cf60ef2f96"],
+
+Cell[CellGroupData[{
+
+Cell["Solar system", "Subsubsection",
+ CellChangeTimes->{{3.800273360323029*^9, 
+  3.800273362584247*^9}},ExpressionUUID->"91514f64-9c96-4556-9a7d-\
+de6137f482de"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"xlist", "=", 
+  RowBox[{"Reverse", "[", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"10", "^", "2"}], ",", 
+     RowBox[{"10", "^", "1"}], ",", 
+     RowBox[{"10", "^", "0"}], ",", "0.1", ",", "0.09", ",", "0.08", ",", 
+     "0.07", ",", "0.06", ",", "0.05", ",", "0.04", ",", "0.03", ",", "0.02", 
+     ",", "0.01", ",", "0.008", ",", "0.006", ",", "0.004", ",", "0.002", ",",
+      "0.001", ",", "0.0001", ",", 
+     RowBox[{"9", "*", "0.00001"}], ",", 
+     RowBox[{"8", "*", "0.00001"}], ",", 
+     RowBox[{"7", "*", "0.00001"}], ",", 
+     RowBox[{"6", "*", "0.00001"}], ",", 
+     RowBox[{"5", "*", "0.00001"}], ",", 
+     RowBox[{"4.5", "*", "0.00001"}], ",", 
+     RowBox[{"4.45", "*", "0.00001"}], ",", 
+     RowBox[{"4.43", "*", "0.00001"}], ",", 
+     RowBox[{"4.42", "*", "0.00001"}], ",", 
+     RowBox[{"4.41", "*", "0.00001"}], ",", 
+     RowBox[{"4.405", "*", "0.00001"}]}], "}"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.7924821681270227`*^9, 3.79248217822686*^9}, {
+  3.792482297027713*^9, 3.792482303108605*^9}, {3.792482911233403*^9, 
+  3.7924829251800203`*^9}, {3.792483018380254*^9, 3.792483059339826*^9}, {
+  3.792483312844427*^9, 3.792483313392374*^9}, {3.792483345996736*^9, 
+  3.792483346454281*^9}, {3.792483403541926*^9, 3.7924834417673473`*^9}, {
+  3.7924835769893703`*^9, 3.792483577221919*^9}, {3.792483642211828*^9, 
+  3.792483719846209*^9}, {3.792483752793498*^9, 3.792483808038138*^9}, {
+  3.792483908695217*^9, 3.792483949340746*^9}, {3.792483990210725*^9, 
+  3.7924840783397217`*^9}, {3.792484119674519*^9, 3.7924841625319138`*^9}, {
+  3.8001771396891623`*^9, 3.8001772478848057`*^9}, {3.800177361022973*^9, 
+  3.8001774480063467`*^9}, {3.800177617849517*^9, 3.800177629655754*^9}},
+ CellLabel->
+  "In[368]:=",ExpressionUUID->"9b04f69d-c730-4354-be2b-0ff586112713"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+  "0.00004405000000000001`", ",", "0.00004410000000000001`", ",", 
+   "0.000044200000000000004`", ",", "0.0000443`", ",", 
+   "0.000044500000000000004`", ",", "0.000045`", ",", "0.00005`", ",", 
+   "0.00006000000000000001`", ",", "0.00007000000000000001`", ",", "0.00008`",
+    ",", "0.00009`", ",", "0.0001`", ",", "0.001`", ",", "0.002`", ",", 
+   "0.004`", ",", "0.006`", ",", "0.008`", ",", "0.01`", ",", "0.02`", ",", 
+   "0.03`", ",", "0.04`", ",", "0.05`", ",", "0.06`", ",", "0.07`", ",", 
+   "0.08`", ",", "0.09`", ",", "0.1`", ",", "1", ",", "10", ",", "100"}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.800177153260303*^9, 3.8001772481338987`*^9}, {
+   3.8001773629683437`*^9, 3.800177448259471*^9}, 3.800177629979953*^9, 
+   3.80027303735955*^9},
+ CellLabel->
+  "Out[368]=",ExpressionUUID->"8ba5fccb-8517-4874-a4ee-b289e34b65b2"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"const", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"1", "/", "x"}], ",", 
+       RowBox[{"m", "/.", 
+        RowBox[{"FindRoot", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"x", " ", 
+              RowBox[{"Exp", "[", 
+               RowBox[{"-", "m"}], "]"}]}], ")"}], "/", 
+            RowBox[{"(", 
+             RowBox[{"1", "+", 
+              RowBox[{
+               RowBox[{"x", "/", "2"}], " ", 
+               RowBox[{"Exp", "[", 
+                RowBox[{"-", "m"}], "]"}]}]}], ")"}]}], "\[Equal]", 
+           RowBox[{"4.4", " ", 
+            RowBox[{"10", "^", 
+             RowBox[{"(", 
+              RowBox[{"-", "5"}], ")"}]}]}]}], ",", 
+          RowBox[{"{", 
+           RowBox[{"m", ",", 
+            RowBox[{"10", "^", 
+             RowBox[{"-", "18"}]}]}], "}"}], ",", 
+          RowBox[{"WorkingPrecision", "\[Rule]", "100"}], ",", 
+          RowBox[{"AccuracyGoal", "\[Rule]", "100"}], ",", 
+          RowBox[{"PrecisionGoal", "\[Rule]", "100"}]}], "]"}]}]}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"x", ",", "xlist"}], "}"}]}], "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.792480353082926*^9, 3.792480458528138*^9}, {
+   3.79248075555788*^9, 3.792480755970029*^9}, {3.7924808501130323`*^9, 
+   3.792480850849119*^9}, {3.792480914527608*^9, 3.792480920388804*^9}, {
+   3.792481073013876*^9, 3.792481074331258*^9}, {3.7924813335684958`*^9, 
+   3.7924813389277678`*^9}, 3.7924814107251263`*^9, {3.7924815291119833`*^9, 
+   3.7924815543917723`*^9}, {3.792481803426395*^9, 3.7924818037470293`*^9}, {
+   3.792481872737005*^9, 3.792481927137003*^9}, {3.7924819746798773`*^9, 
+   3.792481990739448*^9}, 3.79248219768585*^9, {3.792482347328526*^9, 
+   3.7924823492385693`*^9}, {3.7924825169321127`*^9, 3.792482628054343*^9}, {
+   3.792482851593539*^9, 3.792482852186997*^9}, {3.792483115135929*^9, 
+   3.7924831267790213`*^9}, {3.792483541737007*^9, 3.792483552560916*^9}, {
+   3.7924836190639267`*^9, 3.7924836192907553`*^9}, {3.792483976852233*^9, 
+   3.7924839771119633`*^9}, 3.7924840216566668`*^9, {3.800174177608321*^9, 
+   3.8001741798596983`*^9}, {3.8001769580785646`*^9, 3.800176960834504*^9}, {
+   3.800177109525546*^9, 3.800177111810503*^9}},
+ CellLabel->
+  "In[369]:=",ExpressionUUID->"3efbf911-69a1-4c12-b496-7f764f1c490e"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "FindRoot","precw",
+   "\"The precision of the argument function \
+(\\!\\(\\*RowBox[{FractionBox[RowBox[{\\\"0.00004405000000000001`\\\", \\\" \
+\\\", SuperscriptBox[\\\"\[ExponentialE]\\\", RowBox[{\\\"-\\\", \
+\\\"m\\\"}]]}], RowBox[{\\\"1\\\", \\\"+\\\", \
+RowBox[{\\\"0.000022025000000000003`\\\", \\\" \\\", SuperscriptBox[\\\"\
+\[ExponentialE]\\\", RowBox[{\\\"-\\\", \\\"m\\\"}]]}]}]], \\\"\[Equal]\\\", \
+\\\"0.000044000000000000006`\\\"}]\\)) is less than WorkingPrecision \
+(\\!\\(\\*RowBox[{\\\"100.`\\\"}]\\)).\"",2,369,79,19650336214106342288,
+   "Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.800174165278363*^9, 3.800174180351301*^9}, 
+   3.8001769613575907`*^9, {3.800177112293079*^9, 3.800177248843892*^9}, {
+   3.8001773656349573`*^9, 3.800177448940645*^9}, {3.8001776315228567`*^9, 
+   3.800177635279467*^9}, 3.80027303798645*^9},
+ CellLabel->
+  "During evaluation of \
+In[369]:=",ExpressionUUID->"8a089ba7-f1c6-41da-9d08-bee973db1d28"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "FindRoot","precw",
+   "\"The precision of the argument function \
+(\\!\\(\\*RowBox[{FractionBox[RowBox[{\\\"0.00004410000000000001`\\\", \\\" \
+\\\", SuperscriptBox[\\\"\[ExponentialE]\\\", RowBox[{\\\"-\\\", \
+\\\"m\\\"}]]}], RowBox[{\\\"1\\\", \\\"+\\\", \
+RowBox[{\\\"0.000022050000000000004`\\\", \\\" \\\", SuperscriptBox[\\\"\
+\[ExponentialE]\\\", RowBox[{\\\"-\\\", \\\"m\\\"}]]}]}]], \\\"\[Equal]\\\", \
+\\\"0.000044000000000000006`\\\"}]\\)) is less than WorkingPrecision \
+(\\!\\(\\*RowBox[{\\\"100.`\\\"}]\\)).\"",2,369,80,19650336214106342288,
+   "Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.800174165278363*^9, 3.800174180351301*^9}, 
+   3.8001769613575907`*^9, {3.800177112293079*^9, 3.800177248843892*^9}, {
+   3.8001773656349573`*^9, 3.800177448940645*^9}, {3.8001776315228567`*^9, 
+   3.800177635279467*^9}, 3.800273037993526*^9},
+ CellLabel->
+  "During evaluation of \
+In[369]:=",ExpressionUUID->"4ac63832-f9d9-4cb0-8816-7c3cdb5ffee5"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "FindRoot","precw",
+   "\"The precision of the argument function \
+(\\!\\(\\*RowBox[{FractionBox[RowBox[{\\\"0.000044200000000000004`\\\", \\\" \
+\\\", SuperscriptBox[\\\"\[ExponentialE]\\\", RowBox[{\\\"-\\\", \
+\\\"m\\\"}]]}], RowBox[{\\\"1\\\", \\\"+\\\", \
+RowBox[{\\\"0.000022100000000000002`\\\", \\\" \\\", SuperscriptBox[\\\"\
+\[ExponentialE]\\\", RowBox[{\\\"-\\\", \\\"m\\\"}]]}]}]], \\\"\[Equal]\\\", \
+\\\"0.000044000000000000006`\\\"}]\\)) is less than WorkingPrecision \
+(\\!\\(\\*RowBox[{\\\"100.`\\\"}]\\)).\"",2,369,81,19650336214106342288,
+   "Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.800174165278363*^9, 3.800174180351301*^9}, 
+   3.8001769613575907`*^9, {3.800177112293079*^9, 3.800177248843892*^9}, {
+   3.8001773656349573`*^9, 3.800177448940645*^9}, {3.8001776315228567`*^9, 
+   3.800177635279467*^9}, 3.800273037999516*^9},
+ CellLabel->
+  "During evaluation of \
+In[369]:=",ExpressionUUID->"47058735-8125-49a5-bd1d-2553eda1a769"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "General","stop",
+   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"FindRoot\\\", \
+\\\"::\\\", \\\"precw\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
+during this calculation.\"",2,369,82,19650336214106342288,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.800174165278363*^9, 3.800174180351301*^9}, 
+   3.8001769613575907`*^9, {3.800177112293079*^9, 3.800177248843892*^9}, {
+   3.8001773656349573`*^9, 3.800177448940645*^9}, {3.8001776315228567`*^9, 
+   3.800177635279467*^9}, 3.800273038005602*^9},
+ CellLabel->
+  "During evaluation of \
+In[369]:=",ExpressionUUID->"d541179d-cefe-4ba6-9fb9-383b81def286"]
+}, Open  ]],
+
+Cell[BoxData[""], "Input",
+ CellChangeTimes->{{3.800273047950485*^9, 
+  3.800273050157572*^9}},ExpressionUUID->"4f6dbc9e-018a-45fc-a0c5-\
+c3e73e2aad7b"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ref", "=", 
+  RowBox[{"const", "/.", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"zz_", ",", "yy_"}], "}"}], "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"4.14", " ", 
+       RowBox[{"10", "^", 
+        RowBox[{"(", 
+         RowBox[{"-", "15"}], ")"}]}], 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"3", " ", 
+          RowBox[{"10", "^", "8"}]}], ")"}], "/", 
+        RowBox[{"(", 
+         RowBox[{"1.496", "*", 
+          RowBox[{"10", "^", "11"}]}], ")"}]}], "*", 
+       RowBox[{"yy", "/", 
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}]}]}], ",", " ", "zz"}], 
+     "}"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.792482275177369*^9, 3.7924822775718613`*^9}, {
+  3.7924829631666117`*^9, 3.7924829634046497`*^9}, {3.800273052202984*^9, 
+  3.800273055572308*^9}},
+ CellLabel->
+  "In[372]:=",ExpressionUUID->"913fa8d3-9c8c-44c2-92b3-f2e8f8fbacc7"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"1.4715853623430614`*^-21", ",", "22701.47559591373`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"2.970537838518258`*^-21", ",", "22675.736961451243`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"5.9633510456274705`*^-21", ",", "22624.43438914027`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"8.949400827296174`*^-21", ",", "22573.363431151243`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"1.4901331909526332`*^-20", ",", "22471.91011235955`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"2.96649097028908`*^-20", ",", "22222.222222222223`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"1.6888054751758586`*^-19", ",", "20000.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4.0978684583972345`*^-19", ",", "16666.666666666664`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"6.134702188541049`*^-19", ",", "14285.714285714284`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"7.899087819765559`*^-19", ",", "12499.999999999998`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"9.455386242403014`*^-19", ",", "11111.111111111111`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"1.0847542620549966`*^-18", ",", "10000.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4.127220885745669`*^-18", ",", "1000.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.04309460028308`*^-18", ",", "500.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.9589683148204904`*^-18", ",", "250.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"6.494720093221069`*^-18", ",", "166.66666666666666`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"6.874842029357901`*^-18", ",", "125.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"7.169687509436342`*^-18", ",", "100.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"8.085561223973752`*^-18", ",", "50.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"8.621313002374331`*^-18", ",", "33.333333333333336`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"9.001434938511163`*^-18", ",", "25.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.296280418589604`*^-18", ",", "20.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.537186716911741`*^-18", ",", "16.666666666666668`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"9.740870089926123`*^-18", ",", "14.285714285714285`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"9.917308653048574`*^-18", ",", "12.5`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.0072938495312319`*^-17", ",", "11.11111111111111`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"1.0212154133127015`*^-17", ",", "10.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.3254620756817686`*^-17", ",", "1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.629708738050836`*^-17", ",", 
+     FractionBox["1", "10"]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.9339554004199032`*^-17", ",", 
+     FractionBox["1", "100"]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.792482278364265*^9, 3.792482305090352*^9}, 
+   3.792482352843977*^9, 3.792482587757072*^9, 3.7924826294278393`*^9, 
+   3.792482860190465*^9, {3.792482902589355*^9, 3.7924829277336473`*^9}, 
+   3.792482977652837*^9, 3.792483061845364*^9, {3.792483116513783*^9, 
+   3.792483127827096*^9}, {3.792483315588278*^9, 3.7924833485084743`*^9}, {
+   3.7924834113902283`*^9, 3.7924834430181913`*^9}, {3.7924835437192183`*^9, 
+   3.79248357870555*^9}, 3.792483620378974*^9, {3.792483670696705*^9, 
+   3.792483688931843*^9}, 3.792483722265934*^9, {3.792483754780497*^9, 
+   3.792483810239943*^9}, {3.792483916771402*^9, 3.792484079655246*^9}, {
+   3.792484122650584*^9, 3.792484164002008*^9}, 3.800174180973463*^9, 
+   3.800176963377943*^9, {3.800177113273684*^9, 3.800177250172995*^9}, {
+   3.8001773673850803`*^9, 3.800177450675609*^9}, 3.800177564954606*^9, 
+   3.800177635847836*^9, {3.800273038459199*^9, 3.8002730558386593`*^9}},
+ CellLabel->
+  "Out[372]=",ExpressionUUID->"d998e05f-9766-4ca6-b1cb-9aa9473dd663"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"const2", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"1", "/", "x"}], ",", 
+       RowBox[{"m", "/.", 
+        RowBox[{"FindRoot", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"x", " ", 
+              RowBox[{"Exp", "[", 
+               RowBox[{"-", "m"}], "]"}]}], ")"}], "/", 
+            RowBox[{"(", 
+             RowBox[{"1", "+", 
+              RowBox[{
+               RowBox[{"x", " ", "/", "2"}], 
+               RowBox[{"Exp", "[", 
+                RowBox[{"-", "m"}], "]"}]}]}], ")"}]}], "\[Equal]", " ", 
+           RowBox[{"10", "^", 
+            RowBox[{"(", 
+             RowBox[{"-", "4"}], ")"}]}]}], ",", 
+          RowBox[{"{", 
+           RowBox[{"m", ",", 
+            RowBox[{"10", "^", 
+             RowBox[{"-", "18"}]}]}], "}"}], ",", 
+          RowBox[{"WorkingPrecision", "\[Rule]", "100"}], ",", 
+          RowBox[{"AccuracyGoal", "\[Rule]", "30"}], ",", 
+          RowBox[{"PrecisionGoal", "\[Rule]", "27"}]}], "]"}]}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"x", ",", "xlist"}], "}"}]}], "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.792480353082926*^9, 3.792480458528138*^9}, {
+   3.79248075555788*^9, 3.792480755970029*^9}, {3.7924808501130323`*^9, 
+   3.792480850849119*^9}, {3.792480914527608*^9, 3.792480920388804*^9}, {
+   3.792481073013876*^9, 3.792481074331258*^9}, {3.7924813335684958`*^9, 
+   3.7924813389277678`*^9}, 3.7924814107251263`*^9, {3.7924815291119833`*^9, 
+   3.7924815543917723`*^9}, {3.792481803426395*^9, 3.7924818037470293`*^9}, {
+   3.792481872737005*^9, 3.792481927137003*^9}, {3.7924819746798773`*^9, 
+   3.792481990739448*^9}, 3.79248219768585*^9, {3.792482347328526*^9, 
+   3.7924823492385693`*^9}, {3.7924825169321127`*^9, 3.792482628054343*^9}, {
+   3.792482851593539*^9, 3.792482852186997*^9}, {3.792483115135929*^9, 
+   3.7924831267790213`*^9}, {3.792483541737007*^9, 3.792483552560916*^9}, {
+   3.7924836190639267`*^9, 3.7924836192907553`*^9}, {3.792483976852233*^9, 
+   3.7924839771119633`*^9}, 3.7924840216566668`*^9, {3.792490163294935*^9, 
+   3.792490169754958*^9}, {3.8001769916561127`*^9, 3.8001769941098957`*^9}},
+ CellLabel->
+  "In[373]:=",ExpressionUUID->"b9d155d0-8b4f-4054-b42c-ccb1e63fe718"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "FindRoot","precw",
+   "\"The precision of the argument function \
+(\\!\\(\\*RowBox[{FractionBox[RowBox[{\\\"0.00004405000000000001`\\\", \\\" \
+\\\", SuperscriptBox[\\\"\[ExponentialE]\\\", RowBox[{\\\"-\\\", \
+\\\"m\\\"}]]}], RowBox[{\\\"1\\\", \\\"+\\\", \
+RowBox[{\\\"0.000022025000000000003`\\\", \\\" \\\", SuperscriptBox[\\\"\
+\[ExponentialE]\\\", RowBox[{\\\"-\\\", \\\"m\\\"}]]}]}]], \\\"\[Equal]\\\", \
+FractionBox[\\\"1\\\", \\\"10000\\\"]}]\\)) is less than WorkingPrecision \
+(\\!\\(\\*RowBox[{\\\"100.`\\\"}]\\)).\"",2,373,87,19650336214106342288,
+   "Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{
+  3.800174183894828*^9, {3.800176966255584*^9, 3.800176994468297*^9}, 
+   3.800177212829187*^9, 3.800177252682181*^9, 3.800177389317418*^9, {
+   3.8001774366889553`*^9, 3.800177453129271*^9}, 3.8001776381739807`*^9, {
+   3.800273039453977*^9, 3.800273057021344*^9}},
+ CellLabel->
+  "During evaluation of \
+In[373]:=",ExpressionUUID->"a53f9c7c-d5b5-4dd8-8b97-5659db357fa2"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "FindRoot","precw",
+   "\"The precision of the argument function \
+(\\!\\(\\*RowBox[{FractionBox[RowBox[{\\\"0.00004410000000000001`\\\", \\\" \
+\\\", SuperscriptBox[\\\"\[ExponentialE]\\\", RowBox[{\\\"-\\\", \
+\\\"m\\\"}]]}], RowBox[{\\\"1\\\", \\\"+\\\", \
+RowBox[{\\\"0.000022050000000000004`\\\", \\\" \\\", SuperscriptBox[\\\"\
+\[ExponentialE]\\\", RowBox[{\\\"-\\\", \\\"m\\\"}]]}]}]], \\\"\[Equal]\\\", \
+FractionBox[\\\"1\\\", \\\"10000\\\"]}]\\)) is less than WorkingPrecision \
+(\\!\\(\\*RowBox[{\\\"100.`\\\"}]\\)).\"",2,373,88,19650336214106342288,
+   "Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{
+  3.800174183894828*^9, {3.800176966255584*^9, 3.800176994468297*^9}, 
+   3.800177212829187*^9, 3.800177252682181*^9, 3.800177389317418*^9, {
+   3.8001774366889553`*^9, 3.800177453129271*^9}, 3.8001776381739807`*^9, {
+   3.800273039453977*^9, 3.800273057031736*^9}},
+ CellLabel->
+  "During evaluation of \
+In[373]:=",ExpressionUUID->"c818faf6-7393-4709-825c-b00491e03a05"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "FindRoot","precw",
+   "\"The precision of the argument function \
+(\\!\\(\\*RowBox[{FractionBox[RowBox[{\\\"0.000044200000000000004`\\\", \\\" \
+\\\", SuperscriptBox[\\\"\[ExponentialE]\\\", RowBox[{\\\"-\\\", \
+\\\"m\\\"}]]}], RowBox[{\\\"1\\\", \\\"+\\\", \
+RowBox[{\\\"0.000022100000000000002`\\\", \\\" \\\", SuperscriptBox[\\\"\
+\[ExponentialE]\\\", RowBox[{\\\"-\\\", \\\"m\\\"}]]}]}]], \\\"\[Equal]\\\", \
+FractionBox[\\\"1\\\", \\\"10000\\\"]}]\\)) is less than WorkingPrecision \
+(\\!\\(\\*RowBox[{\\\"100.`\\\"}]\\)).\"",2,373,89,19650336214106342288,
+   "Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{
+  3.800174183894828*^9, {3.800176966255584*^9, 3.800176994468297*^9}, 
+   3.800177212829187*^9, 3.800177252682181*^9, 3.800177389317418*^9, {
+   3.8001774366889553`*^9, 3.800177453129271*^9}, 3.8001776381739807`*^9, {
+   3.800273039453977*^9, 3.800273057038055*^9}},
+ CellLabel->
+  "During evaluation of \
+In[373]:=",ExpressionUUID->"d6b7d95d-653a-460c-9f17-ff19f802a117"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "General","stop",
+   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"FindRoot\\\", \
+\\\"::\\\", \\\"precw\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
+during this calculation.\"",2,373,90,19650336214106342288,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{
+  3.800174183894828*^9, {3.800176966255584*^9, 3.800176994468297*^9}, 
+   3.800177212829187*^9, 3.800177252682181*^9, 3.800177389317418*^9, {
+   3.8001774366889553`*^9, 3.800177453129271*^9}, 3.8001776381739807`*^9, {
+   3.800273039453977*^9, 3.8002730570441303`*^9}},
+ CellLabel->
+  "During evaluation of \
+In[373]:=",ExpressionUUID->"05ca9c57-7f90-47dc-85cc-c718cdc3f4ef"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ref2", "=", 
+   RowBox[{"const2", "/.", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"zz_", ",", "yy_"}], "}"}], "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"4.14", " ", 
+        RowBox[{"10", "^", 
+         RowBox[{"(", 
+          RowBox[{"-", "15"}], ")"}]}], 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"3", " ", 
+           RowBox[{"10", "^", "8"}]}], ")"}], "/", 
+         RowBox[{"(", 
+          RowBox[{"1.496", "*", 
+           RowBox[{"10", "^", "11"}]}], ")"}]}], "*", 
+        RowBox[{"yy", "/", 
+         RowBox[{"(", 
+          RowBox[{"2", "\[Pi]"}], ")"}]}]}], ",", " ", "zz"}], "}"}]}]}]}], 
+  ";"}]], "Input",
+ CellChangeTimes->{{3.792482275177369*^9, 3.7924822775718613`*^9}, {
+   3.7924829631666117`*^9, 3.7924829634046497`*^9}, {3.792490164011854*^9, 
+   3.792490172204145*^9}, 3.800177324068552*^9, {3.8002730635569773`*^9, 
+   3.8002730667075167`*^9}},
+ CellLabel->
+  "In[376]:=",ExpressionUUID->"7971435f-5055-4a09-9e33-0f0fe97bb315"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListLogLogPlot", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"ref", ",", "ref2"}], "}"}], ",", 
+   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+   RowBox[{"PlotRange", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", " ", 
+       RowBox[{
+        RowBox[{"10", "^", 
+         RowBox[{"(", 
+          RowBox[{"-", "21"}], ")"}]}], ",", 
+        RowBox[{"10", "^", 
+         RowBox[{"(", 
+          RowBox[{"-", "15"}], ")"}]}]}], "}"}], ",", "All"}], "}"}]}], ",", 
+   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
+   RowBox[{"GridLines", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"None", ",", 
+      RowBox[{"{", "3", "}"}]}], "}"}]}], ",", 
+   RowBox[{"PlotLegends", "\[Rule]", 
+    RowBox[{"Placed", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"\"\<Cassini\>\"", ",", "\"\<Not Permitted\>\""}], "}"}], ",", 
+      
+      RowBox[{"{", 
+       RowBox[{"0.8", ",", "0.8"}], "}"}]}], "]"}]}], ",", 
+   RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
+   RowBox[{"FrameLabel", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+     "\"\<\!\(\*SubscriptBox[\(m\), \(s\)]\)(eV)\>\"", ",", 
+      "\"\<Lower Bound on (\!\(\*SubscriptBox[\(\[Omega]\), \
+\(BD\)]\)+3/2)\>\""}], "}"}]}], ",", 
+   RowBox[{"FrameStyle", "\[Rule]", 
+    RowBox[{"Directive", "[", 
+     RowBox[{"Bold", ",", "16"}], "]"}]}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.7924809811634417`*^9, 3.7924810176846333`*^9}, {
+   3.792481050314542*^9, 3.7924810506418877`*^9}, {3.792481172761291*^9, 
+   3.7924811899170513`*^9}, {3.792481377741453*^9, 3.79248138586658*^9}, {
+   3.7924816417501802`*^9, 3.7924816423459053`*^9}, {3.792481702531547*^9, 
+   3.792481706994644*^9}, {3.792481808780587*^9, 3.792481867715866*^9}, {
+   3.792481949597508*^9, 3.792481951556817*^9}, {3.792482017472578*^9, 
+   3.792482023379766*^9}, {3.792482093428446*^9, 3.79248209464964*^9}, 
+   3.7924822279762487`*^9, 3.792482312708346*^9, {3.792482942835244*^9, 
+   3.792482945734926*^9}, {3.7924833565139723`*^9, 3.792483374214595*^9}, {
+   3.7924834699746933`*^9, 3.792483470160303*^9}, {3.792483736734573*^9, 
+   3.792483742141539*^9}, {3.792483820271922*^9, 3.7924838700971737`*^9}, {
+   3.792484411467929*^9, 3.7924844124372253`*^9}, {3.7924879622234907`*^9, 
+   3.792487994778286*^9}, {3.792488099051333*^9, 3.792488099540189*^9}, {
+   3.7924881771418657`*^9, 3.792488218489883*^9}, {3.79248841971767*^9, 
+   3.7924884300810757`*^9}, {3.7924884745484867`*^9, 3.792488474748797*^9}, {
+   3.792490159719715*^9, 3.792490218692012*^9}, {3.800174192042289*^9, 
+   3.800174239580214*^9}, {3.8001742767878113`*^9, 3.800174342669599*^9}, {
+   3.8001773414762077`*^9, 3.800177350219777*^9}},
+ CellLabel->
+  "In[377]:=",ExpressionUUID->"58cf74f9-28e9-4477-aac8-5da15fef6a6b"],
+
+Cell[BoxData[
+ TagBox[
+  GraphicsBox[{{{}, {{{}, {}, 
+       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+        0.012833333333333334`], AbsoluteThickness[1.6], 
+        LineBox[CompressedData["
+1:eJxTTMoPSmViYGCQA2IQbbSRb+3T3+4HFszIzS/hV3F4xfg8/O9C9wO9ta77
+7vOpOLBoLFx10sP9QMg6p7vbeFUcEtjmx14WcT/w7xbDij4eFYd+IWeVCZfd
+DhyJXWHrwKXi8PYG34u8arcD5rzPd7ezqDgIL/V+c36O64EtP5a8nnpO2WFa
+Wf+DCG3XA9FpsattCpUdpvOu1tr83eWAQPydK/5Kyg5veUQehV93OVC3//Ks
+j3eVHOJDD/0MOuByYEbm9+7FC5Uc+BwPa+xb53JALHTr7o3ZSg5vdi1+spnZ
+5cCC//0zuxZKO/AIVq/heeV8IGnHBstDtyUcDJ3v5G244nxApfDizZ+iYg6e
+MTaxq086H1hQzjr7eJmIg8uVFT3Jh5wPPNf8VGkYIOywf1JRE/NeZ6j5Qg66
+69XMFqx1PrBees32S978DifKlZ9lLnU+sExDxCqPl8fhw3k1oSfznQ8Y9779
+7niA0+FYqeunw7OdD0x8XFzt9J3dwe3b1Fm1M5wPaM0KrbrbyOZgEZisfnKq
+84H/NYEKWm6sDn35Me9qJjsf2PFPz2KjCYtDm5LjlrqJzgcUlu/9U+HM7NDe
+Y/x2Tz/MPUwOGTN2icfkOR9ggILt83xevAh2PiAKkT/w9NVsZQY7GF/oAADn
+ZeGp
+         "]]}, 
+       {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+        0.012833333333333334`], AbsoluteThickness[1.6], 
+        LineBox[{{-40.33388481360392, 
+         6.907755278982137}, {-40.070723533950776`, 
+         6.214608098422191}, {-39.86258635706815, 
+         5.521460917862246}, {-39.75830110926688, 
+         5.115995809754082}, {-39.69039563458992, 
+         4.8283137373023015`}, {-39.64072677523365, 
+         4.605170185988092}, {-39.50051568844641, 
+         3.912023005428146}, {-39.4267747629138, 
+         3.506557897319982}, {-39.3775680078727, 
+         3.2188758248682006`}, {-39.34100092354153, 
+         2.995732273553991}, {-39.31208522594442, 
+         2.8134107167600364`}, {-39.288273203203545`, 
+         2.659260036932778}, {-39.26809489568968, 
+         2.5257286443082556`}, {-39.250628172651005`, 
+         2.407945608651872}, {-39.23525804788158, 
+         2.302585092994046}, {-38.94757416581275, 
+         0.}, {-38.72442952872989, -2.3025850929940455`}, \
+{-38.54210724809082, -4.605170185988091}}]}}, {
+       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+        0.012833333333333334`], AbsoluteThickness[1.6]}, 
+       {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+        0.012833333333333334`], AbsoluteThickness[1.6]}}, {
+       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+        0.012833333333333334`], AbsoluteThickness[1.6]}, 
+       {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+        0.012833333333333334`], AbsoluteThickness[1.6]}, {}, {}, {}}, {
+       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+        0.012833333333333334`], AbsoluteThickness[1.6]}, 
+       {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+        0.012833333333333334`], AbsoluteThickness[
+        1.6]}, {}, {}, {}}}, {{}, {}}}, InsetBox[
+     TemplateBox[{"\"Cassini\"","\"Not Permitted\""},
+      "PointLegend",
+      DisplayFunction->(FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    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], 
+                    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], 
+                    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], 
+                    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]& ),
+      Editable->True,
+      InterpretationFunction:>(RowBox[{"PointLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
+                   ",", 
+                   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}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", 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]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
+                     "]"}], NumberMarks -> False]], 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[{"PointSize", "[", "0.012833333333333334`", "]"}], 
+                   ",", 
+                   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}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", 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]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
+                     "]"}], NumberMarks -> False]], 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]", 
+             RowBox[{"{", 
+               RowBox[{
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
+           RowBox[{"Joined", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{"True", ",", "True"}], "}"}]}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"{", "}"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
+     Scaled[{0.8, 0.8}], ImageScaled[{0.5, 0.5}],
+     BaseStyle->{FontSize -> Larger},
+     FormatType->StandardForm]},
+   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+   Axes->{True, True},
+   AxesLabel->{None, None},
+   AxesOrigin->{-48.35428695287496, -5.750469801457443},
+   DisplayFunction->Identity,
+   Frame->{{True, True}, {True, True}},
+   FrameLabel->{{
+      FormBox[
+      "\"Lower Bound on (\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \
+\\(BD\\)]\\)+3/2)\"", TraditionalForm], None}, {
+      FormBox[
+      "\"\\!\\(\\*SubscriptBox[\\(m\\), \\(s\\)]\\)(eV)\"", TraditionalForm], 
+      None}},
+   FrameStyle->Directive[Bold, 16],
+   FrameTicks->FrontEndValueCache[{{
+       Charting`ScaledTicks[{Log, Exp}], 
+       Charting`ScaledFrameTicks[{Log, Exp}]}, {
+       Charting`ScaledTicks[{Log, Exp}], 
+       Charting`ScaledFrameTicks[{Log, Exp}]}}, {{{{-4.605170185988091, 
+         FormBox[
+          TagBox[
+           InterpretationBox["\"0.01\"", 0.01, AutoDelete -> True], 
+           NumberForm[#, {
+             DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
+         FormBox[
+          TagBox[
+           InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True], 
+           NumberForm[#, {
+             DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {0., 
+         FormBox["1", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.302585092994046, 
+         FormBox["10", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.605170185988092, 
+         FormBox["100", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.907755278982137, 
+         FormBox["1000", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.210340371976184, 
+         FormBox[
+          
+          TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-6.907755278982137, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-6.214608098422191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.809142990314028, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.521460917862246, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.298317366548036, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.115995809754082, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-4.961845129926823, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-4.8283137373023015`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-4.710530701645918, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-3.912023005428146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-3.506557897319982, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-3.2188758248682006`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.995732273553991, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.8134107167600364`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.659260036932778, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.5257286443082556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.4079456086518722`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.2039728043259361`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.916290731874155, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.791759469228055, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.995732273553991, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.912023005428146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.0943445622221, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.248495242049359, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.382026634673881, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.499809670330265, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.298317366548036, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.703782474656201, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.991464547107982, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.214608098422191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.396929655216146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.551080335043404, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.684611727667927, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.802394763324311, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {7.600902459542082, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.006367567650246, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.294049640102028, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.517193191416238, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.699514748210191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.85366542803745, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.987196820661973, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.104979856318357, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.903487552536127, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {10.308952660644293`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {10.596634733096073`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {10.819778284410283`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {11.002099841204238`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {11.156250521031495`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {11.289781913656018`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {11.407564949312402`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {11.512925464970229`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {12.206072645530174`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {12.611537753638338`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {12.89921982609012, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {13.122363377404328`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {13.304684934198283`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {13.458835614025542`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}, {{-4.605170185988091, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {0., 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.302585092994046, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.605170185988092, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.907755278982137, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.210340371976184, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-6.907755278982137, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-6.214608098422191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.809142990314028, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.521460917862246, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.298317366548036, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.115995809754082, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-4.961845129926823, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-4.8283137373023015`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-4.710530701645918, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-3.912023005428146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-3.506557897319982, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-3.2188758248682006`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.995732273553991, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.8134107167600364`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.659260036932778, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.5257286443082556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.4079456086518722`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.2039728043259361`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.916290731874155, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.791759469228055, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.995732273553991, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.912023005428146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.0943445622221, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.248495242049359, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.382026634673881, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.499809670330265, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.298317366548036, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.703782474656201, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.991464547107982, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.214608098422191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.396929655216146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.551080335043404, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.684611727667927, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.802394763324311, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {7.600902459542082, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.006367567650246, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.294049640102028, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.517193191416238, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.699514748210191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.85366542803745, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.987196820661973, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.104979856318357, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.903487552536127, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {10.308952660644293`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {10.596634733096073`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {10.819778284410283`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {11.002099841204238`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {11.156250521031495`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {11.289781913656018`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {11.407564949312402`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {11.512925464970229`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {12.206072645530174`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {12.611537753638338`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {12.89921982609012, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {13.122363377404328`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {13.304684934198283`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {13.458835614025542`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}}, {{{-48.35428695287496, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "21"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.051701859880914`, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "20"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.74911676688687, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "19"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.44653167389282, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "18"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.14394658089878, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "17"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.841361487904734`, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "16"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.538776394910684`, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "15"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.66113977231502, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.25567466420685, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.96799259175507, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.74484904044086, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.5625274836469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.40837680381964, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.27484541119512, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.15706237553874, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-45.35855467932097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.95308957121281, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.66540749876102, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.44226394744681, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.25994239065286, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.1057917108256, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.97226031820108, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.85447728254469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.055969586326924`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.65050447821876, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.36282240576698, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.13967885445277, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.95735729765881, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.803206617831556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.66967522520703, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.55189218955065, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.753384493332874`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.34791938522471, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.060237312772934`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.837093761458725`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.654772204664766`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.500621524837506`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.36709013221299, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.249307096556606`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.45079940033883, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.04533429223067, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.75765221977888, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.534508668464674`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.35218711167072, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.19803643184346, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.06450503921894, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.946722003562556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.14821430734479, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.74274919923662, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.45506712678484, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.23192357547063, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.04960201867667, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.89545133884942, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.76191994622489, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.64413691056851, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.84562921435074, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.44016410624258, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.1524820337908, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.92933848247659, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.74701692568263, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.59286624585537, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.45933485323085, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.34155181757447, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.23619130191664, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}, {{-48.35428695287496, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.051701859880914`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.74911676688687, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.44653167389282, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.14394658089878, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.841361487904734`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.538776394910684`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.66113977231502, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.25567466420685, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.96799259175507, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.74484904044086, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.5625274836469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.40837680381964, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.27484541119512, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.15706237553874, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-45.35855467932097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.95308957121281, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.66540749876102, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.44226394744681, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.25994239065286, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.1057917108256, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.97226031820108, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.85447728254469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.055969586326924`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.65050447821876, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.36282240576698, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.13967885445277, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.95735729765881, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.803206617831556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.66967522520703, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.55189218955065, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.753384493332874`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.34791938522471, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.060237312772934`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.837093761458725`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.654772204664766`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.500621524837506`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.36709013221299, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.249307096556606`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.45079940033883, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.04533429223067, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.75765221977888, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.534508668464674`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.35218711167072, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.19803643184346, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.06450503921894, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.946722003562556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.14821430734479, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.74274919923662, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.45506712678484, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.23192357547063, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.04960201867667, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.89545133884942, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.76191994622489, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.64413691056851, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.84562921435074, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.44016410624258, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.1524820337908, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.92933848247659, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.74701692568263, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.59286624585537, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.45933485323085, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.34155181757447, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.23619130191664, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}}}],
+   GridLines->NCache[{None, {
+       Log[3]}}, {None, {1.0986122886681098`}}],
+   GridLinesStyle->Directive[
+     GrayLevel[0.5, 0.4]],
+   ImageSize->Large,
+   Method->{
+    "OptimizePlotMarkers" -> True, 
+     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+         (Exp[#]& )[
+          Part[#, 1]], 
+         (Exp[#]& )[
+          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+         (Exp[#]& )[
+          Part[#, 1]], 
+         (Exp[#]& )[
+          Part[#, 2]]}& )}},
+   PlotRange->
+    NCache[{{-Log[1000000000000000000000], -
+       Log[1000000000000000]}, {-5.750469801457443, 
+      10.030185205582086`}}, {{-48.35428695287496, -34.538776394910684`}, \
+{-5.750469801457443, 10.030185205582086`}}],
+   PlotRangeClipping->True,
+   PlotRangePadding->{{0, 0}, {
+      Scaled[0.02], 
+      Scaled[0.05]}},
+   Ticks->{
+     Charting`ScaledTicks[{Log, Exp}], 
+     Charting`ScaledTicks[{Log, Exp}]}],
+  InterpretTemplate[Legended[
+    Graphics[{{}, {{{}, {}, {
+         Hue[0.67, 0.6, 0.6], 
+         Directive[
+          PointSize[0.012833333333333334`], 
+          RGBColor[0.368417, 0.506779, 0.709798], 
+          AbsoluteThickness[1.6]], 
+         Line[CompressedData["
+1:eJxTTMoPSmViYGCQA2IQbbSRb+3T3+4HFszIzS/hV3F4xfg8/O9C9wO9ta77
+7vOpOLBoLFx10sP9QMg6p7vbeFUcEtjmx14WcT/w7xbDij4eFYd+IWeVCZfd
+DhyJXWHrwKXi8PYG34u8arcD5rzPd7ezqDgIL/V+c36O64EtP5a8nnpO2WFa
+Wf+DCG3XA9FpsattCpUdpvOu1tr83eWAQPydK/5Kyg5veUQehV93OVC3//Ks
+j3eVHOJDD/0MOuByYEbm9+7FC5Uc+BwPa+xb53JALHTr7o3ZSg5vdi1+spnZ
+5cCC//0zuxZKO/AIVq/heeV8IGnHBstDtyUcDJ3v5G244nxApfDizZ+iYg6e
+MTaxq086H1hQzjr7eJmIg8uVFT3Jh5wPPNf8VGkYIOywf1JRE/NeZ6j5Qg66
+69XMFqx1PrBees32S978DifKlZ9lLnU+sExDxCqPl8fhw3k1oSfznQ8Y9779
+7niA0+FYqeunw7OdD0x8XFzt9J3dwe3b1Fm1M5wPaM0KrbrbyOZgEZisfnKq
+84H/NYEKWm6sDn35Me9qJjsf2PFPz2KjCYtDm5LjlrqJzgcUlu/9U+HM7NDe
+Y/x2Tz/MPUwOGTN2icfkOR9ggILt83xevAh2PiAKkT/w9NVsZQY7GF/oAADn
+ZeGp
+          "]]}, {
+         Hue[0.9060679774997897, 0.6, 0.6], 
+         Directive[
+          PointSize[0.012833333333333334`], 
+          RGBColor[0.880722, 0.611041, 0.142051], 
+          AbsoluteThickness[1.6]], 
+         Line[{{-40.33388481360392, 6.907755278982137}, {-40.070723533950776`,
+           6.214608098422191}, {-39.86258635706815, 
+          5.521460917862246}, {-39.75830110926688, 
+          5.115995809754082}, {-39.69039563458992, 
+          4.8283137373023015`}, {-39.64072677523365, 
+          4.605170185988092}, {-39.50051568844641, 
+          3.912023005428146}, {-39.4267747629138, 
+          3.506557897319982}, {-39.3775680078727, 
+          3.2188758248682006`}, {-39.34100092354153, 
+          2.995732273553991}, {-39.31208522594442, 
+          2.8134107167600364`}, {-39.288273203203545`, 
+          2.659260036932778}, {-39.26809489568968, 
+          2.5257286443082556`}, {-39.250628172651005`, 
+          2.407945608651872}, {-39.23525804788158, 
+          2.302585092994046}, {-38.94757416581275, 
+          0.}, {-38.72442952872989, -2.3025850929940455`}, \
+{-38.54210724809082, -4.605170185988091}}]}}, {{
+         Directive[
+          PointSize[0.012833333333333334`], 
+          RGBColor[0.368417, 0.506779, 0.709798], 
+          AbsoluteThickness[1.6]]}, {
+         Directive[
+          PointSize[0.012833333333333334`], 
+          RGBColor[0.880722, 0.611041, 0.142051], 
+          AbsoluteThickness[1.6]]}}, {{
+         Directive[
+          PointSize[0.012833333333333334`], 
+          RGBColor[0.368417, 0.506779, 0.709798], 
+          AbsoluteThickness[1.6]]}, {
+         Directive[
+          PointSize[0.012833333333333334`], 
+          RGBColor[0.880722, 0.611041, 0.142051], 
+          AbsoluteThickness[1.6]]}, {}, {}, {}}, {{
+         Directive[
+          PointSize[0.012833333333333334`], 
+          RGBColor[0.368417, 0.506779, 0.709798], 
+          AbsoluteThickness[1.6]]}, {
+         Directive[
+          PointSize[0.012833333333333334`], 
+          RGBColor[0.880722, 0.611041, 0.142051], 
+          AbsoluteThickness[1.6]]}, {}, {}, {}}}, {{}, {}}}, {
+     DisplayFunction -> Identity, GridLines -> {None, {
+         Log[3]}}, DisplayFunction -> Identity, DisplayFunction -> Identity, 
+      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
+      GoldenRatio^(-1), Axes -> {True, True}, AxesLabel -> {None, None}, 
+      AxesOrigin -> {-48.35428695287496, -5.750469801457443}, DisplayFunction :> 
+      Identity, Frame -> {{True, True}, {True, True}}, 
+      FrameLabel -> {{
+        "Lower Bound on (\!\(\*SubscriptBox[\(\[Omega]\), \(BD\)]\)+3/2)", 
+         None}, {"\!\(\*SubscriptBox[\(m\), \(s\)]\)(eV)", None}}, FrameStyle -> 
+      Directive[Bold, 16], FrameTicks -> {{
+         Charting`ScaledTicks[{Log, Exp}], 
+         Charting`ScaledFrameTicks[{Log, Exp}]}, {
+         Charting`ScaledTicks[{Log, Exp}], 
+         Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {None, {
+         Log[3]}}, GridLinesStyle -> Directive[
+        GrayLevel[0.5, 0.4]], ImageSize -> Large, 
+      Method -> {
+       "OptimizePlotMarkers" -> True, 
+        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+            (Exp[#]& )[
+             Part[#, 1]], 
+            (Exp[#]& )[
+             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+            (Exp[#]& )[
+             Part[#, 1]], 
+            (Exp[#]& )[
+             Part[#, 2]]}& )}}, 
+      PlotRange -> {{-Log[1000000000000000000000], -
+         Log[1000000000000000]}, {-5.750469801457443, 10.030185205582086`}}, 
+      PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {
+         Scaled[0.02], 
+         Scaled[0.05]}}, Ticks -> {
+        Charting`ScaledTicks[{Log, Exp}], 
+        Charting`ScaledTicks[{Log, Exp}]}}], 
+    Placed[
+     Unevaluated[
+      PointLegend[{
+        Directive[
+         PointSize[0.012833333333333334`], 
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         AbsoluteThickness[1.6]], 
+        Directive[
+         PointSize[0.012833333333333334`], 
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         AbsoluteThickness[1.6]]}, {"Cassini", "Not Permitted"}, 
+       LegendMarkers -> {{False, Automatic}, {False, Automatic}}, 
+       Joined -> {True, True}, LabelStyle -> {}, LegendLayout -> "Column"]], {
+     0.8, 0.8}, Identity]]& ],
+  AutoDelete->True,
+  Editable->True,
+  SelectWithContents->False,
+  Selectable->True]], "Output",
+ CellChangeTimes->{
+  3.792481190613813*^9, 3.7924812489222*^9, {3.7924813352373238`*^9, 
+   3.792481339722481*^9}, {3.792481380108781*^9, 3.792481412060347*^9}, 
+   3.792481557084991*^9, {3.792481627661607*^9, 3.792481642963335*^9}, 
+   3.792481707566607*^9, {3.7924818056965*^9, 3.792481868137397*^9}, {
+   3.7924819287092543`*^9, 3.7924819598813467`*^9}, {3.792481993588787*^9, 
+   3.792482032851954*^9}, 3.792482095153644*^9, {3.792482218173798*^9, 
+   3.79248222852962*^9}, {3.7924823057854557`*^9, 3.79248231339263*^9}, 
+   3.7924823537475433`*^9, 3.792482415895907*^9, 3.792482590436059*^9, 
+   3.792482630451292*^9, 3.792482864280467*^9, {3.792482929267036*^9, 
+   3.79248294620431*^9}, 3.7924829783447037`*^9, 3.792483063535203*^9, {
+   3.792483117822504*^9, 3.7924831284536552`*^9}, {3.792483210947192*^9, 
+   3.792483374547078*^9}, {3.792483412450268*^9, 3.792483470524459*^9}, {
+   3.792483544635777*^9, 3.792483579446789*^9}, 3.7924836211857*^9, {
+   3.792483671577915*^9, 3.792483689511731*^9}, {3.792483723818544*^9, 
+   3.7924838109687433`*^9}, {3.7924838421144743`*^9, 
+   3.7924838704825487`*^9}, {3.792483918119158*^9, 3.7924840835786953`*^9}, 
+   3.792484123384119*^9, 3.7924841651309357`*^9, 3.7924844128681803`*^9, 
+   3.7924879650895147`*^9, 3.792487997415801*^9, 3.7924880999546127`*^9, 
+   3.7924881777475653`*^9, 3.792488218974638*^9, 3.7924884332837276`*^9, 
+   3.7924884771839533`*^9, {3.7924901602985687`*^9, 3.792490179676384*^9}, {
+   3.792490210370976*^9, 3.792490219073657*^9}, {3.800174189029745*^9, 
+   3.8001742001015587`*^9}, {3.8001742702715693`*^9, 3.800174283057023*^9}, {
+   3.800174326807637*^9, 3.800174343008148*^9}, {3.800176970915056*^9, 
+   3.800177000726247*^9}, 3.800177217885622*^9, 3.80017725558022*^9, {
+   3.800177325314349*^9, 3.800177351180724*^9}, 3.8001773921237926`*^9, {
+   3.8001774395838614`*^9, 3.800177455910808*^9}, 3.800177641446144*^9, {
+   3.80027305901873*^9, 3.800273068004369*^9}},
+ CellLabel->
+  "Out[377]=",ExpressionUUID->"82263251-b5a1-4981-9207-bab08af71f79"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"refi", "=", 
+  RowBox[{"Interpolation", "[", 
+   RowBox[{"ref", ",", 
+    RowBox[{"InterpolationOrder", "\[Rule]", "21"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.792488497498416*^9, 3.792488503359474*^9}, {
+  3.7924889406531963`*^9, 3.7924889839244757`*^9}, {3.800177487281665*^9, 
+  3.8001775027027607`*^9}},
+ CellLabel->
+  "In[378]:=",ExpressionUUID->"556f4d54-63b0-42df-b2c4-d7614736c084"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   TagBox["InterpolatingFunction",
+    "SummaryHead"], "[", 
+   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
+    
+    TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
+            PaneBox[
+             ButtonBox[
+              DynamicBox[
+               FEPrivate`FrontEndResource[
+               "FEBitmaps", "SquarePlusIconMedium"]], 
+              ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, 
+              Evaluator -> Automatic, Method -> "Preemptive"], 
+             Alignment -> {Center, Center}, ImageSize -> 
+             Dynamic[{
+               Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                AbsoluteCurrentValue[Magnification]}]], 
+            GraphicsBox[{{{{}, {}, 
+                TagBox[{
+                  Directive[
+                   Opacity[1.], 
+                   RGBColor[0.368417, 0.506779, 0.709798], 
+                   AbsoluteThickness[1]], 
+                  LineBox[CompressedData["
+1:eJwBcQOO/CFib1JlAgAAADYAAAACAAAA2RDQdK6iRDyGTTQ2ULuwQNPElfyU
+HkU8EpiqvbEUsEA8y4t4QDpIPO5yqilWGahA31kXHXIgSzyEhRTVrM6mQK1H
+GhpARU48HKmXBFeinEDbXtkfSppQPPg0bvgkApFAJVfrTpAKUjzg4tVG8i+P
+QAX/OKokmlM8IUFbu6ZEkUACa9EZ/A5VPOi/hEo7j5FAlYaltSGjVjw8IWBt
+lj2GQG1fv23jL1g81g+c3MLTekBi/CM66KFZPO49TcCFKXVA7UjEMjszWzyi
+wGYrnlxwQJVZrz/RqVw8Wbk3Tu28aUDTGdZ4tT9ePPMT8I5o12NAVpdCzjXO
+Xzz+QkrUoLxeQHvs/Jv8oGA8Kb7cOBo4WEAWZfZmhWphPOm25fdRtFJAwD8V
+vK8mYjzscc5p32NNQAz5Vh8o32I8//EBajAzR0AjiraYR6djPJ4bzw4g80FA
+SX07nAhiZDyXVlEmYkE8QDlI3rVwLGU8XU77bBPMNUDM8aPdJvNlPMiHt6oZ
+5TBAbv2Oj36sZjyGTm4dqKQqQNvgl1d9dWc886r26DaXJEBWJsapHTFoPJt2
+yFcvMCBAdEoXCgzpaDz9K2PrMJMZQF1GhoChsGk8ydYIRAnNE0BUpBqB2Gpq
+PGCFX3PnMA9AFtrMl7Y0azy8SDBYFRQIQOdxpDg28Ws8+kd+/bvoAkBa6J7n
+A6psPHiArUEW1/0/mDa3rHhybTzoitAbzhP3P+Xm9PuOLW48eNhg9eAn8j/9
+blBhTPhuPC2wZkD+/+s/t9XO1Fe/bzy2p3blfbHlPz9POWmCPHA8aLEedvkY
+4T+JHxpzLKFwPEyOdnkLato/2qANQif/cDzOJYRHLsHUP3yREhhJW3E8tDA0
+A7th0D8EbiZ5Pr9xPFBV/3DnVck/k/tMn4QccjywOcOTZ+zDPwh1glCegXI8
+KJ1z41u7vj/OXckI3+RyPC20muhC+Lc/m/cihnBBczz9NoMNS3GzP059i47V
+pXM8kAkFhA6fsD8ItAZciwN0PNjfNo0ld7A/p9aQtBRpdDwOLZk2fQS0P5ho
+LBTFzHQ88PqG8p5tvD+Qq9o4xil1PCp6I/OgYsQ/bdqX6JqOdTyM3A3gAnfL
+P1K6Z13A7HU8KSQ7LMhFyz/K3ndcB0x2PPTMViQXe4Q/CX2PxQ==
+                   "]]}, 
+                 Annotation[#, "Charting`Private`Tag$77792#1"]& ]}}, {}}, {
+             DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
+              AxesOrigin -> {1.4715853623430614`*^-21, 0}, 
+              FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, 
+              DisplayFunction -> Identity, PlotRangePadding -> {{
+                 Scaled[0.1], 
+                 Scaled[0.1]}, {
+                 Scaled[0.1], 
+                 Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
+              All, DisplayFunction -> Identity, AspectRatio -> 1, 
+              Axes -> {False, False}, AxesLabel -> {None, None}, 
+              AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
+              Frame -> {{True, True}, {True, True}}, 
+              FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
+              Directive[
+                Opacity[0.5], 
+                Thickness[Tiny], 
+                RGBColor[0.368417, 0.506779, 0.709798]], 
+              FrameTicks -> {{None, None}, {None, None}}, 
+              GridLines -> {None, None}, GridLinesStyle -> Directive[
+                GrayLevel[0.5, 0.4]], ImageSize -> 
+              Dynamic[{
+                Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                 AbsoluteCurrentValue[Magnification]}], 
+              Method -> {
+               "DefaultBoundaryStyle" -> Automatic, 
+                "DefaultGraphicsInteraction" -> {
+                 "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+                  "Effects" -> {
+                   "Highlight" -> {"ratio" -> 2}, 
+                    "HighlightPoint" -> {"ratio" -> 2}, 
+                    "Droplines" -> {
+                    "freeformCursorMode" -> True, 
+                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+                "DefaultMeshStyle" -> AbsolutePointSize[6], 
+                "ScalingFunctions" -> None, 
+                "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& )}}, 
+              PlotRange -> {{1.4715853623430614`*^-21, 
+               1.9339554004199032`*^-17}, {0., 4283.313327092101}}, 
+              PlotRangeClipping -> True, PlotRangePadding -> {{
+                 Scaled[0.1], 
+                 Scaled[0.1]}, {
+                 Scaled[0.1], 
+                 Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
+            GridBox[{{
+               RowBox[{
+                 TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                 "\[InvisibleSpace]", 
+                 TagBox[
+                  RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{
+                    "1.4715853623430614`*^-21", ",", 
+                    "1.9339554004199032`*^-17"}], "}"}], "}"}], 
+                  "SummaryItem"]}]}, {
+               RowBox[{
+                 TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                 "\[InvisibleSpace]", 
+                 TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+             GridBoxAlignment -> {
+              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
+             False, GridBoxItemSize -> {
+              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
+              BaseStyle -> {
+              ShowStringCharacters -> False, NumberMarks -> False, 
+               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
+          GridBoxItemSize -> {
+           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+          BaselinePosition -> {1, 1}], True -> GridBox[{{
+            PaneBox[
+             ButtonBox[
+              DynamicBox[
+               FEPrivate`FrontEndResource[
+               "FEBitmaps", "SquareMinusIconMedium"]], 
+              ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, 
+              Evaluator -> Automatic, Method -> "Preemptive"], 
+             Alignment -> {Center, Center}, ImageSize -> 
+             Dynamic[{
+               Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                AbsoluteCurrentValue[Magnification]}]], 
+            GraphicsBox[{{{{}, {}, 
+                TagBox[{
+                  Directive[
+                   Opacity[1.], 
+                   RGBColor[0.368417, 0.506779, 0.709798], 
+                   AbsoluteThickness[1]], 
+                  LineBox[CompressedData["
+1:eJwBcQOO/CFib1JlAgAAADYAAAACAAAA2RDQdK6iRDyGTTQ2ULuwQNPElfyU
+HkU8EpiqvbEUsEA8y4t4QDpIPO5yqilWGahA31kXHXIgSzyEhRTVrM6mQK1H
+GhpARU48HKmXBFeinEDbXtkfSppQPPg0bvgkApFAJVfrTpAKUjzg4tVG8i+P
+QAX/OKokmlM8IUFbu6ZEkUACa9EZ/A5VPOi/hEo7j5FAlYaltSGjVjw8IWBt
+lj2GQG1fv23jL1g81g+c3MLTekBi/CM66KFZPO49TcCFKXVA7UjEMjszWzyi
+wGYrnlxwQJVZrz/RqVw8Wbk3Tu28aUDTGdZ4tT9ePPMT8I5o12NAVpdCzjXO
+Xzz+QkrUoLxeQHvs/Jv8oGA8Kb7cOBo4WEAWZfZmhWphPOm25fdRtFJAwD8V
+vK8mYjzscc5p32NNQAz5Vh8o32I8//EBajAzR0AjiraYR6djPJ4bzw4g80FA
+SX07nAhiZDyXVlEmYkE8QDlI3rVwLGU8XU77bBPMNUDM8aPdJvNlPMiHt6oZ
+5TBAbv2Oj36sZjyGTm4dqKQqQNvgl1d9dWc886r26DaXJEBWJsapHTFoPJt2
+yFcvMCBAdEoXCgzpaDz9K2PrMJMZQF1GhoChsGk8ydYIRAnNE0BUpBqB2Gpq
+PGCFX3PnMA9AFtrMl7Y0azy8SDBYFRQIQOdxpDg28Ws8+kd+/bvoAkBa6J7n
+A6psPHiArUEW1/0/mDa3rHhybTzoitAbzhP3P+Xm9PuOLW48eNhg9eAn8j/9
+blBhTPhuPC2wZkD+/+s/t9XO1Fe/bzy2p3blfbHlPz9POWmCPHA8aLEedvkY
+4T+JHxpzLKFwPEyOdnkLato/2qANQif/cDzOJYRHLsHUP3yREhhJW3E8tDA0
+A7th0D8EbiZ5Pr9xPFBV/3DnVck/k/tMn4QccjywOcOTZ+zDPwh1glCegXI8
+KJ1z41u7vj/OXckI3+RyPC20muhC+Lc/m/cihnBBczz9NoMNS3GzP059i47V
+pXM8kAkFhA6fsD8ItAZciwN0PNjfNo0ld7A/p9aQtBRpdDwOLZk2fQS0P5ho
+LBTFzHQ88PqG8p5tvD+Qq9o4xil1PCp6I/OgYsQ/bdqX6JqOdTyM3A3gAnfL
+P1K6Z13A7HU8KSQ7LMhFyz/K3ndcB0x2PPTMViQXe4Q/CX2PxQ==
+                   "]]}, 
+                 Annotation[#, "Charting`Private`Tag$77792#1"]& ]}}, {}}, {
+             DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
+              AxesOrigin -> {1.4715853623430614`*^-21, 0}, 
+              FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, 
+              DisplayFunction -> Identity, PlotRangePadding -> {{
+                 Scaled[0.1], 
+                 Scaled[0.1]}, {
+                 Scaled[0.1], 
+                 Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
+              All, DisplayFunction -> Identity, AspectRatio -> 1, 
+              Axes -> {False, False}, AxesLabel -> {None, None}, 
+              AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
+              Frame -> {{True, True}, {True, True}}, 
+              FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
+              Directive[
+                Opacity[0.5], 
+                Thickness[Tiny], 
+                RGBColor[0.368417, 0.506779, 0.709798]], 
+              FrameTicks -> {{None, None}, {None, None}}, 
+              GridLines -> {None, None}, GridLinesStyle -> Directive[
+                GrayLevel[0.5, 0.4]], ImageSize -> 
+              Dynamic[{
+                Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                 AbsoluteCurrentValue[Magnification]}], 
+              Method -> {
+               "DefaultBoundaryStyle" -> Automatic, 
+                "DefaultGraphicsInteraction" -> {
+                 "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+                  "Effects" -> {
+                   "Highlight" -> {"ratio" -> 2}, 
+                    "HighlightPoint" -> {"ratio" -> 2}, 
+                    "Droplines" -> {
+                    "freeformCursorMode" -> True, 
+                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+                "DefaultMeshStyle" -> AbsolutePointSize[6], 
+                "ScalingFunctions" -> None, 
+                "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& )}}, 
+              PlotRange -> {{1.4715853623430614`*^-21, 
+               1.9339554004199032`*^-17}, {0., 4283.313327092101}}, 
+              PlotRangeClipping -> True, PlotRangePadding -> {{
+                 Scaled[0.1], 
+                 Scaled[0.1]}, {
+                 Scaled[0.1], 
+                 Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
+            GridBox[{{
+               RowBox[{
+                 TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                 "\[InvisibleSpace]", 
+                 TagBox[
+                  RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{
+                    "1.4715853623430614`*^-21", ",", 
+                    "1.9339554004199032`*^-17"}], "}"}], "}"}], 
+                  "SummaryItem"]}]}, {
+               RowBox[{
+                 TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                 "\[InvisibleSpace]", 
+                 TagBox["\"scalar\"", "SummaryItem"]}]}, {
+               RowBox[{
+                 TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                 "\[InvisibleSpace]", 
+                 TagBox["21", "SummaryItem"]}]}, {
+               RowBox[{
+                 TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                 "\[InvisibleSpace]", 
+                 TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+               RowBox[{
+                 TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                 "\[InvisibleSpace]", 
+                 TagBox["False", "SummaryItem"]}]}}, 
+             GridBoxAlignment -> {
+              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
+             False, GridBoxItemSize -> {
+              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
+              BaseStyle -> {
+              ShowStringCharacters -> False, NumberMarks -> False, 
+               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
+          GridBoxItemSize -> {
+           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+          BaselinePosition -> {1, 1}]}, 
+       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
+     "SummaryPanel"],
+    DynamicModuleValues:>{}], "]"}],
+  InterpolatingFunction[{{1.4715853623430614`*^-21, 
+   1.9339554004199032`*^-17}}, {
+   5, 7, 0, {30}, {22}, 0, 0, 0, 0, Automatic, {}, {}, False}, {{
+   1.4715853623430614`*^-21, 2.970537838518258*^-21, 5.9633510456274705`*^-21,
+    8.949400827296174*^-21, 1.4901331909526332`*^-20, 2.96649097028908*^-20, 
+   1.6888054751758586`*^-19, 4.0978684583972345`*^-19, 6.134702188541049*^-19,
+    7.899087819765559*^-19, 9.455386242403014*^-19, 1.0847542620549966`*^-18, 
+   4.127220885745669*^-18, 5.04309460028308*^-18, 5.9589683148204904`*^-18, 
+   6.494720093221069*^-18, 6.874842029357901*^-18, 7.169687509436342*^-18, 
+   8.085561223973752*^-18, 8.621313002374331*^-18, 9.001434938511163*^-18, 
+   9.296280418589604*^-18, 9.537186716911741*^-18, 9.740870089926123*^-18, 
+   9.917308653048574*^-18, 1.0072938495312319`*^-17, 1.0212154133127015`*^-17,
+    1.3254620756817686`*^-17, 1.629708738050836*^-17, 
+   1.9339554004199032`*^-17}}, {
+   Developer`PackedArrayForm, {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 
+    14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30}, {
+    22701.47559591373, 22675.736961451243`, 22624.43438914027, 
+    22573.363431151243`, 22471.91011235955, 22222.222222222223`, 20000., 
+    16666.666666666664`, 14285.714285714284`, 12499.999999999998`, 
+    11111.111111111111`, 10000., 1000., 500., 250., 166.66666666666666`, 125.,
+     100., 50., 33.333333333333336`, 25., 20., 16.666666666666668`, 
+    14.285714285714285`, 12.5, 11.11111111111111, 10., 1., 0.1, 0.01}}, {
+   Automatic}],
+  Editable->False,
+  SelectWithContents->True,
+  Selectable->False]], "Output",
+ CellChangeTimes->{
+  3.792488503605363*^9, {3.792488945675312*^9, 3.792488984140232*^9}, 
+   3.800174380296299*^9, 3.80017700424135*^9, 3.800177055853696*^9, {
+   3.800177458592577*^9, 3.80017750292286*^9}, 3.800177644887492*^9, 
+   3.800273070691152*^9},
+ CellLabel->
+  "Out[378]=",ExpressionUUID->"6cba4079-b797-4eb6-b81f-f65a03d2bcb8"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"mfr", "=", 
+  RowBox[{"m", "/.", 
+   RowBox[{"FindRoot", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"refi", "@", "m"}], "\[Equal]", "3"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"m", ",", 
+       RowBox[{"10", "^", 
+        RowBox[{"(", 
+         RowBox[{"-", "17"}], ")"}]}]}], "}"}]}], "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.792488509913095*^9, 3.792488546252089*^9}, {
+  3.7924886127003727`*^9, 3.792488616077292*^9}},
+ CellLabel->
+  "In[379]:=",ExpressionUUID->"7ab3cc3f-7877-4657-abf8-9aa902e5f925"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "FindRoot","frmp",
+   "\"Machine precision is insufficient to achieve the accuracy \
+\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.0536712127723474`*^-8\\\", \
+\\\",\\\", \\\"1.0536712127723474`*^-8\\\"}], \\\"}\\\"}]\\).\"",2,379,91,
+   19650336214106342288,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.80017438118591*^9, 3.80017700722288*^9, 
+  3.8001770568391113`*^9, 3.800177459177195*^9, 3.8001775038397627`*^9, 
+  3.8001776460107307`*^9, 3.800273071256917*^9},
+ CellLabel->
+  "During evaluation of \
+In[379]:=",ExpressionUUID->"7b5328cc-a5bc-4b41-919e-acf7a5e3cdaf"],
+
+Cell[BoxData["1.1802902955968444`*^-17"], "Output",
+ CellChangeTimes->{{3.7924885197323523`*^9, 3.7924885464977493`*^9}, 
+   3.792488616444233*^9, {3.7924894344035873`*^9, 3.792489442627743*^9}, 
+   3.800174381196772*^9, 3.800177007229912*^9, 3.800177056847392*^9, 
+   3.8001774591843567`*^9, 3.800177503846931*^9, 3.8001776460209913`*^9, 
+   3.800273071263129*^9},
+ CellLabel->
+  "Out[379]=",ExpressionUUID->"e519fec0-81d0-4f43-a799-353774898003"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"mfrAU", "=", 
+  RowBox[{"mfr", "/", 
+   RowBox[{"(", 
+    RowBox[{"4.14", " ", 
+     RowBox[{"10", "^", 
+      RowBox[{"(", 
+       RowBox[{"-", "15"}], ")"}]}], 
+     RowBox[{
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"3", " ", 
+         RowBox[{"10", "^", "8"}]}], ")"}], "/", 
+       RowBox[{"(", 
+        RowBox[{"1.496", "*", 
+         RowBox[{"10", "^", "11"}]}], ")"}]}], "/", 
+      RowBox[{"(", 
+       RowBox[{"2", "\[Pi]"}], ")"}]}]}], ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.792489445974312*^9, 3.7924895105968313`*^9}},
+ CellLabel->
+  "In[380]:=",ExpressionUUID->"48719bc6-b11c-45d6-be98-c04cd9bb05a3"],
+
+Cell[BoxData["8.932616775102346`"], "Output",
+ CellChangeTimes->{{3.792489484370597*^9, 3.7924895112148857`*^9}, 
+   3.8001743820553703`*^9, 3.800177008159957*^9, 3.800177057609797*^9, 
+   3.80017745992796*^9, 3.8001775043682337`*^9, 3.800177647746436*^9, 
+   3.800273072055272*^9},
+ CellLabel->
+  "Out[380]=",ExpressionUUID->"d8936bad-3090-44bb-a131-3441a53cd3f7"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"(*", 
+  RowBox[{"Constraint", " ", "in", " ", "km"}], "*)"}]], "Input",
+ CellChangeTimes->{{3.792489767464836*^9, 3.792489784616557*^9}},
+ CellLabel->
+  "In[246]:=",ExpressionUUID->"233b0640-c5e0-483d-aec3-d3b8da0603af"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"mfrAU", "*", "1.5", " ", 
+  RowBox[{"10", "^", "9"}]}]], "Input",
+ CellChangeTimes->{{3.79248971698587*^9, 3.792489728528494*^9}},
+ CellLabel->
+  "In[381]:=",ExpressionUUID->"3c5eac13-4bdd-4118-a482-3e8f2d72cb51"],
+
+Cell[BoxData["1.3398925162653519`*^10"], "Output",
+ CellChangeTimes->{{3.7924897190928698`*^9, 3.792489729003262*^9}, 
+   3.79248978778125*^9, 3.800174383451375*^9, 3.800177009600333*^9, 
+   3.800177058907696*^9, 3.800177461211405*^9, 3.8001775067035723`*^9, 
+   3.800177648959551*^9, 3.8002730734608383`*^9},
+ CellLabel->
+  "Out[381]=",ExpressionUUID->"6f7cd046-e229-4191-81bd-08e368b6f58e"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"test", "=", 
+  RowBox[{"Piecewise", "[", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"refi", "@", "m"}], ",", 
+       RowBox[{"m", "\[LessEqual]", " ", "mfr"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"3", ",", " ", 
+       RowBox[{"m", ">", "mfr"}]}], "}"}]}], "}"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.792488555216984*^9, 3.792488627228512*^9}, 
+   3.7924886990743713`*^9},
+ CellLabel->
+  "In[382]:=",ExpressionUUID->"2768cbf9-1327-4c03-bc9f-c36e43ed3072"],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+    {"\[Piecewise]", GridBox[{
+       {
+        RowBox[{
+         InterpretationBox[
+          RowBox[{
+           TagBox["InterpolatingFunction",
+            "SummaryHead"], "[", 
+           
+           DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
+            "Ready"}, 
+            TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
                     PaneBox[
                     ButtonBox[
                     DynamicBox[
@@ -5962,47 +12219,91 @@ InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
                     None, Evaluator -> Automatic, Method -> "Preemptive"], 
                     Alignment -> {Center, Center}, ImageSize -> 
                     Dynamic[{
-                    Automatic, 
-                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])}]], 
-                    GraphicsBox[{{
-                    GrayLevel[0.6], 
-                    AbsolutePointSize[5], 
-                    PointBox[{1, 1}], 
-                    PointBox[{2, 4}], 
-                    PointBox[{3, 2}], 
-                    PointBox[{4, 3}]}, {{}, {}, {
-                    AbsoluteThickness[1], 
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    GraphicsBox[{{{{}, {}, 
+                    TagBox[{
+                    Directive[
                     Opacity[1.], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1]], 
                     LineBox[CompressedData["
-1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
-3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
-cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
-QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
-wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
-ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
-/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
-klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
-42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
-IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
-7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
-QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
-CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
-7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
-/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
-q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
-vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
-shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
-q5SZmRFAL++xNeOlE0Dwt3AR
-                    "]]}}}, AspectRatio -> 1, Axes -> 
-                    False, Background -> GrayLevel[0.93], Frame -> True, 
-                    FrameStyle -> Directive[
-                    GrayLevel[0.7], 
-                    Thickness[Tiny]], FrameTicks -> None, 
-                    ImageSize -> {Automatic, 
-                    Dynamic[
-                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+1:eJwBcQOO/CFib1JlAgAAADYAAAACAAAA2RDQdK6iRDyGTTQ2ULuwQNPElfyU
+HkU8EpiqvbEUsEA8y4t4QDpIPO5yqilWGahA31kXHXIgSzyEhRTVrM6mQK1H
+GhpARU48HKmXBFeinEDbXtkfSppQPPg0bvgkApFAJVfrTpAKUjzg4tVG8i+P
+QAX/OKokmlM8IUFbu6ZEkUACa9EZ/A5VPOi/hEo7j5FAlYaltSGjVjw8IWBt
+lj2GQG1fv23jL1g81g+c3MLTekBi/CM66KFZPO49TcCFKXVA7UjEMjszWzyi
+wGYrnlxwQJVZrz/RqVw8Wbk3Tu28aUDTGdZ4tT9ePPMT8I5o12NAVpdCzjXO
+Xzz+QkrUoLxeQHvs/Jv8oGA8Kb7cOBo4WEAWZfZmhWphPOm25fdRtFJAwD8V
+vK8mYjzscc5p32NNQAz5Vh8o32I8//EBajAzR0AjiraYR6djPJ4bzw4g80FA
+SX07nAhiZDyXVlEmYkE8QDlI3rVwLGU8XU77bBPMNUDM8aPdJvNlPMiHt6oZ
+5TBAbv2Oj36sZjyGTm4dqKQqQNvgl1d9dWc886r26DaXJEBWJsapHTFoPJt2
+yFcvMCBAdEoXCgzpaDz9K2PrMJMZQF1GhoChsGk8ydYIRAnNE0BUpBqB2Gpq
+PGCFX3PnMA9AFtrMl7Y0azy8SDBYFRQIQOdxpDg28Ws8+kd+/bvoAkBa6J7n
+A6psPHiArUEW1/0/mDa3rHhybTzoitAbzhP3P+Xm9PuOLW48eNhg9eAn8j/9
+blBhTPhuPC2wZkD+/+s/t9XO1Fe/bzy2p3blfbHlPz9POWmCPHA8aLEedvkY
+4T+JHxpzLKFwPEyOdnkLato/2qANQif/cDzOJYRHLsHUP3yREhhJW3E8tDA0
+A7th0D8EbiZ5Pr9xPFBV/3DnVck/k/tMn4QccjywOcOTZ+zDPwh1glCegXI8
+KJ1z41u7vj/OXckI3+RyPC20muhC+Lc/m/cihnBBczz9NoMNS3GzP059i47V
+pXM8kAkFhA6fsD8ItAZciwN0PNjfNo0ld7A/p9aQtBRpdDwOLZk2fQS0P5ho
+LBTFzHQ88PqG8p5tvD+Qq9o4xil1PCp6I/OgYsQ/bdqX6JqOdTyM3A3gAnfL
+P1K6Z13A7HU8KSQ7LMhFyz/K3ndcB0x2PPTMViQXe4Q/CX2PxQ==
+                    "]]},
+                     Annotation[#, 
+                    "Charting`Private`Tag$77866#1"]& ]}}, {}}, {
+                    DisplayFunction -> Identity, 
+                    Ticks -> {Automatic, Automatic}, 
+                    AxesOrigin -> {1.4715853623430614`*^-21, 0}, 
+                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
+                    GridLines -> {None, None}, DisplayFunction -> Identity, 
+                    PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
+                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
+                    Axes -> {False, False}, AxesLabel -> {None, None}, 
+                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
+                    Frame -> {{True, True}, {True, True}}, 
+                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
+                    Directive[
+                    Opacity[0.5], 
+                    Thickness[Tiny], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], 
+                    FrameTicks -> {{None, None}, {None, None}}, 
+                    GridLines -> {None, None}, GridLinesStyle -> Directive[
+                    GrayLevel[0.5, 0.4]], ImageSize -> 
+                    Dynamic[{
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}], 
+                    Method -> {
+                    "DefaultBoundaryStyle" -> Automatic, 
+                    "DefaultGraphicsInteraction" -> {
+                    "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+                    "Effects" -> {
+                    "Highlight" -> {"ratio" -> 2}, 
+                    "HighlightPoint" -> {"ratio" -> 2}, 
+                    "Droplines" -> {
+                    "freeformCursorMode" -> True, 
+                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+                    "DefaultMeshStyle" -> AbsolutePointSize[6], 
+                    "ScalingFunctions" -> None, 
+                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& )}}, 
+                    PlotRange -> {{1.4715853623430614`*^-21, 
+                    1.9339554004199032`*^-17}, {0., 4283.313327092101}}, 
+                    PlotRangeClipping -> True, PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                     GridBox[{{
                     RowBox[{
                     TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
@@ -6011,9 +12312,9 @@ q5SZmRFAL++xNeOlE0Dwt3AR
                     RowBox[{"{", 
                     RowBox[{"{", 
                     
-                    RowBox[{"1.`30.*^-5", ",", 
-                    "2432.54875486206306193226869743926439284881`30."}], 
-                    "}"}], "}"}], "SummaryItem"]}]}, {
+                    RowBox[{"1.4715853623430614`*^-21", ",", 
+                    "1.9339554004199032`*^-17"}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
                     RowBox[{
                     TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                     "\[InvisibleSpace]", 
@@ -6024,64 +12325,108 @@ q5SZmRFAL++xNeOlE0Dwt3AR
                     GridBoxItemSize -> {
                     "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                     GridBoxSpacings -> {
-                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
-                    BaseStyle -> {
-                    ShowStringCharacters -> False, NumberMarks -> False, 
-                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
-                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
-                  False, GridBoxItemSize -> {
-                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
-                  BaselinePosition -> {1, 1}], True -> GridBox[{{
-                    PaneBox[
-                    ButtonBox[
-                    DynamicBox[
-                    FEPrivate`FrontEndResource[
-                    "FEBitmaps", "SquareMinusIconMedium"]], 
-                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
-                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
-                    Alignment -> {Center, Center}, ImageSize -> 
-                    Dynamic[{
-                    Automatic, 
-                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])}]], 
-                    GraphicsBox[{{
-                    GrayLevel[0.6], 
-                    AbsolutePointSize[5], 
-                    PointBox[{1, 1}], 
-                    PointBox[{2, 4}], 
-                    PointBox[{3, 2}], 
-                    PointBox[{4, 3}]}, {{}, {}, {
-                    AbsoluteThickness[1], 
-                    Opacity[1.], 
-                    LineBox[CompressedData["
-1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
-3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
-cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
-QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
-wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
-ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
-/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
-klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
-42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
-IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
-7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
-QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
-CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
-7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
-/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
-q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
-vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
-shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
-q5SZmRFAL++xNeOlE0Dwt3AR
-                    "]]}}}, AspectRatio -> 1, Axes -> 
-                    False, Background -> GrayLevel[0.93], Frame -> True, 
-                    FrameStyle -> Directive[
-                    GrayLevel[0.7], 
-                    Thickness[Tiny]], FrameTicks -> None, 
-                    ImageSize -> {Automatic, 
-                    Dynamic[
-                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}], True -> GridBox[{{
+                    PaneBox[
+                    ButtonBox[
+                    DynamicBox[
+                    FEPrivate`FrontEndResource[
+                    "FEBitmaps", "SquareMinusIconMedium"]], 
+                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
+                    Alignment -> {Center, Center}, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    GraphicsBox[{{{{}, {}, 
+                    TagBox[{
+                    Directive[
+                    Opacity[1.], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1]], 
+                    LineBox[CompressedData["
+1:eJwBcQOO/CFib1JlAgAAADYAAAACAAAA2RDQdK6iRDyGTTQ2ULuwQNPElfyU
+HkU8EpiqvbEUsEA8y4t4QDpIPO5yqilWGahA31kXHXIgSzyEhRTVrM6mQK1H
+GhpARU48HKmXBFeinEDbXtkfSppQPPg0bvgkApFAJVfrTpAKUjzg4tVG8i+P
+QAX/OKokmlM8IUFbu6ZEkUACa9EZ/A5VPOi/hEo7j5FAlYaltSGjVjw8IWBt
+lj2GQG1fv23jL1g81g+c3MLTekBi/CM66KFZPO49TcCFKXVA7UjEMjszWzyi
+wGYrnlxwQJVZrz/RqVw8Wbk3Tu28aUDTGdZ4tT9ePPMT8I5o12NAVpdCzjXO
+Xzz+QkrUoLxeQHvs/Jv8oGA8Kb7cOBo4WEAWZfZmhWphPOm25fdRtFJAwD8V
+vK8mYjzscc5p32NNQAz5Vh8o32I8//EBajAzR0AjiraYR6djPJ4bzw4g80FA
+SX07nAhiZDyXVlEmYkE8QDlI3rVwLGU8XU77bBPMNUDM8aPdJvNlPMiHt6oZ
+5TBAbv2Oj36sZjyGTm4dqKQqQNvgl1d9dWc886r26DaXJEBWJsapHTFoPJt2
+yFcvMCBAdEoXCgzpaDz9K2PrMJMZQF1GhoChsGk8ydYIRAnNE0BUpBqB2Gpq
+PGCFX3PnMA9AFtrMl7Y0azy8SDBYFRQIQOdxpDg28Ws8+kd+/bvoAkBa6J7n
+A6psPHiArUEW1/0/mDa3rHhybTzoitAbzhP3P+Xm9PuOLW48eNhg9eAn8j/9
+blBhTPhuPC2wZkD+/+s/t9XO1Fe/bzy2p3blfbHlPz9POWmCPHA8aLEedvkY
+4T+JHxpzLKFwPEyOdnkLato/2qANQif/cDzOJYRHLsHUP3yREhhJW3E8tDA0
+A7th0D8EbiZ5Pr9xPFBV/3DnVck/k/tMn4QccjywOcOTZ+zDPwh1glCegXI8
+KJ1z41u7vj/OXckI3+RyPC20muhC+Lc/m/cihnBBczz9NoMNS3GzP059i47V
+pXM8kAkFhA6fsD8ItAZciwN0PNjfNo0ld7A/p9aQtBRpdDwOLZk2fQS0P5ho
+LBTFzHQ88PqG8p5tvD+Qq9o4xil1PCp6I/OgYsQ/bdqX6JqOdTyM3A3gAnfL
+P1K6Z13A7HU8KSQ7LMhFyz/K3ndcB0x2PPTMViQXe4Q/CX2PxQ==
+                    "]]},
+                     Annotation[#, 
+                    "Charting`Private`Tag$77866#1"]& ]}}, {}}, {
+                    DisplayFunction -> Identity, 
+                    Ticks -> {Automatic, Automatic}, 
+                    AxesOrigin -> {1.4715853623430614`*^-21, 0}, 
+                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
+                    GridLines -> {None, None}, DisplayFunction -> Identity, 
+                    PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
+                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
+                    Axes -> {False, False}, AxesLabel -> {None, None}, 
+                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
+                    Frame -> {{True, True}, {True, True}}, 
+                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
+                    Directive[
+                    Opacity[0.5], 
+                    Thickness[Tiny], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], 
+                    FrameTicks -> {{None, None}, {None, None}}, 
+                    GridLines -> {None, None}, GridLinesStyle -> Directive[
+                    GrayLevel[0.5, 0.4]], ImageSize -> 
+                    Dynamic[{
+                    Automatic, 3.5 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}], 
+                    Method -> {
+                    "DefaultBoundaryStyle" -> Automatic, 
+                    "DefaultGraphicsInteraction" -> {
+                    "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+                    "Effects" -> {
+                    "Highlight" -> {"ratio" -> 2}, 
+                    "HighlightPoint" -> {"ratio" -> 2}, 
+                    "Droplines" -> {
+                    "freeformCursorMode" -> True, 
+                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+                    "DefaultMeshStyle" -> AbsolutePointSize[6], 
+                    "ScalingFunctions" -> None, 
+                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& )}}, 
+                    PlotRange -> {{1.4715853623430614`*^-21, 
+                    1.9339554004199032`*^-17}, {0., 4283.313327092101}}, 
+                    PlotRangeClipping -> True, PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                     GridBox[{{
                     RowBox[{
                     TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
@@ -6090,9 +12435,9 @@ q5SZmRFAL++xNeOlE0Dwt3AR
                     RowBox[{"{", 
                     RowBox[{"{", 
                     
-                    RowBox[{"1.`30.*^-5", ",", 
-                    "2432.54875486206306193226869743926439284881`30."}], 
-                    "}"}], "}"}], "SummaryItem"]}]}, {
+                    RowBox[{"1.4715853623430614`*^-21", ",", 
+                    "1.9339554004199032`*^-17"}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
                     RowBox[{
                     TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                     "\[InvisibleSpace]", 
@@ -6100,7 +12445,7 @@ q5SZmRFAL++xNeOlE0Dwt3AR
                     RowBox[{
                     TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                     "\[InvisibleSpace]", 
-                    TagBox["3", "SummaryItem"]}]}, {
+                    TagBox["21", "SummaryItem"]}]}, {
                     RowBox[{
                     TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                     "\[InvisibleSpace]", 
@@ -6123,54 +12468,3736 @@ q5SZmRFAL++xNeOlE0Dwt3AR
                   False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                   BaselinePosition -> {1, 1}]}, 
-               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
-             "SummaryPanel"], 
-            ButtonBox[
-             DynamicBox[
-              ToBoxes[
-               If[
-                
-                Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
-                 "Local"], 
-                Style["This object cannot be used as input.", "SummaryEmbed"], 
-                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 1487712, 
-                 Dynamic[Typeset`embedState$$]]], StandardForm]], 
-             ButtonFunction :> 
-             BoxForm`EmbedSummaryInterpretation[
-              InterpolatingFunction, 
-               6685490547278413119663134985305171373863769955330779130688, 
-               EvaluationBox[], 
-               Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
-             "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
-             Dynamic[
-               
-               And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === 
-                "Local", Typeset`embedState$$ === "Ready"]], Appearance -> 
-             Inherited, Method -> Inherited, Evaluator -> Automatic]}, 
-           "SummaryEmbedGrid"], DynamicModuleValues :> {}], 
-         StyleBox["]", "NonInterpretableSummary"]}]},
-      "CopyTag",
-      DisplayFunction->(#& ),
-      InterpretationFunction->(
-       "                                                         -5\n\
-InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
-2432.54875486206306193226869744}}, <>]"& )],
-     False,
-     BoxID -> 6685490547278413119663134985305171373863769955330779130688,
-     Editable->False,
-     SelectWithContents->True,
-     Selectable->False], ",", 
-    TagBox[
-     TemplateBox[{RowBox[{
+               Dynamic[Typeset`open$$], ImageSize -> Automatic]},
+             "SummaryPanel"],
+            DynamicModuleValues:>{}], "]"}],
+          
+          InterpolatingFunction[{{1.4715853623430614`*^-21, 
+           1.9339554004199032`*^-17}}, {
+           5, 7, 0, {30}, {22}, 0, 0, 0, 0, Automatic, {}, {}, False}, {{
+           1.4715853623430614`*^-21, 2.970537838518258*^-21, 
+           5.9633510456274705`*^-21, 8.949400827296174*^-21, 
+           1.4901331909526332`*^-20, 2.96649097028908*^-20, 
+           1.6888054751758586`*^-19, 4.0978684583972345`*^-19, 
+           6.134702188541049*^-19, 7.899087819765559*^-19, 
+           9.455386242403014*^-19, 1.0847542620549966`*^-18, 
+           4.127220885745669*^-18, 5.04309460028308*^-18, 
+           5.9589683148204904`*^-18, 6.494720093221069*^-18, 
+           6.874842029357901*^-18, 7.169687509436342*^-18, 
+           8.085561223973752*^-18, 8.621313002374331*^-18, 
+           9.001434938511163*^-18, 9.296280418589604*^-18, 
+           9.537186716911741*^-18, 9.740870089926123*^-18, 
+           9.917308653048574*^-18, 1.0072938495312319`*^-17, 
+           1.0212154133127015`*^-17, 1.3254620756817686`*^-17, 
+           1.629708738050836*^-17, 1.9339554004199032`*^-17}}, {
+           Developer`PackedArrayForm, {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 
+            12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 
+            28, 29, 30}, {22701.47559591373, 22675.736961451243`, 
+            22624.43438914027, 22573.363431151243`, 22471.91011235955, 
+            22222.222222222223`, 20000., 16666.666666666664`, 
+            14285.714285714284`, 12499.999999999998`, 11111.111111111111`, 
+            10000., 1000., 500., 250., 166.66666666666666`, 125., 100., 50., 
+            33.333333333333336`, 25., 20., 16.666666666666668`, 
+            14.285714285714285`, 12.5, 11.11111111111111, 10., 1., 0.1, 
+            0.01}}, {Automatic}],
+          Editable->False,
+          SelectWithContents->True,
+          Selectable->False], "[", "m", "]"}], 
+        RowBox[{"m", "\[LessEqual]", "1.1802902955968444`*^-17"}]},
+       {"3", 
+        RowBox[{"m", ">", "1.1802902955968444`*^-17"}]},
+       {"0", 
+        TagBox["True",
+         "PiecewiseDefault",
+         AutoDelete->True]}
+      },
+      AllowedDimensions->{2, Automatic},
+      Editable->True,
+      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
+      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
+      GridBoxSpacings->{"Columns" -> {
+          Offset[0.27999999999999997`], {
+           Offset[0.84]}, 
+          Offset[0.27999999999999997`]}, "Rows" -> {
+          Offset[0.2], {
+           Offset[0.4]}, 
+          Offset[0.2]}},
+      Selectable->True]}
+   },
+   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
+   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
+   GridBoxSpacings->{"Columns" -> {
+       Offset[0.27999999999999997`], {
+        Offset[0.35]}, 
+       Offset[0.27999999999999997`]}, "Rows" -> {
+       Offset[0.2], {
+        Offset[0.4]}, 
+       Offset[0.2]}}],
+  "Piecewise",
+  DeleteWithContents->True,
+  Editable->False,
+  SelectWithContents->True,
+  Selectable->False,
+  StripWrapperBoxes->True]], "Output",
+ CellChangeTimes->{{3.792488603494578*^9, 3.792488627618325*^9}, 
+   3.792488699569346*^9, {3.792488946646593*^9, 3.7924889846584873`*^9}, 
+   3.7924897884831133`*^9, 3.800174384054681*^9, 3.8001770102379417`*^9, 
+   3.800177059684877*^9, 3.800177463191162*^9, 3.800177507227273*^9, 
+   3.800177649545143*^9, 3.800273074269158*^9},
+ CellLabel->
+  "Out[382]=",ExpressionUUID->"b5b48068-bb24-417a-99fb-07b8f6c63396"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LogLogPlot", "[", 
+  RowBox[{
+   RowBox[{"{", "test", "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"m", ",", 
+     RowBox[{"10", "^", 
+      RowBox[{"(", 
+       RowBox[{"-", "21"}], ")"}]}], ",", 
+     RowBox[{"10", "^", 
+      RowBox[{"(", 
+       RowBox[{"-", "15"}], ")"}]}]}], "}"}], ",", 
+   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+   RowBox[{"Epilog", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"Directive", "[", "Blue", "]"}], ",", 
+       RowBox[{"Line", "[", 
+        RowBox[{"Log", "@", "ref"}], "]"}]}], "}"}], "}"}]}], ",", 
+   RowBox[{"GridLines", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"None", ",", 
+      RowBox[{"{", "3", "}"}]}], "}"}]}], ",", 
+   RowBox[{"PlotLegends", "\[Rule]", 
+    RowBox[{"Placed", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"\"\<Cassini\>\"", ",", "\"\<Not Permitted\>\""}], "}"}], ",", 
+      
+      RowBox[{"{", 
+       RowBox[{"0.8", ",", "0.8"}], "}"}]}], "]"}]}], ",", 
+   RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
+   RowBox[{"FrameLabel", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+     "\"\<\!\(\*SubscriptBox[\(m\), \(s\)]\)(eV)\>\"", ",", 
+      "\"\<Lower Bound on (\!\(\*SubscriptBox[\(\[Omega]\), \
+\(BD\)]\)+3/2)\>\""}], "}"}]}], ",", 
+   RowBox[{"FrameStyle", "\[Rule]", 
+    RowBox[{"Directive", "[", 
+     RowBox[{"Bold", ",", "16"}], "]"}]}], ",", 
+   RowBox[{"Filling", "\[Rule]", "Top"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.7924809811634417`*^9, 3.7924810176846333`*^9}, {
+   3.792481050314542*^9, 3.7924810506418877`*^9}, {3.792481172761291*^9, 
+   3.7924811899170513`*^9}, {3.792481377741453*^9, 3.79248138586658*^9}, {
+   3.7924816417501802`*^9, 3.7924816423459053`*^9}, {3.792481702531547*^9, 
+   3.792481706994644*^9}, {3.792481808780587*^9, 3.792481867715866*^9}, {
+   3.792481949597508*^9, 3.792481951556817*^9}, {3.792482017472578*^9, 
+   3.792482023379766*^9}, {3.792482093428446*^9, 3.79248209464964*^9}, 
+   3.7924822279762487`*^9, 3.792482312708346*^9, {3.792482942835244*^9, 
+   3.792482945734926*^9}, {3.7924833565139723`*^9, 3.792483374214595*^9}, {
+   3.7924834699746933`*^9, 3.792483470160303*^9}, {3.792483736734573*^9, 
+   3.792483742141539*^9}, {3.792483820271922*^9, 3.7924838700971737`*^9}, {
+   3.792484411467929*^9, 3.7924844124372253`*^9}, {3.7924879622234907`*^9, 
+   3.792487994778286*^9}, {3.792488099051333*^9, 3.792488099540189*^9}, {
+   3.7924881771418657`*^9, 3.792488218489883*^9}, {3.79248841971767*^9, 
+   3.7924884300810757`*^9}, {3.7924884745484867`*^9, 3.792488474748797*^9}, {
+   3.792488635837022*^9, 3.79248865621726*^9}, {3.79248872207507*^9, 
+   3.792488730892459*^9}, {3.792488769298443*^9, 3.7924889169382143`*^9}, {
+   3.800174407761692*^9, 3.800174411908115*^9}, {3.800174513287262*^9, 
+   3.800174517063774*^9}},
+ CellLabel->
+  "In[383]:=",ExpressionUUID->"29809a07-f28c-4e9a-bd5c-5a7a727ee9dc"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "InterpolatingFunction","dmval",
+   "\"Input value \\!\\(\\*RowBox[{\\\"{\\\", \
+\\\"1.0002822709752196`*^-21\\\", \\\"}\\\"}]\\) lies outside the range of \
+data in the interpolating function. Extrapolation will be used.\"",2,383,92,
+   19650336214106342288,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.800177464088146*^9, 3.800177507814919*^9, 
+  3.800177650984127*^9, 3.800273075732697*^9},
+ CellLabel->
+  "During evaluation of \
+In[383]:=",ExpressionUUID->"fa40aa18-95c3-4025-9927-5c7482b99490"],
+
+Cell[BoxData[
+ TagBox[
+  GraphicsBox[{{GraphicsComplexBox[CompressedData["
+1:eJxNmmk41G/cxZE9uxAzZsb8aFOisrWYm/nNjDYkKm1KRYkolX2pUEohkbJl
+SdoRUsSXSrYWa8jWQsifZN+fuxfP0/OmrnM1TTPd5z6fc2ao2blYHhHg4+Nb
+h3/5+/vZQD7SZoUpnJVX1k+RVkeiL5tYKeKmcOKgi0Ug1rF9ahX8nTzgU37e
+tBNrIX7xF23FPHB8GpXDwHr2wTkVp0QevKCNvm2SUkcT246KS3nx4FkzanbD
+uqK5f7/WTh5svOfzbkRSHcUf+GF8SIcHIlnP1iCs57yP3TSV4EFyadehbRLq
+yMDz2rZHPVxI35lRsGy+Ojrlxryt/oYLgnwic+fF1NEF8x08ShIXXOb9Ejgr
+oo6IYmWHEj8uiNrY6tcKqqO3K7co+Nngx99P0BPnV0cbAmhL8vS4EH83C/ZO
+Eyj3vW25sCwX3DjTqkkjBCrK0G4V6uPA6A3O9Ls+AiWcSbK+UM4Bz2rJqfav
+BPLXP7dXIZUDIpOiEqtrCKT3ha9M4xwHLr+sW1xVSKAB74HiTXs4cGNk0YbG
+ZALpZzlrMfQ44Cbx9IK0H4F2VFyZc5PHf7/TSSTNgkBn2xfatvxHAvJziNsm
+TSDnBg7xuoKEk5bCJVaFTDRkJ7B7dzoJv9abP1mxg4m8+1bQhS+QMP8Br9AX
+1FDTzglT7QMk5B8q0zISUUMGsJrfZS0Jng9FROcP0NHiwhnN/QokjOw8ydg+
+RUF98Q75lX/YQL0eFZ6SSEHPvFDT1vdseOF7uytzngKyMHyxx+wBG84MXb14
+WUAK+V4ttpi7yIZhuyvXf6rNsB62GdS9sWPD/HmPvXojB1kZshYFouifzjVu
+WHVQ5Z+O3D4taTBm8n96bjJzT1HdP+2c2KC/5+k/nakR63Em9J8eS//AS7X/
+p6uKI0IuGP/THgXDK7/S/mmN7NLD2yeM/0+nXzWYZTf80/nThuKdz/7pj0cf
+pN6+9k+/zH2Z8uH4Pz3ptTN5lPynWfT/jGcpptDFf/7jDex3y9qZwJoxHti9
+Tcx1wfrTaJSxay0PalLYmkZYCzS8PXY3gwdOH4sS57D/fWZPy70K5YHmo9Dg
+B1jbRT9ck3CUB7Q71iqGWGfHH/tkSvIglP/akyR8H8z60/rqaTy4IJDlUo3v
+Q9yk9+nJSS5oU37zl+H7YH228Ux3Axfq9QP324urI6+DBb8Ts7gwL3KN6zVR
+dbRd1OBzfxgXSIdKvXXC6uj0+CojhhMX3BPn/ZKdp474d+XQKKZcWH74qkLL
+LIEmFxV5tBNcYNuzSKMJAq1lmW4PnuXA2rK17OBBAmnJH7v1ppkDn4O0BzJ/
+EujaDlmbqlwOqIH9QGwzgXaLGV+Pv86BPqFDlUvKCXRdc5w0OIH1fU2T5kwC
+yd/U8sgx5cCknLl0eQSBuIXTihXqHNCZ0vn4/SiBuqwsV6bzceC8tnnmgVUE
++rN7ZbF5CwlPF9vkxvQwUQY1tfDaCxIebjteW3SViZ4vjlmfEUWCzxPhjR9l
+mGhZsvya2JMkLLfJU9joqIZEQxXvmm8lQWSd9amEywykXRQT3bWYBJq37vLl
+t2hI/EnW0AJBEhaMeYTtT6IgCwmrCokONkz0kO91EpSQQLOPyod8NoygepUp
+PTlkf2hDw6JbbDhdyFkx74MwWqDnK2d35p/ftTzIMvtt/3TzQrEUu13//NNc
+PVryUN0USo++M47D/nhcevzbWn5TGAo/dNgL69zBL0KGLTword/gthnrwF8O
+siYvePC+Rv6FDNavrLyjF0Tz4JN6k8Br7Bet4RD6jpM84DC2eO3EmrX+0c38
+rTzYmqZm+h775+w9zk3qEh7sePaiVvyvn/L/BCXN48HyIEkhaeynUvdnhzZ1
+cOFBlMOiKuyfs44uHLt8LsQ9Q10SOF9/afKkg2K48ITT9b0V+6dqb5rlyTNc
+yNVhv5rE/vn+mu92lQUX1gWqJ07PESiu9sSnzSu4wNr636qWSQJ5CFtdKxXh
+wjNVzYdpQwQa/bpl3ZHvHChVNP9h2UsgRXubz4uBA9s7Bwds2wjkxDjobhPL
+gY4gJbv69wQ6fMFH+Kk7B37MiLqE5xHonJi0Kp8lB2DT9rbE2wQyMshhnlnB
+gb1B7Qfr3XBeS7soSYlzoHn5/suyJgRao6ouo9hJwlqJNzEqM0x0bWL495IS
+EsZL6jW/pDGRNWfrZqFEEnjWD11K1jCR5bs79y28SBiqYsePRauh34MiY0U7
+cD47nE08WslA2ayuymU6JEgL+MR8nKOjhXqNYS8kSGi9u1OpJZWCaPWtJk49
+2B/Rl4xvlC1Eux+0TVx9w4bNlUde3rgvj/aYTcW8TGJDoHOj1bKL4qjsYGJm
+hh8bbsYWVfoYDrFSnb6Dhbwp+MoEfQ7F5z3aHrbYsZ8H4TX7DA5j3Ttl7nuv
+ggeTd18PrsQ6AIgS0XQe2DLfWf+Hz39t+olrRy5g3rrfXxmOdbTB+41dtjz4
+7MuNXoj1krlFYg1reVBX3PPqFPbDIl1RkzAFzHPW8fxI7IdeQ6FD2/9wodr2
+tIgPzpcfp2cuBr/nAtVqtHEc+8Fvl1hc630uBFDXCongfMn/sSRx10UuqM2o
+oqtC6oh6o2jpRzsuyK/PC1QSUEf0vmMpx1hcWN/Fx7k3Q6BdXtJqbipc4FYr
+5gaMEWjaff1C7ggHWE3fJDcMEMieDBojajgg6DUs+e0HgYR55c2ujzlwM/5P
+9bUGApn+YTz+GsIBn2T1nMVvCAS1bheKD2M/RMasu/OAQHfVzWodWRzQV7X+
+xrtEIDOSnE+ncuC6l/ngin04v27r8kzGSNBUUKvxVSNQRszaUyG1JFzOHPfK
+rmOiGtb20OEMnC+JbY87TzGRsvj3FXtCSTi3pEtLrVcNCfgGF3YeJSFB/2my
+71o1xFiksb2dTcLGy2ep60gGemS0+WAyjQRHl7pNn7+ooimNqztdp9hgc6jC
+4zCLis6zK7Y9bmBDn6LwNLFPEd0Xo6yTesYGoU024UsfyKBTHv7ykeGYt7k/
++d7XCKAD4nvc5J3+5cmSh94XBJaaArK+VJmIz383MGUHhEwhpazwpD/WSwZm
+HeI7eDBOyynehjU5anAk/BUPvgoVNS3Eus3fbxfc5sExIuzWB+yHBcTEgqwz
+PNh2UbX7CNaBV7ZOnbbkgdjU6Z9fsT/EBaP6ipbz4J7b9JwG1mmUJ1IjIjzw
+OyX6Rhv7xX/8zu6pH1zocDtkPo3zY7i/zOV1ERfOOBiMmGK/PH9lpvkpjgud
+uQOGmrifjUt1tCh7ceF8seefo7if1Xmm7dSw5sJC4YLsID511HefO82/igvv
+0lPn3ZkikFJv00N7CS4IlL5wTx/GfCk3Cs35yYGAONFX138RqNnZN7r+DQdM
+Ypw0lnTgfNEcPPY8kQPW9uuLJD8RaOtTIwdHHw5EnXYRf5VPoDwTf5e7Ozhw
+aPa4xscEzLczEekVOhw461sfK+qJ+efkO79YigPZXQFifhsJZO2XoO/ZQ0J2
++H2p/cIEmnVQFT9bSoLT3ncnK7KYSL3uXs3TFBJSnghIlHKYqMvG4fBDPxK0
+9vH7TjxUQz9S+Rgee0h4ZEupnOxnoNG50K4qXRL4J39ueZZAR4zJ3tb5siSo
+VrWcKCmmoKAXzDlKPxu0q6knArxVUPD1sJ7/ytjwaYOzZYzNAtTA3u0lmMaG
+pfpH72zbIoGS3bX5d11gQzKhql9EjrP+cI6eu6dkCkteVf0Ix+ed2sTdQRvC
+fWM8SM4R630Tp9rnf+TBvOqiFfpYG1cOK+x8xAOTl8zkUXz+e2pPWshe4gG/
+cnxM/N++4rCeZXKYB5bemvSlWJ8wK3MKY/GAIaJ89zL2w8uInTdXqfCge1ey
++jPsB/Zt+JU2ygXFW6L3k3F+xI30+unXcGERxMZpY39Mt9iVGj3hQm+LwffN
+OD8untXOT7nCBSarLaMT54cpd+KZuwMXuteIzEXj/JBJlj5YwubC99F9W0jc
+T+5b/NyylM6FqNKM6EPjBIrdU6LbNcEBY4OGQfvfBKrQdDc93cAB0T1UaYsu
+rM3+u0XL4gBT4UZzQiOBqmcyElnXOLDj0voVz0rx883p/vA5xoGD4ud2mj0h
+UMu+Qg0ZkgPrfmqH0q4SaNM5RsRpBge2xasi5iECXR5jrxuZIsH/luF/isvw
+801k3+r7TMLdjc+PW7UzkfET77vGOSTsLnnhFxrARN0xG3KEIkgY9gwSrp1R
+Q9HSWz2RMwlBE+Ih7y3V0IImVZ+bpiSc0knhaR5loP7ZQW+SIMFltjskZx0N
+CfQm3i2ZY8Pe5xelQuZTUc9iaal9X9hw56iEaiyfEmoYrFx24jnWDzM3jLrJ
+oj7ntuGWG2xokhk9MNgoiE75szIvLSdBu1Bf/+kQDcmeemvsIErC1FSk+4EE
+Cnr+Oya44AcbmKYZTJreQtS/WcpOzOtf3ix3W75sMYuEa1FZtt9NGcjRL5XL
+p0JCp/ml03M1NDR80EuMNsaGmI0fPfroVPRRqfD7Ck1TCHUSDkrC/tLZ4Ldk
+o6gpzCys7jqH9TdnmVsfv2G/8DnUWf31p7da2PMiHrwWYXyiYn1CIcBQMZ4H
+Hnkf1tdhvwW/zJDucOfB7caDv52wXrya9rjaigex9YP9v7D/rLLW35RdyYPM
+tJcGq7GuqZxfSxPngdUNpG+M/diSp9Sw/ScXxCt8CuSxH1dnjggOF3NBZvCB
+oT3Op/hgyxcjCVxIUMvqt8D5JNU9rXbCB+eN4ZPwBJxPVVaeudt2csFx/oOg
+MpxPC6JWye1bwwVemReaw/nU9SXuZa4U3psnDvRq4P0o8ep5dmsPB6IfaTzQ
+wvux4KT02eXvOPCWkiEnjPfjSx3DQ11JHPBQ2faKWU0gk7eJSmV+HNDoCdQ3
+fUUgK9vnC8d3cWC+I/Ng4x2cV5H+x0dWc+CACe18hDeB0mMDg1RkOSDw1dNV
+ZSv+95/sqXzwC/dX8lfaV3G8RxMzo+PKSHD/eEUgLo+JQinWikJpJARqb5ST
+NGMi7ZSK4sYA3FcOcvMsc9XQ/lmfNXX7SFgvdmHT83EGUjrQMaRqQIL8t/rI
+Le/oSH3vsKCuPAnKdcHq7c0UlKfJaXX7jflltLZ+K0FBccJHv6pWssHvWaK6
+7dMFKLJQ7PjSdDa8NpHvZi+VROECE+kPg9igVzh/ZCpvkhWT9eBrjbIptPM5
+tF3H5+29I9nZYwSfv7DuLyesFT0CZYyqecBL1Mpei3WyRSvL7wkPajsSlk3h
+8+876qbjcJkH0Z2PaalYD8wOGbra8+CLgKaWDtayozG0PmMe/PAU5URjPwii
+OeNAKg/WjW10LsF+cN1Ey/g0zgXJ4Q7fHOyH8ZyDk2F1XNiZH1uwGefTusSw
+PS4ZXEhvjjzljPPJmbVmY/lVLrxRvvNRBvff/XTFicpjXPiRpSlYj/NJ1Pdb
+UT+HC1WszvpwnE8162rtAtVwns2KD1TjfHLcGkTqTXOAF/mmawznkw/9t2tc
+Iz7PjLc+Ang/PbL09zyTjfOm8kReYhOBoudNxJwIx3lm+fjh73e4zyrcvNF8
+nAMiNo1+CzNwn/Ya/WDH5cDGIElDzzAClSVKWSUyORAuwyLF7AlksGhzjtks
+iTskXOFoEchu2akVtGYSRqXe1J77wUQendKrjj7H/UUpyGbNRSay6Ogd3x1J
+wi/mjmMOIkzUsSujwdmFBCle9qW7+9XQtVW3w4c2kfDscXJHYCgDSdtyQqI0
+SCiZedz6zpGGhLfcr/rFT0JGnuOU52cKot7W6ctuZcNME58i3UIJ9R1JZSa8
+YMMj0UUjWxtk0f3uq538N9nA3eLvE1kvhCLbrxc2aZFwQXHljj3ddLSg7sPR
+cHESdvIpLvRPpKBeu/zDC36ywSskoVwwYCH60tAgts/nXz6lVaUbXTAmwfm2
+fNYjHQa60ja2fRuVhKyS4BpylobGX1/Q5k2wwSX1jRZzHRU5bg6cT7Uh4YrF
+knsCXxmoPtGwyXs1CbFbSkQ2nKEjaszX3G9SJHypHn058JSCLHl8am9+seH8
+0/IbQknKKKfPwUbwHBv8pyNWT78ZYb1PSDgxxCChZu6hu6gEDc1ejPa7NcOG
+8rj4p81aVLSN3peiv4yEP2Y7c2tKaUhKpkDFSJiE+7dtXZ7i98dfzHmZ4/7v
+/WQpZyhUridh5M7JLLH1DGRK22b4VImEit6BxmoNKvo95/pteJgNc0+6WLm/
+KYhp1h7JXm4K0sun9ifj+xI3pbnmrJgprLKbr3oBa6MVtzK7v+P9GPt81w6s
+rQoV1CuBB/fzh97QsNbr4FtmnMCDws/xgp/x/UHBEpJjHjyQBIVjrliPBwsL
+8+3ggflDka+/8X3yCAl3WqvNg94NRoWGWHenrM1ZPZ8HzR2WOzbi+yWuXCsf
+0M2FTyfkN9Hx/bKUCzWXeM2FcFnlR6dx3soctwoQvcOFmtLs0EM4b2OsrpAx
+vlwY2/pU4AXOW9OSb50Ou7hgfbb+XA/O2/TLS+Iv63Ihqe2evtY0gT5YzRa3
+SeN92nis8hDO2y694bLBXg74tXy9643z9rFbY+fOMg4UnTMPdsN5G7emtX0m
+mQPic9s8H+K8XW/xaWDUnwOWboTC/EICJTtvd1bbzYEquoNHUxKBxpNHq8R1
+OaC84GpLtQ+B5lZdMuHJceC4F/+2b2Z4P/DWRr3uw3uhOkyGKonv+8uplqfl
+JEwIlp/xzmciVKSZt/IeCZJXjRlMSyZq4Pm4DpzDe2LUQOlSvhqiauYbCdiS
+4HvFe78gnxpaInPZi2uIz/d5cYDNUgZaJOkZs3EB3p8VPrqreimo5vCOqsRB
+NlDvWm4KtKegdGTVqlvFhsHvjOTcpgXoj/fB7+vus0Gcei5zT7QkEjZt9akP
+ZoP9lkWJjf1TrL7uyohuFVNQVBVojMTn3bXAwvPuKA++zw+zPIG1m77k0p01
+PNi+6M7J9X8/z4qsrot4yoP9oVEOM38/j1o9rHb9Cg/UC3fvuId1eoW5/kUH
+HoScjViii/W3jefcVdg8eOB2iS8O+2Gp0nalx6o8UEjQGSvHfghmbr3eOcGF
+tq+/yguxHxYpqhoU1HPhqbCWqg3O2918i9IuZnKhJdNtnh/O2w5CT6blGhd0
+j40pL8J523MllTLqiPeBrFTsEM7bwN7NA4K8vzyPTcjFeWuvU/5fJpMLdZGn
+bEQnCGRZ2rV5/wz2w3xzB9Yg7u+3lgdlNOF8vBR1YzfO23gr0547ObjvFx53
+oDX//XwiXiE4ggN5U91HrpYRKObOOycxZw7oHQhxnMR5W3rpOhHK44D9ke/e
+yeEEEnkalJNNcOBOSaCChwOBwl6ZnfKew/lR1H/RWptAD0osxvS+kFAddkNa
+5icTLeDf7eGdR8KyCz2xvpeZSDCw+HbQDRLutdQ7ExJMFDRzMCjQlYTHNA97
+38NqaLNt4221LSRERZYfOB/JQAzpAenCRfjPRbc8uBRBR6IzKw7wzSNhe11u
+yZfnFKRXa/Klo40N8Tt/r9jhroTGEsNpuS/ZsF+x7kiTsBwSTevctyCGDUca
+m85bWAqj1LD1HAFtEl42OW120qUjxaDt06nzSTgfb915JYmCBOOqtqNuNgRI
+LhNxT12ILKn5rcG+bGg+Ys3mDAyyDk10mWaakHBYrfwV3zoGiruW1OypSsJe
+KaVSZTk6mjwt+mbPJBt0Ns4IzOK9u9ijRGHTbhIKFkTKOXxjoC7z77apa3B/
+vNvcJn+Zjmgb7TeNSZOgrtvjP4Lfj1OArMzvPjas9dF9S1VQQctXbVmhdZ4N
+77ykm7cJj7HazExHKEwS/guP5B8kaIjPkCL3ZJYNX4TSWhxx/7T7GLXsgCYJ
+nvuymne30pBMMXpiKUKCsHsCXzPuuy7cfvrEBhJmkqw65RQYyObDZNHnhfh+
+/jwaUb6Biv5kjJwRG2VDSd2wwm4pKkqqNlqWtpcE13knTP4bYSDhDD3nET0S
+hCQcz1Ce0RHzoctJhhzmiaVg66H3FJTwZ3U/bwDvN/+icFa9CqoW2hv8diMJ
+x38+a+11ZSDBWHXDz3zYD/7O8u5DFHR+ZY9+5goSNB4Xvf0gRkdyxKZ6bzES
+qoZKuRfw6z0c8Ud3tfc/PvQkOq6xRiSIp3anHDVnIC8ts/dLKCR0x4ZYfriu
+ikbl5uJWjbPh9LWOtMvaVPSYxuXv30kCrcImXqOWgd4MhFluX0XCZ5vcGBBi
+IJWfe4kPkiTIfWrMjb1PQQZSAzoxvWxIzW1RkKcpI6N7F4Ka/dkgFDDp/jxg
+mFXQP/yzgo79orHpy+yQKppukP0VOM2GWxrvz8YYUpGErf7FpUK4TzQMHY+/
+Q0EjfSfnx6/Dr7fqqGuOLgMZnLiXFayI/7+NfU4kSlNRv1mfWccQ9pvr/vg/
+lRS0pWfg+AfMM758svIvz2qaBV5KiJuCEyg9/8uzvtDWDWd+4L4vlqT89/un
+R+1h/VbFPDDcV/GKjvVtjnFyA+bZ7A8l+0acT1Snl1fOe/Lg3IFY5imsv2Z4
+rbqJeRZ6Ndt66O/nG2fWfv6AeWZ3bdfUeqyHpS0XFWKelbA32W7F+aVWnrFK
+sYcLfotfCWvg/Ppm8vl0DObZVfBu8sY827Sv/nsE5tkj6psqJ8yztss11iv8
+uMC+nK5einkm7Hlz5g/mmdo9aucE5tmpoBQ7NT0uqNp8DeFgnpnIPn17Sgbv
+XRvn4POYZzVucrXevzhg7ZfemYR5ljZcEP8f5tnxG0c67mOeSemtTAhJ4UCs
+zhOHAcyzF1Hde64FcGASoj4fxzwrO52klIt55t9ZrG6TjPNsWZZvFOZZtt4S
+4ZO+OJ9mxZJaMc/82I0Zb8xxXkYunTT/jwSZkpiT+lIEulPGCDCsIEEsfri9
+u4CJVGSVxN5insU5mgovtWKiJSr177zOk0Bpf2g09koNeRk3s29hno3bMA4n
+z1ND2t1tr5oxz+5bWb9Z2UlHaUfWfavFPKv8MlUc8oeCbPnbX+v+YcNG22UP
+NwdS0JN9m74UY555e3UVFvUvQEm7r9LfYp6tKH9NCa+SRCWOH+0dL7Ih9sYJ
+hxeXplmKgS3H3CimYLdCyOrv9y/U4UVz68Z4EKHIJ/T3+xfmzW053zHP8hi/
+zDZg/SB7cyIlgwf1UezAWXz+C2+tub04FO+LqYMD6VgHZczkyB3lwad7wUx9
+rCvdRlIyMc82XzFoSsB+KBCYOWdM40HM6ric99gPEdcOz3Od5EIOw+noa+wH
+o9LJHZYNXEiWLii2xTzr1T5ZKZ/FBT7Z7UbBmGcqis/djoRx4WPe/CfamGda
+Jb+WXznOBQqzpVJgnjoySeITCcc8+041OVyOeaa9nHxmSnBhd8SL/QTmWen5
+m+Z/MM+4E9Bjh3lm0rApbG0zB5I1XG2CMc+i65cn6eVyIH03zWIf5lmPyECt
+7HUOmLVIs79gnil0tTfewTy79Dg0xjGTQH1hHe8Zphz4r4NK0YvA/tIztmep
+471a2GaldZRAa0M+fZLlw49P5+Xu0cF9SwrtfY159ups/QLrbib6JuVPEXpB
+wutN+6LooUzUVv/ol0oUCW88mlw9pZio8ePLFumTJLTV6n067KCGHpwZS8zD
+PKMvO6JwOJiBlvxkb7dcTMKSx3zWqVdpKMT69/3LmGebqLPM8jQKeu1SWXO2
+nQ0OF7bYfryshKYLgqkm+WxwrbA5NkaTQ88DZW/HY54FFP+Y2xQujB45RFyK
+xjy7Xrf3ug6io5utCtyVEiT8MM1MF02hoAgD680NmGfa1uYG4bkLkSTr8TuK
+HxteqjjKFd/4wyqRFjYzZZOwJr2ZmsRioFT7UVUpGgl1KbQtLz6qIq/3FZJd
+mGcKKcEP9iAqCr72VeUr5plOSNjksi4G6l9skGKgS4JBj905xxt0lJi05MY5
+GRJaemwkkgsoaJx6WyT4PzYUqgd4DG1UQT+tjJReY55VH7mn0Xl3jNW1KN4g
+A/NMbnXfn88raehcROsegzk2VLgtXiyoiPfKvV7nYcwzpo9/5JVuGgpXnjfe
+gnm2TH5d6lXMhw97JTXCjUhgt1e0/1RmILs083lOyiRkD3Z2HxynIjexvKJI
+zDNJn75OYwUq4uvet3ID3vt5zLKKQxMMJHXpSkaIPglBAuZf176io5R5q/If
+YJ7B/p4NXbUUpBlW0NmKeaacn5HyZEYFaVO9r+zFe9AwL7fR+AwDBQ11nT+I
+99+NEZETg50UdFnEyJuD99ybyKK809/oKNJbgi6M95xFQL7rN/x6TXNDDPsw
+v54VBBllWjLQeeEUmVeYX0PjsytFElWR+/HirgLML3pEu+t1PcwT3SPCQbtI
+UNBLK51uYKCqdz+ifmJ+xUn2fipwpKNYFt15F95rBp9TF0c8oqC3D9yXauG9
+dmGv7Dzvg8posvyMi0sAG+46l2gYECOsN6UbNW3xXjthNXhbhI+GfFfWrZHG
+e23QOvpD7Roquvp84tMzzK/DKQ7pizG/rOZFyKzBe0z34v2Vx4UZCHGnR1Tw
+HsuyO1/lq0JFLveexDjiPfZW3rDdqJ2CXi2IMzy+H+/nL18DbKdxfzPQ1c8y
+IEHiTOFNi2o6upuda1YkT8LuR9biZt8oiFP2vk4M93uL6abT+lwK6jN9EXV5
+MwnbLu2pEAhnoIX6t6uW4v5nrvuu/+RZGrqYelzxrADm6863GiplFBT3/Cf/
+iZUk9B2zsLi1jI6ilkdkqeA+V3HnxYID+PVHT5QNDf6/vSz4/R1bBfe3sCOu
+QzZ6DHQjd8vNTryXR/1Pzjk+V0WeVK5XNd7LDlck5NhGVFR2MEXmGd7LeUos
+5bg2Bmpzv0aVwf0t/3jKwaf+dBT/O4XPGfc3jd9H2l4+oyD/jl1lBO5jofd/
+SeQspqKwo36Hy/DezbaePbgB710Z7Y8qdrh/VZb3aujLMJDF6F0fNu5f5fc/
+bL6pQ0Und61e7j+C+eB0suEIHxWZ5NM1pHH/+iWxtuv0HwY6NbD+nBbuU0Ju
+ccLXnBjogondwBbcp0K62lr58eO9dt4YpuI+dfrii7S3eP9fr7h4ZVCUBJEc
+qutu7L/LIZtXFrJIqHXMniO24OfbMRFyQ4UEvzkqa0sbDZ15uX57+hgbbjuG
+bOJfSkVmoound+D+tE855f3mjwxUoLROukiHhHkZ3XXXreno1rXbTWzcn/Jt
+83zn36Oghyft1wrg/qSRHb7uQvNClK14J1UP9yWhi+Px/T9VkY+fedLkFM4z
+ZWYWA/fNK8JnNiQKkvBIbc+sCO7f0Q2WwsK4L0l3ie0XmaAj59GlQjtwP9pX
++i3jdS4F/e/PI/zvz+f8DxxfPLo=
+      "], {{
+        {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[None],
+          GraphicsGroupBox[PolygonBox[CompressedData["
+1:eJwt1GW0lVUUBVBCugWkpQWku7tTupHubkkBpTuURmnsRhSU7u7u7i4p5xmD
+H/OtvfZ544377nfuTduqe+1ukSJEiBCRooY8bzP0b/woxmXzXBqQl512HxON
+f/QBhL/xrV6cK+Z5NCQfu+yaE51/9YFE5ju9BFfN82lEfnbbtSAGa/VBvMP3
+ekmumRfQmALssWtJTNbpg4nCD3oprpu/ogkF2WvXilis14cQlR/10twwf01T
+CrHPrjWx2aAPJRo/6WW4aV5IMwqz364Ncdiof0p0ftbLcsu8iI8pwgG7tsRl
+kz6MGPyil+O2eTHNw7PhoF074rFZH05MftXLc8e8hBYU45Bde+KzRR9BLH7T
+K3DXvJSWFOewXQcSsFX/jNj8rlfknnkZrSjBEbuOvMs2/XPi8Ideifvm5bSm
+JEftOpGQ7fpI4rJSr8wD8wraUIpjdp1JxA59FPH4U6/Cw3BXaUtpjtt1ITE7
+9dHEZ5VelUfhrtKOMpyw68p77NLHkIC/9Go8DneV9pTlpF03krBbH8u7/K1X
+50m4q3SgHKfsupOUPfo4ErJar8HTcFfpSHlO2/UgGXv18SRijf4Rz8JdpRMV
+OGPXk+Ts0yeQmH/0mjwPd5XOVOSsXS9SsF+fyHv8q9fiv3BX6UIlztn1JiUH
+9EkkYa1emxfhrtKVypy360MqDuqTSco6vQ4vw12lG1W4YNeX9zmkTyEZ6/W6
+vAp3le5U5aJdP1JzWJ9Kcjbo9Xgd7io9qMYlu/6k4Yg+jRRs1OvzJtxVelKd
+y3afkJaj+nRSsklvEO7V2y/MN0zjQ32l1UPzKNLpOWVMuUDmkb2c1+CKPiA8
+W7t0MrL8UmaVx5zP4J7+Wfj/7LLJaHKuzCkvOH9pnkwmvXD43MllsrBM5Xyz
+uWG4z+F7XIYv5+nyT+MjOZr0drlkLPmVzCt7O79l/jQ8az2zjCJnyezyjPP/
+zBMpEO6iflUODHfPeXp53O6ZHE8+4tkvDr8vv3B23/x5eBZ6dhldzpO55EXn
+r8xTyKwXCd8Rcnm4G862yEbhc2cXSUaUM+QqZ4/lGDLY5Zax5dfhNcg+zm+b
+h4U7qWeRUeVsmUOedf7CPIkP9IIygVwqC8mazq+ZB4XPjJ5BviNnymzyhPPn
+5glk1PPL+HKJLBier/MH5pHhTuk5ZAw5X+aWl5y/Nk8li15UJpIrZBGZ2vlW
+c2OS6pFlpPB+yr+cPZFjwz0jjv1CmV/2dXbHPDzcUc7ptbhuHhxeKyf1maRh
+m94k/G/8rfejNjf0IeG94ZQ+i7Rs15uGO8JqvT91uKkPDfeT0/ps0rFDbxbe
+e9boT+W4cPeI6/UuCp87+7tyRHjmdlnlHM7bF5J15RzSU48MZOQDMpGZLHxI
+VrKRnRzkJBe5qc//L9UJZA==
+           "]]]}, {}, {}, {}}, {{}, {}, 
+        TagBox[
+         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
+          Opacity[1.], LineBox[CompressedData["
+1:eJwl1WW0lVUUBdBHSXeXdHd3d0p3KyHdCFLS3UqnEnbTnYI00t2NAgIKiM4z
+/DFZe+3DG+O++517X4YOvRr0jBQREVEyckREyM/9U5qb5oU0pRC/2rUhOlv0
+wfiRiC/0MtwyL6IZhTlo15YYbNWHEIUv9bLcNi+mOUU4ZNeOmGzTPyQqX+nl
+uGNeQguKctiuPbHYrg8lGl/r5blrXkpLinHErgOx2aEP4y2+0Stwz7yMVhTn
+qN27xGGnPpzofKtX5L55Oa0pwTG794jLLn0EMfhOr8QD8wrahPea43Ydicdu
+fSQx+V6vzEPzp7SlFCfsOhGfPfpHxOIHvQqPzJ/RjtL8ZteZBOzVRxGbH/Wq
+/G5eSXvKcNKuCwnZp48mDj/p1fjDvIoOlOWU3fsk4hd9DHH5Wa/OY/Nq3qUc
+p+26kpj9+ljisVavwRPzGt6jPGfsupGEA/o44rNOr8nTcFfpSAXO2nUnKb/q
+40nAer0Wf4a7Sicqcs6uB8k4qE8gIRv02jwLd5XOVOK8XfigJOeQPpFEbNTr
+8DzcVbpQmQt2vUjBYX0Sidmk1+VFuKu8TxUu2vUmJUf0ySRhs/4Of4W7Sleq
+csmuD6k4qk8hKVv0evwd7irdqMZlu76k5pg+lWRs1evzMtxVulOdK3b9SMNx
+fRrJ2aY34FW4q/SgBlft+pOWE/p0UrBdb8jrcFfpSU2u2Q3gbX7TZ5CSHXoj
+/gl3lV7U4rrdQNJxUp9JKnbqjXkT7iq9qc0Nu0Gk55Q+i9Ts0pvwb7ir9KEO
+N+0+IAOn9dmkYbfeNNyr8GUXfo5Z5NTXWj01jyOjnk/GkktkQdnXeV1u6YPD
+s7XLKKPIT2Quecb5HP7QR4ffzy63jC4XynzymvPX5ulk00uEz51cJUvItM73
+mJuF+xy+x2X4cp4t1xn/lOPJZJdfxpZLZSHZz/kD84jwrPXsMpqcJ/PIS85f
+mqdSNNxF/bYcEu6e80zyrN1fcjKFiW//afj/8mNnj81jwrPQ88gYcpHML687
+/8c8g+x6yfAdIVeHu+Fsr2wePnd2kWUkOUeud/ZMTiCzXQEZRy4Lr0H2d/7Q
+PDLcST2HfEvOl3nlZeevzNPIqheTCeVKWVzWc37H/GH4zOiZZVQ5V+aW55z/
+bZ5CFr2ITCA/k8XC83X+xDw23Ck9r4wpF8sC8obzN+aZ5NBLySRyTaT//xan
+c77P3IIUehQZObyfcoOz53JiuGfEtV8ui8gBzh6ZPwp3lCt6fe6ah4bXynl9
+Lun5RW8Zfjc26gNpwD19WHhvuKDPIwP79VbhjrBJH0RD7uvDw/3koj6fjBzQ
+W4f3ns36Czkp3D3ieb0rwufO/nc5Kjxzu1xyAVfti8tGcgGZaExmspCVbGQn
+BznJRW7ykJd85KcATSjIf0WfCSQ=
+           "]]},
+         Annotation[#, "Charting`Private`Tag$77933#1"]& ]}}], {}}, InsetBox[
+     TemplateBox[{"\"Cassini\"","\"Not Permitted\""},
+      "LineLegend",
+      DisplayFunction->(FormBox[
+        StyleBox[
          StyleBox[
-          TagBox["InterpolatingFunction", "SummaryHead"], 
-          "NonInterpretableSummary"], 
-         StyleBox["[", "NonInterpretableSummary"], 
-         DynamicModuleBox[{
-          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
-          TemplateBox[{
-            TemplateBox[{
-              PaneSelectorBox[{False -> GridBox[{{
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1.6]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
+                 GridBoxAlignment -> {
+                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
+                 AutoDelete -> False, 
+                 GridBoxDividers -> {
+                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
+                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
+                  GridBoxSpacings -> {
+                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
+             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
+             AutoDelete -> False, 
+             GridBoxItemSize -> {
+              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
+            "Grid"], Alignment -> Left, AppearanceElements -> None, 
+           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
+           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
+         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
+         False], TraditionalForm]& ),
+      Editable->True,
+      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{"Directive", "[", 
+               RowBox[{
+                 RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                 InterpretationBox[
+                  ButtonBox[
+                   TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", 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]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                   BaseStyle -> {}, BaselinePosition -> Baseline, 
+                   DefaultBaseStyle -> {}, ButtonFunction :> 
+                   With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.368417, 0.506779, 0.709798]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                   Automatic, Method -> "Preemptive"], 
+                  RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, 
+                  Selectable -> False], ",", 
+                 RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
+             "}"}], ",", 
+           RowBox[{"{", 
+             RowBox[{#, ",", #2}], "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"{", "}"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
+     Scaled[{0.8, 0.8}], ImageScaled[{0.5, 0.5}],
+     BaseStyle->{FontSize -> Larger},
+     FormatType->StandardForm]},
+   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+   Axes->{True, True},
+   AxesLabel->{None, None},
+   AxesOrigin->{-48.35428695287496, 0.},
+   CoordinatesToolOptions:>{"DisplayFunction" -> ({
+       Exp[
+        Part[#, 1]], 
+       Exp[
+        Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+       Exp[
+        Part[#, 1]], 
+       Exp[
+        Part[#, 2]]}& )},
+   DisplayFunction->Identity,
+   Epilog->{{
+      Directive[
+       RGBColor[0, 0, 1]], 
+      LineBox[
+       NCache[{{-47.96794665543929, 
+         10.030185205582086`}, {-47.265543926045055`, 
+         10.029050775511474`}, {-46.568654373826604`, 
+         10.026785768880622`}, {-46.162700369500044`, 
+         10.024525880913185`}, {-45.65283635401749, 
+         10.02002136879208}, {-44.96432209706277, 
+         10.008848068193954`}, {-43.225095307289074`, 
+         9.903487552536127}, {-42.33864981656113, 
+         9.721165995742174}, {-41.935155232927336`, 
+         9.567015315914915}, {-41.68236947993305, 
+         9.433483923290392}, {-41.50253221501293, 
+         9.315700887634009}, {-41.36517819913762, 
+         9.210340371976184}, {-40.02892740244519, 
+         6.907755278982137}, {-39.82851177224265, 
+         6.214608098422191}, {-39.661634309339554`, 
+         5.521460917862246}, {-39.575542120430846`, 
+         5.115995809754082}, {-39.51866300815212, 
+         4.8283137373023015`}, {-39.47666960329433, 
+         4.605170185988092}, {-39.35645176781541, 
+         3.912023005428146}, {-39.29229428035575, 
+         3.506557897319982}, {-39.24914767165308, 
+         3.2188758248682006`}, {-39.216917308727304`, 
+         2.995732273553991}, {-39.191333125327716`, 
+         2.8134107167600364`}, {-39.17020122861362, 
+         2.659260036932778}, {-39.15225009454217, 
+         2.5257286443082556`}, {-39.13667920284665, 
+         2.407945608651872}, {-39.12295308129347, 
+         2.302585092994046}, {-38.862185445891384`, 
+          0}, {-38.655545270359134`, -Log[10]}, {-38.484379244929904`, -
+          Log[100]}}, {{-47.96794665543929, 
+         10.030185205582086`}, {-47.265543926045055`, 
+         10.029050775511474`}, {-46.568654373826604`, 
+         10.026785768880622`}, {-46.162700369500044`, 
+         10.024525880913185`}, {-45.65283635401749, 
+         10.02002136879208}, {-44.96432209706277, 
+         10.008848068193954`}, {-43.225095307289074`, 
+         9.903487552536127}, {-42.33864981656113, 
+         9.721165995742174}, {-41.935155232927336`, 
+         9.567015315914915}, {-41.68236947993305, 
+         9.433483923290392}, {-41.50253221501293, 
+         9.315700887634009}, {-41.36517819913762, 
+         9.210340371976184}, {-40.02892740244519, 
+         6.907755278982137}, {-39.82851177224265, 
+         6.214608098422191}, {-39.661634309339554`, 
+         5.521460917862246}, {-39.575542120430846`, 
+         5.115995809754082}, {-39.51866300815212, 
+         4.8283137373023015`}, {-39.47666960329433, 
+         4.605170185988092}, {-39.35645176781541, 
+         3.912023005428146}, {-39.29229428035575, 
+         3.506557897319982}, {-39.24914767165308, 
+         3.2188758248682006`}, {-39.216917308727304`, 
+         2.995732273553991}, {-39.191333125327716`, 
+         2.8134107167600364`}, {-39.17020122861362, 
+         2.659260036932778}, {-39.15225009454217, 
+         2.5257286443082556`}, {-39.13667920284665, 
+         2.407945608651872}, {-39.12295308129347, 
+         2.302585092994046}, {-38.862185445891384`, 
+          0}, {-38.655545270359134`, -2.302585092994046}, \
+{-38.484379244929904`, -4.605170185988092}}]]}},
+   Frame->{{True, True}, {True, True}},
+   FrameLabel->{{
+      FormBox[
+      "\"Lower Bound on (\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \
+\\(BD\\)]\\)+3/2)\"", TraditionalForm], None}, {
+      FormBox[
+      "\"\\!\\(\\*SubscriptBox[\\(m\\), \\(s\\)]\\)(eV)\"", TraditionalForm], 
+      None}},
+   FrameStyle->Directive[Bold, 16],
+   FrameTicks->FrontEndValueCache[{{Quiet[
+        Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , 
+       Charting`ScaledFrameTicks[{Log, Exp}]}, {Quiet[
+        Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , 
+       Charting`ScaledFrameTicks[{Log, Exp}]}}, {{{{0., 
+         FormBox["1", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.302585092994046, 
+         FormBox["10", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.605170185988092, 
+         FormBox["100", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.907755278982137, 
+         FormBox["1000", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.210340371976184, 
+         FormBox[
+          
+          TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.2039728043259361`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.916290731874155, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.791759469228055, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.995732273553991, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.912023005428146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.0943445622221, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.248495242049359, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.382026634673881, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.499809670330265, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.298317366548036, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.703782474656201, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.991464547107982, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.214608098422191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.396929655216146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.551080335043404, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.684611727667927, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.802394763324311, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {7.600902459542082, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.006367567650246, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.294049640102028, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.517193191416238, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.699514748210191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.85366542803745, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.987196820661973, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.104979856318357, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.903487552536127, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {10.308952660644293`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {10.596634733096073`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {10.819778284410283`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {11.002099841204238`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {11.156250521031495`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {11.289781913656018`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {11.407564949312402`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {11.512925464970229`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {12.206072645530174`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {12.611537753638338`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {12.89921982609012, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}, {{0., 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.302585092994046, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.605170185988092, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.907755278982137, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.210340371976184, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.2039728043259361`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.916290731874155, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.791759469228055, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.995732273553991, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.912023005428146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.0943445622221, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.248495242049359, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.382026634673881, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.499809670330265, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.298317366548036, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.703782474656201, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.991464547107982, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.214608098422191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.396929655216146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.551080335043404, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.684611727667927, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.802394763324311, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {7.600902459542082, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.006367567650246, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.294049640102028, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.517193191416238, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.699514748210191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.85366542803745, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.987196820661973, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.104979856318357, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.903487552536127, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {10.308952660644293`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {10.596634733096073`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {10.819778284410283`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {11.002099841204238`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {11.156250521031495`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {11.289781913656018`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {11.407564949312402`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {11.512925464970229`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {12.206072645530174`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {12.611537753638338`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {12.89921982609012, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}}, {{{-48.35428695287496, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "21"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.051701859880914`, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "20"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.74911676688687, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "19"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.44653167389282, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "18"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.14394658089878, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "17"}]}, "Superscript", SyntaxForm -> SuperscriptBox]
+          , TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.841361487904734`, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "16"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.538776394910684`, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "15"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-50.65687204586901, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-49.96372486530906, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-49.558259757200894`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-49.270577684749114`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-49.047434133434905`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-48.86511257664095, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-48.71096189681369, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-48.57743050418917, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-48.459647468532786`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.66113977231502, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.25567466420685, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.96799259175507, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.74484904044086, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.5625274836469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.40837680381964, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.27484541119512, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.15706237553874, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-45.35855467932097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.95308957121281, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.66540749876102, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.44226394744681, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.25994239065286, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.1057917108256, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.97226031820108, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.85447728254469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.055969586326924`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.65050447821876, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.36282240576698, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.13967885445277, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.95735729765881, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.803206617831556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.66967522520703, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.55189218955065, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.753384493332874`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.34791938522471, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.060237312772934`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.837093761458725`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.654772204664766`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.500621524837506`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.36709013221299, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.249307096556606`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.45079940033883, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.04533429223067, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.75765221977888, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.534508668464674`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.35218711167072, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.19803643184346, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.06450503921894, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.946722003562556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.14821430734479, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.74274919923662, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.45506712678484, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.23192357547063, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.04960201867667, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.89545133884942, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.76191994622489, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.64413691056851, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.84562921435074, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.44016410624258, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.1524820337908, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.92933848247659, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.74701692568263, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.59286624585537, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.45933485323085, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.34155181757447, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.23619130191664, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}, {{-48.35428695287496, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.051701859880914`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.74911676688687, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.44653167389282, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.14394658089878, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.841361487904734`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.538776394910684`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-50.65687204586901, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-49.96372486530906, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-49.558259757200894`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-49.270577684749114`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-49.047434133434905`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-48.86511257664095, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-48.71096189681369, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-48.57743050418917, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-48.459647468532786`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.66113977231502, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.25567466420685, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.96799259175507, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.74484904044086, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.5625274836469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.40837680381964, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.27484541119512, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.15706237553874, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-45.35855467932097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.95308957121281, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.66540749876102, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.44226394744681, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.25994239065286, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.1057917108256, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.97226031820108, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.85447728254469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.055969586326924`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.65050447821876, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.36282240576698, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.13967885445277, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.95735729765881, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.803206617831556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.66967522520703, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.55189218955065, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.753384493332874`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.34791938522471, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.060237312772934`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.837093761458725`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.654772204664766`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.500621524837506`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.36709013221299, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.249307096556606`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.45079940033883, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.04533429223067, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.75765221977888, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.534508668464674`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.35218711167072, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.19803643184346, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.06450503921894, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.946722003562556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.14821430734479, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.74274919923662, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.45506712678484, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.23192357547063, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.04960201867667, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.89545133884942, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.76191994622489, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.64413691056851, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.84562921435074, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.44016410624258, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.1524820337908, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.92933848247659, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.74701692568263, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.59286624585537, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.45933485323085, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.34155181757447, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.23619130191664, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}}}],
+   GridLines->NCache[{None, {
+       Log[3]}}, {None, {1.0986122886681098`}}],
+   GridLinesStyle->Directive[
+     GrayLevel[0.5, 0.4]],
+   ImagePadding->All,
+   ImageSize->Large,
+   Method->{
+    "DefaultBoundaryStyle" -> Automatic, 
+     "DefaultGraphicsInteraction" -> {
+      "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+       "Effects" -> {
+        "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+         "Droplines" -> {
+          "freeformCursorMode" -> True, 
+           "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+     "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, 
+     "AxesInFront" -> True},
+   PlotRange->
+    NCache[{{-Log[1000000000000000000000], -Log[1000000000000000]}, {0., 
+      10.030542108355558`}}, {{-48.35428695287496, -34.538776394910684`}, {0.,
+      10.030542108355558`}}],
+   PlotRangeClipping->True,
+   PlotRangePadding->{{
+      Scaled[0.02], 
+      Scaled[0.02]}, {
+      Scaled[0.05], 
+      Scaled[0.05]}},
+   Ticks->{Quiet[
+      Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , Quiet[
+      Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& }],
+  InterpretTemplate[Legended[
+    Graphics[{
+      GraphicsComplex[CompressedData["
+1:eJxNmmk41G/cxZE9uxAzZsb8aFOisrWYm/nNjDYkKm1KRYkolX2pUEohkbJl
+SdoRUsSXSrYWa8jWQsifZN+fuxfP0/OmrnM1TTPd5z6fc2ao2blYHhHg4+Nb
+h3/5+/vZQD7SZoUpnJVX1k+RVkeiL5tYKeKmcOKgi0Ug1rF9ahX8nTzgU37e
+tBNrIX7xF23FPHB8GpXDwHr2wTkVp0QevKCNvm2SUkcT246KS3nx4FkzanbD
+uqK5f7/WTh5svOfzbkRSHcUf+GF8SIcHIlnP1iCs57yP3TSV4EFyadehbRLq
+yMDz2rZHPVxI35lRsGy+Ojrlxryt/oYLgnwic+fF1NEF8x08ShIXXOb9Ejgr
+oo6IYmWHEj8uiNrY6tcKqqO3K7co+Nngx99P0BPnV0cbAmhL8vS4EH83C/ZO
+Eyj3vW25sCwX3DjTqkkjBCrK0G4V6uPA6A3O9Ls+AiWcSbK+UM4Bz2rJqfav
+BPLXP7dXIZUDIpOiEqtrCKT3ha9M4xwHLr+sW1xVSKAB74HiTXs4cGNk0YbG
+ZALpZzlrMfQ44Cbx9IK0H4F2VFyZc5PHf7/TSSTNgkBn2xfatvxHAvJziNsm
+TSDnBg7xuoKEk5bCJVaFTDRkJ7B7dzoJv9abP1mxg4m8+1bQhS+QMP8Br9AX
+1FDTzglT7QMk5B8q0zISUUMGsJrfZS0Jng9FROcP0NHiwhnN/QokjOw8ydg+
+RUF98Q75lX/YQL0eFZ6SSEHPvFDT1vdseOF7uytzngKyMHyxx+wBG84MXb14
+WUAK+V4ttpi7yIZhuyvXf6rNsB62GdS9sWPD/HmPvXojB1kZshYFouifzjVu
+WHVQ5Z+O3D4taTBm8n96bjJzT1HdP+2c2KC/5+k/nakR63Em9J8eS//AS7X/
+p6uKI0IuGP/THgXDK7/S/mmN7NLD2yeM/0+nXzWYZTf80/nThuKdz/7pj0cf
+pN6+9k+/zH2Z8uH4Pz3ptTN5lPynWfT/jGcpptDFf/7jDex3y9qZwJoxHti9
+Tcx1wfrTaJSxay0PalLYmkZYCzS8PXY3gwdOH4sS57D/fWZPy70K5YHmo9Dg
+B1jbRT9ck3CUB7Q71iqGWGfHH/tkSvIglP/akyR8H8z60/rqaTy4IJDlUo3v
+Q9yk9+nJSS5oU37zl+H7YH228Ux3Axfq9QP324urI6+DBb8Ts7gwL3KN6zVR
+dbRd1OBzfxgXSIdKvXXC6uj0+CojhhMX3BPn/ZKdp474d+XQKKZcWH74qkLL
+LIEmFxV5tBNcYNuzSKMJAq1lmW4PnuXA2rK17OBBAmnJH7v1ppkDn4O0BzJ/
+EujaDlmbqlwOqIH9QGwzgXaLGV+Pv86BPqFDlUvKCXRdc5w0OIH1fU2T5kwC
+yd/U8sgx5cCknLl0eQSBuIXTihXqHNCZ0vn4/SiBuqwsV6bzceC8tnnmgVUE
++rN7ZbF5CwlPF9vkxvQwUQY1tfDaCxIebjteW3SViZ4vjlmfEUWCzxPhjR9l
+mGhZsvya2JMkLLfJU9joqIZEQxXvmm8lQWSd9amEywykXRQT3bWYBJq37vLl
+t2hI/EnW0AJBEhaMeYTtT6IgCwmrCokONkz0kO91EpSQQLOPyod8NoygepUp
+PTlkf2hDw6JbbDhdyFkx74MwWqDnK2d35p/ftTzIMvtt/3TzQrEUu13//NNc
+PVryUN0USo++M47D/nhcevzbWn5TGAo/dNgL69zBL0KGLTword/gthnrwF8O
+siYvePC+Rv6FDNavrLyjF0Tz4JN6k8Br7Bet4RD6jpM84DC2eO3EmrX+0c38
+rTzYmqZm+h775+w9zk3qEh7sePaiVvyvn/L/BCXN48HyIEkhaeynUvdnhzZ1
+cOFBlMOiKuyfs44uHLt8LsQ9Q10SOF9/afKkg2K48ITT9b0V+6dqb5rlyTNc
+yNVhv5rE/vn+mu92lQUX1gWqJ07PESiu9sSnzSu4wNr636qWSQJ5CFtdKxXh
+wjNVzYdpQwQa/bpl3ZHvHChVNP9h2UsgRXubz4uBA9s7Bwds2wjkxDjobhPL
+gY4gJbv69wQ6fMFH+Kk7B37MiLqE5xHonJi0Kp8lB2DT9rbE2wQyMshhnlnB
+gb1B7Qfr3XBeS7soSYlzoHn5/suyJgRao6ouo9hJwlqJNzEqM0x0bWL495IS
+EsZL6jW/pDGRNWfrZqFEEnjWD11K1jCR5bs79y28SBiqYsePRauh34MiY0U7
+cD47nE08WslA2ayuymU6JEgL+MR8nKOjhXqNYS8kSGi9u1OpJZWCaPWtJk49
+2B/Rl4xvlC1Eux+0TVx9w4bNlUde3rgvj/aYTcW8TGJDoHOj1bKL4qjsYGJm
+hh8bbsYWVfoYDrFSnb6Dhbwp+MoEfQ7F5z3aHrbYsZ8H4TX7DA5j3Ttl7nuv
+ggeTd18PrsQ6AIgS0XQe2DLfWf+Hz39t+olrRy5g3rrfXxmOdbTB+41dtjz4
+7MuNXoj1krlFYg1reVBX3PPqFPbDIl1RkzAFzHPW8fxI7IdeQ6FD2/9wodr2
+tIgPzpcfp2cuBr/nAtVqtHEc+8Fvl1hc630uBFDXCongfMn/sSRx10UuqM2o
+oqtC6oh6o2jpRzsuyK/PC1QSUEf0vmMpx1hcWN/Fx7k3Q6BdXtJqbipc4FYr
+5gaMEWjaff1C7ggHWE3fJDcMEMieDBojajgg6DUs+e0HgYR55c2ujzlwM/5P
+9bUGApn+YTz+GsIBn2T1nMVvCAS1bheKD2M/RMasu/OAQHfVzWodWRzQV7X+
+xrtEIDOSnE+ncuC6l/ngin04v27r8kzGSNBUUKvxVSNQRszaUyG1JFzOHPfK
+rmOiGtb20OEMnC+JbY87TzGRsvj3FXtCSTi3pEtLrVcNCfgGF3YeJSFB/2my
+71o1xFiksb2dTcLGy2ep60gGemS0+WAyjQRHl7pNn7+ooimNqztdp9hgc6jC
+4zCLis6zK7Y9bmBDn6LwNLFPEd0Xo6yTesYGoU024UsfyKBTHv7ykeGYt7k/
++d7XCKAD4nvc5J3+5cmSh94XBJaaArK+VJmIz383MGUHhEwhpazwpD/WSwZm
+HeI7eDBOyynehjU5anAk/BUPvgoVNS3Eus3fbxfc5sExIuzWB+yHBcTEgqwz
+PNh2UbX7CNaBV7ZOnbbkgdjU6Z9fsT/EBaP6ipbz4J7b9JwG1mmUJ1IjIjzw
+OyX6Rhv7xX/8zu6pH1zocDtkPo3zY7i/zOV1ERfOOBiMmGK/PH9lpvkpjgud
+uQOGmrifjUt1tCh7ceF8seefo7if1Xmm7dSw5sJC4YLsID511HefO82/igvv
+0lPn3ZkikFJv00N7CS4IlL5wTx/GfCk3Cs35yYGAONFX138RqNnZN7r+DQdM
+Ypw0lnTgfNEcPPY8kQPW9uuLJD8RaOtTIwdHHw5EnXYRf5VPoDwTf5e7Ozhw
+aPa4xscEzLczEekVOhw461sfK+qJ+efkO79YigPZXQFifhsJZO2XoO/ZQ0J2
++H2p/cIEmnVQFT9bSoLT3ncnK7KYSL3uXs3TFBJSnghIlHKYqMvG4fBDPxK0
+9vH7TjxUQz9S+Rgee0h4ZEupnOxnoNG50K4qXRL4J39ueZZAR4zJ3tb5siSo
+VrWcKCmmoKAXzDlKPxu0q6knArxVUPD1sJ7/ytjwaYOzZYzNAtTA3u0lmMaG
+pfpH72zbIoGS3bX5d11gQzKhql9EjrP+cI6eu6dkCkteVf0Ix+ed2sTdQRvC
+fWM8SM4R630Tp9rnf+TBvOqiFfpYG1cOK+x8xAOTl8zkUXz+e2pPWshe4gG/
+cnxM/N++4rCeZXKYB5bemvSlWJ8wK3MKY/GAIaJ89zL2w8uInTdXqfCge1ey
++jPsB/Zt+JU2ygXFW6L3k3F+xI30+unXcGERxMZpY39Mt9iVGj3hQm+LwffN
+OD8untXOT7nCBSarLaMT54cpd+KZuwMXuteIzEXj/JBJlj5YwubC99F9W0jc
+T+5b/NyylM6FqNKM6EPjBIrdU6LbNcEBY4OGQfvfBKrQdDc93cAB0T1UaYsu
+rM3+u0XL4gBT4UZzQiOBqmcyElnXOLDj0voVz0rx883p/vA5xoGD4ud2mj0h
+UMu+Qg0ZkgPrfmqH0q4SaNM5RsRpBge2xasi5iECXR5jrxuZIsH/luF/isvw
+801k3+r7TMLdjc+PW7UzkfET77vGOSTsLnnhFxrARN0xG3KEIkgY9gwSrp1R
+Q9HSWz2RMwlBE+Ih7y3V0IImVZ+bpiSc0knhaR5loP7ZQW+SIMFltjskZx0N
+CfQm3i2ZY8Pe5xelQuZTUc9iaal9X9hw56iEaiyfEmoYrFx24jnWDzM3jLrJ
+oj7ntuGWG2xokhk9MNgoiE75szIvLSdBu1Bf/+kQDcmeemvsIErC1FSk+4EE
+Cnr+Oya44AcbmKYZTJreQtS/WcpOzOtf3ix3W75sMYuEa1FZtt9NGcjRL5XL
+p0JCp/ml03M1NDR80EuMNsaGmI0fPfroVPRRqfD7Ck1TCHUSDkrC/tLZ4Ldk
+o6gpzCys7jqH9TdnmVsfv2G/8DnUWf31p7da2PMiHrwWYXyiYn1CIcBQMZ4H
+Hnkf1tdhvwW/zJDucOfB7caDv52wXrya9rjaigex9YP9v7D/rLLW35RdyYPM
+tJcGq7GuqZxfSxPngdUNpG+M/diSp9Sw/ScXxCt8CuSxH1dnjggOF3NBZvCB
+oT3Op/hgyxcjCVxIUMvqt8D5JNU9rXbCB+eN4ZPwBJxPVVaeudt2csFx/oOg
+MpxPC6JWye1bwwVemReaw/nU9SXuZa4U3psnDvRq4P0o8ep5dmsPB6IfaTzQ
+wvux4KT02eXvOPCWkiEnjPfjSx3DQ11JHPBQ2faKWU0gk7eJSmV+HNDoCdQ3
+fUUgK9vnC8d3cWC+I/Ng4x2cV5H+x0dWc+CACe18hDeB0mMDg1RkOSDw1dNV
+ZSv+95/sqXzwC/dX8lfaV3G8RxMzo+PKSHD/eEUgLo+JQinWikJpJARqb5ST
+NGMi7ZSK4sYA3FcOcvMsc9XQ/lmfNXX7SFgvdmHT83EGUjrQMaRqQIL8t/rI
+Le/oSH3vsKCuPAnKdcHq7c0UlKfJaXX7jflltLZ+K0FBccJHv6pWssHvWaK6
+7dMFKLJQ7PjSdDa8NpHvZi+VROECE+kPg9igVzh/ZCpvkhWT9eBrjbIptPM5
+tF3H5+29I9nZYwSfv7DuLyesFT0CZYyqecBL1Mpei3WyRSvL7wkPajsSlk3h
+8+876qbjcJkH0Z2PaalYD8wOGbra8+CLgKaWDtayozG0PmMe/PAU5URjPwii
+OeNAKg/WjW10LsF+cN1Ey/g0zgXJ4Q7fHOyH8ZyDk2F1XNiZH1uwGefTusSw
+PS4ZXEhvjjzljPPJmbVmY/lVLrxRvvNRBvff/XTFicpjXPiRpSlYj/NJ1Pdb
+UT+HC1WszvpwnE8162rtAtVwns2KD1TjfHLcGkTqTXOAF/mmawznkw/9t2tc
+Iz7PjLc+Ang/PbL09zyTjfOm8kReYhOBoudNxJwIx3lm+fjh73e4zyrcvNF8
+nAMiNo1+CzNwn/Ya/WDH5cDGIElDzzAClSVKWSUyORAuwyLF7AlksGhzjtks
+iTskXOFoEchu2akVtGYSRqXe1J77wUQendKrjj7H/UUpyGbNRSay6Ogd3x1J
+wi/mjmMOIkzUsSujwdmFBCle9qW7+9XQtVW3w4c2kfDscXJHYCgDSdtyQqI0
+SCiZedz6zpGGhLfcr/rFT0JGnuOU52cKot7W6ctuZcNME58i3UIJ9R1JZSa8
+YMMj0UUjWxtk0f3uq538N9nA3eLvE1kvhCLbrxc2aZFwQXHljj3ddLSg7sPR
+cHESdvIpLvRPpKBeu/zDC36ywSskoVwwYCH60tAgts/nXz6lVaUbXTAmwfm2
+fNYjHQa60ja2fRuVhKyS4BpylobGX1/Q5k2wwSX1jRZzHRU5bg6cT7Uh4YrF
+knsCXxmoPtGwyXs1CbFbSkQ2nKEjaszX3G9SJHypHn058JSCLHl8am9+seH8
+0/IbQknKKKfPwUbwHBv8pyNWT78ZYb1PSDgxxCChZu6hu6gEDc1ejPa7NcOG
+8rj4p81aVLSN3peiv4yEP2Y7c2tKaUhKpkDFSJiE+7dtXZ7i98dfzHmZ4/7v
+/WQpZyhUridh5M7JLLH1DGRK22b4VImEit6BxmoNKvo95/pteJgNc0+6WLm/
+KYhp1h7JXm4K0sun9ifj+xI3pbnmrJgprLKbr3oBa6MVtzK7v+P9GPt81w6s
+rQoV1CuBB/fzh97QsNbr4FtmnMCDws/xgp/x/UHBEpJjHjyQBIVjrliPBwsL
+8+3ggflDka+/8X3yCAl3WqvNg94NRoWGWHenrM1ZPZ8HzR2WOzbi+yWuXCsf
+0M2FTyfkN9Hx/bKUCzWXeM2FcFnlR6dx3soctwoQvcOFmtLs0EM4b2OsrpAx
+vlwY2/pU4AXOW9OSb50Ou7hgfbb+XA/O2/TLS+Iv63Ihqe2evtY0gT5YzRa3
+SeN92nis8hDO2y694bLBXg74tXy9643z9rFbY+fOMg4UnTMPdsN5G7emtX0m
+mQPic9s8H+K8XW/xaWDUnwOWboTC/EICJTtvd1bbzYEquoNHUxKBxpNHq8R1
+OaC84GpLtQ+B5lZdMuHJceC4F/+2b2Z4P/DWRr3uw3uhOkyGKonv+8uplqfl
+JEwIlp/xzmciVKSZt/IeCZJXjRlMSyZq4Pm4DpzDe2LUQOlSvhqiauYbCdiS
+4HvFe78gnxpaInPZi2uIz/d5cYDNUgZaJOkZs3EB3p8VPrqreimo5vCOqsRB
+NlDvWm4KtKegdGTVqlvFhsHvjOTcpgXoj/fB7+vus0Gcei5zT7QkEjZt9akP
+ZoP9lkWJjf1TrL7uyohuFVNQVBVojMTn3bXAwvPuKA++zw+zPIG1m77k0p01
+PNi+6M7J9X8/z4qsrot4yoP9oVEOM38/j1o9rHb9Cg/UC3fvuId1eoW5/kUH
+HoScjViii/W3jefcVdg8eOB2iS8O+2Gp0nalx6o8UEjQGSvHfghmbr3eOcGF
+tq+/yguxHxYpqhoU1HPhqbCWqg3O2918i9IuZnKhJdNtnh/O2w5CT6blGhd0
+j40pL8J523MllTLqiPeBrFTsEM7bwN7NA4K8vzyPTcjFeWuvU/5fJpMLdZGn
+bEQnCGRZ2rV5/wz2w3xzB9Yg7u+3lgdlNOF8vBR1YzfO23gr0547ObjvFx53
+oDX//XwiXiE4ggN5U91HrpYRKObOOycxZw7oHQhxnMR5W3rpOhHK44D9ke/e
+yeEEEnkalJNNcOBOSaCChwOBwl6ZnfKew/lR1H/RWptAD0osxvS+kFAddkNa
+5icTLeDf7eGdR8KyCz2xvpeZSDCw+HbQDRLutdQ7ExJMFDRzMCjQlYTHNA97
+38NqaLNt4221LSRERZYfOB/JQAzpAenCRfjPRbc8uBRBR6IzKw7wzSNhe11u
+yZfnFKRXa/Klo40N8Tt/r9jhroTGEsNpuS/ZsF+x7kiTsBwSTevctyCGDUca
+m85bWAqj1LD1HAFtEl42OW120qUjxaDt06nzSTgfb915JYmCBOOqtqNuNgRI
+LhNxT12ILKn5rcG+bGg+Ys3mDAyyDk10mWaakHBYrfwV3zoGiruW1OypSsJe
+KaVSZTk6mjwt+mbPJBt0Ns4IzOK9u9ijRGHTbhIKFkTKOXxjoC7z77apa3B/
+vNvcJn+Zjmgb7TeNSZOgrtvjP4Lfj1OArMzvPjas9dF9S1VQQctXbVmhdZ4N
+77ykm7cJj7HazExHKEwS/guP5B8kaIjPkCL3ZJYNX4TSWhxx/7T7GLXsgCYJ
+nvuymne30pBMMXpiKUKCsHsCXzPuuy7cfvrEBhJmkqw65RQYyObDZNHnhfh+
+/jwaUb6Biv5kjJwRG2VDSd2wwm4pKkqqNlqWtpcE13knTP4bYSDhDD3nET0S
+hCQcz1Ce0RHzoctJhhzmiaVg66H3FJTwZ3U/bwDvN/+icFa9CqoW2hv8diMJ
+x38+a+11ZSDBWHXDz3zYD/7O8u5DFHR+ZY9+5goSNB4Xvf0gRkdyxKZ6bzES
+qoZKuRfw6z0c8Ud3tfc/PvQkOq6xRiSIp3anHDVnIC8ts/dLKCR0x4ZYfriu
+ikbl5uJWjbPh9LWOtMvaVPSYxuXv30kCrcImXqOWgd4MhFluX0XCZ5vcGBBi
+IJWfe4kPkiTIfWrMjb1PQQZSAzoxvWxIzW1RkKcpI6N7F4Ka/dkgFDDp/jxg
+mFXQP/yzgo79orHpy+yQKppukP0VOM2GWxrvz8YYUpGErf7FpUK4TzQMHY+/
+Q0EjfSfnx6/Dr7fqqGuOLgMZnLiXFayI/7+NfU4kSlNRv1mfWccQ9pvr/vg/
+lRS0pWfg+AfMM758svIvz2qaBV5KiJuCEyg9/8uzvtDWDWd+4L4vlqT89/un
+R+1h/VbFPDDcV/GKjvVtjnFyA+bZ7A8l+0acT1Snl1fOe/Lg3IFY5imsv2Z4
+rbqJeRZ6Ndt66O/nG2fWfv6AeWZ3bdfUeqyHpS0XFWKelbA32W7F+aVWnrFK
+sYcLfotfCWvg/Ppm8vl0DObZVfBu8sY827Sv/nsE5tkj6psqJ8yztss11iv8
+uMC+nK5einkm7Hlz5g/mmdo9aucE5tmpoBQ7NT0uqNp8DeFgnpnIPn17Sgbv
+XRvn4POYZzVucrXevzhg7ZfemYR5ljZcEP8f5tnxG0c67mOeSemtTAhJ4UCs
+zhOHAcyzF1Hde64FcGASoj4fxzwrO52klIt55t9ZrG6TjPNsWZZvFOZZtt4S
+4ZO+OJ9mxZJaMc/82I0Zb8xxXkYunTT/jwSZkpiT+lIEulPGCDCsIEEsfri9
+u4CJVGSVxN5insU5mgovtWKiJSr177zOk0Bpf2g09koNeRk3s29hno3bMA4n
+z1ND2t1tr5oxz+5bWb9Z2UlHaUfWfavFPKv8MlUc8oeCbPnbX+v+YcNG22UP
+NwdS0JN9m74UY555e3UVFvUvQEm7r9LfYp6tKH9NCa+SRCWOH+0dL7Ih9sYJ
+hxeXplmKgS3H3CimYLdCyOrv9y/U4UVz68Z4EKHIJ/T3+xfmzW053zHP8hi/
+zDZg/SB7cyIlgwf1UezAWXz+C2+tub04FO+LqYMD6VgHZczkyB3lwad7wUx9
+rCvdRlIyMc82XzFoSsB+KBCYOWdM40HM6ric99gPEdcOz3Od5EIOw+noa+wH
+o9LJHZYNXEiWLii2xTzr1T5ZKZ/FBT7Z7UbBmGcqis/djoRx4WPe/CfamGda
+Jb+WXznOBQqzpVJgnjoySeITCcc8+041OVyOeaa9nHxmSnBhd8SL/QTmWen5
+m+Z/MM+4E9Bjh3lm0rApbG0zB5I1XG2CMc+i65cn6eVyIH03zWIf5lmPyECt
+7HUOmLVIs79gnil0tTfewTy79Dg0xjGTQH1hHe8Zphz4r4NK0YvA/tIztmep
+471a2GaldZRAa0M+fZLlw49P5+Xu0cF9SwrtfY159ups/QLrbib6JuVPEXpB
+wutN+6LooUzUVv/ol0oUCW88mlw9pZio8ePLFumTJLTV6n067KCGHpwZS8zD
+PKMvO6JwOJiBlvxkb7dcTMKSx3zWqVdpKMT69/3LmGebqLPM8jQKeu1SWXO2
+nQ0OF7bYfryshKYLgqkm+WxwrbA5NkaTQ88DZW/HY54FFP+Y2xQujB45RFyK
+xjy7Xrf3ug6io5utCtyVEiT8MM1MF02hoAgD680NmGfa1uYG4bkLkSTr8TuK
+HxteqjjKFd/4wyqRFjYzZZOwJr2ZmsRioFT7UVUpGgl1KbQtLz6qIq/3FZJd
+mGcKKcEP9iAqCr72VeUr5plOSNjksi4G6l9skGKgS4JBj905xxt0lJi05MY5
+GRJaemwkkgsoaJx6WyT4PzYUqgd4DG1UQT+tjJReY55VH7mn0Xl3jNW1KN4g
+A/NMbnXfn88raehcROsegzk2VLgtXiyoiPfKvV7nYcwzpo9/5JVuGgpXnjfe
+gnm2TH5d6lXMhw97JTXCjUhgt1e0/1RmILs083lOyiRkD3Z2HxynIjexvKJI
+zDNJn75OYwUq4uvet3ID3vt5zLKKQxMMJHXpSkaIPglBAuZf176io5R5q/If
+YJ7B/p4NXbUUpBlW0NmKeaacn5HyZEYFaVO9r+zFe9AwL7fR+AwDBQ11nT+I
+99+NEZETg50UdFnEyJuD99ybyKK809/oKNJbgi6M95xFQL7rN/x6TXNDDPsw
+v54VBBllWjLQeeEUmVeYX0PjsytFElWR+/HirgLML3pEu+t1PcwT3SPCQbtI
+UNBLK51uYKCqdz+ifmJ+xUn2fipwpKNYFt15F95rBp9TF0c8oqC3D9yXauG9
+dmGv7Dzvg8posvyMi0sAG+46l2gYECOsN6UbNW3xXjthNXhbhI+GfFfWrZHG
+e23QOvpD7Roquvp84tMzzK/DKQ7pizG/rOZFyKzBe0z34v2Vx4UZCHGnR1Tw
+HsuyO1/lq0JFLveexDjiPfZW3rDdqJ2CXi2IMzy+H+/nL18DbKdxfzPQ1c8y
+IEHiTOFNi2o6upuda1YkT8LuR9biZt8oiFP2vk4M93uL6abT+lwK6jN9EXV5
+MwnbLu2pEAhnoIX6t6uW4v5nrvuu/+RZGrqYelzxrADm6863GiplFBT3/Cf/
+iZUk9B2zsLi1jI6ilkdkqeA+V3HnxYID+PVHT5QNDf6/vSz4/R1bBfe3sCOu
+QzZ6DHQjd8vNTryXR/1Pzjk+V0WeVK5XNd7LDlck5NhGVFR2MEXmGd7LeUos
+5bg2Bmpzv0aVwf0t/3jKwaf+dBT/O4XPGfc3jd9H2l4+oyD/jl1lBO5jofd/
+SeQspqKwo36Hy/DezbaePbgB710Z7Y8qdrh/VZb3aujLMJDF6F0fNu5f5fc/
+bL6pQ0Und61e7j+C+eB0suEIHxWZ5NM1pHH/+iWxtuv0HwY6NbD+nBbuU0Ju
+ccLXnBjogondwBbcp0K62lr58eO9dt4YpuI+dfrii7S3eP9fr7h4ZVCUBJEc
+qutu7L/LIZtXFrJIqHXMniO24OfbMRFyQ4UEvzkqa0sbDZ15uX57+hgbbjuG
+bOJfSkVmoound+D+tE855f3mjwxUoLROukiHhHkZ3XXXreno1rXbTWzcn/Jt
+83zn36Oghyft1wrg/qSRHb7uQvNClK14J1UP9yWhi+Px/T9VkY+fedLkFM4z
+ZWYWA/fNK8JnNiQKkvBIbc+sCO7f0Q2WwsK4L0l3ie0XmaAj59GlQjtwP9pX
++i3jdS4F/e/PI/zvz+f8DxxfPLo=
+       "], {{{
+          EdgeForm[], 
+          Directive[
+           RGBColor[0.368417, 0.506779, 0.709798], 
+           Opacity[0.2]], 
+          GraphicsGroup[{
+            Polygon[CompressedData["
+1:eJwt1GW0lVUUBVBCugWkpQWku7tTupHubkkBpTuURmnsRhSU7u7u7i4p5xmD
+H/OtvfZ544377nfuTduqe+1ukSJEiBCRooY8bzP0b/woxmXzXBqQl512HxON
+f/QBhL/xrV6cK+Z5NCQfu+yaE51/9YFE5ju9BFfN82lEfnbbtSAGa/VBvMP3
+ekmumRfQmALssWtJTNbpg4nCD3oprpu/ogkF2WvXilis14cQlR/10twwf01T
+CrHPrjWx2aAPJRo/6WW4aV5IMwqz364Ncdiof0p0ftbLcsu8iI8pwgG7tsRl
+kz6MGPyil+O2eTHNw7PhoF074rFZH05MftXLc8e8hBYU45Bde+KzRR9BLH7T
+K3DXvJSWFOewXQcSsFX/jNj8rlfknnkZrSjBEbuOvMs2/XPi8Ideifvm5bSm
+JEftOpGQ7fpI4rJSr8wD8wraUIpjdp1JxA59FPH4U6/Cw3BXaUtpjtt1ITE7
+9dHEZ5VelUfhrtKOMpyw68p77NLHkIC/9Go8DneV9pTlpF03krBbH8u7/K1X
+50m4q3SgHKfsupOUPfo4ErJar8HTcFfpSHlO2/UgGXv18SRijf4Rz8JdpRMV
+OGPXk+Ts0yeQmH/0mjwPd5XOVOSsXS9SsF+fyHv8q9fiv3BX6UIlztn1JiUH
+9EkkYa1emxfhrtKVypy360MqDuqTSco6vQ4vw12lG1W4YNeX9zmkTyEZ6/W6
+vAp3le5U5aJdP1JzWJ9Kcjbo9Xgd7io9qMYlu/6k4Yg+jRRs1OvzJtxVelKd
+y3afkJaj+nRSsklvEO7V2y/MN0zjQ32l1UPzKNLpOWVMuUDmkb2c1+CKPiA8
+W7t0MrL8UmaVx5zP4J7+Wfj/7LLJaHKuzCkvOH9pnkwmvXD43MllsrBM5Xyz
+uWG4z+F7XIYv5+nyT+MjOZr0drlkLPmVzCt7O79l/jQ8az2zjCJnyezyjPP/
+zBMpEO6iflUODHfPeXp53O6ZHE8+4tkvDr8vv3B23/x5eBZ6dhldzpO55EXn
+r8xTyKwXCd8Rcnm4G862yEbhc2cXSUaUM+QqZ4/lGDLY5Zax5dfhNcg+zm+b
+h4U7qWeRUeVsmUOedf7CPIkP9IIygVwqC8mazq+ZB4XPjJ5BviNnymzyhPPn
+5glk1PPL+HKJLBier/MH5pHhTuk5ZAw5X+aWl5y/Nk8li15UJpIrZBGZ2vlW
+c2OS6pFlpPB+yr+cPZFjwz0jjv1CmV/2dXbHPDzcUc7ptbhuHhxeKyf1maRh
+m94k/G/8rfejNjf0IeG94ZQ+i7Rs15uGO8JqvT91uKkPDfeT0/ps0rFDbxbe
+e9boT+W4cPeI6/UuCp87+7tyRHjmdlnlHM7bF5J15RzSU48MZOQDMpGZLHxI
+VrKRnRzkJBe5qc//L9UJZA==
+             "]]}]}, {}, {}, {}}, {{}, {}, 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            RGBColor[0.368417, 0.506779, 0.709798], 
+            AbsoluteThickness[1.6]], 
+           Line[CompressedData["
+1:eJwl1WW0lVUUBdBHSXeXdHd3d0p3KyHdCFLS3UqnEnbTnYI00t2NAgIKiM4z
+/DFZe+3DG+O++517X4YOvRr0jBQREVEyckREyM/9U5qb5oU0pRC/2rUhOlv0
+wfiRiC/0MtwyL6IZhTlo15YYbNWHEIUv9bLcNi+mOUU4ZNeOmGzTPyQqX+nl
+uGNeQguKctiuPbHYrg8lGl/r5blrXkpLinHErgOx2aEP4y2+0Stwz7yMVhTn
+qN27xGGnPpzofKtX5L55Oa0pwTG794jLLn0EMfhOr8QD8wrahPea43Ydicdu
+fSQx+V6vzEPzp7SlFCfsOhGfPfpHxOIHvQqPzJ/RjtL8ZteZBOzVRxGbH/Wq
+/G5eSXvKcNKuCwnZp48mDj/p1fjDvIoOlOWU3fsk4hd9DHH5Wa/OY/Nq3qUc
+p+26kpj9+ljisVavwRPzGt6jPGfsupGEA/o44rNOr8nTcFfpSAXO2nUnKb/q
+40nAer0Wf4a7Sicqcs6uB8k4qE8gIRv02jwLd5XOVOK8XfigJOeQPpFEbNTr
+8DzcVbpQmQt2vUjBYX0Sidmk1+VFuKu8TxUu2vUmJUf0ySRhs/4Of4W7Sleq
+csmuD6k4qk8hKVv0evwd7irdqMZlu76k5pg+lWRs1evzMtxVulOdK3b9SMNx
+fRrJ2aY34FW4q/SgBlft+pOWE/p0UrBdb8jrcFfpSU2u2Q3gbX7TZ5CSHXoj
+/gl3lV7U4rrdQNJxUp9JKnbqjXkT7iq9qc0Nu0Gk55Q+i9Ts0pvwb7ir9KEO
+N+0+IAOn9dmkYbfeNNyr8GUXfo5Z5NTXWj01jyOjnk/GkktkQdnXeV1u6YPD
+s7XLKKPIT2Quecb5HP7QR4ffzy63jC4XynzymvPX5ulk00uEz51cJUvItM73
+mJuF+xy+x2X4cp4t1xn/lOPJZJdfxpZLZSHZz/kD84jwrPXsMpqcJ/PIS85f
+mqdSNNxF/bYcEu6e80zyrN1fcjKFiW//afj/8mNnj81jwrPQ88gYcpHML687
+/8c8g+x6yfAdIVeHu+Fsr2wePnd2kWUkOUeud/ZMTiCzXQEZRy4Lr0H2d/7Q
+PDLcST2HfEvOl3nlZeevzNPIqheTCeVKWVzWc37H/GH4zOiZZVQ5V+aW55z/
+bZ5CFr2ITCA/k8XC83X+xDw23Ck9r4wpF8sC8obzN+aZ5NBLySRyTaT//xan
+c77P3IIUehQZObyfcoOz53JiuGfEtV8ui8gBzh6ZPwp3lCt6fe6ah4bXynl9
+Lun5RW8Zfjc26gNpwD19WHhvuKDPIwP79VbhjrBJH0RD7uvDw/3koj6fjBzQ
+W4f3ns36Czkp3D3ieb0rwufO/nc5Kjxzu1xyAVfti8tGcgGZaExmspCVbGQn
+BznJRW7ykJd85KcATSjIf0WfCSQ=
+            "]]}, 
+          "Charting`Private`Tag$77933#1"]}}], {}}, {
+     DisplayFunction -> Identity, 
+      Method -> {
+       "DefaultBoundaryStyle" -> Automatic, 
+        "DefaultGraphicsInteraction" -> {
+         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+          "Effects" -> {
+           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+            "Droplines" -> {
+             "freeformCursorMode" -> True, 
+              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
+        None, "AxesInFront" -> True}, DisplayFunction -> Identity, 
+      DisplayFunction -> Identity, Ticks -> {Quiet[
+         Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , Quiet[
+         Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& }, 
+      AxesOrigin -> {-48.35428695287496, 0.}, FrameTicks -> {{Quiet[
+          Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , 
+         Charting`ScaledFrameTicks[{Log, Exp}]}, {Quiet[
+          Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , 
+         Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {None, {
+         Log[3]}}, DisplayFunction -> Identity, PlotRangePadding -> {{
+         Scaled[0.02], 
+         Scaled[0.02]}, {
+         Scaled[0.05], 
+         Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
+      DisplayFunction -> Identity, 
+      Method -> {
+       "DefaultBoundaryStyle" -> Automatic, 
+        "DefaultGraphicsInteraction" -> {
+         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+          "Effects" -> {
+           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+            "Droplines" -> {
+             "freeformCursorMode" -> True, 
+              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
+        None, "AxesInFront" -> True, 
+        "ClippingRange" -> {{{-48.35428667092576, -34.53877667685988}, {
+         1.0986122886681098`, 
+         10.030542108355558`}}, {{-48.35428667092576, -34.53877667685988}, {
+         1.0986122886681098`, 10.030542108355558`}}}}, DisplayFunction -> 
+      Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, 
+      AxesLabel -> {None, None}, AxesOrigin -> {-48.35428695287496, 0}, 
+      CoordinatesToolOptions -> {"DisplayFunction" -> ({
+          Exp[
+           Part[#, 1]], 
+          Exp[
+           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+          Exp[
+           Part[#, 1]], 
+          Exp[
+           Part[#, 2]]}& )}, DisplayFunction :> Identity, Epilog -> {{
+         Directive[
+          RGBColor[0, 0, 1]], 
+         Line[{{-47.96794665543929, 
+           10.030185205582086`}, {-47.265543926045055`, 
+           10.029050775511474`}, {-46.568654373826604`, 
+           10.026785768880622`}, {-46.162700369500044`, 
+           10.024525880913185`}, {-45.65283635401749, 
+           10.02002136879208}, {-44.96432209706277, 
+           10.008848068193954`}, {-43.225095307289074`, 
+           9.903487552536127}, {-42.33864981656113, 
+           9.721165995742174}, {-41.935155232927336`, 
+           9.567015315914915}, {-41.68236947993305, 
+           9.433483923290392}, {-41.50253221501293, 
+           9.315700887634009}, {-41.36517819913762, 
+           9.210340371976184}, {-40.02892740244519, 
+           6.907755278982137}, {-39.82851177224265, 
+           6.214608098422191}, {-39.661634309339554`, 
+           5.521460917862246}, {-39.575542120430846`, 
+           5.115995809754082}, {-39.51866300815212, 
+           4.8283137373023015`}, {-39.47666960329433, 
+           4.605170185988092}, {-39.35645176781541, 
+           3.912023005428146}, {-39.29229428035575, 
+           3.506557897319982}, {-39.24914767165308, 
+           3.2188758248682006`}, {-39.216917308727304`, 
+           2.995732273553991}, {-39.191333125327716`, 
+           2.8134107167600364`}, {-39.17020122861362, 
+           2.659260036932778}, {-39.15225009454217, 
+           2.5257286443082556`}, {-39.13667920284665, 
+           2.407945608651872}, {-39.12295308129347, 
+           2.302585092994046}, {-38.862185445891384`, 
+            0}, {-38.655545270359134`, -Log[10]}, {-38.484379244929904`, -
+            Log[100]}}]}}, Frame -> {{True, True}, {True, True}}, 
+      FrameLabel -> {{
+        "Lower Bound on (\!\(\*SubscriptBox[\(\[Omega]\), \(BD\)]\)+3/2)", 
+         None}, {"\!\(\*SubscriptBox[\(m\), \(s\)]\)(eV)", None}}, FrameStyle -> 
+      Directive[Bold, 16], 
+      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+      GridLines -> {None, {3}}, GridLinesStyle -> Directive[
+        GrayLevel[0.5, 0.4]], ImageSize -> Large, 
+      Method -> {
+       "DefaultBoundaryStyle" -> Automatic, 
+        "DefaultGraphicsInteraction" -> {
+         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+          "Effects" -> {
+           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+            "Droplines" -> {
+             "freeformCursorMode" -> True, 
+              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
+        None, "AxesInFront" -> True}, 
+      PlotRange -> {{-Log[1000000000000000000000], -Log[1000000000000000]}, {
+        0., 10.030542108355558`}}, PlotRangeClipping -> True, 
+      PlotRangePadding -> {{
+         Scaled[0.02], 
+         Scaled[0.02]}, {
+         Scaled[0.02], 
+         Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
+    Placed[
+     Unevaluated[
+      LineLegend[{
+        Directive[
+         Opacity[1.], 
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         AbsoluteThickness[1.6]]}, {"Cassini", "Not Permitted"}, 
+       LegendMarkers -> None, LabelStyle -> {}, LegendLayout -> "Column"]], {
+     0.8, 0.8}, Identity]]& ],
+  AutoDelete->True,
+  Editable->True,
+  SelectWithContents->False,
+  Selectable->True]], "Output",
+ CellChangeTimes->{
+  3.792481190613813*^9, 3.7924812489222*^9, {3.7924813352373238`*^9, 
+   3.792481339722481*^9}, {3.792481380108781*^9, 3.792481412060347*^9}, 
+   3.792481557084991*^9, {3.792481627661607*^9, 3.792481642963335*^9}, 
+   3.792481707566607*^9, {3.7924818056965*^9, 3.792481868137397*^9}, {
+   3.7924819287092543`*^9, 3.7924819598813467`*^9}, {3.792481993588787*^9, 
+   3.792482032851954*^9}, 3.792482095153644*^9, {3.792482218173798*^9, 
+   3.79248222852962*^9}, {3.7924823057854557`*^9, 3.79248231339263*^9}, 
+   3.7924823537475433`*^9, 3.792482415895907*^9, 3.792482590436059*^9, 
+   3.792482630451292*^9, 3.792482864280467*^9, {3.792482929267036*^9, 
+   3.79248294620431*^9}, 3.7924829783447037`*^9, 3.792483063535203*^9, {
+   3.792483117822504*^9, 3.7924831284536552`*^9}, {3.792483210947192*^9, 
+   3.792483374547078*^9}, {3.792483412450268*^9, 3.792483470524459*^9}, {
+   3.792483544635777*^9, 3.792483579446789*^9}, 3.7924836211857*^9, {
+   3.792483671577915*^9, 3.792483689511731*^9}, {3.792483723818544*^9, 
+   3.7924838109687433`*^9}, {3.7924838421144743`*^9, 
+   3.7924838704825487`*^9}, {3.792483918119158*^9, 3.7924840835786953`*^9}, 
+   3.792484123384119*^9, 3.7924841651309357`*^9, 3.7924844128681803`*^9, 
+   3.7924879650895147`*^9, 3.792487997415801*^9, 3.7924880999546127`*^9, 
+   3.7924881777475653`*^9, 3.792488218974638*^9, 3.7924884332837276`*^9, 
+   3.7924884771839533`*^9, 3.792488656729966*^9, {3.79248870030437*^9, 
+   3.792488731335091*^9}, {3.792488771753871*^9, 3.792488985120092*^9}, 
+   3.792489789022066*^9, {3.80017440900023*^9, 3.800174412492072*^9}, 
+   3.800174455175311*^9, {3.8001745176380777`*^9, 3.800174533701284*^9}, 
+   3.800177011905674*^9, 3.800177061216956*^9, 3.800177464175272*^9, 
+   3.800177507907954*^9, 3.8001776510800867`*^9, 3.800273075836602*^9},
+ CellLabel->
+  "Out[383]=",ExpressionUUID->"927f5c7b-6faf-4735-9e9d-0aa869cf0760"]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["LLR", "Subsubsection",
+ CellChangeTimes->{{3.800273360323029*^9, 
+  3.800273368917976*^9}},ExpressionUUID->"e4a9ae43-463d-4aae-9abe-\
+517b2016b6ca"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"xlist", "=", 
+  RowBox[{"Reverse", "[", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"2", "*", 
+      RowBox[{"10", "^", "3"}]}], ",", 
+     RowBox[{"10", "^", "3"}], ",", 
+     RowBox[{"8", "*", 
+      RowBox[{"10", "^", "2"}]}], ",", 
+     RowBox[{"6", "*", 
+      RowBox[{"10", "^", "2"}]}], ",", 
+     RowBox[{"4", "*", 
+      RowBox[{"10", "^", "2"}]}], ",", 
+     RowBox[{"2", "*", 
+      RowBox[{"10", "^", "2"}]}], ",", 
+     RowBox[{"10", "^", "2"}], ",", 
+     RowBox[{"10", "^", "1"}], ",", 
+     RowBox[{"10", "^", "0"}], ",", "0.1", ",", "0.09", ",", "0.08", ",", 
+     "0.07", ",", "0.06", ",", "0.05", ",", "0.04", ",", "0.03", ",", "0.02", 
+     ",", "0.01", ",", "0.008", ",", "0.006", ",", "0.004", ",", "0.002", ",",
+      "0.001", ",", "0.0001", ",", 
+     RowBox[{"9", "*", "0.00001"}], ",", 
+     RowBox[{"8", "*", "0.00001"}], ",", 
+     RowBox[{"7", "*", "0.00001"}], ",", 
+     RowBox[{"6", "*", "0.00001"}], ",", 
+     RowBox[{"5", "*", "0.00001"}], ",", 
+     RowBox[{"4.5", "*", "0.00001"}], ",", 
+     RowBox[{"4.45", "*", "0.00001"}], ",", 
+     RowBox[{"4.43", "*", "0.00001"}], ",", 
+     RowBox[{"4.42", "*", "0.00001"}], ",", 
+     RowBox[{"4.41", "*", "0.00001"}], ",", 
+     RowBox[{"4.405", "*", "0.00001"}]}], "}"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.7924821681270227`*^9, 3.79248217822686*^9}, {
+   3.792482297027713*^9, 3.792482303108605*^9}, {3.792482911233403*^9, 
+   3.7924829251800203`*^9}, {3.792483018380254*^9, 3.792483059339826*^9}, {
+   3.792483312844427*^9, 3.792483313392374*^9}, {3.792483345996736*^9, 
+   3.792483346454281*^9}, {3.792483403541926*^9, 3.7924834417673473`*^9}, {
+   3.7924835769893703`*^9, 3.792483577221919*^9}, {3.792483642211828*^9, 
+   3.792483719846209*^9}, {3.792483752793498*^9, 3.792483808038138*^9}, {
+   3.792483908695217*^9, 3.792483949340746*^9}, {3.792483990210725*^9, 
+   3.7924840783397217`*^9}, {3.792484119674519*^9, 3.7924841625319138`*^9}, {
+   3.8001771396891623`*^9, 3.8001772478848057`*^9}, {3.800177361022973*^9, 
+   3.8001774480063467`*^9}, {3.800177617849517*^9, 3.800177629655754*^9}, 
+   3.800273450715973*^9, {3.8002735164555683`*^9, 3.800273524766911*^9}, {
+   3.800273637352166*^9, 3.800273747863697*^9}},
+ CellLabel->
+  "In[434]:=",ExpressionUUID->"3fe47531-a7d0-4d41-9f59-1f3102766ae8"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+  "0.00004405000000000001`", ",", "0.00004410000000000001`", ",", 
+   "0.000044200000000000004`", ",", "0.0000443`", ",", 
+   "0.000044500000000000004`", ",", "0.000045`", ",", "0.00005`", ",", 
+   "0.00006000000000000001`", ",", "0.00007000000000000001`", ",", "0.00008`",
+    ",", "0.00009`", ",", "0.0001`", ",", "0.001`", ",", "0.002`", ",", 
+   "0.004`", ",", "0.006`", ",", "0.008`", ",", "0.01`", ",", "0.02`", ",", 
+   "0.03`", ",", "0.04`", ",", "0.05`", ",", "0.06`", ",", "0.07`", ",", 
+   "0.08`", ",", "0.09`", ",", "0.1`", ",", "1", ",", "10", ",", "100", ",", 
+   "200", ",", "400", ",", "600", ",", "800", ",", "1000", ",", "2000"}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.800177153260303*^9, 3.8001772481338987`*^9}, {
+   3.8001773629683437`*^9, 3.800177448259471*^9}, 3.800177629979953*^9, 
+   3.80027303735955*^9, 3.800273374605887*^9, 3.800273451906708*^9, {
+   3.800273500002687*^9, 3.80027352501819*^9}, 3.800273638489217*^9, 
+   3.800273682926873*^9, {3.800273716967465*^9, 3.800273748317206*^9}},
+ CellLabel->
+  "Out[434]=",ExpressionUUID->"a152b91b-b458-4cd1-8363-ba94273c3c8d"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"const", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"x", "+", 
+        RowBox[{"3", "/", "2"}]}], ",", 
+       RowBox[{"m", "/.", 
+        RowBox[{"FindRoot", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{"1", "+", "m"}], ")"}], " ", 
+              RowBox[{"Exp", "[", 
+               RowBox[{"-", "m"}], "]"}]}], ")"}], "/", 
+            RowBox[{"(", 
+             RowBox[{"x", "+", "2"}], ")"}]}], "\[Equal]", 
+           RowBox[{"5.8", " ", 
+            RowBox[{"10", "^", 
+             RowBox[{"(", 
+              RowBox[{"-", "4"}], ")"}]}]}]}], ",", 
+          RowBox[{"{", 
+           RowBox[{"m", ",", 
+            RowBox[{"10", "^", 
+             RowBox[{"-", "18"}]}]}], "}"}], ",", 
+          RowBox[{"WorkingPrecision", "\[Rule]", "100"}], ",", 
+          RowBox[{"AccuracyGoal", "\[Rule]", "100"}], ",", 
+          RowBox[{"PrecisionGoal", "\[Rule]", "100"}]}], "]"}]}]}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"x", ",", "xlist"}], "}"}]}], "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.792480353082926*^9, 3.792480458528138*^9}, {
+   3.79248075555788*^9, 3.792480755970029*^9}, {3.7924808501130323`*^9, 
+   3.792480850849119*^9}, {3.792480914527608*^9, 3.792480920388804*^9}, {
+   3.792481073013876*^9, 3.792481074331258*^9}, {3.7924813335684958`*^9, 
+   3.7924813389277678`*^9}, 3.7924814107251263`*^9, {3.7924815291119833`*^9, 
+   3.7924815543917723`*^9}, {3.792481803426395*^9, 3.7924818037470293`*^9}, {
+   3.792481872737005*^9, 3.792481927137003*^9}, {3.7924819746798773`*^9, 
+   3.792481990739448*^9}, 3.79248219768585*^9, {3.792482347328526*^9, 
+   3.7924823492385693`*^9}, {3.7924825169321127`*^9, 3.792482628054343*^9}, {
+   3.792482851593539*^9, 3.792482852186997*^9}, {3.792483115135929*^9, 
+   3.7924831267790213`*^9}, {3.792483541737007*^9, 3.792483552560916*^9}, {
+   3.7924836190639267`*^9, 3.7924836192907553`*^9}, {3.792483976852233*^9, 
+   3.7924839771119633`*^9}, 3.7924840216566668`*^9, {3.800174177608321*^9, 
+   3.8001741798596983`*^9}, {3.8001769580785646`*^9, 3.800176960834504*^9}, {
+   3.800177109525546*^9, 3.800177111810503*^9}, {3.80027338383049*^9, 
+   3.8002734171648073`*^9}, {3.80027346119661*^9, 3.800273480972752*^9}, {
+   3.800273537395499*^9, 3.80027353920813*^9}, {3.800273624289804*^9, 
+   3.8002736244465237`*^9}},
+ CellLabel->
+  "In[435]:=",ExpressionUUID->"1bc4d925-a394-449d-8bba-c94874c4fa65"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "FindRoot","precw",
+   "\"The precision of the argument function \
+(\\!\\(\\*RowBox[{RowBox[{\\\"0.49998898774254497`\\\", \\\" \\\", \
+SuperscriptBox[\\\"\[ExponentialE]\\\", RowBox[{\\\"-\\\", \\\"m\\\"}]], \\\" \
+\\\", RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"+\\\", \\\"m\\\"}], \
+\\\")\\\"}]}], \\\"\[Equal]\\\", \\\"0.00058`\\\"}]\\)) is less than \
+WorkingPrecision (\\!\\(\\*RowBox[{\\\"100.`\\\"}]\\)).\"",2,435,160,
+   19650336214106342288,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.800174165278363*^9, 3.800174180351301*^9}, 
+   3.8001769613575907`*^9, {3.800177112293079*^9, 3.800177248843892*^9}, {
+   3.8001773656349573`*^9, 3.800177448940645*^9}, {3.8001776315228567`*^9, 
+   3.800177635279467*^9}, 3.80027303798645*^9, {3.800273408794919*^9, 
+   3.8002734205480757`*^9}, {3.8002734525169163`*^9, 
+   3.8002734814152393`*^9}, {3.800273525653742*^9, 3.8002735394783087`*^9}, {
+   3.8002736248026323`*^9, 3.800273639068221*^9}, 3.80027368359741*^9, {
+   3.800273717636381*^9, 3.800273748882197*^9}},
+ CellLabel->
+  "During evaluation of \
+In[435]:=",ExpressionUUID->"559f7c3e-4e6b-4681-95cc-1c6ae7b8f0fd"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "FindRoot","precw",
+   "\"The precision of the argument function \
+(\\!\\(\\*RowBox[{RowBox[{\\\"0.4999889752430958`\\\", \\\" \\\", \
+SuperscriptBox[\\\"\[ExponentialE]\\\", RowBox[{\\\"-\\\", \\\"m\\\"}]], \\\" \
+\\\", RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"+\\\", \\\"m\\\"}], \
+\\\")\\\"}]}], \\\"\[Equal]\\\", \\\"0.00058`\\\"}]\\)) is less than \
+WorkingPrecision (\\!\\(\\*RowBox[{\\\"100.`\\\"}]\\)).\"",2,435,161,
+   19650336214106342288,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.800174165278363*^9, 3.800174180351301*^9}, 
+   3.8001769613575907`*^9, {3.800177112293079*^9, 3.800177248843892*^9}, {
+   3.8001773656349573`*^9, 3.800177448940645*^9}, {3.8001776315228567`*^9, 
+   3.800177635279467*^9}, 3.80027303798645*^9, {3.800273408794919*^9, 
+   3.8002734205480757`*^9}, {3.8002734525169163`*^9, 
+   3.8002734814152393`*^9}, {3.800273525653742*^9, 3.8002735394783087`*^9}, {
+   3.8002736248026323`*^9, 3.800273639068221*^9}, 3.80027368359741*^9, {
+   3.800273717636381*^9, 3.800273748893692*^9}},
+ CellLabel->
+  "During evaluation of \
+In[435]:=",ExpressionUUID->"a03ea14c-a34a-4e0f-86ba-121236a87130"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "FindRoot","precw",
+   "\"The precision of the argument function \
+(\\!\\(\\*RowBox[{RowBox[{\\\"0.4999889502441996`\\\", \\\" \\\", \
+SuperscriptBox[\\\"\[ExponentialE]\\\", RowBox[{\\\"-\\\", \\\"m\\\"}]], \\\" \
+\\\", RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"+\\\", \\\"m\\\"}], \
+\\\")\\\"}]}], \\\"\[Equal]\\\", \\\"0.00058`\\\"}]\\)) is less than \
+WorkingPrecision (\\!\\(\\*RowBox[{\\\"100.`\\\"}]\\)).\"",2,435,162,
+   19650336214106342288,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.800174165278363*^9, 3.800174180351301*^9}, 
+   3.8001769613575907`*^9, {3.800177112293079*^9, 3.800177248843892*^9}, {
+   3.8001773656349573`*^9, 3.800177448940645*^9}, {3.8001776315228567`*^9, 
+   3.800177635279467*^9}, 3.80027303798645*^9, {3.800273408794919*^9, 
+   3.8002734205480757`*^9}, {3.8002734525169163`*^9, 
+   3.8002734814152393`*^9}, {3.800273525653742*^9, 3.8002735394783087`*^9}, {
+   3.8002736248026323`*^9, 3.800273639068221*^9}, 3.80027368359741*^9, {
+   3.800273717636381*^9, 3.800273748899877*^9}},
+ CellLabel->
+  "During evaluation of \
+In[435]:=",ExpressionUUID->"30714085-ef14-4eb4-b627-1d2f3bfc00e4"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "General","stop",
+   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"FindRoot\\\", \
+\\\"::\\\", \\\"precw\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
+during this calculation.\"",2,435,163,19650336214106342288,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.800174165278363*^9, 3.800174180351301*^9}, 
+   3.8001769613575907`*^9, {3.800177112293079*^9, 3.800177248843892*^9}, {
+   3.8001773656349573`*^9, 3.800177448940645*^9}, {3.8001776315228567`*^9, 
+   3.800177635279467*^9}, 3.80027303798645*^9, {3.800273408794919*^9, 
+   3.8002734205480757`*^9}, {3.8002734525169163`*^9, 
+   3.8002734814152393`*^9}, {3.800273525653742*^9, 3.8002735394783087`*^9}, {
+   3.8002736248026323`*^9, 3.800273639068221*^9}, 3.80027368359741*^9, {
+   3.800273717636381*^9, 3.8002737489053173`*^9}},
+ CellLabel->
+  "During evaluation of \
+In[435]:=",ExpressionUUID->"42aac114-2832-4de4-824a-a72e3ce66945"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "FindRoot","lstol",
+   "\"The line search decreased the step size to within tolerance specified \
+by AccuracyGoal and PrecisionGoal but was unable to find a sufficient \
+decrease in the merit function. You may need more than \
+\\!\\(\\*RowBox[{\\\"100.`\\\"}]\\) digits of working precision to meet these \
+tolerances.\"",2,435,164,19650336214106342288,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.800174165278363*^9, 3.800174180351301*^9}, 
+   3.8001769613575907`*^9, {3.800177112293079*^9, 3.800177248843892*^9}, {
+   3.8001773656349573`*^9, 3.800177448940645*^9}, {3.8001776315228567`*^9, 
+   3.800177635279467*^9}, 3.80027303798645*^9, {3.800273408794919*^9, 
+   3.8002734205480757`*^9}, {3.8002734525169163`*^9, 
+   3.8002734814152393`*^9}, {3.800273525653742*^9, 3.8002735394783087`*^9}, {
+   3.8002736248026323`*^9, 3.800273639068221*^9}, 3.80027368359741*^9, {
+   3.800273717636381*^9, 3.80027374898521*^9}},
+ CellLabel->
+  "During evaluation of \
+In[435]:=",ExpressionUUID->"1e27ca73-b537-4543-8e8e-c07e204ce5f6"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ref", "=", 
+  RowBox[{"const", "/.", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"zz_", ",", "yy_"}], "}"}], "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"4.14", " ", 
+       RowBox[{"10", "^", 
+        RowBox[{"(", 
+         RowBox[{"-", "15"}], ")"}]}], 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"3", " ", 
+          RowBox[{"10", "^", "8"}]}], ")"}], "/", 
+        RowBox[{"(", 
+         RowBox[{"1.496", "*", 
+          RowBox[{"10", "^", "11"}]}], ")"}]}], "*", 
+       RowBox[{"yy", "/", 
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}]}]}], ",", " ", "zz"}], 
+     "}"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.792482275177369*^9, 3.7924822775718613`*^9}, {
+  3.7924829631666117`*^9, 3.7924829634046497`*^9}, {3.800273052202984*^9, 
+  3.800273055572308*^9}},
+ CellLabel->
+  "In[436]:=",ExpressionUUID->"3dd985d9-e310-44bb-bc2f-3fcab7398255"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"1.1982779120540256`*^-17", ",", "1.50004405`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1982779083865378`*^-17", ",", "1.5000441`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1982779010515621`*^-17", ",", "1.5000442`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1982778937165865`*^-17", ",", "1.5000443`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1982778790466369`*^-17", ",", "1.5000445`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1982778423717692`*^-17", ",", "1.500045`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1982774756235903`*^-17", ",", "1.50005`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.198276742129949`*^-17", ",", "1.50006`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1982760086399305`*^-17", ",", "1.50007`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1982752751535349`*^-17", ",", "1.50008`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1982745416707618`*^-17", ",", "1.50009`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1982738081916113`*^-17", ",", "1.5001`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.198207809898296`*^-17", ",", "1.501`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.198134512844154`*^-17", ",", "1.502`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1979880271730944`*^-17", ",", "1.504`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1978416858457372`*^-17", ",", "1.506`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.197695488575717`*^-17", ",", "1.508`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.197549435077521`*^-17", ",", "1.51`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1968213142302288`*^-17", ",", "1.52`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1960967453361481`*^-17", ",", "1.53`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1953756936456722`*^-17", ",", "1.54`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1946581249175825`*^-17", ",", "1.55`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1939440054091683`*^-17", ",", "1.56`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1932333018665917`*^-17", ",", "1.57`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.19252598151548`*^-17", ",", "1.58`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.191822012051745`*^-17", ",", "1.59`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1911213616326212`*^-17", ",", "1.6`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1386463755771912`*^-17", ",", 
+     FractionBox["5", "2"]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.320251684396774`*^-18", ",", 
+     FractionBox["23", "2"]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.998022640714542`*^-18", ",", 
+     FractionBox["203", "2"]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4.875102390597623`*^-18", ",", 
+     FractionBox["403", "2"]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.683622182491242`*^-18", ",", 
+     FractionBox["803", "2"]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.9364228886804476`*^-18", ",", 
+     FractionBox["1203", "2"]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.3680888312684095`*^-18", ",", 
+     FractionBox["1603", "2"]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.89088970623609`*^-18", ",", 
+     FractionBox["2003", "2"]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.3213264660436766`*^-36", ",", 
+     FractionBox["4003", "2"]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.792482278364265*^9, 3.792482305090352*^9}, 
+   3.792482352843977*^9, 3.792482587757072*^9, 3.7924826294278393`*^9, 
+   3.792482860190465*^9, {3.792482902589355*^9, 3.7924829277336473`*^9}, 
+   3.792482977652837*^9, 3.792483061845364*^9, {3.792483116513783*^9, 
+   3.792483127827096*^9}, {3.792483315588278*^9, 3.7924833485084743`*^9}, {
+   3.7924834113902283`*^9, 3.7924834430181913`*^9}, {3.7924835437192183`*^9, 
+   3.79248357870555*^9}, 3.792483620378974*^9, {3.792483670696705*^9, 
+   3.792483688931843*^9}, 3.792483722265934*^9, {3.792483754780497*^9, 
+   3.792483810239943*^9}, {3.792483916771402*^9, 3.792484079655246*^9}, {
+   3.792484122650584*^9, 3.792484164002008*^9}, 3.800174180973463*^9, 
+   3.800176963377943*^9, {3.800177113273684*^9, 3.800177250172995*^9}, {
+   3.8001773673850803`*^9, 3.800177450675609*^9}, 3.800177564954606*^9, 
+   3.800177635847836*^9, {3.800273038459199*^9, 3.8002730558386593`*^9}, 
+   3.8002734233744783`*^9, {3.8002734537985773`*^9, 3.800273482306286*^9}, {
+   3.8002735268762617`*^9, 3.8002735403604803`*^9}, {3.800273626020522*^9, 
+   3.800273639813614*^9}, 3.8002736843615007`*^9, {3.800273718522093*^9, 
+   3.800273749910009*^9}},
+ CellLabel->
+  "Out[436]=",ExpressionUUID->"4bd4ed0c-c8bb-4d6a-a163-b661e6f03d29"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListLogLogPlot", "[", 
+  RowBox[{
+   RowBox[{"{", "ref", "}"}], ",", 
+   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+   RowBox[{"PlotRange", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", " ", 
+       RowBox[{
+        RowBox[{"10", "^", 
+         RowBox[{"(", 
+          RowBox[{"-", "21"}], ")"}]}], ",", 
+        RowBox[{"10", "^", 
+         RowBox[{"(", 
+          RowBox[{"-", "15"}], ")"}]}]}], "}"}], ",", "All"}], "}"}]}], ",", 
+   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
+   RowBox[{"GridLines", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"None", ",", 
+      RowBox[{"{", "3", "}"}]}], "}"}]}], ",", 
+   RowBox[{"PlotLegends", "\[Rule]", 
+    RowBox[{"Placed", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"\"\<LLR\>\"", ",", "\"\<Not Permitted\>\""}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"0.8", ",", "0.8"}], "}"}]}], "]"}]}], ",", 
+   RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
+   RowBox[{"FrameLabel", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+     "\"\<\!\(\*SubscriptBox[\(m\), \(s\)]\)(eV)\>\"", ",", 
+      "\"\<Lower Bound on (\!\(\*SubscriptBox[\(\[Omega]\), \
+\(BD\)]\)+3/2)\>\""}], "}"}]}], ",", 
+   RowBox[{"FrameStyle", "\[Rule]", 
+    RowBox[{"Directive", "[", 
+     RowBox[{"Bold", ",", "16"}], "]"}]}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.7924809811634417`*^9, 3.7924810176846333`*^9}, {
+   3.792481050314542*^9, 3.7924810506418877`*^9}, {3.792481172761291*^9, 
+   3.7924811899170513`*^9}, {3.792481377741453*^9, 3.79248138586658*^9}, {
+   3.7924816417501802`*^9, 3.7924816423459053`*^9}, {3.792481702531547*^9, 
+   3.792481706994644*^9}, {3.792481808780587*^9, 3.792481867715866*^9}, {
+   3.792481949597508*^9, 3.792481951556817*^9}, {3.792482017472578*^9, 
+   3.792482023379766*^9}, {3.792482093428446*^9, 3.79248209464964*^9}, 
+   3.7924822279762487`*^9, 3.792482312708346*^9, {3.792482942835244*^9, 
+   3.792482945734926*^9}, {3.7924833565139723`*^9, 3.792483374214595*^9}, {
+   3.7924834699746933`*^9, 3.792483470160303*^9}, {3.792483736734573*^9, 
+   3.792483742141539*^9}, {3.792483820271922*^9, 3.7924838700971737`*^9}, {
+   3.792484411467929*^9, 3.7924844124372253`*^9}, {3.7924879622234907`*^9, 
+   3.792487994778286*^9}, {3.792488099051333*^9, 3.792488099540189*^9}, {
+   3.7924881771418657`*^9, 3.792488218489883*^9}, {3.79248841971767*^9, 
+   3.7924884300810757`*^9}, {3.7924884745484867`*^9, 3.792488474748797*^9}, {
+   3.792490159719715*^9, 3.792490218692012*^9}, {3.800174192042289*^9, 
+   3.800174239580214*^9}, {3.8001742767878113`*^9, 3.800174342669599*^9}, {
+   3.8001773414762077`*^9, 3.800177350219777*^9}, {3.800273487638504*^9, 
+   3.800273488052265*^9}, {3.80027376322155*^9, 3.800273763602983*^9}},
+ CellLabel->
+  "In[438]:=",ExpressionUUID->"b4d18414-8188-41fa-b618-674e8f51b53b"],
+
+Cell[BoxData[
+ TagBox[
+  GraphicsBox[{{{}, {{{}, {}, 
+       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+        0.012833333333333334`], AbsoluteThickness[1.6], 
+        LineBox[CompressedData["
+1:eJxTTMoPSmViYGBQAWIQfX+OxzTXaucD9983SMz/fNO+Qt8fzD/g7G0D4q8J
+iQHzvV/fbwbx71dmgvmtk0pOg/iuR5rBfLYHc6MWgPh1R8H8EJnWAwuBfP5D
+YTNB/MiT3bvXA/ldHpXzQPwXP/s3ngbyJ56dvRjEt/rcvvw5kK8UuG8FiB+x
+tXgu85eb9g6XH6wF8T0cgifLA/kvgpk3g/hSU9Q6rYF8fzfeRncgv2+bghH/
+v5v2l9aYN3kC+RcmvZn1g+OW/Q6TR82+QD77ed+bR+Vu2f8VWNUSCOTrLPm0
+ptvklv3Zdf0toUC+ueNTKS+vW/bM1ZObI4H8m5u1NBgTbtlb/6kszAXyly9e
+m6d25pZ9qPQkz0Yg//ShZ5rTzG/bX1nCzzMVyHdyS9oetOi2fd1K1Z0rgHw3
+u1cZcTx37D82sgXuAfIlWK+07C69Yy9z6fHl80B+vom3W869O/aLet45Pgby
+t1vOulvkdtde/1vY7G9AvuaCgoKLa+/ab1zh84CzxvnAeTV1qS6Re/b6/Lq2
+5xqdD1Q8ePDBIeitfcaG6P782c4HSlSF7d52MjvYn4hOuHXZ+UC635SNH6qE
+HE6uTr+Q9M75wAwRplsKlqIOyyaJ3nMUcjng18K0Xvy3uEO5zKwWN32XA4rc
+3K7MMyUdnJOempz3cjkgPWPBq6/7pBxE5+zWnZvucsB4V36r8GJphydfOo4F
+LQ85sG+veZN4hpwDAFLvHtY=
+         "]]}}, 
+      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+       0.012833333333333334`], AbsoluteThickness[1.6]}, {
+       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+        0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
+       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+        0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, 
+    InsetBox[
+     TemplateBox[{"\"LLR\"","\"Not Permitted\""},
+      "PointLegend",
+      DisplayFunction->(FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    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], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
+                 GridBoxAlignment -> {
+                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
+                 AutoDelete -> False, 
+                 GridBoxDividers -> {
+                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
+                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
+                  GridBoxSpacings -> {
+                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
+             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
+             AutoDelete -> False, 
+             GridBoxItemSize -> {
+              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
+            "Grid"], Alignment -> Left, AppearanceElements -> None, 
+           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
+           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
+         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
+         False], TraditionalForm]& ),
+      Editable->True,
+      InterpretationFunction:>(RowBox[{"PointLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{"Directive", "[", 
+               RowBox[{
+                 RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
+                 ",", 
+                 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}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", 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]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                   BaseStyle -> {}, BaselinePosition -> Baseline, 
+                   DefaultBaseStyle -> {}, ButtonFunction :> 
+                   With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.368417, 0.506779, 0.709798]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                   Automatic, Method -> "Preemptive"], 
+                  RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, 
+                  Selectable -> False], ",", 
+                 RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
+             "}"}], ",", 
+           RowBox[{"{", 
+             RowBox[{#, ",", #2}], "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{"{", 
+                 RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", 
+           RowBox[{"Joined", "\[Rule]", 
+             RowBox[{"{", "True", "}"}]}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"{", "}"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
+     Scaled[{0.8, 0.8}], ImageScaled[{0.5, 0.5}],
+     BaseStyle->{FontSize -> Larger},
+     FormatType->StandardForm]},
+   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+   Axes->{True, True},
+   AxesLabel->{None, None},
+   AxesOrigin->{-48.35428695287496, -0.15764570441123416`},
+   DisplayFunction->Identity,
+   Frame->{{True, True}, {True, True}},
+   FrameLabel->{{
+      FormBox[
+      "\"Lower Bound on (\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \
+\\(BD\\)]\\)+3/2)\"", TraditionalForm], None}, {
+      FormBox[
+      "\"\\!\\(\\*SubscriptBox[\\(m\\), \\(s\\)]\\)(eV)\"", TraditionalForm], 
+      None}},
+   FrameStyle->Directive[Bold, 16],
+   FrameTicks->FrontEndValueCache[{{
+       Charting`ScaledTicks[{Log, Exp}], 
+       Charting`ScaledFrameTicks[{Log, Exp}]}, {
+       Charting`ScaledTicks[{Log, Exp}], 
+       Charting`ScaledFrameTicks[{Log, Exp}]}}, {{{{0., 
+         FormBox["1", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.302585092994046, 
+         FormBox["10", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.605170185988092, 
+         FormBox["100", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.907755278982137, 
+         FormBox["1000", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.2039728043259361`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.916290731874155, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.791759469228055, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.995732273553991, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.912023005428146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.0943445622221, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.248495242049359, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.382026634673881, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.499809670330265, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.298317366548036, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.703782474656201, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.991464547107982, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.214608098422191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.396929655216146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.551080335043404, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.684611727667927, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.802394763324311, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {7.600902459542082, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.006367567650246, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.294049640102028, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.517193191416238, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.699514748210191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.85366542803745, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.987196820661973, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.104979856318357, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.210340371976184, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.615805480084347, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.903487552536127, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {10.126631103850338`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}, {{0., 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.302585092994046, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.605170185988092, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.907755278982137, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.2039728043259361`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.916290731874155, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.791759469228055, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.995732273553991, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.912023005428146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.0943445622221, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.248495242049359, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.382026634673881, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.499809670330265, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.298317366548036, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.703782474656201, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.991464547107982, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.214608098422191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.396929655216146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.551080335043404, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.684611727667927, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.802394763324311, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {7.600902459542082, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.006367567650246, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.294049640102028, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.517193191416238, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.699514748210191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.85366542803745, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.987196820661973, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.104979856318357, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.210340371976184, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.615805480084347, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.903487552536127, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {10.126631103850338`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}}, {{{-48.35428695287496, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "21"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.051701859880914`, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "20"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.74911676688687, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "19"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.44653167389282, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "18"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.14394658089878, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "17"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.841361487904734`, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "16"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.538776394910684`, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "15"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.66113977231502, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.25567466420685, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.96799259175507, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.74484904044086, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.5625274836469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.40837680381964, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.27484541119512, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.15706237553874, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-45.35855467932097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.95308957121281, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.66540749876102, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.44226394744681, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.25994239065286, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.1057917108256, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.97226031820108, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.85447728254469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.055969586326924`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.65050447821876, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.36282240576698, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.13967885445277, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.95735729765881, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.803206617831556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.66967522520703, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.55189218955065, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.753384493332874`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.34791938522471, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.060237312772934`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.837093761458725`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.654772204664766`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.500621524837506`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.36709013221299, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.249307096556606`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.45079940033883, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.04533429223067, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.75765221977888, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.534508668464674`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.35218711167072, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.19803643184346, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.06450503921894, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.946722003562556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.14821430734479, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.74274919923662, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.45506712678484, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.23192357547063, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.04960201867667, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.89545133884942, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.76191994622489, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.64413691056851, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.84562921435074, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.44016410624258, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.1524820337908, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.92933848247659, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.74701692568263, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.59286624585537, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.45933485323085, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.34155181757447, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.23619130191664, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}, {{-48.35428695287496, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.051701859880914`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.74911676688687, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.44653167389282, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.14394658089878, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.841361487904734`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.538776394910684`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.66113977231502, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.25567466420685, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.96799259175507, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.74484904044086, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.5625274836469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.40837680381964, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.27484541119512, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.15706237553874, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-45.35855467932097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.95308957121281, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.66540749876102, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.44226394744681, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.25994239065286, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.1057917108256, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.97226031820108, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.85447728254469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.055969586326924`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.65050447821876, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.36282240576698, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.13967885445277, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.95735729765881, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.803206617831556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.66967522520703, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.55189218955065, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.753384493332874`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.34791938522471, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.060237312772934`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.837093761458725`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.654772204664766`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.500621524837506`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.36709013221299, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.249307096556606`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.45079940033883, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.04533429223067, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.75765221977888, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.534508668464674`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.35218711167072, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.19803643184346, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.06450503921894, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.946722003562556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.14821430734479, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.74274919923662, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.45506712678484, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.23192357547063, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.04960201867667, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.89545133884942, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.76191994622489, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.64413691056851, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.84562921435074, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.44016410624258, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.1524820337908, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.92933848247659, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.74701692568263, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.59286624585537, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.45933485323085, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.34155181757447, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.23619130191664, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}}}],
+   GridLines->NCache[{None, {
+       Log[3]}}, {None, {1.0986122886681098`}}],
+   GridLinesStyle->Directive[
+     GrayLevel[0.5, 0.4]],
+   ImageSize->Large,
+   Method->{
+    "OptimizePlotMarkers" -> True, 
+     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+         (Exp[#]& )[
+          Part[#, 1]], 
+         (Exp[#]& )[
+          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+         (Exp[#]& )[
+          Part[#, 1]], 
+         (Exp[#]& )[
+          Part[#, 2]]}& )}},
+   PlotRange->
+    NCache[{{-Log[1000000000000000000000], -
+       Log[1000000000000000]}, {-0.15764570441123416`, 
+      7.601652178432628}}, {{-48.35428695287496, -34.538776394910684`}, \
+{-0.15764570441123416`, 7.601652178432628}}],
+   PlotRangeClipping->True,
+   PlotRangePadding->{{0, 0}, {
+      Scaled[0.02], 
+      Scaled[0.05]}},
+   Ticks->{
+     Charting`ScaledTicks[{Log, Exp}], 
+     Charting`ScaledTicks[{Log, Exp}]}],
+  InterpretTemplate[Legended[
+    Graphics[{{}, {{{}, {}, {
+         Hue[0.67, 0.6, 0.6], 
+         Directive[
+          PointSize[0.012833333333333334`], 
+          RGBColor[0.368417, 0.506779, 0.709798], 
+          AbsoluteThickness[1.6]], 
+         Line[CompressedData["
+1:eJxTTMoPSmViYGBQAWIQfX+OxzTXaucD9983SMz/fNO+Qt8fzD/g7G0D4q8J
+iQHzvV/fbwbx71dmgvmtk0pOg/iuR5rBfLYHc6MWgPh1R8H8EJnWAwuBfP5D
+YTNB/MiT3bvXA/ldHpXzQPwXP/s3ngbyJ56dvRjEt/rcvvw5kK8UuG8FiB+x
+tXgu85eb9g6XH6wF8T0cgifLA/kvgpk3g/hSU9Q6rYF8fzfeRncgv2+bghH/
+v5v2l9aYN3kC+RcmvZn1g+OW/Q6TR82+QD77ed+bR+Vu2f8VWNUSCOTrLPm0
+ptvklv3Zdf0toUC+ueNTKS+vW/bM1ZObI4H8m5u1NBgTbtlb/6kszAXyly9e
+m6d25pZ9qPQkz0Yg//ShZ5rTzG/bX1nCzzMVyHdyS9oetOi2fd1K1Z0rgHw3
+u1cZcTx37D82sgXuAfIlWK+07C69Yy9z6fHl80B+vom3W869O/aLet45Pgby
+t1vOulvkdtde/1vY7G9AvuaCgoKLa+/ab1zh84CzxvnAeTV1qS6Re/b6/Lq2
+5xqdD1Q8ePDBIeitfcaG6P782c4HSlSF7d52MjvYn4hOuHXZ+UC635SNH6qE
+HE6uTr+Q9M75wAwRplsKlqIOyyaJ3nMUcjng18K0Xvy3uEO5zKwWN32XA4rc
+3K7MMyUdnJOempz3cjkgPWPBq6/7pBxE5+zWnZvucsB4V36r8GJphydfOo4F
+LQ85sG+veZN4hpwDAFLvHtY=
+          "]]}}, {{
+         Directive[
+          PointSize[0.012833333333333334`], 
+          RGBColor[0.368417, 0.506779, 0.709798], 
+          AbsoluteThickness[1.6]]}}, {{
+         Directive[
+          PointSize[0.012833333333333334`], 
+          RGBColor[0.368417, 0.506779, 0.709798], 
+          AbsoluteThickness[1.6]]}, {}}, {{
+         Directive[
+          PointSize[0.012833333333333334`], 
+          RGBColor[0.368417, 0.506779, 0.709798], 
+          AbsoluteThickness[1.6]]}, {}}}, {{}, {}}}, {
+     DisplayFunction -> Identity, GridLines -> {None, {
+         Log[3]}}, DisplayFunction -> Identity, DisplayFunction -> Identity, 
+      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
+      GoldenRatio^(-1), Axes -> {True, True}, AxesLabel -> {None, None}, 
+      AxesOrigin -> {-48.35428695287496, -0.15764570441123416`}, 
+      DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, 
+      FrameLabel -> {{
+        "Lower Bound on (\!\(\*SubscriptBox[\(\[Omega]\), \(BD\)]\)+3/2)", 
+         None}, {"\!\(\*SubscriptBox[\(m\), \(s\)]\)(eV)", None}}, FrameStyle -> 
+      Directive[Bold, 16], FrameTicks -> {{
+         Charting`ScaledTicks[{Log, Exp}], 
+         Charting`ScaledFrameTicks[{Log, Exp}]}, {
+         Charting`ScaledTicks[{Log, Exp}], 
+         Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {None, {
+         Log[3]}}, GridLinesStyle -> Directive[
+        GrayLevel[0.5, 0.4]], ImageSize -> Large, 
+      Method -> {
+       "OptimizePlotMarkers" -> True, 
+        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+            (Exp[#]& )[
+             Part[#, 1]], 
+            (Exp[#]& )[
+             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+            (Exp[#]& )[
+             Part[#, 1]], 
+            (Exp[#]& )[
+             Part[#, 2]]}& )}}, 
+      PlotRange -> {{-Log[1000000000000000000000], -
+         Log[1000000000000000]}, {-0.15764570441123416`, 7.601652178432628}}, 
+      PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {
+         Scaled[0.02], 
+         Scaled[0.05]}}, Ticks -> {
+        Charting`ScaledTicks[{Log, Exp}], 
+        Charting`ScaledTicks[{Log, Exp}]}}], 
+    Placed[
+     Unevaluated[
+      PointLegend[{
+        Directive[
+         PointSize[0.012833333333333334`], 
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         AbsoluteThickness[1.6]]}, {"LLR", "Not Permitted"}, 
+       LegendMarkers -> {{False, Automatic}}, Joined -> {True}, 
+       LabelStyle -> {}, LegendLayout -> "Column"]], {0.8, 0.8}, Identity]]& ],
+  AutoDelete->True,
+  Editable->True,
+  SelectWithContents->False,
+  Selectable->True]], "Output",
+ CellChangeTimes->{
+  3.792481190613813*^9, 3.7924812489222*^9, {3.7924813352373238`*^9, 
+   3.792481339722481*^9}, {3.792481380108781*^9, 3.792481412060347*^9}, 
+   3.792481557084991*^9, {3.792481627661607*^9, 3.792481642963335*^9}, 
+   3.792481707566607*^9, {3.7924818056965*^9, 3.792481868137397*^9}, {
+   3.7924819287092543`*^9, 3.7924819598813467`*^9}, {3.792481993588787*^9, 
+   3.792482032851954*^9}, 3.792482095153644*^9, {3.792482218173798*^9, 
+   3.79248222852962*^9}, {3.7924823057854557`*^9, 3.79248231339263*^9}, 
+   3.7924823537475433`*^9, 3.792482415895907*^9, 3.792482590436059*^9, 
+   3.792482630451292*^9, 3.792482864280467*^9, {3.792482929267036*^9, 
+   3.79248294620431*^9}, 3.7924829783447037`*^9, 3.792483063535203*^9, {
+   3.792483117822504*^9, 3.7924831284536552`*^9}, {3.792483210947192*^9, 
+   3.792483374547078*^9}, {3.792483412450268*^9, 3.792483470524459*^9}, {
+   3.792483544635777*^9, 3.792483579446789*^9}, 3.7924836211857*^9, {
+   3.792483671577915*^9, 3.792483689511731*^9}, {3.792483723818544*^9, 
+   3.7924838109687433`*^9}, {3.7924838421144743`*^9, 
+   3.7924838704825487`*^9}, {3.792483918119158*^9, 3.7924840835786953`*^9}, 
+   3.792484123384119*^9, 3.7924841651309357`*^9, 3.7924844128681803`*^9, 
+   3.7924879650895147`*^9, 3.792487997415801*^9, 3.7924880999546127`*^9, 
+   3.7924881777475653`*^9, 3.792488218974638*^9, 3.7924884332837276`*^9, 
+   3.7924884771839533`*^9, {3.7924901602985687`*^9, 3.792490179676384*^9}, {
+   3.792490210370976*^9, 3.792490219073657*^9}, {3.800174189029745*^9, 
+   3.8001742001015587`*^9}, {3.8001742702715693`*^9, 3.800174283057023*^9}, {
+   3.800174326807637*^9, 3.800174343008148*^9}, {3.800176970915056*^9, 
+   3.800177000726247*^9}, 3.800177217885622*^9, 3.80017725558022*^9, {
+   3.800177325314349*^9, 3.800177351180724*^9}, 3.8001773921237926`*^9, {
+   3.8001774395838614`*^9, 3.800177455910808*^9}, 3.800177641446144*^9, {
+   3.80027305901873*^9, 3.800273068004369*^9}, {3.800273426409775*^9, 
+   3.800273488536303*^9}, {3.800273527830467*^9, 3.800273541209758*^9}, {
+   3.8002736271493073`*^9, 3.8002736409366426`*^9}, 3.800273685141376*^9, {
+   3.800273719464198*^9, 3.800273764321907*^9}},
+ CellLabel->
+  "Out[438]=",ExpressionUUID->"6a9a61aa-604d-4288-a37f-a81070aa1cfd"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"refi", "=", 
+  RowBox[{"Interpolation", "[", "ref", "]"}]}]], "Input",
+ CellChangeTimes->{{3.792488497498416*^9, 3.792488503359474*^9}, {
+  3.7924889406531963`*^9, 3.7924889839244757`*^9}, {3.800177487281665*^9, 
+  3.8001775027027607`*^9}, {3.800273802131812*^9, 3.800273802311749*^9}},
+ CellLabel->
+  "In[446]:=",ExpressionUUID->"06d8e1bc-d18c-40eb-b92d-0492e501527f"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   TagBox["InterpolatingFunction",
+    "SummaryHead"], "[", 
+   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
+    
+    TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
+            PaneBox[
+             ButtonBox[
+              DynamicBox[
+               FEPrivate`FrontEndResource[
+               "FEBitmaps", "SquarePlusIconMedium"]], 
+              ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, 
+              Evaluator -> Automatic, Method -> "Preemptive"], 
+             Alignment -> {Center, Center}, ImageSize -> 
+             Dynamic[{
+               Automatic, 
+                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                 Magnification])}]], 
+            GraphicsBox[{{{{}, {}, 
+                TagBox[{
+                  Directive[
+                   Opacity[1.], 
+                   RGBColor[0.368417, 0.506779, 0.709798], 
+                   AbsoluteThickness[1]], 
+                  LineBox[CompressedData["
+1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAZ8D86oltzzoDdqLg/0WfQMA3k2vB
+0ww8I0n9bPd8nUAqvA+7HwoePKX0WJjElZtAo0Ay6qNQJjwK8YWd09eZQMJS
+CIqVdy08FadIsiksmEBhZ6ln25wyPMi6WacraJZAlk5ST6Y7NjwGFebDs86U
+QLtqtQkJKDo8cNUVFL4hk0CpXq6NGgI+PAUmS4nmjJFA5n1VK/PMQDwor+E+
+ASOQQO/mMPmkv0I8rRqY1etXjUCTJI7pM5FEPKz5tqw0w4pAG062PppZRjy2
+Eqp7V2KIQBySO33MSEg8wwOsSy35hUC2qkLe2xZKPOG15hwM4oNAyN2mKLcL
+TDxE4MK0WMqBQL781ddp9008W5xyaYvSf0BP8Iap+cFPPMm5rAEwoXxALH9K
+sqrZUDyKSLyey4F5QH5wEiHHwVE8nC6Go3XZdkAM74iESb1SPO4UHFeQPXRA
+jONkmje0Uzzuj19oAfFxQFnCgUGUmlQ8LMOu6YIDcEBiLk3dVpRVPAmcg6h9
+SGxAuIRZCoh9VjyUgZUlbilpQABRy+kkYlc8onwLPqFrZkCEquu9J1pYPGeQ
+tKBRxGNAVu5MI5lBWTwWM011s45hQGS/XH1wPFo8iOQqtbzUXkBkBtKJszJb
+PCjff2lED1tAsTeIJ2UYXDy5QyX/3tBXQDr27Ll8EV08tUOWsCiXVEAQn5Ld
+AvpdPBnistIC5lFA2L2ds/TdXjzLFjFdQxVPQNxpV35M1V88/q6gXd6PSkAX
+ACltCV5gPOoqF5+s3UZA3pF9lR/bYDyAS4BniWNDQMuYcgbtT2E8drjsLVSa
+QECxWppQcMJhPL2q9hviiTxANmMZlaY+Yjw1gqRGVUo4QOHgOCKUsmI8QBWD
+3aQENUAqpa+pNDBjPKw+gmqLJTJAbCRZCourYzzgG7GDgdsvQNUYo7OYHmQ8
+SkLXMgumLEDcU0RXWZtkPGQRZE1kBipACQSGQ9EPZTwwEifB3TsoQC9v+gj/
+gWU8p/9bnFbkJkD0IMbI3/1lPCbicv+C8CNA30cy0XdxZjwY04AswnYhQGi1
+9dPC7mY8sJQoHY4hHkDq3euvw2lnPJHJ3kp+9RlAk3uC1HvcZzxRnsxoCoMW
+QNpfcPPmWGg88AZFkCI4E0BHuf5aCc1oPDSKpNhyhxBAUlnkvN5KaTy0+3PW
+4/sLQFe0/Pdpxmk8QndB/ZavB0CChLV7rDlqPNOvTvoXNwRAS5vF+aG2ajw3
+XPeQYfkAQDsndsBOK2s8TxXKvuyr/D/Sc15aYqFrPCer6HouAPg/y4O43g==
+
+                   "]]}, 
+                 Annotation[#, "Charting`Private`Tag$95494#1"]& ]}}, {}}, {
+             DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
+              AxesOrigin -> {1.3213264660436766`*^-36, 0}, 
+              FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, 
+              DisplayFunction -> Identity, PlotRangePadding -> {{
+                 Scaled[0.1], 
+                 Scaled[0.1]}, {
+                 Scaled[0.1], 
+                 Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
+              All, DisplayFunction -> Identity, AspectRatio -> 1, 
+              Axes -> {False, False}, AxesLabel -> {None, None}, 
+              AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
+              Frame -> {{True, True}, {True, True}}, 
+              FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
+              Directive[
+                Opacity[0.5], 
+                Thickness[Tiny], 
+                RGBColor[0.368417, 0.506779, 0.709798]], 
+              FrameTicks -> {{None, None}, {None, None}}, 
+              GridLines -> {None, None}, GridLinesStyle -> Directive[
+                GrayLevel[0.5, 0.4]], ImageSize -> 
+              Dynamic[{
+                Automatic, 
+                 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                  Magnification])}], 
+              Method -> {
+               "DefaultBoundaryStyle" -> Automatic, 
+                "DefaultGraphicsInteraction" -> {
+                 "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+                  "Effects" -> {
+                   "Highlight" -> {"ratio" -> 2}, 
+                    "HighlightPoint" -> {"ratio" -> 2}, 
+                    "Droplines" -> {
+                    "freeformCursorMode" -> True, 
+                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+                "DefaultMeshStyle" -> AbsolutePointSize[6], 
+                "ScalingFunctions" -> None, 
+                "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& )}}, 
+              PlotRange -> {{1.3213264660436766`*^-36, 
+               1.1982779120540256`*^-17}, {0., 2001.4998803505448`}}, 
+              PlotRangeClipping -> True, PlotRangePadding -> {{
+                 Scaled[0.1], 
+                 Scaled[0.1]}, {
+                 Scaled[0.1], 
+                 Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
+            GridBox[{{
+               RowBox[{
+                 TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                 "\[InvisibleSpace]", 
+                 TagBox[
+                  RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{
+                    "1.3213264660436766`*^-36", ",", 
+                    "1.1982779120540256`*^-17"}], "}"}], "}"}], 
+                  "SummaryItem"]}]}, {
+               RowBox[{
+                 TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                 "\[InvisibleSpace]", 
+                 TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+             GridBoxAlignment -> {
+              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
+             False, GridBoxItemSize -> {
+              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
+              BaseStyle -> {
+              ShowStringCharacters -> False, NumberMarks -> False, 
+               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
+          GridBoxItemSize -> {
+           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+          BaselinePosition -> {1, 1}], True -> GridBox[{{
+            PaneBox[
+             ButtonBox[
+              DynamicBox[
+               FEPrivate`FrontEndResource[
+               "FEBitmaps", "SquareMinusIconMedium"]], 
+              ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, 
+              Evaluator -> Automatic, Method -> "Preemptive"], 
+             Alignment -> {Center, Center}, ImageSize -> 
+             Dynamic[{
+               Automatic, 
+                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                 Magnification])}]], 
+            GraphicsBox[{{{{}, {}, 
+                TagBox[{
+                  Directive[
+                   Opacity[1.], 
+                   RGBColor[0.368417, 0.506779, 0.709798], 
+                   AbsoluteThickness[1]], 
+                  LineBox[CompressedData["
+1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAZ8D86oltzzoDdqLg/0WfQMA3k2vB
+0ww8I0n9bPd8nUAqvA+7HwoePKX0WJjElZtAo0Ay6qNQJjwK8YWd09eZQMJS
+CIqVdy08FadIsiksmEBhZ6ln25wyPMi6WacraJZAlk5ST6Y7NjwGFebDs86U
+QLtqtQkJKDo8cNUVFL4hk0CpXq6NGgI+PAUmS4nmjJFA5n1VK/PMQDwor+E+
+ASOQQO/mMPmkv0I8rRqY1etXjUCTJI7pM5FEPKz5tqw0w4pAG062PppZRjy2
+Eqp7V2KIQBySO33MSEg8wwOsSy35hUC2qkLe2xZKPOG15hwM4oNAyN2mKLcL
+TDxE4MK0WMqBQL781ddp9008W5xyaYvSf0BP8Iap+cFPPMm5rAEwoXxALH9K
+sqrZUDyKSLyey4F5QH5wEiHHwVE8nC6Go3XZdkAM74iESb1SPO4UHFeQPXRA
+jONkmje0Uzzuj19oAfFxQFnCgUGUmlQ8LMOu6YIDcEBiLk3dVpRVPAmcg6h9
+SGxAuIRZCoh9VjyUgZUlbilpQABRy+kkYlc8onwLPqFrZkCEquu9J1pYPGeQ
+tKBRxGNAVu5MI5lBWTwWM011s45hQGS/XH1wPFo8iOQqtbzUXkBkBtKJszJb
+PCjff2lED1tAsTeIJ2UYXDy5QyX/3tBXQDr27Ll8EV08tUOWsCiXVEAQn5Ld
+AvpdPBnistIC5lFA2L2ds/TdXjzLFjFdQxVPQNxpV35M1V88/q6gXd6PSkAX
+ACltCV5gPOoqF5+s3UZA3pF9lR/bYDyAS4BniWNDQMuYcgbtT2E8drjsLVSa
+QECxWppQcMJhPL2q9hviiTxANmMZlaY+Yjw1gqRGVUo4QOHgOCKUsmI8QBWD
+3aQENUAqpa+pNDBjPKw+gmqLJTJAbCRZCourYzzgG7GDgdsvQNUYo7OYHmQ8
+SkLXMgumLEDcU0RXWZtkPGQRZE1kBipACQSGQ9EPZTwwEifB3TsoQC9v+gj/
+gWU8p/9bnFbkJkD0IMbI3/1lPCbicv+C8CNA30cy0XdxZjwY04AswnYhQGi1
+9dPC7mY8sJQoHY4hHkDq3euvw2lnPJHJ3kp+9RlAk3uC1HvcZzxRnsxoCoMW
+QNpfcPPmWGg88AZFkCI4E0BHuf5aCc1oPDSKpNhyhxBAUlnkvN5KaTy0+3PW
+4/sLQFe0/Pdpxmk8QndB/ZavB0CChLV7rDlqPNOvTvoXNwRAS5vF+aG2ajw3
+XPeQYfkAQDsndsBOK2s8TxXKvuyr/D/Sc15aYqFrPCer6HouAPg/y4O43g==
+
+                   "]]}, 
+                 Annotation[#, "Charting`Private`Tag$95494#1"]& ]}}, {}}, {
+             DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
+              AxesOrigin -> {1.3213264660436766`*^-36, 0}, 
+              FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, 
+              DisplayFunction -> Identity, PlotRangePadding -> {{
+                 Scaled[0.1], 
+                 Scaled[0.1]}, {
+                 Scaled[0.1], 
+                 Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
+              All, DisplayFunction -> Identity, AspectRatio -> 1, 
+              Axes -> {False, False}, AxesLabel -> {None, None}, 
+              AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
+              Frame -> {{True, True}, {True, True}}, 
+              FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
+              Directive[
+                Opacity[0.5], 
+                Thickness[Tiny], 
+                RGBColor[0.368417, 0.506779, 0.709798]], 
+              FrameTicks -> {{None, None}, {None, None}}, 
+              GridLines -> {None, None}, GridLinesStyle -> Directive[
+                GrayLevel[0.5, 0.4]], ImageSize -> 
+              Dynamic[{
+                Automatic, 
+                 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                  Magnification])}], 
+              Method -> {
+               "DefaultBoundaryStyle" -> Automatic, 
+                "DefaultGraphicsInteraction" -> {
+                 "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+                  "Effects" -> {
+                   "Highlight" -> {"ratio" -> 2}, 
+                    "HighlightPoint" -> {"ratio" -> 2}, 
+                    "Droplines" -> {
+                    "freeformCursorMode" -> True, 
+                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+                "DefaultMeshStyle" -> AbsolutePointSize[6], 
+                "ScalingFunctions" -> None, 
+                "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& )}}, 
+              PlotRange -> {{1.3213264660436766`*^-36, 
+               1.1982779120540256`*^-17}, {0., 2001.4998803505448`}}, 
+              PlotRangeClipping -> True, PlotRangePadding -> {{
+                 Scaled[0.1], 
+                 Scaled[0.1]}, {
+                 Scaled[0.1], 
+                 Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
+            GridBox[{{
+               RowBox[{
+                 TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                 "\[InvisibleSpace]", 
+                 TagBox[
+                  RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{
+                    "1.3213264660436766`*^-36", ",", 
+                    "1.1982779120540256`*^-17"}], "}"}], "}"}], 
+                  "SummaryItem"]}]}, {
+               RowBox[{
+                 TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                 "\[InvisibleSpace]", 
+                 TagBox["\"scalar\"", "SummaryItem"]}]}, {
+               RowBox[{
+                 TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                 "\[InvisibleSpace]", 
+                 TagBox["3", "SummaryItem"]}]}, {
+               RowBox[{
+                 TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                 "\[InvisibleSpace]", 
+                 TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+               RowBox[{
+                 TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                 "\[InvisibleSpace]", 
+                 TagBox["False", "SummaryItem"]}]}}, 
+             GridBoxAlignment -> {
+              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
+             False, GridBoxItemSize -> {
+              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
+              BaseStyle -> {
+              ShowStringCharacters -> False, NumberMarks -> False, 
+               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
+          GridBoxItemSize -> {
+           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+          BaselinePosition -> {1, 1}]}, 
+       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
+     "SummaryPanel"],
+    DynamicModuleValues:>{}], "]"}],
+  InterpolatingFunction[{{1.3213264660436766`*^-36, 
+   1.1982779120540256`*^-17}}, {
+   5, 7, 0, {36}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, {{
+   1.3213264660436766`*^-36, 1.89088970623609*^-18, 2.3680888312684095`*^-18, 
+   2.9364228886804476`*^-18, 3.683622182491242*^-18, 4.875102390597623*^-18, 
+   5.998022640714542*^-18, 9.320251684396774*^-18, 1.1386463755771912`*^-17, 
+   1.1911213616326212`*^-17, 1.191822012051745*^-17, 1.19252598151548*^-17, 
+   1.1932333018665917`*^-17, 1.1939440054091683`*^-17, 
+   1.1946581249175825`*^-17, 1.1953756936456722`*^-17, 
+   1.1960967453361481`*^-17, 1.1968213142302288`*^-17, 1.197549435077521*^-17,
+    1.197695488575717*^-17, 1.1978416858457372`*^-17, 
+   1.1979880271730944`*^-17, 1.198134512844154*^-17, 1.198207809898296*^-17, 
+   1.1982738081916113`*^-17, 1.1982745416707618`*^-17, 
+   1.1982752751535349`*^-17, 1.1982760086399305`*^-17, 1.198276742129949*^-17,
+    1.1982774756235903`*^-17, 1.1982778423717692`*^-17, 
+   1.1982778790466369`*^-17, 1.1982778937165865`*^-17, 
+   1.1982779010515621`*^-17, 1.1982779083865378`*^-17, 
+   1.1982779120540256`*^-17}}, {
+   Developer`PackedArrayForm, {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 
+    14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 
+    32, 33, 34, 35, 36}, {2001.5, 1001.5, 801.5, 601.5, 401.5, 201.5, 101.5, 
+    11.5, 2.5, 1.6, 1.59, 1.58, 1.57, 1.56, 1.55, 1.54, 1.53, 1.52, 1.51, 
+    1.508, 1.506, 1.504, 1.502, 1.501, 1.5001, 1.50009, 1.50008, 1.50007, 
+    1.50006, 1.50005, 1.500045, 1.5000445, 1.5000443, 1.5000442, 1.5000441, 
+    1.50004405}}, {Automatic}],
+  Editable->False,
+  SelectWithContents->True,
+  Selectable->False]], "Output",
+ CellChangeTimes->{
+  3.792488503605363*^9, {3.792488945675312*^9, 3.792488984140232*^9}, 
+   3.800174380296299*^9, 3.80017700424135*^9, 3.800177055853696*^9, {
+   3.800177458592577*^9, 3.80017750292286*^9}, 3.800177644887492*^9, 
+   3.800273070691152*^9, {3.8002737769964123`*^9, 3.800273802657032*^9}},
+ CellLabel->
+  "Out[446]=",ExpressionUUID->"0e75f126-76c2-43a1-ad69-b41f9e8953ce"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"mfr", "=", 
+  RowBox[{"m", "/.", 
+   RowBox[{"FindRoot", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"refi", "@", "m"}], "\[Equal]", "3"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"m", ",", 
+       RowBox[{"10", "^", 
+        RowBox[{"(", 
+         RowBox[{"-", "17"}], ")"}]}]}], "}"}]}], "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.792488509913095*^9, 3.792488546252089*^9}, {
+  3.7924886127003727`*^9, 3.792488616077292*^9}},
+ CellLabel->
+  "In[447]:=",ExpressionUUID->"8e1d18ee-f4b4-4c81-9b77-e309ca9dd150"],
+
+Cell[BoxData["1.1161753832664849`*^-17"], "Output",
+ CellChangeTimes->{{3.7924885197323523`*^9, 3.7924885464977493`*^9}, 
+   3.792488616444233*^9, {3.7924894344035873`*^9, 3.792489442627743*^9}, 
+   3.800174381196772*^9, 3.800177007229912*^9, 3.800177056847392*^9, 
+   3.8001774591843567`*^9, 3.800177503846931*^9, 3.8001776460209913`*^9, 
+   3.800273071263129*^9, {3.800273778500646*^9, 3.800273803890253*^9}},
+ CellLabel->
+  "Out[447]=",ExpressionUUID->"d11484fd-da0b-4d1d-a446-ef1f1143e3b8"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"mfrAU", "=", 
+  RowBox[{"mfr", "/", 
+   RowBox[{"(", 
+    RowBox[{"4.14", " ", 
+     RowBox[{"10", "^", 
+      RowBox[{"(", 
+       RowBox[{"-", "15"}], ")"}]}], 
+     RowBox[{
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"3", " ", 
+         RowBox[{"10", "^", "8"}]}], ")"}], "/", 
+       RowBox[{"(", 
+        RowBox[{"1.496", "*", 
+         RowBox[{"10", "^", "11"}]}], ")"}]}], "/", 
+      RowBox[{"(", 
+       RowBox[{"2", "\[Pi]"}], ")"}]}]}], ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.792489445974312*^9, 3.7924895105968313`*^9}},
+ CellLabel->
+  "In[448]:=",ExpressionUUID->"1d6312bc-4e1f-497e-8ed8-d1e2793b88d5"],
+
+Cell[BoxData["8.447385350635894`"], "Output",
+ CellChangeTimes->{{3.792489484370597*^9, 3.7924895112148857`*^9}, 
+   3.8001743820553703`*^9, 3.800177008159957*^9, 3.800177057609797*^9, 
+   3.80017745992796*^9, 3.8001775043682337`*^9, 3.800177647746436*^9, 
+   3.800273072055272*^9, {3.8002737793956823`*^9, 3.800273804407082*^9}},
+ CellLabel->
+  "Out[448]=",ExpressionUUID->"c0a5c8f3-607b-4c8d-a9af-5919900f2136"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"(*", 
+  RowBox[{"Constraint", " ", "in", " ", "km"}], "*)"}]], "Input",
+ CellChangeTimes->{{3.792489767464836*^9, 3.792489784616557*^9}},
+ CellLabel->
+  "In[449]:=",ExpressionUUID->"7e573cba-a3ac-47b8-be57-4afbf9fbc155"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"mfrAU", "*", "1.5", " ", 
+  RowBox[{"10", "^", "9"}]}]], "Input",
+ CellChangeTimes->{{3.79248971698587*^9, 3.792489728528494*^9}},
+ CellLabel->
+  "In[450]:=",ExpressionUUID->"119eb2f2-c52d-4c23-8ce9-f4108a17b21b"],
+
+Cell[BoxData["1.2671078025953842`*^10"], "Output",
+ CellChangeTimes->{{3.7924897190928698`*^9, 3.792489729003262*^9}, 
+   3.79248978778125*^9, 3.800174383451375*^9, 3.800177009600333*^9, 
+   3.800177058907696*^9, 3.800177461211405*^9, 3.8001775067035723`*^9, 
+   3.800177648959551*^9, 3.8002730734608383`*^9, {3.8002737806949053`*^9, 
+   3.800273805478072*^9}},
+ CellLabel->
+  "Out[450]=",ExpressionUUID->"744cdeab-8661-480f-9429-6314d25f2f9f"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"test", "=", 
+  RowBox[{"Piecewise", "[", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"refi", "@", "m"}], ",", 
+       RowBox[{"m", "\[LessEqual]", " ", "mfr"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"3", ",", " ", 
+       RowBox[{"m", ">", "mfr"}]}], "}"}]}], "}"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.792488555216984*^9, 3.792488627228512*^9}, 
+   3.7924886990743713`*^9},
+ CellLabel->
+  "In[451]:=",ExpressionUUID->"3a12b6e6-45e3-468a-8efb-00c40989b72b"],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+    {"\[Piecewise]", GridBox[{
+       {
+        RowBox[{
+         InterpretationBox[
+          RowBox[{
+           TagBox["InterpolatingFunction",
+            "SummaryHead"], "[", 
+           
+           DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
+            "Ready"}, 
+            TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
                     PaneBox[
                     ButtonBox[
                     DynamicBox[
@@ -6183,44 +16210,92 @@ InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
                     Automatic, 
                     3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                     Magnification])}]], 
-                    GraphicsBox[{{
-                    GrayLevel[0.6], 
-                    AbsolutePointSize[5], 
-                    PointBox[{1, 1}], 
-                    PointBox[{2, 4}], 
-                    PointBox[{3, 2}], 
-                    PointBox[{4, 3}]}, {{}, {}, {
-                    AbsoluteThickness[1], 
+                    GraphicsBox[{{{{}, {}, 
+                    TagBox[{
+                    Directive[
                     Opacity[1.], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1]], 
                     LineBox[CompressedData["
-1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
-3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
-cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
-QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
-wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
-ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
-/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
-klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
-42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
-IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
-7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
-QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
-CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
-7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
-/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
-q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
-vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
-shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
-q5SZmRFAL++xNeOlE0Dwt3AR
-                    "]]}}}, AspectRatio -> 1, Axes -> 
-                    False, Background -> GrayLevel[0.93], Frame -> True, 
-                    FrameStyle -> Directive[
-                    GrayLevel[0.7], 
-                    Thickness[Tiny]], FrameTicks -> None, 
-                    ImageSize -> {Automatic, 
-                    Dynamic[
+1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAZ8D86oltzzoDdqLg/0WfQMA3k2vB
+0ww8I0n9bPd8nUAqvA+7HwoePKX0WJjElZtAo0Ay6qNQJjwK8YWd09eZQMJS
+CIqVdy08FadIsiksmEBhZ6ln25wyPMi6WacraJZAlk5ST6Y7NjwGFebDs86U
+QLtqtQkJKDo8cNUVFL4hk0CpXq6NGgI+PAUmS4nmjJFA5n1VK/PMQDwor+E+
+ASOQQO/mMPmkv0I8rRqY1etXjUCTJI7pM5FEPKz5tqw0w4pAG062PppZRjy2
+Eqp7V2KIQBySO33MSEg8wwOsSy35hUC2qkLe2xZKPOG15hwM4oNAyN2mKLcL
+TDxE4MK0WMqBQL781ddp9008W5xyaYvSf0BP8Iap+cFPPMm5rAEwoXxALH9K
+sqrZUDyKSLyey4F5QH5wEiHHwVE8nC6Go3XZdkAM74iESb1SPO4UHFeQPXRA
+jONkmje0Uzzuj19oAfFxQFnCgUGUmlQ8LMOu6YIDcEBiLk3dVpRVPAmcg6h9
+SGxAuIRZCoh9VjyUgZUlbilpQABRy+kkYlc8onwLPqFrZkCEquu9J1pYPGeQ
+tKBRxGNAVu5MI5lBWTwWM011s45hQGS/XH1wPFo8iOQqtbzUXkBkBtKJszJb
+PCjff2lED1tAsTeIJ2UYXDy5QyX/3tBXQDr27Ll8EV08tUOWsCiXVEAQn5Ld
+AvpdPBnistIC5lFA2L2ds/TdXjzLFjFdQxVPQNxpV35M1V88/q6gXd6PSkAX
+ACltCV5gPOoqF5+s3UZA3pF9lR/bYDyAS4BniWNDQMuYcgbtT2E8drjsLVSa
+QECxWppQcMJhPL2q9hviiTxANmMZlaY+Yjw1gqRGVUo4QOHgOCKUsmI8QBWD
+3aQENUAqpa+pNDBjPKw+gmqLJTJAbCRZCourYzzgG7GDgdsvQNUYo7OYHmQ8
+SkLXMgumLEDcU0RXWZtkPGQRZE1kBipACQSGQ9EPZTwwEifB3TsoQC9v+gj/
+gWU8p/9bnFbkJkD0IMbI3/1lPCbicv+C8CNA30cy0XdxZjwY04AswnYhQGi1
+9dPC7mY8sJQoHY4hHkDq3euvw2lnPJHJ3kp+9RlAk3uC1HvcZzxRnsxoCoMW
+QNpfcPPmWGg88AZFkCI4E0BHuf5aCc1oPDSKpNhyhxBAUlnkvN5KaTy0+3PW
+4/sLQFe0/Pdpxmk8QndB/ZavB0CChLV7rDlqPNOvTvoXNwRAS5vF+aG2ajw3
+XPeQYfkAQDsndsBOK2s8TxXKvuyr/D/Sc15aYqFrPCer6HouAPg/y4O43g==
+
+                    "]]}, 
+                    Annotation[#, "Charting`Private`Tag$95567#1"]& ]}}, {}}, {
+                    DisplayFunction -> Identity, 
+                    Ticks -> {Automatic, Automatic}, 
+                    AxesOrigin -> {1.3213264660436766`*^-36, 0}, 
+                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
+                    GridLines -> {None, None}, DisplayFunction -> Identity, 
+                    PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
+                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
+                    Axes -> {False, False}, AxesLabel -> {None, None}, 
+                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
+                    Frame -> {{True, True}, {True, True}}, 
+                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
+                    Directive[
+                    Opacity[0.5], 
+                    Thickness[Tiny], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], 
+                    FrameTicks -> {{None, None}, {None, None}}, 
+                    GridLines -> {None, None}, GridLinesStyle -> Directive[
+                    GrayLevel[0.5, 0.4]], ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
                     3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+                    Magnification])}], 
+                    Method -> {
+                    "DefaultBoundaryStyle" -> Automatic, 
+                    "DefaultGraphicsInteraction" -> {
+                    "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+                    "Effects" -> {
+                    "Highlight" -> {"ratio" -> 2}, 
+                    "HighlightPoint" -> {"ratio" -> 2}, 
+                    "Droplines" -> {
+                    "freeformCursorMode" -> True, 
+                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+                    "DefaultMeshStyle" -> AbsolutePointSize[6], 
+                    "ScalingFunctions" -> None, 
+                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& )}}, 
+                    PlotRange -> {{1.3213264660436766`*^-36, 
+                    1.1982779120540256`*^-17}, {0., 2001.4998803505448`}}, 
+                    PlotRangeClipping -> True, PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                     GridBox[{{
                     RowBox[{
                     TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
@@ -6229,9 +16304,9 @@ q5SZmRFAL++xNeOlE0Dwt3AR
                     RowBox[{"{", 
                     RowBox[{"{", 
                     
-                    RowBox[{"1.`30.*^-5", ",", 
-                    "2432.54875486206306193226869743926439284881`30."}], 
-                    "}"}], "}"}], "SummaryItem"]}]}, {
+                    RowBox[{"1.3213264660436766`*^-36", ",", 
+                    "1.1982779120540256`*^-17"}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
                     RowBox[{
                     TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                     "\[InvisibleSpace]", 
@@ -6262,353 +16337,4910 @@ q5SZmRFAL++xNeOlE0Dwt3AR
                     Automatic, 
                     3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                     Magnification])}]], 
-                    GraphicsBox[{{
-                    GrayLevel[0.6], 
-                    AbsolutePointSize[5], 
-                    PointBox[{1, 1}], 
-                    PointBox[{2, 4}], 
-                    PointBox[{3, 2}], 
-                    PointBox[{4, 3}]}, {{}, {}, {
-                    AbsoluteThickness[1], 
-                    Opacity[1.], 
-                    LineBox[CompressedData["
-1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
-3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
-cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
-QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
-wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
-ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
-/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
-klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
-42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
-IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
-7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
-QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
-CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
-7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
-/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
-q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
-vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
-shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
-q5SZmRFAL++xNeOlE0Dwt3AR
-                    "]]}}}, AspectRatio -> 1, Axes -> 
-                    False, Background -> GrayLevel[0.93], Frame -> True, 
-                    FrameStyle -> Directive[
-                    GrayLevel[0.7], 
-                    Thickness[Tiny]], FrameTicks -> None, 
-                    ImageSize -> {Automatic, 
-                    Dynamic[
-                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
-                    GridBox[{{
-                    RowBox[{
-                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
-                    "\[InvisibleSpace]", 
-                    TagBox[
-                    RowBox[{"{", 
-                    RowBox[{"{", 
-                    
-                    RowBox[{"1.`30.*^-5", ",", 
-                    "2432.54875486206306193226869743926439284881`30."}], 
-                    "}"}], "}"}], "SummaryItem"]}]}, {
-                    RowBox[{
-                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
-                    "\[InvisibleSpace]", 
-                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
-                    RowBox[{
-                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
-                    "\[InvisibleSpace]", 
-                    TagBox["3", "SummaryItem"]}]}, {
-                    RowBox[{
-                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
-                    "\[InvisibleSpace]", 
-                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
-                    RowBox[{
-                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
-                    "\[InvisibleSpace]", 
-                    TagBox["False", "SummaryItem"]}]}}, 
-                    GridBoxAlignment -> {
-                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
-                    AutoDelete -> False, 
-                    GridBoxItemSize -> {
-                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
-                    GridBoxSpacings -> {
-                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
-                    BaseStyle -> {
-                    ShowStringCharacters -> False, NumberMarks -> False, 
-                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
-                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
-                  False, GridBoxItemSize -> {
-                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
-                  BaselinePosition -> {1, 1}]}, 
-               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
-             "SummaryPanel"], 
-            ButtonBox[
-             DynamicBox[
-              ToBoxes[
-               If[
-                
-                Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
-                 "Local"], 
-                Style["This object cannot be used as input.", "SummaryEmbed"], 
-                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 1496208, 
-                 Dynamic[Typeset`embedState$$]]], StandardForm]], 
-             ButtonFunction :> 
-             BoxForm`EmbedSummaryInterpretation[
-              InterpolatingFunction, 
-               6685490547278413119663134985305171373882216699404488681504, 
-               EvaluationBox[], 
-               Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
-             "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
-             Dynamic[
-               
-               And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === 
-                "Local", Typeset`embedState$$ === "Ready"]], Appearance -> 
-             Inherited, Method -> Inherited, Evaluator -> Automatic]}, 
-           "SummaryEmbedGrid"], DynamicModuleValues :> {}], 
-         StyleBox["]", "NonInterpretableSummary"]}]},
-      "CopyTag",
-      DisplayFunction->(#& ),
-      InterpretationFunction->(
-       "                                                         -5\n\
-InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
-2432.54875486206306193226869744}}, <>]"& )],
-     False,
-     BoxID -> 6685490547278413119663134985305171373882216699404488681504,
-     Editable->False,
-     SelectWithContents->True,
-     Selectable->False], ",", 
-    TagBox[
-     TemplateBox[{RowBox[{
-         StyleBox[
-          TagBox["InterpolatingFunction", "SummaryHead"], 
-          "NonInterpretableSummary"], 
-         StyleBox["[", "NonInterpretableSummary"], 
-         DynamicModuleBox[{
-          Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
-          TemplateBox[{
-            TemplateBox[{
-              PaneSelectorBox[{False -> GridBox[{{
-                    PaneBox[
-                    ButtonBox[
-                    DynamicBox[
-                    FEPrivate`FrontEndResource[
-                    "FEBitmaps", "SquarePlusIconMedium"]], 
-                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
-                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
-                    Alignment -> {Center, Center}, ImageSize -> 
+                    GraphicsBox[{{{{}, {}, 
+                    TagBox[{
+                    Directive[
+                    Opacity[1.], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1]], 
+                    LineBox[CompressedData["
+1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAZ8D86oltzzoDdqLg/0WfQMA3k2vB
+0ww8I0n9bPd8nUAqvA+7HwoePKX0WJjElZtAo0Ay6qNQJjwK8YWd09eZQMJS
+CIqVdy08FadIsiksmEBhZ6ln25wyPMi6WacraJZAlk5ST6Y7NjwGFebDs86U
+QLtqtQkJKDo8cNUVFL4hk0CpXq6NGgI+PAUmS4nmjJFA5n1VK/PMQDwor+E+
+ASOQQO/mMPmkv0I8rRqY1etXjUCTJI7pM5FEPKz5tqw0w4pAG062PppZRjy2
+Eqp7V2KIQBySO33MSEg8wwOsSy35hUC2qkLe2xZKPOG15hwM4oNAyN2mKLcL
+TDxE4MK0WMqBQL781ddp9008W5xyaYvSf0BP8Iap+cFPPMm5rAEwoXxALH9K
+sqrZUDyKSLyey4F5QH5wEiHHwVE8nC6Go3XZdkAM74iESb1SPO4UHFeQPXRA
+jONkmje0Uzzuj19oAfFxQFnCgUGUmlQ8LMOu6YIDcEBiLk3dVpRVPAmcg6h9
+SGxAuIRZCoh9VjyUgZUlbilpQABRy+kkYlc8onwLPqFrZkCEquu9J1pYPGeQ
+tKBRxGNAVu5MI5lBWTwWM011s45hQGS/XH1wPFo8iOQqtbzUXkBkBtKJszJb
+PCjff2lED1tAsTeIJ2UYXDy5QyX/3tBXQDr27Ll8EV08tUOWsCiXVEAQn5Ld
+AvpdPBnistIC5lFA2L2ds/TdXjzLFjFdQxVPQNxpV35M1V88/q6gXd6PSkAX
+ACltCV5gPOoqF5+s3UZA3pF9lR/bYDyAS4BniWNDQMuYcgbtT2E8drjsLVSa
+QECxWppQcMJhPL2q9hviiTxANmMZlaY+Yjw1gqRGVUo4QOHgOCKUsmI8QBWD
+3aQENUAqpa+pNDBjPKw+gmqLJTJAbCRZCourYzzgG7GDgdsvQNUYo7OYHmQ8
+SkLXMgumLEDcU0RXWZtkPGQRZE1kBipACQSGQ9EPZTwwEifB3TsoQC9v+gj/
+gWU8p/9bnFbkJkD0IMbI3/1lPCbicv+C8CNA30cy0XdxZjwY04AswnYhQGi1
+9dPC7mY8sJQoHY4hHkDq3euvw2lnPJHJ3kp+9RlAk3uC1HvcZzxRnsxoCoMW
+QNpfcPPmWGg88AZFkCI4E0BHuf5aCc1oPDSKpNhyhxBAUlnkvN5KaTy0+3PW
+4/sLQFe0/Pdpxmk8QndB/ZavB0CChLV7rDlqPNOvTvoXNwRAS5vF+aG2ajw3
+XPeQYfkAQDsndsBOK2s8TxXKvuyr/D/Sc15aYqFrPCer6HouAPg/y4O43g==
+
+                    "]]}, 
+                    Annotation[#, "Charting`Private`Tag$95567#1"]& ]}}, {}}, {
+                    DisplayFunction -> Identity, 
+                    Ticks -> {Automatic, Automatic}, 
+                    AxesOrigin -> {1.3213264660436766`*^-36, 0}, 
+                    FrameTicks -> {{{}, {}}, {{}, {}}}, 
+                    GridLines -> {None, None}, DisplayFunction -> Identity, 
+                    PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
+                    All, DisplayFunction -> Identity, AspectRatio -> 1, 
+                    Axes -> {False, False}, AxesLabel -> {None, None}, 
+                    AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
+                    Frame -> {{True, True}, {True, True}}, 
+                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
+                    Directive[
+                    Opacity[0.5], 
+                    Thickness[Tiny], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], 
+                    FrameTicks -> {{None, None}, {None, None}}, 
+                    GridLines -> {None, None}, GridLinesStyle -> Directive[
+                    GrayLevel[0.5, 0.4]], ImageSize -> 
                     Dynamic[{
                     Automatic, 
                     3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])}]], 
+                    Magnification])}], 
+                    Method -> {
+                    "DefaultBoundaryStyle" -> Automatic, 
+                    "DefaultGraphicsInteraction" -> {
+                    "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+                    "Effects" -> {
+                    "Highlight" -> {"ratio" -> 2}, 
+                    "HighlightPoint" -> {"ratio" -> 2}, 
+                    "Droplines" -> {
+                    "freeformCursorMode" -> True, 
+                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+                    "DefaultMeshStyle" -> AbsolutePointSize[6], 
+                    "ScalingFunctions" -> None, 
+                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+                    (Identity[#]& )[
+                    Part[#, 1]], 
+                    (Identity[#]& )[
+                    Part[#, 2]]}& )}}, 
+                    PlotRange -> {{1.3213264660436766`*^-36, 
+                    1.1982779120540256`*^-17}, {0., 2001.4998803505448`}}, 
+                    PlotRangeClipping -> True, PlotRangePadding -> {{
+                    Scaled[0.1], 
+                    Scaled[0.1]}, {
+                    Scaled[0.1], 
+                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
+                    GridBox[{{
+                    RowBox[{
+                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{"1.3213264660436766`*^-36", ",", 
+                    "1.1982779120540256`*^-17"}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["3", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                    RowBox[{
+                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                    "\[InvisibleSpace]", 
+                    TagBox["False", "SummaryItem"]}]}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
+                    AutoDelete -> False, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+                    BaseStyle -> {
+                    ShowStringCharacters -> False, NumberMarks -> False, 
+                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
+                  False, GridBoxItemSize -> {
+                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                  BaselinePosition -> {1, 1}]}, 
+               Dynamic[Typeset`open$$], ImageSize -> Automatic]},
+             "SummaryPanel"],
+            DynamicModuleValues:>{}], "]"}],
+          
+          InterpolatingFunction[{{1.3213264660436766`*^-36, 
+           1.1982779120540256`*^-17}}, {
+           5, 7, 0, {36}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, {{
+           1.3213264660436766`*^-36, 1.89088970623609*^-18, 
+           2.3680888312684095`*^-18, 2.9364228886804476`*^-18, 
+           3.683622182491242*^-18, 4.875102390597623*^-18, 
+           5.998022640714542*^-18, 9.320251684396774*^-18, 
+           1.1386463755771912`*^-17, 1.1911213616326212`*^-17, 
+           1.191822012051745*^-17, 1.19252598151548*^-17, 
+           1.1932333018665917`*^-17, 1.1939440054091683`*^-17, 
+           1.1946581249175825`*^-17, 1.1953756936456722`*^-17, 
+           1.1960967453361481`*^-17, 1.1968213142302288`*^-17, 
+           1.197549435077521*^-17, 1.197695488575717*^-17, 
+           1.1978416858457372`*^-17, 1.1979880271730944`*^-17, 
+           1.198134512844154*^-17, 1.198207809898296*^-17, 
+           1.1982738081916113`*^-17, 1.1982745416707618`*^-17, 
+           1.1982752751535349`*^-17, 1.1982760086399305`*^-17, 
+           1.198276742129949*^-17, 1.1982774756235903`*^-17, 
+           1.1982778423717692`*^-17, 1.1982778790466369`*^-17, 
+           1.1982778937165865`*^-17, 1.1982779010515621`*^-17, 
+           1.1982779083865378`*^-17, 1.1982779120540256`*^-17}}, {
+           Developer`PackedArrayForm, {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 
+            12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 
+            28, 29, 30, 31, 32, 33, 34, 35, 36}, {2001.5, 1001.5, 801.5, 
+            601.5, 401.5, 201.5, 101.5, 11.5, 2.5, 1.6, 1.59, 1.58, 1.57, 
+            1.56, 1.55, 1.54, 1.53, 1.52, 1.51, 1.508, 1.506, 1.504, 1.502, 
+            1.501, 1.5001, 1.50009, 1.50008, 1.50007, 1.50006, 1.50005, 
+            1.500045, 1.5000445, 1.5000443, 1.5000442, 1.5000441, 
+            1.50004405}}, {Automatic}],
+          Editable->False,
+          SelectWithContents->True,
+          Selectable->False], "[", "m", "]"}], 
+        RowBox[{"m", "\[LessEqual]", "1.1161753832664849`*^-17"}]},
+       {"3", 
+        RowBox[{"m", ">", "1.1161753832664849`*^-17"}]},
+       {"0", 
+        TagBox["True",
+         "PiecewiseDefault",
+         AutoDelete->True]}
+      },
+      AllowedDimensions->{2, Automatic},
+      Editable->True,
+      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
+      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
+      GridBoxSpacings->{"Columns" -> {
+          Offset[0.27999999999999997`], {
+           Offset[0.84]}, 
+          Offset[0.27999999999999997`]}, "Rows" -> {
+          Offset[0.2], {
+           Offset[0.4]}, 
+          Offset[0.2]}},
+      Selectable->True]}
+   },
+   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
+   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
+   GridBoxSpacings->{"Columns" -> {
+       Offset[0.27999999999999997`], {
+        Offset[0.35]}, 
+       Offset[0.27999999999999997`]}, "Rows" -> {
+       Offset[0.2], {
+        Offset[0.4]}, 
+       Offset[0.2]}}],
+  "Piecewise",
+  DeleteWithContents->True,
+  Editable->False,
+  SelectWithContents->True,
+  Selectable->False,
+  StripWrapperBoxes->True]], "Output",
+ CellChangeTimes->{{3.792488603494578*^9, 3.792488627618325*^9}, 
+   3.792488699569346*^9, {3.792488946646593*^9, 3.7924889846584873`*^9}, 
+   3.7924897884831133`*^9, 3.800174384054681*^9, 3.8001770102379417`*^9, 
+   3.800177059684877*^9, 3.800177463191162*^9, 3.800177507227273*^9, 
+   3.800177649545143*^9, 3.800273074269158*^9, {3.800273781328353*^9, 
+   3.800273806126976*^9}},
+ CellLabel->
+  "Out[451]=",ExpressionUUID->"5a1f1907-45cd-4875-8a1e-325e800f8f37"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LogLogPlot", "[", 
+  RowBox[{
+   RowBox[{"{", "test", "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"m", ",", 
+     RowBox[{"10", "^", 
+      RowBox[{"(", 
+       RowBox[{"-", "21"}], ")"}]}], ",", 
+     RowBox[{"10", "^", 
+      RowBox[{"(", 
+       RowBox[{"-", "15"}], ")"}]}]}], "}"}], ",", 
+   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+   RowBox[{"Epilog", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"Directive", "[", "Blue", "]"}], ",", 
+       RowBox[{"Line", "[", 
+        RowBox[{"Log", "@", "ref"}], "]"}]}], "}"}], "}"}]}], ",", 
+   RowBox[{"GridLines", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"None", ",", 
+      RowBox[{"{", "3", "}"}]}], "}"}]}], ",", 
+   RowBox[{"PlotLegends", "\[Rule]", 
+    RowBox[{"Placed", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"\"\<LLR\>\"", ",", "\"\<Not Permitted\>\""}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"0.8", ",", "0.8"}], "}"}]}], "]"}]}], ",", 
+   RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
+   RowBox[{"FrameLabel", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+     "\"\<\!\(\*SubscriptBox[\(m\), \(s\)]\)(eV)\>\"", ",", 
+      "\"\<Lower Bound on (\!\(\*SubscriptBox[\(\[Omega]\), \
+\(BD\)]\)+3/2)\>\""}], "}"}]}], ",", 
+   RowBox[{"FrameStyle", "\[Rule]", 
+    RowBox[{"Directive", "[", 
+     RowBox[{"Bold", ",", "16"}], "]"}]}], ",", 
+   RowBox[{"Filling", "\[Rule]", "Top"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.7924809811634417`*^9, 3.7924810176846333`*^9}, {
+   3.792481050314542*^9, 3.7924810506418877`*^9}, {3.792481172761291*^9, 
+   3.7924811899170513`*^9}, {3.792481377741453*^9, 3.79248138586658*^9}, {
+   3.7924816417501802`*^9, 3.7924816423459053`*^9}, {3.792481702531547*^9, 
+   3.792481706994644*^9}, {3.792481808780587*^9, 3.792481867715866*^9}, {
+   3.792481949597508*^9, 3.792481951556817*^9}, {3.792482017472578*^9, 
+   3.792482023379766*^9}, {3.792482093428446*^9, 3.79248209464964*^9}, 
+   3.7924822279762487`*^9, 3.792482312708346*^9, {3.792482942835244*^9, 
+   3.792482945734926*^9}, {3.7924833565139723`*^9, 3.792483374214595*^9}, {
+   3.7924834699746933`*^9, 3.792483470160303*^9}, {3.792483736734573*^9, 
+   3.792483742141539*^9}, {3.792483820271922*^9, 3.7924838700971737`*^9}, {
+   3.792484411467929*^9, 3.7924844124372253`*^9}, {3.7924879622234907`*^9, 
+   3.792487994778286*^9}, {3.792488099051333*^9, 3.792488099540189*^9}, {
+   3.7924881771418657`*^9, 3.792488218489883*^9}, {3.79248841971767*^9, 
+   3.7924884300810757`*^9}, {3.7924884745484867`*^9, 3.792488474748797*^9}, {
+   3.792488635837022*^9, 3.79248865621726*^9}, {3.79248872207507*^9, 
+   3.792488730892459*^9}, {3.792488769298443*^9, 3.7924889169382143`*^9}, {
+   3.800174407761692*^9, 3.800174411908115*^9}, {3.800174513287262*^9, 
+   3.800174517063774*^9}, {3.8002737898756866`*^9, 3.800273790309147*^9}},
+ CellLabel->
+  "In[452]:=",ExpressionUUID->"bd8b7fe4-63fa-46b5-aa40-fbfc70b87779"],
+
+Cell[BoxData[
+ TagBox[
+  GraphicsBox[{{GraphicsComplexBox[CompressedData["
+1:eJxNmWk0lV+8gE0JJcnMOSfK1N+sjA1n806nlHmKNBgbFCIJaZIKUUqGkkLS
+YCpDKvnRpLmIZC6lDBEhKrq7D/e6n6xnrbPO8q797Gf/9ntUPAPsfQT4+Phq
++Pn4/v0NjeYj1+rw4AdSd3nqx0Eit99zs8V4sH+Ow+obmM/2qzzl/8yApIrz
+zUTMM/jFKtqrGSj0MnnqjXnq6gFF/0wGDvEFndbBPGG3WWxOOANf90otb/fl
+oKfNA+t1XRjwejQoGYk5Y+MnCy8DBo7Hd2cN+HDQ34gtKbzZDKx/kB6zBLPp
+ngS76z00TDX/qLH25qCdwQvSVR/QkEI7SQp5cdAhG2dG6SINfJfC+7Zs4qCF
+1Qp+NVE0nF1PCbpt4KCHeqtlotbSwImVjvFcx0HL93M0bxnTcNnM6EqpKweV
+vdjwRFiShnztig5fBw6qKtJvm9FPgdirCEWf1Rx0ftdFp0NPKBgsWeFRSnDQ
+PpMD62RyKFhq2+SjbMJBxi18tWoHKNjdaPvBW4ODBiMGq1e5U9B8ZfWXLXM5
+yOTGdl1lYwp2Rg8tSxtiI+encX+DpSioi4toyXrKRqEd8htav5Gwu9SgBE6w
+0fZGauH9pyQ0NnvadVFs9MNTwM0tjwSBJpezDp0sFNGvM1/4EAkzy+cNRRIs
+9N5lgqe/kQQWs+NF7g4lZAqL+QPMSRAbJ0QvKyoijXuTWutlSHBw7UoDbXnU
+n+F359kwAfKjag+IDBl0Mxy9X/OCgK1dnXlC5yWRrVmFu/VVAmxyI7cvsp2J
+9h6vtv17hICdqXuzFOJGudfaTd8+8CRglmB+eO+pIW6RpO1dETTNZRaNhpsU
+p/mUwx9x05+W/8d/fxW7V72d5u2ZjSbuhdNcrHY2bFf8NP/Me8nk+E7z8+qT
+xw5ZTHPY3RG9D5xpVit55O0wYfF/nHfcdIponOY7f8zEPt+c5lebr+akJ0zz
+7bLb2S+3TfOvcJesMXKaufO/WUwp8cD5keKCKuy3ff1kdN1PBs4IvyOzML8e
+S7YIrGfAZL1VeQRmgcaHWy4VMRAYu07MCnPkVMi8yngGduSavRDB7Hnm2pLz
+mxl4cHMkqgjvh5KMLa95JAMpa7WSzDFbD+T2N3AY2PXWziEV74dzvyJCfv2i
+wV2tfOsTvB+cQpt2fW2kofrVnuOleD+Eb7r7PfMGDUkBvXMpTw5yEDF9N5BI
+w4YS76rgjRwUMm64QtmfBuuCdZK/PDiI37WUo8SjgbB9ZnPdjYN+qVeFdSyk
+IbWlrhk5c5A5l+cQM0XB1B7BJg1bDtKV2pL2oJkCQd8Vb9byOCjBWXLt8zIK
+mIA/4p+Wc5CbqEVSRhIF+gKNEW/0OChJa5w03UHB/i/t7s9ZHCSVohtWyqPA
+YHOT6xIBDqLv/ZF9qkqBjaD478QONup2tNfL48P7p5g+KVvERsNuetU2rSR8
+0VgWbbeDjYpYOfcSKki4md60gpJjo3KN1GVFySQce6BXbZHGQv9lSS05G4T3
+z5quHMEuJSQSL3vJZg0Jph6V7zMbFJF+VeqZbg38+cKBjyfNFZBYwY0f0kIk
+FF5PWFnCJ4dsZzs+nd1JwGNx/vkujVJIoDlS8eUdAo7Kz/owv1wc+Xotb1RP
+I6AqNM2nNE8ASRvvnee5a9p33TCy1tdumpvlRbM9Xaf9aX4zVnNNlQdGOtxv
+D/D65z/a9tGcnweJ58dPXcVcNtQyw6yVgTvVcuIxmKP7/CQtKxg476e31hVz
+pWPEGekzDIj3XWtVwqw7cmy+cxADL5YfU6vFvnCXXU+5s4aBgo7KI+swh16m
+UliaDDS9+D7rIfbH+s7w4YuCDAyofK/lw/xo902vVZ00bBavGxfCPoVuDaA8
+79CQOVHUdBn706fFSBxOpaHz8+nfw9if5+ty7YN20dDzJiGyaD0Hdd3nS39u
+S8PLZ2X9Ce7Yz/odr610aDjo9upnjAsHhQk7JjyaSYN2e1hGox0HjX1YvdSn
+i4IuvV9M0CoOkvVd+04DKGj9e+rmV8RB/sqbdq89S4HSbI156Ys5yPtQpHDh
+bgo2P9vIW7OAgw6ISrD57Cno+6BzLlmUg1aYli7YpUPBOgXHxp6vbHReIkBu
+jhgFnGJb66+VbLSErTpX9jMJvaf3aZruZ6OEiZHvmjUkKEUh3xg9NnKi1ljN
+yCTh0NyB9IB7LGT/+MIV23ASYHdPdYgMC30fmvmzypmE2RIlnv1qSqiE2/3s
+PwMSrAXLgmWLFJC8cVNixWwSTrpE5x7OkEOchjZL/x4C9NOyWhLvSyO3q+0T
+xx8Q0LVgo0ig/Vzkbv079fZFAj4ua0lurBRCtZsyi4uipn3J8e8CWykelPz+
+PHALr+9YR6LG1gEGzEL9HdIw9/622Xv5KQNFR3ZdCsS8HxbWiOThvhxc9XIZ
+ZvO8HQk+hxhAm8RWj+D1P2P6YmX3BgY0HdV1UjBr/lUXbTRnoMMjm18Ws7qR
+iGWiDAO62xOXbcY+9JrN8HIYpkHUNv+/BOzDp5DJIzEvaHBYmjJvI+5LlKvo
+ubYrNISqzrZsweftnU+ama5HaDDLfHexD5+3rNNVi1550lBfeu+BEe7L/P4t
+2Vu4NOxQaDxbsZaDXMMlVIIV8fmtMT/ygyMH/dm9TJ4epWCxAmXgas1BvuTh
+nwvrKLC1PMRi0RwkzDxpDsynoAwqe7PMOYg3rJz/4RgF33f0narW4iCoDz5U
+7Y3P345qzfeyHHRJ1bp+K5eCM2mpf8x+sZE1Sc6az8I+JWpH7W1gI910I8by
+JwlX9W3+k7qIe5JqvvNYPQkJAe+F+93YqI7rED9ShM/Xyv6T3/+wkIJYl457
+PF5f0aA1WwNZSGBvzL3Pm0lYenS3e/41JaSsrubQQZCgIC6V0RKpiK6vsNqU
+xSEhxtNiXmiFPPqtdtwl8DcBvGyvCwbOsugg8dQuv5EAH2+zuKOv56GdYfuk
+Tp3A53G+74FqoSnuRjH3YCn/aR80r0UcEljEg4/VQ/mP8fq6wQLJwRk82D5m
+fbAAs+bglF9GJwNBQVtGYzGTY6Y+JyoZmHqw7/p6zO37olwhnYE3vaMfVDFL
+L5yQvrGLAdHifZvq8fpHx635HWKP+7DJP8Ufs5hQcn+VNvalUMi0GfuQq1Qw
+Z3QmAx/5B+WUMO8bv+D2+xMN+lq74v7DfowM1Abcr6JB0fl2VSPuRXmltdbr
+czTMLVAN0cN+jM/pbFUIp2Erv88LYezH2z25LmpONITxbzj2C/ei/wr9h9+Q
+BunMcRUVPI/J9b6/5jubhldjPVuz7PHzPlkRX/qFgjlmwlEBVhzUvH3vmYYH
+FKjwfO87WeL9oTW0pTyTAqfvK018jDhoTeEKv62RFGwpbSr/rMpBtyz3BVxy
+pkAkNObKXHG8P3adzHtqQMEqrTZ+529s9Mt/76zqORQoz5854PsA9yDqvMme
+HhJO3DtN5x5loyk/tljoIxL+XPl5YcCcjVTfXq4rzCZBNIpa8/AVC3Wv9fO+
+FoU5xvTmlDYLfcrhUw5zJ4Gt2r9J10oJjf2N735uRMIaWu95YbcCUv7V2zZL
+kgSN4OdC4l/k0OGKBX+VBgiYORQeVWYog2KSEnu+1RJws1RzYfbkXNRIuIUL
+5WKOyyyf6pmBsnbr87semvZjmNp84LIcDwxsR2Tu4vXNeU87c34wsDJJ60MG
+Zo+JnR2zXjFgNOsGHYrZ4tmIjMt1BuzRpBiJ2b0+yFbyKAO5f47fncLrH+m3
+jGvpzUCihZV4DuYd1rX+iVwGnul4XdDEfPukS4qhIgM1EVfK92MfiHToyx2j
+gZ2tY3Ud+3ButDfKpI4GAW3DtDjciz+tno9WFNDwe5nhPEnsx5FQ/TvZcTTc
+jz3YqI/PEx49cXO3Hw179j4tT8O9mJslsamGoEG1tEDMCM8jV2y/rF40n4Zo
+k0M7Tzvh+4d7jVH3BAVJ/sd4pA2+T2jt5oU0UjB5VbuXy2C2/pbGuUFBU2uP
+i9UyDnozWZTJTaAgPHv24zod/H1/jT5FbqHgVK9n1gcFDmr1uKc2l8TzyCJV
+JaspNlp1QPlkiDIFQifS4XwzG8X+JJaO/iZB+eP9xrt5bPRmoiSt/x0JR4+f
+ePXam40sCiIuWZSS4PTX++BGMTb6mrq8dMZJEnQPJxTaHWahMxJr9qDtJPTE
+vNg6+VgJSb9nR6bwSBBSG21zv6qIBqaGIsiFJGgt2rQ18rc8EujNvFTzlwCT
+2qM8o3xZ1KMhMcejhYBRb4piuUih/u3tI62nCdC2GLbM+MKHyr+nxtz9RMDl
+AkHmlI006nQ9Vx6YQUD5pVuu1c2CaMBqjqdo+LQv4weVDVfGE6Be20WcG5jg
+vpK716WjxYNb8wJmPME+GCyP0lwpwgOTGY+2FWH+uH1u2quPDOSbJK89/s+v
+CJXE8ioGfHuHqjdh3iGz30w2gwElFQ9qEeaY20USnbvxvHpEpaUJ+6KxmJP/
+xpGB+0m/fUMwO95YliKpx8AMfu3Dn7A/dc9m1XPEGFg23NCrgbn1llyjwxca
+Ji1fvFmGfVpcPCo0Uk3D18/O6d+wPxkx9hWj52kwrPswsBr3Zc7XPyo7ImlY
+9KfziT7uy3PHPWV2Ltgn1YoJXXzfk042nOexhIb3rUmy/rgv3S3nbpfNwT4d
+FY2fge97syvLS9p6KEhIyHHrw325GyQRqv2YAoe4l8Yz8X3vtoGZV/dFCm6U
+yjwgjTnI8mGmXG0UBe05Yj6a6vh5NpTLj7tS8CLT1b96Du7NqX3bRhdTMDxa
+nB05yEZ5Z6MPK0pSoCCXOev4YzzfFrg/u9pHAqfz5a3KeDYyziw+c66WBP0u
+QnY3YqN4JSfZGbkk/OyQrlBtYiH97KfVTftJ4CrzbVtvykLrpyKXvPUgQdty
+ud4CDyUkt7HzB9sUzzOBR99P8iki1XUjQkZSJJRvGVbZKCaPbmlRbcHf8Xq/
+2JNwfLMMOie8+QP7GQFuIocmNGwk0al7otsW5RGwnDxTuyhFGJ0QmMi7dpgA
+50/z57WI/OCm3rj6oU6BB9aTTpmVeH0jnLO2h40yUMHSkr+AWTYseu6KNwwI
+RY0L7cGcZdvGjSpggLPNOInB3L852MAvFs+vQpdfC2IenPphFujLgKvLTYer
+2AfJsVROvwUDIsT+AgPMQuivRTSLgZv+vRfisQ+BqzhFr8dpeK4V8+s29mG8
+dNOvxLc0DP65+eAC7svSzET3gCIalDl3V2lhP7Zzl6x8cpyGhu+6p+xxX9bP
+l514toWGIztynJ7ivojs/Vg1QOHzRV9TPwj3pW5pvWe0Cg2aKCKkD/dl65rD
+pPEfCnRCF7HKcV8i538PPNeE58/+MemXuC/X7fft2VWC5xFd9gUFfN85IziR
+uuMEBQLybr5vdTnovEzK6eZtFPR3l2W7KeH5N3zspSdNQUfOjbMkHwfVZs5x
+zFxAQakNH2K3sZGpulWp9RQ+D+KHdgdfZyPP/3bqcJpJuDuf652xhY3CPksY
+bi4nYcHVPe1dc9nItrN33O0UCdTNumd+iSy834satweQsM7jYXFegxJKMEw/
+8WMVCWbFisEEKCKJDdSxZDUSwuKzfnsrKSDh1Vee9/GTIL7xYa/XO1nESjfo
+L2kjQOBGZVBsihS68vX4Z/4UArLLeKFxz/lRr+cdb+kvBKBTi/caxEqj8/VW
+ecmZBJgZuiU8sRRCpZOvFuxIIMDVefTaSsE/XPknV491ZBOQzLXbGGA1A5X2
++60VOjDdn4Xt/Y+szhKw1GtO7pZIQWQuEmShGkuAmP+r8aRHP7kLrDtOEdo8
+mGzjL/zXo3O/tZaEivLgubaGRzHmFTppxV+7GPikDUcSMDvek1F9Bgy+L5Yx
+XpiNO/n+sziP+5KwLUALM4qZLf4zjIFZs8QSW7Bf4zHCwnzO2LflUygMc9ix
+E/7m+gw8YvWk9WDfvmably6exYBOwXGuLmYxhXqp/V9piCn49pbC/tnPi7eZ
+fZ8GiyDdj+PYt7nbHPeLXMD378uvI91xj1Id48jUvTSUld6NonCPeDUfP/u5
+4nn5qUYrD/coL1YzI9YI34eyb806iXv00nGqul2ChvmqwgHGuEfdxiO1Q714
+Hkk/uVdzNb4fBjd9dqml4F3XxRvrcY/OLWnrmMyiQG/nYsmbuEfLbF8Pju2j
+IK3Byu8x7lHWdoftKm4UFFQqFZ2RwM+bNfZczIgC7ztLdeO/s9Ffw6OWzDwK
+Lv0I+6nwBM/DjHny/X4SQuz071Un4Pn39u/Wwick7sGbIn2CjVCV1i29yyTI
+UVPqlq0s1MhEBg4eIMFD1rRidDkLsbTurBDYgP2TWWg47KOENOfGhtNmJJwN
+U33TLa6I1MX3pK6UJsElqFM2S0ke1Xk7P88cIsCuJSRi9iEZlIcc24yeE9Dq
+xqztDZVEwxGbupZeIcCy/NFOj2FhJMxri2yIIeD8Jc0DnatHuP1fn538qoj9
+WBy76R5e325p2z2Xxhio3VurdxFzsIn4Ipc6BtIVMjaE/3s/c+rN25OFDKS8
+1LBdiblk8YhKUhwD66lmO2HMeU9tTI74MTBzd7F/Pvbh48oDuxUJfB5Fp6gZ
+Y14k5yCXz2bAwadnfxL2IWbBmqTPEzQ4h+80r8E+qMuyTe820KDmYGd0DffI
+jU8990gxvu8Y/11qiv3oXGg8tzWBBskYg6VeuEc9cTlKY1tpqJQ+aPMR9yi6
+12pQiKEhfKF/ZwLuka/Bk2/FC2hYP3zeTdYZ//+Puq3WT1IgphtwdxD3yClN
++3DRewpWX1uKpHn4PHTk9VwopaD8lprdvuX/7tsZMjEncZ9Gfu930MM+Xnjs
+L7qdgpwLCb7SLHzfP5q0MJ6hQL4ktHA5PwfNLDxcWrIQ96tv1TzXdjZKrLTe
+GfGXhCdnd+9gCtjoao3tT+MWElZfFgz/tY2NpPndwiJukeBq514tL81GQtHV
+6YdPk/DR3dJg3WkWOjy56XB0IAlva/ylN7YqIasNTekqq/F9a1TolcAzRaQs
+MShxT52EfJfC1/O0FJDIpM5GPkESvjXm3tDol0XG9ZYtne0ErF+au2tBuRQS
+yf3sIZ1KgOccQ/2SpQJI6NxzB/QVz0d3BT7NvCyN/pzIVs67gOedWrXgwb1C
+SPqOxtn9iQT477n0crPwJHd3jIDAcA4Buu0SrrdTZ6CDZ0nu+nMEDJ4Jen0p
+XxClPaytMI4j4O6V4hNCbeNchUrphgPRBGiu8Vr5494Qlys7onfoPAHCB1QC
+ts4WQg+Uk63N0gk48kOYnSYliFb3DG57iXvVctVC8N/78rpmgduzxXjgEizY
+8K9X/fFty3d9YmCzfxv73/vy6x2JA47VDPxkbRD99748nbLIasS92ng14aA2
+Zpb/7biDexi4/P5Jdyv270NRuGEK7lXFy5T/wv/dz3aZv3uJe2Ur0z6/H/s4
+ImGvfg/3KvDmY28DzCpPigxle2iQGjphvQr7+dHyXUgq7tXPuLeRU9jHVR4N
+XSdxr97MELvliXvVHlvnpBNFQ+caocc2uFfCe1Imh3GvRtLUbznhXu08nO2p
+YkzDrk/rfbJxrywlCx/unIvn+aaUUmvcq7rgefURfdgfpqSVxr3KHbmb8Q33
+KnFgTCUW92qOsd75Y9kUxJUGNvfgXlUkf3VP2E/BpjhZJ1kNfB6GXJQrw73S
++/M9nm8u9vW/G3uTca+aBPKFpIawf1OiF9twr2puV/a0417Zn1r0y+YbCemG
+5s3ViWx0oVZ5v9lTEqS8pDtiSTZSlJQTfYh7VR/T5LG6nYU0FRsehx8kYXFy
+uuMdxELhFs1EGu7VwK7j3TZblZD+1/bKZtyrvI3Jk1bSiijXZ+nHetwrPg2+
+d0aq8mgDf8d9o2ECPgU2zjI4IYMKPFa1VONeOefUbYyPlUQX3Y7Pf4h7RViE
+LxtTnolqtr7y3XqEAIt1xSWl/SNc2ejWLcFKPGi8JVzzr1esEfW/S38ywLf8
+4u1/vVqQYlfahXtVdr5u1r/3xVdLrDKVihi4hSp0VmGWT1uSrhGPP59KnJiJ
++XDRZOm8zQzUxVwZK8A+PAsezS7Gvdpsre9hivmuwOQBCw4DZ0JebkvGPpxM
+8BYM/EWDW86Rtw+xDyse/XK2b6Sh7mSgdxHuVa9+0DOpGzQQ3b+vrMB+KMqW
+B/sk0uCuBwe24V7p1vRpx22jITnKz2QA98ryIt/ME7hX3i56FzJwr/S1yZu8
+hTQcj/S7rIV79ehgis0w7pXHtTvNs2zx5xtXJZo3U+AWN6hkgnt1pkH7onEZ
+Pp92Dr0oxr3qmTlYL5lEgVesSVYS7pVMd0fTBdyrUeNz6YG4V/2JnS+UeRQc
+8xG3q8C9yjW28OWqUrDUw8drBPfK/Njr15J8FJwrCEnTK2Sjl3PQuvu4V10Z
+4VXq29no45x9SjMqSBhrMJxVJMNG7Q3X+xSTSfhPsfj16zMs1PTqdqtEEAlV
+ai/sSzqU0NVdPzNv/evVvKEzTq8VkeYXwsFeg4QXG+X0mgwV0DGn71dica92
+FKq0h4zJovsBz+pCOwj4auk6WPtICpVHS6Zn4F4JeEyx9uwUQCdNnawaca9m
+Ay/VqVQaXQ94tc7gIgHLxD8Lr84QQvfTHN6JniAg9nTfNp2YSa66j+6KiEsE
+1HcEmXyEGcggPDDiC+5VS7zvhkv3BREvZ2S0CvdqfCv30DbfCe7bDuEqWTyv
+h98q2H7Je5g7MDLffzaezwwpjcv8GkIo5C/E1uBe/bAVUSZ4gshKrS8J4fP0
+ckqSV+q1H9y6u/KCDXgeg/FTVRWpgmh9+oK+/v/3fuF/f//4398D/weng+GZ
+
+      "], {{
+        {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[None],
+          GraphicsGroupBox[PolygonBox[CompressedData["
+1:eJwt1WV0EGQYBeDR3d1MQLq7u3t0w+jaaFBUVDAIW2kswm7pBpMuBQPsJBUM
+7Oc9xx/Pvnvf7cDu9mOJyalJKWkTEhLSsM+HWv+/0Wf4UJHP5ZX0ozZL3TqT
+lh36TcS/MVOvxBfyKvpTh2VuXUjHTv1m0jFLr8yX8moGUJflbl1Jzy59LumZ
+rVfhK3kNA6nHCrduZGC3fgsZmKNX5Wv5cQZRP7a4dScje/RbyRg79Gp8Iz/B
+YBrEFrceZGKvfhuZYodenW/lJxlCw9ji1pPM7NPnkTl26DX4Tn6KoTSKLW5J
+ZGG/fjtZYodek+/lpxlG49ji1ousvKXfQdbYEb8/fpDXMpwmscWtN9l4W7+T
+bLFDr82P8jpG0DS2uPUhO+/o88keO/Q6nJfXk0yz2OLWlxy8qy8gR+zQ63JB
+3sBImscWt37k5D39LnLGDr0eF+VnGEWL2OLWn1y8r99Nrtih1+eS/CyjaRlb
+3AaQmwP6PeSOHXoDLsvPMYZWscVtIHk4qN9LntihN+SK/DxjaR1b3AaRl0P6
+QvLGDr0RP8kvMI42scVtMPk4rC8iX+zQG/Oz/CLjaRtb3IaQnyP6YvLHDr0J
+V+WXmEC72OI2lAIc1ZdQIHboTbkmv8xE2scWt2EU5Jh+HwVjh96MX+RXmESH
+2OI2nEIc1++nUOzQm/Or/CqT6Rhb3EZQmBP6AxSOHXoLfpNfI4VOscUtmSKc
+1B+kSOzQW/K7/DqpdI4tbiMpyin9IYrGDr0V1+U3mEKX2OI2imJ8oD9Msdih
+t+YP+U2m0jW2uI2mOB/qj1A8duht+FPeyDS6xRa3MZTgtP4oJWKH3pa/5E1M
+p3tscRtLSc7oj1Eydujt+FvezAx6xBa3cZTiI30ppWKH3p5/5C3MjP9Hn8gN
+fKr3jG3yeErzsb6M0rFL78C/8lZmkURibHDvSPwh2Baf96ZQjtnx/XknUYad
+TOOs+zZvKnsozy6m0yt+Zt4JJPKJvjy+b3kyZflM3+6dQoXYED8bbyd2k4Yd
+TGUv233+Ru8c7zl6s4Iy9KEs5eJrKE8FKlKJylShKtWoTg1q0pf/AD8NzJ8=
+
+           "]]]}, {}, {}, {}}, {{}, {}, 
+        TagBox[
+         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
+          Opacity[1.], LineBox[CompressedData["
+1:eJwl1WV0F3QYBeCN7u6edHd3d41uGJ2jG8EABZtuuyVspbHBIJRQsAW7BUVA
+ed7Dh2e/e9/tnO3uyz8pJTV5SmJCQsJBX+Kd6UtFvpA30o/arHXrTBr26PNI
+wyy9El/Km+hPHda5dSEte/X5pGW2Xpmv5M0MoC7r3bqSjn36AtIxR6/C1/IW
+BlKPDW7dSM9+fSHpmatX5Rt5K4OoH1vcupOBA/oiMsQOvRrn5PsZTIPY4taD
+jBzUbyRj7NCrc15+gCE0jC1uPcnEa/piMsUOvQbfyg8ylEaxxS2ZzLyuLyFz
+7NBr8p38EMNoHFvcepGFN/SbyBI79Fp8Lz/McJrEFrfeZOVN/Wayxg69Nj/I
+jzCCprHFrQ/ZeEu/hWyxQ6/Dj/KjpNAstrj1JTtv67eSPXbodflJfoyRNI8t
+bv3IwTv6UnLEDr0eP8uPM4oWscWtPzk5pC8jZ+zQ6/OL/ASjaRlb3AaQi8P6
+beSKHXoDfpWfZAytYovbQHLzrn47uWOH3pDf5KcYS+vY4jaIPLynLydP7NAb
+8bv8NONoE1vcBpOX9/UV5I0demP+kJ9hPG1ji9sQ8vGBfgf5YofehD/lbUyg
+XWxxG0p+juh3kj926E35S97ORNrHFrdhFOCofhcFYofejAvyDibRIba4Dacg
+x/S7KRg79OZclHcymY6xxW0EhTiu30Oh2KG34G/5WabQKba4pVCYD/V7KRw7
+9Jb8Iz9HKp1ji9tIivCRfh9FYofeikvy80ylS2xxG0VRTugrKRo79Nb8K7/A
+NLrGFrfRFOOkvopisUNvw2X5RabTLba4jaE4p/TVFI8deluuyC8xg+6xxW0s
+JTitr6FE7NDbcVV+mZn0iC1u4yjJx/paSsYOvT3/ya8wK36PPpEbOKv3jG3y
+eErxib6OUrFL78D/8qvMJpmk2ODekfgg2BXf98aHQ1nmxN/nnURp9jKdT913
+eVM5QHn2MYNe8T/zTiCJM/r6+LvlyZThc323dyoVYkP8b7yd2E8ie5iWeP0z
+arfvl/PO9X5GbzZQmj6UoWz8DOWpQEUqUZkqVKUa1alBTfpSi2uG6svZ
+           "]]},
+         Annotation[#, "Charting`Private`Tag$95631#1"]& ]}}], {}}, InsetBox[
+     TemplateBox[{"\"LLR\"","\"Not Permitted\""},
+      "LineLegend",
+      DisplayFunction->(FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1.6]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
+                 GridBoxAlignment -> {
+                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
+                 AutoDelete -> False, 
+                 GridBoxDividers -> {
+                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
+                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
+                  GridBoxSpacings -> {
+                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
+             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
+             AutoDelete -> False, 
+             GridBoxItemSize -> {
+              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
+            "Grid"], Alignment -> Left, AppearanceElements -> None, 
+           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
+           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
+         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
+         False], TraditionalForm]& ),
+      Editable->True,
+      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{"Directive", "[", 
+               RowBox[{
+                 RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                 InterpretationBox[
+                  ButtonBox[
+                   TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", 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]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                   BaseStyle -> {}, BaselinePosition -> Baseline, 
+                   DefaultBaseStyle -> {}, ButtonFunction :> 
+                   With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.368417, 0.506779, 0.709798]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                   Automatic, Method -> "Preemptive"], 
+                  RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, 
+                  Selectable -> False], ",", 
+                 RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
+             "}"}], ",", 
+           RowBox[{"{", 
+             RowBox[{#, ",", #2}], "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"{", "}"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
+     Scaled[{0.8, 0.8}], ImageScaled[{0.5, 0.5}],
+     BaseStyle->{FontSize -> Larger},
+     FormatType->StandardForm]},
+   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+   Axes->{True, True},
+   AxesLabel->{None, None},
+   AxesOrigin->{-48.35428695287496, 0.},
+   CoordinatesToolOptions:>{"DisplayFunction" -> ({
+       Exp[
+        Part[#, 1]], 
+       Exp[
+        Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+       Exp[
+        Part[#, 1]], 
+       Exp[
+        Part[#, 2]]}& )},
+   DisplayFunction->Identity,
+   Epilog->{{
+      Directive[
+       RGBColor[0, 0, 1]], 
+      LineBox[
+       NCache[{{-38.96306112809702, 0.405494474343639}, {-38.963061131157644`,
+          0.4054945076759928}, {-38.96306113727891, 
+         0.4054945743406974}, {-38.963061143400175`, 
+         0.4054946410053975}, {-38.9630611556427, 
+         0.4054947743347842}, {-38.963061186249014`, 
+         0.4054951076581734}, {-38.96306149231179, 
+         0.4054984408859546}, {-38.96306210443534, 
+         0.4055051073081857}, {-38.963062716556244`, 
+         0.405511773685976}, {-38.963063328674494`, 
+         0.40551844001932613`}, {-38.96306394079011, 
+         0.40552510630823635`}, {-38.96306455290306, 
+         0.40553177255270756`}, {-38.963119632226714`, 
+         0.40613155265132483`}, {-38.963180806336496`, 
+         0.406797553341943}, {-38.9633030752679, 
+         0.4081282255276481}, {-38.963425238647666`, 
+         0.40945712937770185`}, {-38.96354729667437, 
+         0.41078426958576436`}, {-38.96366924954602, 
+         0.412109650826833}, {-38.964277443469165`, 
+         0.41871033485818504`}, {-38.96488303789253, 
+         0.4252677354043441}, {-38.96548605693684, 
+         0.43178241642553783`}, {-38.96608652438134, 
+         0.4382549309311553}, {-38.96668446367028, 
+         0.44468582126144574`}, {-38.96727989791927, 
+         0.45107561936021673`}, {-38.96787284992139, 
+         0.4574248470388755}, {-38.968463342153306`, 
+         0.4637340162321402}, {-38.96905139678109, 
+         0.47000362924573563`}, {-39.01410641384279, 
+          Log[
+           Rational[5, 2]]}, {-39.21434204079634, 
+          Log[
+           Rational[23, 2]]}, {-39.65510181886247, 
+          Log[
+           Rational[203, 2]]}, {-39.862390566464065`, 
+          Log[
+           Rational[403, 2]]}, {-40.142635117086044`, 
+          Log[
+           Rational[803, 2]]}, {-40.369339537858586`, 
+          Log[
+           Rational[1203, 2]]}, {-40.5844484443701, 
+          Log[
+           Rational[1603, 2]]}, {-40.80948421154623, 
+          Log[
+           Rational[2003, 2]]}, {-82.61442721724194, 
+          Log[
+           Rational[4003, 2]]}}, CompressedData["
+1:eJxTTMoPSmViYGBQAWIQfX+OxzTXaucD9983SMz/fNO+Qt8fzD/g7G0D4q8J
+iQHzvV/fbwbx71dmgvmtk0pOg/iuR5rBfLYHc6MWgPh1R8H8EJnWAwuBfP5D
+YTNB/MiT3bvXA/ldHpXzQPwXP/s3ngbyJ56dvRjEt/rcvvw5kK8UuG8FiB+x
+tXgu85eb9g6XH6wF8T0cgifLA/kvgpk3g/hSU9Q6rYF8fzfeRncgv2+bghH/
+v5v2l9aYN3kC+RcmvZn1g+OW/Q6TR82+QD77ed+bR+Vu2f8VWNUSCOTrLPm0
+ptvklv3Zdf0toUC+ueNTKS+vW/bM1ZObI4H8m5u1NBgTbtlb/6kszAXyly9e
+m6d25pZ9qPQkz0Yg//ShZ5rTzG/bX1nCzzMVyHdyS9oetOi2fd1K1Z0rgHw3
+u1cZcTx37D82sgXuAfIlWK+07C69Yy9z6fHl80B+vom3W869O/aLet45Pgby
+t1vOulvkdtde/1vY7G9AvuaCgoKLa+/ab1zh84CzxvnAeTV1qS6Re/b6/Lq2
+5xqdD1Q8ePDBIeitfcaG6P782c4HSlSF7d52MjvYn4hOuHXZ+UC635SNH6qE
+HE6uTr+Q9M75wAwRplsKlqIOyyaJ3nMUcjng18K0Xvy3uEO5zKwWN32XA4rc
+3K7MMyUdnJOempz3cjkgPWPBq6/7pBxE5+zWnZvucsB4V36r8GJphydfOo4F
+LQ85sG+veZN4hpwDAFLvHtY=
+        "]]]}},
+   Frame->{{True, True}, {True, True}},
+   FrameLabel->{{
+      FormBox[
+      "\"Lower Bound on (\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \
+\\(BD\\)]\\)+3/2)\"", TraditionalForm], None}, {
+      FormBox[
+      "\"\\!\\(\\*SubscriptBox[\\(m\\), \\(s\\)]\\)(eV)\"", TraditionalForm], 
+      None}},
+   FrameStyle->Directive[Bold, 16],
+   FrameTicks->FrontEndValueCache[{{Quiet[
+        Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , 
+       Charting`ScaledFrameTicks[{Log, Exp}]}, {Quiet[
+        Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , 
+       Charting`ScaledFrameTicks[{Log, Exp}]}}, {{{{0., 
+         FormBox["1", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
+         FormBox["5", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.302585092994046, 
+         FormBox["10", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.912023005428146, 
+         FormBox["50", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.605170185988092, 
+         FormBox["100", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.214608098422191, 
+         FormBox["500", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.907755278982137, 
+         FormBox["1000", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.791759469228055, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.995732273553991, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.0943445622221, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.248495242049359, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.382026634673881, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.499809670330265, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.298317366548036, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.703782474656201, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.991464547107982, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.396929655216146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.551080335043404, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.684611727667927, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.802394763324311, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {7.600902459542082, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.006367567650246, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.294049640102028, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.517193191416238, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.699514748210191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.85366542803745, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.987196820661973, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.104979856318357, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.210340371976184, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.615805480084347, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.903487552536127, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {10.126631103850338`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}, {{0., 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.302585092994046, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.912023005428146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.605170185988092, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.214608098422191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.907755278982137, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.791759469228055, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.995732273553991, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.0943445622221, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.248495242049359, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.382026634673881, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.499809670330265, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.298317366548036, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.703782474656201, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.991464547107982, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.396929655216146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.551080335043404, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.684611727667927, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.802394763324311, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {7.600902459542082, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.006367567650246, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.294049640102028, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.517193191416238, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.699514748210191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.85366542803745, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.987196820661973, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.104979856318357, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.210340371976184, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.615805480084347, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.903487552536127, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {10.126631103850338`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}}, {{{-48.35428695287496, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "21"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.051701859880914`, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "20"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.74911676688687, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "19"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.44653167389282, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "18"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.14394658089878, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "17"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.841361487904734`, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "16"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.538776394910684`, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "15"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-50.65687204586901, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-49.96372486530906, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-49.558259757200894`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-49.270577684749114`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-49.047434133434905`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-48.86511257664095, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-48.71096189681369, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-48.57743050418917, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-48.459647468532786`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.66113977231502, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.25567466420685, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.96799259175507, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.74484904044086, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.5625274836469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.40837680381964, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.27484541119512, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.15706237553874, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-45.35855467932097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.95308957121281, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.66540749876102, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.44226394744681, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.25994239065286, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.1057917108256, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.97226031820108, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.85447728254469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.055969586326924`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.65050447821876, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.36282240576698, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.13967885445277, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.95735729765881, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.803206617831556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.66967522520703, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.55189218955065, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.753384493332874`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.34791938522471, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.060237312772934`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.837093761458725`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.654772204664766`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.500621524837506`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.36709013221299, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.249307096556606`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.45079940033883, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.04533429223067, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.75765221977888, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.534508668464674`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.35218711167072, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.19803643184346, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.06450503921894, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.946722003562556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.14821430734479, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.74274919923662, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.45506712678484, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.23192357547063, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.04960201867667, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.89545133884942, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.76191994622489, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.64413691056851, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.84562921435074, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.44016410624258, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.1524820337908, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.92933848247659, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.74701692568263, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.59286624585537, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.45933485323085, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.34155181757447, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.23619130191664, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}, {{-48.35428695287496, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.051701859880914`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.74911676688687, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.44653167389282, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.14394658089878, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.841361487904734`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.538776394910684`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-50.65687204586901, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-49.96372486530906, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-49.558259757200894`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-49.270577684749114`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-49.047434133434905`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-48.86511257664095, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-48.71096189681369, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-48.57743050418917, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-48.459647468532786`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.66113977231502, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.25567466420685, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.96799259175507, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.74484904044086, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.5625274836469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.40837680381964, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.27484541119512, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.15706237553874, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-45.35855467932097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.95308957121281, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.66540749876102, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.44226394744681, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.25994239065286, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.1057917108256, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.97226031820108, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.85447728254469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.055969586326924`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.65050447821876, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.36282240576698, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.13967885445277, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.95735729765881, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.803206617831556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.66967522520703, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.55189218955065, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.753384493332874`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.34791938522471, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.060237312772934`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.837093761458725`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.654772204664766`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.500621524837506`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.36709013221299, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.249307096556606`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.45079940033883, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.04533429223067, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.75765221977888, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.534508668464674`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.35218711167072, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.19803643184346, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.06450503921894, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.946722003562556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.14821430734479, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.74274919923662, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.45506712678484, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.23192357547063, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.04960201867667, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.89545133884942, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.76191994622489, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.64413691056851, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.84562921435074, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.44016410624258, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.1524820337908, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.92933848247659, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.74701692568263, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.59286624585537, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.45933485323085, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.34155181757447, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.23619130191664, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}}}],
+   GridLines->NCache[{None, {
+       Log[3]}}, {None, {1.0986122886681098`}}],
+   GridLinesStyle->Directive[
+     GrayLevel[0.5, 0.4]],
+   ImagePadding->All,
+   ImageSize->Large,
+   Method->{
+    "DefaultBoundaryStyle" -> Automatic, 
+     "DefaultGraphicsInteraction" -> {
+      "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+       "Effects" -> {
+        "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+         "Droplines" -> {
+          "freeformCursorMode" -> True, 
+           "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+     "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, 
+     "AxesInFront" -> True},
+   PlotRange->
+    NCache[{{-Log[1000000000000000000000], -Log[1000000000000000]}, {0., 
+      7.601357804975339}}, {{-48.35428695287496, -34.538776394910684`}, {0., 
+     7.601357804975339}}],
+   PlotRangeClipping->True,
+   PlotRangePadding->{{
+      Scaled[0.02], 
+      Scaled[0.02]}, {
+      Scaled[0.05], 
+      Scaled[0.05]}},
+   Ticks->{Quiet[
+      Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , Quiet[
+      Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& }],
+  InterpretTemplate[Legended[
+    Graphics[{
+      GraphicsComplex[CompressedData["
+1:eJxNmWk0lV+8gE0JJcnMOSfK1N+sjA1n806nlHmKNBgbFCIJaZIKUUqGkkLS
+YCpDKvnRpLmIZC6lDBEhKrq7D/e6n6xnrbPO8q797Gf/9ntUPAPsfQT4+Phq
++Pn4/v0NjeYj1+rw4AdSd3nqx0Eit99zs8V4sH+Ow+obmM/2qzzl/8yApIrz
+zUTMM/jFKtqrGSj0MnnqjXnq6gFF/0wGDvEFndbBPGG3WWxOOANf90otb/fl
+oKfNA+t1XRjwejQoGYk5Y+MnCy8DBo7Hd2cN+HDQ34gtKbzZDKx/kB6zBLPp
+ngS76z00TDX/qLH25qCdwQvSVR/QkEI7SQp5cdAhG2dG6SINfJfC+7Zs4qCF
+1Qp+NVE0nF1PCbpt4KCHeqtlotbSwImVjvFcx0HL93M0bxnTcNnM6EqpKweV
+vdjwRFiShnztig5fBw6qKtJvm9FPgdirCEWf1Rx0ftdFp0NPKBgsWeFRSnDQ
+PpMD62RyKFhq2+SjbMJBxi18tWoHKNjdaPvBW4ODBiMGq1e5U9B8ZfWXLXM5
+yOTGdl1lYwp2Rg8tSxtiI+encX+DpSioi4toyXrKRqEd8htav5Gwu9SgBE6w
+0fZGauH9pyQ0NnvadVFs9MNTwM0tjwSBJpezDp0sFNGvM1/4EAkzy+cNRRIs
+9N5lgqe/kQQWs+NF7g4lZAqL+QPMSRAbJ0QvKyoijXuTWutlSHBw7UoDbXnU
+n+F359kwAfKjag+IDBl0Mxy9X/OCgK1dnXlC5yWRrVmFu/VVAmxyI7cvsp2J
+9h6vtv17hICdqXuzFOJGudfaTd8+8CRglmB+eO+pIW6RpO1dETTNZRaNhpsU
+p/mUwx9x05+W/8d/fxW7V72d5u2ZjSbuhdNcrHY2bFf8NP/Me8nk+E7z8+qT
+xw5ZTHPY3RG9D5xpVit55O0wYfF/nHfcdIponOY7f8zEPt+c5lebr+akJ0zz
+7bLb2S+3TfOvcJesMXKaufO/WUwp8cD5keKCKuy3ff1kdN1PBs4IvyOzML8e
+S7YIrGfAZL1VeQRmgcaHWy4VMRAYu07MCnPkVMi8yngGduSavRDB7Hnm2pLz
+mxl4cHMkqgjvh5KMLa95JAMpa7WSzDFbD+T2N3AY2PXWziEV74dzvyJCfv2i
+wV2tfOsTvB+cQpt2fW2kofrVnuOleD+Eb7r7PfMGDUkBvXMpTw5yEDF9N5BI
+w4YS76rgjRwUMm64QtmfBuuCdZK/PDiI37WUo8SjgbB9ZnPdjYN+qVeFdSyk
+IbWlrhk5c5A5l+cQM0XB1B7BJg1bDtKV2pL2oJkCQd8Vb9byOCjBWXLt8zIK
+mIA/4p+Wc5CbqEVSRhIF+gKNEW/0OChJa5w03UHB/i/t7s9ZHCSVohtWyqPA
+YHOT6xIBDqLv/ZF9qkqBjaD478QONup2tNfL48P7p5g+KVvERsNuetU2rSR8
+0VgWbbeDjYpYOfcSKki4md60gpJjo3KN1GVFySQce6BXbZHGQv9lSS05G4T3
+z5quHMEuJSQSL3vJZg0Jph6V7zMbFJF+VeqZbg38+cKBjyfNFZBYwY0f0kIk
+FF5PWFnCJ4dsZzs+nd1JwGNx/vkujVJIoDlS8eUdAo7Kz/owv1wc+Xotb1RP
+I6AqNM2nNE8ASRvvnee5a9p33TCy1tdumpvlRbM9Xaf9aX4zVnNNlQdGOtxv
+D/D65z/a9tGcnweJ58dPXcVcNtQyw6yVgTvVcuIxmKP7/CQtKxg476e31hVz
+pWPEGekzDIj3XWtVwqw7cmy+cxADL5YfU6vFvnCXXU+5s4aBgo7KI+swh16m
+UliaDDS9+D7rIfbH+s7w4YuCDAyofK/lw/xo902vVZ00bBavGxfCPoVuDaA8
+79CQOVHUdBn706fFSBxOpaHz8+nfw9if5+ty7YN20dDzJiGyaD0Hdd3nS39u
+S8PLZ2X9Ce7Yz/odr610aDjo9upnjAsHhQk7JjyaSYN2e1hGox0HjX1YvdSn
+i4IuvV9M0CoOkvVd+04DKGj9e+rmV8RB/sqbdq89S4HSbI156Ys5yPtQpHDh
+bgo2P9vIW7OAgw6ISrD57Cno+6BzLlmUg1aYli7YpUPBOgXHxp6vbHReIkBu
+jhgFnGJb66+VbLSErTpX9jMJvaf3aZruZ6OEiZHvmjUkKEUh3xg9NnKi1ljN
+yCTh0NyB9IB7LGT/+MIV23ASYHdPdYgMC30fmvmzypmE2RIlnv1qSqiE2/3s
+PwMSrAXLgmWLFJC8cVNixWwSTrpE5x7OkEOchjZL/x4C9NOyWhLvSyO3q+0T
+xx8Q0LVgo0ig/Vzkbv079fZFAj4ua0lurBRCtZsyi4uipn3J8e8CWykelPz+
+PHALr+9YR6LG1gEGzEL9HdIw9/622Xv5KQNFR3ZdCsS8HxbWiOThvhxc9XIZ
+ZvO8HQk+hxhAm8RWj+D1P2P6YmX3BgY0HdV1UjBr/lUXbTRnoMMjm18Ws7qR
+iGWiDAO62xOXbcY+9JrN8HIYpkHUNv+/BOzDp5DJIzEvaHBYmjJvI+5LlKvo
+ubYrNISqzrZsweftnU+ama5HaDDLfHexD5+3rNNVi1550lBfeu+BEe7L/P4t
+2Vu4NOxQaDxbsZaDXMMlVIIV8fmtMT/ygyMH/dm9TJ4epWCxAmXgas1BvuTh
+nwvrKLC1PMRi0RwkzDxpDsynoAwqe7PMOYg3rJz/4RgF33f0narW4iCoDz5U
+7Y3P345qzfeyHHRJ1bp+K5eCM2mpf8x+sZE1Sc6az8I+JWpH7W1gI910I8by
+JwlX9W3+k7qIe5JqvvNYPQkJAe+F+93YqI7rED9ShM/Xyv6T3/+wkIJYl457
+PF5f0aA1WwNZSGBvzL3Pm0lYenS3e/41JaSsrubQQZCgIC6V0RKpiK6vsNqU
+xSEhxtNiXmiFPPqtdtwl8DcBvGyvCwbOsugg8dQuv5EAH2+zuKOv56GdYfuk
+Tp3A53G+74FqoSnuRjH3YCn/aR80r0UcEljEg4/VQ/mP8fq6wQLJwRk82D5m
+fbAAs+bglF9GJwNBQVtGYzGTY6Y+JyoZmHqw7/p6zO37olwhnYE3vaMfVDFL
+L5yQvrGLAdHifZvq8fpHx635HWKP+7DJP8Ufs5hQcn+VNvalUMi0GfuQq1Qw
+Z3QmAx/5B+WUMO8bv+D2+xMN+lq74v7DfowM1Abcr6JB0fl2VSPuRXmltdbr
+czTMLVAN0cN+jM/pbFUIp2Erv88LYezH2z25LmpONITxbzj2C/ei/wr9h9+Q
+BunMcRUVPI/J9b6/5jubhldjPVuz7PHzPlkRX/qFgjlmwlEBVhzUvH3vmYYH
+FKjwfO87WeL9oTW0pTyTAqfvK018jDhoTeEKv62RFGwpbSr/rMpBtyz3BVxy
+pkAkNObKXHG8P3adzHtqQMEqrTZ+529s9Mt/76zqORQoz5854PsA9yDqvMme
+HhJO3DtN5x5loyk/tljoIxL+XPl5YcCcjVTfXq4rzCZBNIpa8/AVC3Wv9fO+
+FoU5xvTmlDYLfcrhUw5zJ4Gt2r9J10oJjf2N735uRMIaWu95YbcCUv7V2zZL
+kgSN4OdC4l/k0OGKBX+VBgiYORQeVWYog2KSEnu+1RJws1RzYfbkXNRIuIUL
+5WKOyyyf6pmBsnbr87semvZjmNp84LIcDwxsR2Tu4vXNeU87c34wsDJJ60MG
+Zo+JnR2zXjFgNOsGHYrZ4tmIjMt1BuzRpBiJ2b0+yFbyKAO5f47fncLrH+m3
+jGvpzUCihZV4DuYd1rX+iVwGnul4XdDEfPukS4qhIgM1EVfK92MfiHToyx2j
+gZ2tY3Ud+3ButDfKpI4GAW3DtDjciz+tno9WFNDwe5nhPEnsx5FQ/TvZcTTc
+jz3YqI/PEx49cXO3Hw179j4tT8O9mJslsamGoEG1tEDMCM8jV2y/rF40n4Zo
+k0M7Tzvh+4d7jVH3BAVJ/sd4pA2+T2jt5oU0UjB5VbuXy2C2/pbGuUFBU2uP
+i9UyDnozWZTJTaAgPHv24zod/H1/jT5FbqHgVK9n1gcFDmr1uKc2l8TzyCJV
+JaspNlp1QPlkiDIFQifS4XwzG8X+JJaO/iZB+eP9xrt5bPRmoiSt/x0JR4+f
+ePXam40sCiIuWZSS4PTX++BGMTb6mrq8dMZJEnQPJxTaHWahMxJr9qDtJPTE
+vNg6+VgJSb9nR6bwSBBSG21zv6qIBqaGIsiFJGgt2rQ18rc8EujNvFTzlwCT
+2qM8o3xZ1KMhMcejhYBRb4piuUih/u3tI62nCdC2GLbM+MKHyr+nxtz9RMDl
+AkHmlI006nQ9Vx6YQUD5pVuu1c2CaMBqjqdo+LQv4weVDVfGE6Be20WcG5jg
+vpK716WjxYNb8wJmPME+GCyP0lwpwgOTGY+2FWH+uH1u2quPDOSbJK89/s+v
+CJXE8ioGfHuHqjdh3iGz30w2gwElFQ9qEeaY20USnbvxvHpEpaUJ+6KxmJP/
+xpGB+0m/fUMwO95YliKpx8AMfu3Dn7A/dc9m1XPEGFg23NCrgbn1llyjwxca
+Ji1fvFmGfVpcPCo0Uk3D18/O6d+wPxkx9hWj52kwrPswsBr3Zc7XPyo7ImlY
+9KfziT7uy3PHPWV2Ltgn1YoJXXzfk042nOexhIb3rUmy/rgv3S3nbpfNwT4d
+FY2fge97syvLS9p6KEhIyHHrw325GyQRqv2YAoe4l8Yz8X3vtoGZV/dFCm6U
+yjwgjTnI8mGmXG0UBe05Yj6a6vh5NpTLj7tS8CLT1b96Du7NqX3bRhdTMDxa
+nB05yEZ5Z6MPK0pSoCCXOev4YzzfFrg/u9pHAqfz5a3KeDYyziw+c66WBP0u
+QnY3YqN4JSfZGbkk/OyQrlBtYiH97KfVTftJ4CrzbVtvykLrpyKXvPUgQdty
+ud4CDyUkt7HzB9sUzzOBR99P8iki1XUjQkZSJJRvGVbZKCaPbmlRbcHf8Xq/
+2JNwfLMMOie8+QP7GQFuIocmNGwk0al7otsW5RGwnDxTuyhFGJ0QmMi7dpgA
+50/z57WI/OCm3rj6oU6BB9aTTpmVeH0jnLO2h40yUMHSkr+AWTYseu6KNwwI
+RY0L7cGcZdvGjSpggLPNOInB3L852MAvFs+vQpdfC2IenPphFujLgKvLTYer
+2AfJsVROvwUDIsT+AgPMQuivRTSLgZv+vRfisQ+BqzhFr8dpeK4V8+s29mG8
+dNOvxLc0DP65+eAC7svSzET3gCIalDl3V2lhP7Zzl6x8cpyGhu+6p+xxX9bP
+l514toWGIztynJ7ivojs/Vg1QOHzRV9TPwj3pW5pvWe0Cg2aKCKkD/dl65rD
+pPEfCnRCF7HKcV8i538PPNeE58/+MemXuC/X7fft2VWC5xFd9gUFfN85IziR
+uuMEBQLybr5vdTnovEzK6eZtFPR3l2W7KeH5N3zspSdNQUfOjbMkHwfVZs5x
+zFxAQakNH2K3sZGpulWp9RQ+D+KHdgdfZyPP/3bqcJpJuDuf652xhY3CPksY
+bi4nYcHVPe1dc9nItrN33O0UCdTNumd+iSy834satweQsM7jYXFegxJKMEw/
+8WMVCWbFisEEKCKJDdSxZDUSwuKzfnsrKSDh1Vee9/GTIL7xYa/XO1nESjfo
+L2kjQOBGZVBsihS68vX4Z/4UArLLeKFxz/lRr+cdb+kvBKBTi/caxEqj8/VW
+ecmZBJgZuiU8sRRCpZOvFuxIIMDVefTaSsE/XPknV491ZBOQzLXbGGA1A5X2
++60VOjDdn4Xt/Y+szhKw1GtO7pZIQWQuEmShGkuAmP+r8aRHP7kLrDtOEdo8
+mGzjL/zXo3O/tZaEivLgubaGRzHmFTppxV+7GPikDUcSMDvek1F9Bgy+L5Yx
+XpiNO/n+sziP+5KwLUALM4qZLf4zjIFZs8QSW7Bf4zHCwnzO2LflUygMc9ix
+E/7m+gw8YvWk9WDfvmably6exYBOwXGuLmYxhXqp/V9piCn49pbC/tnPi7eZ
+fZ8GiyDdj+PYt7nbHPeLXMD378uvI91xj1Id48jUvTSUld6NonCPeDUfP/u5
+4nn5qUYrD/coL1YzI9YI34eyb806iXv00nGqul2ChvmqwgHGuEfdxiO1Q714
+Hkk/uVdzNb4fBjd9dqml4F3XxRvrcY/OLWnrmMyiQG/nYsmbuEfLbF8Pju2j
+IK3Byu8x7lHWdoftKm4UFFQqFZ2RwM+bNfZczIgC7ztLdeO/s9Ffw6OWzDwK
+Lv0I+6nwBM/DjHny/X4SQuz071Un4Pn39u/Wwick7sGbIn2CjVCV1i29yyTI
+UVPqlq0s1MhEBg4eIMFD1rRidDkLsbTurBDYgP2TWWg47KOENOfGhtNmJJwN
+U33TLa6I1MX3pK6UJsElqFM2S0ke1Xk7P88cIsCuJSRi9iEZlIcc24yeE9Dq
+xqztDZVEwxGbupZeIcCy/NFOj2FhJMxri2yIIeD8Jc0DnatHuP1fn538qoj9
+WBy76R5e325p2z2Xxhio3VurdxFzsIn4Ipc6BtIVMjaE/3s/c+rN25OFDKS8
+1LBdiblk8YhKUhwD66lmO2HMeU9tTI74MTBzd7F/Pvbh48oDuxUJfB5Fp6gZ
+Y14k5yCXz2bAwadnfxL2IWbBmqTPEzQ4h+80r8E+qMuyTe820KDmYGd0DffI
+jU8990gxvu8Y/11qiv3oXGg8tzWBBskYg6VeuEc9cTlKY1tpqJQ+aPMR9yi6
+12pQiKEhfKF/ZwLuka/Bk2/FC2hYP3zeTdYZ//+Puq3WT1IgphtwdxD3yClN
++3DRewpWX1uKpHn4PHTk9VwopaD8lprdvuX/7tsZMjEncZ9Gfu930MM+Xnjs
+L7qdgpwLCb7SLHzfP5q0MJ6hQL4ktHA5PwfNLDxcWrIQ96tv1TzXdjZKrLTe
+GfGXhCdnd+9gCtjoao3tT+MWElZfFgz/tY2NpPndwiJukeBq514tL81GQtHV
+6YdPk/DR3dJg3WkWOjy56XB0IAlva/ylN7YqIasNTekqq/F9a1TolcAzRaQs
+MShxT52EfJfC1/O0FJDIpM5GPkESvjXm3tDol0XG9ZYtne0ErF+au2tBuRQS
+yf3sIZ1KgOccQ/2SpQJI6NxzB/QVz0d3BT7NvCyN/pzIVs67gOedWrXgwb1C
+SPqOxtn9iQT477n0crPwJHd3jIDAcA4Buu0SrrdTZ6CDZ0nu+nMEDJ4Jen0p
+XxClPaytMI4j4O6V4hNCbeNchUrphgPRBGiu8Vr5494Qlys7onfoPAHCB1QC
+ts4WQg+Uk63N0gk48kOYnSYliFb3DG57iXvVctVC8N/78rpmgduzxXjgEizY
+8K9X/fFty3d9YmCzfxv73/vy6x2JA47VDPxkbRD99748nbLIasS92ng14aA2
+Zpb/7biDexi4/P5Jdyv270NRuGEK7lXFy5T/wv/dz3aZv3uJe2Ur0z6/H/s4
+ImGvfg/3KvDmY28DzCpPigxle2iQGjphvQr7+dHyXUgq7tXPuLeRU9jHVR4N
+XSdxr97MELvliXvVHlvnpBNFQ+caocc2uFfCe1Imh3GvRtLUbznhXu08nO2p
+YkzDrk/rfbJxrywlCx/unIvn+aaUUmvcq7rgefURfdgfpqSVxr3KHbmb8Q33
+KnFgTCUW92qOsd75Y9kUxJUGNvfgXlUkf3VP2E/BpjhZJ1kNfB6GXJQrw73S
++/M9nm8u9vW/G3uTca+aBPKFpIawf1OiF9twr2puV/a0417Zn1r0y+YbCemG
+5s3ViWx0oVZ5v9lTEqS8pDtiSTZSlJQTfYh7VR/T5LG6nYU0FRsehx8kYXFy
+uuMdxELhFs1EGu7VwK7j3TZblZD+1/bKZtyrvI3Jk1bSiijXZ+nHetwrPg2+
+d0aq8mgDf8d9o2ECPgU2zjI4IYMKPFa1VONeOefUbYyPlUQX3Y7Pf4h7RViE
+LxtTnolqtr7y3XqEAIt1xSWl/SNc2ejWLcFKPGi8JVzzr1esEfW/S38ywLf8
+4u1/vVqQYlfahXtVdr5u1r/3xVdLrDKVihi4hSp0VmGWT1uSrhGPP59KnJiJ
++XDRZOm8zQzUxVwZK8A+PAsezS7Gvdpsre9hivmuwOQBCw4DZ0JebkvGPpxM
+8BYM/EWDW86Rtw+xDyse/XK2b6Sh7mSgdxHuVa9+0DOpGzQQ3b+vrMB+KMqW
+B/sk0uCuBwe24V7p1vRpx22jITnKz2QA98ryIt/ME7hX3i56FzJwr/S1yZu8
+hTQcj/S7rIV79ehgis0w7pXHtTvNs2zx5xtXJZo3U+AWN6hkgnt1pkH7onEZ
+Pp92Dr0oxr3qmTlYL5lEgVesSVYS7pVMd0fTBdyrUeNz6YG4V/2JnS+UeRQc
+8xG3q8C9yjW28OWqUrDUw8drBPfK/Njr15J8FJwrCEnTK2Sjl3PQuvu4V10Z
+4VXq29no45x9SjMqSBhrMJxVJMNG7Q3X+xSTSfhPsfj16zMs1PTqdqtEEAlV
+ai/sSzqU0NVdPzNv/evVvKEzTq8VkeYXwsFeg4QXG+X0mgwV0DGn71dica92
+FKq0h4zJovsBz+pCOwj4auk6WPtICpVHS6Zn4F4JeEyx9uwUQCdNnawaca9m
+Ay/VqVQaXQ94tc7gIgHLxD8Lr84QQvfTHN6JniAg9nTfNp2YSa66j+6KiEsE
+1HcEmXyEGcggPDDiC+5VS7zvhkv3BREvZ2S0CvdqfCv30DbfCe7bDuEqWTyv
+h98q2H7Je5g7MDLffzaezwwpjcv8GkIo5C/E1uBe/bAVUSZ4gshKrS8J4fP0
+ckqSV+q1H9y6u/KCDXgeg/FTVRWpgmh9+oK+/v/3fuF/f//4398D/weng+GZ
+
+       "], {{{
+          EdgeForm[], 
+          Directive[
+           RGBColor[0.368417, 0.506779, 0.709798], 
+           Opacity[0.2]], 
+          GraphicsGroup[{
+            Polygon[CompressedData["
+1:eJwt1WV0EGQYBeDR3d1MQLq7u3t0w+jaaFBUVDAIW2kswm7pBpMuBQPsJBUM
+7Oc9xx/Pvnvf7cDu9mOJyalJKWkTEhLSsM+HWv+/0Wf4UJHP5ZX0ozZL3TqT
+lh36TcS/MVOvxBfyKvpTh2VuXUjHTv1m0jFLr8yX8moGUJflbl1Jzy59LumZ
+rVfhK3kNA6nHCrduZGC3fgsZmKNX5Wv5cQZRP7a4dScje/RbyRg79Gp8Iz/B
+YBrEFrceZGKvfhuZYodenW/lJxlCw9ji1pPM7NPnkTl26DX4Tn6KoTSKLW5J
+ZGG/fjtZYodek+/lpxlG49ji1ousvKXfQdbYEb8/fpDXMpwmscWtN9l4W7+T
+bLFDr82P8jpG0DS2uPUhO+/o88keO/Q6nJfXk0yz2OLWlxy8qy8gR+zQ63JB
+3sBImscWt37k5D39LnLGDr0eF+VnGEWL2OLWn1y8r99Nrtih1+eS/CyjaRlb
+3AaQmwP6PeSOHXoDLsvPMYZWscVtIHk4qN9LntihN+SK/DxjaR1b3AaRl0P6
+QvLGDr0RP8kvMI42scVtMPk4rC8iX+zQG/Oz/CLjaRtb3IaQnyP6YvLHDr0J
+V+WXmEC72OI2lAIc1ZdQIHboTbkmv8xE2scWt2EU5Jh+HwVjh96MX+RXmESH
+2OI2nEIc1++nUOzQm/Or/CqT6Rhb3EZQmBP6AxSOHXoLfpNfI4VOscUtmSKc
+1B+kSOzQW/K7/DqpdI4tbiMpyin9IYrGDr0V1+U3mEKX2OI2imJ8oD9Msdih
+t+YP+U2m0jW2uI2mOB/qj1A8duht+FPeyDS6xRa3MZTgtP4oJWKH3pa/5E1M
+p3tscRtLSc7oj1Eydujt+FvezAx6xBa3cZTiI30ppWKH3p5/5C3MjP9Hn8gN
+fKr3jG3yeErzsb6M0rFL78C/8lZmkURibHDvSPwh2Baf96ZQjtnx/XknUYad
+TOOs+zZvKnsozy6m0yt+Zt4JJPKJvjy+b3kyZflM3+6dQoXYED8bbyd2k4Yd
+TGUv233+Ru8c7zl6s4Iy9KEs5eJrKE8FKlKJylShKtWoTg1q0pf/AD8NzJ8=
+
+             "]]}]}, {}, {}, {}}, {{}, {}, 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            RGBColor[0.368417, 0.506779, 0.709798], 
+            AbsoluteThickness[1.6]], 
+           Line[CompressedData["
+1:eJwl1WV0F3QYBeCN7u6edHd3d41uGJ2jG8EABZtuuyVspbHBIJRQsAW7BUVA
+ed7Dh2e/e9/tnO3uyz8pJTV5SmJCQsJBX+Kd6UtFvpA30o/arHXrTBr26PNI
+wyy9El/Km+hPHda5dSEte/X5pGW2Xpmv5M0MoC7r3bqSjn36AtIxR6/C1/IW
+BlKPDW7dSM9+fSHpmatX5Rt5K4OoH1vcupOBA/oiMsQOvRrn5PsZTIPY4taD
+jBzUbyRj7NCrc15+gCE0jC1uPcnEa/piMsUOvQbfyg8ylEaxxS2ZzLyuLyFz
+7NBr8p38EMNoHFvcepGFN/SbyBI79Fp8Lz/McJrEFrfeZOVN/Wayxg69Nj/I
+jzCCprHFrQ/ZeEu/hWyxQ6/Dj/KjpNAstrj1JTtv67eSPXbodflJfoyRNI8t
+bv3IwTv6UnLEDr0eP8uPM4oWscWtPzk5pC8jZ+zQ6/OL/ASjaRlb3AaQi8P6
+beSKHXoDfpWfZAytYovbQHLzrn47uWOH3pDf5KcYS+vY4jaIPLynLydP7NAb
+8bv8NONoE1vcBpOX9/UV5I0demP+kJ9hPG1ji9sQ8vGBfgf5YofehD/lbUyg
+XWxxG0p+juh3kj926E35S97ORNrHFrdhFOCofhcFYofejAvyDibRIba4Dacg
+x/S7KRg79OZclHcymY6xxW0EhTiu30Oh2KG34G/5WabQKba4pVCYD/V7KRw7
+9Jb8Iz9HKp1ji9tIivCRfh9FYofeikvy80ylS2xxG0VRTugrKRo79Nb8K7/A
+NLrGFrfRFOOkvopisUNvw2X5RabTLba4jaE4p/TVFI8deluuyC8xg+6xxW0s
+JTitr6FE7NDbcVV+mZn0iC1u4yjJx/paSsYOvT3/ya8wK36PPpEbOKv3jG3y
+eErxib6OUrFL78D/8qvMJpmk2ODekfgg2BXf98aHQ1nmxN/nnURp9jKdT913
+eVM5QHn2MYNe8T/zTiCJM/r6+LvlyZThc323dyoVYkP8b7yd2E8ie5iWeP0z
+arfvl/PO9X5GbzZQmj6UoWz8DOWpQEUqUZkqVKUa1alBTfpSi2uG6svZ
+            "]]}, 
+          "Charting`Private`Tag$95631#1"]}}], {}}, {
+     DisplayFunction -> Identity, 
+      Method -> {
+       "DefaultBoundaryStyle" -> Automatic, 
+        "DefaultGraphicsInteraction" -> {
+         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+          "Effects" -> {
+           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+            "Droplines" -> {
+             "freeformCursorMode" -> True, 
+              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
+        None, "AxesInFront" -> True}, DisplayFunction -> Identity, 
+      DisplayFunction -> Identity, Ticks -> {Quiet[
+         Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , Quiet[
+         Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& }, 
+      AxesOrigin -> {-48.35428695287496, 0.}, FrameTicks -> {{Quiet[
+          Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , 
+         Charting`ScaledFrameTicks[{Log, Exp}]}, {Quiet[
+          Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , 
+         Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {None, {
+         Log[3]}}, DisplayFunction -> Identity, PlotRangePadding -> {{
+         Scaled[0.02], 
+         Scaled[0.02]}, {
+         Scaled[0.05], 
+         Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
+      DisplayFunction -> Identity, 
+      Method -> {
+       "DefaultBoundaryStyle" -> Automatic, 
+        "DefaultGraphicsInteraction" -> {
+         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+          "Effects" -> {
+           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+            "Droplines" -> {
+             "freeformCursorMode" -> True, 
+              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
+        None, "AxesInFront" -> True, 
+        "ClippingRange" -> {{{-48.35428667092576, -34.53877667685988}, {
+         1.0986122886681098`, 
+         7.601357804975339}}, {{-48.35428667092576, -34.53877667685988}, {
+         1.0986122886681098`, 7.601357804975339}}}}, DisplayFunction -> 
+      Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, 
+      AxesLabel -> {None, None}, AxesOrigin -> {-48.35428695287496, 0}, 
+      CoordinatesToolOptions -> {"DisplayFunction" -> ({
+          Exp[
+           Part[#, 1]], 
+          Exp[
+           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+          Exp[
+           Part[#, 1]], 
+          Exp[
+           Part[#, 2]]}& )}, DisplayFunction :> Identity, Epilog -> {{
+         Directive[
+          RGBColor[0, 0, 1]], 
+         Line[{{-38.96306112809702, 0.405494474343639}, {-38.963061131157644`,
+            0.4054945076759928}, {-38.96306113727891, 
+           0.4054945743406974}, {-38.963061143400175`, 
+           0.4054946410053975}, {-38.9630611556427, 
+           0.4054947743347842}, {-38.963061186249014`, 
+           0.4054951076581734}, {-38.96306149231179, 
+           0.4054984408859546}, {-38.96306210443534, 
+           0.4055051073081857}, {-38.963062716556244`, 
+           0.405511773685976}, {-38.963063328674494`, 
+           0.40551844001932613`}, {-38.96306394079011, 
+           0.40552510630823635`}, {-38.96306455290306, 
+           0.40553177255270756`}, {-38.963119632226714`, 
+           0.40613155265132483`}, {-38.963180806336496`, 
+           0.406797553341943}, {-38.9633030752679, 
+           0.4081282255276481}, {-38.963425238647666`, 
+           0.40945712937770185`}, {-38.96354729667437, 
+           0.41078426958576436`}, {-38.96366924954602, 
+           0.412109650826833}, {-38.964277443469165`, 
+           0.41871033485818504`}, {-38.96488303789253, 
+           0.4252677354043441}, {-38.96548605693684, 
+           0.43178241642553783`}, {-38.96608652438134, 
+           0.4382549309311553}, {-38.96668446367028, 
+           0.44468582126144574`}, {-38.96727989791927, 
+           0.45107561936021673`}, {-38.96787284992139, 
+           0.4574248470388755}, {-38.968463342153306`, 
+           0.4637340162321402}, {-38.96905139678109, 
+           0.47000362924573563`}, {-39.01410641384279, 
+            Log[
+             Rational[5, 2]]}, {-39.21434204079634, 
+            Log[
+             Rational[23, 2]]}, {-39.65510181886247, 
+            Log[
+             Rational[203, 2]]}, {-39.862390566464065`, 
+            Log[
+             Rational[403, 2]]}, {-40.142635117086044`, 
+            Log[
+             Rational[803, 2]]}, {-40.369339537858586`, 
+            Log[
+             Rational[1203, 2]]}, {-40.5844484443701, 
+            Log[
+             Rational[1603, 2]]}, {-40.80948421154623, 
+            Log[
+             Rational[2003, 2]]}, {-82.61442721724194, 
+            Log[
+             Rational[4003, 2]]}}]}}, Frame -> {{True, True}, {True, True}}, 
+      FrameLabel -> {{
+        "Lower Bound on (\!\(\*SubscriptBox[\(\[Omega]\), \(BD\)]\)+3/2)", 
+         None}, {"\!\(\*SubscriptBox[\(m\), \(s\)]\)(eV)", None}}, FrameStyle -> 
+      Directive[Bold, 16], 
+      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+      GridLines -> {None, {3}}, GridLinesStyle -> Directive[
+        GrayLevel[0.5, 0.4]], ImageSize -> Large, 
+      Method -> {
+       "DefaultBoundaryStyle" -> Automatic, 
+        "DefaultGraphicsInteraction" -> {
+         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+          "Effects" -> {
+           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+            "Droplines" -> {
+             "freeformCursorMode" -> True, 
+              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
+        None, "AxesInFront" -> True}, 
+      PlotRange -> {{-Log[1000000000000000000000], -Log[1000000000000000]}, {
+        0., 7.601357804975339}}, PlotRangeClipping -> True, 
+      PlotRangePadding -> {{
+         Scaled[0.02], 
+         Scaled[0.02]}, {
+         Scaled[0.02], 
+         Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
+    Placed[
+     Unevaluated[
+      LineLegend[{
+        Directive[
+         Opacity[1.], 
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         AbsoluteThickness[1.6]]}, {"LLR", "Not Permitted"}, LegendMarkers -> 
+       None, LabelStyle -> {}, LegendLayout -> "Column"]], {0.8, 0.8}, 
+     Identity]]& ],
+  AutoDelete->True,
+  Editable->True,
+  SelectWithContents->False,
+  Selectable->True]], "Output",
+ CellChangeTimes->{
+  3.792481190613813*^9, 3.7924812489222*^9, {3.7924813352373238`*^9, 
+   3.792481339722481*^9}, {3.792481380108781*^9, 3.792481412060347*^9}, 
+   3.792481557084991*^9, {3.792481627661607*^9, 3.792481642963335*^9}, 
+   3.792481707566607*^9, {3.7924818056965*^9, 3.792481868137397*^9}, {
+   3.7924819287092543`*^9, 3.7924819598813467`*^9}, {3.792481993588787*^9, 
+   3.792482032851954*^9}, 3.792482095153644*^9, {3.792482218173798*^9, 
+   3.79248222852962*^9}, {3.7924823057854557`*^9, 3.79248231339263*^9}, 
+   3.7924823537475433`*^9, 3.792482415895907*^9, 3.792482590436059*^9, 
+   3.792482630451292*^9, 3.792482864280467*^9, {3.792482929267036*^9, 
+   3.79248294620431*^9}, 3.7924829783447037`*^9, 3.792483063535203*^9, {
+   3.792483117822504*^9, 3.7924831284536552`*^9}, {3.792483210947192*^9, 
+   3.792483374547078*^9}, {3.792483412450268*^9, 3.792483470524459*^9}, {
+   3.792483544635777*^9, 3.792483579446789*^9}, 3.7924836211857*^9, {
+   3.792483671577915*^9, 3.792483689511731*^9}, {3.792483723818544*^9, 
+   3.7924838109687433`*^9}, {3.7924838421144743`*^9, 
+   3.7924838704825487`*^9}, {3.792483918119158*^9, 3.7924840835786953`*^9}, 
+   3.792484123384119*^9, 3.7924841651309357`*^9, 3.7924844128681803`*^9, 
+   3.7924879650895147`*^9, 3.792487997415801*^9, 3.7924880999546127`*^9, 
+   3.7924881777475653`*^9, 3.792488218974638*^9, 3.7924884332837276`*^9, 
+   3.7924884771839533`*^9, 3.792488656729966*^9, {3.79248870030437*^9, 
+   3.792488731335091*^9}, {3.792488771753871*^9, 3.792488985120092*^9}, 
+   3.792489789022066*^9, {3.80017440900023*^9, 3.800174412492072*^9}, 
+   3.800174455175311*^9, {3.8001745176380777`*^9, 3.800174533701284*^9}, 
+   3.800177011905674*^9, 3.800177061216956*^9, 3.800177464175272*^9, 
+   3.800177507907954*^9, 3.8001776510800867`*^9, 3.800273075836602*^9, {
+   3.800273782374735*^9, 3.800273806807686*^9}},
+ CellLabel->
+  "Out[452]=",ExpressionUUID->"d3e4cbd9-ae03-4519-8655-11373ebd68ef"]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["PSR J1012 + 5307 (to be fixed)", "Subsubsection",
+ CellChangeTimes->{{3.800275664157941*^9, 3.80027567075758*^9}, {
+  3.800332534670727*^9, 
+  3.800332537359873*^9}},ExpressionUUID->"11184085-91e2-4612-9a46-\
+acb61173620f"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"m1", "=", "1.64"}], ";", 
+  RowBox[{"m2", "=", "0.16"}], ";", 
+  RowBox[{"s1", "=", "0.2"}], ";", 
+  RowBox[{"s2", "=", 
+   RowBox[{"10", "^", 
+    RowBox[{"(", 
+     RowBox[{"-", "4"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"\[CapitalGamma]", "=", 
+   RowBox[{"1", "-", 
+    RowBox[{"2", " ", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"s1", " ", "m1"}], "+", 
+        RowBox[{"s2", " ", "m2"}]}], ")"}], "/", 
+      RowBox[{"(", 
+       RowBox[{"m1", "+", "m2"}], ")"}]}]}]}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.80027703785833*^9, 3.800277172531988*^9}},
+ CellLabel->
+  "In[114]:=",ExpressionUUID->"96a644d9-6e54-4ab4-9148-dd2493c8f20c"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"P", "=", 
+   RowBox[{"0.6", "*", "24", "*", "3600"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.800277412078641*^9, 3.80027743385082*^9}},
+ CellLabel->
+  "In[116]:=",ExpressionUUID->"5713b2e1-ef24-4470-a64e-5db3f9dfc02e"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{" ", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"\[Omega]", "=", 
+     RowBox[{"2", 
+      RowBox[{"\[Pi]", "/", "P"}]}]}], ";"}], "\[IndentingNewLine]", 
+   RowBox[{"fNU", "[", 
+    RowBox[{"\[Omega]", ",", 
+     RowBox[{"m1", "+", "m2"}]}], "]"}], "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"a", "=", "4.4983162908932215`*^-18"}], ";"}], 
+   "\[IndentingNewLine]", 
+   RowBox[{"\[Chi]", "=", 
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       RowBox[{"\[CapitalGamma]", "^", "2"}], "/", "12"}], 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"1", "-", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"ms", " ", 
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{"m1", "+", "m2"}], ")"}], "/", 
+             RowBox[{"(", 
+              RowBox[{"2", " ", "\[Omega]"}], ")"}]}]}], ")"}], "^", "2"}]}], 
+        ")"}], "^", "2"}]}], "-", 
+     RowBox[{"5", "/", "6"}], "+", 
+     RowBox[{
+      RowBox[{"1", "/", "3"}], 
+      RowBox[{"(", 
+       RowBox[{"1", "-", 
+        RowBox[{"2", "s1"}]}], ")"}], 
+      RowBox[{"(", 
+       RowBox[{"1", "-", 
+        RowBox[{"2", "s2"}]}], ")"}]}]}]}], "\[IndentingNewLine]", 
+   RowBox[{"\[Delta]Pd", "=", 
+    RowBox[{"0.2", "/", "1.1"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.800277198817523*^9, 3.800277281908094*^9}, {
+   3.800277391697694*^9, 3.800277410018724*^9}, {3.800277537997053*^9, 
+   3.800277560582058*^9}, {3.800278372458984*^9, 3.8002784161970873`*^9}, {
+   3.8002786656414022`*^9, 3.800278753161915*^9}, {3.800278991893207*^9, 
+   3.8002791222120256`*^9}, 3.80027947903906*^9, {3.800279519262479*^9, 
+   3.800279520084231*^9}, {3.8002800453693523`*^9, 3.800280051431512*^9}, 
+   3.800280081589308*^9, {3.8002801515683517`*^9, 3.800280169675323*^9}, {
+   3.8002802707216043`*^9, 3.800280272873838*^9}, 3.800281171397147*^9, {
+   3.800282529529517*^9, 3.800282542165244*^9}, {3.800282873768632*^9, 
+   3.8002828790406027`*^9}, {3.800282947090925*^9, 3.800282972061739*^9}, {
+   3.8002830070446663`*^9, 3.8002830232130327`*^9}, {3.800283289551188*^9, 
+   3.8002833221068068`*^9}, {3.8003315400358553`*^9, 3.800331591245323*^9}, {
+   3.800331622842699*^9, 3.800331628050137*^9}},
+ CellLabel->
+  "In[173]:=",ExpressionUUID->"057df1c7-3917-4c10-b228-0e61c3c7a73c"],
+
+Cell[BoxData["1.0743488107065301`*^-9"], "Output",
+ CellChangeTimes->{
+  3.800277209146607*^9, {3.800277255157613*^9, 3.800277282240163*^9}, {
+   3.80027742132344*^9, 3.800277434976519*^9}, 3.800277631940997*^9, 
+   3.800278375675622*^9, 3.800278416558428*^9, 3.800278672845724*^9, {
+   3.800278713370255*^9, 3.8002787538388157`*^9}, 3.800278992556245*^9, {
+   3.800279032354026*^9, 3.800279066372205*^9}, {3.80027910614188*^9, 
+   3.800279122638489*^9}, 3.800279181774143*^9, 3.8002794304808817`*^9, 
+   3.8002794795315313`*^9, {3.8002795205257797`*^9, 3.8002795299100122`*^9}, {
+   3.800280045912466*^9, 3.800280051849474*^9}, 3.800280082019704*^9, {
+   3.8002801488374043`*^9, 3.800280170086378*^9}, 3.800280273514311*^9, 
+   3.8002811718262253`*^9, 3.800282542644153*^9, 3.80028287938557*^9, {
+   3.800282959060038*^9, 3.800282972491817*^9}, {3.80028301606806*^9, 
+   3.800283023635374*^9}, {3.8002833161448603`*^9, 3.8002833228891897`*^9}, 
+   3.800329798289034*^9, 3.800330358684712*^9, 3.8003314648686028`*^9, {
+   3.800331540672184*^9, 3.800331591839196*^9}, 3.800331628541094*^9},
+ CellLabel->
+  "Out[174]=",ExpressionUUID->"eed3b769-640b-4422-9f6c-79dcabf4f3ee"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "0.6333733333333333`"}], "+", 
+  RowBox[{"0.03365902224855967`", " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"1", "-", 
+      RowBox[{"5.513854070381324`*^7", " ", 
+       SuperscriptBox["ms", "2"]}]}], ")"}], "2"]}]}]], "Output",
+ CellChangeTimes->{
+  3.800277209146607*^9, {3.800277255157613*^9, 3.800277282240163*^9}, {
+   3.80027742132344*^9, 3.800277434976519*^9}, 3.800277631940997*^9, 
+   3.800278375675622*^9, 3.800278416558428*^9, 3.800278672845724*^9, {
+   3.800278713370255*^9, 3.8002787538388157`*^9}, 3.800278992556245*^9, {
+   3.800279032354026*^9, 3.800279066372205*^9}, {3.80027910614188*^9, 
+   3.800279122638489*^9}, 3.800279181774143*^9, 3.8002794304808817`*^9, 
+   3.8002794795315313`*^9, {3.8002795205257797`*^9, 3.8002795299100122`*^9}, {
+   3.800280045912466*^9, 3.800280051849474*^9}, 3.800280082019704*^9, {
+   3.8002801488374043`*^9, 3.800280170086378*^9}, 3.800280273514311*^9, 
+   3.8002811718262253`*^9, 3.800282542644153*^9, 3.80028287938557*^9, {
+   3.800282959060038*^9, 3.800282972491817*^9}, {3.80028301606806*^9, 
+   3.800283023635374*^9}, {3.8002833161448603`*^9, 3.8002833228891897`*^9}, 
+   3.800329798289034*^9, 3.800330358684712*^9, 3.8003314648686028`*^9, {
+   3.800331540672184*^9, 3.800331591839196*^9}, 3.80033162854298*^9},
+ CellLabel->
+  "Out[176]=",ExpressionUUID->"da443d76-57db-4305-bac7-671d75517d95"],
+
+Cell[BoxData["0.18181818181818182`"], "Output",
+ CellChangeTimes->{
+  3.800277209146607*^9, {3.800277255157613*^9, 3.800277282240163*^9}, {
+   3.80027742132344*^9, 3.800277434976519*^9}, 3.800277631940997*^9, 
+   3.800278375675622*^9, 3.800278416558428*^9, 3.800278672845724*^9, {
+   3.800278713370255*^9, 3.8002787538388157`*^9}, 3.800278992556245*^9, {
+   3.800279032354026*^9, 3.800279066372205*^9}, {3.80027910614188*^9, 
+   3.800279122638489*^9}, 3.800279181774143*^9, 3.8002794304808817`*^9, 
+   3.8002794795315313`*^9, {3.8002795205257797`*^9, 3.8002795299100122`*^9}, {
+   3.800280045912466*^9, 3.800280051849474*^9}, 3.800280082019704*^9, {
+   3.8002801488374043`*^9, 3.800280170086378*^9}, 3.800280273514311*^9, 
+   3.8002811718262253`*^9, 3.800282542644153*^9, 3.80028287938557*^9, {
+   3.800282959060038*^9, 3.800282972491817*^9}, {3.80028301606806*^9, 
+   3.800283023635374*^9}, {3.8002833161448603`*^9, 3.8002833228891897`*^9}, 
+   3.800329798289034*^9, 3.800330358684712*^9, 3.8003314648686028`*^9, {
+   3.800331540672184*^9, 3.800331591839196*^9}, 3.800331628545117*^9},
+ CellLabel->
+  "Out[177]=",ExpressionUUID->"8c76d720-2a49-4bef-9dfb-ac5bcf27f175"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[Xi]", "=", 
+   RowBox[{"1", "/", "x"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.800277503827726*^9, 3.800277513095421*^9}, 
+   3.800277654147523*^9},
+ CellLabel->
+  "In[178]:=",ExpressionUUID->"d545c8a7-d05f-4e3e-90fd-2e15fe9fca7f"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"sol", "=", 
+  RowBox[{
+   RowBox[{"\[Chi]", " ", "\[Xi]"}], "-", "\[Delta]Pd"}]}]], "Input",
+ CellChangeTimes->{{3.8002775195721607`*^9, 3.800277530819696*^9}, 
+   3.800277639871513*^9, {3.800277698933317*^9, 3.800277700050372*^9}},
+ CellLabel->
+  "In[179]:=",ExpressionUUID->"872cc13b-8e50-42d6-866b-f14adb347e7f"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "0.18181818181818182`"}], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"-", "0.6333733333333333`"}], "+", 
+    RowBox[{"0.03365902224855967`", " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"1", "-", 
+        RowBox[{"5.513854070381324`*^7", " ", 
+         SuperscriptBox["ms", "2"]}]}], ")"}], "2"]}]}], "x"]}]], "Output",
+ CellChangeTimes->{
+  3.8002775285012207`*^9, {3.8002776402707033`*^9, 3.800277655298547*^9}, 
+   3.800277716149252*^9, 3.800278758853691*^9, 3.80027912585494*^9, 
+   3.8002792038931723`*^9, {3.800279431704829*^9, 3.800279447184698*^9}, 
+   3.800280054980991*^9, 3.800280157555372*^9, 3.800282559541559*^9, 
+   3.800282881395733*^9, 3.800282974319735*^9, 3.80028303274463*^9, 
+   3.800283331623149*^9, 3.800329798383367*^9, 3.8003303604999113`*^9, 
+   3.80033163157242*^9},
+ CellLabel->
+  "Out[179]=",ExpressionUUID->"117bdd98-ff4d-4dad-8f28-7b0b24190673"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"xlist", "=", 
+  RowBox[{"Reverse", "[", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"2", "*", 
+      RowBox[{"10", "^", "3"}]}], ",", 
+     RowBox[{"10", "^", "3"}], ",", 
+     RowBox[{"8", "*", 
+      RowBox[{"10", "^", "2"}]}], ",", 
+     RowBox[{"6", "*", 
+      RowBox[{"10", "^", "2"}]}], ",", 
+     RowBox[{"4", "*", 
+      RowBox[{"10", "^", "2"}]}], ",", 
+     RowBox[{"2", "*", 
+      RowBox[{"10", "^", "2"}]}], ",", 
+     RowBox[{"10", "^", "2"}], ",", 
+     RowBox[{"10", "^", "1"}], ",", 
+     RowBox[{"10", "^", "0"}], ",", "0.1", ",", "0.09", ",", "0.08", ",", 
+     "0.07", ",", "0.06", ",", "0.05", ",", "0.04", ",", "0.03", ",", "0.02", 
+     ",", "0.01", ",", "0.008", ",", "0.006", ",", "0.004", ",", "0.002", ",",
+      "0.001", ",", "0.0001", ",", 
+     RowBox[{"9", "*", "0.00001"}], ",", 
+     RowBox[{"8", "*", "0.00001"}], ",", 
+     RowBox[{"7", "*", "0.00001"}], ",", 
+     RowBox[{"6", "*", "0.00001"}], ",", 
+     RowBox[{"5", "*", "0.00001"}], ",", 
+     RowBox[{"4.5", "*", "0.00001"}], ",", 
+     RowBox[{"4.45", "*", "0.00001"}], ",", 
+     RowBox[{"4.43", "*", "0.00001"}], ",", 
+     RowBox[{"4.42", "*", "0.00001"}], ",", 
+     RowBox[{"4.41", "*", "0.00001"}], ",", 
+     RowBox[{"4.405", "*", "0.00001"}]}], "}"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.7924821681270227`*^9, 3.79248217822686*^9}, {
+   3.792482297027713*^9, 3.792482303108605*^9}, {3.792482911233403*^9, 
+   3.7924829251800203`*^9}, {3.792483018380254*^9, 3.792483059339826*^9}, {
+   3.792483312844427*^9, 3.792483313392374*^9}, {3.792483345996736*^9, 
+   3.792483346454281*^9}, {3.792483403541926*^9, 3.7924834417673473`*^9}, {
+   3.7924835769893703`*^9, 3.792483577221919*^9}, {3.792483642211828*^9, 
+   3.792483719846209*^9}, {3.792483752793498*^9, 3.792483808038138*^9}, {
+   3.792483908695217*^9, 3.792483949340746*^9}, {3.792483990210725*^9, 
+   3.7924840783397217`*^9}, {3.792484119674519*^9, 3.7924841625319138`*^9}, {
+   3.8001771396891623`*^9, 3.8001772478848057`*^9}, {3.800177361022973*^9, 
+   3.8001774480063467`*^9}, {3.800177617849517*^9, 3.800177629655754*^9}, 
+   3.800273450715973*^9, {3.8002735164555683`*^9, 3.800273524766911*^9}, {
+   3.800273637352166*^9, 3.800273747863697*^9}},
+ CellLabel->
+  "In[180]:=",ExpressionUUID->"ff5598a7-2f9e-4811-8bf8-ce85ee841791"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+  "0.00004405000000000001`", ",", "0.00004410000000000001`", ",", 
+   "0.000044200000000000004`", ",", "0.0000443`", ",", 
+   "0.000044500000000000004`", ",", "0.000045`", ",", "0.00005`", ",", 
+   "0.00006000000000000001`", ",", "0.00007000000000000001`", ",", "0.00008`",
+    ",", "0.00009`", ",", "0.0001`", ",", "0.001`", ",", "0.002`", ",", 
+   "0.004`", ",", "0.006`", ",", "0.008`", ",", "0.01`", ",", "0.02`", ",", 
+   "0.03`", ",", "0.04`", ",", "0.05`", ",", "0.06`", ",", "0.07`", ",", 
+   "0.08`", ",", "0.09`", ",", "0.1`", ",", "1", ",", "10", ",", "100", ",", 
+   "200", ",", "400", ",", "600", ",", "800", ",", "1000", ",", "2000"}], 
+  "}"}]], "Output",
+ CellChangeTimes->{3.800277665208984*^9, 3.800277717327341*^9, 
+  3.800278759641584*^9, 3.8002791262187023`*^9, 3.800279219714552*^9, 
+  3.800279432126052*^9, 3.800280057085734*^9, 3.800283039272691*^9, 
+  3.800283332539056*^9, 3.80032980127561*^9, 3.800330361018004*^9, 
+  3.8003316361562433`*^9},
+ CellLabel->
+  "Out[180]=",ExpressionUUID->"e2b8fcca-146a-4cdf-891a-bf2fbb37a0f6"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Gg", "=", 
+  RowBox[{"1", "-", 
+   RowBox[{"\[Xi]", " ", 
+    RowBox[{"(", 
+     RowBox[{"s1", "+", "s2", "-", 
+      RowBox[{"2", "s1", "*", "s2"}]}], ")"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.800284196511489*^9, 3.800284239862088*^9}},
+ CellLabel->
+  "In[181]:=",ExpressionUUID->"d4e11b97-c0e7-49a6-b774-0c224f705a4c"],
+
+Cell[BoxData[
+ RowBox[{"1", "-", 
+  FractionBox["0.20006`", "x"]}]], "Output",
+ CellChangeTimes->{{3.800284220224412*^9, 3.800284240296489*^9}, 
+   3.8003298067442513`*^9, 3.800330183710607*^9, 3.8003303615434523`*^9, 
+   3.8003316395074873`*^9},
+ CellLabel->
+  "Out[181]=",ExpressionUUID->"af10fdad-f937-4400-876d-c4c13a9511d9"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"k1", "=", 
+  RowBox[{
+   RowBox[{"Gg", "^", "2"}], 
+   RowBox[{"(", 
+    RowBox[{"12", "-", 
+     RowBox[{"6", "\[Xi]"}], "+", 
+     RowBox[{"\[Xi]", " ", 
+      RowBox[{"\[CapitalGamma]", "^", "2"}], 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"1", "-", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"ms", " ", 
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{"m1", "+", "m2"}], ")"}], "/", 
+             RowBox[{"(", 
+              RowBox[{"2", " ", "\[Omega]"}], ")"}]}]}], ")"}], "^", "2"}]}], 
+        ")"}], "^", "2"}]}]}], ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.8002842525030947`*^9, 3.800284334024729*^9}, {
+   3.800284742881259*^9, 3.800284754749689*^9}, 3.8002849859193563`*^9, {
+   3.8002850685644617`*^9, 3.800285069959385*^9}, {3.800330226113194*^9, 
+   3.800330226281672*^9}, {3.800330473896037*^9, 3.800330474797824*^9}, 
+   3.80033168763208*^9, {3.800331884189042*^9, 3.800331893292535*^9}},
+ CellLabel->
+  "In[211]:=",ExpressionUUID->"4a92c39f-e2f9-4dcd-9c09-ad0ec5f61cc3"],
+
+Cell[BoxData[
+ RowBox[{
+  SuperscriptBox[
+   RowBox[{"(", 
+    RowBox[{"1", "-", 
+     FractionBox["0.20006`", "x"]}], ")"}], "2"], " ", 
+  RowBox[{"(", 
+   RowBox[{"12", "-", 
+    FractionBox["6", "x"], "+", 
+    FractionBox[
+     RowBox[{"0.40390826698271604`", " ", 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"1", "-", 
+         RowBox[{"5.513854070381324`*^7", " ", 
+          SuperscriptBox["ms", "2"]}]}], ")"}], "2"]}], "x"]}], 
+   ")"}]}]], "Output",
+ CellChangeTimes->{{3.800284256747572*^9, 3.800284334339089*^9}, {
+   3.800284751388637*^9, 3.800284755082168*^9}, 3.800284907680257*^9, 
+   3.800284986816558*^9, {3.800285070507207*^9, 3.800285099511565*^9}, 
+   3.800329807478951*^9, 3.80033018462994*^9, 3.800330227127378*^9, 
+   3.80033036205966*^9, 3.80033047514922*^9, 3.800331640356489*^9, 
+   3.800331688943562*^9, {3.8003318848664913`*^9, 3.800331893793911*^9}},
+ CellLabel->
+  "Out[211]=",ExpressionUUID->"44bca8b0-eae3-4c79-9506-a526a829cec6"]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"Pgr", "=", 
+   RowBox[{"1.1", " ", 
+    RowBox[{"10", "^", 
+     RowBox[{"(", 
+      RowBox[{"-", "14"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Pmod", "=", 
+   RowBox[{
+    RowBox[{"k1", "/", "12"}], " ", "Pgr"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"pobs", "=", 
+   RowBox[{"5", " ", 
+    RowBox[{"10", "^", 
+     RowBox[{"(", 
+      RowBox[{"-", "14"}], ")"}]}]}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.800284395401132*^9, 3.800284536641529*^9}},
+ CellLabel->
+  "In[212]:=",ExpressionUUID->"80a88bfc-f138-4a3d-b20d-3375571c78e7"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"const", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"4.14", " ", 
+        RowBox[{"10", "^", 
+         RowBox[{"(", 
+          RowBox[{"-", "15"}], ")"}]}], 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"3", " ", 
+            RowBox[{"10", "^", "8"}]}], ")"}], "/", 
+          RowBox[{"(", 
+           RowBox[{"1.496", "*", 
+            RowBox[{"10", "^", "11"}]}], ")"}]}], "/", 
+         RowBox[{"(", 
+          RowBox[{"2", "\[Pi]"}], ")"}]}], 
+        RowBox[{"(", 
+         RowBox[{"ms", "/.", 
+          RowBox[{"FindRoot", "[", 
+           RowBox[{
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "pobs"}], "+", 
+              RowBox[{"Pgr", "*", "Pmod"}]}], "\[Equal]", 
+             RowBox[{
+              RowBox[{"-", "1.5"}], " ", 
+              RowBox[{"10", "^", 
+               RowBox[{"(", 
+                RowBox[{"-", "14"}], ")"}]}]}]}], ",", 
+            RowBox[{"{", 
+             RowBox[{"ms", ",", 
+              RowBox[{"10", "^", 
+               RowBox[{"-", "18"}]}]}], "}"}], ",", 
+            RowBox[{"WorkingPrecision", "\[Rule]", "100"}], ",", 
+            RowBox[{"AccuracyGoal", "\[Rule]", "100"}], ",", 
+            RowBox[{"PrecisionGoal", "\[Rule]", "100"}]}], "]"}]}], ")"}]}], 
+       ",", 
+       RowBox[{"x", "+", 
+        RowBox[{"3", "/", "2"}]}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"x", ",", "xlist"}], "}"}]}], "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.792480353082926*^9, 3.792480458528138*^9}, {
+   3.79248075555788*^9, 3.792480755970029*^9}, {3.7924808501130323`*^9, 
+   3.792480850849119*^9}, {3.792480914527608*^9, 3.792480920388804*^9}, {
+   3.792481073013876*^9, 3.792481074331258*^9}, {3.7924813335684958`*^9, 
+   3.7924813389277678`*^9}, 3.7924814107251263`*^9, {3.7924815291119833`*^9, 
+   3.7924815543917723`*^9}, {3.792481803426395*^9, 3.7924818037470293`*^9}, {
+   3.792481872737005*^9, 3.792481927137003*^9}, {3.7924819746798773`*^9, 
+   3.792481990739448*^9}, 3.79248219768585*^9, {3.792482347328526*^9, 
+   3.7924823492385693`*^9}, {3.7924825169321127`*^9, 3.792482628054343*^9}, {
+   3.792482851593539*^9, 3.792482852186997*^9}, {3.792483115135929*^9, 
+   3.7924831267790213`*^9}, {3.792483541737007*^9, 3.792483552560916*^9}, {
+   3.7924836190639267`*^9, 3.7924836192907553`*^9}, {3.792483976852233*^9, 
+   3.7924839771119633`*^9}, 3.7924840216566668`*^9, {3.800174177608321*^9, 
+   3.8001741798596983`*^9}, {3.8001769580785646`*^9, 3.800176960834504*^9}, {
+   3.800177109525546*^9, 3.800177111810503*^9}, {3.80027338383049*^9, 
+   3.8002734171648073`*^9}, {3.80027346119661*^9, 3.800273480972752*^9}, {
+   3.800273537395499*^9, 3.80027353920813*^9}, {3.800273624289804*^9, 
+   3.8002736244465237`*^9}, {3.800277733466667*^9, 3.80027775056266*^9}, {
+   3.800279383025704*^9, 3.800279389619296*^9}, {3.800283058330888*^9, 
+   3.800283059402338*^9}, {3.8002831050837383`*^9, 3.800283105241892*^9}, {
+   3.800283929394123*^9, 3.800283933020535*^9}, {3.800285122540386*^9, 
+   3.800285130102528*^9}, {3.800330198866145*^9, 3.800330203418931*^9}, 
+   3.800330498214723*^9, {3.800331722493795*^9, 3.80033172537324*^9}, {
+   3.800331755584961*^9, 3.80033177959048*^9}, {3.8003319047221193`*^9, 
+   3.800331907298395*^9}},
+ CellLabel->
+  "In[218]:=",ExpressionUUID->"83554498-db67-4f7c-a08c-b8ef5293c94e"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "FindRoot","precw",
+   "\"The precision of the argument function \
+(\\!\\(\\*RowBox[{RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"1\\\", \
+\\\"20000000000000\\\"]}], \\\"+\\\", \
+RowBox[{\\\"2.0789380943656016`*^-22\\\", \\\" \\\", RowBox[{\\\"(\\\", \
+RowBox[{RowBox[{\\\"-\\\", \\\"136196.85357548238`\\\"}], \\\"+\\\", RowBox[{\
+\\\"9169.313665895936`\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"(\\\", \
+RowBox[{\\\"1\\\", \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\
+\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\
+\")\\\"}], \\\"2\\\"]}]}], \\\")\\\"}]}]}], \\\"\[Equal]\\\", RowBox[{\\\"-\\\
+\", \\\"1.5`*^-14\\\"}]}]\\)) is less than WorkingPrecision \
+(\\!\\(\\*RowBox[{\\\"100.`\\\"}]\\)).\"",2,218,55,19650746535428073077,
+   "Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.800174165278363*^9, 3.800174180351301*^9}, 
+   3.8001769613575907`*^9, {3.800177112293079*^9, 3.800177248843892*^9}, {
+   3.8001773656349573`*^9, 3.800177448940645*^9}, {3.8001776315228567`*^9, 
+   3.800177635279467*^9}, 3.80027303798645*^9, {3.800273408794919*^9, 
+   3.8002734205480757`*^9}, {3.8002734525169163`*^9, 
+   3.8002734814152393`*^9}, {3.800273525653742*^9, 3.8002735394783087`*^9}, {
+   3.8002736248026323`*^9, 3.800273639068221*^9}, 3.80027368359741*^9, {
+   3.800273717636381*^9, 3.800273748882197*^9}, {3.800277741542424*^9, 
+   3.800277751063757*^9}, 3.800278762282468*^9, 3.8002791280245953`*^9, 
+   3.800279220541589*^9, {3.800279389885367*^9, 3.800279395028418*^9}, 
+   3.800279433791972*^9, 3.8002800596049633`*^9, 3.800283065776127*^9, 
+   3.800283105839226*^9, 3.8002833331549883`*^9, 3.800283933875156*^9, 
+   3.800285145308083*^9, {3.800330192002179*^9, 3.800330203839366*^9}, 
+   3.800330498782249*^9, 3.8003316427345753`*^9, 3.800331691555791*^9, {
+   3.800331761100005*^9, 3.800331779982563*^9}, {3.8003318861666527`*^9, 
+   3.800331907707201*^9}},
+ CellLabel->
+  "During evaluation of \
+In[218]:=",ExpressionUUID->"c10093a5-8732-46c3-9a65-262d11e9c606"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "FindRoot","precw",
+   "\"The precision of the argument function \
+(\\!\\(\\*RowBox[{RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"1\\\", \
+\\\"20000000000000\\\"]}], \\\"+\\\", \
+RowBox[{\\\"2.0742255844144193`*^-22\\\", \\\" \\\", RowBox[{\\\"(\\\", \
+RowBox[{RowBox[{\\\"-\\\", \\\"136042.42176870746`\\\"}], \\\"+\\\", RowBox[{\
+\\\"9158.91761865569`\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"(\\\", \
+RowBox[{\\\"1\\\", \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\
+\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\
+\")\\\"}], \\\"2\\\"]}]}], \\\")\\\"}]}]}], \\\"\[Equal]\\\", RowBox[{\\\"-\\\
+\", \\\"1.5`*^-14\\\"}]}]\\)) is less than WorkingPrecision \
+(\\!\\(\\*RowBox[{\\\"100.`\\\"}]\\)).\"",2,218,56,19650746535428073077,
+   "Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.800174165278363*^9, 3.800174180351301*^9}, 
+   3.8001769613575907`*^9, {3.800177112293079*^9, 3.800177248843892*^9}, {
+   3.8001773656349573`*^9, 3.800177448940645*^9}, {3.8001776315228567`*^9, 
+   3.800177635279467*^9}, 3.80027303798645*^9, {3.800273408794919*^9, 
+   3.8002734205480757`*^9}, {3.8002734525169163`*^9, 
+   3.8002734814152393`*^9}, {3.800273525653742*^9, 3.8002735394783087`*^9}, {
+   3.8002736248026323`*^9, 3.800273639068221*^9}, 3.80027368359741*^9, {
+   3.800273717636381*^9, 3.800273748882197*^9}, {3.800277741542424*^9, 
+   3.800277751063757*^9}, 3.800278762282468*^9, 3.8002791280245953`*^9, 
+   3.800279220541589*^9, {3.800279389885367*^9, 3.800279395028418*^9}, 
+   3.800279433791972*^9, 3.8002800596049633`*^9, 3.800283065776127*^9, 
+   3.800283105839226*^9, 3.8002833331549883`*^9, 3.800283933875156*^9, 
+   3.800285145308083*^9, {3.800330192002179*^9, 3.800330203839366*^9}, 
+   3.800330498782249*^9, 3.8003316427345753`*^9, 3.800331691555791*^9, {
+   3.800331761100005*^9, 3.800331779982563*^9}, {3.8003318861666527`*^9, 
+   3.800331907713558*^9}},
+ CellLabel->
+  "During evaluation of \
+In[218]:=",ExpressionUUID->"a6834a93-3ba3-4aa1-8a77-b086dd9d2b5d"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "FindRoot","precw",
+   "\"The precision of the argument function \
+(\\!\\(\\*RowBox[{RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"1\\\", \
+\\\"20000000000000\\\"]}], \\\"+\\\", \
+RowBox[{\\\"2.0648485008353804`*^-22\\\", \\\" \\\", RowBox[{\\\"(\\\", \
+RowBox[{RowBox[{\\\"-\\\", \\\"135734.60633484164`\\\"}], \\\"+\\\", RowBox[{\
+\\\"9138.19608558181`\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"(\\\", \
+RowBox[{\\\"1\\\", \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\
+\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\
+\")\\\"}], \\\"2\\\"]}]}], \\\")\\\"}]}]}], \\\"\[Equal]\\\", RowBox[{\\\"-\\\
+\", \\\"1.5`*^-14\\\"}]}]\\)) is less than WorkingPrecision \
+(\\!\\(\\*RowBox[{\\\"100.`\\\"}]\\)).\"",2,218,57,19650746535428073077,
+   "Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.800174165278363*^9, 3.800174180351301*^9}, 
+   3.8001769613575907`*^9, {3.800177112293079*^9, 3.800177248843892*^9}, {
+   3.8001773656349573`*^9, 3.800177448940645*^9}, {3.8001776315228567`*^9, 
+   3.800177635279467*^9}, 3.80027303798645*^9, {3.800273408794919*^9, 
+   3.8002734205480757`*^9}, {3.8002734525169163`*^9, 
+   3.8002734814152393`*^9}, {3.800273525653742*^9, 3.8002735394783087`*^9}, {
+   3.8002736248026323`*^9, 3.800273639068221*^9}, 3.80027368359741*^9, {
+   3.800273717636381*^9, 3.800273748882197*^9}, {3.800277741542424*^9, 
+   3.800277751063757*^9}, 3.800278762282468*^9, 3.8002791280245953`*^9, 
+   3.800279220541589*^9, {3.800279389885367*^9, 3.800279395028418*^9}, 
+   3.800279433791972*^9, 3.8002800596049633`*^9, 3.800283065776127*^9, 
+   3.800283105839226*^9, 3.8002833331549883`*^9, 3.800283933875156*^9, 
+   3.800285145308083*^9, {3.800330192002179*^9, 3.800330203839366*^9}, 
+   3.800330498782249*^9, 3.8003316427345753`*^9, 3.800331691555791*^9, {
+   3.800331761100005*^9, 3.800331779982563*^9}, {3.8003318861666527`*^9, 
+   3.800331907722054*^9}},
+ CellLabel->
+  "During evaluation of \
+In[218]:=",ExpressionUUID->"597d3191-3e88-4f0d-a4ed-e3dda37d6336"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "General","stop",
+   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"FindRoot\\\", \
+\\\"::\\\", \\\"precw\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
+during this calculation.\"",2,218,58,19650746535428073077,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.800174165278363*^9, 3.800174180351301*^9}, 
+   3.8001769613575907`*^9, {3.800177112293079*^9, 3.800177248843892*^9}, {
+   3.8001773656349573`*^9, 3.800177448940645*^9}, {3.8001776315228567`*^9, 
+   3.800177635279467*^9}, 3.80027303798645*^9, {3.800273408794919*^9, 
+   3.8002734205480757`*^9}, {3.8002734525169163`*^9, 
+   3.8002734814152393`*^9}, {3.800273525653742*^9, 3.8002735394783087`*^9}, {
+   3.8002736248026323`*^9, 3.800273639068221*^9}, 3.80027368359741*^9, {
+   3.800273717636381*^9, 3.800273748882197*^9}, {3.800277741542424*^9, 
+   3.800277751063757*^9}, 3.800278762282468*^9, 3.8002791280245953`*^9, 
+   3.800279220541589*^9, {3.800279389885367*^9, 3.800279395028418*^9}, 
+   3.800279433791972*^9, 3.8002800596049633`*^9, 3.800283065776127*^9, 
+   3.800283105839226*^9, 3.8002833331549883`*^9, 3.800283933875156*^9, 
+   3.800285145308083*^9, {3.800330192002179*^9, 3.800330203839366*^9}, 
+   3.800330498782249*^9, 3.8003316427345753`*^9, 3.800331691555791*^9, {
+   3.800331761100005*^9, 3.800331779982563*^9}, {3.8003318861666527`*^9, 
+   3.8003319077286882`*^9}},
+ CellLabel->
+  "During evaluation of \
+In[218]:=",ExpressionUUID->"082cb9da-0493-4a53-a9ea-1f63b54c7473"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ref", "=", "const"}], ";"}]], "Input",
+ CellChangeTimes->{{3.792482275177369*^9, 3.7924822775718613`*^9}, {
+  3.7924829631666117`*^9, 3.7924829634046497`*^9}, {3.800273052202984*^9, 
+  3.800273055572308*^9}, {3.800283072989959*^9, 3.8002830731958933`*^9}, {
+  3.800283936880794*^9, 3.800283943883987*^9}},
+ CellLabel->
+  "In[219]:=",ExpressionUUID->"084d1279-aa3d-4fad-95cd-f4a4d1c093f6"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListLogLogPlot", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"Abs", "@", "ref"}], "}"}], ",", 
+   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
+   RowBox[{"GridLines", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"None", ",", 
+      RowBox[{"{", "3", "}"}]}], "}"}]}], ",", 
+   RowBox[{"PlotLegends", "\[Rule]", 
+    RowBox[{"Placed", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"\"\<PSR J1012 + 5307\>\"", ",", "\"\<Not Permitted\>\""}], 
+       "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"0.8", ",", "0.8"}], "}"}]}], "]"}]}], ",", 
+   RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
+   RowBox[{"FrameLabel", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+     "\"\<\!\(\*SubscriptBox[\(m\), \(s\)]\)(eV)\>\"", ",", 
+      "\"\<Lower Bound on (\!\(\*SubscriptBox[\(\[Omega]\), \
+\(BD\)]\)+3/2)\>\""}], "}"}]}], ",", 
+   RowBox[{"FrameStyle", "\[Rule]", 
+    RowBox[{"Directive", "[", 
+     RowBox[{"Bold", ",", "16"}], "]"}]}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.7924809811634417`*^9, 3.7924810176846333`*^9}, {
+   3.792481050314542*^9, 3.7924810506418877`*^9}, {3.792481172761291*^9, 
+   3.7924811899170513`*^9}, {3.792481377741453*^9, 3.79248138586658*^9}, {
+   3.7924816417501802`*^9, 3.7924816423459053`*^9}, {3.792481702531547*^9, 
+   3.792481706994644*^9}, {3.792481808780587*^9, 3.792481867715866*^9}, {
+   3.792481949597508*^9, 3.792481951556817*^9}, {3.792482017472578*^9, 
+   3.792482023379766*^9}, {3.792482093428446*^9, 3.79248209464964*^9}, 
+   3.7924822279762487`*^9, 3.792482312708346*^9, {3.792482942835244*^9, 
+   3.792482945734926*^9}, {3.7924833565139723`*^9, 3.792483374214595*^9}, {
+   3.7924834699746933`*^9, 3.792483470160303*^9}, {3.792483736734573*^9, 
+   3.792483742141539*^9}, {3.792483820271922*^9, 3.7924838700971737`*^9}, {
+   3.792484411467929*^9, 3.7924844124372253`*^9}, {3.7924879622234907`*^9, 
+   3.792487994778286*^9}, {3.792488099051333*^9, 3.792488099540189*^9}, {
+   3.7924881771418657`*^9, 3.792488218489883*^9}, {3.79248841971767*^9, 
+   3.7924884300810757`*^9}, {3.7924884745484867`*^9, 3.792488474748797*^9}, {
+   3.792490159719715*^9, 3.792490218692012*^9}, {3.800174192042289*^9, 
+   3.800174239580214*^9}, {3.8001742767878113`*^9, 3.800174342669599*^9}, {
+   3.8001773414762077`*^9, 3.800177350219777*^9}, {3.800273487638504*^9, 
+   3.800273488052265*^9}, {3.80027376322155*^9, 3.800273763602983*^9}, {
+   3.800277811355123*^9, 3.8002778129728403`*^9}, {3.800279142479375*^9, 
+   3.80027914276814*^9}, {3.8003316968527737`*^9, 3.800331697057588*^9}, {
+   3.8003319134553347`*^9, 3.800331914060095*^9}, 3.800331958373136*^9},
+ CellLabel->
+  "In[223]:=",ExpressionUUID->"c24ac525-3d0c-4be9-85c9-6f9878754fa0"],
+
+Cell[BoxData[
+ TagBox[
+  GraphicsBox[{{{}, {{{}, {}, 
+       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+        0.012833333333333334`], AbsoluteThickness[1.6], 
+        LineBox[CompressedData["
+1:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAuHYJcqTPR8Df74AYn/PZP/UZuMmI
+z0fAwENLPJ/z2T/ZR8+QUc9HwEvr34Of89k/OhBrdxrPR8CFknTLn/PZP83Q
+oaKszkfABuCdWqDz2T/qyZMsnM1HwFQchcCh89k/G1+zGZHDR8BZyYu7r/PZ
+P5I1NT0pskfA6PmPscvz2T9bfcmdbKNHwDrzh6fn89k/61Wkl6WWR8BYtXOd
+A/TZP9nCwXFei0fASEBTkx/02T8Hm5GIRoFHwBqUJok79Nk/6U4XDBOkRsCO
+tiAyD/7ZPwJgL3g2YUbA0JLsmvgI2j8TYCunBR5GwAfPTdnFHto/wSvPA3H2
+RcAspPKsizTaP4sqSTwp2kXAN0HlGkpK2j93VvnDEcRFwNmzKigBYNo/NSfn
+cxF+RcCno61uJszaP8xS3ZV8U0XAy8LmKZY32z8xtbuZ/TNFwEJGYrdSots/
+VgfWonAaRcBGPupoXgzcP9Slq/2FBEXAGAXUhLt13D9Qo2nw+/BEwG80S0Zs
+3tw/4+JmewvfRMC3OZrdckbdPzwgDv8rzkTAKaBwcNGt3T8eNNT89b1EwM8m
+JxqKFN4/w2WzK/RlRMB44ODwQFLtP8fxSYFDKUTAdCUTPu2JA0B4w88Ev+BD
+wGdOlLHwehJATimvK6HKQ8CYFALaIDkVQOWaCxx7tEPAToQCrxf7F0DsoqJF
+hKdDwCELC0UDmRlA7YtV8lCeQ8AbmKDq9b4aQMj5NsYtl0PAM7pvhROjG0BT
+ntYmAYFDwL69N4IXaB5AyHIjvQ==
+         "]]}}, 
+      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+       0.012833333333333334`], AbsoluteThickness[1.6]}, {
+       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+        0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
+       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+        0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, 
+    InsetBox[
+     TemplateBox[{"\"PSR J1012 + 5307\"","\"Not Permitted\""},
+      "PointLegend",
+      DisplayFunction->(FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    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], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
+                 GridBoxAlignment -> {
+                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
+                 AutoDelete -> False, 
+                 GridBoxDividers -> {
+                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
+                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
+                  GridBoxSpacings -> {
+                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
+             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
+             AutoDelete -> False, 
+             GridBoxItemSize -> {
+              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
+            "Grid"], Alignment -> Left, AppearanceElements -> None, 
+           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
+           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
+         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
+         False], TraditionalForm]& ),
+      Editable->True,
+      InterpretationFunction:>(RowBox[{"PointLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{"Directive", "[", 
+               RowBox[{
+                 RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
+                 ",", 
+                 InterpretationBox[
+                  ButtonBox[
+                   TooltipBox[
                     GraphicsBox[{{
-                    GrayLevel[0.6], 
-                    AbsolutePointSize[5], 
-                    PointBox[{1, 1}], 
-                    PointBox[{2, 4}], 
-                    PointBox[{3, 2}], 
-                    PointBox[{4, 3}]}, {{}, {}, {
-                    AbsoluteThickness[1], 
-                    Opacity[1.], 
-                    LineBox[CompressedData["
-1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
-3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
-cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
-QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
-wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
-ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
-/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
-klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
-42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
-IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
-7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
-QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
-CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
-7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
-/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
-q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
-vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
-shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
-q5SZmRFAL++xNeOlE0Dwt3AR
-                    "]]}}}, AspectRatio -> 1, Axes -> 
-                    False, Background -> GrayLevel[0.93], Frame -> True, 
-                    FrameStyle -> Directive[
-                    GrayLevel[0.7], 
-                    Thickness[Tiny]], FrameTicks -> None, 
-                    ImageSize -> {Automatic, 
-                    Dynamic[
-                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
-                    GridBox[{{
-                    RowBox[{
-                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
-                    "\[InvisibleSpace]", 
-                    TagBox[
-                    RowBox[{"{", 
-                    RowBox[{"{", 
-                    
-                    RowBox[{"1.`30.*^-5", ",", 
-                    "2432.54875486206306193226869743926439284881`30."}], 
-                    "}"}], "}"}], "SummaryItem"]}]}, {
-                    RowBox[{
-                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
-                    "\[InvisibleSpace]", 
-                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
-                    GridBoxAlignment -> {
-                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
-                    AutoDelete -> False, 
-                    GridBoxItemSize -> {
-                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
-                    GridBoxSpacings -> {
-                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
-                    BaseStyle -> {
-                    ShowStringCharacters -> False, NumberMarks -> False, 
-                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
-                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
-                  False, GridBoxItemSize -> {
-                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
-                  BaselinePosition -> {1, 1}], True -> GridBox[{{
-                    PaneBox[
-                    ButtonBox[
-                    DynamicBox[
-                    FEPrivate`FrontEndResource[
-                    "FEBitmaps", "SquareMinusIconMedium"]], 
-                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
-                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
-                    Alignment -> {Center, Center}, ImageSize -> 
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.24561133333333335`, 0.3378526666666667, 
+                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
+                    None, ImageSize -> 
                     Dynamic[{
-                    Automatic, 
-                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])}]], 
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                   BaseStyle -> {}, BaselinePosition -> Baseline, 
+                   DefaultBaseStyle -> {}, ButtonFunction :> 
+                   With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.368417, 0.506779, 0.709798]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                   Automatic, Method -> "Preemptive"], 
+                  RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, 
+                  Selectable -> False], ",", 
+                 RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
+             "}"}], ",", 
+           RowBox[{"{", 
+             RowBox[{#, ",", #2}], "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{"{", 
+                 RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", 
+           RowBox[{"Joined", "\[Rule]", 
+             RowBox[{"{", "True", "}"}]}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"{", "}"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
+     Scaled[{0.8, 0.8}], ImageScaled[{0.5, 0.5}],
+     BaseStyle->{FontSize -> Larger},
+     FormatType->StandardForm]},
+   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+   Axes->{True, True},
+   AxesLabel->{None, None},
+   AxesOrigin->{-47.984876444948185`, -0.15764570441123416`},
+   DisplayFunction->Identity,
+   Frame->{{True, True}, {True, True}},
+   FrameLabel->{{
+      FormBox[
+      "\"Lower Bound on (\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \
+\\(BD\\)]\\)+3/2)\"", TraditionalForm], None}, {
+      FormBox[
+      "\"\\!\\(\\*SubscriptBox[\\(m\\), \\(s\\)]\\)(eV)\"", TraditionalForm], 
+      None}},
+   FrameStyle->Directive[Bold, 16],
+   FrameTicks->FrontEndValueCache[{{
+       Charting`ScaledTicks[{Log, Exp}], 
+       Charting`ScaledFrameTicks[{Log, Exp}]}, {
+       Charting`ScaledTicks[{Log, Exp}], 
+       Charting`ScaledFrameTicks[{Log, Exp}]}}, {{{{0., 
+         FormBox["1", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.302585092994046, 
+         FormBox["10", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.605170185988092, 
+         FormBox["100", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.907755278982137, 
+         FormBox["1000", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.2039728043259361`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.916290731874155, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.791759469228055, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.995732273553991, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.912023005428146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.0943445622221, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.248495242049359, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.382026634673881, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.499809670330265, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.298317366548036, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.703782474656201, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.991464547107982, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.214608098422191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.396929655216146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.551080335043404, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.684611727667927, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.802394763324311, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {7.600902459542082, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.006367567650246, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.294049640102028, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.517193191416238, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.699514748210191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.85366542803745, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.987196820661973, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.104979856318357, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.210340371976184, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.615805480084347, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.903487552536127, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {10.126631103850338`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}, {{0., 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.302585092994046, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.605170185988092, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.907755278982137, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.2039728043259361`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.916290731874155, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.791759469228055, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.995732273553991, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.912023005428146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.0943445622221, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.248495242049359, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.382026634673881, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.499809670330265, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.298317366548036, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.703782474656201, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.991464547107982, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.214608098422191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.396929655216146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.551080335043404, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.684611727667927, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.802394763324311, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {7.600902459542082, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.006367567650246, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.294049640102028, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.517193191416238, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.699514748210191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.85366542803745, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.987196820661973, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.104979856318357, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.210340371976184, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.615805480084347, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.903487552536127, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {10.126631103850338`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}}, {{{-46.051701859880914`, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "20"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.74911676688687, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "19"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.44653167389282, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "18"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.14394658089878, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "17"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-48.35428695287496, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.66113977231502, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.25567466420685, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.96799259175507, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.74484904044086, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.5625274836469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.40837680381964, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.27484541119512, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.15706237553874, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-45.35855467932097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.95308957121281, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.66540749876102, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.44226394744681, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.25994239065286, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.1057917108256, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.97226031820108, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.85447728254469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.055969586326924`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.65050447821876, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.36282240576698, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.13967885445277, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.95735729765881, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.803206617831556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.66967522520703, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.55189218955065, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.753384493332874`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.34791938522471, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.060237312772934`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.837093761458725`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.654772204664766`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.500621524837506`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.36709013221299, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.249307096556606`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.45079940033883, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.04533429223067, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.75765221977888, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.534508668464674`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.35218711167072, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.19803643184346, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.06450503921894, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.946722003562556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.841361487904734`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.746051308100405`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.659039931110776`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}, {{-46.051701859880914`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.74911676688687, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.44653167389282, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.14394658089878, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-48.35428695287496, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.66113977231502, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.25567466420685, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.96799259175507, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.74484904044086, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.5625274836469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.40837680381964, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.27484541119512, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.15706237553874, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-45.35855467932097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.95308957121281, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.66540749876102, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.44226394744681, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.25994239065286, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.1057917108256, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.97226031820108, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.85447728254469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.055969586326924`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.65050447821876, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.36282240576698, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.13967885445277, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.95735729765881, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.803206617831556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.66967522520703, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.55189218955065, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.753384493332874`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.34791938522471, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.060237312772934`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.837093761458725`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.654772204664766`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.500621524837506`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.36709013221299, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.249307096556606`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.45079940033883, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.04533429223067, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.75765221977888, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.534508668464674`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.35218711167072, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.19803643184346, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.06450503921894, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.946722003562556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.841361487904734`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.746051308100405`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.659039931110776`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}}}],
+   GridLines->NCache[{None, {
+       Log[3]}}, {None, {1.0986122886681098`}}],
+   GridLinesStyle->Directive[
+     GrayLevel[0.5, 0.4]],
+   ImageSize->Large,
+   Method->{
+    "OptimizePlotMarkers" -> True, 
+     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+         (Exp[#]& )[
+          Part[#, 1]], 
+         (Exp[#]& )[
+          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+         (Exp[#]& )[
+          Part[#, 1]], 
+         (Exp[#]& )[
+          Part[#, 2]]}& )}},
+   PlotRange->{{-47.984876444948185`, -39.00784764747063}, \
+{-0.15764570441123416`, 7.601652178432628}},
+   PlotRangeClipping->True,
+   PlotRangePadding->{{
+      Scaled[0.02], 
+      Scaled[0.02]}, {
+      Scaled[0.02], 
+      Scaled[0.05]}},
+   Ticks->{
+     Charting`ScaledTicks[{Log, Exp}], 
+     Charting`ScaledTicks[{Log, Exp}]}],
+  InterpretTemplate[Legended[
+    Graphics[{{}, {{{}, {}, {
+         Hue[0.67, 0.6, 0.6], 
+         Directive[
+          PointSize[0.012833333333333334`], 
+          RGBColor[0.368417, 0.506779, 0.709798], 
+          AbsoluteThickness[1.6]], 
+         Line[CompressedData["
+1:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAuHYJcqTPR8Df74AYn/PZP/UZuMmI
+z0fAwENLPJ/z2T/ZR8+QUc9HwEvr34Of89k/OhBrdxrPR8CFknTLn/PZP83Q
+oaKszkfABuCdWqDz2T/qyZMsnM1HwFQchcCh89k/G1+zGZHDR8BZyYu7r/PZ
+P5I1NT0pskfA6PmPscvz2T9bfcmdbKNHwDrzh6fn89k/61Wkl6WWR8BYtXOd
+A/TZP9nCwXFei0fASEBTkx/02T8Hm5GIRoFHwBqUJok79Nk/6U4XDBOkRsCO
+tiAyD/7ZPwJgL3g2YUbA0JLsmvgI2j8TYCunBR5GwAfPTdnFHto/wSvPA3H2
+RcAspPKsizTaP4sqSTwp2kXAN0HlGkpK2j93VvnDEcRFwNmzKigBYNo/NSfn
+cxF+RcCno61uJszaP8xS3ZV8U0XAy8LmKZY32z8xtbuZ/TNFwEJGYrdSots/
+VgfWonAaRcBGPupoXgzcP9Slq/2FBEXAGAXUhLt13D9Qo2nw+/BEwG80S0Zs
+3tw/4+JmewvfRMC3OZrdckbdPzwgDv8rzkTAKaBwcNGt3T8eNNT89b1EwM8m
+JxqKFN4/w2WzK/RlRMB44ODwQFLtP8fxSYFDKUTAdCUTPu2JA0B4w88Ev+BD
+wGdOlLHwehJATimvK6HKQ8CYFALaIDkVQOWaCxx7tEPAToQCrxf7F0DsoqJF
+hKdDwCELC0UDmRlA7YtV8lCeQ8AbmKDq9b4aQMj5NsYtl0PAM7pvhROjG0BT
+ntYmAYFDwL69N4IXaB5AyHIjvQ==
+          "]]}}, {{
+         Directive[
+          PointSize[0.012833333333333334`], 
+          RGBColor[0.368417, 0.506779, 0.709798], 
+          AbsoluteThickness[1.6]]}}, {{
+         Directive[
+          PointSize[0.012833333333333334`], 
+          RGBColor[0.368417, 0.506779, 0.709798], 
+          AbsoluteThickness[1.6]]}, {}}, {{
+         Directive[
+          PointSize[0.012833333333333334`], 
+          RGBColor[0.368417, 0.506779, 0.709798], 
+          AbsoluteThickness[1.6]]}, {}}}, {{}, {}}}, {
+     DisplayFunction -> Identity, GridLines -> {None, {
+         Log[3]}}, DisplayFunction -> Identity, DisplayFunction -> Identity, 
+      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
+      GoldenRatio^(-1), Axes -> {True, True}, AxesLabel -> {None, None}, 
+      AxesOrigin -> {-47.984876444948185`, -0.15764570441123416`}, 
+      DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, 
+      FrameLabel -> {{
+        "Lower Bound on (\!\(\*SubscriptBox[\(\[Omega]\), \(BD\)]\)+3/2)", 
+         None}, {"\!\(\*SubscriptBox[\(m\), \(s\)]\)(eV)", None}}, FrameStyle -> 
+      Directive[Bold, 16], FrameTicks -> {{
+         Charting`ScaledTicks[{Log, Exp}], 
+         Charting`ScaledFrameTicks[{Log, Exp}]}, {
+         Charting`ScaledTicks[{Log, Exp}], 
+         Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {None, {
+         Log[3]}}, GridLinesStyle -> Directive[
+        GrayLevel[0.5, 0.4]], ImageSize -> Large, 
+      Method -> {
+       "OptimizePlotMarkers" -> True, 
+        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+            (Exp[#]& )[
+             Part[#, 1]], 
+            (Exp[#]& )[
+             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+            (Exp[#]& )[
+             Part[#, 1]], 
+            (Exp[#]& )[
+             Part[#, 2]]}& )}}, 
+      PlotRange -> {{-47.984876444948185`, -39.00784764747063}, \
+{-0.15764570441123416`, 7.601652178432628}}, PlotRangeClipping -> True, 
+      PlotRangePadding -> {{
+         Scaled[0.02], 
+         Scaled[0.02]}, {
+         Scaled[0.02], 
+         Scaled[0.05]}}, Ticks -> {
+        Charting`ScaledTicks[{Log, Exp}], 
+        Charting`ScaledTicks[{Log, Exp}]}}], 
+    Placed[
+     Unevaluated[
+      PointLegend[{
+        Directive[
+         PointSize[0.012833333333333334`], 
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         AbsoluteThickness[1.6]]}, {"PSR J1012 + 5307", "Not Permitted"}, 
+       LegendMarkers -> {{False, Automatic}}, Joined -> {True}, 
+       LabelStyle -> {}, LegendLayout -> "Column"]], {0.8, 0.8}, Identity]]& ],
+  AutoDelete->True,
+  Editable->True,
+  SelectWithContents->False,
+  Selectable->True]], "Output",
+ CellChangeTimes->{
+  3.792481190613813*^9, 3.7924812489222*^9, {3.7924813352373238`*^9, 
+   3.792481339722481*^9}, {3.792481380108781*^9, 3.792481412060347*^9}, 
+   3.792481557084991*^9, {3.792481627661607*^9, 3.792481642963335*^9}, 
+   3.792481707566607*^9, {3.7924818056965*^9, 3.792481868137397*^9}, {
+   3.7924819287092543`*^9, 3.7924819598813467`*^9}, {3.792481993588787*^9, 
+   3.792482032851954*^9}, 3.792482095153644*^9, {3.792482218173798*^9, 
+   3.79248222852962*^9}, {3.7924823057854557`*^9, 3.79248231339263*^9}, 
+   3.7924823537475433`*^9, 3.792482415895907*^9, 3.792482590436059*^9, 
+   3.792482630451292*^9, 3.792482864280467*^9, {3.792482929267036*^9, 
+   3.79248294620431*^9}, 3.7924829783447037`*^9, 3.792483063535203*^9, {
+   3.792483117822504*^9, 3.7924831284536552`*^9}, {3.792483210947192*^9, 
+   3.792483374547078*^9}, {3.792483412450268*^9, 3.792483470524459*^9}, {
+   3.792483544635777*^9, 3.792483579446789*^9}, 3.7924836211857*^9, {
+   3.792483671577915*^9, 3.792483689511731*^9}, {3.792483723818544*^9, 
+   3.7924838109687433`*^9}, {3.7924838421144743`*^9, 
+   3.7924838704825487`*^9}, {3.792483918119158*^9, 3.7924840835786953`*^9}, 
+   3.792484123384119*^9, 3.7924841651309357`*^9, 3.7924844128681803`*^9, 
+   3.7924879650895147`*^9, 3.792487997415801*^9, 3.7924880999546127`*^9, 
+   3.7924881777475653`*^9, 3.792488218974638*^9, 3.7924884332837276`*^9, 
+   3.7924884771839533`*^9, {3.7924901602985687`*^9, 3.792490179676384*^9}, {
+   3.792490210370976*^9, 3.792490219073657*^9}, {3.800174189029745*^9, 
+   3.8001742001015587`*^9}, {3.8001742702715693`*^9, 3.800174283057023*^9}, {
+   3.800174326807637*^9, 3.800174343008148*^9}, {3.800176970915056*^9, 
+   3.800177000726247*^9}, 3.800177217885622*^9, 3.80017725558022*^9, {
+   3.800177325314349*^9, 3.800177351180724*^9}, 3.8001773921237926`*^9, {
+   3.8001774395838614`*^9, 3.800177455910808*^9}, 3.800177641446144*^9, {
+   3.80027305901873*^9, 3.800273068004369*^9}, {3.800273426409775*^9, 
+   3.800273488536303*^9}, {3.800273527830467*^9, 3.800273541209758*^9}, {
+   3.8002736271493073`*^9, 3.8002736409366426`*^9}, 3.800273685141376*^9, {
+   3.800273719464198*^9, 3.800273764321907*^9}, {3.800277801898224*^9, 
+   3.8002778136385202`*^9}, 3.8002787689670362`*^9, {3.800279135317629*^9, 
+   3.8002791482467527`*^9}, 3.800280065291161*^9, {3.800283083831234*^9, 
+   3.8002831082620487`*^9}, 3.8002832326542788`*^9, 3.800283335211892*^9, 
+   3.800283945240768*^9, 3.800285148864739*^9, {3.800330194000972*^9, 
+   3.800330205212419*^9}, 3.8003305023910713`*^9, 3.8003316489182262`*^9, {
+   3.8003316937054358`*^9, 3.8003316974723177`*^9}, {3.800331762889978*^9, 
+   3.800331781338928*^9}, {3.80033187858326*^9, 3.800331919841601*^9}, 
+   3.800331958885844*^9},
+ CellLabel->
+  "Out[223]=",ExpressionUUID->"9d2fb75c-c994-43ab-ac96-73980a524260"]
+}, Open  ]]
+}, Closed]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["\[Xi]-ms", "Subsection",
+ CellChangeTimes->{{3.800175366028179*^9, 
+  3.800175416375059*^9}},ExpressionUUID->"47013bff-4a89-40e6-9c36-\
+3b47c6c727d8"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"xlist", "=", 
+  RowBox[{"Reverse", "[", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"2.2", " ", 
+      RowBox[{"10", "^", "8"}]}], ",", 
+     RowBox[{"10", "^", "8"}], ",", 
+     RowBox[{"10", "^", "4"}], ",", 
+     RowBox[{"10", "^", "3"}], ",", 
+     RowBox[{"10", "^", "2"}], ",", 
+     RowBox[{"10", "^", "1"}], ",", 
+     RowBox[{"10", "^", "0"}], ",", "0.1", ",", "0.09", ",", "0.08", ",", 
+     "0.07", ",", "0.06", ",", "0.05", ",", "0.04", ",", "0.03", ",", "0.02", 
+     ",", "0.01", ",", "0.001", ",", "0.0001", ",", 
+     RowBox[{"9", "*", "0.00001"}], ",", 
+     RowBox[{"8", "*", "0.00001"}], ",", 
+     RowBox[{"7", "*", "0.00001"}], ",", 
+     RowBox[{"6", "*", "0.00001"}], ",", 
+     RowBox[{"5", "*", "0.00001"}], ",", 
+     RowBox[{"4", "*", "0.00001"}], ",", 
+     RowBox[{"3", "*", "0.00001"}], ",", 
+     RowBox[{"2.8", "*", "0.00001"}], ",", 
+     RowBox[{"2.6", "*", "0.00001"}], ",", 
+     RowBox[{"2.5", "*", "0.00001"}], ",", 
+     RowBox[{"2.4", "*", "0.00001"}], ",", 
+     RowBox[{"2.3", "*", "0.00001"}], ",", 
+     RowBox[{"2.25", "*", "0.00001"}], ",", 
+     RowBox[{"2.22", "*", "0.00001"}], ",", 
+     RowBox[{"2.21", "*", "0.00001"}], ",", 
+     RowBox[{"2.205", "*", "0.00001"}], ",", 
+     RowBox[{"2.2025", "*", "0.00001"}]}], "}"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.7924821681270227`*^9, 3.79248217822686*^9}, {
+  3.792482297027713*^9, 3.792482303108605*^9}, {3.792482911233403*^9, 
+  3.7924829251800203`*^9}, {3.792483018380254*^9, 3.792483059339826*^9}, {
+  3.792483312844427*^9, 3.792483313392374*^9}, {3.792483345996736*^9, 
+  3.792483346454281*^9}, {3.792483403541926*^9, 3.7924834417673473`*^9}, {
+  3.7924835769893703`*^9, 3.792483577221919*^9}, {3.792483642211828*^9, 
+  3.792483719846209*^9}, {3.792483752793498*^9, 3.792483808038138*^9}, {
+  3.792483908695217*^9, 3.792483949340746*^9}, {3.792483990210725*^9, 
+  3.7924840783397217`*^9}, {3.792484119674519*^9, 3.7924841625319138`*^9}, {
+  3.800180539069931*^9, 3.800180690804678*^9}},
+ CellLabel->
+  "In[424]:=",ExpressionUUID->"e14283f2-7c42-4f2f-a5c8-f37ccf85f411"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+  "0.000022025000000000003`", ",", "0.000022050000000000004`", ",", 
+   "0.000022100000000000002`", ",", "0.000022200000000000004`", ",", 
+   "0.0000225`", ",", "0.000023`", ",", "0.000024`", ",", "0.000025`", ",", 
+   "0.000026000000000000002`", ",", "0.000028`", ",", 
+   "0.000030000000000000004`", ",", "0.00004`", ",", "0.00005`", ",", 
+   "0.00006000000000000001`", ",", "0.00007000000000000001`", ",", "0.00008`",
+    ",", "0.00009`", ",", "0.0001`", ",", "0.001`", ",", "0.01`", ",", 
+   "0.02`", ",", "0.03`", ",", "0.04`", ",", "0.05`", ",", "0.06`", ",", 
+   "0.07`", ",", "0.08`", ",", "0.09`", ",", "0.1`", ",", "1", ",", "10", ",",
+    "100", ",", "1000", ",", "10000", ",", "100000000", ",", 
+   "2.2000000000000003`*^8"}], "}"}]], "Output",
+ CellChangeTimes->{{3.792482174112348*^9, 3.792482192085073*^9}, 
+   3.792482303489998*^9, {3.7924829011118307`*^9, 3.792482926135187*^9}, 
+   3.792483060207767*^9, 3.792483313706251*^9, 3.7924833467815447`*^9, {
+   3.7924834093722467`*^9, 3.792483442031794*^9}, 3.792483577571299*^9, {
+   3.79248366902205*^9, 3.792483687524165*^9}, 3.792483720679517*^9, {
+   3.792483753310899*^9, 3.7924838083068657`*^9}, {3.7924839153440323`*^9, 
+   3.7924839497787333`*^9}, {3.792483995590716*^9, 3.792484078556182*^9}, {
+   3.792484121491397*^9, 3.792484162778472*^9}, 3.800174164579788*^9, 
+   3.8001754240938253`*^9, {3.80018025074937*^9, 3.800180278563711*^9}, {
+   3.8001805408729486`*^9, 3.800180691236031*^9}},
+ CellLabel->
+  "Out[424]=",ExpressionUUID->"b8182651-fcf0-433e-9850-2087826d3f72"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"const", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"2", 
+        RowBox[{"x", "/", 
+         RowBox[{"(", 
+          RowBox[{"1", "+", "x"}], ")"}]}]}], ",", 
+       RowBox[{"m", "/.", 
+        RowBox[{"FindRoot", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"2", "x", " ", 
+              RowBox[{"Exp", "[", 
+               RowBox[{"-", "m"}], "]"}]}], ")"}], "/", 
+            RowBox[{"(", 
+             RowBox[{"1", "+", 
+              RowBox[{"x", " ", 
+               RowBox[{"Exp", "[", 
+                RowBox[{"-", "m"}], "]"}]}]}], ")"}]}], "\[Equal]", 
+           RowBox[{"4.4", " ", 
+            RowBox[{"10", "^", 
+             RowBox[{"(", 
+              RowBox[{"-", "5"}], ")"}]}]}]}], ",", 
+          RowBox[{"{", 
+           RowBox[{"m", ",", 
+            RowBox[{"10", "^", 
+             RowBox[{"-", "18"}]}]}], "}"}], ",", 
+          RowBox[{"WorkingPrecision", "\[Rule]", "100"}], ",", 
+          RowBox[{"AccuracyGoal", "\[Rule]", "30"}], ",", 
+          RowBox[{"PrecisionGoal", "\[Rule]", "27"}]}], "]"}]}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"x", ",", "xlist"}], "}"}]}], "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.792480353082926*^9, 3.792480458528138*^9}, {
+   3.79248075555788*^9, 3.792480755970029*^9}, {3.7924808501130323`*^9, 
+   3.792480850849119*^9}, {3.792480914527608*^9, 3.792480920388804*^9}, {
+   3.792481073013876*^9, 3.792481074331258*^9}, {3.7924813335684958`*^9, 
+   3.7924813389277678`*^9}, 3.7924814107251263`*^9, {3.7924815291119833`*^9, 
+   3.7924815543917723`*^9}, {3.792481803426395*^9, 3.7924818037470293`*^9}, {
+   3.792481872737005*^9, 3.792481927137003*^9}, {3.7924819746798773`*^9, 
+   3.792481990739448*^9}, 3.79248219768585*^9, {3.792482347328526*^9, 
+   3.7924823492385693`*^9}, {3.7924825169321127`*^9, 3.792482628054343*^9}, {
+   3.792482851593539*^9, 3.792482852186997*^9}, {3.792483115135929*^9, 
+   3.7924831267790213`*^9}, {3.792483541737007*^9, 3.792483552560916*^9}, {
+   3.7924836190639267`*^9, 3.7924836192907553`*^9}, {3.792483976852233*^9, 
+   3.7924839771119633`*^9}, 3.7924840216566668`*^9, {3.800174177608321*^9, 
+   3.8001741798596983`*^9}, {3.800180351991503*^9, 3.800180361067354*^9}},
+ CellLabel->
+  "In[425]:=",ExpressionUUID->"9425448d-d2da-4568-b6c2-2d6dff68d46f"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "FindRoot","precw",
+   "\"The precision of the argument function \
+(\\!\\(\\*RowBox[{FractionBox[RowBox[{\\\"0.00004405000000000001`\\\", \\\" \
+\\\", SuperscriptBox[\\\"\[ExponentialE]\\\", RowBox[{\\\"-\\\", \
+\\\"m\\\"}]]}], RowBox[{\\\"1\\\", \\\"+\\\", \
+RowBox[{\\\"0.000022025000000000003`\\\", \\\" \\\", SuperscriptBox[\\\"\
+\[ExponentialE]\\\", RowBox[{\\\"-\\\", \\\"m\\\"}]]}]}]], \\\"\[Equal]\\\", \
+\\\"0.000044000000000000006`\\\"}]\\)) is less than WorkingPrecision \
+(\\!\\(\\*RowBox[{\\\"100.`\\\"}]\\)).\"",2,425,253,19649557724426892251,
+   "Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.800174165278363*^9, 3.800174180351301*^9}, {
+   3.8001802524685793`*^9, 3.800180279423996*^9}, 3.800180361338472*^9, {
+   3.800180541861944*^9, 3.8001806919194717`*^9}},
+ CellLabel->
+  "During evaluation of \
+In[425]:=",ExpressionUUID->"40827970-1b7a-4bef-9aa1-1226d4289485"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "FindRoot","precw",
+   "\"The precision of the argument function \
+(\\!\\(\\*RowBox[{FractionBox[RowBox[{\\\"0.00004410000000000001`\\\", \\\" \
+\\\", SuperscriptBox[\\\"\[ExponentialE]\\\", RowBox[{\\\"-\\\", \
+\\\"m\\\"}]]}], RowBox[{\\\"1\\\", \\\"+\\\", \
+RowBox[{\\\"0.000022050000000000004`\\\", \\\" \\\", SuperscriptBox[\\\"\
+\[ExponentialE]\\\", RowBox[{\\\"-\\\", \\\"m\\\"}]]}]}]], \\\"\[Equal]\\\", \
+\\\"0.000044000000000000006`\\\"}]\\)) is less than WorkingPrecision \
+(\\!\\(\\*RowBox[{\\\"100.`\\\"}]\\)).\"",2,425,254,19649557724426892251,
+   "Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.800174165278363*^9, 3.800174180351301*^9}, {
+   3.8001802524685793`*^9, 3.800180279423996*^9}, 3.800180361338472*^9, {
+   3.800180541861944*^9, 3.800180691926766*^9}},
+ CellLabel->
+  "During evaluation of \
+In[425]:=",ExpressionUUID->"814945bd-d9ff-4101-b3ce-37d5a56c4662"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "FindRoot","precw",
+   "\"The precision of the argument function \
+(\\!\\(\\*RowBox[{FractionBox[RowBox[{\\\"0.000044200000000000004`\\\", \\\" \
+\\\", SuperscriptBox[\\\"\[ExponentialE]\\\", RowBox[{\\\"-\\\", \
+\\\"m\\\"}]]}], RowBox[{\\\"1\\\", \\\"+\\\", \
+RowBox[{\\\"0.000022100000000000002`\\\", \\\" \\\", SuperscriptBox[\\\"\
+\[ExponentialE]\\\", RowBox[{\\\"-\\\", \\\"m\\\"}]]}]}]], \\\"\[Equal]\\\", \
+\\\"0.000044000000000000006`\\\"}]\\)) is less than WorkingPrecision \
+(\\!\\(\\*RowBox[{\\\"100.`\\\"}]\\)).\"",2,425,255,19649557724426892251,
+   "Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.800174165278363*^9, 3.800174180351301*^9}, {
+   3.8001802524685793`*^9, 3.800180279423996*^9}, 3.800180361338472*^9, {
+   3.800180541861944*^9, 3.800180691936427*^9}},
+ CellLabel->
+  "During evaluation of \
+In[425]:=",ExpressionUUID->"d823d0c8-1931-4186-b6e5-0f9652c52f33"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "General","stop",
+   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"FindRoot\\\", \
+\\\"::\\\", \\\"precw\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
+during this calculation.\"",2,425,256,19649557724426892251,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.800174165278363*^9, 3.800174180351301*^9}, {
+   3.8001802524685793`*^9, 3.800180279423996*^9}, 3.800180361338472*^9, {
+   3.800180541861944*^9, 3.8001806919428787`*^9}},
+ CellLabel->
+  "During evaluation of \
+In[425]:=",ExpressionUUID->"174d04f5-beb3-4929-a772-1d4b6bcb5456"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "FindRoot","lstol",
+   "\"The line search decreased the step size to within tolerance specified \
+by AccuracyGoal and PrecisionGoal but was unable to find a sufficient \
+decrease in the merit function. You may need more than \
+\\!\\(\\*RowBox[{\\\"100.`\\\"}]\\) digits of working precision to meet these \
+tolerances.\"",2,425,257,19649557724426892251,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.800174165278363*^9, 3.800174180351301*^9}, {
+   3.8001802524685793`*^9, 3.800180279423996*^9}, 3.800180361338472*^9, {
+   3.800180541861944*^9, 3.800180692014412*^9}},
+ CellLabel->
+  "During evaluation of \
+In[425]:=",ExpressionUUID->"d567a5fd-5339-47ba-adb4-ca24ac854fa2"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "FindRoot","lstol",
+   "\"The line search decreased the step size to within tolerance specified \
+by AccuracyGoal and PrecisionGoal but was unable to find a sufficient \
+decrease in the merit function. You may need more than \
+\\!\\(\\*RowBox[{\\\"100.`\\\"}]\\) digits of working precision to meet these \
+tolerances.\"",2,425,258,19649557724426892251,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.800174165278363*^9, 3.800174180351301*^9}, {
+   3.8001802524685793`*^9, 3.800180279423996*^9}, 3.800180361338472*^9, {
+   3.800180541861944*^9, 3.8001806920200777`*^9}},
+ CellLabel->
+  "During evaluation of \
+In[425]:=",ExpressionUUID->"8725606f-ba25-4548-8906-c1f27e09aed4"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ref", "=", 
+  RowBox[{"const", "/.", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"xx_", ",", "yy_"}], "}"}], "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"4.14", " ", 
+       RowBox[{"10", "^", 
+        RowBox[{"(", 
+         RowBox[{"-", "15"}], ")"}]}], 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"3", " ", 
+          RowBox[{"10", "^", "8"}]}], ")"}], "/", 
+        RowBox[{"(", 
+         RowBox[{"1.496", "*", 
+          RowBox[{"10", "^", "11"}]}], ")"}]}], "*", 
+       RowBox[{"yy", "/", 
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}]}]}], ",", " ", "xx"}], 
+     "}"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.792482275177369*^9, 3.7924822775718613`*^9}, {
+  3.7924829631666117`*^9, 3.7924829634046497`*^9}},
+ CellLabel->
+  "In[426]:=",ExpressionUUID->"17f2ac2e-aeb5-4c89-8c27-51eb79160f57"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"1.4715853623430614`*^-21", ",", "0.000044049029820118215`"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.970537838518258`*^-21", ",", "0.00004409902761644106`"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.9633510456274705`*^-21", ",", "0.000044199023201587246`"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1928717683791097`*^-20", ",", "0.00004439901434188162`"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.96649097028908`*^-20", ",", "0.00004499898752278074`"}], "}"}],
+    ",", 
+   RowBox[{"{", 
+    RowBox[{"5.870622084511363`*^-20", ",", "0.00004599894202433344`"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.149413657612828`*^-19", ",", "0.000047998848027647335`"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.6888054751758586`*^-19", ",", "0.000049998750031249224`"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.207039138241238`*^-19", ",", "0.000051998648035151086`"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.186247387756642`*^-19", ",", "0.00005599843204390277`"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4.0978684583972345`*^-19", ",", "0.00005999820005399839`"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"7.899087819765559`*^-19", ",", "0.00007999680012799488`"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.0847542620549966`*^-18", ",", "0.0000999950002499875`"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.3256605603771342`*^-18", ",", "0.0001199928004319741`"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.5293439333915156`*^-18", ",", "0.000139990200685952`"}], "}"}],
+    ",", 
+   RowBox[{"{", 
+    RowBox[{"1.7057824965139665`*^-18", ",", "0.00015998720102391808`"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.8614123387777123`*^-18", ",", "0.0001799838014578688`"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.000627976592407`*^-18", ",", "0.00019998000199980003`"}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.04309460028308`*^-18", ",", "0.0019980019980019984`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"8.085561223973752`*^-18", ",", "0.019801980198019802`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"9.001434938511163`*^-18", ",", "0.0392156862745098`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"9.537186716911741`*^-18", ",", "0.05825242718446602`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"9.917308653048574`*^-18", ",", "0.07692307692307691`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"1.0212154133127015`*^-17", ",", "0.09523809523809523`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"1.0453060431449151`*^-17", ",", "0.11320754716981131`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"1.0656743804463533`*^-17", ",", "0.13084112149532712`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"1.0833182367585984`*^-17", ",", "0.14814814814814814`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"1.098881220984973`*^-17", ",", "0.16513761467889906`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1128027847664425`*^-17", ",", "0.18181818181818182`"}], "}"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"1.4170494471355096`*^-17", ",", "1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.7212961095045772`*^-17", ",", 
+     FractionBox["20", "11"]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.0255427718736442`*^-17", ",", 
+     FractionBox["200", "101"]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.3297894342427118`*^-17", ",", 
+     FractionBox["2000", "1001"]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.6340360966117787`*^-17", ",", 
+     FractionBox["20000", "10001"]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.5855917592524118`*^-16", ",", 
+     FractionBox["200000000", "100000001"]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.5855917592524118`*^-16", ",", "1.9999999909090909`"}], "}"}]}],
+   "}"}]], "Output",
+ CellChangeTimes->{{3.792482278364265*^9, 3.792482305090352*^9}, 
+   3.792482352843977*^9, 3.792482587757072*^9, 3.7924826294278393`*^9, 
+   3.792482860190465*^9, {3.792482902589355*^9, 3.7924829277336473`*^9}, 
+   3.792482977652837*^9, 3.792483061845364*^9, {3.792483116513783*^9, 
+   3.792483127827096*^9}, {3.792483315588278*^9, 3.7924833485084743`*^9}, {
+   3.7924834113902283`*^9, 3.7924834430181913`*^9}, {3.7924835437192183`*^9, 
+   3.79248357870555*^9}, 3.792483620378974*^9, {3.792483670696705*^9, 
+   3.792483688931843*^9}, 3.792483722265934*^9, {3.792483754780497*^9, 
+   3.792483810239943*^9}, {3.792483916771402*^9, 3.792484079655246*^9}, {
+   3.792484122650584*^9, 3.792484164002008*^9}, 3.800174180973463*^9, 
+   3.8001803685588284`*^9, 3.800180408318161*^9, {3.800180542662455*^9, 
+   3.800180692405293*^9}},
+ CellLabel->
+  "Out[426]=",ExpressionUUID->"25ca5e47-82fc-459d-8167-141f207aa487"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListLogLogPlot", "[", 
+  RowBox[{
+   RowBox[{"{", "ref", "}"}], ",", 
+   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+   RowBox[{"PlotRange", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"10", "^", 
+         RowBox[{"(", 
+          RowBox[{"-", "21"}], ")"}]}], ",", 
+        RowBox[{"10", "^", 
+         RowBox[{"(", 
+          RowBox[{"-", "15"}], ")"}]}]}], "}"}], ",", "All"}], "}"}]}], ",", 
+   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
+   RowBox[{"GridLines", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"None", ",", 
+      RowBox[{"{", "3", "}"}]}], "}"}]}], ",", 
+   RowBox[{"PlotLegends", "\[Rule]", 
+    RowBox[{"Placed", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"\"\<Cassini\>\"", ",", "\"\<Not Permitted\>\""}], "}"}], ",", 
+      
+      RowBox[{"{", 
+       RowBox[{"0.8", ",", "0.8"}], "}"}]}], "]"}]}], ",", 
+   RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
+   RowBox[{"FrameLabel", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+     "\"\<\!\(\*SubscriptBox[\(m\), \(s\)]\)(eV)\>\"", ",", 
+      "\"\<Upper Bound on \[Xi]\>\""}], "}"}]}], ",", 
+   RowBox[{"FrameStyle", "\[Rule]", 
+    RowBox[{"Directive", "[", 
+     RowBox[{"Bold", ",", "16"}], "]"}]}], ",", 
+   RowBox[{"Filling", "\[Rule]", "Bottom"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.7924809811634417`*^9, 3.7924810176846333`*^9}, {
+   3.792481050314542*^9, 3.7924810506418877`*^9}, {3.792481172761291*^9, 
+   3.7924811899170513`*^9}, {3.792481377741453*^9, 3.79248138586658*^9}, {
+   3.7924816417501802`*^9, 3.7924816423459053`*^9}, {3.792481702531547*^9, 
+   3.792481706994644*^9}, {3.792481808780587*^9, 3.792481867715866*^9}, {
+   3.792481949597508*^9, 3.792481951556817*^9}, {3.792482017472578*^9, 
+   3.792482023379766*^9}, {3.792482093428446*^9, 3.79248209464964*^9}, 
+   3.7924822279762487`*^9, 3.792482312708346*^9, {3.792482942835244*^9, 
+   3.792482945734926*^9}, {3.7924833565139723`*^9, 3.792483374214595*^9}, {
+   3.7924834699746933`*^9, 3.792483470160303*^9}, {3.792483736734573*^9, 
+   3.792483742141539*^9}, {3.792483820271922*^9, 3.7924838700971737`*^9}, {
+   3.792484411467929*^9, 3.7924844124372253`*^9}, {3.7924879622234907`*^9, 
+   3.792487994778286*^9}, {3.792488099051333*^9, 3.792488099540189*^9}, {
+   3.7924881771418657`*^9, 3.792488218489883*^9}, {3.79248841971767*^9, 
+   3.7924884300810757`*^9}, {3.7924884745484867`*^9, 3.792488474748797*^9}, {
+   3.792490159719715*^9, 3.792490218692012*^9}, {3.800174192042289*^9, 
+   3.800174239580214*^9}, {3.8001742767878113`*^9, 3.800174342669599*^9}, {
+   3.800180380863193*^9, 3.8001803810304537`*^9}, {3.8001804488879843`*^9, 
+   3.800180489215975*^9}, 3.800180530255519*^9},
+ CellLabel->
+  "In[427]:=",ExpressionUUID->"c07326d6-32ab-417f-bad0-e3d2a8450919"],
+
+Cell[BoxData[
+ TagBox[
+  GraphicsBox[{{{}, GraphicsComplexBox[CompressedData["
+1:eJztku0v1AEAx0+70NwDJ0+1Wud3XSTqSHlTF7/f7zxcb6iNKTtCipXUoTl6
+1ANdZyMirHOGZY5dvSmL+05DTe6QoaYyD+ehLlqb4WSxZf0BvfXdvvvus+/b
+D/9MakTiJgaDEbbatfXVcbQTlmBk9MkjMrkCzFhNRv6uCkZbOqEZ5QjA9Kiq
+fxcSDJowtL1iC1Detc3Jbk6CFk+1dbKdAOYhztRFhQQfk7405jMFcMv96Wov
+kIDymDGHLhIgbMdY9gYaJe2dTdfHCDjWSL8bK2hM117zLTOscnS7vyqLhq5Z
++ji3mUCSgGOvktJQl+TIih4RKMkoGInyoqEotJQdSyNgZm0djRyk8CBoaWj+
+szs4gW88WhspeJ+ID32Z4o4dpXFSXjEFi0wTFctxx8LJ+v6OWxQWt9f1yvV8
+yHQV7G45hd54YtJFwccLjZ2N+jyFTLeuPV1H+agTaSsTYilUH2TVfbLlg+Wg
+aGDNkBDqNh95O+wK7ybhIbWWhGniqsovlos5o5A3/pTE7cuF4p6pLZDMFz/J
+KSUx6FLZfbbVGqrU0z+yi0iEK0VezDtM3FP6mV8XkPDfpeuvNG5Cx4jWBCWJ
++n3sFM0FK3RoZfkh+SS4H2pXPGkGlvovpfvcJyEystKyH67oqZph7qm7JNgi
+n8j3Pct6BMTlteaSUIffnK2RWPTJXwcaDIkkGH8TONsomT5OwlnXx1Xwx8Qr
+Wc9+OQaQcHLorNYPT4iJb+KEvUISPVcixnlCk1gZcy5T7kxiv01hWJq3STwY
+HcPTHQjC4YHyxSCff7xwI295jdf9eU6XEztbdmP9X+cNvzb8+h+//gB1XEJY
+
+      "], {{{}, 
+        {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[None],
+          GraphicsGroupBox[
+          PolygonBox[{{1, 37, 38, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 
+           25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 
+           8, 7, 6, 5, 4, 3, 2}}]]}, {}, {}}, {{}, {}, 
+        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+         0.012833333333333334`], AbsoluteThickness[1.6], 
+         LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
+          18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 
+          35, 36}]}}, 
+       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+        0.012833333333333334`], AbsoluteThickness[1.6]}, {
+        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+         0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
+        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+         0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}], {{}, {}}}, 
+    InsetBox[
+     TemplateBox[{"\"Cassini\"","\"Not Permitted\""},
+      "PointLegend",
+      DisplayFunction->(FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    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], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
+                 GridBoxAlignment -> {
+                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
+                 AutoDelete -> False, 
+                 GridBoxDividers -> {
+                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
+                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
+                  GridBoxSpacings -> {
+                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
+             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
+             AutoDelete -> False, 
+             GridBoxItemSize -> {
+              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
+            "Grid"], Alignment -> Left, AppearanceElements -> None, 
+           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
+           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
+         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
+         False], TraditionalForm]& ),
+      Editable->True,
+      InterpretationFunction:>(RowBox[{"PointLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{"Directive", "[", 
+               RowBox[{
+                 RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
+                 ",", 
+                 InterpretationBox[
+                  ButtonBox[
+                   TooltipBox[
                     GraphicsBox[{{
-                    GrayLevel[0.6], 
-                    AbsolutePointSize[5], 
-                    PointBox[{1, 1}], 
-                    PointBox[{2, 4}], 
-                    PointBox[{3, 2}], 
-                    PointBox[{4, 3}]}, {{}, {}, {
-                    AbsoluteThickness[1], 
-                    Opacity[1.], 
-                    LineBox[CompressedData["
-1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
-3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
-cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
-QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
-wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
-ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
-/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
-klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
-42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
-IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
-7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
-QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
-CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
-7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
-/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
-q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
-vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
-shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
-q5SZmRFAL++xNeOlE0Dwt3AR
-                    "]]}}}, AspectRatio -> 1, Axes -> 
-                    False, Background -> GrayLevel[0.93], Frame -> True, 
-                    FrameStyle -> Directive[
-                    GrayLevel[0.7], 
-                    Thickness[Tiny]], FrameTicks -> None, 
-                    ImageSize -> {Automatic, 
-                    Dynamic[
-                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
-                    GridBox[{{
-                    RowBox[{
-                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
-                    "\[InvisibleSpace]", 
-                    TagBox[
-                    RowBox[{"{", 
-                    RowBox[{"{", 
-                    
-                    RowBox[{"1.`30.*^-5", ",", 
-                    "2432.54875486206306193226869743926439284881`30."}], 
-                    "}"}], "}"}], "SummaryItem"]}]}, {
-                    RowBox[{
-                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
-                    "\[InvisibleSpace]", 
-                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
-                    RowBox[{
-                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
-                    "\[InvisibleSpace]", 
-                    TagBox["3", "SummaryItem"]}]}, {
-                    RowBox[{
-                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
-                    "\[InvisibleSpace]", 
-                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
-                    RowBox[{
-                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
-                    "\[InvisibleSpace]", 
-                    TagBox["False", "SummaryItem"]}]}}, 
-                    GridBoxAlignment -> {
-                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
-                    AutoDelete -> False, 
-                    GridBoxItemSize -> {
-                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
-                    GridBoxSpacings -> {
-                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
-                    BaseStyle -> {
-                    ShowStringCharacters -> False, NumberMarks -> False, 
-                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
-                  GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
-                  False, GridBoxItemSize -> {
-                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
-                  BaselinePosition -> {1, 1}]}, 
-               Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
-             "SummaryPanel"], 
-            ButtonBox[
-             DynamicBox[
-              ToBoxes[
-               If[
-                
-                Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
-                 "Local"], 
-                Style["This object cannot be used as input.", "SummaryEmbed"], 
-                BoxForm`EmbedSummaryLabel[InterpolatingFunction, 1907024, 
-                 Dynamic[Typeset`embedState$$]]], StandardForm]], 
-             ButtonFunction :> 
-             BoxForm`EmbedSummaryInterpretation[
-              InterpolatingFunction, 
-               6685490547278413119663134985305171373900663443478198241120, 
-               EvaluationBox[], 
-               Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> 
-             "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> 
-             Dynamic[
-               
-               And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === 
-                "Local", Typeset`embedState$$ === "Ready"]], Appearance -> 
-             Inherited, Method -> Inherited, Evaluator -> Automatic]}, 
-           "SummaryEmbedGrid"], DynamicModuleValues :> {}], 
-         StyleBox["]", "NonInterpretableSummary"]}]},
-      "CopyTag",
-      DisplayFunction->(#& ),
-      InterpretationFunction->(
-       "                                                         -5\n\
-InterpolatingFunction[{{1.0000000000000000000000000000 10  , \
-2432.54875486206306193226869744}}, <>]"& )],
-     False,
-     BoxID -> 6685490547278413119663134985305171373900663443478198241120,
-     Editable->False,
-     SelectWithContents->True,
-     Selectable->False], ",", "0", ",", 
-    FractionBox["3773", "25000"], ",", "0"}], "}"}], "}"}]], "Output",
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", 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]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                   BaseStyle -> {}, BaselinePosition -> Baseline, 
+                   DefaultBaseStyle -> {}, ButtonFunction :> 
+                   With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.368417, 0.506779, 0.709798]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                   Automatic, Method -> "Preemptive"], 
+                  RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, 
+                  Selectable -> False], ",", 
+                 RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
+             "}"}], ",", 
+           RowBox[{"{", 
+             RowBox[{#, ",", #2}], "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{"{", 
+                 RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", 
+           RowBox[{"Joined", "\[Rule]", 
+             RowBox[{"{", "True", "}"}]}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"{", "}"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
+     Scaled[{0.8, 0.8}], ImageScaled[{0.5, 0.5}],
+     BaseStyle->{FontSize -> Larger},
+     FormatType->StandardForm]},
+   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+   Axes->{True, True},
+   AxesLabel->{None, None},
+   AxesOrigin->{-48.35428695287496, -10.86937056799329},
+   DisplayFunction->Identity,
+   Frame->{{True, True}, {True, True}},
+   FrameLabel->{{
+      FormBox["\"Upper Bound on \[Xi]\"", TraditionalForm], None}, {
+      FormBox[
+      "\"\\!\\(\\*SubscriptBox[\\(m\\), \\(s\\)]\\)(eV)\"", TraditionalForm], 
+      None}},
+   FrameStyle->Directive[Bold, 16],
+   FrameTicks->FrontEndValueCache[{{
+       Charting`ScaledTicks[{Log, Exp}], 
+       Charting`ScaledFrameTicks[{Log, Exp}]}, {
+       Charting`ScaledTicks[{Log, Exp}], 
+       Charting`ScaledFrameTicks[{Log, Exp}]}}, {{{{-9.210340371976182, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
+           TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-6.907755278982137, 
+         FormBox["0.001`", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-4.605170185988091, 
+         FormBox[
+          TagBox[
+           InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
+           NumberForm[#, {
+             DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
+         FormBox[
+          TagBox[
+           InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
+           NumberForm[#, {
+             DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {0., 
+         FormBox["1", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-11.512925464970229`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-10.819778284410283`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-10.41431317630212, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-10.126631103850338`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-9.903487552536127, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-9.721165995742174, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-9.567015315914915, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-9.433483923290392, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-9.315700887634009, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-8.517193191416238, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-8.111728083308073, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.824046010856292, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.600902459542082, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.418580902748128, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.264430222920869, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.1308988302963465`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.013115794639964, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-6.214608098422191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.809142990314028, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.521460917862246, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.298317366548036, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.115995809754082, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-4.961845129926823, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-4.8283137373023015`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-4.710530701645918, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-3.912023005428146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-3.506557897319982, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-3.2188758248682006`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.995732273553991, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.8134107167600364`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.659260036932778, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.5257286443082556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.4079456086518722`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.2039728043259361`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.916290731874155, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.791759469228055, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.302585092994046, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.995732273553991, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}, {{-9.210340371976182, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-6.907755278982137, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-4.605170185988091, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {0., 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-11.512925464970229`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-10.819778284410283`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-10.41431317630212, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-10.126631103850338`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-9.903487552536127, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-9.721165995742174, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-9.567015315914915, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-9.433483923290392, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-9.315700887634009, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-8.517193191416238, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-8.111728083308073, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.824046010856292, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.600902459542082, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.418580902748128, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.264430222920869, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.1308988302963465`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.013115794639964, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-6.214608098422191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.809142990314028, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.521460917862246, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.298317366548036, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.115995809754082, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-4.961845129926823, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-4.8283137373023015`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-4.710530701645918, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-3.912023005428146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-3.506557897319982, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-3.2188758248682006`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.995732273553991, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.8134107167600364`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.659260036932778, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.5257286443082556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.4079456086518722`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.2039728043259361`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.916290731874155, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.791759469228055, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.302585092994046, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.995732273553991, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}}, {{{-48.35428695287496, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "21"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.051701859880914`, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "20"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.74911676688687, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "19"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.44653167389282, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "18"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.14394658089878, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "17"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.841361487904734`, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "16"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.538776394910684`, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "15"}]}, "Superscript", SyntaxForm -> 
+           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.66113977231502, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.25567466420685, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.96799259175507, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.74484904044086, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.5625274836469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.40837680381964, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.27484541119512, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.15706237553874, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-45.35855467932097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.95308957121281, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.66540749876102, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.44226394744681, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.25994239065286, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.1057917108256, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.97226031820108, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.85447728254469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.055969586326924`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.65050447821876, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.36282240576698, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.13967885445277, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.95735729765881, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.803206617831556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.66967522520703, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.55189218955065, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.753384493332874`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.34791938522471, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.060237312772934`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.837093761458725`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.654772204664766`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.500621524837506`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.36709013221299, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.249307096556606`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.45079940033883, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.04533429223067, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.75765221977888, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.534508668464674`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.35218711167072, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.19803643184346, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.06450503921894, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.946722003562556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.14821430734479, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.74274919923662, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.45506712678484, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.23192357547063, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.04960201867667, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.89545133884942, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.76191994622489, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.64413691056851, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.84562921435074, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.44016410624258, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.1524820337908, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.92933848247659, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.74701692568263, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.59286624585537, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.45933485323085, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.34155181757447, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.23619130191664, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}, {{-48.35428695287496, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.051701859880914`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.74911676688687, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.44653167389282, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.14394658089878, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.841361487904734`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.538776394910684`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.66113977231502, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-47.25567466420685, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.96799259175507, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.74484904044086, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.5625274836469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.40837680381964, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.27484541119512, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-46.15706237553874, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-45.35855467932097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.95308957121281, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.66540749876102, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.44226394744681, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.25994239065286, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-44.1057917108256, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.97226031820108, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.85447728254469, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-43.055969586326924`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.65050447821876, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.36282240576698, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-42.13967885445277, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.95735729765881, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.803206617831556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.66967522520703, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-41.55189218955065, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.753384493332874`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.34791938522471, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-40.060237312772934`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.837093761458725`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.654772204664766`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.500621524837506`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.36709013221299, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-39.249307096556606`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.45079940033883, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-38.04533429223067, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.75765221977888, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.534508668464674`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.35218711167072, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.19803643184346, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-37.06450503921894, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.946722003562556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-36.14821430734479, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.74274919923662, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.45506712678484, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.23192357547063, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-35.04960201867667, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.89545133884942, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.76191994622489, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-34.64413691056851, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.84562921435074, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.44016410624258, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-33.1524820337908, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.92933848247659, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.74701692568263, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.59286624585537, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.45933485323085, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.34155181757447, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-32.23619130191664, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}}}],
+   GridLines->NCache[{None, {
+       Log[3]}}, {None, {1.0986122886681098`}}],
+   GridLinesStyle->Directive[
+     GrayLevel[0.5, 0.4]],
+   ImageSize->Large,
+   Method->{
+    "OptimizePlotMarkers" -> True, 
+     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+         (Exp[#]& )[
+          Part[#, 1]], 
+         (Exp[#]& )[
+          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+         (Exp[#]& )[
+          Part[#, 1]], 
+         (Exp[#]& )[
+          Part[#, 2]]}& )}},
+   PlotRange->
+    NCache[{{-Log[1000000000000000000000], -
+       Log[1000000000000000]}, {-10.86937056799329, 
+      0.6931471760144907}}, {{-48.35428695287496, -34.538776394910684`}, \
+{-10.86937056799329, 0.6931471760144907}}],
+   PlotRangeClipping->True,
+   PlotRangePadding->{{0, 0}, {
+      Scaled[0.02], 
+      Scaled[0.05]}},
+   Ticks->{
+     Charting`ScaledTicks[{Log, Exp}], 
+     Charting`ScaledTicks[{Log, Exp}]}],
+  InterpretTemplate[Legended[
+    Graphics[{{}, 
+      GraphicsComplex[CompressedData["
+1:eJztku0v1AEAx0+70NwDJ0+1Wud3XSTqSHlTF7/f7zxcb6iNKTtCipXUoTl6
+1ANdZyMirHOGZY5dvSmL+05DTe6QoaYyD+ehLlqb4WSxZf0BvfXdvvvus+/b
+D/9MakTiJgaDEbbatfXVcbQTlmBk9MkjMrkCzFhNRv6uCkZbOqEZ5QjA9Kiq
+fxcSDJowtL1iC1Detc3Jbk6CFk+1dbKdAOYhztRFhQQfk7405jMFcMv96Wov
+kIDymDGHLhIgbMdY9gYaJe2dTdfHCDjWSL8bK2hM117zLTOscnS7vyqLhq5Z
++ji3mUCSgGOvktJQl+TIih4RKMkoGInyoqEotJQdSyNgZm0djRyk8CBoaWj+
+szs4gW88WhspeJ+ID32Z4o4dpXFSXjEFi0wTFctxx8LJ+v6OWxQWt9f1yvV8
+yHQV7G45hd54YtJFwccLjZ2N+jyFTLeuPV1H+agTaSsTYilUH2TVfbLlg+Wg
+aGDNkBDqNh95O+wK7ybhIbWWhGniqsovlos5o5A3/pTE7cuF4p6pLZDMFz/J
+KSUx6FLZfbbVGqrU0z+yi0iEK0VezDtM3FP6mV8XkPDfpeuvNG5Cx4jWBCWJ
++n3sFM0FK3RoZfkh+SS4H2pXPGkGlvovpfvcJyEystKyH67oqZph7qm7JNgi
+n8j3Pct6BMTlteaSUIffnK2RWPTJXwcaDIkkGH8TONsomT5OwlnXx1Xwx8Qr
+Wc9+OQaQcHLorNYPT4iJb+KEvUISPVcixnlCk1gZcy5T7kxiv01hWJq3STwY
+HcPTHQjC4YHyxSCff7xwI295jdf9eU6XEztbdmP9X+cNvzb8+h+//gB1XEJY
+
+       "], {{{}, {
+          EdgeForm[], 
+          Directive[
+           RGBColor[0.368417, 0.506779, 0.709798], 
+           Opacity[0.2]], 
+          GraphicsGroup[{
+            
+            Polygon[{{1, 37, 38, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 
+             25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 
+             9, 8, 7, 6, 5, 4, 3, 2}}]}]}, {}, {}}, {{}, {}, {
+          Hue[0.67, 0.6, 0.6], 
+          Directive[
+           PointSize[0.012833333333333334`], 
+           RGBColor[0.368417, 0.506779, 0.709798], 
+           AbsoluteThickness[1.6]], 
+          
+          Line[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
+            19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 
+           35, 36}]}}, {{
+          Directive[
+           PointSize[0.012833333333333334`], 
+           RGBColor[0.368417, 0.506779, 0.709798], 
+           AbsoluteThickness[1.6]]}}, {{
+          Directive[
+           PointSize[0.012833333333333334`], 
+           RGBColor[0.368417, 0.506779, 0.709798], 
+           AbsoluteThickness[1.6]]}, {}}, {{
+          Directive[
+           PointSize[0.012833333333333334`], 
+           RGBColor[0.368417, 0.506779, 0.709798], 
+           AbsoluteThickness[1.6]]}, {}}}], {{}, {}}}, {
+     DisplayFunction -> Identity, GridLines -> {None, {
+         Log[3]}}, DisplayFunction -> Identity, DisplayFunction -> Identity, 
+      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
+      GoldenRatio^(-1), Axes -> {True, True}, AxesLabel -> {None, None}, 
+      AxesOrigin -> {-48.35428695287496, -10.86937056799329}, DisplayFunction :> 
+      Identity, Frame -> {{True, True}, {True, True}}, 
+      FrameLabel -> {{"Upper Bound on \[Xi]", None}, {
+        "\!\(\*SubscriptBox[\(m\), \(s\)]\)(eV)", None}}, FrameStyle -> 
+      Directive[Bold, 16], FrameTicks -> {{
+         Charting`ScaledTicks[{Log, Exp}], 
+         Charting`ScaledFrameTicks[{Log, Exp}]}, {
+         Charting`ScaledTicks[{Log, Exp}], 
+         Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {None, {
+         Log[3]}}, GridLinesStyle -> Directive[
+        GrayLevel[0.5, 0.4]], ImageSize -> Large, 
+      Method -> {
+       "OptimizePlotMarkers" -> True, 
+        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+            (Exp[#]& )[
+             Part[#, 1]], 
+            (Exp[#]& )[
+             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+            (Exp[#]& )[
+             Part[#, 1]], 
+            (Exp[#]& )[
+             Part[#, 2]]}& )}}, 
+      PlotRange -> {{-Log[1000000000000000000000], -
+         Log[1000000000000000]}, {-10.86937056799329, 0.6931471760144907}}, 
+      PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {
+         Scaled[0.02], 
+         Scaled[0.05]}}, Ticks -> {
+        Charting`ScaledTicks[{Log, Exp}], 
+        Charting`ScaledTicks[{Log, Exp}]}}], 
+    Placed[
+     Unevaluated[
+      PointLegend[{
+        Directive[
+         PointSize[0.012833333333333334`], 
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         AbsoluteThickness[1.6]]}, {"Cassini", "Not Permitted"}, 
+       LegendMarkers -> {{False, Automatic}}, Joined -> {True}, 
+       LabelStyle -> {}, LegendLayout -> "Column"]], {0.8, 0.8}, Identity]]& ],
+  AutoDelete->True,
+  Editable->True,
+  SelectWithContents->False,
+  Selectable->True]], "Output",
  CellChangeTimes->{
-  3.799741502689794*^9, {3.799741535849461*^9, 3.799741552421587*^9}, 
-   3.7997416176554737`*^9, {3.799741660596031*^9, 3.7997416680719147`*^9}, {
-   3.799741733773654*^9, 3.7997418543101997`*^9}},
+  3.792481190613813*^9, 3.7924812489222*^9, {3.7924813352373238`*^9, 
+   3.792481339722481*^9}, {3.792481380108781*^9, 3.792481412060347*^9}, 
+   3.792481557084991*^9, {3.792481627661607*^9, 3.792481642963335*^9}, 
+   3.792481707566607*^9, {3.7924818056965*^9, 3.792481868137397*^9}, {
+   3.7924819287092543`*^9, 3.7924819598813467`*^9}, {3.792481993588787*^9, 
+   3.792482032851954*^9}, 3.792482095153644*^9, {3.792482218173798*^9, 
+   3.79248222852962*^9}, {3.7924823057854557`*^9, 3.79248231339263*^9}, 
+   3.7924823537475433`*^9, 3.792482415895907*^9, 3.792482590436059*^9, 
+   3.792482630451292*^9, 3.792482864280467*^9, {3.792482929267036*^9, 
+   3.79248294620431*^9}, 3.7924829783447037`*^9, 3.792483063535203*^9, {
+   3.792483117822504*^9, 3.7924831284536552`*^9}, {3.792483210947192*^9, 
+   3.792483374547078*^9}, {3.792483412450268*^9, 3.792483470524459*^9}, {
+   3.792483544635777*^9, 3.792483579446789*^9}, 3.7924836211857*^9, {
+   3.792483671577915*^9, 3.792483689511731*^9}, {3.792483723818544*^9, 
+   3.7924838109687433`*^9}, {3.7924838421144743`*^9, 
+   3.7924838704825487`*^9}, {3.792483918119158*^9, 3.7924840835786953`*^9}, 
+   3.792484123384119*^9, 3.7924841651309357`*^9, 3.7924844128681803`*^9, 
+   3.7924879650895147`*^9, 3.792487997415801*^9, 3.7924880999546127`*^9, 
+   3.7924881777475653`*^9, 3.792488218974638*^9, 3.7924884332837276`*^9, 
+   3.7924884771839533`*^9, {3.7924901602985687`*^9, 3.792490179676384*^9}, {
+   3.792490210370976*^9, 3.792490219073657*^9}, {3.800174189029745*^9, 
+   3.8001742001015587`*^9}, {3.8001742702715693`*^9, 3.800174283057023*^9}, {
+   3.800174326807637*^9, 3.800174343008148*^9}, {3.8001803814510107`*^9, 
+   3.800180409313816*^9}, {3.800180453424097*^9, 3.800180483410715*^9}, {
+   3.800180532406633*^9, 3.800180692940905*^9}},
  CellLabel->
-  "Out[137]=",ExpressionUUID->"6ecdd54a-2d95-4153-938e-1cfc86d7d97b"]
-}, Open  ]]
+  "Out[427]=",ExpressionUUID->"6bb2668f-d482-4eea-8433-a94f84b4c432"]
 }, Open  ]]
+}, Closed]]
 }, Open  ]]
 },
-WindowSize->{808, 911},
-WindowMargins->{{436, Automatic}, {-67, Automatic}},
+WindowSize->{808, 934},
+WindowMargins->{{Automatic, 221}, {Automatic, 24}},
 FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
 StyleDefinitions->"Default.nb"
 ]
@@ -6625,115 +21257,378 @@ CellTagsIndex->{}
 Notebook[{
 Cell[558, 20, 166, 3, 35, "Text",ExpressionUUID->"607aa170-a31b-46bf-853d-1323334df302"],
 Cell[727, 25, 617, 12, 127, "Text",ExpressionUUID->"95f42b5d-055c-4dbf-84a0-f12b50c01fc0"],
-Cell[1347, 39, 203, 4, 30, "Input",ExpressionUUID->"48ed9086-116a-42f0-a5b0-679401b983a5"],
+Cell[1347, 39, 198, 3, 30, "Input",ExpressionUUID->"48ed9086-116a-42f0-a5b0-679401b983a5"],
+Cell[CellGroupData[{
+Cell[1570, 46, 211, 4, 67, "Section",ExpressionUUID->"359dd1e5-ec51-45ba-a423-1546b165ab5d"],
+Cell[CellGroupData[{
+Cell[1806, 54, 152, 3, 54, "Subsection",ExpressionUUID->"362c3668-1de1-490e-a5cb-8a4e0ce170c9"],
+Cell[1961, 59, 243, 4, 52, "Code",ExpressionUUID->"51ee50b1-943d-429a-8a98-22f1b5129b56"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[2241, 68, 258, 4, 38, "Subsection",ExpressionUUID->"b4cafe99-5c10-49df-bec1-70b77254830c"],
+Cell[CellGroupData[{
+Cell[2524, 76, 749, 13, 110, "Code",ExpressionUUID->"28d9c623-2f35-4b48-afc0-bf102c8402c2"],
+Cell[3276, 91, 4294, 65, 70, "Message",ExpressionUUID->"20c619b8-deb9-4d28-9c8a-cebe7e4279c9"],
+Cell[7573, 158, 4120, 63, 70, "Message",ExpressionUUID->"75449cf3-ac2e-42a2-a4b4-f95728952ac3"],
+Cell[11696, 223, 4299, 66, 70, "Message",ExpressionUUID->"1271dc18-b95e-448d-a5f4-4fe16e987d3c"],
+Cell[15998, 291, 4341, 67, 70, "Message",ExpressionUUID->"f14306e6-a8fe-4a55-b18f-81648a88ca8c"],
+Cell[20342, 360, 3981, 62, 70, "Message",ExpressionUUID->"48c073fb-c447-48f6-b5a2-1a1e85b3138e"],
+Cell[24326, 424, 4014, 61, 70, "Message",ExpressionUUID->"6f5ad4e6-ad41-488e-92bc-cd66fc260f5e"]
+}, Open  ]],
 Cell[CellGroupData[{
-Cell[1575, 47, 211, 4, 67, "Section",ExpressionUUID->"359dd1e5-ec51-45ba-a423-1546b165ab5d"],
+Cell[28377, 490, 424, 7, 52, "Code",ExpressionUUID->"2038f51c-ef1d-478a-a6d8-12f5b4a73949"],
+Cell[28804, 499, 30742, 765, 70, "Output",ExpressionUUID->"c9b5e1e6-0bb3-4453-be55-4d753260e308"]
+}, Open  ]]
+}, Closed]],
 Cell[CellGroupData[{
-Cell[1811, 55, 152, 3, 54, "Subsection",ExpressionUUID->"362c3668-1de1-490e-a5cb-8a4e0ce170c9"],
-Cell[1966, 60, 243, 4, 52, "Code",ExpressionUUID->"51ee50b1-943d-429a-8a98-22f1b5129b56"]
+Cell[59595, 1270, 172, 3, 38, "Subsection",ExpressionUUID->"35de4bd5-32a5-45fa-b33c-c1c4fc79cc04"],
+Cell[59770, 1275, 1335, 38, 167, "Code",ExpressionUUID->"a948f404-6fd9-4fe5-a838-380ebe7da944"]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[2246, 69, 258, 4, 38, "Subsection",ExpressionUUID->"b4cafe99-5c10-49df-bec1-70b77254830c"],
+Cell[61142, 1318, 190, 3, 38, "Subsection",ExpressionUUID->"50fb9a2d-d04b-4421-9e43-ccbb4c1c0bd3"],
+Cell[CellGroupData[{
+Cell[61357, 1325, 5296, 136, 224, "Code",ExpressionUUID->"1ad43db6-9498-4d09-bd75-e999ffd7c57c"],
+Cell[66656, 1463, 2449, 39, 70, "Print",ExpressionUUID->"c5b13547-f526-4a03-83fd-16c12c53e5ab"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[69142, 1507, 5223, 134, 205, "Code",ExpressionUUID->"0fd01fca-9e4d-45c8-aa33-cd917ee1a17c"],
+Cell[74368, 1643, 1253, 26, 70, "Print",ExpressionUUID->"321cf719-f666-43ec-935c-c83a1e4d2f4b"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[75658, 1674, 5776, 139, 224, "Code",ExpressionUUID->"77ab1cfc-93f2-4366-a35a-f2f21c62690e"],
+Cell[81437, 1815, 918, 18, 70, "Print",ExpressionUUID->"ff92c27f-5341-441a-9552-32e22231ba20"]
+}, Open  ]],
 Cell[CellGroupData[{
-Cell[2529, 77, 731, 14, 110, "Code",ExpressionUUID->"28d9c623-2f35-4b48-afc0-bf102c8402c2"],
-Cell[3263, 93, 4072, 62, 42, "Message",ExpressionUUID->"3a083d41-624c-433b-8f6c-7554d496da5d"],
-Cell[7338, 157, 3931, 61, 24, "Message",ExpressionUUID->"53368634-5397-480e-86b4-81420dba9e61"],
-Cell[11272, 220, 3968, 60, 24, "Message",ExpressionUUID->"d23e9f49-eabe-49e7-81c0-b72f5919b75a"],
-Cell[15243, 282, 4249, 65, 42, "Message",ExpressionUUID->"eef537de-e7c0-4112-ab75-d5eb954989ae"],
-Cell[19495, 349, 4283, 65, 42, "Message",ExpressionUUID->"b5bdc1f5-72c3-480e-bccd-59fb8caa8275"],
-Cell[23781, 416, 4253, 65, 42, "Message",ExpressionUUID->"a7f5fd78-4a9d-4d3e-ba04-3b2dc7fa838e"]
+Cell[82392, 1838, 5971, 142, 224, "Code",ExpressionUUID->"f7117468-dbb9-4616-a069-36663920d67a"],
+Cell[88366, 1982, 1080, 20, 70, "Print",ExpressionUUID->"31b0ffb0-31b6-4529-8e67-a058637265ca"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[28071, 486, 424, 7, 52, "Code",ExpressionUUID->"2038f51c-ef1d-478a-a6d8-12f5b4a73949"],
-Cell[28498, 495, 30902, 779, 34, "Output",ExpressionUUID->"f92f6d8d-3a3f-4fd9-8774-4ee9966c211a"]
+Cell[89483, 2007, 6420, 153, 224, "Code",ExpressionUUID->"dc83ef56-f120-4495-9245-8a021c3a3982"],
+Cell[95906, 2162, 923, 18, 70, "Print",ExpressionUUID->"b0bb5aca-c07d-4584-ae06-71ea70c2ab4a"]
 }, Open  ]]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[59449, 1280, 172, 3, 38, "Subsection",ExpressionUUID->"35de4bd5-32a5-45fa-b33c-c1c4fc79cc04"],
-Cell[59624, 1285, 1335, 38, 167, "Code",ExpressionUUID->"a948f404-6fd9-4fe5-a838-380ebe7da944"]
+Cell[96878, 2186, 161, 3, 38, "Subsection",ExpressionUUID->"5d30e1c1-8625-4a00-be98-1c819cd86f4c"],
+Cell[97042, 2191, 687, 13, 52, "Input",ExpressionUUID->"b5d331c0-4beb-4074-96a9-fbaf549e0231"],
+Cell[97732, 2206, 7643, 205, 126, "Code",ExpressionUUID->"cfc40657-89f8-4127-89c9-d0b86703f68c"],
+Cell[105378, 2413, 6161, 159, 74, "Code",ExpressionUUID->"2da6bdd4-9a3e-491c-8ac0-864bd1df73dc"],
+Cell[111542, 2574, 7183, 180, 74, "Code",ExpressionUUID->"e677e2a6-f3af-4ae7-a350-40d556f009cb"],
+Cell[118728, 2756, 8371, 217, 126, "Code",ExpressionUUID->"cab98d8f-8fbd-48d0-b448-9471155c97cb"],
+Cell[127102, 2975, 7744, 194, 87, "Code",ExpressionUUID->"0267a229-a6d0-4957-983c-48ec871caa20"],
+Cell[134849, 3171, 7742, 194, 87, "Code",ExpressionUUID->"757b9d70-4a08-4bc0-a1be-a30efbfd8eb8"],
+Cell[142594, 3367, 4794, 125, 87, "Code",ExpressionUUID->"970dfa80-5cdd-4f81-91fc-d1a3907c1372"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[147425, 3497, 159, 3, 38, "Subsection",ExpressionUUID->"a3dc796b-7d10-4de5-a008-e0220a368313"],
+Cell[147587, 3502, 3625, 118, 224, "Code",ExpressionUUID->"a8c0d528-cd9a-4968-a954-ae2d9a72ec09"]
+}, Closed]]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[151261, 3626, 166, 3, 67, "Section",ExpressionUUID->"f03bc825-1521-4851-a5f1-6b1883555b64"],
+Cell[CellGroupData[{
+Cell[151452, 3633, 1226, 18, 54, "Subsection",ExpressionUUID->"72589bbd-52d7-448c-9e07-de570aaa91a1"],
+Cell[152681, 3653, 1225, 20, 30, "Input",ExpressionUUID->"64505dfe-3bce-42a2-b055-674f282dde89"],
+Cell[CellGroupData[{
+Cell[153931, 3677, 1026, 29, 52, "Input",ExpressionUUID->"719fbc17-d50a-4f25-ac5d-a6aef37f69ae"],
+Cell[154960, 3708, 626, 10, 51, "Output",ExpressionUUID->"058d8d59-638e-4520-b74c-d83cffecbc8c"],
+Cell[155589, 3720, 607, 9, 34, "Output",ExpressionUUID->"99022d75-8502-4f4a-8870-ada7da5f945b"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[156233, 3734, 529, 13, 30, "Input",ExpressionUUID->"3985141c-be0d-4e4e-a042-57220e2c8e73"],
+Cell[156765, 3749, 739, 19, 54, "Output",ExpressionUUID->"bfef73d6-6784-4aec-b690-a22be7c9b4ad"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[157541, 3773, 548, 17, 30, "Input",ExpressionUUID->"d14ed336-3d9c-4223-a7b0-60c6dacdcad0"],
+Cell[158092, 3792, 1561, 49, 97, "Output",ExpressionUUID->"59dd66ab-891c-44bd-b39a-656047274a0c"]
+}, Open  ]],
+Cell[159668, 3844, 1070, 26, 30, "Input",ExpressionUUID->"bb1e81bf-6f7b-4d93-a9ac-53d6fd8c1489"],
+Cell[CellGroupData[{
+Cell[160763, 3874, 479, 11, 30, "Input",ExpressionUUID->"024bcf28-8095-42df-9004-51269bdbc461"],
+Cell[161245, 3887, 444, 10, 24, "Message",ExpressionUUID->"8833624e-8881-4de4-8375-ecdb2d5b06fc"],
+Cell[161692, 3899, 159, 3, 34, "Output",ExpressionUUID->"db91f67c-cd2c-4151-88c9-950169087d6e"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[161888, 3907, 534, 11, 30, "Input",ExpressionUUID->"37047281-e390-4fa8-8ee7-c348b35cfac5"],
+Cell[162425, 3920, 705, 20, 78, "Output",ExpressionUUID->"acdcc1f5-5db7-4c33-96d8-246536ef6bc7"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[163167, 3945, 825, 18, 30, "Input",ExpressionUUID->"cf9b9008-43f4-4e17-bf0d-421fed27767c"],
+Cell[163995, 3965, 32915, 609, 230, "Output",ExpressionUUID->"c9604202-5ccf-4f05-bd86-f7e2d46659c2"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[196947, 4579, 814, 24, 52, "Input",ExpressionUUID->"7a19f391-ea85-4ac1-9169-0e71076cc730"],
+Cell[197764, 4605, 379, 8, 34, "Output",ExpressionUUID->"885eab31-d901-41e9-a3c3-27e40e1b2597"],
+Cell[198146, 4615, 1038, 31, 37, "Output",ExpressionUUID->"810e491c-0f35-4674-836e-b70b6ec08f67"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[199221, 4651, 1253, 26, 30, "Input",ExpressionUUID->"1c093b45-c7e6-436b-b249-347e2408b6ea"],
+Cell[200477, 4679, 1160, 18, 24, "Print",ExpressionUUID->"e6d6d668-3c70-457a-b89e-87b1c4dccbd1"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[201674, 4702, 8207, 153, 241, "Input",ExpressionUUID->"84f93c30-180e-48f1-b654-ba099d58a792"],
+Cell[209884, 4857, 43943, 873, 237, "Output",ExpressionUUID->"8e495db3-dec7-4c20-999f-0778b45c18fd"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[253864, 5735, 788, 19, 30, "Input",ExpressionUUID->"1e1403dd-e8e6-4dfd-b8d9-a24853eb585c"],
+Cell[254655, 5756, 15662, 321, 248, "Output",ExpressionUUID->"b7c41775-e083-429f-a12f-e84252548d72"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[270354, 6082, 763, 23, 52, "Input",ExpressionUUID->"7f9ff39f-8710-49f8-a542-c9f973274d82"],
+Cell[271120, 6107, 288, 5, 34, "Output",ExpressionUUID->"7c99b552-a19f-44eb-b388-8c08bca69728"]
+}, Open  ]],
+Cell[271423, 6115, 253, 6, 30, "Input",ExpressionUUID->"38603e06-81f9-4540-b442-c2b9eb49ef1f"],
+Cell[CellGroupData[{
+Cell[271701, 6125, 1344, 43, 94, "Input",ExpressionUUID->"e757a525-69f7-4d56-83c3-fc04f587b774"],
+Cell[273048, 6170, 323, 6, 34, "Output",ExpressionUUID->"3b5686dd-093e-4e89-bc6e-2fa6fdded850"],
+Cell[273374, 6178, 320, 6, 34, "Output",ExpressionUUID->"68c7f9d2-8dcc-49c1-9ea4-2d806ade74f4"]
+}, Open  ]]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[60996, 1328, 190, 3, 38, "Subsection",ExpressionUUID->"50fb9a2d-d04b-4421-9e43-ccbb4c1c0bd3"],
+Cell[273743, 6190, 1218, 17, 38, "Subsection",ExpressionUUID->"b2820fff-bf8c-40c3-b557-8da092f86f4d"],
+Cell[274964, 6209, 1271, 21, 30, "Input",ExpressionUUID->"3ef9ecbc-c1f2-4a48-955d-4ebded0720f2"],
+Cell[CellGroupData[{
+Cell[276260, 6234, 1026, 29, 52, "Input",ExpressionUUID->"5e8acc5b-d57e-4cd3-afd8-01af9a7f0214"],
+Cell[277289, 6265, 646, 10, 51, "Output",ExpressionUUID->"603a021f-99a3-4d1c-917a-f07c14ee9571"],
+Cell[277938, 6277, 632, 9, 34, "Output",ExpressionUUID->"ff5abd93-f1d7-433e-af55-010a77d25c41"]
+}, Open  ]],
+Cell[278585, 6289, 1070, 26, 30, "Input",ExpressionUUID->"44fbb0a8-b946-400a-b087-2cbbd124e507"],
+Cell[CellGroupData[{
+Cell[279680, 6319, 814, 24, 52, "Input",ExpressionUUID->"8efacc6e-2635-4c77-8de1-f8af2a464add"],
+Cell[280497, 6345, 401, 8, 34, "Output",ExpressionUUID->"ce57dd36-adac-4715-9653-7a0281933f9f"],
+Cell[280901, 6355, 1062, 31, 37, "Output",ExpressionUUID->"f148db56-d3f5-4438-9e20-f0b3b27f757e"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[282000, 6391, 349, 8, 30, "Input",ExpressionUUID->"beee0b9e-f64b-4695-b3ae-7af4ced4148e"],
+Cell[282352, 6401, 580, 18, 59, "Output",ExpressionUUID->"b03a74d9-dbee-4aae-974b-34c5a517ca89"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[282969, 6424, 1385, 29, 30, "Input",ExpressionUUID->"44e9fca0-a2b6-40c2-acd5-969ff36f73de"],
+Cell[284357, 6455, 1208, 19, 24, "Print",ExpressionUUID->"bc4a9936-ccb5-4fd6-a83c-b3a4d43052de"]
+}, Open  ]],
 Cell[CellGroupData[{
-Cell[61211, 1335, 5296, 136, 224, "Code",ExpressionUUID->"1ad43db6-9498-4d09-bd75-e999ffd7c57c"],
-Cell[66510, 1473, 2405, 39, 70, "Print",ExpressionUUID->"f9a60beb-52dc-48b6-99fd-766e2c1a49a3"]
+Cell[285602, 6479, 8239, 153, 241, "Input",ExpressionUUID->"a18ecb8d-96bc-4b7c-a3a6-b402877a8aa7"],
+Cell[293844, 6634, 43970, 874, 237, "Output",ExpressionUUID->"5e8d1719-5585-41b7-af48-00c401a7b5e7"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[68952, 1517, 5223, 134, 205, "Code",ExpressionUUID->"0fd01fca-9e4d-45c8-aa33-cd917ee1a17c"],
-Cell[74178, 1653, 1237, 26, 70, "Print",ExpressionUUID->"387174a0-e39d-4e4a-9f9e-81ac4cefcb4e"]
+Cell[337851, 7513, 788, 19, 30, "Input",ExpressionUUID->"565e8596-4dc2-441a-8302-b53cc1f29c77"],
+Cell[338642, 7534, 28603, 541, 248, "Output",ExpressionUUID->"22ebddef-18bc-479d-a8ff-19e35db5b592"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[75452, 1684, 5776, 139, 224, "Code",ExpressionUUID->"77ab1cfc-93f2-4366-a35a-f2f21c62690e"],
-Cell[81231, 1825, 872, 17, 70, "Print",ExpressionUUID->"a84cd5ca-f2d0-4f50-b4b2-33f2d4e43472"]
+Cell[367282, 8080, 763, 23, 52, "Input",ExpressionUUID->"cc65265d-0cfe-4427-b7e5-0a15535d81cf"],
+Cell[368048, 8105, 311, 5, 34, "Output",ExpressionUUID->"165c943e-61fb-4db1-b256-d4ddb7d91843"]
 }, Open  ]],
+Cell[368374, 8113, 253, 6, 30, "Input",ExpressionUUID->"3090482e-6c5c-4f63-b628-0b772cc2d3bf"],
 Cell[CellGroupData[{
-Cell[82140, 1847, 5971, 142, 224, "Code",ExpressionUUID->"f7117468-dbb9-4616-a069-36663920d67a"],
-Cell[88114, 1991, 1028, 19, 70, "Print",ExpressionUUID->"ca853243-7719-479d-9642-9bee5294e811"]
+Cell[368652, 8123, 1344, 43, 94, "Input",ExpressionUUID->"8a5b6906-12c3-45e9-94db-2214437f6f1d"],
+Cell[369999, 8168, 347, 6, 34, "Output",ExpressionUUID->"6d432a27-bd5f-486b-a489-63a850ae6102"],
+Cell[370349, 8176, 344, 6, 34, "Output",ExpressionUUID->"503e8131-6d9d-4f5d-83a6-5c9f15ca6dba"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[89179, 2015, 6420, 153, 224, "Code",ExpressionUUID->"dc83ef56-f120-4495-9245-8a021c3a3982"],
-Cell[95602, 2170, 873, 17, 70, "Print",ExpressionUUID->"a092876b-0262-4cc7-a80b-027026a449cb"]
+Cell[370730, 8187, 795, 21, 30, "Input",ExpressionUUID->"843cfd2f-69c2-46f4-8b37-bf4d35a364e2"],
+Cell[371528, 8210, 16718, 333, 254, "Output",ExpressionUUID->"351b1ced-1b62-4b15-a826-224777724a80"]
 }, Open  ]]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[96524, 2193, 161, 3, 38, "Subsection",ExpressionUUID->"5d30e1c1-8625-4a00-be98-1c819cd86f4c"],
-Cell[96688, 2198, 687, 13, 52, "Input",ExpressionUUID->"b5d331c0-4beb-4074-96a9-fbaf549e0231"],
-Cell[97378, 2213, 7643, 205, 126, "Code",ExpressionUUID->"cfc40657-89f8-4127-89c9-d0b86703f68c"],
-Cell[105024, 2420, 6161, 159, 74, "Code",ExpressionUUID->"2da6bdd4-9a3e-491c-8ac0-864bd1df73dc"],
-Cell[111188, 2581, 7183, 180, 74, "Code",ExpressionUUID->"e677e2a6-f3af-4ae7-a350-40d556f009cb"],
-Cell[118374, 2763, 8371, 217, 126, "Code",ExpressionUUID->"cab98d8f-8fbd-48d0-b448-9471155c97cb"],
-Cell[126748, 2982, 7744, 194, 87, "Code",ExpressionUUID->"0267a229-a6d0-4957-983c-48ec871caa20"],
-Cell[134495, 3178, 7742, 194, 87, "Code",ExpressionUUID->"757b9d70-4a08-4bc0-a1be-a30efbfd8eb8"],
-Cell[142240, 3374, 4794, 125, 87, "Code",ExpressionUUID->"970dfa80-5cdd-4f81-91fc-d1a3907c1372"]
+Cell[388295, 8549, 1182, 17, 38, "Subsection",ExpressionUUID->"37266eb5-8195-46d9-9a9f-dc6f7b0c4e42"],
+Cell[389480, 8568, 1327, 21, 30, "Input",ExpressionUUID->"f2c60745-11df-4b9e-8051-c69371e69dca"],
+Cell[390810, 8591, 1015, 24, 30, "Input",ExpressionUUID->"e7d3970f-a814-42d5-8628-fabec9687213"],
+Cell[CellGroupData[{
+Cell[391850, 8619, 757, 18, 30, "Input",ExpressionUUID->"a4192e9e-8e22-4457-9aa1-67d399dbac4f"],
+Cell[392610, 8639, 265, 5, 24, "Print",ExpressionUUID->"50897667-9781-4278-a9a3-8ee39432db80"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[392912, 8649, 8054, 156, 241, "Input",ExpressionUUID->"7b6c4690-015e-4366-94b4-6ab38f039057"],
+Cell[400969, 8807, 43244, 855, 237, "Output",ExpressionUUID->"dbc97866-cb98-4423-86d6-8d45d26c2193"],
+Cell[444216, 9664, 4845, 100, 220, "Output",ExpressionUUID->"51c94f0b-c84f-4066-b4c4-9d24b6fd79a1"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[449098, 9769, 763, 23, 52, "Input",ExpressionUUID->"d085706e-a105-47d4-ab54-c587323ea7e2"],
+Cell[449864, 9794, 241, 4, 34, "Output",ExpressionUUID->"07235865-1dfb-4e17-9206-09e93c9845de"]
+}, Open  ]],
+Cell[450120, 9801, 253, 6, 30, "Input",ExpressionUUID->"4ab87890-76c2-4a56-8e4e-9f0ed3234489"],
+Cell[CellGroupData[{
+Cell[450398, 9811, 1344, 43, 94, "Input",ExpressionUUID->"6190f88e-521c-4d0a-892d-6bb8d284f63d"],
+Cell[451745, 9856, 273, 5, 34, "Output",ExpressionUUID->"2167ca09-4ace-4c44-81b0-100d2bce83d6"],
+Cell[452021, 9863, 272, 5, 34, "Output",ExpressionUUID->"fd40c151-392a-48c4-a90b-4b4b0a7dfc79"]
+}, Open  ]]
 }, Closed]]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[147083, 3505, 166, 3, 67, "Section",ExpressionUUID->"f03bc825-1521-4851-a5f1-6b1883555b64"],
+Cell[452354, 9875, 176, 3, 67, "Section",ExpressionUUID->"5749bd47-dc02-4cba-a2cf-201a855b2151"],
+Cell[CellGroupData[{
+Cell[452555, 9882, 159, 3, 54, "Subsection",ExpressionUUID->"ba981157-8458-4263-8a67-f9cf60ef2f96"],
+Cell[CellGroupData[{
+Cell[452739, 9889, 163, 3, 45, "Subsubsection",ExpressionUUID->"91514f64-9c96-4556-9a7d-de6137f482de"],
+Cell[CellGroupData[{
+Cell[452927, 9896, 1825, 34, 52, "Input",ExpressionUUID->"9b04f69d-c730-4354-be2b-0ff586112713"],
+Cell[454755, 9932, 882, 16, 56, "Output",ExpressionUUID->"8ba5fccb-8517-4874-a4ee-b289e34b65b2"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[455674, 9953, 2417, 53, 30, "Input",ExpressionUUID->"3efbf911-69a1-4c12-b496-7f764f1c490e"],
+Cell[458094, 10008, 1012, 19, 42, "Message",ExpressionUUID->"8a089ba7-f1c6-41da-9d08-bee973db1d28"],
+Cell[459109, 10029, 1013, 19, 42, "Message",ExpressionUUID->"4ac63832-f9d9-4cb0-8816-7c3cdb5ffee5"],
+Cell[460125, 10050, 1014, 19, 42, "Message",ExpressionUUID->"47058735-8125-49a5-bd1d-2553eda1a769"],
+Cell[461142, 10071, 673, 13, 24, "Message",ExpressionUUID->"d541179d-cefe-4ba6-9fb9-383b81def286"]
+}, Open  ]],
+Cell[461830, 10087, 152, 3, 30, "Input",ExpressionUUID->"4f6dbc9e-018a-45fc-a0c5-c3e73e2aad7b"],
+Cell[CellGroupData[{
+Cell[462007, 10094, 911, 27, 30, "Input",ExpressionUUID->"913fa8d3-9c8c-44c2-92b3-f2e8f8fbacc7"],
+Cell[462921, 10123, 3946, 94, 125, "Output",ExpressionUUID->"d998e05f-9766-4ca6-b1cb-9aa9473dd663"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[466904, 10222, 2328, 50, 30, "Input",ExpressionUUID->"b9d155d0-8b4f-4054-b42c-ccb1e63fe718"],
+Cell[469235, 10274, 1039, 20, 42, "Message",ExpressionUUID->"a53f9c7c-d5b5-4dd8-8b97-5659db357fa2"],
+Cell[470277, 10296, 1039, 20, 42, "Message",ExpressionUUID->"c818faf6-7393-4709-825c-b00491e03a05"],
+Cell[471319, 10318, 1040, 20, 42, "Message",ExpressionUUID->"d6b7d95d-653a-460c-9f17-ff19f802a117"],
+Cell[472362, 10340, 696, 14, 24, "Message",ExpressionUUID->"05ca9c57-7f90-47dc-85cc-c718cdc3f4ef"]
+}, Open  ]],
+Cell[473073, 10357, 1026, 29, 30, "Input",ExpressionUUID->"7971435f-5055-4a09-9e33-0f0fe97bb315"],
+Cell[CellGroupData[{
+Cell[474124, 10390, 2754, 59, 52, "Input",ExpressionUUID->"58cf74f9-28e9-4477-aac8-5da15fef6a6b"],
+Cell[476881, 10451, 65571, 1315, 375, "Output",ExpressionUUID->"82263251-b5a1-4981-9207-bab08af71f79"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[542489, 11771, 420, 9, 30, "Input",ExpressionUUID->"556f4d54-63b0-42df-b2c4-d7614736c084"],
+Cell[542912, 11782, 14919, 293, 72, "Output",ExpressionUUID->"6cba4079-b797-4eb6-b81f-f65a03d2bcb8"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[557868, 12080, 536, 15, 30, "Input",ExpressionUUID->"7ab3cc3f-7877-4657-abf8-9aa902e5f925"],
+Cell[558407, 12097, 626, 13, 31, "Message",ExpressionUUID->"7b5328cc-a5bc-4b41-919e-acf7a5e3cdaf"],
+Cell[559036, 12112, 448, 7, 34, "Output",ExpressionUUID->"e519fec0-81d0-4f43-a799-353774898003"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[559521, 12124, 652, 20, 30, "Input",ExpressionUUID->"48719bc6-b11c-45d6-be98-c04cd9bb05a3"],
+Cell[560176, 12146, 365, 6, 34, "Output",ExpressionUUID->"d8936bad-3090-44bb-a131-3441a53cd3f7"]
+}, Open  ]],
+Cell[560556, 12155, 244, 5, 30, "Input",ExpressionUUID->"233b0640-c5e0-483d-aec3-d3b8da0603af"],
+Cell[CellGroupData[{
+Cell[560825, 12164, 237, 5, 30, "Input",ExpressionUUID->"3c5eac13-4bdd-4118-a482-3e8f2d72cb51"],
+Cell[561065, 12171, 392, 6, 34, "Output",ExpressionUUID->"6f7cd046-e229-4191-81bd-08e368b6f58e"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[561494, 12182, 532, 15, 30, "Input",ExpressionUUID->"2768cbf9-1327-4c03-bc9f-c36e43ed3072"],
+Cell[562029, 12199, 17657, 348, 111, "Output",ExpressionUUID->"b5b48068-bb24-417a-99fb-07b8f6c63396"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[579723, 12552, 2895, 63, 52, "Input",ExpressionUUID->"29809a07-f28c-4e9a-bd5c-5a7a727ee9dc"],
+Cell[582621, 12617, 557, 12, 31, "Message",ExpressionUUID->"fa40aa18-95c3-4025-9927-5c7482b99490"],
+Cell[583181, 12631, 88809, 1684, 381, "Output",ExpressionUUID->"927f5c7b-6faf-4735-9e9d-0aa869cf0760"]
+}, Open  ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[672039, 14321, 154, 3, 37, "Subsubsection",ExpressionUUID->"e4a9ae43-463d-4aae-9abe-517b2016b6ca"],
+Cell[CellGroupData[{
+Cell[672218, 14328, 2316, 47, 115, "Input",ExpressionUUID->"3fe47531-a7d0-4d41-9f59-1f3102766ae8"],
+Cell[674537, 14377, 1147, 19, 77, "Output",ExpressionUUID->"a152b91b-b458-4cd1-8363-ba94273c3c8d"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[675721, 14401, 2568, 55, 94, "Input",ExpressionUUID->"1bc4d925-a394-449d-8bba-c94874c4fa65"],
+Cell[678292, 14458, 1180, 21, 24, "Message",ExpressionUUID->"559f7c3e-4e6b-4681-95cc-1c6ae7b8f0fd"],
+Cell[679475, 14481, 1179, 21, 24, "Message",ExpressionUUID->"a03ea14c-a34a-4e0f-86ba-121236a87130"],
+Cell[680657, 14504, 1179, 21, 24, "Message",ExpressionUUID->"30714085-ef14-4eb4-b627-1d2f3bfc00e4"],
+Cell[681839, 14527, 952, 17, 24, "Message",ExpressionUUID->"42aac114-2832-4de4-824a-a72e3ce66945"],
+Cell[682794, 14546, 1081, 19, 59, "Message",ExpressionUUID->"1e27ca73-b537-4543-8e8e-c07e204ce5f6"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[683912, 14570, 911, 27, 30, "Input",ExpressionUUID->"3dd985d9-e310-44bb-bc2f-3fcab7398255"],
+Cell[684826, 14599, 4667, 102, 338, "Output",ExpressionUUID->"4bd4ed0c-c8bb-4d6a-a163-b661e6f03d29"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[689530, 14706, 2810, 58, 94, "Input",ExpressionUUID->"b4d18414-8188-41fa-b618-674e8f51b53b"],
+Cell[692343, 14766, 49517, 992, 375, "Output",ExpressionUUID->"6a9a61aa-604d-4288-a37f-a81070aa1cfd"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[741897, 15763, 393, 7, 30, "Input",ExpressionUUID->"06d8e1bc-d18c-40eb-b92d-0492e501527f"],
+Cell[742293, 15772, 15394, 305, 72, "Output",ExpressionUUID->"0e75f126-76c2-43a1-ad69-b41f9e8953ce"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[757724, 16082, 536, 15, 30, "Input",ExpressionUUID->"8e1d18ee-f4b4-4c81-9b77-e309ca9dd150"],
+Cell[758263, 16099, 494, 7, 34, "Output",ExpressionUUID->"d11484fd-da0b-4d1d-a446-ef1f1143e3b8"]
+}, Open  ]],
 Cell[CellGroupData[{
-Cell[147274, 3512, 1179, 18, 81, "Subsection",ExpressionUUID->"72589bbd-52d7-448c-9e07-de570aaa91a1"],
-Cell[148456, 3532, 1221, 19, 30, "Input",ExpressionUUID->"64505dfe-3bce-42a2-b055-674f282dde89"],
+Cell[758794, 16111, 652, 20, 30, "Input",ExpressionUUID->"1d6312bc-4e1f-497e-8ed8-d1e2793b88d5"],
+Cell[759449, 16133, 413, 6, 34, "Output",ExpressionUUID->"c0a5c8f3-607b-4c8d-a9af-5919900f2136"]
+}, Open  ]],
+Cell[759877, 16142, 244, 5, 30, "Input",ExpressionUUID->"7e573cba-a3ac-47b8-be57-4afbf9fbc155"],
 Cell[CellGroupData[{
-Cell[149702, 3555, 1022, 28, 73, "Input",ExpressionUUID->"719fbc17-d50a-4f25-ac5d-a6aef37f69ae"],
-Cell[150727, 3585, 600, 9, 51, "Output",ExpressionUUID->"3847cf13-919c-4a6b-938a-398839373961"],
-Cell[151330, 3596, 581, 8, 34, "Output",ExpressionUUID->"b3f85246-65e3-41d8-8483-b38b57662aca"]
+Cell[760146, 16151, 237, 5, 30, "Input",ExpressionUUID->"119eb2f2-c52d-4c23-8ce9-f4108a17b21b"],
+Cell[760386, 16158, 444, 7, 34, "Output",ExpressionUUID->"744cdeab-8661-480f-9429-6314d25f2f9f"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[151948, 3609, 525, 12, 30, "Input",ExpressionUUID->"3985141c-be0d-4e4e-a042-57220e2c8e73"],
-Cell[152476, 3623, 713, 18, 54, "Output",ExpressionUUID->"673921fa-9f44-4817-b066-54a2b4882ccb"]
+Cell[760867, 16170, 532, 15, 30, "Input",ExpressionUUID->"3a12b6e6-45e3-468a-8efb-00c40989b72b"],
+Cell[761402, 16187, 18105, 358, 111, "Output",ExpressionUUID->"5a1f1907-45cd-4875-8a1e-325e800f8f37"]
 }, Open  ]],
-Cell[153204, 3644, 536, 16, 30, "Input",ExpressionUUID->"d14ed336-3d9c-4223-a7b0-60c6dacdcad0"],
-Cell[153743, 3662, 1066, 25, 30, "Input",ExpressionUUID->"bb1e81bf-6f7b-4d93-a9ac-53d6fd8c1489"],
-Cell[154812, 3689, 475, 10, 30, "Input",ExpressionUUID->"024bcf28-8095-42df-9004-51269bdbc461"],
 Cell[CellGroupData[{
-Cell[155312, 3703, 534, 11, 30, "Input",ExpressionUUID->"37047281-e390-4fa8-8ee7-c348b35cfac5"],
-Cell[155849, 3716, 681, 20, 78, "Output",ExpressionUUID->"70a0d93b-5686-4212-8bd8-09e2583efa57"]
+Cell[779544, 16550, 2932, 62, 115, "Input",ExpressionUUID->"bd8b7fe4-63fa-46b5-aa40-fbfc70b87779"],
+Cell[782479, 16614, 78570, 1513, 381, "Output",ExpressionUUID->"d3e4cbd9-ae03-4519-8655-11373ebd68ef"]
+}, Open  ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[861098, 18133, 229, 4, 37, "Subsubsection",ExpressionUUID->"11184085-91e2-4612-9a46-acb61173620f"],
+Cell[861330, 18139, 730, 22, 52, "Input",ExpressionUUID->"96a644d9-6e54-4ab4-9148-dd2493c8f20c"],
+Cell[862063, 18163, 255, 6, 30, "Input",ExpressionUUID->"5713b2e1-ef24-4470-a64e-5db3f9dfc02e"],
+Cell[CellGroupData[{
+Cell[862343, 18173, 2277, 55, 115, "Input",ExpressionUUID->"057df1c7-3917-4c10-b228-0e61c3c7a73c"],
+Cell[864623, 18230, 1172, 17, 34, "Output",ExpressionUUID->"eed3b769-640b-4422-9f6c-79dcabf4f3ee"],
+Cell[865798, 18249, 1402, 25, 38, "Output",ExpressionUUID->"da443d76-57db-4305-bac7-671d75517d95"],
+Cell[867203, 18276, 1169, 17, 34, "Output",ExpressionUUID->"8c76d720-2a49-4bef-9dfb-ac5bcf27f175"]
 }, Open  ]],
+Cell[868387, 18296, 270, 7, 30, "Input",ExpressionUUID->"d545c8a7-d05f-4e3e-90fd-2e15fe9fca7f"],
 Cell[CellGroupData[{
-Cell[156567, 3741, 825, 18, 30, "Input",ExpressionUUID->"cf9b9008-43f4-4e17-bf0d-421fed27767c"],
-Cell[157395, 3761, 32893, 609, 230, "Output",ExpressionUUID->"7bada2d9-6367-4955-824d-e8ff7c661ccc"]
+Cell[868682, 18307, 339, 7, 30, "Input",ExpressionUUID->"872cc13b-8e50-42d6-866b-f14adb347e7f"],
+Cell[869024, 18316, 934, 21, 55, "Output",ExpressionUUID->"117bdd98-ff4d-4dad-8f28-7b0b24190673"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[190325, 4375, 814, 24, 52, "Input",ExpressionUUID->"7a19f391-ea85-4ac1-9169-0e71076cc730"],
-Cell[191142, 4401, 351, 7, 34, "Output",ExpressionUUID->"087ecfed-9943-4551-b692-661afb206f5c"],
-Cell[191496, 4410, 1014, 30, 37, "Output",ExpressionUUID->"ea0c880a-df6d-442d-b50b-47145437344d"]
+Cell[869995, 18342, 2316, 47, 115, "Input",ExpressionUUID->"ff5598a7-2f9e-4811-8bf8-ce85ee841791"],
+Cell[872314, 18391, 1092, 19, 77, "Output",ExpressionUUID->"e2b8fcca-146a-4cdf-891a-bf2fbb37a0f6"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[192547, 4445, 1204, 25, 52, "Input",ExpressionUUID->"1c093b45-c7e6-436b-b249-347e2408b6ea"],
-Cell[193754, 4472, 1115, 18, 24, "Print",ExpressionUUID->"f2034283-f23d-4ae2-a46d-ca0292694df7"]
+Cell[873443, 18415, 347, 9, 30, "Input",ExpressionUUID->"d4e11b97-c0e7-49a6-b774-0c224f705a4c"],
+Cell[873793, 18426, 329, 7, 50, "Output",ExpressionUUID->"af10fdad-f937-4400-876d-c4c13a9511d9"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[194906, 4495, 8207, 153, 262, "Input",ExpressionUUID->"84f93c30-180e-48f1-b654-ba099d58a792"],
-Cell[203116, 4650, 44103, 881, 476, "Output",ExpressionUUID->"10628954-c335-43d3-9aed-f444bca02ca8"]
+Cell[874159, 18438, 1065, 27, 30, "Input",ExpressionUUID->"4a92c39f-e2f9-4dcd-9c09-ad0ec5f61cc3"],
+Cell[875227, 18467, 979, 24, 61, "Output",ExpressionUUID->"44bca8b0-eae3-4c79-9506-a526a829cec6"]
 }, Open  ]],
+Cell[876221, 18494, 615, 19, 73, "Input",ExpressionUUID->"80a88bfc-f138-4a3d-b20d-3375571c78e7"],
 Cell[CellGroupData[{
-Cell[247256, 5536, 260, 6, 30, "Input",ExpressionUUID->"1e1403dd-e8e6-4dfd-b8d9-a24853eb585c"],
-Cell[247519, 5544, 235, 4, 34, "Output",ExpressionUUID->"ed6e3bf3-c813-418f-b1ed-f8a3bd8ece2a"]
+Cell[876861, 18517, 3416, 72, 115, "Input",ExpressionUUID->"83554498-db67-4f7c-a08c-b8ef5293c94e"],
+Cell[880280, 18591, 2066, 34, 79, "Message",ExpressionUUID->"c10093a5-8732-46c3-9a65-262d11e9c606"],
+Cell[882349, 18627, 2065, 34, 79, "Message",ExpressionUUID->"a6834a93-3ba3-4aa1-8a77-b086dd9d2b5d"],
+Cell[884417, 18663, 2065, 34, 79, "Message",ExpressionUUID->"597d3191-3e88-4f0d-a4ed-e3dda37d6336"],
+Cell[886485, 18699, 1509, 25, 24, "Message",ExpressionUUID->"082cb9da-0493-4a53-a9ea-1f63b54c7473"]
 }, Open  ]],
+Cell[888009, 18727, 423, 8, 30, "Input",ExpressionUUID->"084d1279-aa3d-4fad-95cd-f4a4d1c093f6"],
 Cell[CellGroupData[{
-Cell[247791, 5553, 8910, 166, 262, "Input",ExpressionUUID->"5c8ab894-f16c-44e7-9d93-adc4a4231419"],
-Cell[256704, 5721, 44222, 883, 476, "Output",ExpressionUUID->"6ecdd54a-2d95-4153-938e-1cfc86d7d97b"]
+Cell[888457, 18739, 2746, 52, 94, "Input",ExpressionUUID->"c24ac525-3d0c-4be9-85c9-6f9878754fa0"],
+Cell[891206, 18793, 45056, 901, 384, "Output",ExpressionUUID->"9d2fb75c-c994-43ab-ac96-73980a524260"]
 }, Open  ]]
+}, Closed]]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[936323, 19701, 156, 3, 54, "Subsection",ExpressionUUID->"47013bff-4a89-40e6-9c36-3b47c6c727d8"],
+Cell[CellGroupData[{
+Cell[936504, 19708, 2101, 43, 115, "Input",ExpressionUUID->"e14283f2-7c42-4f2f-a5c8-f37ccf85f411"],
+Cell[938608, 19753, 1585, 25, 102, "Output",ExpressionUUID->"b8182651-fcf0-433e-9850-2087826d3f72"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[940230, 19783, 2411, 53, 115, "Input",ExpressionUUID->"9425448d-d2da-4568-b6c2-2d6dff68d46f"],
+Cell[942644, 19838, 940, 18, 42, "Message",ExpressionUUID->"40827970-1b7a-4bef-9aa1-1226d4289485"],
+Cell[943587, 19858, 938, 18, 42, "Message",ExpressionUUID->"814945bd-d9ff-4101-b3ce-37d5a56c4662"],
+Cell[944528, 19878, 939, 18, 42, "Message",ExpressionUUID->"d823d0c8-1931-4186-b6e5-0f9652c52f33"],
+Cell[945470, 19898, 600, 12, 24, "Message",ExpressionUUID->"174d04f5-beb3-4929-a772-1d4b6bcb5456"],
+Cell[946073, 19912, 730, 14, 59, "Message",ExpressionUUID->"d567a5fd-5339-47ba-adb4-ca24ac854fa2"],
+Cell[946806, 19928, 732, 14, 59, "Message",ExpressionUUID->"8725606f-ba25-4548-8906-c1f27e09aed4"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[947575, 19947, 862, 26, 30, "Input",ExpressionUUID->"17f2ac2e-aeb5-4c89-8c27-51eb79160f57"],
+Cell[948440, 19975, 4813, 123, 394, "Output",ExpressionUUID->"25ca5e47-82fc-459d-8167-141f207aa487"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[953290, 20103, 2801, 59, 115, "Input",ExpressionUUID->"c07326d6-32ab-417f-bad0-e3d2a8450919"],
+Cell[956094, 20164, 53546, 1072, 371, "Output",ExpressionUUID->"6bb2668f-d482-4eea-8433-a94f84b4c432"]
 }, Open  ]]
+}, Closed]]
 }, Open  ]]
 }
 ]