path: root/caselle_compare.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
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\>\"", 
  "]"}]], "Input",
 CellChangeTimes->{{3.817548726786456*^9, 3.817548838429791*^9}, {
   3.817579586526174*^9, 3.817579588547625*^9}, {3.8176251109891653`*^9, 
   3.817625112168749*^9}, {3.8176254615736647`*^9, 3.817625462650483*^9}, 
   3.827832304560932*^9, {3.8278486734515533`*^9, 3.827848673995721*^9}, {
   3.8278488730224733`*^9, 3.827848876357965*^9}, {3.827916449928692*^9, 
   3.827916450999913*^9}},
 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[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Theta]0Cas", "=", 
   SqrtBox["1.16951"]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hCas", "[", "\[Theta]_", "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", 
     FractionBox[
      SuperscriptBox["\[Theta]", "2"], 
      SuperscriptBox["\[Theta]0Cas", "2"]]}], ")"}], "\[Theta]", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"0.222389", " ", 
      SuperscriptBox["\[Theta]", "2"]}], "-", 
     RowBox[{"0.043547", " ", 
      SuperscriptBox["\[Theta]", "4"]}], "-", 
     RowBox[{"0.014809", " ", 
      SuperscriptBox["\[Theta]", "6"]}], "-", 
     RowBox[{"0.007168", " ", 
      SuperscriptBox["\[Theta]", "8"]}]}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"h0", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"a", " ", "b", " ", "\[Rho]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"a", "\[Rule]", 
       FractionBox[
        SuperscriptBox["c2", "2"], "c4"]}], ",", 
      RowBox[{"b", "\[Rule]", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"-", "c4"}], 
          SuperscriptBox["c2", "3"]], ")"}], 
        RowBox[{"1", "/", "2"}]]}], ",", 
      RowBox[{"\[Rho]", "\[Rule]", "2.00881"}]}], "}"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"c2", "\[Rule]", 
      RowBox[{
       RowBox[{"Ghs", "[", 
        RowBox[{"[", "3", "]"}], "]"}], 
       RowBox[{"2", "!"}]}]}], ",", 
     RowBox[{"c4", "\[Rule]", 
      RowBox[{
       RowBox[{
        RowBox[{"Ghs", "[", 
         RowBox[{"[", "5", "]"}], "]"}], "[", "\"\<Value\>\"", "]"}], 
       RowBox[{"4", "!"}]}]}]}], "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"m0", "=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{"Ghs", "[", 
     RowBox[{"[", "3", "]"}], "]"}]}], 
   RowBox[{"2", "!"}], " ", "h0"}]}]}], "Input",
 CellChangeTimes->{{3.8321454371387777`*^9, 3.832145559020133*^9}, 
   3.832146444152248*^9, {3.832146620327344*^9, 3.832146620479251*^9}, {
   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}, {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, 
   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.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", "=", "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]0Cas", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dMs", "=", 
   RowBox[{
    RowBox[{"m0", " ", 
     RowBox[{"NestList", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"#", ",", "\[Theta]"}], "]"}], "&"}], ",", 
       FractionBox["\[Theta]", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["\[Theta]", "2"], "-", "1"}], ")"}], 
         RowBox[{"1", "/", "8"}]]], ",", "totCas"}], "]"}]}], "/.", 
    RowBox[{"\[Theta]", "->", "\[Theta]0Cas"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 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.876209028372431*^9, 3.876209031292045*^9}},
 CellLabel->
  "In[188]:=",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1.3595232308079763`"}], ",", 
   RowBox[{"-", "0.04655549169678349`"}], ",", "0.03237211997439275`", ",", 
   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, 
   3.837072865049255*^9, 3.84380209279955*^9, 3.843802127647296*^9, {
   3.8438022397282753`*^9, 3.843802269116067*^9}, 3.8438023757788677`*^9, {
   3.84380243891853*^9, 3.843802516429851*^9}, 3.8438026852881813`*^9, 
   3.843802807050653*^9, 3.843802949596843*^9, 3.843803004201252*^9, 
   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.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[198]=",ExpressionUUID->"72455824-b956-48f2-805c-31dcb93fc169"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"totCas", "=", "13"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ds", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"invDerivativeList", "[", 
      RowBox[{"totCas", "+", "1"}], "]"}], "[", 
     RowBox[{"\[Theta]", "\[Function]", 
      FractionBox[
       RowBox[{"h0", " ", 
        RowBox[{"hCas", "[", "\[Theta]", "]"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", 
          RowBox[{"t", "[", "\[Theta]", "]"}]}], ")"}], 
        RowBox[{"\[CapitalDelta]", "[", "2", "]"}]]]}], "]"}], "[", "0", 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dMs", "=", 
   RowBox[{
    RowBox[{"m0", " ", 
     RowBox[{"NestList", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"#", ",", "\[Theta]"}], "]"}], "&"}], ",", 
       FractionBox["\[Theta]", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["\[Theta]", "2"]}], ")"}], 
         RowBox[{"1", "/", "8"}]]], ",", "totCas"}], "]"}]}], "/.", 
    RowBox[{"\[Theta]", "->", "0"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"datCasH", "=", 
  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.843803094421678*^9, 3.843803146878536*^9}, {3.843806505415429*^9, 
   3.8438065212344007`*^9}, {3.843811444237966*^9, 3.843811444581764*^9}, {
   3.8438114746875067`*^9, 3.843811475623706*^9}, {3.843812978160186*^9, 
   3.843812978303809*^9}, {3.843813154956399*^9, 3.843813155905347*^9}},
 CellLabel->
  "In[364]:=",ExpressionUUID->"34fe8bc4-abfb-4504-a7f1-045cd2a55ee6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.`", ",", 
   RowBox[{"-", "1.8452280782328385`"}], ",", "0.`", ",", "8.33370069297413`",
    ",", "0.`", ",", 
   RowBox[{"-", "95.16881652232634`"}], ",", "0.`", ",", 
   "1457.5474391179216`", ",", "0.`", ",", 
   RowBox[{"-", "25883.955538425816`"}], ",", "0.`", ",", 
   "503591.1494797519`", ",", "0.`", ",", 
   RowBox[{"-", "1.0451949132136984`*^7"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.843806513941721*^9, 3.843806524411374*^9}, 
   3.84381144996428*^9, {3.8438131466573687`*^9, 3.8438131757670813`*^9}, 
   3.844157557710391*^9},
 CellLabel->
  "Out[367]=",ExpressionUUID->"e9b15296-174c-4b92-bc6b-e3136dbafca2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"RealAbs", "[", "\[Eta]", "]"}], "2"], ",", "\[Eta]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8439843406716013`*^9, 3.843984356597925*^9}},
 CellLabel->
  "In[273]:=",ExpressionUUID->"2e8e8755-9de4-46f0-8d34-70439b2b441b"],

Cell[BoxData[
 RowBox[{"2", " ", "\[Eta]"}]], "Output",
 CellChangeTimes->{{3.843984346778022*^9, 3.8439843571136303`*^9}},
 CellLabel->
  "Out[273]=",ExpressionUUID->"f78d77d4-a743-42fe-aad7-f383120ebe66"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"RealAbs", "[", "\[Eta]", "]"}], "2"], 
    RowBox[{"\[ScriptCapitalF]pm", "[", 
     SuperscriptBox[
      RowBox[{"RealAbs", "[", "\[Eta]", "]"}], 
      RowBox[{"-", 
       RowBox[{"\[CapitalDelta]", "[", "]"}]}]], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Eta]", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.843984294023637*^9, 3.8439843055548697`*^9}},
 CellLabel->
  "In[271]:=",ExpressionUUID->"e826229b-9150-4894-b288-5f834e4105f5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "\[Eta]", " ", 
   RowBox[{"\[ScriptCapitalF]pm", "[", 
    FractionBox["1", 
     SuperscriptBox[
      RowBox[{"RealAbs", "[", "\[Eta]", "]"}], 
      RowBox[{"15", "/", "8"}]]], "]"}]}], "-", 
  FractionBox[
   RowBox[{"15", " ", "\[Eta]", " ", 
    RowBox[{
     SuperscriptBox["\[ScriptCapitalF]pm", "\[Prime]",
      MultilineFunction->None], "[", 
     FractionBox["1", 
      SuperscriptBox[
       RowBox[{"RealAbs", "[", "\[Eta]", "]"}], 
       RowBox[{"15", "/", "8"}]]], "]"}]}], 
   RowBox[{"8", " ", 
    SuperscriptBox[
     RowBox[{"RealAbs", "[", "\[Eta]", "]"}], 
     RowBox[{"15", "/", "8"}]]}]]}]], "Output",
 CellChangeTimes->{3.84397940925786*^9, 3.843984306115745*^9},
 CellLabel->
  "Out[271]=",ExpressionUUID->"ba4067d3-83a2-4fb1-b40d-dda17275ca39"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"test", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         FractionBox["1", 
          RowBox[{"#", "!"}]], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            SuperscriptBox["\[Eta]", "2"], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[ScriptCapitalF]pm", "[", 
               SuperscriptBox["\[Eta]", 
                RowBox[{"-", 
                 RowBox[{"\[CapitalDelta]", "[", "]"}]}]], "]"}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{" ", "1"}], 
                RowBox[{"8", "\[Pi]"}]], 
               RowBox[{"Log", "[", 
                SuperscriptBox["\[Eta]", "2"], "]"}]}]}], ")"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"\[Eta]", ",", "#"}], "}"}]}], "]"}]}], "/.", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Derivative", "[", "n_", "]"}], "[", "\[ScriptCapitalF]pm",
            "]"}], "[", "_", "]"}], "\[RuleDelayed]", 
         RowBox[{"-", 
          RowBox[{"datCasM", "[", 
           RowBox[{"[", "n", "]"}], "]"}]}]}]}], "/.", 
       RowBox[{
        RowBox[{"\[ScriptCapitalF]pm", "[", "_", "]"}], "\[RuleDelayed]", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[Eta]", 
           RowBox[{"-", "2"}]], 
          RowBox[{"\[ScriptCapitalF]0", "[", "\[Eta]", "]"}]}], "-", 
         RowBox[{
          FractionBox["1", 
           RowBox[{"8", "\[Pi]"}]], 
          RowBox[{"Log", "[", 
           SuperscriptBox["\[Eta]", "2"], "]"}]}]}]}]}], "/.", 
      RowBox[{"\[Eta]", "\[Rule]", 
       RowBox[{
        RowBox[{"t", "[", "\[Theta]", "]"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"h0", " ", 
           RowBox[{"hCas", "[", "\[Theta]", "]"}]}], ")"}], 
         RowBox[{
          RowBox[{"-", "1"}], "/", 
          RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}]}]}], "&"}], "@", "1"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.8441355650573378`*^9, 3.844135612822277*^9}, {
   3.8441356432559423`*^9, 3.844135644806315*^9}, {3.844135769024576*^9, 
   3.8441358135052*^9}, 3.8441359564176683`*^9, {3.844136010585967*^9, 
   3.844136037030072*^9}, {3.844136092718753*^9, 3.844136097681836*^9}, 
   3.8441362459012527`*^9},
 CellLabel->"In[23]:=",ExpressionUUID->"aac833ad-2b24-4138-bd6f-72fced45c28b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{"test", ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"Assumptions", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[Theta]", ">", "1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8441360394005013`*^9, 3.844136069704311*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"192d6104-6702-44ac-becd-0eb638099ac5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   FractionBox[
    RowBox[{"0.1784522279293546`", "\[VeryThinSpace]", "+", 
     RowBox[{"0.14899162286841253`", " ", 
      RowBox[{"\[ScriptCapitalF]0", "[", "0", "]"}]}]}], 
    RowBox[{"\[Theta]", "-", "1"}]], "-", 
   RowBox[{"1.0179704579082998`", " ", 
    RowBox[{"(", 
     RowBox[{"0.8836710382865575`", "\[VeryThinSpace]", "+", 
      RowBox[{"1.`", " ", 
       RowBox[{"\[ScriptCapitalF]0", "[", "0", "]"}]}], "-", 
      RowBox[{"1.964693557128907`", " ", 
       RowBox[{
        SuperscriptBox["\[ScriptCapitalF]0", "\[Prime]",
         MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", 
      RowBox[{"\[Theta]", "-", "1"}], "]"}], "1"],
    SeriesData[Schofield`\[Theta], 1, {}, -1, 1, 1],
    Editable->False]}],
  SeriesData[
  Schofield`\[Theta], 1, {
   0.1784522279293546 + 
    0.14899162286841253` $CellContext`\[ScriptCapitalF]0[
      0], (-1.0179704579082998`) (0.8836710382865575 + 
     1. $CellContext`\[ScriptCapitalF]0[0] - 1.964693557128907 
     Derivative[1][$CellContext`\[ScriptCapitalF]0][0])}, -1, 1, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.8441360705377207`*^9, 3.844136100604207*^9, 
  3.844136247845188*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"d7b8e166-951c-43b4-b661-6bb65d35f1c8"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"test", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         FractionBox["1", 
          RowBox[{"#", "!"}]], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            SuperscriptBox["\[Eta]", "2"], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[ScriptCapitalF]pm", "[", 
               SuperscriptBox["\[Eta]", 
                RowBox[{"-", 
                 RowBox[{"\[CapitalDelta]", "[", "]"}]}]], "]"}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{" ", "1"}], 
                RowBox[{"8", "\[Pi]"}]], 
               RowBox[{"Log", "[", 
                SuperscriptBox["\[Eta]", "2"], "]"}]}]}], ")"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"\[Eta]", ",", "#"}], "}"}]}], "]"}]}], "/.", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Derivative", "[", "n_", "]"}], "[", "\[ScriptCapitalF]pm",
            "]"}], "[", "_", "]"}], "\[RuleDelayed]", 
         RowBox[{"-", 
          RowBox[{"datCasM", "[", 
           RowBox[{"[", "n", "]"}], "]"}]}]}]}], "/.", 
       RowBox[{
        RowBox[{"\[ScriptCapitalF]pm", "[", "_", "]"}], "\[RuleDelayed]", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[Eta]", 
           RowBox[{"-", "2"}]], 
          RowBox[{"\[CapitalPhi]s", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "-", 
         RowBox[{
          FractionBox["1", 
           RowBox[{"8", "\[Pi]"}]], 
          RowBox[{"Log", "[", 
           SuperscriptBox["\[Eta]", "2"], "]"}]}]}]}]}], "/.", 
      RowBox[{"\[Eta]", "\[Rule]", 
       RowBox[{
        RowBox[{"t", "[", "\[Theta]", "]"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"h0", " ", 
           RowBox[{"hCas", "[", "\[Theta]", "]"}]}], ")"}], 
         RowBox[{
          RowBox[{"-", "1"}], "/", 
          RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}]}]}], "&"}], "/@", 
    RowBox[{"Range", "[", 
     RowBox[{"0", ",", "4"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.843977448947337*^9, 3.8439774739864187`*^9}, {
   3.8439777381239777`*^9, 3.8439778097178307`*^9}, {3.843978498048068*^9, 
   3.843978523458262*^9}, {3.84397859535165*^9, 3.843978684203545*^9}, {
   3.843978737191361*^9, 3.843978757182068*^9}, {3.8439788093504868`*^9, 
   3.8439788095681953`*^9}, {3.84397954926616*^9, 3.8439795926753397`*^9}, {
   3.843979628249529*^9, 3.843979643819708*^9}, {3.843979814938733*^9, 
   3.843979823035452*^9}, 3.8439806286149*^9, {3.843980798411592*^9, 
   3.843980815036498*^9}, {3.843980884595045*^9, 3.8439808875781116`*^9}, 
   3.8439810756431217`*^9, {3.84398119363118*^9, 3.8439811939537487`*^9}, {
   3.8439812658936872`*^9, 3.843981271875216*^9}, {3.843981387122608*^9, 
   3.843981389172595*^9}, {3.843981436627571*^9, 3.843981436926566*^9}, {
   3.843981507023527*^9, 3.8439815291349688`*^9}, 3.8439815995044127`*^9, {
   3.843981950716568*^9, 3.843982049599683*^9}, {3.8439821906251917`*^9, 
   3.843982222191123*^9}, {3.843982292163083*^9, 3.843982302907435*^9}, {
   3.843982496265829*^9, 3.843982528647358*^9}, {3.843982612879884*^9, 
   3.843982629943433*^9}, {3.8439827941959133`*^9, 3.843982805725062*^9}, {
   3.843983326841724*^9, 3.843983357064176*^9}, {3.8439834908250027`*^9, 
   3.843983496126409*^9}, {3.8439839329197397`*^9, 3.843983969766494*^9}, {
   3.843984016537162*^9, 3.843984021863111*^9}, {3.84398438133895*^9, 
   3.843984413633376*^9}, {3.843984473521657*^9, 3.843984499280164*^9}, {
   3.843984548359413*^9, 3.843984549623651*^9}, {3.843984874078813*^9, 
   3.843984910492568*^9}, {3.8439849715825977`*^9, 3.843985024932303*^9}, {
   3.843985059638566*^9, 3.843985092819029*^9}, {3.843985319652463*^9, 
   3.843985328984827*^9}, {3.843985387506716*^9, 3.8439853875864573`*^9}, {
   3.843985445273638*^9, 3.843985456592615*^9}, {3.843985612937416*^9, 
   3.8439856448203573`*^9}, 3.8439858717235117`*^9, {3.843985922965932*^9, 
   3.843985940335438*^9}, {3.8439862065668163`*^9, 3.843986227475103*^9}, {
   3.843986356235326*^9, 3.843986381216381*^9}, {3.8439864483810883`*^9, 
   3.843986461518548*^9}, {3.843986765923089*^9, 3.843986766213182*^9}, {
   3.843987655818223*^9, 3.843987695252995*^9}, {3.843987746798422*^9, 
   3.843987778408546*^9}, {3.843987819513362*^9, 3.8439878199542313`*^9}, {
   3.84398789288629*^9, 3.843987928881118*^9}, {3.843987983477302*^9, 
   3.8439879871749887`*^9}, {3.843988043407119*^9, 3.8439880467909946`*^9}, {
   3.843988162941238*^9, 3.84398817654088*^9}, {3.843988265626775*^9, 
   3.8439882687390203`*^9}, {3.843988309039686*^9, 3.8439883215717*^9}, 
   3.8439885079043922`*^9, {3.8439893658380213`*^9, 3.8439893666595*^9}, {
   3.844002142667212*^9, 3.844002146939465*^9}},
 CellLabel->
  "In[541]:=",ExpressionUUID->"1800b59b-60e8-4839-8aff-d82ae8bbba1a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"test3", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"SeriesCoefficient", "[", 
     RowBox[{"#", ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", "1", ",", "0"}], "}"}], ",", 
      RowBox[{"Assumptions", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\[Theta]", ">", "1"}], "}"}]}]}], "]"}], "&"}], "@", 
   "test"}]}]], "Input",
 CellChangeTimes->{{3.843985185323773*^9, 3.843985191540288*^9}, {
   3.8439853417991962`*^9, 3.843985399410922*^9}, {3.8439854859104147`*^9, 
   3.843985486109192*^9}, 3.843986044837152*^9, {3.843986259456277*^9, 
   3.843986260018146*^9}, 3.843987888756095*^9, {3.843988234259981*^9, 
   3.843988236906592*^9}, {3.843988327216732*^9, 3.843988362393538*^9}, 
   3.843988489524564*^9, {3.844136044025272*^9, 3.844136047289119*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"04521673-5a45-41f8-ba39-1383a2daafcd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1.0179704579082998`"}], " ", 
  RowBox[{"(", 
   RowBox[{"0.8836710382865575`", "\[VeryThinSpace]", "+", 
    RowBox[{"1.`", " ", 
     RowBox[{"\[ScriptCapitalF]0", "[", "0", "]"}]}], "-", 
    RowBox[{"1.964693557128907`", " ", 
     RowBox[{
      SuperscriptBox["\[ScriptCapitalF]0", "\[Prime]",
       MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.844136047741577*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"4344f182-cac0-40ef-9167-1216ed9218e0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{"Abs", "@", 
   RowBox[{"{", 
    RowBox[{"\[CapitalPhi]s", ",", "test3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.843988413412496*^9, 3.843988447309177*^9}},
 CellLabel->
  "In[543]:=",ExpressionUUID->"340432fd-b01b-4746-840a-e312eec4ade0"],

Cell[BoxData[
 GraphicsBox[{{{
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{{}, {
         LineBox[{{3., -2.199250858729474}, {3., -2.1992508587114377`}}], 
         LineBox[{{3., -2.1992508587114377`}, {3., -2.199250858693401}}]}},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{{}, {
         LineBox[{{4., -4.108835370274531}, {4., -4.108835369665774}}], 
         LineBox[{{4., -4.108835369665774}, {4., -4.108835369057016}}]}},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{{}, {
         LineBox[{{5., -8.23957016697712}, {5., -8.239569788186014}}], 
         LineBox[{{5., -8.239569788186014}, {5., -8.23956940939505}}]}},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{{}, {
         LineBox[{{6., -7.57318515764723}, {6., -7.573184963114589}}], 
         LineBox[{{6., -7.573184963114589}, {6., -7.573184768581987}}]}},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{{}, {
         LineBox[{{7., -8.473827235511466}, {7., -8.473822447718424}}], 
         LineBox[{{7., -8.473822447718424}, {7., -8.473817659948304}}]}},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{{}, {
         LineBox[{{8., -10.012900713523315`}, {8., -10.012878401308493`}}], 
         LineBox[{{8., -10.012878401308493`}, {8., -10.012856089591494`}}]}},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{{}, {
         LineBox[{{9., -14.959957382976183`}, {9., -14.9568216011655}}], 
         LineBox[{{9., -14.9568216011655}, {9., -14.953695621752207`}}]}},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{{}, {
         LineBox[{{10., -12.356895535264757`}, {10., -12.354572653848617`}}], 
         LineBox[{{10., -12.354572653848617`}, {10., -12.352255155708255`}}]}},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{{}, {
         LineBox[{{11., -13.13241371325783}, {11., -13.127375919227873`}}], 
         LineBox[{{11., -13.127375919227873`}, {11., -13.122363377404328`}}]}},
       Antialiasing->False]}}, {
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{
        GeometricTransformationBox[
         LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
        GeometricTransformationBox[
         LineBox[{{{3., -2.199250858693401}, 
            Offset[{3, 0}, {3., -2.199250858693401}]}, {{
            3., -2.199250858693401}, 
            Offset[{-3, 0}, {3., -2.199250858693401}]}, {{
            3., -2.199250858729474}, 
            Offset[{3, 0}, {3., -2.199250858729474}]}, {{
            3., -2.199250858729474}, 
            Offset[{-3, 0}, {3., -2.199250858729474}]}}], {{{1., 0.}, {0., 
          1.}}, {0., 0.}}]},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{
        GeometricTransformationBox[
         LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
        GeometricTransformationBox[
         LineBox[{{{4., -4.108835369057016}, 
            Offset[{3, 0}, {4., -4.108835369057016}]}, {{
            4., -4.108835369057016}, 
            Offset[{-3, 0}, {4., -4.108835369057016}]}, {{
            4., -4.108835370274531}, 
            Offset[{3, 0}, {4., -4.108835370274531}]}, {{
            4., -4.108835370274531}, 
            Offset[{-3, 0}, {4., -4.108835370274531}]}}], {{{1., 0.}, {0., 
          1.}}, {0., 0.}}]},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{
        GeometricTransformationBox[
         LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
        GeometricTransformationBox[
         LineBox[{{{5., -8.23956940939505}, 
            Offset[{3, 0}, {5., -8.23956940939505}]}, {{
            5., -8.23956940939505}, 
            Offset[{-3, 0}, {5., -8.23956940939505}]}, {{
            5., -8.23957016697712}, 
            Offset[{3, 0}, {5., -8.23957016697712}]}, {{
            5., -8.23957016697712}, 
            Offset[{-3, 0}, {5., -8.23957016697712}]}}], {{{1., 0.}, {0., 
          1.}}, {0., 0.}}]},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{
        GeometricTransformationBox[
         LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
        GeometricTransformationBox[
         LineBox[{{{6., -7.573184768581987}, 
            Offset[{3, 0}, {6., -7.573184768581987}]}, {{
            6., -7.573184768581987}, 
            Offset[{-3, 0}, {6., -7.573184768581987}]}, {{
            6., -7.57318515764723}, 
            Offset[{3, 0}, {6., -7.57318515764723}]}, {{
            6., -7.57318515764723}, 
            Offset[{-3, 0}, {6., -7.57318515764723}]}}], {{{1., 0.}, {0., 
          1.}}, {0., 0.}}]},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{
        GeometricTransformationBox[
         LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
        GeometricTransformationBox[
         LineBox[{{{7., -8.473817659948304}, 
            Offset[{3, 0}, {7., -8.473817659948304}]}, {{
            7., -8.473817659948304}, 
            Offset[{-3, 0}, {7., -8.473817659948304}]}, {{
            7., -8.473827235511466}, 
            Offset[{3, 0}, {7., -8.473827235511466}]}, {{
            7., -8.473827235511466}, 
            Offset[{-3, 0}, {7., -8.473827235511466}]}}], {{{1., 0.}, {0., 
          1.}}, {0., 0.}}]},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{
        GeometricTransformationBox[
         LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
        GeometricTransformationBox[
         LineBox[{{{8., -10.012856089591494`}, 
            Offset[{3, 0}, {8., -10.012856089591494`}]}, {{
            8., -10.012856089591494`}, 
            Offset[{-3, 0}, {8., -10.012856089591494`}]}, {{
            8., -10.012900713523315`}, 
            Offset[{3, 0}, {8., -10.012900713523315`}]}, {{
            8., -10.012900713523315`}, 
            Offset[{-3, 0}, {8., -10.012900713523315`}]}}], {{{1., 0.}, {0., 
          1.}}, {0., 0.}}]},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{
        GeometricTransformationBox[
         LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
        GeometricTransformationBox[
         LineBox[{{{9., -14.953695621752207`}, 
            Offset[{3, 0}, {9., -14.953695621752207`}]}, {{
            9., -14.953695621752207`}, 
            Offset[{-3, 0}, {9., -14.953695621752207`}]}, {{
            9., -14.959957382976183`}, 
            Offset[{3, 0}, {9., -14.959957382976183`}]}, {{
            9., -14.959957382976183`}, 
            Offset[{-3, 0}, {9., -14.959957382976183`}]}}], {{{1., 0.}, {0., 
          1.}}, {0., 0.}}]},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{
        GeometricTransformationBox[
         LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
        GeometricTransformationBox[
         LineBox[{{{10., -12.352255155708255`}, 
            Offset[{3, 0}, {10., -12.352255155708255`}]}, {{
            10., -12.352255155708255`}, 
            Offset[{-3, 0}, {10., -12.352255155708255`}]}, {{
            10., -12.356895535264757`}, 
            Offset[{3, 0}, {10., -12.356895535264757`}]}, {{
            10., -12.356895535264757`}, 
            Offset[{-3, 0}, {10., -12.356895535264757`}]}}], {{{1., 0.}, {0., 
          1.}}, {0., 0.}}]},
       Antialiasing->False]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], 
      StyleBox[{
        GeometricTransformationBox[
         LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
        GeometricTransformationBox[
         LineBox[{{{11., -13.122363377404328`}, 
            Offset[{3, 0}, {11., -13.122363377404328`}]}, {{
            11., -13.122363377404328`}, 
            Offset[{-3, 0}, {11., -13.122363377404328`}]}, {{
            11., -13.13241371325783}, 
            Offset[{3, 0}, {11., -13.13241371325783}]}, {{
            11., -13.13241371325783}, 
            Offset[{-3, 0}, {11., -13.13241371325783}]}}], {{{1., 0.}, {0., 
          1.}}, {0., 0.}}]},
       Antialiasing->False]}}}, {
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{1., 0.1804309238382727}, {2., -1.1431595731895612`}, {
      3., -2.1992508587114377`}, {4., -4.108835369665774}, {
      5., -8.239569788186014}, {6., -7.573184963114589}, {
      7., -8.473822447718424}, {8., -10.012878401308493`}, {
      9., -14.9568216011655}, {10., -12.354572653848617`}, {
      11., -13.127375919227873`}}]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{1., 0.1804309238382727}, {2., -1.1403528622278423`}, {
      3., -1.820668971036842}, {4., -4.133537515955844}, {
      5., -8.132076893111675}}]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., -16.144778690140278`},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{
     Charting`ScaledTicks[{Log, Exp}], 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Exp[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Exp[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 11.}, {-16.144778690140278`, 0.1804309238382727}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->FrontEndValueCache[{Automatic, 
     Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-16.11809565095832, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}}, {-11.512925464970229`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}}, {-6.907755278982137, 
       FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-2.3025850929940455`, 
       FormBox[
        TagBox[
         InterpretationBox[
          StyleBox["\"0.100\"", ShowStringCharacters -> False], 0.1, 
          AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 
       0.}}, {-13.815510557964274`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-9.210340371976182, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-4.605170185988091, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0., 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      2.302585092994046, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      2.70805020110221, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      2.995732273553991, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      3.2188758248682006`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}}}]]], "Output",
 CellChangeTimes->{{3.843988443432851*^9, 3.8439884476409197`*^9}, 
   3.843989188061303*^9, 3.8440022072596407`*^9},
 CellLabel->
  "Out[543]=",ExpressionUUID->"0fe99cd0-b508-4c82-8cb5-d58d82b4dd4e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"test3", "[", 
  RowBox[{"[", "3", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.844008673952516*^9, 3.844008699430373*^9}, {
  3.8440088366669893`*^9, 3.844008836896523*^9}},
 CellLabel->
  "In[557]:=",ExpressionUUID->"33938e6c-adaa-464a-9564-ced71dd22d4e"],

Cell[BoxData[
 RowBox[{"-", "0.1619173966462644`"}]], "Output",
 CellChangeTimes->{{3.844008676721615*^9, 3.844008699891857*^9}, 
   3.844008837369658*^9},
 CellLabel->
  "Out[557]=",ExpressionUUID->"321f4d39-6591-48a7-9389-9935b198b499"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"t", "[", "\[Theta]", "]"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"h0", " ", 
           RowBox[{"hCas", "[", "\[Theta]", "]"}]}], ")"}], 
         RowBox[{
          RowBox[{"-", "1"}], "/", 
          RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}], ",", 
       RowBox[{"test", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Theta]", ",", "0.5", ",", "1.1"}], "}"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", 
      RowBox[{"1", "/", "GoldenRatio"}]}], ",", 
     RowBox[{"WorkingPrecision", "\[Rule]", "30"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"test3", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "+", 
      RowBox[{
       RowBox[{"test3", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "x"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.844002027467222*^9, 3.844002116527075*^9}, {
  3.8440022182075043`*^9, 3.8440023011426783`*^9}, {3.844008619185902*^9, 
  3.844008658160707*^9}, {3.8440087871730633`*^9, 3.844008812945347*^9}, {
  3.8440088560827703`*^9, 3.844008884537188*^9}},
 CellLabel->
  "In[560]:=",ExpressionUUID->"5ed4b47f-e272-40ab-8c23-58385be3e0c6"],

Cell[BoxData[
 TemplateBox[{
  "ParametricPlot", "precw", 
   "\"The precision of the argument function (\\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{RowBox[{RowBox[{\\\"t\\\", \\\"[\\\", \\\"\[Theta]\\\", \\\"]\\\"}], \
\\\" \\\", SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"0.27286889266851116`\
\\\", \\\" \\\", RowBox[{\\\"hCas\\\", \\\"[\\\", \\\"\[Theta]\\\", \
\\\"]\\\"}]}], \\\")\\\"}], RowBox[{\\\"-\\\", FractionBox[\\\"1\\\", \
RowBox[{\\\"\[CapitalDelta]\\\", \\\"[\\\", \\\"]\\\"}]]}]]}], \\\",\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \
FractionBox[RowBox[{SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"2\\\", \\\" \
\\\", \\\"\[Pi]\\\"}], \\\")\\\"}], RowBox[{\\\"1\\\", \\\"/\\\", \
\\\"15\\\"}]], \\\" \\\", RowBox[{\\\"Gamma\\\", \\\"[\\\", FractionBox[\\\"1\
\\\", \\\"5\\\"], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\
\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \
SuperscriptBox[RowBox[{\\\"Gamma\\\", \\\"[\\\", FractionBox[\\\"13\\\", \
\\\"16\\\"], \\\"]\\\"}], RowBox[{\\\"16\\\", \\\"/\\\", \\\"15\\\"}]]}], \
RowBox[{SuperscriptBox[RowBox[{\\\"Gamma\\\", \\\"[\\\", \
FractionBox[\\\"3\\\", \\\"16\\\"], \\\"]\\\"}], RowBox[{\\\"16\\\", \
\\\"/\\\", \\\"15\\\"}]], \\\" \\\", RowBox[{\\\"Gamma\\\", \\\"[\\\", \
FractionBox[\\\"8\\\", \\\"15\\\"], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Gamma\
\\\", \\\"[\\\", FractionBox[\\\"2\\\", \\\"3\\\"], \\\"]\\\"}], \\\" \\\", \
RowBox[{\\\"Gamma\\\", \\\"[\\\", FractionBox[\\\"4\\\", \\\"5\\\"], \
\\\"]\\\"}]}]]}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\
\[RightSkeleton]\\\"}], \\\",\\\", RowBox[{FractionBox[\\\"1\\\", \
\\\"24\\\"], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{FractionBox[RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \
SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\
\[RightSkeleton]\\\"}], RowBox[{\\\"8\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
\\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\
\\\", \\\"\[RightSkeleton]\\\"}]}]]], \\\"+\\\", RowBox[{\\\"12\\\", \\\" \
\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \
\\\"\[RightSkeleton]\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \
SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\
\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\
\[RightSkeleton]\\\"}]]]}], \\\")\\\"}]}]}], \\\"}\\\"}], \\\"\
\[LeftDoubleBracket]\\\", \\\"1\\\", \\\"\[RightDoubleBracket]\\\"}]}], \\\"}\
\\\"}]\\)) is less than WorkingPrecision \
(\\!\\(\\*RowBox[{\\\"30.`\\\"}]\\)).\"", 2, 560, 72, 25191839074214845445, 
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.844002282168264*^9, 3.84400230178336*^9}, {
  3.844008654456798*^9, 3.84400865876917*^9}, {3.844008788291792*^9, 
  3.844008813510537*^9}, {3.844008861755539*^9, 3.844008885219948*^9}},
 CellLabel->
  "During evaluation of \
In[560]:=",ExpressionUUID->"06e3abf0-2019-4c5e-99b9-d2a9da7384db"],

Cell[BoxData[
 TemplateBox[{
  "ParametricPlot", "precw", 
   "\"The precision of the argument function (\\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{RowBox[{RowBox[{\\\"\[Theta]\\\", \\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"1\\\", \\\"-\\\", RowBox[{\\\"0.855058956315038`\\\", \\\" \\\", \
SuperscriptBox[\\\"\[Theta]\\\", \\\"2\\\"]}]}], \\\")\\\"}], \\\" \\\", \
RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"-\\\", RowBox[{\\\"0.222389`\\\", \
\\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \\\"2\\\"]}], \\\"-\\\", RowBox[{\
\\\"0.043547`\\\", \\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \\\"4\\\"]}], \
\\\"-\\\", RowBox[{\\\"0.014809`\\\", \\\" \\\", \
SuperscriptBox[\\\"\[Theta]\\\", \\\"6\\\"]}], \\\"-\\\", \
RowBox[{\\\"0.007168`\\\", \\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \
\\\"8\\\"]}]}], \\\")\\\"}]}], \\\"-\\\", \\\"0\\\"}], \\\",\\\", \
RowBox[{RowBox[{\\\"Im\\\", \\\"[\\\", RowBox[{\\\"\[Theta]\\\", \\\" \\\", \
RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"-\\\", RowBox[{RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"18\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \
SuperscriptBox[\\\"\[Theta]\\\", \\\"2\\\"]}]}], \\\")\\\"}], \\\" \\\", \
RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"-\\\", RowBox[{\\\"0.222389`\\\", \
\\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \\\"2\\\"]}], \\\"-\\\", RowBox[{\
\\\"0.043547`\\\", \\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \\\"4\\\"]}], \
\\\"-\\\", RowBox[{\\\"0.014809`\\\", \\\" \\\", \
SuperscriptBox[\\\"\[Theta]\\\", \\\"6\\\"]}], \\\"-\\\", \
RowBox[{\\\"0.007168`\\\", \\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \
\\\"8\\\"]}]}], \\\")\\\"}]}], \\\"]\\\"}], \\\"-\\\", \\\"0\\\"}]}], \\\"}\\\
\"}]\\)) is less than WorkingPrecision \
(\\!\\(\\*RowBox[{\\\"30.`\\\"}]\\)).\"", 2, 560, 73, 25191839074214845445, 
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.844002282168264*^9, 3.84400230178336*^9}, {
  3.844008654456798*^9, 3.84400865876917*^9}, {3.844008788291792*^9, 
  3.844008813510537*^9}, {3.844008861755539*^9, 3.844008885446347*^9}},
 CellLabel->
  "During evaluation of \
In[560]:=",ExpressionUUID->"465d3232-1f00-42ad-89f9-f7dbe9649552"],

Cell[BoxData[
 TemplateBox[{
  "ParametricPlot", "precw", 
   "\"The precision of the argument function (\\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{\\\"True\\\", \\\",\\\", RowBox[{RowBox[{\\\"Re\\\", \\\"[\\\", \
RowBox[{\\\"\[Theta]\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\
\"-\\\", RowBox[{\\\"0.855058956315038`\\\", \\\" \\\", SuperscriptBox[\\\"\
\[Theta]\\\", \\\"2\\\"]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"1\\\", \\\"-\\\", RowBox[{\\\"0.222389`\\\", \\\" \\\", \
SuperscriptBox[\\\"\[Theta]\\\", \\\"2\\\"]}], \\\"-\\\", \
RowBox[{\\\"0.043547`\\\", \\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \
\\\"4\\\"]}], \\\"-\\\", RowBox[{\\\"0.014809`\\\", \\\" \\\", \
SuperscriptBox[\\\"\[Theta]\\\", \\\"6\\\"]}], \\\"-\\\", \
RowBox[{\\\"0.007168`\\\", \\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \
\\\"8\\\"]}]}], \\\")\\\"}]}], \\\"]\\\"}], \\\"\[LessEqual]\\\", \
\\\"0\\\"}]}], \\\"}\\\"}]\\)) is less than WorkingPrecision \
(\\!\\(\\*RowBox[{\\\"30.`\\\"}]\\)).\"", 2, 560, 74, 25191839074214845445, 
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.844002282168264*^9, 3.84400230178336*^9}, {
  3.844008654456798*^9, 3.84400865876917*^9}, {3.844008788291792*^9, 
  3.844008813510537*^9}, {3.844008861755539*^9, 3.844008885561537*^9}},
 CellLabel->
  "During evaluation of \
In[560]:=",ExpressionUUID->"51fecbe8-1bd4-4ff4-b67b-93b66d40b947"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"ParametricPlot\\\", \
\\\"::\\\", \\\"precw\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"", 2, 560, 75, 25191839074214845445, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.844002282168264*^9, 3.84400230178336*^9}, {
  3.844008654456798*^9, 3.84400865876917*^9}, {3.844008788291792*^9, 
  3.844008813510537*^9}, {3.844008861755539*^9, 3.844008885600465*^9}},
 CellLabel->
  "During evaluation of \
In[560]:=",ExpressionUUID->"4e40cd38-d9b9-4ca7-8ccd-de1b917cec88"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ/d/R3j8hkeWA2TXu6lean/cXl/3MZ9RD8E/dqf0g
8ZsZzne8uOmUUR+CP5tdusxAC8FvZzzzvuskE5z/MZr1q3gSgh/er3F5AxOC
b5u67GHcHEY4vyGIf89lCwTfZ9qTt4vuMMD5R3ZfvW5VieB7zE5bdE4GwU+a
lhd3reX/fhh/VZSq4N0D/+B8/gofvbucCH7OucM5DM5/4fxzGeEuL+v+wPke
MTxNb4/9hvNXLM2+c+LvLzhfs18mRdsBwb9XothuVvATzj+6MkWDbeEPOP/D
hzkF/Xe+w/nrnHuONTMj+I+7L8fVmnyD87N2GXhfTPkK529YzpZWXfsFzt/Y
K80pN/8znM/5dfkEhmWf4Hzrnc4rGFZ8hPMlZRUqUzd+gPOzvdo86o3fw/lB
ASUrb/O9hfMTmewaRW+8QugXM1or6f0Czp+2cMOe/fufIvyXxaTQeOwRnO9b
ynh7c+N9OP8pX2vWUuabcH7dNbdHa3Uuwvlfqm3Vp588COfXbkkosbgx3R7G
/ymtl74x4TScH/Fiwm/f3bfh/Ef77/lH3HgO579ZIb9+/qJPcH7epYjl6dv+
wvlef72mhUWwOMD4kXZeJbv4BeB884Y1v0qmGMD5vLXvOCV+WcL5AODCvec=

        "]]},
      Annotation[#, "Charting`Private`Tag$11036414#1"]& ]}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAfedN8v//E8Ab4srMv14GwOZ7FvXb
/BPAgaQouL1cBsBOEN/3t/kTwOdmhqO7WgbAIDlw/W/zE8C060F6t1YGwMKK
kgjg5hPATPW4J69OBsAILtcewM0TwH0Ip4KePgbAlHRgS4CbE8DgLoM4fR4G
wKsBc6QANxPApXs7pDreBcAFZUcyGV0SwH4j/wPmUgXAE9jFbKKREcA84s8W
zdAEwFLDmmMpyhDAql8aeUFRBMB77z1skOMPwGjrt2PmxgPAuHeaaq9PDsAJ
jmIBx0UDwE6SVSD+mQzA+j5gJ9i5AsBHnb1OSOwKwJyu15x2MALApsd51nNb
CcAhNVzFULABwF6ElBXPqAfA9skzdlslAcB+YAOuCxMGwK51GNqhowDAAC0f
v0OFBMAX4HaNdSQAwNqLmYer1QLAoLFQkvM0/78cCmip9EIBwNnQzW9zM/6/
azUqBdsc/7+wDPFdVBz9v2M33qjDw/u/6sUH608K/L8qeDr/bqT4v+ysON7C
Cvu/od1TxHlB9b+LsA/ilvX5v+eBFTxHGPK/8OEATOLy+L+6lShF6Fbtv/Uv
mMaO2ve/MOnZ9C+d5r9d+yLgVcf2v0S62wn9VuC/i/THX5TG9b9wqa/4ERPT
v1gKE/AzsPS/VmYjodJ8ub/rTXjmSqzzv8fM2YozU7g/4g7Re3yt8r86LcGy
UJfTP3fszyEPmfG/AnYV3GQZ4D/T9+gtGZfwvwcMUIFi7uY/mj9QlQj/7r+D
4NZDcqPtP1aKtQwU2uy/sJuGUH7y8T+fME9QDtrqv2+iZBDkVvU/JBA1tcqu
6L9eapodh4H4PzdLT+Z1qOa/iVF2OTOc+z8RgVBVVqzkvwQUleZ/+v4/J/Cd
5fiE4r/Xy4XwhA8BQMy6H0KKguC/VXtiNprDAkBYfdt/u6ncv2wL6yLOWgRA
MDzgE0CY2L8fq8aWBuoFQJzwsiMvm9S/e7hDUw+bB0B+Fx52okfQv3CmbLY2
LwlA8OrjweZ7yL8MAjdiLuUKQMAXeTkid7+/RW1UlSqTDEDAX8S8QZCsvxi5
HW9FJA5AALsdsaH2ez+ScoiRMNcPQEAdJArkILM/UoZPLZ22EEA4wcnLc63B
PypbhFWkfRFAuIjlmqChyT/W5gmik1USQJw1aHJiIdE/zmLlQRIfE0DI7/T+
FijVP+EEp/iVIhNAiP0wTRE61T/0pmivGSYTQEQLbZsLTNU/GevrHCEtE0C8
JuU3AHDVP2Rz8vcvOxNAtF3VcOm31T/6g/+tTVcTQKDLteK7R9Y/JqUZGomP
E0B4p3bGYGfXPzlH29AMkxNAOLWyFFt51z9M6ZyHkJYTQPjC7mJVi9c/cS0g
9ZedE0Bw3mb/Sa/XP7y1JtCmqxNAaBVXODP31z9SxjOGxMcTQFSDN6oFh9g/
ZWj1PEjLE0AQkXP4/5jYP3gKt/PLzhNA0J6vRvqq2D+dTjph09UTQEi6J+Pu
ztg/6NZAPOLjE0BA8Rcc2BbZP/p4AvNl5xNA+P5TatIo2T8NG8Sp6eoTQLgM
kLjMOtk/Ml9HF/HxE0AwKAhVwV7ZP0UBCc509RNA8DVEo7tw2T9Yo8qE+PgT
QLBDgPG1gtk/akWMO3z8E0BoUbw/sJTZP33nTfL//xNAKF/4jaqm2T9k1W0e

        "]]},
      Annotation[#, "Charting`Private`Tag$11036459#1"]& ]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  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->{{-2.5475469771556614`, 
   2.397971707596225}, {-2.3954667675959866`, 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.844002029951742*^9, 3.844002046304583*^9}, {
  3.844002077607532*^9, 3.8440021181802073`*^9}, {3.844002244866061*^9, 
  3.8440023024367*^9}, {3.844008654971917*^9, 3.844008659369892*^9}, {
  3.8440087889038982`*^9, 3.844008814185492*^9}, {3.844008862476318*^9, 
  3.844008885944442*^9}},
 CellLabel->
  "Out[560]=",ExpressionUUID->"02496185-9d40-4431-9ca9-6085c166d125"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[CapitalPhi]s", "[", 
  RowBox[{"[", "4", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.843988288620174*^9, 3.8439882922229843`*^9}},
 CellLabel->
  "In[517]:=",ExpressionUUID->"eb2501cb-e52c-43ae-bbbf-2c91bfb69b81"],

Cell[BoxData[
 InterpretationBox[
  TemplateBox[{"0.0164268946", "50", "10"},
   "AroundSeq"],
  Around[0.01642689465, 1.*^-11]]], "Output",
 CellChangeTimes->{3.8439882924586763`*^9},
 CellLabel->
  "Out[517]=",ExpressionUUID->"ddfad34c-6774-4ef8-b8bc-c5de09b41700"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"totCas", "=", "6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ds", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"invDerivativeList", "[", 
      RowBox[{"totCas", "+", "1"}], "]"}], "[", 
     RowBox[{"\[Theta]", "\[Function]", 
      FractionBox[
       RowBox[{"h0", " ", 
        RowBox[{"hCas", "[", "\[Theta]", "]"}]}], 
       SuperscriptBox[
        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[{"t", "[", "\[Theta]", "]"}], 
        RowBox[{"\[Beta]", "[", "]"}]]], ",", "totCas"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"datCasM", "=", 
   RowBox[{"Table", "[", 
    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[{"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.843803094421678*^9, 3.843803146878536*^9}, {3.843803198639724*^9, 
   3.84380324222451*^9}, {3.8438033353723392`*^9, 3.843803345882052*^9}, {
   3.8438034178358307`*^9, 3.843803431043694*^9}, {3.84380358438281*^9, 
   3.843803587446344*^9}, 3.843804356868655*^9, {3.843806602116267*^9, 
   3.843806615782628*^9}, {3.8438066706784363`*^9, 3.843806670875389*^9}, {
   3.843981475606935*^9, 3.843981476287299*^9}, 3.843981654839469*^9, {
   3.8439817865685596`*^9, 3.84398181233598*^9}, {3.84398192257196*^9, 
   3.843981925872644*^9}, {3.8439821255775642`*^9, 3.8439821258573503`*^9}, {
   3.8439821771441813`*^9, 3.8439821780335617`*^9}, {3.843982433344853*^9, 
   3.8439824735347757`*^9}, {3.843982516777648*^9, 3.84398254141038*^9}, {
   3.8439834669722652`*^9, 3.8439834695995407`*^9}, {3.843983517678876*^9, 
   3.8439835209625463`*^9}, {3.843984484082121*^9, 3.843984511311327*^9}, {
   3.8439848890701437`*^9, 3.8439849146797533`*^9}, {3.843984993590008*^9, 
   3.843984993889539*^9}, {3.843985064287517*^9, 3.84398507040582*^9}, {
   3.8439852967469473`*^9, 3.8439853090769577`*^9}, {3.843985419965234*^9, 
   3.843985436839972*^9}, {3.8439859516652393`*^9, 3.8439859894619703`*^9}, {
   3.8439882228149643`*^9, 3.843988228008665*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Abs", "@", 
      RowBox[{"datCasM", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"Abs", "[", 
       RowBox[{
        RowBox[{"m0", "/", 
         RowBox[{"D", "[", 
          RowBox[{
           FractionBox[
            RowBox[{"h0", " ", 
             RowBox[{"hCas", "[", "\[Theta]", "]"}]}], 
            SuperscriptBox[
             RowBox[{"t", "[", "\[Theta]", "]"}], 
             RowBox[{"\[CapitalDelta]", "[", "2", "]"}]]], ",", "\[Theta]"}], 
          "]"}]}], 
        RowBox[{"D", "[", 
         RowBox[{
          FractionBox["\[Theta]", 
           SuperscriptBox[
            RowBox[{"t", "[", "\[Theta]", "]"}], 
            RowBox[{"\[Beta]", "[", "]"}]]], ",", "\[Theta]"}], "]"}]}], 
       "]"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "0", ",", "\[Theta]0Cas"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.84398190190687*^9, 3.843981915841597*^9}, {
  3.8439830422597313`*^9, 3.8439830897680197`*^9}, {3.843983268657812*^9, 
  3.8439832894412003`*^9}},
 CellLabel->
  "In[230]:=",ExpressionUUID->"850f45b2-810d-4cc6-a9fa-3b038d25d4c3"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV02k4VV0bB3BlCmcrU1EaiEoqIT0I/61QekgRZSqOqUjGRIbMoogMSYRk
TGZSjqJJRKTQIxVpIM7ZpZIhevf7YV3r+n251z0tGaaHqdNCLi6u1/T5/22v
J/wlo+qQzi5WxiARTZCPf4TZT7DU8GA63/v/LpI3+vOApQ8Rtc4NDNq3i8Yc
oo3343DwUm5B2hk6lYY3WeboGAtcwE87+JWfUpeiNVry/q7lpr1V7VrcGWM7
3OrOdZ2PIkhZrrA5Bq8D+CuYPVO0xZ45eGaznBAYvNNxgjZPmsGwsu8xVETr
LhujPWmnYPFI0Q2nZOw4H2h/UWS0Wgy7o/zWtdH/aJ8I/J3la+wJq9S5RV20
Pw0e69Mu9kK8UbDRY9pHDPqX8PP6wPPAqpo7tE1EGiOusE7Bx+MJlU37qd+W
Rqbkadjffv4wiTY5kD2p6OuP3JKZhnDaKoXhx+8pBqLxaJMkk3YJ4+f1mJgg
rM+1Dt5Pe62308D+4WAsil/Jp0M7btWNQi/jUGzrloxcStvghY2exWwo+mbN
AhbQ5o6UGNIsDsM5zzuXxiIJMmg0ejkPbwRu7+VXaaTtXnM8Po0VBW6nDlkL
2htdZDcGukZj/a4ADU3an6XePDkqGQOhS4d9V9I+ctaIS8H3HJpf1VkMRRDk
/r1KPg2K53HISer5EdqMuS+Lc/47j8CZGD4t2k/Lc0ojYy6Ap1TNQZK2roTo
Z+PheMxOH4x9Hk6QUp5nNnkaJyIx/uW5rbT9W3vPMG8kokrIbZiPdq+sauvB
2UT09JkwB8II8lLPmJNGcRJyVQQ6ImkL7rDNXsibDFMxX4tnoQT5h5cUTWWl
wjpffIfSWYL82LA5p295Gt6Kr1b4EUKQ7V4rtiwPSENR40qJOtpZbycNs9Uu
o2OK54s6bZ3aW2HFZeloetHvrRJMkGcdV3xvzLkKh1udm3+dIchjywXOcv29
irCWlj9FtPd3TTJ22WYijEm1WtNeo9W94alUFupfvT1yL4Agm8Ri7bovXcOR
tnKf0/4EGWY/6+LzIAdttUuN75wiSD+tibKU7zkYC5BaYEvbddnor9o1uVg9
mVL915cgTTt6I6ZCcqFuJCi+k7asRlV28I7rGPoe8vCuN0E+WHK8L6YmD3so
3aFAD3qfm3oNMgsKYHoindQ+RpDbP2xYeK27APKX8yRaXej8eQIbs+cLUOfz
TPAg7fY9q7flWRTipXWMuYszQaa+cJEp4SuCFdvIPcKRINcNT83edi5GwIzU
zSQ7gjTkW1H5cl0pOk/rxPEdpvdpg/uJHtNSXNezOel3iCDL9t5f3xdSivZG
a59PFgQpetHhWn9vKXZLrRhsMifI/mWl54eib+FSuK2+uxn9nxS0nanPZWjX
kdPP3EeQuwvK46NeVqAtNtjYTI8gQ3Ufji8brcDtTJ/Gkl0EeXeg99+S+QqM
LB04tID2JrF5gU6FSgQIrmWU6hLkklCjaMnQSqxNZvr81qHfsxwNubmpCnKW
qbucNQjyJLHW80VUNcRTVOVubCbIwqLtnQ5Xq9EZJTkxuIkgB3ft3TJZUY3d
j/3HpGmbnfEaXz5Qjfm+53aXNhKk+pf7xxxVauAg2WHhs54gFzbb2P9+VwMh
xyX+hAxBpvmmma5Ur4MAV/6L62IEOeGc0BxhUoc313iMq0QJcp9l9NavznXQ
5NR3NokQJK+On/Dt1DqsdzIb619MkL78Fm37f9ThhERjEDeDnn+GxM7Isttg
dMyIreMhSOGmFOUxuTswHs/yqfzBIKOFkpfcEWFhvO/W6o+dDDIst/7OxfUs
MGz4RdueM8igf94xnbVZ0J2d3FLewSC9HBRqxY6zIHaxY8TvGYO0abhvebKJ
hWbHDts/Txikitv49bUejbDj/Xj4fSODfN+mr5bQfg8r3T//4L3JIKX1/5RW
PmwCLgd+eB3OIB+PaDxfdOchPiiK2yasYZC+XU+lE3Oe4N8DwUMulUIkzyZG
5SqLVvhqhypMaQmRH936dZUM2rHlQfq8aqUgeWO1reRunk54dGuqnZIVJGvP
Sybs7u+C2731pr7nBcim6d0JpSbdmJ3Jdrr/ZhHZkHtAWaL0JR6MbTRU3ryI
fNeQ031PvgerV6T8WOzET/L4p8eFpvei/YFDu3YaH7nipOsn/Yk+SCvrFrS0
85JWvWE6Rsf/w+TDZL6yUR4y1t9H06KlH2PvzV4whXnIwQsl23J3DsBleFtH
sRQ3qbkrTp/n9lvc28PdLrd2IRmpqjftKvoe5Ibj097qC8jZtlzzWP1BXNh8
YUGvGhe56Yow19Ffg0gPzJzuC5/HkfrO2qbcIeRcJuRGsv/gRmL11wc2H/Bd
+brcZNIMhqN4vhsIDaPp65XhfwunsH2bv5/b02H81HcZE0ybRJwqyS8d/hGN
Q3Oawck/0Wty6vg+pU9wrpia3393AtvlO/bKjH2Ccn6U5dKH35Cw7NLcqYzP
2FMY7ck/wcaI1c0GC4MveJb0+Aoz7issDn2Z6uMawZ2N1GPH2c9geSbyvykb
gdArFUuRzmFs32WTGuI2ihWynpGb4gdRpJL6M2/FV8z9Ubtq4/IG0j6yR82f
fkWq0ZyXxj+9uHGie09hxBhUpdVWuYm/gFwExR2oMg6v7GJb/5RWMMNfv/JU
G4fgyunQC16tyAlrzndWH8c/Pe/Ca/a1YmVo8m5TnXG80IjVJgVasTT4n/MK
e8dRbOBotPvsUwicPiv62n4cpztrHkl5tIDjulhGLWkcSX2LGVxHHqPeVEmH
osYRtKa00OJMMzTz9NE3MY7Z7a6ma22bwfphTd7/NQ6TN0LdPGQzmlPO7bw4
Ow4FHUc3Pr5mtPUOGSjxs2Gc9fEJT3IT3lqlmHisYkPA4q31iP19LHSYtqOM
2KhU4gRlTTcgsnoxs8+EDakGJl/Mowbw86xzuG/KhlZUxuzViw1g5Js6XTzM
RqC+vcOedQ2Q+HLzuJIjG8ulvJpKze9ig9sRb49ANlbcYMVXsOph7PMwgipm
49BP0z1EaS30/FdfyC9l46aMiFrl2VpoBgemWJezMZm6Iz7IrBbrYlTzW2rY
+PlepDp2tgbzGXlPsu+zcbUqWfuscQ0qHkQI7O9hI0HJsO7DVBXERfUuVnBx
8GY+5tmIewUEl+VcdubmYHTA6FGyQQW4pP9kS/Nx8Exsts9ldQXY8jUV54Q4
aDecEV2WV44nGnLddks5iF42ejDKowyn7XkkRDbR8dr/Oz+9rBT9FY8yvA5x
oHBh8vTSokLUkCvlmVYcDB6UMFU5UoiLXafKTW05EFNnMqvFC6H3bd0jVQcO
FL3Euj+FF6BMKZb96yQHlukSdUsc8xFeZkyeieYgo/7i63yNPCiW9n4Kr+VA
qHKufpvzNfBpKXn61HNQ+qi21X08C4PPYmYcGjjYbnrXNdgnC2lj6ov1mzmQ
+35vpWxkJrgUr6rzd3Bw4lvi0/jyDLwqPnr+/EcOhLlq9lgoXUZQ4cjWFDEK
8/dCetR7E9E2Fv3AdCkFPduBOPeQREhtlT8oIkXBz7Psrdv6RNTV259OWEWh
w2rxz4TfCaBa+xvPKVBY1zJUKGZzAczx9r3BoGBss297gHcMKra6DezYScE/
XS/y2kA0/voKnJzRo5BGfhV33RONzDn9pNN7KbxVvxEyLReFXuH7fV7mFFwW
LvKWmQiHoXKlo7MbhXaF5TffNgQj/ZTJpNxJCrxTtrGWT4Lw+Q47ZtiTAqul
T8z8VSDCd268aedH4RffUHb/TABYZnnfrcIohGr/eyDJ2w+C6boRUpEUZvQ/
1gReOQXLgffir6MpiNzKdOV/5ItJR2l18wsUjNYc/ioh54OtfqkhJpcp3LU+
aJu1xBMhd1WXCGdQiBoq3IqSk+iYf5Hbnkmhb6yH+42mO1xjhB8bXqcgU3Zr
o6CPK/LSY4T0blFoiVvE3UA6YWJAPmthBYW8ELl94/yOIGUebWmuovAsk09L
vo+JgWIuU516CnHhEaIT8XZY2hCQrv6QguGmEtaie4dRtF/favQxhUR/e+3g
fgvs+LxEOuMp3e/KAlYqvznsRIqyZzso/J6aqvJLOYCJAh/70i4K8qsELpmO
miBKC2ttX1JAONlb3G6EEpfegnuv6XiNztPK8wbQmss95vGG7s/1Ovuzxnro
vOS+cc07CtZnRhxmm3XB3KAx3jVIYdTSS6u8Xgc/G3nKwoYpSPtu3lepqYlo
sy4Plc8UtO4yJquFtkNy9Kry8AgFqW++bgWbVVAS4vIjeYyC2G92T5D+ZmiL
q9bqcSh8OFbZJvlmHbqK5/1+faPgflg4VkVWBky0qRf8oOt3P6BgpieJn69S
ZywmKWw7XmW4PGkxol3tWfzTFAoXfpTyfrkAklybQ+pnKZgLPspXsuHoNN7/
0rFpjkJW/qK/QVZvdf4H+hRMtw==
       "]], LineBox[CompressedData["
1:eJwVkWs01HkAht2lixrKdJH7pbDCRii9tcxEtA0p09rcUq5NDCVLNQqnUqZF
LqXQjJRacpuxql1GLtHZ6pwJbYk21rJGv3+KZrbNzn54z/P1Pc9jGnE44ICa
ioqKn3L/09RkYUmMKsHvstdGR4MGNyuO5JsXahCYtdZlRvcuxMMtqZlTmgQD
1l/JuvMNcGFB6ChTm0DvjEaT1NwEe/q8mGXzCBr/Ehg/EFnCpMKmalaHwD+S
I5AobDEet2QeawEBreLbL+JkR9S7zETfXEiA4Fj6zc3OSFN99UhFl2C8rEO7
n+0Gr8dtNnsXE8hvpaWsb/NAf/iFSR09ghscoai6xRPldkk7IvQJ1PPahhUh
TMTOsmtalhLkBWtLNlj74PN5i4Q4OkHrH8uhbroTHUHzn7UvJxDxS51a1vgj
14w4Gq4kCKoIde55FgDT5nvTjw0JaiptJ07v3gPm24AUezOCIkd27pXVIVhc
4zqQbU7w2uYXWdCqMAwcM3IbsiBo0W+XZ68LR5zuhIJvTSAT99ZmcfbjolvG
CcqOYG9Hl44uIxp7NaKGfOyVfhJK/drOx8Dsid+W6+sIfj10sob/MhaNkcvV
djkR+M6Zz3nmHsILfm1W4waC5z+rsLYJErG0PN/axk3pz8lX3z2JC9bdlEdl
7gRTrbnGq7clofMpFuV4EKRaBcsKFclopD0tCPckSOxsUS/mHwM/nwh0dxLs
O1N61cqFhx6BlJHJIijL61GsuM+DVmPzmNyfoEInP0bqmYF0Kc92NJBgv8tw
aAH7FGKX0RrufafsEbcr4XNhJhhFjpLogwQTXc+vxx84C17VssjXUQTsgnih
WOsc7ovlmoExyr4sB2nlrXNwGmjzQTzBTILP2P4POTBZEfBsGZfgzbuoKMer
ufjnMndYcpzAdbSzfdPqPNRda/hieIngygWd53O+xbA66y5MLSSgr/LsotcU
ozSpzaeviGB7RIbNkyUlyPZ+UsC/TBCoayZfMVCC799P2KiVE3zd/GpkMecK
tJhmQWPVBLE7bxSqiq8hWHaxtq6VYFqQ7lr16jqe9tN360oISDbnoQVdAKbk
miK2XfnPjlc37i+AQ9EdhkUnQeifNfe8uwXQ2tr9srCXQMf+0KfAZiHuFsxp
p/cR3JZddeBW3oDmJk4Yc5Lg7/e7B+3qq/FmxiqvV0awkss7Ov25Gg/qhtpZ
75R99Bxp871v44i1v3Xwe4J1W3nGVkO3Maq3furwJ6VvuU86jfYTOsblaSUa
FKqkBsPJp2uRVZRVNGlIQS/iY9hGVj3CAzY/SjSicHNfuT/7h3p4LJpVzBhT
EEQ87i4W1uPjqegQVXMK5c4Rbafl9TjA8bU0WEuBVSky+iJsAINBa4AzBffj
U4MH1ZpgqtIz8tCFwmGplHHHvgn/tpwy2O5KIaTbgq4f3IQmhw+pgRspJO/6
kODV2ARLw/4tMVsppOWsCXeKFkG1n8+d+oZCAa8r6eQlEQZ/9BYmeVGwzLEd
m5SIcEm7RfvENgovMRu/xkiMRAnXTd2Hwq2RFx4zvmLsOG4bd2Y7hY3rUybf
poqx1nWkdJEfhfPldmyqSgzN6dLf8nZQSFgSGWbUJ8Z/lvpQFA==
       "]]},
     Annotation[#, "Charting`Private`Tag$9647087#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV03c4lo0XB3BlhedWVlEaRCWkSCF87wrFS4qojOKxioRIysiWyigjiZDM
ZGSWx4oSkVLolYo0zOd+o2REv/v3x7nO9fnrnOsMKaabicNiDg6Od3T8P9vq
CH5PfnhEey8ruZ8IJ8ink0G2EyxVNM5knf2/c2UN/zxh6WKZascmBu3K3FG7
cKODOOq/nJOfdrJ2if59lhnaR30X8dL2f+ut9EreEs2Zf9dz0t6qeufKRSMb
POjMcF4II0hpjqB5Brcd+IqZXdO0RV7YuaexHODrv8d+gjZXot7gNq+TKArf
vWKU9pSNnHmTvAvOSdmwP9P+Ls9oMR90RdGDO8P/0j7t+zvVy8gdFgnzS17R
/tp/skcrzwNRhv6GT2kf1+tdxsvtCfdDa8oe0TYWqgm5xToHT7dnVBrt595b
apji52Fb+bLxOm2yL21K3ssHd/Nnq4NpK+cEn6qV90XNiXpxJu18xs+7ERF+
2JRh6X+Q9vqzDn0HB/2xJGo1jzbtK2vu5XgYBUK1Uzx0OW2911Y65nOB6Joz
vbCINmeo2IBGXhAi3R/dGA0lSL/h8JVc3CGoNOBVrqHtWnYqKpEVBk6Hdmlz
2pudpDf7Oodj494L6hq0v0m8f3ZCPAICN456raZ9/JIhh5zXZTx5W2E+EEKQ
Bw2UPKvlr+Kog8TL47QZ89+Xpv97FRdnI3g0aT8vSi8IjbgG7gJVO3Hau8WE
vxkNRuHPzOHIl8EEKeF+UcHdKBaxUW8ub6Xt09J9kXkvFqUCLoM8tLulVVoO
z8XibY8xsy+IIG90jTqo511HhjJfeyht/l3WaYu542Ai4mX+IpAg/3CTwgms
BFhlie5SukSQX6oV03tWJuKj6Fq5yQCCbPNYtWXlhUTk1qwWq6Cd+mFKP031
Jl5Oc31Xo61d/iAorzAJda97zyr7E+Ql+1U/atJvw/5Bh+KviwR5ciXfJY6/
txHU3Pwnl/bBV1OMvdYpCGRSLZa012l2bnoukYrKtx+O114gyHqRSJvOG3dw
vLXI87wPQQbZzjl5PklHc/lyo0fnCNJbc6Iw/kc6Ri5ILLKm7bxi+Ff5ugys
mYov/etFkCbt3SHTARlQN+QX3UNbWv1hmv+uu/j8I6Dx8VmCfLLsVE9EWSb2
U7sHfN3oe67v1kvJzobJ6SRS6yRB7vi8afGdzmzI3swUa3Gi++fyrUlbyEal
5wv+w7Tb9q/dnmmegzeWEWZOjgSZ8NpJKp8nFxbjhq4h9gS5YXB6rtIxDxdm
Je5ftyFIfZ5VJW82FOD1ee0rPEfpe9rkerrLpAAZOlZnvI8QZKFB3caegAK0
1lh6fjUnSOEYuzu93QXQk1jVX29GkL0rCq4OhD/AjWBrXVdT+p/ktBypb4Vo
15bRTTlAkPuyi6LC3hSjNdLfyFSHIAN3N46tGC5GZYpnTf5egnzc1/1P/kIx
vi/vO7KItoLIAl+HXAl8+NczCnYT5LJAw3DxwBLIxDE9f2vT9Y4NB9xXeAjZ
Ywl7HdUJ8gyx3v11WClE41Vk7ikSZE7ujg6726XoCBOf6FcgyP69Blumikux
76nPqCRt04seYyv7SrHQ89LmxmaCVPted9JeuQx24u3mnhsJcnGDle3vj2UQ
sF/mQ0gRZKJXoslqtQrwc2S9vitCkBOO0Q0hxhXou8Nl9FCYIA8cC9864liB
XeyqjnohguTW9hasTKjARgfT0d6lBOnFa956cLICp8Vq/DgZ9P6TxfaEFlaC
0T4rsoGLIAXr47eNyjyC8ViqZ8kkgwwXiFv2SIiF8Z4Ha790MMigjKpHMRtZ
IKx4hVtfMki/nR+ZjloskHNTW4raGaSHnVy5yCkWRGPah7xfMEir6rpjZ+pZ
aLBvt/7zjEEqu4zdXe9WgxPcX45+qmGQn1p1VaPbarHa9dsk930GKan7p6Ck
sR646fv5XTCDfDqk/nLJo0Z8lhe1jl7HIL1ePZeMTX8Gg0P+A04lAiSXAqNk
jXkLvLQC5aY1BcgvLr27lfTaoPgkaUGlhJ+8t9ZafB9XB9w7NVTPSfOT5VfF
o/f1voJL7UYTr6t8ZP3MvugC407MzqY51L1fQlZnHNomVvAGT0Y3629TXEJ+
rE7vrJXtwppV8ZNLHXhJLp+kK4FJ3Wh7YtemlchDrjrj/FV3ogeS23ZnN7dx
kxbdQdqGp/7F78Y4nsJhLjLSx1PDvLkXI59MXzMFucj+a/nbM/b0wXFwe3ue
BCepsfeKLlflB9Tu52yTWb+YDFXRmXEW/gRsOjVzVm0ROdeaYRap249ritcW
datykAq3BDlO/OrHLd+UmZ7gBRyv6iivzxhAxk1CZijtD+7Flo48sfqMiW13
Zaauz2IwjOuHnsAg6kduDf6TM40d2328XZ4PYlLXaZQ/cQpXVEheyeAvqB2Y
1/CP+4lu43OnDih9hWPx9MLBxxPYIdtuIDX6Fduywo4tb/wP0StuzJ9L/gaD
nHB33olxDFncrzbX+47W609vMa+MwPzI9+kejiE82kw9tZ/7BpZ7LO/7wiEI
vFU+JtQxiB17rRICXIaxSto9VCGqH7nKCT8zV43gzx/V21ZO7yHpKX3C7PkI
EgznPdR3duPe6c79OSGjUJFUXeMi+hoyIRSnr/IY3NLyrH3iW8AMfvfWXXUM
fKtnAq95tCA9qCHLUW0MO7s+BpcdaMHqwLh9Jtpj6FSP1CL5WrDcf+dVOYMx
5OnZG+679Bx85y8Jv7Mdg09HWZOEWzPYzkulVK+PIbZnKYPj+FNUmShpU9QY
fNcV5JhfbIBGpi56JsYwt8PZZL11A1iTlmTdrzEYvxfo5CIb0BB/eU/M3Bg2
adu78PA0oLV7QE+JdxxGqV+eccXV44NFvLHbmnHwmX+wHLKtw2K7GRvKcBwl
Smy/1JlqhJYuZfYYj0OimskT0VQNXq4NdnUm49AMS567HVMNRpaJQ8zRcfjq
2trt31ANse/3TynZj2OlhEd9gdljbHI5ftbNl/Y9VlQxqwpGno0hVN44jvw0
2U8UlEPHZ+21rIJx5EsJqZZcKoeGv2+8ZdE4phJ2RfmZlmNDhEpWcxntT0Kl
kXNlWEjOfJZWN46Uh3Fal4zKUPwkhO9g1ziilfQrPk8/hKiwTkwxBxt9CxEv
hlyLwb8i/aYjJxtDfYZNcXrF4JD8kybJw0abyFyP09pijMuWFV8WYOOF/qzw
iswiPFOX6bRZzkb4iuHDYW6FOG/LJSakwEZv279XZ1YUoLe4KdnjCBubr02d
X56bgzJytSzTgo2Bw2ImysdzEPPqXJGJNRuiakxmqWgOdP7b0KRix4a8h0jn
1+BsFCpFjv86w4ZFkljFMvssBBcakRfD2bhVFfMuSz0T8gXdX4PL2eAvma/a
7ngHPJpK7p5VbNxvKm9xHUtF/4uIWbtqNnaaPHb290xF4qjaUt0GNjb8qF0t
HZoCDvnbarztbJz+L/Z5VFEy3uaduHr1CxuCHGX7zZVuwi9naGu8CIX52oAu
te5YtI6GPzFZTkHHuu+Ka0AsJLbKHhaSoODtXvjBZWMsKqpsz0evofDSYunP
6N/RoFp6ay7LUdjYPJAjYnUNzLE2A39QMLI6sOPC2QgUb3Xp27WHwvkkndA7
feH468V3ZlaHQiI5Iuq8Pxwp87rXzxtQ6FO7FzAjE4ZuwboeDzMKTouXnJWa
CIb+thJ7RxcKbXIr73+o9kfSOeMpmTMUeKatI48988O3R+MRg+4UWM09ImZv
fRG8Z/N9G28Kv3gG0npnL4BlmvnDIohCoNY/h66f9QZ/0u4QiVAKc7pfynxv
ncOxvk+i78IpCD1IceZt8sKUvaSa2TUK/6w7OiIm44mt3gkBxjcpPLY8bJ26
zB0Bj1WWCSZTiBjI2Yr8M2hfeJ3RlkKhe7SL872GK5wjBJ/q36WwrvDBZn5P
Z2QmRQjoPKDQfGUJZzXpgIk+2dTFxRQyA2QOjPHag5Rq2tLwkEJrCo+mbA8T
fXkcJtpVFK4EhwhPRNlgefWFJLVGCvsV8llLao8i96CuxfBTCrE+tlr+vebY
9W2ZZPJzet4l2awEXjPYCOWmzbVTmJ6efugdfwgT2Z62Ba8oyK7hu2EybIww
Tay3fkNBO5jszmszRL5Td3btOwoxNY4z2xb0oDmfcdLtPYWZuxW2l4x00HHD
dfO6jxQsLw7ZzTXsBnOT+tirfgrDxzw0i6q08bOGqzBokMIqL8UDJRoaCDd9
5ab8jYLWY8ZUqcAOiA/f3jY4REHiPy+XbEVl5Ac4TcaNUhD9Pd7lp6sILVGV
ch02hYGTJa3i7zfgVd6C96//KJw5KhipLC0FJlrVsicp6LsekjPVEcfPtwmz
5lMUVE491F95fSnCnW1ZvDMUshd/kTj7ZhHEORQDquYomPE3ZSlZsbVr6r63
K8xTSM1a8tfP4oP2/wBGC0y6
       "]], LineBox[CompressedData["
1:eJwV0Xk41HkAx3G3dMhQjk3uo7DCRih9apnJRNsQmdauK+VsYijZVKPwVMq0
yFESzUipJedY1S4jR/Rs9TwT2og21maNvr8UzWybnf3j83z+f7/Mow4G7lNR
UlLyV+z/NzdbWhqnTPC79KXJ4ZCRzfJDBZZFagQW7fVZsf1L8WBLetaMOsGQ
7ZfS3gJ9nF8SPsHQJKCdVmuWWJph94AP4+oigqa/BKb3W6xhVmlXPa9FEBDN
EYjl9niToLOItYRAp/Kbz6JUZzS4zcXeWEqA0HiDG5tdcVR5+KGSNsHU1S7N
QbYHfB512O1ZTiC7eTRtfYcXBiPPT2vpElznCFtq2rxR4ZCyI0qPQDW/Y0we
xkD8PLu2bQVBfqimeIMtE5/OWSUlGBC0/2EIVfOd6ApZ/LTTkEDEL3NpWxOA
PAvibPwFQUhluGvf00CYt96dfWRMUFtlP3UqeDcYrwPTHC0ISpzZeZdXh2F5
rftQjiXBS7tfpCGrIjB0xMRj1IqgTa9TlrMuEgnaU3K+LYFU1F+XzdmLCx6Z
xykHgj1dPVra9FjsUYsZZToq+iSV+Xeci4PFY/8t19YR/HrgRC3/RTyaog1V
drkQ+C1YLnjnHcBzfl120waCZz8rsbYJkrGiosDWzkPR28VPzzOFC9adtIdX
PQlm2vNMV29LQfcTLMv1Iki3CZUWyVPRRHtSGOlNkNzdplrCPwJ+ARFo7yQI
O112xcaNhz6BhJ7FIijP75Mb3eNBo6l1UhZAUKlVECfxzkSGhGc/EUSw120s
vJB9EvEraY13v1V4JOxK+lSUBXqxszh2v8Kr59m1xH1nwKteGf0yhoBdmCgU
aZzFPZFMPShO4ctyklTdPAuXoQ4mEgnmk5iTe9/nwswo8OlKLsGrtzExzlfy
8M8l7pj4GIH7RHfnptX5qC9v/Gx8keDyea1nC34lsDnjKUwvIjBc5d1jUFuC
spQO5kCxoldUpt1jnVLk+D4u5F8iCNa2kBkNleK7d1N2KhUEX7UOjy/nXIYG
wyJksoYgYef1ImVROUKlF+rq2wlmBRnu1cPX8GTQIFhbTPA2h/PAykAAhrhc
Ht9JMObAq38TIIBT8W26VTdB+J+1d317BdDY2vuiqJ9Ay/HAx6BWIe4ULmhm
DBDckl5x4lZdh/omTgRjmuDvd8EjDg01eDVnk98vJTDi8g7PfqrB/frRTtZb
hY+uM22x7y0csg2wDX1H4LSVZ2ozegsTuutnDn5U9JYxM2i0n9D1Rna0VI1C
tUR/LPVUHbKLs4unjSnoRn2I2MhqQGTg5ofJJhRufF8RwP6hAV7L5uVzphQE
UY96S4QN+HAyNkzZkkKFa1THKVkD9nH8rPXXUmBVtZh8FjaCTqc1wpWC57GZ
kf0qzTBX6ht/4EbhoERCv+3YjH/bTupvd6cQ1mtloBfajGan9+lBGymk7nqf
5NPUDGvjwS1xWylk5K6JdIltgfIgnzvzNYVCXk/KiYstGPnRV5jiQ8E6135y
WtyCi5ptmse3URjGfOIaExGSxVwPVSaFm+PPveb8RNhxzD7h9HYKG9enTb9O
F2Gt+3jZMn8KuRUObKpaBPXZst/yd1BI0omOMBkQ4T+hUlAZ
       "]]},
     Annotation[#, "Charting`Private`Tag$9647087#2"]& ], {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1.0814388563390904`}, {0., 3.690456156465673}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.843981903675026*^9, 3.843981928466572*^9}, 
   3.843982141944626*^9, 3.843982850416946*^9, {3.8439830476974277`*^9, 
   3.8439830909677773`*^9}, {3.843983273082198*^9, 3.843983290717602*^9}},
 CellLabel->
  "Out[230]=",ExpressionUUID->"664ef5af-b4d1-4773-bb48-a1fb5f99d3ea"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"2", "/", 
   RowBox[{"\[CapitalDelta]", "[", "]"}]}], "-", 
  RowBox[{"1", "/", 
   RowBox[{"\[CapitalDelta]", "[", "]"}]}], "-", "1"}]], "Input",
 CellChangeTimes->{{3.843819126096643*^9, 3.843819132248021*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"c2ec938b-df20-4457-ac8f-5fb89f93d9f3"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["7", "15"]}]], "Output",
 CellChangeTimes->{3.843819132484602*^9},
 CellLabel->"Out[75]=",ExpressionUUID->"7a8c2bb5-90c4-4aeb-82ef-a923f5a729e3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"2", "/", 
   RowBox[{"\[CapitalDelta]", "[", "]"}]}], "-", "1"}]], "Input",
 CellChangeTimes->{{3.843819136273534*^9, 3.843819141872426*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"f775ff7d-d0b6-4518-90fc-dce2b496637c"],

Cell[BoxData[
 FractionBox["1", "15"]], "Output",
 CellChangeTimes->{{3.843819138334237*^9, 3.843819142061701*^9}},
 CellLabel->"Out[77]=",ExpressionUUID->"60b8b008-7807-40a6-b3d9-1f2e8b589a73"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{"\[CapitalPhi]s", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.843819287998005*^9, 3.843819316027919*^9}, 
   3.843819487895836*^9},
 CellLabel->"In[81]:=",ExpressionUUID->"33e05555-1738-48c2-b7aa-e8fd44cecd72"],

Cell[BoxData["1.1977333837979933`"], "Output",
 CellChangeTimes->{{3.843819312543305*^9, 3.8438193162340193`*^9}, 
   3.8438194882408333`*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"a53b9d58-d244-4548-8b2d-0153f5f04983"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          FractionBox[
           RowBox[{"t", "[", "\[Theta]", "]"}], 
           SuperscriptBox[
            RowBox[{
             RowBox[{"H", "[", "2", "]"}], "[", "\[Theta]", "]"}], 
            RowBox[{"1", "/", 
             RowBox[{"\[CapitalDelta]", "[", "]"}]}]]], ",", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Abs", "[", 
             RowBox[{
              RowBox[{"t", "[", "\[Theta]", "]"}], "/", 
              SuperscriptBox[
               RowBox[{
                RowBox[{"H", "[", "2", "]"}], "[", "\[Theta]", "]"}], 
               RowBox[{"1", "/", 
                RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}], "]"}], 
            RowBox[{"\[Beta]", "[", "]"}]], 
           RowBox[{
            RowBox[{
             RowBox[{"dGd\[Xi]List", "[", 
              RowBox[{
               RowBox[{"NF", "[", "2", "]"}], ",", 
               RowBox[{"H", "[", "2", "]"}]}], "]"}], "[", 
             RowBox[{"1", ",", "\[Theta]"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "//.", 
        RowBox[{"rules", "[", 
         RowBox[{"H", "[", "2", "]"}], "]"}]}], "/.", 
       RowBox[{"S", "[", "2", "]"}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          FractionBox[
           RowBox[{"t", "[", "\[Theta]", "]"}], 
           SuperscriptBox[
            RowBox[{
             RowBox[{"H", "[", "9", "]"}], "[", "\[Theta]", "]"}], 
            RowBox[{"1", "/", 
             RowBox[{"\[CapitalDelta]", "[", "]"}]}]]], ",", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Abs", "[", 
             RowBox[{
              RowBox[{"t", "[", "\[Theta]", "]"}], "/", 
              SuperscriptBox[
               RowBox[{
                RowBox[{"H", "[", "9", "]"}], "[", "\[Theta]", "]"}], 
               RowBox[{"1", "/", 
                RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}], "]"}], 
            RowBox[{"\[Beta]", "[", "]"}]], 
           RowBox[{
            RowBox[{
             RowBox[{"dGd\[Xi]List", "[", 
              RowBox[{
               RowBox[{"NF", "[", "9", "]"}], ",", 
               RowBox[{"H", "[", "9", "]"}]}], "]"}], "[", 
             RowBox[{"1", ",", "\[Theta]"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "//.", 
        RowBox[{"rules", "[", 
         RowBox[{"H", "[", "9", "]"}], "]"}]}], "/.", 
       RowBox[{"S", "[", "9", "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        FractionBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["\[Theta]", "2"], "-", "1"}], ")"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"h0", " ", 
            RowBox[{"hCas", "[", "\[Theta]", "]"}]}], ")"}], 
          RowBox[{"1", "/", 
           RowBox[{"\[CapitalDelta]", "[", "]"}]}]]], ",", 
        RowBox[{
         RowBox[{"-", "m0"}], " ", 
         RowBox[{"\[Theta]", "/", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"h0", " ", 
             RowBox[{"hCas", "[", "\[Theta]", "]"}]}], ")"}], 
           RowBox[{
            RowBox[{"\[Beta]", "[", "]"}], "/", 
            RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}]}]}], "}"}]}], "}"}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "0", ",", "1.4"}], "}"}], ",", 
   RowBox[{"AspectRatio", "->", 
    RowBox[{"1", "/", "GoldenRatio"}]}], ",", 
   RowBox[{"PlotPoints", "->", "100"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8438198342385807`*^9, 3.843820020985083*^9}, {
  3.843820064258402*^9, 3.843820168163731*^9}, {3.843820295646703*^9, 
  3.843820334254881*^9}, {3.843820426504457*^9, 3.8438204458005657`*^9}, {
  3.843820527418583*^9, 3.843820578467298*^9}, {3.843820614988928*^9, 
  3.843820745632656*^9}, {3.843820778711458*^9, 3.843820779687192*^9}, {
  3.8438208872181587`*^9, 3.8438208883219223`*^9}, {3.843821196664508*^9, 
  3.8438213596909237`*^9}},
 CellLabel->
  "In[134]:=",ExpressionUUID->"79242c4a-ef9e-453f-aabd-057c68f68aca"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJwVknc4FYwfxYmIrOh2rbL3yoqUUHgjbxqXRFLKSraskMKrkowkooisyBYJ
32/IyMqIrigaNvdy7ZFfvz/Oc/44n+f8cZ4jYut2xm4bHR1d5V/930ki+Q5j
hEDM1Qpq7uHYA7OTrBEl78xRkJnFuiDeHHo3AuxPXTPF3RIbvWnRdqBlxnTs
4kkjLEYbi9QANyBnDDD8LDNAFXdef4sEb3ixT6LSzuAYjuY6Or+w9Ae2ehdj
/UA9bDekiKVxBEPvoam5VX5ddPEoIjy3vA0itNfuQlva6BSkTNbJCYXJTOfx
OLnD2CNY8mSJGg4eWj6Vd15oYdnImwVz9bsge9fG7bnpQTxax/K278Z9COh/
9fyjjCaO0p31/lzyADS01WsMpTTQiFilmD79EAI3OWdj9Q6gWNZ/ORAbA0Gq
fFxVXupo0N1V1p0XC8HJfmvjb9UwR9EsMb0hDryHEzKIu9SwpywkTH/wEShO
cGqTfVSxwsCbu3U+HgYTzabUJ1Sw7pl2meGOBJA8JU6JtlfBDp1e9kbBJzBY
8XspekYZU+3XDpnvTwR34VqPPUHKaGBpy85wLAk+nj+uylmyHx3P5FsP2iWD
yY56e3rz/cioftVNwCcFrvL6Kg3+UcIjaffDUsKfgdrEzSin94r4ahv9xu30
VKB+H7h7TUkRMeJd++q5NOClpPVQXyogD13o1KVvaSDe/QbFX8rjkPqBfv3J
F1C4NglN8vL41r86vtEtHZIFl036quQw5pLUXbrFdJBu+BqX91sW66vfncj8
kwF0dvmtDbdl8Zv9/Ume0JfQl5ltNC0ii1+bWy8fZc4Ep4zJggsuMhjT8/j0
b44sEHBOMFbilUF9VXL7hbgsODuccFa0URozUh0UnhKywf/s4d5CWWl065Rr
cRbIARtCRSyBWwo3F5StIsVfAdRej/bvksQhs42LZ7NegcVGKPvXOEnk3hyS
m5TKAwH9gFgVAUm0bpbJjZDNh7ohPtkuHQkcZ5weTFQogLvFJQ1FbBJ4ve6S
yOzrAggPPlAwNSCOVd2qlryKhcB4m+yseVMcBZesict7iqCQsBFZ2yKGjVHT
Q/2EYqAb5PaITBFDfZ2H6eWWxRAlY8cc6C6GxUPf3wemFsOoddK+JAExHKm0
02mWLoGLo4cXkoNE8fvIxg8rrVI4RDrPb2khigf6lHQfBJeCw2PhsmlVUXw+
lrMrp64UCFy+be4zIvgbXOfTjcsgk/dDnKqTCAYnyzrmnS+H6B02F7qMRHCL
eFlV+1k5MMvZeXDKiaBP8Mz26uFySDEifjlHEUY1hgXn2w5v4O2KrvfjYGHc
aLuRouRdAdUXJM4GOQphSW5Xjub9t+C2dEy66qAQ+iox2Oa3vYUshnsJ1TuF
0E2h24CTswpqZJ4TN4v3oYT22YX0R1VgQ006/JNpH34VU41nTHkHJ54cVrvT
IYg7NRl+1ufWgFHOca+VXEEkEcIn1KZqgJLZYjYfLojb9pU5JcjXQqMk5/JV
HUEccDxClCushX+Lh4OWKgSwcndbR0opwLBf5u6EGn70Xc3+2DeIsOOUuNbG
C348qL09jraGkLvBc6H0P350KlqksPC9h5fcxuEcp/lRLZAuRMzsPbxw7RI/
NcGHqxbl1qzt7+HuaJvPV0k+pLF1ib56VweDzzMcCjj5UECaj9WWXAev/ltj
rV3hRZ9IpVqe5TpgInRYRLfyYsO80ZOrKvVgv6Y5+c2LF4M7X5+pzqkHloGp
S9c6iBhl93PYIL4BVEljdE+riOgVnpeXXNwAKkEjAStZRGQLD7Ob6miABsEb
kjohRJwljuf7sXwACZubp4fViNhmJVxuHPwB/jE6TvmVuQdTeNLI7faNUCEf
ny6TQUCto/82nVNthgpG4awL8QRcvHbH6KJpMxxiTrXNDyeg4ZlBgo1zM1Sd
rHmS5kjAhvH3D00zmuHdOuOxbiUCxpD82Ka5W2BhJ2lqV/1uHPRevsUz1wIK
XuLidOs8qG2R+HJvbitkn2uMUKHwoNutZ9MuDa1gxWWY4/eTBztSr4dVfm+F
lmBuQ502HrTpP5xxeE8b7KdaKBQ958HNMGoyXWgb7H6RPblgyIN9V5XsfK3a
oewX5XlnBjeKO6lZCe3ohJnzIosnkrixaZqJtCbeCfEli8zkh9y4xUJ+3KHX
Ce2vT5eKB3CjuZMNzfZmJ7CRFT2DTnOjSxMjx6HZTjDzmmfexcCNan/0dElO
nyBZfnEW3HdhrXuj2KETXaBFkgxMdePC0cYCujHGHsg+WTxZ7ciFSqSIh/G7
euBcCNHlx2UuLGn7JK2zrwdSH5q7GpC4sFgy9E6kRg+Mj3OUOB3kwicKQi10
13rgjam+zr7tXEgaoE+27uiBZr1Vk4JjnGh+4KbycHwvrEhUbA59ZUfWrXJn
Vr4+YFRuzb7xiR3Fa4JH1iT6oHXHW0e+D+xou2X+Y0ylD2C/HjmsgB33Zw6E
V5j0wYMoC6mJ2+zYd2fCQiGkD3y/zBR+lmXHy3u9LLxG++CpolXX2zA2JN/5
fuRaUT+06Lo85TDbiYYPXgrxaJFhzSXpQ8d5FswSvZk9QByE9vu/Vnm6mFF1
72XKVsI3CHEzZvrswISPD2kYRz8chlmTJ2Pr+ttRKL1UzTN7BBzTr7jRjBhR
78yZs9U5P+AKRLIpWjCgq+/gsuLrnyCRYhWz7eE2zKhVU9gZ8ws+H5c4/b2J
Hp0cnIq+3PgN8yXdAQQiPXoYm+5JOD4K1wvKR6Ju0aFy3Z9dO+nHIKiKP0ej
cwsGnC1iBGvGoObjKfaXTX/AzLOwwNZ2HH48oNXOVm/CQoCY/L87J+Bdpq1W
RdMGMLf6KDRlT0BePbV1gbIO/ukMK6IqkzBtTOO+w70OIUcZBGJxEiRuhK+J
nFyDkBbPCBadKeAv7W3VT1iFDkONXNfyKVDXPNHu1b8Cl2fsacL7p8Er0d0z
S34Fgl2plvnPpiGG4OX5LGAZlk9X8nhwzkCUo76ZbvcSrF+Lag4PmIFzBySl
LmgtwWc5J9GUgRmoTqoZLni6CGpX7ifQ6czCFtOV/p8si2DEpnndKWkWCsZd
SiJvLYBnc+Ivecos6DtXN7DP0KCStLFb34gC4fQZ6OpAgzLt0s7qpxRYGnbb
G02eh2n9PD8vKgXiuHDz0bl58Ah2kBYUokLRho7nwYE5uGetrqmjTwXYHcxp
SpqD7ye2+m87U8HEXvgLA5kKpqm37x+NpsIl2+bSPyQqfPJ62idQToU3vD3b
g3MpoJPIEe/6l9Nr6z2tUz0LQwdeF6atUWF4RZi1qXoGYnKSk2b3zsGL1/nS
UZ3TUL73FZvJkTlgjYgM+Tw2BfdMomdCrefgSjpZc3N6ErSyo02GgufASuke
826GSVjHjSP3n83BSeZ/NE5un4Al7+V9VrVzcOuO2/awnePg2Mpfo/htDkir
/PQJImMQmZn/KHp9DjZ8Y+McREfhk7/5sqjAPOhyJ+5yUfkNxu4+iraa81Dg
ssd9Xe7v7+46f/z+d5fhj3ZEK6mf0NbQUJnhMw+/A0+cISj/AL94Kq/uo7/5
iJuckOgIsBqkbmmUzEPYDrcz/cLDwDRT4CfaOQ9YM/SaXfcb9HTteRcx9be/
yMlTg3kQ1JWOzbiz0kD9QrjXyhgZ2o+El3hI0UBwqqVmPLIfYnNqQfAfGnBE
RuBJmc9g+gGfhtrToMWVxLU51A3puddPSYXRoLuVv0vgxCfYe9fkQ91LGhi9
LxNQTmqFFEsbtqp6GnQsjVLMQxuBei/2Yt4PGpxq+LI8XItwMNq5kXH7Aiz8
5igd2/8GCAWej6YlFqBfv35E7r90GHjWTik2XoC1Hf60mQxjuNk7LjN2ZQH+
B5OUOZs=
       "]], LineBox[CompressedData["
1:eJwBQQS++yFib1JlAgAAAEMAAAACAAAAtgN3irWqSj9bDNpMDWX0v84SWbZb
8LA/dpOGi3WS9L931hnRdkXAP37G6PKFu/S/0olSNlUqyD8/AhO02+P0vzzY
glCyxNA/pyYOCjgS9b9bbw+XaeLVPwdf3h0IQ/W/To6ZykVu2D9p3vVAaVr1
v14QbiJmPts/ax55Lz109b9uq+ORLPLgP2dLzX6wrvW/QXF1CjuU5D8ec2vn
fev1vx7OlldA1ug/21CkfvQu9r+BOmKouJ3uPzsqCauNhPa/5iNVEHbh8j90
fUw29OX2v8KRJdvXh/g/LgtG7eRv979A0k9B8aP4P7t/mxJncve/pa5GlkfA
+D87+IAY7XT3v0Lan8Ou+fg/Nifc+AR697+Z7dlRgm/5P+R/s31lhPe/gPhN
Mypo+j8pMLEG9pn3v9OqiLlGlvw/nZgxFsnI9788yQEwQ7z8P8QG5H3ly/e/
//+2nKfi/D/L2Gr4B8/3v0CGN0KwMP0/82DfiF/V9798XoEs+9H9P2ugJe1b
4ve/3yKLQn4r/z/m9b+bov33v5CY9eg/JwFAGhyWNVk6+L8ngIt6a0EBQBt3
R9YuPvi/sAWSdfBbAUC3ILDNDUL4vwj0WQ8PkgFAOHFLe+hJ+L+nt9Wr3QIC
QJ8I+TkWWvi/oZyF4Pz4AkA+RjO1g3z4v6iKYaADTwVA+Gl+fZbL+L/6jD8V
UXoFQD8vQoMU0fi/A94483OmBUA2ivjEpdb4v9UTVq9WAQZATmF4HwTi+L+w
IZ2TbcIGQGF3eXHA+fi/ve8m1z16CED56rfT0C35v6cf6h7gJw1A4E5OXEuv
+b9rOGzPU48NQPKeQky8ufm/3BWWVpL6DUB7tGtNcsT5vzk8bF1r3Q5AiCpG
Grza+b9/M1lPZ24QQF8ZZow+C/q/YKi36F+1EEAEkGxJThj6v0Xt98qY/xBA
yt1Omckl+r+4RgcI254RQFf1l3UfQvq/sap65PwRE0AlAcPzO4H6v341E8I1
fBNAu4TJIJmS+r/ojCDC5ewTQGFkJl+zpPq/bmUppoTkFED4VCNfYsv6v23C
Mi4MSBdAY0EmcBQl+7+CGKKVEgEYQHfzo/a9Pvu/6v6hzszKGEAF4li+Alr7
vzZN2sGvmxpAG9jBMj2W+79FmGd1T6obQB76U6vAt/u/9trpQRPZHECO4qR/
Atz7vxbw9y3WtB9ApQPzA8Yu/L/tD23dtLsgQCwSSdGrXvy/4EPOFQTEIUBW
sGg4O5T8v/56dJMDACNADjdsFOrQ/L8//l0k9YIkQO8ZDO3RFv2//T+t5Ntr
JkBvwSULH2n9v+AIa/Wi8ChA1e/WofDM/b9zQVvjo3ksQBy+blpXS/6/7YF8
6y/6MEAhZc7xwPb+v27SCiNVFjZAp8Htbq3+/7/eDfDHuulCQBCWQjmwXwHA
6Usap/TNaEAMrBIaZl8FwA3sMX4=
       "]]},
     Annotation[#, "Charting`Private`Tag$15119874#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJwV0vc/FQofwPGMonKulU32TIh0Q0IqMyGkwU1IqDhEKnJFaZDZpOhcIyMK
hcj3q8yMg9M9iezVwdEZdsZznx8+r/c/8JE/G+Dozblhw4aK//q/HU9e+0yI
hGPevZgmyh+iYNM6dqekygXbbEnni1JdoGuuKtDe7ygOVlpyvEzwBuZSmrO7
nRVycI3RMq4FQPGzXXIjZYdQjM9K4cSjy8CQCBnwPmSOdq2Lb0gnr8IJvpaI
g+FmqJFUcpT0xw1QtLXXXZY0xfv7Ln3JOBkFr9qcCHLrxhhR6vjXgVfRsBSf
TkrZsQ+XnhHVlhm3YNWiLin6pSFmqMyST+nfAb5qC9+MowbIm26k3BdyD94c
fPyhRX0vFkRdr+kriYPWm5ErFqp/YkLiqfzC6QfAf4DLMcVsD5oICGg2JCXC
yif206pgfWzwOlzUU5AE6cYXCyYrd+MjAwmjwrpkYCy0hUsI7kYdVRUe+x8p
EO/zyqQ3VA99Xr8v6malghPZW3wvTRepTms5LryPwCDrg0XyOV0cqBV93C39
GNpMN4cn03fhsabBF/46T4C4K0BJImIXnhtQT5Qyfwp8lSvmQiU6qKhpvf7b
Ow0yKUO53C46aOYjI2oSmg5Cz05vG1nTRtWRnzfrbj2HvCPcxsRaLXx4mPi6
lJQBkuG2mUHaWpilsOu4iGsm+BsXOC1l7US9VV7nyP5MSHcbltDK0sSgFUqq
7+RL6CxLjO3U1ETVo27NMwEksKzIixn8sAPbokV8NedIQN1oUfx+TAPrArfu
+L72D3TfKD/dEaWBn8UGtttGZ0Hg+Tb7RXkNlN3poBLJkw3y9Mwc34vqGBbS
Rd/BnwPyVyuq94mro6vXzbJXyTkQb3nfTKdBDePkQzKmRHLBY23+Y42GGs5l
5Ug2S72CigZCtIqQKmYMrL7jUs6HTT+nNt7vVEFa44AeJScfeB4Rt9CTVdBx
o3ojUa0AHlfzZhySUsHn8w1VsjsKIdX4hc+4iTL+e4tZ5KxVBL5vdZMa+JSx
uALmy4qKwOtD/xbOXiUcLt9/j6ZVDLvZttNHryvhwcKaBD+xN2BklOvR3ayI
gZHRpp6ibyGfo3AqO10RgxYGuSxPvYXA0/pqjwMVMYOVcko08y3YHc5NeCel
iOmm8suB6iUQW1C+rSpCAZl0ermyUSnMrVbTrroqoOG84qJ7ZClEtWfqEXYr
oByRMh39uRRSv9UWJ9PlMSGB8i3Jpgxi0/JtXH3lcfywT+znk+/A5cC9tnkr
ecwyCDxy5sU7iPu5kKa/Qx7Jk0c8JofeQYIbNSzylxxy0GPkGs+/h6Arj//A
G3LYPtoblBtSDsG3Fr/2n5fFtR2/VBTjKkHghrSxjKEsDj19kZ7TXgka1URT
eT5ZNDqglSAh+AE4U6uYXiXbMSyn1qn94Qd4S5JNcODZjovPD0qHvqgChzi5
f1fbpZFv6649XYUfYermvYaQfGlUK/O65DrzEa4VWLoRb0ujadH2CLJ2DUR/
Tr8wYSKN26PqziSW1ADhfNpYZIUUcg4UL7mXA5BPbinfWSOJL/0m6DIDCIGM
rfEPSZJYSWoMsFhF6PjN4WEXK4lV2rVlflK1EOPazCp0kMTiTQ5PXxyvBbfl
EyFzNAlMTB0yqSbXQpf+O8oDVQk8OxZ+sKvmE8TvTYnzFJBA5sHxxqc/PsGZ
eLely0viqDlDszi1/AmmOY73W7WKY4wMp1Wr/meIlxkryrwsjjS/rc/OFX6G
RkO5cUOyGOo/O51040kd7PnDxutClRg2BzhvmXhXBxJvWj+25ooh14nJLCtK
HWhzB2uKRYmhrg/34VVCPchtekAHfTH0O9l5bnt0PSzq285TckTx656qQKsL
DRAt5Bm8N0sEQ9439FgbNkEIYSj44kMRdGPzyfq5NAGrMEILbotg63LdUHRQ
E0SbuXiW+4pgCzFzNCe/CdJeL0gxdUTwziU7er5kM9S694iY1W1DbRrxbMFS
M3wzmW+0XxHGUKX9aQmlLaC77bLtLYYw/pCIOLLe3gLKS8MP2kaF8aDW5Vu+
ky0gXlMX/KRNGDNXiLd3yrdCDGF9TjBTGBOtPFuCH7QCr1Oj1HlLYdy6O9hu
yacNFvxHz53LFkIlMSG9CVEybCpR0hl7JoTXfmcnT+mRIcp4d/nlRKH//nG6
RrMng+XgHbv660Jo/eXtYOc9MnCdsWWrHhNCysSvdac1MrxhCMeRuYWQL+2q
tFBQB5xaPOyQGySIpbF2i0TnTmiwS+ruJQpgvS/BzVeIAv4ejzt/+wkg6xrV
eJcsBQpHTg0oeglgpMh+8/kdFLgYs75030UAH5b6Vl05RIHI3m3XPxgJoKZe
h5trGAVOJswVRvMIoNyImUNiHwWShn5wt1ny48gAyaQn+yuQatL98oYISMnQ
JnbtpMKfmfNbLKgE/McNTccMqZBqsqmO8YWANoypN7MWVKDYnNU4X0bA5gSt
4M1nqWAeYX1tNJaALIbj31seUaGixtudYxcBaUcrGv1WqZB592GixX0+lDX5
mpTV/A3upli88z69FX08+AK4Xb/DtNCwVd3ZzejF538xzuQHXGAEsDN7eXDB
3DV/obEfyhpJwTqXN2H+zWv1kwWDEJa6kCZ+bCMuKmnUcDUPQadaUOi3E9y4
x1i1fqltGGqGN8jy+3Fh8tCVrOZ/R2AswdWo5SUnilbZ8ypXjYLfRt28uj4O
9I6TTpomjUHjl2FbcW0O/F5rrdMfOg41L593JT3dgDlRhwU7tCegqsI8h8K1
Af3zhJQ/TU1Ab1SQlRH3Opib2HqdTPwJevaxu/nXVmH4ttje5T9pIOzCe8yB
sAp7lUz6i7to0GvNR/posAL2A2R1zlOTsKLPT+o68xv8DjEX+sYnwfNYhGBe
5jL0JD20yTk7BQ+b2/eMTy+BojOvnQ51CrZM8zpG6C7BcdIvgcdHpsHz+5Wi
mvuLUDxEc50qnwabu8umvP0LoCW46aW4Ch0ULg2udBosQLj1nMyjeDoU0i+4
l2XPQ/v1FeKRSTpU802trW+eB5K9IDfBZgY8HP9uagqfA0L3QKEEaQZ8t1JV
yXOzILLXLY80OwMHDFzE287NQjjLv97R5hccpG0INR1lg3sF72L101+Q4FBw
5MYJNtg5b75tPf0LOku+2On1sCB0a/46SYoBYy6eb83+YsFYiuGFGyYMqBSX
uVbUy4R1bYWyMG8G7BNVirU5ywQLmqO7wh0G1IhsVuceZEC7r5kxvZABT747
Jsl6MMBKVLXUtYMBQX/7z/RQfwH/ISkFCoMBVTY/fqR1z0AK8bf9DWEmODEk
Sj5O0WGtSF3fR48JKk7V1CdcdIjsCxixc2QCp7pDjzvPNDw7Lm4UFswEd2dp
P3OpKRjXc74vk8yE2M3kYCHJSegzuC/HX8qEvqwvLIoUDYbVX9zSpDCh3qud
o1LzJ7RkOtgvMJjgYaTO26AyAaNhU83KgiygXOayOa09Dmm5EoOS2iwQv/66
JV12DHyDAlgxR1mg2lKQkygwCoJSOwOOB7CgwjZ7uy//CHDt+9oqEM+Cndns
Ak/2EFhzp7S4v2aB7/73p2F0EDgLrvNkt7BgTWNCIL5gAAyym0ihNBbY/2X+
4ZNDHzQ9IP/esIUNU+mk+W7BXsjrnal/pMYGtS419pPEblgr/+7EZc2GfPfP
XyV4qRDR7KOj4s8GDz+ujrInFKgYL/vpcY8NRjFa3rn9HUDdGzmRXciGwA7u
zp6wVjgjo2XO18YGw+59eq1yjVDxU15gH50N/3CVGPJI14JDWWD9a4FZMDUl
jdjcfQ8ijm4ulrqz0NdXOZKQTwKbK6ejjh+fhevV0QbSxdbwWYMpdS5wFv4H
1vk7tA==
       "]], LineBox[CompressedData["
1:eJwVjnk4lAkcx2ccQ4eMIVTUIEVIURbJ+ys1lVyxzrCOGORYspVCJR1bykop
ke3eDtFGSaXfi6nZaoUlkXUlNY8QmjHmncPaP77P5/k8z+ePr1FEkneUEo1G
C5ne/7T41c9utMKVOHz78IXjyULM1RxesKD2PpG/Osq46ZIQDTJslznzkYja
Kyxp5AlxSJtTW+3CJ6I6Y7+oDgrRlrOkNOlBI6HVyRvw1BZhMUsdkp1aCaZP
UPSgkwj95vOqEt3aiN6PJq86PEU40GgRV5XfTsRduNbE2yHCzdEnw30LugiD
EX1dxzwRpo2G1Mzc2kcUNwKd8UyE/PqhQMZgP+EGC7leX0TYduTEW1Lymdjp
rnJvVG8CnYtUyjdqDRK4T2ux5qYJ1LQ5oHu6apjQNUxW3pQ+gWPH7qb0towS
7c/5xvSKCWzK693N/TBOdBV5TBUKJrAkpnRxipuIaDYM41KmYtx/sewErVtM
+PgX83oixHiC3uU86zFF2FVJeSVXxXj1fZzA31VBNM87oh0wLMaUnOEnH+bT
YcCFxyxwmMRFv505Gn1XGT7pcpWyzk0iOVf9q/stBlSykx10xZOoIjm49lnS
TLCoVAvlRkvwpIEp/bYWE1yqvmvOpyRYR/S+ub6QCY7+NZYnZRI842Ad+siC
CcrW67sUCglmWEPHAg4TXN8msEaUKfzuyYoQ72eC7b3ug0MaFOZ/f2a3fIgJ
/dbxQUnGFOZe/zf+da8W5LWdValzp/CxRSONNaYFBrNVC/O9KCxhWrak0Vng
fItTE+NDoU9JzOhdYxbkx1Z2GQZSGO5+7MHNaBYMjtOuVe6gMCt8vWWkiAW+
ntunLqVT+NlbJBxZqQN6P8UYVpdTGHarXJ+1RQc4TG+z4AoKr8aVPk0O04Gc
Xqsg1arpvmjLm8FcHQhuP3467vn0PzZZ1j+mA1Zz5O1ZDRSyvdBMrX4uLLMU
vKAPU8jNKfn26roe0IObw7RtpPi0GQIdX+qBAzH0R4WdFIkbjHwDgR5UrD7P
CV0jxR4zFSFY6YOPboB3ywYptlmvq/Wv0YdqYWnc+gApqm8v6MkWz4OCcJZ9
zCEpOst32FuPGcBGvxhed7cU2/cQF22XGkLA7pzGFQNS9N5WHGMfagg61PPO
gq9SLHrXY7ejcdrV32temZSijR+tGXAhhJ56wKvRlmGx72iQcxIbnNolZaUe
MkzqjYy9c5YNqZ4lD074yVC1Zvy06Akb3MxJ2+OhMrxolGPuPtMIxn0ZLQOJ
Mvw48M7J4KERjNQHHt2aJ8OiOaph/hwTsD+rv0DSJcMrDlp9HgdMwPmQVUiC
QIY+Q3xjjScm4FSYwJj/XYbhDas6YfViyGsgjyyZIUeviezdpRtNYVaCSf92
ezlODkeVi3NNwa9vlfnHDXKkZ2R/nNVlCrSmz4LqbXIsHJzZ6npwCWiz16xO
ipcjKfdgeI0thTdR0rYDN+XYl5zpKfM3A8+LTbMXPZLj2vSAz2n1ZiC/xuav
fSnHfZfHtx6+Yw6xmVdZBgI5nn96KYvOtwAGbbdDlq0Ct+1J/tE5whJM15St
hM0K1MfLm2zUrEApjhfQG6LA1HFGw7WU5fC3p+veeTkKzDI0vjxbvgL2tZ6L
4ooVWD7YcU6YvhLeZs75pKYzhQefu7wQqtlA4j/t1oE2U1h743VGDMcWgqMW
3RhOncLIh2d3HVXYgkhiw6kpnELfdZXx29+sAi58igypncK07CVfTR/aQbn5
0soDGjSyLafV/H33D+BT7cA1W0ojk1b2pxrZO8D9srQt511o5Eunjl8MGx3h
vGXm3V2RNLIvbbEg47ETGFfUSW8eo5GshlOXTHQICJ7c05D9J418tn+nqcms
dXD0xc8mPf00sr80jSvQcIGWlvQVmWw6uatYVxz+bSMU/L4qa30inWT/xZ/U
y3UF3pk6XbMPdDKfu4G1f3gbgEaBmH9ciZzh0T5GDEXAEV5C0IpAFVLlFSNM
pe4QOJ6iH6unq5P/AYBX51I=
       "]]},
     Annotation[#, "Charting`Private`Tag$15119874#2"]& ], 
    TagBox[
     {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJwVlfcj1f0fQK+tskX2yJ7ZM+4nQh6iECUZWdkjMjOTUDYZmckKjz3T641o
SBFFpDKys8flUt/n+9P5C845/De9TBxJcTgcIwkO93/SnyB0RzA9RDkOY5of
sYOXf+N+D220OiH1We8e3p9qkMvgkRflZIPoS4g9HhX60EvFu3LR4BoqqsrC
VXWYQOtqwxWt+itI8uM/BT0RV2H5eHABg7Ypuj0FXZJS1uDbpl8iHHwZ8X0c
jeCcsQNhFSUpKvZLSBbnz1xV5gB81J5dYcSL6Ab3pFa4ozPIKmwySIgaokma
Cd8QblfYHRn8/E/+PyhNNWDr8qA7SPVKtiQZ6iN+nXXLpDAvUMho6vwhfAG9
pRj5ZXLSB4yPArxCBPXQnf3YySBnX9jhImub1tRFUX4nDGdbb8PLQA8mQR8d
9GTU70QjtT/wf2t+69JyHnHIvDSgtLgDhaG08tV051H03GDA9tMAWIgX6Y/0
00Zau40z6WuBoOvlsrU2p4XwlddNiarBQEKTw2PpoIVefY53UI0OAbKwMkGX
5XPIX0V9xro/FF7qhjw+Cj6HCm7k0wYzhcH1AoEy+loMOU1yr04ZRYASmZQN
rRmGMoRwYeQbEfDvsMnXY0Q8emPHFtWaGglaZXaK0KmJqIvP1s6NRME56ouV
nyQ0Eddg59It/2jgKnr7wLVIA7k+933/kOUeuLOrKkHhWdRj59PcZxYDBmMa
UT5iZ5FKQsvA9FYMRD4Wb0lsUUe29r6NVan3gdMg/VH4tBpyqIpmN/sYC6H+
2z3PwtRQR7OnkZLHA5BUqHr1lUcNRZ4+2/fxeBz09yx8t3NVRbkO3x/J6MTD
RQJDB55FFTU8ulRMnIqHfR3bUo0eFXT+1/z9mLAEoDEJnP8hooKU7pAbfmt+
CMwnL+W40SsjdkdzTxBMglL/fa+xD0qouuSGwXNIAq6nQ/FayUqIIaG5WEYq
GWgc6oor2ZTQlr87fdbrZFBaOmK5paGIHP/ouqoTU6DNdGLf6Lgi+uFXV7eg
lwqRBjPkKWMKiCS7hyY8PRX09q0ylgMV0D+KNypvSaVBxVe9voTX8oholOWj
Zp0Om4c7zjY58simyORkQW06hNgx55h7yiPOoZwrK6QZwGbL9jCCXR6ddU82
1SrLAHkKt9e5IXKo4aHo1NxqJoxzRb22MZdDcpQLSrnYYxgKmhMgyMqh36mD
bOqpj6FZ4jAsdlkWlWxI9mgqZsGGyctRG2dZZCRjgrMOzoZ8wtNR0guyiGCW
dyqgPxvELvUx6orJol8u/pRhXDkQ8TQ1Jeu3DOpS8XIzf5kDc1J0zxdDZVD7
JzKiMskTWOo/NuPpeAZ96lmrWo3Ohyxup8BGpTNo1PSVHG4kHwjyuDSgPoMW
d3xXSAULIC76rjzjv9IoM5O24ltPAWi163azkUsjUq6kRd/IQpC5q1Gx1y+J
7rXNn1eBIvhCfrHCv0wSDXkMrQ3PFYGydAoWEC2JKEO5bV3oiiHv5l+R/bOS
yGvZ42PkjWII8H7VXN4kgYwyZxJdicXw6HHWw6gOcRR6SW9WRKkEyjlqLNcK
xFHp4Hm6AcsSMD5uz1N9TxyRWhnGeYSXgIuITQCLsTjKGN7MKnxTAo1ffkv4
zIsh68hvAoOWzyBIeSb/jJAYuuhpVWQVVgpnP2dPUtOJoSf3Olk6ikthmFnv
Hc+eKOr2K3dkeV0KkVb5eYdvRZHimazmTvoyoNT0pnb0FUWiZI9WJgvL4Kgw
KJJ/QAQd1rd+vtldDpWMu3IWbSJI3LDMLmquHF4XeHZ0PBNBEuQMKvnHK4A9
WjeELlwERefSTr4zqYAlQYqa1/Ii6JZ9Sy1hugKGr2nPE0uEUUmfdsJz0udQ
M1rjkl8shHg5n3Gk4ashzimbbzRNCPkTBN3TblaD69ClJMkYISRMTjGQHFMN
zqxpQpK3hNCHRf6BqP5qeCm6ft/vjBDa7ZdROm9RA4wpHL5T3YLo/rI+Jeb5
L3SaPgMxogDSY39myDFQC9i5m112awIo/1oDzut7LezNQXj1jAAavdjo171W
C2aypVfD3wsgJpbkYkemOvDsEG2kLBBAsYGk+DyLOnAIuWgeqCeAVN0oOz5N
1UHYsYaZqpLTyLmRV8R2px5IpuRNz+ScRhPTxjfIqRsgMbU6vDvpNHLbXDUs
42gAYTknG46Q06jgqo31Ir4B7rDUJSSYnEYk4iW+1vENwE+4zHSJ/DRy1/qW
S8vbCOXFxfp2vvxIyD1KNU6vCR527sTWuvAj3OaIFpVlEyhOhFHQ2PEj3YDQ
M/fcm+CoiMVw3pgfsefbtwSnNIGQTPShhDQ/GksxKLKcaII61szaLyt8SNQp
Y2TOsxnou+kQlS8fCg3nolXJaAGLRetjEm58SEuoZ8WytAV2l2ydzR34kOqY
1kZoSwtUCtie7jXnQ0lpA24vv7YAV+D4DO4sH4plHlJX5mkFruUHmbNUfGjS
a3ERV9YKeZd9Vgn6vOjIN/Hafksb/GXyNaLV5EXluRPypG/bIJF03V9ajhep
XDu8cHy8DTbABGVy8KJEOmVhtsM2qAwOGjpc5kHaLF86xbF2IO0YPkGTwoMO
MfZFiTftIBLXYVw5w42QnQdWPNoBesz1UsZj3Ig/obzxz2IHKFauCOIGuJE0
w19zy8MOUMq9fOx+MzdqCK8Sped/AXveRla88dwo6k42k5frC4hg1HG4I8+N
fKgNU6mPXsBVURE72UQuRLJWVVjK/xIWKleD1W05UfM9ySYLBQT9CZSk0Rac
6MludJm2BgLyIkHtT0ac6MKfm7pndBGoSKX1xmpwImnqkniKqwgof6olXeTk
RDVrWfI1IQh0jPUL1cY4UKxrjep6N4Jf4bmeJhYcKJTq+ROVy12gIdQa6HeL
HSlQX5adc++Gd/o9k1/s2BGDWcULYf9uKOAdI9G8zo5MGMqOO9/thvQvQt4c
RuyIik14be5RN4jL5OqeUGBHP9/Kfp+p6QaF8EmyNzh21OtM7/dpvRsSt3bH
HuSxoQ+ss37Rfj0gQTLKyDlzCjmt7rOfDXkF7T6ZXdV3WdGPdEVvlfo+6Lfv
dI+zZkE6mvo3gtAbOO78muG880kUUS+89L3rHWQcC01qCWJGrXfsh3xX3kN2
ZMCVvAYmJDavQTaz9gHCHj0xpdhkRHF0A7euJA7C2ns5s2EdRnRS30rzdf4Q
UO/oF9TVM6CUxSge+SefIKbepuopLwMKT449710zDKwu4d605+gRY43sqYXq
Ecj+W2nQhNEhz6BQZp3uz6D0buPt7BVaxO18eUJ16AtoGJQuUD+gQfc4QtU7
B0YBC6yni206gRIuc1Eb/RgDA3dlwiPicfRMxTb78fevsBpV8I7O6DjytLpK
+2FsHH6qsGc/zzmGHi94a+IXJqB2cDu2/oAagZ3Rx7xf36BWOnQgxYwaSUvl
hV4nTMK/d95r0LdSIVFterl/KH+AkrT3JysJKvRmTCxbhOQnFGOC0XuPKdHG
o6KR/bifEKkYv97NRImsc69enzk2BftUIhzTaRRI6ufw8N3YKSD7u7a1TkuB
6Chk/tAyTIPjndw0nnRyZHDcW7g7aRpwDy7Q8zKTo5KUV3MPOWbgQ5uGs1oe
GXLYPrCOeTIDVvjCmF4JMsQqbLZjyjUL45MkTv31pKjgMkbwLJuF043DHzO1
SVGtzlgNiP2Cir7IuvL3JOhzTJ3nw5ZfcPvQK0T1GglSLE4TvaX9Xyxd5ifC
VnHopEbwpfC+OajUU2tODMEh/5XGKrsr84A2eK16GHBIpc7+64OJefDRTg6v
vPQXqtQ2+4dsFoClsapDwvMPeClvBOmuLwAdR9a6X84RNIzjDCgCF8HKsrDz
WOMhxDOXM1+gWYK2NVE6o0EiiDaJWjIVLMG9vpLnJAcHEM+4uycltgyhx/jE
p+kOgOurhqQjWoYTkcFfNWX2ISzn6iCJ8QqwsrNRv1UjQLo/x77u8goYfwgt
enZ+D1wD1YSe3f8NFwR8Gh5d24V6R/nxCPZVOIW9lik33QEL7wBn8o5VeO2R
+8HZYhucqiRHFM3W4K+Q3nyZxRYo9x3mTK2sAZX0jp2k8iZceiQ0//6fdYhE
A5tD3BtQkfTbXix3HSi+ldFkta+BVvlcnM72OpzLlKTv5f0NBy+uWLMabcBb
5+7cd3FLEPKyWEK7ZAMazENPG8XOgzmft3YX+Sbc5+q9MREyCxV2buGyNzeB
ydqDi01tCoh+qfkJXZtgZf/tunP+ODzT9J3lkN4CEz3MXtPuE/REyP81zd6C
xMInl0mkEbDIK7pMsmzDGvuV9V83K/GlYh2M99K3wbHNXPhweRDfd3XfRZFn
B96oMt2upp/GJzvlrqm/24EVH827r1Sn8XdZk0iJ73fgQDMl5KTDNH6fQ/fM
i4874F/I0mDXNo23mtpZOP95B4hD1ILdTjN4Iad2R++fO8Bq6zYqMTCLtxic
wins7QDHQtdKx8A8nvKmfWGG8C4oU5jp6eMW8C1fW4OLxXbh49zYnIj8Ap6Q
tS1RL7kLT8Lalr5lL+A7tehkx+V2wcEiulPLbRF/JWw77yJ+F0jCmi9t8Szj
iThe6bdXdyHznoI2+rSKHw/I4TdL3IUbqvEeDKfW8IFdGu6nUndhcZFCYfP6
Gh463YJ/ZOyCYuvzydvza/jhnnenw/J2YUP95sjXqHV8ToxExF7VLgxk4wY7
ajfwcnIPYpfe74J31uhvTfNt/EsazT4Xxj3Y0q72sL+3jU/qpVpaYdmDyWSR
/7a/jZeTjm0O4NiDsxFRSxOMO3gFhZiPJQJ7kL2Tq3b4eQdvxUeYsFXaA71L
dE1fgvfwzeH83lE39iAtjX64z4SIF7wd2NzZsAc0N9eJDZlEfNj3alaftj2g
LlDQeTZBxE/ILqnKwR6M61mS1d06xLv2K9L+eLcHm9eu4/WSj/Cmd83sV6b3
IKlSp7qeDocVSAp2SbISwPONzeiwGg4jjD6mWuQiwMCHiu1eZxymmyzT2iZA
AHuNEUfVVzgs3MWuOEeWAI68f94pPyDBLG3p6NyNCJCYkRr47TwZNoIru735
kAANchPN56LIMI329Ur9DAIInLCX5+siw1qGqeW78wiw16WwGK9Njom+KyTh
+pcArrgwn9M3KLASiudkWcMEOPmLLdGNQIVlv7gPwkL7EPTKVJNgQY1N1GqG
Gv/ncalTgXVnOzVmOF7V26K+Dz/o1I7a449h1znmOkxN90FN/miE9foJjJH9
6Sbf/X24K6pEbCJnwGpCGtvv/9kH2/RTTMiSATOU+iVR/18nCkv95OSbGDBc
SW+NG+8BLP9yozoMZMQEM2sEG7UOoILE9YaKATMW+7TpHFvqATiNqnBGDDNj
9FfOqUuVHwAWtPMj3fEk9k1irM8UDuDh/Y4h5yoWLC+zesRg4wAkvIp+jB+w
YR/O8Iy43iICb4uQTTkVB3bLmCwqLoEIDqEPyZ0UOLG/rwV3A+qIUDn7+1Xt
CR6MN0bn+zeqQ5gt/QQM73kx5nSWwT7VQ9DSllz0/s2HsXFcFH/kcwhfGwLa
31YJYOJq+tYJ+4eQl/GklyZbCEuaf1robHwE/puUB3QioljCeHnFdMsRGLNp
fCd/I4H9eS/MekLjD7QnveQO6pHBpmq02Xa2/gB/wNDcRTsl7LETw0+uEzjE
tPtdWa1dB0vx1nev8CBBMQPBam+C7mA/VTSmztdTov8BqbTVrw==
       "]]},
     Annotation[#, "Charting`Private`Tag$15119874#3"]& ], {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  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->{{-7.7956157916985465`, 
   4.688521322387839}, {-3.0008612201069385`, 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.843821355321394*^9, 3.843821359977265*^9}},
 CellLabel->
  "Out[134]=",ExpressionUUID->"9e7d57d6-efa3-474c-ad30-e142da216a92"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"S", "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.843820567123662*^9, 3.843820567586446*^9}},
 CellLabel->
  "In[104]:=",ExpressionUUID->"e2ebf167-6996-49ef-9ca3-9dd16132c4ea"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[Theta]c", "\[Rule]", "1.2113984981855266`"}], ",", 
   RowBox[{"\[Theta]0", "\[Rule]", "0.18040968433960122`"}], ",", 
   RowBox[{"AH", "\[Rule]", 
    RowBox[{"-", "2.1295236147887016`"}]}], ",", 
   RowBox[{
    RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2447338967832837`"}], ",", 
   RowBox[{
    RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4997458274069301`"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.843820567743414*^9},
 CellLabel->
  "Out[104]=",ExpressionUUID->"c33b6abd-b8d8-415e-b881-93fd6c52f0db"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"m0", "/", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"h0", " ", 
     RowBox[{"hCas", "[", "1", "]"}]}], ")"}], 
   RowBox[{
    RowBox[{"\[Beta]", "[", "]"}], "/", 
    RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}]], "Input",
 CellChangeTimes->{{3.843819332197076*^9, 3.843819353348621*^9}, {
  3.843820821640896*^9, 3.843820835136125*^9}, {3.8438209702351227`*^9, 
  3.843820974739016*^9}},
 CellLabel->
  "In[120]:=",ExpressionUUID->"e153916d-9f1b-43b9-a6c4-f59eefa45d16"],

Cell[BoxData["1.2775821852263383`"], "Output",
 CellChangeTimes->{3.843819353571412*^9, 3.8438208357193813`*^9, 
  3.8438209750052147`*^9},
 CellLabel->
  "Out[120]=",ExpressionUUID->"ca5cf147-c698-4d49-a753-1cf32997e5f5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[CapitalPhi]s", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8438209840375433`*^9, 3.8438209924910793`*^9}},
 CellLabel->
  "In[122]:=",ExpressionUUID->"c29b0035-e029-4b18-8ef4-ecd12fb49333"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2", " ", "\[Pi]"}], ")"}], 
     RowBox[{"1", "/", "15"}]], " ", 
    RowBox[{"Gamma", "[", 
     FractionBox["1", "5"], "]"}], " ", 
    RowBox[{"Gamma", "[", 
     FractionBox["1", "3"], "]"}], " ", 
    RowBox[{"Gamma", "[", 
     FractionBox["7", "15"], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox[
       RowBox[{"Gamma", "[", 
        FractionBox["3", "4"], "]"}], 
       RowBox[{"Gamma", "[", 
        FractionBox["1", "4"], "]"}]], ")"}], 
     RowBox[{"8", "/", "15"}]], " ", 
    SuperscriptBox[
     RowBox[{"Gamma", "[", 
      FractionBox["13", "16"], "]"}], 
     RowBox[{"16", "/", "15"}]]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Gamma", "[", 
      FractionBox["3", "16"], "]"}], 
     RowBox[{"16", "/", "15"}]], " ", 
    RowBox[{"Gamma", "[", 
     FractionBox["8", "15"], "]"}], " ", 
    RowBox[{"Gamma", "[", 
     FractionBox["2", "3"], "]"}], " ", 
    RowBox[{"Gamma", "[", 
     FractionBox["4", "5"], "]"}]}]]}]], "Output",
 CellChangeTimes->{{3.84382098702094*^9, 3.8438209896475677`*^9}},
 CellLabel->
  "Out[122]=",ExpressionUUID->"a77b28a6-eacd-4614-b43a-ed39428597d6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"datCasM", "/.", "m0rule"}]], "Input",
 CellChangeTimes->{{3.843803230256878*^9, 3.8438032333117857`*^9}},
 CellLabel->
  "In[195]:=",ExpressionUUID->"40438766-386e-4ef0-95c5-bb36288917ef"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1.2803840363806758`"}], ",", 
   RowBox[{"-", "0.08312876211833689`"}], ",", "0.013329954661202004`", ",", 
   RowBox[{"-", "0.0019834846485221125`"}], ",", "0.00005580926915319621`", 
   ",", "0.00011134671023551035`", ",", 
   RowBox[{"-", "0.00005191912354628053`"}], ",", "0.0000129868232839969`", 
   ",", 
   RowBox[{"-", "7.456745384784115`*^-7"}], ",", 
   RowBox[{"-", "1.0845467513314156`*^-6"}], ",", "6.211171366695239`*^-7"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.843803233497788*^9, 3.843803242894781*^9}, 
   3.84380334832369*^9, 3.843803432165793*^9, 3.843803588716037*^9},
 CellLabel->
  "Out[195]=",ExpressionUUID->"462d7199-fbaa-4949-8313-776399b35c4a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"totOurs", "=", "17"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ds", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"invDerivativeList", "[", "totOurs", "]"}], "[", 
     RowBox[{"\[Theta]", "\[Function]", 
      FractionBox[
       RowBox[{
        RowBox[{"h1", "[", "\[Theta]", "]"}], "/.", "sol1"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"t", "[", "\[Theta]", "]"}], ")"}], 
        RowBox[{"\[CapitalDelta]", "[", "2", "]"}]]]}], "]"}], "[", 
    RowBox[{"\[Theta]c", "/.", "sol1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dFRegs", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"NestList", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"#", ",", "\[Theta]"}], "]"}], "&"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"RFReg", "[", "n1", "]"}], "[", "\[Theta]", "]"}], "/.", 
        "sol1"}], ",", "totOurs"}], "]"}], "/.", 
     RowBox[{"\[Theta]", "->", "\[Theta]c"}]}], "/.", "sol1"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dF", "=", 
   RowBox[{"dFRegs", "+", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Piecewise", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"AL", " ", 
            RowBox[{"m", "!"}], " ", 
            RowBox[{"Gamma", "[", 
             RowBox[{"m", "-", "1"}], "]"}], " ", 
            RowBox[{
             RowBox[{"B", "^", 
              RowBox[{"(", 
               RowBox[{"m", "-", "1"}], ")"}]}], "/", "\[Pi]"}]}], ",", 
           RowBox[{"m", ">", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "True"}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"m", ",", "0", ",", "totOurs"}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dMs", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Rest", "[", 
       RowBox[{"NestList", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{"#", ",", "\[Theta]"}], "]"}], "&"}], ",", 
         RowBox[{
          FractionBox[
           RowBox[{"fp", "[", "\[Theta]", "]"}], 
           SuperscriptBox[
            RowBox[{"t", "[", "\[Theta]", "]"}], "2"]], "-", 
          RowBox[{
           FractionBox["1", 
            RowBox[{"8", "\[Pi]"}]], 
           RowBox[{"Log", "[", 
            SuperscriptBox[
             RowBox[{"t", "[", "\[Theta]", "]"}], "2"], "]"}]}]}], ",", 
         "totOurs"}], "]"}], "]"}], "/.", 
      RowBox[{"\[Theta]", "->", "\[Theta]c"}]}], "/.", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Derivative", "[", "#", "]"}], "[", "fp", "]"}], "[", 
          "\[Theta]c", "]"}], "->", 
         RowBox[{"dF", "[", 
          RowBox[{"[", 
           RowBox[{"#", "+", "1"}], "]"}], "]"}]}], "&"}], ",", 
       RowBox[{"Range", "[", 
        RowBox[{"0", ",", "totOurs"}], "]"}]}], "]"}]}], "/.", "sol1"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"datOurs", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"dMs", "[", 
         RowBox[{"[", "k", "]"}], "]"}], 
        RowBox[{"BellY", "[", 
         RowBox[{"n", ",", "k", ",", 
          RowBox[{"ds", "[", 
           RowBox[{"[", 
            RowBox[{";;", 
             RowBox[{"n", "-", "k", "+", "1"}]}], "]"}], "]"}]}], "]"}]}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "/", 
     RowBox[{
      RowBox[{"(", "n", ")"}], "!"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "1", ",", "totOurs"}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwd0Esow3EAB/DRlEetMeWR5N+QlsY0jxU1j/LaU5aZy7YQteYw2aZQwoEl
G9kyilFiUh45KWThsKi1mrzKI4elzcnBY/l/f4dvn8P3e/pS+oG2nngGg5FH
B2ouXPOmxY/a7NHbRXj3G+eG4j7dKSxNefPBeu/pJekrTAlm2sHXaDLMdUvZ
0GHYyILjWZt86LOGSmDnA0sMWUIO8SWHUsCtMJf4RFHtREe/Cg4Zed0w/ZxP
nO41jkPbweQE5Goe/ZCj+iNa9gspC60kUcyFzLvDYpgjoGpgt71DDm17K0pY
rW6+hjMZrUR2qv0eCs2GZ6hQiiKw8WrrF2rHZuOttEddz8TAmZwN3+XLaXCC
ivJgcNdeDK+lWgEs+ywogw0/GSLoYewooUER0sKSJJsOpnsqjFCSX0WUBb+n
YMujfA5G2vROKPVvL8Hzptiqlfxf6YGuwLEX3qpPiHXOIvUa7ZWbR3yTfQ3D
8pEYURJeyFzHjnlD/Ac6Hgav
  "],ExpressionUUID->"f81ed9c7-d940-4314-963c-c36ea0215ef3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1.3578383417066047`"}], ",", 
   RowBox[{"-", "0.04895328971999913`"}], ",", "0.038589364046676934`", ",", 
   RowBox[{"-", "0.06639683866958071`"}], ",", "0.17282494938877094`", ",", 
   RowBox[{"-", "0.5982136876234695`"}], ",", "2.5836539597308135`", ",", 
   RowBox[{"-", "13.385542500325027`"}], ",", "80.92156022471416`", ",", 
   RowBox[{"-", "559.2327437492248`"}], ",", "4348.6528801653585`", ",", 
   RowBox[{"-", "37577.54203132622`"}], ",", "357215.5775388312`", ",", 
   RowBox[{"-", "3.7046351622097627`*^6"}], ",", "4.162364375588009`*^7", ",", 
   RowBox[{"-", "5.036541248157173`*^8"}], ",", "6.529768978407632`*^9"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.83698713111462*^9, 3.83698732721172*^9, {3.836987527713932*^9, 
   3.836987541172042*^9}, {3.8369877357608957`*^9, 3.836987748867478*^9}, {
   3.8369877874156313`*^9, 3.836987793551597*^9}, 3.836988034596339*^9, 
   3.836988124923636*^9, {3.836988167393293*^9, 3.83698817337673*^9}, 
   3.836988304258202*^9, 3.8369887429546413`*^9, 3.8370701493666887`*^9, 
   3.83707078354727*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"2234af5e-068b-46a3-beaf-99a907ef5184"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"datOurLow2", "=", 
  RowBox[{"Chop", "[", 
   RowBox[{
    RowBox[{"dGd\[Xi]LowList", "[", 
     RowBox[{
      RowBox[{"NF", "[", "2", "]"}], ",", 
      RowBox[{"H", "[", "2", "]"}], ",", 
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"rules", "[", 
         RowBox[{"H", "[", "2", "]"}], "]"}], ",", 
        RowBox[{"S", "[", "2", "]"}]}], "]"}]}], "]"}], "[", "14", "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.843813552094987*^9, 3.8438136440081587`*^9}, {
  3.8438833391542397`*^9, 3.843883375666812*^9}, {3.843883449636417*^9, 
  3.843883479692768*^9}},
 CellLabel->
  "In[128]:=",ExpressionUUID->"922bbf13-0a40-4ffe-b65d-fb54bcae380b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", 
   RowBox[{"-", "1.3578383417062967`"}], ",", 
   RowBox[{"-", "0.04895328972041035`"}], ",", "0.040152590897806796`", ",", 
   RowBox[{"-", "0.07634150977872403`"}], ",", "0.22553840411972031`", ",", 
   RowBox[{"-", "0.8705719288881231`"}], ",", "4.0294426461487145`", ",", 
   RowBox[{"-", "21.503792136560655`"}], ",", "130.1609902246785`", ",", 
   RowBox[{"-", "886.8731778001119`"}], ",", "6762.939912929589`", ",", 
   RowBox[{"-", "57330.54580849964`"}], ",", "536110.1451178609`", ",", 
   RowBox[{"-", "5.486439916757801`*^6"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, 
   3.8438140456211767`*^9, 3.843883359816826*^9, {3.843883446786009*^9, 
   3.8438834656906137`*^9}, 3.843883510726555*^9, 3.844143334475615*^9, 
   3.8441568185994*^9, 3.844339335319125*^9},
 CellLabel->
  "Out[128]=",ExpressionUUID->"043e197a-7692-4187-83b6-ce5829ad4a5d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"datOurLow6", "=", 
  RowBox[{"Chop", "[", 
   RowBox[{
    RowBox[{"dGd\[Xi]LowList", "[", 
     RowBox[{
      RowBox[{"NF", "[", "6", "]"}], ",", 
      RowBox[{"H", "[", "6", "]"}], ",", 
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"rules", "[", 
         RowBox[{"H", "[", "6", "]"}], "]"}], ",", 
        RowBox[{"S", "[", "6", "]"}]}], "]"}]}], "]"}], "[", "14", "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.843813552094987*^9, 3.843813668224395*^9}, {
  3.843883465412313*^9, 3.84388347186026*^9}, {3.843883516141139*^9, 
  3.843883518181106*^9}, {3.844143309505481*^9, 3.8441433194574413`*^9}, {
  3.8443393162229347`*^9, 3.844339322167035*^9}},
 CellLabel->
  "In[129]:=",ExpressionUUID->"649e9e6d-3d2c-4639-9c47-2ea1ddcf4b02"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", 
   RowBox[{"-", "1.357838341706558`"}], ",", 
   RowBox[{"-", "0.04895328972070345`"}], ",", "0.038863930625903244`", ",", 
   RowBox[{"-", "0.06836211971140452`"}], ",", "0.1838836984300239`", ",", 
   RowBox[{"-", "0.6591714228830016`"}], ",", "2.938563888747659`", ",", 
   RowBox[{"-", "15.659413828476081`"}], ",", "97.6039830158417`", ",", 
   RowBox[{"-", "705.9286232118421`"}], ",", "5933.433358981995`", ",", 
   RowBox[{"-", "58038.580008779725`"}], ",", "653987.4117822968`", ",", 
   RowBox[{"-", "8.280938794522655`*^6"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, 
   3.843818188530829*^9, 3.8438835487202253`*^9, 3.8441433635327*^9, 
   3.844156848488489*^9, 3.84433936486823*^9},
 CellLabel->
  "Out[129]=",ExpressionUUID->"2bf68a8e-7713-4e0f-8e35-9b2bda25554f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"datOurHigh2", "=", 
  RowBox[{"Chop", "[", 
   RowBox[{
    RowBox[{"dGd\[Xi]List", "[", 
     RowBox[{
      RowBox[{"NF", "[", "2", "]"}], ",", 
      RowBox[{"H", "[", "2", "]"}], ",", 
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"rules", "[", 
         RowBox[{"H", "[", "2", "]"}], "]"}], ",", 
        RowBox[{"S", "[", "2", "]"}]}], "]"}]}], "]"}], "[", 
    RowBox[{"14", ",", "0"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.843813552094987*^9, 3.8438136440081587`*^9}, {
  3.8438833391542397`*^9, 3.843883375666812*^9}, {3.843883449636417*^9, 
  3.843883479692768*^9}, {3.8438835272533703`*^9, 3.843883540637532*^9}},
 CellLabel->
  "In[130]:=",ExpressionUUID->"65da12ab-b919-4aad-899a-77b90d54ba33"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", 
   RowBox[{"-", "1.8452280782328416`"}], ",", "0", ",", "8.377514122546064`", 
   ",", "0", ",", 
   RowBox[{"-", "96.52148911058097`"}], ",", "0", ",", "1493.9976737243942`", 
   ",", "0", ",", 
   RowBox[{"-", "26818.45130191777`"}], ",", "0", ",", "526377.7118305506`", 
   ",", "0", ",", 
   RowBox[{"-", "1.0966384870468803`*^7"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, 
   3.8438140456211767`*^9, 3.843883359816826*^9, {3.843883446786009*^9, 
   3.8438834656906137`*^9}, 3.843883510726555*^9, 3.843883580486106*^9, 
   3.844143393554497*^9, 3.844156878138134*^9, 3.844339394551982*^9},
 CellLabel->
  "Out[130]=",ExpressionUUID->"bf118231-ac60-4b08-8d5b-c2f02ee72a5b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"datOurHigh6", "=", 
  RowBox[{"Chop", "[", 
   RowBox[{
    RowBox[{"dGd\[Xi]List", "[", 
     RowBox[{
      RowBox[{"NF", "[", "6", "]"}], ",", 
      RowBox[{"H", "[", "6", "]"}], ",", 
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"rules", "[", 
         RowBox[{"H", "[", "6", "]"}], "]"}], ",", 
        RowBox[{"S", "[", "6", "]"}]}], "]"}]}], "]"}], "[", 
    RowBox[{"14", ",", "0"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.843813552094987*^9, 3.843813668224395*^9}, {
  3.843883465412313*^9, 3.84388347186026*^9}, {3.843883516141139*^9, 
  3.84388354845371*^9}, {3.844143327282058*^9, 3.844143333993751*^9}, {
  3.844339328199375*^9, 3.844339335311452*^9}},
 CellLabel->
  "In[131]:=",ExpressionUUID->"2476ffb9-8112-4899-a159-f51883b8e216"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", 
   RowBox[{"-", "1.8452280782328523`"}], ",", "0", ",", "8.333711749926277`", 
   ",", "0", ",", 
   RowBox[{"-", "95.16896371253469`"}], ",", "0", ",", "1457.5503638974826`", 
   ",", "0", ",", 
   RowBox[{"-", "25869.797578475864`"}], ",", "0", ",", "501951.0982257904`", 
   ",", "0", ",", 
   RowBox[{"-", "1.033917515714893`*^7"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, 
   3.843818188530829*^9, 3.8438836116815853`*^9, 3.844143422730055*^9, 
   3.844156908378335*^9, 3.844339423974668*^9},
 CellLabel->
  "Out[131]=",ExpressionUUID->"4472fe7c-a13d-48f2-8ce9-7c86fc80c436"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"datOurMid2", "=", 
  RowBox[{"Chop", "[", 
   RowBox[{
    RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", 
     RowBox[{
      RowBox[{"NF", "[", "2", "]"}], ",", 
      RowBox[{"H", "[", "2", "]"}], ",", 
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"rules", "[", 
         RowBox[{"H", "[", "2", "]"}], "]"}], ",", 
        RowBox[{"S", "[", "2", "]"}]}], "]"}]}], "]"}], "[", 
    RowBox[{"14", ",", "1"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.843813552094987*^9, 3.8438136440081587`*^9}, {
  3.8438833391542397`*^9, 3.843883375666812*^9}, {3.843883449636417*^9, 
  3.843883479692768*^9}, {3.8438835272533703`*^9, 3.843883540637532*^9}, {
  3.8438835969825583`*^9, 3.843883614991191*^9}},
 CellLabel->
  "In[132]:=",ExpressionUUID->"e595b072-4f65-493a-afbb-d0fd95bb7c1c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1.197437800827181`"}], ",", 
   RowBox[{"-", "0.3190726460965614`"}], ",", "0.11091443628541181`", ",", 
   "0.016509650519849282`", ",", 
   RowBox[{"-", "0.0003141121112829187`"}], ",", 
   RowBox[{"-", "0.0005146254923651025`"}], ",", "0.0002221366986115451`", 
   ",", 
   RowBox[{"-", "0.00005010818239482555`"}], ",", 
   RowBox[{"-", "5.828936646513926`*^-7"}], ",", "5.746698725714958`*^-6", 
   ",", 
   RowBox[{"-", "2.317572453533117`*^-6"}], ",", "2.8319049007218993`*^-7", 
   ",", "1.3282081081853632`*^-7", ",", 
   RowBox[{"-", "7.401803626641128`*^-8"}], ",", "1.6095359608980834`*^-8"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, 
   3.8438140456211767`*^9, 3.843883359816826*^9, {3.843883446786009*^9, 
   3.8438834656906137`*^9}, 3.843883510726555*^9, 3.843883580486106*^9, 
   3.843883657475613*^9, 3.844143455214177*^9, 3.8441569417140217`*^9, 
   3.844339456703684*^9},
 CellLabel->
  "Out[132]=",ExpressionUUID->"fccdbef1-244e-44c6-b3c4-5001cf802c3b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"datOurMid6", "=", 
  RowBox[{"Chop", "[", 
   RowBox[{
    RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", 
     RowBox[{
      RowBox[{"NF", "[", "6", "]"}], ",", 
      RowBox[{"H", "[", "6", "]"}], ",", 
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"rules", "[", 
         RowBox[{"H", "[", "6", "]"}], "]"}], ",", 
        RowBox[{"S", "[", "6", "]"}]}], "]"}]}], "]"}], "[", 
    RowBox[{"14", ",", "1"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.843813552094987*^9, 3.843813668224395*^9}, {
  3.843883465412313*^9, 3.84388347186026*^9}, {3.843883516141139*^9, 
  3.84388354845371*^9}, {3.843883600398727*^9, 3.843883619695004*^9}, {
  3.8441433422259483`*^9, 3.84414335086604*^9}, {3.844339343199572*^9, 
  3.844339349863679*^9}},
 CellLabel->
  "In[133]:=",ExpressionUUID->"428ba532-a5a7-47a0-834d-51e3a093d96a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1.197733314476603`"}], ",", 
   RowBox[{"-", "0.3188102465763356`"}], ",", "0.11088626986286532`", ",", 
   "0.016426906005372888`", ",", 
   RowBox[{"-", "0.00026404279344288684`"}], ",", 
   RowBox[{"-", "0.0005140260159366009`"}], ",", "0.00020886534275493685`", 
   ",", 
   RowBox[{"-", "0.000044828373716923474`"}], ",", "3.2472263422728396`*^-7", 
   ",", "4.312795231984893`*^-6", ",", 
   RowBox[{"-", "1.989930723631579`*^-6"}], ",", "4.3398967612728695`*^-7", 
   ",", "3.0343615844906865`*^-8", ",", 
   RowBox[{"-", "6.741502699179006`*^-8"}], ",", "2.8695485833852726`*^-8"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, 
   3.843818188530829*^9, 3.8438836964718227`*^9, 3.844143491953845*^9, 
   3.844156978980246*^9, 3.8441574949286547`*^9, 3.844339493222323*^9},
 CellLabel->
  "Out[133]=",ExpressionUUID->"a74c17d3-52e9-4bc4-8151-87ccfed07273"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<~/doc/research/first_order_singularities/paper/data/glow_series_ours_2.\
