cleaned up and standardized analysis code

1 files changed, 886 insertions, 2772 deletions

diff --git a/tempering_analysis.nb b/tempering_analysis.nb
index 40f2880..214f601 100644
--- a/tempering_analysis.nb
+++ b/tempering_analysis.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[    258668,       5094]
-NotebookOptionsPosition[    253152,       4999]
-NotebookOutlinePosition[    253485,       5014]
-CellTagsIndexPosition[    253442,       5011]
+NotebookDataLength[    166178,       3208]
+NotebookOptionsPosition[    162114,       3141]
+NotebookOutlinePosition[    162449,       3156]
+CellTagsIndexPosition[    162406,       3153]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -96,7 +96,7 @@ Cell[BoxData[
    3.789742875252179*^9, 3.7897428826827908`*^9}, {3.789745855694088*^9, 
    3.7897458585723753`*^9}, 3.789745905309957*^9, {3.789816778074827*^9, 
    3.789816780007482*^9}},
- CellLabel->"In[14]:=",ExpressionUUID->"6ca216e4-4a7b-4e5f-a718-f4e70c77d6a2"],
+ CellLabel->"In[1]:=",ExpressionUUID->"6ca216e4-4a7b-4e5f-a718-f4e70c77d6a2"],
 
 Cell[BoxData[
  RowBox[{
@@ -235,20 +235,19 @@ Cell[BoxData[
   RowBox[{
    RowBox[{"logZ", "[", "n_", "]"}], "[", "\[Beta]_", "]"}], ":=", 
   RowBox[{
-   RowBox[{"lognum", "[", "n", "]"}], "+", 
-   RowBox[{"\[Beta]", " ", 
-    SuperscriptBox["n", "2"]}], "+", 
+   RowBox[{"logN", "[", "n", "]"}], "+", 
    RowBox[{"n", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"n", "-", "1"}], ")"}], "/", "4"}], 
     RowBox[{"Log", "[", 
      FractionBox[
-      RowBox[{"2", "\[Pi]"}], 
-      RowBox[{"\[Beta]", " ", "n"}]], "]"}]}]}]}]], "Input",
+      RowBox[{"2", "\[Pi]", " ", "\[ExponentialE]"}], 
+      RowBox[{"n", " ", "\[Beta]"}]], "]"}]}]}]}]], "Input",
  CellChangeTimes->{{3.7860366301695232`*^9, 3.78603671133499*^9}, {
   3.7860405792534246`*^9, 3.786040612454341*^9}, {3.786040708688937*^9, 
-  3.7860407113402042`*^9}},
+  3.7860407113402042`*^9}, {3.789830910073181*^9, 3.789830910887369*^9}, {
+  3.789831116169219*^9, 3.789831161489019*^9}},
  CellLabel->"In[7]:=",ExpressionUUID->"a0e3da7a-9e7b-466f-bc4d-cb0b0d8819f4"],
 
 Cell[BoxData[
@@ -309,11 +308,6 @@ Cell[BoxData[
  CellLabel->"In[8]:=",ExpressionUUID->"cfeba3ce-dc48-40c8-b8b8-f34cf59a253d"],
 
 Cell[BoxData[
- RowBox[{"ClearAll", "[", "Ss", "]"}]], "Input",
- CellChangeTimes->{{3.7898179003480053`*^9, 3.789817902160972*^9}},
- CellLabel->"In[71]:=",ExpressionUUID->"4442d61b-8ac4-4392-8a54-81f967a3e8ad"],
-
-Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"Cf", "[", "dat_", "]"}], "[", "x_", "]"}], ":=", 
@@ -341,12 +335,11 @@ Cell[BoxData[
    "]"}]}]], "Input",
  CellChangeTimes->{{3.78981937873456*^9, 3.789819402196154*^9}, 
    3.789819474816937*^9},
- CellLabel->
-  "In[104]:=",ExpressionUUID->"9b0c3339-71cd-41f6-9ef3-ca7bd5b2e440"],
+ CellLabel->"In[9]:=",ExpressionUUID->"9b0c3339-71cd-41f6-9ef3-ca7bd5b2e440"],
 
 Cell[BoxData[
  RowBox[{
-  RowBox[{"Ss", "[", "dat_", "]"}], ":=", 
+  RowBox[{"oldSs", "[", "dat_", "]"}], ":=", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
@@ -371,13 +364,13 @@ Cell[BoxData[
   3.784992122226707*^9, 3.7849921237610617`*^9}, {3.7849921543708973`*^9, 
   3.784992167089695*^9}, {3.784992239922765*^9, 3.784992242761147*^9}, {
   3.7849989835196743`*^9, 3.784998984447055*^9}, {3.785000974761281*^9, 
-  3.785000975480179*^9}},
- CellLabel->"In[9]:=",ExpressionUUID->"a1830ef0-911d-442d-b5d2-b62c202fce89"],
+  3.785000975480179*^9}, {3.789830929032741*^9, 3.789830929207098*^9}},
+ CellLabel->"In[10]:=",ExpressionUUID->"a1830ef0-911d-442d-b5d2-b62c202fce89"],
 
 Cell[BoxData[
  RowBox[{
   RowBox[{
-   RowBox[{"Ss", "[", "dat_", "]"}], "[", "x_", "]"}], ":=", 
+   RowBox[{"Sf", "[", "dat_", "]"}], "[", "x_", "]"}], ":=", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
@@ -386,58 +379,55 @@ Cell[BoxData[
  CellChangeTimes->{{3.789817903707137*^9, 3.789817918665738*^9}, {
    3.7898179830831623`*^9, 3.789818070963172*^9}, 3.789818128172594*^9, {
    3.789818328048049*^9, 3.789818328991467*^9}, {3.78981865828652*^9, 
-   3.789818665814815*^9}, {3.789819419187801*^9, 3.7898194204672337`*^9}},
- CellLabel->
-  "In[105]:=",ExpressionUUID->"c5d823f9-e85c-4b3b-b05c-3154ec28aa66"],
-
-Cell[CellGroupData[{
+   3.789818665814815*^9}, {3.789819419187801*^9, 3.7898194204672337`*^9}, {
+   3.789831192249136*^9, 3.789831192735342*^9}},
+ CellLabel->"In[11]:=",ExpressionUUID->"c5d823f9-e85c-4b3b-b05c-3154ec28aa66"],
 
 Cell[BoxData[
- RowBox[{"ss8", "=", 
-  RowBox[{"FullSimplify", "[", 
+ RowBox[{
+  RowBox[{"ff", "[", 
+   RowBox[{"dat_", ",", "\[CapitalDelta]x_", ",", "\[Delta]x_"}], "]"}], ":=", 
+  RowBox[{"Module", "[", 
    RowBox[{
-    RowBox[{
+    RowBox[{"{", "x", "}"}], ",", 
+    RowBox[{"Module", "[", 
      RowBox[{
-      RowBox[{"(", 
+      RowBox[{"{", 
        RowBox[{
+        RowBox[{"s", "=", 
+         RowBox[{
+          RowBox[{"Sf", "[", "dat", "]"}], "[", "x", "]"}]}], ",", 
+        RowBox[{"n", "=", 
+         RowBox[{"dat", "[", "\"\<n\>\"", "]"}]}], ",", "\[Beta]", ",", 
+        RowBox[{"xmax", "=", 
+         RowBox[{"dat", "[", "\"\<\[Beta]1\>\"", "]"}]}]}], "}"}], ",", 
+      "\[IndentingNewLine]", 
+      RowBox[{"NonlinearModelFit", "[", 
+       RowBox[{
+        RowBox[{"Table", "[", 
+         RowBox[{
+          RowBox[{"{", 
+           RowBox[{"x", ",", "s"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"x", ",", 
+            RowBox[{"xmax", "-", "\[CapitalDelta]x"}], ",", "xmax", ",", 
+            "\[Delta]x"}], "}"}]}], "]"}], ",", 
         RowBox[{
-         RowBox[{"logZ", "[", "8", "]"}], "[", "\[Beta]", "]"}], "-", 
-        RowBox[{"logZ0", "[", "8", "]"}]}], ")"}], "/", 
-      SuperscriptBox["8", "2"]}], "-", "\[Beta]"}], ",", 
-    RowBox[{"Assumptions", "\[Rule]", 
-     RowBox[{"{", 
-      RowBox[{"\[Beta]", ">", "0"}], "}"}]}]}], "]"}]}]], "Input",
- CellChangeTimes->{{3.786037096706629*^9, 3.786037117949012*^9}, {
-   3.786037156235767*^9, 3.786037158427763*^9}, {3.786039171339127*^9, 
-   3.786039257691778*^9}, {3.786039522415203*^9, 3.7860395339911833`*^9}, 
-   3.786039617250888*^9, {3.786039887363777*^9, 3.78603992005735*^9}, {
-   3.7860400739360933`*^9, 3.7860400756260147`*^9}, {3.7860401895870457`*^9, 
-   3.786040191039853*^9}, {3.786040498728237*^9, 3.786040506800436*^9}, {
-   3.78604071946595*^9, 3.786040725122241*^9}},
- CellLabel->"In[10]:=",ExpressionUUID->"19600c28-5fcf-466c-b87f-667b0f106dc0"],
-
-Cell[BoxData[
- RowBox[{
-  FractionBox["1", "64"], " ", 
-  RowBox[{"(", 
-   RowBox[{
-    RowBox[{
-     RowBox[{"-", "53"}], " ", 
-     RowBox[{"Log", "[", "2", "]"}]}], "+", 
-    RowBox[{"Log", "[", "135", "]"}], "-", 
-    RowBox[{"2", " ", 
-     RowBox[{"Log", "[", "\[Pi]", "]"}]}], "-", 
-    RowBox[{"14", " ", 
-     RowBox[{"Log", "[", "\[Beta]", "]"}]}], "+", 
-    RowBox[{"lognum", "[", "8", "]"}]}], ")"}]}]], "Output",
- CellChangeTimes->{
-  3.786039535285647*^9, 3.786039618611538*^9, {3.786039898955435*^9, 
-   3.7860399210303164`*^9}, 3.786040080270445*^9, 3.7860402110068407`*^9, 
-   3.7860405093410797`*^9, 3.7860406173934937`*^9, {3.7860407048467827`*^9, 
-   3.7860407266448603`*^9}, 3.786380877554284*^9, 3.789747057335539*^9, 
-   3.789816741881899*^9},
- CellLabel->"Out[10]=",ExpressionUUID->"6c93bebf-e58f-4c6f-b240-c9606f805231"]
-}, Open  ]],
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"logZ0", "[", "n", "]"}], "-", 
+           RowBox[{
+            RowBox[{"logZ", "[", "n", "]"}], "[", "\[Beta]", "]"}]}], ")"}], 
+         "/", 
+         SuperscriptBox["n", "2"]}], ",", 
+        RowBox[{"logN", "[", "n", "]"}], ",", "\[Beta]"}], "]"}]}], 
+     "\[IndentingNewLine]", "]"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.7898311955449543`*^9, 3.7898312093030577`*^9}, {
+  3.789831243231729*^9, 3.789831244079329*^9}, {3.789831294191235*^9, 
+  3.789831426152293*^9}, {3.789831478986567*^9, 3.789831485824489*^9}, {
+  3.7898315199939957`*^9, 3.789831522392721*^9}, {3.789831606978533*^9, 
+  3.7898316137600183`*^9}, {3.789831690098496*^9, 3.789831713568328*^9}},
+ CellLabel->"In[12]:=",ExpressionUUID->"b26da0ea-b484-4f10-9733-25392042ef58"],
 
 Cell[BoxData[
  RowBox[{
@@ -449,2565 +439,703 @@ Cell[BoxData[
   3.7795618755287123`*^9, 3.779561880399358*^9}, {3.785804692431429*^9, 
   3.785804692864304*^9}, {3.7858129014364243`*^9, 3.7858129030771227`*^9}, {
   3.789743002867009*^9, 3.789743004777854*^9}},
- CellLabel->"In[16]:=",ExpressionUUID->"3b7ef50e-b362-4da3-b734-818bb17a7c2f"],
+ CellLabel->"In[13]:=",ExpressionUUID->"3b7ef50e-b362-4da3-b734-818bb17a7c2f"],
 
-Cell[CellGroupData[{
-
-Cell[BoxData[
+Cell[BoxData[{
  RowBox[{
-  RowBox[{"c8", "[", "x_", "]"}], "=", 
-  RowBox[{
-   RowBox[{"Cf", "[", 
-    RowBox[{"d", "[", 
-     RowBox[{"SelectFirst", "[", 
-      RowBox[{
-       RowBox[{"#n", "\[Equal]", "8"}], "&"}], "]"}], "]"}], "]"}], "[", "x", 
-   "]"}]}]], "Input",
- CellChangeTimes->{{3.7860306193210077`*^9, 3.786030620479714*^9}, {
-  3.786030896792254*^9, 3.786030897100741*^9}, {3.786380888045945*^9, 
-  3.786380925007681*^9}, {3.786381157019925*^9, 3.786381157479299*^9}, {
-  3.789745775534863*^9, 3.789745775611329*^9}, {3.7897469477345467`*^9, 
-  3.789746974292004*^9}, {3.7897497620872917`*^9, 3.78974976216495*^9}, {
-  3.789816756139023*^9, 3.789816807097396*^9}, {3.789819433657423*^9, 
-  3.7898194634932632`*^9}},
- CellLabel->
-  "In[106]:=",ExpressionUUID->"0885a315-6bfe-4916-87e6-8a66c95472da"],
+  RowBox[{"sample8", "=", 
+   RowBox[{"d", "[", 
+    RowBox[{"SelectFirst", "[", 
+     RowBox[{
+      RowBox[{"#n", "\[Equal]", "8"}], "&"}], "]"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"sample12", "=", 
+   RowBox[{"d", "[", 
+    RowBox[{"SelectFirst", "[", 
+     RowBox[{
+      RowBox[{"#n", "\[Equal]", "12"}], "&"}], "]"}], "]"}]}], 
+  ";"}]}], "Input",
+ CellChangeTimes->{{3.789831908881502*^9, 3.789831945703508*^9}},
+ CellLabel->"In[36]:=",ExpressionUUID->"965aa541-441e-48ee-b9c7-6c04093a0d42"],
 
-Cell[BoxData[
+Cell[BoxData[{
  RowBox[{
-  InterpretationBox[
+  RowBox[{
+   RowBox[{"c8", "[", "x_", "]"}], "=", 
    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/CFib1JlAgAAADwAAAACAAAAnIW2B5tvnD4AMHnRIwVTPkXRMWw0
-Fdo/Z6Z2GHK9jj8FZS60Bi7rP6M6eCVgNJs/aslGZ8ww9D/r/IISyZ+hP8qC
-eNpvqfo/ofdilACKpD8VebNxPtcAQP7j6SXWBqc/IB09Xc4dBEAQEHazpk+p
-PykcpROTqgdA2LPaEmO0rD9wLA79xCYLQELCNjG3JbE/EKmJTQBnDkD0Gk9k
-sAK1P1jAcTS49hBAjI7QNthEuT9V4qf19JsSQNnW5qa5gLo/8YxeUOg4FEBs
-dSgMCP23PwxlhBD2+BVA5un7whVMsz9VczOECJsXQMvakd7lj64/Hq9RXTVg
-GUAGZaFfv1aoP4Vz8M8YHRtAMrWj0qhkpD8Zbhj2ALwcQLl216m386E/LZav
-gQN+HkC3wDJKOyCgPzj6Z2AFESBA/uiYEuy2nT8ZwK8ylvQgQAk3e8qalZs/
-Scq3UQLUIUBnd2E4XOeZP49vhMpwpCJAsyOKF1SQmD+Vqwh2bIYjQMvnhfgZ
-T5c/soJRe2pZJEBB37jud0eWPx6eWs1DKCVAK83a16NelT9KUBtSqggmQI/6
-crFAe5Q/jZ2gMBPaJkD+dlSa8LaTP4+B3UEJvSdAl095z9X2kj/hqdqf2pso
-QEBbcPNsRpI/SW2cV65rKUBv/NK0ua2RP3HHFUIPTSpAw50y0DIVkT+wvFOG
-ch8rQJ+8K9kckJA/PvZRF7HtK0D+j+d3URWQP4zGB9t8zSxAmxOXoK4ujz/w
-MYL4Sp4tQHJHIimBUY4/FDS0SKaALkBBty3Gwm+NP0/RqvIDVC9Af+rIuwup
-jD9t2bB0nhEwQCXOnfeV8Is/khVoiQGCMEAYQBP90zKLP0KfAcvl6jBAbgjo
-VrWIij9S9PalkFwxQPC7J92I2Yk/imtMJynMMUCviET27TeJP00whNVCNDJA
-Je1gALmniD9wwBcdI6UyQBFk6gLzEIg/H56NkYQOM0Bkc3Su3YyHP/WdY6zT
-dTNAcbgX46wPhz8raZVg6eUzQLsLJuhxjIY/7IGpQYBONECBXABLgBiGPw1m
-GbzdvzRAalmJpgeihT9WbOncKC81QHzC0/EaLoU/KsCbKvWWNUAj8VEiaMeE
-P17fqRGIBzZAslBeBgBehD8dTJolnHA2QAcb67Zy/oM/PITm0nbiNkCVKgNL
-F5mDP4PekiY/UjdAjnY2U4E6gz9VhiGniLo3QJCWQKBd54I/h/kLwZgrOEDM
-AqjiWI+CP0W62AcqlThARhQRgd0+gj8+GeT4//84QCsKXW5v8IE/LI+uqA==
-
-                    "]]}, 
-                  Annotation[#, "Charting`Private`Tag$34628#1"]& ]}}, {}}, {
-              DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
-               AxesOrigin -> {0, 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 -> {{0., 25.}, {0., 0.10352669071911737`}}, 
-               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[{"0.`", ",", "25.`"}], "}"}], "}"}], 
-                   "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/CFib1JlAgAAADwAAAACAAAAnIW2B5tvnD4AMHnRIwVTPkXRMWw0
-Fdo/Z6Z2GHK9jj8FZS60Bi7rP6M6eCVgNJs/aslGZ8ww9D/r/IISyZ+hP8qC
-eNpvqfo/ofdilACKpD8VebNxPtcAQP7j6SXWBqc/IB09Xc4dBEAQEHazpk+p
-PykcpROTqgdA2LPaEmO0rD9wLA79xCYLQELCNjG3JbE/EKmJTQBnDkD0Gk9k
-sAK1P1jAcTS49hBAjI7QNthEuT9V4qf19JsSQNnW5qa5gLo/8YxeUOg4FEBs
-dSgMCP23PwxlhBD2+BVA5un7whVMsz9VczOECJsXQMvakd7lj64/Hq9RXTVg
-GUAGZaFfv1aoP4Vz8M8YHRtAMrWj0qhkpD8Zbhj2ALwcQLl216m386E/LZav
-gQN+HkC3wDJKOyCgPzj6Z2AFESBA/uiYEuy2nT8ZwK8ylvQgQAk3e8qalZs/
-Scq3UQLUIUBnd2E4XOeZP49vhMpwpCJAsyOKF1SQmD+Vqwh2bIYjQMvnhfgZ
-T5c/soJRe2pZJEBB37jud0eWPx6eWs1DKCVAK83a16NelT9KUBtSqggmQI/6
-crFAe5Q/jZ2gMBPaJkD+dlSa8LaTP4+B3UEJvSdAl095z9X2kj/hqdqf2pso
-QEBbcPNsRpI/SW2cV65rKUBv/NK0ua2RP3HHFUIPTSpAw50y0DIVkT+wvFOG
-ch8rQJ+8K9kckJA/PvZRF7HtK0D+j+d3URWQP4zGB9t8zSxAmxOXoK4ujz/w
-MYL4Sp4tQHJHIimBUY4/FDS0SKaALkBBty3Gwm+NP0/RqvIDVC9Af+rIuwup
-jD9t2bB0nhEwQCXOnfeV8Is/khVoiQGCMEAYQBP90zKLP0KfAcvl6jBAbgjo
-VrWIij9S9PalkFwxQPC7J92I2Yk/imtMJynMMUCviET27TeJP00whNVCNDJA
-Je1gALmniD9wwBcdI6UyQBFk6gLzEIg/H56NkYQOM0Bkc3Su3YyHP/WdY6zT
-dTNAcbgX46wPhz8raZVg6eUzQLsLJuhxjIY/7IGpQYBONECBXABLgBiGPw1m
-GbzdvzRAalmJpgeihT9WbOncKC81QHzC0/EaLoU/KsCbKvWWNUAj8VEiaMeE
-P17fqRGIBzZAslBeBgBehD8dTJolnHA2QAcb67Zy/oM/PITm0nbiNkCVKgNL
-F5mDP4PekiY/UjdAjnY2U4E6gz9VhiGniLo3QJCWQKBd54I/h/kLwZgrOEDM
-AqjiWI+CP0W62AcqlThARhQRgd0+gj8+GeT4//84QCsKXW5v8IE/LI+uqA==
-
-                    "]]}, 
-                  Annotation[#, "Charting`Private`Tag$34628#1"]& ]}}, {}}, {
-              DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
-               AxesOrigin -> {0, 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 -> {{0., 25.}, {0., 0.10352669071911737`}}, 
-               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[{"0.`", ",", "25.`"}], "}"}], "}"}], 
-                   "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[{{0., 25.}}, {
-    5, 7, 0, {65}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, CompressedData["
-1:eJxTTMoPSmViYGBgBGJHBgT4s/LjJd+kAPvDXZwK2X867N98nXytJXKlvai1
-VPuv2Gf24nMO3td/9ta+oObtTNXGT/bhCSdehZ3/av9ty+H4yaY/7ct/ZG9y
-2/vH/rzne+l4awaHm04TmoXUmBx+3jL2ZhJhcTh5IvLGZT42h106amby19kd
-ctTu5xQ/5nSI3rj/zTwbHgeT65lLlhbxOZwtlcpcKSPg8DNttvTlzwIOn3ik
-fqnvEHRYmg3UsFnI4ZLE2sWrVgo7uHH0m/VViDgkb+lbpZYh6rA27+ucL/vE
-HPZfOT+764u4Q4fgocW9jyUcWrRMqxdMlXaolLszd+ttGYfazWd7X56UcwDa
-skdWUcFB75G14etWRQcNri+dNpZKDhzPXnys1lZ2+OR4Pu0qu4pD+/LwU0Ys
-qg6JIUHqCzzVHI4qbCjKEFR3SH4X5WTHoeHw2EzqQPQDDQf1Q23Lw19pOtz3
-752et0nLoSbRKNRglbZDdbO+z7IuHYc3gTvkWrt1HQL+SBRfv6TnwK2iUdfz
-U99B5vUjM6kJBg5bzX8cSpEydJDWv6vCNtHQYZ/BTC0JViOHSwz3mDhnGTk4
-LLm/j0/G2CH/Q+vJkIXGDmfPAIGOicOBaAXHj5tNHFiP9huW+5o6RLZZXDu6
-1xTiDiczh72PRWRPXjVz8ABZHG7uoLtp7vvlz8wdniYuvGaSb+EAiX1LBwCB
-r+DA
-    "], {
-    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, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 
-     50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 
-     65}, CompressedData["
-1:eJwBFQLq/SFib1JlAQAAAEEAAAAAAAAAAAAAAIeCmNKa6QU/vy+r2LGpQD9V
-qkWdX7pgP0BHiNaEl5c/BR+hpwYUnT8MxvNqa7igPx1c4sdTbaI/e2KfSA/z
-oz9Otq3KRFSlPxlmHafWnqY/3o6u4i3npz/Lvz/TI0ipP4FSn2kj+ao/PBaJ
-TgvrrD8F6BHAYeuvPzwLB6lwULI/y+IYW9IRtT/GSaGa3l+3P9jtAQKJP7k/
-Mb5mcedQuj/hBNi1x3S6Pz8iDigHNLk/HaZeDo1ftz9lXUwfD9u0PzLdEAWV
-P7E/LLjU+9kgrT9TyyHD78upPzzHWaGBl6M/5uOB4QjNoT9kOFXjPMCfPzCS
-DQm3i50/zlc+jEZ2mj/W90hUqjqZP/Vwisu8ypc/EBTiCz+qlj8c+kPEaIWV
-P4WYVRwqPZQ/DqCWIbmFkz8ilWMj6bqSP17NX/M6EpI/t36/tsxWkT+RKwkR
-79OQP4rxJCXZPJA/5HOL3kB4jz9J2wCF3WSOP1ArvDMpIY0/+OFQWuAUjD+H
-VPkoqBuLP4DWHQc1Poo/v/zPEy+MiT/i86Kx2OiIP0y+pj5BH4g/+9wetkx8
-hz9JrtgjONyGP3GipxKvPIY/YBgRxZuuhT8G4+H3Vg+FP4eaK35oooQ/Xh9C
-AYAohD8ywF+2H6SDP6AbMao5NoM/22St0Q3Fgj/Nzsb0gluCPzhnRGlv8IE/
-FdrwBA==
-     "]}, {Automatic}],
-   Editable->False,
-   SelectWithContents->True,
-   Selectable->False], "[", "x", "]"}]], "Output",
- CellChangeTimes->{{3.789816770006812*^9, 3.789816807584139*^9}, {
-  3.789819463906452*^9, 3.789819478604794*^9}},
- CellLabel->
-  "Out[106]=",ExpressionUUID->"d46af3b2-77be-4b80-8679-279619719d6c"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
+    RowBox[{"Cf", "[", "sample8", "]"}], "[", "x", "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
  RowBox[{
-  RowBox[{"c12", "[", "x_", "]"}], "=", 
   RowBox[{
-   RowBox[{"Cf", "[", 
-    RowBox[{"d", "[", 
-     RowBox[{"SelectFirst", "[", 
-      RowBox[{
-       RowBox[{"#n", "\[Equal]", "12"}], "&"}], "]"}], "]"}], "]"}], "[", "x",
-    "]"}]}]], "Input",
+   RowBox[{"c12", "[", "x_", "]"}], "=", 
+   RowBox[{
+    RowBox[{"Cf", "[", "sample12", "]"}], "[", "x", "]"}]}], ";"}]}], "Input",\
+
  CellChangeTimes->{{3.7860306193210077`*^9, 3.786030620479714*^9}, {
   3.786030896792254*^9, 3.786030897100741*^9}, {3.786380888045945*^9, 
   3.786380925007681*^9}, {3.786381157019925*^9, 3.786381157479299*^9}, {
   3.789745775534863*^9, 3.789745775611329*^9}, {3.7897469477345467`*^9, 
   3.789746974292004*^9}, {3.7897497620872917`*^9, 3.78974976216495*^9}, {
   3.789816756139023*^9, 3.789816807097396*^9}, {3.789819433657423*^9, 
-  3.789819496014751*^9}},
- CellLabel->
-  "In[110]:=",ExpressionUUID->"13991a8c-a9a3-43e4-9f23-4e47933f94eb"],
-
-Cell[BoxData[
- RowBox[{
-  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[{{4.23728813559322*^-7, 1.6723187929613287`*^-8}, {
-                    0.4075442368114362, 0.015105759570018952`}, {
-                    0.8493684310116413, 0.027192875510333083`}, {
-                    1.2619136842955307`, 0.035523113371547975`}, {
-                    1.6663664373410705`, 0.041602316780044835`}, {
-                    2.105099571504193, 0.046446590096994256`}, {
-                    2.5145537647509997`, 0.04963379789099925}, {
-                    2.9582883391153882`, 0.05197202083611144}, {
-                    3.393930413241428, 0.05342572279814811}, {
-                    3.800293546451151, 0.05459481375745209}, {
-                    4.240937060778457, 0.057861790601668156`}, {
-                    4.652301634189446, 0.07188627196101569}, {
-                    4.862585798899008, 0.096508842977757}}], 
-                   LineBox[CompressedData["
-1:eJwB8QIO/SFib1JlAgAAAC4AAAACAAAAKbdylveWGECCQF20zbS4Px6vUV01
-YBlA9M60AKpcsT+Fc/DPGB0bQBKw+xnW36Y/GW4Y9gC8HECJM0kG3uaiPy2W
-r4EDfh5AvNvoZYnGoD84+mdgBREgQMIny20Z+J4/GcCvMpb0IEAR8sIww8yc
-P0nKt1EC1CFAcqShL9oSmz+Pb4TKcKQiQMfaA7l6tJk/lasIdmyGI0C8oOji
-aWaYP7KCUXtqWSRAqemSmY5Rlz8enlrNQyglQLmQsEVSXpY/SlAbUqoIJkAU
-AjkQSnCVP42doDAT2iZAwXnXoK2jlD+Pgd1BCb0nQPUZp/vw15M/4anan9qb
-KEBYrZN6BSGTP0ltnFeuaylAR4tRPCeDkj9xxxVCD00qQDSZqIK445E/sLxT
-hnIfK0APs0mj9FeRPz72URex7StAG+3NoaTWkD+MxgfbfM0sQBP76HiOUpA/
-8DGC+EqeLUBm6XqLPL2PPxQ0tEimgC5ACuu+O0bRjj9P0aryA1QvQKsAqkLB
-AY4/bdmwdJ4RMEDqEkO2SkCNP5IVaIkBgjBAJ++ch9t4jD9CnwHL5eowQJSo
-wZnMx4s/UvT2pZBcMUDxVtuiHxGLP4prTCcpzDFAYUWTJstmij9NMITVQjQy
-QJ91bsmuz4k/cMAXHSOlMkA5svpNfjOJPx+ejZGEDjNAiZTOxy+oiD/1nWOs
-03UzQElKGN9FJYg/K2mVYOnlM0A5Cahx+ZyHP+yBqUGATjRAYeiHUnkihz8N
-Zhm83b80QLm35Nkgo4Y/Vmzp3CgvNUDRrXjDwyuGPyrAmyr1ljVAhMi1FXbB
-hT9e36kRiAc2QGnpDN3LUoU/HUyaJZxwNkCQ7iyDOu+EPzyE5tJ24jZArjm6
-GNaGhD+D3pImP1I3QKItcr8tJIQ/VYYhp4i6N0DjJko/esuDP4f5C8GYKzhA
-rTUG+9xugz9FutgHKpU4QNY0lXOjG4M/Phnk+P//OECrSUlHhsqCP9QPUOY=
-
-                    "]]}, 
-                  Annotation[#, "Charting`Private`Tag$34953#1"]& ]}}, {}}, {
-              DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
-               AxesOrigin -> {0, 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 -> {{0., 25.}, {0., 0.096508842977757}}, 
-               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[{"0.`", ",", "25.`"}], "}"}], "}"}], 
-                   "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[{{4.23728813559322*^-7, 1.6723187929613287`*^-8}, {
-                    0.4075442368114362, 0.015105759570018952`}, {
-                    0.8493684310116413, 0.027192875510333083`}, {
-                    1.2619136842955307`, 0.035523113371547975`}, {
-                    1.6663664373410705`, 0.041602316780044835`}, {
-                    2.105099571504193, 0.046446590096994256`}, {
-                    2.5145537647509997`, 0.04963379789099925}, {
-                    2.9582883391153882`, 0.05197202083611144}, {
-                    3.393930413241428, 0.05342572279814811}, {
-                    3.800293546451151, 0.05459481375745209}, {
-                    4.240937060778457, 0.057861790601668156`}, {
-                    4.652301634189446, 0.07188627196101569}, {
-                    4.862585798899008, 0.096508842977757}}], 
-                   LineBox[CompressedData["
-1:eJwB8QIO/SFib1JlAgAAAC4AAAACAAAAKbdylveWGECCQF20zbS4Px6vUV01
-YBlA9M60AKpcsT+Fc/DPGB0bQBKw+xnW36Y/GW4Y9gC8HECJM0kG3uaiPy2W
-r4EDfh5AvNvoZYnGoD84+mdgBREgQMIny20Z+J4/GcCvMpb0IEAR8sIww8yc
-P0nKt1EC1CFAcqShL9oSmz+Pb4TKcKQiQMfaA7l6tJk/lasIdmyGI0C8oOji
-aWaYP7KCUXtqWSRAqemSmY5Rlz8enlrNQyglQLmQsEVSXpY/SlAbUqoIJkAU
-AjkQSnCVP42doDAT2iZAwXnXoK2jlD+Pgd1BCb0nQPUZp/vw15M/4anan9qb
-KEBYrZN6BSGTP0ltnFeuaylAR4tRPCeDkj9xxxVCD00qQDSZqIK445E/sLxT
-hnIfK0APs0mj9FeRPz72URex7StAG+3NoaTWkD+MxgfbfM0sQBP76HiOUpA/
-8DGC+EqeLUBm6XqLPL2PPxQ0tEimgC5ACuu+O0bRjj9P0aryA1QvQKsAqkLB
-AY4/bdmwdJ4RMEDqEkO2SkCNP5IVaIkBgjBAJ++ch9t4jD9CnwHL5eowQJSo
-wZnMx4s/UvT2pZBcMUDxVtuiHxGLP4prTCcpzDFAYUWTJstmij9NMITVQjQy
-QJ91bsmuz4k/cMAXHSOlMkA5svpNfjOJPx+ejZGEDjNAiZTOxy+oiD/1nWOs
-03UzQElKGN9FJYg/K2mVYOnlM0A5Cahx+ZyHP+yBqUGATjRAYeiHUnkihz8N
-Zhm83b80QLm35Nkgo4Y/Vmzp3CgvNUDRrXjDwyuGPyrAmyr1ljVAhMi1FXbB
-hT9e36kRiAc2QGnpDN3LUoU/HUyaJZxwNkCQ7iyDOu+EPzyE5tJ24jZArjm6
-GNaGhD+D3pImP1I3QKItcr8tJIQ/VYYhp4i6N0DjJko/esuDP4f5C8GYKzhA
-rTUG+9xugz9FutgHKpU4QNY0lXOjG4M/Phnk+P//OECrSUlHhsqCP9QPUOY=
-
-                    "]]}, 
-                  Annotation[#, "Charting`Private`Tag$34953#1"]& ]}}, {}}, {
-              DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
-               AxesOrigin -> {0, 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 -> {{0., 25.}, {0., 0.096508842977757}}, 
-               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[{"0.`", ",", "25.`"}], "}"}], "}"}], 
-                   "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[{{0., 25.}}, {
-    5, 7, 0, {65}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, CompressedData["
-1:eJwBGQLm/SFib1JlAgAAAAEAAABBAAAAAAAAAAAAAAD8qfHSTWJQPxHZUeYw
-qZs/u9bep6rQwD+Qn41cN6XSPxGPxMvTOeM/xXQhVn+E6z9XQ+IeSx/wPz9v
-KlJh7PI/HebLC7AP9j8yIHu9++P4P39N1qiHaPw/SPlJtU8HAEAQr+sX7MYB
-QIT1fw7zZQNAiZgSSfQyBUB4tHHEWvwGQJ3X2CWqtwhAQj7o2ay6CkC7m6c6
-5KYMQJ8fRgiPdg5ATI47pYNVEEBIbeLkfocRQGItPgXAWBJADhXj/E0IE0CO
-QLyuX7ATQNc07zhFJxRAHy457pSOFEB4l4v4TuwUQPWc9L7xNRVA4PPDCOFx
-FUBYxRuZR74VQN+mP/uRAhZATRWMSupEFkCWBKipZYsWQCodrP9z2BZA9gt2
-w7YlF0Bjl6jeGngXQNl3RfC/1RdALLe0GhJXGEAKEXAIVQoZQOVhodY0zxlA
-qcE0DB/xGkDhtOBFX4EcQCcxCKwcGh5A2iCTjJwFIED1nPS+8RUhQOtunuqQ
-ayJAn+V5cHd2I0BwXwfOGbEkQNnO91PjJSZAtvP91HipJ0CJQWDl0AIpQCuH
-FtnOlypAOiNKe4MvLEDM7snDQs0tQF66SQwCiy9A7nw/NV66MECYbhKDwMox
-QB4Wak3zvjJAkDF3LSHPM0DYgXNGlAY1QI51cRsNUDZAT6+UZYiTN0AAAAAA
-AAA5QGun4C4=
-    "], {
-    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, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 
-     50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 
-     65}, CompressedData["
-1:eJwBFQLq/SFib1JlAQAAAEEAAAAAAAAAAAAAAJXCyDo4sgQ/0jPEHdmMUT8n
-/fx5ZWh1P8vplA66+YY/9Abxz7tXlT9SwkTXBhmcPxDZ+YWgcp8/kVu7u6Z2
-oT/Bx7eBzS+jP+V9bHFWiqQ/HpQIeer9pT85qlNlwEenPy4DhXB8Tqg/7MjH
-EdAZqT/fGnWhWdapP2nq5RWmbKo/2ILNHDfdqj9UHGfMhEerP+9TzkbMnKs/
-ZMV0h6r3qz/TOHzR2cSsP3hB8QSrEK8/SBe7P85xsT+Mkavgv3G0P+X/pg9G
-I7k//g/m86G5vT8zqX5nZjHBP3aAZN6aXsM/LL0o4pDyxD+kkksBiwTGP/YA
-FDP6+MY/WxFc/1ZWxz+l0BQprDLHP+hT6EKcjMY/ONvprUVRxT/O40nrDrfD
-PxkBm62NycE/ai/wnhUbvz/h4xWlO3G5PzkHUy4vfLM/NXzprw5lrj91Ql0B
-8JOnP6XR3KJrUKM/96k2do0roT+RLstaMBifPwf5av2Qhpw/2YAaTSkQmj+6
-vnmZrXyYPw/yk4xU55Y/69EpRfVSlT/o3r4nw+iTP6LP9tFx0ZI/5Nu1ZT6x
-kT8dV/dS8a6QP2gjsfzxio8/avVzWJXNjT9ragTbuxiMP2IauTvjaIo/pEog
-4dIQiT/dUVsiTbiHP0vDgliHVoY/K9GiB9INhT8HjogBR+yDP3W5/UGGyoI/
-ElcBxw==
-     "]}, {Automatic}],
-   Editable->False,
-   SelectWithContents->True,
-   Selectable->False], "[", "x", "]"}]], "Output",
- CellChangeTimes->{{3.789816770006812*^9, 3.789816807584139*^9}, {
-  3.789819463906452*^9, 3.789819506051046*^9}},
- CellLabel->
-  "Out[110]=",ExpressionUUID->"45eec759-6cc5-44ad-b355-16c56c1102c3"]
-}, Open  ]],
+  3.7898194634932632`*^9}, {3.7898319317305803`*^9, 
+  3.789831978527664*^9}},ExpressionUUID->"0885a315-6bfe-4916-87e6-\
+8a66c95472da"],
 
 Cell[CellGroupData[{
 
 Cell[BoxData[
- RowBox[{"Plot", "[", 
+ RowBox[{"LogLogPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{"1", "-", 
+        RowBox[{"3", "/", "\[Pi]"}]}], ")"}], "x"}], ",", 
      RowBox[{"c8", "[", "x", "]"}], ",", 
      RowBox[{"c12", "[", "x", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
-    RowBox[{"x", ",", "0", ",", "25"}], "}"}], ",", 
-   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
+    RowBox[{"x", ",", "0.0001", ",", "25"}], "}"}], ",", 
+   RowBox[{"AxesLabel", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"\[Beta]", ",", "\"\<c(\[Beta]) / \[Beta]\>\""}], "}"}]}], ",", 
+   RowBox[{"PlotLegends", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+     "\"\<High-\!\(\*StyleBox[\"T\",FontSlant->\"Italic\"]\) expansion\>\"", 
+      ",", 
+      RowBox[{"n", "\[Equal]", "8"}], ",", 
+      RowBox[{"n", "\[Equal]", "12"}]}], "}"}]}]}], "]"}]], "Input",
  CellChangeTimes->{{3.7897457807422733`*^9, 3.789745832490975*^9}, {
   3.7897459208379374`*^9, 3.789745986715302*^9}, {3.7897460206302223`*^9, 
   3.7897460455314837`*^9}, {3.789746088758369*^9, 3.7897460916675463`*^9}, {
   3.789746404389237*^9, 3.7897464044512587`*^9}, {3.7897468671247663`*^9, 
   3.7897469324195147`*^9}, {3.7898168197536173`*^9, 3.7898169067292557`*^9}, {
-  3.7898195108437023`*^9, 3.7898195343107243`*^9}},
- CellLabel->
-  "In[112]:=",ExpressionUUID->"d80acc58-e355-49f5-8e82-b7a019a31499"],
-
-Cell[BoxData[
- GraphicsBox[{{{}, {}, 
-    TagBox[
-     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
-      1.], LineBox[CompressedData["
-1:eJwVVnk0FI4T3+QKlV33fSZUctaGmpGUiA6SKETu+0woLHITSoh1H0uOnGtF
-SCoJSfUNFZKjw5V0ys/vr3nz5jMzn8+bmfdGytbzlD0TgUDQ30Ag/N9KJ68W
-UsXzDxDYw8JfT5kdaGJXkHB3CgVunlsvpX+qQ0dgVZG8UzJ0rQYVp389BN3K
-3o6sTrnA2eGnaf7aFB4nDOp/d6yGsfDvJyJKL8ITzYjmL473oYjz4O4LR/2g
-J2XEe8axHxo3xy2Px0RATEb6kzSVARiVe2CSLBgJO53AQq16AHw3sKv7lkaC
-D1tKsE/5c2A3Tjg72hkF//TU2xbyXkBUnK39toVoEHwQpPs18TVMtVlPi8gm
-gEErm/GU43sI1GmaWlpJAZU12+/8C++BqlNEytqTCgmS1n0y2mPgKrBvuN0/
-FfxsGf6mXWNAn/42Eb+UCoemvLoahsbBP2ncactUGkx8fXsh8PsHUEsn0y/X
-3wTJ1abs1T0z4IfVzZasmcBLtV/gC56BKzJ/kpf2ZQI78BxSuj8Dckm2oVru
-mTAf5vHZ6sgssCQebZgczIQ25m2a7Wc+Qbva+/7bWVlwniv1NSXwCzhqXTB5
-LZINzzbv2cR8fgFMP4btMp+mwqAhKaMvZAFUqwZcprfkwn+xc3KZ2QswXp/D
-rLknFyZZSg8pjS7A6t472xUjc+HvqkCYueUitIh1clO35IHi3K+VO2eX4HF9
-/dEdBXkQ09c6edpsGYJTBevZ6vIhiSvLVzJgGbqDU17te5APNwwCmD7fXAZa
-wlZB0xf5kNutJBn2chmKRED64Ld8aGzLtSw3/Q6JFY5BXKoF8LEqfPDfqRX4
-52A+N1FRAAeT9dpLj/+E4gCOrhMphRBmUE8b9PgJe6OEpx9SC6GNRSZtNfEn
-mJZ7SyneKQTNEIKDSe9PaNLncG7vLgQ15xbONf1f8DpYkL79TyHI6qqcMTv4
-GwZbH0+s2hQB6w/ROWaNvzAQICrwRqoY7Hf/3qyymYBpQzq016ElcGwkulhQ
-nIC6S3P86vEloB7Nt5+wm4Cy91NFE9JLgPm9slv/CQIG/mYWVKksgYIkxx73
-GwQkRrETzgyXwPuvQ9fKRTZggFK2p416KZy9U70mo8iE9skmrXOzpYDm+29x
-ajHhL7cb7+2+l4I881Olb4ZM2MNqfHyMUAY/LafOd7ozYbK667cFgTJI5xS7
-Z3OXCUvfcZpePVwGL1ziAnPIG1Ey503R3eIyMFKwX+Q/wozJfM9Lsjxp8Dve
-v+WtGTPuUtzXuhRMg7K5qKgiB2b0PK1hZRVDA+b6EiHVa8xo0HGOySefBowD
-MzpGD5nRqCxe9tYQDeRMXVMjdFlwR0T0WS0oh6HG4HMGJixYnlA8QTAqh3Ch
-BDmiHQsGL0kTxi3KYfTdHQaVwoJRRVWMpYBySHOem2juYMHt53aFOtWUAyHU
-W20BWDHg3s3Bp/IVUDUevtp4nBVtbl0LtyZXgOWh1EdXrFnRr7DNhk+/Aho3
-1VlyhrKiVYv+h1nHCnC7sRwh18aKzGOF1nq0CnhDuzR0TpsNe8vd3XTU7kDt
-0BX/J2R2TL+Sv/LCqRLKoi7aThxlx9xep705oZVA3WN4/I8FO9oMU2UL0ish
-LkNQYdcVduyom/ls87AS7M7VjV7vYEfVT18p97dVAe/kjK65wSYUf5Qa5LpU
-BRw3+5W9LTdhg4ZJsfzmaiAcbhSLc9uEP50fCyvIV8OX0ogfLUmbcF+x7bPv
-VtXw0FW8QuLFJnyzdKLkaX81BHwzIU1bcqBHfOn5gxdqwK1Ic23NjQMFhaWu
-8XnXgO1pqS+CVzkwbJqnlDO8Boyb5h4a5HHgc/tbOjb5NbA9OPZy1SQHxm/0
-/1DyoQb+Y7o/5u/OiXTLiF1xHndBi6RYzRzKhUFFFmuu1Fro22Dx5FkyFx6b
-whWH2lqwWYz9kJ7HhfpHj7OGdNdC5MCsgEInF+7QN81enFvHJ9HCjFg2Y8za
-5icrWAc2nAqn0uM3Y/XGJveemTqIZJb/vj1jCy4GDUjY6jYA//KZrYtlW/Di
-1NlzaWcboOxDtAKjeQu+Nt79tsuzAZ51Tp8/NrIFT3R5Rspkr+PDS7u9xLdi
-LkHGrGK5AWirchnNRVvRuEnZvauwERz/pOYUm3NjkRZp19mlJrhh/OXBZRtu
-1N4t2jnBTIf2fL1PRk7c2Dv3J0NPgA6C+j/3rFziRprrpuAULTo8vnF+4PAt
-btySsiwgQqHD8nTjinAuN8oJ6T04kkYHSS1usfkSbhzOY046WESHwPFO51uN
-3Dipn7OQ/ZAOCkryG2deciMoP1tsZWkGs/BwhXtvufHz7K48db5moAwNH7/+
-kRsHX6Ubesg2w3BQYjb5Ozc6sWr0CB1shrhHSxqxvETk3WskGXK5GRqFj507
-L0pE4j/HrjvXmmHCvZiiIkvEO/cL4jPSmkGT17z/jRoRza39ZKl3muGzTauT
-ogkRi/Tdp46ONINgPX/yPwsi3hN159CeaoZDbF4Ng7ZEzDsUlTax0AzZldJM
-wT5EdLz32/8oCwMeE0LkjwcRMV36lQT7VgYsm7w0lqEQUX5Td/8lQQYc+x19
-+2kKEUmR7yccFBkQaDTekZtJxHql6PRJVQYU5WnO+OYT8eQ1WNyqxYCBb2lb
-9GlE5E4/IjJzkAF/D39VF71LRD7nd9puBgyQzzpsuUBf15e69DTlJANMv+aG
-d7UT8W1pyY1N5gyoTDvV5zZARLEztWVLdgwYnqpYxv+IyIiwaLRzZgCrJosI
-3xgR3fOKlkI8GKCaaKUzO03E3hX6gQO+DLAaa3JsnSei68D94NJLDIhTIyal
-/FivHzAeRw9mQOM1l3r7NSI2qR028g5lwMSbB8P72EiYeIK/6DmFAVt2iW3Y
-spWES/xBXm+iGKAZFrB9gp+EQQOZaTExDHB40W/UKE5CRnfO3Ls4BqTKKfjF
-yZFQT7fKdjSBAW2XKVlWSiSsSf42EJbEgE+9I+2qe0iY9P2mcG8yA/glNaZZ
-D5DQt61Vsu06Aw76Jm0e0SPhN7W0LrMUBnh2T6tVG5GwIPfA9M11vx3vuO40
-IyH1sB+P/7rP3eJVSLMi4bLD34ZP6/k2Ghojco4kPNwZUbqyXr+m+hepyJOE
-msJN7Rnr/QmKbQZSgST0UdYdHljnd7KIQqGGkTC1e6iXus6/QPwIQySWhAeo
-gt5M6/qWMjiXMlJIKHy5JfdP5Do/ngEF/iwSPhV0UYkLZ0Ba4o0LaQXrfA88
-/1d5hQGTbGczuStIuKcyZ8zhMgPUKWLPE+tIyJJ3gb/WjwGRf8fZOe+RkFb5
-Imd2fV4vA0owpouEs31Be5ucGBDguruG8pKELa2xfYKWDOj++G167S0JOQ5R
-JqpMGCBgQ5e4MkVCj+PPNd4bMoBuqpN86cf/9d94RFrfN/Z+lkfLayQc2pEp
-Kri+j+ZHe/55s/Og7jTfuxZ5Bvzab+LhJsSDhnUZLyZ4GWBAFyiZleLBvJDd
-4k4cDMhSHX3roMiDa5XWTNfX1u9ru73RBS0eNGNUdj2daYYQ7ks7zc7zYFXa
-JzfupmbojdO6+MKeB4ub9rQ/ojWDGAsh+4QHD96Ss2ZTzG6Gtl8xnIahPPjV
-zIH6LbQZCB+yPkE+D94RIe+g6zZDRENbmcJHHox2kQq+2EKHod0RYyVfedBG
-CTnEaXSQLT8iKLvCg0Pzql4Z6XToog5Ei7PxomQ/SeiVFx1YYyYceBR48RBd
-2SBfmg5xFqzbVt14cc9qXNRwSBMcUOZamfXjxRzu9+59Tk2wyEJ69CqEF98U
-PvzbYtoE5nfFnGsSeLFXUnXSYWcTbGPXqLS7w4uBNDvSheFGaG+w0+j5zIuG
-BiTtepVGWOHu0LvlwocN5hy5JkP1UD7VzR/pw4cfKiTpvm31cP5e77RXEB/u
-U66qSSmrhy7H/2IN4vjwVSV2PQmph5S2+WerND4MKm0nam+rh51u4mYXZ/nw
-wCyfYmNAHdg9CnZQceLHAiMbT0fJWrioLWe84smPx7/F509y1oLD3QGNlkv8
-KLK8S8z3x11wur2NRS+aH3Oh4Hh3313w8OwvNC/hxw+xM2Szq3chSEBmPHSS
-H9NlXNpiJmsg1bHHss9GAGUndCZFEqrhxqifbpqTAOYxEg4NO1fDzZMSO8y9
-BHB0Mo/38ZFqyNDy+z0eKoDb/Qx8VJmrgbpVPPM7VQBv25fK6YVWQXmT9yvR
-twI42V8dH3S1EjrYhE66nhVEz3x19qn8CpgqVDJ4c0EQ9bjrlBwiKoALD+ke
-cRFExUbH/dL2FWAe6KkhEyyIZkdk84wVKmB+5qHQSLYgUsfaTELqy0Gsx2fC
-YEwQi36Jahq8osFBh5gR+owgfpn4ciy+hQZOTNQhuUVB/GSpZPU3jwb1mk+6
-mZiEMPo+i2ykGw0MKyQqGDJC+Mzw7llJVhpcTuj1VXQUwntuJqe0dcuAKj/h
-luEphF0XOnW7d5RBV9cPe9ZAIVw8ULefwlsG3KvS5hMxQvhCN2Q8aaoUSt0v
-a2eVC+HRADOWxYRSeGksx8IxJ4S7fCIKYydKQIUYlj7rJ4yvHEMvplUVA4P9
-tfyjEGGM321MGcsphoMEpZaiyPV4hanV8cRiMJ0feW99Qxgv+BzckeJWDAHP
-9iq8qhNGnk0a3Dk7i+Fe7HxL55Iwan3ifXCztgj0mazHb3uJoNh03V32oUJ4
-/qvB93KgCArkuhisrf/rFotcrGfCRDAlUc53C6MQXMcYiqTrIqjTNm3sn1cI
-SW38fjHVIvjv0+J8oXshDAX1sfrPiaApy6ONalyFYPNt/05jN1EcsVbn5LUo
-gM0kwsCQnyg+HVbY/MC4ABjKnb6WV0QRr7oLx+oWAK/H4RanJFGMDblgfXZX
-ATyeMTaIqBHFQ2wJfRuZCkD5nbUTfVkUzetSvv+uygfCk/Ai6Sti6Kpw8sAy
-Xz5UTuvq06LEUM3TvmOFKx8sWFm/7E4Sw961vTGbmPOhXjdObX+uGNpffKBq
-vZQHTm2pnWc6xLB/Xnpvd38eDNQVjiWwiKN/PWX4XGIe5FMfiv5IFMdk0dpL
-waQ8yD638/XpdHGUcN/JYsqZBxnCaSn1VHF0c95J2MucB0npNqw+1eJIZ8lU
-2/slF4KS/sx/GRDHjK97tF3qc+HUVZUHEzwSuM+Oax/5cC4wW+U492VK4NO+
-tKHqS1RYE2GW3VUggQlWuWznXKnw+43Lu/hyCbTNVWYRsqbCwmmyydEWCXzI
-5jHddZgKo0YvtLtGJbBAS2h1jJ8Kw1Rm9rdbJbHT+wwPNyMH6pI0RwZPSeLG
-hp6Gao4csL29hYVhJokra8J+7wg5QCqbUMq3WMdzmkUJ/sgGr444iqetJOoV
-fzxV9SEbdi4PK3D5SKL07ZEgq9ZsKDobHKiXIokubmUb2n2y4YbsPT56vySG
-BCyzEj7eBj/G/hM5x6RQsq73ufqHLGiweMT05oQUqmjrBPwZzoKV3ycaeE9L
-of8jt4Yng1lwWeuicMJ5KbzV+DIvpDMLrt6LmwzykMLzDU4B+wqyILrtdaD5
-dSnU4QvspNlmQVandz7PkBTedrgXtX86E+73FC/FWkrj6dKDEV1MmVArOOB9
-xVoaj3kbGrr8zYAih98LXnbS6M1fksq7kgFxTMfnz7hKY7ufQWLAbAaYav78
-vC1YGsV5pOs9BzLgE83gY0eWNDbY5b9Szc0A3tj517/eSGNSS+SHUcgA5yP7
-Wp3NZZCTT4f5ccItyC5TaXB1kUVGzcC2i2rpkPKtNdzr0jZkkiox/o/zJkyV
-+wc4+chhW80SXOK/AV2HUzMolO14cVzhuodcGmw4PjyRHCaPfUYLCjcsU4Gg
-07gh77ICEq5ra/woTIEYgR9Gg9GKuHWnyaLo/HXwsrDr/BGxA0uuYGWgyXUY
-D1e/CDd34ig315urbsnAm5Y5HJu/C1X9C98pGidBCbfi5Ue3lfDzZCAx73Qi
-dPhI6G2v2I0/vcSZ9SwSgCqZJ7rfVBltPfxTf12Nh9aQ3wSnAWV038+8/V9t
-HEgZsv2VOaOCNPrasbLxWKjvV4h/M6SCnPJVH9t2xEJC9z9lyfOqaN5De7fT
-KwbSfGddbEZVcfCmTt1STzSE8IlvlT6rhlTz7GQO1WigKbD0+I2poUfHuyv1
-qdeAdXmDUIeVOlZxEbsPs12DUuW7V6nT6hiW3hO0PzAKFGzLjVfdNdDCUKpc
-eT4SRo42157+rIG9tVaBXy9FwmBh0C7w3YMRQxVSW/9GwM+6k9rSS3tw2RBe
-xsZHwBrdp+Gax17cYOWnlSwTAYbKh/VCvu/FD+ay27ybKfDo/G5nV18yxt8q
-Dz5hTgGSnVNLjj8Z78ryq5aYUcDKKX/zwCUysprFqP81pcCKD0+teggZ/ywz
-JGgnKSAb8+P3aiQZ9U8tUlkNKRBWez/hejoZR/7YtQ7sp4Am24mahmYy9qa7
-2RTLUOAaVyzTTAsZ7x39XMEiTYHnxE5T4TYyPhHXPe0gSQEnUfVfVzvJ+OMq
-/YG8GAVuqQge1H9Kxmd6pyRq+SmwbDn2YniUjJ+tNhq/3kQBvCAkt/k9Gd/F
-zzbvZ6dAvMOpQBgn46RQakIRKwWkvbtEiz6ScbrsopPvRgqcvFZm7z5Hxp/t
-pZv4V8MhO368KXeBjPWy+1pC/4TDzHVhjsElMq7GbPhv9lc4hN1OqNrzg4y/
-CrxP318Jh968hwTnX2SMC9vTpPg9HARK/p26/YeMTlVu19K/hYNtxd7iZ6tk
-pLQXPGBaCoeqGq8fa2tkfGjg6Om5EA7/A+FyYBE=
-       "]]},
-     Annotation[#, "Charting`Private`Tag$35553#1"]& ], 
-    TagBox[
-     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
-      1.], LineBox[CompressedData["
-1:eJwVl3c8Ft4Xx5GZ/eCxhewGQj0pnZMREVkJpahEpRKZDXqEjLJl7/l47E32
-KglR+VYSEioZZWXUz++v+zqv+77nc879497Pkbhw09SejoaGJpyWhub/q2TY
-ZmaKWPoRGs+qn8spp45UM8vvuO7oA9MX3RlWhlWgxbMoS84xDEhVH6PfftGC
-TqVbDoyOqaDXANEf5szgeeiA3pJDMejFnOCSoLkEL9T9amccmoDC9s17L+1t
-6I74eGvaoQ+6KhLBLM0PHsXFvohS7oeK+PwD/vsewm5HsFYp7gdx58hyn7aH
-4MIUcceF8hpI7919E8f84a+OauN82iCU/9cRjYRHINDmrfXz8RD8PqBsJ2gc
-CvoNTEaTDp9BTETlwZRgJCj/u7BEnP8MRx0UaOetIyFU/HzvzsOjsMT/sTE8
-MRJuX6hzM28fhf5U/7BU4SjQnnRur3wzBhm03d0E/mgY//nJznPpCzzKPF7m
-sxkD4pvVSZv7p4Fzrtt89+N44E2xn+e7Mw1jojoGl9vigRl4tPc2TQNwp3cZ
-/4mHOd8bP87pfoOz/vXJBy8lQCO9tHrz6e+gYZf7+ur+RLBhixwie87A/LfW
-rORXSfCKfT8Lvc087NKicO9uT4UBA0Jc7915GHCV4X7+MxX+C5qViU+ah5Zo
-Zt9w1jSYYMjV3js8D/kvBhMCVNNgY5Pf1/LMAvxTYxr7/TANFGb/LFOtfoH0
-sboaNfF0eNTbMHHKYhEObC/lntLOgCdsCa7i7osQ553Ac8MiA6L13el+xCxC
-R9yFkWGHDEjt3Cvu+3YRfpg5T9wKzoCqxtQzFPMl0FkvMPDuzYCvRQ8G/pou
-Q63qktCySSZohuk0555cBekPr0pYdbPAV78if+DGKky2HTxtcSoLGhl2Rm0+
-XgWNY9sPhF7MAvW7NJfNelahP0yHt84nC1Su1LP+0/sDFLGnkrzVWSClpXza
-QnMNNATYvrBLZgPjisgsvdoG2J9IdTrwPRu0y0KGFM03oGNfprTccjaQr681
-W7tuwPNJOSIXXQ78/TIUVVK6AQcSW8pfCubASn/kwbN7NyFi9rbWA70cmKYw
-+5fL/oVji3eEvmbkgL3iGrsyOw32nz3vFmCQCyc+BmYLiNFgASPXD1OLXFAN
-5NOgUaRBbbdKLza7XKD/rOTUZ0yDbSPTurruuZDxxKH7ejQNesUcdBlJzYXP
-P98EUIRpcVm62Th/LhesqMX/dirQ4TVb121nyXmAlhpPWQ/RYdcer+/rwXkg
-R/9y728DOjRSY1YNjcqD1TOTNq3X6dAiFi7cz8qDWFbRZ7aldBgj4GdG7ciD
-wavBnsmkbXhk9L8eXYZ8MJS3XyDq0uM+1M8v8M6HtRC3+k8W9GgZd+SFyIN8
-yJv198+6TI93XYtcyYH5QF+RI7gvgB59057e3xWdD3VHpo8adtBj96mS7UvU
-fJAxvxbpp8WAUMWlcG04H95U3Tmrb8aA6Tt3vpYdz4cHgqEy3BcZkFFl99n3
-U/kwPEKtSyEz4ONggorw73yIujI7XtvCgDbnW92FWChA43NLZR4YMbMKv7Oq
-UKBo7MFm1UlGnF+c1BYkUeCMdmTXvfOMSCeuMySsQYEqlvIzrD6MKBcmWEOj
-SwGn6EU/mUZGNOKt3DhuTYH3+R5vzh5mQjPdkI/J9ylQ9uae2wsSM5o5J9vF
-NVEgz//ShfHjzMg5zuxb2kaBlP0GJ9etmbGwSP5FSxcFguME5PfcY0bqrqjo
-530UuHi2fDi8hRnXecxE73ymAO/EtJalPgtqylMGX21SwP23GWHqzHZUnnQ5
-FqRWAE5Z6v/+OW3HGNenIYOkArhwSmJG4P52POlEEyhwuACMqmc79NO249H1
-H2uRmgUgeyfIq2hiO4Y+0D2z7WQB/EfXNOp2nRVNjJx2DV0ugEMEhWJ6HzYU
-oqQm9cUUQC+t9YtXYWzYQHPTpjGuAGwXgr7EprGh0bqkaUliATzs/8Yv38qG
-DuP+RIP0Lf5Jvq8hAzu6jaYFxFO3+PvvE4hEdnQ1SLS4X1wAv66zVH6WYUeO
-4NSz18oKgN/wyrdbeuxoNVhcbluzxbPKm8aGsONK7+ndL9u3+DVLp/NJ7BjB
-yWJA/3xL7/ujALlCdtTujFvQf1mw9e5M19X1suP+KQ2fbQNbfGDezs/cHLim
-yHRIdXSLp5dbko3jwG9nu9eF/xUAcfE050IeB5bHq3kv01Eh70ugfF0tB3pm
-RdN8Z6TCq9YpmxMfOVC0cAUkOalgW8bvyTfDgRE3bRmv8lDhV7pu5MgGB8oG
-Bcz181OB+CC301mME7/qv9Gmk9jK5zw0elCRE1OrbRv7pKlwyJZpnQ45MYv+
-tlurwlY+cFCMsePEiuerVaJqVMjflImrzeJEmtpNzXcGVDj806KMXMmJEtNa
-l1ZNqNA7HNBj0MmJH1iyVg0st/TrJ2lGpjjxSNGdmMf2VBDTGFR9wMeFE+qs
-Z7LJVJhS/dHyVZQLPzdm9t8LpkLJ7m0n9WW4sEX322xUJBU0RVSu8BzgwksL
-2uiTSQWH9cjkbEsufMvzrqu/iwrRRjNtXrZc2KxtqWDfR4XmdJ3vho5c6H1S
-2kV9iAoCeqv7lz248Hpb1mr5FBW0E01sun24cFfMe+tz81RwnqX4pQRy4XPu
-c99O/aHC82ib/mNPuTB32HqAxFYIi1NVy0KpXOgcdcpYgVgI4oe4ROdyuFC6
-M+uom3gheI61XnlaxYU2zjodO/cXgvxeuW3Tb7nwaljp0YOXC8HiwQP5Z5+4
-cHb4lsEJ10Igv/lwMvwrF7rrhVu89i2ED96Pk0hLW3r6M9UayYXA2DvZyrbJ
-he+OU5V3UQthnwR+G6XnRkFS3+/Y+kII7vqlFsTLjd/KNOOWPhZCldCJszYi
-3LiRy5cyO1MI49ezycpS3KhsY6zi8rcQ1Hkt+96rcCPbe1oz6Z1F8MO2wVHB
-jBtnXrlbRrgWgUAFMeyvNTc63cnvVg0qAm0m58qBC9woG2JofSe1CJIKJenu
-uHDj+YxZgb+viuDEWmDiywhuVOyzSFlXKgZPw7GW1HhuFGnrtXfWL4asNPVp
-13RuZD4ts1ZyqRg2jv1UFSnlxusHKUMFicVQGGXa69TPjRILjdqE7SXwYbJg
-Ef/jRvrpyp/HhUqAUZ1BmG+UG12CTF9uKpTAudFqh4Y5blSvfWrw1bAEOPaI
-0nJwEtD+OIcLbUIJqPu6y44TCfiUe+61Y1EJXB7sM6wSI+D4uYKKC20l0OhF
-Tji3l4Db3V/LC86VwM3OKZViQwKG84RPjBiWQjNSr+22IODQ4n010yulwFXv
-nJl/joBWC8Yrx/xLoaT4DyHrJgFfSQ44nGsqhV9xrL/iIgg4GCZi1aBRBpo8
-/fLEBAJGijGzhZ8vg6jH0XZRGQSsZQmNNyaXgSpZ9PXjcgJ2PDymWtRdBu7X
-FEvIbwm4sTa9ct6hHDq//p7694mAv6zWOGQiyoHftmbHvUkC3lP1GP1XXw41
-5kfDPFYIOPAjKYOWrwL+aJjdcBLkweUquczatxWgX8Of802CB1fleC/xs1RC
-wr7hT5cVtvaPQWWeRiWoy9ob2h3iwVFFoN6iVMJdLo/dFjY8OGlm7DgbWQU9
-wYcuDdrzoGV7pox6fxWIMtAkGd/gwdx9bA39HNXQ+OcRq4EPDxaVMhK/h1UD
-zZeE75DOg2NDbItiGTXgV9mYJ/+VB8ubaQ2uctbDG0W/0ZyfPEj1OHWDcLEe
-pCi6AlLLPNjz+2jJz+p6aE/pDxRj4sWYvXpeCvbPgPHR+GUeeV4UP8eWRn7V
-AMHWjNKbTrx4NYLZLPdqMxxRYlv+dpsXl660l+rEN8MCA6Hr3V1eNJE41cLz
-vBksS0WvlITy4tlm3UlJmRaQZlYrvEjlRbsYjh6LiRZorryo1v2DF71S1E8m
-nmmD2yFXGKt/86JhXbeed1AbyNrdHMpc58VROtbBmaq2LX93x+seKx8qyaVZ
-6nG1w5mLkQ1Ku/hQT9fxsUV9O3AcjHsiqsKHL2Mr2ZUn2qGVI+X89kN8+NPp
-0FsRtg6Qq8unndDnQ9rcs4/5rTpgmatF5+lVPjxK3aTGTXYAZbKT+NCFD+lr
-j/sIMXWCzbOeKWdvPgwoZjc8LtMJ7Q7/BekH8+H1hRqpLttO8NAYsT4QyYd5
-0UNNdHc7QYFnYpdUAh+avDD4+D6mEyIa515t5vNhVmxmpUpHJ2hHL6V8L+VD
-mcBGhswPnbB6Zf3mUC0f9tQkrwbMdkIB0B5tb+Hb+o88kuppuuAcHxOh9AUf
-Sr40EVDh7gLCD7Yvya/58EMmvGQR74KOZkJF8Hu+LfNRbK6+pws8YwX8Pcb4
-8G0ju3kTqQt2O4lZXPrGh6KeLxyjNLtg9KiUrMnCVr+/T+4r1e+CKH6FVY0/
-fNj2g8OYx6QLjv1UfKFAS8SdorftKk51wVqrWgI/CxGXbnyGQ5ZdUBR36Bo9
-NxFrBeMGfmzFdjeOHl4QIOK9c2+DP57uAl5tXfYRcSI2F+kksG+dfy5oONIt
-R8T1O0/3+Rt3wd050+JqJSIWHPDy19nSV+yw9M0iEdHILL7dZKu+8YRzJhFI
-xPOYI1G4VX+s8yXJ+3pEFOawVzPa6u/4sau/rxoTkVY57tD+rf43hJ3bT1sS
-8Yv32KDX1v2ULLjFaNsS8fMVx5titF1wsevOZWVHIhLvmvvIz3XCpcMyRss3
-iUjNPFHOONwJl0v71eo9iKjFFVpwqasTHGTuiPr6EJH7dPIjvdJOcEyUZtAJ
-JKI2O+u16vhOuMrVP8MSRkT1mYF1sm8nXPP3ftMbu6XXZ3urwL4Tbtzsy7TM
-IeJqnRv9r12d4DzhFSJaREQrtvs08uydcMtKynW8kogz7ko2cj874LaWl6ZT
-BxFddsUuleZ3gDf/zjGfCSLGR+7IvknsgLuhr55rzxCxm3nHJ6u5drhH61nC
-srilz+Nj69TVDr4/enyitvFj8ho47Xdrh4Amd7FcSX40po6ERD1vg0iH7jO9
-tvxImy2wYWzZCtHDt7WiHPnRe4dny6hcK8SY7Nhl6cyPj+LX7DX/tEDcodtr
-Yz78uF3Gi/o9vgVSOMXil1L4MUguzG7Px2agVN96J/KJHx/kFTQ0tTYCdbdI
-49gEP5IX3OW2X26EwvTO7JwZfnSeLiz6ytIIJSHCbkob/CioaWUYaNYAVec7
-eLSFBdDO/H7Uylw9tDAJmlyzEsBYdamaaqtamMzcq//eTgAfvuO6LspYC2yo
-raV7VQBT1y2l2sprwNLzptrOOwJY9PBAWBehBuamOwQ/JgngO+a+7X6fq4DX
-/yPheLYAMtofDKyOqQJ1iQXW6sKt/XD3eVHDKgiwEvkb2SiAJWtZ972aKkG0
-22Vcf1QAPz92PaJeVgGalx99rJkWwN+f+N713KoAR7qUNzILAiiqTafjt68C
-KtRfdNLRCSLT8mKyeXU5GBTsKKjbKYg7rZWF6fvLwCu0x1XBQRDVf+aRdNRK
-IUVu3CnupiCK5ykec2Ishfb2FXtGT0G8fdrcPfC/EuDalLQcfySIKnbPDUJ9
-SiD3utfhBIogPiFLmAyXFEMPS5gac7kgzvt4GefbFcOv7Ky97vWCKJts3C3D
-WwxHRvrETXsEkTIgqsd/vwjeGskwbJ8VRLerqTKs9oWw9v3QX49lQZTPPVMR
-J7nljwJNVr7+3eLVPyykjFHBqenutxZOISygbY79c5EK25QGX3kpCyGzcbym
-lFcByPVMd04dFMJuv0HmiqNb/t/xb9MpTSE00+GpeMhaAAlp8mXKZkKox67z
-pieDAsrcvrHfbguh3MLwkurnrfmLeUiu664QNq0cUeevyAdNmr31WQ+FMJVG
-vWo0KB/M5z5+Ph8thKVMTgUEUj64vzog/65cCBVuvZsyS8mDZ0Fz9a2/hPBp
-YYj6WGgu6Dw4ZpS2JoSNoWRN+2u50OuZPHqPThjF5ySTAvW35lMHA4aDBGFs
-rs9YSNmeC3THco2KlYXRa+rm+KeIHNCjOz+W6CyMXRI9Ld112fD6T6Wrl6cw
-Wm9K71PPyAbrBTbG077C+NJcJV8mOBuujdYpEMKF8cYSxfLGmWx40ki8/ahY
-GPucP3vd35YN/FXXGS9XC6NDSs5w4mwWpBW2x2k1CeNe7Zw06Q9ZUJrk0vC3
-VxhvuUf8cSvLgjfevYxus8I4Oj1d0OeQBTYu0vGmy8LIZKDzls8iCyav3N2l
-9FcYiyTO11VrZ8GKpYLxD3YRzKaw2zPuzAKhAwHxdntEUD9F9k/0l0yw/a2x
-28hJBM9kf6DLdskEdgJN/5vbIki2uS0bfykT6pRaXc/cE0GeeIHW1xaZwHvj
-WL3jExE0Px9mt3IgE55PG+n7lYigqY+gO3UtA9yYuGdZakUwzcxPcv5HBkjK
-DEaEt4ggMTdB/8anDLh78fT75AERDLF6XEZsyQClkfOONYsiKNiXeYEmJAM+
-bUiwwaYISvokXKe5nwHBwhPFHQyi6NFdqaF6KwMmLB1XBoiiyNvCN6BimQFx
-g84BP0miGMeVdOKOXAbQvHiQJXlPFJNOvIi4+TodCqe09PL9RfHqaXoN3a50
-sGZknFF8Iordaqao05AOFVrBKhqpomi8Pva7JD8dHBsjW0+3iOJCyK8wxYfp
-0F+eORrKIIb2QyNZ7JAO6SkdIiuPxTBuvZT3YnUaJJ3dPXQqVmxrvnXaF1yc
-BnFCUREVKWIY8GuIoS03DZ7E2jK6FIuhzB/XFce4NPB+sj430y+GP+iS5H29
-08D0vnLbOM8OrM8JnaYeTQP6c8lXeuN3IJvm9zDuylT4J0wvtSdjB9Zd6k/c
-zEuFtfdXR0IoO9DMULXoX1IqzJ8imR2v34FpX/47qO2fCsOGg4fbh3fgoROG
-qm0WqfAhhZ75E6c4ij+8cO/UegqUP1H/OGC6FR+1k23RTYELiRwMdRbiaEKf
-HtigkQKEvPG96dbiyNMUJNypkgLOLcHkmxfEcTyn9MH6jhTYvfhBns1FHAO5
-hhsXV5Mhy+qOp06EOCoPptewFSZDtNQzvpo+cTQ3lg5WEk2G23UaxsknJLBd
-Kn7nab4kqLTuontvLIE1p4cre9iSYHnNuJL3lAT27vtno0+fBF6HLgmF2khg
-4AG/Zza/E+H+s+AJ7xsS6PLus/6X14kQ2DjkaRkugX1anTfPhSdCQuutdJ43
-EriQL7ZQR0iEpu7sX0FnJDGBo+KRhkICXNE92HDFcifuCuhsn8+Jg6Q85cpr
-V6XwjvjeiKjDTyHid8MDZw9p5OvuPhHBFAuTFDd3RxcZfHLeav0fYwy0H4uM
-I5NlcTKD+UDN9migPflhPMxXDs0uX+FM3h8FNEeraNO85NGrdILnt2ckPOJf
-MRwIVMDSg21Gv+ojwNn6YuuK3y60/Nt7eZ0/AsYeqF6CmN04qsrq98clHHij
-4j8Epe/BiJkTFg21YZDDpeDVlbgXSTSyhzcqn0CLyw4d2QJFfL7JS29c/BhS
-xNNENMyV8F2sjt7L56HQcHeNxrFfCbO1gntafoeAhAHTxs7TyvhDtOtemmAI
-VPTJh7x/o4y2lQ5a01bBENr5V0ncZh/WS8u5YGwQRLl+u2o7vA8by7Sjar89
-grt8YpySVipY+db/gsDxR5Avz9B9e1QFNx1WjvpkBgLjIq1gyzlVfHKW6/MI
-ZyDkKpXeT5lSxdtLn4p7PAJA/gLFaPO6Grpl8bya+u4PH4/Xlp36oYaa0WdF
-+G/4w0Cm9x5w3Y/PVPb/aZt5CKvlJoclf+3Hj4NV6V2eD+FfjUtlwI0DuJER
-6NrH+hAMlI7p3F06gHoeD1PrE/ygy0bxyjVXEiYIKVROqfkB4aJjfbIbCYXP
-Lz9WVPWDc47p7P0eJLzWK9Xosc8Pll14ylTvktDBwEOKRdEPpB6trG0+JKFR
-eBKTkpwf+JY1hYbHkjD69X7RJ0J+oM5kXFJZS0K5cDGlkH9kCGALopuu3+IL
-yZ8+bZLhNXeruVAjCSkTLaNKG2RwFFH9c7+VhHNNadNDq2R4qiygqfeShNJr
-QRvyv8iweGZ08MMwCVlZrBRGJsiAdoIy7J9JqGNQobj/CxlCLpt6whgJHXfI
-Bj8ZI4PkrXaRrK8kNE2UPIIjZDAJyLO/PkvCfeVC6blDZEgKGatOnSehrMWw
-Id07MkyHC20f+EXC4U6zkzZvyOCbGFq0f4WEXooqxryvydCT1kFz5Q8JLarI
-J537yMCf89c0cZ2E43KnM3tekeFCwYHsV5skfGqUZSDfQ4aiEueVf/9IOD9r
-oxfQTYb/AYfZZFo=
-       "]]},
-     Annotation[#, "Charting`Private`Tag$35553#2"]& ]}, {}},
-  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
-  Axes->{True, True},
-  AxesLabel->{None, None},
-  AxesOrigin->{Automatic, Automatic},
-  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]],
-  ImageMargins->0.,
-  ImagePadding->All,
-  ImageSize->Automatic,
-  ImageSizeRaw->Automatic,
-  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.789745832906107*^9, {3.789745922812866*^9, 3.7897459870360823`*^9}, {
-   3.7897460304253473`*^9, 3.789746045846365*^9}, 3.789746092164731*^9, {
-   3.789746401807321*^9, 3.78974640470884*^9}, {3.789746869925735*^9, 
-   3.789746932679536*^9}, {3.789816835959427*^9, 3.789816907171157*^9}, 
-   3.789819479448543*^9, {3.789819529023327*^9, 3.789819534547029*^9}},
- CellLabel->
-  "Out[112]=",ExpressionUUID->"ca9155e3-bfd3-4546-9d9d-841e39a4c986"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"Show", "[", 
-  RowBox[{
-   RowBox[{"LogLogPlot", "[", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"c8", "[", "x", "]"}], ",", 
-       RowBox[{
-        RowBox[{"(", 
-         RowBox[{"1", "-", 
-          RowBox[{"3", "/", "\[Pi]"}]}], ")"}], "x"}]}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"x", ",", "0.0001", ",", "30"}], "}"}], ",", 
-     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", 
-   RowBox[{"ListLogLogPlot", "[", 
-    RowBox[{
-     RowBox[{"d", "[", 
-      RowBox[{
-       RowBox[{"SelectFirst", "[", 
-        RowBox[{
-         RowBox[{"#n", "\[Equal]", "8"}], "&"}], "]"}], ",", 
-       RowBox[{
-        RowBox[{"With", "[", 
-         RowBox[{
-          RowBox[{"{", 
-           RowBox[{"L", "=", 
-            SuperscriptBox["#n", "2"]}], "}"}], ",", 
-          RowBox[{
-           RowBox[{
-            RowBox[{"{", 
-             RowBox[{"#1", ",", 
-              RowBox[{
-               RowBox[{"#2", "/", "L"}], "/", "#1"}]}], "}"}], "&"}], "@@@", 
-           RowBox[{"Thread", "[", 
-            RowBox[{"{", 
-             RowBox[{"#\[Beta]s", ",", "#Cs"}], "}"}], "]"}]}]}], "]"}], 
-        "&"}]}], "]"}], ",", 
-     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "]"}]], "Input",
- CellChangeTimes->{{3.786037574237903*^9, 3.786037624143293*^9}, {
-  3.786037715905655*^9, 3.78603772178903*^9}, {3.7860379429219313`*^9, 
-  3.786037989672336*^9}, {3.786038220212557*^9, 3.786038223471775*^9}, {
-  3.7860382782743273`*^9, 3.786038282507113*^9}, {3.786039734995592*^9, 
-  3.786039744997678*^9}, {3.7863811689372*^9, 3.786381171328402*^9}, {
-  3.7897469834615707`*^9, 3.7897470224937277`*^9}, {3.789747180279215*^9, 
-  3.789747184972273*^9}, {3.789748265791451*^9, 3.789748277340621*^9}, {
-  3.78974977133543*^9, 3.789749784133391*^9}, {3.7898170039497128`*^9, 
-  3.7898170481323433`*^9}},
- CellLabel->
-  "In[113]:=",ExpressionUUID->"018624ea-3752-4268-8269-52d7c0cc8dbf"],
+  3.7898195108437023`*^9, 3.7898195343107243`*^9}, {3.789832003730896*^9, 
+  3.789832020151675*^9}, {3.789832149993394*^9, 3.789832167007585*^9}, {
+  3.789832405514276*^9, 3.789832453208054*^9}, {3.78983251872959*^9, 
+  3.78983255469631*^9}},
+ CellLabel->"In[68]:=",ExpressionUUID->"d80acc58-e355-49f5-8e82-b7a019a31499"],
 
 Cell[BoxData[
- GraphicsBox[{{{{}, {}, 
-     TagBox[
-      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
-       Opacity[1.], LineBox[CompressedData["
-1:eJwVlXk01Psbx8d3xmxkmUFZY+xrokSWz5dQUsIVEpKoi0SbhBK54qZQIku6
-QtdSiFBRHtwWlL1Sokhk32cGxW9+f3zO57zPeX+ez/v1nOecR8E7yNEXIxAI
-87zz/1szlFHxKIAF02UyLtov1cDSifukyo8FOStCXnqNauCp2/+i5hgLZPeS
-/LbVq0HSz8Lml0dYcF6EG2b+XA3YruaDnw6yoDqQdHd/pRqAUbAotocFWfoV
-Ixfy1cB55V2QoxYLkqQjw1v/UoOoi/Fa8xMKkPd3wsMgazXo/ypx/OoRBXjR
-76FIe64KWx6aVJp9l4fUzdjQcxNViLvaZh3iKw9nRKL2cl6owKv4WRPas40Q
-LixlHGegAkHdZ9YO1siB+Wh7zZZqZVB5r2Tn/q8sjFUY7TTSVoZPnBJt39sy
-kFTedKAxXwki5/zk8zKlYbmzKdtPVQn0cx3uJsVLwbN51wC/bEX4pOm/uSJe
-EqSL7lnHyilC+Ad3p/7rG2C9kYyfRg4LNLdFEKsvrofqbhtTTUkWtAa9ffny
-kgRUBn8Lts1QgEhPG7HoQHE4aaBT9FZEAbSC/pm3PiQG57Oyjn6Jl4e3LmrD
-5keYIEvLGhcRlIcw9hefMQcG5BrhdUcpG0EqsIH9xlEU1Eil7vw0OXiT3i22
-30wEwr7d0c9flIHh9qgrXR5CUJPWl5o/Ig0KcrUCfkcE4XLr5utbJ6Qg9OO+
-ggNmdNCSHm20+iIJlbhVQJUpFUoVenosvm6A0cmpfUo7ybB+ySlsYWQ9GFHm
-9kwqk+D5D5bW1BcJCGp3DmapYzB753q96w9xqOcXf1DORwCZs0nSLr1iIL4q
-xCx4s1L34OFeV7dPTDhtXy3V+IFT51h1Of3qBANo4Yw/UhLn64RPzaidnRWF
-93TvsnDWdN3RRrPLl4VEIWRTsDnTbqTuZMPApWEjEVhHe3NMJ7uv7mz4Casb
-r4Sg2idsTedKS93ZzKTfNo7roFaaobX1cDG6H9N5Nu6jAMhsf5x2ObQL2f+k
-1/LfpUMUlfVCM2MAVSC+liPJNDiR7Pt4b+0A+mHRZih9jQZuUoVFQf0D6IZQ
-4ufuOBroaemmVbAGUcKjoXy7SzQY3GcWbFw8iHLZp18fDKKBRZoby7b2Ozqv
-FQdCdjQgqdyM9e//gVoEuUG+gjSYKfkQkUAYRufYwtp2VBp82SZ1uoQ1jKom
-+PIMSDR4bJNzaO7oMCoUc9xB/kUFn8BSw7DpYcRsMfoja5wKLx+3jMUTfqIw
-E+3R2GYqxO4g7StkjaGC6NRnNrFUOPNoIDrGYgy9vt30YFM0Fbw31lUd8h5D
-r2iXkdhFKpiunJeTuDeGdinrPGw9S4WF8unJaIVxVL7pdgnmy/OzehPc5SeQ
-5DOBuS0WVLBPegLb8AlUdFM59SlvDsxWby0wvCZQCXtgcqsRFSQ/27s33Z1A
-OgyrcjFdKrQnv9I02DiJJttljI7I8v7jK28WlptCSnz+ITJsCmgEJa6OmU6h
-dF/xyLUZCmzoO673ymMKJZOkr7wfp8DCE9WMiDtTKPzO580HBihQFHzHb1Rm
-GrWU6AtWtlBAMNgyZmDdDArT/y4ceIcCRFV9uTbZGbRlV2ujUxoFlvsUntRq
-z6ByncVE9WQK/LRdG0/bO4NUp6Icc2Io0Kj67A+7azPIKulRVZ4/BcK+blKs
-EZxFL++Z/nlIjwIiLQeHfsvOIjE5FGGpQYH7VVfy8U2zSHtiuyCdRYHOa19V
-XznMIpvaHeQtojwek0StjtRZ1HYn7fvnSTKAas0ks2AWPcw4sSl/iAzOzJES
-56ezqKs31MS2lwzRY2abv/TOornfMKL2hgyfb09tHZGfQ1X5En1y/5AhOEaK
-o643h9TcUmJrbpGBHGz95PiOOTTm+bZQ9yoZ9HZmb5/znUOR9Zmd986S4e/F
-veh30RxK9zpnnLWLDNsdH+5ibp1Ho4Y+3c4/+KHd9BPN2XoeNXN3O6j38MNR
-df6W2y7ziBbdVdLdzA83CB575cLmUdNvPfcnpfwwViLoqF43jzqlK6n/neOH
-DIHjB5HNAur+NCU1TOCHpf80TgR4LKIvOXc9gtaIECxkc9/jxCKSH91j4DZN
-hGGXY/37IheR51bfEZOvROgcy7XbksPzx7+5qVdHhGIR2U2/hxZRv3qEnvEl
-IrDcjI9NLy6izQ1NTS3BRLide+DuAJmNEoolDaMPEyHGIFX4lRob7fO+eC5w
-BxE83IVnrh9nI/WEhPn9NCJ052urRV1go9bjuS6OKxjsnrb1On2djYqsL6Tf
-mMTAIDqu3aWMjQ6KDebMdGLwoOU+dXc9G306uxC0/hUGLPGXuEknG0XTnHVS
-nmIgXMD3SH6BjW7pRxLu5WAQO7txlMHPQasHg8NNUjH4td1MgV+Cg/ILIp+i
-qxj8fBeWPLqNg9a1dX/rD8HAc316U+8uDoqTXkv1CsSg26uar/UABzlVKya6
-+mBQPz9/sjycg/6dSNR98gcGhqaMorwEDjIMZqWr7MGgJFZ3MPUOBy18jH+1
-wQoDpXY7qfgSDnKp5wbcMMMgQzLQMbyOg7Q7A73TDDEQOXL178B2Dlom5wlq
-6fPyPihsODTAQcHDDn6ZOry8i6+XHeY46OSN4/H3NDA4jYb1LIlcNNKxc9FC
-FYOxOFKAgRgXme5eOnhRCQOvTlaumjIXLYQVpjizMPggbd4rZcBFIYvUf97J
-Y7DH9xBz3U4uknCYKPyxEYOGkgu2ay5c9KlIVCCHpw25mZdn/+Si6R6GLcbz
-l5g/q/l+not2frnCElTAQPlqz/z7v7nIPc7jQj2vflY3W/NNJhcFdvtcUFbG
-gCEn7vPsARfld228YKyGQdwx/awHz7notb75qQgtDFbLHLqzW7lItLmNErIZ
-gzPLQYLJX7kI1cfEKG3j8ey4bnl5housrrQcvmLK47n2IOIs3xJKtT+3KdsS
-g48fmh8fYywhZZlbN/7k9dtOfnTigOIS+ohwy2EnDP7zoyjv2bKEAn3Oiaz3
-xGB7hbKHmdUSorZOdy8fw6Ds145bus68enVDkcmnMFCx9n7HOraE9B5/E+q9
-wONJvMQvHrqEZkQuXvsYj0E86/nZpfQllLzfstU8D4NLngV73hQuoYWgzwKx
-jzAIzbipmPZ0CREN3bcfqsPgKMO/Y8unJRQLzy1ef8HAAluvHbxhGb0+wt6h
-IkcEIzOMhNSW0dYQe7GKTUTQDZv8vM5wGakruDoXmRNBbq4xrthlGZ16IOgn
-cIwIywPBQ8Opy+iReWGIdzURZmXdayrvL6Pv39zvpbwlws8DO2/EVC0jD7kr
-SvqDRPjQIYuzPiyjhsSuHQVCJCivb870EF9BZ6KWPy/6kyAgR+mP7psrqGp4
-Q4qcHj949wlr5OauoGsKytsYe/jBTXKFcKpiBeWdFqfpHuWHXckdJcJdK4iy
-llKYmcEPSlEX6baMX6i8r3H5FB8Zvnj11Ncn/UIRmm90TrSTYa98gm7ptd+I
-/FwvHblTYSjpsU5X9m/0ZJxZZcPbV2F8fVqc0t9ISYqkKnydCvcHtdVRJ8//
-rdTs1QsqrOa1KbRJrKLo683PG2VoUKbOZE7fXUV1s9qHTjbTwDrDWJT5aBVd
-DNP07Ojn7V+6j/C2hlVEft9v8nOOBrSJxwKRQ6uoa6WPg0vRwbvEmSSsvoZK
-/J0t5o7SQUw/Y1GnfA0NcEbvrczRoSi3Yd6xcQ113KHnniEKAC42PhvSzfML
-Zp0qYwpA4KLx1Av2GuJv6F08rS8A33tPnP5XloBLGhHHbYMFwCRb5Pg2bwIe
-hfm8OD0gAJMsJw+XcQK+5GkYGvVAEEK7W4td5gl4itvrzsPVgkCKtVl2WSHg
-914Ha6g3CILMqFmaqwAfnuLilBD0URB2l6p3HNDkw72Gei7OEtbBfeM1S/cA
-PrzsiM5btv068HQq0jo8zoeP2NZGXRtdB61/EX75j2P4O1v5qjE+YajO44YG
-DpDwQOWy41uiRSDGJa1PDKPgsgSfzPCbopBkm9TMT6fgST0OfgFpopCJ4qvZ
-ohS8cHe4+8FMUShXDU/uUaDgcqsbHMxyRWGA42mVZU7BK/xWc20qRMHstspD
-xSgKzvyxy1+5SxS4PZURegQqHutm5z/LYADpXYmfIpWKDxjnkyclGCBc/6+z
-mAgVr/Mg7X4vxQCVwnRd9kYqfu7R7M3bLAbsP39h6Cmi4odlnArU9BhQLmm1
-xzySirsuvHgS7ciAALduaftVKt4v8+bKthsMuE6vC9Gm0PCVIGXf2lQGlD0r
-7KCL0PAXMR9ktmcyYEEq8spLBRouXP8tViuPARG96vPbrWi4XZbQdFMlA665
-RzYrJ9Bwz+oRA/FPvPeC/srEWzScm1nHTexjQGet06Vvd2i42vKJYvogAyRk
-NQwyS2l4mhehYGWMAdl93TkiXTR8M2n8a/EvBpR6apxfkaTjjv67VWXkmNAp
-JN7dw6LjKxarkqsKTFh4saZTpUnHb5rGhTYpM8Fw4/uhYFM6np/zH7+4NhPc
-2uqQnTUdD3E97Zqsy4SIyKIMzX10PCdd59C0PhPga6T9sBcdl+T0m+zazoTB
-RP/iRj86rmYc+c7MlAkkfD855xQdr2nbGiuEM0FlBh2+GE7H+5Y0lCstmLDr
-H43agzF0fHW3vIeuFRP87cXXG12j4+/P0T5c2MmEBALhlEQqHZcmPtXOtGFC
-SdnY2/lsOu7ik8P9y5YJHV7vVTv+peOWxsUNxnt5PCIQXVJGx6NICiLP7Jgg
-UV/Ud/UpHU/MK/Nc3cfjO3nL0K+BjpOXo1XIDjw+hUs3rVvoOOOSX28rT0d0
-+E8pdtNxTp/C1H5HJmRH7bfh66Pj1SKl727zNGzG8/p/8PIUvP6ZwtODAxpr
-NVN0vPWAa+lOnibdEHdL59DxgHnJlBJePRULQmUIQQCPDzUSem3P450bE3ai
-CeCbfolkXufl8b/33n8zQwB/GDtdh/HyJjjCSyFpAdxUakpAYQ+PFyuWn1AU
-wLcWt0mO8Pjby2+FN2kJ4I/zRpMdef2Z97704f5WAbz+AEPrsCUT/gdcdCsd
-
-        "]]},
-      Annotation[#, "Charting`Private`Tag$46867#1"]& ], 
-     TagBox[
-      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
-       Opacity[1.], LineBox[CompressedData["
-1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAK3gSs7FrIsDdQ8Jop54owERU+Li2
-aSLA9h+obqycKMBeMN6+u2ciwBD8jXSxmijAkOipysVjIsBCtFmAu5YowPZY
-QeLZWyLAqCTxl8+OKMDAOXARAkwiwHIFIMf3fijAVvvNb1IsIsAIx30lSF8o
-wIF+iSzz7CHAM0o54ugfKMDe3xZsi2MhwJCrxiGBlifANK08tT7jIMDmeOxq
-NBYnwIiLz0Z2ZSDAOld//GuYJsDGifE8CbofwJWQKFT6DybAb9R0/1u7HsDq
-NWq1o5AlwCbVJE5cpx3ARTbC3KMGJcDZ964tZZgcwJ5Hh0wofyTAf/JpIKSb
-G8DxxOTFxwAkwDOjUZ+QiRrAS51YBb53I8DZK2oxs4kZwJ7hZE7P9yLAe9Zc
-VN6OGMDvNt7fZHoiwCs3fAO3fhfAR+dtN1HyIcDOb8zFxYAWwJkDlphYcyHA
-f15JFIJtFcDxetS/tukgwCxvoPNGXxTASAOAL5liIMDMVyjmQWMTwDDvh1Et
-yR/AevbcZOpREsDejTzQ1bcewBptwvbIUhHAfgQiYrS4HcDImdQUVT4QwCwx
-NIBApBzA5tCBh9NdDsDXfyAv1ZQbwCEevAtpYwzAdaY98Z+XGsB410+oWT4K
-wCCDhz8YhRnAtUBFa7Y9CMC/NwKhxoQYwOnt7k8kRwbAWA5Xk32JF8A5B/JM
-7SUEwACb2BHieBbAb9BWcCIpAsCb/4qjfHoVwMEFFayyAQDARBpqwcRmFMAV
-/g4TqMj7v+lWI3AVWBPAc1C3GsPW97+Baw0ynFsSwAl7ElOUj/O/JjYkgNBJ
-EcDVCmKweyLvv7/Ya+E6ShDAdi9wQRNO57+lOhunW58OwA0JyGcunt2/6S+4
-o5x/DMC3ZHr/LofLvxTVtsZJhArAvBsSLDVhqz9Z5g4CUl4IwBw6tJeDeNM/
-hKfIY8ZcBsCBCCK+K5rhP6isNudLZQTAhkMET6ki6j/mHf6CLEMCwHrfLyO7
-DPE/Cz8nRXlFAMD5xCpua131P5eYUz9COvy/iSK9dfmZ+T8GO8E3tP33v00g
-jDCvjf0/Qz3yfP4J9L/tIlRdV+sAQGsvrOX9ge+/zoUA/GrrAkDoo/pqr4Hn
-v7ek+Hht4QRAiFA07kpT37+EV5fdFAIHQD10fZIfnMy/a1rUG1D+CECf0ZWK
-ojyZP44Kv3YtBwlAMuPt/0+rnT+wuqnRChAJQBv6orr+DKE/9Bp/h8UhCUAF
-C/svrHulP3zbKfM6RQlACy2rGgdZrj+NXH/KJYwJQKO4BXjeCbg/r14qefsZ
-CkBz/rImSuLEP9IOFdTYIgpAngBe1R9wxT/0vv8utisKQMICCYT1/cU/OB/V
-5HA9CkADB1/hoBnHP8Dff1DmYApAfg8LnPdQyT/RYNUn0acKQJAgYxGlv80/
-9BDAgq6wCkDBIg7Aek3OPxbBqt2LuQpA4yS5blDbzj9aIYCTRssKQCIpD8z7
-9s8/4uEq/7vuCkDQmF1DKRfRPwSSFVqZ9wpA4hmzGhRe0T8mQgC1dgALQPCa
-CPL+pNE/aqLVajESC0ARnbOg1DLSP4xSwMUOGwtAIR4JeL950j+uAqsg7CML
-QDGfXk+qwNI/0LKVe8ksC0BCILQmlQfTP/NigNamNQtAWaEJ/n9O0z9O3Ue/
-
-        "]]},
-      Annotation[#, "Charting`Private`Tag$46867#2"]& ]}, {}}, {{}, {
-     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
-      0.011000000000000001`], AbsoluteThickness[1.6], PointBox[CompressedData["
-1:eJwBEQTu+yFib1JlAgAAAEAAAAACAAAAoP+PmYqhG8A2aaKtXCokwLcSVuAN
-oBHABDMtmgpWHsB6DcMyYgsIwF8twt96xhjAYSBzTtfr1r+l4/lmICoOwMl/
-Jwc9YrG/VcUrWep9DMCmlHMgQp3CPzQFOwWiXwvAAKEzg1/T0z8MSVzElZgK
-wHZNhP2MGN0/+erLBQP2CcD+HZKn4b3iP+/1HbMNbQnAWDNcAiek5j9xmsCG
-rPQIwN07R9+LNuo/UW0YlbmDCMDpqGGjNHLtPzFugiDgEAjAneqxbEk68D+0
-yUXAP4wHwPdJOqSSePE/Q0Tx86f9BsDrFnAVKsryP/qCyDhsMwbAfNLM2c8t
-9D9t4sxvmRkFwGE8teiaYvU/p/AQP5D6A8D7bpva0kr2P/tkuzH0JQPAY13a
-3Bob9z8P++XiCIgCwNYZsjVW0Pc/QQ3/vTIzAsBgLYTUKa34P59GjChSKALA
-ggQNHZp6+T/QWNYfr4sCwEhtzIyVH/o/KPLkGhAmA8Ag5V5Nstb6P2TShXd2
-DwTAdHvr9DjP+z9xCxPgZZQFwLZPno5mo/w/Wwg9EdPuBsBz/nDXAUD9P3CI
-VfGW5wfAd48gMjXl/j8XwsYaDxsKwMisakwcnv8/3NXMiWLfCsAd0tFGq1MA
-QGewuHzUyQvANIFYEjCzAEDYK7yeP10MwMEUVgftXAFAhdl05/8+DcBKXhyb
-Mq0BQF1FhIy1oA3A4zfvlN8UAkA3XxHj1BgOwD6n5UfTbgJAYvZ4dTV8DsDx
-SnAdN9ECQBZuziRF5g7AJOqULX1JA0ApeBDhEmQPwO5RQgb5jwNARs5zGOat
-D8An8JWv1eMDQNdmNPteARDAGmL1tYoqBEBKBq0TCyYQwJpcS29XfgRA0+9i
-62RQEMAqCcIHMrsEQFZ7qrsJbxDA8xq7vR8EBUCvG26amJMQwKOh0HsGRAVA
-jOMMiM6zEMC85vmayYoFQCWOHy1s1xDAMPVnpY3hBUAzOoRn7wIRwCR24PSl
-LAZACG7AVHQoEcDS3JAOE3UGQBiNv3CVTBHAhkCmzs22BkBnZdAIy20RwFSP
-FBiO7QZAmpMvL0uJEcArhpyJviEHQBvtTzkxoxHACZeXdNJiB0CfOEI3FsQR
-wCsW6aX9mQdAObn6sHjfEcDA2a6nCdEHQBNmvQAb+xHA5qZTDBoJCEBMQsJv
-aBcSwGRg6y4APghA/jrb7kkxEsDuW01oe3gIQCArmOYZTxLApIbSxzqiCEAA
-Xdq8AGQSwD4PF3540ghAQhOIb+l7EsCEzumIwQYJQC48YaeFlhLAw5J4jK8z
-CUDiVnbSJq0SwMDNZFMwZAlAPoIbZf3EEsA7r6c9ZJEJQE94zYi72xLAM43t
-90HACUACvel3VfMSwHIc1O8=
-       "]]}, {
-      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
-       0.011000000000000001`], AbsoluteThickness[1.6]}, {}}, {
-      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
-       0.011000000000000001`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}},
-  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
-  Axes->{True, True},
-  AxesLabel->{None, None},
-  AxesOrigin->{-9.21034011459786, -12.385111543896043`},
-  CoordinatesToolOptions:>{"DisplayFunction" -> ({
-      Exp[
-       Part[#, 1]], 
-      Exp[
-       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
-      Exp[
-       Part[#, 1]], 
-      Exp[
-       Part[#, 2]]}& )},
-  DisplayFunction->Identity,
-  Frame->{{False, False}, {False, False}},
-  FrameLabel->{{None, None}, {None, None}},
-  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, 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->{All, All},
-  PlotRangeClipping->True,
-  PlotRangePadding->{{
-     Scaled[0.02], 
-     Scaled[0.02]}, {
-     Scaled[0.05], 
-     Scaled[0.05]}},
-  Ticks->FrontEndValueCache[{Quiet[
-      Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , Quiet[
-      Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 
-       6}]]& }, {{{-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]}}, {2.302585092994046, 
-       FormBox["10", 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.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]}}, {4.605170185988092, 
-       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]}}}, {{-11.512925464970229`, 
-       FormBox[
-        TemplateBox[{"10", 
-          RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
-        TraditionalForm], {0.01, 0.}, {
-        AbsoluteThickness[0.1]}}, {-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]}}, {-13.815510557964274`, 
-       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]}}, {-12.716898269296165`, 
-       FormBox[
-        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
-        AbsoluteThickness[0.1]}}, {-12.429216196844383`, 
-       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.02375108873622, 
-       FormBox[
-        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
-        AbsoluteThickness[0.1]}}, {-11.86960040890896, 
-       FormBox[
-        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
-        AbsoluteThickness[0.1]}}, {-11.736069016284437`, 
-       FormBox[
-        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
-        AbsoluteThickness[0.1]}}, {-11.618285980628055`, 
-       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.70805020110221, 
-       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.2188758248682006`, 
-       FormBox[
-        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
-        AbsoluteThickness[0.1]}}}}]]], "Output",
- CellChangeTimes->{
-  3.7860397462562437`*^9, 3.786381174561144*^9, {3.789747009546315*^9, 
-   3.789747022798468*^9}, {3.789747180816671*^9, 3.789747185304206*^9}, {
-   3.789748266139413*^9, 3.7897482778578568`*^9}, {3.789749766836547*^9, 
-   3.789749784531066*^9}, {3.789817009861409*^9, 3.7898170488613443`*^9}, 
-   3.78981956418874*^9},
- CellLabel->
-  "Out[113]=",ExpressionUUID->"471fd61d-b901-4c45-bbb9-afb7a2622279"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"s8", "[", "x_", "]"}], "=", 
-  RowBox[{
-   RowBox[{"Ss", "[", 
-    RowBox[{"d", "[", 
-     RowBox[{"SelectFirst", "[", 
-      RowBox[{
-       RowBox[{"#n", "\[Equal]", "8"}], "&"}], "]"}], "]"}], "]"}], "[", "x", 
-   "]"}]}]], "Input",
- CellChangeTimes->{{3.789818072879238*^9, 3.78981807590705*^9}, {
-  3.789818340608953*^9, 3.7898183589082117`*^9}, {3.7898187403625097`*^9, 
-  3.789818745944372*^9}, {3.789818811197695*^9, 3.789818811385725*^9}},
- CellLabel->
-  "In[114]:=",ExpressionUUID->"09f155dc-a270-465f-83b4-5452a9d3c6a6"],
-
-Cell[BoxData[
- RowBox[{
-  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[
+ TemplateBox[{GraphicsBox[{{{{}, {}, 
+       TagBox[{
+         Directive[
+          Opacity[1.], 
+          RGBColor[0.368417, 0.506779, 0.709798], 
+          AbsoluteThickness[1.6]], 
+         LineBox[CompressedData["
+1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAZm4ys7FrIsAYOuJop54owMKKYA2+
+aSLAdFYQw7OcKMAep45nymciwNByPh3AmijA1t/qG+NjIsCIq5rR2JYowEdR
+o4QUXCLA+RxTOgqPKMAoNBRWd0wiwNr/wwttfyjA6vn1+DwtIsCcxaWuMmAo
+wG6FuT7I7iHAIFFp9L0hKMDUSP4EXWchwIYUrrpSmifA6oTeIevoIMCcUI7X
+4BsnwJX1ujb0bCDAR8Fq7OmfJsA6JaoM98wfwE/eBDxxGSbAqlAVWfjRHsAH
+dDri8ZslwNbU+xr2wR3AHbYtw/ATJcArwtrM6bYcwMgsHZxqjiTA4KDwK9C9
+G8AiHKjL3REkwFHYgQCzrxrA2rfwNc+KI8AhAUqCiLMZwELM1Pa5DCPAG5MK
+9FO8GMA/FbWvH5EiwNF9RtsbsBfAmgpTowMLIsDmWblv1rUWwKV4jO3gjSHA
+t46neY2mFcAOk4NyPAYhwLIsjnM6nBTAC+J27xKBIMAMvKsa2qMTwLipBcPi
+BCDAIqREN3aWEsCGO6SiYfwewJh9FAEFmxHA/BR0bPAAHsDKr19AkIoQwC5H
+v6t78BzAS5ZG3yL+DsCK4gLb/OQbwMKvO5gKCw3ARW99t3DrGsCxeic86+0K
+wLxUcwnh3BnAXyiBOrH0CMCTK6AIROAYwF+oyxhjBQfAk2vF95zoF8DY2Qzi
+DewEwFAEZlzy2xbAEO67BZ72AsBsjj1uOuEVwMCzYRQn1wDARHGQ9X7RFMCE
+l/AFOIP9v0W922y5xhPABo35l+yf+b+l+l2R5s0SwHnl7/+SaPW/wpBbKxDA
+EcBqA8IcBHnxvz4YkHIsxBDAAIzr8pk667/IEXpTfZoPwAzXLVgP2+K/i6TK
+rJqCDcAsWk9ONBbWvw0aiWCdjgvABEjiD0WYtL8IQT7/mHAJwF9A3uXNVcU/
+wkph+Hl2B8DNP1AqgCzaP84mddFGhgXA1en9BCl/5T9TtH+VDGwDwMYoHIt8
+WO0/liT4s7d1AcDs0K8y9uzyP6SMznq3qv6/0OjvX9YZ9z/AdI5N1336vzU7
+VNjr/vo/WyIq1cGY9r+qKst6Dzj/P+YyszKeX/K/UCozNLSUAUDfETCKitzs
+v/jsD8t0gwNAQQe9Logh5b8o/vV2PJwFQACFSf7SfNm/mSxuyB6RB0DsIhDl
+gKvDv7D7o1TbmQdAfzGzIbgfw7/Iytngl6IHQP4/Vl7vk8K/9mhF+RC0B0Ag
+XZzXXXzBv1SlHCoD1wdAfC5RlHWavr8QHsuL5xwIQAAXgl7p3bW/iA8oT7Co
+CEDrn4/LQ5ORv6DeXdtssQhAvidQYftpir+3rZNnKboIQCERgStvrYG/5kv/
+f6LLCEDW/nDxXysav0SI1rCU7ghAOb6sC+1ekT8AAYUSeTQJQAWOdPGOKKo/
+GNC6njU9CUAGVOj+sVesPy+f8CryRQlAtRlcDNWGrj9ePVxDa1cJQL/SoZON
+crE/vHkzdF16CUCJXomu09C1P9RIaQAagwlAhkFDNWXotj/rF5+M1osJQF0k
+/bv2/7c/GrYKpU+dCUA76nDJGS+6PzKFQDEMpglARs0qUKtGuz9JVHa9yK4J
+QByw5NY8Xrw/YCOsSYW3CUAIk55dznW9P3jy4dVBwAlACXZY5F+Nvj/Fc2Cm
+
+          "]]}, Annotation[#, "Charting`Private`Tag$19414#1"]& ], 
+       TagBox[{
+         Directive[
+          Opacity[1.], 
+          RGBColor[0.880722, 0.611041, 0.142051], 
+          AbsoluteThickness[1.6]], 
+         LineBox[CompressedData["
+1:eJwVV3k41Pv3H58Zs9hNjGVkGWSIrrI0RO8P3xC5JEq5VMpStCg3orQopRJl
+V5YsFe7NvmXJociNbipbhG5FluyZxfrz++M85znP6zznPOf1nOd1nqN25PQe
+b4xAIHSu2f97n1NbSov9WbDwxMxVr4kNjbcPi784zgKF7/5lJi/ZoPw02veN
+LwtqpNOlrRvY0DU4xvx2lAVkO9G2g3VssHHKvi7jzgKRKzSLe+VsYBvK7Au2
+Z4F7QtLGucdsGBPM8830WLA/VZL4/AYbTkU8394yqQYXplm1O3ayoWPnCsnD
+Vw3+OBNS0gtaMHZ9QG18RBV8TfnmfpZakDBfbfzrhCrc0Z5df655A5hq5ovx
+2lTA76fK1AraAPm7ZQ/w3ytDX8rulPBGTejqWFTkNqyH+A9JpRGmmrCxsbdt
+tEIJTn2XnCOVa8CXR9Mb2+uYYPjcLeMSRwOceq4SSgsVoXpqUTmkWB3UhOzC
+I0sVwLeA03XKQB2YcSK/nGvloT+g2uFrJQveh1n3MYvk4IUbO+LTZhYMH3h+
+uqucAUktneL/lqlBZfTTkLtPZCF31wEbOz01KNGNDjRNlQHXd3c+2uWqgljt
+X4q92esga/XVrd91VYGVs2NrUCId1Kv7FF/vUoHkMBkh4YfSwHmw/rmwkzK8
+KTyE37stBQud4mJRFuthV6L1IGtFAgoPIv99W5WgsXBbsoioOOg3nOv1REwo
+DtUyG58QgVdflkdZBopwiH3VtPgXFY7yPtQHmijAodxW+aPCFFhx6OcGWclD
+zyexr+I/SSC8VXawxVwOpCZrhNO5GDi7/SOpYssAKPWU0eomgFYeHi+wkIXr
+SdPCnGvL9SSJdHN3Sxkg3xUk/cwQ1CulvlQxdl0HIUNTq7HH5utLgvveinjQ
+wY/YqEQKmal3ZGrr14RIAyFqfDbFdLze+fEFBpYtBWLdevsl+77Wr7o/ucO9
+Kwm6bo4Ohoyu+m+em61VGBJA2vlV0iq5rL6luPxKYowYHMIHht7ubUKX6hOn
+BneIwlu0W+eKbi86zYmam9ESgc7RZZL25SFUhVwy38nRoP0Iwzk6fQiNu2wN
+EZOhQVvfpsy5uiH054jRQVspGrx6e8j8xdIQ0tCammuk0qCsuOGcc+gwsntu
+VVkioEJsSMRw2Lkf6N/D8t4n+6jgQBNv+eA/igjf6k5Ep1HBLlyTwbkzimoG
+lGqSU6hgvWjulZY/ivxaFk9mJFDBfOIU4djoKDJV/+NE5l0q6L5v5yz7jCFe
+FenGhTAqiKTE52kdGUd/5fk82O9OhWa20p2L+yeQXh7dp0WGCvnGEXbhoRPo
++xdSU6okFaJ3TNIiU9dwtsOqrwgVXA9DZNyXCTSW+Muze5UCI0leN/KPTSLB
+po4wiTEKiFKeXe05P4WEtH93u1xDgWkZhsXAgyk0I9HL9iinQAfrMuF77Rr+
+2CtNq5ACDhm59cGEaSQh5Zl+JYsCcjWh26/tmEZJVTVuppEUyJ1VNnvQNo2u
+LJsxAh0p8CDkIzOtfxpZ3xPa+N2GAlGEyMWMyWk0qCFY5OAUCJCYqX4sNYOm
+h7ceuKNPAROdlybFLjOo4CwlvUGSArrFwQpl3jOIccTBCFEooMzRFVQEzSD7
+VYN7D1fIgFknVNUmz6Bfnb1eXT/J8MbTd2vL5xmU00MQzXlNhtoRplzrxAwi
+O1TsWa4jQ8Hpdu7blRl0NVG2YXMZGWLDTCo+qs6ibTX8cJ1HZPgjRdRo0GsW
+dYCdYHcQGX62F27h/pxFxuphVsWKZLB/71WatzyL7tuFtydIkOGv9wqGHhJz
+KNPs1U1njAx+H64ZvfptDiXRB4LcR4Vh5KMrJ/bsHJqf131YUi4MQ12r5pv4
+c0j1yOSnYRthGPjsaOtDnEevRa+n67uQYHs/6Y2CzDw6czstJmgHCdL6n9u9
+1ZhHMXlVr6oNSeA+oG5vaD2PUi5NaFjJkqB3kOeA3ZpHc16KHSJdROj+muGS
+LsFFx+Nce+PdiGD8zaXTSYWLLkf9iqzfRYTEb7R9wvpchEYSkxnmRNj3PdD1
+hBMXTfHSu3aqEqFjyMbNNJ6LnAk4b3YEA8Phpd6JHC5a6Wne2NyHQdxw8R+Z
+5Vy0qYN9ZuhfDPb8YHpQu7moEr1PVajAoH1k6lCXAg8JAi2lOyMxUAx9X+6n
+zUNtPa5bD1zG4Khoqegqh4eyZtx/oSAMuHpBlVr7ecgyU22voTcGeL2reK0v
+D22vluu39sDg1m6To7uDecilJHV/414MlAKXJEISeWi/32z3ig0GPqQBL/En
+PCRxoeNkkwUGhQn11ZnlPKRicEuZYIYBf0OmlHETDyX4xM0XG2NgWRXu86aD
+h9abvWuc3oxBlK1X7cHvPHSGvjHqsx4GXb1W9Lk5Hpo9U/xhpw4Gqie0jt0k
+8tHFm1atxloYHF+mvmCu46PC1zHNTzUwKIkeW1fE4iPhsM+b01gYLKm0Hd+x
+hY9yTaWS5dUwsC5+Vt9jwUdqiaVZTFUM7lnGyJ504iNGiRwzVwWD3o8B/kKe
+fDS1O2G8fi1W997TkBDAR9x9I6rea/knuAZyOlf4qPFT3njKWr2Km7InX8Ss
+xYzxzMPqGBAUeI17MvjIc2IOajQxsM3vkf9RwEfy61/ur2ZjELut+tSFF3xE
+3XVErFwXg89tD19J/stHOQ29GrZr8284GKaY07/W/6GfVtAaP6enDgZwJvjI
+Nckgf9saf1VX8Oa2JT6yCjvjnGKJAUZnKXmKCdCjkNKeaFsM7LOJZ+eZAuS7
+VW6F6YRBguHQ61sbBSjswfUE/AAGA03N65W3CRBjdCRsyRMDtmtuYImdADXr
+B2Q5+mNwduTWP9ZuAmSWXyMwOYdBbYi/St9xAYr/uC6iZm1fHFM3tRJvCVDM
+U3ODgkQMkvWk1JKTBSiOneuvmo3B1xczQbq5ApR5OjNOswiDoP/KWHtfC1DF
+5ttHv7RikLphW+gT4QW0+tA4vptGhOFKpXZT2QVk/zfdKVORCL/Zrmi+01hA
+MjmBBX0bidDo3/Ce978FpDr2svqGIxFGimy0bcMXUOBlhpd3KhGMtrn0jK8s
+ICR/82SsLQlmGQM+7ZKLaMzwXkv2ERIUzfrOl6kuosaUQp7MRRLo5l+gX7Jc
+RAFyugmUIhJoKGTbS91YRFN7lL3/ZgoDnTcDhuJLKHZ053MNgTC0f7jgqKC8
+hDy7byTUyZAhukB4YHnTEkpJaok6rE8GER+FxebdS0hfN8awypcMQp240YH4
+JdQU/KbWrosM0yUxeWHMZdTUVXiauabXBdEKnCO6y6hG/Jiu1z8UOOGX3Wxt
+vowm3JhSx79R4Ida5TfJQ8uIaR+b0smgwsC9gfVZWcvo6YXIp+2hVHh7Si+2
+WXsFtVsePj9pRIPbdpWqf5muIG7hVDbNngY7N1gUxuxaQV1TQYufPNfuZb9L
+2/6TK0jqUq/4gyga1NpfJI8XraAWOUfFrAEa5Ou0hkpyVhHVPXdCKVgE9iRd
+HeiwWUXaGt4WgzdFYIHIsXzguorODw6IeCWLgF1/Dk0zeBUFxS/3V1aJwGjM
+pWTTilU0ff/s+e9cEYhfkO/bokjAX17ac9LJTxRG9H9FybIIuFcF9nI0WBTM
+fN9t52sT8FijzyTXCFH4/jEiq86EgPsTa9dVZoiCwbPZ4zsPEPDHRwjiqx9E
+4cOhNr5HMgG3K/HRzzUSgw2JT/PxRwS8LPrKjgALMQhtC3dXzyXg8R0amOLv
+YsAyMYGRSgLO+a15nbKXGJylP7kZ2E3AQz9uKaPcFwPppsuMWwwhXJODbVMY
+FoPdOgaGZfFCOCUjVTPgmji4pUUbn04VwqciAz2eR4mDt9QYRydHCK8rFmjz
+EsQhlPvI/FGpEL4HzEvdcsXhcaOETdQHITwjjsRobBOHBbexA15SGE4MUFZp
+XicBOXcyL8tEYXhufl2daKoE8H9Ktv55jYiP9ulFfH0kCeyV+SCzVGGcq/pD
+Wf+LFKTonmpRvk/BVUtECqX7pKFoMdulL4WCd9//+Nh3UBpa3nz6kpRFwU1j
+CkabvkkD95iVQKqMggsa5ZQif0qDy2MlHWI3BXfmbDmjtiINUsqtd34oUfGf
+M6IPFdXoECnJdizKpeL3T4xyDH3p8GjAo+9EMRW3l3VCN/3pUPkszle7mopb
+u0a9/XSaDsO7Vi9ntVJxK5/IlvDzdNgR2VUUP0nFVYmHg/Vv04EgFEEPMaTh
+xndbfW8/o4N8e3W6kTkNX/di73xPMR1+y5jWmbWi4XnDBz+rV9DhoLn7//xd
+abgL6cZI+Qv6mr4Y/OkRSsMvZeZnK7XT1/6L4wTFazQ8v+qK4FoHHcblMqK6
+7tDw2YdDmyZ66KBYIfLYMY2GT8hMXmr4jw5bIvDNYk9ouFV4U7bOMB1sXYLq
+Wgpo+Nlz5Nr7Y3Q4rP63bUQlDb+oEloyP0mH87P/dVoADQ/QHvHZO0eH/wOF
+P3E8
+          "]]}, Annotation[#, "Charting`Private`Tag$19414#2"]& ], 
+       TagBox[{
+         Directive[
+          Opacity[1.], 
+          RGBColor[0.560181, 0.691569, 0.194885], 
+          AbsoluteThickness[1.6]], 
+         LineBox[CompressedData["
+1:eJwVl3k01P8Xxscy85mxmyxZIqMyRItUIr0/rdZKKBFKZCkpbaK0kIpEq6Us
+kRaUPb4V5iZKqGzZG0uRPWHGmPXn99c99497znPPee5zXlfn8AmHI+IEAkFO
+jED4f/UJNC4qOEaDY67bClP76VAZfUi2wp8Gf399o+T00kHrRaxvrS8NMjv2
+eZYy6dDaM6Lxy4sGcSIPhYZOOljueXpNyY0G/hO7A8Wa6UA3UdoXbEeDSdVC
+fe+PdBiZY3E2GtGghnokVT+TDoGRbzfVTOjApqyhS8VH6NBiJZR099WBp8r2
+ZlZMPRi5xtQZHVoMdr+ylX8c1IOHrHfrZgIWg4/nlsTuX8vAbGm2zGy9NgRx
+/Uo83ZdBtr2yC6dRC2Sva77r6VkKrS08dfaHRbCGu3as03kpLK/srB8u0QRS
+LYtq37QEep9MLm8o1wDz8m1Py/cugT3tVwlFeerw6sm29S++6YKOmE34zSI1
+cOxLu3PTXhc07kvNOJYthP7Pevf7W2jQGLajSyNfFSravLaX7KLBoMvbE61v
+VGA866vRlUYdKI19EXL7uTK0uzM7wVoHCg1jT5slK0HrOlH02arFIFOWo975
+dAFM66bcXGS1GGiZ29afi6fCGS/nfUfDtSExTEmM+FgRPllL8UOua0Ft3kH8
+TrQCRHFsN7ieXQS28Tt6aEI58D/JqJDx14TKPPNEKWlZqH9BkH8UqAEFoXob
+R8elIF9jiPfHQx0O0q+aFcyQofG/pUFanmpw8GXdQi8iBv+9npS09VsI7R0y
+/bJjkrAbRv2jXFVBYeI9MZUtDuZ8PV3XgyoARZ5Kem0EWCWhZB5hrwzXEiaJ
+phECRmiZ/US5lRKQbs8ljKXNMU4unvUL3LcAQgb+iu75sRgZkoyXD5ypcFSi
+UlMy5B+jeCo1puy0IhBiRqeSzEYZDJrRTptkBZBpM9ov39XPyI5eXXErVB4M
+XXfvMlFpZbhtkTsQMiELklb98tsTixlnHC+rfD4gAwdx5sDXvdWo/7feOgpZ
+Gr4ie4Mrhp1IY2qxs3kPBTQnvgV9PtGJXq2wOX6vkwIByTvfyhV1otX1wV1j
+PyggNWdjlbKhC93Iuvs5p54CVoXbfd7t6EZWfRNUh3cUqFpinjFziImKAq4c
+tounAFNywe1imz50af2ekC/2FCC5Na3aH9CH1NfHP7xtR4EVRXdbeLf70OZA
++zknKwqEeSpobm3sQ4V2KTHjaF5PhWxOo3M/CmSevrd9JQVcg8lfJrx/oaX6
+h/7uk6PAj2GBpP7lAZTz+K+tzncyNBxWcYxNHUBpe8qk79SRob5rRfp0+QDy
+CTbwEq8hQ9XXgxYV/AH0TOsT/x+Qobjgw1nH0EHUce1TFrGIDPdCIgfDzv5B
+br5bdacTyLCLIlvTdGwY0R9m5ed7k8EmfKmK6a1htPCYa1KKJxl28Cy8U7KH
+0SJiek+sBxksxgMJfsPD6PrRFuOw/WQwbGwwFfiMINHuucybdmSQSnqQpXd4
+FB3IDH/rspYMn+iaty7uH0d7dTdbllPIkL0u0iY8dBx9XlvQNkIiQ+y2CcrN
+5HG0HDNasEiSDM6H4Ob93nG0UtiSFyfEYCjB+3q23wRS3VMQnjuNgTT2+mr7
++b9oF/39o04mBpNKKpuZj/6icvZqunM3Bi20y4TfZX/R99593PYODHalvWQE
+EybRrua98WMtGKi+D90UsW0Scb9FtzjVYfBySmvjo/pJFJYvxzR+i8GjkGaN
+lJ+TaNGXbWXkUgxiCDd5aROTiCb36NtwMQYn5f69e6bwD0VfTQytzMdgg8HH
+DQVO/5DY/Q6v0pcY1Hr6rq/p/ocWHWnTTEjCYKwhz5g9NoWGeyfvqlzCwK7R
+uyhLMIVYgf0Pr17EIKdRzcRdbhqJrV997m8oBkebItZWrZxG3Nm0a83B8/s3
+O5veOzWNfL9dPN0ZhMFAq8hiBWcaxaav7HDwwWBbW3FFH3kGaWg2POnxxiCz
+zR89VJtBIx+Vwo96YeDd3ozzzWbQgqmCmvOHMOjveLG1NmwGJUi1REW7YrCl
+060qLHYGLXdNqVdywSC9U3H76rQZFCRp8CnBGYNDXRd2JMIMcnz8SCHCCQNm
+925rHwkWmgleR6rficGmn5K1akosVJSquGLOFoOUn29tvi5hoR5aylclGwzc
+mLp2JjtYSN6kqlNxBwZlzPb6P/tYSKmDfWxyKwYaPbd3PvZlobA3oeFVmzHo
+7JndJR7FQoHBXmFJFhiY9b76/iaJha6SL651MccgqdfT3j+bhTTWCkSzphhw
+elUaNd+z0OcuUeipdRjs76vb01DHQgrGduuq18znWN+VpohuFjJoqCwaW4XB
+wv61juvHWWipbbvvgBEGbf1pTqlybERPkCBt1MNg3S+nH3u02cj91J7H93Qx
+iP9F2UdcxUY1pcaMHG0M9v0+7Rywh43O7lmUoKKKQclverv2YTaKSrd9eYiK
+gfLAz/3Np9hondRtSQ/ZeT8OWLqaPWCjGzpxYUESGJgM8jvHM9nIRdR695SQ
+BPcHCw6kv2EjgdDzrNwcCaYGfbqdPrGRZF9Ljvk0CRz+aLiT29gosfpp9uQY
+CQr/NPx8/4eNNLaqMXUHSaA4FOlxgsNGrpzu3DomCRqG/h5sVZtFlsd3/XT4
+RgL10MY3R/VnUUvtNLOymgRe0kXSItNZxOy7KJdURoJXyQ8871vNIo+jVX1f
+C0nANjpXqrd/Fq20dxl1eUkCnOEsW+Y7i7TmvHrXppAgyn6Dl33wLKKde5Pq
+epcEmqf5ciHxs0jCa4x5OJgEPpJMb9nns6hnr2v1Pn8S5D1kvEt/M4vopKiQ
+7QdIwFmWrrCuehYNyf9o3m5Hgi3/hfvUtsyiosbkANuNJIix9i7z+D2LlubG
+7LJZToLWzu3U6en5eZEzcb0aCfwF5AqNBRy01WKHIPcfEQpjRxbk0ziIWFvi
+vqybCHztev9txhwU+Vpp3KuaCHe2xCkf38NB+hMTBOoDInQ2nzwm5slBzi71
+a8JDiKB7xOHDw5McRF6TNDDqToSSG8rHK+I4qCJEO/ImjQgEtdlKhzQO+qzZ
+9jFHnAjW2e0L/+RyUMaJyWinPknorn9cJf+Ng9Y7uokvfSQJ4lSapqfMHLre
+lzvA4UiA3VOJUyyNOZR5NPL223oJeGgy8Dlq+RyqcF+YviBNAujOL08X2syh
+q4sboz4gCdidvKJOImoOpUuSvBqCxCHRSEEnMXEOuU727P5jJg79Ff/OGb6c
+Q1s4ZqssJcThXF8xbe/nOaQ4gj88dk8MkpeZhz4ncpGImnt2wSsCDJZqNpgp
+c9E+t20dDacIsNJauPT7Ei6KcppSRGYEqDz2oXF2KxdV+TelzsSLGDKCDL0Y
+Ry7adq3x4dPlIsbe2Gthi724KI0tFur3UcgYyrfUtw7nosc9uRPnBQKG8Rb9
+yz/vchHviar92ScCxoVmqR9B6VzUFy00drMSMKq8xwxIBVz0JuHX+WwWnyHH
+/nrlEXDRaZGCl1gWn7H/Rl7rigYuSu3M+RJzmM/IWHjX8GMPFznzFc7l0fiM
+saxT4c5/uSj937OakWEeY625U/uokIuu2bXb+/zHY0ypMH0a5HnINqMnZMct
+HiN/ypdVvJiHHBULQj758hiB3/5FJK3moQXGvaC9i8cwzL5AvbSFhy4Z3Pc6
+vonHGIkkph925CFRNk0mZgOP8dIzbqWlNw/xZj4kOCMew8dCrWL5WR4ivLId
+Dd3NYyxRe2qncJ2HBgvfONGP8hj9M4ZdM/E8ZKlk7GAex2M8aSjx73jBQ25Y
++JfsCh7D4xXOKf+Ph4pTTm+1nOMxNG7WXs/4wkNbXa9rrdvEZ7R7OSnf6OSh
+TV64888YPiMeMZ8eG+Uh6fdHj2f/5jOcNPyM7fk8dCAySHHLdgGDOvsPTGT5
+yC5Gq94lV8BoaLqwW02LjwoXOt4/ry1kxOYSmYIVfJQ1Tt9DTxQypHzUeJ/s
++agpa++Z8FQRQ+wHvtblAR+t+PbW9xKbABX5tR8tnvFRxy3D6p/bxeBijJMD
+rYSP6C3BdcXxYsDZ6nditI2PpE94vb4777/JwrisMA0BSrCptB4Mk4DcWDXT
+w4YCVOiuNxP8VQICjj79tMNCgGqcZlYgTUn4o1P6S/6gAKmrLJvwLJGETAF+
+auaEADHLxu/+IBDhcEctoeOKAAXeeLGg0JoIzDvMRRkZAlRaIazUbCVCcoDf
+q+tFAjSjurf96Pz9u1pNmR2rEqAXxyybM1zn80FE3G8yKEB5n5ZyTraS4EFX
+3ODCWQH6SPqo3a+AgUOp2lkBJkTjg9yTM1YYfA00uvdJX4hirF87/S3AINqm
+dHGOmRDlxy0b6+vHwGrZ5rw4WyE6IuWZHK04z1M/ner3HxciUaKTq7cfGcLf
+Ml0tLgmRmdFsRPcdMuAP/YZ14oRIWr334qa3ZCizu0gazReiqOqOjmISBULp
+pIffPwhR5YXfpe8MKGAqeUe3uEmIlMboAdPzfFj0/ikeNiNEzMM1FgtiKHAy
+wei7J1GELss5hchmzfPj6VL3HSoipI6t/HOoigLZBnWh8qYiFHDld4wHmwIO
+CVeZLZYidOCbl0S5tBRwJUy3PHIWIamdLQfmtKXA5mcmZWmwCMk3Ew+rWknB
+lPWB4yPXRWhDiIBr4i4Fj0oUG/PiRcjW2JkaHSQFw3GXEs1KROhIRVDjcIIU
+3OGb8EXVIrTRwWpakCUFpv6jB6t/iNAN04Fbbu+l4OaW/Xr2LBHinlEHpW4p
+eMBd2GWsTsDvDAWxPVSkYWjVTIwyjYAfL1fl5upKw0bf75s4+gR8p7enW8Zq
+afjdHJlRvoGAR8W3Yvq7pGHN6yl/KxcC/rwxzy8nQhqaDtZz3BMJeKTW2pYL
+/dKwLP5FNv6EgHcoyy0JGJeG0PpwN92XBJzy2TLnLEcaaBs2wFApAX+8K0me
+Li8Dp6jPb5xuI+BjBk2qOuYyoFh9WSVKRQz/bTju+ee2DNgbrDEpfiCGv2/G
+bjnQZcE1JXbdiWQxnBW0Ks99tSwcURgxNcgUw4lvHuh7mMlCKPuJxZOi+V4Q
+EbHZThaeVcpZxjSJ4RWn7yb3n5AFruuIi7eCOD4dsbnFtEQWMm+lX1aKEcct
+DEk7szfJAWdMvu5MhATuVz1kO7dFHuhC1rmNyUR8mdKXx7YFCpBkGFijdRfD
+e/EsKfIrRcjnPXXqSsJw1PbLyCdfEWpqO3oTMjBcPrPLp6pYEdh+2+cUijFc
+uWuv+dVyRXB6pmkg0YbhlANfowXfFEFBq+7WH00yPrt5GUVvShFuytN3578k
+40WlERUGplR4wnTvCigg4xeDdZ9EbKRC6ev7vvrvyDjNqcajG6fCoK3ockYd
+Ga/LKBi7bU2FbTdb8x9MkPFNf2c0iAeoQBCLpIaYUPBcxwciuUtUWNjwLnWt
+BQV3a9LmnQinwsq0SYOp7RScwjF63XCdCh4WbluPOVNwrkHC6J04KpSFrDnj
+HkrB36WlfpJKp87/+/4E9QgKvvpWRoDvMyqMqqbFtN6i4KriYsYfs6igXiL1
+bHcKBe9rI9YHF1LBOBJfLfOcgi82HjrfUEIFa6dz5TW5FLxM5wlL7z0VDum+
+so4speAbY6aMLjGocH6q78dmoOC+HyJkmz9S4X9NQnFl
+          "]]}, 
+        Annotation[#, "Charting`Private`Tag$19414#3"]& ]}}, {}}, {
+    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}, DisplayFunction -> Identity, DisplayFunction -> Identity, 
+     Ticks -> {Quiet[
+        Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , Quiet[
+        Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& }, 
+     AxesOrigin -> {-9.210340371976182, -12.442617007106682`}, 
+     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, None}, 
+     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,
+        "ClippingRange" -> {{{-9.210340118318708, 
+        3.2188755712107273`}, {-12.442617007106682`, 
+        0.1193447048649078}}, {{-9.210340118318708, 
+        3.2188755712107273`}, {-12.442617007106682`, 0.1193447048649078}}}}, 
+     DisplayFunction -> Identity, AspectRatio -> 
+     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
+     AxesLabel -> {
+       FormBox["\[Beta]", TraditionalForm], 
+       FormBox["\"c(\[Beta]) / \[Beta]\"", TraditionalForm]}, 
+     AxesOrigin -> {0, 0}, CoordinatesToolOptions -> {"DisplayFunction" -> ({
+         Exp[
+          Part[#, 1]], 
+         Exp[
+          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+         Exp[
+          Part[#, 1]], 
+         Exp[
+          Part[#, 2]]}& )}, DisplayFunction :> Identity, 
+     Frame -> {{False, False}, {False, False}}, 
+     FrameLabel -> {{None, None}, {None, None}}, 
+     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+     GridLines -> {None, None}, GridLinesStyle -> Directive[
+       GrayLevel[0.5, 0.4]], 
+     Method -> {
+      "DefaultBoundaryStyle" -> Automatic, 
+       "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[{{-9.210340371976182, 
+         Log[25]}, {-12.442617007106682`, 
+        0.1193447048649078}}, {{-9.210340371976182, 
+       3.2188758248682006`}, {-12.442617007106682`, 0.1193447048649078}}], 
+     PlotRangeClipping -> True, PlotRangePadding -> {{
+        Scaled[0.02], 
+        Scaled[0.02]}, {
+        Scaled[0.02], 
+        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[
+    FormBox[
+     TemplateBox[{
+      "\"High-\\!\\(\\*StyleBox[\\\"T\\\",FontSlant->\\\"Italic\\\"]\\) \
+expansion\"", 
+       RowBox[{"n", "\[LongEqual]", "8"}], 
+       RowBox[{"n", "\[LongEqual]", "12"}]}, "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]], 
-                   LineBox[CompressedData["
-1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvnD4AAEBa1ebwPEXRMWw0
-Fdo/xtBI9Qoxaj8FZS60Bi7rPxyub5tGrYk/aslGZ8ww9D+DIspNiM+ZP8qC
-eNpvqfo/u7iEbRampD8VebNxPtcAQApj7UbaOK4/IB09Xc4dBEA7HoXvqg20
-PykcpROTqgdAC0qINE8Euj9wLA79xCYLQCLQ75GVacA/EKmJTQBnDkCraCC/
-wEXEP1jAcTS49hBAx+urmRZlyT9V4qf19JsSQN49kRrmyM4/8YxeUOg4FED9
-c/PmuPbRPwxlhBD2+BVAAY4VwBNW1D9VczOECJsXQBwHfyRzF9Y/Hq9RXTVg
-GUCAR0XUKJnXP4Vz8M8YHRtAPh894xHO2D8Zbhj2ALwcQDyTM62vxdk/LZav
-gQN+HkCF1mk3h7TaPzj6Z2AFESBA/P+174V/2z8ZwK8ylvQgQFHJGlntStw/
-Scq3UQLUIUDaBW/wgAXdP49vhMpwpCJAkRD9lMKp3T+Vqwh2bIYjQOyoKzWw
-Ut4/soJRe2pZJED9Jngd7OjePx6eWs1DKCVA9ccdL/F13z9KUBtSqggmQIYg
-iOZQBOA/jZ2gMBPaJkApV7Z6EEbgP4+B3UEJvSdA/qR3tZ6K4D/hqdqf2pso
-QPL67Y9wy+A/SW2cV65rKUAuDQBvzAXhP3HHFUIPTSpA2ElNe/5C4T+wvFOG
-ch8rQOP16UlJeuE/PvZRF7HtK0CqAtzS4a7hP4zGB9t8zSxA81t3uEDm4T/w
-MYL4Sp4tQDixkaRoGOI/FDS0SKaALkCqfw6DPE3iP0/RqvIDVC9A/uXYtDJ9
-4j9t2bB0nhEwQGpLHSMCq+I/khVoiQGCMEDjPdNwatviP0KfAcvl6jBA7APi
-unEH4z9S9PalkFwxQMVKc9b0NeM/imtMJynMMUC7qL83eWLjP00whNVCNDJA
-4AL2tAiL4z9wwBcdI6UyQHoG3kL+teM/H56NkYQOM0A22vUgMd3jP/WdY6zT
-dTNAsIQXb88C5D8raZVg6eUzQD+6jRG/KuQ/7IGpQYBONEDRTetYOE/kPw1m
-GbzdvzRADGkirvJ15D9WbOncKC81QBMs988rm+Q/KsCbKvWWNUD7b11sMb3k
-P17fqRGIBzZAAR3TjGDh5D8dTJolnHA2QDL+U7yCAuU/PITm0nbiNkB2deaC
-uSXlP4PekiY/UjdAc0fyC6FH5T9VhiGniLo3QHctReaxZuU/h/kLwZgrOEA9
-Qsd3yYflP0W62AcqlThAMOXG/yOm5T8+GeT4//84QJKO6yhXxOU/+lm9dg==
-
-                    "]]}, 
-                  Annotation[#, "Charting`Private`Tag$54449#1"]& ]}}, {}}, {
-              DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
-               AxesOrigin -> {0, 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 -> {{0., 25.}, {0., 0.6802173423024718}}, 
-               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[{"0.`", ",", "25.`"}], "}"}], "}"}], 
-                   "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[
+                    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]], 
-                   LineBox[CompressedData["
-1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvnD4AAEBa1ebwPEXRMWw0
-Fdo/xtBI9Qoxaj8FZS60Bi7rPxyub5tGrYk/aslGZ8ww9D+DIspNiM+ZP8qC
-eNpvqfo/u7iEbRampD8VebNxPtcAQApj7UbaOK4/IB09Xc4dBEA7HoXvqg20
-PykcpROTqgdAC0qINE8Euj9wLA79xCYLQCLQ75GVacA/EKmJTQBnDkCraCC/
-wEXEP1jAcTS49hBAx+urmRZlyT9V4qf19JsSQN49kRrmyM4/8YxeUOg4FED9
-c/PmuPbRPwxlhBD2+BVAAY4VwBNW1D9VczOECJsXQBwHfyRzF9Y/Hq9RXTVg
-GUCAR0XUKJnXP4Vz8M8YHRtAPh894xHO2D8Zbhj2ALwcQDyTM62vxdk/LZav
-gQN+HkCF1mk3h7TaPzj6Z2AFESBA/P+174V/2z8ZwK8ylvQgQFHJGlntStw/
-Scq3UQLUIUDaBW/wgAXdP49vhMpwpCJAkRD9lMKp3T+Vqwh2bIYjQOyoKzWw
-Ut4/soJRe2pZJED9Jngd7OjePx6eWs1DKCVA9ccdL/F13z9KUBtSqggmQIYg
-iOZQBOA/jZ2gMBPaJkApV7Z6EEbgP4+B3UEJvSdA/qR3tZ6K4D/hqdqf2pso
-QPL67Y9wy+A/SW2cV65rKUAuDQBvzAXhP3HHFUIPTSpA2ElNe/5C4T+wvFOG
-ch8rQOP16UlJeuE/PvZRF7HtK0CqAtzS4a7hP4zGB9t8zSxA81t3uEDm4T/w
-MYL4Sp4tQDixkaRoGOI/FDS0SKaALkCqfw6DPE3iP0/RqvIDVC9A/uXYtDJ9
-4j9t2bB0nhEwQGpLHSMCq+I/khVoiQGCMEDjPdNwatviP0KfAcvl6jBA7APi
-unEH4z9S9PalkFwxQMVKc9b0NeM/imtMJynMMUC7qL83eWLjP00whNVCNDJA
-4AL2tAiL4z9wwBcdI6UyQHoG3kL+teM/H56NkYQOM0A22vUgMd3jP/WdY6zT
-dTNAsIQXb88C5D8raZVg6eUzQD+6jRG/KuQ/7IGpQYBONEDRTetYOE/kPw1m
-GbzdvzRADGkirvJ15D9WbOncKC81QBMs988rm+Q/KsCbKvWWNUD7b11sMb3k
-P17fqRGIBzZAAR3TjGDh5D8dTJolnHA2QDL+U7yCAuU/PITm0nbiNkB2deaC
-uSXlP4PekiY/UjdAc0fyC6FH5T9VhiGniLo3QHctReaxZuU/h/kLwZgrOEA9
-Qsd3yYflP0W62AcqlThAMOXG/yOm5T8+GeT4//84QJKO6yhXxOU/+lm9dg==
-
-                    "]]}, 
-                  Annotation[#, "Charting`Private`Tag$54449#1"]& ]}}, {}}, {
-              DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
-               AxesOrigin -> {0, 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 -> {{0., 25.}, {0., 0.6802173423024718}}, 
-               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[{"0.`", ",", "25.`"}], "}"}], "}"}], 
-                   "SummaryItem"]}]}, {
-                RowBox[{
-                  TagBox["\"Output: \"", "SummaryItemAnnotation"], 
-                  "\[InvisibleSpace]", 
-                  TagBox["\"scalar\"", "SummaryItem"]}]}, {
-                RowBox[{
-                  TagBox["\"Order: \"", "SummaryItemAnnotation"], 
-                  "\[InvisibleSpace]", 
-                  TagBox["4", "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[{{0., 25.}}, {
-    5, 7, 1, {65}, {5}, 0, 0, 0, 0, Automatic, {}, {}, False}, CompressedData["
-1:eJxTTMoPSmViYGBgBGJHBgT4s/LjJd+kAPvDXZwK2X867N98nXytJXKlvai1
-VPuv2Gf24nMO3td/9ta+oObtTNXGT/bhCSdehZ3/av9ty+H4yaY/7ct/ZG9y
-2/vH/rzne+l4awaHm04TmoXUmBx+3jL2ZhJhcTh5IvLGZT42h106amby19kd
-ctTu5xQ/5nSI3rj/zTwbHgeT65lLlhbxOZwtlcpcKSPg8DNttvTlzwIOn3ik
-fqnvEHRYmg3UsFnI4ZLE2sWrVgo7uHH0m/VViDgkb+lbpZYh6rA27+ucL/vE
-HPZfOT+764u4Q4fgocW9jyUcWrRMqxdMlXaolLszd+ttGYfazWd7X56UcwDa
-skdWUcFB75G14etWRQcNri+dNpZKDhzPXnys1lZ2+OR4Pu0qu4pD+/LwU0Ys
-qg6JIUHqCzzVHI4qbCjKEFR3SH4X5WTHoeHw2EzqQPQDDQf1Q23Lw19pOtz3
-752et0nLoSbRKNRglbZDdbO+z7IuHYc3gTvkWrt1HQL+SBRfv6TnwK2iUdfz
-U99B5vUjM6kJBg5bzX8cSpEydJDWv6vCNtHQYZ/BTC0JViOHSwz3mDhnGTk4
-LLm/j0/G2CH/Q+vJkIXGDmfPAIGOicOBaAXHj5tNHFiP9huW+5o6RLZZXDu6
-1xTiDiczh72PRWRPXjVz8ABZHG7uoLtp7vvlz8wdniYuvGaSb+EAiX1LBwCB
-r+DA
-    "], {
-    Developer`PackedArrayForm, {0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24,
-      26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 60, 
-     62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, 
-     98, 100, 102, 104, 106, 108, 110, 112, 114, 116, 118, 120, 122, 124, 126,
-      128, 130}, CompressedData["
-1:eJxlzPk3GwYAB/DoKu4jYUZVDbWa9HC0qhb5Wlnx5nl56ihG1Fxlfa7Ns7dO
-K0TcReeYLnPWLaZbpbRFR3iljjriDrkcTye12LPWuuP3ff6Aj1l4vE+kEoFA
-YBL+73wDo6EjwZ/GZlZMVW4p46Nv5bwTmiO0vjOt853NLjhsV3fspxp1+LV8
-wmH0hKFwMy5VU4UJF/dsQWZ5OaJ+qLe2SCmEsmlNI1GfA/MZvbhqmzJoDili
-4x5WgxzdnzH5FQcmn4mHL1+vRb22miFrohbfhFd56CjqQKVdIRuFNsK7q33E
-zfceXAqgc+JGG4yiTBoFPzbAsnRAK0GlE8JCrvjURiP46jzOqb9/xmgfpi08
-mvHm1wvdg448pPtUXbN43QKKc7hrlm8PqAY53hrbbag8HfhoxaEXypuk/qvb
-HXjJ5dr4c56CqqHSnEC/D/8OHoXkN4hRsWHwFOkBSm4fV9l4PoQhz5pKIYOH
-qIjTXb8HP8P8b0qHctCNZGbrwAeCUdj2RiVu0HugTj128Y7BBESH5x8Mf9mD
-V4nGZ32OvADMta1UznYjyj1GXe47BZOGUO2C/76bLF15dPU0IkO8THWWfgHR
-gC7UdpyF3Yqucik6Yem+ztiMFeDkw5mDhffbYX/u/njx+TlcHjUbkI82oyUj
-IzfQaAHU4cCa9PI6vPPk7U7k3ALWJeki1bEavHQufPfrxUVEOPpJqP1VsKER
-d74oXIJNiZYaL48Ddv7SIoe/jPEAWv6llEpQ5ZP8EP8VCPY9fFucvodqdxB7
-UEeIPxJyRx+PlMPIgWpZ2yGErr5YAy1leLLz3jg/ZBVH37gOxrBKUWTsdfXA
-cA2sCr+j1s7fYeWIE5MYsAbt6jKzbtYdqF3vKRusXoN56ecWWz0laGslqEqF
-awgdYyicyCV4pBhrS7ISgZfW1/XcvxjZLnkxCyEiFFPUSPLpIkz2JV0RcETI
-3T1uuUAtgrvC01k2K4I0OU/oknobc25u63t6YnguEVgrEYVI8VMYqIeJQac8
-tv/QrABJxNUOcY0Yf4roQWv6+Zg7WLwZKRKD7fvaqsk4D1buS/8QjSW4JTBR
-OUfLRdAIy0r5Uwn6/prQO5OfA8kumcRPlUCsqO2c38yG64yr12SnBF69DbSP
-TbNhOFshsBZLcLB8rMvrBhtNmTbbsWQpPLnzFo7LWdCKKaPnu0qRWNtI7qBm
-wX5P1rWVKEWYIYl/l8uC/X7koZP3pCBKRPv+Oizkrgu9+59Jwa6kpMXUZqIp
-7W0icU+KUNOLSresMhEv380QmMlg18/oMq3PACX9qaatpwzVxrYtFxwyYEzj
-RnOTZViKaH+hxWdiMWT9kuddGcbGh/aYwUystm1ZBwzK4Bjtdi3+VTr+BahG
-6i0=
-     "]}, {Automatic}],
-   Editable->False,
-   SelectWithContents->True,
-   Selectable->False], "[", "x", "]"}]], "Output",
- CellChangeTimes->{
-  3.789818360124195*^9, 3.789818667629681*^9, 3.789818746856895*^9, {
-   3.789818811882657*^9, 3.7898188177936583`*^9}, 3.789819583555128*^9},
- CellLabel->
-  "Out[114]=",ExpressionUUID->"74adcd61-8d07-48ce-971c-dd83b1e3ca60"]
+                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    RGBColor[0.880722, 0.611041, 0.142051], 
+                    AbsoluteThickness[1.6]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    RGBColor[0.880722, 0.611041, 0.142051], 
+                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    AbsoluteThickness[1.6]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
+                 GridBoxAlignment -> {
+                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
+                 AutoDelete -> False, 
+                 GridBoxDividers -> {
+                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
+                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
+                  GridBoxSpacings -> {
+                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
+             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
+             AutoDelete -> False, 
+             GridBoxItemSize -> {
+              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
+            "Grid"], Alignment -> Left, AppearanceElements -> None, 
+           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
+           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
+         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
+         False], TraditionalForm]& ), 
+      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, 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[{"Opacity", "[", "1.`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.880722, 0.611041, 0.142051], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, 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[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], 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.560181, 0.691569, 0.194885]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
+              "}"}], ",", 
+           RowBox[{"{", 
+             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"{", "}"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
+      Editable -> True], TraditionalForm], TraditionalForm]},
+  "Legended",
+  DisplayFunction->(GridBox[{{
+      TagBox[
+       ItemBox[
+        PaneBox[
+         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
+         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
+       "SkipImageSizeLevel"], 
+      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
+    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
+    AutoDelete -> False, GridBoxItemSize -> Automatic, 
+    BaselinePosition -> {1, 1}]& ),
+  Editable->True,
+  InterpretationFunction->(RowBox[{"Legended", "[", 
+     RowBox[{#, ",", 
+       RowBox[{"Placed", "[", 
+         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
+ CellChangeTimes->{{3.78983242832556*^9, 3.789832453466649*^9}, {
+  3.789832544222557*^9, 3.789832559707768*^9}},
+ CellLabel->"Out[68]=",ExpressionUUID->"7b89c7a1-9d18-49a7-bf31-752df41c7067"]
 }, Open  ]],
 
-Cell[CellGroupData[{
-
-Cell[BoxData[
+Cell[BoxData[{
  RowBox[{
-  RowBox[{"s12", "[", "x_", "]"}], "=", 
   RowBox[{
-   RowBox[{"Ss", "[", 
-    RowBox[{"d", "[", 
-     RowBox[{"SelectFirst", "[", 
-      RowBox[{
-       RowBox[{"#n", "\[Equal]", "12"}], "&"}], "]"}], "]"}], "]"}], "[", "x",
-    "]"}]}]], "Input",
- CellChangeTimes->{{3.789818072879238*^9, 3.78981807590705*^9}, {
-  3.789818340608953*^9, 3.7898183589082117`*^9}, {3.789818732506002*^9, 
-  3.7898187360151863`*^9}},
- CellLabel->
-  "In[115]:=",ExpressionUUID->"db5e13eb-a70e-45e3-bf97-b88ce1b857b6"],
-
-Cell[BoxData[
+   RowBox[{"s8", "[", "x_", "]"}], "=", 
+   RowBox[{
+    RowBox[{"Sf", "[", "sample8", "]"}], "[", "x", "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
  RowBox[{
-  InterpretationBox[
+  RowBox[{
+   RowBox[{"s12", "[", "x_", "]"}], "=", 
    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/CFib1JlAgAAADwAAAACAAAAnIW2B5tvnD4AAICAtunvPEXRMWw0
-Fdo/M/qEJOk7aj8FZS60Bi7rP6kesncG+Yk/aslGZ8ww9D9rzxAuOlOaP8qC
-eNpvqfo/Wfy/iRMupT8VebNxPtcAQCTBduRWGa8/IB09Xc4dBECBWX3ZPpi0
-PykcpROTqgdAQ9Sje0xguj9wLA79xCYLQF4GCrgVIcA/EKmJTQBnDkAo7Lkg
-4e/CP1jAcTS49hBAP/RC7TwWxj9V4qf19JsSQF5C3Rvwask/8YxeUOg4FEBs
-kzX8hyXOPwxlhBD2+BVAH8ers6Zy0z9VczOECJsXQPMzKpHmwNc/Hq9RXTVg
-GUCZmHTabnjaP4Vz8M8YHRtAWDUhsYT52z8Zbhj2ALwcQJ93P9lqBN0/LZav
-gQN+HkDmELf6xP3dPzj6Z2AFESBAEPhzKu/Q3j8ZwK8ylvQgQLgzDbcepd8/
-Scq3UQLUIUCfrAea/TPgP49vhMpwpCJABqgu0eOJ4D+Vqwh2bIYjQF0u0IVM
-4uA/soJRe2pZJEDcwceO7DDhPx6eWs1DKCVAVpd5I7p64T9KUBtSqggmQCml
-8cp/x+E/jZ2gMBPaJkCo6rvDUgziP4+B3UEJvSdAFV3pTRVU4j/hqdqf2pso
-QKLr7FHol+I/SW2cV65rKUAchbItA9XiP3HHFUIPTSpAbebGNxgV4z+wvFOG
-ch8rQJjRi3r/TuM/PvZRF7HtK0Bz+bkTEYbjP4zGB9t8zSxA3+hDMwnA4z/w
-MYL4Sp4tQIh1nhCL9OM/FDS0SKaALkDvqfTU2CvkP0/RqvIDVC9A9Zb7fQ9e
-5D9t2bB0nhEwQFLZ//kFjuQ/khVoiQGCMEA6e48Zs8DkP0KfAcvl6jBAGwpT
-yMru5D9S9PalkFwxQL1sMhx+H+U/imtMJynMMUBlb6p/Gk7lP00whNVCNDJA
-cOY9QpB45T9wwBcdI6UyQN6Hw1CLpeU/H56NkYQOM0AtAt+uls7lP/WdY6zT
-dTNAt15hdPn15T8raZVg6eUzQMre67vKH+Y/7IGpQYBONEBykiXh/EXmPw1m
-GbzdvzRAGs3s3YVu5j9WbOncKC81QI+VQI16leY/KsCbKvWWNUCSfpTPGLnm
-P17fqRGIBzZAqJxzY/ve5j8dTJolnHA2QPFtvuurAec/PITm0nbiNkD6Ss+L
-jCbnP4PekiY/UjdApYoT3Q9K5z9VhiGniLo3QAf5RP+Yauc/h/kLwZgrOEDp
-1wzmPo3nP0W62AcqlThAWeWr1Aet5z8+GeT4//84QFV4plmpzOc/ZeHFWg==
-
-                    "]]}, 
-                  Annotation[#, "Charting`Private`Tag$54516#1"]& ]}}, {}}, {
-              DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
-               AxesOrigin -> {0, 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 -> {{0., 25.}, {0., 0.7437330962163836}}, 
-               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[{"0.`", ",", "25.`"}], "}"}], "}"}], 
-                   "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/CFib1JlAgAAADwAAAACAAAAnIW2B5tvnD4AAICAtunvPEXRMWw0
-Fdo/M/qEJOk7aj8FZS60Bi7rP6kesncG+Yk/aslGZ8ww9D9rzxAuOlOaP8qC
-eNpvqfo/Wfy/iRMupT8VebNxPtcAQCTBduRWGa8/IB09Xc4dBECBWX3ZPpi0
-PykcpROTqgdAQ9Sje0xguj9wLA79xCYLQF4GCrgVIcA/EKmJTQBnDkAo7Lkg
-4e/CP1jAcTS49hBAP/RC7TwWxj9V4qf19JsSQF5C3Rvwask/8YxeUOg4FEBs
-kzX8hyXOPwxlhBD2+BVAH8ers6Zy0z9VczOECJsXQPMzKpHmwNc/Hq9RXTVg
-GUCZmHTabnjaP4Vz8M8YHRtAWDUhsYT52z8Zbhj2ALwcQJ93P9lqBN0/LZav
-gQN+HkDmELf6xP3dPzj6Z2AFESBAEPhzKu/Q3j8ZwK8ylvQgQLgzDbcepd8/
-Scq3UQLUIUCfrAea/TPgP49vhMpwpCJABqgu0eOJ4D+Vqwh2bIYjQF0u0IVM
-4uA/soJRe2pZJEDcwceO7DDhPx6eWs1DKCVAVpd5I7p64T9KUBtSqggmQCml
-8cp/x+E/jZ2gMBPaJkCo6rvDUgziP4+B3UEJvSdAFV3pTRVU4j/hqdqf2pso
-QKLr7FHol+I/SW2cV65rKUAchbItA9XiP3HHFUIPTSpAbebGNxgV4z+wvFOG
-ch8rQJjRi3r/TuM/PvZRF7HtK0Bz+bkTEYbjP4zGB9t8zSxA3+hDMwnA4z/w
-MYL4Sp4tQIh1nhCL9OM/FDS0SKaALkDvqfTU2CvkP0/RqvIDVC9A9Zb7fQ9e
-5D9t2bB0nhEwQFLZ//kFjuQ/khVoiQGCMEA6e48Zs8DkP0KfAcvl6jBAGwpT
-yMru5D9S9PalkFwxQL1sMhx+H+U/imtMJynMMUBlb6p/Gk7lP00whNVCNDJA
-cOY9QpB45T9wwBcdI6UyQN6Hw1CLpeU/H56NkYQOM0AtAt+uls7lP/WdY6zT
-dTNAt15hdPn15T8raZVg6eUzQMre67vKH+Y/7IGpQYBONEBykiXh/EXmPw1m
-GbzdvzRAGs3s3YVu5j9WbOncKC81QI+VQI16leY/KsCbKvWWNUCSfpTPGLnm
-P17fqRGIBzZAqJxzY/ve5j8dTJolnHA2QPFtvuurAec/PITm0nbiNkD6Ss+L
-jCbnP4PekiY/UjdApYoT3Q9K5z9VhiGniLo3QAf5RP+Yauc/h/kLwZgrOEDp
-1wzmPo3nP0W62AcqlThAWeWr1Aet5z8+GeT4//84QFV4plmpzOc/ZeHFWg==
-
-                    "]]}, 
-                  Annotation[#, "Charting`Private`Tag$54516#1"]& ]}}, {}}, {
-              DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
-               AxesOrigin -> {0, 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 -> {{0., 25.}, {0., 0.7437330962163836}}, 
-               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[{"0.`", ",", "25.`"}], "}"}], "}"}], 
-                   "SummaryItem"]}]}, {
-                RowBox[{
-                  TagBox["\"Output: \"", "SummaryItemAnnotation"], 
-                  "\[InvisibleSpace]", 
-                  TagBox["\"scalar\"", "SummaryItem"]}]}, {
-                RowBox[{
-                  TagBox["\"Order: \"", "SummaryItemAnnotation"], 
-                  "\[InvisibleSpace]", 
-                  TagBox["4", "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[{{0., 25.}}, {
-    5, 7, 1, {65}, {5}, 0, 0, 0, 0, Automatic, {}, {}, False}, CompressedData["
-1:eJwBGQLm/SFib1JlAgAAAAEAAABBAAAAAAAAAAAAAAD8qfHSTWJQPxHZUeYw
-qZs/u9bep6rQwD+Qn41cN6XSPxGPxMvTOeM/xXQhVn+E6z9XQ+IeSx/wPz9v
-KlJh7PI/HebLC7AP9j8yIHu9++P4P39N1qiHaPw/SPlJtU8HAEAQr+sX7MYB
-QIT1fw7zZQNAiZgSSfQyBUB4tHHEWvwGQJ3X2CWqtwhAQj7o2ay6CkC7m6c6
-5KYMQJ8fRgiPdg5ATI47pYNVEEBIbeLkfocRQGItPgXAWBJADhXj/E0IE0CO
-QLyuX7ATQNc07zhFJxRAHy457pSOFEB4l4v4TuwUQPWc9L7xNRVA4PPDCOFx
-FUBYxRuZR74VQN+mP/uRAhZATRWMSupEFkCWBKipZYsWQCodrP9z2BZA9gt2
-w7YlF0Bjl6jeGngXQNl3RfC/1RdALLe0GhJXGEAKEXAIVQoZQOVhodY0zxlA
-qcE0DB/xGkDhtOBFX4EcQCcxCKwcGh5A2iCTjJwFIED1nPS+8RUhQOtunuqQ
-ayJAn+V5cHd2I0BwXwfOGbEkQNnO91PjJSZAtvP91HipJ0CJQWDl0AIpQCuH
-FtnOlypAOiNKe4MvLEDM7snDQs0tQF66SQwCiy9A7nw/NV66MECYbhKDwMox
-QB4Wak3zvjJAkDF3LSHPM0DYgXNGlAY1QI51cRsNUDZAT6+UZYiTN0AAAAAA
-AAA5QGun4C4=
-    "], {
-    Developer`PackedArrayForm, {0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24,
-      26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 60, 
-     62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, 
-     98, 100, 102, 104, 106, 108, 110, 112, 114, 116, 118, 120, 122, 124, 126,
-      128, 130}, CompressedData["
-1:eJxlwYs/EwgAB/CtxHUPj7v2qYkKnz5SfcjppNz5kUd6KDO3aJfu5Ll03brW
-5TxO5JliGDUU8oh5nITWvB+ZzGMqzHvmMaWyQuns3B9w36+e5wUXbyKBQAgn
-/F9spn0f0fRHK06T8IDFAxWQkm7x1h17Y9Vr1qIriafgIWlPMiXcHIbKlUBv
-PxbMd1w9HeBOR8dsivrj5Sj0CbvHL/gEYUFV0S04yUHKzzH/mCbGwaXJrl+V
-nIG/2NXWBmVsaEqWI7Mu3oX7XECXTVga2HSBIP9yNuqS/E9QHtxBY1v11U6T
-exgwyXVWHcnBVEgAkxaXi5p6swDN6wXYkvJZ4EtlHvQvuYQUVBZjfxHVu+FQ
-AVTbN2jIF/6G8drI34KP34f0lF3XKqsCc8I2rR5yIfh/NoeaulZhTJuV7d5X
-iJGWJG4c+PB/OUXKDygC4+TKN2v0azAQ3qmzb6QIgvNpb7Ji6+Gq4yu6doiH
-+1ncM0pGI95SuxxEGTy4L4pXryib4NV6KbroAw8W+xpCKudb8MwiWCxpKYaw
-3baSvqMNV2wUKjzNMtSmO24OfS6E40YBupjl0P1S5HKA+RTxbN54PfMhgsip
-bunHRJhazddwMOAjM0Gwy1DWiX81pt9n82uxvTzo9qOwbpgVhvr6mDZia/3O
-pczUHlwO8xrlejRjaUY+6eosxu7aHROJ71qQLwy8GqAQIzfpKPG6yhOo52Sb
-FQl7sUTYYPbp4xMI9zi28m4+A13rp1UarQ3WfhzHxRPPkdezwaj42zY46A4k
-9JFfQE6VH8yIf4Lt1LWzf7x+AYuh2RJ7SisW+P3LLyr60CU7/Eq9uhmfYqok
-Wqx+kInpJTfaG8HN5f6y02IADJP5O6TN9dA7b2qrpiOBVEbKs2TyQavIz20g
-DWK/GtXYJLgChx0sPdfPDuK74Nkyde9S3FOctUuVDIF18DRxPrkA9Hat9Wel
-w8gTD+ecc76HiBBVSpNwBB8KzS/f2JWNMOvY2NHWUbCNO07t2XQXtDlPa2XT
-GNSWGcrEqAz8cO0RW3ZxHJIwbScjTS7WLDOpe4fH8bgu8HZJ8C1463ULOc5S
-aLxLjnedSUX/cy8NW7EUr8RG9osuHASpEgaJxycgH60zbJYnQ/TWa++vVRPI
-6V4SM8VJ2LLOhzVmJMPkUKW3VTkbBh+/ljmlyaB78oOLojQRZyr8bQ0Jk/Az
-KF9RxCUgi7c7Vc6YBGPxdzdO5w2ojG8NSZdM4hxDZUiwKR6Liq6KSKcpeGrz
-LWV+cdgW8dq3tGwKuUe2SXs1Y6Ejkn7usXEaIxS6vtOjaCRQyd97RE/jaHO4
-WzQtCsUrZwXKpWnsEueo9X4ViddfdLwP9ZiB2s0Y4qG5CJj31NALRTNg8ZU2
-UU/D8R++lwbJ
-     "]}, {Automatic}],
-   Editable->False,
-   SelectWithContents->True,
-   Selectable->False], "[", "x", "]"}]], "Output",
- CellChangeTimes->{3.789818360124195*^9, 3.789818667629681*^9, 
-  3.789818736796588*^9, 3.789818818957527*^9, 3.78981958445508*^9},
- CellLabel->
-  "Out[115]=",ExpressionUUID->"d6a711e2-2f0e-428d-8dce-4ea95f7261f3"]
-}, Open  ]],
+    RowBox[{"Sf", "[", "sample12", "]"}], "[", "x", "]"}]}], ";"}]}], "Input",\
 
-Cell[CellGroupData[{
+ CellChangeTimes->{{3.789818072879238*^9, 3.78981807590705*^9}, {
+  3.789818340608953*^9, 3.7898183589082117`*^9}, {3.7898187403625097`*^9, 
+  3.789818745944372*^9}, {3.789818811197695*^9, 3.789818811385725*^9}, {
+  3.789831546161499*^9, 3.789831546839629*^9}, {3.7898320404262114`*^9, 
+  3.7898320553038607`*^9}},
+ CellLabel->"In[46]:=",ExpressionUUID->"09f155dc-a270-465f-83b4-5452a9d3c6a6"],
 
-Cell[BoxData[
- RowBox[{"fit8", "=", 
-  RowBox[{"NonlinearModelFit", "[", 
-   RowBox[{
-    RowBox[{"Table", "[", 
-     RowBox[{
-      RowBox[{"{", 
-       RowBox[{"x", ",", 
-        RowBox[{"s8", "[", "x", "]"}]}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"x", ",", "24", ",", "25", ",", "0.05"}], "}"}]}], "]"}], ",", 
-    
-    RowBox[{
-     RowBox[{
-      RowBox[{"logZ0", "[", "8", "]"}], "/", 
-      SuperscriptBox["8", "2"]}], "-", 
-     RowBox[{
-      RowBox[{"(", 
-       RowBox[{"1", "-", 
-        RowBox[{"1", "/", "8"}]}], ")"}], " ", 
-      RowBox[{
-       RowBox[{"Log", "[", 
-        RowBox[{"2", "\[Pi]", " ", 
-         RowBox[{"\[ExponentialE]", "/", 
-          RowBox[{"(", 
-           RowBox[{"\[Beta]", " ", "8"}], ")"}]}]}], "]"}], "/", "4"}]}], "-", 
-     RowBox[{"logN", "/", 
-      SuperscriptBox["8", "2"]}]}], ",", "logN", ",", "\[Beta]"}], 
-   "]"}]}]], "Input",
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"fit8", "=", 
+   RowBox[{"ff", "[", 
+    RowBox[{"sample8", ",", "0.5", ",", "0.01"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"fit12", "=", 
+   RowBox[{"ff", "[", 
+    RowBox[{"sample12", ",", "0.5", ",", "0.01"}], "]"}]}], ";"}]}], "Input",
  CellChangeTimes->{{3.789818955879264*^9, 3.7898190417484913`*^9}, {
   3.789819085394668*^9, 3.789819091758133*^9}, {3.789819628723962*^9, 
   3.7898196362971153`*^9}, {3.7898199879787416`*^9, 3.789820000838752*^9}, {
-  3.789820614022482*^9, 3.78982065862674*^9}},
- CellLabel->
-  "In[198]:=",ExpressionUUID->"faf27222-05ad-48db-b551-d6176fd5d567"],
-
-Cell[BoxData[
- TagBox[
-  RowBox[{"FittedModel", "[", 
-   TagBox[
-    PanelBox[
-     TagBox[
-      RowBox[{"0.1419909084763723`", "\[VeryThinSpace]", "-", 
-       RowBox[{
-        FractionBox["7", "32"], " ", 
-        RowBox[{"Log", "[", 
-         FractionBox[
-          RowBox[{"\[ExponentialE]", " ", "\[Pi]"}], 
-          RowBox[{"4", " ", "\[Beta]"}]], "]"}]}]}],
-      Short[#, 2]& ],
-     FrameMargins->5],
-    Editable -> False], "]"}],
-  InterpretTemplate[
-  FittedModel[{
-    "Nonlinear", {$CellContext`logN -> 
-      21.65166476666278}, {{$CellContext`\[Beta]}, 
-      Rational[-1, 64] $CellContext`logN + 
-      Rational[1, 64] (20 Log[2] - Log[6] - Log[
-        Rational[1, 2] Pi^Rational[1, 2]] - Log[
-        Rational[3, 4] Pi^Rational[1, 2]] - Log[
-        Rational[15, 8] Pi^Rational[1, 2]] + Rational[35, 2] Log[Pi]) + 
-      Rational[-7, 32] Log[Rational[1, 4] E Pi/$CellContext`\[Beta]]}}, {
-    1}, CompressedData["
-1:eJxTTMoPSmViYGAQBWIQDQEWDk9rl3lLVj+1P3sGCHgsHA6e2Rx9te6p/ayZ
-QCBp4dB1Uj63v+mpfRoIqFk4+OmEN7i3PbU3BgMLh4viGtP+dj61BxvnYOFw
-RPbe+o29UPN8LBwYnOPOJ0+Emhdp4bCT2fm78FSoeWkWDvvCf2gdmgE1r9jC
-4e/VCXl5c6DmNVg4XEs3OySxAGpej4VDZ/MjtYOLoebNtHD4lrRtXvpyqHnL
-LBymer3U5lkNNW+zhUNZ54kL69ZBzTtg4WBfub3ffxPUvDMWDrp1+tnvtkLN
-u2nhIMp+ILV7J9S8ZxYOKb18TWp7oeZ9tnCQm3rt0P4DUPMYLB3ur3mpFX7k
-qT0AWZCXHw==
-    "], 
-    Function[Null, 
-     Internal`LocalizedBlock[{$CellContext`logN, $CellContext`\[Beta]}, #], {
-     HoldAll}]]& ],
-  Editable->False,
-  SelectWithContents->True,
-  Selectable->True]], "Output",
- CellChangeTimes->{
-  3.7898190432299767`*^9, {3.7898190857153063`*^9, 3.789819091977379*^9}, 
-   3.789819585687628*^9, {3.789819631032202*^9, 3.789819636628154*^9}, 
-   3.7898200010500107`*^9, {3.789820617302545*^9, 3.789820658889573*^9}},
- CellLabel->
-  "Out[198]=",ExpressionUUID->"8d55ea2c-d0f1-46ce-9113-d087b7dc0709"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"fit12", "=", 
-  RowBox[{"NonlinearModelFit", "[", 
-   RowBox[{
-    RowBox[{"Table", "[", 
-     RowBox[{
-      RowBox[{"{", 
-       RowBox[{"x", ",", 
-        RowBox[{"s12", "[", "x", "]"}]}], "}"}], ",", 
-      RowBox[{"{", 
-       RowBox[{"x", ",", "24", ",", "25", ",", "0.01"}], "}"}]}], "]"}], ",", 
-    
-    RowBox[{
-     RowBox[{
-      RowBox[{"logZ0", "[", "12", "]"}], "/", 
-      SuperscriptBox["12", "2"]}], "-", 
-     RowBox[{
-      RowBox[{"(", 
-       RowBox[{"1", "-", 
-        RowBox[{"1", "/", "12"}]}], ")"}], " ", 
-      RowBox[{
-       RowBox[{"Log", "[", 
-        RowBox[{"2", "\[Pi]", " ", 
-         RowBox[{"\[ExponentialE]", "/", 
-          RowBox[{"(", 
-           RowBox[{"\[Beta]", " ", "12"}], ")"}]}]}], "]"}], "/", "4"}]}], 
-     "-", 
-     RowBox[{"logN", "/", 
-      SuperscriptBox["12", "2"]}]}], ",", "logN", ",", "\[Beta]"}], 
-   "]"}]}]], "Input",
- CellChangeTimes->{{3.789818955879264*^9, 3.7898190417484913`*^9}, {
-  3.789819085394668*^9, 3.789819091758133*^9}, {3.789819628723962*^9, 
-  3.7898196670555353`*^9}, {3.789819741878034*^9, 3.789819742314652*^9}, {
-  3.789820032771653*^9, 3.789820044215356*^9}, {3.789820592678129*^9, 
-  3.789820607802986*^9}, {3.78982066564784*^9, 3.7898207068254957`*^9}, {
-  3.7898224619322357`*^9, 3.789822468070911*^9}},
- CellLabel->
-  "In[221]:=",ExpressionUUID->"4efd9ff7-727d-4935-a6af-8855bb5270f5"],
-
-Cell[BoxData[
- TagBox[
-  RowBox[{"FittedModel", "[", 
-   TagBox[
-    PanelBox[
-     TagBox[
-      RowBox[{"0.08695911028648745`", "\[VeryThinSpace]", "-", 
-       RowBox[{
-        FractionBox["11", "48"], " ", 
-        RowBox[{"Log", "[", 
-         FractionBox[
-          RowBox[{"\[ExponentialE]", " ", "\[Pi]"}], 
-          RowBox[{"6", " ", "\[Beta]"}]], "]"}]}]}],
-      Short[#, 2]& ],
-     FrameMargins->5],
-    Editable -> False], "]"}],
-  InterpretTemplate[
-  FittedModel[{
-    "Nonlinear", {$CellContext`logN -> 
-      43.82158767202141}, {{$CellContext`\[Beta]}, 
-      Rational[-1, 144] $CellContext`logN + 
-      Rational[1, 144] (43 Log[2] - Log[6] - Log[24] - Log[120] - Log[
-        Rational[1, 2] Pi^Rational[1, 2]] - Log[
-        Rational[3, 4] Pi^Rational[1, 2]] - Log[
-        Rational[15, 8] Pi^Rational[1, 2]] - Log[
-        Rational[105, 16] Pi^Rational[1, 2]] - Log[
-        Rational[945, 32] Pi^Rational[1, 2]] + Rational[77, 2] Log[Pi]) + 
-      Rational[-11, 48] Log[Rational[1, 6] E Pi/$CellContext`\[Beta]]}}, {
-    1}, CompressedData["
-1:eJwt1HlU1FUUB/CRo1kYqYWI6AHBDNQOekLhJnF+V61GERcWIxgoNAXEBDyK
-IaUoOKwyhJrDYsO+KQ6LCsjesAqjYFAEubHEU+SIS+Myp7Q3073n/M7v3H++
-v/fu572f5Y4Qt10GIpFoF3907/8L0MRAPONZJBOaNTY+yQaA1m8eDGw4ygTp
-A9dq82mAJ1UbymKOMWH9UISxcjrg+++1D2+OYoJhf26okyHg8OCT1ybRTLim
-5vU24Aztjel3eJ+s4oEzAU237tYWHGeCW7W59MFswLra+v5gKROMlWKeCDhq
-1pdpH8MEfdxcwCrncrdXvE9P4zUP8Iy196PWWCb46AIXAM5P6g1PimOChX6B
-vP/CasIjngm65YktAfN8NjovSGBCHo/rXwT46pD7qRHe++vqA8CSGKH9XCIT
-lugDAfd4G4/tO8GECZ4mXQa4XP37JCQxQb88W0CbisTR17zfx+NyVwCqhhxa
-2mRMsNMXoGL5XVlSMhOe8fGpVgGeDYn/1ONHJui26wqANw7AX2YpTPhet+HV
-gCmzn4QO8d5JP0BA/7m1rPAkE/QcyD08UzcEnyKPtYCZWbIzK0+Tx2eAq5tz
-rmtPk4cYUJI08LjpJ/JwBlSqHUSxZ8jDhc9ns+qli5w8tgA23Tp8+91U8nAF
-1H4eovwjlTw8AH08MnYr0sjDE7Cy+41ZO9PJwwvwnajK7CUZ5OEDWGhXaj6Z
-QR5f8Xmf18RcOkse2wE7ymWDh34mj28A/zaMnCcoyMMf8MIPXeumZpJHIKBn
-V7jX1Uzy2AMoq0n0lmWRRzDgUqO3xO7Z5BEK6CTVmJvmkMd+wNmj24Zv5pBH
-GOCH47Yp2bnkEQ64yVO6zD+PPCIA9477li/NJ4/DgA3b660m88njKF9fRFHk
-xQLyiAIceryo47tC8pACOkav/MexiDxiAfvu354vKiaPBMApd62tW4rJ4wTg
-Vgtj87hz5JEMmOBXJHI5Tx4pgGWS+9dnlpDHaT7P9j/jekvIQw44LjluK79A
-HmmAi6+xRm8leZzl96XH0Mm8lDwUgDvMnuQPlZJHNiDzzdHmlZFHLmDtpoWO
-geXkUcC/nxEasKyCPIoAe17IIx9WkMd5njcnI7r8InkoAUeyjuw/cIk8yvj5
-cBZvcbhMHhcBextemmgvk8dlQL+S9M66SvKo5uez0TYosoo8agALcmo0a6rJ
-ox5wYMq6vVOvkEcTYGeMuqftCnmoANsGJQvja8ijFXBbgUaysZY82vl9SVFE
-G9WRRydgyFqJvLuOPNT8fPitkKfUk0c34J1kq2j3BvK4AfjRQXvJnEby6AOc
-XhVq0d9IHv2ARzS/dac2kccA4ERv0Lfev5DHTT6fp3aa+SryuM3/L89WBd1S
-kccQ4K8RYV2KZvIYATSyfG7q10IeY4BesY1ulq3kcQ8wYGNv+HAreTzg/oYO
-iblt5PEQsPrryfid7eTxCPAYE4Ut7iCPp4Bmn4S6jHWQhwbwy+drZhVeJY8X
-gOsrIpoCOslDy/c/zcLXpos8/gVMjbUbu9dFHqKP0b6nTlKsZsJ/SvkIoA==
-
-    "], 
-    Function[Null, 
-     Internal`LocalizedBlock[{$CellContext`logN, $CellContext`\[Beta]}, #], {
-     HoldAll}]]& ],
-  Editable->False,
-  SelectWithContents->True,
-  Selectable->True]], "Output",
- CellChangeTimes->{
-  3.7898190432299767`*^9, {3.7898190857153063`*^9, 3.789819091977379*^9}, 
-   3.789819585687628*^9, {3.789819631032202*^9, 3.789819636628154*^9}, 
-   3.789819668850231*^9, 3.789819742671688*^9, 3.7898200469962473`*^9, {
-   3.789820593415386*^9, 3.789820617938416*^9}, {3.789820650005217*^9, 
-   3.789820707095992*^9}, {3.7898224624031363`*^9, 3.789822468629485*^9}},
- CellLabel->
-  "Out[221]=",ExpressionUUID->"ffeff05c-4235-40d0-8626-532170640c37"]
-}, Open  ]],
+  3.789820614022482*^9, 3.78982065862674*^9}, {3.789831005306398*^9, 
+  3.7898310300074987`*^9}, {3.789831442674109*^9, 3.789831462231441*^9}, {
+  3.7898317830894527`*^9, 3.789831783399386*^9}, {3.789832066674664*^9, 
+  3.78983207936756*^9}},
+ CellLabel->"In[48]:=",ExpressionUUID->"faf27222-05ad-48db-b551-d6176fd5d567"],
 
 Cell[CellGroupData[{
 
@@ -3021,14 +1149,20 @@ Cell[BoxData[
      RowBox[{"s12", "[", "x", "]"}], ",", 
      RowBox[{"fit12", "[", "x", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
-    RowBox[{"x", ",", "0", ",", "25"}], "}"}]}], "]"}]], "Input",
+    RowBox[{"x", ",", "0", ",", "25"}], "}"}], ",", 
+   RowBox[{"AxesLabel", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"\[Beta]", ",", 
+      RowBox[{
+       RowBox[{"s", "[", "0", "]"}], "-", 
+       RowBox[{"s", "[", "\[Beta]", "]"}]}]}], "}"}]}]}], "]"}]], "Input",
  CellChangeTimes->{{3.7898191382164*^9, 3.78981915322369*^9}, {
   3.789819203381546*^9, 3.7898192055038*^9}, {3.789819326102756*^9, 
   3.789819347009884*^9}, {3.789819591195232*^9, 3.789819600655766*^9}, {
   3.7898196738325663`*^9, 3.789819677929298*^9}, {3.7898197611734333`*^9, 
-  3.78981977649758*^9}},
- CellLabel->
-  "In[222]:=",ExpressionUUID->"511fd1ec-10b6-4e80-beb1-748a7f18c95e"],
+  3.78981977649758*^9}, {3.7898322181303864`*^9, 3.789832224367557*^9}, {
+  3.789832474001747*^9, 3.789832488208096*^9}},
+ CellLabel->"In[65]:=",ExpressionUUID->"511fd1ec-10b6-4e80-beb1-748a7f18c95e"],
 
 Cell[BoxData[
  GraphicsBox[{{{}, {}, 
@@ -3107,58 +1241,58 @@ E5LnnMKip27G7bxEGiS5XggCChYRNbqUa/Yt7dMuWkzDIg49wtBqAw3Ox724
 TSxyGFJH0y006C3owLhvY1GYMe/h8FYaCJT8vvD4FxYRovgGRNpo4FR+/Fnf
 LhZxnT0RXb/viirvzb29/Xu/aAXbdhr8D3MPDy0=
        "]]},
-     Annotation[#, "Charting`Private`Tag$71242#1"]& ], 
+     Annotation[#, "Charting`Private`Tag$16381#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
       1.], LineBox[CompressedData["
-1:eJwVz3k8lP0exvGhUTooKVlyZMtWGcNUNyfP9ydLi6xZikMlO5FI1DxZsqRB
-tko1tlLhaWGkQtwziLRYJlmimOEWFU1lj3GcP67X5/X+81L1DHHwFiWRSLHL
-+385t7XO75J4D9dlyEHm8VxcaEGrExS8B1mFT2Ps9Vy8UPaTTbpyJ2z1NTtu
-WtOBmxMJAxRmJ6SV4e1DXh04I76bFHL9A7SZcLJ16tpx+YZzZuOp3VDUuoZb
-INmG12Sqd6ZI9EBQaINdZ2Qr7uH51mtbcg8IL7rtJo++w4tElBMD43uBrPFZ
-hN/6Fqcizquxc32wL0M8/GHNa/xA7SqbEd8BKJp2Sk0UNuHUJc+pjYIBSGE2
-621ObMJTVI62qu8eBJo4trJybRMe7ll9xrFxEBx52ePXtF/i5iOnGis7eVD9
-xSouK6QB549/Oh45NQQaKwjXsL1svCuNUZluNAxKrZElih04/ppitLrk72Eo
-vkGit8jiOCs0u6xXjADHE4w+53u1eOzUgSXjjSNwedtQCYNfjassPmMu7hyF
-F08pDH5NJb4hz1sge34UjAMd6s02V+LisN5cDx+FgvQTe53jn+A/YoK/eewd
-A6YRNyLgUAVeR95izHb5CkyJ1i53cjnuLpnZHRf5HfpnTX74OpXg76R2ria7
-C6C9qLpHJCIL51rJ5LTSBWD3klcc3piB9yRPaN5gCiDns4+99sZ0fFjsvrle
-vwD067yKTBOT8YVFuZjDbj/hmOOK4/riUbjuxNz0gyO/YHCi/Mp4VyRcaq0d
-dnKeBPnZp6HbTXIhTfJmmErEJOTcpWy1uJkH2QciRL9dnQSUNqSOpvIhv0lP
-JebDJLSqzvfTHQrhaV2+W6njFKSnSNNkp+8A8SiWK3SYhu8XOnbbrS2BPVcs
-2PdtZ0Eto0CMZFMOMQeelHCDZ6H0SopT7tVyqBNTz1pMnQXtow3xA/3lYEwn
-+Rx6OwtlIy/knQNYYOhfI7G0bw4Mi0NjNWIrQMOM6uK8Zx6UqVNuS3mVsHJG
-aYK8YwGgUprOL6gCcxajm+K4AJG1gVKFn6sg7uQ82zVsATxNYz9sUqoG4VB3
-Vln5Avg2Nh/ed60aZtozjf6rtwheazZ/T0mqgdFS8YQKLSH8nu+L2e1RC96U
-eSmqFAn5fDBr6Qhhw8G+pLvyyiR0U2htCalsoCXJmpAoJKTdIjedWsoG8oB+
-UJsdCU0ukCbahtlwO8339clsEhL1qdkw7sKBgfHOxNJNIoi6qS6ejdXDkQeP
-l9R1RRFD7but1UgDWOt4/9y4l4xOZ60eUfzTBPOMMzWfnMnILF/brk+6GYon
-EhKKfMjo+YMs3mXNZiA/uadgkEhG2iFq/Gf2zVD916ip9UsyumQ7rX7wfjNo
-OgZmXjQTQ4/yU0zCbF8BKTrUUAArkakhJco9uwVYnX+facHEkcHhiHy5qTfw
-Hxndx+RoSYQF9fqTTNvB909m7t3D0sjAwVfZfTsXQpq+GD62lkFnjRYcHta/
-h8uuK7csBm1AdgYtU/1WH+BE83kfqt9GlGCWfL7kehdwVinYBx6RR14ZfV9z
-ON1AXRdzbSxcERlS1wTJfeuBY79NttkEKaElCNRc/b0XCvNeKs2kKqMUSeM9
-tB8foSLNuI/roIKuZFLrmf19EF5tYpd7UBX1zqjuL3vQD/jru7+S3dSQ6UmF
-c9Gxn8B/r1Gt/2F1tGK9u4ezyWdgFlMrAwM0UFD1GMNF+BkyftfGnjq7Bb3r
-qmg1Zg3ASOmZCL/Tmsgzf0u+us4gNFpm5sTFaaFOG++HEvRBELH9yL8So42G
-x973qDUNAsn0qUhBlA6iaEVKfpXgwSW5GWtuki5Sk+a5ljjy4JTrifqZi1vR
-7YBri3+u8oAXS/OCq9uQnon+QepHHmzIuvExuXA72iptVfJckQ/3pHWjmm/p
-oZ481l98Rz5wTm+20PqHgm7+iFYnMviQp1KgZOKoj/YJb7mKt/Chlj5P8mvX
-Rw3M6QD6Ih9UrVYtqLtQEfmrGu8ZbQietOkwejup6A6dE1rvMwQpTUJ9FXcD
-tI2lbRl1awiywsYCjvUboByf0ganN0NAl1Veq3bEEMmSipIk54agREfsdfig
-IRJda9V2RGcYVk6KKHA8aKiY6Wy632kY7uuXX8j7QkMiWn8ZP704DDqepTaL
-J3egqp7nsZplw9C3v4rl9G0Hqng8sPt2zzBw75zbDmE70SnWrHHCCgJmK+x3
-q/3aiQThWrb3dQlYen66MjF4F2qWC06l2RFgpW9pQZ/ahQK3pl5YH0lAszvF
-PzAMQxvKtltHMwmQOeFXk3sGQ7vUvPao5BLg4Vco1X4WQ+/aNXU4y54+vZ5F
-o2PIysztjWg+ARqXZuYX4zG0afqVZ0IhATEsPCX9GobOS88NJN0jwHiVXVll
-FYYseVlb4soISJRMFh2twZC4tZW9ajkBHevqHRXrMNRRNBjMXrafEm3uQj2G
-5lQeRwtZBFynyu/Z9wZDnOOqs1GVBEy6Db7/2I+hC5eSLYOrCUDHFTSlBjDk
-fMgqQ7KGAIaPQyTwMGQyINNaumy10EalIgJDofK1//7yggD7xGLvkxMYclmq
-lz2KE8Bk8J7lCzBEaZoRLCx7NF3xX9xfGMqes6i7yV7+cyvl0c4ZDPmFYJQu
-DgFvC16S/Ocw9DObxw2rJ0DuntDh1h8MGY4/9FvXQIDnP7vuvlvEkOpovuDR
-sh+VnZpZWsKQ2FRVwMFGAv4HqCLzLQ==
+1:eJwVynk4lP0ex/HBWHpQkT2PRAnZJtJt/f4S9YSEqCSSIlLZi/IUsm9Jksp6
+krKcsk3FxG1rCElD9rLNzahosmTJcJw/Ptf7el3XZ7urt60bN4lEClvf/8sY
+5igcFuwE4w3KbbsjGPiqmU4NO6cTzugnJlG3MPBc8S9WyXJdEBgzy6tL+4Sb
+EpFDmhld0PvJO7D3/Cc8PqKH5P3gM0if8dWTq+nApRquH5hK7AFMxHtrnNBH
+nJai2JUg2AukCsVH1UHtuLNr23m12F5IodMipyY+4HlcclFeEX2Q7m5s0dre
+hlNQXfPk9QEY7PSoTqO14ObV/FbjF4YA03vV7b1KxylrrvMS7CGQH9oVJBBF
+xxPkz7QrGg5Ds3n60axNdDzAtSrQrnEYWIrzuqHK73DTcZ9GatcIWKkWt4Z4
+N+CjU1/OBs2PwRszs7zTh2rx7qR4arIeE0yP6RlOdeB4i6behoJ/mdAhV7cx
+QxzHy3xTS/p4CQhhWVxRya/Gw+bN1/QlxqGs9Imh82gVLs95ncHRZQHTgP03
+lUbFxbLc2OI3WODKFrWX2EbFBWCLqQbOgmbxHf3KERX4z9Ar350PTUJjTcoG
+o2PleA15p37tiW/QmJzkqUUuxZ2EUnrCg36AGg8uJmxfgH8Q1t1AdmKDT+Vb
+RcvAezjDQjS9PYQN7L6x2ZqGu3hv7LTSwww2YLMeGX7iyTiT95mpxuD6f8JD
+vzsiFl/hSIaedPwFw/mCiQ68wbjq9NLvYocZcMkoONfYFwQx7dVM++NzEDRW
+oTRmlAlJQo/85a/OwWKy+vDyoyxINb/K/f3+HOQEj/TOz2dDNl1DPvTzHNyU
+DH7dY5sLr2qyHQvt5gGF39no8/sJEC/CGKu2vyEjwFqyaFMBmNwxq312dBGW
+BYf91K1KIdS8ooBxZRHC/2qrb7lfCjW8ivc4iYtA6ueeEfpSCvohJPdjbYsQ
+c3Yl8vbFMtD2pAmu/bMEgoql0zZh5bDjAOXEcZNl+F2k814tmwp8C7LT5L0r
+IKllPbkptxJMy+J7NO1WwBorut7+tRLCLy/XnvJfAf23tSaHZatgdaznXknp
+CgDw0wPTqmChI0XvtAYHDGOdHaqiacAqFIgs37UKrYFbpz2dq8FNc1mYIkxC
+jJSxWyzvWrAciH4qJUdCfG+nVuwTa0EnWtyIpElCqVGvi/MKa4E8pHXpozUJ
+uVTl5I0za+E/SRdaLqeS0BVFx1aek3UwNNUVVbiVC2X2Ohn0YPXgUPxyTVGV
+Gy0MxfO5jjfAERW3XxKHyOirdUEG5Q8dluMDaV+Ok9HL0818M5ub4Pl0ZGSe
+OxntuKidnqvUBOSKfOk9UWSUqlaf3m7TBFXGrP1H3pHRnFBav+uzJlCy80q5
+fYAXyTipzcUebQbSLV9tNvCh/7LbNQNS30NZ17+B7zEBlCUucVxjvhUMRFVf
+km8JoWlzlXeC+zvgwp+UzKcnNyOW1utgD3UGeNMntF8eEUXqUpYv3tR3Qtwp
+vp2cS2KIT0TahmXxGc413XCneEggA4W+7ooH3VDHL23j5SCFZHx2H8yr6wGK
+SGjaZIAMmtzk3KTwvRdcZo3UrC7JIqocLUzsRx/kZr2TXUiUQybfYzPhZz+U
+J+kPMGzlkZlv2N/PBwcgoMrIOtNyO7rT7ZtHKx4EvOXpTKyjAlqw8PwcF/YF
+PA/pVXueVESVv4orzxp9hYznFKrXxR1I4aHehOvqV7g7Wx3mc20nuk3lUT1Y
+NgTjhYFXPfyUUHXSB0sVlWFoPJiSHh6+C2kaCzuKhAwD19H+0Tuhysi470aU
+Mn0YSPtfceUEq6A4Cfmqn4IjECO5cIQRrYr+XYsReGk3Aj6nztUv3N6NOA7G
+RVxpIzASpnMe7quhWLXeJd3+ERC797A/NlcdRa3NHK+RGYX8zarBTY810J6k
+Uz8m7Eahzm+b2a4iTTT/ddenb3dHIUs+R9bITgvlTR0Q2Ph+FKpDlkkeHVpI
+LiFLKpwzCtst+FcUT1CQS19LUrXOGFR8VInv66KgVS/Pbc3uY5BAX9WSd9qD
+onI7Zm8+HoN7/pMXXQb3oFl7W1/H1jEIEZfbpOCgjXx+WuwVXRqDAhXeloBh
+bXR6dSbkjAoT+Oa4pOucdRBPwuq0lT0TnmmV3sya0EGnJcYnaLeZoOJaaMW5
+vBeJNbtoqpUwYeBwZZn9971oY3b0t2e9TGA8ua4O/rqoNTeHFcdDwGK5jaHC
+jC6yOP9xpViVgLU3ftSoK/uQAr+Egb41ARZaB81C5vchusxeNekgApqcND29
+/DHknf15OSKDANFzHrTMQAyliAixd2YS4OyRK9xxDUPKte3d9HX/9ttSphOC
+ofw9PMEC2QTsiFlY5kRg6Crhszk+l4DQMjwhOQ1D3Ws5iYn5BOjzW5dQKzGU
+22HQGV1CQJRQLDeLhqFzhrOrSqUEfBKpt5OpwZBaaowsfd0esjpLN+sxZLf5
+hDq5nIAHFCmTf1oxJGvz/uktKgFzjsOd/YMY6rtGmfOvIgCdlVYSHsJQqcms
+sSiNgHh32yAYwVB6e9WNknUr+DbK5hEYauN3a/3xlgCbqOdul6cxVDZ9seE8
+TkBG/MjrbDaG4qjZWdy1BLCSZf5izGDoJ2vKK2fdoY8TXuguYKjBeXhwoI6A
+tpx3JM8lDFlGxIYG1xMgmb9q+/gPhpIG7SUkGwhwLdr39AMHQyE9h7Iq1v2i
+xGdhbQ1DLsyzUraNBPwPLyX/JQ==
        "]]},
-     Annotation[#, "Charting`Private`Tag$71242#2"]& ], 
+     Annotation[#, "Charting`Private`Tag$16381#2"]& ], 
     TagBox[
      {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
       1.], LineBox[CompressedData["
@@ -3240,61 +1374,66 @@ qisyz9TTQD/ilbXTj+2+F+qKbzXRIOXeWPHTBRKOkrxUDzbTYOYB/96uJRIW
 Fr370LLt4OSoN0prJFzbO3STs5UGH581EOx+k1D7XXtz6bZ5Xv41SP4vCfXu
 mTCat9HAIvfEi/ZNEjoH+J3Y9ZEGbwpc17a2SPjU4eSl7G3/DzlGjN8=
        "]]},
-     Annotation[#, "Charting`Private`Tag$71242#3"]& ], 
+     Annotation[#, "Charting`Private`Tag$16381#3"]& ], 
     TagBox[
      {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[
       1.], LineBox[CompressedData["
-1:eJwdknk41P0axodrRBrnlTYcryaDItlpks7zDW1EkZDiDdkiWUuohhCRbCmR
-lJR9ly1+dg5jmxBRtpn5kWgSxprjOn/c1319/rrv57nufbY3Tex5CQRC0Kb+
-7/f7zHre9MAzEaKrXjAD8+SP8ffM6gHDuqGdtXcZ2J8T6jWc1E/QevpvgwNz
-3djrXV+NoiV74ZNz0w+Pp92YHitkRCm5FwRJlFCuVjcWEfyZcPNZHwiihheJ
-ol2YaIOf7szjz3BPI05cPYKOVcVSeiO3DUDkcb1hK047Zm1Lv6YQPgCp2lEe
-GRbt2FseyVCX4EGYjSr9i6LahqmgutYpvyFIEEoffsPXiulX8xuxHUfgUnI8
-AxdvxFQ2bBd2c0Yg3PZOTmNyAxZJ/qeToj0KLO746gdyA+ZtW+lj2jgKjilX
-vJ8p1mN6bPfG0t4xeESzH4m7WouNz3y18V2YAN7BzmgOpRLrj4oojT7ChOFt
-pA5xqwqsTenI1sy7TNCfCaR8e16OFXnEFwzysaDfZIfsjz1lWOCC/obWbja0
-upUnu6qWYOT1suR1zUlIvWrZyknMxXam2HN2+U8CEU/IbDXOwQRgh54iNgnS
-csIuCkLZ2E+a27T1qSnwtTQM0Y/KwGqIMlq15t/BV2TiB7ssDbMixX4O8v0B
-BesNPFs0nmIdQppbiVYciE5UKXZYCgWGgcjzzgAOHCAs+bYHP4KB8FnZxGQO
-PHf20v5HMAqYfO/1FIc5EFarFlNNi4W19T00i8u/gBBl4yphnAjys8uLOZfm
-gJDcmeSunAZhndXMi2bzcFv1RctDlA9RpBde5Fvzm3ksDztuPsTr3+KdfjoP
-rlzmTIxZAbxqViTT+ubhh+xXKBAshA81ry5nmS7A8nuxi7GuRcDKC2T8MVkE
-3zDPR7qipaDz5ETt+3NLQAswuNYtWgk0/ZJMhtsSiDfylffbVUINHyVu/fES
-aHXKxt/NqwStAILDBfoSUPp3ZBboVIGac9W2jdPLIKXWM9jk8BGkdVXMzXRW
-gGTjpeCWUgNbuBKzRI014Auj5D51qgO9oojPSqZrEHM52WgmrA6CbqzUWnqt
-Qaz4Sbd9mXXwZ+JzXEHhGrgrlliRp+qA2x175IriOpBIB48FOtbDZJZASPH+
-P5Cz0LYkZN0A9korQipCBMR5EWu3V70Jzg49TBeVJKD5ANeXv02aQP3hrmME
-JQLiFQiPfe/RBMQRZdeu8wS0ls2ozM9rgjdRjm034gnoQ2O4wun9zTAy0xua
-9W8eNGdVbdEt0gKXcvI3KPK86Mqnj7e6elvBUM7+1+5TROTs18Wv9BcdViJ8
-qr6aEdELv6ikJRk6ZMyGhLx1IKKx+KPhBdp0IJa8E1MNJaIFX9mRaWc6VP5n
-8rhhExEtpQrbxDXQQdbUJfaBLh9yjjtr/tGrAwj3PdQ4sAXlDah57G3thKLe
-uz7/pQogXem1fdNvuuGoiHw+8T4JfdPhSkvwfQLH1diX6RbCiFlxf+W7QB/c
-bMbV8g1F0M/hazJhhf3wyHKLzLrrTkRcuTDpbjgAdi3+DipOu1HJh3uHBTMH
-oY5fzNjlkihyNZ55JTf2BVS20xKmvMWR1vboCoboMFz9fUzByFUC2bfXVhA2
-N/U6pUmC+1gSjeY6UR9ofIPiKK0hhgkZKZQM9h9RHAHvymPnX57dh7oq9i+I
-E0cBa0ufC78shT4yTuXGeY2C86kj1c4WFFTieZu01DcKyRkqpS7XpVHz+K9t
-24+OQczv6kD32zJo5WS1lEHiGLCzfG45ecqilPAzE+SZMWg8Gfs8KGg/qk8Y
-S17VHQeec1/Gn9AOIPFi6dXEmHEgHP/Ak3pHDgnYlHcVfxmHsD1cQ8ZDeUQW
-Ff81JTsB7pZ29dwHBxH5QTHTwmUCxgLVr8FTBVQj9bugo2gCdsYlfgl/fQhp
-Di0WOC5OwDth+TstSYqIUeFvaKbGhDrPvSf2Zyshds7WeeTFhBRyqsQxU2WU
-0WtuQsxlQnXACsGpWxl5Ziv3cCeYsM+Af41iroLmyVIJvX+zoKRLLmKwVwVd
-yUs7dNyEBZHNf5TJVqpI3tQjxS+cBXFeU9evDqui66NpT1KqWBCwS/IvqUtq
-yPs8OzFomgWZcnxt3qNqiN6hViIhyYYt8zxiddbqqLxhsZpylg3vlQvvpeDq
-KHibeVZzABvkbLOM1m9ooJqwnTmm2WwYOlNRdHFaA0nfIn2v7mMDI83vEHhp
-ImFtg7JsXhyWio21peY00be21IGsgzhslHuWhrodRvS278M8F3AwUD55ImDh
-MGKikMHmABxarJScXbyoSIfZnj77BgcRO6eqlz5U5ECTO/EsDQdrp9dC3bep
-SOKgXR+8xWHRc0eRegAV5TzyaY1Ox0E6jLuyHkxFtta2yyoZONCKsMjoBCry
-vFgR5pGLgxb/+YLSCioqiZF0Z5XhEEoK552soqLWf6krR5bj0LO93lS8horo
-h/zHVCtwcJJQX75XT0VuvRl7aJU4PFMR1TndTkV5yu0MsWoc5i+PfvoyTEWj
-yCdUvx4HZCMmKzRCRaTab5acTY5wMPGFMSqqT0ojJzTgIOXRKPGWRUVG2Bna
-WCMOxqEZ9jdmqUh29lz07RYckiPGyl5xNvs9Hv4p0YrDZLS4IGOOioRlBlH9
-JtOSIvM0uVTE8VcoI7XhQE9tIjgvb/7DMmy4cJP3vPtjkrRKRe43rH+bteNg
-m304vWOdiiJ1C1dXNzmvwJ27sbF5j/ODhVQ6Dv8DV8YJRA==
+1:eJwVlGk41HscxYdGVLp1XVslTYioMNah+P4iLYoiFSm3iIhKJFkqZEkklLI1
+9l1kcGVc/nYuE5K9ZBnmb7k0tgYZrvviPOf5POfNec6Ls9f6rqktL4FA8FvX
+/77RmZgzkvwZdDftZxzwb8dc+CO8XLI/QwE5nVPyqB1bNVCrYCd+AcVS/BBp
+tg1LEuk3DpfsAK2+l60OUW3YsdGAAaX4DnD2nrL/od2Ghfh3E+6+7YROkvm1
+YPFWTLzGU3/qRTecEN0/KB3CwMoipTtCt/SAuVRvkhG7GbOyZtw4GNwDjrul
+NaPNm7FUHslAR/9eKL1r2Cmk0oSRUVXjuOdXuD6tlRzJ14gZlvMbs24OgMwj
++ejunbUYec16QZQ9AGb6v7kUxddgoaQ/W6SPDEJBj3tVOqkGu29NdzOrHQSV
+JzNaQYrV2DGWc21xxxCYXV9OfXqtEhue6r/+cIEJ0bGLu9qk6VhXWEhxuNYI
+OH9SN1++Uoo1KWltyno0AoN5OXnl0R8x2r3XH3r5RuGWsE5Bs1gJ5rtguKYt
+ygIr5WG5MypFGIlbEs/VGIMm5vvv+THvMWGqLVvEawwUb01gQSa5mAD8cUwR
+GwPjXBvfScEc7IfPnUmrE+OQ0p8YtyksE6sg7tOuvDQBKVEaG9JLUrCrgpHd
+fg//hQ1ER0V/tSjs01aNTcSrbGCGMi1uLQVC+2mh6BZvNvjMZe1pDXgOPcHT
+sjHxbJi4so9pvSUMRvgyjil+YwOZHnoDfCNhhSvmY245A9lBdKCaxIDC9NLP
+XItZ6BT3CihQToFnLeUjFy7Og3H+8YJGlA9hgrGupAfzYCsaaZnKyYfXhg94
+J6PmoVu9zJp28QMk1CuSfDrn4ZJtYVHb5gL4qyLBMttsAWxYP/6hOdFgNM+3
+fdX0JzDrT67ZiBeD3kuDyoyzizBJ39vLFqeDj2FRVvudRQjg/XaQY0OHCj7p
+V9wXi5AqyBWg5tFB25tgd56xCGHCE7s/65WBqkPZlrWTS/DiXoYxy+5vkNEn
+X7qotwzuCaeSwqgVsJEjMU1UXwHtjDA8zb4KjtFCupXMVqDekz+Y+6wK/G4v
+V152XYEGrYJMclYVrDK7X30oWIE0oz3RyuNVwGmL1LqiyIWjB964R9yshrFs
+gYBCuVUYEtZQlbSqAVul5a3krQS0j859p6RWB2e+BqWJSxKQfHx394bzdaAW
+JKJDUCIgTbl5Rsm9OiAOKDu1niMgcrPOApZXB8lhN5tuvyagCea8nblcPQxM
+dQRm7+JBco/2vxoUagCL3Pw1aQVeFDErVzDQ0QhG8rYzoieIKCFGWw+2MWA5
+xK2s/yIRtcYsdQrIMiBzOiAg1Y6IxIrSayqPMIBYlL5DJZCIFKIjdqw4MICu
+O3bUqI6IFCu94lJqGCBr5hj5VJ8PUWklEQzXT0B4ck+VDRsRk0PNUWpsAVrH
+I7d/KALoeyEZ5pLb4LCQQj7xiSDyaD+oJ8P3BW7+inyXZr4dPT5VLDYn0Al3
+63HVfCMhFOwUqxde0AXPL2/cx3USRtTgYD4Pox6wafCyI9uLIuPjRWZCWb1Q
+xb/DxNFCHPEPSZWTh/qA/LvPm/H7O1FnYl1Xn/g3uDanc9DYSQIRLH92Ccj2
+QxK1ToLzQhJ56lAvhKh/h8Iw7a/tpiTUoL9t/qjiANyn65x7d2Yvivet3rCH
+OAhYU9pssKUUeh47XPbWdRAcTmiVO5hLIz9toV0rnYMQn0kudrwlg15nh+4U
+OTwEEXPlvs7u+1DDb+bkszFDwMp2e2DvIoucTEZmZKaGoPZ4ZLSfnxx6aeWd
+s6Y/DDxn+4Zf+uxHY57YJmrEMBCO/sWT6CGPuvaf/17SNwzPxDhG7UEKaGqg
+aG1KlgnOl22qOU8PoClD47krjkwY8lW7AVEHUejEC+wzjQnCr2L6gpMOId6U
+CMzxJxPStyt4NMQpogRf0SuXVUegymWPgVyOEiq8n8pr4DoCVFKihI6ZMnoQ
+P3tN4P0IlHsvE+zblBFybR74xRyBvaf5V6Qvrb/m2N+pPbtHoahVPqS3g4zk
+H+geMTAdhdD6VWXSVRXE2SX4/nHwKLxyHb917ZsK0szUpSaXjYK3iOQ2KQtV
+dFTcNzNwchSy5Pma7g+qopiolmqSJAs2zvPsqLJSQ4EhEQy5MyzIUC54TMXV
+kMmXmY9N3iyQt8425t5WRyHn8unmOSz4eqqUdmFSHc3oZCxWdbKgPcXzELhq
+oP4NrLp8XhwWC02OSM1qoNzIw3jeARzWProUB97RRLGRAZN853E4rXzcwHtB
+E9EESGNN3jg0XFVycHSloG25dkWzyTgI2diXvXOjIJWTtefjUnCwsk/a2uZO
+QeOzXKZ+Kg4/Xf6gqXlTkIfp9u7XaTjIPOMsc/0pSEmWy6+RiYMPDQsNf0NB
+sNvsrdt7HLT5z30oLqUgX4vSx+MlOAQKBvOOlVFQVFeLbvhHHD7/Xm22s4KC
+YhZE2BqlONhLqC09rqagI/H6sv50HN6SxfVONlOQ16Lt0O5yHOYtB7/0faOg
+PIHtUcbVOKDrO2S3DlBQX5CHw/w6h9iZPoQhCnppo6sUW4OD1L1aidRRCtoV
+NBI2WouDSWCm7e1pCpornqB6NeAQHzJUksBe73fBfZXUiMNY+M7N7bMU9P1f
+17P16+wTF5qnwaGgcv2Guu1NODAS6wgOS+t77JWeLF5nsfRV07hf633Vl3gs
+m3GwztFM+8SlIIstZzYTGDjkfXDmrK2t52RJYto6/wf6AQe0
        "]]},
-     Annotation[#, "Charting`Private`Tag$71242#4"]& ]}, {}},
+     Annotation[#, "Charting`Private`Tag$16381#4"]& ]}, {}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
-  AxesLabel->{None, None},
+  AxesLabel->{
+    FormBox["\[Beta]", TraditionalForm], 
+    FormBox[
+     RowBox[{
+       RowBox[{"s", "(", "0", ")"}], "-", 
+       RowBox[{"s", "(", "\[Beta]", ")"}]}], TraditionalForm]},
   AxesOrigin->{0, 0},
   DisplayFunction->Identity,
   Frame->{{False, False}, {False, False}},
@@ -3325,7 +1464,7 @@ m304vWOdiiJ1C1dXNzmvwJ27sbF5j/ODhVQ6Dv8DV8YJRA==
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
-  PlotRange->{{0, 25}, {-0.28932295368603306`, 0.743733095422943}},
+  PlotRange->{{0, 25}, {-0.2893170827593571, 0.743733095422943}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
@@ -3339,9 +1478,10 @@ m304vWOdiiJ1C1dXNzmvwJ27sbF5j/ODhVQ6Dv8DV8YJRA==
    3.7898196317659693`*^9, 3.789819637118384*^9}, 3.7898196782312527`*^9, {
    3.789819743383521*^9, 3.789819776802191*^9}, 3.789820003836022*^9, 
    3.7898200483861856`*^9, {3.789820594030262*^9, 3.789820707787868*^9}, {
-   3.7898224631465263`*^9, 3.7898224693046827`*^9}},
- CellLabel->
-  "Out[222]=",ExpressionUUID->"135b3efe-ff78-4476-a93a-5619a5cc390d"]
+   3.7898224631465263`*^9, 3.7898224693046827`*^9}, 3.7898317351153708`*^9, {
+   3.789831769123528*^9, 3.7898317873044233`*^9}, 3.7898320868229*^9, {
+   3.789832219182062*^9, 3.7898322246789417`*^9}, 3.789832488485786*^9},
+ CellLabel->"Out[65]=",ExpressionUUID->"8db7b6a9-cb19-4300-b41a-8949de3e6820"]
 }, Open  ]],
 
 Cell[BoxData[
@@ -3358,8 +1498,7 @@ Cell[BoxData[
        RowBox[{"2", ";;"}], ",", "2"}], "]"}], "]"}], "/", "2"}]}], 
   ";"}]], "Input",
  CellChangeTimes->{{3.78982026538109*^9, 3.789820353900846*^9}},
- CellLabel->
-  "In[223]:=",ExpressionUUID->"5a1efa6e-dfe2-4d60-ae14-3a6c7a1d321c"],
+ CellLabel->"In[51]:=",ExpressionUUID->"5a1efa6e-dfe2-4d60-ae14-3a6c7a1d321c"],
 
 Cell[CellGroupData[{
 
@@ -3368,7 +1507,8 @@ Cell[BoxData[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
-     RowBox[{"Exp", "[", "logN", "]"}], "-", 
+     RowBox[{"Exp", "[", 
+      RowBox[{"logN", "[", "8", "]"}], "]"}], "-", 
      RowBox[{"ns", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/", 
    RowBox[{"ns", "[", 
@@ -3381,11 +1521,11 @@ Cell[BoxData[
   3.786036298558413*^9}, {3.786036391518311*^9, 3.786036392481715*^9}, {
   3.789817322122814*^9, 3.78981734350443*^9}, {3.78981904967447*^9, 
   3.789819050028948*^9}, {3.78981989295175*^9, 3.789819900229203*^9}, {
-  3.789820346352702*^9, 3.789820358949071*^9}},
- CellLabel->
-  "In[224]:=",ExpressionUUID->"90d2bb91-ba31-44f8-b0ca-47994c701e88"],
+  3.789820346352702*^9, 3.789820358949071*^9}, {3.789831035088595*^9, 
+  3.789831035495175*^9}},
+ CellLabel->"In[52]:=",ExpressionUUID->"90d2bb91-ba31-44f8-b0ca-47994c701e88"],
 
-Cell[BoxData["0.021472788440523752`"], "Output",
+Cell[BoxData["0.02129579347364968`"], "Output",
  CellChangeTimes->{{3.786034765393785*^9, 3.786034815805835*^9}, {
    3.786034880548635*^9, 3.7860348931752234`*^9}, {3.7860349290857697`*^9, 
    3.78603493955373*^9}, 3.7860350281548758`*^9, 3.786035066093541*^9, 
@@ -3398,9 +1538,10 @@ Cell[BoxData["0.021472788440523752`"], "Output",
    3.789819607127367*^9, 3.7898196375034018`*^9}, 3.789819744075357*^9, {
    3.789819893666527*^9, 3.789819900694466*^9}, 3.789820004964889*^9, 
    3.789820359137393*^9, {3.789820594929513*^9, 3.78982070858637*^9}, {
-   3.789822463806806*^9, 3.789822470222951*^9}},
- CellLabel->
-  "Out[224]=",ExpressionUUID->"d5b365b4-17d5-4745-a5e1-e646a528553a"]
+   3.789822463806806*^9, 3.789822470222951*^9}, {3.789831035829953*^9, 
+   3.789831039712731*^9}, 3.7898311296448107`*^9, 3.789831173331883*^9, {
+   3.789831771607078*^9, 3.7898317882862673`*^9}, 3.7898321075130663`*^9},
+ CellLabel->"Out[52]=",ExpressionUUID->"5f4c18c9-8e83-4549-bb7d-63032de7adc1"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -3410,24 +1551,25 @@ Cell[BoxData[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
-     RowBox[{"Exp", "[", "logN", "]"}], "-", 
+     RowBox[{"Exp", "[", 
+      RowBox[{"logN", "[", "12", "]"}], "]"}], "-", 
      RowBox[{"ns", "[", 
       RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "/", 
    RowBox[{"ns", "[", 
     RowBox[{"[", "3", "]"}], "]"}]}], "/.", 
   RowBox[{"fit12", "[", "\"\<BestFitParameters\>\"", "]"}]}]], "Input",
  CellChangeTimes->{{3.789820082827054*^9, 3.789820111656827*^9}, {
-  3.78982037403331*^9, 3.78982038294141*^9}},
- CellLabel->
-  "In[225]:=",ExpressionUUID->"24a1235a-0106-41db-84ea-024b7cb0822c"],
+  3.78982037403331*^9, 3.78982038294141*^9}, {3.789831775865436*^9, 
+  3.78983177611141*^9}},
+ CellLabel->"In[53]:=",ExpressionUUID->"24a1235a-0106-41db-84ea-024b7cb0822c"],
 
-Cell[BoxData["0.06180877242384175`"], "Output",
+Cell[BoxData["0.06151301974783064`"], "Output",
  CellChangeTimes->{{3.789820091591922*^9, 3.789820112136485*^9}, 
    3.789820384157509*^9, {3.789820595407804*^9, 3.789820619979476*^9}, {
    3.7898206520168953`*^9, 3.789820708977715*^9}, {3.789822464040449*^9, 
-   3.789822470632036*^9}},
- CellLabel->
-  "Out[225]=",ExpressionUUID->"0b79b77e-b068-4046-83cf-7e6ade1463f0"]
+   3.789822470632036*^9}, {3.789831772132658*^9, 3.789831789119802*^9}, 
+   3.789832108205226*^9},
+ CellLabel->"Out[53]=",ExpressionUUID->"f44bda96-870c-49ac-bc9e-91bcd0597cef"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -4997,8 +3139,8 @@ Cell[BoxData[
   "Out[100]=",ExpressionUUID->"a4c4ccfb-7bb8-41fb-a9fe-42202dac8ba9"]
 }, Open  ]]
 },
-WindowSize->{692, 1060},
-WindowMargins->{{2, Automatic}, {2, Automatic}},
+WindowSize->{665, 1180},
+WindowMargins->{{583, Automatic}, {2, Automatic}},
 FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)",
 StyleDefinitions->"Default.nb"
 ]
@@ -5013,88 +3155,60 @@ CellTagsIndex->{}
 *)
 (*NotebookFileOutline
 Notebook[{
-Cell[558, 20, 3308, 78, 246, "Input",ExpressionUUID->"6ca216e4-4a7b-4e5f-a718-f4e70c77d6a2"],
-Cell[3869, 100, 668, 18, 59, "Input",ExpressionUUID->"f756d73a-4921-45d7-acd1-44fe21438a02"],
-Cell[4540, 120, 417, 7, 31, "Input",ExpressionUUID->"c91e85b2-f90e-40d7-bf19-7a03fd9499bb"],
-Cell[4960, 129, 819, 23, 31, "Input",ExpressionUUID->"1b068f0a-fa61-487d-893c-5b00f279e758"],
-Cell[5782, 154, 1819, 48, 78, "Input",ExpressionUUID->"83b164e2-d1bf-4be5-bf92-d3645cb950ca"],
-Cell[7604, 204, 963, 26, 49, "Input",ExpressionUUID->"f81a2199-caac-407b-95bf-2211d7b265a5"],
-Cell[8570, 232, 705, 19, 50, "Input",ExpressionUUID->"a0e3da7a-9e7b-466f-bc4d-cb0b0d8819f4"],
-Cell[9278, 253, 2200, 55, 114, "Input",ExpressionUUID->"cfeba3ce-dc48-40c8-b8b8-f34cf59a253d"],
-Cell[11481, 310, 209, 3, 31, "Input",ExpressionUUID->"4442d61b-8ac4-4392-8a54-81f967a3e8ad"],
-Cell[11693, 315, 1031, 29, 176, "Input",ExpressionUUID->"9b0c3339-71cd-41f6-9ef3-ca7bd5b2e440"],
-Cell[12727, 346, 1256, 28, 31, "Input",ExpressionUUID->"a1830ef0-911d-442d-b5d2-b62c202fce89"],
-Cell[13986, 376, 610, 14, 31, "Input",ExpressionUUID->"c5d823f9-e85c-4b3b-b05c-3154ec28aa66"],
-Cell[CellGroupData[{
-Cell[14621, 394, 1035, 22, 39, "Input",ExpressionUUID->"19600c28-5fcf-466c-b87f-667b0f106dc0"],
-Cell[15659, 418, 845, 20, 53, "Output",ExpressionUUID->"6c93bebf-e58f-4c6f-b240-c9606f805231"]
-}, Open  ]],
-Cell[16519, 441, 502, 10, 31, "Input",ExpressionUUID->"3b7ef50e-b362-4da3-b734-818bb17a7c2f"],
-Cell[CellGroupData[{
-Cell[17046, 455, 812, 18, 31, "Input",ExpressionUUID->"0885a315-6bfe-4916-87e6-8a66c95472da"],
-Cell[17861, 475, 15340, 302, 67, "Output",ExpressionUUID->"d46af3b2-77be-4b80-8679-279619719d6c"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[33238, 782, 812, 18, 31, "Input",ExpressionUUID->"13991a8c-a9a3-43e4-9f23-4e47933f94eb"],
-Cell[34053, 802, 16484, 320, 67, "Output",ExpressionUUID->"45eec759-6cc5-44ad-b355-16c56c1102c3"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[50574, 1127, 814, 17, 31, "Input",ExpressionUUID->"d80acc58-e355-49f5-8e82-b7a019a31499"],
-Cell[51391, 1146, 17682, 314, 234, "Output",ExpressionUUID->"ca9155e3-bfd3-4546-9d9d-841e39a4c986"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[69110, 1465, 1944, 49, 99, "Input",ExpressionUUID->"018624ea-3752-4268-8269-52d7c0cc8dbf"],
-Cell[71057, 1516, 31232, 622, 233, "Output",ExpressionUUID->"471fd61d-b901-4c45-bbb9-afb7a2622279"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[102326, 2143, 566, 14, 31, "Input",ExpressionUUID->"09f155dc-a270-465f-83b4-5452a9d3c6a6"],
-Cell[102895, 2159, 16072, 314, 67, "Output",ExpressionUUID->"74adcd61-8d07-48ce-971c-dd83b1e3ca60"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[119004, 2478, 522, 14, 31, "Input",ExpressionUUID->"db5e13eb-a70e-45e3-bf97-b88ce1b857b6"],
-Cell[119529, 2494, 16057, 313, 67, "Output",ExpressionUUID->"d6a711e2-2f0e-428d-8dce-4ea95f7261f3"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[135623, 2812, 1240, 34, 69, "Input",ExpressionUUID->"faf27222-05ad-48db-b551-d6176fd5d567"],
-Cell[136866, 2848, 1845, 46, 67, "Output",ExpressionUUID->"8d55ea2c-d0f1-46ce-9113-d087b7dc0709"]
-}, Open  ]],
+Cell[558, 20, 3307, 78, 269, "Input",ExpressionUUID->"6ca216e4-4a7b-4e5f-a718-f4e70c77d6a2"],
+Cell[3868, 100, 668, 18, 59, "Input",ExpressionUUID->"f756d73a-4921-45d7-acd1-44fe21438a02"],
+Cell[4539, 120, 417, 7, 31, "Input",ExpressionUUID->"c91e85b2-f90e-40d7-bf19-7a03fd9499bb"],
+Cell[4959, 129, 819, 23, 55, "Input",ExpressionUUID->"1b068f0a-fa61-487d-893c-5b00f279e758"],
+Cell[5781, 154, 1819, 48, 101, "Input",ExpressionUUID->"83b164e2-d1bf-4be5-bf92-d3645cb950ca"],
+Cell[7603, 204, 963, 26, 72, "Input",ExpressionUUID->"f81a2199-caac-407b-95bf-2211d7b265a5"],
+Cell[8569, 232, 756, 18, 50, "Input",ExpressionUUID->"a0e3da7a-9e7b-466f-bc4d-cb0b0d8819f4"],
+Cell[9328, 252, 2200, 55, 137, "Input",ExpressionUUID->"cfeba3ce-dc48-40c8-b8b8-f34cf59a253d"],
+Cell[11531, 309, 1026, 28, 200, "Input",ExpressionUUID->"9b0c3339-71cd-41f6-9ef3-ca7bd5b2e440"],
+Cell[12560, 339, 1306, 28, 55, "Input",ExpressionUUID->"a1830ef0-911d-442d-b5d2-b62c202fce89"],
+Cell[13869, 369, 656, 14, 31, "Input",ExpressionUUID->"c5d823f9-e85c-4b3b-b05c-3154ec28aa66"],
+Cell[14528, 385, 1810, 44, 182, "Input",ExpressionUUID->"b26da0ea-b484-4f10-9733-25392042ef58"],
+Cell[16341, 431, 502, 10, 31, "Input",ExpressionUUID->"3b7ef50e-b362-4da3-b734-818bb17a7c2f"],
+Cell[16846, 443, 552, 16, 55, "Input",ExpressionUUID->"965aa541-441e-48ee-b9c7-6c04093a0d42"],
+Cell[17401, 461, 905, 21, 55, "Input",ExpressionUUID->"0885a315-6bfe-4916-87e6-8a66c95472da"],
 Cell[CellGroupData[{
-Cell[138748, 2899, 1399, 37, 69, "Input",ExpressionUUID->"4efd9ff7-727d-4935-a6af-8855bb5270f5"],
-Cell[140150, 2938, 3329, 70, 67, "Output",ExpressionUUID->"ffeff05c-4235-40d0-8626-532170640c37"]
+Cell[18331, 486, 1473, 32, 78, "Input",ExpressionUUID->"d80acc58-e355-49f5-8e82-b7a019a31499"],
+Cell[19807, 520, 30051, 577, 246, "Output",ExpressionUUID->"7b89c7a1-9d18-49a7-bf31-752df41c7067"]
 }, Open  ]],
+Cell[49873, 1100, 732, 18, 55, "Input",ExpressionUUID->"09f155dc-a270-465f-83b4-5452a9d3c6a6"],
+Cell[50608, 1120, 839, 17, 55, "Input",ExpressionUUID->"faf27222-05ad-48db-b551-d6176fd5d567"],
 Cell[CellGroupData[{
-Cell[143516, 3013, 732, 17, 31, "Input",ExpressionUUID->"511fd1ec-10b6-4e80-beb1-748a7f18c95e"],
-Cell[144251, 3032, 17420, 311, 234, "Output",ExpressionUUID->"135b3efe-ff78-4476-a93a-5619a5cc390d"]
+Cell[51472, 1141, 1029, 23, 55, "Input",ExpressionUUID->"511fd1ec-10b6-4e80-beb1-748a7f18c95e"],
+Cell[52504, 1166, 17744, 317, 238, "Output",ExpressionUUID->"8db7b6a9-cb19-4300-b41a-8949de3e6820"]
 }, Open  ]],
-Cell[161686, 3346, 482, 15, 31, "Input",ExpressionUUID->"5a1efa6e-dfe2-4d60-ae14-3a6c7a1d321c"],
+Cell[70263, 1486, 478, 14, 55, "Input",ExpressionUUID->"5a1efa6e-dfe2-4d60-ae14-3a6c7a1d321c"],
 Cell[CellGroupData[{
-Cell[162193, 3365, 957, 20, 31, "Input",ExpressionUUID->"90d2bb91-ba31-44f8-b0ca-47994c701e88"],
-Cell[163153, 3387, 1045, 15, 35, "Output",ExpressionUUID->"d5b365b4-17d5-4745-a5e1-e646a528553a"]
+Cell[70766, 1504, 1034, 21, 31, "Input",ExpressionUUID->"90d2bb91-ba31-44f8-b0ca-47994c701e88"],
+Cell[71803, 1527, 1212, 16, 35, "Output",ExpressionUUID->"5f4c18c9-8e83-4549-bb7d-63032de7adc1"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[164235, 3407, 524, 14, 31, "Input",ExpressionUUID->"24a1235a-0106-41db-84ea-024b7cb0822c"],
-Cell[164762, 3423, 370, 6, 35, "Output",ExpressionUUID->"0b79b77e-b068-4046-83cf-7e6ade1463f0"]
+Cell[73052, 1548, 601, 15, 31, "Input",ExpressionUUID->"24a1235a-0106-41db-84ea-024b7cb0822c"],
+Cell[73656, 1565, 438, 6, 35, "Output",ExpressionUUID->"f44bda96-870c-49ac-bc9e-91bcd0597cef"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[165169, 3434, 1167, 25, 31, "Input",ExpressionUUID->"57f24fa6-c961-417d-8040-d9f006e7bc42"],
-Cell[166339, 3461, 76969, 1284, 238, "Output",ExpressionUUID->"765eacb6-1851-4d58-84e2-e2ed47100b2f"]
+Cell[74131, 1576, 1167, 25, 55, "Input",ExpressionUUID->"57f24fa6-c961-417d-8040-d9f006e7bc42"],
+Cell[75301, 1603, 76969, 1284, 238, "Output",ExpressionUUID->"765eacb6-1851-4d58-84e2-e2ed47100b2f"]
 }, Open  ]],
-Cell[243323, 4748, 1553, 40, 101, "Input",ExpressionUUID->"8f6a5438-be42-44f3-87d6-da2bc37c171f"],
+Cell[152285, 2890, 1553, 40, 147, "Input",ExpressionUUID->"8f6a5438-be42-44f3-87d6-da2bc37c171f"],
 Cell[CellGroupData[{
-Cell[244901, 4792, 632, 15, 31, "Input",ExpressionUUID->"c4cbaaa3-d693-4c1c-b0a0-8724f52d4d94"],
-Cell[245536, 4809, 1038, 28, 46, "Output",ExpressionUUID->"fa68dd36-a911-4b03-a5e1-774b6ced48f8"]
+Cell[153863, 2934, 632, 15, 55, "Input",ExpressionUUID->"c4cbaaa3-d693-4c1c-b0a0-8724f52d4d94"],
+Cell[154498, 2951, 1038, 28, 46, "Output",ExpressionUUID->"fa68dd36-a911-4b03-a5e1-774b6ced48f8"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[246611, 4842, 1030, 27, 55, "Input",ExpressionUUID->"ea17c51f-a1d7-41fd-a34c-228c2d4ab784"],
-Cell[247644, 4871, 3907, 81, 240, "Output",ExpressionUUID->"734656d0-32f9-40e2-a69d-89571abd59bf"]
+Cell[155573, 2984, 1030, 27, 78, "Input",ExpressionUUID->"ea17c51f-a1d7-41fd-a34c-228c2d4ab784"],
+Cell[156606, 3013, 3907, 81, 240, "Output",ExpressionUUID->"734656d0-32f9-40e2-a69d-89571abd59bf"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[251588, 4957, 347, 6, 31, "Input",ExpressionUUID->"249cb54f-1c35-414f-8168-27f2195185e6"],
-Cell[251938, 4965, 316, 4, 35, "Output",ExpressionUUID->"9b814a6a-324d-4cb2-98b4-7e298a5398a1"]
+Cell[160550, 3099, 347, 6, 31, "Input",ExpressionUUID->"249cb54f-1c35-414f-8168-27f2195185e6"],
+Cell[160900, 3107, 316, 4, 35, "Output",ExpressionUUID->"9b814a6a-324d-4cb2-98b4-7e298a5398a1"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[252291, 4974, 589, 15, 78, "Input",ExpressionUUID->"e66c9322-9282-4dd8-b7bf-4e72fb9ae72c"],
-Cell[252883, 4991, 253, 5, 35, "Output",ExpressionUUID->"a4c4ccfb-7bb8-41fb-a9fe-42202dac8ba9"]
+Cell[161253, 3116, 589, 15, 78, "Input",ExpressionUUID->"e66c9322-9282-4dd8-b7bf-4e72fb9ae72c"],
+Cell[161845, 3133, 253, 5, 35, "Output",ExpressionUUID->"a4c4ccfb-7bb8-41fb-a9fe-42202dac8ba9"]
 }, Open  ]]
 }
 ]