(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 234735, 5237] NotebookOptionsPosition[ 222110, 5018] NotebookOutlinePosition[ 222547, 5035] CellTagsIndexPosition[ 222504, 5032] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Get", "[", "\"\<~/doc/research/first_order_singularities/mma/schofield.wl\>\"", "]"}]], "Input", CellChangeTimes->{{3.817548726786456*^9, 3.817548838429791*^9}, { 3.817579586526174*^9, 3.817579588547625*^9}, {3.8176251109891653`*^9, 3.817625112168749*^9}, {3.8176254615736647`*^9, 3.817625462650483*^9}, 3.827832304560932*^9, {3.8278486734515533`*^9, 3.827848673995721*^9}, { 3.8278488730224733`*^9, 3.827848876357965*^9}, {3.827916449928692*^9, 3.827916450999913*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"], Cell[BoxData[ TemplateBox[{ "\[Eta]", "shdw", "\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"\[Eta]\\\\\\\"\\\"}]\\) appears in \ multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \ RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\", \\\",\\\", \ \\\"\\\\\\\"IsingScalingFunction`\\\\\\\"\\\"}], \\\"}\\\"}]\\); definitions \ in context \\!\\(\\*RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\"}]\\) may \ shadow or be shadowed by other definitions.\"", 2, 3, 1, 31865477087913293403, "Local", "Schofield`\[Eta]"}, "MessageTemplate2"]], "Message", "MSG", CellChangeTimes->{3.8762084299477787`*^9}, CellLabel-> "During evaluation of \ In[3]:=",ExpressionUUID->"416ee172-1ad9-434e-b73c-e99e451d8e53"], Cell[BoxData[ TemplateBox[{ "g", "shdw", "\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"g\\\\\\\"\\\"}]\\) appears in \ multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \ RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\", \\\",\\\", \ \\\"\\\\\\\"IsingScalingFunction`\\\\\\\"\\\"}], \\\"}\\\"}]\\); definitions \ in context \\!\\(\\*RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\"}]\\) may \ shadow or be shadowed by other definitions.\"", 2, 3, 2, 31865477087913293403, "Local", "Schofield`g"}, "MessageTemplate2"]], "Message", "MSG", CellChangeTimes->{3.876208429983996*^9}, CellLabel-> "During evaluation of \ In[3]:=",ExpressionUUID->"ec136869-a624-43fb-87cd-ab7ce0e4f6b5"], Cell[BoxData[ TemplateBox[{ "\[Xi]", "shdw", "\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"\[Xi]\\\\\\\"\\\"}]\\) appears in \ multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \ RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\", \\\",\\\", \ \\\"\\\\\\\"IsingScalingFunction`\\\\\\\"\\\"}], \\\"}\\\"}]\\); definitions \ in context \\!\\(\\*RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\"}]\\) may \ shadow or be shadowed by other definitions.\"", 2, 3, 3, 31865477087913293403, "Local", "Schofield`\[Xi]"}, "MessageTemplate2"]], "Message", "MSG", CellChangeTimes->{3.876208429988597*^9}, CellLabel-> "During evaluation of \ In[3]:=",ExpressionUUID->"c71f26b5-fddb-4e00-990e-08b74adae32a"], Cell[BoxData[ TemplateBox[{ "ruleB", "shdw", "\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"ruleB\\\\\\\"\\\"}]\\) appears in \ multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \ RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\", \\\",\\\", \ \\\"\\\\\\\"IsingScalingFunction`\\\\\\\"\\\"}], \\\"}\\\"}]\\); definitions \ in context \\!\\(\\*RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\"}]\\) may \ shadow or be shadowed by other definitions.\"", 2, 3, 4, 31865477087913293403, "Local", "Schofield`ruleB"}, "MessageTemplate2"]], "Message", "MSG", CellChangeTimes->{3.876208430021934*^9}, CellLabel-> "During evaluation of \ In[3]:=",ExpressionUUID->"2eb6cbef-108c-4bdb-b0d3-f595ef80164f"], Cell[BoxData[ TemplateBox[{ "g$", "shdw", "\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"g$\\\\\\\"\\\"}]\\) appears in \ multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \ RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\", \\\",\\\", \ \\\"\\\\\\\"IsingScalingFunction`\\\\\\\"\\\"}], \\\"}\\\"}]\\); definitions \ in context \\!\\(\\*RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\"}]\\) may \ shadow or be shadowed by other definitions.\"", 2, 3, 5, 31865477087913293403, "Local", "Schofield`g$"}, "MessageTemplate2"]], "Message", "MSG", CellChangeTimes->{3.87620843004827*^9}, CellLabel-> "During evaluation of \ In[3]:=",ExpressionUUID->"2d64117a-f0ef-4d22-873c-490eeb5b19e8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"g", "[", RowBox[{"\[Theta]0Cas", ",", "gsCas"}], "]"}], "[", "\[Theta]", "]"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.884691107722596*^9, 3.8846911288583593`*^9}, { 3.884691221764353*^9, 3.8846912227880697`*^9}}, CellLabel->"In[42]:=",ExpressionUUID->"fe6a6d03-8b9a-4d30-9d0f-09497bed842b"], Cell[BoxData[ RowBox[{ RowBox[{"0.27286889266851116`", " ", "\[Theta]"}], "-", RowBox[{"0.2940020307476348`", " ", SuperscriptBox["\[Theta]", "3"]}], "+", RowBox[{"0.04000495532616536`", " ", SuperscriptBox["\[Theta]", "5"]}], "+", RowBox[{"0.006119426651084101`", " ", SuperscriptBox["\[Theta]", "7"]}], "+", RowBox[{"0.0014992967087917594`", " ", SuperscriptBox["\[Theta]", "9"]}], "+", RowBox[{"0.0016724305244486051`", " ", SuperscriptBox["\[Theta]", "11"]}]}]], "Output", CellChangeTimes->{{3.8846911187487593`*^9, 3.884691129095536*^9}, 3.884691222976877*^9}, CellLabel->"Out[42]=",ExpressionUUID->"142568cc-1192-404c-88bb-d7eaa3fbf94e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"hCas", "[", "\[Theta]", "]"}], "h0"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.884691136810926*^9, 3.884691148498569*^9}, { 3.8846912155321903`*^9, 3.884691226484233*^9}}, CellLabel->"In[43]:=",ExpressionUUID->"15c6347f-e08e-4478-999e-a055b83a9e4f"], Cell[BoxData[ RowBox[{ RowBox[{"0.27286889266851116`", " ", "\[Theta]"}], "-", RowBox[{"0.2940020307476348`", " ", SuperscriptBox["\[Theta]", "3"]}], "+", RowBox[{"0.04000495532616536`", " ", SuperscriptBox["\[Theta]", "5"]}], "+", RowBox[{"0.006119426651084101`", " ", SuperscriptBox["\[Theta]", "7"]}], "+", RowBox[{"0.0014992967087917599`", " ", SuperscriptBox["\[Theta]", "9"]}], "+", RowBox[{"0.0016724305244486053`", " ", SuperscriptBox["\[Theta]", "11"]}]}]], "Output", CellChangeTimes->{{3.8846912189151897`*^9, 3.8846912266590776`*^9}}, CellLabel->"Out[43]=",ExpressionUUID->"99fdb326-dc62-43d2-a350-3a194a15d647"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"\[Theta]0Cas", "=", SqrtBox["1.16951"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hCas", "[", "\[Theta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"1", "-", FractionBox[ SuperscriptBox["\[Theta]", "2"], SuperscriptBox["\[Theta]0Cas", "2"]]}], ")"}], "\[Theta]", RowBox[{"(", RowBox[{"1", "-", RowBox[{"0.222389", " ", SuperscriptBox["\[Theta]", "2"]}], "-", RowBox[{"0.043547", " ", SuperscriptBox["\[Theta]", "4"]}], "-", RowBox[{"0.014809", " ", SuperscriptBox["\[Theta]", "6"]}], "-", RowBox[{"0.007168", " ", SuperscriptBox["\[Theta]", "8"]}]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{ RowBox[{ RowBox[{"a", " ", "b", " ", "\[Rho]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", FractionBox[ SuperscriptBox["c2", "2"], "c4"]}], ",", RowBox[{"b", "\[Rule]", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"-", "c4"}], SuperscriptBox["c2", "3"]], ")"}], RowBox[{"1", "/", "2"}]]}], ",", RowBox[{"\[Rho]", "\[Rule]", "2.00881"}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"c2", "\[Rule]", RowBox[{ RowBox[{"Ghs", "[", RowBox[{"[", "3", "]"}], "]"}], RowBox[{"2", "!"}]}]}], ",", RowBox[{"c4", "\[Rule]", RowBox[{ RowBox[{ RowBox[{"Ghs", "[", RowBox[{"[", "5", "]"}], "]"}], "[", "\"\\"", "]"}], RowBox[{"4", "!"}]}]}]}], "}"}]}]}], "\[IndentingNewLine]", RowBox[{"m0", "=", RowBox[{ RowBox[{"-", RowBox[{"Ghs", "[", RowBox[{"[", "3", "]"}], "]"}]}], RowBox[{"2", "!"}], " ", "h0"}]}]}], "Input", CellChangeTimes->{{3.8321454371387777`*^9, 3.832145559020133*^9}, 3.832146444152248*^9, {3.832146620327344*^9, 3.832146620479251*^9}, { 3.84380599279574*^9, 3.8438060263082247`*^9}, {3.843806057721389*^9, 3.8438061646410103`*^9}, {3.8438062079468822`*^9, 3.843806212028804*^9}, { 3.843806310535351*^9, 3.843806319271604*^9}, {3.843811727076584*^9, 3.843811750155121*^9}, {3.876210266924039*^9, 3.876210267043165*^9}, { 3.8762103842382107`*^9, 3.876210426032144*^9}, {3.876210485023739*^9, 3.876210485447196*^9}}, CellLabel->"In[37]:=",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"], Cell[BoxData["0.27286889266851116`"], "Output", CellChangeTimes->{{3.8438061496682377`*^9, 3.843806165132856*^9}, 3.8438062124458447`*^9, {3.8438063135040703`*^9, 3.843806319765049*^9}, 3.8438114231817093`*^9, {3.843811741230702*^9, 3.8438117504040937`*^9}, 3.8438127470406*^9, 3.8438833063506927`*^9, 3.8439767083823442`*^9, { 3.844135505327883*^9, 3.84413553304257*^9}, 3.844143298259859*^9, 3.876208430215836*^9, 3.876210287689782*^9, {3.876210430601141*^9, 3.876210486050713*^9}, 3.884691139112475*^9, 3.8846912032549753`*^9}, CellLabel->"Out[39]=",ExpressionUUID->"2797a478-d270-4869-ba7f-428591635fb9"], Cell[BoxData["1.007010684856479`"], "Output", CellChangeTimes->{{3.8438061496682377`*^9, 3.843806165132856*^9}, 3.8438062124458447`*^9, {3.8438063135040703`*^9, 3.843806319765049*^9}, 3.8438114231817093`*^9, {3.843811741230702*^9, 3.8438117504040937`*^9}, 3.8438127470406*^9, 3.8438833063506927`*^9, 3.8439767083823442`*^9, { 3.844135505327883*^9, 3.84413553304257*^9}, 3.844143298259859*^9, 3.876208430215836*^9, 3.876210287689782*^9, {3.876210430601141*^9, 3.876210486050713*^9}, 3.884691139112475*^9, 3.884691203256315*^9}, CellLabel->"Out[40]=",ExpressionUUID->"567108b3-a280-49d8-9f91-9b9feb4211c2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"totCas", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ds", "=", RowBox[{ RowBox[{ RowBox[{"invDerivativeList", "[", RowBox[{"totCas", "+", "1"}], "]"}], "[", RowBox[{"\[Theta]", "\[Function]", FractionBox[ RowBox[{"h0", " ", RowBox[{"hCas", "[", "\[Theta]", "]"}]}], SuperscriptBox[ RowBox[{"RealAbs", "[", RowBox[{"t", "[", "\[Theta]", "]"}], "]"}], RowBox[{"\[CapitalDelta]", "[", "2", "]"}]]]}], "]"}], "[", "\[Theta]0Cas", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dMs", "=", RowBox[{ RowBox[{"m0", " ", RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"#", ",", "\[Theta]"}], "]"}], "&"}], ",", FractionBox["\[Theta]", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["\[Theta]", "2"], "-", "1"}], ")"}], RowBox[{"1", "/", "8"}]]], ",", "totCas"}], "]"}]}], "/.", RowBox[{"\[Theta]", "->", "\[Theta]0Cas"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"datCas", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"dMs", "[", RowBox[{"[", RowBox[{"k", "+", "1"}], "]"}], "]"}], RowBox[{"BellY", "[", RowBox[{"n", ",", "k", ",", RowBox[{"ds", "[", RowBox[{"[", RowBox[{";;", RowBox[{"n", "-", "k", "+", "1"}]}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "/", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "!"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "totCas"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.836976284774213*^9, 3.8369763107653933`*^9}, { 3.8369763440621157`*^9, 3.836976643043976*^9}, {3.8369766791263657`*^9, 3.836976702020906*^9}, {3.8369833396004457`*^9, 3.8369833834965153`*^9}, { 3.836983426425185*^9, 3.836983501138253*^9}, {3.8369836692218637`*^9, 3.836983678733614*^9}, {3.836983808464398*^9, 3.8369838086001043`*^9}, { 3.8369839370347757`*^9, 3.836983937122395*^9}, {3.836983969035384*^9, 3.836983979299178*^9}, {3.836984097325984*^9, 3.8369840974613132`*^9}, { 3.836984339450017*^9, 3.8369843561781673`*^9}, {3.836984934917253*^9, 3.836984935916635*^9}, {3.8369856092092857`*^9, 3.836985626001013*^9}, { 3.836985701651613*^9, 3.836985833037245*^9}, {3.836985978736498*^9, 3.836985996927923*^9}, {3.836986994292021*^9, 3.836986994346624*^9}, { 3.836987100533333*^9, 3.836987147389551*^9}, {3.836988211802526*^9, 3.8369882124812613`*^9}, {3.83698827789044*^9, 3.836988278050117*^9}, { 3.836991140640276*^9, 3.836991156327482*^9}, {3.837070011059902*^9, 3.8370700129717007`*^9}, {3.837070292889572*^9, 3.8370702929846687`*^9}, { 3.8370709285346727`*^9, 3.8370709288925543`*^9}, {3.837072484698299*^9, 3.837072484992663*^9}, {3.843802126725583*^9, 3.843802127123851*^9}, { 3.8438022381502447`*^9, 3.843802268518549*^9}, {3.8438024340742607`*^9, 3.843802515907176*^9}, {3.84380268121432*^9, 3.843802684734229*^9}, 3.843802806265029*^9, {3.843802947563074*^9, 3.843802949058984*^9}, 3.843803003228539*^9, {3.843803040877533*^9, 3.843803044636691*^9}, { 3.8438064612671556`*^9, 3.843806483348926*^9}, {3.843811490926489*^9, 3.843811490990367*^9}, {3.843811762123721*^9, 3.843811792156164*^9}, { 3.84381190693526*^9, 3.843811907005992*^9}, {3.843812765889268*^9, 3.8438127660003633`*^9}, {3.8438833187875977`*^9, 3.843883318858028*^9}, 3.876208442731238*^9, {3.876209028372431*^9, 3.876209031292045*^9}}, CellLabel-> "In[188]:=",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1.3595232308079763`"}], ",", RowBox[{"-", "0.04655549169678349`"}], ",", "0.03237211997439275`", ",", RowBox[{"-", "0.04559719478179543`"}], ",", "0.08960826235586972`"}], "}"}]], "Output", CellChangeTimes->{ 3.83698713111462*^9, 3.836987321633688*^9, 3.8369882151463833`*^9, 3.83698833312978*^9, 3.837070043781701*^9, 3.837070402550199*^9, 3.837072865049255*^9, 3.84380209279955*^9, 3.843802127647296*^9, { 3.8438022397282753`*^9, 3.843802269116067*^9}, 3.8438023757788677`*^9, { 3.84380243891853*^9, 3.843802516429851*^9}, 3.8438026852881813`*^9, 3.843802807050653*^9, 3.843802949596843*^9, 3.843803004201252*^9, 3.843803045143682*^9, {3.843806458261032*^9, 3.843806484750998*^9}, { 3.8438117627002707`*^9, 3.843811778845757*^9}, 3.843811897566523*^9, 3.843812875019771*^9, {3.8438833095937767`*^9, 3.843883327729155*^9}, 3.844157549053947*^9, {3.8762084391800756`*^9, 3.876208443033372*^9}, 3.876209031472166*^9, 3.8762104487066717`*^9, 3.876210487363555*^9}, CellLabel-> "Out[191]=",ExpressionUUID->"cd2ce696-c253-4ff8-b993-64c7e05c4dd9"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"totCas", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ds", "=", RowBox[{ RowBox[{ RowBox[{"invDerivativeList", "[", RowBox[{"totCas", "+", "1"}], "]"}], "[", RowBox[{"\[Theta]", "\[Function]", FractionBox[ RowBox[{"h0", " ", RowBox[{"hCas", "[", "\[Theta]", "]"}]}], SuperscriptBox[ RowBox[{"RealAbs", "[", RowBox[{"t", "[", "\[Theta]", "]"}], "]"}], RowBox[{"\[CapitalDelta]", "[", "2", "]"}]]]}], "]"}], "[", "\[Theta]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dMs", "=", RowBox[{"m0", " ", RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"#", ",", "\[Theta]"}], "]"}], "&"}], ",", FractionBox["\[Theta]", SuperscriptBox[ RowBox[{"RealAbs", "[", RowBox[{ SuperscriptBox["\[Theta]", "2"], "-", "1"}], "]"}], RowBox[{"1", "/", "8"}]]], ",", "totCas"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"datCas", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"dMs", "[", RowBox[{"[", RowBox[{"k", "+", "1"}], "]"}], "]"}], RowBox[{"BellY", "[", RowBox[{"n", ",", "k", ",", RowBox[{"ds", "[", RowBox[{"[", RowBox[{";;", RowBox[{"n", "-", "k", "+", "1"}]}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "/", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "!"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "totCas"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.836976284774213*^9, 3.8369763107653933`*^9}, { 3.8369763440621157`*^9, 3.836976643043976*^9}, {3.8369766791263657`*^9, 3.836976702020906*^9}, {3.8369833396004457`*^9, 3.8369833834965153`*^9}, { 3.836983426425185*^9, 3.836983501138253*^9}, {3.8369836692218637`*^9, 3.836983678733614*^9}, {3.836983808464398*^9, 3.8369838086001043`*^9}, { 3.8369839370347757`*^9, 3.836983937122395*^9}, {3.836983969035384*^9, 3.836983979299178*^9}, {3.836984097325984*^9, 3.8369840974613132`*^9}, { 3.836984339450017*^9, 3.8369843561781673`*^9}, {3.836984934917253*^9, 3.836984935916635*^9}, {3.8369856092092857`*^9, 3.836985626001013*^9}, { 3.836985701651613*^9, 3.836985833037245*^9}, {3.836985978736498*^9, 3.836985996927923*^9}, {3.836986994292021*^9, 3.836986994346624*^9}, { 3.836987100533333*^9, 3.836987147389551*^9}, {3.836988211802526*^9, 3.8369882124812613`*^9}, {3.83698827789044*^9, 3.836988278050117*^9}, { 3.836991140640276*^9, 3.836991156327482*^9}, {3.837070011059902*^9, 3.8370700129717007`*^9}, {3.837070292889572*^9, 3.8370702929846687`*^9}, { 3.8370709285346727`*^9, 3.8370709288925543`*^9}, {3.837072484698299*^9, 3.837072484992663*^9}, {3.843802126725583*^9, 3.843802127123851*^9}, { 3.8438022381502447`*^9, 3.843802268518549*^9}, {3.8438024340742607`*^9, 3.843802515907176*^9}, {3.84380268121432*^9, 3.843802684734229*^9}, 3.843802806265029*^9, {3.843802947563074*^9, 3.843802949058984*^9}, 3.843803003228539*^9, {3.843803040877533*^9, 3.843803044636691*^9}, { 3.8438064612671556`*^9, 3.843806483348926*^9}, {3.843811490926489*^9, 3.843811490990367*^9}, {3.843811762123721*^9, 3.843811792156164*^9}, { 3.84381190693526*^9, 3.843811907005992*^9}, {3.843812765889268*^9, 3.8438127660003633`*^9}, {3.8438833187875977`*^9, 3.843883318858028*^9}, 3.876208442731238*^9, {3.876208483378458*^9, 3.8762084890345097`*^9}, { 3.8762090363083553`*^9, 3.876209068516684*^9}}, CellLabel-> "In[192]:=",ExpressionUUID->"4b92dc3c-7bc7-4b5c-a5c3-e2aacf85ed52"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pCasM", "=", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"h0", " ", RowBox[{"hCas", "[", "\[Theta]", "]"}]}], SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{"(", RowBox[{ SuperscriptBox["\[Theta]", "2"], "-", "1"}], ")"}], "]"}], RowBox[{"15", "/", "8"}]]], ",", RowBox[{"-", " ", RowBox[{"datCas", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "1.001", ",", "\[Theta]0Cas"}], "}"}], ",", RowBox[{"AspectRatio", "->", "1"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "3.3"}], "}"}], ",", "Automatic"}], "}"}]}], ",", RowBox[{"PlotStyle", "->", RowBox[{ RowBox[{"ColorData", "[", "97", "]"}], "[", "3", "]"}]}], ",", RowBox[{"PlotPoints", "->", "40"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.876208490482359*^9, 3.876208512090119*^9}, { 3.8762085423630447`*^9, 3.876208589275639*^9}, 3.8762086279652348`*^9, { 3.8762086597653513`*^9, 3.876208673349307*^9}, {3.8762087044624357`*^9, 3.8762087621668367`*^9}, {3.8762088101927567`*^9, 3.87620901371556*^9}, { 3.876209044101116*^9, 3.876209165118668*^9}, {3.876209218072238*^9, 3.876209218151585*^9}, {3.8762103169644537`*^9, 3.876210332444528*^9}, 3.8762104042786694`*^9, 3.876210437783276*^9}, CellLabel-> "In[196]:=",ExpressionUUID->"9c63e4ce-bd4c-4c9e-9b17-80e65259d14e"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ 1.], FaceForm[Opacity[0.3]], LineBox[CompressedData[" 1:eJwtzgk01I8TAPAlIhUKuULIEUXHhkIzzhCFXNkSITnKbUspRMgtUVSuXG0U RVIiutBBpPJLpehw9Nevdn33/u//vf+8N2/e5828mVE/EO4aKEwike4J8n91 qiwsuIKoQ1vPnriZdCHspapJXSioxR6x9WQ6VQhJ2rW3bR1qMCAwZ3tukBDm Wq4A54VX0f7z2jY3OyFsH39Xe0S0Cje/6CuI2CKE+6meP6/LV6KByvVCnp6g r0PI2R8pRxdmwFkvKSEcWyqTuXJ/GQ5/bQhWFBZCu/4iZiD7Mgon2Roa0UlY WmF63uVoKb5WOZUY+YGEPpmtARdcirE0Tj0guZGEQ+dQS/ZIEXZcsxO+VUVC ZUd+RWLxeSSWTtE0LpJQdviVve/SQhxqSui4nULC8+SsO6u9zuGcvojH63gS 5sysaKReL0AnNVV3rUgSylQ4iBuE5+O905MUfx8SFioGCwd9yMPROekiB3cS 0jiiX0ac89BNpKF4vyMJo8jb3BaV5qBP5bNDS0wF+yb7V+5YkYm5a2Il7ZRI +FuyX+aa01mU8nWril4u6B86RtzJzkClbU5fHkqQ8FeH9vVprXT03fRtQco8 H251i4oNXUtFxS9WY8EP+PA7AbKSlFNxbOz22ls3+fD+V19Le34KWieMN2+s 4oO6hUF8Y/ZpfOTbZ/8ynQ8NLAlW6/0knJPsc3L24IMCRDo2uSYha/B4sqYD H35SFGR8ZxJxxtebrLGNDxkZf6LX6SWi7UxT5WVtPnBU382VFCUgs9fkRziT B/3p20eMpI+hR//f223VPOBHP5eVSz+KT7Nq57klPHi5oeSItchRjN5YvOhg Hg9K37pc+ShOxSztDQGlx3nwZzorNn5bLAYpvptO3c0D/1IbfbvhGAyDqZDn 9jwgkS7/MjgcgxtmLv82RB7o6zdLvayNRlKi95Ud63jwaeSM607zKMz2Htr6 WJwHku47Lw//iESLdZTir3wumC2TEqsqikQzan2y0jwXjk6fJj8mItAvZGDF wCQXshJ0Y+SvheOmnMZwp0dciF3fyCZ1hmJl944BcioXMncvtxvfGYrFUppN dQlcyDGsFgocD8Ek695HBnFcKPsS/ltYMgQpokttIoK4EN0V5hV/+hCKtj/w 7nLgwkPijUj5QCC2MBcaeslyIc3Ukr83ORC5z/uyXyzlQtP5A/fubQ5Eqq/c tLMYF6zI9sfXVwTgRN2Fp4ksDpRtedvRl+GPxhrKnqfGOTAPbeXHL/qhclrL 4IsmDpDZ1ssOBvhhgV6F0eHrHECZu17b1vthOo+wWVHLgeoa76DKPl9cze+Y TLnEgffFZ5VqF/kiefudkYE0Djxx/tStuGcf9jzm1Un4cuDV1O92BfF9qPns 6hJjCgcM/jQr+bftxfZmt/2hHhy42Tkg/mDlXuyrsI+eduTAkmC9vNd/vFEt kv3GdisH8kVthg1HvPB98NYuzxUc4A2rNdGLvDBY5d5TYhkH/j6KvVjv5YX9 g8eOlC/lwHiq7ILej55Ie6jqskCUA6lVXrQQugfeS2k5KfeXDY/EOmlNdu6I GyXpe4fYUMf86Zce7oq5/BlX6SI2WB7SISq3u+K+HmLVsQI2BFuKVJutcsX3 /pLZ33LYsMz41fjEaxfMpJ2TfZXGBpWkXVUD5i5YG5jc8eYYG9p+yGvF6Drj M11+700fNix/xj7rlumIzQq8eh99wf3SlQaFbo4oVLX5q50uGx5evVN5WNUR uw+sKzPSYkPNCgmpyVs7MP9ue/JKNcF/Of4X6ycdkDhzjLxMhg1RP/LEnxyw x5iUhQcvsFnQ8E7fdarVFn2V3L78+5IFeZQS79AsW1xgJ1K38DkLyiVJG30P 2GK8ec81lV4WPDN2enpFyhYVi987ufew4H5tfKxVuA2WKeyjTN1hQZbFqfDP FtYo/ozmVlPBAt5oo88ufUt8cGGTJFBZEKhGHry4xBK/vGt2uhHDguqAQ4cN f1mgR8eulRpRLKh6XOlu0myBG+J63KQOs2Co7KRKrbkF8nVtWsX8WTC7M1Lc yA9R+fSHhLBdLBgfsWrfQzNHz3p9p6k1LPjz6uqF84nmONfWYdyvwwLxwTWb 9TzM8Vu1xFyDFgsW5NSM7hE2xxNNop1H1VkQnLZvqs3HDOl6qlmaiizoPtX9 6Ka2KfIGAir7xVmQtsHkza9ZE6StWPTa7ScTdl9opVc8N8EC5dVlId+ZcEV0 fWchzQSzOmtnkyaZ8ER1stcoxAQtLl5a2DLOhKoG4SLKlDH+NZT6z9pRJrx9 0T19lW6ENwrHxvz6mRCUlnaeSt6MaeZp8kONTDhCff7xjfxm1EFfmbnrTPAR LtUMZZMxS80sR5LGhMeNaVEmPWQcVG4jdtUyYbHXIrtd7mQ0nO0LmihjQijl gykneRMuPTnyxyWfCX9v9N2RFdqId/3NWzbGMmHkW0n+wIQBRhDc/Q3IhA+x eyS+dRng3XjjYE1gQkDzWnmjywaYM8tPKDFnQr/QU/ppDwNcp015nLmVCc4h c469/evQuTKhPp4smGePNRd0rcWwJzpd6bpMiDL+/FttQA+3ELouPsuY4HYl 8WlYlA5OcbrZLZMEDDpfrrxM0cGo2jLmiQkCFkk3Gcxa62B6nFud9VcCYqor E7/L6yBEl8mNfCZgN/XfzVad2th+YJ+K0AcCyreONQXLaGNTSaoL9TUBPyyP R6sNrMY47RDWp04CJLPXij/P18Bqq9Y9yZcIyFiYqzB6SgN18/te7SklwE6H eMk/rIH3/RynN5QI5sepZ/MdNJC6fJ30RDEBnjvj3/aKaGBEajnJ+RwB89rR d0MT1HFU9ythc5aAQM/UsJiTqzAzi7W75igBRr7FkfwIFTSbmI9U9iTA0of7 WUlGAWsitZ6OqxAgHtXUQCHJ4t+Y4cVl0/PQ3Tyj/idDGuuXxF3Pa58Hs7mI hUNzi9Fs/xM93fx5sDrURqFEiyH1OynY89A8/L6pKXfr0wKcmfkp+8ZqHrJU H6mPrRTCwOGMlJzV8zB5wvMGz4QLdqlqCo6i8/BPjPknzx1MEFO4oOM5xQDK iRft0zfooC6kr2b/igEiIFK6svFf+LnpmndDKwMMTMts0XoOrIO7uxwqGNBZ XdNCCM3AJuOQgrpMBiiojp+b8PgB6Xd3dvceZcC/jJQMUcNJ4IlttDocxADT Ygbp47ovUCClvLHHnQGjE0OPd4V9Alp9hbGDLQMccuuOU2+NQpdBVWSGEQN0 G/RsvC6NgIz+RZqoLgO8sykl0cZDMOuo4m2jzIDptNbZ4o+v4Bbtbrm5JAMU 9UNd7gX2gVPHcMsTYQbEFTabHip4DMvF9xzQJuggd+LkJdWPXeC0LEnBapYO QTYH5STe3oUMWY2TtK90aDX4hU/Um2GYnfvp/Xs6/BZZr/TLvhbirXVnNwzS wdVdRcM0uRiUFI4HremlQ4nY0ngNtWKY1FistVDgxXH388n3iyBxt9n0l2d0 CJ4ub3jHOA81147lXxI4kLTYU/VIIQBrtY20wEdVK85lB+RD6YeD25lP6HAN VQM+fj4Db7eL1A8+EuxjuF6S1DoDS7bQ4m4InKP4yy03OBUe/nPTMVtg7mBA Q9Kf03BGfmCZvcDLc071aS1OAr8OLdLDHjrMX02aKSyIg+g7IaHN3XR4IbHl xvjqWNjfKPEgT+BNzWOtfXei4YXhT4VwgSs3D4dGfIqAwc97vusLHCL9nSYS dhBU019/q35Ih/LY186uJf4gSjE8niLw4oDWr0O9vkD93i7vL7CBprP8uJcH nHTxCF4lcNeAHVu20xlErA6o8rvoQB14t89rly3Q5c7/MyZw+aiMVZGDEXDe zJTfF5j0/wjPDTpSKvB/ASWdn3s= "]]}, Annotation[#, "Charting`Private`Tag$384300#1"]& ]}, {}}, AspectRatio->1, Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 1.3595232308079763`}, DisplayFunction->Identity, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> None}, PlotRange->{{0, 3.3}, {1.3595232308079763`, 1.8828734633575026`}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.876209165468998*^9, 3.876209218440271*^9, {3.876210314216745*^9, 3.876210332711735*^9}, {3.8762104336122227`*^9, 3.876210449468999*^9}, 3.876210487907978*^9}, CellLabel-> "Out[196]=",ExpressionUUID->"79c580a9-d885-45d2-b73d-816f14fe791e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pCasS", "=", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"h0", " ", RowBox[{"hCas", "[", "\[Theta]", "]"}]}], SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{"(", RowBox[{ SuperscriptBox["\[Theta]", "2"], "-", "1"}], ")"}], "]"}], RowBox[{"15", "/", "8"}]]], ",", RowBox[{"2", " ", RowBox[{"Abs", "@", RowBox[{"datCas", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "1", ",", "\[Theta]0Cas"}], "}"}], ",", RowBox[{"AspectRatio", "->", "1"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "3.3"}], "}"}], ",", "Automatic"}], "}"}]}], ",", RowBox[{"PlotStyle", "->", RowBox[{ RowBox[{"ColorData", "[", "97", "]"}], "[", "3", "]"}]}], ",", RowBox[{"PlotPoints", "->", "40"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.876208490482359*^9, 3.876208512090119*^9}, { 3.8762085423630447`*^9, 3.876208589275639*^9}, 3.8762086279652348`*^9, { 3.8762086597653513`*^9, 3.876208673349307*^9}, {3.8762087044624357`*^9, 3.8762087621668367`*^9}, {3.8762088101927567`*^9, 3.8762089596587143`*^9}, {3.876209089221918*^9, 3.876209122589672*^9}, { 3.876209181039466*^9, 3.876209181767116*^9}, 3.876209220528407*^9, { 3.8762103380532513`*^9, 3.8762103385007963`*^9}}, CellLabel-> "In[198]:=",ExpressionUUID->"9a7cc83f-920d-4c9e-9d42-998a933b225c"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ 1.], FaceForm[Opacity[0.3]], LineBox[CompressedData[" 1:eJwtlmc4F47bxc2MQigje6/ICkXf+zYyUzaRmb0lRBLZexPJbEmlKN80jKyM bNkjJdEgK4T+v+e6nvPmvPm8OOfFua7D5+Bj5ERGQkKSTkpC8n8u/dmtiym0 UZXzetUVOnFyQqR2zZKWBqpypR1bvGcYSmhMFH9u+ZpPdYZ6QYGtN5dwe7Z/ +UDmQVWvSwpps/IPCKxfb7QqGpGrRvV+3tyjfE7go3HULPTYQlva0qv3c94S Xhwb4gujW8Hn11tb7lk2Ez5VafCyUX/HlzriT6kedBDSB3rfydHMoQ/vTX+u j70EuRqP2+YTM5ibMB936+kgIVmi7rDhw3F85MTCszgzQihpUKBa5B1GnZof 5zsdJwkVysvUuWUDGN4QmczP9YkQFjV7QWauF3E88lt75WfCHO/fTzxOH7B+ lfN8mttXwrE14DTua8ejCW9F3uosECYURw3LJ1tRIGHG5f65H4R215i8LOdm XH574Gl1yBKh/X5f/aLhOwxXU+IXc/pNcNe0bWVIakBRDomuPe5VQm+RKK/o gTpMO6MZX7C4RhCQla8ddX2NNzw4yN+3bRA2onj3+DhrsVEx1123ZpNwuLfR 6ikrEa9QfWZffrFNePvGapPe4AUGTPWpx7XuEDSWx2i3X1fjGUnXJ1/m9wjs 5qaUn42rkE5D5/WPJBJQnUgkzWR8ho4H33lxPyGFzrjIjLbpSvxnrhbnP0wG P987TzENPcaIAFbaUWoKsFAItOv9W4Eb/qKtKmqUkPeFjHle/yFqsc8aJUfu g2HG/FTR1gf4kWnkb20XFXBj4LCI3X20T5x5XsVFA1UknaZsbPfwT+UVetdA WshKENCuXryD+QPaEp0f9wP9vV/i/ENlWG9/p+YDgQ4kdSU5fw6WIjXdt3H7 J/TwLSbZ8cd8CVrs6fO8ZToI07lr0SoHSlCKv3SLov8gdA5/MJTHYtxZc1Ih y2aEMGuidi1FEZ6WPzX6xIoJioQmfvaX3sZZL9nfFMLMILX16LCrRQEKHRXp 31tlhgSBFxseArfQnzVwLaflEIQsnuSiJctHddt3m235h8EyWkW3aOUmcvQs 3U3yZwEt0066NfJclIxM73hzjA0ucL+KkObPwY+Nb8K4mdlhf0OCkal+Nn7m oTci2WYHVzXnk25RWSj2duSp9ZcjwJXoIpjQmokuFHyCsv0cIDVbXLTIlIm/ n1wwCG7ihHyh23d6XDOQO1hzTeolF5DGfG1KlErHJqvJI0MVPDBAKRGgdDsN uxrsOmxMeUHEeHcfE3Ma8lh4n7jxkRdmm2JoVXlSkZG4s2p0ng9UszTMvgum YJQjkatnkg/YQtK/myskY/+/o1/WLvKDld/z0k6jJBy94Bf27js/2BDXb/A/ TMDVFwSlsySCoKpnp5swEI+M0+VWKzcF4bVo+C4lVTxmF4iHhMsJAcsUmUBz fCxOnt25YuQtDCxfbrUsDMcgj3+OVQa9CBR+I8+cl4zBF/kcp54/FQF7Fcqf hUtReFGW3zNnWxS4kvyyYyyj8KtcP5VxqRhMnXl9qqQzEuM4pQmLeuLAvMZc xVp/Aw2UNC6X3JGA/APjZB/xBoaQ2VPUGR+FkGt+voltEbgvKvjcEwpJiNF6 9frjbDjOUdHHk3tKQe5jnYS1wHDM05FQc+I/BtnFDDVsDOF41Z5TL2vsGCyP Z14zyw7DJ4e2D4k/kIboyKcxwePX8PwC5b/lfTLw7jc99XHRa3hx4l/KLWcZ SJQ+9EN58CpmEg7V3xSVhZbg6dF12as4uAnrCwmyUEigIQrmhqCbntkuxy9Z +H5P4N6CdzBym0h28RDlYIm2fojMLAhPMaV/zzQ+Dp8PDrsrjwWiP0+90Oib 42BlFLOl7RCIY3l6pNvCCnBEvqJE/VoACo+fleraVQDZ37rMXxkCUKr3rX6o uyKobj9Ybrt7+b89XnxIOaIIccMf4P2YP6Z+jOkqeaEEV/2utZcH++NTbxWf aqETMFF/sMGAwx871SNoCnJOwPsdmeQo50u4ZZq0shRyEvxWM3in2P2QVyU5 K1NfBczmGpuVu3zRMwfm9JtVoKk03PZ+uC96FJiujimfgvnlM951Uz5ItfhU y0OSAGw/84sYjX1wRSk63es+AepLPpFtdHijX1ZXEfIDXNo8nPan2QtvVy2m StAhMBk9jx/T9MLpTxs9XXoIRzVr5MY6PdFhIyl8KAGhRi6C8v2UBx6oLNDm pFWF8wdOVzQKuaN5S4N4MJ0ajLkP1z1vdsPpyvK0JV01YLD81Nng5IYnrOcL 6uLUoOkXc8rXx6547+SvP06U6mBxxyln1MQFudg5/w6SaUDdp7PipOQuGEv7 cmC/ugYwp8SdH6xyxkblgb95kRrwrrbf9xyrM0ZdFc55TXkapDSsyT1WHFGS SBLHQK8JeyEXduoeOeKYywfvHQNNoHJ+2ezh6oheXdJOkKUJeng97tHni7h3 ++/XVg4tkIueuP35mwOmJidwjEhpgxW189NDjx2wturleb/L2uAf3fLb5pID WksOXLV9pQ0/H4pVC5A44LJu8PgJLR24MR3s9ErEHoXTY4Q+O+qCpI1yxr9V O4yOZCnkeawL4ZPctkcb7bBC6etM5bouLBW4eIjY2GFsq8Wpzlg9EO9Jy5DQ sEX+nKb7C5VngI3FOYVp0QbT8ppaG7bPAPXUrXsh6Ta44e15b/G0PiSRnhd+ 9MUa/V3NRBQm9YHmWQlH9a0LGJR6tPYBwznY2nv/q/7MBZTnverEZH0OaP6I ZDP8s8Ipb4PhDw/PQeKSGuMFFytcu7LzvkDAABK4qe+snbbEka6y5OVGA3CZ Pe1IqmCBXzotfST2GUHh16bfGVvmyNfDznhTygisMkPDyevMUWaUl1fC3AjK F/Jv+eqYo0i0hlHzAyMIHzCRp3E3w4GKgeJGfWPgZrsTwCtvhmFhipp2QcZA 4t8m9WfPFHeDjFYFS4zBvGp0YzDHFA3Oa8vxrhtDbEzx4Gq3CSr1mqxNFJqA 51FJmQeFJrhvizHiYbsJtJFYz5L6mOBwT/Tz22smkP6oMSmP0QRVDpvPrOma wp1RzN9vY4yrdoUUTlumwB+pm/uS0QiXGMevqlmbg2d/VcWNRUNMsDA74JRg Dl0NTivtTYZI0tOW/IhoDoM5LH1tQYbIVyqm9JDJAopYL2rpzBmgTRPs2XRY AIXrcG1K+Tkk6FCw3kVLsBE0WCBzO4c0bclvGX0todvnkpKS2Dnc31X4uLTI EpbxGY5VnMWUmVNqMv8sgVPVJqiiVh/Nm+1FSBqsoGTI+af4uh769BmYX9C2 BsEETfvpV3oodcLqMoZZAzGfqvZ0hB4qdfxMOvvcGmzKX45xHtRDUUfhiG+8 NpDgIOBQflwXh118jjLt2IDP638faQq1cV9TiBK7tR2o7Obw3vfSRqcj4m4W wXaQIjAt13NKG6lONio/yrYDkrHLocRpLVwdyXua3m0HXR3OzM/EtHAiexuM Ve0hUezQi/LB03jdoVX1kbgDxLTS5DI8Oo269XLUctoOYBtOY/U58jRKZrBx dDs5wLisz8Vu+dO4fOclo2qJAzR2TSzE3dJAl9jcanb2i//lC1K3uKqO9W43 ndIPOEJnW+SJ3xbq2PyqJ9tSwhGKQuWMZxXUkfP3w3eKuo7Q8bhN8/2qGjrG 7/8nGecIOt5U2ZF+ashA+jqUhtIJ8hO8qDuuquLZ9BSvK2TOsBjS/dvMThWF +vu8rHidoXluVZ7/tCpW+ZVknyM4AzmRddyXQRXTQiT1PUKc4cVsV8PYPcSs zbvrPqvOsLJb7pDVAJjMRkVR8c0FGkjIMwbTABM+8HcUUrlC7t8581B7QPN/ VmFlwq6Q8iqEbI8cMGlHoWza0RUszwwpPtQnoLTk3Wv8s66g2eV4pGZFBalu xgX1TLuB7nH1zB/vVXBkyi6y958bCHOL9gYXqeDZjC+aszzu0GloMJmlr4Jm u1XzinbuIDpHs1D9WBmDSR3kKz65Q44AsW4w9CT6JOvwV857gDRLpKyooRLq zCmxsJB4g1fFJ9MFSSV8qVLYRybkDeeOxoSv0iqhprrBSzJdb8if8O+ablHE g5uGm8pZ3mDCE7xJBoro0BAykinmAymNYuV9pxSw/q3et0UJX0g2MJ7o4FZA 2g6Vui2CLyzsj3hFSqKA5geW9jMZ+cLLwKFloabjeIPRgMr2ii+wXyrbp3jm ON5TsNVzb/EFtH2ivekqj+yGm0Ea9n6wmy3rE6Uvj8p2ASsLl/2geWSN4rSs PIrzyr2/GecHnWFvvOx35PCZTFgY01M/UPouwrGVIYeyhD9zAf/84AgPuZBS uywufS3j+1t0CUofhjyYMZNBSbaOzNV5f1gQ6p26qiqDJmXz27Y7/hDaZn9O 5agMcvw9Lzd08DKQPa6JlyCTQbbd40xjJy7DIFOW6qtKaZzw6bXWT7oMoRnm FUaM0rhXOz09IhsALSHDnQo7xzCJL6C8TysAgsLkx6g/HsNuiaqjAxcCoMzc O8Yz4RgahVpYLscEwA5N+wf+DSmcWdgVyxz/j//o7jc0Iom/1Acsg2MCQVJt L1y6RhJ7Xmwz7d4KhD8xIbNNmZKo94TSO/5ZIIQz7atNPyeJV8/IUb2ZCITA nqOdb9qP4noqa1GcXBB4XLkl+rNNAjPtqGTqZoOAttZC4+M3MVyPcHFJ1woG JUufsnPdYtg7t0leeiEYStSY235Vi2GT19BerV8w8PIyqd6+LobVaif3kxQE Q/2Lky7VbGLI13je/styMLy9nlsXbyiKY2zf2OkKQqCV3f6QyIQwsui7pw7/ uQo1Jt+1xluEkdXfZr2PLhTK1K9HPa4Uxtr4pZsDAqFwyo1boyJSGHdOr2X9 OBcKWZ1SwvskhVHrw5pGwINQqJs9eYwuWgjZXJrKZyyvwZdz2qPMOoLI5y7X ytYSBmyjiYsZ8oLIc+Cn+fxkGHjvzDtL8QriTfEl7bqNMJieUOiv/SOArGP7 NaJFr4NY/cs5zgcC+NU2/FpQ0nVw7rhGuUAngJObJH/XxcPhXZTqktkPPjxs sN835k84CLsw6lON86FcEVXSJYoIyE885d7dzod1sUdbHBgj4NY+cs3i+3w4 U1qVdE4iAhxO/Dpz1pEP054z2FvaRoC3U/uvqk+8GJo0VSr/PgIuyLXcMhzm Qc9c9Zo/BTdA5sL2+Y7XPKiWldAeUX4D+ioNFS8W8+CjumsXGWpuwAyNTOKa Gw/uUFaKHe+5AXsON86m7XHjyVm51YekkaA0/5AvUpIbk8NoOMAlEiSvDHlx l3AihWP1+33Ho+AoLoapxXNib2DbFIlaFHCXtUpH+HGitdIB772zUeD17cq4 vhonPmKN3CB3iwLFp0mcvHMceI/tSZnS7ShIuHSvIvYYB16+T2TW3hcN/Pr0 Jzw+sqNPxsUrO2PR4Ji7mUf5jh1NMtYv8H2LBr9qfdsXj9nxR39tos76f3zE oVKTaHZk8LVpLWOIAeO01amU4+x4vqT57nWNGODyL0kczWPDv1MDrwafxEC5 ZGLvfj9WjId/Vb+jY+G/pxHKZcuKJ8V6RK9nxgL5SKyKqj4rKk4oTTKUxMIr T7rcOjFWvFrmTaL8JhakGDhFUz6zYNfFa8IvV2KhYkXxmaclC1Y3mZbq28VB tW97YIrJYfRuNPw2eyoepoweoK36YQxUibWk0o+HbO4z/Gqyh/H8F/f0Yxfi 4WjGq/ZTBw/jmPV1vcSQeBjs092h+XAIic+IX3yI8fDFVZPhk84hPGP+Qven TAKID+59XjzHjHyVI19fiCWC4W5Oeh8yYyF5P7vRiUSgfKgW1ybDjENig+Qr 2olA3+NK8omZGVNCtP6quCZCBZPgctsIE5amqnr+u5cI7+fyh02cmHB979HW caEkqDtRZbYQx4i1bv6zzoLJwFyzEHAllBE/8re/dZJLBnnF6HkmX0aMj6xr d1FLBun7Pklu5oyYIXzyUoBdMpCw0HoUCDMidar5Tk1BMtydfCZG13YQb/9N fNR/OAUu2HnONDEcRJLdTBV32lTYbspvvUNxEPsyGxK72VOBZKDxB/cqA7oN apEqiKWCrIPQAYo2BvwSIWBDr50K8qd4HF74MKDzHfz4JToV6j3pwkua6fGw 0bLKIdI0GExqUqEPpUO1vLfSUWFpEGbxS8XLmQ699j8WYIpNg+TpVIUZAzoc DgxdLElNA8njH2pIhenQU2ttpbU4Ddazd8yk+w7gM8WxBeGmNOCPdZ4TkTiA w5sEDQJ1Onzqowya+0GLVxIFTdoz0yGTo3Qxd5QW1VieX0wvSIf1VpdbVq20 SLxKqWp1Nx2oO5cdWYppUSdI0nGtJh1o7ar9zE1oMUffSEtlLB2WqHPzN+pp 8Lkguzk/Xwasm7l/EimjxvRb7gaaTzMgPcdDSyqDGk8Wv0rlqs0ATd1tFvUI aryxdCFmozEDuOIfV+faUuMK17ebjwcyoNArXeo7JzVKjWmflf6TAb9nv7dJ 5lPhXtHwQCwhE/yP7mW8KtyHqmFe7GHdmXByiHXsTxcF0gn1i4WtZsGW0peb LA0UyMXbSsm/kwXS2z9WCdUUeORJjFkbRTZ0hk6df5RHgW9jv5qysGRD4nr3 3KYzBbJ2+b1vUcoG9s92QobkFCi6z8jWPSwbnB5dvN2oRo4We0Hu7bQ5IMcw vjYxRoqUl3++HRbJBZ+D9Y5KPaTI1rvWmi+TC5XCXa0FTaQ4VzAUaqucCzRe 8oTwR6TokHn918+zuRDgabrvWRgpelH9/cIdmAurwXNhVYKk2NY/vt3bnAtP A4uV/waSYBXP2SeXL94ErbLbet+c9uAKh4z3s7t5UGko/mvWeA/6Gk4OSlfm wQlblaEF1T3wOC1x/9nLPJhQstHk5N6Duc+qmcTOPGC4cCiZaXgXCgI+hA/+ zgPXA0NZynq7sFJcmW1EyAf6KOn9J1R2wG1bs8NmJB+2Yi13ugnb0HWDM/np wQKQ7Q67ryW1DcojCRTWHAUwOCyx2cm1DZoKp3n2CxfA7/4Auz87W7C8RUbw VC4AuooSiZHXW0CT48yp5lwAhzjo3r9U3oIsa3JllTcFwGmUL/dMfROq7NJX XN1uw+PB1DPBlzbAv+fBn1vvC4FzRrWl13EDLm999AodKAS5s7nqMuYbQDNK 7WMzVQjn7Q/I0alsQOTQIqPIWiFoji/tl963AW1vuoc6eIqg/zX9cY6CdTBM sFW8EFQEjh6FF0271yCF+kZNP3MxRNBvkc7oroJjGRuVU2sxpB2z9KDBVfin 1uBwt7MYUgJSlE8cX4WizXjnr73FML3qulvBswrkEWec3ceL4dChOzcm11ag w+XA6ZDlYvg6KHnds3gFtn18/WuPlECnJefVIzu/YZL5p9wLnxIQfj6g39K8 DHfiw3SLOEqB/Vtp5a1XyzAwaUsSxlcKpJlnzK48XYbJsa9B1iKlsPekx0aj YBmguqSCW64UvpzeHBK+vAzTyb8EHuqWgvdsvQKj0DI4VdLozAWXgmt+23IN yxJovZj89X2kFASVYp+X9v0Aje2qHYW8MpBjUdFUJl0At632YzLUdyF0iV/g zOs5WCKgf3vwPVD+JOHiUDQLjwvkfkcdfgBcZUt1/MwzMC8T1figqBx0wn/W PdcehwoL2RfuphWwn+xw+TLzMCjSijyqoHsM9r817BhvDkBVvZ9MyLMnsDRz P0ZSuRfeUtxs0VB9Cg5sbQs6kx3wRmt++CP3Mzhr8qkvcKkFCssthI/tPINl 9XAHcYFGsOi49XJ+uQoOStp3dyi/Ag5fiX8uo9Ug8TNpdNyxCqguVQjPjz4H Ro+bsTu37gOnh6VTxIcX8Olrxw+ZvlyIJ0qYsDTUwGO/oIevPXPhyQS9p1Nz DRR9N9b1o86FBkGK7ufva8BxsmDMFnPgcyq1r0lfDeyuSn/VqsqCLtJnErmz NTCQ6sImU5gOVrVqV8UpiXBl17SzQiIWIu8k6MTpEkFmyMLM2SsGBu7MZs+c JULjWuZl/8poODzlKnHCmAg1rz50RMlHQV/qZ5nvVkRo2GaNuq4WAZ50nRVG XkSwavml6TQeCJUKR/WPpREh/bxeOZXbf7+3mlksKYsIdvQPtHT/+IPQKFF/ 4SYRTAWWySsP+8HUO3a/OyVEiHcsFJ+odgatkms83NVEODl/cJZ59CJk/o7E a0QirL58rh37zw4GT9I/nHhNBEdZ08RTxWag6ZRhVtBMBPWfLVaRawaQyRWW t/OeCJ3qF+8E5WgC7bU+QesP//XpfkWdm64AGz7Rm2/7iEDy/0qczTjE85EI /wNkCn8r "]]}, Annotation[#, "Charting`Private`Tag$384371#1"]& ]}, {}}, AspectRatio->1, Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> None}, PlotRange->{{0, 3.3}, {0., 0.09311098339356698}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8762085510207253`*^9, 3.87620858950519*^9}, 3.876208628576564*^9, 3.876208673611944*^9, {3.876208726286438*^9, 3.876208762616218*^9}, {3.876208810719953*^9, 3.8762089672639933`*^9}, { 3.876209089578055*^9, 3.876209122850472*^9}, 3.876209182088485*^9, 3.876209221479105*^9, {3.876210314516953*^9, 3.8762103388902884`*^9}, 3.876210498192659*^9}, CellLabel-> "Out[198]=",ExpressionUUID->"72455824-b956-48f2-805c-31dcb93fc169"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"totCas", "=", "13"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ds", "=", RowBox[{ RowBox[{ RowBox[{"invDerivativeList", "[", RowBox[{"totCas", "+", "1"}], "]"}], "[", RowBox[{"\[Theta]", "\[Function]", FractionBox[ RowBox[{"h0", " ", RowBox[{"hCas", "[", "\[Theta]", "]"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"t", "[", "\[Theta]", "]"}]}], ")"}], RowBox[{"\[CapitalDelta]", "[", "2", "]"}]]]}], "]"}], "[", "0", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dMs", "=", RowBox[{ RowBox[{"m0", " ", RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"#", ",", "\[Theta]"}], "]"}], "&"}], ",", FractionBox["\[Theta]", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Theta]", "2"]}], ")"}], RowBox[{"1", "/", "8"}]]], ",", "totCas"}], "]"}]}], "/.", RowBox[{"\[Theta]", "->", "0"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"datCasH", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"dMs", "[", RowBox[{"[", RowBox[{"k", "+", "1"}], "]"}], "]"}], RowBox[{"BellY", "[", RowBox[{"n", ",", "k", ",", RowBox[{"ds", "[", RowBox[{"[", RowBox[{";;", RowBox[{"n", "-", "k", "+", "1"}]}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "/", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "!"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "totCas"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.836976284774213*^9, 3.8369763107653933`*^9}, { 3.8369763440621157`*^9, 3.836976643043976*^9}, {3.8369766791263657`*^9, 3.836976702020906*^9}, {3.8369833396004457`*^9, 3.8369833834965153`*^9}, { 3.836983426425185*^9, 3.836983501138253*^9}, {3.8369836692218637`*^9, 3.836983678733614*^9}, {3.836983808464398*^9, 3.8369838086001043`*^9}, { 3.8369839370347757`*^9, 3.836983937122395*^9}, {3.836983969035384*^9, 3.836983979299178*^9}, {3.836984097325984*^9, 3.8369840974613132`*^9}, { 3.836984339450017*^9, 3.8369843561781673`*^9}, {3.836984934917253*^9, 3.836984935916635*^9}, {3.8369856092092857`*^9, 3.836985626001013*^9}, { 3.836985701651613*^9, 3.836985833037245*^9}, {3.836985978736498*^9, 3.836985996927923*^9}, {3.836986994292021*^9, 3.836986994346624*^9}, { 3.836987100533333*^9, 3.836987147389551*^9}, {3.836988211802526*^9, 3.8369882124812613`*^9}, {3.83698827789044*^9, 3.836988278050117*^9}, { 3.836991140640276*^9, 3.836991156327482*^9}, {3.837070011059902*^9, 3.8370700129717007`*^9}, {3.837070292889572*^9, 3.8370702929846687`*^9}, { 3.8370709285346727`*^9, 3.8370709288925543`*^9}, {3.837072484698299*^9, 3.837072484992663*^9}, {3.843802126725583*^9, 3.843802127123851*^9}, { 3.8438022381502447`*^9, 3.843802268518549*^9}, {3.8438024340742607`*^9, 3.843802515907176*^9}, {3.84380268121432*^9, 3.843802684734229*^9}, 3.843802806265029*^9, {3.843802947563074*^9, 3.843802949058984*^9}, 3.843803003228539*^9, {3.843803040877533*^9, 3.843803044636691*^9}, { 3.843803094421678*^9, 3.843803146878536*^9}, {3.843806505415429*^9, 3.8438065212344007`*^9}, {3.843811444237966*^9, 3.843811444581764*^9}, { 3.8438114746875067`*^9, 3.843811475623706*^9}, {3.843812978160186*^9, 3.843812978303809*^9}, {3.843813154956399*^9, 3.843813155905347*^9}}, CellLabel-> "In[364]:=",ExpressionUUID->"34fe8bc4-abfb-4504-a7f1-045cd2a55ee6"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.`", ",", RowBox[{"-", "1.8452280782328385`"}], ",", "0.`", ",", "8.33370069297413`", ",", "0.`", ",", RowBox[{"-", "95.16881652232634`"}], ",", "0.`", ",", "1457.5474391179216`", ",", "0.`", ",", RowBox[{"-", "25883.955538425816`"}], ",", "0.`", ",", "503591.1494797519`", ",", "0.`", ",", RowBox[{"-", "1.0451949132136984`*^7"}]}], "}"}]], "Output", CellChangeTimes->{{3.843806513941721*^9, 3.843806524411374*^9}, 3.84381144996428*^9, {3.8438131466573687`*^9, 3.8438131757670813`*^9}, 3.844157557710391*^9}, CellLabel-> "Out[367]=",ExpressionUUID->"e9b15296-174c-4b92-bc6b-e3136dbafca2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ SuperscriptBox[ RowBox[{"RealAbs", "[", "\[Eta]", "]"}], "2"], ",", "\[Eta]"}], "]"}]], "Input", CellChangeTimes->{{3.8439843406716013`*^9, 3.843984356597925*^9}}, CellLabel-> "In[273]:=",ExpressionUUID->"2e8e8755-9de4-46f0-8d34-70439b2b441b"], Cell[BoxData[ RowBox[{"2", " ", "\[Eta]"}]], "Output", CellChangeTimes->{{3.843984346778022*^9, 3.8439843571136303`*^9}}, CellLabel-> "Out[273]=",ExpressionUUID->"f78d77d4-a743-42fe-aad7-f383120ebe66"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"RealAbs", "[", "\[Eta]", "]"}], "2"], RowBox[{"\[ScriptCapitalF]pm", "[", SuperscriptBox[ RowBox[{"RealAbs", "[", "\[Eta]", "]"}], RowBox[{"-", RowBox[{"\[CapitalDelta]", "[", "]"}]}]], "]"}]}], ",", RowBox[{"{", RowBox[{"\[Eta]", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.843984294023637*^9, 3.8439843055548697`*^9}}, CellLabel-> "In[271]:=",ExpressionUUID->"e826229b-9150-4894-b288-5f834e4105f5"], Cell[BoxData[ RowBox[{ RowBox[{"2", " ", "\[Eta]", " ", RowBox[{"\[ScriptCapitalF]pm", "[", FractionBox["1", SuperscriptBox[ RowBox[{"RealAbs", "[", "\[Eta]", "]"}], RowBox[{"15", "/", "8"}]]], "]"}]}], "-", FractionBox[ RowBox[{"15", " ", "\[Eta]", " ", RowBox[{ SuperscriptBox["\[ScriptCapitalF]pm", "\[Prime]", MultilineFunction->None], "[", FractionBox["1", SuperscriptBox[ RowBox[{"RealAbs", "[", "\[Eta]", "]"}], RowBox[{"15", "/", "8"}]]], "]"}]}], RowBox[{"8", " ", SuperscriptBox[ RowBox[{"RealAbs", "[", "\[Eta]", "]"}], RowBox[{"15", "/", "8"}]]}]]}]], "Output", CellChangeTimes->{3.84397940925786*^9, 3.843984306115745*^9}, CellLabel-> "Out[271]=",ExpressionUUID->"ba4067d3-83a2-4fb1-b40d-dda17275ca39"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"test", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ FractionBox["1", RowBox[{"#", "!"}]], RowBox[{"D", "[", RowBox[{ RowBox[{ SuperscriptBox["\[Eta]", "2"], RowBox[{"(", RowBox[{ RowBox[{"\[ScriptCapitalF]pm", "[", SuperscriptBox["\[Eta]", RowBox[{"-", RowBox[{"\[CapitalDelta]", "[", "]"}]}]], "]"}], "+", RowBox[{ FractionBox[ RowBox[{" ", "1"}], RowBox[{"8", "\[Pi]"}]], RowBox[{"Log", "[", SuperscriptBox["\[Eta]", "2"], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"\[Eta]", ",", "#"}], "}"}]}], "]"}]}], "/.", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "n_", "]"}], "[", "\[ScriptCapitalF]pm", "]"}], "[", "_", "]"}], "\[RuleDelayed]", RowBox[{"-", RowBox[{"datCasM", "[", RowBox[{"[", "n", "]"}], "]"}]}]}]}], "/.", RowBox[{ RowBox[{"\[ScriptCapitalF]pm", "[", "_", "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SuperscriptBox["\[Eta]", RowBox[{"-", "2"}]], RowBox[{"\[ScriptCapitalF]0", "[", "\[Eta]", "]"}]}], "-", RowBox[{ FractionBox["1", RowBox[{"8", "\[Pi]"}]], RowBox[{"Log", "[", SuperscriptBox["\[Eta]", "2"], "]"}]}]}]}]}], "/.", RowBox[{"\[Eta]", "\[Rule]", RowBox[{ RowBox[{"t", "[", "\[Theta]", "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"h0", " ", RowBox[{"hCas", "[", "\[Theta]", "]"}]}], ")"}], RowBox[{ RowBox[{"-", "1"}], "/", RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}]}]}], "&"}], "@", "1"}]}], ";"}]], "Input", CellChangeTimes->{{3.8441355650573378`*^9, 3.844135612822277*^9}, { 3.8441356432559423`*^9, 3.844135644806315*^9}, {3.844135769024576*^9, 3.8441358135052*^9}, 3.8441359564176683`*^9, {3.844136010585967*^9, 3.844136037030072*^9}, {3.844136092718753*^9, 3.844136097681836*^9}, 3.8441362459012527`*^9}, CellLabel->"In[23]:=",ExpressionUUID->"aac833ad-2b24-4138-bd6f-72fced45c28b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Series", "[", RowBox[{"test", ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{"\[Theta]", ">", "1"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.8441360394005013`*^9, 3.844136069704311*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"192d6104-6702-44ac-becd-0eb638099ac5"], Cell[BoxData[ InterpretationBox[ RowBox[{ FractionBox[ RowBox[{"0.1784522279293546`", "\[VeryThinSpace]", "+", RowBox[{"0.14899162286841253`", " ", RowBox[{"\[ScriptCapitalF]0", "[", "0", "]"}]}]}], RowBox[{"\[Theta]", "-", "1"}]], "-", RowBox[{"1.0179704579082998`", " ", RowBox[{"(", RowBox[{"0.8836710382865575`", "\[VeryThinSpace]", "+", RowBox[{"1.`", " ", RowBox[{"\[ScriptCapitalF]0", "[", "0", "]"}]}], "-", RowBox[{"1.964693557128907`", " ", RowBox[{ SuperscriptBox["\[ScriptCapitalF]0", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", RowBox[{"\[Theta]", "-", "1"}], "]"}], "1"], SeriesData[Schofield`\[Theta], 1, {}, -1, 1, 1], Editable->False]}], SeriesData[ Schofield`\[Theta], 1, { 0.1784522279293546 + 0.14899162286841253` $CellContext`\[ScriptCapitalF]0[ 0], (-1.0179704579082998`) (0.8836710382865575 + 1. $CellContext`\[ScriptCapitalF]0[0] - 1.964693557128907 Derivative[1][$CellContext`\[ScriptCapitalF]0][0])}, -1, 1, 1], Editable->False]], "Output", CellChangeTimes->{3.8441360705377207`*^9, 3.844136100604207*^9, 3.844136247845188*^9}, CellLabel->"Out[24]=",ExpressionUUID->"d7b8e166-951c-43b4-b661-6bb65d35f1c8"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"test", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ FractionBox["1", RowBox[{"#", "!"}]], RowBox[{"D", "[", RowBox[{ RowBox[{ SuperscriptBox["\[Eta]", "2"], RowBox[{"(", RowBox[{ RowBox[{"\[ScriptCapitalF]pm", "[", SuperscriptBox["\[Eta]", RowBox[{"-", RowBox[{"\[CapitalDelta]", "[", "]"}]}]], "]"}], "+", RowBox[{ FractionBox[ RowBox[{" ", "1"}], RowBox[{"8", "\[Pi]"}]], RowBox[{"Log", "[", SuperscriptBox["\[Eta]", "2"], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"\[Eta]", ",", "#"}], "}"}]}], "]"}]}], "/.", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "n_", "]"}], "[", "\[ScriptCapitalF]pm", "]"}], "[", "_", "]"}], "\[RuleDelayed]", RowBox[{"-", RowBox[{"datCasM", "[", RowBox[{"[", "n", "]"}], "]"}]}]}]}], "/.", RowBox[{ RowBox[{"\[ScriptCapitalF]pm", "[", "_", "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SuperscriptBox["\[Eta]", RowBox[{"-", "2"}]], RowBox[{"\[CapitalPhi]s", "[", RowBox[{"[", "1", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", RowBox[{"8", "\[Pi]"}]], RowBox[{"Log", "[", SuperscriptBox["\[Eta]", "2"], "]"}]}]}]}]}], "/.", RowBox[{"\[Eta]", "\[Rule]", RowBox[{ RowBox[{"t", "[", "\[Theta]", "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"h0", " ", RowBox[{"hCas", "[", "\[Theta]", "]"}]}], ")"}], RowBox[{ RowBox[{"-", "1"}], "/", RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}]}]}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"0", ",", "4"}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.843977448947337*^9, 3.8439774739864187`*^9}, { 3.8439777381239777`*^9, 3.8439778097178307`*^9}, {3.843978498048068*^9, 3.843978523458262*^9}, {3.84397859535165*^9, 3.843978684203545*^9}, { 3.843978737191361*^9, 3.843978757182068*^9}, {3.8439788093504868`*^9, 3.8439788095681953`*^9}, {3.84397954926616*^9, 3.8439795926753397`*^9}, { 3.843979628249529*^9, 3.843979643819708*^9}, {3.843979814938733*^9, 3.843979823035452*^9}, 3.8439806286149*^9, {3.843980798411592*^9, 3.843980815036498*^9}, {3.843980884595045*^9, 3.8439808875781116`*^9}, 3.8439810756431217`*^9, {3.84398119363118*^9, 3.8439811939537487`*^9}, { 3.8439812658936872`*^9, 3.843981271875216*^9}, {3.843981387122608*^9, 3.843981389172595*^9}, {3.843981436627571*^9, 3.843981436926566*^9}, { 3.843981507023527*^9, 3.8439815291349688`*^9}, 3.8439815995044127`*^9, { 3.843981950716568*^9, 3.843982049599683*^9}, {3.8439821906251917`*^9, 3.843982222191123*^9}, {3.843982292163083*^9, 3.843982302907435*^9}, { 3.843982496265829*^9, 3.843982528647358*^9}, {3.843982612879884*^9, 3.843982629943433*^9}, {3.8439827941959133`*^9, 3.843982805725062*^9}, { 3.843983326841724*^9, 3.843983357064176*^9}, {3.8439834908250027`*^9, 3.843983496126409*^9}, {3.8439839329197397`*^9, 3.843983969766494*^9}, { 3.843984016537162*^9, 3.843984021863111*^9}, {3.84398438133895*^9, 3.843984413633376*^9}, {3.843984473521657*^9, 3.843984499280164*^9}, { 3.843984548359413*^9, 3.843984549623651*^9}, {3.843984874078813*^9, 3.843984910492568*^9}, {3.8439849715825977`*^9, 3.843985024932303*^9}, { 3.843985059638566*^9, 3.843985092819029*^9}, {3.843985319652463*^9, 3.843985328984827*^9}, {3.843985387506716*^9, 3.8439853875864573`*^9}, { 3.843985445273638*^9, 3.843985456592615*^9}, {3.843985612937416*^9, 3.8439856448203573`*^9}, 3.8439858717235117`*^9, {3.843985922965932*^9, 3.843985940335438*^9}, {3.8439862065668163`*^9, 3.843986227475103*^9}, { 3.843986356235326*^9, 3.843986381216381*^9}, {3.8439864483810883`*^9, 3.843986461518548*^9}, {3.843986765923089*^9, 3.843986766213182*^9}, { 3.843987655818223*^9, 3.843987695252995*^9}, {3.843987746798422*^9, 3.843987778408546*^9}, {3.843987819513362*^9, 3.8439878199542313`*^9}, { 3.84398789288629*^9, 3.843987928881118*^9}, {3.843987983477302*^9, 3.8439879871749887`*^9}, {3.843988043407119*^9, 3.8439880467909946`*^9}, { 3.843988162941238*^9, 3.84398817654088*^9}, {3.843988265626775*^9, 3.8439882687390203`*^9}, {3.843988309039686*^9, 3.8439883215717*^9}, 3.8439885079043922`*^9, {3.8439893658380213`*^9, 3.8439893666595*^9}, { 3.844002142667212*^9, 3.844002146939465*^9}}, CellLabel-> "In[541]:=",ExpressionUUID->"1800b59b-60e8-4839-8aff-d82ae8bbba1a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"test3", "=", RowBox[{ RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{"\[Theta]", ">", "1"}], "}"}]}]}], "]"}], "&"}], "@", "test"}]}]], "Input", CellChangeTimes->{{3.843985185323773*^9, 3.843985191540288*^9}, { 3.8439853417991962`*^9, 3.843985399410922*^9}, {3.8439854859104147`*^9, 3.843985486109192*^9}, 3.843986044837152*^9, {3.843986259456277*^9, 3.843986260018146*^9}, 3.843987888756095*^9, {3.843988234259981*^9, 3.843988236906592*^9}, {3.843988327216732*^9, 3.843988362393538*^9}, 3.843988489524564*^9, {3.844136044025272*^9, 3.844136047289119*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"04521673-5a45-41f8-ba39-1383a2daafcd"], Cell[BoxData[ RowBox[{ RowBox[{"-", "1.0179704579082998`"}], " ", RowBox[{"(", RowBox[{"0.8836710382865575`", "\[VeryThinSpace]", "+", RowBox[{"1.`", " ", RowBox[{"\[ScriptCapitalF]0", "[", "0", "]"}]}], "-", RowBox[{"1.964693557128907`", " ", RowBox[{ SuperscriptBox["\[ScriptCapitalF]0", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.844136047741577*^9}, CellLabel->"Out[18]=",ExpressionUUID->"4344f182-cac0-40ef-9167-1216ed9218e0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogPlot", "[", RowBox[{"Abs", "@", RowBox[{"{", RowBox[{"\[CapitalPhi]s", ",", "test3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.843988413412496*^9, 3.843988447309177*^9}}, CellLabel-> "In[543]:=",ExpressionUUID->"340432fd-b01b-4746-840a-e312eec4ade0"], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{3., -2.199250858729474}, {3., -2.1992508587114377`}}], LineBox[{{3., -2.1992508587114377`}, {3., -2.199250858693401}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{4., -4.108835370274531}, {4., -4.108835369665774}}], LineBox[{{4., -4.108835369665774}, {4., -4.108835369057016}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{5., -8.23957016697712}, {5., -8.239569788186014}}], LineBox[{{5., -8.239569788186014}, {5., -8.23956940939505}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{6., -7.57318515764723}, {6., -7.573184963114589}}], LineBox[{{6., -7.573184963114589}, {6., -7.573184768581987}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{7., -8.473827235511466}, {7., -8.473822447718424}}], LineBox[{{7., -8.473822447718424}, {7., -8.473817659948304}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{8., -10.012900713523315`}, {8., -10.012878401308493`}}], LineBox[{{8., -10.012878401308493`}, {8., -10.012856089591494`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{9., -14.959957382976183`}, {9., -14.9568216011655}}], LineBox[{{9., -14.9568216011655}, {9., -14.953695621752207`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{10., -12.356895535264757`}, {10., -12.354572653848617`}}], LineBox[{{10., -12.354572653848617`}, {10., -12.352255155708255`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{11., -13.13241371325783}, {11., -13.127375919227873`}}], LineBox[{{11., -13.127375919227873`}, {11., -13.122363377404328`}}]}}, Antialiasing->False]}}, { {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{3., -2.199250858693401}, Offset[{3, 0}, {3., -2.199250858693401}]}, {{ 3., -2.199250858693401}, Offset[{-3, 0}, {3., -2.199250858693401}]}, {{ 3., -2.199250858729474}, Offset[{3, 0}, {3., -2.199250858729474}]}, {{ 3., -2.199250858729474}, Offset[{-3, 0}, {3., -2.199250858729474}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{4., -4.108835369057016}, Offset[{3, 0}, {4., -4.108835369057016}]}, {{ 4., -4.108835369057016}, Offset[{-3, 0}, {4., -4.108835369057016}]}, {{ 4., -4.108835370274531}, Offset[{3, 0}, {4., -4.108835370274531}]}, {{ 4., -4.108835370274531}, Offset[{-3, 0}, {4., -4.108835370274531}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{5., -8.23956940939505}, Offset[{3, 0}, {5., -8.23956940939505}]}, {{ 5., -8.23956940939505}, Offset[{-3, 0}, {5., -8.23956940939505}]}, {{ 5., -8.23957016697712}, Offset[{3, 0}, {5., -8.23957016697712}]}, {{ 5., -8.23957016697712}, Offset[{-3, 0}, {5., -8.23957016697712}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{6., -7.573184768581987}, Offset[{3, 0}, {6., -7.573184768581987}]}, {{ 6., -7.573184768581987}, Offset[{-3, 0}, {6., -7.573184768581987}]}, {{ 6., -7.57318515764723}, Offset[{3, 0}, {6., -7.57318515764723}]}, {{ 6., -7.57318515764723}, Offset[{-3, 0}, {6., -7.57318515764723}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{7., -8.473817659948304}, Offset[{3, 0}, {7., -8.473817659948304}]}, {{ 7., -8.473817659948304}, Offset[{-3, 0}, {7., -8.473817659948304}]}, {{ 7., -8.473827235511466}, Offset[{3, 0}, {7., -8.473827235511466}]}, {{ 7., -8.473827235511466}, Offset[{-3, 0}, {7., -8.473827235511466}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{8., -10.012856089591494`}, Offset[{3, 0}, {8., -10.012856089591494`}]}, {{ 8., -10.012856089591494`}, Offset[{-3, 0}, {8., -10.012856089591494`}]}, {{ 8., -10.012900713523315`}, Offset[{3, 0}, {8., -10.012900713523315`}]}, {{ 8., -10.012900713523315`}, Offset[{-3, 0}, {8., -10.012900713523315`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{9., -14.953695621752207`}, Offset[{3, 0}, {9., -14.953695621752207`}]}, {{ 9., -14.953695621752207`}, Offset[{-3, 0}, {9., -14.953695621752207`}]}, {{ 9., -14.959957382976183`}, Offset[{3, 0}, {9., -14.959957382976183`}]}, {{ 9., -14.959957382976183`}, Offset[{-3, 0}, {9., -14.959957382976183`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{10., -12.352255155708255`}, Offset[{3, 0}, {10., -12.352255155708255`}]}, {{ 10., -12.352255155708255`}, Offset[{-3, 0}, {10., -12.352255155708255`}]}, {{ 10., -12.356895535264757`}, Offset[{3, 0}, {10., -12.356895535264757`}]}, {{ 10., -12.356895535264757`}, Offset[{-3, 0}, {10., -12.356895535264757`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{11., -13.122363377404328`}, Offset[{3, 0}, {11., -13.122363377404328`}]}, {{ 11., -13.122363377404328`}, Offset[{-3, 0}, {11., -13.122363377404328`}]}, {{ 11., -13.13241371325783}, Offset[{3, 0}, {11., -13.13241371325783}]}, {{ 11., -13.13241371325783}, Offset[{-3, 0}, {11., -13.13241371325783}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 0.1804309238382727}, {2., -1.1431595731895612`}, { 3., -2.1992508587114377`}, {4., -4.108835369665774}, { 5., -8.239569788186014}, {6., -7.573184963114589}, { 7., -8.473822447718424}, {8., -10.012878401308493`}, { 9., -14.9568216011655}, {10., -12.354572653848617`}, { 11., -13.127375919227873`}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 0.1804309238382727}, {2., -1.1403528622278423`}, { 3., -1.820668971036842}, {4., -4.133537515955844}, { 5., -8.132076893111675}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., -16.144778690140278`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, PlotRange->{{0., 11.}, {-16.144778690140278`, 0.1804309238382727}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->FrontEndValueCache[{Automatic, Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-16.11809565095832, FormBox[ TemplateBox[{"10", RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {-11.512925464970229`, FormBox[ TemplateBox[{"10", RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {-6.907755278982137, FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-2.3025850929940455`, FormBox[ TagBox[ InterpretationBox[ StyleBox["\"0.100\"", ShowStringCharacters -> False], 0.1, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}}, {-13.815510557964274`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-9.210340371976182, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-4.605170185988091, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.302585092994046, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.70805020110221, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.995732273553991, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 3.2188758248682006`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]]], "Output", CellChangeTimes->{{3.843988443432851*^9, 3.8439884476409197`*^9}, 3.843989188061303*^9, 3.8440022072596407`*^9}, CellLabel-> "Out[543]=",ExpressionUUID->"0fe99cd0-b508-4c82-8cb5-d58d82b4dd4e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"test3", "[", RowBox[{"[", "3", "]"}], "]"}]], "Input", CellChangeTimes->{{3.844008673952516*^9, 3.844008699430373*^9}, { 3.8440088366669893`*^9, 3.844008836896523*^9}}, CellLabel-> "In[557]:=",ExpressionUUID->"33938e6c-adaa-464a-9564-ced71dd22d4e"], Cell[BoxData[ RowBox[{"-", "0.1619173966462644`"}]], "Output", CellChangeTimes->{{3.844008676721615*^9, 3.844008699891857*^9}, 3.844008837369658*^9}, CellLabel-> "Out[557]=",ExpressionUUID->"321f4d39-6591-48a7-9389-9935b198b499"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", "\[Theta]", "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"h0", " ", RowBox[{"hCas", "[", "\[Theta]", "]"}]}], ")"}], RowBox[{ RowBox[{"-", "1"}], "/", RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}], ",", RowBox[{"test", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0.5", ",", "1.1"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "GoldenRatio"}]}], ",", RowBox[{"WorkingPrecision", "\[Rule]", "30"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"test3", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{ RowBox[{"test3", "[", RowBox[{"[", "2", "]"}], "]"}], "x"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.844002027467222*^9, 3.844002116527075*^9}, { 3.8440022182075043`*^9, 3.8440023011426783`*^9}, {3.844008619185902*^9, 3.844008658160707*^9}, {3.8440087871730633`*^9, 3.844008812945347*^9}, { 3.8440088560827703`*^9, 3.844008884537188*^9}}, CellLabel-> "In[560]:=",ExpressionUUID->"5ed4b47f-e272-40ab-8c23-58385be3e0c6"], Cell[BoxData[ TemplateBox[{ "ParametricPlot", "precw", "\"The precision of the argument function (\\!\\(\\*RowBox[{\\\"{\\\", \ RowBox[{RowBox[{RowBox[{\\\"t\\\", \\\"[\\\", \\\"\[Theta]\\\", \\\"]\\\"}], \ \\\" \\\", SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"0.27286889266851116`\ \\\", \\\" \\\", RowBox[{\\\"hCas\\\", \\\"[\\\", \\\"\[Theta]\\\", \ \\\"]\\\"}]}], \\\")\\\"}], RowBox[{\\\"-\\\", FractionBox[\\\"1\\\", \ RowBox[{\\\"\[CapitalDelta]\\\", \\\"[\\\", \\\"]\\\"}]]}]]}], \\\",\\\", \ RowBox[{RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \ FractionBox[RowBox[{SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"2\\\", \\\" \ \\\", \\\"\[Pi]\\\"}], \\\")\\\"}], RowBox[{\\\"1\\\", \\\"/\\\", \ \\\"15\\\"}]], \\\" \\\", RowBox[{\\\"Gamma\\\", \\\"[\\\", FractionBox[\\\"1\ \\\", \\\"5\\\"], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ \"3\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \ SuperscriptBox[RowBox[{\\\"Gamma\\\", \\\"[\\\", FractionBox[\\\"13\\\", \ \\\"16\\\"], \\\"]\\\"}], RowBox[{\\\"16\\\", \\\"/\\\", \\\"15\\\"}]]}], \ RowBox[{SuperscriptBox[RowBox[{\\\"Gamma\\\", \\\"[\\\", \ FractionBox[\\\"3\\\", \\\"16\\\"], \\\"]\\\"}], RowBox[{\\\"16\\\", \ \\\"/\\\", \\\"15\\\"}]], \\\" \\\", RowBox[{\\\"Gamma\\\", \\\"[\\\", \ FractionBox[\\\"8\\\", \\\"15\\\"], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Gamma\ \\\", \\\"[\\\", FractionBox[\\\"2\\\", \\\"3\\\"], \\\"]\\\"}], \\\" \\\", \ RowBox[{\\\"Gamma\\\", \\\"[\\\", FractionBox[\\\"4\\\", \\\"5\\\"], \ \\\"]\\\"}]}]]}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\ \[RightSkeleton]\\\"}], \\\",\\\", RowBox[{FractionBox[\\\"1\\\", \ \\\"24\\\"], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{FractionBox[RowBox[{\\\"\ \[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ \[RightSkeleton]\\\"}], RowBox[{\\\"8\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ \\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\ \\\", \\\"\[RightSkeleton]\\\"}]}]]], \\\"+\\\", RowBox[{\\\"12\\\", \\\" \ \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ \\\"\[RightSkeleton]\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"\ \[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ \[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ \[RightSkeleton]\\\"}]]]}], \\\")\\\"}]}]}], \\\"}\\\"}], \\\"\ \[LeftDoubleBracket]\\\", \\\"1\\\", \\\"\[RightDoubleBracket]\\\"}]}], \\\"}\ \\\"}]\\)) is less than WorkingPrecision \ (\\!\\(\\*RowBox[{\\\"30.`\\\"}]\\)).\"", 2, 560, 72, 25191839074214845445, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.844002282168264*^9, 3.84400230178336*^9}, { 3.844008654456798*^9, 3.84400865876917*^9}, {3.844008788291792*^9, 3.844008813510537*^9}, {3.844008861755539*^9, 3.844008885219948*^9}}, CellLabel-> "During evaluation of \ In[560]:=",ExpressionUUID->"06e3abf0-2019-4c5e-99b9-d2a9da7384db"], Cell[BoxData[ TemplateBox[{ "ParametricPlot", "precw", "\"The precision of the argument function (\\!\\(\\*RowBox[{\\\"{\\\", \ RowBox[{RowBox[{RowBox[{\\\"\[Theta]\\\", \\\" \\\", RowBox[{\\\"(\\\", \ RowBox[{\\\"1\\\", \\\"-\\\", RowBox[{\\\"0.855058956315038`\\\", \\\" \\\", \ SuperscriptBox[\\\"\[Theta]\\\", \\\"2\\\"]}]}], \\\")\\\"}], \\\" \\\", \ RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"-\\\", RowBox[{\\\"0.222389`\\\", \ \\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \\\"2\\\"]}], \\\"-\\\", RowBox[{\ \\\"0.043547`\\\", \\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \\\"4\\\"]}], \ \\\"-\\\", RowBox[{\\\"0.014809`\\\", \\\" \\\", \ SuperscriptBox[\\\"\[Theta]\\\", \\\"6\\\"]}], \\\"-\\\", \ RowBox[{\\\"0.007168`\\\", \\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \ \\\"8\\\"]}]}], \\\")\\\"}]}], \\\"-\\\", \\\"0\\\"}], \\\",\\\", \ RowBox[{RowBox[{\\\"Im\\\", \\\"[\\\", RowBox[{\\\"\[Theta]\\\", \\\" \\\", \ RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"-\\\", RowBox[{RowBox[{\\\"\ \[LeftSkeleton]\\\", \\\"18\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \ SuperscriptBox[\\\"\[Theta]\\\", \\\"2\\\"]}]}], \\\")\\\"}], \\\" \\\", \ RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"-\\\", RowBox[{\\\"0.222389`\\\", \ \\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \\\"2\\\"]}], \\\"-\\\", RowBox[{\ \\\"0.043547`\\\", \\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \\\"4\\\"]}], \ \\\"-\\\", RowBox[{\\\"0.014809`\\\", \\\" \\\", \ SuperscriptBox[\\\"\[Theta]\\\", \\\"6\\\"]}], \\\"-\\\", \ RowBox[{\\\"0.007168`\\\", \\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \ \\\"8\\\"]}]}], \\\")\\\"}]}], \\\"]\\\"}], \\\"-\\\", \\\"0\\\"}]}], \\\"}\\\ \"}]\\)) is less than WorkingPrecision \ (\\!\\(\\*RowBox[{\\\"30.`\\\"}]\\)).\"", 2, 560, 73, 25191839074214845445, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.844002282168264*^9, 3.84400230178336*^9}, { 3.844008654456798*^9, 3.84400865876917*^9}, {3.844008788291792*^9, 3.844008813510537*^9}, {3.844008861755539*^9, 3.844008885446347*^9}}, CellLabel-> "During evaluation of \ In[560]:=",ExpressionUUID->"465d3232-1f00-42ad-89f9-f7dbe9649552"], Cell[BoxData[ TemplateBox[{ "ParametricPlot", "precw", "\"The precision of the argument function (\\!\\(\\*RowBox[{\\\"{\\\", \ RowBox[{\\\"True\\\", \\\",\\\", RowBox[{RowBox[{\\\"Re\\\", \\\"[\\\", \ RowBox[{\\\"\[Theta]\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\ \"-\\\", RowBox[{\\\"0.855058956315038`\\\", \\\" \\\", SuperscriptBox[\\\"\ \[Theta]\\\", \\\"2\\\"]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ RowBox[{\\\"1\\\", \\\"-\\\", RowBox[{\\\"0.222389`\\\", \\\" \\\", \ SuperscriptBox[\\\"\[Theta]\\\", \\\"2\\\"]}], \\\"-\\\", \ RowBox[{\\\"0.043547`\\\", \\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \ \\\"4\\\"]}], \\\"-\\\", RowBox[{\\\"0.014809`\\\", \\\" \\\", \ SuperscriptBox[\\\"\[Theta]\\\", \\\"6\\\"]}], \\\"-\\\", \ RowBox[{\\\"0.007168`\\\", \\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \ \\\"8\\\"]}]}], \\\")\\\"}]}], \\\"]\\\"}], \\\"\[LessEqual]\\\", \ \\\"0\\\"}]}], \\\"}\\\"}]\\)) is less than WorkingPrecision \ (\\!\\(\\*RowBox[{\\\"30.`\\\"}]\\)).\"", 2, 560, 74, 25191839074214845445, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.844002282168264*^9, 3.84400230178336*^9}, { 3.844008654456798*^9, 3.84400865876917*^9}, {3.844008788291792*^9, 3.844008813510537*^9}, {3.844008861755539*^9, 3.844008885561537*^9}}, CellLabel-> "During evaluation of \ In[560]:=",ExpressionUUID->"51fecbe8-1bd4-4ff4-b67b-93b66d40b947"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"ParametricPlot\\\", \ \\\"::\\\", \\\"precw\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 560, 75, 25191839074214845445, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.844002282168264*^9, 3.84400230178336*^9}, { 3.844008654456798*^9, 3.84400865876917*^9}, {3.844008788291792*^9, 3.844008813510537*^9}, {3.844008861755539*^9, 3.844008885600465*^9}}, CellLabel-> "During evaluation of \ In[560]:=",ExpressionUUID->"4e40cd38-d9b9-4ca7-8ccd-de1b917cec88"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], FaceForm[Opacity[0.3]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQ/d/R3j8hkeWA2TXu6lean/cXl/3MZ9RD8E/dqf0g 8ZsZzne8uOmUUR+CP5tdusxAC8FvZzzzvuskE5z/MZr1q3gSgh/er3F5AxOC b5u67GHcHEY4vyGIf89lCwTfZ9qTt4vuMMD5R3ZfvW5VieB7zE5bdE4GwU+a lhd3reX/fhh/VZSq4N0D/+B8/gofvbucCH7OucM5DM5/4fxzGeEuL+v+wPke MTxNb4/9hvNXLM2+c+LvLzhfs18mRdsBwb9XothuVvATzj+6MkWDbeEPOP/D hzkF/Xe+w/nrnHuONTMj+I+7L8fVmnyD87N2GXhfTPkK529YzpZWXfsFzt/Y K80pN/8znM/5dfkEhmWf4Hzrnc4rGFZ8hPMlZRUqUzd+gPOzvdo86o3fw/lB ASUrb/O9hfMTmewaRW+8QugXM1or6f0Czp+2cMOe/fufIvyXxaTQeOwRnO9b ynh7c+N9OP8pX2vWUuabcH7dNbdHa3Uuwvlfqm3Vp588COfXbkkosbgx3R7G /ymtl74x4TScH/Fiwm/f3bfh/Ef77/lH3HgO579ZIb9+/qJPcH7epYjl6dv+ wvlef72mhUWwOMD4kXZeJbv4BeB884Y1v0qmGMD5vLXvOCV+WcL5AODCvec= "]]}, Annotation[#, "Charting`Private`Tag$11036414#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAfedN8v//E8Ab4srMv14GwOZ7FvXb /BPAgaQouL1cBsBOEN/3t/kTwOdmhqO7WgbAIDlw/W/zE8C060F6t1YGwMKK kgjg5hPATPW4J69OBsAILtcewM0TwH0Ip4KePgbAlHRgS4CbE8DgLoM4fR4G wKsBc6QANxPApXs7pDreBcAFZUcyGV0SwH4j/wPmUgXAE9jFbKKREcA84s8W zdAEwFLDmmMpyhDAql8aeUFRBMB77z1skOMPwGjrt2PmxgPAuHeaaq9PDsAJ jmIBx0UDwE6SVSD+mQzA+j5gJ9i5AsBHnb1OSOwKwJyu15x2MALApsd51nNb CcAhNVzFULABwF6ElBXPqAfA9skzdlslAcB+YAOuCxMGwK51GNqhowDAAC0f v0OFBMAX4HaNdSQAwNqLmYer1QLAoLFQkvM0/78cCmip9EIBwNnQzW9zM/6/ azUqBdsc/7+wDPFdVBz9v2M33qjDw/u/6sUH608K/L8qeDr/bqT4v+ysON7C Cvu/od1TxHlB9b+LsA/ilvX5v+eBFTxHGPK/8OEATOLy+L+6lShF6Fbtv/Uv mMaO2ve/MOnZ9C+d5r9d+yLgVcf2v0S62wn9VuC/i/THX5TG9b9wqa/4ERPT v1gKE/AzsPS/VmYjodJ8ub/rTXjmSqzzv8fM2YozU7g/4g7Re3yt8r86LcGy UJfTP3fszyEPmfG/AnYV3GQZ4D/T9+gtGZfwvwcMUIFi7uY/mj9QlQj/7r+D 4NZDcqPtP1aKtQwU2uy/sJuGUH7y8T+fME9QDtrqv2+iZBDkVvU/JBA1tcqu 6L9eapodh4H4PzdLT+Z1qOa/iVF2OTOc+z8RgVBVVqzkvwQUleZ/+v4/J/Cd 5fiE4r/Xy4XwhA8BQMy6H0KKguC/VXtiNprDAkBYfdt/u6ncv2wL6yLOWgRA MDzgE0CY2L8fq8aWBuoFQJzwsiMvm9S/e7hDUw+bB0B+Fx52okfQv3CmbLY2 LwlA8OrjweZ7yL8MAjdiLuUKQMAXeTkid7+/RW1UlSqTDEDAX8S8QZCsvxi5 HW9FJA5AALsdsaH2ez+ScoiRMNcPQEAdJArkILM/UoZPLZ22EEA4wcnLc63B PypbhFWkfRFAuIjlmqChyT/W5gmik1USQJw1aHJiIdE/zmLlQRIfE0DI7/T+ FijVP+EEp/iVIhNAiP0wTRE61T/0pmivGSYTQEQLbZsLTNU/GevrHCEtE0C8 JuU3AHDVP2Rz8vcvOxNAtF3VcOm31T/6g/+tTVcTQKDLteK7R9Y/JqUZGomP E0B4p3bGYGfXPzlH29AMkxNAOLWyFFt51z9M6ZyHkJYTQPjC7mJVi9c/cS0g 9ZedE0Bw3mb/Sa/XP7y1JtCmqxNAaBVXODP31z9SxjOGxMcTQFSDN6oFh9g/ ZWj1PEjLE0AQkXP4/5jYP3gKt/PLzhNA0J6vRvqq2D+dTjph09UTQEi6J+Pu ztg/6NZAPOLjE0BA8Rcc2BbZP/p4AvNl5xNA+P5TatIo2T8NG8Sp6eoTQLgM kLjMOtk/Ml9HF/HxE0AwKAhVwV7ZP0UBCc509RNA8DVEo7tw2T9Yo8qE+PgT QLBDgPG1gtk/akWMO3z8E0BoUbw/sJTZP33nTfL//xNAKF/4jaqm2T9k1W0e "]]}, Annotation[#, "Charting`Private`Tag$11036459#1"]& ]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> None}, PlotRange->{{-2.5475469771556614`, 2.397971707596225}, {-2.3954667675959866`, 0.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.05], Scaled[0.05]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.844002029951742*^9, 3.844002046304583*^9}, { 3.844002077607532*^9, 3.8440021181802073`*^9}, {3.844002244866061*^9, 3.8440023024367*^9}, {3.844008654971917*^9, 3.844008659369892*^9}, { 3.8440087889038982`*^9, 3.844008814185492*^9}, {3.844008862476318*^9, 3.844008885944442*^9}}, CellLabel-> "Out[560]=",ExpressionUUID->"02496185-9d40-4431-9ca9-6085c166d125"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalPhi]s", "[", RowBox[{"[", "4", "]"}], "]"}]], "Input", CellChangeTimes->{{3.843988288620174*^9, 3.8439882922229843`*^9}}, CellLabel-> "In[517]:=",ExpressionUUID->"eb2501cb-e52c-43ae-bbbf-2c91bfb69b81"], Cell[BoxData[ InterpretationBox[ TemplateBox[{"0.0164268946", "50", "10"}, "AroundSeq"], Around[0.01642689465, 1.*^-11]]], "Output", CellChangeTimes->{3.8439882924586763`*^9}, CellLabel-> "Out[517]=",ExpressionUUID->"ddfad34c-6774-4ef8-b8bc-c5de09b41700"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"totCas", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ds", "=", RowBox[{ RowBox[{ RowBox[{"invDerivativeList", "[", RowBox[{"totCas", "+", "1"}], "]"}], "[", RowBox[{"\[Theta]", "\[Function]", FractionBox[ RowBox[{"h0", " ", RowBox[{"hCas", "[", "\[Theta]", "]"}]}], SuperscriptBox[ RowBox[{"t", "[", "\[Theta]", "]"}], RowBox[{"\[CapitalDelta]", "[", "2", "]"}]]]}], "]"}], "[", "\[Theta]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dMs", "=", RowBox[{"m0", " ", RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"#", ",", "\[Theta]"}], "]"}], "&"}], ",", FractionBox["\[Theta]", SuperscriptBox[ RowBox[{"t", "[", "\[Theta]", "]"}], RowBox[{"\[Beta]", "[", "]"}]]], ",", "totCas"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"datCasM", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"dMs", "[", RowBox[{"[", RowBox[{"k", "+", "1"}], "]"}], "]"}], RowBox[{"BellY", "[", RowBox[{"n", ",", "k", ",", RowBox[{"ds", "[", RowBox[{"[", RowBox[{";;", RowBox[{"n", "-", "k", "+", "1"}]}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "totCas"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.836976284774213*^9, 3.8369763107653933`*^9}, { 3.8369763440621157`*^9, 3.836976643043976*^9}, {3.8369766791263657`*^9, 3.836976702020906*^9}, {3.8369833396004457`*^9, 3.8369833834965153`*^9}, { 3.836983426425185*^9, 3.836983501138253*^9}, {3.8369836692218637`*^9, 3.836983678733614*^9}, {3.836983808464398*^9, 3.8369838086001043`*^9}, { 3.8369839370347757`*^9, 3.836983937122395*^9}, {3.836983969035384*^9, 3.836983979299178*^9}, {3.836984097325984*^9, 3.8369840974613132`*^9}, { 3.836984339450017*^9, 3.8369843561781673`*^9}, {3.836984934917253*^9, 3.836984935916635*^9}, {3.8369856092092857`*^9, 3.836985626001013*^9}, { 3.836985701651613*^9, 3.836985833037245*^9}, {3.836985978736498*^9, 3.836985996927923*^9}, {3.836986994292021*^9, 3.836986994346624*^9}, { 3.836987100533333*^9, 3.836987147389551*^9}, {3.836988211802526*^9, 3.8369882124812613`*^9}, {3.83698827789044*^9, 3.836988278050117*^9}, { 3.836991140640276*^9, 3.836991156327482*^9}, {3.837070011059902*^9, 3.8370700129717007`*^9}, {3.837070292889572*^9, 3.8370702929846687`*^9}, { 3.8370709285346727`*^9, 3.8370709288925543`*^9}, {3.837072484698299*^9, 3.837072484992663*^9}, {3.843802126725583*^9, 3.843802127123851*^9}, { 3.8438022381502447`*^9, 3.843802268518549*^9}, {3.8438024340742607`*^9, 3.843802515907176*^9}, {3.84380268121432*^9, 3.843802684734229*^9}, 3.843802806265029*^9, {3.843802947563074*^9, 3.843802949058984*^9}, 3.843803003228539*^9, {3.843803040877533*^9, 3.843803044636691*^9}, { 3.843803094421678*^9, 3.843803146878536*^9}, {3.843803198639724*^9, 3.84380324222451*^9}, {3.8438033353723392`*^9, 3.843803345882052*^9}, { 3.8438034178358307`*^9, 3.843803431043694*^9}, {3.84380358438281*^9, 3.843803587446344*^9}, 3.843804356868655*^9, {3.843806602116267*^9, 3.843806615782628*^9}, {3.8438066706784363`*^9, 3.843806670875389*^9}, { 3.843981475606935*^9, 3.843981476287299*^9}, 3.843981654839469*^9, { 3.8439817865685596`*^9, 3.84398181233598*^9}, {3.84398192257196*^9, 3.843981925872644*^9}, {3.8439821255775642`*^9, 3.8439821258573503`*^9}, { 3.8439821771441813`*^9, 3.8439821780335617`*^9}, {3.843982433344853*^9, 3.8439824735347757`*^9}, {3.843982516777648*^9, 3.84398254141038*^9}, { 3.8439834669722652`*^9, 3.8439834695995407`*^9}, {3.843983517678876*^9, 3.8439835209625463`*^9}, {3.843984484082121*^9, 3.843984511311327*^9}, { 3.8439848890701437`*^9, 3.8439849146797533`*^9}, {3.843984993590008*^9, 3.843984993889539*^9}, {3.843985064287517*^9, 3.84398507040582*^9}, { 3.8439852967469473`*^9, 3.8439853090769577`*^9}, {3.843985419965234*^9, 3.843985436839972*^9}, {3.8439859516652393`*^9, 3.8439859894619703`*^9}, { 3.8439882228149643`*^9, 3.843988228008665*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Abs", "@", RowBox[{"datCasM", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"Evaluate", "[", RowBox[{"Abs", "[", RowBox[{ RowBox[{"m0", "/", RowBox[{"D", "[", RowBox[{ FractionBox[ RowBox[{"h0", " ", RowBox[{"hCas", "[", "\[Theta]", "]"}]}], SuperscriptBox[ RowBox[{"t", "[", "\[Theta]", "]"}], RowBox[{"\[CapitalDelta]", "[", "2", "]"}]]], ",", "\[Theta]"}], "]"}]}], RowBox[{"D", "[", RowBox[{ FractionBox["\[Theta]", SuperscriptBox[ RowBox[{"t", "[", "\[Theta]", "]"}], RowBox[{"\[Beta]", "[", "]"}]]], ",", "\[Theta]"}], "]"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "\[Theta]0Cas"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.84398190190687*^9, 3.843981915841597*^9}, { 3.8439830422597313`*^9, 3.8439830897680197`*^9}, {3.843983268657812*^9, 3.8439832894412003`*^9}}, CellLabel-> "In[230]:=",ExpressionUUID->"850f45b2-810d-4cc6-a9fa-3b038d25d4c3"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV02k4VV0bB3BlCmcrU1EaiEoqIT0I/61QekgRZSqOqUjGRIbMoogMSYRk TGZSjqJJRKTQIxVpIM7ZpZIhevf7YV3r+n251z0tGaaHqdNCLi6u1/T5/22v J/wlo+qQzi5WxiARTZCPf4TZT7DU8GA63/v/LpI3+vOApQ8Rtc4NDNq3i8Yc oo3343DwUm5B2hk6lYY3WeboGAtcwE87+JWfUpeiNVry/q7lpr1V7VrcGWM7 3OrOdZ2PIkhZrrA5Bq8D+CuYPVO0xZ45eGaznBAYvNNxgjZPmsGwsu8xVETr LhujPWmnYPFI0Q2nZOw4H2h/UWS0Wgy7o/zWtdH/aJ8I/J3la+wJq9S5RV20 Pw0e69Mu9kK8UbDRY9pHDPqX8PP6wPPAqpo7tE1EGiOusE7Bx+MJlU37qd+W Rqbkadjffv4wiTY5kD2p6OuP3JKZhnDaKoXhx+8pBqLxaJMkk3YJ4+f1mJgg rM+1Dt5Pe62308D+4WAsil/Jp0M7btWNQi/jUGzrloxcStvghY2exWwo+mbN AhbQ5o6UGNIsDsM5zzuXxiIJMmg0ejkPbwRu7+VXaaTtXnM8Po0VBW6nDlkL 2htdZDcGukZj/a4ADU3an6XePDkqGQOhS4d9V9I+ctaIS8H3HJpf1VkMRRDk /r1KPg2K53HISer5EdqMuS+Lc/47j8CZGD4t2k/Lc0ojYy6Ap1TNQZK2roTo Z+PheMxOH4x9Hk6QUp5nNnkaJyIx/uW5rbT9W3vPMG8kokrIbZiPdq+sauvB 2UT09JkwB8II8lLPmJNGcRJyVQQ6ImkL7rDNXsibDFMxX4tnoQT5h5cUTWWl wjpffIfSWYL82LA5p295Gt6Kr1b4EUKQ7V4rtiwPSENR40qJOtpZbycNs9Uu o2OK54s6bZ3aW2HFZeloetHvrRJMkGcdV3xvzLkKh1udm3+dIchjywXOcv29 irCWlj9FtPd3TTJ22WYijEm1WtNeo9W94alUFupfvT1yL4Agm8Ri7bovXcOR tnKf0/4EGWY/6+LzIAdttUuN75wiSD+tibKU7zkYC5BaYEvbddnor9o1uVg9 mVL915cgTTt6I6ZCcqFuJCi+k7asRlV28I7rGPoe8vCuN0E+WHK8L6YmD3so 3aFAD3qfm3oNMgsKYHoindQ+RpDbP2xYeK27APKX8yRaXej8eQIbs+cLUOfz TPAg7fY9q7flWRTipXWMuYszQaa+cJEp4SuCFdvIPcKRINcNT83edi5GwIzU zSQ7gjTkW1H5cl0pOk/rxPEdpvdpg/uJHtNSXNezOel3iCDL9t5f3xdSivZG a59PFgQpetHhWn9vKXZLrRhsMifI/mWl54eib+FSuK2+uxn9nxS0nanPZWjX kdPP3EeQuwvK46NeVqAtNtjYTI8gQ3Ufji8brcDtTJ/Gkl0EeXeg99+S+QqM LB04tID2JrF5gU6FSgQIrmWU6hLkklCjaMnQSqxNZvr81qHfsxwNubmpCnKW qbucNQjyJLHW80VUNcRTVOVubCbIwqLtnQ5Xq9EZJTkxuIkgB3ft3TJZUY3d j/3HpGmbnfEaXz5Qjfm+53aXNhKk+pf7xxxVauAg2WHhs54gFzbb2P9+VwMh xyX+hAxBpvmmma5Ur4MAV/6L62IEOeGc0BxhUoc313iMq0QJcp9l9NavznXQ 5NR3NokQJK+On/Dt1DqsdzIb619MkL78Fm37f9ThhERjEDeDnn+GxM7Isttg dMyIreMhSOGmFOUxuTswHs/yqfzBIKOFkpfcEWFhvO/W6o+dDDIst/7OxfUs MGz4RdueM8igf94xnbVZ0J2d3FLewSC9HBRqxY6zIHaxY8TvGYO0abhvebKJ hWbHDts/Txikitv49bUejbDj/Xj4fSODfN+mr5bQfg8r3T//4L3JIKX1/5RW PmwCLgd+eB3OIB+PaDxfdOchPiiK2yasYZC+XU+lE3Oe4N8DwUMulUIkzyZG 5SqLVvhqhypMaQmRH936dZUM2rHlQfq8aqUgeWO1reRunk54dGuqnZIVJGvP Sybs7u+C2731pr7nBcim6d0JpSbdmJ3Jdrr/ZhHZkHtAWaL0JR6MbTRU3ryI fNeQ031PvgerV6T8WOzET/L4p8eFpvei/YFDu3YaH7nipOsn/Yk+SCvrFrS0 85JWvWE6Rsf/w+TDZL6yUR4y1t9H06KlH2PvzV4whXnIwQsl23J3DsBleFtH sRQ3qbkrTp/n9lvc28PdLrd2IRmpqjftKvoe5Ibj097qC8jZtlzzWP1BXNh8 YUGvGhe56Yow19Ffg0gPzJzuC5/HkfrO2qbcIeRcJuRGsv/gRmL11wc2H/Bd +brcZNIMhqN4vhsIDaPp65XhfwunsH2bv5/b02H81HcZE0ybRJwqyS8d/hGN Q3Oawck/0Wty6vg+pU9wrpia3393AtvlO/bKjH2Ccn6U5dKH35Cw7NLcqYzP 2FMY7ck/wcaI1c0GC4MveJb0+Aoz7issDn2Z6uMawZ2N1GPH2c9geSbyvykb gdArFUuRzmFs32WTGuI2ihWynpGb4gdRpJL6M2/FV8z9Ubtq4/IG0j6yR82f fkWq0ZyXxj+9uHGie09hxBhUpdVWuYm/gFwExR2oMg6v7GJb/5RWMMNfv/JU G4fgyunQC16tyAlrzndWH8c/Pe/Ca/a1YmVo8m5TnXG80IjVJgVasTT4n/MK e8dRbOBotPvsUwicPiv62n4cpztrHkl5tIDjulhGLWkcSX2LGVxHHqPeVEmH osYRtKa00OJMMzTz9NE3MY7Z7a6ma22bwfphTd7/NQ6TN0LdPGQzmlPO7bw4 Ow4FHUc3Pr5mtPUOGSjxs2Gc9fEJT3IT3lqlmHisYkPA4q31iP19LHSYtqOM 2KhU4gRlTTcgsnoxs8+EDakGJl/Mowbw86xzuG/KhlZUxuzViw1g5Js6XTzM RqC+vcOedQ2Q+HLzuJIjG8ulvJpKze9ig9sRb49ANlbcYMVXsOph7PMwgipm 49BP0z1EaS30/FdfyC9l46aMiFrl2VpoBgemWJezMZm6Iz7IrBbrYlTzW2rY +PlepDp2tgbzGXlPsu+zcbUqWfuscQ0qHkQI7O9hI0HJsO7DVBXERfUuVnBx 8GY+5tmIewUEl+VcdubmYHTA6FGyQQW4pP9kS/Nx8Exsts9ldQXY8jUV54Q4 aDecEV2WV44nGnLddks5iF42ejDKowyn7XkkRDbR8dr/Oz+9rBT9FY8yvA5x oHBh8vTSokLUkCvlmVYcDB6UMFU5UoiLXafKTW05EFNnMqvFC6H3bd0jVQcO FL3Euj+FF6BMKZb96yQHlukSdUsc8xFeZkyeieYgo/7i63yNPCiW9n4Kr+VA qHKufpvzNfBpKXn61HNQ+qi21X08C4PPYmYcGjjYbnrXNdgnC2lj6ov1mzmQ +35vpWxkJrgUr6rzd3Bw4lvi0/jyDLwqPnr+/EcOhLlq9lgoXUZQ4cjWFDEK 8/dCetR7E9E2Fv3AdCkFPduBOPeQREhtlT8oIkXBz7Psrdv6RNTV259OWEWh w2rxz4TfCaBa+xvPKVBY1zJUKGZzAczx9r3BoGBss297gHcMKra6DezYScE/ XS/y2kA0/voKnJzRo5BGfhV33RONzDn9pNN7KbxVvxEyLReFXuH7fV7mFFwW LvKWmQiHoXKlo7MbhXaF5TffNgQj/ZTJpNxJCrxTtrGWT4Lw+Q47ZtiTAqul T8z8VSDCd268aedH4RffUHb/TABYZnnfrcIohGr/eyDJ2w+C6boRUpEUZvQ/ 1gReOQXLgffir6MpiNzKdOV/5ItJR2l18wsUjNYc/ioh54OtfqkhJpcp3LU+ aJu1xBMhd1WXCGdQiBoq3IqSk+iYf5Hbnkmhb6yH+42mO1xjhB8bXqcgU3Zr o6CPK/LSY4T0blFoiVvE3UA6YWJAPmthBYW8ELl94/yOIGUebWmuovAsk09L vo+JgWIuU516CnHhEaIT8XZY2hCQrv6QguGmEtaie4dRtF/favQxhUR/e+3g fgvs+LxEOuMp3e/KAlYqvznsRIqyZzso/J6aqvJLOYCJAh/70i4K8qsELpmO miBKC2ttX1JAONlb3G6EEpfegnuv6XiNztPK8wbQmss95vGG7s/1Ovuzxnro vOS+cc07CtZnRhxmm3XB3KAx3jVIYdTSS6u8Xgc/G3nKwoYpSPtu3lepqYlo sy4Plc8UtO4yJquFtkNy9Kry8AgFqW++bgWbVVAS4vIjeYyC2G92T5D+ZmiL q9bqcSh8OFbZJvlmHbqK5/1+faPgflg4VkVWBky0qRf8oOt3P6BgpieJn69S ZywmKWw7XmW4PGkxol3tWfzTFAoXfpTyfrkAklybQ+pnKZgLPspXsuHoNN7/ 0rFpjkJW/qK/QVZvdf4H+hRMtw== "]], LineBox[CompressedData[" 1:eJwVkWs01HkAht2lixrKdJH7pbDCRii9tcxEtA0p09rcUq5NDCVLNQqnUqZF LqXQjJRacpuxql1GLtHZ6pwJbYk21rJGv3+KZrbNzn54z/P1Pc9jGnE44ICa ioqKn3L/09RkYUmMKsHvstdGR4MGNyuO5JsXahCYtdZlRvcuxMMtqZlTmgQD 1l/JuvMNcGFB6ChTm0DvjEaT1NwEe/q8mGXzCBr/Ehg/EFnCpMKmalaHwD+S I5AobDEet2QeawEBreLbL+JkR9S7zETfXEiA4Fj6zc3OSFN99UhFl2C8rEO7 n+0Gr8dtNnsXE8hvpaWsb/NAf/iFSR09ghscoai6xRPldkk7IvQJ1PPahhUh TMTOsmtalhLkBWtLNlj74PN5i4Q4OkHrH8uhbroTHUHzn7UvJxDxS51a1vgj 14w4Gq4kCKoIde55FgDT5nvTjw0JaiptJ07v3gPm24AUezOCIkd27pXVIVhc 4zqQbU7w2uYXWdCqMAwcM3IbsiBo0W+XZ68LR5zuhIJvTSAT99ZmcfbjolvG CcqOYG9Hl44uIxp7NaKGfOyVfhJK/drOx8Dsid+W6+sIfj10sob/MhaNkcvV djkR+M6Zz3nmHsILfm1W4waC5z+rsLYJErG0PN/axk3pz8lX3z2JC9bdlEdl 7gRTrbnGq7clofMpFuV4EKRaBcsKFclopD0tCPckSOxsUS/mHwM/nwh0dxLs O1N61cqFhx6BlJHJIijL61GsuM+DVmPzmNyfoEInP0bqmYF0Kc92NJBgv8tw aAH7FGKX0RrufafsEbcr4XNhJhhFjpLogwQTXc+vxx84C17VssjXUQTsgnih WOsc7ovlmoExyr4sB2nlrXNwGmjzQTzBTILP2P4POTBZEfBsGZfgzbuoKMer ufjnMndYcpzAdbSzfdPqPNRda/hieIngygWd53O+xbA66y5MLSSgr/LsotcU ozSpzaeviGB7RIbNkyUlyPZ+UsC/TBCoayZfMVCC799P2KiVE3zd/GpkMecK tJhmQWPVBLE7bxSqiq8hWHaxtq6VYFqQ7lr16jqe9tN360oISDbnoQVdAKbk miK2XfnPjlc37i+AQ9EdhkUnQeifNfe8uwXQ2tr9srCXQMf+0KfAZiHuFsxp p/cR3JZddeBW3oDmJk4Yc5Lg7/e7B+3qq/FmxiqvV0awkss7Ov25Gg/qhtpZ 75R99Bxp871v44i1v3Xwe4J1W3nGVkO3Maq3furwJ6VvuU86jfYTOsblaSUa FKqkBsPJp2uRVZRVNGlIQS/iY9hGVj3CAzY/SjSicHNfuT/7h3p4LJpVzBhT EEQ87i4W1uPjqegQVXMK5c4Rbafl9TjA8bU0WEuBVSky+iJsAINBa4AzBffj U4MH1ZpgqtIz8tCFwmGplHHHvgn/tpwy2O5KIaTbgq4f3IQmhw+pgRspJO/6 kODV2ARLw/4tMVsppOWsCXeKFkG1n8+d+oZCAa8r6eQlEQZ/9BYmeVGwzLEd m5SIcEm7RfvENgovMRu/xkiMRAnXTd2Hwq2RFx4zvmLsOG4bd2Y7hY3rUybf poqx1nWkdJEfhfPldmyqSgzN6dLf8nZQSFgSGWbUJ8Z/lvpQFA== "]]}, Annotation[#, "Charting`Private`Tag$9647087#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV03c4lo0XB3BlhedWVlEaRCWkSCF87wrFS4qojOKxioRIysiWyigjiZDM ZGSWx4oSkVLolYo0zOd+o2REv/v3x7nO9fnrnOsMKaabicNiDg6Od3T8P9vq CH5PfnhEey8ruZ8IJ8ink0G2EyxVNM5knf2/c2UN/zxh6WKZascmBu3K3FG7 cKODOOq/nJOfdrJ2if59lhnaR30X8dL2f+ut9EreEs2Zf9dz0t6qeufKRSMb POjMcF4II0hpjqB5Brcd+IqZXdO0RV7YuaexHODrv8d+gjZXot7gNq+TKArf vWKU9pSNnHmTvAvOSdmwP9P+Ls9oMR90RdGDO8P/0j7t+zvVy8gdFgnzS17R /tp/skcrzwNRhv6GT2kf1+tdxsvtCfdDa8oe0TYWqgm5xToHT7dnVBrt595b apji52Fb+bLxOm2yL21K3ssHd/Nnq4NpK+cEn6qV90XNiXpxJu18xs+7ERF+ 2JRh6X+Q9vqzDn0HB/2xJGo1jzbtK2vu5XgYBUK1Uzx0OW2911Y65nOB6Joz vbCINmeo2IBGXhAi3R/dGA0lSL/h8JVc3CGoNOBVrqHtWnYqKpEVBk6Hdmlz 2pudpDf7Oodj494L6hq0v0m8f3ZCPAICN456raZ9/JIhh5zXZTx5W2E+EEKQ Bw2UPKvlr+Kog8TL47QZ89+Xpv97FRdnI3g0aT8vSi8IjbgG7gJVO3Hau8WE vxkNRuHPzOHIl8EEKeF+UcHdKBaxUW8ub6Xt09J9kXkvFqUCLoM8tLulVVoO z8XibY8xsy+IIG90jTqo511HhjJfeyht/l3WaYu542Ai4mX+IpAg/3CTwgms BFhlie5SukSQX6oV03tWJuKj6Fq5yQCCbPNYtWXlhUTk1qwWq6Cd+mFKP031 Jl5Oc31Xo61d/iAorzAJda97zyr7E+Ql+1U/atJvw/5Bh+KviwR5ciXfJY6/ txHU3Pwnl/bBV1OMvdYpCGRSLZa012l2bnoukYrKtx+O114gyHqRSJvOG3dw vLXI87wPQQbZzjl5PklHc/lyo0fnCNJbc6Iw/kc6Ri5ILLKm7bxi+Ff5ugys mYov/etFkCbt3SHTARlQN+QX3UNbWv1hmv+uu/j8I6Dx8VmCfLLsVE9EWSb2 U7sHfN3oe67v1kvJzobJ6SRS6yRB7vi8afGdzmzI3swUa3Gi++fyrUlbyEal 5wv+w7Tb9q/dnmmegzeWEWZOjgSZ8NpJKp8nFxbjhq4h9gS5YXB6rtIxDxdm Je5ftyFIfZ5VJW82FOD1ee0rPEfpe9rkerrLpAAZOlZnvI8QZKFB3caegAK0 1lh6fjUnSOEYuzu93QXQk1jVX29GkL0rCq4OhD/AjWBrXVdT+p/ktBypb4Vo 15bRTTlAkPuyi6LC3hSjNdLfyFSHIAN3N46tGC5GZYpnTf5egnzc1/1P/kIx vi/vO7KItoLIAl+HXAl8+NczCnYT5LJAw3DxwBLIxDE9f2vT9Y4NB9xXeAjZ Ywl7HdUJ8gyx3v11WClE41Vk7ikSZE7ujg6726XoCBOf6FcgyP69Blumikux 76nPqCRt04seYyv7SrHQ89LmxmaCVPted9JeuQx24u3mnhsJcnGDle3vj2UQ sF/mQ0gRZKJXoslqtQrwc2S9vitCkBOO0Q0hxhXou8Nl9FCYIA8cC9864liB XeyqjnohguTW9hasTKjARgfT0d6lBOnFa956cLICp8Vq/DgZ9P6TxfaEFlaC 0T4rsoGLIAXr47eNyjyC8ViqZ8kkgwwXiFv2SIiF8Z4Ha790MMigjKpHMRtZ IKx4hVtfMki/nR+ZjloskHNTW4raGaSHnVy5yCkWRGPah7xfMEir6rpjZ+pZ aLBvt/7zjEEqu4zdXe9WgxPcX45+qmGQn1p1VaPbarHa9dsk930GKan7p6Ck sR646fv5XTCDfDqk/nLJo0Z8lhe1jl7HIL1ePZeMTX8Gg0P+A04lAiSXAqNk jXkLvLQC5aY1BcgvLr27lfTaoPgkaUGlhJ+8t9ZafB9XB9w7NVTPSfOT5VfF o/f1voJL7UYTr6t8ZP3MvugC407MzqY51L1fQlZnHNomVvAGT0Y3629TXEJ+ rE7vrJXtwppV8ZNLHXhJLp+kK4FJ3Wh7YtemlchDrjrj/FV3ogeS23ZnN7dx kxbdQdqGp/7F78Y4nsJhLjLSx1PDvLkXI59MXzMFucj+a/nbM/b0wXFwe3ue BCepsfeKLlflB9Tu52yTWb+YDFXRmXEW/gRsOjVzVm0ROdeaYRap249ritcW datykAq3BDlO/OrHLd+UmZ7gBRyv6iivzxhAxk1CZijtD+7Flo48sfqMiW13 Zaauz2IwjOuHnsAg6kduDf6TM40d2328XZ4PYlLXaZQ/cQpXVEheyeAvqB2Y 1/CP+4lu43OnDih9hWPx9MLBxxPYIdtuIDX6Fduywo4tb/wP0StuzJ9L/gaD nHB33olxDFncrzbX+47W609vMa+MwPzI9+kejiE82kw9tZ/7BpZ7LO/7wiEI vFU+JtQxiB17rRICXIaxSto9VCGqH7nKCT8zV43gzx/V21ZO7yHpKX3C7PkI EgznPdR3duPe6c79OSGjUJFUXeMi+hoyIRSnr/IY3NLyrH3iW8AMfvfWXXUM fKtnAq95tCA9qCHLUW0MO7s+BpcdaMHqwLh9Jtpj6FSP1CL5WrDcf+dVOYMx 5OnZG+679Bx85y8Jv7Mdg09HWZOEWzPYzkulVK+PIbZnKYPj+FNUmShpU9QY fNcV5JhfbIBGpi56JsYwt8PZZL11A1iTlmTdrzEYvxfo5CIb0BB/eU/M3Bg2 adu78PA0oLV7QE+JdxxGqV+eccXV44NFvLHbmnHwmX+wHLKtw2K7GRvKcBwl Smy/1JlqhJYuZfYYj0OimskT0VQNXq4NdnUm49AMS567HVMNRpaJQ8zRcfjq 2trt31ANse/3TynZj2OlhEd9gdljbHI5ftbNl/Y9VlQxqwpGno0hVN44jvw0 2U8UlEPHZ+21rIJx5EsJqZZcKoeGv2+8ZdE4phJ2RfmZlmNDhEpWcxntT0Kl kXNlWEjOfJZWN46Uh3Fal4zKUPwkhO9g1ziilfQrPk8/hKiwTkwxBxt9CxEv hlyLwb8i/aYjJxtDfYZNcXrF4JD8kybJw0abyFyP09pijMuWFV8WYOOF/qzw iswiPFOX6bRZzkb4iuHDYW6FOG/LJSakwEZv279XZ1YUoLe4KdnjCBubr02d X56bgzJytSzTgo2Bw2ImysdzEPPqXJGJNRuiakxmqWgOdP7b0KRix4a8h0jn 1+BsFCpFjv86w4ZFkljFMvssBBcakRfD2bhVFfMuSz0T8gXdX4PL2eAvma/a 7ngHPJpK7p5VbNxvKm9xHUtF/4uIWbtqNnaaPHb290xF4qjaUt0GNjb8qF0t HZoCDvnbarztbJz+L/Z5VFEy3uaduHr1CxuCHGX7zZVuwi9naGu8CIX52oAu te5YtI6GPzFZTkHHuu+Ka0AsJLbKHhaSoODtXvjBZWMsKqpsz0evofDSYunP 6N/RoFp6ay7LUdjYPJAjYnUNzLE2A39QMLI6sOPC2QgUb3Xp27WHwvkkndA7 feH468V3ZlaHQiI5Iuq8Pxwp87rXzxtQ6FO7FzAjE4ZuwboeDzMKTouXnJWa CIb+thJ7RxcKbXIr73+o9kfSOeMpmTMUeKatI48988O3R+MRg+4UWM09ImZv fRG8Z/N9G28Kv3gG0npnL4BlmvnDIohCoNY/h66f9QZ/0u4QiVAKc7pfynxv ncOxvk+i78IpCD1IceZt8sKUvaSa2TUK/6w7OiIm44mt3gkBxjcpPLY8bJ26 zB0Bj1WWCSZTiBjI2Yr8M2hfeJ3RlkKhe7SL872GK5wjBJ/q36WwrvDBZn5P Z2QmRQjoPKDQfGUJZzXpgIk+2dTFxRQyA2QOjPHag5Rq2tLwkEJrCo+mbA8T fXkcJtpVFK4EhwhPRNlgefWFJLVGCvsV8llLao8i96CuxfBTCrE+tlr+vebY 9W2ZZPJzet4l2awEXjPYCOWmzbVTmJ6efugdfwgT2Z62Ba8oyK7hu2EybIww Tay3fkNBO5jszmszRL5Td3btOwoxNY4z2xb0oDmfcdLtPYWZuxW2l4x00HHD dfO6jxQsLw7ZzTXsBnOT+tirfgrDxzw0i6q08bOGqzBokMIqL8UDJRoaCDd9 5ab8jYLWY8ZUqcAOiA/f3jY4REHiPy+XbEVl5Ac4TcaNUhD9Pd7lp6sILVGV ch02hYGTJa3i7zfgVd6C96//KJw5KhipLC0FJlrVsicp6LsekjPVEcfPtwmz 5lMUVE491F95fSnCnW1ZvDMUshd/kTj7ZhHEORQDquYomPE3ZSlZsbVr6r63 K8xTSM1a8tfP4oP2/wBGC0y6 "]], LineBox[CompressedData[" 1:eJwV0Xk41HkAx3G3dMhQjk3uo7DCRih9apnJRNsQmdauK+VsYijZVKPwVMq0 yFESzUipJedY1S4jR/Rs9TwT2og21maNvr8UzWybnf3j83z+f7/Mow4G7lNR UlLyV+z/NzdbWhqnTPC79KXJ4ZCRzfJDBZZFagQW7fVZsf1L8WBLetaMOsGQ 7ZfS3gJ9nF8SPsHQJKCdVmuWWJph94AP4+oigqa/BKb3W6xhVmlXPa9FEBDN EYjl9niToLOItYRAp/Kbz6JUZzS4zcXeWEqA0HiDG5tdcVR5+KGSNsHU1S7N QbYHfB512O1ZTiC7eTRtfYcXBiPPT2vpElznCFtq2rxR4ZCyI0qPQDW/Y0we xkD8PLu2bQVBfqimeIMtE5/OWSUlGBC0/2EIVfOd6ApZ/LTTkEDEL3NpWxOA PAvibPwFQUhluGvf00CYt96dfWRMUFtlP3UqeDcYrwPTHC0ISpzZeZdXh2F5 rftQjiXBS7tfpCGrIjB0xMRj1IqgTa9TlrMuEgnaU3K+LYFU1F+XzdmLCx6Z xykHgj1dPVra9FjsUYsZZToq+iSV+Xeci4PFY/8t19YR/HrgRC3/RTyaog1V drkQ+C1YLnjnHcBzfl120waCZz8rsbYJkrGiosDWzkPR28VPzzOFC9adtIdX PQlm2vNMV29LQfcTLMv1Iki3CZUWyVPRRHtSGOlNkNzdplrCPwJ+ARFo7yQI O112xcaNhz6BhJ7FIijP75Mb3eNBo6l1UhZAUKlVECfxzkSGhGc/EUSw120s vJB9EvEraY13v1V4JOxK+lSUBXqxszh2v8Kr59m1xH1nwKteGf0yhoBdmCgU aZzFPZFMPShO4ctyklTdPAuXoQ4mEgnmk5iTe9/nwswo8OlKLsGrtzExzlfy 8M8l7pj4GIH7RHfnptX5qC9v/Gx8keDyea1nC34lsDnjKUwvIjBc5d1jUFuC spQO5kCxoldUpt1jnVLk+D4u5F8iCNa2kBkNleK7d1N2KhUEX7UOjy/nXIYG wyJksoYgYef1ImVROUKlF+rq2wlmBRnu1cPX8GTQIFhbTPA2h/PAykAAhrhc Ht9JMObAq38TIIBT8W26VTdB+J+1d317BdDY2vuiqJ9Ay/HAx6BWIe4ULmhm DBDckl5x4lZdh/omTgRjmuDvd8EjDg01eDVnk98vJTDi8g7PfqrB/frRTtZb hY+uM22x7y0csg2wDX1H4LSVZ2ozegsTuutnDn5U9JYxM2i0n9D1Rna0VI1C tUR/LPVUHbKLs4unjSnoRn2I2MhqQGTg5ofJJhRufF8RwP6hAV7L5uVzphQE UY96S4QN+HAyNkzZkkKFa1THKVkD9nH8rPXXUmBVtZh8FjaCTqc1wpWC57GZ kf0qzTBX6ht/4EbhoERCv+3YjH/bTupvd6cQ1mtloBfajGan9+lBGymk7nqf 5NPUDGvjwS1xWylk5K6JdIltgfIgnzvzNYVCXk/KiYstGPnRV5jiQ8E6135y WtyCi5ptmse3URjGfOIaExGSxVwPVSaFm+PPveb8RNhxzD7h9HYKG9enTb9O F2Gt+3jZMn8KuRUObKpaBPXZst/yd1BI0omOMBkQ4T+hUlAZ "]]}, Annotation[#, "Charting`Private`Tag$9647087#2"]& ], {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 1.0814388563390904`}, {0., 3.690456156465673}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.843981903675026*^9, 3.843981928466572*^9}, 3.843982141944626*^9, 3.843982850416946*^9, {3.8439830476974277`*^9, 3.8439830909677773`*^9}, {3.843983273082198*^9, 3.843983290717602*^9}}, CellLabel-> "Out[230]=",ExpressionUUID->"664ef5af-b4d1-4773-bb48-a1fb5f99d3ea"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"2", "/", RowBox[{"\[CapitalDelta]", "[", "]"}]}], "-", RowBox[{"1", "/", RowBox[{"\[CapitalDelta]", "[", "]"}]}], "-", "1"}]], "Input", CellChangeTimes->{{3.843819126096643*^9, 3.843819132248021*^9}}, CellLabel->"In[75]:=",ExpressionUUID->"c2ec938b-df20-4457-ac8f-5fb89f93d9f3"], Cell[BoxData[ RowBox[{"-", FractionBox["7", "15"]}]], "Output", CellChangeTimes->{3.843819132484602*^9}, CellLabel->"Out[75]=",ExpressionUUID->"7a8c2bb5-90c4-4aeb-82ef-a923f5a729e3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"2", "/", RowBox[{"\[CapitalDelta]", "[", "]"}]}], "-", "1"}]], "Input", CellChangeTimes->{{3.843819136273534*^9, 3.843819141872426*^9}}, CellLabel->"In[77]:=",ExpressionUUID->"f775ff7d-d0b6-4518-90fc-dce2b496637c"], Cell[BoxData[ FractionBox["1", "15"]], "Output", CellChangeTimes->{{3.843819138334237*^9, 3.843819142061701*^9}}, CellLabel->"Out[77]=",ExpressionUUID->"60b8b008-7807-40a6-b3d9-1f2e8b589a73"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{"\[CapitalPhi]s", "[", RowBox[{"[", "1", "]"}], "]"}]}], "//", "N"}]], "Input", CellChangeTimes->{{3.843819287998005*^9, 3.843819316027919*^9}, 3.843819487895836*^9}, CellLabel->"In[81]:=",ExpressionUUID->"33e05555-1738-48c2-b7aa-e8fd44cecd72"], Cell[BoxData["1.1977333837979933`"], "Output", CellChangeTimes->{{3.843819312543305*^9, 3.8438193162340193`*^9}, 3.8438194882408333`*^9}, CellLabel->"Out[81]=",ExpressionUUID->"a53b9d58-d244-4548-8b2d-0153f5f04983"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"t", "[", "\[Theta]", "]"}], SuperscriptBox[ RowBox[{ RowBox[{"H", "[", "2", "]"}], "[", "\[Theta]", "]"}], RowBox[{"1", "/", RowBox[{"\[CapitalDelta]", "[", "]"}]}]]], ",", RowBox[{ SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{ RowBox[{"t", "[", "\[Theta]", "]"}], "/", SuperscriptBox[ RowBox[{ RowBox[{"H", "[", "2", "]"}], "[", "\[Theta]", "]"}], RowBox[{"1", "/", RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}], "]"}], RowBox[{"\[Beta]", "[", "]"}]], RowBox[{ RowBox[{ RowBox[{"dGd\[Xi]List", "[", RowBox[{ RowBox[{"NF", "[", "2", "]"}], ",", RowBox[{"H", "[", "2", "]"}]}], "]"}], "[", RowBox[{"1", ",", "\[Theta]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "//.", RowBox[{"rules", "[", RowBox[{"H", "[", "2", "]"}], "]"}]}], "/.", RowBox[{"S", "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"t", "[", "\[Theta]", "]"}], SuperscriptBox[ RowBox[{ RowBox[{"H", "[", "9", "]"}], "[", "\[Theta]", "]"}], RowBox[{"1", "/", RowBox[{"\[CapitalDelta]", "[", "]"}]}]]], ",", RowBox[{ SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{ RowBox[{"t", "[", "\[Theta]", "]"}], "/", SuperscriptBox[ RowBox[{ RowBox[{"H", "[", "9", "]"}], "[", "\[Theta]", "]"}], RowBox[{"1", "/", RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}], "]"}], RowBox[{"\[Beta]", "[", "]"}]], RowBox[{ RowBox[{ RowBox[{"dGd\[Xi]List", "[", RowBox[{ RowBox[{"NF", "[", "9", "]"}], ",", RowBox[{"H", "[", "9", "]"}]}], "]"}], "[", RowBox[{"1", ",", "\[Theta]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "//.", RowBox[{"rules", "[", RowBox[{"H", "[", "9", "]"}], "]"}]}], "/.", RowBox[{"S", "[", "9", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"(", RowBox[{ SuperscriptBox["\[Theta]", "2"], "-", "1"}], ")"}], SuperscriptBox[ RowBox[{"(", RowBox[{"h0", " ", RowBox[{"hCas", "[", "\[Theta]", "]"}]}], ")"}], RowBox[{"1", "/", RowBox[{"\[CapitalDelta]", "[", "]"}]}]]], ",", RowBox[{ RowBox[{"-", "m0"}], " ", RowBox[{"\[Theta]", "/", SuperscriptBox[ RowBox[{"(", RowBox[{"h0", " ", RowBox[{"hCas", "[", "\[Theta]", "]"}]}], ")"}], RowBox[{ RowBox[{"\[Beta]", "[", "]"}], "/", RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}]}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "1.4"}], "}"}], ",", RowBox[{"AspectRatio", "->", RowBox[{"1", "/", "GoldenRatio"}]}], ",", RowBox[{"PlotPoints", "->", "100"}]}], "]"}]], "Input", CellChangeTimes->{{3.8438198342385807`*^9, 3.843820020985083*^9}, { 3.843820064258402*^9, 3.843820168163731*^9}, {3.843820295646703*^9, 3.843820334254881*^9}, {3.843820426504457*^9, 3.8438204458005657`*^9}, { 3.843820527418583*^9, 3.843820578467298*^9}, {3.843820614988928*^9, 3.843820745632656*^9}, {3.843820778711458*^9, 3.843820779687192*^9}, { 3.8438208872181587`*^9, 3.8438208883219223`*^9}, {3.843821196664508*^9, 3.8438213596909237`*^9}}, CellLabel-> "In[134]:=",ExpressionUUID->"79242c4a-ef9e-453f-aabd-057c68f68aca"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], FaceForm[Opacity[0.3]], LineBox[CompressedData[" 1:eJwVknc4FYwfxYmIrOh2rbL3yoqUUHgjbxqXRFLKSraskMKrkowkooisyBYJ 32/IyMqIrigaNvdy7ZFfvz/Oc/44n+f8cZ4jYut2xm4bHR1d5V/930ki+Q5j hEDM1Qpq7uHYA7OTrBEl78xRkJnFuiDeHHo3AuxPXTPF3RIbvWnRdqBlxnTs 4kkjLEYbi9QANyBnDDD8LDNAFXdef4sEb3ixT6LSzuAYjuY6Or+w9Ae2ehdj /UA9bDekiKVxBEPvoam5VX5ddPEoIjy3vA0itNfuQlva6BSkTNbJCYXJTOfx OLnD2CNY8mSJGg4eWj6Vd15oYdnImwVz9bsge9fG7bnpQTxax/K278Z9COh/ 9fyjjCaO0p31/lzyADS01WsMpTTQiFilmD79EAI3OWdj9Q6gWNZ/ORAbA0Gq fFxVXupo0N1V1p0XC8HJfmvjb9UwR9EsMb0hDryHEzKIu9SwpywkTH/wEShO cGqTfVSxwsCbu3U+HgYTzabUJ1Sw7pl2meGOBJA8JU6JtlfBDp1e9kbBJzBY 8XspekYZU+3XDpnvTwR34VqPPUHKaGBpy85wLAk+nj+uylmyHx3P5FsP2iWD yY56e3rz/cioftVNwCcFrvL6Kg3+UcIjaffDUsKfgdrEzSin94r4ahv9xu30 VKB+H7h7TUkRMeJd++q5NOClpPVQXyogD13o1KVvaSDe/QbFX8rjkPqBfv3J F1C4NglN8vL41r86vtEtHZIFl036quQw5pLUXbrFdJBu+BqX91sW66vfncj8 kwF0dvmtDbdl8Zv9/Ume0JfQl5ltNC0ii1+bWy8fZc4Ep4zJggsuMhjT8/j0 b44sEHBOMFbilUF9VXL7hbgsODuccFa0URozUh0UnhKywf/s4d5CWWl065Rr cRbIARtCRSyBWwo3F5StIsVfAdRej/bvksQhs42LZ7NegcVGKPvXOEnk3hyS m5TKAwH9gFgVAUm0bpbJjZDNh7ohPtkuHQkcZ5weTFQogLvFJQ1FbBJ4ve6S yOzrAggPPlAwNSCOVd2qlryKhcB4m+yseVMcBZesict7iqCQsBFZ2yKGjVHT Q/2EYqAb5PaITBFDfZ2H6eWWxRAlY8cc6C6GxUPf3wemFsOoddK+JAExHKm0 02mWLoGLo4cXkoNE8fvIxg8rrVI4RDrPb2khigf6lHQfBJeCw2PhsmlVUXw+ lrMrp64UCFy+be4zIvgbXOfTjcsgk/dDnKqTCAYnyzrmnS+H6B02F7qMRHCL eFlV+1k5MMvZeXDKiaBP8Mz26uFySDEifjlHEUY1hgXn2w5v4O2KrvfjYGHc aLuRouRdAdUXJM4GOQphSW5Xjub9t+C2dEy66qAQ+iox2Oa3vYUshnsJ1TuF 0E2h24CTswpqZJ4TN4v3oYT22YX0R1VgQ006/JNpH34VU41nTHkHJ54cVrvT IYg7NRl+1ufWgFHOca+VXEEkEcIn1KZqgJLZYjYfLojb9pU5JcjXQqMk5/JV HUEccDxClCushX+Lh4OWKgSwcndbR0opwLBf5u6EGn70Xc3+2DeIsOOUuNbG C348qL09jraGkLvBc6H0P350KlqksPC9h5fcxuEcp/lRLZAuRMzsPbxw7RI/ NcGHqxbl1qzt7+HuaJvPV0k+pLF1ib56VweDzzMcCjj5UECaj9WWXAev/ltj rV3hRZ9IpVqe5TpgInRYRLfyYsO80ZOrKvVgv6Y5+c2LF4M7X5+pzqkHloGp S9c6iBhl93PYIL4BVEljdE+riOgVnpeXXNwAKkEjAStZRGQLD7Ob6miABsEb kjohRJwljuf7sXwACZubp4fViNhmJVxuHPwB/jE6TvmVuQdTeNLI7faNUCEf ny6TQUCto/82nVNthgpG4awL8QRcvHbH6KJpMxxiTrXNDyeg4ZlBgo1zM1Sd rHmS5kjAhvH3D00zmuHdOuOxbiUCxpD82Ka5W2BhJ2lqV/1uHPRevsUz1wIK XuLidOs8qG2R+HJvbitkn2uMUKHwoNutZ9MuDa1gxWWY4/eTBztSr4dVfm+F lmBuQ502HrTpP5xxeE8b7KdaKBQ958HNMGoyXWgb7H6RPblgyIN9V5XsfK3a oewX5XlnBjeKO6lZCe3ohJnzIosnkrixaZqJtCbeCfEli8zkh9y4xUJ+3KHX Ce2vT5eKB3CjuZMNzfZmJ7CRFT2DTnOjSxMjx6HZTjDzmmfexcCNan/0dElO nyBZfnEW3HdhrXuj2KETXaBFkgxMdePC0cYCujHGHsg+WTxZ7ciFSqSIh/G7 euBcCNHlx2UuLGn7JK2zrwdSH5q7GpC4sFgy9E6kRg+Mj3OUOB3kwicKQi10 13rgjam+zr7tXEgaoE+27uiBZr1Vk4JjnGh+4KbycHwvrEhUbA59ZUfWrXJn Vr4+YFRuzb7xiR3Fa4JH1iT6oHXHW0e+D+xou2X+Y0ylD2C/HjmsgB33Zw6E V5j0wYMoC6mJ2+zYd2fCQiGkD3y/zBR+lmXHy3u9LLxG++CpolXX2zA2JN/5 fuRaUT+06Lo85TDbiYYPXgrxaJFhzSXpQ8d5FswSvZk9QByE9vu/Vnm6mFF1 72XKVsI3CHEzZvrswISPD2kYRz8chlmTJ2Pr+ttRKL1UzTN7BBzTr7jRjBhR 78yZs9U5P+AKRLIpWjCgq+/gsuLrnyCRYhWz7eE2zKhVU9gZ8ws+H5c4/b2J Hp0cnIq+3PgN8yXdAQQiPXoYm+5JOD4K1wvKR6Ju0aFy3Z9dO+nHIKiKP0ej cwsGnC1iBGvGoObjKfaXTX/AzLOwwNZ2HH48oNXOVm/CQoCY/L87J+Bdpq1W RdMGMLf6KDRlT0BePbV1gbIO/ukMK6IqkzBtTOO+w70OIUcZBGJxEiRuhK+J nFyDkBbPCBadKeAv7W3VT1iFDkONXNfyKVDXPNHu1b8Cl2fsacL7p8Er0d0z S34Fgl2plvnPpiGG4OX5LGAZlk9X8nhwzkCUo76ZbvcSrF+Lag4PmIFzBySl LmgtwWc5J9GUgRmoTqoZLni6CGpX7ifQ6czCFtOV/p8si2DEpnndKWkWCsZd SiJvLYBnc+Ivecos6DtXN7DP0KCStLFb34gC4fQZ6OpAgzLt0s7qpxRYGnbb G02eh2n9PD8vKgXiuHDz0bl58Ah2kBYUokLRho7nwYE5uGetrqmjTwXYHcxp SpqD7ye2+m87U8HEXvgLA5kKpqm37x+NpsIl2+bSPyQqfPJ62idQToU3vD3b g3MpoJPIEe/6l9Nr6z2tUz0LQwdeF6atUWF4RZi1qXoGYnKSk2b3zsGL1/nS UZ3TUL73FZvJkTlgjYgM+Tw2BfdMomdCrefgSjpZc3N6ErSyo02GgufASuke 826GSVjHjSP3n83BSeZ/NE5un4Al7+V9VrVzcOuO2/awnePg2Mpfo/htDkir /PQJImMQmZn/KHp9DjZ8Y+McREfhk7/5sqjAPOhyJ+5yUfkNxu4+iraa81Dg ssd9Xe7v7+46f/z+d5fhj3ZEK6mf0NbQUJnhMw+/A0+cISj/AL94Kq/uo7/5 iJuckOgIsBqkbmmUzEPYDrcz/cLDwDRT4CfaOQ9YM/SaXfcb9HTteRcx9be/ yMlTg3kQ1JWOzbiz0kD9QrjXyhgZ2o+El3hI0UBwqqVmPLIfYnNqQfAfGnBE RuBJmc9g+gGfhtrToMWVxLU51A3puddPSYXRoLuVv0vgxCfYe9fkQ91LGhi9 LxNQTmqFFEsbtqp6GnQsjVLMQxuBei/2Yt4PGpxq+LI8XItwMNq5kXH7Aiz8 5igd2/8GCAWej6YlFqBfv35E7r90GHjWTik2XoC1Hf60mQxjuNk7LjN2ZQH+ B5OUOZs= "]], LineBox[CompressedData[" 1:eJwBQQS++yFib1JlAgAAAEMAAAACAAAAtgN3irWqSj9bDNpMDWX0v84SWbZb 8LA/dpOGi3WS9L931hnRdkXAP37G6PKFu/S/0olSNlUqyD8/AhO02+P0vzzY glCyxNA/pyYOCjgS9b9bbw+XaeLVPwdf3h0IQ/W/To6ZykVu2D9p3vVAaVr1 v14QbiJmPts/ax55Lz109b9uq+ORLPLgP2dLzX6wrvW/QXF1CjuU5D8ec2vn fev1vx7OlldA1ug/21CkfvQu9r+BOmKouJ3uPzsqCauNhPa/5iNVEHbh8j90 fUw29OX2v8KRJdvXh/g/LgtG7eRv979A0k9B8aP4P7t/mxJncve/pa5GlkfA +D87+IAY7XT3v0Lan8Ou+fg/Nifc+AR697+Z7dlRgm/5P+R/s31lhPe/gPhN Mypo+j8pMLEG9pn3v9OqiLlGlvw/nZgxFsnI9788yQEwQ7z8P8QG5H3ly/e/ //+2nKfi/D/L2Gr4B8/3v0CGN0KwMP0/82DfiF/V9798XoEs+9H9P2ugJe1b 4ve/3yKLQn4r/z/m9b+bov33v5CY9eg/JwFAGhyWNVk6+L8ngIt6a0EBQBt3 R9YuPvi/sAWSdfBbAUC3ILDNDUL4vwj0WQ8PkgFAOHFLe+hJ+L+nt9Wr3QIC QJ8I+TkWWvi/oZyF4Pz4AkA+RjO1g3z4v6iKYaADTwVA+Gl+fZbL+L/6jD8V UXoFQD8vQoMU0fi/A94483OmBUA2ivjEpdb4v9UTVq9WAQZATmF4HwTi+L+w IZ2TbcIGQGF3eXHA+fi/ve8m1z16CED56rfT0C35v6cf6h7gJw1A4E5OXEuv +b9rOGzPU48NQPKeQky8ufm/3BWWVpL6DUB7tGtNcsT5vzk8bF1r3Q5AiCpG Grza+b9/M1lPZ24QQF8ZZow+C/q/YKi36F+1EEAEkGxJThj6v0Xt98qY/xBA yt1Omckl+r+4RgcI254RQFf1l3UfQvq/sap65PwRE0AlAcPzO4H6v341E8I1 fBNAu4TJIJmS+r/ojCDC5ewTQGFkJl+zpPq/bmUppoTkFED4VCNfYsv6v23C Mi4MSBdAY0EmcBQl+7+CGKKVEgEYQHfzo/a9Pvu/6v6hzszKGEAF4li+Alr7 vzZN2sGvmxpAG9jBMj2W+79FmGd1T6obQB76U6vAt/u/9trpQRPZHECO4qR/ Atz7vxbw9y3WtB9ApQPzA8Yu/L/tD23dtLsgQCwSSdGrXvy/4EPOFQTEIUBW sGg4O5T8v/56dJMDACNADjdsFOrQ/L8//l0k9YIkQO8ZDO3RFv2//T+t5Ntr JkBvwSULH2n9v+AIa/Wi8ChA1e/WofDM/b9zQVvjo3ksQBy+blpXS/6/7YF8 6y/6MEAhZc7xwPb+v27SCiNVFjZAp8Htbq3+/7/eDfDHuulCQBCWQjmwXwHA 6Usap/TNaEAMrBIaZl8FwA3sMX4= "]]}, Annotation[#, "Charting`Private`Tag$15119874#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], FaceForm[Opacity[0.3]], LineBox[CompressedData[" 1:eJwV0vc/FQofwPGMonKulU32TIh0Q0IqMyGkwU1IqDhEKnJFaZDZpOhcIyMK hcj3q8yMg9M9iezVwdEZdsZznx8+r/c/8JE/G+Dozblhw4aK//q/HU9e+0yI hGPevZgmyh+iYNM6dqekygXbbEnni1JdoGuuKtDe7ygOVlpyvEzwBuZSmrO7 nRVycI3RMq4FQPGzXXIjZYdQjM9K4cSjy8CQCBnwPmSOdq2Lb0gnr8IJvpaI g+FmqJFUcpT0xw1QtLXXXZY0xfv7Ln3JOBkFr9qcCHLrxhhR6vjXgVfRsBSf TkrZsQ+XnhHVlhm3YNWiLin6pSFmqMyST+nfAb5qC9+MowbIm26k3BdyD94c fPyhRX0vFkRdr+kriYPWm5ErFqp/YkLiqfzC6QfAf4DLMcVsD5oICGg2JCXC yif206pgfWzwOlzUU5AE6cYXCyYrd+MjAwmjwrpkYCy0hUsI7kYdVRUe+x8p EO/zyqQ3VA99Xr8v6malghPZW3wvTRepTms5LryPwCDrg0XyOV0cqBV93C39 GNpMN4cn03fhsabBF/46T4C4K0BJImIXnhtQT5Qyfwp8lSvmQiU6qKhpvf7b Ow0yKUO53C46aOYjI2oSmg5Cz05vG1nTRtWRnzfrbj2HvCPcxsRaLXx4mPi6 lJQBkuG2mUHaWpilsOu4iGsm+BsXOC1l7US9VV7nyP5MSHcbltDK0sSgFUqq 7+RL6CxLjO3U1ETVo27NMwEksKzIixn8sAPbokV8NedIQN1oUfx+TAPrArfu +L72D3TfKD/dEaWBn8UGtttGZ0Hg+Tb7RXkNlN3poBLJkw3y9Mwc34vqGBbS Rd/BnwPyVyuq94mro6vXzbJXyTkQb3nfTKdBDePkQzKmRHLBY23+Y42GGs5l 5Ug2S72CigZCtIqQKmYMrL7jUs6HTT+nNt7vVEFa44AeJScfeB4Rt9CTVdBx o3ojUa0AHlfzZhySUsHn8w1VsjsKIdX4hc+4iTL+e4tZ5KxVBL5vdZMa+JSx uALmy4qKwOtD/xbOXiUcLt9/j6ZVDLvZttNHryvhwcKaBD+xN2BklOvR3ayI gZHRpp6ibyGfo3AqO10RgxYGuSxPvYXA0/pqjwMVMYOVcko08y3YHc5NeCel iOmm8suB6iUQW1C+rSpCAZl0ermyUSnMrVbTrroqoOG84qJ7ZClEtWfqEXYr oByRMh39uRRSv9UWJ9PlMSGB8i3Jpgxi0/JtXH3lcfywT+znk+/A5cC9tnkr ecwyCDxy5sU7iPu5kKa/Qx7Jk0c8JofeQYIbNSzylxxy0GPkGs+/h6Arj//A G3LYPtoblBtSDsG3Fr/2n5fFtR2/VBTjKkHghrSxjKEsDj19kZ7TXgka1URT eT5ZNDqglSAh+AE4U6uYXiXbMSyn1qn94Qd4S5JNcODZjovPD0qHvqgChzi5 f1fbpZFv6649XYUfYermvYaQfGlUK/O65DrzEa4VWLoRb0ujadH2CLJ2DUR/ Tr8wYSKN26PqziSW1ADhfNpYZIUUcg4UL7mXA5BPbinfWSOJL/0m6DIDCIGM rfEPSZJYSWoMsFhF6PjN4WEXK4lV2rVlflK1EOPazCp0kMTiTQ5PXxyvBbfl EyFzNAlMTB0yqSbXQpf+O8oDVQk8OxZ+sKvmE8TvTYnzFJBA5sHxxqc/PsGZ eLely0viqDlDszi1/AmmOY73W7WKY4wMp1Wr/meIlxkryrwsjjS/rc/OFX6G RkO5cUOyGOo/O51040kd7PnDxutClRg2BzhvmXhXBxJvWj+25ooh14nJLCtK HWhzB2uKRYmhrg/34VVCPchtekAHfTH0O9l5bnt0PSzq285TckTx656qQKsL DRAt5Bm8N0sEQ9439FgbNkEIYSj44kMRdGPzyfq5NAGrMEILbotg63LdUHRQ E0SbuXiW+4pgCzFzNCe/CdJeL0gxdUTwziU7er5kM9S694iY1W1DbRrxbMFS M3wzmW+0XxHGUKX9aQmlLaC77bLtLYYw/pCIOLLe3gLKS8MP2kaF8aDW5Vu+ ky0gXlMX/KRNGDNXiLd3yrdCDGF9TjBTGBOtPFuCH7QCr1Oj1HlLYdy6O9hu yacNFvxHz53LFkIlMSG9CVEybCpR0hl7JoTXfmcnT+mRIcp4d/nlRKH//nG6 RrMng+XgHbv660Jo/eXtYOc9MnCdsWWrHhNCysSvdac1MrxhCMeRuYWQL+2q tFBQB5xaPOyQGySIpbF2i0TnTmiwS+ruJQpgvS/BzVeIAv4ejzt/+wkg6xrV eJcsBQpHTg0oeglgpMh+8/kdFLgYs75030UAH5b6Vl05RIHI3m3XPxgJoKZe h5trGAVOJswVRvMIoNyImUNiHwWShn5wt1ny48gAyaQn+yuQatL98oYISMnQ JnbtpMKfmfNbLKgE/McNTccMqZBqsqmO8YWANoypN7MWVKDYnNU4X0bA5gSt 4M1nqWAeYX1tNJaALIbj31seUaGixtudYxcBaUcrGv1WqZB592GixX0+lDX5 mpTV/A3upli88z69FX08+AK4Xb/DtNCwVd3ZzejF538xzuQHXGAEsDN7eXDB 3DV/obEfyhpJwTqXN2H+zWv1kwWDEJa6kCZ+bCMuKmnUcDUPQadaUOi3E9y4 x1i1fqltGGqGN8jy+3Fh8tCVrOZ/R2AswdWo5SUnilbZ8ypXjYLfRt28uj4O 9I6TTpomjUHjl2FbcW0O/F5rrdMfOg41L593JT3dgDlRhwU7tCegqsI8h8K1 Af3zhJQ/TU1Ab1SQlRH3Opib2HqdTPwJevaxu/nXVmH4ttje5T9pIOzCe8yB sAp7lUz6i7to0GvNR/posAL2A2R1zlOTsKLPT+o68xv8DjEX+sYnwfNYhGBe 5jL0JD20yTk7BQ+b2/eMTy+BojOvnQ51CrZM8zpG6C7BcdIvgcdHpsHz+5Wi mvuLUDxEc50qnwabu8umvP0LoCW46aW4Ch0ULg2udBosQLj1nMyjeDoU0i+4 l2XPQ/v1FeKRSTpU802trW+eB5K9IDfBZgY8HP9uagqfA0L3QKEEaQZ8t1JV yXOzILLXLY80OwMHDFzE287NQjjLv97R5hccpG0INR1lg3sF72L101+Q4FBw 5MYJNtg5b75tPf0LOku+2On1sCB0a/46SYoBYy6eb83+YsFYiuGFGyYMqBSX uVbUy4R1bYWyMG8G7BNVirU5ywQLmqO7wh0G1IhsVuceZEC7r5kxvZABT747 Jsl6MMBKVLXUtYMBQX/7z/RQfwH/ISkFCoMBVTY/fqR1z0AK8bf9DWEmODEk Sj5O0WGtSF3fR48JKk7V1CdcdIjsCxixc2QCp7pDjzvPNDw7Lm4UFswEd2dp P3OpKRjXc74vk8yE2M3kYCHJSegzuC/HX8qEvqwvLIoUDYbVX9zSpDCh3qud o1LzJ7RkOtgvMJjgYaTO26AyAaNhU83KgiygXOayOa09Dmm5EoOS2iwQv/66 JV12DHyDAlgxR1mg2lKQkygwCoJSOwOOB7CgwjZ7uy//CHDt+9oqEM+Cndns Ak/2EFhzp7S4v2aB7/73p2F0EDgLrvNkt7BgTWNCIL5gAAyym0ihNBbY/2X+ 4ZNDHzQ9IP/esIUNU+mk+W7BXsjrnal/pMYGtS419pPEblgr/+7EZc2GfPfP XyV4qRDR7KOj4s8GDz+ujrInFKgYL/vpcY8NRjFa3rn9HUDdGzmRXciGwA7u zp6wVjgjo2XO18YGw+59eq1yjVDxU15gH50N/3CVGPJI14JDWWD9a4FZMDUl jdjcfQ8ijm4ulrqz0NdXOZKQTwKbK6ejjh+fhevV0QbSxdbwWYMpdS5wFv4H 1vk7tA== "]], LineBox[CompressedData[" 1:eJwVjnk4lAkcx2ccQ4eMIVTUIEVIURbJ+ys1lVyxzrCOGORYspVCJR1bykop ke3eDtFGSaXfi6nZaoUlkXUlNY8QmjHmncPaP77P5/k8z+ePr1FEkneUEo1G C5ne/7T41c9utMKVOHz78IXjyULM1RxesKD2PpG/Osq46ZIQDTJslznzkYja Kyxp5AlxSJtTW+3CJ6I6Y7+oDgrRlrOkNOlBI6HVyRvw1BZhMUsdkp1aCaZP UPSgkwj95vOqEt3aiN6PJq86PEU40GgRV5XfTsRduNbE2yHCzdEnw30LugiD EX1dxzwRpo2G1Mzc2kcUNwKd8UyE/PqhQMZgP+EGC7leX0TYduTEW1Lymdjp rnJvVG8CnYtUyjdqDRK4T2ux5qYJ1LQ5oHu6apjQNUxW3pQ+gWPH7qb0towS 7c/5xvSKCWzK693N/TBOdBV5TBUKJrAkpnRxipuIaDYM41KmYtx/sewErVtM +PgX83oixHiC3uU86zFF2FVJeSVXxXj1fZzA31VBNM87oh0wLMaUnOEnH+bT YcCFxyxwmMRFv505Gn1XGT7pcpWyzk0iOVf9q/stBlSykx10xZOoIjm49lnS TLCoVAvlRkvwpIEp/bYWE1yqvmvOpyRYR/S+ub6QCY7+NZYnZRI842Ad+siC CcrW67sUCglmWEPHAg4TXN8msEaUKfzuyYoQ72eC7b3ug0MaFOZ/f2a3fIgJ /dbxQUnGFOZe/zf+da8W5LWdValzp/CxRSONNaYFBrNVC/O9KCxhWrak0Vng fItTE+NDoU9JzOhdYxbkx1Z2GQZSGO5+7MHNaBYMjtOuVe6gMCt8vWWkiAW+ ntunLqVT+NlbJBxZqQN6P8UYVpdTGHarXJ+1RQc4TG+z4AoKr8aVPk0O04Gc Xqsg1arpvmjLm8FcHQhuP3467vn0PzZZ1j+mA1Zz5O1ZDRSyvdBMrX4uLLMU vKAPU8jNKfn26roe0IObw7RtpPi0GQIdX+qBAzH0R4WdFIkbjHwDgR5UrD7P CV0jxR4zFSFY6YOPboB3ywYptlmvq/Wv0YdqYWnc+gApqm8v6MkWz4OCcJZ9 zCEpOst32FuPGcBGvxhed7cU2/cQF22XGkLA7pzGFQNS9N5WHGMfagg61PPO gq9SLHrXY7ejcdrV32temZSijR+tGXAhhJ56wKvRlmGx72iQcxIbnNolZaUe MkzqjYy9c5YNqZ4lD074yVC1Zvy06Akb3MxJ2+OhMrxolGPuPtMIxn0ZLQOJ Mvw48M7J4KERjNQHHt2aJ8OiOaph/hwTsD+rv0DSJcMrDlp9HgdMwPmQVUiC QIY+Q3xjjScm4FSYwJj/XYbhDas6YfViyGsgjyyZIUeviezdpRtNYVaCSf92 ezlODkeVi3NNwa9vlfnHDXKkZ2R/nNVlCrSmz4LqbXIsHJzZ6npwCWiz16xO ipcjKfdgeI0thTdR0rYDN+XYl5zpKfM3A8+LTbMXPZLj2vSAz2n1ZiC/xuav fSnHfZfHtx6+Yw6xmVdZBgI5nn96KYvOtwAGbbdDlq0Ct+1J/tE5whJM15St hM0K1MfLm2zUrEApjhfQG6LA1HFGw7WU5fC3p+veeTkKzDI0vjxbvgL2tZ6L 4ooVWD7YcU6YvhLeZs75pKYzhQefu7wQqtlA4j/t1oE2U1h743VGDMcWgqMW 3RhOncLIh2d3HVXYgkhiw6kpnELfdZXx29+sAi58igypncK07CVfTR/aQbn5 0soDGjSyLafV/H33D+BT7cA1W0ojk1b2pxrZO8D9srQt511o5Eunjl8MGx3h vGXm3V2RNLIvbbEg47ETGFfUSW8eo5GshlOXTHQICJ7c05D9J418tn+nqcms dXD0xc8mPf00sr80jSvQcIGWlvQVmWw6uatYVxz+bSMU/L4qa30inWT/xZ/U y3UF3pk6XbMPdDKfu4G1f3gbgEaBmH9ciZzh0T5GDEXAEV5C0IpAFVLlFSNM pe4QOJ6iH6unq5P/AYBX51I= "]]}, Annotation[#, "Charting`Private`Tag$15119874#2"]& ], TagBox[ {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ 1.], FaceForm[Opacity[0.3]], LineBox[CompressedData[" 1:eJwVlfcj1f0fQK+tskX2yJ7ZM+4nQh6iECUZWdkjMjOTUDYZmckKjz3T641o SBFFpDKys8flUt/n+9P5C845/De9TBxJcTgcIwkO93/SnyB0RzA9RDkOY5of sYOXf+N+D220OiH1We8e3p9qkMvgkRflZIPoS4g9HhX60EvFu3LR4BoqqsrC VXWYQOtqwxWt+itI8uM/BT0RV2H5eHABg7Ypuj0FXZJS1uDbpl8iHHwZ8X0c jeCcsQNhFSUpKvZLSBbnz1xV5gB81J5dYcSL6Ab3pFa4ozPIKmwySIgaokma Cd8QblfYHRn8/E/+PyhNNWDr8qA7SPVKtiQZ6iN+nXXLpDAvUMho6vwhfAG9 pRj5ZXLSB4yPArxCBPXQnf3YySBnX9jhImub1tRFUX4nDGdbb8PLQA8mQR8d 9GTU70QjtT/wf2t+69JyHnHIvDSgtLgDhaG08tV051H03GDA9tMAWIgX6Y/0 00Zau40z6WuBoOvlsrU2p4XwlddNiarBQEKTw2PpoIVefY53UI0OAbKwMkGX 5XPIX0V9xro/FF7qhjw+Cj6HCm7k0wYzhcH1AoEy+loMOU1yr04ZRYASmZQN rRmGMoRwYeQbEfDvsMnXY0Q8emPHFtWaGglaZXaK0KmJqIvP1s6NRME56ouV nyQ0Eddg59It/2jgKnr7wLVIA7k+933/kOUeuLOrKkHhWdRj59PcZxYDBmMa UT5iZ5FKQsvA9FYMRD4Wb0lsUUe29r6NVan3gdMg/VH4tBpyqIpmN/sYC6H+ 2z3PwtRQR7OnkZLHA5BUqHr1lUcNRZ4+2/fxeBz09yx8t3NVRbkO3x/J6MTD RQJDB55FFTU8ulRMnIqHfR3bUo0eFXT+1/z9mLAEoDEJnP8hooKU7pAbfmt+ CMwnL+W40SsjdkdzTxBMglL/fa+xD0qouuSGwXNIAq6nQ/FayUqIIaG5WEYq GWgc6oor2ZTQlr87fdbrZFBaOmK5paGIHP/ouqoTU6DNdGLf6Lgi+uFXV7eg lwqRBjPkKWMKiCS7hyY8PRX09q0ylgMV0D+KNypvSaVBxVe9voTX8oholOWj Zp0Om4c7zjY58simyORkQW06hNgx55h7yiPOoZwrK6QZwGbL9jCCXR6ddU82 1SrLAHkKt9e5IXKo4aHo1NxqJoxzRb22MZdDcpQLSrnYYxgKmhMgyMqh36mD bOqpj6FZ4jAsdlkWlWxI9mgqZsGGyctRG2dZZCRjgrMOzoZ8wtNR0guyiGCW dyqgPxvELvUx6orJol8u/pRhXDkQ8TQ1Jeu3DOpS8XIzf5kDc1J0zxdDZVD7 JzKiMskTWOo/NuPpeAZ96lmrWo3Ohyxup8BGpTNo1PSVHG4kHwjyuDSgPoMW d3xXSAULIC76rjzjv9IoM5O24ltPAWi163azkUsjUq6kRd/IQpC5q1Gx1y+J 7rXNn1eBIvhCfrHCv0wSDXkMrQ3PFYGydAoWEC2JKEO5bV3oiiHv5l+R/bOS yGvZ42PkjWII8H7VXN4kgYwyZxJdicXw6HHWw6gOcRR6SW9WRKkEyjlqLNcK xFHp4Hm6AcsSMD5uz1N9TxyRWhnGeYSXgIuITQCLsTjKGN7MKnxTAo1ffkv4 zIsh68hvAoOWzyBIeSb/jJAYuuhpVWQVVgpnP2dPUtOJoSf3Olk6ikthmFnv Hc+eKOr2K3dkeV0KkVb5eYdvRZHimazmTvoyoNT0pnb0FUWiZI9WJgvL4Kgw KJJ/QAQd1rd+vtldDpWMu3IWbSJI3LDMLmquHF4XeHZ0PBNBEuQMKvnHK4A9 WjeELlwERefSTr4zqYAlQYqa1/Ii6JZ9Sy1hugKGr2nPE0uEUUmfdsJz0udQ M1rjkl8shHg5n3Gk4ashzimbbzRNCPkTBN3TblaD69ClJMkYISRMTjGQHFMN zqxpQpK3hNCHRf6BqP5qeCm6ft/vjBDa7ZdROm9RA4wpHL5T3YLo/rI+Jeb5 L3SaPgMxogDSY39myDFQC9i5m112awIo/1oDzut7LezNQXj1jAAavdjo171W C2aypVfD3wsgJpbkYkemOvDsEG2kLBBAsYGk+DyLOnAIuWgeqCeAVN0oOz5N 1UHYsYaZqpLTyLmRV8R2px5IpuRNz+ScRhPTxjfIqRsgMbU6vDvpNHLbXDUs 42gAYTknG46Q06jgqo31Ir4B7rDUJSSYnEYk4iW+1vENwE+4zHSJ/DRy1/qW S8vbCOXFxfp2vvxIyD1KNU6vCR527sTWuvAj3OaIFpVlEyhOhFHQ2PEj3YDQ M/fcm+CoiMVw3pgfsefbtwSnNIGQTPShhDQ/GksxKLKcaII61szaLyt8SNQp Y2TOsxnou+kQlS8fCg3nolXJaAGLRetjEm58SEuoZ8WytAV2l2ydzR34kOqY 1kZoSwtUCtie7jXnQ0lpA24vv7YAV+D4DO4sH4plHlJX5mkFruUHmbNUfGjS a3ERV9YKeZd9Vgn6vOjIN/Hafksb/GXyNaLV5EXluRPypG/bIJF03V9ajhep XDu8cHy8DTbABGVy8KJEOmVhtsM2qAwOGjpc5kHaLF86xbF2IO0YPkGTwoMO MfZFiTftIBLXYVw5w42QnQdWPNoBesz1UsZj3Ig/obzxz2IHKFauCOIGuJE0 w19zy8MOUMq9fOx+MzdqCK8Sped/AXveRla88dwo6k42k5frC4hg1HG4I8+N fKgNU6mPXsBVURE72UQuRLJWVVjK/xIWKleD1W05UfM9ySYLBQT9CZSk0Rac 6MludJm2BgLyIkHtT0ac6MKfm7pndBGoSKX1xmpwImnqkniKqwgof6olXeTk RDVrWfI1IQh0jPUL1cY4UKxrjep6N4Jf4bmeJhYcKJTq+ROVy12gIdQa6HeL HSlQX5adc++Gd/o9k1/s2BGDWcULYf9uKOAdI9G8zo5MGMqOO9/thvQvQt4c RuyIik14be5RN4jL5OqeUGBHP9/Kfp+p6QaF8EmyNzh21OtM7/dpvRsSt3bH HuSxoQ+ss37Rfj0gQTLKyDlzCjmt7rOfDXkF7T6ZXdV3WdGPdEVvlfo+6Lfv dI+zZkE6mvo3gtAbOO78muG880kUUS+89L3rHWQcC01qCWJGrXfsh3xX3kN2 ZMCVvAYmJDavQTaz9gHCHj0xpdhkRHF0A7euJA7C2ns5s2EdRnRS30rzdf4Q UO/oF9TVM6CUxSge+SefIKbepuopLwMKT449710zDKwu4d605+gRY43sqYXq Ecj+W2nQhNEhz6BQZp3uz6D0buPt7BVaxO18eUJ16AtoGJQuUD+gQfc4QtU7 B0YBC6yni206gRIuc1Eb/RgDA3dlwiPicfRMxTb78fevsBpV8I7O6DjytLpK +2FsHH6qsGc/zzmGHi94a+IXJqB2cDu2/oAagZ3Rx7xf36BWOnQgxYwaSUvl hV4nTMK/d95r0LdSIVFterl/KH+AkrT3JysJKvRmTCxbhOQnFGOC0XuPKdHG o6KR/bifEKkYv97NRImsc69enzk2BftUIhzTaRRI6ufw8N3YKSD7u7a1TkuB 6Chk/tAyTIPjndw0nnRyZHDcW7g7aRpwDy7Q8zKTo5KUV3MPOWbgQ5uGs1oe GXLYPrCOeTIDVvjCmF4JMsQqbLZjyjUL45MkTv31pKjgMkbwLJuF043DHzO1 SVGtzlgNiP2Cir7IuvL3JOhzTJ3nw5ZfcPvQK0T1GglSLE4TvaX9Xyxd5ifC VnHopEbwpfC+OajUU2tODMEh/5XGKrsr84A2eK16GHBIpc7+64OJefDRTg6v vPQXqtQ2+4dsFoClsapDwvMPeClvBOmuLwAdR9a6X84RNIzjDCgCF8HKsrDz WOMhxDOXM1+gWYK2NVE6o0EiiDaJWjIVLMG9vpLnJAcHEM+4uycltgyhx/jE p+kOgOurhqQjWoYTkcFfNWX2ISzn6iCJ8QqwsrNRv1UjQLo/x77u8goYfwgt enZ+D1wD1YSe3f8NFwR8Gh5d24V6R/nxCPZVOIW9lik33QEL7wBn8o5VeO2R +8HZYhucqiRHFM3W4K+Q3nyZxRYo9x3mTK2sAZX0jp2k8iZceiQ0//6fdYhE A5tD3BtQkfTbXix3HSi+ldFkta+BVvlcnM72OpzLlKTv5f0NBy+uWLMabcBb 5+7cd3FLEPKyWEK7ZAMazENPG8XOgzmft3YX+Sbc5+q9MREyCxV2buGyNzeB ydqDi01tCoh+qfkJXZtgZf/tunP+ODzT9J3lkN4CEz3MXtPuE/REyP81zd6C xMInl0mkEbDIK7pMsmzDGvuV9V83K/GlYh2M99K3wbHNXPhweRDfd3XfRZFn B96oMt2upp/GJzvlrqm/24EVH827r1Sn8XdZk0iJ73fgQDMl5KTDNH6fQ/fM i4874F/I0mDXNo23mtpZOP95B4hD1ILdTjN4Iad2R++fO8Bq6zYqMTCLtxic wins7QDHQtdKx8A8nvKmfWGG8C4oU5jp6eMW8C1fW4OLxXbh49zYnIj8Ap6Q tS1RL7kLT8Lalr5lL+A7tehkx+V2wcEiulPLbRF/JWw77yJ+F0jCmi9t8Szj iThe6bdXdyHznoI2+rSKHw/I4TdL3IUbqvEeDKfW8IFdGu6nUndhcZFCYfP6 Gh463YJ/ZOyCYuvzydvza/jhnnenw/J2YUP95sjXqHV8ToxExF7VLgxk4wY7 ajfwcnIPYpfe74J31uhvTfNt/EsazT4Xxj3Y0q72sL+3jU/qpVpaYdmDyWSR /7a/jZeTjm0O4NiDsxFRSxOMO3gFhZiPJQJ7kL2Tq3b4eQdvxUeYsFXaA71L dE1fgvfwzeH83lE39iAtjX64z4SIF7wd2NzZsAc0N9eJDZlEfNj3alaftj2g LlDQeTZBxE/ILqnKwR6M61mS1d06xLv2K9L+eLcHm9eu4/WSj/Cmd83sV6b3 IKlSp7qeDocVSAp2SbISwPONzeiwGg4jjD6mWuQiwMCHiu1eZxymmyzT2iZA AHuNEUfVVzgs3MWuOEeWAI68f94pPyDBLG3p6NyNCJCYkRr47TwZNoIru735 kAANchPN56LIMI329Ur9DAIInLCX5+siw1qGqeW78wiw16WwGK9Njom+KyTh +pcArrgwn9M3KLASiudkWcMEOPmLLdGNQIVlv7gPwkL7EPTKVJNgQY1N1GqG Gv/ncalTgXVnOzVmOF7V26K+Dz/o1I7a449h1znmOkxN90FN/miE9foJjJH9 6Sbf/X24K6pEbCJnwGpCGtvv/9kH2/RTTMiSATOU+iVR/18nCkv95OSbGDBc SW+NG+8BLP9yozoMZMQEM2sEG7UOoILE9YaKATMW+7TpHFvqATiNqnBGDDNj 9FfOqUuVHwAWtPMj3fEk9k1irM8UDuDh/Y4h5yoWLC+zesRg4wAkvIp+jB+w YR/O8Iy43iICb4uQTTkVB3bLmCwqLoEIDqEPyZ0UOLG/rwV3A+qIUDn7+1Xt CR6MN0bn+zeqQ5gt/QQM73kx5nSWwT7VQ9DSllz0/s2HsXFcFH/kcwhfGwLa 31YJYOJq+tYJ+4eQl/GklyZbCEuaf1robHwE/puUB3QioljCeHnFdMsRGLNp fCd/I4H9eS/MekLjD7QnveQO6pHBpmq02Xa2/gB/wNDcRTsl7LETw0+uEzjE tPtdWa1dB0vx1nev8CBBMQPBam+C7mA/VTSmztdTov8BqbTVrw== "]]}, Annotation[#, "Charting`Private`Tag$15119874#3"]& ], {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> None}, PlotRange->{{-7.7956157916985465`, 4.688521322387839}, {-3.0008612201069385`, 0.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.05], Scaled[0.05]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.843821355321394*^9, 3.843821359977265*^9}}, CellLabel-> "Out[134]=",ExpressionUUID->"9e7d57d6-efa3-474c-ad30-e142da216a92"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S", "[", "2", "]"}]], "Input", CellChangeTimes->{{3.843820567123662*^9, 3.843820567586446*^9}}, CellLabel-> "In[104]:=",ExpressionUUID->"e2ebf167-6996-49ef-9ca3-9dd16132c4ea"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.2113984981855266`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.18040968433960122`"}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.1295236147887016`"}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2447338967832837`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4997458274069301`"}]}], "}"}]], "Output", CellChangeTimes->{3.843820567743414*^9}, CellLabel-> "Out[104]=",ExpressionUUID->"c33b6abd-b8d8-415e-b881-93fd6c52f0db"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m0", "/", SuperscriptBox[ RowBox[{"(", RowBox[{"h0", " ", RowBox[{"hCas", "[", "1", "]"}]}], ")"}], RowBox[{ RowBox[{"\[Beta]", "[", "]"}], "/", RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}]], "Input", CellChangeTimes->{{3.843819332197076*^9, 3.843819353348621*^9}, { 3.843820821640896*^9, 3.843820835136125*^9}, {3.8438209702351227`*^9, 3.843820974739016*^9}}, CellLabel-> "In[120]:=",ExpressionUUID->"e153916d-9f1b-43b9-a6c4-f59eefa45d16"], Cell[BoxData["1.2775821852263383`"], "Output", CellChangeTimes->{3.843819353571412*^9, 3.8438208357193813`*^9, 3.8438209750052147`*^9}, CellLabel-> "Out[120]=",ExpressionUUID->"ca5cf147-c698-4d49-a753-1cf32997e5f5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalPhi]s", "[", RowBox[{"[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.8438209840375433`*^9, 3.8438209924910793`*^9}}, CellLabel-> "In[122]:=",ExpressionUUID->"c29b0035-e029-4b18-8ef4-ecd12fb49333"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", " ", "\[Pi]"}], ")"}], RowBox[{"1", "/", "15"}]], " ", RowBox[{"Gamma", "[", FractionBox["1", "5"], "]"}], " ", RowBox[{"Gamma", "[", FractionBox["1", "3"], "]"}], " ", RowBox[{"Gamma", "[", FractionBox["7", "15"], "]"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"Gamma", "[", FractionBox["3", "4"], "]"}], RowBox[{"Gamma", "[", FractionBox["1", "4"], "]"}]], ")"}], RowBox[{"8", "/", "15"}]], " ", SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["13", "16"], "]"}], RowBox[{"16", "/", "15"}]]}], RowBox[{ SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["3", "16"], "]"}], RowBox[{"16", "/", "15"}]], " ", RowBox[{"Gamma", "[", FractionBox["8", "15"], "]"}], " ", RowBox[{"Gamma", "[", FractionBox["2", "3"], "]"}], " ", RowBox[{"Gamma", "[", FractionBox["4", "5"], "]"}]}]]}]], "Output", CellChangeTimes->{{3.84382098702094*^9, 3.8438209896475677`*^9}}, CellLabel-> "Out[122]=",ExpressionUUID->"a77b28a6-eacd-4614-b43a-ed39428597d6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"datCasM", "/.", "m0rule"}]], "Input", CellChangeTimes->{{3.843803230256878*^9, 3.8438032333117857`*^9}}, CellLabel-> "In[195]:=",ExpressionUUID->"40438766-386e-4ef0-95c5-bb36288917ef"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1.2803840363806758`"}], ",", RowBox[{"-", "0.08312876211833689`"}], ",", "0.013329954661202004`", ",", RowBox[{"-", "0.0019834846485221125`"}], ",", "0.00005580926915319621`", ",", "0.00011134671023551035`", ",", RowBox[{"-", "0.00005191912354628053`"}], ",", "0.0000129868232839969`", ",", RowBox[{"-", "7.456745384784115`*^-7"}], ",", RowBox[{"-", "1.0845467513314156`*^-6"}], ",", "6.211171366695239`*^-7"}], "}"}]], "Output", CellChangeTimes->{{3.843803233497788*^9, 3.843803242894781*^9}, 3.84380334832369*^9, 3.843803432165793*^9, 3.843803588716037*^9}, CellLabel-> "Out[195]=",ExpressionUUID->"462d7199-fbaa-4949-8313-776399b35c4a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"totOurs", "=", "17"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ds", "=", RowBox[{ RowBox[{ RowBox[{"invDerivativeList", "[", "totOurs", "]"}], "[", RowBox[{"\[Theta]", "\[Function]", FractionBox[ RowBox[{ RowBox[{"h1", "[", "\[Theta]", "]"}], "/.", "sol1"}], SuperscriptBox[ RowBox[{"(", RowBox[{"t", "[", "\[Theta]", "]"}], ")"}], RowBox[{"\[CapitalDelta]", "[", "2", "]"}]]]}], "]"}], "[", RowBox[{"\[Theta]c", "/.", "sol1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dFRegs", "=", RowBox[{ RowBox[{ RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"#", ",", "\[Theta]"}], "]"}], "&"}], ",", RowBox[{ RowBox[{ RowBox[{"RFReg", "[", "n1", "]"}], "[", "\[Theta]", "]"}], "/.", "sol1"}], ",", "totOurs"}], "]"}], "/.", RowBox[{"\[Theta]", "->", "\[Theta]c"}]}], "/.", "sol1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dF", "=", RowBox[{"dFRegs", "+", RowBox[{"Table", "[", RowBox[{ RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"AL", " ", RowBox[{"m", "!"}], " ", RowBox[{"Gamma", "[", RowBox[{"m", "-", "1"}], "]"}], " ", RowBox[{ RowBox[{"B", "^", RowBox[{"(", RowBox[{"m", "-", "1"}], ")"}]}], "/", "\[Pi]"}]}], ",", RowBox[{"m", ">", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "True"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "totOurs"}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dMs", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Rest", "[", RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"#", ",", "\[Theta]"}], "]"}], "&"}], ",", RowBox[{ FractionBox[ RowBox[{"fp", "[", "\[Theta]", "]"}], SuperscriptBox[ RowBox[{"t", "[", "\[Theta]", "]"}], "2"]], "-", RowBox[{ FractionBox["1", RowBox[{"8", "\[Pi]"}]], RowBox[{"Log", "[", SuperscriptBox[ RowBox[{"t", "[", "\[Theta]", "]"}], "2"], "]"}]}]}], ",", "totOurs"}], "]"}], "]"}], "/.", RowBox[{"\[Theta]", "->", "\[Theta]c"}]}], "/.", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "#", "]"}], "[", "fp", "]"}], "[", "\[Theta]c", "]"}], "->", RowBox[{"dF", "[", RowBox[{"[", RowBox[{"#", "+", "1"}], "]"}], "]"}]}], "&"}], ",", RowBox[{"Range", "[", RowBox[{"0", ",", "totOurs"}], "]"}]}], "]"}]}], "/.", "sol1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"datOurs", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"dMs", "[", RowBox[{"[", "k", "]"}], "]"}], RowBox[{"BellY", "[", RowBox[{"n", ",", "k", ",", RowBox[{"ds", "[", RowBox[{"[", RowBox[{";;", RowBox[{"n", "-", "k", "+", "1"}]}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "/", RowBox[{ RowBox[{"(", "n", ")"}], "!"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "totOurs"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->CompressedData[" 1:eJwd0Esow3EAB/DRlEetMeWR5N+QlsY0jxU1j/LaU5aZy7YQteYw2aZQwoEl G9kyilFiUh45KWThsKi1mrzKI4elzcnBY/l/f4dvn8P3e/pS+oG2nngGg5FH B2ouXPOmxY/a7NHbRXj3G+eG4j7dKSxNefPBeu/pJekrTAlm2sHXaDLMdUvZ 0GHYyILjWZt86LOGSmDnA0sMWUIO8SWHUsCtMJf4RFHtREe/Cg4Zed0w/ZxP nO41jkPbweQE5Goe/ZCj+iNa9gspC60kUcyFzLvDYpgjoGpgt71DDm17K0pY rW6+hjMZrUR2qv0eCs2GZ6hQiiKw8WrrF2rHZuOttEddz8TAmZwN3+XLaXCC ivJgcNdeDK+lWgEs+ywogw0/GSLoYewooUER0sKSJJsOpnsqjFCSX0WUBb+n YMujfA5G2vROKPVvL8Hzptiqlfxf6YGuwLEX3qpPiHXOIvUa7ZWbR3yTfQ3D 8pEYURJeyFzHjnlD/Ac6Hgav "],ExpressionUUID->"f81ed9c7-d940-4314-963c-c36ea0215ef3"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1.3578383417066047`"}], ",", RowBox[{"-", "0.04895328971999913`"}], ",", "0.038589364046676934`", ",", RowBox[{"-", "0.06639683866958071`"}], ",", "0.17282494938877094`", ",", RowBox[{"-", "0.5982136876234695`"}], ",", "2.5836539597308135`", ",", RowBox[{"-", "13.385542500325027`"}], ",", "80.92156022471416`", ",", RowBox[{"-", "559.2327437492248`"}], ",", "4348.6528801653585`", ",", RowBox[{"-", "37577.54203132622`"}], ",", "357215.5775388312`", ",", RowBox[{"-", "3.7046351622097627`*^6"}], ",", "4.162364375588009`*^7", ",", RowBox[{"-", "5.036541248157173`*^8"}], ",", "6.529768978407632`*^9"}], "}"}]], "Output", CellChangeTimes->{ 3.83698713111462*^9, 3.83698732721172*^9, {3.836987527713932*^9, 3.836987541172042*^9}, {3.8369877357608957`*^9, 3.836987748867478*^9}, { 3.8369877874156313`*^9, 3.836987793551597*^9}, 3.836988034596339*^9, 3.836988124923636*^9, {3.836988167393293*^9, 3.83698817337673*^9}, 3.836988304258202*^9, 3.8369887429546413`*^9, 3.8370701493666887`*^9, 3.83707078354727*^9}, CellLabel->"Out[37]=",ExpressionUUID->"2234af5e-068b-46a3-beaf-99a907ef5184"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"datOurLow2", "=", RowBox[{"Chop", "[", RowBox[{ RowBox[{"dGd\[Xi]LowList", "[", RowBox[{ RowBox[{"NF", "[", "2", "]"}], ",", RowBox[{"H", "[", "2", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"rules", "[", RowBox[{"H", "[", "2", "]"}], "]"}], ",", RowBox[{"S", "[", "2", "]"}]}], "]"}]}], "]"}], "[", "14", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.843813552094987*^9, 3.8438136440081587`*^9}, { 3.8438833391542397`*^9, 3.843883375666812*^9}, {3.843883449636417*^9, 3.843883479692768*^9}}, CellLabel-> "In[128]:=",ExpressionUUID->"922bbf13-0a40-4ffe-b65d-fb54bcae380b"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1.3578383417062967`"}], ",", RowBox[{"-", "0.04895328972041035`"}], ",", "0.040152590897806796`", ",", RowBox[{"-", "0.07634150977872403`"}], ",", "0.22553840411972031`", ",", RowBox[{"-", "0.8705719288881231`"}], ",", "4.0294426461487145`", ",", RowBox[{"-", "21.503792136560655`"}], ",", "130.1609902246785`", ",", RowBox[{"-", "886.8731778001119`"}], ",", "6762.939912929589`", ",", RowBox[{"-", "57330.54580849964`"}], ",", "536110.1451178609`", ",", RowBox[{"-", "5.486439916757801`*^6"}]}], "}"}]], "Output", CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, 3.8438140456211767`*^9, 3.843883359816826*^9, {3.843883446786009*^9, 3.8438834656906137`*^9}, 3.843883510726555*^9, 3.844143334475615*^9, 3.8441568185994*^9, 3.844339335319125*^9}, CellLabel-> "Out[128]=",ExpressionUUID->"043e197a-7692-4187-83b6-ce5829ad4a5d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"datOurLow6", "=", RowBox[{"Chop", "[", RowBox[{ RowBox[{"dGd\[Xi]LowList", "[", RowBox[{ RowBox[{"NF", "[", "6", "]"}], ",", RowBox[{"H", "[", "6", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"rules", "[", RowBox[{"H", "[", "6", "]"}], "]"}], ",", RowBox[{"S", "[", "6", "]"}]}], "]"}]}], "]"}], "[", "14", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.843813552094987*^9, 3.843813668224395*^9}, { 3.843883465412313*^9, 3.84388347186026*^9}, {3.843883516141139*^9, 3.843883518181106*^9}, {3.844143309505481*^9, 3.8441433194574413`*^9}, { 3.8443393162229347`*^9, 3.844339322167035*^9}}, CellLabel-> "In[129]:=",ExpressionUUID->"649e9e6d-3d2c-4639-9c47-2ea1ddcf4b02"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1.357838341706558`"}], ",", RowBox[{"-", "0.04895328972070345`"}], ",", "0.038863930625903244`", ",", RowBox[{"-", "0.06836211971140452`"}], ",", "0.1838836984300239`", ",", RowBox[{"-", "0.6591714228830016`"}], ",", "2.938563888747659`", ",", RowBox[{"-", "15.659413828476081`"}], ",", "97.6039830158417`", ",", RowBox[{"-", "705.9286232118421`"}], ",", "5933.433358981995`", ",", RowBox[{"-", "58038.580008779725`"}], ",", "653987.4117822968`", ",", RowBox[{"-", "8.280938794522655`*^6"}]}], "}"}]], "Output", CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, 3.843818188530829*^9, 3.8438835487202253`*^9, 3.8441433635327*^9, 3.844156848488489*^9, 3.84433936486823*^9}, CellLabel-> "Out[129]=",ExpressionUUID->"2bf68a8e-7713-4e0f-8e35-9b2bda25554f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"datOurHigh2", "=", RowBox[{"Chop", "[", RowBox[{ RowBox[{"dGd\[Xi]List", "[", RowBox[{ RowBox[{"NF", "[", "2", "]"}], ",", RowBox[{"H", "[", "2", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"rules", "[", RowBox[{"H", "[", "2", "]"}], "]"}], ",", RowBox[{"S", "[", "2", "]"}]}], "]"}]}], "]"}], "[", RowBox[{"14", ",", "0"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.843813552094987*^9, 3.8438136440081587`*^9}, { 3.8438833391542397`*^9, 3.843883375666812*^9}, {3.843883449636417*^9, 3.843883479692768*^9}, {3.8438835272533703`*^9, 3.843883540637532*^9}}, CellLabel-> "In[130]:=",ExpressionUUID->"65da12ab-b919-4aad-899a-77b90d54ba33"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "1.8452280782328416`"}], ",", "0", ",", "8.377514122546064`", ",", "0", ",", RowBox[{"-", "96.52148911058097`"}], ",", "0", ",", "1493.9976737243942`", ",", "0", ",", RowBox[{"-", "26818.45130191777`"}], ",", "0", ",", "526377.7118305506`", ",", "0", ",", RowBox[{"-", "1.0966384870468803`*^7"}]}], "}"}]], "Output", CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, 3.8438140456211767`*^9, 3.843883359816826*^9, {3.843883446786009*^9, 3.8438834656906137`*^9}, 3.843883510726555*^9, 3.843883580486106*^9, 3.844143393554497*^9, 3.844156878138134*^9, 3.844339394551982*^9}, CellLabel-> "Out[130]=",ExpressionUUID->"bf118231-ac60-4b08-8d5b-c2f02ee72a5b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"datOurHigh6", "=", RowBox[{"Chop", "[", RowBox[{ RowBox[{"dGd\[Xi]List", "[", RowBox[{ RowBox[{"NF", "[", "6", "]"}], ",", RowBox[{"H", "[", "6", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"rules", "[", RowBox[{"H", "[", "6", "]"}], "]"}], ",", RowBox[{"S", "[", "6", "]"}]}], "]"}]}], "]"}], "[", RowBox[{"14", ",", "0"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.843813552094987*^9, 3.843813668224395*^9}, { 3.843883465412313*^9, 3.84388347186026*^9}, {3.843883516141139*^9, 3.84388354845371*^9}, {3.844143327282058*^9, 3.844143333993751*^9}, { 3.844339328199375*^9, 3.844339335311452*^9}}, CellLabel-> "In[131]:=",ExpressionUUID->"2476ffb9-8112-4899-a159-f51883b8e216"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "1.8452280782328523`"}], ",", "0", ",", "8.333711749926277`", ",", "0", ",", RowBox[{"-", "95.16896371253469`"}], ",", "0", ",", "1457.5503638974826`", ",", "0", ",", RowBox[{"-", "25869.797578475864`"}], ",", "0", ",", "501951.0982257904`", ",", "0", ",", RowBox[{"-", "1.033917515714893`*^7"}]}], "}"}]], "Output", CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, 3.843818188530829*^9, 3.8438836116815853`*^9, 3.844143422730055*^9, 3.844156908378335*^9, 3.844339423974668*^9}, CellLabel-> "Out[131]=",ExpressionUUID->"4472fe7c-a13d-48f2-8ce9-7c86fc80c436"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"datOurMid2", "=", RowBox[{"Chop", "[", RowBox[{ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", RowBox[{ RowBox[{"NF", "[", "2", "]"}], ",", RowBox[{"H", "[", "2", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"rules", "[", RowBox[{"H", "[", "2", "]"}], "]"}], ",", RowBox[{"S", "[", "2", "]"}]}], "]"}]}], "]"}], "[", RowBox[{"14", ",", "1"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.843813552094987*^9, 3.8438136440081587`*^9}, { 3.8438833391542397`*^9, 3.843883375666812*^9}, {3.843883449636417*^9, 3.843883479692768*^9}, {3.8438835272533703`*^9, 3.843883540637532*^9}, { 3.8438835969825583`*^9, 3.843883614991191*^9}}, CellLabel-> "In[132]:=",ExpressionUUID->"e595b072-4f65-493a-afbb-d0fd95bb7c1c"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1.197437800827181`"}], ",", RowBox[{"-", "0.3190726460965614`"}], ",", "0.11091443628541181`", ",", "0.016509650519849282`", ",", RowBox[{"-", "0.0003141121112829187`"}], ",", RowBox[{"-", "0.0005146254923651025`"}], ",", "0.0002221366986115451`", ",", RowBox[{"-", "0.00005010818239482555`"}], ",", RowBox[{"-", "5.828936646513926`*^-7"}], ",", "5.746698725714958`*^-6", ",", RowBox[{"-", "2.317572453533117`*^-6"}], ",", "2.8319049007218993`*^-7", ",", "1.3282081081853632`*^-7", ",", RowBox[{"-", "7.401803626641128`*^-8"}], ",", "1.6095359608980834`*^-8"}], "}"}]], "Output", CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, 3.8438140456211767`*^9, 3.843883359816826*^9, {3.843883446786009*^9, 3.8438834656906137`*^9}, 3.843883510726555*^9, 3.843883580486106*^9, 3.843883657475613*^9, 3.844143455214177*^9, 3.8441569417140217`*^9, 3.844339456703684*^9}, CellLabel-> "Out[132]=",ExpressionUUID->"fccdbef1-244e-44c6-b3c4-5001cf802c3b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"datOurMid6", "=", RowBox[{"Chop", "[", RowBox[{ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", RowBox[{ RowBox[{"NF", "[", "6", "]"}], ",", RowBox[{"H", "[", "6", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"rules", "[", RowBox[{"H", "[", "6", "]"}], "]"}], ",", RowBox[{"S", "[", "6", "]"}]}], "]"}]}], "]"}], "[", RowBox[{"14", ",", "1"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.843813552094987*^9, 3.843813668224395*^9}, { 3.843883465412313*^9, 3.84388347186026*^9}, {3.843883516141139*^9, 3.84388354845371*^9}, {3.843883600398727*^9, 3.843883619695004*^9}, { 3.8441433422259483`*^9, 3.84414335086604*^9}, {3.844339343199572*^9, 3.844339349863679*^9}}, CellLabel-> "In[133]:=",ExpressionUUID->"428ba532-a5a7-47a0-834d-51e3a093d96a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1.197733314476603`"}], ",", RowBox[{"-", "0.3188102465763356`"}], ",", "0.11088626986286532`", ",", "0.016426906005372888`", ",", RowBox[{"-", "0.00026404279344288684`"}], ",", RowBox[{"-", "0.0005140260159366009`"}], ",", "0.00020886534275493685`", ",", RowBox[{"-", "0.000044828373716923474`"}], ",", "3.2472263422728396`*^-7", ",", "4.312795231984893`*^-6", ",", RowBox[{"-", "1.989930723631579`*^-6"}], ",", "4.3398967612728695`*^-7", ",", "3.0343615844906865`*^-8", ",", RowBox[{"-", "6.741502699179006`*^-8"}], ",", "2.8695485833852726`*^-8"}], "}"}]], "Output", CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, 3.843818188530829*^9, 3.8438836964718227`*^9, 3.844143491953845*^9, 3.844156978980246*^9, 3.8441574949286547`*^9, 3.844339493222323*^9}, CellLabel-> "Out[133]=",ExpressionUUID->"a74c17d3-52e9-4bc4-8151-87ccfed07273"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ "\"\<~/doc/research/first_order_singularities/paper/data/glow_series_ours_2.\ dat\>\"", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"datOurLow2", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "datOurLow2", "]"}]}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.8365725090188103`*^9, 3.836572511033183*^9}, { 3.836572551269373*^9, 3.836572621026455*^9}, {3.8365727308332853`*^9, 3.836572735579463*^9}, {3.8369881356397867`*^9, 3.8369881529196568`*^9}, { 3.843818319071336*^9, 3.8438183408474913`*^9}, {3.84414349994906*^9, 3.844143528077484*^9}}, CellLabel-> "In[134]:=",ExpressionUUID->"11720fd4-85fa-4891-a6d6-e316b2c63a60"], Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/glow_\ series_ours_2.dat\"\>"], "Output", CellChangeTimes->{ 3.8365725114300337`*^9, {3.8365725984285917`*^9, 3.8365726212484303`*^9}, 3.8365727364325037`*^9, {3.836988153130045*^9, 3.836988182958664*^9}, 3.836988333167184*^9, 3.8370701494196787`*^9, 3.8370707835909777`*^9, 3.843818342558866*^9, {3.844143509746292*^9, 3.844143528387505*^9}, 3.844157532134253*^9, 3.844339493255859*^9}, CellLabel-> "Out[134]=",ExpressionUUID->"bfc7450c-8753-4ad4-a680-b80674ac5a25"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ "\"\<~/doc/research/first_order_singularities/paper/data/glow_series_ours_6.\ dat\>\"", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"datOurLow6", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "datOurLow6", "]"}]}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.8365725090188103`*^9, 3.836572511033183*^9}, { 3.836572551269373*^9, 3.836572621026455*^9}, {3.8365727308332853`*^9, 3.836572735579463*^9}, {3.8369881356397867`*^9, 3.8369881529196568`*^9}, { 3.843818319071336*^9, 3.8438183408474913`*^9}, {3.84414349994906*^9, 3.8441435090372667`*^9}, {3.84433935813597*^9, 3.84433936264786*^9}}, CellLabel-> "In[135]:=",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"], Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/glow_\ series_ours_6.dat\"\>"], "Output", CellChangeTimes->{ 3.8365725114300337`*^9, {3.8365725984285917`*^9, 3.8365726212484303`*^9}, 3.8365727364325037`*^9, {3.836988153130045*^9, 3.836988182958664*^9}, 3.836988333167184*^9, 3.8370701494196787`*^9, 3.8370707835909777`*^9, 3.843818342558866*^9, 3.844143509746292*^9, 3.844157532367456*^9, 3.844339493281698*^9}, CellLabel-> "Out[135]=",ExpressionUUID->"86d97ab8-bfe5-478d-a4ba-5bc364b4d54e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ "\"\<~/doc/research/first_order_singularities/paper/data/glow_series_\ caselle.dat\>\"", ",", RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"datCas", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "datCas", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, { 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, { 3.843812903750565*^9, 3.843812935070904*^9}}, CellLabel-> "In[368]:=",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"], Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/glow_\ series_caselle.dat\"\>"], "Output", CellChangeTimes->{ 3.836988223024967*^9, 3.836988260494157*^9, 3.836988333199574*^9, 3.837070149473012*^9, 3.837070783629765*^9, 3.837072865499703*^9, 3.843812937101083*^9, {3.844157532614583*^9, 3.84415755777186*^9}}, CellLabel-> "Out[368]=",ExpressionUUID->"ac5b89c4-24ae-436b-b19b-5a19cf92f196"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ "\"\<~/doc/research/first_order_singularities/paper/data/ghigh_caselle.dat\>\ \"", ",", RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"datCasH", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "datCasH", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, { 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, { 3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9, 3.843813002559956*^9}}, CellLabel-> "In[369]:=",ExpressionUUID->"3f815a4c-10cf-489f-9fc2-62e52069c4c0"], Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/ghigh_\ caselle.dat\"\>"], "Output", CellChangeTimes->{ 3.836988223024967*^9, 3.836988260494157*^9, 3.836988333199574*^9, 3.837070149473012*^9, 3.837070783629765*^9, 3.837072865499703*^9, 3.843812937101083*^9, 3.843813188718388*^9, {3.844157532899776*^9, 3.844157557817953*^9}}, CellLabel-> "Out[369]=",ExpressionUUID->"0058d268-597e-4f7a-a395-c0fdf2e2f0fc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ "\"\<~/doc/research/first_order_singularities/paper/data/ghigh_series_ours_\ 2.dat\>\"", ",", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "14"}], "]"}], ",", "datOurHigh2"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, { 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, { 3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9, 3.843813002559956*^9}, {3.843883687737048*^9, 3.843883735041348*^9}}, CellLabel-> "In[136]:=",ExpressionUUID->"cd97b893-1f61-415c-8763-743df3cfe10e"], Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/ghigh_\ series_ours_2.dat\"\>"], "Output", CellChangeTimes->{ 3.836988223024967*^9, 3.836988260494157*^9, 3.836988333199574*^9, 3.837070149473012*^9, 3.837070783629765*^9, 3.837072865499703*^9, 3.843812937101083*^9, 3.843813188718388*^9, 3.843883736492688*^9, { 3.8441435165043383`*^9, 3.844143533493575*^9}, 3.844157533156438*^9, 3.844339493307954*^9}, CellLabel-> "Out[136]=",ExpressionUUID->"9bbd03d3-a0ba-4157-8a3b-5f539ce94bce"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ "\"\<~/doc/research/first_order_singularities/paper/data/ghigh_series_ours_\ 6.dat\>\"", ",", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "14"}], "]"}], ",", "datOurHigh6"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, { 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, { 3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9, 3.843813002559956*^9}, {3.843883687737048*^9, 3.843883746721509*^9}, { 3.8441435390059643`*^9, 3.844143543005599*^9}, {3.84433937240802*^9, 3.8443393749201736`*^9}}, CellLabel-> "In[137]:=",ExpressionUUID->"7cc8abed-034f-48f9-a04c-7a7cd336cffc"], Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/ghigh_\ series_ours_6.dat\"\>"], "Output", CellChangeTimes->{{3.844143536721059*^9, 3.844143543297987*^9}, 3.8441575334279346`*^9, 3.844339493333724*^9}, CellLabel-> "Out[137]=",ExpressionUUID->"07f77345-76ab-4e5d-a2e6-e24bb55feac9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ "\"\<~/doc/research/first_order_singularities/paper/data/phi_series_ours_2.\ dat\>\"", ",", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "14"}], "]"}], ",", "datOurMid2"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, { 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, { 3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9, 3.843813002559956*^9}, {3.843883687737048*^9, 3.843883785650159*^9}}, CellLabel-> "In[138]:=",ExpressionUUID->"ed90fc79-b0f9-464f-acb1-e5aa0d9691f1"], Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/phi_\ series_ours_2.dat\"\>"], "Output", CellChangeTimes->{3.8438837865421677`*^9, 3.844143546059861*^9, 3.8441575337089033`*^9, 3.844339493360519*^9}, CellLabel-> "Out[138]=",ExpressionUUID->"4514c09f-2394-460a-8977-2ada54b3b9d0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ "\"\<~/doc/research/first_order_singularities/paper/data/phi_series_ours_6.\ dat\>\"", ",", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "14"}], "]"}], ",", "datOurMid6"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, { 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, { 3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9, 3.843813002559956*^9}, {3.843883687737048*^9, 3.843883746721509*^9}, { 3.8438837895463448`*^9, 3.843883795498577*^9}, {3.8441435486938868`*^9, 3.844143549573801*^9}, {3.844339380648179*^9, 3.84433938249638*^9}}, CellLabel-> "In[139]:=",ExpressionUUID->"6dd628a1-23df-42ea-b634-4bef16413391"], Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/phi_\ series_ours_6.dat\"\>"], "Output", CellChangeTimes->{ 3.836988223024967*^9, 3.836988260494157*^9, 3.836988333199574*^9, 3.837070149473012*^9, 3.837070783629765*^9, 3.837072865499703*^9, 3.843812937101083*^9, 3.843813188718388*^9, {3.843883736492688*^9, 3.8438837481882477`*^9}, 3.8438837970953608`*^9, 3.8441435499477587`*^9, 3.84415753402846*^9, 3.8443394933861513`*^9}, CellLabel-> "Out[139]=",ExpressionUUID->"80acb19e-2d21-40df-ae02-eb1e1c8d4e00"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Gls", "[", RowBox[{"[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.836985954144209*^9, 3.836985955175076*^9}}, CellLabel-> "In[176]:=",ExpressionUUID->"feb08355-9ad1-4257-9f97-e394177d7e32"], Cell[BoxData[ InterpretationBox[ TemplateBox[{"0.0", "1.0", SuperscriptBox["10", "-14"]}, "AroundExp"], Around[0., 1.*^-14]]], "Output", CellChangeTimes->{3.836985955307584*^9}, CellLabel-> "Out[176]=",ExpressionUUID->"87e29f54-9d68-4261-96d4-95d24dcdc36a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogPlot", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Abs", "@", "datNum"}], ",", RowBox[{"Abs", "@", RowBox[{"Prepend", "[", RowBox[{"datCas", ",", RowBox[{"Gls", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, { 3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9, 3.829128493270048*^9}, {3.8291285364471493`*^9, 3.8291285366627502`*^9}, { 3.829128816403723*^9, 3.829128817219697*^9}, {3.829212218892186*^9, 3.829212225564254*^9}, {3.8292122694048777`*^9, 3.829212364606584*^9}, { 3.829212422415756*^9, 3.8292124291194887`*^9}, {3.8292138886103983`*^9, 3.829213892914075*^9}, {3.829214258440802*^9, 3.829214267624782*^9}, { 3.829218996805491*^9, 3.829219001117147*^9}, 3.832145386241276*^9, 3.832145427201569*^9, {3.8321459818994417`*^9, 3.832145984739521*^9}, { 3.8321461019658613`*^9, 3.832146103005608*^9}, {3.83214636465071*^9, 3.832146365018457*^9}, {3.8321468071147757`*^9, 3.83214683603503*^9}, { 3.832151906798731*^9, 3.832151920438457*^9}, {3.83215203026543*^9, 3.8321520312326193`*^9}, {3.836984203191142*^9, 3.8369842034070263`*^9}, { 3.836984260736669*^9, 3.836984270504239*^9}, {3.836985883270376*^9, 3.8369858862218723`*^9}, {3.836985919726593*^9, 3.836985961239354*^9}}, CellLabel-> "In[189]:=",ExpressionUUID->"e61ed118-a102-4290-8440-cba17b87145b"], Cell[BoxData[ GraphicsBox[{{{{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{1., 0.3058939805973312}, {1., 0.3058939805973386}}], LineBox[{{1., 0.3058939805973386}, {1., 0.3058939805973459}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{2., -3.0168887065845538`}, {2., -3.0168887065436985`}}], LineBox[{{2., -3.0168887065436985`}, {2., -3.016888706502843}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{3., -3.24768873618056}, {3., -3.2476887336074802`}}], LineBox[{{3., -3.2476887336074802`}, {3., -3.2476887310344003`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{4., -2.6829364089277306`}, {4., -2.6829363942997464`}}], LineBox[{{4., -2.6829363942997464`}, {4., -2.6829363796717627`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{5., -1.6934517864279734`}, {5., -1.6934517320457758`}}], LineBox[{{5., -1.6934517320457758`}, {5., -1.693451677663581}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{6., -0.4167753281916941}, {6., -0.41677381113121115`}}], LineBox[{{6., -0.41677381113121115`}, {6., -0.4167722940730296}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{7., 1.077614026885801}, {7., 1.077615048105556}}], LineBox[{{7., 1.077615048105556}, {7., 1.0776160693242682`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{8., 2.747270914255491}, {8., 2.7479117345273405`}}], LineBox[{{8., 2.7479117345273405`}, {8., 2.7485521444115397`}}]}}, Antialiasing->False]}}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{1., 0.3058939805973312}, {1., 0.3058939805973386}}], LineBox[{{1., 0.3058939805973386}, {1., 0.3058939805973459}}]}}, Antialiasing->False]}}, {{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{1., 0.3058939805973459}, Offset[{3, 0}, {1., 0.3058939805973459}]}, {{1., 0.3058939805973459}, Offset[{-3, 0}, {1., 0.3058939805973459}]}, {{1., 0.3058939805973312}, Offset[{3, 0}, {1., 0.3058939805973312}]}, {{1., 0.3058939805973312}, Offset[{-3, 0}, {1., 0.3058939805973312}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{2., -3.016888706502843}, Offset[{3, 0}, {2., -3.016888706502843}]}, {{ 2., -3.016888706502843}, Offset[{-3, 0}, {2., -3.016888706502843}]}, {{ 2., -3.0168887065845538`}, Offset[{3, 0}, {2., -3.0168887065845538`}]}, {{ 2., -3.0168887065845538`}, Offset[{-3, 0}, {2., -3.0168887065845538`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{3., -3.2476887310344003`}, Offset[{3, 0}, {3., -3.2476887310344003`}]}, {{ 3., -3.2476887310344003`}, Offset[{-3, 0}, {3., -3.2476887310344003`}]}, {{ 3., -3.24768873618056}, Offset[{3, 0}, {3., -3.24768873618056}]}, {{ 3., -3.24768873618056}, Offset[{-3, 0}, {3., -3.24768873618056}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{4., -2.6829363796717627`}, Offset[{3, 0}, {4., -2.6829363796717627`}]}, {{ 4., -2.6829363796717627`}, Offset[{-3, 0}, {4., -2.6829363796717627`}]}, {{ 4., -2.6829364089277306`}, Offset[{3, 0}, {4., -2.6829364089277306`}]}, {{ 4., -2.6829364089277306`}, Offset[{-3, 0}, {4., -2.6829364089277306`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{5., -1.693451677663581}, Offset[{3, 0}, {5., -1.693451677663581}]}, {{ 5., -1.693451677663581}, Offset[{-3, 0}, {5., -1.693451677663581}]}, {{ 5., -1.6934517864279734`}, Offset[{3, 0}, {5., -1.6934517864279734`}]}, {{ 5., -1.6934517864279734`}, Offset[{-3, 0}, {5., -1.6934517864279734`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{6., -0.4167722940730296}, Offset[{3, 0}, {6., -0.4167722940730296}]}, {{ 6., -0.4167722940730296}, Offset[{-3, 0}, {6., -0.4167722940730296}]}, {{ 6., -0.4167753281916941}, Offset[{3, 0}, {6., -0.4167753281916941}]}, {{ 6., -0.4167753281916941}, Offset[{-3, 0}, {6., -0.4167753281916941}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{7., 1.0776160693242682`}, Offset[{3, 0}, {7., 1.0776160693242682`}]}, {{7., 1.0776160693242682`}, Offset[{-3, 0}, {7., 1.0776160693242682`}]}, {{7., 1.077614026885801}, Offset[{3, 0}, {7., 1.077614026885801}]}, {{ 7., 1.077614026885801}, Offset[{-3, 0}, {7., 1.077614026885801}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{8., 2.7485521444115397`}, Offset[{3, 0}, {8., 2.7485521444115397`}]}, {{8., 2.7485521444115397`}, Offset[{-3, 0}, {8., 2.7485521444115397`}]}, {{8., 2.747270914255491}, Offset[{3, 0}, {8., 2.747270914255491}]}, {{ 8., 2.747270914255491}, Offset[{-3, 0}, {8., 2.747270914255491}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{1., 0.3058939805973459}, Offset[{3, 0}, {1., 0.3058939805973459}]}, {{1., 0.3058939805973459}, Offset[{-3, 0}, {1., 0.3058939805973459}]}, {{1., 0.3058939805973312}, Offset[{3, 0}, {1., 0.3058939805973312}]}, {{ 1., 0.3058939805973312}, Offset[{-3, 0}, {1., 0.3058939805973312}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 0.3058939805973386}, {2., -3.0168887065436985`}, { 3., -3.2476887336074802`}, {4., -2.6829363942997464`}, { 5., -1.6934517320457758`}, {6., -0.41677381113121115`}, {7., 1.077615048105556}, {8., 2.7479117345273405`}, {9., 4.572233685741827}, {10., 6.520621127558696}, {11., 8.582980931954241}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 0.3058939805973386}, {2., -3.016888706543698}, { 3., -3.3287744260904106`}, {4., -2.934764093520849}, { 5., -2.207701067055789}, {6., -1.2838925884713879`}, { 7., -0.2300059579711514}, {8., 0.9161715977728528}, {9., 2.1311404843033004`}, {10., 3.399303961023672}, {11., 4.709793306328703}, {12., 6.054740048438777}, {13., 7.428269671957708}, {14., 8.825883411079555}, {15., 10.2440616536727}, { 16., 11.680000190290155`}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., -4.50329621506643}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, PlotRange->{{0., 16.}, {-4.50329621506643, 11.680000190290155`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->FrontEndValueCache[{Automatic, Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-4.605170185988091, FormBox[ TagBox[ InterpretationBox[ StyleBox["\"0.01\"", ShowStringCharacters -> False], 0.01, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, {0., FormBox["1", TraditionalForm], {0.01, 0.}}, {4.605170185988092, FormBox["100", TraditionalForm], {0.01, 0.}}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {-2.3025850929940455`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.302585092994046, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 6.907755278982137, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11.512925464970229`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 13.815510557964274`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 14.22097566607244, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 14.508657738524219`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 14.73180128983843, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]]], "Output", CellChangeTimes->{3.8369859615296097`*^9, 3.836987016307529*^9}, CellLabel-> "Out[189]=",ExpressionUUID->"2e45389f-59c7-4eaf-9b3a-270214fa013e"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.836571106360374*^9, 3.836571120300399*^9}, 3.836571168400168*^9},ExpressionUUID->"0f87aa05-2cc9-472a-ab27-\ 39ee15777442"], Cell[BoxData[ RowBox[{"Export", "[", "\"\<~/doc/research/first_order_singularities/paper/data/Glow_series_\ numeric\>"}]], "Input", CellChangeTimes->{{3.836571088501528*^9, 3.836571098249134*^9}, { 3.836571174194809*^9, 3.836571175840929*^9}, {3.836571808915742*^9, 3.836571839874625*^9}},ExpressionUUID->"627c17e0-e2d8-4347-8fe9-\ 812183a42941"], Cell[CellGroupData[{ Cell[BoxData["datNum"], "Input", CellChangeTimes->{{3.836571783214171*^9, 3.83657178386341*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"f32c32be-7fcb-4660-bf43-cbc119acda96"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", InterpretationBox[ TemplateBox[{"0.0", "1.0", SuperscriptBox["10", "-14"]}, "AroundExp"], Around[0., 1.*^-14]]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", InterpretationBox[ TemplateBox[{"1.3578383417065", "95", "10"}, "AroundSeq"], Around[1.357838341706595496`18.132848067820845, 1.*^-14]]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", InterpretationBox[ TemplateBox[{"0.09790657944", "0", "4"}, "AroundSeq"], Around[0.09790657944, 4.*^-12]]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", InterpretationBox[ TemplateBox[{"0.233183574", "0", "6"}, "AroundSeq"], Around[0.233183574, 6.*^-10]]}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", InterpretationBox[ TemplateBox[{"1.6406909", "04", "24"}, "AroundSeq"], Around[1.640690904, 2.4000000000000003`*^-8]]}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", InterpretationBox[ TemplateBox[{"22.06604", "52", "12"}, "AroundSeq"], Around[22.0660452, 1.2*^-6]]}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", InterpretationBox[ TemplateBox[{"474.6024", "0.0007"}, "Around"], Around[474.60240000000005`, 0.0007199999999999999]]}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", InterpretationBox[ TemplateBox[{"14805.832", "0.015"}, "Around"], Around[14805.8316, 0.01512]]}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", InterpretationBox[ TemplateBox[{"629395.", "403."}, "Around"], Around[629395.2, 403.2]]}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "3.5112268800000004`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "2463955200"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "213155712000"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.836571784123211*^9}, CellLabel->"Out[25]=",ExpressionUUID->"01b48fb7-d8c9-4012-92f6-488cf7e7087c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"convNum", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "i", "]"}], "]"}], "/", RowBox[{"i", "!"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"Length", "[", "#", "]"}]}], "}"}]}], "]"}], "&"}], "@", RowBox[{"Abs", "[", RowBox[{"Rest", "@", RowBox[{"datNum", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.836571181914515*^9, 3.836571198597612*^9}, { 3.836571231056604*^9, 3.836571231624762*^9}, {3.836571357622385*^9, 3.8365713615968924`*^9}, {3.836571758467436*^9, 3.836571762121763*^9}},ExpressionUUID->"bfa6a31f-5eb9-4063-b798-\ e45ab1e3b53a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", InterpretationBox[ TemplateBox[{"0.03605236957", "62", "15"}, "AroundSeq"], Around[0.03605236957624365, 1.4729294136595367`*^-12]]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", InterpretationBox[ TemplateBox[{"0.79389820", "83", "20"}, "AroundSeq"], Around[0.7938982083184092, 2.043021117987329*^-9]]}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", InterpretationBox[ TemplateBox[{"1.7590120", "91", "26"}, "AroundSeq"], Around[1.7590120906200708`, 2.612583930959776*^-8]]}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", InterpretationBox[ TemplateBox[{"2.689847", "93", "15"}, "AroundSeq"], Around[2.6898479349404627`, 1.5147931071787232`*^-7]]}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", InterpretationBox[ TemplateBox[{"3.58471", "1", "5"}, "AroundSeq"], Around[3.5847112286346623`, 5.4417125989793*^-6]]}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", InterpretationBox[ TemplateBox[{"4.45661", "2", "8"}, "AroundSeq"], Around[4.456612103099352, 8.150067373466504*^-6]]}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", InterpretationBox[ TemplateBox[{"5.3137", "0.0034"}, "Around"], Around[5.313744079055986, 0.003404068437393709]]}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", InterpretationBox[ TemplateBox[{"6.199", "0.004"}, "Around"], Around[6.198590647021142, 0.003970910087777797]]}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "7.017362546506821`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", FractionBox["5340", "679"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.836571362022435*^9}, CellLabel->"Out[24]=",ExpressionUUID->"0ca79efb-1867-4b1f-96fc-4a691d54b72e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "i"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "i", "]"}], "]"}], "/", RowBox[{"#", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], "/", "i"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"Length", "[", "#", "]"}]}], "}"}]}], "]"}], "&"}], "@", RowBox[{"Abs", "[", RowBox[{"Rest", "@", RowBox[{"datNum", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "i"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "i", "]"}], "]"}], "/", RowBox[{"#", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], "/", "i"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"Length", "[", "#", "]"}]}], "}"}]}], "]"}], "&"}], "@", RowBox[{"Abs", "[", "datCas", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "i"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "i", "]"}], "]"}], "/", RowBox[{"#", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], "/", "i"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"Length", "[", "#", "]"}]}], "}"}]}], "]"}], "&"}], "@", RowBox[{"Rest", "[", "datOurs", "]"}]}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], ",", "All"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.8321545395343018`*^9, 3.832154711976303*^9}, { 3.8321547939317636`*^9, 3.832154819442959*^9}, {3.832154942117115*^9, 3.832155007925785*^9}}, CellLabel->"In[21]:=",ExpressionUUID->"242aacdf-e4c7-423c-a26a-12188ba2476e"], Cell[BoxData[ GraphicsBox[{{{{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.5, 0.036052369574770725`}, {0.5, 0.03605236957624365}}], LineBox[{{0.5, 0.03605236957624365}, {0.5, 0.03605236957771658}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.3333333333333333, 0.7938982062753881}, { 0.3333333333333333, 0.7938982083184092}}], LineBox[{{0.3333333333333333, 0.7938982083184092}, { 0.3333333333333333, 0.7938982103614303}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.25, 1.7590120644942315`}, {0.25, 1.7590120906200708`}}], LineBox[{{0.25, 1.7590120906200708`}, {0.25, 1.75901211674591}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.2, 2.689847783461152}, {0.2, 2.6898479349404627`}}], LineBox[{{0.2, 2.6898479349404627`}, {0.2, 2.6898480864197736`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.16666666666666666`, 3.584705786922063}, { 0.16666666666666666`, 3.5847112286346623`}}], LineBox[{{0.16666666666666666`, 3.5847112286346623`}, { 0.16666666666666666`, 3.5847166703472615`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.14285714285714285`, 4.456603953031978}, { 0.14285714285714285`, 4.456612103099352}}], LineBox[{{0.14285714285714285`, 4.456612103099352}, { 0.14285714285714285`, 4.456620253166726}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.125, 5.310340010618592}, {0.125, 5.313744079055986}}], LineBox[{{0.125, 5.313744079055986}, {0.125, 5.317148147493379}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.1111111111111111, 6.194619736933364}, { 0.1111111111111111, 6.198590647021142}}], LineBox[{{0.1111111111111111, 6.198590647021142}, { 0.1111111111111111, 6.202561557108919}}]}}, Antialiasing->False]}}, { {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.5, 0.03605236957477072}, {0.5, 0.03605236957624365}}], LineBox[{{0.5, 0.03605236957624365}, {0.5, 0.036052369577716584`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.3333333333333333, 0.7320651840215073}, { 0.3333333333333333, 0.7320651841891859}}], LineBox[{{0.3333333333333333, 0.7320651841891859}, { 0.3333333333333333, 0.7320651843568644}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.25, 1.4829158698286737`}, {0.25, 1.4829158709269852`}}], LineBox[{{0.25, 1.4829158709269852`}, {0.25, 1.4829158720252966`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.2, 2.0689950876451153`}, {0.2, 2.0689950917205424`}}], LineBox[{{0.2, 2.0689950917205424`}, {0.2, 2.0689950957959695`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.16666666666666666`, 2.5188651778156697`}, { 0.16666666666666666`, 2.5188651897853447`}}], LineBox[{{0.16666666666666666`, 2.5188651897853447`}, { 0.16666666666666666`, 2.5188652017550197`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.14285714285714285`, 2.8687793330471236`}, { 0.14285714285714285`, 2.868779363738686}}], LineBox[{{0.14285714285714285`, 2.868779363738686}, { 0.14285714285714285`, 2.868779394430248}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.125, 3.146143864414641}, {0.125, 3.146143936278064}}], LineBox[{{0.125, 3.146143936278064}, {0.125, 3.1461440081414866`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.1111111111111111, 3.37018904645845}, { 0.1111111111111111, 3.3701892044111372`}}], LineBox[{{0.1111111111111111, 3.3701892044111372`}, { 0.1111111111111111, 3.3701893623638246`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.1, 3.5543186434620817`}, {0.1, 3.554318975108394}}], LineBox[{{0.1, 3.554318975108394}, {0.1, 3.554319306754706}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.09090909090909091, 3.707987082017035}, { 0.09090909090909091, 3.707987754726281}}], LineBox[{{0.09090909090909091, 3.707987754726281}, { 0.09090909090909091, 3.7079884274355273`}}]}}, Antialiasing->False]}}}, {{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.5, 0.03605236957771658}, Offset[{3, 0}, {0.5, 0.03605236957771658}]}, {{0.5, 0.03605236957771658}, Offset[{-3, 0}, {0.5, 0.03605236957771658}]}, {{0.5, 0.036052369574770725`}, Offset[{3, 0}, {0.5, 0.036052369574770725`}]}, {{0.5, 0.036052369574770725`}, Offset[{-3, 0}, {0.5, 0.036052369574770725`}]}}], {{{1., 0.}, { 0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.3333333333333333, 0.7938982103614303}, Offset[{3, 0}, {0.3333333333333333, 0.7938982103614303}]}, {{ 0.3333333333333333, 0.7938982103614303}, Offset[{-3, 0}, {0.3333333333333333, 0.7938982103614303}]}, {{ 0.3333333333333333, 0.7938982062753881}, Offset[{3, 0}, {0.3333333333333333, 0.7938982062753881}]}, {{ 0.3333333333333333, 0.7938982062753881}, Offset[{-3, 0}, {0.3333333333333333, 0.7938982062753881}]}}], {{{ 1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.25, 1.75901211674591}, Offset[{3, 0}, {0.25, 1.75901211674591}]}, {{0.25, 1.75901211674591}, Offset[{-3, 0}, {0.25, 1.75901211674591}]}, {{ 0.25, 1.7590120644942315`}, Offset[{3, 0}, {0.25, 1.7590120644942315`}]}, {{0.25, 1.7590120644942315`}, Offset[{-3, 0}, {0.25, 1.7590120644942315`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.2, 2.6898480864197736`}, Offset[{3, 0}, {0.2, 2.6898480864197736`}]}, {{0.2, 2.6898480864197736`}, Offset[{-3, 0}, {0.2, 2.6898480864197736`}]}, {{0.2, 2.689847783461152}, Offset[{3, 0}, {0.2, 2.689847783461152}]}, {{ 0.2, 2.689847783461152}, Offset[{-3, 0}, {0.2, 2.689847783461152}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.16666666666666666`, 3.5847166703472615`}, Offset[{3, 0}, {0.16666666666666666`, 3.5847166703472615`}]}, {{ 0.16666666666666666`, 3.5847166703472615`}, Offset[{-3, 0}, {0.16666666666666666`, 3.5847166703472615`}]}, {{ 0.16666666666666666`, 3.584705786922063}, Offset[{3, 0}, {0.16666666666666666`, 3.584705786922063}]}, {{ 0.16666666666666666`, 3.584705786922063}, Offset[{-3, 0}, {0.16666666666666666`, 3.584705786922063}]}}], {{ {1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.14285714285714285`, 4.456620253166726}, Offset[{3, 0}, {0.14285714285714285`, 4.456620253166726}]}, {{ 0.14285714285714285`, 4.456620253166726}, Offset[{-3, 0}, {0.14285714285714285`, 4.456620253166726}]}, {{ 0.14285714285714285`, 4.456603953031978}, Offset[{3, 0}, {0.14285714285714285`, 4.456603953031978}]}, {{ 0.14285714285714285`, 4.456603953031978}, Offset[{-3, 0}, {0.14285714285714285`, 4.456603953031978}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.125, 5.317148147493379}, Offset[{3, 0}, {0.125, 5.317148147493379}]}, {{0.125, 5.317148147493379}, Offset[{-3, 0}, {0.125, 5.317148147493379}]}, {{0.125, 5.310340010618592}, Offset[{3, 0}, {0.125, 5.310340010618592}]}, {{0.125, 5.310340010618592}, Offset[{-3, 0}, {0.125, 5.310340010618592}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.1111111111111111, 6.202561557108919}, Offset[{3, 0}, {0.1111111111111111, 6.202561557108919}]}, {{ 0.1111111111111111, 6.202561557108919}, Offset[{-3, 0}, {0.1111111111111111, 6.202561557108919}]}, {{ 0.1111111111111111, 6.194619736933364}, Offset[{3, 0}, {0.1111111111111111, 6.194619736933364}]}, {{ 0.1111111111111111, 6.194619736933364}, Offset[{-3, 0}, {0.1111111111111111, 6.194619736933364}]}}], {{{ 1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}, { {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.5, 0.036052369577716584`}, Offset[{3, 0}, {0.5, 0.036052369577716584`}]}, {{0.5, 0.036052369577716584`}, Offset[{-3, 0}, {0.5, 0.036052369577716584`}]}, {{0.5, 0.03605236957477072}, Offset[{3, 0}, {0.5, 0.03605236957477072}]}, {{0.5, 0.03605236957477072}, Offset[{-3, 0}, {0.5, 0.03605236957477072}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.3333333333333333, 0.7320651843568644}, Offset[{3, 0}, {0.3333333333333333, 0.7320651843568644}]}, {{ 0.3333333333333333, 0.7320651843568644}, Offset[{-3, 0}, {0.3333333333333333, 0.7320651843568644}]}, {{ 0.3333333333333333, 0.7320651840215073}, Offset[{3, 0}, {0.3333333333333333, 0.7320651840215073}]}, {{ 0.3333333333333333, 0.7320651840215073}, Offset[{-3, 0}, {0.3333333333333333, 0.7320651840215073}]}}], {{{ 1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.25, 1.4829158720252966`}, Offset[{3, 0}, {0.25, 1.4829158720252966`}]}, {{0.25, 1.4829158720252966`}, Offset[{-3, 0}, {0.25, 1.4829158720252966`}]}, {{0.25, 1.4829158698286737`}, Offset[{3, 0}, {0.25, 1.4829158698286737`}]}, {{0.25, 1.4829158698286737`}, Offset[{-3, 0}, {0.25, 1.4829158698286737`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.2, 2.0689950957959695`}, Offset[{3, 0}, {0.2, 2.0689950957959695`}]}, {{0.2, 2.0689950957959695`}, Offset[{-3, 0}, {0.2, 2.0689950957959695`}]}, {{0.2, 2.0689950876451153`}, Offset[{3, 0}, {0.2, 2.0689950876451153`}]}, {{0.2, 2.0689950876451153`}, Offset[{-3, 0}, {0.2, 2.0689950876451153`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.16666666666666666`, 2.5188652017550197`}, Offset[{3, 0}, {0.16666666666666666`, 2.5188652017550197`}]}, {{ 0.16666666666666666`, 2.5188652017550197`}, Offset[{-3, 0}, {0.16666666666666666`, 2.5188652017550197`}]}, {{ 0.16666666666666666`, 2.5188651778156697`}, Offset[{3, 0}, {0.16666666666666666`, 2.5188651778156697`}]}, {{ 0.16666666666666666`, 2.5188651778156697`}, Offset[{-3, 0}, {0.16666666666666666`, 2.5188651778156697`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.14285714285714285`, 2.868779394430248}, Offset[{3, 0}, {0.14285714285714285`, 2.868779394430248}]}, {{ 0.14285714285714285`, 2.868779394430248}, Offset[{-3, 0}, {0.14285714285714285`, 2.868779394430248}]}, {{ 0.14285714285714285`, 2.8687793330471236`}, Offset[{3, 0}, {0.14285714285714285`, 2.8687793330471236`}]}, {{ 0.14285714285714285`, 2.8687793330471236`}, Offset[{-3, 0}, {0.14285714285714285`, 2.8687793330471236`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.125, 3.1461440081414866`}, Offset[{3, 0}, {0.125, 3.1461440081414866`}]}, {{0.125, 3.1461440081414866`}, Offset[{-3, 0}, {0.125, 3.1461440081414866`}]}, {{0.125, 3.146143864414641}, Offset[{3, 0}, {0.125, 3.146143864414641}]}, {{0.125, 3.146143864414641}, Offset[{-3, 0}, {0.125, 3.146143864414641}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.1111111111111111, 3.3701893623638246`}, Offset[{3, 0}, {0.1111111111111111, 3.3701893623638246`}]}, {{ 0.1111111111111111, 3.3701893623638246`}, Offset[{-3, 0}, {0.1111111111111111, 3.3701893623638246`}]}, {{ 0.1111111111111111, 3.37018904645845}, Offset[{3, 0}, {0.1111111111111111, 3.37018904645845}]}, {{ 0.1111111111111111, 3.37018904645845}, Offset[{-3, 0}, {0.1111111111111111, 3.37018904645845}]}}], {{{ 1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.1, 3.554319306754706}, Offset[{3, 0}, {0.1, 3.554319306754706}]}, {{0.1, 3.554319306754706}, Offset[{-3, 0}, {0.1, 3.554319306754706}]}, {{0.1, 3.5543186434620817`}, Offset[{3, 0}, {0.1, 3.5543186434620817`}]}, {{0.1, 3.5543186434620817`}, Offset[{-3, 0}, {0.1, 3.5543186434620817`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.09090909090909091, 3.7079884274355273`}, Offset[{3, 0}, {0.09090909090909091, 3.7079884274355273`}]}, {{ 0.09090909090909091, 3.7079884274355273`}, Offset[{-3, 0}, {0.09090909090909091, 3.7079884274355273`}]}, {{ 0.09090909090909091, 3.707987082017035}, Offset[{3, 0}, {0.09090909090909091, 3.707987082017035}]}, {{ 0.09090909090909091, 3.707987082017035}, Offset[{-3, 0}, {0.09090909090909091, 3.707987082017035}]}}], {{{ 1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{0.5, 0.03605236957624365}, {0.3333333333333333, 0.7938982083184092}, {0.25, 1.7590120906200708`}, {0.2, 2.6898479349404627`}, {0.16666666666666666`, 3.5847112286346623`}, { 0.14285714285714285`, 4.456612103099352}, {0.125, 5.313744079055986}, { 0.1111111111111111, 6.198590647021142}, {0.1, 7.017362546506821}, { 0.09090909090909091, 7.864506627393225}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{0.5, 0.03605236957624365}, {0.3333333333333333, 0.7320651841891859}, {0.25, 1.4829158709269852`}, {0.2, 2.0689950917205424`}, {0.16666666666666666`, 2.5188651897853447`}, { 0.14285714285714285`, 2.868779363738686}, {0.125, 3.146143936278064}, { 0.1111111111111111, 3.3701892044111372`}, {0.1, 3.554318975108394}, { 0.09090909090909091, 3.707987754726281}}]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{0.5, 0.03605236957624275}, {0.3333333333333333, 0.7882894953005081}, {0.25, 1.7205994529805817`}, {0.2, 2.602909307908811}, {0.16666666666666666`, 3.461385001061308}, { 0.14285714285714285`, 4.318948250741116}, {0.125, 5.180857308662023}, { 0.1111111111111111, 6.045444943508941}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 0.5}, {0, 7.864506627393225}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.832154644879883*^9, 3.832154712232472*^9}, { 3.8321548002930393`*^9, 3.832154819687943*^9}, 3.832154883650704*^9, { 3.8321549661619253`*^9, 3.832155008139481*^9}, 3.836570712756501*^9}, CellLabel->"Out[21]=",ExpressionUUID->"073d831e-11a6-4203-90ce-0df429c1a3f0"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"datOurs", "=", RowBox[{"Chop", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"dFd\[Xi]HighList", "[", RowBox[{"n1", ",", "h1"}], "]"}], "[", "12", "]"}], "]"}], "/.", "sol1"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.832145390968719*^9, 3.8321454292735577`*^9}, { 3.832145976500745*^9, 3.832145979699314*^9}, {3.832146795410326*^9, 3.832146803058391*^9}, {3.832146853819456*^9, 3.832146854323563*^9}, { 3.83214967637575*^9, 3.832149676470541*^9}, {3.832151549200243*^9, 3.8321515522247057`*^9}, {3.8321522853402777`*^9, 3.8321523108375397`*^9}}, CellLabel->"In[92]:=",ExpressionUUID->"80c6c675-eade-40e1-8d0f-13a6578b30ff"], Cell[BoxData[ RowBox[{ RowBox[{"datNumHigh", "=", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"Length", "[", "Ghs", "]"}], "-", "1"}]}], "]"}], ",", RowBox[{ RowBox[{"Abs", "[", "Ghs", "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Range", "[", RowBox[{"Length", "[", "Ghs", "]"}], "]"}], "-", "1"}], ")"}], "!"}], ")"}]}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.8321514933506927`*^9, 3.832151511975079*^9}, { 3.8321516136331882`*^9, 3.8321516208732758`*^9}}, CellLabel->"In[70]:=",ExpressionUUID->"d8847f2e-21fe-4fb7-84ae-676f83acdf5a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"datCasHigh", "=", RowBox[{ RowBox[{ RowBox[{"NestList", "[", RowBox[{ RowBox[{"dd\[Xi]", "[", "hCas", "]"}], ",", RowBox[{"m0", " ", FractionBox["\[Theta]", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Theta]", "2"]}], ")"}], RowBox[{"1", "/", "8"}]]]}], ",", "11"}], "]"}], "/.", RowBox[{"\[Theta]", "->", "0"}]}], "/.", "m0rule"}]}]], "Input", CellChangeTimes->{{3.83215152426346*^9, 3.8321515377758512`*^9}, { 3.832152099866603*^9, 3.8321521038257008`*^9}}, CellLabel->"In[87]:=",ExpressionUUID->"15d60f60-2f87-40da-a2c6-66d640111d75"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", InterpretationBox[ TemplateBox[{"3.880529725", "75", "16"}, "AroundSeq"], Around[3.8805297257531435`, 1.5854010523272218`*^-10]], ",", "0.`", ",", InterpretationBox[ TemplateBox[{"-233.1090657", "77", "29"}, "AroundSeq"], Around[-233.10906577746226`, 2.867554290133348*^-8]], ",", "0.`", ",", InterpretationBox[ TemplateBox[{"88518.948785", "0.000021"}, "Around"], Around[88518.94878487791, 0.000021388770252100324`]], ",", "0.`", ",", InterpretationBox[ TemplateBox[{"-8.41494659", "4", "4", SuperscriptBox["10", "7"]}, "AroundSeqExp"], Around[-8.414946593571003*^7, 0.04123893899074724]], ",", "0.`", ",", InterpretationBox[ TemplateBox[{"1.49073647", "91", "15", SuperscriptBox["10", "11"]}, "AroundSeqExp"], Around[1.490736479125683*^11, 152.87259164270972`]], ",", "0.`", ",", InterpretationBox[ TemplateBox[{"-4.24347172", "8", "9", SuperscriptBox["10", "14"]}, "AroundSeqExp"], Around[-4.2434717282285725`*^14, 909981.6588191775]]}], "}"}]], "Output", CellChangeTimes->{3.832151572013042*^9, 3.832152114955359*^9, 3.832152262145925*^9}, CellLabel->"Out[87]=",ExpressionUUID->"6f1d902a-0431-4a99-adc2-97eb3c423317"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogPlot", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Abs", "@", "datNumHigh"}], ",", RowBox[{"Abs", "@", "datCasHigh"}], ",", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"Length", "[", "datOurs", "]"}], "-", "1"}]}], "]"}], ",", "datOurs"}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.8321515752734756`*^9, 3.8321515972726097`*^9}, { 3.832151974881402*^9, 3.832152024153109*^9}, {3.8321522889336777`*^9, 3.832152299270874*^9}}, CellLabel->"In[91]:=",ExpressionUUID->"bec4c929-c1a6-4fd0-be18-caf3643ba3a4"], Cell[BoxData[ GraphicsBox[{{{{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{2., 1.3057500700435951`}, {2., 1.3057500700490146`}}], LineBox[{{2., 1.3057500700490146`}, {2., 1.305750070054434}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{4., 5.2983627756010305`}, {4., 5.29836277561303}}], LineBox[{{4., 5.29836277561303}, {4., 5.298362775625029}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{6., 11.134905050221258`}, {6., 11.13490515529753}}], LineBox[{{6., 11.13490515529753}, {6., 11.13490526037379}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{8., 17.889142568634654`}, {8., 17.88916315034232}}], LineBox[{{8., 17.88916315034232}, {8., 17.889183731626385`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{10., 25.265986020123417`}, {10., 25.266063270026894`}}], LineBox[{{10., 25.266063270026894`}, {10., 25.266140513963283`}}]}}, Antialiasing->False]}}, { {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{2., 1.355971671531294}, {2., 1.3559716715721493`}}], LineBox[{{2., 1.3559716715721493`}, {2., 1.3559716716130046`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{4., 5.45150643738662}, {4., 5.451506437509634}}], LineBox[{{4., 5.451506437509634}, {4., 5.451506437632648}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{6., 11.390971918399588`}, {6., 11.390971918641217`}}], LineBox[{{6., 11.390971918641217`}, {6., 11.390971918882846`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{8., 18.248105131515835`}, {8., 18.248105132005904`}}], LineBox[{{8., 18.248105132005904`}, {8., 18.248105132495972`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{10., 25.72770630104203}, {10., 25.727706302067514`}}], LineBox[{{10., 25.727706302067514`}, {10., 25.727706303092997`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{12., 33.681573037806594`}, {12., 33.68157303995102}}], LineBox[{{12., 33.68157303995102}, {12., 33.681573042095444`}}]}}, Antialiasing->False]}}}, {{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{2., 1.305750070054434}, Offset[{3, 0}, {2., 1.305750070054434}]}, {{2., 1.305750070054434}, Offset[{-3, 0}, {2., 1.305750070054434}]}, {{ 2., 1.3057500700435951`}, Offset[{3, 0}, {2., 1.3057500700435951`}]}, {{2., 1.3057500700435951`}, Offset[{-3, 0}, {2., 1.3057500700435951`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{4., 5.298362775625029}, Offset[{3, 0}, {4., 5.298362775625029}]}, {{4., 5.298362775625029}, Offset[{-3, 0}, {4., 5.298362775625029}]}, {{ 4., 5.2983627756010305`}, Offset[{3, 0}, {4., 5.2983627756010305`}]}, {{4., 5.2983627756010305`}, Offset[{-3, 0}, {4., 5.2983627756010305`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{6., 11.13490526037379}, Offset[{3, 0}, {6., 11.13490526037379}]}, {{6., 11.13490526037379}, Offset[{-3, 0}, {6., 11.13490526037379}]}, {{ 6., 11.134905050221258`}, Offset[{3, 0}, {6., 11.134905050221258`}]}, {{6., 11.134905050221258`}, Offset[{-3, 0}, {6., 11.134905050221258`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{8., 17.889183731626385`}, Offset[{3, 0}, {8., 17.889183731626385`}]}, {{8., 17.889183731626385`}, Offset[{-3, 0}, {8., 17.889183731626385`}]}, {{8., 17.889142568634654`}, Offset[{3, 0}, {8., 17.889142568634654`}]}, {{8., 17.889142568634654`}, Offset[{-3, 0}, {8., 17.889142568634654`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{10., 25.266140513963283`}, Offset[{3, 0}, {10., 25.266140513963283`}]}, {{10., 25.266140513963283`}, Offset[{-3, 0}, {10., 25.266140513963283`}]}, {{10., 25.265986020123417`}, Offset[{3, 0}, {10., 25.265986020123417`}]}, {{10., 25.265986020123417`}, Offset[{-3, 0}, {10., 25.265986020123417`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}, { {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{2., 1.3559716716130046`}, Offset[{3, 0}, {2., 1.3559716716130046`}]}, {{2., 1.3559716716130046`}, Offset[{-3, 0}, {2., 1.3559716716130046`}]}, {{2., 1.355971671531294}, Offset[{3, 0}, {2., 1.355971671531294}]}, {{ 2., 1.355971671531294}, Offset[{-3, 0}, {2., 1.355971671531294}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{4., 5.451506437632648}, Offset[{3, 0}, {4., 5.451506437632648}]}, {{4., 5.451506437632648}, Offset[{-3, 0}, {4., 5.451506437632648}]}, {{ 4., 5.45150643738662}, Offset[{3, 0}, {4., 5.45150643738662}]}, {{4., 5.45150643738662}, Offset[{-3, 0}, {4., 5.45150643738662}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{6., 11.390971918882846`}, Offset[{3, 0}, {6., 11.390971918882846`}]}, {{6., 11.390971918882846`}, Offset[{-3, 0}, {6., 11.390971918882846`}]}, {{6., 11.390971918399588`}, Offset[{3, 0}, {6., 11.390971918399588`}]}, {{6., 11.390971918399588`}, Offset[{-3, 0}, {6., 11.390971918399588`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{8., 18.248105132495972`}, Offset[{3, 0}, {8., 18.248105132495972`}]}, {{8., 18.248105132495972`}, Offset[{-3, 0}, {8., 18.248105132495972`}]}, {{8., 18.248105131515835`}, Offset[{3, 0}, {8., 18.248105131515835`}]}, {{8., 18.248105131515835`}, Offset[{-3, 0}, {8., 18.248105131515835`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{10., 25.727706303092997`}, Offset[{3, 0}, {10., 25.727706303092997`}]}, {{10., 25.727706303092997`}, Offset[{-3, 0}, {10., 25.727706303092997`}]}, {{10., 25.72770630104203}, Offset[{3, 0}, {10., 25.72770630104203}]}, {{ 10., 25.72770630104203}, Offset[{-3, 0}, {10., 25.72770630104203}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{12., 33.681573042095444`}, Offset[{3, 0}, {12., 33.681573042095444`}]}, {{12., 33.681573042095444`}, Offset[{-3, 0}, {12., 33.681573042095444`}]}, {{12., 33.681573037806594`}, Offset[{3, 0}, {12., 33.681573037806594`}]}, {{12., 33.681573037806594`}, Offset[{-3, 0}, {12., 33.681573037806594`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{2., 1.3057500700490146`}, {4., 5.29836277561303}, {6., 11.13490515529753}, {8., 17.88916315034232}, {10., 25.266063270026894`}, {12., 33.113569894335754`}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{2., 1.3559716715721493`}, {4., 5.451506437509634}, {6., 11.390971918641217`}, {8., 18.248105132005904`}, {10., 25.727706302067514`}, {12., 33.68157303995102}}]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{2., 1.3057500700490148`}, {4., 5.288752737747116}, {6., 11.11449127939783}, {8., 17.862389218907886`}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., -1.2278418112818485`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, PlotRange->{{0., 12.}, {-1.2278418112818485`, 33.681573042095444`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->FrontEndValueCache[{Automatic, Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{0., FormBox["1", TraditionalForm], {0.01, 0.}}, {6.907755278982137, FormBox["1000", TraditionalForm], {0.01, 0.}}, {13.815510557964274`, FormBox[ TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {20.72326583694641, FormBox[ TemplateBox[{"10", "9"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {27.631021115928547`, FormBox[ TemplateBox[{"10", "12"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {34.538776394910684`, FormBox[ TemplateBox[{"10", "15"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {2.302585092994046, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 4.605170185988092, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 9.210340371976184, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11.512925464970229`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 16.11809565095832, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 18.420680743952367`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 23.025850929940457`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 25.328436022934504`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 29.933606208922594`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 32.23619130191664, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 36.841361487904734`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]]], "Output", CellChangeTimes->{{3.832151589069502*^9, 3.8321516241260233`*^9}, { 3.832151978424953*^9, 3.832152024537464*^9}, 3.8321521150139637`*^9, { 3.832152276526582*^9, 3.832152299585641*^9}}, CellLabel->"Out[91]=",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"] }, Open ]] }, WindowSize->{1426.5, 740.25}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, TaggingRules->{"TryRealOnly" -> False}, FrontEndVersion->"13.2 for Linux x86 (64-bit) (December 7, 2022)", StyleDefinitions->"Default.nb", ExpressionUUID->"d257fbda-2be1-4221-9ac8-5153716cfc00" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 596, 10, 24, "Input",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"], Cell[1179, 34, 689, 14, 20, "Message",ExpressionUUID->"416ee172-1ad9-434e-b73c-e99e451d8e53"], Cell[1871, 50, 672, 14, 20, "Message",ExpressionUUID->"ec136869-a624-43fb-87cd-ab7ce0e4f6b5"], Cell[2546, 66, 684, 14, 20, "Message",ExpressionUUID->"c71f26b5-fddb-4e00-990e-08b74adae32a"], Cell[3233, 82, 684, 14, 20, "Message",ExpressionUUID->"2eb6cbef-108c-4bdb-b0d3-f595ef80164f"], Cell[3920, 98, 674, 14, 20, "Message",ExpressionUUID->"2d64117a-f0ef-4d22-873c-490eeb5b19e8"] }, Open ]], Cell[CellGroupData[{ Cell[4631, 117, 362, 8, 22, "Input",ExpressionUUID->"fe6a6d03-8b9a-4d30-9d0f-09497bed842b"], Cell[4996, 127, 687, 15, 26, "Output",ExpressionUUID->"142568cc-1192-404c-88bb-d7eaa3fbf94e"] }, Open ]], Cell[CellGroupData[{ Cell[5720, 147, 314, 7, 23, "Input",ExpressionUUID->"15c6347f-e08e-4478-999e-a055b83a9e4f"], Cell[6037, 156, 663, 14, 26, "Output",ExpressionUUID->"99fdb326-dc62-43d2-a350-3a194a15d647"] }, Open ]], Cell[CellGroupData[{ Cell[6737, 175, 2435, 66, 112, "Input",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"], Cell[9175, 243, 633, 8, 25, "Output",ExpressionUUID->"2797a478-d270-4869-ba7f-428591635fb9"], Cell[9811, 253, 629, 8, 25, "Output",ExpressionUUID->"567108b3-a280-49d8-9f91-9b9feb4211c2"] }, Open ]], Cell[CellGroupData[{ Cell[10477, 266, 3932, 87, 115, "Input",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"], Cell[14412, 355, 1153, 20, 25, "Output",ExpressionUUID->"cd2ce696-c253-4ff8-b993-64c7e05c4dd9"] }, Open ]], Cell[15580, 378, 3957, 88, 115, "Input",ExpressionUUID->"4b92dc3c-7bc7-4b5c-a5c3-e2aacf85ed52"], Cell[CellGroupData[{ Cell[19562, 470, 1589, 38, 44, "Input",ExpressionUUID->"9c63e4ce-bd4c-4c9e-9b17-80e65259d14e"], Cell[21154, 510, 5371, 102, 268, "Output",ExpressionUUID->"79c580a9-d885-45d2-b73d-816f14fe791e"] }, Open ]], Cell[CellGroupData[{ Cell[26562, 617, 1597, 39, 44, "Input",ExpressionUUID->"9a7cc83f-920d-4c9e-9d42-998a933b225c"], Cell[28162, 658, 10024, 178, 264, "Output",ExpressionUUID->"72455824-b956-48f2-805c-31dcb93fc169"] }, Open ]], Cell[CellGroupData[{ Cell[38223, 841, 3851, 86, 132, "Input",ExpressionUUID->"34fe8bc4-abfb-4504-a7f1-045cd2a55ee6"], Cell[42077, 929, 670, 14, 44, "Output",ExpressionUUID->"e9b15296-174c-4b92-bc6b-e3136dbafca2"] }, Open ]], Cell[CellGroupData[{ Cell[42784, 948, 302, 8, 24, "Input",ExpressionUUID->"2e8e8755-9de4-46f0-8d34-70439b2b441b"], Cell[43089, 958, 206, 4, 26, "Output",ExpressionUUID->"f78d77d4-a743-42fe-aad7-f383120ebe66"] }, Open ]], Cell[CellGroupData[{ Cell[43332, 967, 551, 15, 25, "Input",ExpressionUUID->"e826229b-9150-4894-b288-5f834e4105f5"], Cell[43886, 984, 820, 23, 54, "Output",ExpressionUUID->"ba4067d3-83a2-4fb1-b40d-dda17275ca39"] }, Open ]], Cell[44721, 1010, 2411, 65, 100, "Input",ExpressionUUID->"aac833ad-2b24-4138-bd6f-72fced45c28b"], Cell[CellGroupData[{ Cell[47157, 1079, 406, 9, 24, "Input",ExpressionUUID->"192d6104-6702-44ac-becd-0eb638099ac5"], Cell[47566, 1090, 1368, 33, 43, "Output",ExpressionUUID->"d7b8e166-951c-43b4-b661-6bb65d35f1c8"] }, Open ]], Cell[48949, 1126, 4890, 100, 100, "Input",ExpressionUUID->"1800b59b-60e8-4839-8aff-d82ae8bbba1a"], Cell[CellGroupData[{ Cell[53864, 1230, 874, 18, 24, "Input",ExpressionUUID->"04521673-5a45-41f8-ba39-1383a2daafcd"], Cell[54741, 1250, 534, 12, 28, "Output",ExpressionUUID->"4344f182-cac0-40ef-9167-1216ed9218e0"] }, Open ]], Cell[CellGroupData[{ Cell[55312, 1267, 304, 7, 22, "Input",ExpressionUUID->"340432fd-b01b-4746-840a-e312eec4ade0"], Cell[55619, 1276, 12065, 270, 179, "Output",ExpressionUUID->"0fe99cd0-b508-4c82-8cb5-d58d82b4dd4e"] }, Open ]], Cell[CellGroupData[{ Cell[67721, 1551, 281, 6, 22, "Input",ExpressionUUID->"33938e6c-adaa-464a-9564-ced71dd22d4e"], Cell[68005, 1559, 238, 5, 25, "Output",ExpressionUUID->"321f4d39-6591-48a7-9389-9935b198b499"] }, Open ]], Cell[CellGroupData[{ Cell[68280, 1569, 1589, 42, 94, "Input",ExpressionUUID->"5ed4b47f-e272-40ab-8c23-58385be3e0c6"], Cell[69872, 1613, 3039, 47, 107, "Message",ExpressionUUID->"06e3abf0-2019-4c5e-99b9-d2a9da7384db"], Cell[72914, 1662, 2133, 34, 57, "Message",ExpressionUUID->"465d3232-1f00-42ad-89f9-f7dbe9649552"], Cell[75050, 1698, 1416, 24, 39, "Message",ExpressionUUID->"51fecbe8-1bd4-4ff4-b67b-93b66d40b947"], Cell[76469, 1724, 628, 12, 22, "Message",ExpressionUUID->"4e40cd38-d9b9-4ca7-8ccd-de1b917cec88"], Cell[77100, 1738, 4228, 87, 182, "Output",ExpressionUUID->"02496185-9d40-4431-9ca9-6085c166d125"] }, Open ]], Cell[CellGroupData[{ Cell[81365, 1830, 241, 5, 22, "Input",ExpressionUUID->"eb2501cb-e52c-43ae-bbbf-2c91bfb69b81"], Cell[81609, 1837, 267, 7, 29, "Output",ExpressionUUID->"ddfad34c-6774-4ef8-b8bc-c5de09b41700"] }, Open ]], Cell[81891, 1847, 4519, 90, 112, "Input",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"], Cell[CellGroupData[{ Cell[86435, 1941, 1242, 35, 42, "Input",ExpressionUUID->"850f45b2-810d-4cc6-a9fa-3b038d25d4c3"], Cell[87680, 1978, 14451, 259, 182, "Output",ExpressionUUID->"664ef5af-b4d1-4773-bb48-a1fb5f99d3ea"] }, Open ]], Cell[CellGroupData[{ Cell[102168, 2242, 326, 7, 22, "Input",ExpressionUUID->"c2ec938b-df20-4457-ac8f-5fb89f93d9f3"], Cell[102497, 2251, 188, 4, 39, "Output",ExpressionUUID->"7a8c2bb5-90c4-4aeb-82ef-a923f5a729e3"] }, Open ]], Cell[CellGroupData[{ Cell[102722, 2260, 255, 5, 22, "Input",ExpressionUUID->"f775ff7d-d0b6-4518-90fc-dce2b496637c"], Cell[102980, 2267, 194, 3, 39, "Output",ExpressionUUID->"60b8b008-7807-40a6-b3d9-1f2e8b589a73"] }, Open ]], Cell[CellGroupData[{ Cell[103211, 2275, 306, 7, 22, "Input",ExpressionUUID->"33e05555-1738-48c2-b7aa-e8fd44cecd72"], Cell[103520, 2284, 221, 3, 25, "Output",ExpressionUUID->"a53b9d58-d244-4548-8b2d-0153f5f04983"] }, Open ]], Cell[CellGroupData[{ Cell[103778, 2292, 4200, 108, 136, "Input",ExpressionUUID->"79242c4a-ef9e-453f-aabd-057c68f68aca"], Cell[107981, 2402, 19071, 333, 179, "Output",ExpressionUUID->"9e7d57d6-efa3-474c-ad30-e142da216a92"] }, Open ]], Cell[CellGroupData[{ Cell[127089, 2740, 203, 4, 22, "Input",ExpressionUUID->"e2ebf167-6996-49ef-9ca3-9dd16132c4ea"], Cell[127295, 2746, 569, 14, 25, "Output",ExpressionUUID->"c33b6abd-b8d8-415e-b881-93fd6c52f0db"] }, Open ]], Cell[CellGroupData[{ Cell[127901, 2765, 501, 13, 25, "Input",ExpressionUUID->"e153916d-9f1b-43b9-a6c4-f59eefa45d16"], Cell[128405, 2780, 222, 4, 25, "Output",ExpressionUUID->"ca5cf147-c698-4d49-a753-1cf32997e5f5"] }, Open ]], Cell[CellGroupData[{ Cell[128664, 2789, 243, 5, 22, "Input",ExpressionUUID->"c29b0035-e029-4b18-8ef4-ecd12fb49333"], Cell[128910, 2796, 1247, 39, 70, "Output",ExpressionUUID->"a77b28a6-eacd-4614-b43a-ed39428597d6"] }, Open ]], Cell[CellGroupData[{ Cell[130194, 2840, 212, 4, 22, "Input",ExpressionUUID->"40438766-386e-4ef0-95c5-bb36288917ef"], Cell[130409, 2846, 735, 15, 27, "Output",ExpressionUUID->"462d7199-fbaa-4949-8313-776399b35c4a"] }, Open ]], Cell[CellGroupData[{ Cell[131181, 2866, 4385, 127, 145, "Input",ExpressionUUID->"f81ed9c7-d940-4314-963c-c36ea0215ef3"], Cell[135569, 2995, 1199, 20, 44, "Output",ExpressionUUID->"2234af5e-068b-46a3-beaf-99a907ef5184"] }, Open ]], Cell[CellGroupData[{ Cell[136805, 3020, 689, 18, 24, "Input",ExpressionUUID->"922bbf13-0a40-4ffe-b65d-fb54bcae380b"], Cell[137497, 3040, 952, 16, 27, "Output",ExpressionUUID->"043e197a-7692-4187-83b6-ce5829ad4a5d"] }, Open ]], Cell[CellGroupData[{ Cell[138486, 3061, 783, 19, 24, "Input",ExpressionUUID->"649e9e6d-3d2c-4639-9c47-2ea1ddcf4b02"], Cell[139272, 3082, 874, 15, 27, "Output",ExpressionUUID->"2bf68a8e-7713-4e0f-8e35-9b2bda25554f"] }, Open ]], Cell[CellGroupData[{ Cell[140183, 3102, 756, 18, 24, "Input",ExpressionUUID->"65da12ab-b919-4aad-899a-77b90d54ba33"], Cell[140942, 3122, 783, 15, 27, "Output",ExpressionUUID->"bf118231-ac60-4b08-8d5b-c2f02ee72a5b"] }, Open ]], Cell[CellGroupData[{ Cell[141762, 3142, 797, 19, 24, "Input",ExpressionUUID->"2476ffb9-8112-4899-a159-f51883b8e216"], Cell[142562, 3163, 687, 14, 27, "Output",ExpressionUUID->"4472fe7c-a13d-48f2-8ce9-7c86fc80c436"] }, Open ]], Cell[CellGroupData[{ Cell[143286, 3182, 819, 19, 24, "Input",ExpressionUUID->"e595b072-4f65-493a-afbb-d0fd95bb7c1c"], Cell[144108, 3203, 1078, 22, 44, "Output",ExpressionUUID->"fccdbef1-244e-44c6-b3c4-5001cf802c3b"] }, Open ]], Cell[CellGroupData[{ Cell[145223, 3230, 859, 20, 24, "Input",ExpressionUUID->"428ba532-a5a7-47a0-834d-51e3a093d96a"], Cell[146085, 3252, 963, 19, 44, "Output",ExpressionUUID->"a74c17d3-52e9-4bc4-8151-87ccfed07273"] }, Open ]], Cell[CellGroupData[{ Cell[147085, 3276, 891, 22, 24, "Input",ExpressionUUID->"11720fd4-85fa-4891-a6d6-e316b2c63a60"], Cell[147979, 3300, 559, 9, 25, "Output",ExpressionUUID->"bfc7450c-8753-4ad4-a680-b80674ac5a25"] }, Open ]], Cell[CellGroupData[{ Cell[148575, 3314, 937, 22, 24, "Input",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"], Cell[149515, 3338, 535, 9, 25, "Output",ExpressionUUID->"86d97ab8-bfe5-478d-a4ba-5bc364b4d54e"] }, Open ]], Cell[CellGroupData[{ Cell[150087, 3352, 1006, 24, 24, "Input",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"], Cell[151096, 3378, 425, 7, 25, "Output",ExpressionUUID->"ac5b89c4-24ae-436b-b19b-5a19cf92f196"] }, Open ]], Cell[CellGroupData[{ Cell[151558, 3390, 1052, 25, 24, "Input",ExpressionUUID->"3f815a4c-10cf-489f-9fc2-62e52069c4c0"], Cell[152613, 3417, 446, 8, 25, "Output",ExpressionUUID->"0058d268-597e-4f7a-a395-c0fdf2e2f0fc"] }, Open ]], Cell[CellGroupData[{ Cell[153096, 3430, 850, 18, 24, "Input",ExpressionUUID->"cd97b893-1f61-415c-8763-743df3cfe10e"], Cell[153949, 3450, 524, 9, 25, "Output",ExpressionUUID->"9bbd03d3-a0ba-4157-8a3b-5f539ce94bce"] }, Open ]], Cell[CellGroupData[{ Cell[154510, 3464, 953, 20, 24, "Input",ExpressionUUID->"7cc8abed-034f-48f9-a04c-7a7cd336cffc"], Cell[155466, 3486, 311, 5, 25, "Output",ExpressionUUID->"07f77345-76ab-4e5d-a2e6-e24bb55feac9"] }, Open ]], Cell[CellGroupData[{ Cell[155814, 3496, 847, 18, 24, "Input",ExpressionUUID->"ed90fc79-b0f9-464f-acb1-e5aa0d9691f1"], Cell[156664, 3516, 308, 5, 25, "Output",ExpressionUUID->"4514c09f-2394-460a-8977-2ada54b3b9d0"] }, Open ]], Cell[CellGroupData[{ Cell[157009, 3526, 996, 20, 24, "Input",ExpressionUUID->"6dd628a1-23df-42ea-b634-4bef16413391"], Cell[158008, 3548, 549, 9, 25, "Output",ExpressionUUID->"80acb19e-2d21-40df-ae02-eb1e1c8d4e00"] }, Open ]], Cell[CellGroupData[{ Cell[158594, 3562, 228, 5, 22, "Input",ExpressionUUID->"feb08355-9ad1-4257-9f97-e394177d7e32"], Cell[158825, 3569, 274, 8, 28, "Output",ExpressionUUID->"87e29f54-9d68-4261-96d4-95d24dcdc36a"] }, Open ]], Cell[CellGroupData[{ Cell[159136, 3582, 1542, 27, 55, "Input",ExpressionUUID->"e61ed118-a102-4290-8440-cba17b87145b"], Cell[160681, 3611, 12321, 270, 180, "Output",ExpressionUUID->"2e45389f-59c7-4eaf-9b3a-270214fa013e"] }, Open ]], Cell[173017, 3884, 175, 3, 22, "Input",ExpressionUUID->"0f87aa05-2cc9-472a-ab27-39ee15777442"], Cell[173195, 3889, 356, 7, 24, "Input",ExpressionUUID->"627c17e0-e2d8-4347-8fe9-812183a42941"], Cell[CellGroupData[{ Cell[173576, 3900, 176, 2, 22, "Input",ExpressionUUID->"f32c32be-7fcb-4660-bf43-cbc119acda96"], Cell[173755, 3904, 2097, 65, 47, "Output",ExpressionUUID->"01b48fb7-d8c9-4012-92f6-488cf7e7087c"] }, Open ]], Cell[CellGroupData[{ Cell[175889, 3974, 860, 24, 24, "Input",ExpressionUUID->"bfa6a31f-5eb9-4063-b798-e45ab1e3b53a"], Cell[176752, 4000, 1944, 57, 60, "Output",ExpressionUUID->"0ca79efb-1867-4b1f-96fc-4a691d54b72e"] }, Open ]], Cell[CellGroupData[{ Cell[178733, 4062, 2622, 77, 93, "Input",ExpressionUUID->"242aacdf-e4c7-423c-a26a-12188ba2476e"], Cell[181358, 4141, 21835, 439, 180, "Output",ExpressionUUID->"073d831e-11a6-4203-90ce-0df429c1a3f0"] }, Open ]], Cell[203208, 4583, 725, 15, 24, "Input",ExpressionUUID->"80c6c675-eade-40e1-8d0f-13a6578b30ff"], Cell[203936, 4600, 764, 21, 25, "Input",ExpressionUUID->"d8847f2e-21fe-4fb7-84ae-676f83acdf5a"], Cell[CellGroupData[{ Cell[204725, 4625, 679, 17, 40, "Input",ExpressionUUID->"15d60f60-2f87-40da-a2c6-66d640111d75"], Cell[205407, 4644, 1298, 32, 48, "Output",ExpressionUUID->"6f1d902a-0431-4a99-adc2-97eb3c423317"] }, Open ]], Cell[CellGroupData[{ Cell[206742, 4681, 736, 18, 57, "Input",ExpressionUUID->"bec4c929-c1a6-4fd0-be18-caf3643ba3a4"], Cell[207481, 4701, 14613, 314, 179, "Output",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"] }, Open ]] } ] *)