dat\>\"", ",", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"i", "-", "1"}], ",", 
       RowBox[{"datOurLow2", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "datOurLow2", "]"}]}], "}"}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8365725090188103`*^9, 3.836572511033183*^9}, {
  3.836572551269373*^9, 3.836572621026455*^9}, {3.8365727308332853`*^9, 
  3.836572735579463*^9}, {3.8369881356397867`*^9, 3.8369881529196568`*^9}, {
  3.843818319071336*^9, 3.8438183408474913`*^9}, {3.84414349994906*^9, 
  3.844143528077484*^9}},
 CellLabel->
  "In[134]:=",ExpressionUUID->"11720fd4-85fa-4891-a6d6-e316b2c63a60"],

Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/glow_\
series_ours_2.dat\"\>"], "Output",
 CellChangeTimes->{
  3.8365725114300337`*^9, {3.8365725984285917`*^9, 3.8365726212484303`*^9}, 
   3.8365727364325037`*^9, {3.836988153130045*^9, 3.836988182958664*^9}, 
   3.836988333167184*^9, 3.8370701494196787`*^9, 3.8370707835909777`*^9, 
   3.843818342558866*^9, {3.844143509746292*^9, 3.844143528387505*^9}, 
   3.844157532134253*^9, 3.844339493255859*^9},
 CellLabel->
  "Out[134]=",ExpressionUUID->"bfc7450c-8753-4ad4-a680-b80674ac5a25"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<~/doc/research/first_order_singularities/paper/data/glow_series_ours_6.\
dat\>\"", ",", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"i", "-", "1"}], ",", 
       RowBox[{"datOurLow6", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "datOurLow6", "]"}]}], "}"}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8365725090188103`*^9, 3.836572511033183*^9}, {
  3.836572551269373*^9, 3.836572621026455*^9}, {3.8365727308332853`*^9, 
  3.836572735579463*^9}, {3.8369881356397867`*^9, 3.8369881529196568`*^9}, {
  3.843818319071336*^9, 3.8438183408474913`*^9}, {3.84414349994906*^9, 
  3.8441435090372667`*^9}, {3.84433935813597*^9, 3.84433936264786*^9}},
 CellLabel->
  "In[135]:=",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"],

Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/glow_\
series_ours_6.dat\"\>"], "Output",
 CellChangeTimes->{
  3.8365725114300337`*^9, {3.8365725984285917`*^9, 3.8365726212484303`*^9}, 
   3.8365727364325037`*^9, {3.836988153130045*^9, 3.836988182958664*^9}, 
   3.836988333167184*^9, 3.8370701494196787`*^9, 3.8370707835909777`*^9, 
   3.843818342558866*^9, 3.844143509746292*^9, 3.844157532367456*^9, 
   3.844339493281698*^9},
 CellLabel->
  "Out[135]=",ExpressionUUID->"86d97ab8-bfe5-478d-a4ba-5bc364b4d54e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<~/doc/research/first_order_singularities/paper/data/glow_series_\
caselle.dat\>\"", ",", 
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"datCas", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"Length", "[", "datCas", "]"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, {
   3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, 
   3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, 
   3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, {
   3.843812903750565*^9, 3.843812935070904*^9}},
 CellLabel->
  "In[368]:=",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"],

Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/glow_\
series_caselle.dat\"\>"], "Output",
 CellChangeTimes->{
  3.836988223024967*^9, 3.836988260494157*^9, 3.836988333199574*^9, 
   3.837070149473012*^9, 3.837070783629765*^9, 3.837072865499703*^9, 
   3.843812937101083*^9, {3.844157532614583*^9, 3.84415755777186*^9}},
 CellLabel->
  "Out[368]=",ExpressionUUID->"ac5b89c4-24ae-436b-b19b-5a19cf92f196"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<~/doc/research/first_order_singularities/paper/data/ghigh_caselle.dat\>\
\"", ",", 
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"datCasH", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"Length", "[", "datCasH", "]"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, {
   3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, 
   3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, 
   3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, {
   3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9, 
   3.843813002559956*^9}},
 CellLabel->
  "In[369]:=",ExpressionUUID->"3f815a4c-10cf-489f-9fc2-62e52069c4c0"],

Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/ghigh_\
caselle.dat\"\>"], "Output",
 CellChangeTimes->{
  3.836988223024967*^9, 3.836988260494157*^9, 3.836988333199574*^9, 
   3.837070149473012*^9, 3.837070783629765*^9, 3.837072865499703*^9, 
   3.843812937101083*^9, 3.843813188718388*^9, {3.844157532899776*^9, 
   3.844157557817953*^9}},
 CellLabel->
  "Out[369]=",ExpressionUUID->"0058d268-597e-4f7a-a395-c0fdf2e2f0fc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<~/doc/research/first_order_singularities/paper/data/ghigh_series_ours_\
2.dat\>\"", ",", 
   RowBox[{"Thread", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Range", "[", 
       RowBox[{"0", ",", "14"}], "]"}], ",", "datOurHigh2"}], "}"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, {
   3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, 
   3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, 
   3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, {
   3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9, 
   3.843813002559956*^9}, {3.843883687737048*^9, 3.843883735041348*^9}},
 CellLabel->
  "In[136]:=",ExpressionUUID->"cd97b893-1f61-415c-8763-743df3cfe10e"],

Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/ghigh_\
series_ours_2.dat\"\>"], "Output",
 CellChangeTimes->{
  3.836988223024967*^9, 3.836988260494157*^9, 3.836988333199574*^9, 
   3.837070149473012*^9, 3.837070783629765*^9, 3.837072865499703*^9, 
   3.843812937101083*^9, 3.843813188718388*^9, 3.843883736492688*^9, {
   3.8441435165043383`*^9, 3.844143533493575*^9}, 3.844157533156438*^9, 
   3.844339493307954*^9},
 CellLabel->
  "Out[136]=",ExpressionUUID->"9bbd03d3-a0ba-4157-8a3b-5f539ce94bce"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<~/doc/research/first_order_singularities/paper/data/ghigh_series_ours_\
