(* 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[     94696,       2157]
NotebookOptionsPosition[     89726,       2070]
NotebookOutlinePosition[     90127,       2086]
CellTagsIndexPosition[     90084,       2083]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
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[1]:=",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n9", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F9", "=", 
   RowBox[{"RF", "[", "n9", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"h9", "=", 
   RowBox[{"h", "[", "15", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
   3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9, 
   3.817564534320574*^9}, {3.81756485534698*^9, 3.817564862343175*^9}, {
   3.817564919676697*^9, 3.8175649235785027`*^9}, {3.817565106996109*^9, 
   3.8175651474217367`*^9}, {3.8175652415905113`*^9, 3.817565250029232*^9}, {
   3.8175657444559927`*^9, 3.8175657689660788`*^9}, 3.8175669120549498`*^9, {
   3.8175677716518087`*^9, 3.817567773706285*^9}, {3.817579700926876*^9, 
   3.817579701354711*^9}, {3.8175810533593073`*^9, 3.817581114447541*^9}, {
   3.817581149854197*^9, 3.8175811499220247`*^9}, {3.817581265163169*^9, 
   3.81758126542041*^9}, {3.81758144220247*^9, 3.8175814490334673`*^9}, {
   3.8175815152710047`*^9, 3.817581521148234*^9}, {3.817581635837187*^9, 
   3.817581700879589*^9}, {3.817581767691791*^9, 3.817581768673394*^9}, {
   3.8175821842992363`*^9, 3.8175821844066353`*^9}, {3.817582286431714*^9, 
   3.817582297101211*^9}, {3.817582488847374*^9, 3.817582488974349*^9}, {
   3.817582803954041*^9, 3.817582804222094*^9}, {3.817618756754203*^9, 
   3.817618757439868*^9}, {3.81761900296082*^9, 3.817619003035212*^9}, {
   3.8176203963382673`*^9, 3.817620396528458*^9}, {3.817626242723531*^9, 
   3.817626282042306*^9}, {3.81762924164756*^9, 3.8176292443562737`*^9}, {
   3.8176636404765043`*^9, 3.817663648770928*^9}, {3.817666003825204*^9, 
   3.8176660163975077`*^9}, 3.825758657266858*^9, 3.8257634297123632`*^9, {
   3.8257637382216587`*^9, 3.825763741294034*^9}, {3.825764046315646*^9, 
   3.8257640768120003`*^9}, {3.826007441657895*^9, 3.8260074468257313`*^9}, 
   3.826007758136524*^9, {3.826013359537168*^9, 3.826013366921255*^9}, {
   3.826013463378932*^9, 3.826013482235341*^9}, {3.826014234648857*^9, 
   3.8260142779855223`*^9}, {3.82610306735501*^9, 3.826103074379273*^9}, {
   3.826103107756144*^9, 3.826103107819812*^9}, {3.826272369240218*^9, 
   3.826272391792493*^9}, {3.826272586652137*^9, 3.826272594732195*^9}, {
   3.826273088053089*^9, 3.826273089748893*^9}, {3.826273144677765*^9, 
   3.826273146997635*^9}, {3.8262736335668373`*^9, 3.826273635734462*^9}, 
   3.8266890691074533`*^9, {3.826689155061082*^9, 3.8266891551567373`*^9}, {
   3.8266893130797987`*^9, 3.826689323848358*^9}, {3.826689565988503*^9, 
   3.826689581228674*^9}, {3.826689634565889*^9, 3.826689650102207*^9}, {
   3.826689983421033*^9, 3.826689988684514*^9}, {3.826690298234497*^9, 
   3.826690304258379*^9}, {3.8266903448673897`*^9, 3.826690346835585*^9}, {
   3.826690541351234*^9, 3.826690548879322*^9}, 3.8266910071358747`*^9, {
   3.82669106486483*^9, 3.826691074849018*^9}, {3.826691445503744*^9, 
   3.826691458440094*^9}, {3.82669167994809*^9, 3.826691683996052*^9}, {
   3.826704702577314*^9, 3.826704712105288*^9}, {3.82670492717354*^9, 
   3.826704930421282*^9}, {3.827403765410832*^9, 3.827403784866971*^9}, {
   3.827404400190401*^9, 3.827404420238784*^9}, {3.8274045097126637`*^9, 
   3.8274045126565638`*^9}, {3.8274047169724197`*^9, 3.827404723828395*^9}, {
   3.827404767149251*^9, 3.827404769613168*^9}, {3.827405559211132*^9, 
   3.827405561458974*^9}, {3.827406421058803*^9, 3.827406425898838*^9}, {
   3.827410007136595*^9, 3.827410024500999*^9}, {3.827468086395525*^9, 
   3.827468087899349*^9}, {3.8274817111143637`*^9, 3.827481732722485*^9}, {
   3.827481932910375*^9, 3.827481942630374*^9}, {3.827484882114504*^9, 
   3.827484891178834*^9}, {3.82748496838837*^9, 3.827484972428067*^9}, {
   3.827554870569126*^9, 3.8275548842255087`*^9}, {3.827554955106474*^9, 
   3.827554986395269*^9}, {3.827555061348587*^9, 3.827555089773085*^9}, {
   3.827555513700951*^9, 3.8275555289410133`*^9}, {3.827558549917939*^9, 
   3.827558582782239*^9}, {3.827561592644457*^9, 3.8275616094843884`*^9}, {
   3.827830458103025*^9, 3.8278304871675167`*^9}, {3.827830599481675*^9, 
   3.8278306003135023`*^9}, {3.82783063897057*^9, 3.827830646362282*^9}, {
   3.827830706235694*^9, 3.827830712059711*^9}, {3.827831315902727*^9, 
   3.827831321270451*^9}, {3.827833104775069*^9, 3.827833114719193*^9}, {
   3.8278331747045517`*^9, 3.827833179136505*^9}, {3.8278334549656887`*^9, 
   3.827833462445428*^9}, 3.829120829171124*^9, {3.829213838889318*^9, 
   3.829213883841852*^9}, {3.829214173078923*^9, 3.829214190007135*^9}, {
   3.829217677573986*^9, 3.829217686333686*^9}, {3.829217811928056*^9, 
   3.8292178136720657`*^9}, {3.829218394666704*^9, 3.829218401658337*^9}, {
   3.8292188164581223`*^9, 3.82921883122604*^9}, {3.829218950764509*^9, 
   3.829218957204319*^9}, {3.829220267572093*^9, 3.829220270004106*^9}, {
   3.82936259901405*^9, 3.829362614606016*^9}, {3.829370367314437*^9, 
   3.829370369098258*^9}, {3.82937149074282*^9, 3.829371504006997*^9}, {
   3.829371588392646*^9, 3.829371592952486*^9}, {3.829371703474627*^9, 
   3.829371725714978*^9}, {3.8293841834937067`*^9, 3.829384188373666*^9}, {
   3.829384287679748*^9, 3.8293842910074463`*^9}, {3.8293843661210957`*^9, 
   3.829384372016992*^9}, {3.8293844069057617`*^9, 3.829384407617469*^9}, {
   3.829384490603231*^9, 3.8293844949630737`*^9}, {3.829384774360268*^9, 
   3.829384778992144*^9}, {3.829384939363501*^9, 3.829384940539279*^9}, {
   3.829385057917753*^9, 3.8293850885740633`*^9}, {3.8293851940558357`*^9, 
   3.82938520864007*^9}, {3.829385243712878*^9, 3.829385265113099*^9}, {
   3.829385359435005*^9, 3.82938536205903*^9}, {3.8293854930775623`*^9, 
   3.829385516669804*^9}, {3.829385592767355*^9, 3.829385603743544*^9}, {
   3.829385805283429*^9, 3.8293858066272917`*^9}, {3.8296441789890337`*^9, 
   3.829644182788821*^9}, {3.8296443535841208`*^9, 3.8296443554960938`*^9}, {
   3.829644473714408*^9, 3.8296444761702623`*^9}, {3.829644990507839*^9, 
   3.829644992283627*^9}, {3.8296450810455513`*^9, 3.829645083133322*^9}, {
   3.829645633663727*^9, 3.829645635447423*^9}, {3.829646390405294*^9, 
   3.829646395957156*^9}, {3.8296466570661983`*^9, 3.8296466584660683`*^9}, {
   3.829647489657442*^9, 3.8296474909771557`*^9}, {3.829648049259359*^9, 
   3.829648052195036*^9}, {3.829648124252544*^9, 3.829648126212494*^9}, {
   3.829648545868373*^9, 3.829648547468088*^9}, {3.829815925549561*^9, 
   3.829815927157423*^9}, {3.831199182529437*^9, 3.831199184025214*^9}, {
   3.831199555872078*^9, 3.8311995571520443`*^9}, {3.831200372511159*^9, 
   3.831200375510755*^9}, {3.831200883112361*^9, 3.831200884648239*^9}, {
   3.831202244984953*^9, 3.8312022472967157`*^9}, {3.831202303490005*^9, 
   3.8312023084899607`*^9}, {3.8312025111574802`*^9, 3.831202512989365*^9}, {
   3.831202842403379*^9, 3.831202846339692*^9}, {3.8321389414364977`*^9, 
   3.8321389438202143`*^9}, {3.832139044022344*^9, 3.8321390459501247`*^9}, {
   3.832139331571517*^9, 3.832139334051388*^9}, {3.832139429389288*^9, 
   3.832139429661056*^9}, {3.832139540919005*^9, 3.83213954419108*^9}, {
   3.832139593440238*^9, 3.8321395952640944`*^9}, {3.832139841260713*^9, 
   3.832139861220974*^9}, {3.832140024431809*^9, 3.8321400256558027`*^9}, {
   3.8321402850208273`*^9, 3.832140296084632*^9}, {3.8321406237947397`*^9, 
   3.832140627690679*^9}, {3.832140880727601*^9, 3.832140885559256*^9}, {
   3.832145324960071*^9, 3.832145325215494*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"872503c3-0779-4b87-805f-13a088f459e3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n1", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F1", "=", 
   RowBox[{"RF", "[", "n1", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"h1", "=", 
   RowBox[{"h", "[", "0", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sol1", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Theta]c", "\[Rule]", "1.1942649631944824`"}], ",", 
     RowBox[{"\[Theta]0", "\[Rule]", "0.1980115286480415`"}], ",", 
     RowBox[{"B", "\[Rule]", "8.55266640049003`"}], ",", 
     RowBox[{
      RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.1942649631944824`"}], ",", 
     
     RowBox[{"AL", "\[Rule]", 
      RowBox[{"-", "0.09823515561347546`"}]}], ",", 
     RowBox[{"AH", "\[Rule]", 
      RowBox[{"-", "2.3836528485084885`"}]}], ",", 
     RowBox[{
      RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.0766637996073516`"}], ",", 
     RowBox[{
      RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.0038100879767504`"}], ",", 
     RowBox[{
      RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.22823495175053052`"}]}], 
    "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.832146779562958*^9, 3.8321467886772203`*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"02a1f6e5-4144-4552-9463-2a226c1ee186"],

Cell[BoxData[
 RowBox[{
  RowBox[{"sol9", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Theta]c", "\[Rule]", "1.3334703412536566`"}], ",", 
     RowBox[{"\[Theta]0", "\[Rule]", "0.19778787932056896`"}], ",", 
     RowBox[{"B", "\[Rule]", "2.423508930724686`"}], ",", 
     RowBox[{
      RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2182536469166905`"}], ",", 
     
     RowBox[{"AL", "\[Rule]", 
      RowBox[{"-", "0.032849858698944676`"}]}], ",", 
     RowBox[{"AH", "\[Rule]", 
      RowBox[{"-", "2.476902848020555`"}]}], ",", 
     RowBox[{
      RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.3332747682033883`"}], ",", 
     RowBox[{
      RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.5090565130203157`"}], ",", 
     RowBox[{
      RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.23349249078258508`"}], ",", 
     
     RowBox[{
      RowBox[{"gC", "[", "1", "]"}], "\[Rule]", 
      RowBox[{"-", "0.05795919615164437`"}]}], ",", 
     RowBox[{
      RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.009724404457489885`"}], 
     ",", 
     RowBox[{
      RowBox[{"gC", "[", "3", "]"}], "\[Rule]", 
      RowBox[{"-", "0.0027930254001640054`"}]}], ",", 
     RowBox[{
      RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0009257841098320665`"}], 
     ",", 
     RowBox[{
      RowBox[{"gC", "[", "5", "]"}], "\[Rule]", 
      RowBox[{"-", "0.0003462096131004199`"}]}], ",", 
     RowBox[{
      RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00013670744619527473`"}], 
     ",", 
     RowBox[{
      RowBox[{"gC", "[", "7", "]"}], "\[Rule]", 
      RowBox[{"-", "0.000057088418113155406`"}]}], ",", 
     RowBox[{
      RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.000024064383846786254`"}], 
     ",", 
     RowBox[{
      RowBox[{"gC", "[", "9", "]"}], "\[Rule]", 
      RowBox[{"-", "0.000010116684104855923`"}]}], ",", 
     RowBox[{
      RowBox[{"gC", "[", "10", "]"}], "\[Rule]", "4.024896321935335`*^-6"}], 
     ",", 
     RowBox[{
      RowBox[{"gC", "[", "11", "]"}], "\[Rule]", 
      RowBox[{"-", "1.4759300475764031`*^-6"}]}], ",", 
     RowBox[{
      RowBox[{"gC", "[", "12", "]"}], "\[Rule]", "4.686996899926149`*^-7"}], 
     ",", 
     RowBox[{
      RowBox[{"gC", "[", "13", "]"}], "\[Rule]", 
      RowBox[{"-", "1.2362968704699286`*^-7"}]}], ",", 
     RowBox[{
      RowBox[{"gC", "[", "14", "]"}], "\[Rule]", "2.395277120268058`*^-8"}], 
     ",", 
     RowBox[{
      RowBox[{"gC", "[", "15", "]"}], "\[Rule]", 
      RowBox[{"-", "2.99666705183393`*^-9"}]}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8321453319115543`*^9, 3.832145338055831*^9}, {
  3.8365700691716623`*^9, 3.836570070475397*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"d8831e63-87f3-498c-8951-21f347e539ff"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Theta]0Cas", "=", 
   SqrtBox["1.16951"]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hCas", "[", "\[Theta]_", "]"}], ":=", 
  RowBox[{"h0", 
   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"]}]}], ")"}]}]}]}], "Input",
 CellChangeTimes->{{3.8321454371387777`*^9, 3.832145559020133*^9}, 
   3.832146444152248*^9, {3.832146620327344*^9, 3.832146620479251*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"],

Cell[BoxData[
 RowBox[{
  RowBox[{"coeffCas", "[", "n_", "]"}], ":=", 
  RowBox[{
   RowBox[{"NestList", "[", 
    RowBox[{
     RowBox[{"dd\[Xi]", "[", "hCas", "]"}], ",", 
     RowBox[{"m0", " ", 
      FractionBox["\[Theta]", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["\[Theta]", "2"], "-", "1"}], ")"}], 
        RowBox[{"1", "/", "8"}]]]}], ",", "n"}], "]"}], "/.", 
   RowBox[{"\[Theta]", "->", "\[Theta]0Cas"}]}]}]], "Input",
 CellChangeTimes->{{3.8321456376315823`*^9, 3.83214564961337*^9}, {
  3.8321456871660624`*^9, 3.832145718870708*^9}, {3.832145767359564*^9, 
  3.83214577961791*^9}, {3.832145890778178*^9, 3.832145905218177*^9}, {
  3.832145940706725*^9, 3.8321459464268084`*^9}, {3.832145996299863*^9, 
  3.832146000067889*^9}, {3.832239324678667*^9, 3.832239324966337*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"bd6b698e-6871-43fa-9d98-7385cc594c9c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"coeffCasMid", "[", "n_", "]"}], ":=", 
  RowBox[{
   RowBox[{"NestList", "[", 
    RowBox[{
     RowBox[{"dd\[Eta]", "[", "hCas", "]"}], ",", 
     RowBox[{"m0", " ", 
      FractionBox["\[Theta]", 
       SuperscriptBox[
        RowBox[{"hCas", "[", "\[Theta]", "]"}], 
        RowBox[{"1", "/", 
         RowBox[{"\[Delta]", "[", "2", "]"}]}]]]}], ",", "n"}], "]"}], "/.", 
   RowBox[{"\[Theta]", "->", "1"}]}]}]], "Input",
 CellChangeTimes->{{3.8322392541892567`*^9, 3.832239262037384*^9}, {
  3.8322392935260983`*^9, 3.832239293789916*^9}, {3.832239451552669*^9, 
  3.832239458672798*^9}, {3.832239576243064*^9, 3.832239576394759*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"7bddfed2-a761-4c62-bcdc-0460988fbd67"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"datNum", "[", 
  RowBox[{"[", "2", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.83214601815701*^9, 3.832146022692172*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"50295a31-c985-47a1-ab52-8a5871504ed9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", 
   InterpretationBox[
    TemplateBox[{"1.3578383417065", "95", "10"},
     "AroundSeq"],
    Around[1.357838341706595496`18.132848067820845, 1.*^-14]]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.832146019765203*^9, 3.832146023509615*^9}, 
   3.832146068422765*^9, 3.832146460247183*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"bc09ed81-20b7-4e22-a63a-1d663336b1b5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"m0rule", "=", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"coeffCas", "[", "1", "]"}], "==", 
      RowBox[{"datNum", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;", "3"}], ",", "2"}], "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"m0", ",", "h0"}], "}"}]}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8321459908444443`*^9, 3.8321460752131433`*^9}, {
  3.8321464716527967`*^9, 3.8321464718044024`*^9}, {3.8321466387696667`*^9, 
  3.832146653175795*^9}, {3.832151934783225*^9, 3.8321519353348494`*^9}, {
  3.832152037225222*^9, 3.8321520374089203`*^9}, {3.832239305719432*^9, 
  3.832239316046335*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"7efd85be-fd7d-435a-a870-214d8ec4025d"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "ratnz", 
   "\"Solve was unable to solve the system with inexact coefficients. The \
answer was obtained by solving a corresponding exact system and numericizing \
the result.\"", 2, 12, 3, 25143344835924279801, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.832146653505703*^9, 3.8321519356060266`*^9, 3.8321520375652533`*^9, {
   3.8321544205609913`*^9, 3.832154425785782*^9}, {3.832239276291945*^9, 
   3.832239326773054*^9}, {3.836570087200712*^9, 3.836570104160351*^9}},
 CellLabel->
  "During evaluation of \
In[12]:=",ExpressionUUID->"495ad979-d632-478f-8e0f-56a8e4f9987f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"m0", "\[Rule]", 
    InterpretationBox[
     TemplateBox[{"1.00576267284062", "0", "7"},
      "AroundSeq"],
     Around[1.0057626728406195`, 7.407086999594733*^-15]]}], ",", 
   RowBox[{"h0", "\[Rule]", 
    InterpretationBox[
     TemplateBox[{"0.2591817983", "42", "11"},
      "AroundSeq"],
     Around[0.2591817983420855, 1.0588943216503217`*^-11]]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.832145993018977*^9, 3.832146075354514*^9}, {
   3.832146456457759*^9, 3.83214647211082*^9}, 3.832146653511766*^9, 
   3.832151935612179*^9, 3.8321520375710917`*^9, {3.8321544206488857`*^9, 
   3.8321544257922564`*^9}, {3.8322392763285713`*^9, 
   3.8322393267777767`*^9}, {3.836570087516891*^9, 3.8365701041934032`*^9}},
 CellLabel->"Out[12]=",ExpressionUUID->"2e2d8ac6-c3fd-4636-a145-e07805271602"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"m0", "/", 
   SuperscriptBox[
    RowBox[{"hCas", "[", "1", "]"}], "15"]}], "/.", "m0rule"}]], "Input",
 CellChangeTimes->{{3.832239524531241*^9, 3.8322395731787653`*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"111093b6-716a-4bf7-a45a-dac15b888b04"],

Cell[BoxData[
 InterpretationBox[
  TemplateBox[{"3.91346457", "68", "24", 
    SuperscriptBox["10", "23"]},
   "AroundSeqExp"],
  Around[3.913464576785271*^23, 2.3982849751474694`*^14]]], "Output",
 CellChangeTimes->{{3.8322395263809423`*^9, 3.832239573513529*^9}, 
   3.836570106674327*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"f4db1aaf-ffb6-4069-b376-c6b46e4be074"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Head", "[", 
  RowBox[{"Gls", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.836572055804084*^9, 3.836572059789261*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"35006d51-03e9-4e09-8401-8176648f7474"],

Cell[BoxData["Around"], "Output",
 CellChangeTimes->{3.836572060163045*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"021cf2ad-b5c4-4865-a718-f51958ee0792"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"coeffCasMid", "[", "5", "]"}], "/", 
   RowBox[{
    RowBox[{"Range", "[", 
     RowBox[{"0", ",", "5"}], "]"}], "!"}]}], "/.", "m0rule"}]], "Input",
 CellChangeTimes->{{3.832239286022997*^9, 3.83223928776565*^9}, {
  3.832239333006241*^9, 3.83223933347838*^9}, {3.832239464537035*^9, 
  3.832239465688715*^9}, {3.832239596747369*^9, 3.832239610347269*^9}, {
  3.832239661037331*^9, 3.83223966189207*^9}},
 CellLabel->"In[93]:=",ExpressionUUID->"f42f7737-f59e-4289-8153-b78626e30f0e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    TemplateBox[{"1.28038403638", "02", "35"},
     "AroundSeq"],
    Around[1.280384036380197, 3.4873754010149197`*^-12]], ",", 
   InterpretationBox[
    TemplateBox[{"0.16625752423", "7", "4"},
     "AroundSeq"],
    Around[0.16625752423710902`, 3.65085742707853*^-12]], ",", 
   InterpretationBox[
    TemplateBox[{"-0.03998986398", "4", "4"},
     "AroundSeq"],
    Around[-0.03998986398383036, 4.214923021493555*^-12]], ",", 
   InterpretationBox[
    TemplateBox[{"0.00793393859", "4", "6"},
     "AroundSeq"],
    Around[0.0079339385941567, 5.5085778849645144`*^-12]], ",", 
   InterpretationBox[
    TemplateBox[{"-0.00027904634", "6", "9"},
     "AroundSeq"],
    Around[-0.0002790463457692103, 8.678222971301997*^-12]], ",", 
   InterpretationBox[
    TemplateBox[{"-0.0006680802", "61", "14"},
     "AroundSeq"],
    Around[-0.0006680802614227734, 1.449046104189115*^-11]]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.832239333786672*^9, {3.8322394618672743`*^9, 3.832239465919291*^9}, {
   3.83223957814188*^9, 3.832239613896473*^9}, 3.83223966232157*^9},
 CellLabel->"Out[93]=",ExpressionUUID->"554f67c9-f7db-464a-bb28-41d81dcbec1c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"datNum", "=", 
   RowBox[{"Thread", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Range", "[", 
       RowBox[{"0", ",", "11"}], "]"}], ",", "Gls"}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.832146079469277*^9, 3.832146080085175*^9}, {
   3.832146220615906*^9, 3.832146230663995*^9}, 3.836571905035768*^9, {
   3.836572227321196*^9, 3.836572228850659*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"ec8b9383-61d6-44c2-b776-3d651fc19660"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<~/doc/research/first_order_singularities/paper/data/glow_series_\
numeric.dat\>\"", ",", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"#1", ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Head", "[", "#2", "]"}], "===", "Around"}], ",", 
         RowBox[{"#2", "[", "\"\<Value\>\"", "]"}], ",", "#2"}], "]"}], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Head", "[", "#2", "]"}], "===", "Around"}], ",", 
         RowBox[{"#2", "[", "\"\<Uncertainty\>\"", "]"}], ",", "0"}], "]"}]}],
       "}"}], "&"}], "@@@", "datNum"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.836571907042726*^9, 3.8365719075682077`*^9}, {
  3.8365719679456177`*^9, 3.836572034954253*^9}, {3.836572067138021*^9, 
  3.8365720932499523`*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"cbeb62aa-7e89-4ec5-a1cb-d5012bac06fd"],

Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/glow_\
series_numeric.dat\"\>"], "Output",
 CellChangeTimes->{
  3.8365719078847313`*^9, {3.836572025847522*^9, 3.836572035446138*^9}, 
   3.8365720941903563`*^9, 3.836572233522911*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"9ddcc7c6-de02-4d31-9401-bbbc5eefe582"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"datCas", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"NestList", "[", 
     RowBox[{
      RowBox[{"dd\[Xi]", "[", "hCas", "]"}], ",", 
      RowBox[{"m0", " ", 
       FractionBox["\[Theta]", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["\[Theta]", "2"], "-", "1"}], ")"}], 
         RowBox[{"1", "/", "8"}]]]}], ",", "10"}], "]"}], "/.", 
    RowBox[{"\[Theta]", "->", "\[Theta]0Cas"}]}], "/.", "m0rule"}]}]], "Input",\

 CellChangeTimes->{{3.832146080982091*^9, 3.832146136030287*^9}, {
   3.832146166615106*^9, 3.832146187807186*^9}, {3.832146248416617*^9, 
   3.8321462996333437`*^9}, 3.8321545081565647`*^9, {3.832154839236245*^9, 
   3.832154839322452*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"a79b1406-8855-4788-85f8-e01146acbc0b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    TemplateBox[{"1.3578383417065", "96", "10"},
     "AroundSeq"],
    Around[1.3578383417065958`, 1.0000000000000002`*^-14]], ",", 
   InterpretationBox[
    TemplateBox[{"0.09790657944", "0", "4"},
     "AroundSeq"],
    Around[0.09790657944000002, 4.000000129977332*^-12]], ",", 
   InterpretationBox[
    TemplateBox[{"-0.2150219943", "3", "5"},
     "AroundSeq"],
    Around[-0.21502199433323033`, 4.846069847889282*^-11]], ",", 
   InterpretationBox[
    TemplateBox[{"1.275438112", "0", "9"},
     "AroundSeq"],
    Around[1.275438111980478, 8.99846810474221*^-10]], ",", 
   InterpretationBox[
    TemplateBox[{"-13.1943759", "67", "24"},
     "AroundSeq"],
    Around[-13.194375967404621`, 2.4265468926938114`*^-8]], ",", 
   InterpretationBox[
    TemplateBox[{"199.409126", "0", "9"},
     "AroundSeq"],
    Around[199.40912595141498`, 8.737534828617298*^-7]], ",", 
   InterpretationBox[
    TemplateBox[{"-4004.42550", "0.00004"},
     "Around"],
    Around[-4004.4254982941143`, 0.00003908326367837291]], ",", 
   InterpretationBox[
    TemplateBox[{"100787.9920", "0.0021"},
     "Around"],
    Around[100787.99199788233`, 0.0020814305200299176`]], ",", 
   InterpretationBox[
    TemplateBox[{"-3.057071", "42", "13", 
      SuperscriptBox["10", "6"]},
     "AroundSeqExp"],
    Around[-3.0570714230898526`*^6, 0.1286182540195812]], ",", 
   InterpretationBox[
    TemplateBox[{"1.0865807", "0", "9", 
      SuperscriptBox["10", "8"]},
     "AroundSeqExp"],
    Around[1.0865806967349882`*^8, 9.049523786749958]], ",", 
   InterpretationBox[
    TemplateBox[{"-4.431930", "7", "7", 
      SuperscriptBox["10", "9"]},
     "AroundSeqExp"],
    Around[-4.431930709816816*^9, 714.3183514973954]]}], "}"}]], "Output",
 CellChangeTimes->{{3.8321460949067373`*^9, 3.832146137791162*^9}, 
   3.832146172640996*^9, 3.832146235521159*^9, {3.8321462717412853`*^9, 
   3.832146275952108*^9}, 3.8321463349718313`*^9, 3.8321464558511057`*^9, 
   3.832146509817857*^9, 3.83214669949054*^9, 3.832151975553176*^9, 
   3.832152083287957*^9, 3.832154510903532*^9, 3.832154883538463*^9, 
   3.836570442389636*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"5d5e77cf-f1ea-4666-9e43-e8dbd0de9153"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"datOurs", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"dFd\[Xi]LowList", "[", 
      RowBox[{"n1", ",", "h1"}], "]"}], "[", "9", "]"}], "/.", "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.832154514224004*^9, 
   3.832154515788747*^9}, 3.832154755609396*^9, {3.836572237598887*^9, 
   3.836572247372046*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"4221e07f-e3c2-4004-a825-7339ebc77c40"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<~/doc/research/first_order_singularities/paper/data/glow_series_ours_0.\
dat\>\"", ",", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{
        RowBox[{"Chop", "@", 
         RowBox[{"datOurs", "[", 
          RowBox[{"[", 
           RowBox[{"i", "+", "1"}], "]"}], "]"}]}], "/", 
        RowBox[{"i", "!"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", 
       RowBox[{
        RowBox[{"Length", "[", "datOurs", "]"}], "-", "1"}]}], "}"}]}], 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8365725090188103`*^9, 3.836572511033183*^9}, {
  3.836572551269373*^9, 3.836572621026455*^9}, {3.8365727308332853`*^9, 
  3.836572735579463*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"],

Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/glow_\
series_ours_0.dat\"\>"], "Output",
 CellChangeTimes->{
  3.8365725114300337`*^9, {3.8365725984285917`*^9, 3.8365726212484303`*^9}, 
   3.8365727364325037`*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"9a70ffe7-9718-4df2-80c1-4de5b7c7d436"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<~/doc/research/first_order_singularities/paper/data/glow_series_\
caselle.dat\>\"", ",", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"datCas", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", "\"\<Value\>\"", "]"}], "/", 
        RowBox[{"i", "!"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "datCas", "]"}]}], "}"}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, {
  3.8365730212450933`*^9, 3.836573024451941*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"],

Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/glow_\
series_caselle.dat\"\>"], "Output",
 CellChangeTimes->{3.83657297081538*^9, 3.836573024753381*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"01370c9d-9462-41f0-8dcc-9775da2fb959"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{"datNum", ",", 
    RowBox[{"Abs", "@", "datCas"}], ",", 
    RowBox[{"Thread", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Range", "[", 
        RowBox[{"0", ",", 
         RowBox[{
          RowBox[{"Length", "[", "datOurs", "]"}], "-", "1"}]}], "]"}], ",", 
       "datOurs"}], "}"}], "]"}]}], "\[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}},
 CellLabel->"In[20]:=",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., -2.3237415260246084`}, {2., -2.323741525983753}}], 
          LineBox[{{2., -2.323741525983753}, {2., -2.3237415259428977`}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{3., -1.4559292669525052`}, {3., -1.4559292643794253`}}], 
          LineBox[{{3., -1.4559292643794253`}, {3., -1.4559292618063453`}}]}},
        
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{4., 0.49511742142021525`}, {4., 0.4951174360481992}}], 
          LineBox[{{4., 0.4951174360481992}, {4., 0.4951174506761829}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{5., 3.0940399563540724`}, {5., 3.09404001073627}}], 
          LineBox[{{5., 3.09404001073627}, {5., 3.094040065118465}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{6., 6.1624758838184075`}, {6., 6.16247740087889}}], 
          LineBox[{{6., 6.16247740087889}, {6., 6.162478917937071}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{7., 9.602775387951214}, {7., 9.60277640917097}}], 
          LineBox[{{7., 9.60277640917097}, {7., 9.602777430389681}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{8., 13.351873817000742`}, {8., 13.352514637272591`}}], 
          LineBox[{{8., 13.352514637272591`}, {8., 13.35315504715679}}]}},
        Antialiasing->False]}}, {
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{1., 0.30589398059733136`}, {1., 0.30589398059733874`}}], 
          LineBox[{{1., 0.30589398059733874`}, {1., 0.30589398059734607`}}]}},
        
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{2., -2.3237415260246084`}, {2., -2.323741525983753}}], 
          LineBox[{{2., -2.323741525983753}, {2., -2.3237415259428977`}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{3., -1.5370149570877314`}, {3., -1.537014956862356}}], 
          LineBox[{{3., -1.537014956862356}, {3., -1.5370149566369802`}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{4., 0.2432897361215771}, {4., 0.2432897368270969}}], 
          LineBox[{{4., 0.2432897368270969}, {4., 0.24328973753261673`}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{5., 2.5797906738871794`}, {5., 2.5797906757262563`}}], 
          LineBox[{{5., 2.5797906757262563`}, {5., 2.579790677565333}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{6., 5.295358619156995}, {6., 5.295358623538708}}], 
          LineBox[{{6., 5.295358623538708}, {6., 5.295358627920421}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{7., 8.29515539333424}, {7., 8.295155403094258}}], 
          LineBox[{{7., 8.295155403094258}, {7., 8.295155412854276}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{8., 11.520774479866512`}, {8., 11.520774500518085`}}], 
          LineBox[{{8., 11.520774500518085`}, {8., 11.520774521169658`}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{9., 14.932967922312375`}, {9., 14.932967964384751`}}], 
          LineBox[{{9., 14.932967964384751`}, {9., 14.932968006457125`}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{10., 18.50371645081476}, {10., 18.50371653409918}}], 
          LineBox[{{10., 18.50371653409918}, {10., 18.503716617383592`}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.880722, 0.611041, 0.142051], 
       StyleBox[{{}, {
          LineBox[{{11., 22.212100991027132`}, {11., 22.212101152202578`}}], 
          LineBox[{{11., 22.212101152202578`}, {11., 22.212101313378}}]}},
        Antialiasing->False]}}}, {}}, {
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{1., 0.3058939805973386}, {2., -2.323741525983753}, {
      3., -1.4559292643794253`}, {4., 0.4951174360481992}, {5., 
      3.09404001073627}, {6., 6.16247740087889}, {7., 9.60277640917097}, {8., 
      13.352514637272591`}, {9., 17.374061165823296`}, {10., 
      21.625033700634212`}, {11., 26.085288777828126`}}]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{1., 0.30589398059733874`}, {2., -2.323741525983753}, {
      3., -1.537014956862356}, {4., 0.2432897368270969}, {5., 
      2.5797906757262563`}, {6., 5.295358623538708}, {7., 
      8.295155403094258}, {8., 11.520774500518085`}, {9., 
      14.932967964384751`}, {10., 18.50371653409918}, {11., 
      22.212101152202578`}}]}, 
    {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{1., 0.30589398059734246`}, {2., -2.323741525983774}, {
      3., -1.463019114084386}, {4., 0.465947996316923}, {5., 
      3.0320156927845257`}, {6., 6.065443960311892}, {7., 
      9.474366021505318}, {8., 13.198778109365042`}, {9., 
      17.195307773271686`}}]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., -4.546909369396598},
  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]],
  ImageSize->{414.0000000000002, Automatic},
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Exp[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Exp[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 11.}, {-4.546909369396598, 26.085288777828126`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->FrontEndValueCache[{Automatic, 
     Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{2.302585092994046, 
       FormBox["10", TraditionalForm], {0.01, 0.}}, {11.512925464970229`, 
       FormBox[
        TemplateBox[{"10", "5"}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}}, {20.72326583694641, 
       FormBox[
        TemplateBox[{"10", "9"}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}}, {-6.907755278982137, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-4.605170185988091, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-2.3025850929940455`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0., 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      4.605170185988092, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      6.907755278982137, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      9.210340371976184, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      13.815510557964274`, 
       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.}}, {
      27.631021115928547`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      29.933606208922594`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}}}]]], "Output",
 CellChangeTimes->{
  3.8292190385400677`*^9, 3.829219088509445*^9, 3.8292203752304993`*^9, 
   3.829362528741741*^9, 3.832145985334715*^9, {3.83214610321945*^9, 
   3.832146139205316*^9}, 3.832146173390081*^9, 3.832146239819025*^9, {
   3.832146343090296*^9, 3.832146365218691*^9}, 3.832146512787468*^9, 
   3.8321467072616997`*^9, {3.832146811961604*^9, 3.832146837071911*^9}, 
   3.8321477095082703`*^9, 3.832151921021535*^9, 3.832151975632756*^9, {
   3.832152031506322*^9, 3.832152044695828*^9}, 3.832152083368902*^9, 
   3.832154526555648*^9, 3.8365707096084023`*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"6cada30c-d260-4892-8f67-49af9e1c1a05"]
}, 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->{1435.5, 790.5},
WindowMargins->{{2.25, Automatic}, {2.25, Automatic}},
FrontEndVersion->"12.1 for Linux ARM (32-bit) (August 18, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"d257fbda-2be1-4221-9ac8-5153716cfc00"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 596, 10, 29, "Input",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"],
Cell[1157, 32, 7539, 107, 71, "Input",ExpressionUUID->"872503c3-0779-4b87-805f-13a088f459e3"],
Cell[8699, 141, 1257, 31, 113, "Input",ExpressionUUID->"02a1f6e5-4144-4552-9463-2a226c1ee186"],
Cell[9959, 174, 2710, 69, 113, "Input",ExpressionUUID->"d8831e63-87f3-498c-8951-21f347e539ff"],
Cell[12672, 245, 941, 24, 73, "Input",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"],
Cell[13616, 271, 915, 20, 50, "Input",ExpressionUUID->"bd6b698e-6871-43fa-9d98-7385cc594c9c"],
Cell[14534, 293, 752, 17, 47, "Input",ExpressionUUID->"7bddfed2-a761-4c62-bcdc-0460988fbd67"],
Cell[CellGroupData[{
Cell[15311, 314, 226, 4, 29, "Input",ExpressionUUID->"50295a31-c985-47a1-ab52-8a5871504ed9"],
Cell[15540, 320, 418, 10, 36, "Output",ExpressionUUID->"bc09ed81-20b7-4e22-a63a-1d663336b1b5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15995, 335, 811, 19, 29, "Input",ExpressionUUID->"7efd85be-fd7d-435a-a870-214d8ec4025d"],
Cell[16809, 356, 649, 13, 22, "Message",ExpressionUUID->"495ad979-d632-478f-8e0f-56a8e4f9987f"],
Cell[17461, 371, 853, 19, 36, "Output",ExpressionUUID->"2e2d8ac6-c3fd-4636-a145-e07805271602"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18351, 395, 285, 6, 31, "Input",ExpressionUUID->"111093b6-716a-4bf7-a45a-dac15b888b04"],
Cell[18639, 403, 371, 8, 35, "Output",ExpressionUUID->"f4db1aaf-ffb6-4069-b376-c6b46e4be074"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19047, 416, 256, 5, 29, "Input",ExpressionUUID->"35006d51-03e9-4e09-8401-8176648f7474"],
Cell[19306, 423, 154, 2, 33, "Output",ExpressionUUID->"021cf2ad-b5c4-4865-a718-f51958ee0792"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19497, 430, 531, 11, 31, "Input",ExpressionUUID->"f42f7737-f59e-4289-8153-b78626e30f0e"],
Cell[20031, 443, 1212, 31, 36, "Output",ExpressionUUID->"554f67c9-f7db-464a-bb28-41d81dcbec1c"]
}, Open  ]],
Cell[21258, 477, 494, 12, 29, "Input",ExpressionUUID->"ec8b9383-61d6-44c2-b776-3d651fc19660"],
Cell[CellGroupData[{
Cell[21777, 493, 943, 23, 51, "Input",ExpressionUUID->"cbeb62aa-7e89-4ec5-a1cb-d5012bac06fd"],
Cell[22723, 518, 334, 5, 33, "Output",ExpressionUUID->"9ddcc7c6-de02-4d31-9401-bbbc5eefe582"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23094, 528, 812, 20, 50, "Input",ExpressionUUID->"a79b1406-8855-4788-85f8-e01146acbc0b"],
Cell[23909, 550, 2252, 56, 58, "Output",ExpressionUUID->"5d5e77cf-f1ea-4666-9e43-e8dbd0de9153"]
}, Open  ]],
Cell[26176, 609, 672, 14, 29, "Input",ExpressionUUID->"4221e07f-e3c2-4004-a825-7339ebc77c40"],
Cell[CellGroupData[{
Cell[26873, 627, 855, 23, 32, "Input",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"],
Cell[27731, 652, 315, 5, 33, "Output",ExpressionUUID->"9a70ffe7-9718-4df2-80c1-4de5b7c7d436"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28083, 662, 756, 20, 32, "Input",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"],
Cell[28842, 684, 254, 3, 33, "Output",ExpressionUUID->"01370c9d-9462-41f0-8dcc-9775da2fb959"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29133, 692, 1441, 27, 71, "Input",ExpressionUUID->"e61ed118-a102-4290-8440-cba17b87145b"],
Cell[30577, 721, 10038, 212, 275, "Output",ExpressionUUID->"6cada30c-d260-4892-8f67-49af9e1c1a05"]
}, Open  ]],
Cell[40630, 936, 175, 3, 29, "Input",ExpressionUUID->"0f87aa05-2cc9-472a-ab27-39ee15777442"],
Cell[40808, 941, 356, 7, 29, "Input",ExpressionUUID->"627c17e0-e2d8-4347-8fe9-812183a42941"],
Cell[CellGroupData[{
Cell[41189, 952, 176, 2, 29, "Input",ExpressionUUID->"f32c32be-7fcb-4660-bf43-cbc119acda96"],
Cell[41368, 956, 2097, 65, 58, "Output",ExpressionUUID->"01b48fb7-d8c9-4012-92f6-488cf7e7087c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43502, 1026, 860, 24, 32, "Input",ExpressionUUID->"bfa6a31f-5eb9-4063-b798-e45ab1e3b53a"],
Cell[44365, 1052, 1944, 57, 77, "Output",ExpressionUUID->"0ca79efb-1867-4b1f-96fc-4a691d54b72e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46346, 1114, 2622, 77, 122, "Input",ExpressionUUID->"242aacdf-e4c7-423c-a26a-12188ba2476e"],
Cell[48971, 1193, 21838, 439, 241, "Output",ExpressionUUID->"073d831e-11a6-4203-90ce-0df429c1a3f0"]
}, Open  ]],
Cell[70824, 1635, 725, 15, 29, "Input",ExpressionUUID->"80c6c675-eade-40e1-8d0f-13a6578b30ff"],
Cell[71552, 1652, 764, 21, 29, "Input",ExpressionUUID->"d8847f2e-21fe-4fb7-84ae-676f83acdf5a"],
Cell[CellGroupData[{
Cell[72341, 1677, 679, 17, 50, "Input",ExpressionUUID->"15d60f60-2f87-40da-a2c6-66d640111d75"],
Cell[73023, 1696, 1298, 32, 36, "Output",ExpressionUUID->"6f1d902a-0431-4a99-adc2-97eb3c423317"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74358, 1733, 736, 18, 71, "Input",ExpressionUUID->"bec4c929-c1a6-4fd0-be18-caf3643ba3a4"],
Cell[75097, 1753, 14613, 314, 239, "Output",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"]
}, Open  ]]
}
]
*)