Some work.HEADmaster

1 files changed, 756 insertions, 127 deletions

diff --git a/caselle_compare.nb b/caselle_compare.nb
index a64a48c..e8c7f52 100644
--- a/caselle_compare.nb
+++ b/caselle_compare.nb
@@ -10,14 +10,16 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[    204728,       4608]
-NotebookOptionsPosition[    193637,       4413]
-NotebookOutlinePosition[    194074,       4430]
-CellTagsIndexPosition[    194031,       4427]
+NotebookDataLength[    234735,       5237]
+NotebookOptionsPosition[    222110,       5018]
+NotebookOutlinePosition[    222547,       5035]
+CellTagsIndexPosition[    222504,       5032]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
 Notebook[{
+
+Cell[CellGroupData[{
 Cell[BoxData[
  RowBox[{"Get", "[", 
   "\"\<~/doc/research/first_order_singularities/mma/schofield.wl\>\"", 
@@ -28,7 +30,146 @@ Cell[BoxData[
    3.827832304560932*^9, {3.8278486734515533`*^9, 3.827848673995721*^9}, {
    3.8278488730224733`*^9, 3.827848876357965*^9}, {3.827916449928692*^9, 
    3.827916450999913*^9}},
- CellLabel->"In[1]:=",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"],
+ CellLabel->"In[3]:=",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "\[Eta]", "shdw", 
+   "\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"\[Eta]\\\\\\\"\\\"}]\\) appears in \
+multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \
+RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\", \\\",\\\", \
+\\\"\\\\\\\"IsingScalingFunction`\\\\\\\"\\\"}], \\\"}\\\"}]\\); definitions \
+in context \\!\\(\\*RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\"}]\\) may \
+shadow or be shadowed by other definitions.\"", 2, 3, 1, 31865477087913293403,
+    "Local", "Schofield`\[Eta]"},
+  "MessageTemplate2"]], "Message", "MSG",
+ CellChangeTimes->{3.8762084299477787`*^9},
+ CellLabel->
+  "During evaluation of \
+In[3]:=",ExpressionUUID->"416ee172-1ad9-434e-b73c-e99e451d8e53"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "g", "shdw", 
+   "\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"g\\\\\\\"\\\"}]\\) appears in \
+multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \
+RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\", \\\",\\\", \
+\\\"\\\\\\\"IsingScalingFunction`\\\\\\\"\\\"}], \\\"}\\\"}]\\); definitions \
+in context \\!\\(\\*RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\"}]\\) may \
+shadow or be shadowed by other definitions.\"", 2, 3, 2, 31865477087913293403,
+    "Local", "Schofield`g"},
+  "MessageTemplate2"]], "Message", "MSG",
+ CellChangeTimes->{3.876208429983996*^9},
+ CellLabel->
+  "During evaluation of \
+In[3]:=",ExpressionUUID->"ec136869-a624-43fb-87cd-ab7ce0e4f6b5"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "\[Xi]", "shdw", 
+   "\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"\[Xi]\\\\\\\"\\\"}]\\) appears in \
+multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \
+RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\", \\\",\\\", \
+\\\"\\\\\\\"IsingScalingFunction`\\\\\\\"\\\"}], \\\"}\\\"}]\\); definitions \
+in context \\!\\(\\*RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\"}]\\) may \
+shadow or be shadowed by other definitions.\"", 2, 3, 3, 31865477087913293403,
+    "Local", "Schofield`\[Xi]"},
+  "MessageTemplate2"]], "Message", "MSG",
+ CellChangeTimes->{3.876208429988597*^9},
+ CellLabel->
+  "During evaluation of \
+In[3]:=",ExpressionUUID->"c71f26b5-fddb-4e00-990e-08b74adae32a"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "ruleB", "shdw", 
+   "\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"ruleB\\\\\\\"\\\"}]\\) appears in \
+multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \
+RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\", \\\",\\\", \
+\\\"\\\\\\\"IsingScalingFunction`\\\\\\\"\\\"}], \\\"}\\\"}]\\); definitions \
+in context \\!\\(\\*RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\"}]\\) may \
+shadow or be shadowed by other definitions.\"", 2, 3, 4, 31865477087913293403,
+    "Local", "Schofield`ruleB"},
+  "MessageTemplate2"]], "Message", "MSG",
+ CellChangeTimes->{3.876208430021934*^9},
+ CellLabel->
+  "During evaluation of \
+In[3]:=",ExpressionUUID->"2eb6cbef-108c-4bdb-b0d3-f595ef80164f"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "g$", "shdw", 
+   "\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"g$\\\\\\\"\\\"}]\\) appears in \
+multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \
+RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\", \\\",\\\", \
+\\\"\\\\\\\"IsingScalingFunction`\\\\\\\"\\\"}], \\\"}\\\"}]\\); definitions \
+in context \\!\\(\\*RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\"}]\\) may \
+shadow or be shadowed by other definitions.\"", 2, 3, 5, 31865477087913293403,
+    "Local", "Schofield`g$"},
+  "MessageTemplate2"]], "Message", "MSG",
+ CellChangeTimes->{3.87620843004827*^9},
+ CellLabel->
+  "During evaluation of \
+In[3]:=",ExpressionUUID->"2d64117a-f0ef-4d22-873c-490eeb5b19e8"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"g", "[", 
+    RowBox[{"\[Theta]0Cas", ",", "gsCas"}], "]"}], "[", "\[Theta]", "]"}], "//",
+   "Simplify"}]], "Input",
+ CellChangeTimes->{{3.884691107722596*^9, 3.8846911288583593`*^9}, {
+  3.884691221764353*^9, 3.8846912227880697`*^9}},
+ CellLabel->"In[42]:=",ExpressionUUID->"fe6a6d03-8b9a-4d30-9d0f-09497bed842b"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"0.27286889266851116`", " ", "\[Theta]"}], "-", 
+  RowBox[{"0.2940020307476348`", " ", 
+   SuperscriptBox["\[Theta]", "3"]}], "+", 
+  RowBox[{"0.04000495532616536`", " ", 
+   SuperscriptBox["\[Theta]", "5"]}], "+", 
+  RowBox[{"0.006119426651084101`", " ", 
+   SuperscriptBox["\[Theta]", "7"]}], "+", 
+  RowBox[{"0.0014992967087917594`", " ", 
+   SuperscriptBox["\[Theta]", "9"]}], "+", 
+  RowBox[{"0.0016724305244486051`", " ", 
+   SuperscriptBox["\[Theta]", "11"]}]}]], "Output",
+ CellChangeTimes->{{3.8846911187487593`*^9, 3.884691129095536*^9}, 
+   3.884691222976877*^9},
+ CellLabel->"Out[42]=",ExpressionUUID->"142568cc-1192-404c-88bb-d7eaa3fbf94e"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"hCas", "[", "\[Theta]", "]"}], "h0"}], "//", 
+  "Simplify"}]], "Input",
+ CellChangeTimes->{{3.884691136810926*^9, 3.884691148498569*^9}, {
+  3.8846912155321903`*^9, 3.884691226484233*^9}},
+ CellLabel->"In[43]:=",ExpressionUUID->"15c6347f-e08e-4478-999e-a055b83a9e4f"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"0.27286889266851116`", " ", "\[Theta]"}], "-", 
+  RowBox[{"0.2940020307476348`", " ", 
+   SuperscriptBox["\[Theta]", "3"]}], "+", 
+  RowBox[{"0.04000495532616536`", " ", 
+   SuperscriptBox["\[Theta]", "5"]}], "+", 
+  RowBox[{"0.006119426651084101`", " ", 
+   SuperscriptBox["\[Theta]", "7"]}], "+", 
+  RowBox[{"0.0014992967087917599`", " ", 
+   SuperscriptBox["\[Theta]", "9"]}], "+", 
+  RowBox[{"0.0016724305244486053`", " ", 
+   SuperscriptBox["\[Theta]", "11"]}]}]], "Output",
+ CellChangeTimes->{{3.8846912189151897`*^9, 3.8846912266590776`*^9}},
+ CellLabel->"Out[43]=",ExpressionUUID->"99fdb326-dc62-43d2-a350-3a194a15d647"]
+}, Open  ]],
 
 Cell[CellGroupData[{
 
@@ -95,31 +236,37 @@ Cell[BoxData[{
    3.84380599279574*^9, 3.8438060263082247`*^9}, {3.843806057721389*^9, 
    3.8438061646410103`*^9}, {3.8438062079468822`*^9, 3.843806212028804*^9}, {
    3.843806310535351*^9, 3.843806319271604*^9}, {3.843811727076584*^9, 
-   3.843811750155121*^9}},
- CellLabel->"In[30]:=",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"],
+   3.843811750155121*^9}, {3.876210266924039*^9, 3.876210267043165*^9}, {
+   3.8762103842382107`*^9, 3.876210426032144*^9}, {3.876210485023739*^9, 
+   3.876210485447196*^9}},
+ CellLabel->"In[37]:=",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"],
 
 Cell[BoxData["0.27286889266851116`"], "Output",
  CellChangeTimes->{{3.8438061496682377`*^9, 3.843806165132856*^9}, 
    3.8438062124458447`*^9, {3.8438063135040703`*^9, 3.843806319765049*^9}, 
    3.8438114231817093`*^9, {3.843811741230702*^9, 3.8438117504040937`*^9}, 
    3.8438127470406*^9, 3.8438833063506927`*^9, 3.8439767083823442`*^9, {
-   3.844135505327883*^9, 3.84413553304257*^9}, 3.844143298259859*^9},
- CellLabel->"Out[32]=",ExpressionUUID->"747fa724-da10-4534-a92d-12fdfb1ff525"],
+   3.844135505327883*^9, 3.84413553304257*^9}, 3.844143298259859*^9, 
+   3.876208430215836*^9, 3.876210287689782*^9, {3.876210430601141*^9, 
+   3.876210486050713*^9}, 3.884691139112475*^9, 3.8846912032549753`*^9},
+ CellLabel->"Out[39]=",ExpressionUUID->"2797a478-d270-4869-ba7f-428591635fb9"],
 
 Cell[BoxData["1.007010684856479`"], "Output",
  CellChangeTimes->{{3.8438061496682377`*^9, 3.843806165132856*^9}, 
    3.8438062124458447`*^9, {3.8438063135040703`*^9, 3.843806319765049*^9}, 
    3.8438114231817093`*^9, {3.843811741230702*^9, 3.8438117504040937`*^9}, 
    3.8438127470406*^9, 3.8438833063506927`*^9, 3.8439767083823442`*^9, {
-   3.844135505327883*^9, 3.84413553304257*^9}, 3.844143298261297*^9},
- CellLabel->"Out[33]=",ExpressionUUID->"c1b4bacd-7ed5-4a85-9925-55ead180e80f"]
+   3.844135505327883*^9, 3.84413553304257*^9}, 3.844143298259859*^9, 
+   3.876208430215836*^9, 3.876210287689782*^9, {3.876210430601141*^9, 
+   3.876210486050713*^9}, 3.884691139112475*^9, 3.884691203256315*^9},
+ CellLabel->"Out[40]=",ExpressionUUID->"567108b3-a280-49d8-9f91-9b9feb4211c2"]
 }, Open  ]],
 
 Cell[CellGroupData[{
 
 Cell[BoxData[{
  RowBox[{
-  RowBox[{"totCas", "=", "13"}], ";"}], "\[IndentingNewLine]", 
+  RowBox[{"totCas", "=", "4"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ds", "=", 
    RowBox[{
@@ -131,8 +278,8 @@ Cell[BoxData[{
        RowBox[{"h0", " ", 
         RowBox[{"hCas", "[", "\[Theta]", "]"}]}], 
        SuperscriptBox[
-        RowBox[{"(", 
-         RowBox[{"t", "[", "\[Theta]", "]"}], ")"}], 
+        RowBox[{"RealAbs", "[", 
+         RowBox[{"t", "[", "\[Theta]", "]"}], "]"}], 
         RowBox[{"\[CapitalDelta]", "[", "2", "]"}]]]}], "]"}], "[", 
     "\[Theta]0Cas", "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{
@@ -201,21 +348,18 @@ Cell[BoxData[{
    3.8438064612671556`*^9, 3.843806483348926*^9}, {3.843811490926489*^9, 
    3.843811490990367*^9}, {3.843811762123721*^9, 3.843811792156164*^9}, {
    3.84381190693526*^9, 3.843811907005992*^9}, {3.843812765889268*^9, 
-   3.8438127660003633`*^9}, {3.8438833187875977`*^9, 3.843883318858028*^9}},
+   3.8438127660003633`*^9}, {3.8438833187875977`*^9, 3.843883318858028*^9}, 
+   3.876208442731238*^9, {3.876209028372431*^9, 3.876209031292045*^9}},
  CellLabel->
-  "In[360]:=",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"],
+  "In[188]:=",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"],
 
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"-", "1.3595232308079763`"}], ",", 
    RowBox[{"-", "0.04655549169678349`"}], ",", "0.03237211997439275`", ",", 
-   RowBox[{"-", "0.04559719478179554`"}], ",", "0.0896082623558699`", ",", 
-   RowBox[{"-", "0.2143894700632707`"}], ",", "0.584185898399437`", ",", 
-   RowBox[{"-", "1.7457422693875277`"}], ",", "5.58836650656107`", ",", 
-   RowBox[{"-", "18.86651788362811`"}], ",", "66.44778572365097`", ",", 
-   RowBox[{"-", "242.23334827652096`"}], ",", "908.6585949684338`", ",", 
-   RowBox[{"-", "3491.621379722553`"}]}], "}"}]], "Output",
+   RowBox[{"-", "0.04559719478179543`"}], ",", "0.08960826235586972`"}], 
+  "}"}]], "Output",
  CellChangeTimes->{
   3.83698713111462*^9, 3.836987321633688*^9, 3.8369882151463833`*^9, 
    3.83698833312978*^9, 3.837070043781701*^9, 3.837070402550199*^9, 
@@ -226,9 +370,471 @@ Cell[BoxData[
    3.843803045143682*^9, {3.843806458261032*^9, 3.843806484750998*^9}, {
    3.8438117627002707`*^9, 3.843811778845757*^9}, 3.843811897566523*^9, 
    3.843812875019771*^9, {3.8438833095937767`*^9, 3.843883327729155*^9}, 
-   3.844157549053947*^9},
+   3.844157549053947*^9, {3.8762084391800756`*^9, 3.876208443033372*^9}, 
+   3.876209031472166*^9, 3.8762104487066717`*^9, 3.876210487363555*^9},
+ CellLabel->
+  "Out[191]=",ExpressionUUID->"cd2ce696-c253-4ff8-b993-64c7e05c4dd9"]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"totCas", "=", "4"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"ds", "=", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"invDerivativeList", "[", 
+      RowBox[{"totCas", "+", "1"}], "]"}], "[", 
+     RowBox[{"\[Theta]", "\[Function]", 
+      FractionBox[
+       RowBox[{"h0", " ", 
+        RowBox[{"hCas", "[", "\[Theta]", "]"}]}], 
+       SuperscriptBox[
+        RowBox[{"RealAbs", "[", 
+         RowBox[{"t", "[", "\[Theta]", "]"}], "]"}], 
+        RowBox[{"\[CapitalDelta]", "[", "2", "]"}]]]}], "]"}], "[", 
+    "\[Theta]", "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"dMs", "=", 
+   RowBox[{"m0", " ", 
+    RowBox[{"NestList", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"D", "[", 
+        RowBox[{"#", ",", "\[Theta]"}], "]"}], "&"}], ",", 
+      FractionBox["\[Theta]", 
+       SuperscriptBox[
+        RowBox[{"RealAbs", "[", 
+         RowBox[{
+          SuperscriptBox["\[Theta]", "2"], "-", "1"}], "]"}], 
+        RowBox[{"1", "/", "8"}]]], ",", "totCas"}], "]"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"datCas", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", 
+       RowBox[{"Sum", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"dMs", "[", 
+           RowBox[{"[", 
+            RowBox[{"k", "+", "1"}], "]"}], "]"}], 
+          RowBox[{"BellY", "[", 
+           RowBox[{"n", ",", "k", ",", 
+            RowBox[{"ds", "[", 
+             RowBox[{"[", 
+              RowBox[{";;", 
+               RowBox[{"n", "-", "k", "+", "1"}]}], "]"}], "]"}]}], "]"}]}], 
+         ",", 
+         RowBox[{"{", 
+          RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "/", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"n", "+", "1"}], ")"}], "!"}]}], ",", 
+     RowBox[{"{", 
+      RowBox[{"n", ",", "0", ",", "totCas"}], "}"}]}], "]"}]}], 
+  ";"}]}], "Input",
+ CellChangeTimes->{{3.836976284774213*^9, 3.8369763107653933`*^9}, {
+   3.8369763440621157`*^9, 3.836976643043976*^9}, {3.8369766791263657`*^9, 
+   3.836976702020906*^9}, {3.8369833396004457`*^9, 3.8369833834965153`*^9}, {
+   3.836983426425185*^9, 3.836983501138253*^9}, {3.8369836692218637`*^9, 
+   3.836983678733614*^9}, {3.836983808464398*^9, 3.8369838086001043`*^9}, {
+   3.8369839370347757`*^9, 3.836983937122395*^9}, {3.836983969035384*^9, 
+   3.836983979299178*^9}, {3.836984097325984*^9, 3.8369840974613132`*^9}, {
+   3.836984339450017*^9, 3.8369843561781673`*^9}, {3.836984934917253*^9, 
+   3.836984935916635*^9}, {3.8369856092092857`*^9, 3.836985626001013*^9}, {
+   3.836985701651613*^9, 3.836985833037245*^9}, {3.836985978736498*^9, 
+   3.836985996927923*^9}, {3.836986994292021*^9, 3.836986994346624*^9}, {
+   3.836987100533333*^9, 3.836987147389551*^9}, {3.836988211802526*^9, 
+   3.8369882124812613`*^9}, {3.83698827789044*^9, 3.836988278050117*^9}, {
+   3.836991140640276*^9, 3.836991156327482*^9}, {3.837070011059902*^9, 
+   3.8370700129717007`*^9}, {3.837070292889572*^9, 3.8370702929846687`*^9}, {
+   3.8370709285346727`*^9, 3.8370709288925543`*^9}, {3.837072484698299*^9, 
+   3.837072484992663*^9}, {3.843802126725583*^9, 3.843802127123851*^9}, {
+   3.8438022381502447`*^9, 3.843802268518549*^9}, {3.8438024340742607`*^9, 
+   3.843802515907176*^9}, {3.84380268121432*^9, 3.843802684734229*^9}, 
+   3.843802806265029*^9, {3.843802947563074*^9, 3.843802949058984*^9}, 
+   3.843803003228539*^9, {3.843803040877533*^9, 3.843803044636691*^9}, {
+   3.8438064612671556`*^9, 3.843806483348926*^9}, {3.843811490926489*^9, 
+   3.843811490990367*^9}, {3.843811762123721*^9, 3.843811792156164*^9}, {
+   3.84381190693526*^9, 3.843811907005992*^9}, {3.843812765889268*^9, 
+   3.8438127660003633`*^9}, {3.8438833187875977`*^9, 3.843883318858028*^9}, 
+   3.876208442731238*^9, {3.876208483378458*^9, 3.8762084890345097`*^9}, {
+   3.8762090363083553`*^9, 3.876209068516684*^9}},
+ CellLabel->
+  "In[192]:=",ExpressionUUID->"4b92dc3c-7bc7-4b5c-a5c3-e2aacf85ed52"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"pCasM", "=", 
+  RowBox[{"ParametricPlot", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"h0", "  ", 
+        RowBox[{"hCas", "[", "\[Theta]", "]"}]}], 
+       SuperscriptBox[
+        RowBox[{"Abs", "[", 
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox["\[Theta]", "2"], "-", "1"}], ")"}], "]"}], 
+        RowBox[{"15", "/", "8"}]]], ",", 
+      RowBox[{"-", " ", 
+       RowBox[{"datCas", "[", 
+        RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"\[Theta]", ",", "1.001", ",", "\[Theta]0Cas"}], "}"}], ",", 
+    RowBox[{"AspectRatio", "->", "1"}], ",", 
+    RowBox[{"PlotRange", "->", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "3.3"}], "}"}], ",", "Automatic"}], "}"}]}], ",", 
+    RowBox[{"PlotStyle", "->", 
+     RowBox[{
+      RowBox[{"ColorData", "[", "97", "]"}], "[", "3", "]"}]}], ",", 
+    RowBox[{"PlotPoints", "->", "40"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.876208490482359*^9, 3.876208512090119*^9}, {
+   3.8762085423630447`*^9, 3.876208589275639*^9}, 3.8762086279652348`*^9, {
+   3.8762086597653513`*^9, 3.876208673349307*^9}, {3.8762087044624357`*^9, 
+   3.8762087621668367`*^9}, {3.8762088101927567`*^9, 3.87620901371556*^9}, {
+   3.876209044101116*^9, 3.876209165118668*^9}, {3.876209218072238*^9, 
+   3.876209218151585*^9}, {3.8762103169644537`*^9, 3.876210332444528*^9}, 
+   3.8762104042786694`*^9, 3.876210437783276*^9},
+ CellLabel->
+  "In[196]:=",ExpressionUUID->"9c63e4ce-bd4c-4c9e-9b17-80e65259d14e"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {}, 
+    TagBox[
+     {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
+      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
+1:eJwtzgk01I8TAPAlIhUKuULIEUXHhkIzzhCFXNkSITnKbUspRMgtUVSuXG0U
+RVIiutBBpPJLpehw9Nevdn33/u//vf+8N2/e5828mVE/EO4aKEwike4J8n91
+qiwsuIKoQ1vPnriZdCHspapJXSioxR6x9WQ6VQhJ2rW3bR1qMCAwZ3tukBDm
+Wq4A54VX0f7z2jY3OyFsH39Xe0S0Cje/6CuI2CKE+6meP6/LV6KByvVCnp6g
+r0PI2R8pRxdmwFkvKSEcWyqTuXJ/GQ5/bQhWFBZCu/4iZiD7Mgon2Roa0UlY
+WmF63uVoKb5WOZUY+YGEPpmtARdcirE0Tj0guZGEQ+dQS/ZIEXZcsxO+VUVC
+ZUd+RWLxeSSWTtE0LpJQdviVve/SQhxqSui4nULC8+SsO6u9zuGcvojH63gS
+5sysaKReL0AnNVV3rUgSylQ4iBuE5+O905MUfx8SFioGCwd9yMPROekiB3cS
+0jiiX0ac89BNpKF4vyMJo8jb3BaV5qBP5bNDS0wF+yb7V+5YkYm5a2Il7ZRI
++FuyX+aa01mU8nWril4u6B86RtzJzkClbU5fHkqQ8FeH9vVprXT03fRtQco8
+H251i4oNXUtFxS9WY8EP+PA7AbKSlFNxbOz22ls3+fD+V19Le34KWieMN2+s
+4oO6hUF8Y/ZpfOTbZ/8ynQ8NLAlW6/0knJPsc3L24IMCRDo2uSYha/B4sqYD
+H35SFGR8ZxJxxtebrLGNDxkZf6LX6SWi7UxT5WVtPnBU382VFCUgs9fkRziT
+B/3p20eMpI+hR//f223VPOBHP5eVSz+KT7Nq57klPHi5oeSItchRjN5YvOhg
+Hg9K37pc+ShOxSztDQGlx3nwZzorNn5bLAYpvptO3c0D/1IbfbvhGAyDqZDn
+9jwgkS7/MjgcgxtmLv82RB7o6zdLvayNRlKi95Ud63jwaeSM607zKMz2Htr6
+WJwHku47Lw//iESLdZTir3wumC2TEqsqikQzan2y0jwXjk6fJj8mItAvZGDF
+wCQXshJ0Y+SvheOmnMZwp0dciF3fyCZ1hmJl944BcioXMncvtxvfGYrFUppN
+dQlcyDGsFgocD8Ek695HBnFcKPsS/ltYMgQpokttIoK4EN0V5hV/+hCKtj/w
+7nLgwkPijUj5QCC2MBcaeslyIc3Ukr83ORC5z/uyXyzlQtP5A/fubQ5Eqq/c
+tLMYF6zI9sfXVwTgRN2Fp4ksDpRtedvRl+GPxhrKnqfGOTAPbeXHL/qhclrL
+4IsmDpDZ1ssOBvhhgV6F0eHrHECZu17b1vthOo+wWVHLgeoa76DKPl9cze+Y
+TLnEgffFZ5VqF/kiefudkYE0Djxx/tStuGcf9jzm1Un4cuDV1O92BfF9qPns
+6hJjCgcM/jQr+bftxfZmt/2hHhy42Tkg/mDlXuyrsI+eduTAkmC9vNd/vFEt
+kv3GdisH8kVthg1HvPB98NYuzxUc4A2rNdGLvDBY5d5TYhkH/j6KvVjv5YX9
+g8eOlC/lwHiq7ILej55Ie6jqskCUA6lVXrQQugfeS2k5KfeXDY/EOmlNdu6I
+GyXpe4fYUMf86Zce7oq5/BlX6SI2WB7SISq3u+K+HmLVsQI2BFuKVJutcsX3
+/pLZ33LYsMz41fjEaxfMpJ2TfZXGBpWkXVUD5i5YG5jc8eYYG9p+yGvF6Drj
+M11+700fNix/xj7rlumIzQq8eh99wf3SlQaFbo4oVLX5q50uGx5evVN5WNUR
+uw+sKzPSYkPNCgmpyVs7MP9ue/JKNcF/Of4X6ycdkDhzjLxMhg1RP/LEnxyw
+x5iUhQcvsFnQ8E7fdarVFn2V3L78+5IFeZQS79AsW1xgJ1K38DkLyiVJG30P
+2GK8ec81lV4WPDN2enpFyhYVi987ufew4H5tfKxVuA2WKeyjTN1hQZbFqfDP
+FtYo/ozmVlPBAt5oo88ufUt8cGGTJFBZEKhGHry4xBK/vGt2uhHDguqAQ4cN
+f1mgR8eulRpRLKh6XOlu0myBG+J63KQOs2Co7KRKrbkF8nVtWsX8WTC7M1Lc
+yA9R+fSHhLBdLBgfsWrfQzNHz3p9p6k1LPjz6uqF84nmONfWYdyvwwLxwTWb
+9TzM8Vu1xFyDFgsW5NSM7hE2xxNNop1H1VkQnLZvqs3HDOl6qlmaiizoPtX9
+6Ka2KfIGAir7xVmQtsHkza9ZE6StWPTa7ScTdl9opVc8N8EC5dVlId+ZcEV0
+fWchzQSzOmtnkyaZ8ER1stcoxAQtLl5a2DLOhKoG4SLKlDH+NZT6z9pRJrx9
+0T19lW6ENwrHxvz6mRCUlnaeSt6MaeZp8kONTDhCff7xjfxm1EFfmbnrTPAR
+LtUMZZMxS80sR5LGhMeNaVEmPWQcVG4jdtUyYbHXIrtd7mQ0nO0LmihjQijl
+gykneRMuPTnyxyWfCX9v9N2RFdqId/3NWzbGMmHkW0n+wIQBRhDc/Q3IhA+x
+eyS+dRng3XjjYE1gQkDzWnmjywaYM8tPKDFnQr/QU/ppDwNcp015nLmVCc4h
+c469/evQuTKhPp4smGePNRd0rcWwJzpd6bpMiDL+/FttQA+3ELouPsuY4HYl
+8WlYlA5OcbrZLZMEDDpfrrxM0cGo2jLmiQkCFkk3Gcxa62B6nFud9VcCYqor
+E7/L6yBEl8mNfCZgN/XfzVad2th+YJ+K0AcCyreONQXLaGNTSaoL9TUBPyyP
+R6sNrMY47RDWp04CJLPXij/P18Bqq9Y9yZcIyFiYqzB6SgN18/te7SklwE6H
+eMk/rIH3/RynN5QI5sepZ/MdNJC6fJ30RDEBnjvj3/aKaGBEajnJ+RwB89rR
+d0MT1HFU9ythc5aAQM/UsJiTqzAzi7W75igBRr7FkfwIFTSbmI9U9iTA0of7
+WUlGAWsitZ6OqxAgHtXUQCHJ4t+Y4cVl0/PQ3Tyj/idDGuuXxF3Pa58Hs7mI
+hUNzi9Fs/xM93fx5sDrURqFEiyH1OynY89A8/L6pKXfr0wKcmfkp+8ZqHrJU
+H6mPrRTCwOGMlJzV8zB5wvMGz4QLdqlqCo6i8/BPjPknzx1MEFO4oOM5xQDK
+iRft0zfooC6kr2b/igEiIFK6svFf+LnpmndDKwMMTMts0XoOrIO7uxwqGNBZ
+XdNCCM3AJuOQgrpMBiiojp+b8PgB6Xd3dvceZcC/jJQMUcNJ4IlttDocxADT
+Ygbp47ovUCClvLHHnQGjE0OPd4V9Alp9hbGDLQMccuuOU2+NQpdBVWSGEQN0
+G/RsvC6NgIz+RZqoLgO8sykl0cZDMOuo4m2jzIDptNbZ4o+v4Bbtbrm5JAMU
+9UNd7gX2gVPHcMsTYQbEFTabHip4DMvF9xzQJuggd+LkJdWPXeC0LEnBapYO
+QTYH5STe3oUMWY2TtK90aDX4hU/Um2GYnfvp/Xs6/BZZr/TLvhbirXVnNwzS
+wdVdRcM0uRiUFI4HremlQ4nY0ngNtWKY1FistVDgxXH388n3iyBxt9n0l2d0
+CJ4ub3jHOA81147lXxI4kLTYU/VIIQBrtY20wEdVK85lB+RD6YeD25lP6HAN
+VQM+fj4Db7eL1A8+EuxjuF6S1DoDS7bQ4m4InKP4yy03OBUe/nPTMVtg7mBA
+Q9Kf03BGfmCZvcDLc071aS1OAr8OLdLDHjrMX02aKSyIg+g7IaHN3XR4IbHl
+xvjqWNjfKPEgT+BNzWOtfXei4YXhT4VwgSs3D4dGfIqAwc97vusLHCL9nSYS
+dhBU019/q35Ih/LY186uJf4gSjE8niLw4oDWr0O9vkD93i7vL7CBprP8uJcH
+nHTxCF4lcNeAHVu20xlErA6o8rvoQB14t89rly3Q5c7/MyZw+aiMVZGDEXDe
+zJTfF5j0/wjPDTpSKvB/ASWdn3s=
+       "]]},
+     Annotation[#, "Charting`Private`Tag$384300#1"]& ]}, {}},
+  AspectRatio->1,
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->{0, 1.3595232308079763`},
+  DisplayFunction->Identity,
+  FrameLabel->{{None, None}, {None, None}},
+  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  ImagePadding->All,
+  Method->{
+   "DefaultGraphicsInteraction" -> {
+     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+      "Effects" -> {
+       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+        "Droplines" -> {
+         "freeformCursorMode" -> True, 
+          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> 
+    None},
+  PlotRange->{{0, 3.3}, {1.3595232308079763`, 1.8828734633575026`}},
+  PlotRangeClipping->True,
+  PlotRangePadding->{{0, 0}, {
+     Scaled[0.05], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{
+  3.876209165468998*^9, 3.876209218440271*^9, {3.876210314216745*^9, 
+   3.876210332711735*^9}, {3.8762104336122227`*^9, 3.876210449468999*^9}, 
+   3.876210487907978*^9},
+ CellLabel->
+  "Out[196]=",ExpressionUUID->"79c580a9-d885-45d2-b73d-816f14fe791e"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"pCasS", "=", 
+  RowBox[{"ParametricPlot", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"h0", " ", 
+        RowBox[{"hCas", "[", "\[Theta]", "]"}]}], 
+       SuperscriptBox[
+        RowBox[{"Abs", "[", 
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox["\[Theta]", "2"], "-", "1"}], ")"}], "]"}], 
+        RowBox[{"15", "/", "8"}]]], ",", 
+      RowBox[{"2", " ", 
+       RowBox[{"Abs", "@", 
+        RowBox[{"datCas", "[", 
+         RowBox[{"[", "2", "]"}], "]"}]}]}]}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"\[Theta]", ",", "1", ",", "\[Theta]0Cas"}], "}"}], ",", 
+    RowBox[{"AspectRatio", "->", "1"}], ",", 
+    RowBox[{"PlotRange", "->", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", "3.3"}], "}"}], ",", "Automatic"}], "}"}]}], ",", 
+    RowBox[{"PlotStyle", "->", 
+     RowBox[{
+      RowBox[{"ColorData", "[", "97", "]"}], "[", "3", "]"}]}], ",", 
+    RowBox[{"PlotPoints", "->", "40"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.876208490482359*^9, 3.876208512090119*^9}, {
+   3.8762085423630447`*^9, 3.876208589275639*^9}, 3.8762086279652348`*^9, {
+   3.8762086597653513`*^9, 3.876208673349307*^9}, {3.8762087044624357`*^9, 
+   3.8762087621668367`*^9}, {3.8762088101927567`*^9, 
+   3.8762089596587143`*^9}, {3.876209089221918*^9, 3.876209122589672*^9}, {
+   3.876209181039466*^9, 3.876209181767116*^9}, 3.876209220528407*^9, {
+   3.8762103380532513`*^9, 3.8762103385007963`*^9}},
+ CellLabel->
+  "In[198]:=",ExpressionUUID->"9a7cc83f-920d-4c9e-9d42-998a933b225c"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {}, 
+    TagBox[
+     {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
+      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
+1:eJwtlmc4F47bxc2MQigje6/ICkXf+zYyUzaRmb0lRBLZexPJbEmlKN80jKyM
+bNkjJdEgK4T+v+e6nvPmvPm8OOfFua7D5+Bj5ERGQkKSTkpC8n8u/dmtiym0
+UZXzetUVOnFyQqR2zZKWBqpypR1bvGcYSmhMFH9u+ZpPdYZ6QYGtN5dwe7Z/
++UDmQVWvSwpps/IPCKxfb7QqGpGrRvV+3tyjfE7go3HULPTYQlva0qv3c94S
+Xhwb4gujW8Hn11tb7lk2Ez5VafCyUX/HlzriT6kedBDSB3rfydHMoQ/vTX+u
+j70EuRqP2+YTM5ibMB936+kgIVmi7rDhw3F85MTCszgzQihpUKBa5B1GnZof
+5zsdJwkVysvUuWUDGN4QmczP9YkQFjV7QWauF3E88lt75WfCHO/fTzxOH7B+
+lfN8mttXwrE14DTua8ejCW9F3uosECYURw3LJ1tRIGHG5f65H4R215i8LOdm
+XH574Gl1yBKh/X5f/aLhOwxXU+IXc/pNcNe0bWVIakBRDomuPe5VQm+RKK/o
+gTpMO6MZX7C4RhCQla8ddX2NNzw4yN+3bRA2onj3+DhrsVEx1123ZpNwuLfR
+6ikrEa9QfWZffrFNePvGapPe4AUGTPWpx7XuEDSWx2i3X1fjGUnXJ1/m9wjs
+5qaUn42rkE5D5/WPJBJQnUgkzWR8ho4H33lxPyGFzrjIjLbpSvxnrhbnP0wG
+P987TzENPcaIAFbaUWoKsFAItOv9W4Eb/qKtKmqUkPeFjHle/yFqsc8aJUfu
+g2HG/FTR1gf4kWnkb20XFXBj4LCI3X20T5x5XsVFA1UknaZsbPfwT+UVetdA
+WshKENCuXryD+QPaEp0f9wP9vV/i/ENlWG9/p+YDgQ4kdSU5fw6WIjXdt3H7
+J/TwLSbZ8cd8CVrs6fO8ZToI07lr0SoHSlCKv3SLov8gdA5/MJTHYtxZc1Ih
+y2aEMGuidi1FEZ6WPzX6xIoJioQmfvaX3sZZL9nfFMLMILX16LCrRQEKHRXp
+31tlhgSBFxseArfQnzVwLaflEIQsnuSiJctHddt3m235h8EyWkW3aOUmcvQs
+3U3yZwEt0066NfJclIxM73hzjA0ucL+KkObPwY+Nb8K4mdlhf0OCkal+Nn7m
+oTci2WYHVzXnk25RWSj2duSp9ZcjwJXoIpjQmokuFHyCsv0cIDVbXLTIlIm/
+n1wwCG7ihHyh23d6XDOQO1hzTeolF5DGfG1KlErHJqvJI0MVPDBAKRGgdDsN
+uxrsOmxMeUHEeHcfE3Ma8lh4n7jxkRdmm2JoVXlSkZG4s2p0ng9UszTMvgum
+YJQjkatnkg/YQtK/myskY/+/o1/WLvKDld/z0k6jJBy94Bf27js/2BDXb/A/
+TMDVFwSlsySCoKpnp5swEI+M0+VWKzcF4bVo+C4lVTxmF4iHhMsJAcsUmUBz
+fCxOnt25YuQtDCxfbrUsDMcgj3+OVQa9CBR+I8+cl4zBF/kcp54/FQF7Fcqf
+hUtReFGW3zNnWxS4kvyyYyyj8KtcP5VxqRhMnXl9qqQzEuM4pQmLeuLAvMZc
+xVp/Aw2UNC6X3JGA/APjZB/xBoaQ2VPUGR+FkGt+voltEbgvKvjcEwpJiNF6
+9frjbDjOUdHHk3tKQe5jnYS1wHDM05FQc+I/BtnFDDVsDOF41Z5TL2vsGCyP
+Z14zyw7DJ4e2D4k/kIboyKcxwePX8PwC5b/lfTLw7jc99XHRa3hx4l/KLWcZ
+SJQ+9EN58CpmEg7V3xSVhZbg6dF12as4uAnrCwmyUEigIQrmhqCbntkuxy9Z
++H5P4N6CdzBym0h28RDlYIm2fojMLAhPMaV/zzQ+Dp8PDrsrjwWiP0+90Oib
+42BlFLOl7RCIY3l6pNvCCnBEvqJE/VoACo+fleraVQDZ37rMXxkCUKr3rX6o
+uyKobj9Ybrt7+b89XnxIOaIIccMf4P2YP6Z+jOkqeaEEV/2utZcH++NTbxWf
+aqETMFF/sMGAwx871SNoCnJOwPsdmeQo50u4ZZq0shRyEvxWM3in2P2QVyU5
+K1NfBczmGpuVu3zRMwfm9JtVoKk03PZ+uC96FJiujimfgvnlM951Uz5ItfhU
+y0OSAGw/84sYjX1wRSk63es+AepLPpFtdHijX1ZXEfIDXNo8nPan2QtvVy2m
+StAhMBk9jx/T9MLpTxs9XXoIRzVr5MY6PdFhIyl8KAGhRi6C8v2UBx6oLNDm
+pFWF8wdOVzQKuaN5S4N4MJ0ajLkP1z1vdsPpyvK0JV01YLD81Nng5IYnrOcL
+6uLUoOkXc8rXx6547+SvP06U6mBxxyln1MQFudg5/w6SaUDdp7PipOQuGEv7
+cmC/ugYwp8SdH6xyxkblgb95kRrwrrbf9xyrM0ZdFc55TXkapDSsyT1WHFGS
+SBLHQK8JeyEXduoeOeKYywfvHQNNoHJ+2ezh6oheXdJOkKUJeng97tHni7h3
+++/XVg4tkIueuP35mwOmJidwjEhpgxW189NDjx2wturleb/L2uAf3fLb5pID
+WksOXLV9pQ0/H4pVC5A44LJu8PgJLR24MR3s9ErEHoXTY4Q+O+qCpI1yxr9V
+O4yOZCnkeawL4ZPctkcb7bBC6etM5bouLBW4eIjY2GFsq8Wpzlg9EO9Jy5DQ
+sEX+nKb7C5VngI3FOYVp0QbT8ppaG7bPAPXUrXsh6Ta44e15b/G0PiSRnhd+
+9MUa/V3NRBQm9YHmWQlH9a0LGJR6tPYBwznY2nv/q/7MBZTnverEZH0OaP6I
+ZDP8s8Ipb4PhDw/PQeKSGuMFFytcu7LzvkDAABK4qe+snbbEka6y5OVGA3CZ
+Pe1IqmCBXzotfST2GUHh16bfGVvmyNfDznhTygisMkPDyevMUWaUl1fC3AjK
+F/Jv+eqYo0i0hlHzAyMIHzCRp3E3w4GKgeJGfWPgZrsTwCtvhmFhipp2QcZA
+4t8m9WfPFHeDjFYFS4zBvGp0YzDHFA3Oa8vxrhtDbEzx4Gq3CSr1mqxNFJqA
+51FJmQeFJrhvizHiYbsJtJFYz5L6mOBwT/Tz22smkP6oMSmP0QRVDpvPrOma
+wp1RzN9vY4yrdoUUTlumwB+pm/uS0QiXGMevqlmbg2d/VcWNRUNMsDA74JRg
+Dl0NTivtTYZI0tOW/IhoDoM5LH1tQYbIVyqm9JDJAopYL2rpzBmgTRPs2XRY
+AIXrcG1K+Tkk6FCw3kVLsBE0WCBzO4c0bclvGX0todvnkpKS2Dnc31X4uLTI
+EpbxGY5VnMWUmVNqMv8sgVPVJqiiVh/Nm+1FSBqsoGTI+af4uh769BmYX9C2
+BsEETfvpV3oodcLqMoZZAzGfqvZ0hB4qdfxMOvvcGmzKX45xHtRDUUfhiG+8
+NpDgIOBQflwXh118jjLt2IDP638faQq1cV9TiBK7tR2o7Obw3vfSRqcj4m4W
+wXaQIjAt13NKG6lONio/yrYDkrHLocRpLVwdyXua3m0HXR3OzM/EtHAiexuM
+Ve0hUezQi/LB03jdoVX1kbgDxLTS5DI8Oo269XLUctoOYBtOY/U58jRKZrBx
+dDs5wLisz8Vu+dO4fOclo2qJAzR2TSzE3dJAl9jcanb2i//lC1K3uKqO9W43
+ndIPOEJnW+SJ3xbq2PyqJ9tSwhGKQuWMZxXUkfP3w3eKuo7Q8bhN8/2qGjrG
+7/8nGecIOt5U2ZF+ashA+jqUhtIJ8hO8qDuuquLZ9BSvK2TOsBjS/dvMThWF
++vu8rHidoXluVZ7/tCpW+ZVknyM4AzmRddyXQRXTQiT1PUKc4cVsV8PYPcSs
+zbvrPqvOsLJb7pDVAJjMRkVR8c0FGkjIMwbTABM+8HcUUrlC7t8581B7QPN/
+VmFlwq6Q8iqEbI8cMGlHoWza0RUszwwpPtQnoLTk3Wv8s66g2eV4pGZFBalu
+xgX1TLuB7nH1zB/vVXBkyi6y958bCHOL9gYXqeDZjC+aszzu0GloMJmlr4Jm
+u1XzinbuIDpHs1D9WBmDSR3kKz65Q44AsW4w9CT6JOvwV857gDRLpKyooRLq
+zCmxsJB4g1fFJ9MFSSV8qVLYRybkDeeOxoSv0iqhprrBSzJdb8if8O+ablHE
+g5uGm8pZ3mDCE7xJBoro0BAykinmAymNYuV9pxSw/q3et0UJX0g2MJ7o4FZA
+2g6Vui2CLyzsj3hFSqKA5geW9jMZ+cLLwKFloabjeIPRgMr2ii+wXyrbp3jm
+ON5TsNVzb/EFtH2ivekqj+yGm0Ea9n6wmy3rE6Uvj8p2ASsLl/2geWSN4rSs
+PIrzyr2/GecHnWFvvOx35PCZTFgY01M/UPouwrGVIYeyhD9zAf/84AgPuZBS
+uywufS3j+1t0CUofhjyYMZNBSbaOzNV5f1gQ6p26qiqDJmXz27Y7/hDaZn9O
+5agMcvw9Lzd08DKQPa6JlyCTQbbd40xjJy7DIFOW6qtKaZzw6bXWT7oMoRnm
+FUaM0rhXOz09IhsALSHDnQo7xzCJL6C8TysAgsLkx6g/HsNuiaqjAxcCoMzc
+O8Yz4RgahVpYLscEwA5N+wf+DSmcWdgVyxz/j//o7jc0Iom/1Acsg2MCQVJt
+L1y6RhJ7Xmwz7d4KhD8xIbNNmZKo94TSO/5ZIIQz7atNPyeJV8/IUb2ZCITA
+nqOdb9qP4noqa1GcXBB4XLkl+rNNAjPtqGTqZoOAttZC4+M3MVyPcHFJ1woG
+JUufsnPdYtg7t0leeiEYStSY235Vi2GT19BerV8w8PIyqd6+LobVaif3kxQE
+Q/2Lky7VbGLI13je/styMLy9nlsXbyiKY2zf2OkKQqCV3f6QyIQwsui7pw7/
+uQo1Jt+1xluEkdXfZr2PLhTK1K9HPa4Uxtr4pZsDAqFwyo1boyJSGHdOr2X9
+OBcKWZ1SwvskhVHrw5pGwINQqJs9eYwuWgjZXJrKZyyvwZdz2qPMOoLI5y7X
+ytYSBmyjiYsZ8oLIc+Cn+fxkGHjvzDtL8QriTfEl7bqNMJieUOiv/SOArGP7
+NaJFr4NY/cs5zgcC+NU2/FpQ0nVw7rhGuUAngJObJH/XxcPhXZTqktkPPjxs
+sN835k84CLsw6lON86FcEVXSJYoIyE885d7dzod1sUdbHBgj4NY+cs3i+3w4
+U1qVdE4iAhxO/Dpz1pEP054z2FvaRoC3U/uvqk+8GJo0VSr/PgIuyLXcMhzm
+Qc9c9Zo/BTdA5sL2+Y7XPKiWldAeUX4D+ioNFS8W8+CjumsXGWpuwAyNTOKa
+Gw/uUFaKHe+5AXsON86m7XHjyVm51YekkaA0/5AvUpIbk8NoOMAlEiSvDHlx
+l3AihWP1+33Ho+AoLoapxXNib2DbFIlaFHCXtUpH+HGitdIB772zUeD17cq4
+vhonPmKN3CB3iwLFp0mcvHMceI/tSZnS7ShIuHSvIvYYB16+T2TW3hcN/Pr0
+Jzw+sqNPxsUrO2PR4Ji7mUf5jh1NMtYv8H2LBr9qfdsXj9nxR39tos76f3zE
+oVKTaHZk8LVpLWOIAeO01amU4+x4vqT57nWNGODyL0kczWPDv1MDrwafxEC5
+ZGLvfj9WjId/Vb+jY+G/pxHKZcuKJ8V6RK9nxgL5SKyKqj4rKk4oTTKUxMIr
+T7rcOjFWvFrmTaL8JhakGDhFUz6zYNfFa8IvV2KhYkXxmaclC1Y3mZbq28VB
+tW97YIrJYfRuNPw2eyoepoweoK36YQxUibWk0o+HbO4z/Gqyh/H8F/f0Yxfi
+4WjGq/ZTBw/jmPV1vcSQeBjs092h+XAIic+IX3yI8fDFVZPhk84hPGP+Qven
+TAKID+59XjzHjHyVI19fiCWC4W5Oeh8yYyF5P7vRiUSgfKgW1ybDjENig+Qr
+2olA3+NK8omZGVNCtP6quCZCBZPgctsIE5amqnr+u5cI7+fyh02cmHB979HW
+caEkqDtRZbYQx4i1bv6zzoLJwFyzEHAllBE/8re/dZJLBnnF6HkmX0aMj6xr
+d1FLBun7Pklu5oyYIXzyUoBdMpCw0HoUCDMidar5Tk1BMtydfCZG13YQb/9N
+fNR/OAUu2HnONDEcRJLdTBV32lTYbspvvUNxEPsyGxK72VOBZKDxB/cqA7oN
+apEqiKWCrIPQAYo2BvwSIWBDr50K8qd4HF74MKDzHfz4JToV6j3pwkua6fGw
+0bLKIdI0GExqUqEPpUO1vLfSUWFpEGbxS8XLmQ699j8WYIpNg+TpVIUZAzoc
+DgxdLElNA8njH2pIhenQU2ttpbU4Ddazd8yk+w7gM8WxBeGmNOCPdZ4TkTiA
+w5sEDQJ1Onzqowya+0GLVxIFTdoz0yGTo3Qxd5QW1VieX0wvSIf1VpdbVq20
+SLxKqWp1Nx2oO5cdWYppUSdI0nGtJh1o7ar9zE1oMUffSEtlLB2WqHPzN+pp
+8Lkguzk/Xwasm7l/EimjxvRb7gaaTzMgPcdDSyqDGk8Wv0rlqs0ATd1tFvUI
+aryxdCFmozEDuOIfV+faUuMK17ebjwcyoNArXeo7JzVKjWmflf6TAb9nv7dJ
+5lPhXtHwQCwhE/yP7mW8KtyHqmFe7GHdmXByiHXsTxcF0gn1i4WtZsGW0peb
+LA0UyMXbSsm/kwXS2z9WCdUUeORJjFkbRTZ0hk6df5RHgW9jv5qysGRD4nr3
+3KYzBbJ2+b1vUcoG9s92QobkFCi6z8jWPSwbnB5dvN2oRo4We0Hu7bQ5IMcw
+vjYxRoqUl3++HRbJBZ+D9Y5KPaTI1rvWmi+TC5XCXa0FTaQ4VzAUaqucCzRe
+8oTwR6TokHn918+zuRDgabrvWRgpelH9/cIdmAurwXNhVYKk2NY/vt3bnAtP
+A4uV/waSYBXP2SeXL94ErbLbet+c9uAKh4z3s7t5UGko/mvWeA/6Gk4OSlfm
+wQlblaEF1T3wOC1x/9nLPJhQstHk5N6Duc+qmcTOPGC4cCiZaXgXCgI+hA/+
+zgPXA0NZynq7sFJcmW1EyAf6KOn9J1R2wG1bs8NmJB+2Yi13ugnb0HWDM/np
+wQKQ7Q67ryW1DcojCRTWHAUwOCyx2cm1DZoKp3n2CxfA7/4Auz87W7C8RUbw
+VC4AuooSiZHXW0CT48yp5lwAhzjo3r9U3oIsa3JllTcFwGmUL/dMfROq7NJX
+XN1uw+PB1DPBlzbAv+fBn1vvC4FzRrWl13EDLm999AodKAS5s7nqMuYbQDNK
+7WMzVQjn7Q/I0alsQOTQIqPIWiFoji/tl963AW1vuoc6eIqg/zX9cY6CdTBM
+sFW8EFQEjh6FF0271yCF+kZNP3MxRNBvkc7oroJjGRuVU2sxpB2z9KDBVfin
+1uBwt7MYUgJSlE8cX4WizXjnr73FML3qulvBswrkEWec3ceL4dChOzcm11ag
+w+XA6ZDlYvg6KHnds3gFtn18/WuPlECnJefVIzu/YZL5p9wLnxIQfj6g39K8
+DHfiw3SLOEqB/Vtp5a1XyzAwaUsSxlcKpJlnzK48XYbJsa9B1iKlsPekx0aj
+YBmguqSCW64UvpzeHBK+vAzTyb8EHuqWgvdsvQKj0DI4VdLozAWXgmt+23IN
+yxJovZj89X2kFASVYp+X9v0Aje2qHYW8MpBjUdFUJl0At632YzLUdyF0iV/g
+zOs5WCKgf3vwPVD+JOHiUDQLjwvkfkcdfgBcZUt1/MwzMC8T1figqBx0wn/W
+PdcehwoL2RfuphWwn+xw+TLzMCjSijyqoHsM9r817BhvDkBVvZ9MyLMnsDRz
+P0ZSuRfeUtxs0VB9Cg5sbQs6kx3wRmt++CP3Mzhr8qkvcKkFCssthI/tPINl
+9XAHcYFGsOi49XJ+uQoOStp3dyi/Ag5fiX8uo9Ug8TNpdNyxCqguVQjPjz4H
+Ro+bsTu37gOnh6VTxIcX8Olrxw+ZvlyIJ0qYsDTUwGO/oIevPXPhyQS9p1Nz
+DRR9N9b1o86FBkGK7ufva8BxsmDMFnPgcyq1r0lfDeyuSn/VqsqCLtJnErmz
+NTCQ6sImU5gOVrVqV8UpiXBl17SzQiIWIu8k6MTpEkFmyMLM2SsGBu7MZs+c
+JULjWuZl/8poODzlKnHCmAg1rz50RMlHQV/qZ5nvVkRo2GaNuq4WAZ50nRVG
+XkSwavml6TQeCJUKR/WPpREh/bxeOZXbf7+3mlksKYsIdvQPtHT/+IPQKFF/
+4SYRTAWWySsP+8HUO3a/OyVEiHcsFJ+odgatkms83NVEODl/cJZ59CJk/o7E
+a0QirL58rh37zw4GT9I/nHhNBEdZ08RTxWag6ZRhVtBMBPWfLVaRawaQyRWW
+t/OeCJ3qF+8E5WgC7bU+QesP//XpfkWdm64AGz7Rm2/7iEDy/0qczTjE85EI
+/wNkCn8r
+       "]]},
+     Annotation[#, "Charting`Private`Tag$384371#1"]& ]}, {}},
+  AspectRatio->1,
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->{0, 0},
+  DisplayFunction->Identity,
+  FrameLabel->{{None, None}, {None, None}},
+  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  ImagePadding->All,
+  Method->{
+   "DefaultGraphicsInteraction" -> {
+     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+      "Effects" -> {
+       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+        "Droplines" -> {
+         "freeformCursorMode" -> True, 
+          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> 
+    None},
+  PlotRange->{{0, 3.3}, {0., 0.09311098339356698}},
+  PlotRangeClipping->True,
+  PlotRangePadding->{{0, 0}, {
+     Scaled[0.05], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{{3.8762085510207253`*^9, 3.87620858950519*^9}, 
+   3.876208628576564*^9, 3.876208673611944*^9, {3.876208726286438*^9, 
+   3.876208762616218*^9}, {3.876208810719953*^9, 3.8762089672639933`*^9}, {
+   3.876209089578055*^9, 3.876209122850472*^9}, 3.876209182088485*^9, 
+   3.876209221479105*^9, {3.876210314516953*^9, 3.8762103388902884`*^9}, 
+   3.876210498192659*^9},
  CellLabel->
-  "Out[363]=",ExpressionUUID->"1fe1a989-6f4d-41a0-9680-c055dfc0798b"]
+  "Out[198]=",ExpressionUUID->"72455824-b956-48f2-805c-31dcb93fc169"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -2385,7 +2991,6 @@ rW6+hjMZrUR2qv0eCs2GZ6hQiiKw8WrrF2rHZuOttEddz8TAmZwN3+XLaXCC
 ivJgcNdeDK+lWgEs+ywogw0/GSLoYewooUER0sKSJJsOpnsqjFCSX0WUBb+n
 YMujfA5G2vROKPVvL8Hzptiqlfxf6YGuwLEX3qpPiHXOIvUa7ZWbR3yTfQ3D
 8pEYURJeyFzHjnlD/Ac6Hgav
