(* 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[ 144618, 3306] NotebookOptionsPosition[ 136358, 3157] NotebookOutlinePosition[ 136756, 3173] CellTagsIndexPosition[ 136713, 3170] 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[64]:=",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"\[Theta]0Cas", "=", SqrtBox["1.16951"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hCas", "[", "\[Theta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"1", "-", FractionBox[ SuperscriptBox["\[Theta]", "2"], SuperscriptBox["\[Theta]0Cas", "2"]]}], ")"}], "\[Theta]", RowBox[{"(", RowBox[{"1", "-", RowBox[{"0.222389", " ", SuperscriptBox["\[Theta]", "2"]}], "-", RowBox[{"0.043547", " ", SuperscriptBox["\[Theta]", "4"]}], "-", RowBox[{"0.014809", " ", SuperscriptBox["\[Theta]", "6"]}], "-", RowBox[{"0.007168", " ", SuperscriptBox["\[Theta]", "8"]}]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{ RowBox[{ RowBox[{"a", " ", "b", " ", "\[Rho]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", FractionBox[ SuperscriptBox["c2", "2"], "c4"]}], ",", RowBox[{"b", "\[Rule]", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"-", "c4"}], SuperscriptBox["c2", "3"]], ")"}], RowBox[{"1", "/", "2"}]]}], ",", RowBox[{"\[Rho]", "\[Rule]", "2.00881"}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"c2", "\[Rule]", RowBox[{ RowBox[{"Ghs", "[", RowBox[{"[", "3", "]"}], "]"}], RowBox[{"2", "!"}]}]}], ",", RowBox[{"c4", "\[Rule]", RowBox[{ RowBox[{ RowBox[{"Ghs", "[", RowBox[{"[", "5", "]"}], "]"}], "[", "\"\\"", "]"}], RowBox[{"4", "!"}]}]}]}], "}"}]}]}], "\[IndentingNewLine]", RowBox[{"m0", "=", RowBox[{ RowBox[{"-", RowBox[{"Ghs", "[", RowBox[{"[", "3", "]"}], "]"}]}], RowBox[{"2", "!"}], " ", "h0"}]}]}], "Input", CellChangeTimes->{{3.8321454371387777`*^9, 3.832145559020133*^9}, 3.832146444152248*^9, {3.832146620327344*^9, 3.832146620479251*^9}, { 3.84380599279574*^9, 3.8438060263082247`*^9}, {3.843806057721389*^9, 3.8438061646410103`*^9}, {3.8438062079468822`*^9, 3.843806212028804*^9}, { 3.843806310535351*^9, 3.843806319271604*^9}, {3.843811727076584*^9, 3.843811750155121*^9}}, CellLabel->"In[47]:=",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"], Cell[BoxData["0.27286889266851116`"], "Output", CellChangeTimes->{{3.8438061496682377`*^9, 3.843806165132856*^9}, 3.8438062124458447`*^9, {3.8438063135040703`*^9, 3.843806319765049*^9}, 3.8438114231817093`*^9, {3.843811741230702*^9, 3.8438117504040937`*^9}, 3.8438127470406*^9, 3.8438833063506927`*^9}, CellLabel->"Out[49]=",ExpressionUUID->"5916b0af-c167-4771-aeb7-3c62b468a0ba"], Cell[BoxData["1.007010684856479`"], "Output", CellChangeTimes->{{3.8438061496682377`*^9, 3.843806165132856*^9}, 3.8438062124458447`*^9, {3.8438063135040703`*^9, 3.843806319765049*^9}, 3.8438114231817093`*^9, {3.843811741230702*^9, 3.8438117504040937`*^9}, 3.8438127470406*^9, 3.843883306351761*^9}, CellLabel->"Out[50]=",ExpressionUUID->"c9921f2f-76f7-4cfd-85ee-7bf5652dc449"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"totCas", "=", "13"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ds", "=", RowBox[{ RowBox[{ RowBox[{"invDerivativeList", "[", RowBox[{"totCas", "+", "1"}], "]"}], "[", RowBox[{"\[Theta]", "\[Function]", FractionBox[ RowBox[{"h0", " ", RowBox[{"hCas", "[", "\[Theta]", "]"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"t", "[", "\[Theta]", "]"}], ")"}], RowBox[{"\[CapitalDelta]", "[", "2", "]"}]]]}], "]"}], "[", "\[Theta]0Cas", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dMs", "=", RowBox[{ RowBox[{"m0", " ", RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"#", ",", "\[Theta]"}], "]"}], "&"}], ",", FractionBox["\[Theta]", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["\[Theta]", "2"], "-", "1"}], ")"}], RowBox[{"1", "/", "8"}]]], ",", "totCas"}], "]"}]}], "/.", RowBox[{"\[Theta]", "->", "\[Theta]0Cas"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"datCas", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"dMs", "[", RowBox[{"[", RowBox[{"k", "+", "1"}], "]"}], "]"}], RowBox[{"BellY", "[", RowBox[{"n", ",", "k", ",", RowBox[{"ds", "[", RowBox[{"[", RowBox[{";;", RowBox[{"n", "-", "k", "+", "1"}]}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "/", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "!"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "totCas"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.836976284774213*^9, 3.8369763107653933`*^9}, { 3.8369763440621157`*^9, 3.836976643043976*^9}, {3.8369766791263657`*^9, 3.836976702020906*^9}, {3.8369833396004457`*^9, 3.8369833834965153`*^9}, { 3.836983426425185*^9, 3.836983501138253*^9}, {3.8369836692218637`*^9, 3.836983678733614*^9}, {3.836983808464398*^9, 3.8369838086001043`*^9}, { 3.8369839370347757`*^9, 3.836983937122395*^9}, {3.836983969035384*^9, 3.836983979299178*^9}, {3.836984097325984*^9, 3.8369840974613132`*^9}, { 3.836984339450017*^9, 3.8369843561781673`*^9}, {3.836984934917253*^9, 3.836984935916635*^9}, {3.8369856092092857`*^9, 3.836985626001013*^9}, { 3.836985701651613*^9, 3.836985833037245*^9}, {3.836985978736498*^9, 3.836985996927923*^9}, {3.836986994292021*^9, 3.836986994346624*^9}, { 3.836987100533333*^9, 3.836987147389551*^9}, {3.836988211802526*^9, 3.8369882124812613`*^9}, {3.83698827789044*^9, 3.836988278050117*^9}, { 3.836991140640276*^9, 3.836991156327482*^9}, {3.837070011059902*^9, 3.8370700129717007`*^9}, {3.837070292889572*^9, 3.8370702929846687`*^9}, { 3.8370709285346727`*^9, 3.8370709288925543`*^9}, {3.837072484698299*^9, 3.837072484992663*^9}, {3.843802126725583*^9, 3.843802127123851*^9}, { 3.8438022381502447`*^9, 3.843802268518549*^9}, {3.8438024340742607`*^9, 3.843802515907176*^9}, {3.84380268121432*^9, 3.843802684734229*^9}, 3.843802806265029*^9, {3.843802947563074*^9, 3.843802949058984*^9}, 3.843803003228539*^9, {3.843803040877533*^9, 3.843803044636691*^9}, { 3.8438064612671556`*^9, 3.843806483348926*^9}, {3.843811490926489*^9, 3.843811490990367*^9}, {3.843811762123721*^9, 3.843811792156164*^9}, { 3.84381190693526*^9, 3.843811907005992*^9}, {3.843812765889268*^9, 3.8438127660003633`*^9}, {3.8438833187875977`*^9, 3.843883318858028*^9}}, CellLabel->"In[59]:=",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1.3595232308079763`"}], ",", RowBox[{"-", "0.04655549169678349`"}], ",", "0.03237211997439275`", ",", RowBox[{"-", "0.04559719478179554`"}], ",", "0.0896082623558699`", ",", RowBox[{"-", "0.2143894700632707`"}], ",", "0.584185898399437`", ",", RowBox[{"-", "1.7457422693875277`"}], ",", "5.58836650656107`", ",", RowBox[{"-", "18.86651788362811`"}], ",", "66.44778572365097`", ",", RowBox[{"-", "242.23334827652096`"}], ",", "908.6585949684338`", ",", RowBox[{"-", "3491.621379722553`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.83698713111462*^9, 3.836987321633688*^9, 3.8369882151463833`*^9, 3.83698833312978*^9, 3.837070043781701*^9, 3.837070402550199*^9, 3.837072865049255*^9, 3.84380209279955*^9, 3.843802127647296*^9, { 3.8438022397282753`*^9, 3.843802269116067*^9}, 3.8438023757788677`*^9, { 3.84380243891853*^9, 3.843802516429851*^9}, 3.8438026852881813`*^9, 3.843802807050653*^9, 3.843802949596843*^9, 3.843803004201252*^9, 3.843803045143682*^9, {3.843806458261032*^9, 3.843806484750998*^9}, { 3.8438117627002707`*^9, 3.843811778845757*^9}, 3.843811897566523*^9, 3.843812875019771*^9, {3.8438833095937767`*^9, 3.843883327729155*^9}}, CellLabel->"Out[62]=",ExpressionUUID->"662f4cfd-8b83-42b3-bae9-63f60b0e3593"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"totCas", "=", "13"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ds", "=", RowBox[{ RowBox[{ RowBox[{"invDerivativeList", "[", RowBox[{"totCas", "+", "1"}], "]"}], "[", RowBox[{"\[Theta]", "\[Function]", FractionBox[ RowBox[{"h0", " ", RowBox[{"hCas", "[", "\[Theta]", "]"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"t", "[", "\[Theta]", "]"}]}], ")"}], RowBox[{"\[CapitalDelta]", "[", "2", "]"}]]]}], "]"}], "[", "0", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dMs", "=", RowBox[{ RowBox[{"m0", " ", RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"#", ",", "\[Theta]"}], "]"}], "&"}], ",", FractionBox["\[Theta]", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Theta]", "2"]}], ")"}], RowBox[{"1", "/", "8"}]]], ",", "totCas"}], "]"}]}], "/.", RowBox[{"\[Theta]", "->", "0"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"datCasH", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"dMs", "[", RowBox[{"[", RowBox[{"k", "+", "1"}], "]"}], "]"}], RowBox[{"BellY", "[", RowBox[{"n", ",", "k", ",", RowBox[{"ds", "[", RowBox[{"[", RowBox[{";;", RowBox[{"n", "-", "k", "+", "1"}]}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "/", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "!"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "totCas"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.836976284774213*^9, 3.8369763107653933`*^9}, { 3.8369763440621157`*^9, 3.836976643043976*^9}, {3.8369766791263657`*^9, 3.836976702020906*^9}, {3.8369833396004457`*^9, 3.8369833834965153`*^9}, { 3.836983426425185*^9, 3.836983501138253*^9}, {3.8369836692218637`*^9, 3.836983678733614*^9}, {3.836983808464398*^9, 3.8369838086001043`*^9}, { 3.8369839370347757`*^9, 3.836983937122395*^9}, {3.836983969035384*^9, 3.836983979299178*^9}, {3.836984097325984*^9, 3.8369840974613132`*^9}, { 3.836984339450017*^9, 3.8369843561781673`*^9}, {3.836984934917253*^9, 3.836984935916635*^9}, {3.8369856092092857`*^9, 3.836985626001013*^9}, { 3.836985701651613*^9, 3.836985833037245*^9}, {3.836985978736498*^9, 3.836985996927923*^9}, {3.836986994292021*^9, 3.836986994346624*^9}, { 3.836987100533333*^9, 3.836987147389551*^9}, {3.836988211802526*^9, 3.8369882124812613`*^9}, {3.83698827789044*^9, 3.836988278050117*^9}, { 3.836991140640276*^9, 3.836991156327482*^9}, {3.837070011059902*^9, 3.8370700129717007`*^9}, {3.837070292889572*^9, 3.8370702929846687`*^9}, { 3.8370709285346727`*^9, 3.8370709288925543`*^9}, {3.837072484698299*^9, 3.837072484992663*^9}, {3.843802126725583*^9, 3.843802127123851*^9}, { 3.8438022381502447`*^9, 3.843802268518549*^9}, {3.8438024340742607`*^9, 3.843802515907176*^9}, {3.84380268121432*^9, 3.843802684734229*^9}, 3.843802806265029*^9, {3.843802947563074*^9, 3.843802949058984*^9}, 3.843803003228539*^9, {3.843803040877533*^9, 3.843803044636691*^9}, { 3.843803094421678*^9, 3.843803146878536*^9}, {3.843806505415429*^9, 3.8438065212344007`*^9}, {3.843811444237966*^9, 3.843811444581764*^9}, { 3.8438114746875067`*^9, 3.843811475623706*^9}, {3.843812978160186*^9, 3.843812978303809*^9}, {3.843813154956399*^9, 3.843813155905347*^9}}, CellLabel->"In[61]:=",ExpressionUUID->"34fe8bc4-abfb-4504-a7f1-045cd2a55ee6"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.`", ",", RowBox[{"-", "1.8452280782328385`"}], ",", "0.`", ",", "8.33370069297413`", ",", "0.`", ",", RowBox[{"-", "95.16881652232634`"}], ",", "0.`", ",", "1457.5474391179216`", ",", "0.`", ",", RowBox[{"-", "25883.955538425816`"}], ",", "0.`", ",", "503591.1494797519`", ",", "0.`", ",", RowBox[{"-", "1.0451949132136984`*^7"}]}], "}"}]], "Output", CellChangeTimes->{{3.843806513941721*^9, 3.843806524411374*^9}, 3.84381144996428*^9, {3.8438131466573687`*^9, 3.8438131757670813`*^9}}, CellLabel->"Out[64]=",ExpressionUUID->"343f2684-7442-43b7-9d49-7e58cf8f6f6d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"totCas", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ds", "=", RowBox[{ RowBox[{ RowBox[{"invDerivativeList", "[", RowBox[{"totCas", "+", "1"}], "]"}], "[", RowBox[{"\[Theta]", "\[Function]", FractionBox[ RowBox[{"t", "[", "\[Theta]", "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"h0", " ", RowBox[{"hCas", "[", "\[Theta]", "]"}]}], ")"}], RowBox[{"1", "/", RowBox[{"\[CapitalDelta]", "[", "2", "]"}]}]]]}], "]"}], "[", "1", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dMs", "=", RowBox[{ RowBox[{"m0", " ", RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"#", ",", "\[Theta]"}], "]"}], "&"}], ",", FractionBox["\[Theta]", SuperscriptBox[ RowBox[{"(", RowBox[{"h0", " ", RowBox[{"hCas", "[", "\[Theta]", "]"}]}], ")"}], "15"]], ",", "totCas"}], "]"}]}], "/.", RowBox[{"\[Theta]", "->", "1"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"datCasM", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"dMs", "[", RowBox[{"[", RowBox[{"k", "+", "1"}], "]"}], "]"}], RowBox[{"BellY", "[", RowBox[{"n", ",", "k", ",", RowBox[{"ds", "[", RowBox[{"[", RowBox[{";;", RowBox[{"n", "-", "k", "+", "1"}]}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "/", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "!"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "totCas"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.836976284774213*^9, 3.8369763107653933`*^9}, { 3.8369763440621157`*^9, 3.836976643043976*^9}, {3.8369766791263657`*^9, 3.836976702020906*^9}, {3.8369833396004457`*^9, 3.8369833834965153`*^9}, { 3.836983426425185*^9, 3.836983501138253*^9}, {3.8369836692218637`*^9, 3.836983678733614*^9}, {3.836983808464398*^9, 3.8369838086001043`*^9}, { 3.8369839370347757`*^9, 3.836983937122395*^9}, {3.836983969035384*^9, 3.836983979299178*^9}, {3.836984097325984*^9, 3.8369840974613132`*^9}, { 3.836984339450017*^9, 3.8369843561781673`*^9}, {3.836984934917253*^9, 3.836984935916635*^9}, {3.8369856092092857`*^9, 3.836985626001013*^9}, { 3.836985701651613*^9, 3.836985833037245*^9}, {3.836985978736498*^9, 3.836985996927923*^9}, {3.836986994292021*^9, 3.836986994346624*^9}, { 3.836987100533333*^9, 3.836987147389551*^9}, {3.836988211802526*^9, 3.8369882124812613`*^9}, {3.83698827789044*^9, 3.836988278050117*^9}, { 3.836991140640276*^9, 3.836991156327482*^9}, {3.837070011059902*^9, 3.8370700129717007`*^9}, {3.837070292889572*^9, 3.8370702929846687`*^9}, { 3.8370709285346727`*^9, 3.8370709288925543`*^9}, {3.837072484698299*^9, 3.837072484992663*^9}, {3.843802126725583*^9, 3.843802127123851*^9}, { 3.8438022381502447`*^9, 3.843802268518549*^9}, {3.8438024340742607`*^9, 3.843802515907176*^9}, {3.84380268121432*^9, 3.843802684734229*^9}, 3.843802806265029*^9, {3.843802947563074*^9, 3.843802949058984*^9}, 3.843803003228539*^9, {3.843803040877533*^9, 3.843803044636691*^9}, { 3.843803094421678*^9, 3.843803146878536*^9}, {3.843803198639724*^9, 3.84380324222451*^9}, {3.8438033353723392`*^9, 3.843803345882052*^9}, { 3.8438034178358307`*^9, 3.843803431043694*^9}, {3.84380358438281*^9, 3.843803587446344*^9}, 3.843804356868655*^9, {3.843806602116267*^9, 3.843806615782628*^9}, {3.8438066706784363`*^9, 3.843806670875389*^9}}, CellLabel-> "In[106]:=",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"], Cell[BoxData[ RowBox[{"{", RowBox[{ InterpretationBox[ TemplateBox[{"-1.8107438", "91", "18", SuperscriptBox["10", "23"]}, "AroundSeqExp"], Around[-1.810743891047566*^23, 1.8259874330824092`*^15]], ",", InterpretationBox[ TemplateBox[{"-1.2079570", "30", "12", SuperscriptBox["10", "24"]}, "AroundSeqExp"], Around[-1.2079570302224561`*^24, 1.2132418344942812`*^16]], ",", InterpretationBox[ TemplateBox[{"-5.3533535", "8", "6", SuperscriptBox["10", "24"]}, "AroundSeqExp"], Around[-5.35335357842576*^24, 5.783674374851528*^16]], ",", InterpretationBox[ TemplateBox[{"-1.7701735", "82", "22", SuperscriptBox["10", "25"]}, "AroundSeqExp"], Around[-1.7701735821721476`*^25, 2.213830398441585*^17]], ",", InterpretationBox[ TemplateBox[{"-4.6512567", "9", "8", SuperscriptBox["10", "25"]}, "AroundSeqExp"], Around[-4.651256794168315*^25, 7.58598708140362*^17]], ",", InterpretationBox[ TemplateBox[{"-1.0100903", "03", "23", SuperscriptBox["10", "26"]}, "AroundSeqExp"], Around[-1.0100903031803127`*^26, 2.3362261223241236`*^18]], ",", InterpretationBox[ TemplateBox[{"-1.8619640", "5", "7", SuperscriptBox["10", "26"]}, "AroundSeqExp"], Around[-1.861964054710709*^26, 6.774164555891238*^18]]}], "}"}]], "Output",\ CellChangeTimes->{{3.8438066082122383`*^9, 3.843806616538913*^9}, 3.843806672624413*^9}, CellLabel-> "Out[109]=",ExpressionUUID->"afaa9364-8f91-4950-979b-0f9ef86eab0e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"2", "/", RowBox[{"\[CapitalDelta]", "[", "]"}]}], "-", RowBox[{"1", "/", RowBox[{"\[CapitalDelta]", "[", "]"}]}], "-", "1"}]], "Input", CellChangeTimes->{{3.843819126096643*^9, 3.843819132248021*^9}}, CellLabel->"In[75]:=",ExpressionUUID->"c2ec938b-df20-4457-ac8f-5fb89f93d9f3"], Cell[BoxData[ RowBox[{"-", FractionBox["7", "15"]}]], "Output", CellChangeTimes->{3.843819132484602*^9}, CellLabel->"Out[75]=",ExpressionUUID->"7a8c2bb5-90c4-4aeb-82ef-a923f5a729e3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"2", "/", RowBox[{"\[CapitalDelta]", "[", "]"}]}], "-", "1"}]], "Input", CellChangeTimes->{{3.843819136273534*^9, 3.843819141872426*^9}}, CellLabel->"In[77]:=",ExpressionUUID->"f775ff7d-d0b6-4518-90fc-dce2b496637c"], Cell[BoxData[ FractionBox["1", "15"]], "Output", CellChangeTimes->{{3.843819138334237*^9, 3.843819142061701*^9}}, CellLabel->"Out[77]=",ExpressionUUID->"60b8b008-7807-40a6-b3d9-1f2e8b589a73"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{"\[CapitalPhi]s", "[", RowBox[{"[", "1", "]"}], "]"}]}], "//", "N"}]], "Input", CellChangeTimes->{{3.843819287998005*^9, 3.843819316027919*^9}, 3.843819487895836*^9}, CellLabel->"In[81]:=",ExpressionUUID->"33e05555-1738-48c2-b7aa-e8fd44cecd72"], Cell[BoxData["1.1977333837979933`"], "Output", CellChangeTimes->{{3.843819312543305*^9, 3.8438193162340193`*^9}, 3.8438194882408333`*^9}, CellLabel->"Out[81]=",ExpressionUUID->"a53b9d58-d244-4548-8b2d-0153f5f04983"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"t", "[", "\[Theta]", "]"}], SuperscriptBox[ RowBox[{ RowBox[{"H", "[", "2", "]"}], "[", "\[Theta]", "]"}], RowBox[{"1", "/", RowBox[{"\[CapitalDelta]", "[", "]"}]}]]], ",", RowBox[{ SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{ RowBox[{"t", "[", "\[Theta]", "]"}], "/", SuperscriptBox[ RowBox[{ RowBox[{"H", "[", "2", "]"}], "[", "\[Theta]", "]"}], RowBox[{"1", "/", RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}], "]"}], RowBox[{"\[Beta]", "[", "]"}]], RowBox[{ RowBox[{ RowBox[{"dGd\[Xi]List", "[", RowBox[{ RowBox[{"NF", "[", "2", "]"}], ",", RowBox[{"H", "[", "2", "]"}]}], "]"}], "[", RowBox[{"1", ",", "\[Theta]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "//.", RowBox[{"rules", "[", RowBox[{"H", "[", "2", "]"}], "]"}]}], "/.", RowBox[{"S", "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"t", "[", "\[Theta]", "]"}], SuperscriptBox[ RowBox[{ RowBox[{"H", "[", "9", "]"}], "[", "\[Theta]", "]"}], RowBox[{"1", "/", RowBox[{"\[CapitalDelta]", "[", "]"}]}]]], ",", RowBox[{ SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{ RowBox[{"t", "[", "\[Theta]", "]"}], "/", SuperscriptBox[ RowBox[{ RowBox[{"H", "[", "9", "]"}], "[", "\[Theta]", "]"}], RowBox[{"1", "/", RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}], "]"}], RowBox[{"\[Beta]", "[", "]"}]], RowBox[{ RowBox[{ RowBox[{"dGd\[Xi]List", "[", RowBox[{ RowBox[{"NF", "[", "9", "]"}], ",", RowBox[{"H", "[", "9", "]"}]}], "]"}], "[", RowBox[{"1", ",", "\[Theta]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "//.", RowBox[{"rules", "[", RowBox[{"H", "[", "9", "]"}], "]"}]}], "/.", RowBox[{"S", "[", "9", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"(", RowBox[{ SuperscriptBox["\[Theta]", "2"], "-", "1"}], ")"}], SuperscriptBox[ RowBox[{"(", RowBox[{"h0", " ", RowBox[{"hCas", "[", "\[Theta]", "]"}]}], ")"}], RowBox[{"1", "/", RowBox[{"\[CapitalDelta]", "[", "]"}]}]]], ",", RowBox[{ RowBox[{"-", "m0"}], " ", RowBox[{"\[Theta]", "/", SuperscriptBox[ RowBox[{"(", RowBox[{"h0", " ", RowBox[{"hCas", "[", "\[Theta]", "]"}]}], ")"}], RowBox[{ RowBox[{"\[Beta]", "[", "]"}], "/", RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}]}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "1.4"}], "}"}], ",", RowBox[{"AspectRatio", "->", RowBox[{"1", "/", "GoldenRatio"}]}], ",", RowBox[{"PlotPoints", "->", "100"}]}], "]"}]], "Input", CellChangeTimes->{{3.8438198342385807`*^9, 3.843820020985083*^9}, { 3.843820064258402*^9, 3.843820168163731*^9}, {3.843820295646703*^9, 3.843820334254881*^9}, {3.843820426504457*^9, 3.8438204458005657`*^9}, { 3.843820527418583*^9, 3.843820578467298*^9}, {3.843820614988928*^9, 3.843820745632656*^9}, {3.843820778711458*^9, 3.843820779687192*^9}, { 3.8438208872181587`*^9, 3.8438208883219223`*^9}, {3.843821196664508*^9, 3.8438213596909237`*^9}}, CellLabel-> "In[134]:=",ExpressionUUID->"79242c4a-ef9e-453f-aabd-057c68f68aca"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], FaceForm[Opacity[0.3]], LineBox[CompressedData[" 1:eJwVknc4FYwfxYmIrOh2rbL3yoqUUHgjbxqXRFLKSraskMKrkowkooisyBYJ 32/IyMqIrigaNvdy7ZFfvz/Oc/44n+f8cZ4jYut2xm4bHR1d5V/930ki+Q5j hEDM1Qpq7uHYA7OTrBEl78xRkJnFuiDeHHo3AuxPXTPF3RIbvWnRdqBlxnTs 4kkjLEYbi9QANyBnDDD8LDNAFXdef4sEb3ixT6LSzuAYjuY6Or+w9Ae2ehdj /UA9bDekiKVxBEPvoam5VX5ddPEoIjy3vA0itNfuQlva6BSkTNbJCYXJTOfx OLnD2CNY8mSJGg4eWj6Vd15oYdnImwVz9bsge9fG7bnpQTxax/K278Z9COh/ 9fyjjCaO0p31/lzyADS01WsMpTTQiFilmD79EAI3OWdj9Q6gWNZ/ORAbA0Gq fFxVXupo0N1V1p0XC8HJfmvjb9UwR9EsMb0hDryHEzKIu9SwpywkTH/wEShO cGqTfVSxwsCbu3U+HgYTzabUJ1Sw7pl2meGOBJA8JU6JtlfBDp1e9kbBJzBY 8XspekYZU+3XDpnvTwR34VqPPUHKaGBpy85wLAk+nj+uylmyHx3P5FsP2iWD yY56e3rz/cioftVNwCcFrvL6Kg3+UcIjaffDUsKfgdrEzSin94r4ahv9xu30 VKB+H7h7TUkRMeJd++q5NOClpPVQXyogD13o1KVvaSDe/QbFX8rjkPqBfv3J F1C4NglN8vL41r86vtEtHZIFl036quQw5pLUXbrFdJBu+BqX91sW66vfncj8 kwF0dvmtDbdl8Zv9/Ume0JfQl5ltNC0ii1+bWy8fZc4Ep4zJggsuMhjT8/j0 b44sEHBOMFbilUF9VXL7hbgsODuccFa0URozUh0UnhKywf/s4d5CWWl065Rr cRbIARtCRSyBWwo3F5StIsVfAdRej/bvksQhs42LZ7NegcVGKPvXOEnk3hyS m5TKAwH9gFgVAUm0bpbJjZDNh7ohPtkuHQkcZ5weTFQogLvFJQ1FbBJ4ve6S yOzrAggPPlAwNSCOVd2qlryKhcB4m+yseVMcBZesict7iqCQsBFZ2yKGjVHT Q/2EYqAb5PaITBFDfZ2H6eWWxRAlY8cc6C6GxUPf3wemFsOoddK+JAExHKm0 02mWLoGLo4cXkoNE8fvIxg8rrVI4RDrPb2khigf6lHQfBJeCw2PhsmlVUXw+ lrMrp64UCFy+be4zIvgbXOfTjcsgk/dDnKqTCAYnyzrmnS+H6B02F7qMRHCL eFlV+1k5MMvZeXDKiaBP8Mz26uFySDEifjlHEUY1hgXn2w5v4O2KrvfjYGHc aLuRouRdAdUXJM4GOQphSW5Xjub9t+C2dEy66qAQ+iox2Oa3vYUshnsJ1TuF 0E2h24CTswpqZJ4TN4v3oYT22YX0R1VgQ006/JNpH34VU41nTHkHJ54cVrvT IYg7NRl+1ufWgFHOca+VXEEkEcIn1KZqgJLZYjYfLojb9pU5JcjXQqMk5/JV HUEccDxClCushX+Lh4OWKgSwcndbR0opwLBf5u6EGn70Xc3+2DeIsOOUuNbG C348qL09jraGkLvBc6H0P350KlqksPC9h5fcxuEcp/lRLZAuRMzsPbxw7RI/ NcGHqxbl1qzt7+HuaJvPV0k+pLF1ib56VweDzzMcCjj5UECaj9WWXAev/ltj rV3hRZ9IpVqe5TpgInRYRLfyYsO80ZOrKvVgv6Y5+c2LF4M7X5+pzqkHloGp S9c6iBhl93PYIL4BVEljdE+riOgVnpeXXNwAKkEjAStZRGQLD7Ob6miABsEb kjohRJwljuf7sXwACZubp4fViNhmJVxuHPwB/jE6TvmVuQdTeNLI7faNUCEf ny6TQUCto/82nVNthgpG4awL8QRcvHbH6KJpMxxiTrXNDyeg4ZlBgo1zM1Sd rHmS5kjAhvH3D00zmuHdOuOxbiUCxpD82Ka5W2BhJ2lqV/1uHPRevsUz1wIK XuLidOs8qG2R+HJvbitkn2uMUKHwoNutZ9MuDa1gxWWY4/eTBztSr4dVfm+F lmBuQ502HrTpP5xxeE8b7KdaKBQ958HNMGoyXWgb7H6RPblgyIN9V5XsfK3a oewX5XlnBjeKO6lZCe3ohJnzIosnkrixaZqJtCbeCfEli8zkh9y4xUJ+3KHX Ce2vT5eKB3CjuZMNzfZmJ7CRFT2DTnOjSxMjx6HZTjDzmmfexcCNan/0dElO nyBZfnEW3HdhrXuj2KETXaBFkgxMdePC0cYCujHGHsg+WTxZ7ciFSqSIh/G7 euBcCNHlx2UuLGn7JK2zrwdSH5q7GpC4sFgy9E6kRg+Mj3OUOB3kwicKQi10 13rgjam+zr7tXEgaoE+27uiBZr1Vk4JjnGh+4KbycHwvrEhUbA59ZUfWrXJn Vr4+YFRuzb7xiR3Fa4JH1iT6oHXHW0e+D+xou2X+Y0ylD2C/HjmsgB33Zw6E V5j0wYMoC6mJ2+zYd2fCQiGkD3y/zBR+lmXHy3u9LLxG++CpolXX2zA2JN/5 fuRaUT+06Lo85TDbiYYPXgrxaJFhzSXpQ8d5FswSvZk9QByE9vu/Vnm6mFF1 72XKVsI3CHEzZvrswISPD2kYRz8chlmTJ2Pr+ttRKL1UzTN7BBzTr7jRjBhR 78yZs9U5P+AKRLIpWjCgq+/gsuLrnyCRYhWz7eE2zKhVU9gZ8ws+H5c4/b2J Hp0cnIq+3PgN8yXdAQQiPXoYm+5JOD4K1wvKR6Ju0aFy3Z9dO+nHIKiKP0ej cwsGnC1iBGvGoObjKfaXTX/AzLOwwNZ2HH48oNXOVm/CQoCY/L87J+Bdpq1W RdMGMLf6KDRlT0BePbV1gbIO/ukMK6IqkzBtTOO+w70OIUcZBGJxEiRuhK+J nFyDkBbPCBadKeAv7W3VT1iFDkONXNfyKVDXPNHu1b8Cl2fsacL7p8Er0d0z S34Fgl2plvnPpiGG4OX5LGAZlk9X8nhwzkCUo76ZbvcSrF+Lag4PmIFzBySl LmgtwWc5J9GUgRmoTqoZLni6CGpX7ifQ6czCFtOV/p8si2DEpnndKWkWCsZd SiJvLYBnc+Ivecos6DtXN7DP0KCStLFb34gC4fQZ6OpAgzLt0s7qpxRYGnbb G02eh2n9PD8vKgXiuHDz0bl58Ah2kBYUokLRho7nwYE5uGetrqmjTwXYHcxp SpqD7ye2+m87U8HEXvgLA5kKpqm37x+NpsIl2+bSPyQqfPJ62idQToU3vD3b g3MpoJPIEe/6l9Nr6z2tUz0LQwdeF6atUWF4RZi1qXoGYnKSk2b3zsGL1/nS UZ3TUL73FZvJkTlgjYgM+Tw2BfdMomdCrefgSjpZc3N6ErSyo02GgufASuke 826GSVjHjSP3n83BSeZ/NE5un4Al7+V9VrVzcOuO2/awnePg2Mpfo/htDkir /PQJImMQmZn/KHp9DjZ8Y+McREfhk7/5sqjAPOhyJ+5yUfkNxu4+iraa81Dg ssd9Xe7v7+46f/z+d5fhj3ZEK6mf0NbQUJnhMw+/A0+cISj/AL94Kq/uo7/5 iJuckOgIsBqkbmmUzEPYDrcz/cLDwDRT4CfaOQ9YM/SaXfcb9HTteRcx9be/ yMlTg3kQ1JWOzbiz0kD9QrjXyhgZ2o+El3hI0UBwqqVmPLIfYnNqQfAfGnBE RuBJmc9g+gGfhtrToMWVxLU51A3puddPSYXRoLuVv0vgxCfYe9fkQ91LGhi9 LxNQTmqFFEsbtqp6GnQsjVLMQxuBei/2Yt4PGpxq+LI8XItwMNq5kXH7Aiz8 5igd2/8GCAWej6YlFqBfv35E7r90GHjWTik2XoC1Hf60mQxjuNk7LjN2ZQH+ B5OUOZs= "]], LineBox[CompressedData[" 1:eJwBQQS++yFib1JlAgAAAEMAAAACAAAAtgN3irWqSj9bDNpMDWX0v84SWbZb 8LA/dpOGi3WS9L931hnRdkXAP37G6PKFu/S/0olSNlUqyD8/AhO02+P0vzzY glCyxNA/pyYOCjgS9b9bbw+XaeLVPwdf3h0IQ/W/To6ZykVu2D9p3vVAaVr1 v14QbiJmPts/ax55Lz109b9uq+ORLPLgP2dLzX6wrvW/QXF1CjuU5D8ec2vn fev1vx7OlldA1ug/21CkfvQu9r+BOmKouJ3uPzsqCauNhPa/5iNVEHbh8j90 fUw29OX2v8KRJdvXh/g/LgtG7eRv979A0k9B8aP4P7t/mxJncve/pa5GlkfA +D87+IAY7XT3v0Lan8Ou+fg/Nifc+AR697+Z7dlRgm/5P+R/s31lhPe/gPhN Mypo+j8pMLEG9pn3v9OqiLlGlvw/nZgxFsnI9788yQEwQ7z8P8QG5H3ly/e/ //+2nKfi/D/L2Gr4B8/3v0CGN0KwMP0/82DfiF/V9798XoEs+9H9P2ugJe1b 4ve/3yKLQn4r/z/m9b+bov33v5CY9eg/JwFAGhyWNVk6+L8ngIt6a0EBQBt3 R9YuPvi/sAWSdfBbAUC3ILDNDUL4vwj0WQ8PkgFAOHFLe+hJ+L+nt9Wr3QIC QJ8I+TkWWvi/oZyF4Pz4AkA+RjO1g3z4v6iKYaADTwVA+Gl+fZbL+L/6jD8V UXoFQD8vQoMU0fi/A94483OmBUA2ivjEpdb4v9UTVq9WAQZATmF4HwTi+L+w IZ2TbcIGQGF3eXHA+fi/ve8m1z16CED56rfT0C35v6cf6h7gJw1A4E5OXEuv +b9rOGzPU48NQPKeQky8ufm/3BWWVpL6DUB7tGtNcsT5vzk8bF1r3Q5AiCpG Grza+b9/M1lPZ24QQF8ZZow+C/q/YKi36F+1EEAEkGxJThj6v0Xt98qY/xBA yt1Omckl+r+4RgcI254RQFf1l3UfQvq/sap65PwRE0AlAcPzO4H6v341E8I1 fBNAu4TJIJmS+r/ojCDC5ewTQGFkJl+zpPq/bmUppoTkFED4VCNfYsv6v23C Mi4MSBdAY0EmcBQl+7+CGKKVEgEYQHfzo/a9Pvu/6v6hzszKGEAF4li+Alr7 vzZN2sGvmxpAG9jBMj2W+79FmGd1T6obQB76U6vAt/u/9trpQRPZHECO4qR/ Atz7vxbw9y3WtB9ApQPzA8Yu/L/tD23dtLsgQCwSSdGrXvy/4EPOFQTEIUBW sGg4O5T8v/56dJMDACNADjdsFOrQ/L8//l0k9YIkQO8ZDO3RFv2//T+t5Ntr JkBvwSULH2n9v+AIa/Wi8ChA1e/WofDM/b9zQVvjo3ksQBy+blpXS/6/7YF8 6y/6MEAhZc7xwPb+v27SCiNVFjZAp8Htbq3+/7/eDfDHuulCQBCWQjmwXwHA 6Usap/TNaEAMrBIaZl8FwA3sMX4= "]]}, Annotation[#, "Charting`Private`Tag$15119874#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], FaceForm[Opacity[0.3]], LineBox[CompressedData[" 1:eJwV0vc/FQofwPGMonKulU32TIh0Q0IqMyGkwU1IqDhEKnJFaZDZpOhcIyMK hcj3q8yMg9M9iezVwdEZdsZznx8+r/c/8JE/G+Dozblhw4aK//q/HU9e+0yI hGPevZgmyh+iYNM6dqekygXbbEnni1JdoGuuKtDe7ygOVlpyvEzwBuZSmrO7 nRVycI3RMq4FQPGzXXIjZYdQjM9K4cSjy8CQCBnwPmSOdq2Lb0gnr8IJvpaI g+FmqJFUcpT0xw1QtLXXXZY0xfv7Ln3JOBkFr9qcCHLrxhhR6vjXgVfRsBSf TkrZsQ+XnhHVlhm3YNWiLin6pSFmqMyST+nfAb5qC9+MowbIm26k3BdyD94c fPyhRX0vFkRdr+kriYPWm5ErFqp/YkLiqfzC6QfAf4DLMcVsD5oICGg2JCXC yif206pgfWzwOlzUU5AE6cYXCyYrd+MjAwmjwrpkYCy0hUsI7kYdVRUe+x8p EO/zyqQ3VA99Xr8v6malghPZW3wvTRepTms5LryPwCDrg0XyOV0cqBV93C39 GNpMN4cn03fhsabBF/46T4C4K0BJImIXnhtQT5Qyfwp8lSvmQiU6qKhpvf7b Ow0yKUO53C46aOYjI2oSmg5Cz05vG1nTRtWRnzfrbj2HvCPcxsRaLXx4mPi6 lJQBkuG2mUHaWpilsOu4iGsm+BsXOC1l7US9VV7nyP5MSHcbltDK0sSgFUqq 7+RL6CxLjO3U1ETVo27NMwEksKzIixn8sAPbokV8NedIQN1oUfx+TAPrArfu +L72D3TfKD/dEaWBn8UGtttGZ0Hg+Tb7RXkNlN3poBLJkw3y9Mwc34vqGBbS Rd/BnwPyVyuq94mro6vXzbJXyTkQb3nfTKdBDePkQzKmRHLBY23+Y42GGs5l 5Ug2S72CigZCtIqQKmYMrL7jUs6HTT+nNt7vVEFa44AeJScfeB4Rt9CTVdBx o3ojUa0AHlfzZhySUsHn8w1VsjsKIdX4hc+4iTL+e4tZ5KxVBL5vdZMa+JSx uALmy4qKwOtD/xbOXiUcLt9/j6ZVDLvZttNHryvhwcKaBD+xN2BklOvR3ayI gZHRpp6ibyGfo3AqO10RgxYGuSxPvYXA0/pqjwMVMYOVcko08y3YHc5NeCel iOmm8suB6iUQW1C+rSpCAZl0ermyUSnMrVbTrroqoOG84qJ7ZClEtWfqEXYr oByRMh39uRRSv9UWJ9PlMSGB8i3Jpgxi0/JtXH3lcfywT+znk+/A5cC9tnkr ecwyCDxy5sU7iPu5kKa/Qx7Jk0c8JofeQYIbNSzylxxy0GPkGs+/h6Arj//A G3LYPtoblBtSDsG3Fr/2n5fFtR2/VBTjKkHghrSxjKEsDj19kZ7TXgka1URT eT5ZNDqglSAh+AE4U6uYXiXbMSyn1qn94Qd4S5JNcODZjovPD0qHvqgChzi5 f1fbpZFv6649XYUfYermvYaQfGlUK/O65DrzEa4VWLoRb0ujadH2CLJ2DUR/ Tr8wYSKN26PqziSW1ADhfNpYZIUUcg4UL7mXA5BPbinfWSOJL/0m6DIDCIGM rfEPSZJYSWoMsFhF6PjN4WEXK4lV2rVlflK1EOPazCp0kMTiTQ5PXxyvBbfl EyFzNAlMTB0yqSbXQpf+O8oDVQk8OxZ+sKvmE8TvTYnzFJBA5sHxxqc/PsGZ eLely0viqDlDszi1/AmmOY73W7WKY4wMp1Wr/meIlxkryrwsjjS/rc/OFX6G RkO5cUOyGOo/O51040kd7PnDxutClRg2BzhvmXhXBxJvWj+25ooh14nJLCtK HWhzB2uKRYmhrg/34VVCPchtekAHfTH0O9l5bnt0PSzq285TckTx656qQKsL DRAt5Bm8N0sEQ9439FgbNkEIYSj44kMRdGPzyfq5NAGrMEILbotg63LdUHRQ E0SbuXiW+4pgCzFzNCe/CdJeL0gxdUTwziU7er5kM9S694iY1W1DbRrxbMFS M3wzmW+0XxHGUKX9aQmlLaC77bLtLYYw/pCIOLLe3gLKS8MP2kaF8aDW5Vu+ ky0gXlMX/KRNGDNXiLd3yrdCDGF9TjBTGBOtPFuCH7QCr1Oj1HlLYdy6O9hu yacNFvxHz53LFkIlMSG9CVEybCpR0hl7JoTXfmcnT+mRIcp4d/nlRKH//nG6 RrMng+XgHbv660Jo/eXtYOc9MnCdsWWrHhNCysSvdac1MrxhCMeRuYWQL+2q tFBQB5xaPOyQGySIpbF2i0TnTmiwS+ruJQpgvS/BzVeIAv4ejzt/+wkg6xrV eJcsBQpHTg0oeglgpMh+8/kdFLgYs75030UAH5b6Vl05RIHI3m3XPxgJoKZe h5trGAVOJswVRvMIoNyImUNiHwWShn5wt1ny48gAyaQn+yuQatL98oYISMnQ JnbtpMKfmfNbLKgE/McNTccMqZBqsqmO8YWANoypN7MWVKDYnNU4X0bA5gSt 4M1nqWAeYX1tNJaALIbj31seUaGixtudYxcBaUcrGv1WqZB592GixX0+lDX5 mpTV/A3upli88z69FX08+AK4Xb/DtNCwVd3ZzejF538xzuQHXGAEsDN7eXDB 3DV/obEfyhpJwTqXN2H+zWv1kwWDEJa6kCZ+bCMuKmnUcDUPQadaUOi3E9y4 x1i1fqltGGqGN8jy+3Fh8tCVrOZ/R2AswdWo5SUnilbZ8ypXjYLfRt28uj4O 9I6TTpomjUHjl2FbcW0O/F5rrdMfOg41L593JT3dgDlRhwU7tCegqsI8h8K1 Af3zhJQ/TU1Ab1SQlRH3Opib2HqdTPwJevaxu/nXVmH4ttje5T9pIOzCe8yB sAp7lUz6i7to0GvNR/posAL2A2R1zlOTsKLPT+o68xv8DjEX+sYnwfNYhGBe 5jL0JD20yTk7BQ+b2/eMTy+BojOvnQ51CrZM8zpG6C7BcdIvgcdHpsHz+5Wi mvuLUDxEc50qnwabu8umvP0LoCW46aW4Ch0ULg2udBosQLj1nMyjeDoU0i+4 l2XPQ/v1FeKRSTpU802trW+eB5K9IDfBZgY8HP9uagqfA0L3QKEEaQZ8t1JV yXOzILLXLY80OwMHDFzE287NQjjLv97R5hccpG0INR1lg3sF72L101+Q4FBw 5MYJNtg5b75tPf0LOku+2On1sCB0a/46SYoBYy6eb83+YsFYiuGFGyYMqBSX uVbUy4R1bYWyMG8G7BNVirU5ywQLmqO7wh0G1IhsVuceZEC7r5kxvZABT747 Jsl6MMBKVLXUtYMBQX/7z/RQfwH/ISkFCoMBVTY/fqR1z0AK8bf9DWEmODEk Sj5O0WGtSF3fR48JKk7V1CdcdIjsCxixc2QCp7pDjzvPNDw7Lm4UFswEd2dp P3OpKRjXc74vk8yE2M3kYCHJSegzuC/HX8qEvqwvLIoUDYbVX9zSpDCh3qud o1LzJ7RkOtgvMJjgYaTO26AyAaNhU83KgiygXOayOa09Dmm5EoOS2iwQv/66 JV12DHyDAlgxR1mg2lKQkygwCoJSOwOOB7CgwjZ7uy//CHDt+9oqEM+Cndns Ak/2EFhzp7S4v2aB7/73p2F0EDgLrvNkt7BgTWNCIL5gAAyym0ihNBbY/2X+ 4ZNDHzQ9IP/esIUNU+mk+W7BXsjrnal/pMYGtS419pPEblgr/+7EZc2GfPfP XyV4qRDR7KOj4s8GDz+ujrInFKgYL/vpcY8NRjFa3rn9HUDdGzmRXciGwA7u zp6wVjgjo2XO18YGw+59eq1yjVDxU15gH50N/3CVGPJI14JDWWD9a4FZMDUl jdjcfQ8ijm4ulrqz0NdXOZKQTwKbK6ejjh+fhevV0QbSxdbwWYMpdS5wFv4H 1vk7tA== "]], LineBox[CompressedData[" 1:eJwVjnk4lAkcx2ccQ4eMIVTUIEVIURbJ+ys1lVyxzrCOGORYspVCJR1bykop ke3eDtFGSaXfi6nZaoUlkXUlNY8QmjHmncPaP77P5/k8z+ePr1FEkneUEo1G C5ne/7T41c9utMKVOHz78IXjyULM1RxesKD2PpG/Osq46ZIQDTJslznzkYja Kyxp5AlxSJtTW+3CJ6I6Y7+oDgrRlrOkNOlBI6HVyRvw1BZhMUsdkp1aCaZP UPSgkwj95vOqEt3aiN6PJq86PEU40GgRV5XfTsRduNbE2yHCzdEnw30LugiD EX1dxzwRpo2G1Mzc2kcUNwKd8UyE/PqhQMZgP+EGC7leX0TYduTEW1Lymdjp rnJvVG8CnYtUyjdqDRK4T2ux5qYJ1LQ5oHu6apjQNUxW3pQ+gWPH7qb0towS 7c/5xvSKCWzK693N/TBOdBV5TBUKJrAkpnRxipuIaDYM41KmYtx/sewErVtM +PgX83oixHiC3uU86zFF2FVJeSVXxXj1fZzA31VBNM87oh0wLMaUnOEnH+bT YcCFxyxwmMRFv505Gn1XGT7pcpWyzk0iOVf9q/stBlSykx10xZOoIjm49lnS TLCoVAvlRkvwpIEp/bYWE1yqvmvOpyRYR/S+ub6QCY7+NZYnZRI842Ad+siC CcrW67sUCglmWEPHAg4TXN8msEaUKfzuyYoQ72eC7b3ug0MaFOZ/f2a3fIgJ /dbxQUnGFOZe/zf+da8W5LWdValzp/CxRSONNaYFBrNVC/O9KCxhWrak0Vng fItTE+NDoU9JzOhdYxbkx1Z2GQZSGO5+7MHNaBYMjtOuVe6gMCt8vWWkiAW+ ntunLqVT+NlbJBxZqQN6P8UYVpdTGHarXJ+1RQc4TG+z4AoKr8aVPk0O04Gc Xqsg1arpvmjLm8FcHQhuP3467vn0PzZZ1j+mA1Zz5O1ZDRSyvdBMrX4uLLMU vKAPU8jNKfn26roe0IObw7RtpPi0GQIdX+qBAzH0R4WdFIkbjHwDgR5UrD7P CV0jxR4zFSFY6YOPboB3ywYptlmvq/Wv0YdqYWnc+gApqm8v6MkWz4OCcJZ9 zCEpOst32FuPGcBGvxhed7cU2/cQF22XGkLA7pzGFQNS9N5WHGMfagg61PPO gq9SLHrXY7ejcdrV32temZSijR+tGXAhhJ56wKvRlmGx72iQcxIbnNolZaUe MkzqjYy9c5YNqZ4lD074yVC1Zvy06Akb3MxJ2+OhMrxolGPuPtMIxn0ZLQOJ Mvw48M7J4KERjNQHHt2aJ8OiOaph/hwTsD+rv0DSJcMrDlp9HgdMwPmQVUiC QIY+Q3xjjScm4FSYwJj/XYbhDas6YfViyGsgjyyZIUeviezdpRtNYVaCSf92 ezlODkeVi3NNwa9vlfnHDXKkZ2R/nNVlCrSmz4LqbXIsHJzZ6npwCWiz16xO ipcjKfdgeI0thTdR0rYDN+XYl5zpKfM3A8+LTbMXPZLj2vSAz2n1ZiC/xuav fSnHfZfHtx6+Yw6xmVdZBgI5nn96KYvOtwAGbbdDlq0Ct+1J/tE5whJM15St hM0K1MfLm2zUrEApjhfQG6LA1HFGw7WU5fC3p+veeTkKzDI0vjxbvgL2tZ6L 4ooVWD7YcU6YvhLeZs75pKYzhQefu7wQqtlA4j/t1oE2U1h743VGDMcWgqMW 3RhOncLIh2d3HVXYgkhiw6kpnELfdZXx29+sAi58igypncK07CVfTR/aQbn5 0soDGjSyLafV/H33D+BT7cA1W0ojk1b2pxrZO8D9srQt511o5Eunjl8MGx3h vGXm3V2RNLIvbbEg47ETGFfUSW8eo5GshlOXTHQICJ7c05D9J418tn+nqcms dXD0xc8mPf00sr80jSvQcIGWlvQVmWw6uatYVxz+bSMU/L4qa30inWT/xZ/U y3UF3pk6XbMPdDKfu4G1f3gbgEaBmH9ciZzh0T5GDEXAEV5C0IpAFVLlFSNM pe4QOJ6iH6unq5P/AYBX51I= "]]}, Annotation[#, "Charting`Private`Tag$15119874#2"]& ], TagBox[ {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ 1.], FaceForm[Opacity[0.3]], LineBox[CompressedData[" 1:eJwVlfcj1f0fQK+tskX2yJ7ZM+4nQh6iECUZWdkjMjOTUDYZmckKjz3T641o SBFFpDKys8flUt/n+9P5C845/De9TBxJcTgcIwkO93/SnyB0RzA9RDkOY5of sYOXf+N+D220OiH1We8e3p9qkMvgkRflZIPoS4g9HhX60EvFu3LR4BoqqsrC VXWYQOtqwxWt+itI8uM/BT0RV2H5eHABg7Ypuj0FXZJS1uDbpl8iHHwZ8X0c jeCcsQNhFSUpKvZLSBbnz1xV5gB81J5dYcSL6Ab3pFa4ozPIKmwySIgaokma Cd8QblfYHRn8/E/+PyhNNWDr8qA7SPVKtiQZ6iN+nXXLpDAvUMho6vwhfAG9 pRj5ZXLSB4yPArxCBPXQnf3YySBnX9jhImub1tRFUX4nDGdbb8PLQA8mQR8d 9GTU70QjtT/wf2t+69JyHnHIvDSgtLgDhaG08tV051H03GDA9tMAWIgX6Y/0 00Zau40z6WuBoOvlsrU2p4XwlddNiarBQEKTw2PpoIVefY53UI0OAbKwMkGX 5XPIX0V9xro/FF7qhjw+Cj6HCm7k0wYzhcH1AoEy+loMOU1yr04ZRYASmZQN rRmGMoRwYeQbEfDvsMnXY0Q8emPHFtWaGglaZXaK0KmJqIvP1s6NRME56ouV nyQ0Eddg59It/2jgKnr7wLVIA7k+933/kOUeuLOrKkHhWdRj59PcZxYDBmMa UT5iZ5FKQsvA9FYMRD4Wb0lsUUe29r6NVan3gdMg/VH4tBpyqIpmN/sYC6H+ 2z3PwtRQR7OnkZLHA5BUqHr1lUcNRZ4+2/fxeBz09yx8t3NVRbkO3x/J6MTD RQJDB55FFTU8ulRMnIqHfR3bUo0eFXT+1/z9mLAEoDEJnP8hooKU7pAbfmt+ CMwnL+W40SsjdkdzTxBMglL/fa+xD0qouuSGwXNIAq6nQ/FayUqIIaG5WEYq GWgc6oor2ZTQlr87fdbrZFBaOmK5paGIHP/ouqoTU6DNdGLf6Lgi+uFXV7eg lwqRBjPkKWMKiCS7hyY8PRX09q0ylgMV0D+KNypvSaVBxVe9voTX8oholOWj Zp0Om4c7zjY58simyORkQW06hNgx55h7yiPOoZwrK6QZwGbL9jCCXR6ddU82 1SrLAHkKt9e5IXKo4aHo1NxqJoxzRb22MZdDcpQLSrnYYxgKmhMgyMqh36mD bOqpj6FZ4jAsdlkWlWxI9mgqZsGGyctRG2dZZCRjgrMOzoZ8wtNR0guyiGCW dyqgPxvELvUx6orJol8u/pRhXDkQ8TQ1Jeu3DOpS8XIzf5kDc1J0zxdDZVD7 JzKiMskTWOo/NuPpeAZ96lmrWo3Ohyxup8BGpTNo1PSVHG4kHwjyuDSgPoMW d3xXSAULIC76rjzjv9IoM5O24ltPAWi163azkUsjUq6kRd/IQpC5q1Gx1y+J 7rXNn1eBIvhCfrHCv0wSDXkMrQ3PFYGydAoWEC2JKEO5bV3oiiHv5l+R/bOS yGvZ42PkjWII8H7VXN4kgYwyZxJdicXw6HHWw6gOcRR6SW9WRKkEyjlqLNcK xFHp4Hm6AcsSMD5uz1N9TxyRWhnGeYSXgIuITQCLsTjKGN7MKnxTAo1ffkv4 zIsh68hvAoOWzyBIeSb/jJAYuuhpVWQVVgpnP2dPUtOJoSf3Olk6ikthmFnv Hc+eKOr2K3dkeV0KkVb5eYdvRZHimazmTvoyoNT0pnb0FUWiZI9WJgvL4Kgw KJJ/QAQd1rd+vtldDpWMu3IWbSJI3LDMLmquHF4XeHZ0PBNBEuQMKvnHK4A9 WjeELlwERefSTr4zqYAlQYqa1/Ii6JZ9Sy1hugKGr2nPE0uEUUmfdsJz0udQ M1rjkl8shHg5n3Gk4ashzimbbzRNCPkTBN3TblaD69ClJMkYISRMTjGQHFMN zqxpQpK3hNCHRf6BqP5qeCm6ft/vjBDa7ZdROm9RA4wpHL5T3YLo/rI+Jeb5 L3SaPgMxogDSY39myDFQC9i5m112awIo/1oDzut7LezNQXj1jAAavdjo171W C2aypVfD3wsgJpbkYkemOvDsEG2kLBBAsYGk+DyLOnAIuWgeqCeAVN0oOz5N 1UHYsYaZqpLTyLmRV8R2px5IpuRNz+ScRhPTxjfIqRsgMbU6vDvpNHLbXDUs 42gAYTknG46Q06jgqo31Ir4B7rDUJSSYnEYk4iW+1vENwE+4zHSJ/DRy1/qW S8vbCOXFxfp2vvxIyD1KNU6vCR527sTWuvAj3OaIFpVlEyhOhFHQ2PEj3YDQ M/fcm+CoiMVw3pgfsefbtwSnNIGQTPShhDQ/GksxKLKcaII61szaLyt8SNQp Y2TOsxnou+kQlS8fCg3nolXJaAGLRetjEm58SEuoZ8WytAV2l2ydzR34kOqY 1kZoSwtUCtie7jXnQ0lpA24vv7YAV+D4DO4sH4plHlJX5mkFruUHmbNUfGjS a3ERV9YKeZd9Vgn6vOjIN/Hafksb/GXyNaLV5EXluRPypG/bIJF03V9ajhep XDu8cHy8DTbABGVy8KJEOmVhtsM2qAwOGjpc5kHaLF86xbF2IO0YPkGTwoMO MfZFiTftIBLXYVw5w42QnQdWPNoBesz1UsZj3Ig/obzxz2IHKFauCOIGuJE0 w19zy8MOUMq9fOx+MzdqCK8Sped/AXveRla88dwo6k42k5frC4hg1HG4I8+N fKgNU6mPXsBVURE72UQuRLJWVVjK/xIWKleD1W05UfM9ySYLBQT9CZSk0Rac 6MludJm2BgLyIkHtT0ac6MKfm7pndBGoSKX1xmpwImnqkniKqwgof6olXeTk RDVrWfI1IQh0jPUL1cY4UKxrjep6N4Jf4bmeJhYcKJTq+ROVy12gIdQa6HeL HSlQX5adc++Gd/o9k1/s2BGDWcULYf9uKOAdI9G8zo5MGMqOO9/thvQvQt4c RuyIik14be5RN4jL5OqeUGBHP9/Kfp+p6QaF8EmyNzh21OtM7/dpvRsSt3bH HuSxoQ+ss37Rfj0gQTLKyDlzCjmt7rOfDXkF7T6ZXdV3WdGPdEVvlfo+6Lfv dI+zZkE6mvo3gtAbOO78muG880kUUS+89L3rHWQcC01qCWJGrXfsh3xX3kN2 ZMCVvAYmJDavQTaz9gHCHj0xpdhkRHF0A7euJA7C2ns5s2EdRnRS30rzdf4Q UO/oF9TVM6CUxSge+SefIKbepuopLwMKT449710zDKwu4d605+gRY43sqYXq Ecj+W2nQhNEhz6BQZp3uz6D0buPt7BVaxO18eUJ16AtoGJQuUD+gQfc4QtU7 B0YBC6yni206gRIuc1Eb/RgDA3dlwiPicfRMxTb78fevsBpV8I7O6DjytLpK +2FsHH6qsGc/zzmGHi94a+IXJqB2cDu2/oAagZ3Rx7xf36BWOnQgxYwaSUvl hV4nTMK/d95r0LdSIVFterl/KH+AkrT3JysJKvRmTCxbhOQnFGOC0XuPKdHG o6KR/bifEKkYv97NRImsc69enzk2BftUIhzTaRRI6ufw8N3YKSD7u7a1TkuB 6Chk/tAyTIPjndw0nnRyZHDcW7g7aRpwDy7Q8zKTo5KUV3MPOWbgQ5uGs1oe GXLYPrCOeTIDVvjCmF4JMsQqbLZjyjUL45MkTv31pKjgMkbwLJuF043DHzO1 SVGtzlgNiP2Cir7IuvL3JOhzTJ3nw5ZfcPvQK0T1GglSLE4TvaX9Xyxd5ifC VnHopEbwpfC+OajUU2tODMEh/5XGKrsr84A2eK16GHBIpc7+64OJefDRTg6v vPQXqtQ2+4dsFoClsapDwvMPeClvBOmuLwAdR9a6X84RNIzjDCgCF8HKsrDz WOMhxDOXM1+gWYK2NVE6o0EiiDaJWjIVLMG9vpLnJAcHEM+4uycltgyhx/jE p+kOgOurhqQjWoYTkcFfNWX2ISzn6iCJ8QqwsrNRv1UjQLo/x77u8goYfwgt enZ+D1wD1YSe3f8NFwR8Gh5d24V6R/nxCPZVOIW9lik33QEL7wBn8o5VeO2R +8HZYhucqiRHFM3W4K+Q3nyZxRYo9x3mTK2sAZX0jp2k8iZceiQ0//6fdYhE A5tD3BtQkfTbXix3HSi+ldFkta+BVvlcnM72OpzLlKTv5f0NBy+uWLMabcBb 5+7cd3FLEPKyWEK7ZAMazENPG8XOgzmft3YX+Sbc5+q9MREyCxV2buGyNzeB ydqDi01tCoh+qfkJXZtgZf/tunP+ODzT9J3lkN4CEz3MXtPuE/REyP81zd6C xMInl0mkEbDIK7pMsmzDGvuV9V83K/GlYh2M99K3wbHNXPhweRDfd3XfRZFn B96oMt2upp/GJzvlrqm/24EVH827r1Sn8XdZk0iJ73fgQDMl5KTDNH6fQ/fM i4874F/I0mDXNo23mtpZOP95B4hD1ILdTjN4Iad2R++fO8Bq6zYqMTCLtxic wins7QDHQtdKx8A8nvKmfWGG8C4oU5jp6eMW8C1fW4OLxXbh49zYnIj8Ap6Q tS1RL7kLT8Lalr5lL+A7tehkx+V2wcEiulPLbRF/JWw77yJ+F0jCmi9t8Szj iThe6bdXdyHznoI2+rSKHw/I4TdL3IUbqvEeDKfW8IFdGu6nUndhcZFCYfP6 Gh463YJ/ZOyCYuvzydvza/jhnnenw/J2YUP95sjXqHV8ToxExF7VLgxk4wY7 ajfwcnIPYpfe74J31uhvTfNt/EsazT4Xxj3Y0q72sL+3jU/qpVpaYdmDyWSR /7a/jZeTjm0O4NiDsxFRSxOMO3gFhZiPJQJ7kL2Tq3b4eQdvxUeYsFXaA71L dE1fgvfwzeH83lE39iAtjX64z4SIF7wd2NzZsAc0N9eJDZlEfNj3alaftj2g LlDQeTZBxE/ILqnKwR6M61mS1d06xLv2K9L+eLcHm9eu4/WSj/Cmd83sV6b3 IKlSp7qeDocVSAp2SbISwPONzeiwGg4jjD6mWuQiwMCHiu1eZxymmyzT2iZA AHuNEUfVVzgs3MWuOEeWAI68f94pPyDBLG3p6NyNCJCYkRr47TwZNoIru735 kAANchPN56LIMI329Ur9DAIInLCX5+siw1qGqeW78wiw16WwGK9Njom+KyTh +pcArrgwn9M3KLASiudkWcMEOPmLLdGNQIVlv7gPwkL7EPTKVJNgQY1N1GqG Gv/ncalTgXVnOzVmOF7V26K+Dz/o1I7a449h1znmOkxN90FN/miE9foJjJH9 6Sbf/X24K6pEbCJnwGpCGtvv/9kH2/RTTMiSATOU+iVR/18nCkv95OSbGDBc SW+NG+8BLP9yozoMZMQEM2sEG7UOoILE9YaKATMW+7TpHFvqATiNqnBGDDNj 9FfOqUuVHwAWtPMj3fEk9k1irM8UDuDh/Y4h5yoWLC+zesRg4wAkvIp+jB+w YR/O8Iy43iICb4uQTTkVB3bLmCwqLoEIDqEPyZ0UOLG/rwV3A+qIUDn7+1Xt CR6MN0bn+zeqQ5gt/QQM73kx5nSWwT7VQ9DSllz0/s2HsXFcFH/kcwhfGwLa 31YJYOJq+tYJ+4eQl/GklyZbCEuaf1robHwE/puUB3QioljCeHnFdMsRGLNp fCd/I4H9eS/MekLjD7QnveQO6pHBpmq02Xa2/gB/wNDcRTsl7LETw0+uEzjE tPtdWa1dB0vx1nev8CBBMQPBam+C7mA/VTSmztdTov8BqbTVrw== "]]}, Annotation[#, "Charting`Private`Tag$15119874#3"]& ], {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> None}, PlotRange->{{-7.7956157916985465`, 4.688521322387839}, {-3.0008612201069385`, 0.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.05], Scaled[0.05]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.843821355321394*^9, 3.843821359977265*^9}}, CellLabel-> "Out[134]=",ExpressionUUID->"9e7d57d6-efa3-474c-ad30-e142da216a92"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S", "[", "2", "]"}]], "Input", CellChangeTimes->{{3.843820567123662*^9, 3.843820567586446*^9}}, CellLabel-> "In[104]:=",ExpressionUUID->"e2ebf167-6996-49ef-9ca3-9dd16132c4ea"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.2113984981855266`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.18040968433960122`"}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.1295236147887016`"}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2447338967832837`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4997458274069301`"}]}], "}"}]], "Output", CellChangeTimes->{3.843820567743414*^9}, CellLabel-> "Out[104]=",ExpressionUUID->"c33b6abd-b8d8-415e-b881-93fd6c52f0db"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m0", "/", SuperscriptBox[ RowBox[{"(", RowBox[{"h0", " ", RowBox[{"hCas", "[", "1", "]"}]}], ")"}], RowBox[{ RowBox[{"\[Beta]", "[", "]"}], "/", RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}]], "Input", CellChangeTimes->{{3.843819332197076*^9, 3.843819353348621*^9}, { 3.843820821640896*^9, 3.843820835136125*^9}, {3.8438209702351227`*^9, 3.843820974739016*^9}}, CellLabel-> "In[120]:=",ExpressionUUID->"e153916d-9f1b-43b9-a6c4-f59eefa45d16"], Cell[BoxData["1.2775821852263383`"], "Output", CellChangeTimes->{3.843819353571412*^9, 3.8438208357193813`*^9, 3.8438209750052147`*^9}, CellLabel-> "Out[120]=",ExpressionUUID->"ca5cf147-c698-4d49-a753-1cf32997e5f5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalPhi]s", "[", RowBox[{"[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.8438209840375433`*^9, 3.8438209924910793`*^9}}, CellLabel-> "In[122]:=",ExpressionUUID->"c29b0035-e029-4b18-8ef4-ecd12fb49333"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", " ", "\[Pi]"}], ")"}], RowBox[{"1", "/", "15"}]], " ", RowBox[{"Gamma", "[", FractionBox["1", "5"], "]"}], " ", RowBox[{"Gamma", "[", FractionBox["1", "3"], "]"}], " ", RowBox[{"Gamma", "[", FractionBox["7", "15"], "]"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"Gamma", "[", FractionBox["3", "4"], "]"}], RowBox[{"Gamma", "[", FractionBox["1", "4"], "]"}]], ")"}], RowBox[{"8", "/", "15"}]], " ", SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["13", "16"], "]"}], RowBox[{"16", "/", "15"}]]}], RowBox[{ SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["3", "16"], "]"}], RowBox[{"16", "/", "15"}]], " ", RowBox[{"Gamma", "[", FractionBox["8", "15"], "]"}], " ", RowBox[{"Gamma", "[", FractionBox["2", "3"], "]"}], " ", RowBox[{"Gamma", "[", FractionBox["4", "5"], "]"}]}]]}]], "Output", CellChangeTimes->{{3.84382098702094*^9, 3.8438209896475677`*^9}}, CellLabel-> "Out[122]=",ExpressionUUID->"a77b28a6-eacd-4614-b43a-ed39428597d6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"datCasM", "/.", "m0rule"}]], "Input", CellChangeTimes->{{3.843803230256878*^9, 3.8438032333117857`*^9}}, CellLabel-> "In[195]:=",ExpressionUUID->"40438766-386e-4ef0-95c5-bb36288917ef"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1.2803840363806758`"}], ",", RowBox[{"-", "0.08312876211833689`"}], ",", "0.013329954661202004`", ",", RowBox[{"-", "0.0019834846485221125`"}], ",", "0.00005580926915319621`", ",", "0.00011134671023551035`", ",", RowBox[{"-", "0.00005191912354628053`"}], ",", "0.0000129868232839969`", ",", RowBox[{"-", "7.456745384784115`*^-7"}], ",", RowBox[{"-", "1.0845467513314156`*^-6"}], ",", "6.211171366695239`*^-7"}], "}"}]], "Output", CellChangeTimes->{{3.843803233497788*^9, 3.843803242894781*^9}, 3.84380334832369*^9, 3.843803432165793*^9, 3.843803588716037*^9}, CellLabel-> "Out[195]=",ExpressionUUID->"462d7199-fbaa-4949-8313-776399b35c4a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"totOurs", "=", "17"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ds", "=", RowBox[{ RowBox[{ RowBox[{"invDerivativeList", "[", "totOurs", "]"}], "[", RowBox[{"\[Theta]", "\[Function]", FractionBox[ RowBox[{ RowBox[{"h1", "[", "\[Theta]", "]"}], "/.", "sol1"}], SuperscriptBox[ RowBox[{"(", RowBox[{"t", "[", "\[Theta]", "]"}], ")"}], RowBox[{"\[CapitalDelta]", "[", "2", "]"}]]]}], "]"}], "[", RowBox[{"\[Theta]c", "/.", "sol1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dFRegs", "=", RowBox[{ RowBox[{ RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"#", ",", "\[Theta]"}], "]"}], "&"}], ",", RowBox[{ RowBox[{ RowBox[{"RFReg", "[", "n1", "]"}], "[", "\[Theta]", "]"}], "/.", "sol1"}], ",", "totOurs"}], "]"}], "/.", RowBox[{"\[Theta]", "->", "\[Theta]c"}]}], "/.", "sol1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dF", "=", RowBox[{"dFRegs", "+", RowBox[{"Table", "[", RowBox[{ RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"AL", " ", RowBox[{"m", "!"}], " ", RowBox[{"Gamma", "[", RowBox[{"m", "-", "1"}], "]"}], " ", RowBox[{ RowBox[{"B", "^", RowBox[{"(", RowBox[{"m", "-", "1"}], ")"}]}], "/", "\[Pi]"}]}], ",", RowBox[{"m", ">", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "True"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "totOurs"}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dMs", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Rest", "[", RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"#", ",", "\[Theta]"}], "]"}], "&"}], ",", RowBox[{ FractionBox[ RowBox[{"fp", "[", "\[Theta]", "]"}], SuperscriptBox[ RowBox[{"t", "[", "\[Theta]", "]"}], "2"]], "-", RowBox[{ FractionBox["1", RowBox[{"8", "\[Pi]"}]], RowBox[{"Log", "[", SuperscriptBox[ RowBox[{"t", "[", "\[Theta]", "]"}], "2"], "]"}]}]}], ",", "totOurs"}], "]"}], "]"}], "/.", RowBox[{"\[Theta]", "->", "\[Theta]c"}]}], "/.", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "#", "]"}], "[", "fp", "]"}], "[", "\[Theta]c", "]"}], "->", RowBox[{"dF", "[", RowBox[{"[", RowBox[{"#", "+", "1"}], "]"}], "]"}]}], "&"}], ",", RowBox[{"Range", "[", RowBox[{"0", ",", "totOurs"}], "]"}]}], "]"}]}], "/.", "sol1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"datOurs", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"dMs", "[", RowBox[{"[", "k", "]"}], "]"}], RowBox[{"BellY", "[", RowBox[{"n", ",", "k", ",", RowBox[{"ds", "[", RowBox[{"[", RowBox[{";;", RowBox[{"n", "-", "k", "+", "1"}]}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "/", RowBox[{ RowBox[{"(", "n", ")"}], "!"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "totOurs"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->CompressedData[" 1:eJwd0Esow3EAB/DRlEetMeWR5N+QlsY0jxU1j/LaU5aZy7YQteYw2aZQwoEl G9kyilFiUh45KWThsKi1mrzKI4elzcnBY/l/f4dvn8P3e/pS+oG2nngGg5FH B2ouXPOmxY/a7NHbRXj3G+eG4j7dKSxNefPBeu/pJekrTAlm2sHXaDLMdUvZ 0GHYyILjWZt86LOGSmDnA0sMWUIO8SWHUsCtMJf4RFHtREe/Cg4Zed0w/ZxP nO41jkPbweQE5Goe/ZCj+iNa9gspC60kUcyFzLvDYpgjoGpgt71DDm17K0pY rW6+hjMZrUR2qv0eCs2GZ6hQiiKw8WrrF2rHZuOttEddz8TAmZwN3+XLaXCC ivJgcNdeDK+lWgEs+ywogw0/GSLoYewooUER0sKSJJsOpnsqjFCSX0WUBb+n YMujfA5G2vROKPVvL8Hzptiqlfxf6YGuwLEX3qpPiHXOIvUa7ZWbR3yTfQ3D 8pEYURJeyFzHjnlD/Ac6Hgav "],ExpressionUUID->"f81ed9c7-d940-4314-963c-c36ea0215ef3"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1.3578383417066047`"}], ",", RowBox[{"-", "0.04895328971999913`"}], ",", "0.038589364046676934`", ",", RowBox[{"-", "0.06639683866958071`"}], ",", "0.17282494938877094`", ",", RowBox[{"-", "0.5982136876234695`"}], ",", "2.5836539597308135`", ",", RowBox[{"-", "13.385542500325027`"}], ",", "80.92156022471416`", ",", RowBox[{"-", "559.2327437492248`"}], ",", "4348.6528801653585`", ",", RowBox[{"-", "37577.54203132622`"}], ",", "357215.5775388312`", ",", RowBox[{"-", "3.7046351622097627`*^6"}], ",", "4.162364375588009`*^7", ",", RowBox[{"-", "5.036541248157173`*^8"}], ",", "6.529768978407632`*^9"}], "}"}]], "Output", CellChangeTimes->{ 3.83698713111462*^9, 3.83698732721172*^9, {3.836987527713932*^9, 3.836987541172042*^9}, {3.8369877357608957`*^9, 3.836987748867478*^9}, { 3.8369877874156313`*^9, 3.836987793551597*^9}, 3.836988034596339*^9, 3.836988124923636*^9, {3.836988167393293*^9, 3.83698817337673*^9}, 3.836988304258202*^9, 3.8369887429546413`*^9, 3.8370701493666887`*^9, 3.83707078354727*^9}, CellLabel->"Out[37]=",ExpressionUUID->"2234af5e-068b-46a3-beaf-99a907ef5184"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"datOurLow2", "=", RowBox[{"Chop", "[", RowBox[{ RowBox[{"dGd\[Xi]LowList", "[", RowBox[{ RowBox[{"NF", "[", "2", "]"}], ",", RowBox[{"H", "[", "2", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"rules", "[", RowBox[{"H", "[", "2", "]"}], "]"}], ",", RowBox[{"S", "[", "2", "]"}]}], "]"}]}], "]"}], "[", "14", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.843813552094987*^9, 3.8438136440081587`*^9}, { 3.8438833391542397`*^9, 3.843883375666812*^9}, {3.843883449636417*^9, 3.843883479692768*^9}}, CellLabel->"In[68]:=",ExpressionUUID->"922bbf13-0a40-4ffe-b65d-fb54bcae380b"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1.3578383417064264`"}], ",", RowBox[{"-", "0.04895328972027624`"}], ",", "0.04203900654851574`", ",", RowBox[{"-", "0.07968638965975097`"}], ",", "0.22106513597990632`", ",", RowBox[{"-", "0.7897713487895526`"}], ",", "3.4541403942028106`", ",", RowBox[{"-", "17.966673990659217`"}], ",", "108.71139878939208`", ",", RowBox[{"-", "751.2716428061942`"}], ",", "5840.849431039178`", ",", RowBox[{"-", "50462.408110284574`"}], ",", "479625.97589905205`", ",", RowBox[{"-", "4.973515079991114`*^6"}]}], "}"}]], "Output", CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, 3.8438140456211767`*^9, 3.843883359816826*^9, {3.843883446786009*^9, 3.8438834656906137`*^9}, 3.843883510726555*^9}, CellLabel->"Out[68]=",ExpressionUUID->"7d4aad94-bfa0-4ae6-9abe-17ccfe54ccf9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"datOurLow9", "=", RowBox[{"Chop", "[", RowBox[{ RowBox[{"dGd\[Xi]LowList", "[", RowBox[{ RowBox[{"NF", "[", "9", "]"}], ",", RowBox[{"H", "[", "9", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"rules", "[", RowBox[{"H", "[", "9", "]"}], "]"}], ",", RowBox[{"S", "[", "9", "]"}]}], "]"}]}], "]"}], "[", "14", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.843813552094987*^9, 3.843813668224395*^9}, { 3.843883465412313*^9, 3.84388347186026*^9}, {3.843883516141139*^9, 3.843883518181106*^9}}, CellLabel->"In[69]:=",ExpressionUUID->"649e9e6d-3d2c-4639-9c47-2ea1ddcf4b02"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1.3578383417024302`"}], ",", RowBox[{"-", "0.04895328971613999`"}], ",", "0.03886393160532956`", ",", RowBox[{"-", "0.06836211904809866`"}], ",", "0.1838837094630435`", ",", RowBox[{"-", "0.6591707116569322`"}], ",", "2.937664768538837`", ",", RowBox[{"-", "15.62383316549295`"}], ",", "96.76358918813067`", ",", RowBox[{"-", "689.9238519006262`"}], ",", "5653.610756437245`", ",", RowBox[{"-", "53230.65513770707`"}], ",", "570382.8371346319`", ",", RowBox[{"-", "6.804407434310122`*^6"}]}], "}"}]], "Output", CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, 3.843818188530829*^9, 3.8438835487202253`*^9}, CellLabel->"Out[69]=",ExpressionUUID->"3d3ce9a7-1d88-4c65-8565-6972979e7b63"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"datOurHigh2", "=", RowBox[{"Chop", "[", RowBox[{ RowBox[{"dGd\[Xi]List", "[", RowBox[{ RowBox[{"NF", "[", "2", "]"}], ",", RowBox[{"H", "[", "2", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"rules", "[", RowBox[{"H", "[", "2", "]"}], "]"}], ",", RowBox[{"S", "[", "2", "]"}]}], "]"}]}], "]"}], "[", RowBox[{"14", ",", "0"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.843813552094987*^9, 3.8438136440081587`*^9}, { 3.8438833391542397`*^9, 3.843883375666812*^9}, {3.843883449636417*^9, 3.843883479692768*^9}, {3.8438835272533703`*^9, 3.843883540637532*^9}}, CellLabel->"In[70]:=",ExpressionUUID->"65da12ab-b919-4aad-899a-77b90d54ba33"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "1.845228078232855`"}], ",", "0", ",", "9.13299780319435`", ",", "0", ",", RowBox[{"-", "120.49236894043679`"}], ",", "0", ",", "2170.0705084060182`", ",", "0", ",", RowBox[{"-", "45590.04978070584`"}], ",", "0", ",", "1.0498238403780453`*^6", ",", "0", ",", RowBox[{"-", "2.569287836366928`*^7"}]}], "}"}]], "Output", CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, 3.8438140456211767`*^9, 3.843883359816826*^9, {3.843883446786009*^9, 3.8438834656906137`*^9}, 3.843883510726555*^9, 3.843883580486106*^9}, CellLabel->"Out[70]=",ExpressionUUID->"895bb215-c3fa-44dd-bbdf-c4de16295e4a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"datOurHigh9", "=", RowBox[{"Chop", "[", RowBox[{ RowBox[{"dGd\[Xi]List", "[", RowBox[{ RowBox[{"NF", "[", "9", "]"}], ",", RowBox[{"H", "[", "9", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"rules", "[", RowBox[{"H", "[", "9", "]"}], "]"}], ",", RowBox[{"S", "[", "9", "]"}]}], "]"}]}], "]"}], "[", RowBox[{"14", ",", "0"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.843813552094987*^9, 3.843813668224395*^9}, { 3.843883465412313*^9, 3.84388347186026*^9}, {3.843883516141139*^9, 3.84388354845371*^9}}, CellLabel->"In[71]:=",ExpressionUUID->"2476ffb9-8112-4899-a159-f51883b8e216"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "1.845228078233437`"}], ",", "0", ",", "8.333711750016088`", ",", "0", ",", RowBox[{"-", "95.16895435995913`"}], ",", "0", ",", "1458.0146401083766`", ",", "0", ",", RowBox[{"-", "25896.798094642745`"}], ",", "0", ",", "502972.6708710323`", ",", "0", ",", RowBox[{"-", "1.037144470816526`*^7"}]}], "}"}]], "Output", CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, 3.843818188530829*^9, 3.8438836116815853`*^9}, CellLabel->"Out[71]=",ExpressionUUID->"b3a3183b-d2af-4e21-b8e1-1dbac01da522"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"datOurMid2", "=", RowBox[{"Chop", "[", RowBox[{ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", RowBox[{ RowBox[{"NF", "[", "2", "]"}], ",", RowBox[{"H", "[", "2", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"rules", "[", RowBox[{"H", "[", "2", "]"}], "]"}], ",", RowBox[{"S", "[", "2", "]"}]}], "]"}]}], "]"}], "[", RowBox[{"14", ",", "1"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.843813552094987*^9, 3.8438136440081587`*^9}, { 3.8438833391542397`*^9, 3.843883375666812*^9}, {3.843883449636417*^9, 3.843883479692768*^9}, {3.8438835272533703`*^9, 3.843883540637532*^9}, { 3.8438835969825583`*^9, 3.843883614991191*^9}}, CellLabel->"In[72]:=",ExpressionUUID->"e595b072-4f65-493a-afbb-d0fd95bb7c1c"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1.1948724284794678`"}], ",", RowBox[{"-", "0.32330658411019586`"}], ",", "0.11346429812999838`", ",", "0.01686309365914635`", ",", RowBox[{"-", "0.001863074413146943`"}], ",", "0.0003315262819236183`", ",", "0.00036080803794583794`", ",", RowBox[{"-", "0.0004509482793079114`"}], ",", "0.0001582843938685694`", ",", "0.000058289459329385525`", ",", RowBox[{"-", "0.00007259627084372857`"}], ",", "0.000016663825922859607`", ",", "8.056136910592027`*^-6", ",", RowBox[{"-", "4.675420447040588`*^-6"}], ",", "1.1812169011381494`*^-6"}], "}"}]], "Output", CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, 3.8438140456211767`*^9, 3.843883359816826*^9, {3.843883446786009*^9, 3.8438834656906137`*^9}, 3.843883510726555*^9, 3.843883580486106*^9, 3.843883657475613*^9}, CellLabel->"Out[72]=",ExpressionUUID->"10b2b981-6a70-47a2-b331-59f3035f0b63"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"datOurMid9", "=", RowBox[{"Chop", "[", RowBox[{ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", RowBox[{ RowBox[{"NF", "[", "9", "]"}], ",", RowBox[{"H", "[", "9", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"rules", "[", RowBox[{"H", "[", "9", "]"}], "]"}], ",", RowBox[{"S", "[", "9", "]"}]}], "]"}]}], "]"}], "[", RowBox[{"14", ",", "1"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.843813552094987*^9, 3.843813668224395*^9}, { 3.843883465412313*^9, 3.84388347186026*^9}, {3.843883516141139*^9, 3.84388354845371*^9}, {3.843883600398727*^9, 3.843883619695004*^9}}, CellLabel->"In[73]:=",ExpressionUUID->"428ba532-a5a7-47a0-834d-51e3a093d96a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1.1977308964821485`"}], ",", RowBox[{"-", "0.31881789297902025`"}], ",", "0.11089601302626526`", ",", "0.01642300862533117`", ",", RowBox[{"-", "0.0002696467837568495`"}], ",", RowBox[{"-", "0.000504047944460891`"}], ",", "0.00020288418772922178`", ",", RowBox[{"-", "0.000046527087437412423`"}], ",", "6.758456177269158`*^-6", ",", RowBox[{"-", "1.3591739593199971`*^-6"}], ",", RowBox[{"-", "3.971266342374754`*^-7"}], ",", "2.552648054600211`*^-6", ",", RowBox[{"-", "3.307244351589582`*^-6"}], ",", "2.196995226701064`*^-6", ",", RowBox[{"-", "3.409156647107724`*^-7"}]}], "}"}]], "Output", CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, 3.843818188530829*^9, 3.8438836964718227`*^9}, CellLabel->"Out[73]=",ExpressionUUID->"299c9c7f-a1e2-4f23-8954-2fad569e0d71"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ "\"\<~/doc/research/first_order_singularities/paper/data/glow_series_ours_9.\ dat\>\"", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"datOurLow9", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "datOurLow9", "]"}]}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.8365725090188103`*^9, 3.836572511033183*^9}, { 3.836572551269373*^9, 3.836572621026455*^9}, {3.8365727308332853`*^9, 3.836572735579463*^9}, {3.8369881356397867`*^9, 3.8369881529196568`*^9}, { 3.843818319071336*^9, 3.8438183408474913`*^9}}, CellLabel->"In[72]:=",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"], Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/glow_\ series_ours_9.dat\"\>"], "Output", CellChangeTimes->{ 3.8365725114300337`*^9, {3.8365725984285917`*^9, 3.8365726212484303`*^9}, 3.8365727364325037`*^9, {3.836988153130045*^9, 3.836988182958664*^9}, 3.836988333167184*^9, 3.8370701494196787`*^9, 3.8370707835909777`*^9, 3.843818342558866*^9}, CellLabel->"Out[72]=",ExpressionUUID->"1091901f-4a92-4d11-9361-eb8e074518d8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ "\"\<~/doc/research/first_order_singularities/paper/data/glow_series_\ caselle.dat\>\"", ",", RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"datCas", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "datCas", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, { 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, { 3.843812903750565*^9, 3.843812935070904*^9}}, CellLabel->"In[56]:=",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"], Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/glow_\ series_caselle.dat\"\>"], "Output", CellChangeTimes->{3.836988223024967*^9, 3.836988260494157*^9, 3.836988333199574*^9, 3.837070149473012*^9, 3.837070783629765*^9, 3.837072865499703*^9, 3.843812937101083*^9}, CellLabel->"Out[56]=",ExpressionUUID->"849b4c20-f4a2-4ab0-be1c-d4b54f277dcb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ "\"\<~/doc/research/first_order_singularities/paper/data/ghigh_caselle.dat\>\ \"", ",", RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"datCasH", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "datCasH", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, { 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, { 3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9, 3.843813002559956*^9}}, CellLabel->"In[65]:=",ExpressionUUID->"3f815a4c-10cf-489f-9fc2-62e52069c4c0"], Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/ghigh_\ caselle.dat\"\>"], "Output", CellChangeTimes->{3.836988223024967*^9, 3.836988260494157*^9, 3.836988333199574*^9, 3.837070149473012*^9, 3.837070783629765*^9, 3.837072865499703*^9, 3.843812937101083*^9, 3.843813188718388*^9}, CellLabel->"Out[65]=",ExpressionUUID->"55fbc8bb-cdab-4659-a082-91bdbb81a26d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ "\"\<~/doc/research/first_order_singularities/paper/data/ghigh_series_ours_\ 2.dat\>\"", ",", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "14"}], "]"}], ",", "datOurHigh2"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, { 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, { 3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9, 3.843813002559956*^9}, {3.843883687737048*^9, 3.843883735041348*^9}}, CellLabel->"In[74]:=",ExpressionUUID->"cd97b893-1f61-415c-8763-743df3cfe10e"], Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/ghigh_\ series_ours_2.dat\"\>"], "Output", CellChangeTimes->{3.836988223024967*^9, 3.836988260494157*^9, 3.836988333199574*^9, 3.837070149473012*^9, 3.837070783629765*^9, 3.837072865499703*^9, 3.843812937101083*^9, 3.843813188718388*^9, 3.843883736492688*^9}, CellLabel->"Out[74]=",ExpressionUUID->"ad44ff35-c8ad-47fb-82dc-2f08ed5015a0"] }, Open ]], Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ "\"\<~/doc/research/first_order_singularities/paper/data/ghigh_series_ours_\ 9.dat\>\"", ",", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "14"}], "]"}], ",", "datOurHigh9"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, { 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, { 3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9, 3.843813002559956*^9}, {3.843883687737048*^9, 3.843883746721509*^9}}, CellLabel->"In[75]:=",ExpressionUUID->"7cc8abed-034f-48f9-a04c-7a7cd336cffc"], Cell[BoxData["\"\<~/doc/research/first_order_singularities/paper/data/ghigh_\ series_ours_9.dat\>\""], "Input", CellChangeTimes->{3.843883760658271*^9}, CellLabel->"Out[75]=",ExpressionUUID->"65b75ed6-31a7-4b35-9f87-bb8013223e69"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ "\"\<~/doc/research/first_order_singularities/paper/data/phi_series_ours_2.\ dat\>\"", ",", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "14"}], "]"}], ",", "datOurMid2"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, { 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, { 3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9, 3.843813002559956*^9}, {3.843883687737048*^9, 3.843883785650159*^9}}, CellLabel->"In[76]:=",ExpressionUUID->"ed90fc79-b0f9-464f-acb1-e5aa0d9691f1"], Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/phi_\ series_ours_2.dat\"\>"], "Output", CellChangeTimes->{3.8438837865421677`*^9}, CellLabel->"Out[76]=",ExpressionUUID->"ec63ab55-c78c-48bb-be15-d4ffdc90af1f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ "\"\<~/doc/research/first_order_singularities/paper/data/phi_series_ours_9.\ dat\>\"", ",", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "14"}], "]"}], ",", "datOurMid9"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, { 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, { 3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9, 3.843813002559956*^9}, {3.843883687737048*^9, 3.843883746721509*^9}, { 3.8438837895463448`*^9, 3.843883795498577*^9}}, CellLabel->"In[77]:=",ExpressionUUID->"6dd628a1-23df-42ea-b634-4bef16413391"], Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/phi_\ series_ours_9.dat\"\>"], "Output", CellChangeTimes->{ 3.836988223024967*^9, 3.836988260494157*^9, 3.836988333199574*^9, 3.837070149473012*^9, 3.837070783629765*^9, 3.837072865499703*^9, 3.843812937101083*^9, 3.843813188718388*^9, {3.843883736492688*^9, 3.8438837481882477`*^9}, 3.8438837970953608`*^9}, CellLabel->"Out[77]=",ExpressionUUID->"fba3789b-8807-4cd2-86d2-e085f54bc1e0"] }, 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->{635.25, 1060.5}, WindowMargins->{{642, Automatic}, {2.25, Automatic}}, FrontEndVersion->"12.3 for Linux x86 (64-bit) (July 9, 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, 597, 10, 24, "Input",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"], Cell[CellGroupData[{ Cell[1180, 34, 2287, 64, 112, "Input",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"], Cell[3470, 100, 394, 5, 25, "Output",ExpressionUUID->"5916b0af-c167-4771-aeb7-3c62b468a0ba"], Cell[3867, 107, 390, 5, 25, "Output",ExpressionUUID->"c9921f2f-76f7-4cfd-85ee-7bf5652dc449"] }, Open ]], Cell[CellGroupData[{ Cell[4294, 117, 3846, 85, 109, "Input",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"], Cell[8143, 204, 1339, 21, 42, "Output",ExpressionUUID->"662f4cfd-8b83-42b3-bae9-63f60b0e3593"] }, Open ]], Cell[CellGroupData[{ Cell[9519, 230, 3847, 85, 109, "Input",ExpressionUUID->"34fe8bc4-abfb-4504-a7f1-045cd2a55ee6"], Cell[13369, 317, 640, 12, 44, "Output",ExpressionUUID->"343f2684-7442-43b7-9d49-7e58cf8f6f6d"] }, Open ]], Cell[CellGroupData[{ Cell[14046, 334, 3915, 87, 106, "Input",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"], Cell[17964, 423, 1559, 42, 61, "Output",ExpressionUUID->"afaa9364-8f91-4950-979b-0f9ef86eab0e"] }, Open ]], Cell[CellGroupData[{ Cell[19560, 470, 326, 7, 22, "Input",ExpressionUUID->"c2ec938b-df20-4457-ac8f-5fb89f93d9f3"], Cell[19889, 479, 188, 4, 39, "Output",ExpressionUUID->"7a8c2bb5-90c4-4aeb-82ef-a923f5a729e3"] }, Open ]], Cell[CellGroupData[{ Cell[20114, 488, 255, 5, 22, "Input",ExpressionUUID->"f775ff7d-d0b6-4518-90fc-dce2b496637c"], Cell[20372, 495, 194, 3, 39, "Output",ExpressionUUID->"60b8b008-7807-40a6-b3d9-1f2e8b589a73"] }, Open ]], Cell[CellGroupData[{ Cell[20603, 503, 306, 7, 22, "Input",ExpressionUUID->"33e05555-1738-48c2-b7aa-e8fd44cecd72"], Cell[20912, 512, 221, 3, 25, "Output",ExpressionUUID->"a53b9d58-d244-4548-8b2d-0153f5f04983"] }, Open ]], Cell[CellGroupData[{ Cell[21170, 520, 4200, 108, 191, "Input",ExpressionUUID->"79242c4a-ef9e-453f-aabd-057c68f68aca"], Cell[25373, 630, 19071, 333, 179, "Output",ExpressionUUID->"9e7d57d6-efa3-474c-ad30-e142da216a92"] }, Open ]], Cell[CellGroupData[{ Cell[44481, 968, 203, 4, 22, "Input",ExpressionUUID->"e2ebf167-6996-49ef-9ca3-9dd16132c4ea"], Cell[44687, 974, 569, 14, 25, "Output",ExpressionUUID->"c33b6abd-b8d8-415e-b881-93fd6c52f0db"] }, Open ]], Cell[CellGroupData[{ Cell[45293, 993, 501, 13, 24, "Input",ExpressionUUID->"e153916d-9f1b-43b9-a6c4-f59eefa45d16"], Cell[45797, 1008, 222, 4, 25, "Output",ExpressionUUID->"ca5cf147-c698-4d49-a753-1cf32997e5f5"] }, Open ]], Cell[CellGroupData[{ Cell[46056, 1017, 243, 5, 22, "Input",ExpressionUUID->"c29b0035-e029-4b18-8ef4-ecd12fb49333"], Cell[46302, 1024, 1247, 39, 70, "Output",ExpressionUUID->"a77b28a6-eacd-4614-b43a-ed39428597d6"] }, Open ]], Cell[CellGroupData[{ Cell[47586, 1068, 212, 4, 22, "Input",ExpressionUUID->"40438766-386e-4ef0-95c5-bb36288917ef"], Cell[47801, 1074, 735, 15, 44, "Output",ExpressionUUID->"462d7199-fbaa-4949-8313-776399b35c4a"] }, Open ]], Cell[CellGroupData[{ Cell[48573, 1094, 4388, 128, 175, "Input",ExpressionUUID->"f81ed9c7-d940-4314-963c-c36ea0215ef3"], Cell[52964, 1224, 1199, 20, 60, "Output",ExpressionUUID->"2234af5e-068b-46a3-beaf-99a907ef5184"] }, Open ]], Cell[CellGroupData[{ Cell[54200, 1249, 685, 17, 24, "Input",ExpressionUUID->"922bbf13-0a40-4ffe-b65d-fb54bcae380b"], Cell[54888, 1268, 882, 14, 44, "Output",ExpressionUUID->"7d4aad94-bfa0-4ae6-9abe-17ccfe54ccf9"] }, Open ]], Cell[CellGroupData[{ Cell[55807, 1287, 680, 17, 24, "Input",ExpressionUUID->"649e9e6d-3d2c-4639-9c47-2ea1ddcf4b02"], Cell[56490, 1306, 802, 13, 44, "Output",ExpressionUUID->"3d3ce9a7-1d88-4c65-8565-6972979e7b63"] }, Open ]], Cell[CellGroupData[{ Cell[57329, 1324, 752, 17, 24, "Input",ExpressionUUID->"65da12ab-b919-4aad-899a-77b90d54ba33"], Cell[58084, 1343, 711, 13, 44, "Output",ExpressionUUID->"895bb215-c3fa-44dd-bbdf-c4de16295e4a"] }, Open ]], Cell[CellGroupData[{ Cell[58832, 1361, 698, 17, 24, "Input",ExpressionUUID->"2476ffb9-8112-4899-a159-f51883b8e216"], Cell[59533, 1380, 612, 12, 27, "Output",ExpressionUUID->"b3a3183b-d2af-4e21-b8e1-1dbac01da522"] }, Open ]], Cell[CellGroupData[{ Cell[60182, 1397, 815, 18, 24, "Input",ExpressionUUID->"e595b072-4f65-493a-afbb-d0fd95bb7c1c"], Cell[61000, 1417, 967, 18, 60, "Output",ExpressionUUID->"10b2b981-6a70-47a2-b331-59f3035f0b63"] }, Open ]], Cell[CellGroupData[{ Cell[62004, 1440, 756, 17, 24, "Input",ExpressionUUID->"428ba532-a5a7-47a0-834d-51e3a093d96a"], Cell[62763, 1459, 900, 19, 60, "Output",ExpressionUUID->"299c9c7f-a1e2-4f23-8954-2fad569e0d71"] }, Open ]], Cell[CellGroupData[{ Cell[63700, 1483, 839, 20, 41, "Input",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"], Cell[64542, 1505, 461, 7, 25, "Output",ExpressionUUID->"1091901f-4a92-4d11-9361-eb8e074518d8"] }, Open ]], Cell[CellGroupData[{ Cell[65040, 1517, 1002, 23, 41, "Input",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"], Cell[66045, 1542, 371, 5, 25, "Output",ExpressionUUID->"849b4c20-f4a2-4ab0-be1c-d4b54f277dcb"] }, Open ]], Cell[CellGroupData[{ Cell[66453, 1552, 1048, 24, 41, "Input",ExpressionUUID->"3f815a4c-10cf-489f-9fc2-62e52069c4c0"], Cell[67504, 1578, 387, 5, 25, "Output",ExpressionUUID->"55fbc8bb-cdab-4659-a082-91bdbb81a26d"] }, Open ]], Cell[CellGroupData[{ Cell[67928, 1588, 846, 17, 41, "Input",ExpressionUUID->"cd97b893-1f61-415c-8763-743df3cfe10e"], Cell[68777, 1607, 418, 6, 25, "Output",ExpressionUUID->"ad44ff35-c8ad-47fb-82dc-2f08ed5015a0"] }, Open ]], Cell[69210, 1616, 846, 17, 41, "Input",ExpressionUUID->"7cc8abed-034f-48f9-a04c-7a7cd336cffc"], Cell[70059, 1635, 232, 3, 22, InheritFromParent,ExpressionUUID->"65b75ed6-31a7-4b35-9f87-bb8013223e69"], Cell[CellGroupData[{ Cell[70316, 1642, 843, 17, 41, "Input",ExpressionUUID->"ed90fc79-b0f9-464f-acb1-e5aa0d9691f1"], Cell[71162, 1661, 233, 3, 25, "Output",ExpressionUUID->"ec63ab55-c78c-48bb-be15-d4ffdc90af1f"] }, Open ]], Cell[CellGroupData[{ Cell[71432, 1669, 895, 18, 41, "Input",ExpressionUUID->"6dd628a1-23df-42ea-b634-4bef16413391"], Cell[72330, 1689, 472, 7, 25, "Output",ExpressionUUID->"fba3789b-8807-4cd2-86d2-e085f54bc1e0"] }, Open ]], Cell[CellGroupData[{ Cell[72839, 1701, 228, 5, 22, "Input",ExpressionUUID->"feb08355-9ad1-4257-9f97-e394177d7e32"], Cell[73070, 1708, 274, 8, 25, "Output",ExpressionUUID->"87e29f54-9d68-4261-96d4-95d24dcdc36a"] }, Open ]], Cell[CellGroupData[{ Cell[73381, 1721, 1542, 27, 55, "Input",ExpressionUUID->"e61ed118-a102-4290-8440-cba17b87145b"], Cell[74926, 1750, 12321, 270, 180, "Output",ExpressionUUID->"2e45389f-59c7-4eaf-9b3a-270214fa013e"] }, Open ]], Cell[87262, 2023, 175, 3, 22, "Input",ExpressionUUID->"0f87aa05-2cc9-472a-ab27-39ee15777442"], Cell[87440, 2028, 356, 7, 24, "Input",ExpressionUUID->"627c17e0-e2d8-4347-8fe9-812183a42941"], Cell[CellGroupData[{ Cell[87821, 2039, 176, 2, 22, "Input",ExpressionUUID->"f32c32be-7fcb-4660-bf43-cbc119acda96"], Cell[88000, 2043, 2097, 65, 77, "Output",ExpressionUUID->"01b48fb7-d8c9-4012-92f6-488cf7e7087c"] }, Open ]], Cell[CellGroupData[{ Cell[90134, 2113, 860, 24, 24, "Input",ExpressionUUID->"bfa6a31f-5eb9-4063-b798-e45ab1e3b53a"], Cell[90997, 2139, 1944, 57, 77, "Output",ExpressionUUID->"0ca79efb-1867-4b1f-96fc-4a691d54b72e"] }, Open ]], Cell[CellGroupData[{ Cell[92978, 2201, 2622, 77, 93, "Input",ExpressionUUID->"242aacdf-e4c7-423c-a26a-12188ba2476e"], Cell[95603, 2280, 21838, 439, 180, "Output",ExpressionUUID->"073d831e-11a6-4203-90ce-0df429c1a3f0"] }, Open ]], Cell[117456, 2722, 725, 15, 24, "Input",ExpressionUUID->"80c6c675-eade-40e1-8d0f-13a6578b30ff"], Cell[118184, 2739, 764, 21, 22, "Input",ExpressionUUID->"d8847f2e-21fe-4fb7-84ae-676f83acdf5a"], Cell[CellGroupData[{ Cell[118973, 2764, 679, 17, 40, "Input",ExpressionUUID->"15d60f60-2f87-40da-a2c6-66d640111d75"], Cell[119655, 2783, 1298, 32, 44, "Output",ExpressionUUID->"6f1d902a-0431-4a99-adc2-97eb3c423317"] }, Open ]], Cell[CellGroupData[{ Cell[120990, 2820, 736, 18, 57, "Input",ExpressionUUID->"bec4c929-c1a6-4fd0-be18-caf3643ba3a4"], Cell[121729, 2840, 14613, 314, 179, "Output",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"] }, Open ]] } ] *)