diff options
Diffstat (limited to 'caselle_compare.nb')
| -rw-r--r-- | caselle_compare.nb | 1774 |
1 files changed, 1156 insertions, 618 deletions
diff --git a/caselle_compare.nb b/caselle_compare.nb index 8ad80e6..835a5ce 100644 --- a/caselle_compare.nb +++ b/caselle_compare.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 119928, 2768] -NotebookOptionsPosition[ 113588, 2657] -NotebookOutlinePosition[ 113988, 2673] -CellTagsIndexPosition[ 113945, 2670] +NotebookDataLength[ 144618, 3306] +NotebookOptionsPosition[ 136358, 3157] +NotebookOutlinePosition[ 136756, 3173] +CellTagsIndexPosition[ 136713, 3170] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -28,220 +28,7 @@ Cell[BoxData[ 3.827832304560932*^9, {3.8278486734515533`*^9, 3.827848673995721*^9}, { 3.8278488730224733`*^9, 3.827848876357965*^9}, {3.827916449928692*^9, 3.827916450999913*^9}}, - CellLabel->"In[1]:=",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"], - -Cell[BoxData[{ - RowBox[{ - RowBox[{"n9", "=", "2"}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"F9", "=", - RowBox[{"RF", "[", "n9", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"h9", "=", - RowBox[{"h", "[", "15", "]"}]}], ";"}]}], "Input", - CellChangeTimes->{ - 3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, { - 3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9, - 3.817564534320574*^9}, {3.81756485534698*^9, 3.817564862343175*^9}, { - 3.817564919676697*^9, 3.8175649235785027`*^9}, {3.817565106996109*^9, - 3.8175651474217367`*^9}, {3.8175652415905113`*^9, 3.817565250029232*^9}, { - 3.8175657444559927`*^9, 3.8175657689660788`*^9}, 3.8175669120549498`*^9, { - 3.8175677716518087`*^9, 3.817567773706285*^9}, {3.817579700926876*^9, - 3.817579701354711*^9}, {3.8175810533593073`*^9, 3.817581114447541*^9}, { - 3.817581149854197*^9, 3.8175811499220247`*^9}, {3.817581265163169*^9, - 3.81758126542041*^9}, {3.81758144220247*^9, 3.8175814490334673`*^9}, { - 3.8175815152710047`*^9, 3.817581521148234*^9}, {3.817581635837187*^9, - 3.817581700879589*^9}, {3.817581767691791*^9, 3.817581768673394*^9}, { - 3.8175821842992363`*^9, 3.8175821844066353`*^9}, {3.817582286431714*^9, - 3.817582297101211*^9}, {3.817582488847374*^9, 3.817582488974349*^9}, { - 3.817582803954041*^9, 3.817582804222094*^9}, {3.817618756754203*^9, - 3.817618757439868*^9}, {3.81761900296082*^9, 3.817619003035212*^9}, { - 3.8176203963382673`*^9, 3.817620396528458*^9}, {3.817626242723531*^9, - 3.817626282042306*^9}, {3.81762924164756*^9, 3.8176292443562737`*^9}, { - 3.8176636404765043`*^9, 3.817663648770928*^9}, {3.817666003825204*^9, - 3.8176660163975077`*^9}, 3.825758657266858*^9, 3.8257634297123632`*^9, { - 3.8257637382216587`*^9, 3.825763741294034*^9}, {3.825764046315646*^9, - 3.8257640768120003`*^9}, {3.826007441657895*^9, 3.8260074468257313`*^9}, - 3.826007758136524*^9, {3.826013359537168*^9, 3.826013366921255*^9}, { - 3.826013463378932*^9, 3.826013482235341*^9}, {3.826014234648857*^9, - 3.8260142779855223`*^9}, {3.82610306735501*^9, 3.826103074379273*^9}, { - 3.826103107756144*^9, 3.826103107819812*^9}, {3.826272369240218*^9, - 3.826272391792493*^9}, {3.826272586652137*^9, 3.826272594732195*^9}, { - 3.826273088053089*^9, 3.826273089748893*^9}, {3.826273144677765*^9, - 3.826273146997635*^9}, {3.8262736335668373`*^9, 3.826273635734462*^9}, - 3.8266890691074533`*^9, {3.826689155061082*^9, 3.8266891551567373`*^9}, { - 3.8266893130797987`*^9, 3.826689323848358*^9}, {3.826689565988503*^9, - 3.826689581228674*^9}, {3.826689634565889*^9, 3.826689650102207*^9}, { - 3.826689983421033*^9, 3.826689988684514*^9}, {3.826690298234497*^9, - 3.826690304258379*^9}, {3.8266903448673897`*^9, 3.826690346835585*^9}, { - 3.826690541351234*^9, 3.826690548879322*^9}, 3.8266910071358747`*^9, { - 3.82669106486483*^9, 3.826691074849018*^9}, {3.826691445503744*^9, - 3.826691458440094*^9}, {3.82669167994809*^9, 3.826691683996052*^9}, { - 3.826704702577314*^9, 3.826704712105288*^9}, {3.82670492717354*^9, - 3.826704930421282*^9}, {3.827403765410832*^9, 3.827403784866971*^9}, { - 3.827404400190401*^9, 3.827404420238784*^9}, {3.8274045097126637`*^9, - 3.8274045126565638`*^9}, {3.8274047169724197`*^9, 3.827404723828395*^9}, { - 3.827404767149251*^9, 3.827404769613168*^9}, {3.827405559211132*^9, - 3.827405561458974*^9}, {3.827406421058803*^9, 3.827406425898838*^9}, { - 3.827410007136595*^9, 3.827410024500999*^9}, {3.827468086395525*^9, - 3.827468087899349*^9}, {3.8274817111143637`*^9, 3.827481732722485*^9}, { - 3.827481932910375*^9, 3.827481942630374*^9}, {3.827484882114504*^9, - 3.827484891178834*^9}, {3.82748496838837*^9, 3.827484972428067*^9}, { - 3.827554870569126*^9, 3.8275548842255087`*^9}, {3.827554955106474*^9, - 3.827554986395269*^9}, {3.827555061348587*^9, 3.827555089773085*^9}, { - 3.827555513700951*^9, 3.8275555289410133`*^9}, {3.827558549917939*^9, - 3.827558582782239*^9}, {3.827561592644457*^9, 3.8275616094843884`*^9}, { - 3.827830458103025*^9, 3.8278304871675167`*^9}, {3.827830599481675*^9, - 3.8278306003135023`*^9}, {3.82783063897057*^9, 3.827830646362282*^9}, { - 3.827830706235694*^9, 3.827830712059711*^9}, {3.827831315902727*^9, - 3.827831321270451*^9}, {3.827833104775069*^9, 3.827833114719193*^9}, { - 3.8278331747045517`*^9, 3.827833179136505*^9}, {3.8278334549656887`*^9, - 3.827833462445428*^9}, 3.829120829171124*^9, {3.829213838889318*^9, - 3.829213883841852*^9}, {3.829214173078923*^9, 3.829214190007135*^9}, { - 3.829217677573986*^9, 3.829217686333686*^9}, {3.829217811928056*^9, - 3.8292178136720657`*^9}, {3.829218394666704*^9, 3.829218401658337*^9}, { - 3.8292188164581223`*^9, 3.82921883122604*^9}, {3.829218950764509*^9, - 3.829218957204319*^9}, {3.829220267572093*^9, 3.829220270004106*^9}, { - 3.82936259901405*^9, 3.829362614606016*^9}, {3.829370367314437*^9, - 3.829370369098258*^9}, {3.82937149074282*^9, 3.829371504006997*^9}, { - 3.829371588392646*^9, 3.829371592952486*^9}, {3.829371703474627*^9, - 3.829371725714978*^9}, {3.8293841834937067`*^9, 3.829384188373666*^9}, { - 3.829384287679748*^9, 3.8293842910074463`*^9}, {3.8293843661210957`*^9, - 3.829384372016992*^9}, {3.8293844069057617`*^9, 3.829384407617469*^9}, { - 3.829384490603231*^9, 3.8293844949630737`*^9}, {3.829384774360268*^9, - 3.829384778992144*^9}, {3.829384939363501*^9, 3.829384940539279*^9}, { - 3.829385057917753*^9, 3.8293850885740633`*^9}, {3.8293851940558357`*^9, - 3.82938520864007*^9}, {3.829385243712878*^9, 3.829385265113099*^9}, { - 3.829385359435005*^9, 3.82938536205903*^9}, {3.8293854930775623`*^9, - 3.829385516669804*^9}, {3.829385592767355*^9, 3.829385603743544*^9}, { - 3.829385805283429*^9, 3.8293858066272917`*^9}, {3.8296441789890337`*^9, - 3.829644182788821*^9}, {3.8296443535841208`*^9, 3.8296443554960938`*^9}, { - 3.829644473714408*^9, 3.8296444761702623`*^9}, {3.829644990507839*^9, - 3.829644992283627*^9}, {3.8296450810455513`*^9, 3.829645083133322*^9}, { - 3.829645633663727*^9, 3.829645635447423*^9}, {3.829646390405294*^9, - 3.829646395957156*^9}, {3.8296466570661983`*^9, 3.8296466584660683`*^9}, { - 3.829647489657442*^9, 3.8296474909771557`*^9}, {3.829648049259359*^9, - 3.829648052195036*^9}, {3.829648124252544*^9, 3.829648126212494*^9}, { - 3.829648545868373*^9, 3.829648547468088*^9}, {3.829815925549561*^9, - 3.829815927157423*^9}, {3.831199182529437*^9, 3.831199184025214*^9}, { - 3.831199555872078*^9, 3.8311995571520443`*^9}, {3.831200372511159*^9, - 3.831200375510755*^9}, {3.831200883112361*^9, 3.831200884648239*^9}, { - 3.831202244984953*^9, 3.8312022472967157`*^9}, {3.831202303490005*^9, - 3.8312023084899607`*^9}, {3.8312025111574802`*^9, 3.831202512989365*^9}, { - 3.831202842403379*^9, 3.831202846339692*^9}, {3.8321389414364977`*^9, - 3.8321389438202143`*^9}, {3.832139044022344*^9, 3.8321390459501247`*^9}, { - 3.832139331571517*^9, 3.832139334051388*^9}, {3.832139429389288*^9, - 3.832139429661056*^9}, {3.832139540919005*^9, 3.83213954419108*^9}, { - 3.832139593440238*^9, 3.8321395952640944`*^9}, {3.832139841260713*^9, - 3.832139861220974*^9}, {3.832140024431809*^9, 3.8321400256558027`*^9}, { - 3.8321402850208273`*^9, 3.832140296084632*^9}, {3.8321406237947397`*^9, - 3.832140627690679*^9}, {3.832140880727601*^9, 3.832140885559256*^9}, { - 3.832145324960071*^9, 3.832145325215494*^9}}, - CellLabel->"In[2]:=",ExpressionUUID->"872503c3-0779-4b87-805f-13a088f459e3"], - -Cell[BoxData[{ - RowBox[{ - RowBox[{"n1", "=", "2"}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"F1", "=", - RowBox[{"RF", "[", "n1", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"h1", "=", - RowBox[{"h", "[", "0", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"sol1", "=", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.1942649631944824`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1980115286480415`"}], ",", - RowBox[{"B", "\[Rule]", "8.55266640049003`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.1942649631944824`"}], ",", - - RowBox[{"AL", "\[Rule]", - RowBox[{"-", "0.09823515561347546`"}]}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.3836528485084885`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.0766637996073516`"}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.0038100879767504`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.22823495175053052`"}]}], - "}"}]}], ";"}]}], "Input", - CellChangeTimes->{{3.832146779562958*^9, 3.8321467886772203`*^9}}, - CellLabel->"In[2]:=",ExpressionUUID->"02a1f6e5-4144-4552-9463-2a226c1ee186"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"sol9", "=", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3334703412536566`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19778787932056896`"}], ",", - RowBox[{"B", "\[Rule]", "2.423508930724686`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2182536469166905`"}], ",", - - RowBox[{"AL", "\[Rule]", - RowBox[{"-", "0.032849858698944676`"}]}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.476902848020555`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.3332747682033883`"}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.5090565130203157`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.23349249078258508`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.05795919615164437`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.009724404457489885`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.0027930254001640054`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0009257841098320665`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.0003462096131004199`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00013670744619527473`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "\[Rule]", - RowBox[{"-", "0.000057088418113155406`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.000024064383846786254`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "9", "]"}], "\[Rule]", - RowBox[{"-", "0.000010116684104855923`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "10", "]"}], "\[Rule]", "4.024896321935335`*^-6"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "11", "]"}], "\[Rule]", - RowBox[{"-", "1.4759300475764031`*^-6"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "12", "]"}], "\[Rule]", "4.686996899926149`*^-7"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "13", "]"}], "\[Rule]", - RowBox[{"-", "1.2362968704699286`*^-7"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "14", "]"}], "\[Rule]", "2.395277120268058`*^-8"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "15", "]"}], "\[Rule]", - RowBox[{"-", "2.99666705183393`*^-9"}]}]}], "}"}]}], ";"}]], "Input", - CellChangeTimes->{{3.8321453319115543`*^9, 3.832145338055831*^9}, { - 3.8365700691716623`*^9, 3.836570070475397*^9}}, - CellLabel->"In[5]:=",ExpressionUUID->"d8831e63-87f3-498c-8951-21f347e539ff"], + CellLabel->"In[64]:=",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"], Cell[CellGroupData[{ @@ -293,8 +80,9 @@ Cell[BoxData[{ RowBox[{"2", "!"}]}]}], ",", RowBox[{"c4", "\[Rule]", RowBox[{ - RowBox[{"Ghs", "[", - RowBox[{"[", "5", "]"}], "]"}], + RowBox[{ + RowBox[{"Ghs", "[", + RowBox[{"[", "5", "]"}], "]"}], "[", "\"\<Value\>\"", "]"}], RowBox[{"4", "!"}]}]}]}], "}"}]}]}], "\[IndentingNewLine]", RowBox[{"m0", "=", RowBox[{ @@ -306,275 +94,30 @@ Cell[BoxData[{ 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}}, - CellLabel->"In[66]:=",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"], + 3.843806310535351*^9, 3.843806319271604*^9}, {3.843811727076584*^9, + 3.843811750155121*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"], -Cell[BoxData[ - InterpretationBox[ - TemplateBox[{"0.272868892", "67", "18"}, - "AroundSeq"], - Around[0.27286889266851116`, 1.830377061433295*^-10]]], "Output", +Cell[BoxData["0.27286889266851116`"], "Output", CellChangeTimes->{{3.8438061496682377`*^9, 3.843806165132856*^9}, - 3.8438062124458447`*^9, {3.8438063135040703`*^9, 3.843806319765049*^9}}, - CellLabel->"Out[68]=",ExpressionUUID->"7147fa3f-588c-4d84-919f-5b390263b15a"], + 3.8438062124458447`*^9, {3.8438063135040703`*^9, 3.843806319765049*^9}, + 3.8438114231817093`*^9, {3.843811741230702*^9, 3.8438117504040937`*^9}, + 3.8438127470406*^9, 3.8438833063506927`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"5916b0af-c167-4771-aeb7-3c62b468a0ba"], -Cell[BoxData[ - InterpretationBox[ - TemplateBox[{"1.007010684", "9", "7"}, - "AroundSeq"], - Around[1.007010684856479, 6.754926295020057*^-10]]], "Output", +Cell[BoxData["1.007010684856479`"], "Output", CellChangeTimes->{{3.8438061496682377`*^9, 3.843806165132856*^9}, - 3.8438062124458447`*^9, {3.8438063135040703`*^9, 3.843806319775044*^9}}, - CellLabel->"Out[69]=",ExpressionUUID->"77d5d61f-2753-4b7e-a4c4-fa95057652f1"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Ghs", "[", - RowBox[{"[", "3", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.843806234438224*^9, 3.84380624199413*^9}}, - CellLabel->"In[61]:=",ExpressionUUID->"cc1db89b-ac08-453b-acd3-8a1a74aa25de"], - -Cell[BoxData[ - RowBox[{"-", - "1.845228078232838354322445111140726622305063693019713225476383902326`51.\ -00035391886207"}]], "Output", - CellChangeTimes->{{3.84380623765521*^9, 3.843806242237384*^9}}, - CellLabel->"Out[61]=",ExpressionUUID->"539cef56-d335-495b-a7cf-72f95eb2f3c6"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData["a"], "Input", - CellChangeTimes->{3.843806064824988*^9}, - CellLabel->"In[42]:=",ExpressionUUID->"826bcc4b-5d2e-4245-a68d-af19dfb20e6b"], - -Cell[BoxData["a"], "Output", - CellChangeTimes->{3.8438060655024347`*^9}, - CellLabel->"Out[42]=",ExpressionUUID->"82fdbc16-a012-4ac0-9a30-1b833903afee"] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"coeffCas", "[", "n_", "]"}], ":=", - RowBox[{ - RowBox[{"NestList", "[", - RowBox[{ - RowBox[{"dd\[Xi]", "[", "hCas", "]"}], ",", - RowBox[{"m0", " ", - FractionBox["\[Theta]", - SuperscriptBox[ - RowBox[{"(", - RowBox[{ - SuperscriptBox["\[Theta]", "2"], "-", "1"}], ")"}], - RowBox[{"1", "/", "8"}]]]}], ",", "n"}], "]"}], "/.", - RowBox[{"\[Theta]", "->", "\[Theta]0Cas"}]}]}]], "Input", - CellChangeTimes->{{3.8321456376315823`*^9, 3.83214564961337*^9}, { - 3.8321456871660624`*^9, 3.832145718870708*^9}, {3.832145767359564*^9, - 3.83214577961791*^9}, {3.832145890778178*^9, 3.832145905218177*^9}, { - 3.832145940706725*^9, 3.8321459464268084`*^9}, {3.832145996299863*^9, - 3.832146000067889*^9}, {3.832239324678667*^9, 3.832239324966337*^9}}, - CellLabel->"In[48]:=",ExpressionUUID->"bd6b698e-6871-43fa-9d98-7385cc594c9c"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"coeffCasMid", "[", "n_", "]"}], ":=", - RowBox[{ - RowBox[{"NestList", "[", - RowBox[{ - RowBox[{"dd\[Eta]", "[", "hCas", "]"}], ",", - RowBox[{"m0", " ", - FractionBox["\[Theta]", - SuperscriptBox[ - RowBox[{"hCas", "[", "\[Theta]", "]"}], - RowBox[{"1", "/", - RowBox[{"\[Delta]", "[", "2", "]"}]}]]]}], ",", "n"}], "]"}], "/.", - RowBox[{"\[Theta]", "->", "1"}]}]}]], "Input", - CellChangeTimes->{{3.8322392541892567`*^9, 3.832239262037384*^9}, { - 3.8322392935260983`*^9, 3.832239293789916*^9}, {3.832239451552669*^9, - 3.832239458672798*^9}, {3.832239576243064*^9, 3.832239576394759*^9}}, - CellLabel->"In[9]:=",ExpressionUUID->"7bddfed2-a761-4c62-bcdc-0460988fbd67"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"datNum", "=", - RowBox[{"Thread", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"Range", "[", - RowBox[{"0", ",", - RowBox[{ - RowBox[{"Length", "[", "Gls", "]"}], "-", "1"}]}], "]"}], ",", - "Gls"}], "}"}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.832146079469277*^9, 3.832146080085175*^9}, { - 3.832146220615906*^9, 3.832146230663995*^9}, 3.836571905035768*^9, { - 3.836572227321196*^9, 3.836572228850659*^9}, {3.843802149837371*^9, - 3.843802151956236*^9}}, - CellLabel->"In[59]:=",ExpressionUUID->"ec8b9383-61d6-44c2-b776-3d651fc19660"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Export", "[", - RowBox[{ - "\"\<~/doc/research/first_order_singularities/paper/data/glow_series_\ -numeric.dat\>\"", ",", - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"If", "[", - RowBox[{ - RowBox[{ - RowBox[{"Head", "[", "#2", "]"}], "===", "Around"}], ",", - RowBox[{"#2", "[", "\"\<Value\>\"", "]"}], ",", "#2"}], "]"}], ",", - RowBox[{"If", "[", - RowBox[{ - RowBox[{ - RowBox[{"Head", "[", "#2", "]"}], "===", "Around"}], ",", - RowBox[{"#2", "[", "\"\<Uncertainty\>\"", "]"}], ",", "0"}], "]"}]}], - "}"}], "&"}], "@@@", "datNum"}]}], "]"}]], "Input", - CellChangeTimes->{{3.836571907042726*^9, 3.8365719075682077`*^9}, { - 3.8365719679456177`*^9, 3.836572034954253*^9}, {3.836572067138021*^9, - 3.8365720932499523`*^9}}, - CellLabel->"In[33]:=",ExpressionUUID->"cbeb62aa-7e89-4ec5-a1cb-d5012bac06fd"], - -Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/glow_\ -series_numeric.dat\"\>"], "Output", - CellChangeTimes->{ - 3.8365719078847313`*^9, {3.836572025847522*^9, 3.836572035446138*^9}, - 3.8365720941903563`*^9, 3.836572233522911*^9}, - CellLabel->"Out[33]=",ExpressionUUID->"9ddcc7c6-de02-4d31-9401-bbbc5eefe582"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"m0rule", "=", - RowBox[{ - RowBox[{"Solve", "[", - RowBox[{ - RowBox[{ - RowBox[{"datCas", "[", - RowBox[{"[", - RowBox[{"{", - RowBox[{"1", ",", "2"}], "}"}], "]"}], "]"}], "==", - RowBox[{"datNum", "[", - RowBox[{"[", - RowBox[{ - RowBox[{"2", ";;", "3"}], ",", "2"}], "]"}], "]"}]}], ",", - RowBox[{"{", - RowBox[{"m0", ",", "h0"}], "}"}]}], "]"}], "[", - RowBox[{"[", "1", "]"}], "]"}]}]], "Input", - CellChangeTimes->{{3.8321459908444443`*^9, 3.8321460752131433`*^9}, { - 3.8321464716527967`*^9, 3.8321464718044024`*^9}, {3.8321466387696667`*^9, - 3.832146653175795*^9}, {3.832151934783225*^9, 3.8321519353348494`*^9}, { - 3.832152037225222*^9, 3.8321520374089203`*^9}, {3.832239305719432*^9, - 3.832239316046335*^9}, {3.836984166958787*^9, 3.83698416798269*^9}, { - 3.836984311313539*^9, 3.836984316617137*^9}, {3.8438022146151648`*^9, - 3.843802259206324*^9}}, - CellLabel->"In[72]:=",ExpressionUUID->"7efd85be-fd7d-435a-a870-214d8ec4025d"], - -Cell[BoxData[ - TemplateBox[{ - "Solve", "ratnz", - "\"Solve was unable to solve the system with inexact coefficients. The \ -answer was obtained by solving a corresponding exact system and numericizing \ -the result.\"", 2, 72, 17, 31653097672855845075, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{ - 3.832146653505703*^9, 3.8321519356060266`*^9, 3.8321520375652533`*^9, { - 3.8321544205609913`*^9, 3.832154425785782*^9}, {3.832239276291945*^9, - 3.832239326773054*^9}, {3.836570087200712*^9, 3.836570104160351*^9}, { - 3.8369749921742907`*^9, 3.836975002927493*^9}, 3.836984168350904*^9, - 3.8369843170148077`*^9, 3.8370700000102262`*^9, {3.837072474483852*^9, - 3.837072478715604*^9}, {3.8438021401706963`*^9, 3.843802153865232*^9}, { - 3.843802229529984*^9, 3.843802270916144*^9}}, - CellLabel-> - "During evaluation of \ -In[72]:=",ExpressionUUID->"4bba24d3-fa02-4ad0-86b9-3bdb7e46a000"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - RowBox[{"m0", "\[Rule]", "566.4709429312807`"}], ",", - RowBox[{"h0", "\[Rule]", - RowBox[{"-", "5.262843279675711`"}]}]}], "}"}]], "Output", - CellChangeTimes->{{3.832145993018977*^9, 3.832146075354514*^9}, { - 3.832146456457759*^9, 3.83214647211082*^9}, 3.832146653511766*^9, - 3.832151935612179*^9, 3.8321520375710917`*^9, {3.8321544206488857`*^9, - 3.8321544257922564`*^9}, {3.8322392763285713`*^9, - 3.8322393267777767`*^9}, {3.836570087516891*^9, 3.8365701041934032`*^9}, { - 3.836974992241055*^9, 3.836975002932447*^9}, 3.836984168357218*^9, - 3.836984317019814*^9, 3.837070000054738*^9, {3.837072474543331*^9, - 3.837072478720648*^9}, {3.843802140320195*^9, 3.843802153880229*^9}, { - 3.843802229536105*^9, 3.843802270921445*^9}}, - CellLabel->"Out[72]=",ExpressionUUID->"e2f0010a-e1b6-4537-a8ae-b59af3108330"] + 3.8438062124458447`*^9, {3.8438063135040703`*^9, 3.843806319765049*^9}, + 3.8438114231817093`*^9, {3.843811741230702*^9, 3.8438117504040937`*^9}, + 3.8438127470406*^9, 3.843883306351761*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"c9921f2f-76f7-4cfd-85ee-7bf5652dc449"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ - RowBox[{"ClearAll", "[", "h0", "]"}], ";", - RowBox[{"ClearAll", "[", "m0", "]"}], ";"}], "\[IndentingNewLine]", - RowBox[{"h0", "=", - RowBox[{ - RowBox[{"h0", "[", "\"\<Value\>\"", "]"}], "/.", - "m0rule"}]}], "\[IndentingNewLine]", - RowBox[{"m0", "=", - RowBox[{ - RowBox[{"m0", "[", "\"\<Value\>\"", "]"}], "/.", "m0rule"}]}]}], "Input", - CellChangeTimes->{{3.8369847488424397`*^9, 3.836984792561878*^9}}, - CellLabel->"In[13]:=",ExpressionUUID->"28731a52-d222-49b4-aebb-262f9a5d4dd5"], - -Cell[BoxData["0.2591817983420855`"], "Output", - CellChangeTimes->{{3.83698477315833*^9, 3.8369847927282743`*^9}, - 3.837070002329464*^9, 3.837072479312191*^9}, - CellLabel->"Out[14]=",ExpressionUUID->"65626e49-d3af-4115-b5d3-96f63b95604e"], - -Cell[BoxData[ - RowBox[{"-", "1.0057626728406195`"}]], "Output", - CellChangeTimes->{{3.83698477315833*^9, 3.8369847927282743`*^9}, - 3.837070002329464*^9, 3.837072479313409*^9}, - CellLabel->"Out[15]=",ExpressionUUID->"fe83a208-ae15-4c69-a7c9-b98329954997"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{ - RowBox[{"coeffCasMid", "[", "5", "]"}], "/", - RowBox[{ - RowBox[{"Range", "[", - RowBox[{"0", ",", "5"}], "]"}], "!"}]}], "/.", "m0rule"}]], "Input", - CellChangeTimes->{{3.832239286022997*^9, 3.83223928776565*^9}, { - 3.832239333006241*^9, 3.83223933347838*^9}, {3.832239464537035*^9, - 3.832239465688715*^9}, {3.832239596747369*^9, 3.832239610347269*^9}, { - 3.832239661037331*^9, 3.83223966189207*^9}}, - CellLabel->"In[16]:=",ExpressionUUID->"f42f7737-f59e-4289-8153-b78626e30f0e"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - RowBox[{"-", "1.280384036380197`"}], ",", - RowBox[{"-", "0.166257524237109`"}], ",", "0.03998986398383036`", ",", - RowBox[{"-", "0.00793393859415671`"}], ",", "0.00027904634576921466`", ",", - "0.0006680802614227808`"}], "}"}]], "Output", - CellChangeTimes->{ - 3.832239333786672*^9, {3.8322394618672743`*^9, 3.832239465919291*^9}, { - 3.83223957814188*^9, 3.832239613896473*^9}, 3.83223966232157*^9, - 3.8369843208154488`*^9, 3.8370724800639668`*^9}, - CellLabel->"Out[16]=",ExpressionUUID->"c7c2e58e-e6d9-436b-9cc9-4238f4205a5a"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[{ - RowBox[{ - RowBox[{"totCas", "=", "6"}], ";"}], "\[IndentingNewLine]", + RowBox[{"totCas", "=", "13"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ds", "=", RowBox[{ @@ -653,40 +196,23 @@ Cell[BoxData[{ 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}}, - CellLabel->"In[78]:=",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"], + 3.8438064612671556`*^9, 3.843806483348926*^9}, {3.843811490926489*^9, + 3.843811490990367*^9}, {3.843811762123721*^9, 3.843811792156164*^9}, { + 3.84381190693526*^9, 3.843811907005992*^9}, {3.843812765889268*^9, + 3.8438127660003633`*^9}, {3.8438833187875977`*^9, 3.843883318858028*^9}}, + CellLabel->"In[59]:=",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"], Cell[BoxData[ RowBox[{"{", RowBox[{ - InterpretationBox[ - TemplateBox[{"-1.359523230", "8", "9"}, - "AroundSeq"], - Around[-1.3595232308079763`, 9.119544964693466*^-10]], ",", - InterpretationBox[ - TemplateBox[{"-0.0465554917", "0", "4"}, - "AroundSeq"], - Around[-0.04655549169678349, 4.416441189932351*^-11]], ",", - InterpretationBox[ - TemplateBox[{"0.032372119", "97", "18"}, - "AroundSeq"], - Around[0.03237211997439275, 1.8148798936135176`*^-10]], ",", - InterpretationBox[ - TemplateBox[{"-0.045597194", "8", "8"}, - "AroundSeq"], - Around[-0.04559719478179554, 8.093160531246696*^-10]], ",", - InterpretationBox[ - TemplateBox[{"0.08960826", "2", "4"}, - "AroundSeq"], - Around[0.08960826235587013, 3.603495866011567*^-9]], ",", - InterpretationBox[ - TemplateBox[{"-0.2143894", "70", "18"}, - "AroundSeq"], - Around[-0.21438947006327158`, 1.757348031524261*^-8]], ",", - InterpretationBox[ - TemplateBox[{"0.584185", "90", "10"}, - "AroundSeq"], - Around[0.5841858983994364, 9.746945124081612*^-8]]}], "}"}]], "Output", + RowBox[{"-", "1.3595232308079763`"}], ",", + RowBox[{"-", "0.04655549169678349`"}], ",", "0.03237211997439275`", ",", + RowBox[{"-", "0.04559719478179554`"}], ",", "0.0896082623558699`", ",", + RowBox[{"-", "0.2143894700632707`"}], ",", "0.584185898399437`", ",", + RowBox[{"-", "1.7457422693875277`"}], ",", "5.58836650656107`", ",", + RowBox[{"-", "18.86651788362811`"}], ",", "66.44778572365097`", ",", + RowBox[{"-", "242.23334827652096`"}], ",", "908.6585949684338`", ",", + RowBox[{"-", "3491.621379722553`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.83698713111462*^9, 3.836987321633688*^9, 3.8369882151463833`*^9, 3.83698833312978*^9, 3.837070043781701*^9, 3.837070402550199*^9, @@ -694,15 +220,17 @@ Cell[BoxData[ 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}}, - CellLabel->"Out[81]=",ExpressionUUID->"11e20a4b-cae5-48c4-b906-784dd8f87538"] + 3.843803045143682*^9, {3.843806458261032*^9, 3.843806484750998*^9}, { + 3.8438117627002707`*^9, 3.843811778845757*^9}, 3.843811897566523*^9, + 3.843812875019771*^9, {3.8438833095937767`*^9, 3.843883327729155*^9}}, + CellLabel->"Out[62]=",ExpressionUUID->"662f4cfd-8b83-42b3-bae9-63f60b0e3593"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ - RowBox[{"totCas", "=", "6"}], ";"}], "\[IndentingNewLine]", + RowBox[{"totCas", "=", "13"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ds", "=", RowBox[{ @@ -782,27 +310,24 @@ Cell[BoxData[{ 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}}, - CellLabel->"In[90]:=",ExpressionUUID->"34fe8bc4-abfb-4504-a7f1-045cd2a55ee6"], + 3.8438065212344007`*^9}, {3.843811444237966*^9, 3.843811444581764*^9}, { + 3.8438114746875067`*^9, 3.843811475623706*^9}, {3.843812978160186*^9, + 3.843812978303809*^9}, {3.843813154956399*^9, 3.843813155905347*^9}}, + CellLabel->"In[61]:=",ExpressionUUID->"34fe8bc4-abfb-4504-a7f1-045cd2a55ee6"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.`", ",", - InterpretationBox[ - TemplateBox[{"-1.84522807", "82", "18"}, - "AroundSeq"], - Around[-1.8452280782328385`, 1.7504575706350577`*^-9]], ",", "0.`", ",", - InterpretationBox[ - TemplateBox[{"8.3337006", "9", "4"}, - "AroundSeq"], - Around[8.333700692974128, 3.690828158823886*^-8]], ",", "0.`", ",", - InterpretationBox[ - TemplateBox[{"-95.168816", "5", "8"}, - "AroundSeq"], - Around[-95.16881652232625, 8.398770239245246*^-7]], ",", "0.`"}], - "}"}]], "Output", - CellChangeTimes->{{3.843806513941721*^9, 3.843806524411374*^9}}, - CellLabel->"Out[93]=",ExpressionUUID->"9ec93309-453d-448d-a010-32e525370828"] + RowBox[{"-", "1.8452280782328385`"}], ",", "0.`", ",", "8.33370069297413`", + ",", "0.`", ",", + RowBox[{"-", "95.16881652232634`"}], ",", "0.`", ",", + "1457.5474391179216`", ",", "0.`", ",", + RowBox[{"-", "25883.955538425816`"}], ",", "0.`", ",", + "503591.1494797519`", ",", "0.`", ",", + RowBox[{"-", "1.0451949132136984`*^7"}]}], "}"}]], "Output", + CellChangeTimes->{{3.843806513941721*^9, 3.843806524411374*^9}, + 3.84381144996428*^9, {3.8438131466573687`*^9, 3.8438131757670813`*^9}}, + CellLabel->"Out[64]=",ExpressionUUID->"343f2684-7442-43b7-9d49-7e58cf8f6f6d"] }, Open ]], Cell[CellGroupData[{ @@ -944,6 +469,604 @@ Cell[BoxData[ 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-> @@ -1125,35 +1248,269 @@ Cell[BoxData[ Cell[CellGroupData[{ Cell[BoxData[ + RowBox[{"datOurLow2", "=", + RowBox[{"Chop", "[", + RowBox[{ + RowBox[{"dGd\[Xi]LowList", "[", + RowBox[{ + RowBox[{"NF", "[", "2", "]"}], ",", + RowBox[{"H", "[", "2", "]"}], ",", + RowBox[{"Join", "[", + RowBox[{ + RowBox[{"rules", "[", + RowBox[{"H", "[", "2", "]"}], "]"}], ",", + RowBox[{"S", "[", "2", "]"}]}], "]"}]}], "]"}], "[", "14", "]"}], + "]"}]}]], "Input", + CellChangeTimes->{{3.843813552094987*^9, 3.8438136440081587`*^9}, { + 3.8438833391542397`*^9, 3.843883375666812*^9}, {3.843883449636417*^9, + 3.843883479692768*^9}}, + CellLabel->"In[68]:=",ExpressionUUID->"922bbf13-0a40-4ffe-b65d-fb54bcae380b"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"-", "1.3578383417064264`"}], ",", + RowBox[{"-", "0.04895328972027624`"}], ",", "0.04203900654851574`", ",", + RowBox[{"-", "0.07968638965975097`"}], ",", "0.22106513597990632`", ",", + RowBox[{"-", "0.7897713487895526`"}], ",", "3.4541403942028106`", ",", + RowBox[{"-", "17.966673990659217`"}], ",", "108.71139878939208`", ",", + RowBox[{"-", "751.2716428061942`"}], ",", "5840.849431039178`", ",", + RowBox[{"-", "50462.408110284574`"}], ",", "479625.97589905205`", ",", + RowBox[{"-", "4.973515079991114`*^6"}]}], "}"}]], "Output", + CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, + 3.8438140456211767`*^9, 3.843883359816826*^9, {3.843883446786009*^9, + 3.8438834656906137`*^9}, 3.843883510726555*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"7d4aad94-bfa0-4ae6-9abe-17ccfe54ccf9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"datOurLow9", "=", + RowBox[{"Chop", "[", + RowBox[{ + RowBox[{"dGd\[Xi]LowList", "[", + RowBox[{ + RowBox[{"NF", "[", "9", "]"}], ",", + RowBox[{"H", "[", "9", "]"}], ",", + RowBox[{"Join", "[", + RowBox[{ + RowBox[{"rules", "[", + RowBox[{"H", "[", "9", "]"}], "]"}], ",", + RowBox[{"S", "[", "9", "]"}]}], "]"}]}], "]"}], "[", "14", "]"}], + "]"}]}]], "Input", + CellChangeTimes->{{3.843813552094987*^9, 3.843813668224395*^9}, { + 3.843883465412313*^9, 3.84388347186026*^9}, {3.843883516141139*^9, + 3.843883518181106*^9}}, + CellLabel->"In[69]:=",ExpressionUUID->"649e9e6d-3d2c-4639-9c47-2ea1ddcf4b02"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"-", "1.3578383417024302`"}], ",", + RowBox[{"-", "0.04895328971613999`"}], ",", "0.03886393160532956`", ",", + RowBox[{"-", "0.06836211904809866`"}], ",", "0.1838837094630435`", ",", + RowBox[{"-", "0.6591707116569322`"}], ",", "2.937664768538837`", ",", + RowBox[{"-", "15.62383316549295`"}], ",", "96.76358918813067`", ",", + RowBox[{"-", "689.9238519006262`"}], ",", "5653.610756437245`", ",", + RowBox[{"-", "53230.65513770707`"}], ",", "570382.8371346319`", ",", + RowBox[{"-", "6.804407434310122`*^6"}]}], "}"}]], "Output", + CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, + 3.843818188530829*^9, 3.8438835487202253`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"3d3ce9a7-1d88-4c65-8565-6972979e7b63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"datOurHigh2", "=", + RowBox[{"Chop", "[", + RowBox[{ + RowBox[{"dGd\[Xi]List", "[", + RowBox[{ + RowBox[{"NF", "[", "2", "]"}], ",", + RowBox[{"H", "[", "2", "]"}], ",", + RowBox[{"Join", "[", + RowBox[{ + RowBox[{"rules", "[", + RowBox[{"H", "[", "2", "]"}], "]"}], ",", + RowBox[{"S", "[", "2", "]"}]}], "]"}]}], "]"}], "[", + RowBox[{"14", ",", "0"}], "]"}], "]"}]}]], "Input", + CellChangeTimes->{{3.843813552094987*^9, 3.8438136440081587`*^9}, { + 3.8438833391542397`*^9, 3.843883375666812*^9}, {3.843883449636417*^9, + 3.843883479692768*^9}, {3.8438835272533703`*^9, 3.843883540637532*^9}}, + CellLabel->"In[70]:=",ExpressionUUID->"65da12ab-b919-4aad-899a-77b90d54ba33"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"0", ",", "0", ",", + RowBox[{"-", "1.845228078232855`"}], ",", "0", ",", "9.13299780319435`", + ",", "0", ",", + RowBox[{"-", "120.49236894043679`"}], ",", "0", ",", "2170.0705084060182`", + ",", "0", ",", + RowBox[{"-", "45590.04978070584`"}], ",", "0", ",", + "1.0498238403780453`*^6", ",", "0", ",", + RowBox[{"-", "2.569287836366928`*^7"}]}], "}"}]], "Output", + CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, + 3.8438140456211767`*^9, 3.843883359816826*^9, {3.843883446786009*^9, + 3.8438834656906137`*^9}, 3.843883510726555*^9, 3.843883580486106*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"895bb215-c3fa-44dd-bbdf-c4de16295e4a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"datOurHigh9", "=", + RowBox[{"Chop", "[", + RowBox[{ + RowBox[{"dGd\[Xi]List", "[", + RowBox[{ + RowBox[{"NF", "[", "9", "]"}], ",", + RowBox[{"H", "[", "9", "]"}], ",", + RowBox[{"Join", "[", + RowBox[{ + RowBox[{"rules", "[", + RowBox[{"H", "[", "9", "]"}], "]"}], ",", + RowBox[{"S", "[", "9", "]"}]}], "]"}]}], "]"}], "[", + RowBox[{"14", ",", "0"}], "]"}], "]"}]}]], "Input", + CellChangeTimes->{{3.843813552094987*^9, 3.843813668224395*^9}, { + 3.843883465412313*^9, 3.84388347186026*^9}, {3.843883516141139*^9, + 3.84388354845371*^9}}, + CellLabel->"In[71]:=",ExpressionUUID->"2476ffb9-8112-4899-a159-f51883b8e216"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"0", ",", "0", ",", + RowBox[{"-", "1.845228078233437`"}], ",", "0", ",", "8.333711750016088`", + ",", "0", ",", + RowBox[{"-", "95.16895435995913`"}], ",", "0", ",", "1458.0146401083766`", + ",", "0", ",", + RowBox[{"-", "25896.798094642745`"}], ",", "0", ",", "502972.6708710323`", + ",", "0", ",", + RowBox[{"-", "1.037144470816526`*^7"}]}], "}"}]], "Output", + CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, + 3.843818188530829*^9, 3.8438836116815853`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"b3a3183b-d2af-4e21-b8e1-1dbac01da522"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"datOurMid2", "=", + RowBox[{"Chop", "[", + RowBox[{ + RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", + RowBox[{ + RowBox[{"NF", "[", "2", "]"}], ",", + RowBox[{"H", "[", "2", "]"}], ",", + RowBox[{"Join", "[", + RowBox[{ + RowBox[{"rules", "[", + RowBox[{"H", "[", "2", "]"}], "]"}], ",", + RowBox[{"S", "[", "2", "]"}]}], "]"}]}], "]"}], "[", + RowBox[{"14", ",", "1"}], "]"}], "]"}]}]], "Input", + CellChangeTimes->{{3.843813552094987*^9, 3.8438136440081587`*^9}, { + 3.8438833391542397`*^9, 3.843883375666812*^9}, {3.843883449636417*^9, + 3.843883479692768*^9}, {3.8438835272533703`*^9, 3.843883540637532*^9}, { + 3.8438835969825583`*^9, 3.843883614991191*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"e595b072-4f65-493a-afbb-d0fd95bb7c1c"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1.1948724284794678`"}], ",", + RowBox[{"-", "0.32330658411019586`"}], ",", "0.11346429812999838`", ",", + "0.01686309365914635`", ",", + RowBox[{"-", "0.001863074413146943`"}], ",", "0.0003315262819236183`", ",", + "0.00036080803794583794`", ",", + RowBox[{"-", "0.0004509482793079114`"}], ",", "0.0001582843938685694`", + ",", "0.000058289459329385525`", ",", + RowBox[{"-", "0.00007259627084372857`"}], ",", "0.000016663825922859607`", + ",", "8.056136910592027`*^-6", ",", + RowBox[{"-", "4.675420447040588`*^-6"}], ",", "1.1812169011381494`*^-6"}], + "}"}]], "Output", + CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, + 3.8438140456211767`*^9, 3.843883359816826*^9, {3.843883446786009*^9, + 3.8438834656906137`*^9}, 3.843883510726555*^9, 3.843883580486106*^9, + 3.843883657475613*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"10b2b981-6a70-47a2-b331-59f3035f0b63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"datOurMid9", "=", + RowBox[{"Chop", "[", + RowBox[{ + RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", + RowBox[{ + RowBox[{"NF", "[", "9", "]"}], ",", + RowBox[{"H", "[", "9", "]"}], ",", + RowBox[{"Join", "[", + RowBox[{ + RowBox[{"rules", "[", + RowBox[{"H", "[", "9", "]"}], "]"}], ",", + RowBox[{"S", "[", "9", "]"}]}], "]"}]}], "]"}], "[", + RowBox[{"14", ",", "1"}], "]"}], "]"}]}]], "Input", + CellChangeTimes->{{3.843813552094987*^9, 3.843813668224395*^9}, { + 3.843883465412313*^9, 3.84388347186026*^9}, {3.843883516141139*^9, + 3.84388354845371*^9}, {3.843883600398727*^9, 3.843883619695004*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"428ba532-a5a7-47a0-834d-51e3a093d96a"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1.1977308964821485`"}], ",", + RowBox[{"-", "0.31881789297902025`"}], ",", "0.11089601302626526`", ",", + "0.01642300862533117`", ",", + RowBox[{"-", "0.0002696467837568495`"}], ",", + RowBox[{"-", "0.000504047944460891`"}], ",", "0.00020288418772922178`", + ",", + RowBox[{"-", "0.000046527087437412423`"}], ",", "6.758456177269158`*^-6", + ",", + RowBox[{"-", "1.3591739593199971`*^-6"}], ",", + RowBox[{"-", "3.971266342374754`*^-7"}], ",", "2.552648054600211`*^-6", + ",", + RowBox[{"-", "3.307244351589582`*^-6"}], ",", "2.196995226701064`*^-6", + ",", + RowBox[{"-", "3.409156647107724`*^-7"}]}], "}"}]], "Output", + CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9}, + 3.843818188530829*^9, 3.8438836964718227`*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"299c9c7f-a1e2-4f23-8954-2fad569e0d71"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ - "\"\<~/doc/research/first_order_singularities/paper/data/glow_series_ours_0.\ + "\"\<~/doc/research/first_order_singularities/paper/data/glow_series_ours_9.\ dat\>\"", ",", - RowBox[{"Prepend", "[", + RowBox[{"Table", "[", RowBox[{ - RowBox[{"Table", "[", + RowBox[{"{", RowBox[{ - RowBox[{"{", - RowBox[{"i", ",", - RowBox[{"datOurs", "[", - RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", - RowBox[{"{", - RowBox[{"i", ",", "1", ",", - RowBox[{"Length", "[", "datOurs", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"i", "-", "1"}], ",", + RowBox[{"datOurLow9", "[", + RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", - RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "]"}]], "Input", + RowBox[{"i", ",", "1", ",", + RowBox[{"Length", "[", "datOurLow9", "]"}]}], "}"}]}], "]"}]}], + "]"}]], "Input", CellChangeTimes->{{3.8365725090188103`*^9, 3.836572511033183*^9}, { 3.836572551269373*^9, 3.836572621026455*^9}, {3.8365727308332853`*^9, - 3.836572735579463*^9}, {3.8369881356397867`*^9, 3.8369881529196568`*^9}}, - CellLabel->"In[38]:=",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"], + 3.836572735579463*^9}, {3.8369881356397867`*^9, 3.8369881529196568`*^9}, { + 3.843818319071336*^9, 3.8438183408474913`*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"], Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/glow_\ -series_ours_0.dat\"\>"], "Output", +series_ours_9.dat\"\>"], "Output", CellChangeTimes->{ 3.8365725114300337`*^9, {3.8365725984285917`*^9, 3.8365726212484303`*^9}, 3.8365727364325037`*^9, {3.836988153130045*^9, 3.836988182958664*^9}, - 3.836988333167184*^9, 3.8370701494196787`*^9, 3.8370707835909777`*^9}, - CellLabel->"Out[38]=",ExpressionUUID->"21b5cf8e-7f0a-45f7-ab93-9e8ebe789a07"] + 3.836988333167184*^9, 3.8370701494196787`*^9, 3.8370707835909777`*^9, + 3.843818342558866*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"1091901f-4a92-4d11-9361-eb8e074518d8"] }, Open ]], Cell[CellGroupData[{ @@ -1169,32 +1526,175 @@ caselle.dat\>\"", ",", RowBox[{ RowBox[{"{", RowBox[{"i", ",", - RowBox[{ - RowBox[{"Prepend", "[", - RowBox[{"datCas", ",", - RowBox[{ - RowBox[{"Gls", "[", - RowBox[{"[", "2", "]"}], "]"}], "[", "\"\<Value\>\"", "]"}]}], - "]"}], "[", + RowBox[{"datCas", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", - RowBox[{"1", "+", - RowBox[{"Length", "[", "datCas", "]"}]}]}], "}"}]}], "]"}], ",", + RowBox[{"Length", "[", "datCas", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, { 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, - 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}}, - CellLabel->"In[22]:=",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"], + 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, { + 3.843812903750565*^9, 3.843812935070904*^9}}, + CellLabel->"In[56]:=",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"], Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/glow_\ series_caselle.dat\"\>"], "Output", CellChangeTimes->{3.836988223024967*^9, 3.836988260494157*^9, 3.836988333199574*^9, 3.837070149473012*^9, 3.837070783629765*^9, - 3.837072865499703*^9}, - CellLabel->"Out[22]=",ExpressionUUID->"a5e80f1a-5f57-4a7a-ad79-17c92282d141"] + 3.837072865499703*^9, 3.843812937101083*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"849b4c20-f4a2-4ab0-be1c-d4b54f277dcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Export", "[", + RowBox[{ + "\"\<~/doc/research/first_order_singularities/paper/data/ghigh_caselle.dat\>\ +\"", ",", + RowBox[{"Prepend", "[", + RowBox[{ + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"i", ",", + RowBox[{"datCasH", "[", + RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"Length", "[", "datCasH", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "]"}]], "Input", + CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, { + 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, + 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, + 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, { + 3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9, + 3.843813002559956*^9}}, + CellLabel->"In[65]:=",ExpressionUUID->"3f815a4c-10cf-489f-9fc2-62e52069c4c0"], + +Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/ghigh_\ +caselle.dat\"\>"], "Output", + CellChangeTimes->{3.836988223024967*^9, 3.836988260494157*^9, + 3.836988333199574*^9, 3.837070149473012*^9, 3.837070783629765*^9, + 3.837072865499703*^9, 3.843812937101083*^9, 3.843813188718388*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"55fbc8bb-cdab-4659-a082-91bdbb81a26d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Export", "[", + RowBox[{ + "\"\<~/doc/research/first_order_singularities/paper/data/ghigh_series_ours_\ +2.dat\>\"", ",", + RowBox[{"Thread", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Range", "[", + RowBox[{"0", ",", "14"}], "]"}], ",", "datOurHigh2"}], "}"}], "]"}]}], + "]"}]], "Input", + CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, { + 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, + 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, + 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, { + 3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9, + 3.843813002559956*^9}, {3.843883687737048*^9, 3.843883735041348*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"cd97b893-1f61-415c-8763-743df3cfe10e"], + +Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/ghigh_\ +series_ours_2.dat\"\>"], "Output", + CellChangeTimes->{3.836988223024967*^9, 3.836988260494157*^9, + 3.836988333199574*^9, 3.837070149473012*^9, 3.837070783629765*^9, + 3.837072865499703*^9, 3.843812937101083*^9, 3.843813188718388*^9, + 3.843883736492688*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"ad44ff35-c8ad-47fb-82dc-2f08ed5015a0"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Export", "[", + RowBox[{ + "\"\<~/doc/research/first_order_singularities/paper/data/ghigh_series_ours_\ +9.dat\>\"", ",", + RowBox[{"Thread", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Range", "[", + RowBox[{"0", ",", "14"}], "]"}], ",", "datOurHigh9"}], "}"}], "]"}]}], + "]"}]], "Input", + CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, { + 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, + 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, + 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, { + 3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9, + 3.843813002559956*^9}, {3.843883687737048*^9, 3.843883746721509*^9}}, + CellLabel->"In[75]:=",ExpressionUUID->"7cc8abed-034f-48f9-a04c-7a7cd336cffc"], + +Cell[BoxData["\"\<~/doc/research/first_order_singularities/paper/data/ghigh_\ +series_ours_9.dat\>\""], "Input", + CellChangeTimes->{3.843883760658271*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"65b75ed6-31a7-4b35-9f87-bb8013223e69"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Export", "[", + RowBox[{ + "\"\<~/doc/research/first_order_singularities/paper/data/phi_series_ours_2.\ +dat\>\"", ",", + RowBox[{"Thread", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Range", "[", + RowBox[{"0", ",", "14"}], "]"}], ",", "datOurMid2"}], "}"}], "]"}]}], + "]"}]], "Input", + CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, { + 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, + 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, + 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, { + 3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9, + 3.843813002559956*^9}, {3.843883687737048*^9, 3.843883785650159*^9}}, + CellLabel->"In[76]:=",ExpressionUUID->"ed90fc79-b0f9-464f-acb1-e5aa0d9691f1"], + +Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/phi_\ +series_ours_2.dat\"\>"], "Output", + CellChangeTimes->{3.8438837865421677`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"ec63ab55-c78c-48bb-be15-d4ffdc90af1f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Export", "[", + RowBox[{ + "\"\<~/doc/research/first_order_singularities/paper/data/phi_series_ours_9.\ +dat\>\"", ",", + RowBox[{"Thread", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Range", "[", + RowBox[{"0", ",", "14"}], "]"}], ",", "datOurMid9"}], "}"}], "]"}]}], + "]"}]], "Input", + CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, { + 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9, + 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9}, + 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, { + 3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9, + 3.843813002559956*^9}, {3.843883687737048*^9, 3.843883746721509*^9}, { + 3.8438837895463448`*^9, 3.843883795498577*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"6dd628a1-23df-42ea-b634-4bef16413391"], + +Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/phi_\ +series_ours_9.dat\"\>"], "Output", + CellChangeTimes->{ + 3.836988223024967*^9, 3.836988260494157*^9, 3.836988333199574*^9, + 3.837070149473012*^9, 3.837070783629765*^9, 3.837072865499703*^9, + 3.843812937101083*^9, 3.843813188718388*^9, {3.843883736492688*^9, + 3.8438837481882477`*^9}, 3.8438837970953608`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"fba3789b-8807-4cd2-86d2-e085f54bc1e0"] }, Open ]], Cell[CellGroupData[{ @@ -2655,9 +3155,9 @@ Cell[BoxData[ CellLabel->"Out[91]=",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"] }, Open ]] }, -WindowSize->{475.5, 790.5}, -WindowMargins->{{Automatic, 2.25}, {2.25, Automatic}}, -FrontEndVersion->"12.1 for Linux ARM (32-bit) (August 18, 2020)", +WindowSize->{635.25, 1060.5}, +WindowMargins->{{642, Automatic}, {2.25, Automatic}}, +FrontEndVersion->"12.3 for Linux x86 (64-bit) (July 9, 2021)", StyleDefinitions->"Default.nb", ExpressionUUID->"d257fbda-2be1-4221-9ac8-5153716cfc00" ] @@ -2672,103 +3172,141 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[558, 20, 596, 10, 71, "Input",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"], -Cell[1157, 32, 7539, 107, 71, "Input",ExpressionUUID->"872503c3-0779-4b87-805f-13a088f459e3"], -Cell[8699, 141, 1256, 31, 257, "Input",ExpressionUUID->"02a1f6e5-4144-4552-9463-2a226c1ee186"], -Cell[9958, 174, 2710, 69, 504, "Input",ExpressionUUID->"d8831e63-87f3-498c-8951-21f347e539ff"], -Cell[CellGroupData[{ -Cell[12693, 247, 2190, 62, 225, "Input",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"], -Cell[14886, 311, 384, 7, 35, "Output",ExpressionUUID->"7147fa3f-588c-4d84-919f-5b390263b15a"], -Cell[15273, 320, 379, 7, 35, "Output",ExpressionUUID->"77d5d61f-2753-4b7e-a4c4-fa95057652f1"] +Cell[558, 20, 597, 10, 24, "Input",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"], +Cell[CellGroupData[{ +Cell[1180, 34, 2287, 64, 112, "Input",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"], +Cell[3470, 100, 394, 5, 25, "Output",ExpressionUUID->"5916b0af-c167-4771-aeb7-3c62b468a0ba"], +Cell[3867, 107, 390, 5, 25, "Output",ExpressionUUID->"c9921f2f-76f7-4cfd-85ee-7bf5652dc449"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4294, 117, 3846, 85, 109, "Input",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"], +Cell[8143, 204, 1339, 21, 42, "Output",ExpressionUUID->"662f4cfd-8b83-42b3-bae9-63f60b0e3593"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9519, 230, 3847, 85, 109, "Input",ExpressionUUID->"34fe8bc4-abfb-4504-a7f1-045cd2a55ee6"], +Cell[13369, 317, 640, 12, 44, "Output",ExpressionUUID->"343f2684-7442-43b7-9d49-7e58cf8f6f6d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14046, 334, 3915, 87, 106, "Input",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"], +Cell[17964, 423, 1559, 42, 61, "Output",ExpressionUUID->"afaa9364-8f91-4950-979b-0f9ef86eab0e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19560, 470, 326, 7, 22, "Input",ExpressionUUID->"c2ec938b-df20-4457-ac8f-5fb89f93d9f3"], +Cell[19889, 479, 188, 4, 39, "Output",ExpressionUUID->"7a8c2bb5-90c4-4aeb-82ef-a923f5a729e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20114, 488, 255, 5, 22, "Input",ExpressionUUID->"f775ff7d-d0b6-4518-90fc-dce2b496637c"], +Cell[20372, 495, 194, 3, 39, "Output",ExpressionUUID->"60b8b008-7807-40a6-b3d9-1f2e8b589a73"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20603, 503, 306, 7, 22, "Input",ExpressionUUID->"33e05555-1738-48c2-b7aa-e8fd44cecd72"], +Cell[20912, 512, 221, 3, 25, "Output",ExpressionUUID->"a53b9d58-d244-4548-8b2d-0153f5f04983"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21170, 520, 4200, 108, 191, "Input",ExpressionUUID->"79242c4a-ef9e-453f-aabd-057c68f68aca"], +Cell[25373, 630, 19071, 333, 179, "Output",ExpressionUUID->"9e7d57d6-efa3-474c-ad30-e142da216a92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[44481, 968, 203, 4, 22, "Input",ExpressionUUID->"e2ebf167-6996-49ef-9ca3-9dd16132c4ea"], +Cell[44687, 974, 569, 14, 25, "Output",ExpressionUUID->"c33b6abd-b8d8-415e-b881-93fd6c52f0db"] +}, Open ]], +Cell[CellGroupData[{ +Cell[45293, 993, 501, 13, 24, "Input",ExpressionUUID->"e153916d-9f1b-43b9-a6c4-f59eefa45d16"], +Cell[45797, 1008, 222, 4, 25, "Output",ExpressionUUID->"ca5cf147-c698-4d49-a753-1cf32997e5f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[46056, 1017, 243, 5, 22, "Input",ExpressionUUID->"c29b0035-e029-4b18-8ef4-ecd12fb49333"], +Cell[46302, 1024, 1247, 39, 70, "Output",ExpressionUUID->"a77b28a6-eacd-4614-b43a-ed39428597d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[47586, 1068, 212, 4, 22, "Input",ExpressionUUID->"40438766-386e-4ef0-95c5-bb36288917ef"], +Cell[47801, 1074, 735, 15, 44, "Output",ExpressionUUID->"462d7199-fbaa-4949-8313-776399b35c4a"] }, Open ]], Cell[CellGroupData[{ -Cell[15689, 332, 223, 4, 29, "Input",ExpressionUUID->"cc1db89b-ac08-453b-acd3-8a1a74aa25de"], -Cell[15915, 338, 279, 5, 55, "Output",ExpressionUUID->"539cef56-d335-495b-a7cf-72f95eb2f3c6"] +Cell[48573, 1094, 4388, 128, 175, "Input",ExpressionUUID->"f81ed9c7-d940-4314-963c-c36ea0215ef3"], +Cell[52964, 1224, 1199, 20, 60, "Output",ExpressionUUID->"2234af5e-068b-46a3-beaf-99a907ef5184"] }, Open ]], Cell[CellGroupData[{ -Cell[16231, 348, 148, 2, 29, "Input",ExpressionUUID->"826bcc4b-5d2e-4245-a68d-af19dfb20e6b"], -Cell[16382, 352, 151, 2, 33, "Output",ExpressionUUID->"82fdbc16-a012-4ac0-9a30-1b833903afee"] +Cell[54200, 1249, 685, 17, 24, "Input",ExpressionUUID->"922bbf13-0a40-4ffe-b65d-fb54bcae380b"], +Cell[54888, 1268, 882, 14, 44, "Output",ExpressionUUID->"7d4aad94-bfa0-4ae6-9abe-17ccfe54ccf9"] }, Open ]], -Cell[16548, 357, 916, 20, 72, "Input",ExpressionUUID->"bd6b698e-6871-43fa-9d98-7385cc594c9c"], -Cell[17467, 379, 752, 17, 69, "Input",ExpressionUUID->"7bddfed2-a761-4c62-bcdc-0460988fbd67"], -Cell[18222, 398, 618, 15, 29, "Input",ExpressionUUID->"ec8b9383-61d6-44c2-b776-3d651fc19660"], Cell[CellGroupData[{ -Cell[18865, 417, 943, 23, 133, "Input",ExpressionUUID->"cbeb62aa-7e89-4ec5-a1cb-d5012bac06fd"], -Cell[19811, 442, 334, 5, 55, "Output",ExpressionUUID->"9ddcc7c6-de02-4d31-9401-bbbc5eefe582"] +Cell[55807, 1287, 680, 17, 24, "Input",ExpressionUUID->"649e9e6d-3d2c-4639-9c47-2ea1ddcf4b02"], +Cell[56490, 1306, 802, 13, 44, "Output",ExpressionUUID->"3d3ce9a7-1d88-4c65-8565-6972979e7b63"] }, Open ]], Cell[CellGroupData[{ -Cell[20182, 452, 1041, 24, 71, "Input",ExpressionUUID->"7efd85be-fd7d-435a-a870-214d8ec4025d"], -Cell[21226, 478, 924, 17, 49, "Message",ExpressionUUID->"4bba24d3-fa02-4ad0-86b9-3bdb7e46a000"], -Cell[22153, 497, 877, 15, 33, "Output",ExpressionUUID->"e2f0010a-e1b6-4537-a8ae-b59af3108330"] +Cell[57329, 1324, 752, 17, 24, "Input",ExpressionUUID->"65da12ab-b919-4aad-899a-77b90d54ba33"], +Cell[58084, 1343, 711, 13, 44, "Output",ExpressionUUID->"895bb215-c3fa-44dd-bbdf-c4de16295e4a"] }, Open ]], Cell[CellGroupData[{ -Cell[23067, 517, 523, 12, 71, "Input",ExpressionUUID->"28731a52-d222-49b4-aebb-262f9a5d4dd5"], -Cell[23593, 531, 240, 3, 33, "Output",ExpressionUUID->"65626e49-d3af-4115-b5d3-96f63b95604e"], -Cell[23836, 536, 257, 4, 33, "Output",ExpressionUUID->"fe83a208-ae15-4c69-a7c9-b98329954997"] +Cell[58832, 1361, 698, 17, 24, "Input",ExpressionUUID->"2476ffb9-8112-4899-a159-f51883b8e216"], +Cell[59533, 1380, 612, 12, 27, "Output",ExpressionUUID->"b3a3183b-d2af-4e21-b8e1-1dbac01da522"] }, Open ]], Cell[CellGroupData[{ -Cell[24130, 545, 531, 11, 31, "Input",ExpressionUUID->"f42f7737-f59e-4289-8153-b78626e30f0e"], -Cell[24664, 558, 583, 11, 55, "Output",ExpressionUUID->"c7c2e58e-e6d9-436b-9cc9-4238f4205a5a"] +Cell[60182, 1397, 815, 18, 24, "Input",ExpressionUUID->"e595b072-4f65-493a-afbb-d0fd95bb7c1c"], +Cell[61000, 1417, 967, 18, 60, "Output",ExpressionUUID->"10b2b981-6a70-47a2-b331-59f3035f0b63"] }, Open ]], Cell[CellGroupData[{ -Cell[25284, 574, 3600, 82, 247, "Input",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"], -Cell[28887, 658, 1695, 39, 102, "Output",ExpressionUUID->"11e20a4b-cae5-48c4-b906-784dd8f87538"] +Cell[62004, 1440, 756, 17, 24, "Input",ExpressionUUID->"428ba532-a5a7-47a0-834d-51e3a093d96a"], +Cell[62763, 1459, 900, 19, 60, "Output",ExpressionUUID->"299c9c7f-a1e2-4f23-8954-2fad569e0d71"] }, Open ]], Cell[CellGroupData[{ -Cell[30619, 702, 3652, 83, 247, "Input",ExpressionUUID->"34fe8bc4-abfb-4504-a7f1-045cd2a55ee6"], -Cell[34274, 787, 689, 17, 58, "Output",ExpressionUUID->"9ec93309-453d-448d-a010-32e525370828"] +Cell[63700, 1483, 839, 20, 41, "Input",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"], +Cell[64542, 1505, 461, 7, 25, "Output",ExpressionUUID->"1091901f-4a92-4d11-9361-eb8e074518d8"] }, Open ]], Cell[CellGroupData[{ -Cell[35000, 809, 3915, 87, 263, "Input",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"], -Cell[38918, 898, 1559, 42, 102, "Output",ExpressionUUID->"afaa9364-8f91-4950-979b-0f9ef86eab0e"] +Cell[65040, 1517, 1002, 23, 41, "Input",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"], +Cell[66045, 1542, 371, 5, 25, "Output",ExpressionUUID->"849b4c20-f4a2-4ab0-be1c-d4b54f277dcb"] }, Open ]], Cell[CellGroupData[{ -Cell[40514, 945, 212, 4, 29, "Input",ExpressionUUID->"40438766-386e-4ef0-95c5-bb36288917ef"], -Cell[40729, 951, 735, 15, 99, "Output",ExpressionUUID->"462d7199-fbaa-4949-8313-776399b35c4a"] +Cell[66453, 1552, 1048, 24, 41, "Input",ExpressionUUID->"3f815a4c-10cf-489f-9fc2-62e52069c4c0"], +Cell[67504, 1578, 387, 5, 25, "Output",ExpressionUUID->"55fbc8bb-cdab-4659-a082-91bdbb81a26d"] }, Open ]], Cell[CellGroupData[{ -Cell[41501, 971, 4388, 128, 493, "Input",ExpressionUUID->"f81ed9c7-d940-4314-963c-c36ea0215ef3"], -Cell[45892, 1101, 1199, 20, 120, "Output",ExpressionUUID->"2234af5e-068b-46a3-beaf-99a907ef5184"] +Cell[67928, 1588, 846, 17, 41, "Input",ExpressionUUID->"cd97b893-1f61-415c-8763-743df3cfe10e"], +Cell[68777, 1607, 418, 6, 25, "Output",ExpressionUUID->"ad44ff35-c8ad-47fb-82dc-2f08ed5015a0"] }, Open ]], +Cell[69210, 1616, 846, 17, 41, "Input",ExpressionUUID->"7cc8abed-034f-48f9-a04c-7a7cd336cffc"], +Cell[70059, 1635, 232, 3, 22, InheritFromParent,ExpressionUUID->"65b75ed6-31a7-4b35-9f87-bb8013223e69"], Cell[CellGroupData[{ -Cell[47128, 1126, 882, 21, 113, "Input",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"], -Cell[48013, 1149, 435, 6, 25, "Output",ExpressionUUID->"21b5cf8e-7f0a-45f7-ab93-9e8ebe789a07"] +Cell[70316, 1642, 843, 17, 41, "Input",ExpressionUUID->"ed90fc79-b0f9-464f-acb1-e5aa0d9691f1"], +Cell[71162, 1661, 233, 3, 25, "Output",ExpressionUUID->"ec63ab55-c78c-48bb-be15-d4ffdc90af1f"] }, Open ]], Cell[CellGroupData[{ -Cell[48485, 1160, 1195, 29, 41, "Input",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"], -Cell[49683, 1191, 349, 5, 25, "Output",ExpressionUUID->"a5e80f1a-5f57-4a7a-ad79-17c92282d141"] +Cell[71432, 1669, 895, 18, 41, "Input",ExpressionUUID->"6dd628a1-23df-42ea-b634-4bef16413391"], +Cell[72330, 1689, 472, 7, 25, "Output",ExpressionUUID->"fba3789b-8807-4cd2-86d2-e085f54bc1e0"] }, Open ]], Cell[CellGroupData[{ -Cell[50069, 1201, 228, 5, 22, "Input",ExpressionUUID->"feb08355-9ad1-4257-9f97-e394177d7e32"], -Cell[50300, 1208, 274, 8, 25, "Output",ExpressionUUID->"87e29f54-9d68-4261-96d4-95d24dcdc36a"] +Cell[72839, 1701, 228, 5, 22, "Input",ExpressionUUID->"feb08355-9ad1-4257-9f97-e394177d7e32"], +Cell[73070, 1708, 274, 8, 25, "Output",ExpressionUUID->"87e29f54-9d68-4261-96d4-95d24dcdc36a"] }, Open ]], Cell[CellGroupData[{ -Cell[50611, 1221, 1542, 27, 55, "Input",ExpressionUUID->"e61ed118-a102-4290-8440-cba17b87145b"], -Cell[52156, 1250, 12321, 270, 180, "Output",ExpressionUUID->"2e45389f-59c7-4eaf-9b3a-270214fa013e"] +Cell[73381, 1721, 1542, 27, 55, "Input",ExpressionUUID->"e61ed118-a102-4290-8440-cba17b87145b"], +Cell[74926, 1750, 12321, 270, 180, "Output",ExpressionUUID->"2e45389f-59c7-4eaf-9b3a-270214fa013e"] }, Open ]], -Cell[64492, 1523, 175, 3, 22, "Input",ExpressionUUID->"0f87aa05-2cc9-472a-ab27-39ee15777442"], -Cell[64670, 1528, 356, 7, 24, "Input",ExpressionUUID->"627c17e0-e2d8-4347-8fe9-812183a42941"], +Cell[87262, 2023, 175, 3, 22, "Input",ExpressionUUID->"0f87aa05-2cc9-472a-ab27-39ee15777442"], +Cell[87440, 2028, 356, 7, 24, "Input",ExpressionUUID->"627c17e0-e2d8-4347-8fe9-812183a42941"], Cell[CellGroupData[{ -Cell[65051, 1539, 176, 2, 22, "Input",ExpressionUUID->"f32c32be-7fcb-4660-bf43-cbc119acda96"], -Cell[65230, 1543, 2097, 65, 77, "Output",ExpressionUUID->"01b48fb7-d8c9-4012-92f6-488cf7e7087c"] +Cell[87821, 2039, 176, 2, 22, "Input",ExpressionUUID->"f32c32be-7fcb-4660-bf43-cbc119acda96"], +Cell[88000, 2043, 2097, 65, 77, "Output",ExpressionUUID->"01b48fb7-d8c9-4012-92f6-488cf7e7087c"] }, Open ]], Cell[CellGroupData[{ -Cell[67364, 1613, 860, 24, 24, "Input",ExpressionUUID->"bfa6a31f-5eb9-4063-b798-e45ab1e3b53a"], -Cell[68227, 1639, 1944, 57, 77, "Output",ExpressionUUID->"0ca79efb-1867-4b1f-96fc-4a691d54b72e"] +Cell[90134, 2113, 860, 24, 24, "Input",ExpressionUUID->"bfa6a31f-5eb9-4063-b798-e45ab1e3b53a"], +Cell[90997, 2139, 1944, 57, 77, "Output",ExpressionUUID->"0ca79efb-1867-4b1f-96fc-4a691d54b72e"] }, Open ]], Cell[CellGroupData[{ -Cell[70208, 1701, 2622, 77, 93, "Input",ExpressionUUID->"242aacdf-e4c7-423c-a26a-12188ba2476e"], -Cell[72833, 1780, 21838, 439, 180, "Output",ExpressionUUID->"073d831e-11a6-4203-90ce-0df429c1a3f0"] +Cell[92978, 2201, 2622, 77, 93, "Input",ExpressionUUID->"242aacdf-e4c7-423c-a26a-12188ba2476e"], +Cell[95603, 2280, 21838, 439, 180, "Output",ExpressionUUID->"073d831e-11a6-4203-90ce-0df429c1a3f0"] }, Open ]], -Cell[94686, 2222, 725, 15, 24, "Input",ExpressionUUID->"80c6c675-eade-40e1-8d0f-13a6578b30ff"], -Cell[95414, 2239, 764, 21, 22, "Input",ExpressionUUID->"d8847f2e-21fe-4fb7-84ae-676f83acdf5a"], +Cell[117456, 2722, 725, 15, 24, "Input",ExpressionUUID->"80c6c675-eade-40e1-8d0f-13a6578b30ff"], +Cell[118184, 2739, 764, 21, 22, "Input",ExpressionUUID->"d8847f2e-21fe-4fb7-84ae-676f83acdf5a"], Cell[CellGroupData[{ -Cell[96203, 2264, 679, 17, 40, "Input",ExpressionUUID->"15d60f60-2f87-40da-a2c6-66d640111d75"], -Cell[96885, 2283, 1298, 32, 44, "Output",ExpressionUUID->"6f1d902a-0431-4a99-adc2-97eb3c423317"] +Cell[118973, 2764, 679, 17, 40, "Input",ExpressionUUID->"15d60f60-2f87-40da-a2c6-66d640111d75"], +Cell[119655, 2783, 1298, 32, 44, "Output",ExpressionUUID->"6f1d902a-0431-4a99-adc2-97eb3c423317"] }, Open ]], Cell[CellGroupData[{ -Cell[98220, 2320, 736, 18, 57, "Input",ExpressionUUID->"bec4c929-c1a6-4fd0-be18-caf3643ba3a4"], -Cell[98959, 2340, 14613, 314, 179, "Output",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"] +Cell[120990, 2820, 736, 18, 57, "Input",ExpressionUUID->"bec4c929-c1a6-4fd0-be18-caf3643ba3a4"], +Cell[121729, 2840, 14613, 314, 179, "Output",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"] }, Open ]] } ] |