-  
   "],ExpressionUUID->"f81ed9c7-d940-4314-963c-c36ea0215ef3"],
 
 Cell[BoxData[
@@ -3721,8 +4326,8 @@ Cell[BoxData[
              0.16666666666666666`, 3.584705786922063}, 
              Offset[{3, 0}, {0.16666666666666666`, 3.584705786922063}]}, {{
              0.16666666666666666`, 3.584705786922063}, 
-             Offset[{-3, 0}, {0.16666666666666666`, 
-              3.584705786922063}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]},
+             Offset[{-3, 0}, {0.16666666666666666`, 3.584705786922063}]}}], {{
+           {1., 0.}, {0., 1.}}, {0., 0.}}]},
         Antialiasing->False]}, 
       {RGBColor[0.368417, 0.506779, 0.709798], 
        StyleBox[{
@@ -4411,10 +5016,10 @@ Cell[BoxData[
  CellLabel->"Out[91]=",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"]
 }, Open  ]]
 },
-WindowSize->{635.25, 528.},
-WindowMargins->{{2.25, Automatic}, {2.25, Automatic}},
+WindowSize->{1426.5, 740.25},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
 TaggingRules->{"TryRealOnly" -> False},
-FrontEndVersion->"12.3 for Linux x86 (64-bit) (July 9, 2021)",
+FrontEndVersion->"13.2 for Linux x86 (64-bit) (December 7, 2022)",
 StyleDefinitions->"Default.nb",
 ExpressionUUID->"d257fbda-2be1-4221-9ac8-5153716cfc00"
 ]
@@ -4429,186 +5034,210 @@ CellTagsIndex->{}
 *)
 (*NotebookFileOutline
 Notebook[{
-Cell[558, 20, 596, 10, 24, "Input",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"],
 Cell[CellGroupData[{
-Cell[1179, 34, 2287, 64, 112, "Input",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"],
-Cell[3469, 100, 489, 6, 25, "Output",ExpressionUUID->"747fa724-da10-4534-a92d-12fdfb1ff525"],
-Cell[3961, 108, 487, 6, 25, "Output",ExpressionUUID->"c1b4bacd-7ed5-4a85-9925-55ead180e80f"]
+Cell[580, 22, 596, 10, 24, "Input",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"],
+Cell[1179, 34, 689, 14, 20, "Message",ExpressionUUID->"416ee172-1ad9-434e-b73c-e99e451d8e53"],
+Cell[1871, 50, 672, 14, 20, "Message",ExpressionUUID->"ec136869-a624-43fb-87cd-ab7ce0e4f6b5"],
+Cell[2546, 66, 684, 14, 20, "Message",ExpressionUUID->"c71f26b5-fddb-4e00-990e-08b74adae32a"],
+Cell[3233, 82, 684, 14, 20, "Message",ExpressionUUID->"2eb6cbef-108c-4bdb-b0d3-f595ef80164f"],
+Cell[3920, 98, 674, 14, 20, "Message",ExpressionUUID->"2d64117a-f0ef-4d22-873c-490eeb5b19e8"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[4631, 117, 362, 8, 22, "Input",ExpressionUUID->"fe6a6d03-8b9a-4d30-9d0f-09497bed842b"],
+Cell[4996, 127, 687, 15, 26, "Output",ExpressionUUID->"142568cc-1192-404c-88bb-d7eaa3fbf94e"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[5720, 147, 314, 7, 23, "Input",ExpressionUUID->"15c6347f-e08e-4478-999e-a055b83a9e4f"],
+Cell[6037, 156, 663, 14, 26, "Output",ExpressionUUID->"99fdb326-dc62-43d2-a350-3a194a15d647"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[6737, 175, 2435, 66, 112, "Input",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"],
+Cell[9175, 243, 633, 8, 25, "Output",ExpressionUUID->"2797a478-d270-4869-ba7f-428591635fb9"],
+Cell[9811, 253, 629, 8, 25, "Output",ExpressionUUID->"567108b3-a280-49d8-9f91-9b9feb4211c2"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[10477, 266, 3932, 87, 115, "Input",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"],
+Cell[14412, 355, 1153, 20, 25, "Output",ExpressionUUID->"cd2ce696-c253-4ff8-b993-64c7e05c4dd9"]
+}, Open  ]],
+Cell[15580, 378, 3957, 88, 115, "Input",ExpressionUUID->"4b92dc3c-7bc7-4b5c-a5c3-e2aacf85ed52"],
+Cell[CellGroupData[{
+Cell[19562, 470, 1589, 38, 44, "Input",ExpressionUUID->"9c63e4ce-bd4c-4c9e-9b17-80e65259d14e"],
+Cell[21154, 510, 5371, 102, 268, "Output",ExpressionUUID->"79c580a9-d885-45d2-b73d-816f14fe791e"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[4485, 119, 3850, 86, 109, "Input",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"],
-Cell[8338, 207, 1369, 23, 42, "Output",ExpressionUUID->"1fe1a989-6f4d-41a0-9680-c055dfc0798b"]
+Cell[26562, 617, 1597, 39, 44, "Input",ExpressionUUID->"9a7cc83f-920d-4c9e-9d42-998a933b225c"],
+Cell[28162, 658, 10024, 178, 264, "Output",ExpressionUUID->"72455824-b956-48f2-805c-31dcb93fc169"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[9744, 235, 3851, 86, 109, "Input",ExpressionUUID->"34fe8bc4-abfb-4504-a7f1-045cd2a55ee6"],
-Cell[13598, 323, 670, 14, 44, "Output",ExpressionUUID->"e9b15296-174c-4b92-bc6b-e3136dbafca2"]
+Cell[38223, 841, 3851, 86, 132, "Input",ExpressionUUID->"34fe8bc4-abfb-4504-a7f1-045cd2a55ee6"],
+Cell[42077, 929, 670, 14, 44, "Output",ExpressionUUID->"e9b15296-174c-4b92-bc6b-e3136dbafca2"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[14305, 342, 302, 8, 24, "Input",ExpressionUUID->"2e8e8755-9de4-46f0-8d34-70439b2b441b"],
-Cell[14610, 352, 206, 4, 25, "Output",ExpressionUUID->"f78d77d4-a743-42fe-aad7-f383120ebe66"]
+Cell[42784, 948, 302, 8, 24, "Input",ExpressionUUID->"2e8e8755-9de4-46f0-8d34-70439b2b441b"],
+Cell[43089, 958, 206, 4, 26, "Output",ExpressionUUID->"f78d77d4-a743-42fe-aad7-f383120ebe66"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[14853, 361, 551, 15, 24, "Input",ExpressionUUID->"e826229b-9150-4894-b288-5f834e4105f5"],
-Cell[15407, 378, 820, 23, 52, "Output",ExpressionUUID->"ba4067d3-83a2-4fb1-b40d-dda17275ca39"]
+Cell[43332, 967, 551, 15, 25, "Input",ExpressionUUID->"e826229b-9150-4894-b288-5f834e4105f5"],
+Cell[43886, 984, 820, 23, 54, "Output",ExpressionUUID->"ba4067d3-83a2-4fb1-b40d-dda17275ca39"]
 }, Open  ]],
-Cell[16242, 404, 2411, 65, 86, "Input",ExpressionUUID->"aac833ad-2b24-4138-bd6f-72fced45c28b"],
+Cell[44721, 1010, 2411, 65, 100, "Input",ExpressionUUID->"aac833ad-2b24-4138-bd6f-72fced45c28b"],
 Cell[CellGroupData[{
-Cell[18678, 473, 406, 9, 24, "Input",ExpressionUUID->"192d6104-6702-44ac-becd-0eb638099ac5"],
-Cell[19087, 484, 1368, 33, 40, "Output",ExpressionUUID->"d7b8e166-951c-43b4-b661-6bb65d35f1c8"]
+Cell[47157, 1079, 406, 9, 24, "Input",ExpressionUUID->"192d6104-6702-44ac-becd-0eb638099ac5"],
+Cell[47566, 1090, 1368, 33, 43, "Output",ExpressionUUID->"d7b8e166-951c-43b4-b661-6bb65d35f1c8"]
 }, Open  ]],
-Cell[20470, 520, 4890, 100, 86, "Input",ExpressionUUID->"1800b59b-60e8-4839-8aff-d82ae8bbba1a"],
+Cell[48949, 1126, 4890, 100, 100, "Input",ExpressionUUID->"1800b59b-60e8-4839-8aff-d82ae8bbba1a"],
 Cell[CellGroupData[{
-Cell[25385, 624, 874, 18, 24, "Input",ExpressionUUID->"04521673-5a45-41f8-ba39-1383a2daafcd"],
-Cell[26262, 644, 534, 12, 25, "Output",ExpressionUUID->"4344f182-cac0-40ef-9167-1216ed9218e0"]
+Cell[53864, 1230, 874, 18, 24, "Input",ExpressionUUID->"04521673-5a45-41f8-ba39-1383a2daafcd"],
+Cell[54741, 1250, 534, 12, 28, "Output",ExpressionUUID->"4344f182-cac0-40ef-9167-1216ed9218e0"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[26833, 661, 304, 7, 22, "Input",ExpressionUUID->"340432fd-b01b-4746-840a-e312eec4ade0"],
-Cell[27140, 670, 12065, 270, 177, "Output",ExpressionUUID->"0fe99cd0-b508-4c82-8cb5-d58d82b4dd4e"]
+Cell[55312, 1267, 304, 7, 22, "Input",ExpressionUUID->"340432fd-b01b-4746-840a-e312eec4ade0"],
+Cell[55619, 1276, 12065, 270, 179, "Output",ExpressionUUID->"0fe99cd0-b508-4c82-8cb5-d58d82b4dd4e"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[39242, 945, 281, 6, 22, "Input",ExpressionUUID->"33938e6c-adaa-464a-9564-ced71dd22d4e"],
-Cell[39526, 953, 238, 5, 25, "Output",ExpressionUUID->"321f4d39-6591-48a7-9389-9935b198b499"]
+Cell[67721, 1551, 281, 6, 22, "Input",ExpressionUUID->"33938e6c-adaa-464a-9564-ced71dd22d4e"],
+Cell[68005, 1559, 238, 5, 25, "Output",ExpressionUUID->"321f4d39-6591-48a7-9389-9935b198b499"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[39801, 963, 1589, 42, 92, "Input",ExpressionUUID->"5ed4b47f-e272-40ab-8c23-58385be3e0c6"],
-Cell[41393, 1007, 3039, 47, 95, "Message",ExpressionUUID->"06e3abf0-2019-4c5e-99b9-d2a9da7384db"],
-Cell[44435, 1056, 2133, 34, 57, "Message",ExpressionUUID->"465d3232-1f00-42ad-89f9-f7dbe9649552"],
-Cell[46571, 1092, 1416, 24, 39, "Message",ExpressionUUID->"51fecbe8-1bd4-4ff4-b67b-93b66d40b947"],
-Cell[47990, 1118, 628, 12, 22, "Message",ExpressionUUID->"4e40cd38-d9b9-4ca7-8ccd-de1b917cec88"],
-Cell[48621, 1132, 4228, 87, 182, "Output",ExpressionUUID->"02496185-9d40-4431-9ca9-6085c166d125"]
+Cell[68280, 1569, 1589, 42, 94, "Input",ExpressionUUID->"5ed4b47f-e272-40ab-8c23-58385be3e0c6"],
+Cell[69872, 1613, 3039, 47, 107, "Message",ExpressionUUID->"06e3abf0-2019-4c5e-99b9-d2a9da7384db"],
+Cell[72914, 1662, 2133, 34, 57, "Message",ExpressionUUID->"465d3232-1f00-42ad-89f9-f7dbe9649552"],
+Cell[75050, 1698, 1416, 24, 39, "Message",ExpressionUUID->"51fecbe8-1bd4-4ff4-b67b-93b66d40b947"],
+Cell[76469, 1724, 628, 12, 22, "Message",ExpressionUUID->"4e40cd38-d9b9-4ca7-8ccd-de1b917cec88"],
+Cell[77100, 1738, 4228, 87, 182, "Output",ExpressionUUID->"02496185-9d40-4431-9ca9-6085c166d125"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[52886, 1224, 241, 5, 22, "Input",ExpressionUUID->"eb2501cb-e52c-43ae-bbbf-2c91bfb69b81"],
-Cell[53130, 1231, 267, 7, 26, "Output",ExpressionUUID->"ddfad34c-6774-4ef8-b8bc-c5de09b41700"]
+Cell[81365, 1830, 241, 5, 22, "Input",ExpressionUUID->"eb2501cb-e52c-43ae-bbbf-2c91bfb69b81"],
+Cell[81609, 1837, 267, 7, 29, "Output",ExpressionUUID->"ddfad34c-6774-4ef8-b8bc-c5de09b41700"]
 }, Open  ]],
-Cell[53412, 1241, 4519, 90, 106, "Input",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"],
+Cell[81891, 1847, 4519, 90, 112, "Input",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"],
 Cell[CellGroupData[{
-Cell[57956, 1335, 1242, 35, 61, "Input",ExpressionUUID->"850f45b2-810d-4cc6-a9fa-3b038d25d4c3"],
-Cell[59201, 1372, 14451, 259, 182, "Output",ExpressionUUID->"664ef5af-b4d1-4773-bb48-a1fb5f99d3ea"]
+Cell[86435, 1941, 1242, 35, 42, "Input",ExpressionUUID->"850f45b2-810d-4cc6-a9fa-3b038d25d4c3"],
+Cell[87680, 1978, 14451, 259, 182, "Output",ExpressionUUID->"664ef5af-b4d1-4773-bb48-a1fb5f99d3ea"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[73689, 1636, 326, 7, 22, "Input",ExpressionUUID->"c2ec938b-df20-4457-ac8f-5fb89f93d9f3"],
-Cell[74018, 1645, 188, 4, 39, "Output",ExpressionUUID->"7a8c2bb5-90c4-4aeb-82ef-a923f5a729e3"]
+Cell[102168, 2242, 326, 7, 22, "Input",ExpressionUUID->"c2ec938b-df20-4457-ac8f-5fb89f93d9f3"],
+Cell[102497, 2251, 188, 4, 39, "Output",ExpressionUUID->"7a8c2bb5-90c4-4aeb-82ef-a923f5a729e3"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[74243, 1654, 255, 5, 22, "Input",ExpressionUUID->"f775ff7d-d0b6-4518-90fc-dce2b496637c"],
-Cell[74501, 1661, 194, 3, 39, "Output",ExpressionUUID->"60b8b008-7807-40a6-b3d9-1f2e8b589a73"]
+Cell[102722, 2260, 255, 5, 22, "Input",ExpressionUUID->"f775ff7d-d0b6-4518-90fc-dce2b496637c"],
+Cell[102980, 2267, 194, 3, 39, "Output",ExpressionUUID->"60b8b008-7807-40a6-b3d9-1f2e8b589a73"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[74732, 1669, 306, 7, 22, "Input",ExpressionUUID->"33e05555-1738-48c2-b7aa-e8fd44cecd72"],
-Cell[75041, 1678, 221, 3, 25, "Output",ExpressionUUID->"a53b9d58-d244-4548-8b2d-0153f5f04983"]
+Cell[103211, 2275, 306, 7, 22, "Input",ExpressionUUID->"33e05555-1738-48c2-b7aa-e8fd44cecd72"],
+Cell[103520, 2284, 221, 3, 25, "Output",ExpressionUUID->"a53b9d58-d244-4548-8b2d-0153f5f04983"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[75299, 1686, 4200, 108, 191, "Input",ExpressionUUID->"79242c4a-ef9e-453f-aabd-057c68f68aca"],
-Cell[79502, 1796, 19071, 333, 179, "Output",ExpressionUUID->"9e7d57d6-efa3-474c-ad30-e142da216a92"]
+Cell[103778, 2292, 4200, 108, 136, "Input",ExpressionUUID->"79242c4a-ef9e-453f-aabd-057c68f68aca"],
+Cell[107981, 2402, 19071, 333, 179, "Output",ExpressionUUID->"9e7d57d6-efa3-474c-ad30-e142da216a92"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[98610, 2134, 203, 4, 22, "Input",ExpressionUUID->"e2ebf167-6996-49ef-9ca3-9dd16132c4ea"],
-Cell[98816, 2140, 569, 14, 25, "Output",ExpressionUUID->"c33b6abd-b8d8-415e-b881-93fd6c52f0db"]
+Cell[127089, 2740, 203, 4, 22, "Input",ExpressionUUID->"e2ebf167-6996-49ef-9ca3-9dd16132c4ea"],
+Cell[127295, 2746, 569, 14, 25, "Output",ExpressionUUID->"c33b6abd-b8d8-415e-b881-93fd6c52f0db"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[99422, 2159, 501, 13, 24, "Input",ExpressionUUID->"e153916d-9f1b-43b9-a6c4-f59eefa45d16"],
-Cell[99926, 2174, 222, 4, 25, "Output",ExpressionUUID->"ca5cf147-c698-4d49-a753-1cf32997e5f5"]
+Cell[127901, 2765, 501, 13, 25, "Input",ExpressionUUID->"e153916d-9f1b-43b9-a6c4-f59eefa45d16"],
+Cell[128405, 2780, 222, 4, 25, "Output",ExpressionUUID->"ca5cf147-c698-4d49-a753-1cf32997e5f5"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[100185, 2183, 243, 5, 22, "Input",ExpressionUUID->"c29b0035-e029-4b18-8ef4-ecd12fb49333"],
-Cell[100431, 2190, 1247, 39, 70, "Output",ExpressionUUID->"a77b28a6-eacd-4614-b43a-ed39428597d6"]
+Cell[128664, 2789, 243, 5, 22, "Input",ExpressionUUID->"c29b0035-e029-4b18-8ef4-ecd12fb49333"],
+Cell[128910, 2796, 1247, 39, 70, "Output",ExpressionUUID->"a77b28a6-eacd-4614-b43a-ed39428597d6"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[101715, 2234, 212, 4, 22, "Input",ExpressionUUID->"40438766-386e-4ef0-95c5-bb36288917ef"],
-Cell[101930, 2240, 735, 15, 44, "Output",ExpressionUUID->"462d7199-fbaa-4949-8313-776399b35c4a"]
+Cell[130194, 2840, 212, 4, 22, "Input",ExpressionUUID->"40438766-386e-4ef0-95c5-bb36288917ef"],
+Cell[130409, 2846, 735, 15, 27, "Output",ExpressionUUID->"462d7199-fbaa-4949-8313-776399b35c4a"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[102702, 2260, 4388, 128, 175, "Input",ExpressionUUID->"f81ed9c7-d940-4314-963c-c36ea0215ef3"],
-Cell[107093, 2390, 1199, 20, 60, "Output",ExpressionUUID->"2234af5e-068b-46a3-beaf-99a907ef5184"]
+Cell[131181, 2866, 4385, 127, 145, "Input",ExpressionUUID->"f81ed9c7-d940-4314-963c-c36ea0215ef3"],
+Cell[135569, 2995, 1199, 20, 44, "Output",ExpressionUUID->"2234af5e-068b-46a3-beaf-99a907ef5184"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[108329, 2415, 689, 18, 24, "Input",ExpressionUUID->"922bbf13-0a40-4ffe-b65d-fb54bcae380b"],
-Cell[109021, 2435, 952, 16, 44, "Output",ExpressionUUID->"043e197a-7692-4187-83b6-ce5829ad4a5d"]
+Cell[136805, 3020, 689, 18, 24, "Input",ExpressionUUID->"922bbf13-0a40-4ffe-b65d-fb54bcae380b"],
+Cell[137497, 3040, 952, 16, 27, "Output",ExpressionUUID->"043e197a-7692-4187-83b6-ce5829ad4a5d"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[110010, 2456, 783, 19, 24, "Input",ExpressionUUID->"649e9e6d-3d2c-4639-9c47-2ea1ddcf4b02"],
-Cell[110796, 2477, 874, 15, 44, "Output",ExpressionUUID->"2bf68a8e-7713-4e0f-8e35-9b2bda25554f"]
+Cell[138486, 3061, 783, 19, 24, "Input",ExpressionUUID->"649e9e6d-3d2c-4639-9c47-2ea1ddcf4b02"],
+Cell[139272, 3082, 874, 15, 27, "Output",ExpressionUUID->"2bf68a8e-7713-4e0f-8e35-9b2bda25554f"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[111707, 2497, 756, 18, 24, "Input",ExpressionUUID->"65da12ab-b919-4aad-899a-77b90d54ba33"],
-Cell[112466, 2517, 783, 15, 27, "Output",ExpressionUUID->"bf118231-ac60-4b08-8d5b-c2f02ee72a5b"]
+Cell[140183, 3102, 756, 18, 24, "Input",ExpressionUUID->"65da12ab-b919-4aad-899a-77b90d54ba33"],
+Cell[140942, 3122, 783, 15, 27, "Output",ExpressionUUID->"bf118231-ac60-4b08-8d5b-c2f02ee72a5b"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[113286, 2537, 797, 19, 24, "Input",ExpressionUUID->"2476ffb9-8112-4899-a159-f51883b8e216"],
-Cell[114086, 2558, 687, 14, 27, "Output",ExpressionUUID->"4472fe7c-a13d-48f2-8ce9-7c86fc80c436"]
+Cell[141762, 3142, 797, 19, 24, "Input",ExpressionUUID->"2476ffb9-8112-4899-a159-f51883b8e216"],
+Cell[142562, 3163, 687, 14, 27, "Output",ExpressionUUID->"4472fe7c-a13d-48f2-8ce9-7c86fc80c436"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[114810, 2577, 819, 19, 24, "Input",ExpressionUUID->"e595b072-4f65-493a-afbb-d0fd95bb7c1c"],
-Cell[115632, 2598, 1078, 22, 60, "Output",ExpressionUUID->"fccdbef1-244e-44c6-b3c4-5001cf802c3b"]
+Cell[143286, 3182, 819, 19, 24, "Input",ExpressionUUID->"e595b072-4f65-493a-afbb-d0fd95bb7c1c"],
+Cell[144108, 3203, 1078, 22, 44, "Output",ExpressionUUID->"fccdbef1-244e-44c6-b3c4-5001cf802c3b"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[116747, 2625, 859, 20, 24, "Input",ExpressionUUID->"428ba532-a5a7-47a0-834d-51e3a093d96a"],
-Cell[117609, 2647, 963, 19, 60, "Output",ExpressionUUID->"a74c17d3-52e9-4bc4-8151-87ccfed07273"]
+Cell[145223, 3230, 859, 20, 24, "Input",ExpressionUUID->"428ba532-a5a7-47a0-834d-51e3a093d96a"],
+Cell[146085, 3252, 963, 19, 44, "Output",ExpressionUUID->"a74c17d3-52e9-4bc4-8151-87ccfed07273"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[118609, 2671, 891, 22, 41, "Input",ExpressionUUID->"11720fd4-85fa-4891-a6d6-e316b2c63a60"],
-Cell[119503, 2695, 559, 9, 25, "Output",ExpressionUUID->"bfc7450c-8753-4ad4-a680-b80674ac5a25"]
+Cell[147085, 3276, 891, 22, 24, "Input",ExpressionUUID->"11720fd4-85fa-4891-a6d6-e316b2c63a60"],
+Cell[147979, 3300, 559, 9, 25, "Output",ExpressionUUID->"bfc7450c-8753-4ad4-a680-b80674ac5a25"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[120099, 2709, 937, 22, 41, "Input",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"],
-Cell[121039, 2733, 535, 9, 25, "Output",ExpressionUUID->"86d97ab8-bfe5-478d-a4ba-5bc364b4d54e"]
+Cell[148575, 3314, 937, 22, 24, "Input",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"],
+Cell[149515, 3338, 535, 9, 25, "Output",ExpressionUUID->"86d97ab8-bfe5-478d-a4ba-5bc364b4d54e"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[121611, 2747, 1006, 24, 41, "Input",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"],
-Cell[122620, 2773, 425, 7, 25, "Output",ExpressionUUID->"ac5b89c4-24ae-436b-b19b-5a19cf92f196"]
+Cell[150087, 3352, 1006, 24, 24, "Input",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"],
+Cell[151096, 3378, 425, 7, 25, "Output",ExpressionUUID->"ac5b89c4-24ae-436b-b19b-5a19cf92f196"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[123082, 2785, 1052, 25, 41, "Input",ExpressionUUID->"3f815a4c-10cf-489f-9fc2-62e52069c4c0"],
-Cell[124137, 2812, 446, 8, 25, "Output",ExpressionUUID->"0058d268-597e-4f7a-a395-c0fdf2e2f0fc"]
+Cell[151558, 3390, 1052, 25, 24, "Input",ExpressionUUID->"3f815a4c-10cf-489f-9fc2-62e52069c4c0"],
+Cell[152613, 3417, 446, 8, 25, "Output",ExpressionUUID->"0058d268-597e-4f7a-a395-c0fdf2e2f0fc"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[124620, 2825, 850, 18, 41, "Input",ExpressionUUID->"cd97b893-1f61-415c-8763-743df3cfe10e"],
-Cell[125473, 2845, 524, 9, 25, "Output",ExpressionUUID->"9bbd03d3-a0ba-4157-8a3b-5f539ce94bce"]
+Cell[153096, 3430, 850, 18, 24, "Input",ExpressionUUID->"cd97b893-1f61-415c-8763-743df3cfe10e"],
+Cell[153949, 3450, 524, 9, 25, "Output",ExpressionUUID->"9bbd03d3-a0ba-4157-8a3b-5f539ce94bce"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[126034, 2859, 953, 20, 41, "Input",ExpressionUUID->"7cc8abed-034f-48f9-a04c-7a7cd336cffc"],
-Cell[126990, 2881, 311, 5, 25, "Output",ExpressionUUID->"07f77345-76ab-4e5d-a2e6-e24bb55feac9"]
+Cell[154510, 3464, 953, 20, 24, "Input",ExpressionUUID->"7cc8abed-034f-48f9-a04c-7a7cd336cffc"],
+Cell[155466, 3486, 311, 5, 25, "Output",ExpressionUUID->"07f77345-76ab-4e5d-a2e6-e24bb55feac9"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[127338, 2891, 847, 18, 41, "Input",ExpressionUUID->"ed90fc79-b0f9-464f-acb1-e5aa0d9691f1"],
-Cell[128188, 2911, 308, 5, 25, "Output",ExpressionUUID->"4514c09f-2394-460a-8977-2ada54b3b9d0"]
+Cell[155814, 3496, 847, 18, 24, "Input",ExpressionUUID->"ed90fc79-b0f9-464f-acb1-e5aa0d9691f1"],
+Cell[156664, 3516, 308, 5, 25, "Output",ExpressionUUID->"4514c09f-2394-460a-8977-2ada54b3b9d0"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[128533, 2921, 996, 20, 41, "Input",ExpressionUUID->"6dd628a1-23df-42ea-b634-4bef16413391"],
-Cell[129532, 2943, 549, 9, 25, "Output",ExpressionUUID->"80acb19e-2d21-40df-ae02-eb1e1c8d4e00"]
+Cell[157009, 3526, 996, 20, 24, "Input",ExpressionUUID->"6dd628a1-23df-42ea-b634-4bef16413391"],
+Cell[158008, 3548, 549, 9, 25, "Output",ExpressionUUID->"80acb19e-2d21-40df-ae02-eb1e1c8d4e00"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[130118, 2957, 228, 5, 22, "Input",ExpressionUUID->"feb08355-9ad1-4257-9f97-e394177d7e32"],
-Cell[130349, 2964, 274, 8, 25, "Output",ExpressionUUID->"87e29f54-9d68-4261-96d4-95d24dcdc36a"]
+Cell[158594, 3562, 228, 5, 22, "Input",ExpressionUUID->"feb08355-9ad1-4257-9f97-e394177d7e32"],
+Cell[158825, 3569, 274, 8, 28, "Output",ExpressionUUID->"87e29f54-9d68-4261-96d4-95d24dcdc36a"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[130660, 2977, 1542, 27, 55, "Input",ExpressionUUID->"e61ed118-a102-4290-8440-cba17b87145b"],
-Cell[132205, 3006, 12321, 270, 180, "Output",ExpressionUUID->"2e45389f-59c7-4eaf-9b3a-270214fa013e"]
+Cell[159136, 3582, 1542, 27, 55, "Input",ExpressionUUID->"e61ed118-a102-4290-8440-cba17b87145b"],
+Cell[160681, 3611, 12321, 270, 180, "Output",ExpressionUUID->"2e45389f-59c7-4eaf-9b3a-270214fa013e"]
 }, Open  ]],
-Cell[144541, 3279, 175, 3, 22, "Input",ExpressionUUID->"0f87aa05-2cc9-472a-ab27-39ee15777442"],
-Cell[144719, 3284, 356, 7, 24, "Input",ExpressionUUID->"627c17e0-e2d8-4347-8fe9-812183a42941"],
+Cell[173017, 3884, 175, 3, 22, "Input",ExpressionUUID->"0f87aa05-2cc9-472a-ab27-39ee15777442"],
+Cell[173195, 3889, 356, 7, 24, "Input",ExpressionUUID->"627c17e0-e2d8-4347-8fe9-812183a42941"],
 Cell[CellGroupData[{
-Cell[145100, 3295, 176, 2, 22, "Input",ExpressionUUID->"f32c32be-7fcb-4660-bf43-cbc119acda96"],
-Cell[145279, 3299, 2097, 65, 77, "Output",ExpressionUUID->"01b48fb7-d8c9-4012-92f6-488cf7e7087c"]
+Cell[173576, 3900, 176, 2, 22, "Input",ExpressionUUID->"f32c32be-7fcb-4660-bf43-cbc119acda96"],
+Cell[173755, 3904, 2097, 65, 47, "Output",ExpressionUUID->"01b48fb7-d8c9-4012-92f6-488cf7e7087c"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[147413, 3369, 860, 24, 24, "Input",ExpressionUUID->"bfa6a31f-5eb9-4063-b798-e45ab1e3b53a"],
-Cell[148276, 3395, 1944, 57, 77, "Output",ExpressionUUID->"0ca79efb-1867-4b1f-96fc-4a691d54b72e"]
+Cell[175889, 3974, 860, 24, 24, "Input",ExpressionUUID->"bfa6a31f-5eb9-4063-b798-e45ab1e3b53a"],
+Cell[176752, 4000, 1944, 57, 60, "Output",ExpressionUUID->"0ca79efb-1867-4b1f-96fc-4a691d54b72e"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[150257, 3457, 2622, 77, 93, "Input",ExpressionUUID->"242aacdf-e4c7-423c-a26a-12188ba2476e"],
-Cell[152882, 3536, 21838, 439, 180, "Output",ExpressionUUID->"073d831e-11a6-4203-90ce-0df429c1a3f0"]
+Cell[178733, 4062, 2622, 77, 93, "Input",ExpressionUUID->"242aacdf-e4c7-423c-a26a-12188ba2476e"],
+Cell[181358, 4141, 21835, 439, 180, "Output",ExpressionUUID->"073d831e-11a6-4203-90ce-0df429c1a3f0"]
 }, Open  ]],
-Cell[174735, 3978, 725, 15, 24, "Input",ExpressionUUID->"80c6c675-eade-40e1-8d0f-13a6578b30ff"],
-Cell[175463, 3995, 764, 21, 22, "Input",ExpressionUUID->"d8847f2e-21fe-4fb7-84ae-676f83acdf5a"],
+Cell[203208, 4583, 725, 15, 24, "Input",ExpressionUUID->"80c6c675-eade-40e1-8d0f-13a6578b30ff"],
+Cell[203936, 4600, 764, 21, 25, "Input",ExpressionUUID->"d8847f2e-21fe-4fb7-84ae-676f83acdf5a"],
 Cell[CellGroupData[{
-Cell[176252, 4020, 679, 17, 40, "Input",ExpressionUUID->"15d60f60-2f87-40da-a2c6-66d640111d75"],
-Cell[176934, 4039, 1298, 32, 44, "Output",ExpressionUUID->"6f1d902a-0431-4a99-adc2-97eb3c423317"]
+Cell[204725, 4625, 679, 17, 40, "Input",ExpressionUUID->"15d60f60-2f87-40da-a2c6-66d640111d75"],
+Cell[205407, 4644, 1298, 32, 48, "Output",ExpressionUUID->"6f1d902a-0431-4a99-adc2-97eb3c423317"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[178269, 4076, 736, 18, 57, "Input",ExpressionUUID->"bec4c929-c1a6-4fd0-be18-caf3643ba3a4"],
-Cell[179008, 4096, 14613, 314, 179, "Output",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"]
+Cell[206742, 4681, 736, 18, 57, "Input",ExpressionUUID->"bec4c929-c1a6-4fd0-be18-caf3643ba3a4"],
+Cell[207481, 4701, 14613, 314, 179, "Output",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"]
 }, Open  ]]
 }
 ]