6.dat\>\"", ",", 
   RowBox[{"Thread", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Range", "[", 
       RowBox[{"0", ",", "14"}], "]"}], ",", "datOurHigh6"}], "}"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, {
   3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, 
   3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, 
   3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, {
   3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9, 
   3.843813002559956*^9}, {3.843883687737048*^9, 3.843883746721509*^9}, {
   3.8441435390059643`*^9, 3.844143543005599*^9}, {3.84433937240802*^9, 
   3.8443393749201736`*^9}},
 CellLabel->
  "In[137]:=",ExpressionUUID->"7cc8abed-034f-48f9-a04c-7a7cd336cffc"],

Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/ghigh_\
series_ours_6.dat\"\>"], "Output",
 CellChangeTimes->{{3.844143536721059*^9, 3.844143543297987*^9}, 
   3.8441575334279346`*^9, 3.844339493333724*^9},
 CellLabel->
  "Out[137]=",ExpressionUUID->"07f77345-76ab-4e5d-a2e6-e24bb55feac9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<~/doc/research/first_order_singularities/paper/data/phi_series_ours_2.\
dat\>\"", ",", 
   RowBox[{"Thread", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Range", "[", 
       RowBox[{"0", ",", "14"}], "]"}], ",", "datOurMid2"}], "}"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, {
   3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, 
   3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, 
   3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, {
   3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9, 
   3.843813002559956*^9}, {3.843883687737048*^9, 3.843883785650159*^9}},
 CellLabel->
  "In[138]:=",ExpressionUUID->"ed90fc79-b0f9-464f-acb1-e5aa0d9691f1"],

Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/phi_\
series_ours_2.dat\"\>"], "Output",
 CellChangeTimes->{3.8438837865421677`*^9, 3.844143546059861*^9, 
  3.8441575337089033`*^9, 3.844339493360519*^9},
 CellLabel->
  "Out[138]=",ExpressionUUID->"4514c09f-2394-460a-8977-2ada54b3b9d0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<~/doc/research/first_order_singularities/paper/data/phi_series_ours_6.\
dat\>\"", ",", 
   RowBox[{"Thread", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Range", "[", 
       RowBox[{"0", ",", "14"}], "]"}], ",", "datOurMid6"}], "}"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, {
   3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, 
   3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, 
   3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, {
   3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9, 
   3.843813002559956*^9}, {3.843883687737048*^9, 3.843883746721509*^9}, {
   3.8438837895463448`*^9, 3.843883795498577*^9}, {3.8441435486938868`*^9, 
   3.844143549573801*^9}, {3.844339380648179*^9, 3.84433938249638*^9}},
 CellLabel->
  "In[139]:=",ExpressionUUID->"6dd628a1-23df-42ea-b634-4bef16413391"],

Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/phi_\
series_ours_6.dat\"\>"], "Output",
 CellChangeTimes->{
  3.836988223024967*^9, 3.836988260494157*^9, 3.836988333199574*^9, 
   3.837070149473012*^9, 3.837070783629765*^9, 3.837072865499703*^9, 
   3.843812937101083*^9, 3.843813188718388*^9, {3.843883736492688*^9, 
   3.8438837481882477`*^9}, 3.8438837970953608`*^9, 3.8441435499477587`*^9, 
   3.84415753402846*^9, 3.8443394933861513`*^9},
 CellLabel->
  "Out[139]=",ExpressionUUID->"80acb19e-2d21-40df-ae02-eb1e1c8d4e00"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gls", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.836985954144209*^9, 3.836985955175076*^9}},
 CellLabel->
  "In[176]:=",ExpressionUUID->"feb08355-9ad1-4257-9f97-e394177d7e32"],

Cell[BoxData[
 InterpretationBox[
  TemplateBox[{"0.0", "1.0", 
    SuperscriptBox["10", "-14"]},
   "AroundExp"],
  Around[0., 1.*^-14]]], "Output",
 CellChangeTimes->{3.836985955307584*^9},
 CellLabel->
  "Out[176]=",ExpressionUUID->"87e29f54-9d68-4261-96d4-95d24dcdc36a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Abs", "@", "datNum"}], ",", 
    RowBox[{"Abs", "@", 
     RowBox[{"Prepend", "[", 
      RowBox[{"datCas", ",", 
       RowBox[{"Gls", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", 
   "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, {
   3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9, 
   3.829128493270048*^9}, {3.8291285364471493`*^9, 3.8291285366627502`*^9}, {
   3.829128816403723*^9, 3.829128817219697*^9}, {3.829212218892186*^9, 
   3.829212225564254*^9}, {3.8292122694048777`*^9, 3.829212364606584*^9}, {
   3.829212422415756*^9, 3.8292124291194887`*^9}, {3.8292138886103983`*^9, 
   3.829213892914075*^9}, {3.829214258440802*^9, 3.829214267624782*^9}, {
   3.829218996805491*^9, 3.829219001117147*^9}, 3.832145386241276*^9, 
   3.832145427201569*^9, {3.8321459818994417`*^9, 3.832145984739521*^9}, {
   3.8321461019658613`*^9, 3.832146103005608*^9}, {3.83214636465071*^9, 
   3.832146365018457*^9}, {3.8321468071147757`*^9, 3.83214683603503*^9}, {
   3.832151906798731*^9, 3.832151920438457*^9}, {3.83215203026543*^9, 
   3.8321520312326193`*^9}, {3.836984203191142*^9, 3.8369842034070263`*^9}, {
   3.836984260736669*^9, 3.836984270504239*^9}, {3.836985883270376*^9, 
   3.8369858862218723`*^9}, {3.836985919726593*^9, 3.836985961239354*^9}},
 CellLabel->
  "In[189]:=",ExpressionUUID->"e61ed118-a102-4290-8440-cba17b87145b"],

