(* 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[ 105372, 2426] NotebookOptionsPosition[ 100295, 2338] NotebookOutlinePosition[ 100694, 2354] CellTagsIndexPosition[ 100651, 2351] 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[2]:=",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[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[11]:=",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", "[", "\"\\"", "]"}], ",", "#2"}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "#2", "]"}], "===", "Around"}], ",", RowBox[{"#2", "[", "\"\\"", "]"}], ",", "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[{"m0rule", "=", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"coeffCas", "[", "1", "]"}], "==", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "!"}], ",", RowBox[{"2", "!"}]}], "}"}], 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}, {3.836984166958787*^9, 3.83698416798269*^9}, { 3.836984311313539*^9, 3.836984316617137*^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, 31608996298011231244, "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}, { 3.8369749921742907`*^9, 3.836975002927493*^9}, 3.836984168350904*^9, 3.8369843170148077`*^9, 3.8370700000102262`*^9, {3.837072474483852*^9, 3.837072478715604*^9}}, CellLabel-> "During evaluation of \ In[12]:=",ExpressionUUID->"2e43731b-67a2-4964-9c03-694bb26aa975"], 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.0588943216503216`*^-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}, { 3.836974992241055*^9, 3.836975002932447*^9}, 3.836984168357218*^9, 3.836984317019814*^9, 3.837070000054738*^9, {3.837072474543331*^9, 3.837072478720648*^9}}, CellLabel->"Out[12]=",ExpressionUUID->"325e2b46-9d64-4724-8091-36718f8f11a2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "h0", "]"}], ";", RowBox[{"ClearAll", "[", "m0", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{ RowBox[{"h0", "[", "\"\\"", "]"}], "/.", "m0rule"}]}], "\[IndentingNewLine]", RowBox[{"m0", "=", RowBox[{ RowBox[{"m0", "[", "\"\\"", "]"}], "/.", "m0rule"}]}]}], "Input", CellChangeTimes->{{3.8369847488424397`*^9, 3.836984792561878*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"28731a52-d222-49b4-aebb-262f9a5d4dd5"], Cell[BoxData["0.2591817983420855`"], "Output", CellChangeTimes->{{3.83698477315833*^9, 3.8369847927282743`*^9}, 3.837070002329464*^9, 3.837072479312191*^9}, CellLabel->"Out[14]=",ExpressionUUID->"65626e49-d3af-4115-b5d3-96f63b95604e"], Cell[BoxData[ RowBox[{"-", "1.0057626728406195`"}]], "Output", CellChangeTimes->{{3.83698477315833*^9, 3.8369847927282743`*^9}, 3.837070002329464*^9, 3.837072479313409*^9}, CellLabel->"Out[15]=",ExpressionUUID->"fe83a208-ae15-4c69-a7c9-b98329954997"] }, 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[16]:=",ExpressionUUID->"f42f7737-f59e-4289-8153-b78626e30f0e"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1.280384036380197`"}], ",", RowBox[{"-", "0.166257524237109`"}], ",", "0.03998986398383036`", ",", RowBox[{"-", "0.00793393859415671`"}], ",", "0.00027904634576921466`", ",", "0.0006680802614227808`"}], "}"}]], "Output", CellChangeTimes->{ 3.832239333786672*^9, {3.8322394618672743`*^9, 3.832239465919291*^9}, { 3.83223957814188*^9, 3.832239613896473*^9}, 3.83223966232157*^9, 3.8369843208154488`*^9, 3.8370724800639668`*^9}, CellLabel->"Out[16]=",ExpressionUUID->"c7c2e58e-e6d9-436b-9cc9-4238f4205a5a"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"invDerivativeList", "[", "n_", "]"}], "[", "f_", "]"}], "[", "x_", "]"}], ":=", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"xp", ",", "dfs", ",", "fp", ",", "Pns"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dfs", "=", RowBox[{ RowBox[{"Rest", "[", RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"#", ",", "xp"}], "]"}], "&"}], ",", RowBox[{"f", "[", "xp", "]"}], ",", "n"}], "]"}], "]"}], "/.", RowBox[{"xp", "->", "x"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Pns", "=", RowBox[{ RowBox[{"FoldList", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"Pm", ",", "m"}], "}"}], "\[Function]", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"fp", "'"}], "[", "xp", "]"}], " ", RowBox[{"D", "[", RowBox[{"Pm", ",", "xp"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "m"}], "-", "1"}], ")"}], RowBox[{ RowBox[{"fp", "''"}], "[", "xp", "]"}], " ", "Pm"}]}]}], ",", "1", ",", RowBox[{"Range", "[", RowBox[{"n", "-", "1"}], "]"}]}], "]"}], "/.", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "m_", "]"}], "[", "fp", "]"}], "[", "xp", "]"}], ":>", RowBox[{"dfs", "[", RowBox[{"[", "m", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"Pn", ",", "i"}], "}"}], "\[Function]", RowBox[{"Pn", "/", SuperscriptBox[ RowBox[{"dfs", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{ RowBox[{"2", RowBox[{"i", "[", RowBox[{"[", "1", "]"}], "]"}]}], "-", "1"}]]}]}], ",", "Pns"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.83698298732085*^9, 3.836983017577533*^9}, { 3.8369830656105223`*^9, 3.836983192220652*^9}, {3.8369852957954073`*^9, 3.836985418901877*^9}, {3.836985491119132*^9, 3.836985540335959*^9}, { 3.836985603761368*^9, 3.8369856038652277`*^9}, {3.836986669957045*^9, 3.836986682421062*^9}}, CellLabel->"In[17]:=",ExpressionUUID->"275ca4b6-77bf-4727-923f-67c9c37ad46e"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"totCas", "=", "17"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ds", "=", RowBox[{ RowBox[{ RowBox[{"invDerivativeList", "[", "totCas", "]"}], "[", RowBox[{"\[Theta]", "\[Function]", FractionBox[ RowBox[{"hCas", "[", "\[Theta]", "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"t", "[", "\[Theta]", "]"}], ")"}], RowBox[{"\[CapitalDelta]", "[", "2", "]"}]]]}], "]"}], "[", "\[Theta]0Cas", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dMs", "=", RowBox[{ RowBox[{"m0", " ", RowBox[{"Rest", "[", RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"#", ",", "\[Theta]"}], "]"}], "&"}], ",", FractionBox["\[Theta]", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["\[Theta]", "2"], "-", "1"}], ")"}], RowBox[{"1", "/", "8"}]]], ",", "totCas"}], "]"}], "]"}]}], "/.", RowBox[{"\[Theta]", "->", "\[Theta]0Cas"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"datCas", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"dMs", "[", RowBox[{"[", "k", "]"}], "]"}], RowBox[{"BellY", "[", RowBox[{"n", ",", "k", ",", RowBox[{"ds", "[", RowBox[{"[", RowBox[{";;", RowBox[{"n", "-", "k", "+", "1"}]}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "/", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "!"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "totCas"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGCQAGIQHXVsxuTiaW8cpepuTAPRt/4wzgbRDhmJB0C0AfeT IyDaefWB42B5s2LWciBd8vg9F4iWm+0rAKIn5SyRBNFNksv1QPSRyuv6IDry Dp8DiOYzEQbTj2QUA0D0ylfKYPqeomIImJ6UGQqiy/K0UkC0yGE9MN2VltcE ons2t7aAaOWou2dAtHDoXzBdsUlNsQJI+3A4KINolltbdEC0jKGiLYhOmRju D6J7Ns4NBNE2EZ7nQHS3uDeYFhCceBtEm5TnPATR3usq0yqBdF1aP5iuqduT B6L7Zx0E0yq1U65UAek9VV3XQPSOV4nhC4G0jsR8MJ1QPqcKRGc0zQfTXDKC p0D0uX4ZMF0eMa1nEZB+eng+mAYA2XPFWw== "], CellLabel->"In[18]:=",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.04895328972000001`"}], ",", "0.0358369990555384`", ",", RowBox[{"-", "0.05314325466585322`"}], ",", "0.10995313306170523`", ",", RowBox[{"-", "0.27695711937696654`"}], ",", "0.7945288687091524`", ",", RowBox[{"-", "2.499702182487203`"}], ",", "8.424469309661326`", ",", RowBox[{"-", "29.943251122547245`"}], ",", "111.02920849909947`", ",", RowBox[{"-", "426.1281183859369`"}], ",", "1682.8930954771286`", ",", RowBox[{"-", "6808.202478556653`"}], ",", "28115.088082925722`", ",", RowBox[{"-", "118184.25755733704`"}], ",", "504553.6128947737`", ",", RowBox[{"-", "2.183603153706728`*^6"}]}], "}"}]], "Output", CellChangeTimes->{3.83698713111462*^9, 3.836987321633688*^9, 3.8369882151463833`*^9, 3.83698833312978*^9, 3.837070043781701*^9, 3.837070402550199*^9, 3.837072865049255*^9}, CellLabel->"Out[21]=",ExpressionUUID->"1690ea78-e2c3-4e83-a9e5-8be735e0bca3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"totOurs", "=", "17"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ds", "=", RowBox[{ RowBox[{ RowBox[{"invDerivativeList", "[", "totOurs", "]"}], "[", RowBox[{"\[Theta]", "\[Function]", FractionBox[ RowBox[{ RowBox[{"h1", "[", "\[Theta]", "]"}], "/.", "sol1"}], SuperscriptBox[ RowBox[{"(", RowBox[{"t", "[", "\[Theta]", "]"}], ")"}], RowBox[{"\[CapitalDelta]", "[", "2", "]"}]]]}], "]"}], "[", RowBox[{"\[Theta]c", "/.", "sol1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dFRegs", "=", RowBox[{ RowBox[{ RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"#", ",", "\[Theta]"}], "]"}], "&"}], ",", RowBox[{ RowBox[{ RowBox[{"RFReg", "[", "n1", "]"}], "[", "\[Theta]", "]"}], "/.", "sol1"}], ",", "totOurs"}], "]"}], "/.", RowBox[{"\[Theta]", "->", "\[Theta]c"}]}], "/.", "sol1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dF", "=", RowBox[{"dFRegs", "+", RowBox[{"Table", "[", RowBox[{ RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"AL", " ", RowBox[{"m", "!"}], " ", RowBox[{"Gamma", "[", RowBox[{"m", "-", "1"}], "]"}], " ", RowBox[{ RowBox[{"B", "^", RowBox[{"(", RowBox[{"m", "-", "1"}], ")"}]}], "/", "\[Pi]"}]}], ",", RowBox[{"m", ">", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "True"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "totOurs"}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dMs", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Rest", "[", RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"#", ",", "\[Theta]"}], "]"}], "&"}], ",", RowBox[{ FractionBox[ RowBox[{"fp", "[", "\[Theta]", "]"}], SuperscriptBox[ RowBox[{"t", "[", "\[Theta]", "]"}], "2"]], "-", RowBox[{ FractionBox["1", RowBox[{"8", "\[Pi]"}]], RowBox[{"Log", "[", SuperscriptBox[ RowBox[{"t", "[", "\[Theta]", "]"}], "2"], "]"}]}]}], ",", "totOurs"}], "]"}], "]"}], "/.", RowBox[{"\[Theta]", "->", "\[Theta]c"}]}], "/.", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "#", "]"}], "[", "fp", "]"}], "[", "\[Theta]c", "]"}], "->", RowBox[{"dF", "[", RowBox[{"[", RowBox[{"#", "+", "1"}], "]"}], "]"}]}], "&"}], ",", RowBox[{"Range", "[", RowBox[{"0", ",", "totOurs"}], "]"}]}], "]"}]}], "/.", "sol1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"datOurs", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"dMs", "[", RowBox[{"[", "k", "]"}], "]"}], RowBox[{"BellY", "[", RowBox[{"n", ",", "k", ",", RowBox[{"ds", "[", RowBox[{"[", RowBox[{";;", RowBox[{"n", "-", "k", "+", "1"}]}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "/", RowBox[{ RowBox[{"(", "n", ")"}], "!"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "totOurs"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->CompressedData[" 1:eJwd0Esow3EAB/DRlEetMeWR5N+QlsY0jxU1j/LaU5aZy7YQteYw2aZQwoEl G9kyilFiUh45KWThsKi1mrzKI4elzcnBY/l/f4dvn8P3e/pS+oG2nngGg5FH B2ouXPOmxY/a7NHbRXj3G+eG4j7dKSxNefPBeu/pJekrTAlm2sHXaDLMdUvZ 0GHYyILjWZt86LOGSmDnA0sMWUIO8SWHUsCtMJf4RFHtREe/Cg4Zed0w/ZxP nO41jkPbweQE5Goe/ZCj+iNa9gspC60kUcyFzLvDYpgjoGpgt71DDm17K0pY rW6+hjMZrUR2qv0eCs2GZ6hQiiKw8WrrF2rHZuOttEddz8TAmZwN3+XLaXCC ivJgcNdeDK+lWgEs+ywogw0/GSLoYewooUER0sKSJJsOpnsqjFCSX0WUBb+n YMujfA5G2vROKPVvL8Hzptiqlfxf6YGuwLEX3qpPiHXOIvUa7ZWbR3yTfQ3D 8pEYURJeyFzHjnlD/Ac6Hgav "],ExpressionUUID->"f81ed9c7-d940-4314-963c-c36ea0215ef3"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1.3578383417066047`"}], ",", RowBox[{"-", "0.04895328971999913`"}], ",", "0.038589364046676934`", ",", RowBox[{"-", "0.06639683866958071`"}], ",", "0.17282494938877094`", ",", RowBox[{"-", "0.5982136876234695`"}], ",", "2.5836539597308135`", ",", RowBox[{"-", "13.385542500325027`"}], ",", "80.92156022471416`", ",", RowBox[{"-", "559.2327437492248`"}], ",", "4348.6528801653585`", ",", RowBox[{"-", "37577.54203132622`"}], ",", "357215.5775388312`", ",", RowBox[{"-", "3.7046351622097627`*^6"}], ",", "4.162364375588009`*^7", ",", RowBox[{"-", "5.036541248157173`*^8"}], ",", "6.529768978407632`*^9"}], "}"}]], "Output", CellChangeTimes->{ 3.83698713111462*^9, 3.83698732721172*^9, {3.836987527713932*^9, 3.836987541172042*^9}, {3.8369877357608957`*^9, 3.836987748867478*^9}, { 3.8369877874156313`*^9, 3.836987793551597*^9}, 3.836988034596339*^9, 3.836988124923636*^9, {3.836988167393293*^9, 3.83698817337673*^9}, 3.836988304258202*^9, 3.8369887429546413`*^9, 3.8370701493666887`*^9, 3.83707078354727*^9}, CellLabel->"Out[37]=",ExpressionUUID->"2234af5e-068b-46a3-beaf-99a907ef5184"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ "\"\<~/doc/research/first_order_singularities/paper/data/glow_series_ours_0.\ dat\>\"", ",", RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"datOurs", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "datOurs", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.8365725090188103`*^9, 3.836572511033183*^9}, { 3.836572551269373*^9, 3.836572621026455*^9}, {3.8365727308332853`*^9, 3.836572735579463*^9}, {3.8369881356397867`*^9, 3.8369881529196568`*^9}}, 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, {3.836988153130045*^9, 3.836988182958664*^9}, 3.836988333167184*^9, 3.8370701494196787`*^9, 3.8370707835909777`*^9}, CellLabel->"Out[38]=",ExpressionUUID->"21b5cf8e-7f0a-45f7-ab93-9e8ebe789a07"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ "\"\<~/doc/research/first_order_singularities/paper/data/glow_series_\ caselle.dat\>\"", ",", RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Prepend", "[", RowBox[{"datCas", ",", RowBox[{ RowBox[{"Gls", "[", RowBox[{"[", "2", "]"}], "]"}], "[", "\"\\"", "]"}]}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"1", "+", RowBox[{"Length", "[", "datCas", "]"}]}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, { 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"], Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/glow_\ series_caselle.dat\"\>"], "Output", CellChangeTimes->{3.836988223024967*^9, 3.836988260494157*^9, 3.836988333199574*^9, 3.837070149473012*^9, 3.837070783629765*^9, 3.837072865499703*^9}, CellLabel->"Out[22]=",ExpressionUUID->"a5e80f1a-5f57-4a7a-ad79-17c92282d141"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Gls", "[", RowBox[{"[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.836985954144209*^9, 3.836985955175076*^9}}, CellLabel-> "In[176]:=",ExpressionUUID->"feb08355-9ad1-4257-9f97-e394177d7e32"], Cell[BoxData[ InterpretationBox[ TemplateBox[{"0.0", "1.0", SuperscriptBox["10", "-14"]}, "AroundExp"], Around[0., 1.*^-14]]], "Output", CellChangeTimes->{3.836985955307584*^9}, CellLabel-> "Out[176]=",ExpressionUUID->"87e29f54-9d68-4261-96d4-95d24dcdc36a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogPlot", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Abs", "@", "datNum"}], ",", RowBox[{"Abs", "@", RowBox[{"Prepend", "[", RowBox[{"datCas", ",", RowBox[{"Gls", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, { 3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9, 3.829128493270048*^9}, {3.8291285364471493`*^9, 3.8291285366627502`*^9}, { 3.829128816403723*^9, 3.829128817219697*^9}, {3.829212218892186*^9, 3.829212225564254*^9}, {3.8292122694048777`*^9, 3.829212364606584*^9}, { 3.829212422415756*^9, 3.8292124291194887`*^9}, {3.8292138886103983`*^9, 3.829213892914075*^9}, {3.829214258440802*^9, 3.829214267624782*^9}, { 3.829218996805491*^9, 3.829219001117147*^9}, 3.832145386241276*^9, 3.832145427201569*^9, {3.8321459818994417`*^9, 3.832145984739521*^9}, { 3.8321461019658613`*^9, 3.832146103005608*^9}, {3.83214636465071*^9, 3.832146365018457*^9}, {3.8321468071147757`*^9, 3.83214683603503*^9}, { 3.832151906798731*^9, 3.832151920438457*^9}, {3.83215203026543*^9, 3.8321520312326193`*^9}, {3.836984203191142*^9, 3.8369842034070263`*^9}, { 3.836984260736669*^9, 3.836984270504239*^9}, {3.836985883270376*^9, 3.8369858862218723`*^9}, {3.836985919726593*^9, 3.836985961239354*^9}}, CellLabel-> "In[189]:=",ExpressionUUID->"e61ed118-a102-4290-8440-cba17b87145b"], Cell[BoxData[ GraphicsBox[{{{{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{1., 0.3058939805973312}, {1., 0.3058939805973386}}], LineBox[{{1., 0.3058939805973386}, {1., 0.3058939805973459}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{2., -3.0168887065845538`}, {2., -3.0168887065436985`}}], LineBox[{{2., -3.0168887065436985`}, {2., -3.016888706502843}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{3., -3.24768873618056}, {3., -3.2476887336074802`}}], LineBox[{{3., -3.2476887336074802`}, {3., -3.2476887310344003`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{4., -2.6829364089277306`}, {4., -2.6829363942997464`}}], LineBox[{{4., -2.6829363942997464`}, {4., -2.6829363796717627`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{5., -1.6934517864279734`}, {5., -1.6934517320457758`}}], LineBox[{{5., -1.6934517320457758`}, {5., -1.693451677663581}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{6., -0.4167753281916941}, {6., -0.41677381113121115`}}], LineBox[{{6., -0.41677381113121115`}, {6., -0.4167722940730296}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{7., 1.077614026885801}, {7., 1.077615048105556}}], LineBox[{{7., 1.077615048105556}, {7., 1.0776160693242682`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{8., 2.747270914255491}, {8., 2.7479117345273405`}}], LineBox[{{8., 2.7479117345273405`}, {8., 2.7485521444115397`}}]}}, Antialiasing->False]}}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{1., 0.3058939805973312}, {1., 0.3058939805973386}}], LineBox[{{1., 0.3058939805973386}, {1., 0.3058939805973459}}]}}, Antialiasing->False]}}, {{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{1., 0.3058939805973459}, Offset[{3, 0}, {1., 0.3058939805973459}]}, {{1., 0.3058939805973459}, Offset[{-3, 0}, {1., 0.3058939805973459}]}, {{1., 0.3058939805973312}, Offset[{3, 0}, {1., 0.3058939805973312}]}, {{1., 0.3058939805973312}, Offset[{-3, 0}, {1., 0.3058939805973312}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{2., -3.016888706502843}, Offset[{3, 0}, {2., -3.016888706502843}]}, {{ 2., -3.016888706502843}, Offset[{-3, 0}, {2., -3.016888706502843}]}, {{ 2., -3.0168887065845538`}, Offset[{3, 0}, {2., -3.0168887065845538`}]}, {{ 2., -3.0168887065845538`}, Offset[{-3, 0}, {2., -3.0168887065845538`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{3., -3.2476887310344003`}, Offset[{3, 0}, {3., -3.2476887310344003`}]}, {{ 3., -3.2476887310344003`}, Offset[{-3, 0}, {3., -3.2476887310344003`}]}, {{ 3., -3.24768873618056}, Offset[{3, 0}, {3., -3.24768873618056}]}, {{ 3., -3.24768873618056}, Offset[{-3, 0}, {3., -3.24768873618056}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{4., -2.6829363796717627`}, Offset[{3, 0}, {4., -2.6829363796717627`}]}, {{ 4., -2.6829363796717627`}, Offset[{-3, 0}, {4., -2.6829363796717627`}]}, {{ 4., -2.6829364089277306`}, Offset[{3, 0}, {4., -2.6829364089277306`}]}, {{ 4., -2.6829364089277306`}, Offset[{-3, 0}, {4., -2.6829364089277306`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{5., -1.693451677663581}, Offset[{3, 0}, {5., -1.693451677663581}]}, {{ 5., -1.693451677663581}, Offset[{-3, 0}, {5., -1.693451677663581}]}, {{ 5., -1.6934517864279734`}, Offset[{3, 0}, {5., -1.6934517864279734`}]}, {{ 5., -1.6934517864279734`}, Offset[{-3, 0}, {5., -1.6934517864279734`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{6., -0.4167722940730296}, Offset[{3, 0}, {6., -0.4167722940730296}]}, {{ 6., -0.4167722940730296}, Offset[{-3, 0}, {6., -0.4167722940730296}]}, {{ 6., -0.4167753281916941}, Offset[{3, 0}, {6., -0.4167753281916941}]}, {{ 6., -0.4167753281916941}, Offset[{-3, 0}, {6., -0.4167753281916941}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{7., 1.0776160693242682`}, Offset[{3, 0}, {7., 1.0776160693242682`}]}, {{7., 1.0776160693242682`}, Offset[{-3, 0}, {7., 1.0776160693242682`}]}, {{7., 1.077614026885801}, Offset[{3, 0}, {7., 1.077614026885801}]}, {{ 7., 1.077614026885801}, Offset[{-3, 0}, {7., 1.077614026885801}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{8., 2.7485521444115397`}, Offset[{3, 0}, {8., 2.7485521444115397`}]}, {{8., 2.7485521444115397`}, Offset[{-3, 0}, {8., 2.7485521444115397`}]}, {{8., 2.747270914255491}, Offset[{3, 0}, {8., 2.747270914255491}]}, {{ 8., 2.747270914255491}, Offset[{-3, 0}, {8., 2.747270914255491}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{1., 0.3058939805973459}, Offset[{3, 0}, {1., 0.3058939805973459}]}, {{1., 0.3058939805973459}, Offset[{-3, 0}, {1., 0.3058939805973459}]}, {{1., 0.3058939805973312}, Offset[{3, 0}, {1., 0.3058939805973312}]}, {{ 1., 0.3058939805973312}, Offset[{-3, 0}, {1., 0.3058939805973312}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 0.3058939805973386}, {2., -3.0168887065436985`}, { 3., -3.2476887336074802`}, {4., -2.6829363942997464`}, { 5., -1.6934517320457758`}, {6., -0.41677381113121115`}, {7., 1.077615048105556}, {8., 2.7479117345273405`}, {9., 4.572233685741827}, {10., 6.520621127558696}, {11., 8.582980931954241}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 0.3058939805973386}, {2., -3.016888706543698}, { 3., -3.3287744260904106`}, {4., -2.934764093520849}, { 5., -2.207701067055789}, {6., -1.2838925884713879`}, { 7., -0.2300059579711514}, {8., 0.9161715977728528}, {9., 2.1311404843033004`}, {10., 3.399303961023672}, {11., 4.709793306328703}, {12., 6.054740048438777}, {13., 7.428269671957708}, {14., 8.825883411079555}, {15., 10.2440616536727}, { 16., 11.680000190290155`}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., -4.50329621506643}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, PlotRange->{{0., 16.}, {-4.50329621506643, 11.680000190290155`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->FrontEndValueCache[{Automatic, Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-4.605170185988091, FormBox[ TagBox[ InterpretationBox[ StyleBox["\"0.01\"", ShowStringCharacters -> False], 0.01, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, {0., FormBox["1", TraditionalForm], {0.01, 0.}}, {4.605170185988092, FormBox["100", TraditionalForm], {0.01, 0.}}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {-2.3025850929940455`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.302585092994046, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 6.907755278982137, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11.512925464970229`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 13.815510557964274`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 14.22097566607244, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 14.508657738524219`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 14.73180128983843, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]]], "Output", CellChangeTimes->{3.8369859615296097`*^9, 3.836987016307529*^9}, CellLabel-> "Out[189]=",ExpressionUUID->"2e45389f-59c7-4eaf-9b3a-270214fa013e"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.836571106360374*^9, 3.836571120300399*^9}, 3.836571168400168*^9},ExpressionUUID->"0f87aa05-2cc9-472a-ab27-\ 39ee15777442"], Cell[BoxData[ RowBox[{"Export", "[", "\"\<~/doc/research/first_order_singularities/paper/data/Glow_series_\ numeric\>"}]], "Input", CellChangeTimes->{{3.836571088501528*^9, 3.836571098249134*^9}, { 3.836571174194809*^9, 3.836571175840929*^9}, {3.836571808915742*^9, 3.836571839874625*^9}},ExpressionUUID->"627c17e0-e2d8-4347-8fe9-\ 812183a42941"], Cell[CellGroupData[{ Cell[BoxData["datNum"], "Input", CellChangeTimes->{{3.836571783214171*^9, 3.83657178386341*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"f32c32be-7fcb-4660-bf43-cbc119acda96"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", InterpretationBox[ TemplateBox[{"0.0", "1.0", SuperscriptBox["10", "-14"]}, "AroundExp"], Around[0., 1.*^-14]]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", InterpretationBox[ TemplateBox[{"1.3578383417065", "95", "10"}, "AroundSeq"], Around[1.357838341706595496`18.132848067820845, 1.*^-14]]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", InterpretationBox[ TemplateBox[{"0.09790657944", "0", "4"}, "AroundSeq"], Around[0.09790657944, 4.*^-12]]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", InterpretationBox[ TemplateBox[{"0.233183574", "0", "6"}, "AroundSeq"], Around[0.233183574, 6.*^-10]]}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", InterpretationBox[ TemplateBox[{"1.6406909", "04", "24"}, "AroundSeq"], Around[1.640690904, 2.4000000000000003`*^-8]]}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", InterpretationBox[ TemplateBox[{"22.06604", "52", "12"}, "AroundSeq"], Around[22.0660452, 1.2*^-6]]}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", InterpretationBox[ TemplateBox[{"474.6024", "0.0007"}, "Around"], Around[474.60240000000005`, 0.0007199999999999999]]}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", InterpretationBox[ TemplateBox[{"14805.832", "0.015"}, "Around"], Around[14805.8316, 0.01512]]}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", InterpretationBox[ TemplateBox[{"629395.", "403."}, "Around"], Around[629395.2, 403.2]]}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "3.5112268800000004`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "2463955200"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "213155712000"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.836571784123211*^9}, CellLabel->"Out[25]=",ExpressionUUID->"01b48fb7-d8c9-4012-92f6-488cf7e7087c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"convNum", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "i", "]"}], "]"}], "/", RowBox[{"i", "!"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"Length", "[", "#", "]"}]}], "}"}]}], "]"}], "&"}], "@", RowBox[{"Abs", "[", RowBox[{"Rest", "@", RowBox[{"datNum", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.836571181914515*^9, 3.836571198597612*^9}, { 3.836571231056604*^9, 3.836571231624762*^9}, {3.836571357622385*^9, 3.8365713615968924`*^9}, {3.836571758467436*^9, 3.836571762121763*^9}},ExpressionUUID->"bfa6a31f-5eb9-4063-b798-\ e45ab1e3b53a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", InterpretationBox[ TemplateBox[{"0.03605236957", "62", "15"}, "AroundSeq"], Around[0.03605236957624365, 1.4729294136595367`*^-12]]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", InterpretationBox[ TemplateBox[{"0.79389820", "83", "20"}, "AroundSeq"], Around[0.7938982083184092, 2.043021117987329*^-9]]}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", InterpretationBox[ TemplateBox[{"1.7590120", "91", "26"}, "AroundSeq"], Around[1.7590120906200708`, 2.612583930959776*^-8]]}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", InterpretationBox[ TemplateBox[{"2.689847", "93", "15"}, "AroundSeq"], Around[2.6898479349404627`, 1.5147931071787232`*^-7]]}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", InterpretationBox[ TemplateBox[{"3.58471", "1", "5"}, "AroundSeq"], Around[3.5847112286346623`, 5.4417125989793*^-6]]}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", InterpretationBox[ TemplateBox[{"4.45661", "2", "8"}, "AroundSeq"], Around[4.456612103099352, 8.150067373466504*^-6]]}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", InterpretationBox[ TemplateBox[{"5.3137", "0.0034"}, "Around"], Around[5.313744079055986, 0.003404068437393709]]}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", InterpretationBox[ TemplateBox[{"6.199", "0.004"}, "Around"], Around[6.198590647021142, 0.003970910087777797]]}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "7.017362546506821`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", FractionBox["5340", "679"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.836571362022435*^9}, CellLabel->"Out[24]=",ExpressionUUID->"0ca79efb-1867-4b1f-96fc-4a691d54b72e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "i"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "i", "]"}], "]"}], "/", RowBox[{"#", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], "/", "i"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"Length", "[", "#", "]"}]}], "}"}]}], "]"}], "&"}], "@", RowBox[{"Abs", "[", RowBox[{"Rest", "@", RowBox[{"datNum", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "i"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "i", "]"}], "]"}], "/", RowBox[{"#", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], "/", "i"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"Length", "[", "#", "]"}]}], "}"}]}], "]"}], "&"}], "@", RowBox[{"Abs", "[", "datCas", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "i"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "i", "]"}], "]"}], "/", RowBox[{"#", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], "/", "i"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"Length", "[", "#", "]"}]}], "}"}]}], "]"}], "&"}], "@", RowBox[{"Rest", "[", "datOurs", "]"}]}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], ",", "All"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.8321545395343018`*^9, 3.832154711976303*^9}, { 3.8321547939317636`*^9, 3.832154819442959*^9}, {3.832154942117115*^9, 3.832155007925785*^9}}, CellLabel->"In[21]:=",ExpressionUUID->"242aacdf-e4c7-423c-a26a-12188ba2476e"], Cell[BoxData[ GraphicsBox[{{{{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.5, 0.036052369574770725`}, {0.5, 0.03605236957624365}}], LineBox[{{0.5, 0.03605236957624365}, {0.5, 0.03605236957771658}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.3333333333333333, 0.7938982062753881}, { 0.3333333333333333, 0.7938982083184092}}], LineBox[{{0.3333333333333333, 0.7938982083184092}, { 0.3333333333333333, 0.7938982103614303}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.25, 1.7590120644942315`}, {0.25, 1.7590120906200708`}}], LineBox[{{0.25, 1.7590120906200708`}, {0.25, 1.75901211674591}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.2, 2.689847783461152}, {0.2, 2.6898479349404627`}}], LineBox[{{0.2, 2.6898479349404627`}, {0.2, 2.6898480864197736`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.16666666666666666`, 3.584705786922063}, { 0.16666666666666666`, 3.5847112286346623`}}], LineBox[{{0.16666666666666666`, 3.5847112286346623`}, { 0.16666666666666666`, 3.5847166703472615`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.14285714285714285`, 4.456603953031978}, { 0.14285714285714285`, 4.456612103099352}}], LineBox[{{0.14285714285714285`, 4.456612103099352}, { 0.14285714285714285`, 4.456620253166726}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.125, 5.310340010618592}, {0.125, 5.313744079055986}}], LineBox[{{0.125, 5.313744079055986}, {0.125, 5.317148147493379}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.1111111111111111, 6.194619736933364}, { 0.1111111111111111, 6.198590647021142}}], LineBox[{{0.1111111111111111, 6.198590647021142}, { 0.1111111111111111, 6.202561557108919}}]}}, Antialiasing->False]}}, { {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.5, 0.03605236957477072}, {0.5, 0.03605236957624365}}], LineBox[{{0.5, 0.03605236957624365}, {0.5, 0.036052369577716584`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.3333333333333333, 0.7320651840215073}, { 0.3333333333333333, 0.7320651841891859}}], LineBox[{{0.3333333333333333, 0.7320651841891859}, { 0.3333333333333333, 0.7320651843568644}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.25, 1.4829158698286737`}, {0.25, 1.4829158709269852`}}], LineBox[{{0.25, 1.4829158709269852`}, {0.25, 1.4829158720252966`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.2, 2.0689950876451153`}, {0.2, 2.0689950917205424`}}], LineBox[{{0.2, 2.0689950917205424`}, {0.2, 2.0689950957959695`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.16666666666666666`, 2.5188651778156697`}, { 0.16666666666666666`, 2.5188651897853447`}}], LineBox[{{0.16666666666666666`, 2.5188651897853447`}, { 0.16666666666666666`, 2.5188652017550197`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.14285714285714285`, 2.8687793330471236`}, { 0.14285714285714285`, 2.868779363738686}}], LineBox[{{0.14285714285714285`, 2.868779363738686}, { 0.14285714285714285`, 2.868779394430248}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.125, 3.146143864414641}, {0.125, 3.146143936278064}}], LineBox[{{0.125, 3.146143936278064}, {0.125, 3.1461440081414866`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.1111111111111111, 3.37018904645845}, { 0.1111111111111111, 3.3701892044111372`}}], LineBox[{{0.1111111111111111, 3.3701892044111372`}, { 0.1111111111111111, 3.3701893623638246`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.1, 3.5543186434620817`}, {0.1, 3.554318975108394}}], LineBox[{{0.1, 3.554318975108394}, {0.1, 3.554319306754706}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.09090909090909091, 3.707987082017035}, { 0.09090909090909091, 3.707987754726281}}], LineBox[{{0.09090909090909091, 3.707987754726281}, { 0.09090909090909091, 3.7079884274355273`}}]}}, Antialiasing->False]}}}, {{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.5, 0.03605236957771658}, Offset[{3, 0}, {0.5, 0.03605236957771658}]}, {{0.5, 0.03605236957771658}, Offset[{-3, 0}, {0.5, 0.03605236957771658}]}, {{0.5, 0.036052369574770725`}, Offset[{3, 0}, {0.5, 0.036052369574770725`}]}, {{0.5, 0.036052369574770725`}, Offset[{-3, 0}, {0.5, 0.036052369574770725`}]}}], {{{1., 0.}, { 0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.3333333333333333, 0.7938982103614303}, Offset[{3, 0}, {0.3333333333333333, 0.7938982103614303}]}, {{ 0.3333333333333333, 0.7938982103614303}, Offset[{-3, 0}, {0.3333333333333333, 0.7938982103614303}]}, {{ 0.3333333333333333, 0.7938982062753881}, Offset[{3, 0}, {0.3333333333333333, 0.7938982062753881}]}, {{ 0.3333333333333333, 0.7938982062753881}, Offset[{-3, 0}, {0.3333333333333333, 0.7938982062753881}]}}], {{{ 1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.25, 1.75901211674591}, Offset[{3, 0}, {0.25, 1.75901211674591}]}, {{0.25, 1.75901211674591}, Offset[{-3, 0}, {0.25, 1.75901211674591}]}, {{ 0.25, 1.7590120644942315`}, Offset[{3, 0}, {0.25, 1.7590120644942315`}]}, {{0.25, 1.7590120644942315`}, Offset[{-3, 0}, {0.25, 1.7590120644942315`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.2, 2.6898480864197736`}, Offset[{3, 0}, {0.2, 2.6898480864197736`}]}, {{0.2, 2.6898480864197736`}, Offset[{-3, 0}, {0.2, 2.6898480864197736`}]}, {{0.2, 2.689847783461152}, Offset[{3, 0}, {0.2, 2.689847783461152}]}, {{ 0.2, 2.689847783461152}, Offset[{-3, 0}, {0.2, 2.689847783461152}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.16666666666666666`, 3.5847166703472615`}, Offset[{3, 0}, {0.16666666666666666`, 3.5847166703472615`}]}, {{ 0.16666666666666666`, 3.5847166703472615`}, Offset[{-3, 0}, {0.16666666666666666`, 3.5847166703472615`}]}, {{ 0.16666666666666666`, 3.584705786922063}, Offset[{3, 0}, {0.16666666666666666`, 3.584705786922063}]}, {{ 0.16666666666666666`, 3.584705786922063}, Offset[{-3, 0}, {0.16666666666666666`, 3.584705786922063}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.14285714285714285`, 4.456620253166726}, Offset[{3, 0}, {0.14285714285714285`, 4.456620253166726}]}, {{ 0.14285714285714285`, 4.456620253166726}, Offset[{-3, 0}, {0.14285714285714285`, 4.456620253166726}]}, {{ 0.14285714285714285`, 4.456603953031978}, Offset[{3, 0}, {0.14285714285714285`, 4.456603953031978}]}, {{ 0.14285714285714285`, 4.456603953031978}, Offset[{-3, 0}, {0.14285714285714285`, 4.456603953031978}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.125, 5.317148147493379}, Offset[{3, 0}, {0.125, 5.317148147493379}]}, {{0.125, 5.317148147493379}, Offset[{-3, 0}, {0.125, 5.317148147493379}]}, {{0.125, 5.310340010618592}, Offset[{3, 0}, {0.125, 5.310340010618592}]}, {{0.125, 5.310340010618592}, Offset[{-3, 0}, {0.125, 5.310340010618592}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.1111111111111111, 6.202561557108919}, Offset[{3, 0}, {0.1111111111111111, 6.202561557108919}]}, {{ 0.1111111111111111, 6.202561557108919}, Offset[{-3, 0}, {0.1111111111111111, 6.202561557108919}]}, {{ 0.1111111111111111, 6.194619736933364}, Offset[{3, 0}, {0.1111111111111111, 6.194619736933364}]}, {{ 0.1111111111111111, 6.194619736933364}, Offset[{-3, 0}, {0.1111111111111111, 6.194619736933364}]}}], {{{ 1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}, { {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.5, 0.036052369577716584`}, Offset[{3, 0}, {0.5, 0.036052369577716584`}]}, {{0.5, 0.036052369577716584`}, Offset[{-3, 0}, {0.5, 0.036052369577716584`}]}, {{0.5, 0.03605236957477072}, Offset[{3, 0}, {0.5, 0.03605236957477072}]}, {{0.5, 0.03605236957477072}, Offset[{-3, 0}, {0.5, 0.03605236957477072}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.3333333333333333, 0.7320651843568644}, Offset[{3, 0}, {0.3333333333333333, 0.7320651843568644}]}, {{ 0.3333333333333333, 0.7320651843568644}, Offset[{-3, 0}, {0.3333333333333333, 0.7320651843568644}]}, {{ 0.3333333333333333, 0.7320651840215073}, Offset[{3, 0}, {0.3333333333333333, 0.7320651840215073}]}, {{ 0.3333333333333333, 0.7320651840215073}, Offset[{-3, 0}, {0.3333333333333333, 0.7320651840215073}]}}], {{{ 1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.25, 1.4829158720252966`}, Offset[{3, 0}, {0.25, 1.4829158720252966`}]}, {{0.25, 1.4829158720252966`}, Offset[{-3, 0}, {0.25, 1.4829158720252966`}]}, {{0.25, 1.4829158698286737`}, Offset[{3, 0}, {0.25, 1.4829158698286737`}]}, {{0.25, 1.4829158698286737`}, Offset[{-3, 0}, {0.25, 1.4829158698286737`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.2, 2.0689950957959695`}, Offset[{3, 0}, {0.2, 2.0689950957959695`}]}, {{0.2, 2.0689950957959695`}, Offset[{-3, 0}, {0.2, 2.0689950957959695`}]}, {{0.2, 2.0689950876451153`}, Offset[{3, 0}, {0.2, 2.0689950876451153`}]}, {{0.2, 2.0689950876451153`}, Offset[{-3, 0}, {0.2, 2.0689950876451153`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.16666666666666666`, 2.5188652017550197`}, Offset[{3, 0}, {0.16666666666666666`, 2.5188652017550197`}]}, {{ 0.16666666666666666`, 2.5188652017550197`}, Offset[{-3, 0}, {0.16666666666666666`, 2.5188652017550197`}]}, {{ 0.16666666666666666`, 2.5188651778156697`}, Offset[{3, 0}, {0.16666666666666666`, 2.5188651778156697`}]}, {{ 0.16666666666666666`, 2.5188651778156697`}, Offset[{-3, 0}, {0.16666666666666666`, 2.5188651778156697`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.14285714285714285`, 2.868779394430248}, Offset[{3, 0}, {0.14285714285714285`, 2.868779394430248}]}, {{ 0.14285714285714285`, 2.868779394430248}, Offset[{-3, 0}, {0.14285714285714285`, 2.868779394430248}]}, {{ 0.14285714285714285`, 2.8687793330471236`}, Offset[{3, 0}, {0.14285714285714285`, 2.8687793330471236`}]}, {{ 0.14285714285714285`, 2.8687793330471236`}, Offset[{-3, 0}, {0.14285714285714285`, 2.8687793330471236`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.125, 3.1461440081414866`}, Offset[{3, 0}, {0.125, 3.1461440081414866`}]}, {{0.125, 3.1461440081414866`}, Offset[{-3, 0}, {0.125, 3.1461440081414866`}]}, {{0.125, 3.146143864414641}, Offset[{3, 0}, {0.125, 3.146143864414641}]}, {{0.125, 3.146143864414641}, Offset[{-3, 0}, {0.125, 3.146143864414641}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.1111111111111111, 3.3701893623638246`}, Offset[{3, 0}, {0.1111111111111111, 3.3701893623638246`}]}, {{ 0.1111111111111111, 3.3701893623638246`}, Offset[{-3, 0}, {0.1111111111111111, 3.3701893623638246`}]}, {{ 0.1111111111111111, 3.37018904645845}, Offset[{3, 0}, {0.1111111111111111, 3.37018904645845}]}, {{ 0.1111111111111111, 3.37018904645845}, Offset[{-3, 0}, {0.1111111111111111, 3.37018904645845}]}}], {{{ 1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.1, 3.554319306754706}, Offset[{3, 0}, {0.1, 3.554319306754706}]}, {{0.1, 3.554319306754706}, Offset[{-3, 0}, {0.1, 3.554319306754706}]}, {{0.1, 3.5543186434620817`}, Offset[{3, 0}, {0.1, 3.5543186434620817`}]}, {{0.1, 3.5543186434620817`}, Offset[{-3, 0}, {0.1, 3.5543186434620817`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.09090909090909091, 3.7079884274355273`}, Offset[{3, 0}, {0.09090909090909091, 3.7079884274355273`}]}, {{ 0.09090909090909091, 3.7079884274355273`}, Offset[{-3, 0}, {0.09090909090909091, 3.7079884274355273`}]}, {{ 0.09090909090909091, 3.707987082017035}, Offset[{3, 0}, {0.09090909090909091, 3.707987082017035}]}, {{ 0.09090909090909091, 3.707987082017035}, Offset[{-3, 0}, {0.09090909090909091, 3.707987082017035}]}}], {{{ 1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{0.5, 0.03605236957624365}, {0.3333333333333333, 0.7938982083184092}, {0.25, 1.7590120906200708`}, {0.2, 2.6898479349404627`}, {0.16666666666666666`, 3.5847112286346623`}, { 0.14285714285714285`, 4.456612103099352}, {0.125, 5.313744079055986}, { 0.1111111111111111, 6.198590647021142}, {0.1, 7.017362546506821}, { 0.09090909090909091, 7.864506627393225}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{0.5, 0.03605236957624365}, {0.3333333333333333, 0.7320651841891859}, {0.25, 1.4829158709269852`}, {0.2, 2.0689950917205424`}, {0.16666666666666666`, 2.5188651897853447`}, { 0.14285714285714285`, 2.868779363738686}, {0.125, 3.146143936278064}, { 0.1111111111111111, 3.3701892044111372`}, {0.1, 3.554318975108394}, { 0.09090909090909091, 3.707987754726281}}]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{0.5, 0.03605236957624275}, {0.3333333333333333, 0.7882894953005081}, {0.25, 1.7205994529805817`}, {0.2, 2.602909307908811}, {0.16666666666666666`, 3.461385001061308}, { 0.14285714285714285`, 4.318948250741116}, {0.125, 5.180857308662023}, { 0.1111111111111111, 6.045444943508941}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 0.5}, {0, 7.864506627393225}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.832154644879883*^9, 3.832154712232472*^9}, { 3.8321548002930393`*^9, 3.832154819687943*^9}, 3.832154883650704*^9, { 3.8321549661619253`*^9, 3.832155008139481*^9}, 3.836570712756501*^9}, CellLabel->"Out[21]=",ExpressionUUID->"073d831e-11a6-4203-90ce-0df429c1a3f0"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"datOurs", "=", RowBox[{"Chop", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"dFd\[Xi]HighList", "[", RowBox[{"n1", ",", "h1"}], "]"}], "[", "12", "]"}], "]"}], "/.", "sol1"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.832145390968719*^9, 3.8321454292735577`*^9}, { 3.832145976500745*^9, 3.832145979699314*^9}, {3.832146795410326*^9, 3.832146803058391*^9}, {3.832146853819456*^9, 3.832146854323563*^9}, { 3.83214967637575*^9, 3.832149676470541*^9}, {3.832151549200243*^9, 3.8321515522247057`*^9}, {3.8321522853402777`*^9, 3.8321523108375397`*^9}}, CellLabel->"In[92]:=",ExpressionUUID->"80c6c675-eade-40e1-8d0f-13a6578b30ff"], Cell[BoxData[ RowBox[{ RowBox[{"datNumHigh", "=", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"Length", "[", "Ghs", "]"}], "-", "1"}]}], "]"}], ",", RowBox[{ RowBox[{"Abs", "[", "Ghs", "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Range", "[", RowBox[{"Length", "[", "Ghs", "]"}], "]"}], "-", "1"}], ")"}], "!"}], ")"}]}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.8321514933506927`*^9, 3.832151511975079*^9}, { 3.8321516136331882`*^9, 3.8321516208732758`*^9}}, CellLabel->"In[70]:=",ExpressionUUID->"d8847f2e-21fe-4fb7-84ae-676f83acdf5a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"datCasHigh", "=", RowBox[{ RowBox[{ RowBox[{"NestList", "[", RowBox[{ RowBox[{"dd\[Xi]", "[", "hCas", "]"}], ",", RowBox[{"m0", " ", FractionBox["\[Theta]", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Theta]", "2"]}], ")"}], RowBox[{"1", "/", "8"}]]]}], ",", "11"}], "]"}], "/.", RowBox[{"\[Theta]", "->", "0"}]}], "/.", "m0rule"}]}]], "Input", CellChangeTimes->{{3.83215152426346*^9, 3.8321515377758512`*^9}, { 3.832152099866603*^9, 3.8321521038257008`*^9}}, CellLabel->"In[87]:=",ExpressionUUID->"15d60f60-2f87-40da-a2c6-66d640111d75"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", InterpretationBox[ TemplateBox[{"3.880529725", "75", "16"}, "AroundSeq"], Around[3.8805297257531435`, 1.5854010523272218`*^-10]], ",", "0.`", ",", InterpretationBox[ TemplateBox[{"-233.1090657", "77", "29"}, "AroundSeq"], Around[-233.10906577746226`, 2.867554290133348*^-8]], ",", "0.`", ",", InterpretationBox[ TemplateBox[{"88518.948785", "0.000021"}, "Around"], Around[88518.94878487791, 0.000021388770252100324`]], ",", "0.`", ",", InterpretationBox[ TemplateBox[{"-8.41494659", "4", "4", SuperscriptBox["10", "7"]}, "AroundSeqExp"], Around[-8.414946593571003*^7, 0.04123893899074724]], ",", "0.`", ",", InterpretationBox[ TemplateBox[{"1.49073647", "91", "15", SuperscriptBox["10", "11"]}, "AroundSeqExp"], Around[1.490736479125683*^11, 152.87259164270972`]], ",", "0.`", ",", InterpretationBox[ TemplateBox[{"-4.24347172", "8", "9", SuperscriptBox["10", "14"]}, "AroundSeqExp"], Around[-4.2434717282285725`*^14, 909981.6588191775]]}], "}"}]], "Output", CellChangeTimes->{3.832151572013042*^9, 3.832152114955359*^9, 3.832152262145925*^9}, CellLabel->"Out[87]=",ExpressionUUID->"6f1d902a-0431-4a99-adc2-97eb3c423317"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogPlot", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Abs", "@", "datNumHigh"}], ",", RowBox[{"Abs", "@", "datCasHigh"}], ",", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"Length", "[", "datOurs", "]"}], "-", "1"}]}], "]"}], ",", "datOurs"}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.8321515752734756`*^9, 3.8321515972726097`*^9}, { 3.832151974881402*^9, 3.832152024153109*^9}, {3.8321522889336777`*^9, 3.832152299270874*^9}}, CellLabel->"In[91]:=",ExpressionUUID->"bec4c929-c1a6-4fd0-be18-caf3643ba3a4"], Cell[BoxData[ GraphicsBox[{{{{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{2., 1.3057500700435951`}, {2., 1.3057500700490146`}}], LineBox[{{2., 1.3057500700490146`}, {2., 1.305750070054434}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{4., 5.2983627756010305`}, {4., 5.29836277561303}}], LineBox[{{4., 5.29836277561303}, {4., 5.298362775625029}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{6., 11.134905050221258`}, {6., 11.13490515529753}}], LineBox[{{6., 11.13490515529753}, {6., 11.13490526037379}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{8., 17.889142568634654`}, {8., 17.88916315034232}}], LineBox[{{8., 17.88916315034232}, {8., 17.889183731626385`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{10., 25.265986020123417`}, {10., 25.266063270026894`}}], LineBox[{{10., 25.266063270026894`}, {10., 25.266140513963283`}}]}}, Antialiasing->False]}}, { {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{2., 1.355971671531294}, {2., 1.3559716715721493`}}], LineBox[{{2., 1.3559716715721493`}, {2., 1.3559716716130046`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{4., 5.45150643738662}, {4., 5.451506437509634}}], LineBox[{{4., 5.451506437509634}, {4., 5.451506437632648}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{6., 11.390971918399588`}, {6., 11.390971918641217`}}], LineBox[{{6., 11.390971918641217`}, {6., 11.390971918882846`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{8., 18.248105131515835`}, {8., 18.248105132005904`}}], LineBox[{{8., 18.248105132005904`}, {8., 18.248105132495972`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{10., 25.72770630104203}, {10., 25.727706302067514`}}], LineBox[{{10., 25.727706302067514`}, {10., 25.727706303092997`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{12., 33.681573037806594`}, {12., 33.68157303995102}}], LineBox[{{12., 33.68157303995102}, {12., 33.681573042095444`}}]}}, Antialiasing->False]}}}, {{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{2., 1.305750070054434}, Offset[{3, 0}, {2., 1.305750070054434}]}, {{2., 1.305750070054434}, Offset[{-3, 0}, {2., 1.305750070054434}]}, {{ 2., 1.3057500700435951`}, Offset[{3, 0}, {2., 1.3057500700435951`}]}, {{2., 1.3057500700435951`}, Offset[{-3, 0}, {2., 1.3057500700435951`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{4., 5.298362775625029}, Offset[{3, 0}, {4., 5.298362775625029}]}, {{4., 5.298362775625029}, Offset[{-3, 0}, {4., 5.298362775625029}]}, {{ 4., 5.2983627756010305`}, Offset[{3, 0}, {4., 5.2983627756010305`}]}, {{4., 5.2983627756010305`}, Offset[{-3, 0}, {4., 5.2983627756010305`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{6., 11.13490526037379}, Offset[{3, 0}, {6., 11.13490526037379}]}, {{6., 11.13490526037379}, Offset[{-3, 0}, {6., 11.13490526037379}]}, {{ 6., 11.134905050221258`}, Offset[{3, 0}, {6., 11.134905050221258`}]}, {{6., 11.134905050221258`}, Offset[{-3, 0}, {6., 11.134905050221258`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{8., 17.889183731626385`}, Offset[{3, 0}, {8., 17.889183731626385`}]}, {{8., 17.889183731626385`}, Offset[{-3, 0}, {8., 17.889183731626385`}]}, {{8., 17.889142568634654`}, Offset[{3, 0}, {8., 17.889142568634654`}]}, {{8., 17.889142568634654`}, Offset[{-3, 0}, {8., 17.889142568634654`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{10., 25.266140513963283`}, Offset[{3, 0}, {10., 25.266140513963283`}]}, {{10., 25.266140513963283`}, Offset[{-3, 0}, {10., 25.266140513963283`}]}, {{10., 25.265986020123417`}, Offset[{3, 0}, {10., 25.265986020123417`}]}, {{10., 25.265986020123417`}, Offset[{-3, 0}, {10., 25.265986020123417`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}, { {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{2., 1.3559716716130046`}, Offset[{3, 0}, {2., 1.3559716716130046`}]}, {{2., 1.3559716716130046`}, Offset[{-3, 0}, {2., 1.3559716716130046`}]}, {{2., 1.355971671531294}, Offset[{3, 0}, {2., 1.355971671531294}]}, {{ 2., 1.355971671531294}, Offset[{-3, 0}, {2., 1.355971671531294}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{4., 5.451506437632648}, Offset[{3, 0}, {4., 5.451506437632648}]}, {{4., 5.451506437632648}, Offset[{-3, 0}, {4., 5.451506437632648}]}, {{ 4., 5.45150643738662}, Offset[{3, 0}, {4., 5.45150643738662}]}, {{4., 5.45150643738662}, Offset[{-3, 0}, {4., 5.45150643738662}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{6., 11.390971918882846`}, Offset[{3, 0}, {6., 11.390971918882846`}]}, {{6., 11.390971918882846`}, Offset[{-3, 0}, {6., 11.390971918882846`}]}, {{6., 11.390971918399588`}, Offset[{3, 0}, {6., 11.390971918399588`}]}, {{6., 11.390971918399588`}, Offset[{-3, 0}, {6., 11.390971918399588`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{8., 18.248105132495972`}, Offset[{3, 0}, {8., 18.248105132495972`}]}, {{8., 18.248105132495972`}, Offset[{-3, 0}, {8., 18.248105132495972`}]}, {{8., 18.248105131515835`}, Offset[{3, 0}, {8., 18.248105131515835`}]}, {{8., 18.248105131515835`}, Offset[{-3, 0}, {8., 18.248105131515835`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{10., 25.727706303092997`}, Offset[{3, 0}, {10., 25.727706303092997`}]}, {{10., 25.727706303092997`}, Offset[{-3, 0}, {10., 25.727706303092997`}]}, {{10., 25.72770630104203}, Offset[{3, 0}, {10., 25.72770630104203}]}, {{ 10., 25.72770630104203}, Offset[{-3, 0}, {10., 25.72770630104203}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{12., 33.681573042095444`}, Offset[{3, 0}, {12., 33.681573042095444`}]}, {{12., 33.681573042095444`}, Offset[{-3, 0}, {12., 33.681573042095444`}]}, {{12., 33.681573037806594`}, Offset[{3, 0}, {12., 33.681573037806594`}]}, {{12., 33.681573037806594`}, Offset[{-3, 0}, {12., 33.681573037806594`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{2., 1.3057500700490146`}, {4., 5.29836277561303}, {6., 11.13490515529753}, {8., 17.88916315034232}, {10., 25.266063270026894`}, {12., 33.113569894335754`}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{2., 1.3559716715721493`}, {4., 5.451506437509634}, {6., 11.390971918641217`}, {8., 18.248105132005904`}, {10., 25.727706302067514`}, {12., 33.68157303995102}}]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{2., 1.3057500700490148`}, {4., 5.288752737747116}, {6., 11.11449127939783}, {8., 17.862389218907886`}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., -1.2278418112818485`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, PlotRange->{{0., 12.}, {-1.2278418112818485`, 33.681573042095444`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->FrontEndValueCache[{Automatic, Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{0., FormBox["1", TraditionalForm], {0.01, 0.}}, {6.907755278982137, FormBox["1000", TraditionalForm], {0.01, 0.}}, {13.815510557964274`, FormBox[ TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {20.72326583694641, FormBox[ TemplateBox[{"10", "9"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {27.631021115928547`, FormBox[ TemplateBox[{"10", "12"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {34.538776394910684`, FormBox[ TemplateBox[{"10", "15"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {2.302585092994046, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 4.605170185988092, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 9.210340371976184, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11.512925464970229`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 16.11809565095832, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 18.420680743952367`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 23.025850929940457`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 25.328436022934504`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 29.933606208922594`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 32.23619130191664, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 36.841361487904734`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]]], "Output", CellChangeTimes->{{3.832151589069502*^9, 3.8321516241260233`*^9}, { 3.832151978424953*^9, 3.832152024537464*^9}, 3.8321521150139637`*^9, { 3.832152276526582*^9, 3.832152299585641*^9}}, CellLabel->"Out[91]=",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"] }, Open ]] }, WindowSize->{891.75, 1060.5}, WindowMargins->{{2.25, Automatic}, {2.25, Automatic}}, FrontEndVersion->"12.3 for Linux x86 (64-bit) (May 11, 2021)", 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, 24, "Input",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"], Cell[1157, 32, 7539, 107, 55, "Input",ExpressionUUID->"872503c3-0779-4b87-805f-13a088f459e3"], Cell[8699, 141, 1256, 31, 105, "Input",ExpressionUUID->"02a1f6e5-4144-4552-9463-2a226c1ee186"], Cell[9958, 174, 2710, 69, 121, "Input",ExpressionUUID->"d8831e63-87f3-498c-8951-21f347e539ff"], Cell[12671, 245, 941, 24, 59, "Input",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"], Cell[13615, 271, 915, 20, 40, "Input",ExpressionUUID->"bd6b698e-6871-43fa-9d98-7385cc594c9c"], Cell[14533, 293, 752, 17, 38, "Input",ExpressionUUID->"7bddfed2-a761-4c62-bcdc-0460988fbd67"], Cell[15288, 312, 494, 12, 22, "Input",ExpressionUUID->"ec8b9383-61d6-44c2-b776-3d651fc19660"], Cell[CellGroupData[{ Cell[15807, 328, 943, 23, 41, "Input",ExpressionUUID->"cbeb62aa-7e89-4ec5-a1cb-d5012bac06fd"], Cell[16753, 353, 334, 5, 25, "Output",ExpressionUUID->"9ddcc7c6-de02-4d31-9401-bbbc5eefe582"] }, Open ]], Cell[CellGroupData[{ Cell[17124, 363, 1038, 25, 22, "Input",ExpressionUUID->"7efd85be-fd7d-435a-a870-214d8ec4025d"], Cell[18165, 390, 825, 16, 22, "Message",ExpressionUUID->"2e43731b-67a2-4964-9c03-694bb26aa975"], Cell[18993, 408, 1025, 22, 26, "Output",ExpressionUUID->"325e2b46-9d64-4724-8091-36718f8f11a2"] }, Open ]], Cell[CellGroupData[{ Cell[20055, 435, 523, 12, 55, "Input",ExpressionUUID->"28731a52-d222-49b4-aebb-262f9a5d4dd5"], Cell[20581, 449, 240, 3, 25, "Output",ExpressionUUID->"65626e49-d3af-4115-b5d3-96f63b95604e"], Cell[20824, 454, 257, 4, 25, "Output",ExpressionUUID->"fe83a208-ae15-4c69-a7c9-b98329954997"] }, Open ]], Cell[CellGroupData[{ Cell[21118, 463, 531, 11, 24, "Input",ExpressionUUID->"f42f7737-f59e-4289-8153-b78626e30f0e"], Cell[21652, 476, 583, 11, 25, "Output",ExpressionUUID->"c7c2e58e-e6d9-436b-9cc9-4238f4205a5a"] }, Open ]], Cell[22250, 490, 2575, 70, 108, "Input",ExpressionUUID->"275ca4b6-77bf-4727-923f-67c9c37ad46e"], Cell[CellGroupData[{ Cell[24850, 564, 2358, 66, 109, "Input",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"], Cell[27211, 632, 960, 15, 44, "Output",ExpressionUUID->"1690ea78-e2c3-4e83-a9e5-8be735e0bca3"] }, Open ]], Cell[CellGroupData[{ Cell[28208, 652, 4388, 128, 156, "Input",ExpressionUUID->"f81ed9c7-d940-4314-963c-c36ea0215ef3"], Cell[32599, 782, 1199, 20, 44, "Output",ExpressionUUID->"2234af5e-068b-46a3-beaf-99a907ef5184"] }, Open ]], Cell[CellGroupData[{ Cell[33835, 807, 882, 21, 41, "Input",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"], Cell[34720, 830, 435, 6, 25, "Output",ExpressionUUID->"21b5cf8e-7f0a-45f7-ab93-9e8ebe789a07"] }, Open ]], Cell[CellGroupData[{ Cell[35192, 841, 1195, 29, 41, "Input",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"], Cell[36390, 872, 349, 5, 25, "Output",ExpressionUUID->"a5e80f1a-5f57-4a7a-ad79-17c92282d141"] }, Open ]], Cell[CellGroupData[{ Cell[36776, 882, 228, 5, 22, "Input",ExpressionUUID->"feb08355-9ad1-4257-9f97-e394177d7e32"], Cell[37007, 889, 274, 8, 25, "Output",ExpressionUUID->"87e29f54-9d68-4261-96d4-95d24dcdc36a"] }, Open ]], Cell[CellGroupData[{ Cell[37318, 902, 1542, 27, 55, "Input",ExpressionUUID->"e61ed118-a102-4290-8440-cba17b87145b"], Cell[38863, 931, 12321, 270, 180, "Output",ExpressionUUID->"2e45389f-59c7-4eaf-9b3a-270214fa013e"] }, Open ]], Cell[51199, 1204, 175, 3, 22, "Input",ExpressionUUID->"0f87aa05-2cc9-472a-ab27-39ee15777442"], Cell[51377, 1209, 356, 7, 24, "Input",ExpressionUUID->"627c17e0-e2d8-4347-8fe9-812183a42941"], Cell[CellGroupData[{ Cell[51758, 1220, 176, 2, 22, "Input",ExpressionUUID->"f32c32be-7fcb-4660-bf43-cbc119acda96"], Cell[51937, 1224, 2097, 65, 61, "Output",ExpressionUUID->"01b48fb7-d8c9-4012-92f6-488cf7e7087c"] }, Open ]], Cell[CellGroupData[{ Cell[54071, 1294, 860, 24, 24, "Input",ExpressionUUID->"bfa6a31f-5eb9-4063-b798-e45ab1e3b53a"], Cell[54934, 1320, 1944, 57, 60, "Output",ExpressionUUID->"0ca79efb-1867-4b1f-96fc-4a691d54b72e"] }, Open ]], Cell[CellGroupData[{ Cell[56915, 1382, 2622, 77, 93, "Input",ExpressionUUID->"242aacdf-e4c7-423c-a26a-12188ba2476e"], Cell[59540, 1461, 21838, 439, 180, "Output",ExpressionUUID->"073d831e-11a6-4203-90ce-0df429c1a3f0"] }, Open ]], Cell[81393, 1903, 725, 15, 24, "Input",ExpressionUUID->"80c6c675-eade-40e1-8d0f-13a6578b30ff"], Cell[82121, 1920, 764, 21, 22, "Input",ExpressionUUID->"d8847f2e-21fe-4fb7-84ae-676f83acdf5a"], Cell[CellGroupData[{ Cell[82910, 1945, 679, 17, 40, "Input",ExpressionUUID->"15d60f60-2f87-40da-a2c6-66d640111d75"], Cell[83592, 1964, 1298, 32, 44, "Output",ExpressionUUID->"6f1d902a-0431-4a99-adc2-97eb3c423317"] }, Open ]], Cell[CellGroupData[{ Cell[84927, 2001, 736, 18, 57, "Input",ExpressionUUID->"bec4c929-c1a6-4fd0-be18-caf3643ba3a4"], Cell[85666, 2021, 14613, 314, 179, "Output",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"] }, Open ]] } ] *)