Cell[BoxData[
 GraphicsBox[{{{{
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{1., 0.3058939805973312}, {1., 0.3058939805973386}}], 
          LineBox[{{1., 0.3058939805973386}, {1., 0.3058939805973459}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{2., -3.0168887065845538`}, {2., -3.0168887065436985`}}], 
          LineBox[{{2., -3.0168887065436985`}, {2., -3.016888706502843}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{3., -3.24768873618056}, {3., -3.2476887336074802`}}], 
          LineBox[{{3., -3.2476887336074802`}, {3., -3.2476887310344003`}}]}},
        
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{4., -2.6829364089277306`}, {4., -2.6829363942997464`}}], 
          LineBox[{{4., -2.6829363942997464`}, {4., -2.6829363796717627`}}]}},
        
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{5., -1.6934517864279734`}, {5., -1.6934517320457758`}}], 
          LineBox[{{5., -1.6934517320457758`}, {5., -1.693451677663581}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{6., -0.4167753281916941}, {6., -0.41677381113121115`}}], 
          LineBox[{{6., -0.41677381113121115`}, {6., -0.4167722940730296}}]}},
        
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{7., 1.077614026885801}, {7., 1.077615048105556}}], 
          LineBox[{{7., 1.077615048105556}, {7., 1.0776160693242682`}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{8., 2.747270914255491}, {8., 2.7479117345273405`}}], 
          LineBox[{{8., 2.7479117345273405`}, {8., 2.7485521444115397`}}]}},
        Antialiasing->False]}}, 
     {RGBColor[0.880722, 0.611041, 0.142051], 
      StyleBox[{{}, {
         LineBox[{{1., 0.3058939805973312}, {1., 0.3058939805973386}}], 
         LineBox[{{1., 0.3058939805973386}, {1., 0.3058939805973459}}]}},
       Antialiasing->False]}}, {{
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{1., 0.3058939805973459}, 
             Offset[{3, 0}, {1., 0.3058939805973459}]}, {{1., 
             0.3058939805973459}, 
             Offset[{-3, 0}, {1., 0.3058939805973459}]}, {{1., 
             0.3058939805973312}, 
             Offset[{3, 0}, {1., 0.3058939805973312}]}, {{1., 
             0.3058939805973312}, 
             Offset[{-3, 0}, {1., 0.3058939805973312}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{2., -3.016888706502843}, 
             Offset[{3, 0}, {2., -3.016888706502843}]}, {{
             2., -3.016888706502843}, 
             Offset[{-3, 0}, {2., -3.016888706502843}]}, {{
             2., -3.0168887065845538`}, 
             Offset[{3, 0}, {2., -3.0168887065845538`}]}, {{
             2., -3.0168887065845538`}, 
             Offset[{-3, 0}, {2., -3.0168887065845538`}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{3., -3.2476887310344003`}, 
             Offset[{3, 0}, {3., -3.2476887310344003`}]}, {{
             3., -3.2476887310344003`}, 
             Offset[{-3, 0}, {3., -3.2476887310344003`}]}, {{
             3., -3.24768873618056}, 
             Offset[{3, 0}, {3., -3.24768873618056}]}, {{
             3., -3.24768873618056}, 
             Offset[{-3, 0}, {3., -3.24768873618056}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{4., -2.6829363796717627`}, 
             Offset[{3, 0}, {4., -2.6829363796717627`}]}, {{
             4., -2.6829363796717627`}, 
             Offset[{-3, 0}, {4., -2.6829363796717627`}]}, {{
             4., -2.6829364089277306`}, 
             Offset[{3, 0}, {4., -2.6829364089277306`}]}, {{
             4., -2.6829364089277306`}, 
             Offset[{-3, 0}, {4., -2.6829364089277306`}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{5., -1.693451677663581}, 
             Offset[{3, 0}, {5., -1.693451677663581}]}, {{
             5., -1.693451677663581}, 
             Offset[{-3, 0}, {5., -1.693451677663581}]}, {{
             5., -1.6934517864279734`}, 
             Offset[{3, 0}, {5., -1.6934517864279734`}]}, {{
             5., -1.6934517864279734`}, 
             Offset[{-3, 0}, {5., -1.6934517864279734`}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{6., -0.4167722940730296}, 
             Offset[{3, 0}, {6., -0.4167722940730296}]}, {{
             6., -0.4167722940730296}, 
             Offset[{-3, 0}, {6., -0.4167722940730296}]}, {{
             6., -0.4167753281916941}, 
             Offset[{3, 0}, {6., -0.4167753281916941}]}, {{
             6., -0.4167753281916941}, 
             Offset[{-3, 0}, {6., -0.4167753281916941}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{7., 1.0776160693242682`}, 
             Offset[{3, 0}, {7., 1.0776160693242682`}]}, {{7., 
             1.0776160693242682`}, 
             Offset[{-3, 0}, {7., 1.0776160693242682`}]}, {{7., 
             1.077614026885801}, Offset[{3, 0}, {7., 1.077614026885801}]}, {{
             7., 1.077614026885801}, 
             Offset[{-3, 0}, {7., 1.077614026885801}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{8., 2.7485521444115397`}, 
             Offset[{3, 0}, {8., 2.7485521444115397`}]}, {{8., 
             2.7485521444115397`}, 
             Offset[{-3, 0}, {8., 2.7485521444115397`}]}, {{8., 
             2.747270914255491}, Offset[{3, 0}, {8., 2.747270914255491}]}, {{
             8., 2.747270914255491}, 
             Offset[{-3, 0}, {8., 2.747270914255491}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}}, 
     {RGBColor[0.880722, 0.611041, 0.142051], 
      StyleBox[{
        GeometricTransformationBox[
         LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
        GeometricTransformationBox[
         LineBox[{{{1., 0.3058939805973459}, 
            Offset[{3, 0}, {1., 0.3058939805973459}]}, {{1., 
            0.3058939805973459}, 
            Offset[{-3, 0}, {1., 0.3058939805973459}]}, {{1., 
            0.3058939805973312}, Offset[{3, 0}, {1., 0.3058939805973312}]}, {{
            1., 0.3058939805973312}, 
            Offset[{-3, 0}, {1., 0.3058939805973312}]}}], {{{1., 0.}, {0., 
          1.}}, {0., 0.}}]},
       Antialiasing->False]}}}, {
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{1., 0.3058939805973386}, {2., -3.0168887065436985`}, {
      3., -3.2476887336074802`}, {4., -2.6829363942997464`}, {
      5., -1.6934517320457758`}, {6., -0.41677381113121115`}, {7., 
      1.077615048105556}, {8., 2.7479117345273405`}, {9., 
      4.572233685741827}, {10., 6.520621127558696}, {11., 
      8.582980931954241}}]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{1., 0.3058939805973386}, {2., -3.016888706543698}, {
      3., -3.3287744260904106`}, {4., -2.934764093520849}, {
      5., -2.207701067055789}, {6., -1.2838925884713879`}, {
      7., -0.2300059579711514}, {8., 0.9161715977728528}, {9., 
      2.1311404843033004`}, {10., 3.399303961023672}, {11., 
      4.709793306328703}, {12., 6.054740048438777}, {13., 
      7.428269671957708}, {14., 8.825883411079555}, {15., 10.2440616536727}, {
      16., 11.680000190290155`}}]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., -4.50329621506643},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{
     Charting`ScaledTicks[{Log, Exp}], 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Exp[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Exp[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 16.}, {-4.50329621506643, 11.680000190290155`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->FrontEndValueCache[{Automatic, 
     Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-4.605170185988091, 
       FormBox[
        TagBox[
         InterpretationBox[
          StyleBox["\"0.01\"", ShowStringCharacters -> False], 0.01, 
          AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, {0., 
       FormBox["1", TraditionalForm], {0.01, 0.}}, {4.605170185988092, 
       FormBox["100", TraditionalForm], {0.01, 0.}}, {9.210340371976184, 
       FormBox[
        TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}}, {-2.3025850929940455`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      2.302585092994046, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      6.907755278982137, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      11.512925464970229`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      13.815510557964274`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      14.22097566607244, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      14.508657738524219`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      14.73180128983843, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}}}]]], "Output",
 CellChangeTimes->{3.8369859615296097`*^9, 3.836987016307529*^9},
 CellLabel->
  "Out[189]=",ExpressionUUID->"2e45389f-59c7-4eaf-9b3a-270214fa013e"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.836571106360374*^9, 3.836571120300399*^9}, 
   3.836571168400168*^9},ExpressionUUID->"0f87aa05-2cc9-472a-ab27-\
39ee15777442"],

Cell[BoxData[
 RowBox[{"Export", "[", 
  "\"\<~/doc/research/first_order_singularities/paper/data/Glow_series_\
numeric\>"}]], "Input",
 CellChangeTimes->{{3.836571088501528*^9, 3.836571098249134*^9}, {
  3.836571174194809*^9, 3.836571175840929*^9}, {3.836571808915742*^9, 
  3.836571839874625*^9}},ExpressionUUID->"627c17e0-e2d8-4347-8fe9-\
812183a42941"],

Cell[CellGroupData[{

Cell[BoxData["datNum"], "Input",
 CellChangeTimes->{{3.836571783214171*^9, 3.83657178386341*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"f32c32be-7fcb-4660-bf43-cbc119acda96"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", 
     InterpretationBox[
      TemplateBox[{"0.0", "1.0", 
        SuperscriptBox["10", "-14"]},
       "AroundExp"],
      Around[0., 1.*^-14]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     InterpretationBox[
      TemplateBox[{"1.3578383417065", "95", "10"},
       "AroundSeq"],
      Around[1.357838341706595496`18.132848067820845, 1.*^-14]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     InterpretationBox[
      TemplateBox[{"0.09790657944", "0", "4"},
       "AroundSeq"],
      Around[0.09790657944, 4.*^-12]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", 
     InterpretationBox[
      TemplateBox[{"0.233183574", "0", "6"},
       "AroundSeq"],
      Around[0.233183574, 6.*^-10]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", 
     InterpretationBox[
      TemplateBox[{"1.6406909", "04", "24"},
       "AroundSeq"],
      Around[1.640690904, 2.4000000000000003`*^-8]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", 
     InterpretationBox[
      TemplateBox[{"22.06604", "52", "12"},
       "AroundSeq"],
      Around[22.0660452, 1.2*^-6]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", 
     InterpretationBox[
      TemplateBox[{"474.6024", "0.0007"},
       "Around"],
      Around[474.60240000000005`, 0.0007199999999999999]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", 
     InterpretationBox[
      TemplateBox[{"14805.832", "0.015"},
       "Around"],
      Around[14805.8316, 0.01512]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", 
     InterpretationBox[
      TemplateBox[{"629395.", "403."},
       "Around"],
      Around[629395.2, 403.2]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "3.5112268800000004`*^7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "2463955200"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "213155712000"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.836571784123211*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"01b48fb7-d8c9-4012-92f6-488cf7e7087c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"convNum", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "/", 
         RowBox[{"i", "!"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "2", ",", 
        RowBox[{"Length", "[", "#", "]"}]}], "}"}]}], "]"}], "&"}], "@", 
   RowBox[{"Abs", "[", 
    RowBox[{"Rest", "@", 
     RowBox[{"datNum", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.836571181914515*^9, 3.836571198597612*^9}, {
  3.836571231056604*^9, 3.836571231624762*^9}, {3.836571357622385*^9, 
  3.8365713615968924`*^9}, {3.836571758467436*^9, 
  3.836571762121763*^9}},ExpressionUUID->"bfa6a31f-5eb9-4063-b798-\
e45ab1e3b53a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", 
     InterpretationBox[
      TemplateBox[{"0.03605236957", "62", "15"},
       "AroundSeq"],
      Around[0.03605236957624365, 1.4729294136595367`*^-12]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", 
     InterpretationBox[
      TemplateBox[{"0.79389820", "83", "20"},
       "AroundSeq"],
      Around[0.7938982083184092, 2.043021117987329*^-9]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", 
     InterpretationBox[
      TemplateBox[{"1.7590120", "91", "26"},
       "AroundSeq"],
      Around[1.7590120906200708`, 2.612583930959776*^-8]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", 
     InterpretationBox[
      TemplateBox[{"2.689847", "93", "15"},
       "AroundSeq"],
      Around[2.6898479349404627`, 1.5147931071787232`*^-7]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", 
     InterpretationBox[
      TemplateBox[{"3.58471", "1", "5"},
       "AroundSeq"],
      Around[3.5847112286346623`, 5.4417125989793*^-6]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", 
     InterpretationBox[
      TemplateBox[{"4.45661", "2", "8"},
       "AroundSeq"],
      Around[4.456612103099352, 8.150067373466504*^-6]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", 
     InterpretationBox[
      TemplateBox[{"5.3137", "0.0034"},
       "Around"],
      Around[5.313744079055986, 0.003404068437393709]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", 
     InterpretationBox[
      TemplateBox[{"6.199", "0.004"},
       "Around"],
      Around[6.198590647021142, 0.003970910087777797]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "7.017362546506821`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", 
     FractionBox["5340", "679"]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.836571362022435*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"0ca79efb-1867-4b1f-96fc-4a691d54b72e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"1", "/", "i"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "/", 
             RowBox[{"#", "[", 
              RowBox[{"[", 
               RowBox[{"i", "-", "1"}], "]"}], "]"}]}], "/", "i"}]}], "}"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "2", ",", 
           RowBox[{"Length", "[", "#", "]"}]}], "}"}]}], "]"}], "&"}], "@", 
      RowBox[{"Abs", "[", 
       RowBox[{"Rest", "@", 
        RowBox[{"datNum", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"1", "/", "i"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "/", 
             RowBox[{"#", "[", 
              RowBox[{"[", 
               RowBox[{"i", "-", "1"}], "]"}], "]"}]}], "/", "i"}]}], "}"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "2", ",", 
           RowBox[{"Length", "[", "#", "]"}]}], "}"}]}], "]"}], "&"}], "@", 
      RowBox[{"Abs", "[", "datCas", "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"1", "/", "i"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "/", 
             RowBox[{"#", "[", 
              RowBox[{"[", 
               RowBox[{"i", "-", "1"}], "]"}], "]"}]}], "/", "i"}]}], "}"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "2", ",", 
           RowBox[{"Length", "[", "#", "]"}]}], "}"}]}], "]"}], "&"}], "@", 
      RowBox[{"Rest", "[", "datOurs", "]"}]}]}], "\[IndentingNewLine]", "}"}],
    ",", 
   RowBox[{"PlotRange", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0.5"}], "}"}], ",", "All"}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8321545395343018`*^9, 3.832154711976303*^9}, {
  3.8321547939317636`*^9, 3.832154819442959*^9}, {3.832154942117115*^9, 
  3.832155007925785*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"242aacdf-e4c7-423c-a26a-12188ba2476e"],

Cell[BoxData[
 GraphicsBox[{{{{
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{0.5, 0.036052369574770725`}, {0.5, 0.03605236957624365}}],
           LineBox[{{0.5, 0.03605236957624365}, {0.5, 0.03605236957771658}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{0.3333333333333333, 0.7938982062753881}, {
           0.3333333333333333, 0.7938982083184092}}], 
          LineBox[{{0.3333333333333333, 0.7938982083184092}, {
           0.3333333333333333, 0.7938982103614303}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{0.25, 1.7590120644942315`}, {0.25, 1.7590120906200708`}}],
           LineBox[{{0.25, 1.7590120906200708`}, {0.25, 1.75901211674591}}]}},
        
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{0.2, 2.689847783461152}, {0.2, 2.6898479349404627`}}], 
          LineBox[{{0.2, 2.6898479349404627`}, {0.2, 2.6898480864197736`}}]}},
        
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{0.16666666666666666`, 3.584705786922063}, {
           0.16666666666666666`, 3.5847112286346623`}}], 
          LineBox[{{0.16666666666666666`, 3.5847112286346623`}, {
           0.16666666666666666`, 3.5847166703472615`}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{0.14285714285714285`, 4.456603953031978}, {
           0.14285714285714285`, 4.456612103099352}}], 
          LineBox[{{0.14285714285714285`, 4.456612103099352}, {
           0.14285714285714285`, 4.456620253166726}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{0.125, 5.310340010618592}, {0.125, 5.313744079055986}}], 
          LineBox[{{0.125, 5.313744079055986}, {0.125, 5.317148147493379}}]}},
        
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{0.1111111111111111, 6.194619736933364}, {
           0.1111111111111111, 6.198590647021142}}], 
          LineBox[{{0.1111111111111111, 6.198590647021142}, {
           0.1111111111111111, 6.202561557108919}}]}},
        Antialiasing->False]}}, {
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{0.5, 0.03605236957477072}, {0.5, 0.03605236957624365}}], 
          LineBox[{{0.5, 0.03605236957624365}, {0.5, 
           0.036052369577716584`}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{0.3333333333333333, 0.7320651840215073}, {
           0.3333333333333333, 0.7320651841891859}}], 
          LineBox[{{0.3333333333333333, 0.7320651841891859}, {
           0.3333333333333333, 0.7320651843568644}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{0.25, 1.4829158698286737`}, {0.25, 1.4829158709269852`}}],
           LineBox[{{0.25, 1.4829158709269852`}, {0.25, 
           1.4829158720252966`}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{0.2, 2.0689950876451153`}, {0.2, 2.0689950917205424`}}], 
          LineBox[{{0.2, 2.0689950917205424`}, {0.2, 2.0689950957959695`}}]}},
        
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{0.16666666666666666`, 2.5188651778156697`}, {
           0.16666666666666666`, 2.5188651897853447`}}], 
          LineBox[{{0.16666666666666666`, 2.5188651897853447`}, {
           0.16666666666666666`, 2.5188652017550197`}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{0.14285714285714285`, 2.8687793330471236`}, {
           0.14285714285714285`, 2.868779363738686}}], 
          LineBox[{{0.14285714285714285`, 2.868779363738686}, {
           0.14285714285714285`, 2.868779394430248}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{0.125, 3.146143864414641}, {0.125, 3.146143936278064}}], 
          LineBox[{{0.125, 3.146143936278064}, {0.125, 
           3.1461440081414866`}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{0.1111111111111111, 3.37018904645845}, {
           0.1111111111111111, 3.3701892044111372`}}], 
          LineBox[{{0.1111111111111111, 3.3701892044111372`}, {
           0.1111111111111111, 3.3701893623638246`}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{0.1, 3.5543186434620817`}, {0.1, 3.554318975108394}}], 
          LineBox[{{0.1, 3.554318975108394}, {0.1, 3.554319306754706}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{0.09090909090909091, 3.707987082017035}, {
           0.09090909090909091, 3.707987754726281}}], 
          LineBox[{{0.09090909090909091, 3.707987754726281}, {
           0.09090909090909091, 3.7079884274355273`}}]}},
        Antialiasing->False]}}}, {{
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{0.5, 0.03605236957771658}, 
             Offset[{3, 0}, {0.5, 0.03605236957771658}]}, {{0.5, 
             0.03605236957771658}, 
             Offset[{-3, 0}, {0.5, 0.03605236957771658}]}, {{0.5, 
             0.036052369574770725`}, 
             Offset[{3, 0}, {0.5, 0.036052369574770725`}]}, {{0.5, 
             0.036052369574770725`}, 
             Offset[{-3, 0}, {0.5, 0.036052369574770725`}]}}], {{{1., 0.}, {
           0., 1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{0.3333333333333333, 0.7938982103614303}, 
             Offset[{3, 0}, {0.3333333333333333, 0.7938982103614303}]}, {{
             0.3333333333333333, 0.7938982103614303}, 
             Offset[{-3, 0}, {0.3333333333333333, 0.7938982103614303}]}, {{
             0.3333333333333333, 0.7938982062753881}, 
             Offset[{3, 0}, {0.3333333333333333, 0.7938982062753881}]}, {{
             0.3333333333333333, 0.7938982062753881}, 
             Offset[{-3, 0}, {0.3333333333333333, 0.7938982062753881}]}}], {{{
           1., 0.}, {0., 1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{0.25, 1.75901211674591}, 
             Offset[{3, 0}, {0.25, 1.75901211674591}]}, {{0.25, 
             1.75901211674591}, Offset[{-3, 0}, {0.25, 1.75901211674591}]}, {{
             0.25, 1.7590120644942315`}, 
             Offset[{3, 0}, {0.25, 1.7590120644942315`}]}, {{0.25, 
             1.7590120644942315`}, 
             Offset[{-3, 0}, {0.25, 1.7590120644942315`}]}}], {{{1., 0.}, {0.,
            1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{0.2, 2.6898480864197736`}, 
             Offset[{3, 0}, {0.2, 2.6898480864197736`}]}, {{0.2, 
             2.6898480864197736`}, 
             Offset[{-3, 0}, {0.2, 2.6898480864197736`}]}, {{0.2, 
             2.689847783461152}, Offset[{3, 0}, {0.2, 2.689847783461152}]}, {{
             0.2, 2.689847783461152}, 
             Offset[{-3, 0}, {0.2, 2.689847783461152}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{0.16666666666666666`, 3.5847166703472615`}, 
             Offset[{3, 0}, {0.16666666666666666`, 3.5847166703472615`}]}, {{
             0.16666666666666666`, 3.5847166703472615`}, 
             Offset[{-3, 0}, {0.16666666666666666`, 3.5847166703472615`}]}, {{
             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.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{0.14285714285714285`, 4.456620253166726}, 
             Offset[{3, 0}, {0.14285714285714285`, 4.456620253166726}]}, {{
             0.14285714285714285`, 4.456620253166726}, 
             Offset[{-3, 0}, {0.14285714285714285`, 4.456620253166726}]}, {{
             0.14285714285714285`, 4.456603953031978}, 
             Offset[{3, 0}, {0.14285714285714285`, 4.456603953031978}]}, {{
             0.14285714285714285`, 4.456603953031978}, 
             Offset[{-3, 0}, {0.14285714285714285`, 
              4.456603953031978}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{0.125, 5.317148147493379}, 
             Offset[{3, 0}, {0.125, 5.317148147493379}]}, {{0.125, 
             5.317148147493379}, 
             Offset[{-3, 0}, {0.125, 5.317148147493379}]}, {{0.125, 
             5.310340010618592}, 
             Offset[{3, 0}, {0.125, 5.310340010618592}]}, {{0.125, 
             5.310340010618592}, 
             Offset[{-3, 0}, {0.125, 5.310340010618592}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{0.1111111111111111, 6.202561557108919}, 
             Offset[{3, 0}, {0.1111111111111111, 6.202561557108919}]}, {{
             0.1111111111111111, 6.202561557108919}, 
             Offset[{-3, 0}, {0.1111111111111111, 6.202561557108919}]}, {{
             0.1111111111111111, 6.194619736933364}, 
             Offset[{3, 0}, {0.1111111111111111, 6.194619736933364}]}, {{
             0.1111111111111111, 6.194619736933364}, 
             Offset[{-3, 0}, {0.1111111111111111, 6.194619736933364}]}}], {{{
           1., 0.}, {0., 1.}}, {0., 0.}}]},
        Antialiasing->False]}}, {
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{0.5, 0.036052369577716584`}, 
             Offset[{3, 0}, {0.5, 0.036052369577716584`}]}, {{0.5, 
             0.036052369577716584`}, 
             Offset[{-3, 0}, {0.5, 0.036052369577716584`}]}, {{0.5, 
             0.03605236957477072}, 
             Offset[{3, 0}, {0.5, 0.03605236957477072}]}, {{0.5, 
             0.03605236957477072}, 
             Offset[{-3, 0}, {0.5, 0.03605236957477072}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{0.3333333333333333, 0.7320651843568644}, 
             Offset[{3, 0}, {0.3333333333333333, 0.7320651843568644}]}, {{
             0.3333333333333333, 0.7320651843568644}, 
             Offset[{-3, 0}, {0.3333333333333333, 0.7320651843568644}]}, {{
             0.3333333333333333, 0.7320651840215073}, 
             Offset[{3, 0}, {0.3333333333333333, 0.7320651840215073}]}, {{
             0.3333333333333333, 0.7320651840215073}, 
             Offset[{-3, 0}, {0.3333333333333333, 0.7320651840215073}]}}], {{{
           1., 0.}, {0., 1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{0.25, 1.4829158720252966`}, 
             Offset[{3, 0}, {0.25, 1.4829158720252966`}]}, {{0.25, 
             1.4829158720252966`}, 
             Offset[{-3, 0}, {0.25, 1.4829158720252966`}]}, {{0.25, 
             1.4829158698286737`}, 
             Offset[{3, 0}, {0.25, 1.4829158698286737`}]}, {{0.25, 
             1.4829158698286737`}, 
             Offset[{-3, 0}, {0.25, 1.4829158698286737`}]}}], {{{1., 0.}, {0.,
            1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{0.2, 2.0689950957959695`}, 
             Offset[{3, 0}, {0.2, 2.0689950957959695`}]}, {{0.2, 
             2.0689950957959695`}, 
             Offset[{-3, 0}, {0.2, 2.0689950957959695`}]}, {{0.2, 
             2.0689950876451153`}, 
             Offset[{3, 0}, {0.2, 2.0689950876451153`}]}, {{0.2, 
             2.0689950876451153`}, 
             Offset[{-3, 0}, {0.2, 2.0689950876451153`}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{0.16666666666666666`, 2.5188652017550197`}, 
             Offset[{3, 0}, {0.16666666666666666`, 2.5188652017550197`}]}, {{
             0.16666666666666666`, 2.5188652017550197`}, 
             Offset[{-3, 0}, {0.16666666666666666`, 2.5188652017550197`}]}, {{
             0.16666666666666666`, 2.5188651778156697`}, 
             Offset[{3, 0}, {0.16666666666666666`, 2.5188651778156697`}]}, {{
             0.16666666666666666`, 2.5188651778156697`}, 
             Offset[{-3, 0}, {0.16666666666666666`, 
              2.5188651778156697`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{0.14285714285714285`, 2.868779394430248}, 
             Offset[{3, 0}, {0.14285714285714285`, 2.868779394430248}]}, {{
             0.14285714285714285`, 2.868779394430248}, 
             Offset[{-3, 0}, {0.14285714285714285`, 2.868779394430248}]}, {{
             0.14285714285714285`, 2.8687793330471236`}, 
             Offset[{3, 0}, {0.14285714285714285`, 2.8687793330471236`}]}, {{
             0.14285714285714285`, 2.8687793330471236`}, 
             Offset[{-3, 0}, {0.14285714285714285`, 
              2.8687793330471236`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{0.125, 3.1461440081414866`}, 
             Offset[{3, 0}, {0.125, 3.1461440081414866`}]}, {{0.125, 
             3.1461440081414866`}, 
             Offset[{-3, 0}, {0.125, 3.1461440081414866`}]}, {{0.125, 
             3.146143864414641}, 
             Offset[{3, 0}, {0.125, 3.146143864414641}]}, {{0.125, 
             3.146143864414641}, 
             Offset[{-3, 0}, {0.125, 3.146143864414641}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{0.1111111111111111, 3.3701893623638246`}, 
             Offset[{3, 0}, {0.1111111111111111, 3.3701893623638246`}]}, {{
             0.1111111111111111, 3.3701893623638246`}, 
             Offset[{-3, 0}, {0.1111111111111111, 3.3701893623638246`}]}, {{
             0.1111111111111111, 3.37018904645845}, 
             Offset[{3, 0}, {0.1111111111111111, 3.37018904645845}]}, {{
             0.1111111111111111, 3.37018904645845}, 
             Offset[{-3, 0}, {0.1111111111111111, 3.37018904645845}]}}], {{{
           1., 0.}, {0., 1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{0.1, 3.554319306754706}, 
             Offset[{3, 0}, {0.1, 3.554319306754706}]}, {{0.1, 
             3.554319306754706}, 
             Offset[{-3, 0}, {0.1, 3.554319306754706}]}, {{0.1, 
             3.5543186434620817`}, 
             Offset[{3, 0}, {0.1, 3.5543186434620817`}]}, {{0.1, 
             3.5543186434620817`}, 
             Offset[{-3, 0}, {0.1, 3.5543186434620817`}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{0.09090909090909091, 3.7079884274355273`}, 
             Offset[{3, 0}, {0.09090909090909091, 3.7079884274355273`}]}, {{
             0.09090909090909091, 3.7079884274355273`}, 
             Offset[{-3, 0}, {0.09090909090909091, 3.7079884274355273`}]}, {{
             0.09090909090909091, 3.707987082017035}, 
             Offset[{3, 0}, {0.09090909090909091, 3.707987082017035}]}, {{
             0.09090909090909091, 3.707987082017035}, 
             Offset[{-3, 0}, {0.09090909090909091, 3.707987082017035}]}}], {{{
           1., 0.}, {0., 1.}}, {0., 0.}}]},
        Antialiasing->False]}}}}, {
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{0.5, 0.03605236957624365}, {0.3333333333333333, 
      0.7938982083184092}, {0.25, 1.7590120906200708`}, {0.2, 
      2.6898479349404627`}, {0.16666666666666666`, 3.5847112286346623`}, {
      0.14285714285714285`, 4.456612103099352}, {0.125, 5.313744079055986}, {
      0.1111111111111111, 6.198590647021142}, {0.1, 7.017362546506821}, {
      0.09090909090909091, 7.864506627393225}}]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{0.5, 0.03605236957624365}, {0.3333333333333333, 
      0.7320651841891859}, {0.25, 1.4829158709269852`}, {0.2, 
      2.0689950917205424`}, {0.16666666666666666`, 2.5188651897853447`}, {
      0.14285714285714285`, 2.868779363738686}, {0.125, 3.146143936278064}, {
      0.1111111111111111, 3.3701892044111372`}, {0.1, 3.554318975108394}, {
      0.09090909090909091, 3.707987754726281}}]}, 
    {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{0.5, 0.03605236957624275}, {0.3333333333333333, 
      0.7882894953005081}, {0.25, 1.7205994529805817`}, {0.2, 
      2.602909307908811}, {0.16666666666666666`, 3.461385001061308}, {
      0.14285714285714285`, 4.318948250741116}, {0.125, 5.180857308662023}, {
      0.1111111111111111, 6.045444943508941}}]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 0.5}, {0, 7.864506627393225}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.832154644879883*^9, 3.832154712232472*^9}, {
   3.8321548002930393`*^9, 3.832154819687943*^9}, 3.832154883650704*^9, {
   3.8321549661619253`*^9, 3.832155008139481*^9}, 3.836570712756501*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"073d831e-11a6-4203-90ce-0df429c1a3f0"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"datOurs", "=", 
   RowBox[{"Chop", "[", 
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{
       RowBox[{"dFd\[Xi]HighList", "[", 
        RowBox[{"n1", ",", "h1"}], "]"}], "[", "12", "]"}], "]"}], "/.", 
     "sol1"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.832145390968719*^9, 3.8321454292735577`*^9}, {
  3.832145976500745*^9, 3.832145979699314*^9}, {3.832146795410326*^9, 
  3.832146803058391*^9}, {3.832146853819456*^9, 3.832146854323563*^9}, {
  3.83214967637575*^9, 3.832149676470541*^9}, {3.832151549200243*^9, 
  3.8321515522247057`*^9}, {3.8321522853402777`*^9, 3.8321523108375397`*^9}},
 CellLabel->"In[92]:=",ExpressionUUID->"80c6c675-eade-40e1-8d0f-13a6578b30ff"],

Cell[BoxData[
 RowBox[{
  RowBox[{"datNumHigh", "=", 
   RowBox[{"Thread", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Range", "[", 
       RowBox[{"0", ",", 
        RowBox[{
         RowBox[{"Length", "[", "Ghs", "]"}], "-", "1"}]}], "]"}], ",", 
      RowBox[{
       RowBox[{"Abs", "[", "Ghs", "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Range", "[", 
            RowBox[{"Length", "[", "Ghs", "]"}], "]"}], "-", "1"}], ")"}], 
         "!"}], ")"}]}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8321514933506927`*^9, 3.832151511975079*^9}, {
  3.8321516136331882`*^9, 3.8321516208732758`*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"d8847f2e-21fe-4fb7-84ae-676f83acdf5a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"datCasHigh", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"NestList", "[", 
     RowBox[{
      RowBox[{"dd\[Xi]", "[", "hCas", "]"}], ",", 
      RowBox[{"m0", " ", 
       FractionBox["\[Theta]", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["\[Theta]", "2"]}], ")"}], 
         RowBox[{"1", "/", "8"}]]]}], ",", "11"}], "]"}], "/.", 
    RowBox[{"\[Theta]", "->", "0"}]}], "/.", "m0rule"}]}]], "Input",
 CellChangeTimes->{{3.83215152426346*^9, 3.8321515377758512`*^9}, {
  3.832152099866603*^9, 3.8321521038257008`*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"15d60f60-2f87-40da-a2c6-66d640111d75"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", 
   InterpretationBox[
    TemplateBox[{"3.880529725", "75", "16"},
     "AroundSeq"],
    Around[3.8805297257531435`, 1.5854010523272218`*^-10]], ",", "0.`", ",", 
   InterpretationBox[
    TemplateBox[{"-233.1090657", "77", "29"},
     "AroundSeq"],
    Around[-233.10906577746226`, 2.867554290133348*^-8]], ",", "0.`", ",", 
   InterpretationBox[
    TemplateBox[{"88518.948785", "0.000021"},
     "Around"],
    Around[88518.94878487791, 0.000021388770252100324`]], ",", "0.`", ",", 
   InterpretationBox[
    TemplateBox[{"-8.41494659", "4", "4", 
      SuperscriptBox["10", "7"]},
     "AroundSeqExp"],
    Around[-8.414946593571003*^7, 0.04123893899074724]], ",", "0.`", ",", 
   InterpretationBox[
    TemplateBox[{"1.49073647", "91", "15", 
      SuperscriptBox["10", "11"]},
     "AroundSeqExp"],
    Around[1.490736479125683*^11, 152.87259164270972`]], ",", "0.`", ",", 
   InterpretationBox[
    TemplateBox[{"-4.24347172", "8", "9", 
      SuperscriptBox["10", "14"]},
     "AroundSeqExp"],
    Around[-4.2434717282285725`*^14, 909981.6588191775]]}], "}"}]], "Output",
 CellChangeTimes->{3.832151572013042*^9, 3.832152114955359*^9, 
  3.832152262145925*^9},
 CellLabel->"Out[87]=",ExpressionUUID->"6f1d902a-0431-4a99-adc2-97eb3c423317"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Abs", "@", "datNumHigh"}], ",", 
    RowBox[{"Abs", "@", "datCasHigh"}], ",", 
    RowBox[{"Thread", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Range", "[", 
        RowBox[{"0", ",", 
         RowBox[{
          RowBox[{"Length", "[", "datOurs", "]"}], "-", "1"}]}], "]"}], ",", 
       "datOurs"}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8321515752734756`*^9, 3.8321515972726097`*^9}, {
  3.832151974881402*^9, 3.832152024153109*^9}, {3.8321522889336777`*^9, 
  3.832152299270874*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"bec4c929-c1a6-4fd0-be18-caf3643ba3a4"],

Cell[BoxData[
 GraphicsBox[{{{{
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{2., 1.3057500700435951`}, {2., 1.3057500700490146`}}], 
          LineBox[{{2., 1.3057500700490146`}, {2., 1.305750070054434}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{4., 5.2983627756010305`}, {4., 5.29836277561303}}], 
          LineBox[{{4., 5.29836277561303}, {4., 5.298362775625029}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{6., 11.134905050221258`}, {6., 11.13490515529753}}], 
          LineBox[{{6., 11.13490515529753}, {6., 11.13490526037379}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{8., 17.889142568634654`}, {8., 17.88916315034232}}], 
          LineBox[{{8., 17.88916315034232}, {8., 17.889183731626385`}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{10., 25.265986020123417`}, {10., 25.266063270026894`}}], 
          LineBox[{{10., 25.266063270026894`}, {10., 25.266140513963283`}}]}},
        
        Antialiasing->False]}}, {
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{2., 1.355971671531294}, {2., 1.3559716715721493`}}], 
          LineBox[{{2., 1.3559716715721493`}, {2., 1.3559716716130046`}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{4., 5.45150643738662}, {4., 5.451506437509634}}], 
          LineBox[{{4., 5.451506437509634}, {4., 5.451506437632648}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{6., 11.390971918399588`}, {6., 11.390971918641217`}}], 
          LineBox[{{6., 11.390971918641217`}, {6., 11.390971918882846`}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{8., 18.248105131515835`}, {8., 18.248105132005904`}}], 
          LineBox[{{8., 18.248105132005904`}, {8., 18.248105132495972`}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{10., 25.72770630104203}, {10., 25.727706302067514`}}], 
          LineBox[{{10., 25.727706302067514`}, {10., 25.727706303092997`}}]}},
        
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{12., 33.681573037806594`}, {12., 33.68157303995102}}], 
          LineBox[{{12., 33.68157303995102}, {12., 33.681573042095444`}}]}},
        Antialiasing->False]}}}, {{
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{2., 1.305750070054434}, 
             Offset[{3, 0}, {2., 1.305750070054434}]}, {{2., 
             1.305750070054434}, Offset[{-3, 0}, {2., 1.305750070054434}]}, {{
             2., 1.3057500700435951`}, 
             Offset[{3, 0}, {2., 1.3057500700435951`}]}, {{2., 
             1.3057500700435951`}, 
             Offset[{-3, 0}, {2., 1.3057500700435951`}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{4., 5.298362775625029}, 
             Offset[{3, 0}, {4., 5.298362775625029}]}, {{4., 
             5.298362775625029}, Offset[{-3, 0}, {4., 5.298362775625029}]}, {{
             4., 5.2983627756010305`}, 
             Offset[{3, 0}, {4., 5.2983627756010305`}]}, {{4., 
             5.2983627756010305`}, 
             Offset[{-3, 0}, {4., 5.2983627756010305`}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{6., 11.13490526037379}, 
             Offset[{3, 0}, {6., 11.13490526037379}]}, {{6., 
             11.13490526037379}, Offset[{-3, 0}, {6., 11.13490526037379}]}, {{
             6., 11.134905050221258`}, 
             Offset[{3, 0}, {6., 11.134905050221258`}]}, {{6., 
             11.134905050221258`}, 
             Offset[{-3, 0}, {6., 11.134905050221258`}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{8., 17.889183731626385`}, 
             Offset[{3, 0}, {8., 17.889183731626385`}]}, {{8., 
             17.889183731626385`}, 
             Offset[{-3, 0}, {8., 17.889183731626385`}]}, {{8., 
             17.889142568634654`}, 
             Offset[{3, 0}, {8., 17.889142568634654`}]}, {{8., 
             17.889142568634654`}, 
             Offset[{-3, 0}, {8., 17.889142568634654`}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{10., 25.266140513963283`}, 
             Offset[{3, 0}, {10., 25.266140513963283`}]}, {{10., 
             25.266140513963283`}, 
             Offset[{-3, 0}, {10., 25.266140513963283`}]}, {{10., 
             25.265986020123417`}, 
             Offset[{3, 0}, {10., 25.265986020123417`}]}, {{10., 
             25.265986020123417`}, 
             Offset[{-3, 0}, {10., 25.265986020123417`}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}}, {
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{2., 1.3559716716130046`}, 
             Offset[{3, 0}, {2., 1.3559716716130046`}]}, {{2., 
             1.3559716716130046`}, 
             Offset[{-3, 0}, {2., 1.3559716716130046`}]}, {{2., 
             1.355971671531294}, Offset[{3, 0}, {2., 1.355971671531294}]}, {{
             2., 1.355971671531294}, 
             Offset[{-3, 0}, {2., 1.355971671531294}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{4., 5.451506437632648}, 
             Offset[{3, 0}, {4., 5.451506437632648}]}, {{4., 
             5.451506437632648}, Offset[{-3, 0}, {4., 5.451506437632648}]}, {{
             4., 5.45150643738662}, 
             Offset[{3, 0}, {4., 5.45150643738662}]}, {{4., 5.45150643738662},
              Offset[{-3, 0}, {4., 5.45150643738662}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{6., 11.390971918882846`}, 
             Offset[{3, 0}, {6., 11.390971918882846`}]}, {{6., 
             11.390971918882846`}, 
             Offset[{-3, 0}, {6., 11.390971918882846`}]}, {{6., 
             11.390971918399588`}, 
             Offset[{3, 0}, {6., 11.390971918399588`}]}, {{6., 
             11.390971918399588`}, 
             Offset[{-3, 0}, {6., 11.390971918399588`}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{8., 18.248105132495972`}, 
             Offset[{3, 0}, {8., 18.248105132495972`}]}, {{8., 
             18.248105132495972`}, 
             Offset[{-3, 0}, {8., 18.248105132495972`}]}, {{8., 
             18.248105131515835`}, 
             Offset[{3, 0}, {8., 18.248105131515835`}]}, {{8., 
             18.248105131515835`}, 
             Offset[{-3, 0}, {8., 18.248105131515835`}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{10., 25.727706303092997`}, 
             Offset[{3, 0}, {10., 25.727706303092997`}]}, {{10., 
             25.727706303092997`}, 
             Offset[{-3, 0}, {10., 25.727706303092997`}]}, {{10., 
             25.72770630104203}, Offset[{3, 0}, {10., 25.72770630104203}]}, {{
             10., 25.72770630104203}, 
             Offset[{-3, 0}, {10., 25.72770630104203}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{12., 33.681573042095444`}, 
             Offset[{3, 0}, {12., 33.681573042095444`}]}, {{12., 
             33.681573042095444`}, 
             Offset[{-3, 0}, {12., 33.681573042095444`}]}, {{12., 
             33.681573037806594`}, 
             Offset[{3, 0}, {12., 33.681573037806594`}]}, {{12., 
             33.681573037806594`}, 
             Offset[{-3, 0}, {12., 33.681573037806594`}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}}}}, {
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{2., 1.3057500700490146`}, {4., 5.29836277561303}, {6., 
      11.13490515529753}, {8., 17.88916315034232}, {10., 
      25.266063270026894`}, {12., 33.113569894335754`}}]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{2., 1.3559716715721493`}, {4., 5.451506437509634}, {6., 
      11.390971918641217`}, {8., 18.248105132005904`}, {10., 
      25.727706302067514`}, {12., 33.68157303995102}}]}, 
    {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{2., 1.3057500700490148`}, {4., 5.288752737747116}, {6., 
      11.11449127939783}, {8., 17.862389218907886`}}]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., -1.2278418112818485`},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{
     Charting`ScaledTicks[{Log, Exp}], 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Exp[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Exp[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 12.}, {-1.2278418112818485`, 33.681573042095444`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->FrontEndValueCache[{Automatic, 
     Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{0., 
       FormBox["1", TraditionalForm], {0.01, 0.}}, {6.907755278982137, 
       FormBox["1000", TraditionalForm], {0.01, 0.}}, {13.815510557964274`, 
       FormBox[
        TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}}, {20.72326583694641, 
       FormBox[
        TemplateBox[{"10", "9"}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}}, {27.631021115928547`, 
       FormBox[
        TemplateBox[{"10", "12"}, "Superscript", SyntaxForm -> 
         SuperscriptBox], TraditionalForm], {0.01, 0.}}, {34.538776394910684`, 
       FormBox[
        TemplateBox[{"10", "15"}, "Superscript", SyntaxForm -> 
         SuperscriptBox], TraditionalForm], {0.01, 0.}}, {2.302585092994046, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      4.605170185988092, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      9.210340371976184, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      11.512925464970229`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      16.11809565095832, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      18.420680743952367`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      23.025850929940457`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      25.328436022934504`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      29.933606208922594`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      32.23619130191664, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      36.841361487904734`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}}}]]], "Output",
 CellChangeTimes->{{3.832151589069502*^9, 3.8321516241260233`*^9}, {
   3.832151978424953*^9, 3.832152024537464*^9}, 3.8321521150139637`*^9, {
   3.832152276526582*^9, 3.832152299585641*^9}},
 CellLabel->"Out[91]=",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"]
}, Open  ]]
},
WindowSize->{1426.5, 740.25},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
TaggingRules->{"TryRealOnly" -> False},
FrontEndVersion->"13.2 for Linux x86 (64-bit) (December 7, 2022)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"d257fbda-2be1-4221-9ac8-5153716cfc00"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
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[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[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[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[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[44721, 1010, 2411, 65, 100, "Input",ExpressionUUID->"aac833ad-2b24-4138-bd6f-72fced45c28b"],
Cell[CellGroupData[{
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[48949, 1126, 4890, 100, 100, "Input",ExpressionUUID->"1800b59b-60e8-4839-8aff-d82ae8bbba1a"],
Cell[CellGroupData[{
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[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[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[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[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[81891, 1847, 4519, 90, 112, "Input",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"],
Cell[CellGroupData[{
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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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  ]]
}
]
*)