From 3fe957b9dcd2123d76c4c87c78a6b1924d9d438a Mon Sep 17 00:00:00 2001 From: Jaron Kent-Dobias Date: Sat, 23 Oct 2021 11:19:00 +0200 Subject: Work. --- caselle_compare.nb | 1774 +++++++++----- new_schofield.nb | 6938 ++++++++++++++++++++++++++++++++++------------------ schofield.wl | 26 +- 3 files changed, 5730 insertions(+), 3008 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", "]"}], "]"}], "[", "\"\\"", "]"}], 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", "[", "\"\\"", "]"}], ",", "#2"}], "]"}], ",", - RowBox[{"If", "[", - RowBox[{ - RowBox[{ - RowBox[{"Head", "[", "#2", "]"}], "===", "Around"}], ",", - RowBox[{"#2", "[", "\"\\"", "]"}], ",", "0"}], "]"}]}], - "}"}], "&"}], "@@@", "datNum"}]}], "]"}]], "Input", - CellChangeTimes->{{3.836571907042726*^9, 3.8365719075682077`*^9}, { - 3.8365719679456177`*^9, 3.836572034954253*^9}, {3.836572067138021*^9, - 3.8365720932499523`*^9}}, - CellLabel->"In[33]:=",ExpressionUUID->"cbeb62aa-7e89-4ec5-a1cb-d5012bac06fd"], - -Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/glow_\ -series_numeric.dat\"\>"], "Output", - CellChangeTimes->{ - 3.8365719078847313`*^9, {3.836572025847522*^9, 3.836572035446138*^9}, - 3.8365720941903563`*^9, 3.836572233522911*^9}, - CellLabel->"Out[33]=",ExpressionUUID->"9ddcc7c6-de02-4d31-9401-bbbc5eefe582"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"m0rule", "=", - RowBox[{ - RowBox[{"Solve", "[", - RowBox[{ - RowBox[{ - RowBox[{"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", "[", "\"\\"", "]"}], "/.", - "m0rule"}]}], "\[IndentingNewLine]", - RowBox[{"m0", "=", - RowBox[{ - RowBox[{"m0", "[", "\"\\"", "]"}], "/.", "m0rule"}]}]}], "Input", - CellChangeTimes->{{3.8369847488424397`*^9, 3.836984792561878*^9}}, - CellLabel->"In[13]:=",ExpressionUUID->"28731a52-d222-49b4-aebb-262f9a5d4dd5"], - -Cell[BoxData["0.2591817983420855`"], "Output", - CellChangeTimes->{{3.83698477315833*^9, 3.8369847927282743`*^9}, - 3.837070002329464*^9, 3.837072479312191*^9}, - CellLabel->"Out[14]=",ExpressionUUID->"65626e49-d3af-4115-b5d3-96f63b95604e"], - -Cell[BoxData[ - RowBox[{"-", "1.0057626728406195`"}]], "Output", - CellChangeTimes->{{3.83698477315833*^9, 3.8369847927282743`*^9}, - 3.837070002329464*^9, 3.837072479313409*^9}, - CellLabel->"Out[15]=",ExpressionUUID->"fe83a208-ae15-4c69-a7c9-b98329954997"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{ - RowBox[{"coeffCasMid", "[", "5", "]"}], "/", - RowBox[{ - RowBox[{"Range", "[", - RowBox[{"0", ",", "5"}], "]"}], "!"}]}], "/.", "m0rule"}]], "Input", - CellChangeTimes->{{3.832239286022997*^9, 3.83223928776565*^9}, { - 3.832239333006241*^9, 3.83223933347838*^9}, {3.832239464537035*^9, - 3.832239465688715*^9}, {3.832239596747369*^9, 3.832239610347269*^9}, { - 3.832239661037331*^9, 3.83223966189207*^9}}, - CellLabel->"In[16]:=",ExpressionUUID->"f42f7737-f59e-4289-8153-b78626e30f0e"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - RowBox[{"-", "1.280384036380197`"}], ",", - RowBox[{"-", "0.166257524237109`"}], ",", "0.03998986398383036`", ",", - RowBox[{"-", "0.00793393859415671`"}], ",", "0.00027904634576921466`", ",", - "0.0006680802614227808`"}], "}"}]], "Output", - CellChangeTimes->{ - 3.832239333786672*^9, {3.8322394618672743`*^9, 3.832239465919291*^9}, { - 3.83223957814188*^9, 3.832239613896473*^9}, 3.83223966232157*^9, - 3.8369843208154488`*^9, 3.8370724800639668`*^9}, - CellLabel->"Out[16]=",ExpressionUUID->"c7c2e58e-e6d9-436b-9cc9-4238f4205a5a"] -}, Open ]], - -Cell[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[{ @@ -943,6 +468,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}}, @@ -1124,36 +1247,270 @@ 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", "]"}], "]"}], "[", "\"\\"", "]"}]}], - "]"}], "[", + 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 ]] } ] diff --git a/new_schofield.nb b/new_schofield.nb index d67e096..cd387b6 100644 --- a/new_schofield.nb +++ b/new_schofield.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 2099745, 36658] -NotebookOptionsPosition[ 2080111, 36353] -NotebookOutlinePosition[ 2080510, 36369] -CellTagsIndexPosition[ 2080467, 36366] +NotebookDataLength[ 2193199, 38842] +NotebookOptionsPosition[ 2171903, 38529] +NotebookOutlinePosition[ 2172301, 38545] +CellTagsIndexPosition[ 2172258, 38542] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -33,8 +33,7 @@ Cell[BoxData[ 3.83957102205329*^9, 3.8395710222207737`*^9}, {3.841389917784724*^9, 3.841389919112598*^9}, {3.8424227955510283`*^9, 3.842422804973724*^9}, { 3.8425181034802094`*^9, 3.8425181185428543`*^9}}, - CellLabel-> - "In[354]:=",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"], + CellLabel->"In[1]:=",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"], Cell[BoxData[{ RowBox[{ @@ -88,248 +87,6 @@ Cell["Generate fits", "Subsection", 3.842517582508664*^9}},ExpressionUUID->"04b3434a-7ae1-4e59-9492-\ 797bc05d141c"], -Cell[BoxData[ - RowBox[{ - RowBox[{"nAs", "=", "2"}], ";"}]], "Input", - CellChangeTimes->{{3.841213645969795*^9, 3.841213648302487*^9}}, - CellLabel-> - "In[244]:=",ExpressionUUID->"c2736e8b-b9a2-44e3-be7a-35f424888e11"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"stest", "=", - RowBox[{"newSol", "[", - RowBox[{ - RowBox[{"randomEval", "[", - RowBox[{"Drop", "[", - RowBox[{ - RowBox[{ - RowBox[{"eqAround", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "3", "]"}]}], "]"}], "[", - RowBox[{"2", ",", "2", ",", "2"}], "]"}], ",", "1"}], "]"}], "]"}], - ",", - RowBox[{"Most", "@", - RowBox[{ - RowBox[{"SN", "[", "2", "]"}], "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", - RowBox[{"gC", "[", "3", "]"}], "}"}], ",", "0.1"}], "]"}]}]], "Input", - CellChangeTimes->{{3.8437350842487507`*^9, 3.8437350887834578`*^9}, { - 3.843735130705277*^9, 3.843735208315724*^9}, {3.843735319485054*^9, - 3.8437353404680843`*^9}}, - CellLabel-> - "In[373]:=",ExpressionUUID->"f1779a9a-9c6a-4c22-8f2d-5e3f6320dd18"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", - RowBox[{"1.30739428360541`", "\[VeryThinSpace]", "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{"\[Theta]0", "\[Rule]", - RowBox[{"0.1986413821273041`", "\[VeryThinSpace]", "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{ - RowBox[{"-", "2.3455271705562053`"}], "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", - RowBox[{"1.4375595560982888`", "\[VeryThinSpace]", "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", - RowBox[{"0.38772441346096487`", "\[VeryThinSpace]", "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{ - RowBox[{"-", "0.04228284080339083`"}], "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"0.010833244085729572`", "\[VeryThinSpace]", "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{ - RowBox[{"-", "0.0019045960428110999`"}], "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}]}], "}"}]], "Output", - CellChangeTimes->{{3.8437350129483624`*^9, 3.843735090915018*^9}, - 3.843735128296685*^9, {3.84373516161607*^9, 3.843735229281365*^9}, { - 3.843735326877481*^9, 3.8437353415674667`*^9}}, - CellLabel-> - "Out[373]=",ExpressionUUID->"7b6a0ec1-17b1-42fe-be1f-bc27b407eb0f"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"s0", "=", - RowBox[{ - RowBox[{ - RowBox[{"#1", "->", - RowBox[{"Re", "[", "#2", "]"}]}], "&"}], "@@@", - RowBox[{"untilSuccess", "[", - RowBox[{"newSol", "[", - RowBox[{ - RowBox[{"randomEval", "[", - RowBox[{"Drop", "[", - RowBox[{ - RowBox[{ - RowBox[{"eqAround", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "2", "]"}]}], "]"}], "[", - RowBox[{"2", ",", "2", ",", "2"}], "]"}], ",", "2"}], "]"}], "]"}], - ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "->", - RowBox[{"1", "+", - RowBox[{"RandomReal", "[", "]"}]}]}], ",", - RowBox[{"\[Theta]0", "->", "0.2"}]}], "}"}], ",", - RowBox[{"{", - RowBox[{"AH", ",", - RowBox[{"A", "[", "1", "]"}], ",", - RowBox[{"A", "[", "2", "]"}], ",", - RowBox[{"gC", "[", "1", "]"}], ",", - RowBox[{"gC", "[", "2", "]"}]}], "}"}], ",", ".1"}], "]"}], - "]"}]}]}]], "Input", - CellChangeTimes->{{3.840872563521092*^9, 3.840872576998932*^9}, { - 3.840872709369928*^9, 3.840872764402226*^9}, {3.840877636812889*^9, - 3.840877656924961*^9}, {3.840877923391466*^9, 3.8408779355510817`*^9}, { - 3.8408780598941317`*^9, 3.8408780601811543`*^9}, {3.8408797181810427`*^9, - 3.840879778238139*^9}, {3.840880795134419*^9, 3.840880840286354*^9}, { - 3.840880874528244*^9, 3.840880874703277*^9}, {3.840880912632703*^9, - 3.840880919991878*^9}, {3.840880964425344*^9, 3.840880970072919*^9}, { - 3.8408823919331017`*^9, 3.840882408285187*^9}, {3.840882654137898*^9, - 3.8408827357871857`*^9}, {3.840882788764772*^9, 3.840882792524544*^9}, - 3.840882894926977*^9, {3.841112236364469*^9, 3.841112243763925*^9}, { - 3.841112313502637*^9, 3.8411123146620913`*^9}, {3.841112388153365*^9, - 3.841112388328306*^9}, {3.841113559383749*^9, 3.84111356348705*^9}, { - 3.841113845807329*^9, 3.8411138491660833`*^9}, {3.841114253194316*^9, - 3.841114254601055*^9}, {3.8411149340289297`*^9, 3.8411149380036087`*^9}, { - 3.841115140132168*^9, 3.8411151578518972`*^9}, {3.841118660703054*^9, - 3.841118669270204*^9}, {3.84111963423028*^9, 3.84111963438923*^9}, { - 3.8411197709763603`*^9, 3.841119780736758*^9}, {3.841119818369471*^9, - 3.841119861353202*^9}, {3.841120052157507*^9, 3.841120061869829*^9}, { - 3.841120110726479*^9, 3.841120112581915*^9}, {3.841121150329917*^9, - 3.8411211504968767`*^9}, {3.841121467374711*^9, 3.841121469214098*^9}, { - 3.841121521631566*^9, 3.8411215316470957`*^9}, {3.841121826077414*^9, - 3.841121830028577*^9}, {3.841122524498312*^9, 3.841122524665271*^9}, { - 3.841122562074945*^9, 3.8411225622019987`*^9}, {3.841122639908085*^9, - 3.841122640555438*^9}, {3.841130161765921*^9, 3.841130162765541*^9}, { - 3.841131213073967*^9, 3.841131213232782*^9}, {3.841134390651767*^9, - 3.8411344156200743`*^9}, {3.841134461917511*^9, 3.8411344621164227`*^9}, { - 3.8411356221148643`*^9, 3.8411356447942247`*^9}, {3.841213559117867*^9, - 3.841213592453618*^9}, {3.841213653182707*^9, 3.841213680583296*^9}, { - 3.841994430388618*^9, 3.8419944408046093`*^9}, {3.841994755179496*^9, - 3.841994755346443*^9}, {3.841994896941716*^9, 3.841994926998374*^9}, { - 3.841994983607177*^9, 3.8419950242243156`*^9}, {3.841995200194737*^9, - 3.8419952057475653`*^9}, {3.842688660466323*^9, 3.842688668562681*^9}, { - 3.842688747500245*^9, 3.842688751827346*^9}, 3.843711136688591*^9, { - 3.8437111949458714`*^9, 3.843711256554105*^9}, 3.843714578528306*^9, { - 3.843734907692033*^9, 3.843734942084776*^9}, {3.8437349752622023`*^9, - 3.843734978125502*^9}}, - CellLabel-> - "In[349]:=",ExpressionUUID->"a326d1ad-f5a3-49d5-9b86-3a79e4cb291c"], - -Cell[BoxData["$Aborted"], "Output", - CellChangeTimes->{{3.841213667298201*^9, 3.841213680834222*^9}, { - 3.841225528753489*^9, 3.8412255307639217`*^9}, 3.841297785004229*^9, - 3.841303397495946*^9, 3.841304437958754*^9, 3.841304527293501*^9, { - 3.841305184240437*^9, 3.841305190396916*^9}, 3.841305233787437*^9, - 3.841305343526166*^9, 3.8413108551817913`*^9, 3.8413112805525637`*^9, - 3.841316303642786*^9, 3.841389849950029*^9, 3.84138996708595*^9, - 3.841390187817034*^9, 3.8413902178695107`*^9, 3.841390251177702*^9, - 3.841390293298427*^9, 3.8413904792944736`*^9, 3.8413905777348013`*^9, - 3.841391289327278*^9, 3.841392157175344*^9, 3.841392285420888*^9, - 3.841392335464444*^9, 3.8414635899813747`*^9, 3.841464592139812*^9, - 3.841727568283511*^9, 3.841733129163908*^9, 3.841826404105365*^9, - 3.8419944380646667`*^9, {3.8419947535141783`*^9, 3.841994756891218*^9}, { - 3.841994924101157*^9, 3.841994935329941*^9}, {3.841994992788472*^9, - 3.8419950232557077`*^9}, 3.841995079391933*^9, {3.841995204423297*^9, - 3.84199520626237*^9}, 3.8420034241494923`*^9, 3.8420689124310923`*^9, - 3.842330230554284*^9, 3.842330804692266*^9, {3.842337081323071*^9, - 3.842337084010837*^9}, 3.842350006073023*^9, 3.842422344645892*^9, - 3.842422816178594*^9, 3.842518122452919*^9, 3.842519915109*^9, - 3.842522122885919*^9, 3.842522655663528*^9, 3.842524725510088*^9, - 3.842525662569347*^9, 3.84259116821867*^9, {3.842599196265551*^9, - 3.8425992071730633`*^9}, 3.842599359641241*^9, 3.8425998079904613`*^9, { - 3.842683504778739*^9, 3.842683514378283*^9}, {3.84268397204325*^9, - 3.842683978375692*^9}, {3.842684654553711*^9, 3.842684657254725*^9}, - 3.842684902947652*^9, 3.8426868062452803`*^9, 3.842687682372817*^9, { - 3.8426885885640917`*^9, 3.842688589825081*^9}, {3.842688667291643*^9, - 3.84268867286578*^9}, {3.8426887522632008`*^9, 3.842688753765951*^9}, - 3.842688845006856*^9, 3.842939605883937*^9, 3.843290139302218*^9, - 3.843644146085823*^9, 3.843710924398151*^9, {3.843711054640924*^9, - 3.8437110922400217`*^9}, 3.8437111370774107`*^9, {3.843711214813362*^9, - 3.84371125686831*^9}, {3.8437145761432467`*^9, 3.843714578908883*^9}, - 3.843734947477396*^9, 3.843734987457467*^9}, - CellLabel-> - "Out[349]=",ExpressionUUID->"1560e838-31e7-482c-8c61-6b82790b3283"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Timing", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"dGd\[Xi]LowList", "[", - RowBox[{"nAs", ",", - RowBox[{"h", "[", "0", "]"}]}], "]"}], "[", "6", "]"}], "/", - RowBox[{"(", - RowBox[{ - RowBox[{"Range", "[", - RowBox[{"0", ",", "6"}], "]"}], "!"}], ")"}]}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "0", "]"}], "]"}]}], "/.", "s0"}], "]"}]], "Input", - CellChangeTimes->{{3.841389858617463*^9, 3.841389864495379*^9}, { - 3.841390308400168*^9, 3.841390319008019*^9}, {3.842068918729508*^9, - 3.842068919328607*^9}}, - CellLabel-> - "In[247]:=",ExpressionUUID->"8eab97ea-e359-40c0-9935-fde12f7b604a"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"0.211381`", ",", - RowBox[{"{", - RowBox[{"5.037636974236648`*^-15", ",", - RowBox[{"-", "1.3578383417065911`"}], ",", - RowBox[{"-", "0.026337983587361724`"}], ",", "0.007675283648517661`", - ",", - RowBox[{"-", "0.003524064392815372`"}], ",", "0.0018900670454341274`", - ",", - RowBox[{"-", "0.0011030713997917116`"}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{ - 3.841389868403063*^9, 3.8413899704214067`*^9, 3.841390191376688*^9, - 3.841390222192317*^9, 3.8413902544921722`*^9, {3.841390296630432*^9, - 3.841390322266429*^9}, 3.841390481156994*^9, 3.841390578185719*^9, - 3.841391289835928*^9, 3.8413921581798*^9, 3.841392286032384*^9, - 3.84139233625907*^9, 3.841463590768024*^9, 3.8414645923911953`*^9, - 3.84172756896039*^9, 3.8417331294742737`*^9, 3.841826404430285*^9, - 3.842003424758133*^9, {3.842068914521706*^9, 3.8420689201777153`*^9}, - 3.842330230893139*^9, 3.842330806477663*^9, {3.84233708198837*^9, - 3.84233708481223*^9}, 3.842350006459215*^9, 3.842422346176568*^9, - 3.842422817711318*^9, 3.84251812308186*^9, 3.842519915679865*^9, - 3.842522123426433*^9, 3.842522656068872*^9, 3.8425247258854227`*^9, - 3.842525663225604*^9, 3.842591168723563*^9, {3.842599197158167*^9, - 3.842599207599419*^9}, 3.842599360465514*^9, 3.8425998084666023`*^9, { - 3.842683505512886*^9, 3.842683515139864*^9}, {3.842683972405624*^9, - 3.842683983377284*^9}, 3.8426846581937027`*^9, 3.842684904465537*^9, - 3.842686806884112*^9, 3.842687683113398*^9, 3.8426885904206676`*^9, - 3.8426887543295116`*^9, 3.8426888454660797`*^9, 3.8429396072831182`*^9, - 3.843290139550982*^9, 3.843710924603498*^9, 3.843711088523991*^9, - 3.843711138218265*^9, 3.843711257605888*^9, 3.843714579451165*^9}, - CellLabel-> - "Out[247]=",ExpressionUUID->"44b44280-02dd-432c-a93d-a6c18e60d889"] -}, Open ]], - Cell[CellGroupData[{ Cell[BoxData[ @@ -337,17 +94,21 @@ Cell[BoxData[ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Abs", "[", "Gls", "]"}], ",", "\[IndentingNewLine]", - RowBox[{"Chop", "[", - RowBox[{ + RowBox[{"Chop", "@", + RowBox[{"Abs", "@", RowBox[{ - RowBox[{"Abs", "[", + RowBox[{"dGd\[Xi]LowList", "[", RowBox[{ - RowBox[{"dGd\[Xi]LowList", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "3", "]"}]}], "]"}], "[", "8", "]"}], "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "3", "]"}], "]"}]}], "/.", "stest"}], "]"}]}], - "\[IndentingNewLine]", "}"}], "]"}]], "Input", + RowBox[{"NFN", "[", "7", "]"}], ",", + RowBox[{"HN", "[", "7", "]"}], ",", + RowBox[{"Join", "[", + RowBox[{ + RowBox[{"rules", "[", + RowBox[{"HN", "[", "7", "]"}], "]"}], ",", + RowBox[{ + RowBox[{"SN", "[", "7", "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], "[", "13", + "]"}]}]}]}], "\[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}, { @@ -412,9 +173,12 @@ Cell[BoxData[ 3.843732139233203*^9}, {3.843732799750082*^9, 3.8437328493500834`*^9}, { 3.8437330806830597`*^9, 3.843733105226886*^9}, {3.8437333721607237`*^9, 3.843733374624625*^9}, {3.8437351833302603`*^9, 3.84373518371329*^9}, { - 3.843735347060704*^9, 3.843735363453938*^9}}, + 3.843735347060704*^9, 3.843735363453938*^9}, {3.843884105824162*^9, + 3.843884116384301*^9}, {3.843885471625979*^9, 3.8438854826409693`*^9}, { + 3.843895611016502*^9, 3.843895646762692*^9}, {3.843901283826623*^9, + 3.843901290602743*^9}}, CellLabel-> - "In[375]:=",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"], + "In[154]:=",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"], Cell[BoxData[ GraphicsBox[{{{ @@ -467,6 +231,16 @@ Cell[BoxData[ StyleBox[{{}, { LineBox[{{13., 10.747207591575448`}, {13., 10.749355820113736`}}], LineBox[{{13., 10.749355820113736`}, {13., 10.751499443656988`}}]}}, + Antialiasing->False]}, + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, { + LineBox[{{14., 13.005829561148378`}, {14., 13.008074231002201`}}], + LineBox[{{14., 13.008074231002201`}, {14., 13.010313873595706`}}]}}, + Antialiasing->False]}, + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, { + LineBox[{{15., 15.35237777756354}, {15., 15.354526006101828`}}], + LineBox[{{15., 15.354526006101828`}, {15., 15.35666962964508}}]}}, Antialiasing->False]}}, { {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ @@ -612,6 +386,35 @@ Cell[BoxData[ 10.747207591575448`}, Offset[{-3, 0}, {13., 10.747207591575448`}]}}], {{{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[{{{14., 13.010313873595706`}, + Offset[{3, 0}, {14., 13.010313873595706`}]}, {{14., + 13.010313873595706`}, + Offset[{-3, 0}, {14., 13.010313873595706`}]}, {{14., + 13.005829561148378`}, + Offset[{3, 0}, {14., 13.005829561148378`}]}, {{14., + 13.005829561148378`}, + Offset[{-3, 0}, {14., 13.005829561148378`}]}}], {{{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[{{{15., 15.35666962964508}, + Offset[{3, 0}, {15., 15.35666962964508}]}, {{15., + 15.35666962964508}, Offset[{-3, 0}, {15., 15.35666962964508}]}, {{ + 15., 15.35237777756354}, + Offset[{3, 0}, {15., 15.35237777756354}]}, {{15., + 15.35237777756354}, + Offset[{-3, 0}, {15., 15.35237777756354}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, Antialiasing->False]}}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], @@ -624,14 +427,17 @@ Cell[BoxData[ 13.008074231002201`}, {15., 15.354526006101828`}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - PointBox[{{2., 0.3058939805973395}, {3., -3.0168887065381007`}, { - 4., -3.2384753178398777`}, {5., -2.6396229982862995`}, { - 6., -1.5995614426337927`}, {7., -0.27923626577710925`}, {8., - 1.2381495928937638`}, {9., 2.911830858222188}}]}}, {{}, {}}}, + PointBox[{{2., 0.3058939805971706}, {3., -3.0168887065270606`}, { + 4., -3.2476886564569973`}, {5., -2.682936423477142}, { + 6., -1.693451732882842}, {7., -0.4167738013600686}, {8., + 1.077615047773819}, {9., 2.7510811302510185`}, {10., + 4.586316016568673}, {11., 6.581917335773754}, {12., + 8.739935900221406}, {13., 11.049198069932453`}, {14., + 13.480441427538558`}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0., -4.703417605114004}, + AxesOrigin->{0., -4.7035853558213905`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -652,7 +458,7 @@ Cell[BoxData[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, - PlotRange->{{0., 15.}, {-4.703417605114004, 15.354526006101828`}}, + PlotRange->{{0., 15.}, {-4.7035853558213905`, 15.35666962964508}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -737,9 +543,13 @@ Cell[BoxData[ 3.843731919344845*^9, 3.843731927535083*^9}, 3.843732141204548*^9, 3.843732851581748*^9, {3.843733102888973*^9, 3.8437331082537203`*^9}, { 3.843733367828533*^9, 3.843733376807994*^9}, 3.8437351861353197`*^9, { - 3.84373535353183*^9, 3.843735365917848*^9}}, + 3.84373535353183*^9, 3.843735365917848*^9}, 3.843884118149969*^9, + 3.843884181352561*^9, 3.843884286857087*^9, 3.8438844096656847`*^9, + 3.8438844413531446`*^9, 3.843885337947896*^9, 3.843893134211335*^9, + 3.843895544397488*^9, {3.8438955968230658`*^9, 3.8438956559794064`*^9}, + 3.843901300625553*^9}, CellLabel-> - "Out[375]=",ExpressionUUID->"b42c1f8b-0961-4720-9780-938a106ee199"] + "Out[154]=",ExpressionUUID->"fd0e31c4-3576-413b-be64-c5e2cf272a90"] }, Open ]], Cell[CellGroupData[{ @@ -750,30 +560,20 @@ Cell[BoxData[ RowBox[{ RowBox[{"Abs", "[", "Ghs", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Chop", "[", - RowBox[{ - RowBox[{ - RowBox[{"Abs", "@", - RowBox[{ - RowBox[{"dGd\[Xi]List", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "3", "]"}]}], "]"}], "[", - RowBox[{"10", ",", "0"}], "]"}]}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "3", "]"}], "]"}]}], "/.", "stest"}], "]"}], ",", - "\[IndentingNewLine]", - RowBox[{"Chop", "[", - RowBox[{ + RowBox[{"Abs", "@", RowBox[{ - RowBox[{"Abs", "@", + RowBox[{"dGd\[Xi]List", "[", RowBox[{ - RowBox[{"dGd\[Xi]List", "[", - RowBox[{"4", ",", - RowBox[{"h", "[", "2", "]"}]}], "]"}], "[", - RowBox[{"10", ",", "0"}], "]"}]}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "2", "]"}], "]"}]}], "/.", - RowBox[{"fitAll2", "[", - RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", + RowBox[{"NFN", "[", "7", "]"}], ",", + RowBox[{"HN", "[", "7", "]"}], ",", + RowBox[{"Join", "[", + RowBox[{ + RowBox[{"rules", "[", + RowBox[{"HN", "[", "7", "]"}], "]"}], ",", + RowBox[{ + RowBox[{"SN", "[", "7", "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], "[", + RowBox[{"12", ",", "0"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, { 3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9, @@ -835,9 +635,11 @@ Cell[BoxData[ 3.843731704281345*^9, 3.843731715745541*^9}, {3.843731932094289*^9, 3.843731944021738*^9}, {3.8437321241374807`*^9, 3.843732132193034*^9}, { 3.843732765588666*^9, 3.843732809901375*^9}, {3.8437333348475018`*^9, - 3.843733353095563*^9}, {3.8437353722697067`*^9, 3.8437353829251413`*^9}}, + 3.843733353095563*^9}, {3.8437353722697067`*^9, 3.8437353829251413`*^9}, { + 3.843884084968059*^9, 3.843884101159732*^9}, {3.843901316747282*^9, + 3.843901351307724*^9}}, CellLabel-> - "In[376]:=",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"], + "In[156]:=",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"], Cell[BoxData[ GraphicsBox[{{{ @@ -860,6 +662,16 @@ Cell[BoxData[ StyleBox[{{}, { LineBox[{{11., 10.161573447047902`}, {11., 10.161650696951378`}}], LineBox[{{11., 10.161650696951378`}, {11., 10.161727940887767`}}]}}, + Antialiasing->False]}, + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, { + LineBox[{{13., 13.124361380067}, {13., 13.126355398673866`}}], + LineBox[{{13., 13.126355398673866`}, {13., 13.128345449081875`}}]}}, + Antialiasing->False]}, + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, { + LineBox[{{15., 16.147654453199863`}, {15., 16.1573163641116}}], + LineBox[{{15., 16.1573163641116}, {15., 16.166885815127753`}}]}}, Antialiasing->False]}}, { {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ @@ -917,6 +729,34 @@ Cell[BoxData[ 10.161573447047902`}, Offset[{-3, 0}, {11., 10.161573447047902`}]}}], {{{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[{{{13., 13.128345449081875`}, + Offset[{3, 0}, {13., 13.128345449081875`}]}, {{13., + 13.128345449081875`}, + Offset[{-3, 0}, {13., 13.128345449081875`}]}, {{13., + 13.124361380067}, Offset[{3, 0}, {13., 13.124361380067}]}, {{13., + 13.124361380067}, Offset[{-3, 0}, {13., 13.124361380067}]}}], {{{ + 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[{{{15., 16.166885815127753`}, + Offset[{3, 0}, {15., 16.166885815127753`}]}, {{15., + 16.166885815127753`}, + Offset[{-3, 0}, {15., 16.166885815127753`}]}, {{15., + 16.147654453199863`}, + Offset[{3, 0}, {15., 16.147654453199863`}]}, {{15., + 16.147654453199863`}, + Offset[{-3, 0}, {15., 16.147654453199863`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, Antialiasing->False]}}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], @@ -926,18 +766,13 @@ Cell[BoxData[ 16.1573163641116}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - PointBox[{{3., 0.6126028894906071}, {5., 2.1109785113895767`}, {7., - 4.534176839769846}, {9., 7.255067201410258}, {11., - 10.12730531781154}}]}, - {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - PointBox[{{3., 0.6126028894906262}, {5., 2.1109739099468317`}, {7., - 4.534081549695019}, {9., 7.254889801159566}, {11., - 10.127122769451875`}}]}}, {{}, {}}}, + PointBox[{{3., 0.6126028894906607}, {5., 2.120308945169121}, {7., + 4.555653942531499}, {9., 7.285107004801981}, {11., + 10.162827570262268`}, {13., 13.13021428339704}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0., -0.6038591566117528}, + AxesOrigin->{0., -0.6046080204606867}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -958,7 +793,7 @@ Cell[BoxData[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, - PlotRange->{{0., 15.}, {-0.6038591566117528, 16.1573163641116}}, + PlotRange->{{0., 15.}, {-0.6046080204606867, 16.166885815127753`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1002,9 +837,12 @@ Cell[BoxData[ CellChangeTimes->{ 3.843731944895442*^9, 3.843732133201442*^9, {3.843732782028946*^9, 3.8437328111197443`*^9}, {3.843733350142552*^9, 3.843733354397788*^9}, - 3.843735384793891*^9}, + 3.843735384793891*^9, 3.84388410198702*^9, 3.8438841824710293`*^9, + 3.84388428802978*^9, {3.8438844108126*^9, 3.843884438078618*^9}, + 3.843885338536109*^9, 3.843893222398693*^9, {3.843901348448614*^9, + 3.8439013540855618`*^9}}, CellLabel-> - "Out[376]=",ExpressionUUID->"b1622600-354e-42b3-a170-00c398736669"] + "Out[156]=",ExpressionUUID->"c9264244-18b4-4c6b-9045-ac63927b7b1f"] }, Open ]], Cell[CellGroupData[{ @@ -1028,7 +866,22 @@ Cell[BoxData[ RowBox[{"HN", "[", "2", "]"}], "]"}]}], "/.", RowBox[{ RowBox[{"SN", "[", "2", "]"}], "[", - RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", + RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", + RowBox[{"Chop", "[", + RowBox[{"Abs", "@", + RowBox[{ + RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", + RowBox[{ + RowBox[{"NFN", "[", "8", "]"}], ",", + RowBox[{"HN", "[", "8", "]"}], ",", + RowBox[{"Join", "[", + RowBox[{ + RowBox[{"rules", "[", + RowBox[{"HN", "[", "8", "]"}], "]"}], ",", + RowBox[{ + RowBox[{"SN", "[", "8", "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], "[", + RowBox[{"11", ",", "1"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, { 3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9, @@ -1094,9 +947,9 @@ Cell[BoxData[ 3.843732651570488*^9, 3.843732675242991*^9}, {3.8437330390347557`*^9, 3.843733058330291*^9}, {3.8437353923025923`*^9, 3.84373542030167*^9}, { 3.8437359755682907`*^9, 3.8437360272169533`*^9}, {3.8437361227477913`*^9, - 3.843736137403366*^9}}, + 3.843736137403366*^9}, {3.84390136001165*^9, 3.84390146346984*^9}}, CellLabel-> - "In[493]:=",ExpressionUUID->"b80d3f22-eb0b-4407-8e47-23e8047f75de"], + "In[162]:=",ExpressionUUID->"b80d3f22-eb0b-4407-8e47-23e8047f75de"], Cell[BoxData[ GraphicsBox[{{{ @@ -1134,6 +987,16 @@ Cell[BoxData[ 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[{ @@ -1239,6 +1102,36 @@ Cell[BoxData[ 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], @@ -1250,14 +1143,22 @@ Cell[BoxData[ 11., -13.127375919227873`}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - PointBox[{{1., 0.1804309238382549}, {2., -1.1431595731894557`}, { - 3., -2.1992508587114474`}, {4., -4.110117300794899}, { - 5., -8.526091023048032}, {6., -7.416377554873354}, { - 7., -8.251371053172717}, {8., -10.231282745437296`}}]}}, {{}, {}}}, + PointBox[{{1., 0.1791622254565127}, {2., -1.1380209819811473`}, { + 3., -2.200237167363314}, {4., -4.026935298114119}, { + 5., -6.689492658335067}, {6., -7.348303307111008}, { + 7., -7.116099682546296}, {8., -7.902809964074185}}]}, + {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + PointBox[{{1., 0.18044101182175404`}, {2., -1.14327782347157}, { + 3., -2.1996989814353403`}, {4., -4.107356260746165}, { + 5., -8.333541838075812}, {6., -7.471719578616903}, { + 7., -8.273477734475353}, {8., -9.810468903409943}, { + 9., -10.666667752115927`}, {10., -10.176532372524312`}, { + 11., -10.683248005725693`}, {12., -14.143092200979424`}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0., -16.144778690140278`}, + AxesOrigin->{0., -16.144779479582237`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1278,7 +1179,7 @@ Cell[BoxData[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, - PlotRange->{{0., 11.}, {-16.144778690140278`, 0.1804309238382727}}, + PlotRange->{{0., 12.}, {-16.144779479582237`, 0.18044101182175404`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1422,309 +1323,13 @@ Cell[BoxData[ 3.8437326711436357`*^9, 3.843732679390757*^9}, {3.843733056365028*^9, 3.8437330631925383`*^9}, 3.8437333364732037`*^9, 3.843735425793211*^9, { 3.8437359934634533`*^9, 3.843736031958579*^9}, 3.843736095326563*^9, { - 3.8437361273437557`*^9, 3.843736163141509*^9}}, - CellLabel-> - "Out[493]=",ExpressionUUID->"51d9ee8e-4cc3-4bcc-b254-f53467cac03f"] -}, Open ]], - -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.8437147274261427`*^9, 3.843714729922184*^9}, { - 3.843715541673305*^9, 3.843715549689198*^9}, - 3.843732919183404*^9},ExpressionUUID->"c6e9f8ad-3b09-4a82-be20-\ -5c15306095f7"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"fitAll", "=", - RowBox[{"annealFit", "[", - RowBox[{ - RowBox[{ - RowBox[{"resAll", "[", - RowBox[{"3", ",", - RowBox[{"h", "[", "2", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "6"}]]}], "]"}], "[", "2", "]"}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{"S", "[", "2", "]"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "->", "0"}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "->", "0"}], ",", - RowBox[{ - RowBox[{"A", "[", "3", "]"}], "->", "0"}]}], "}"}]}], "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "3"}]]}], "]"}]}]], "Input", - CellChangeTimes->{{3.84146414095971*^9, 3.841464175798479*^9}, { - 3.841464380993734*^9, 3.841464386312539*^9}, {3.841464731456504*^9, - 3.8414647327580833`*^9}, {3.8414659180452547`*^9, 3.841465925914133*^9}, { - 3.8417325952371683`*^9, 3.841732596483498*^9}, {3.8417326274288807`*^9, - 3.841732641972403*^9}, 3.841732857201058*^9, 3.8418264400423203`*^9, { - 3.841994521950222*^9, 3.841994537926578*^9}, {3.841994622633304*^9, - 3.8419946862012978`*^9}, {3.841994769452505*^9, 3.841994815043598*^9}, { - 3.841995234420775*^9, 3.841995234498967*^9}, {3.841996465180764*^9, - 3.8419964772179747`*^9}, {3.841996717281023*^9, 3.841996742630658*^9}, { - 3.842071313310508*^9, 3.84207131621989*^9}, {3.84207758447983*^9, - 3.842077584949933*^9}, {3.842330409754711*^9, 3.8423304192747793`*^9}, { - 3.842330498373253*^9, 3.8423305020442667`*^9}, {3.8423308149171867`*^9, - 3.842330815562167*^9}, {3.842525668337566*^9, 3.842525670440715*^9}, { - 3.8425258552453413`*^9, 3.842525869365773*^9}, {3.842683991508649*^9, - 3.842683999547966*^9}, {3.842684095430543*^9, 3.84268409678189*^9}, { - 3.84268455503272*^9, 3.842684577822506*^9}, {3.8426846796264467`*^9, - 3.842684704913135*^9}, {3.842684931758143*^9, 3.8426849338609467`*^9}, { - 3.842686812243655*^9, 3.8426868223997726`*^9}, {3.84268885110296*^9, - 3.842688851597097*^9}, {3.843711321179616*^9, 3.843711330499958*^9}, - 3.843711795060121*^9, 3.8437127075816717`*^9, {3.843731528382538*^9, - 3.8437316312569847`*^9}, {3.843731661690056*^9, 3.84373168751271*^9}, { - 3.8437318811822147`*^9, 3.843731885100402*^9}, {3.8437320829294043`*^9, - 3.843732094712236*^9}, {3.84373360678996*^9, 3.8437336094441233`*^9}, { - 3.843735549992126*^9, - 3.843735550640082*^9}},ExpressionUUID->"d7e7fb71-cf24-4ff4-8b55-\ -30964f0ae08c"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ -\"-\\\", \\\"4.1858935277736344`*^-308\\\"}], \\\")\\\"}]}]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 129, 62, 31652614240606783354, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{ - 3.8437316951968307`*^9, 3.843731886697137*^9, {3.843732072706987*^9, - 3.843732096949669*^9}}, - CellLabel-> - "During evaluation of \ -In[129]:=",ExpressionUUID->"878453de-b9da-4a3e-bff5-d563e58c984a"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ -\"-\\\", \\\"2.9645920442127316`*^-308\\\"}], \\\")\\\"}]}]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 129, 63, 31652614240606783354, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{ - 3.8437316951968307`*^9, 3.843731886697137*^9, {3.843732072706987*^9, - 3.843732096973472*^9}}, - CellLabel-> - "During evaluation of \ -In[129]:=",ExpressionUUID->"543aa25e-0c46-4263-8219-3c42c63c6826"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ -\"-\\\", \\\"6.695025678091192`*^-308\\\"}], \\\")\\\"}]}]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 129, - 64, 31652614240606783354, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{ - 3.8437316951968307`*^9, 3.843731886697137*^9, {3.843732072706987*^9, - 3.843732097001243*^9}}, - CellLabel-> - "During evaluation of \ -In[129]:=",ExpressionUUID->"a91008f4-a66c-4e00-9a19-3c8c337ea4fd"], - -Cell[BoxData[ - TemplateBox[{ - "General", "stop", - "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ -\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 129, 65, 31652614240606783354, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{ - 3.8437316951968307`*^9, 3.843731886697137*^9, {3.843732072706987*^9, - 3.8437320970082817`*^9}}, - CellLabel-> - "During evaluation of \ -In[129]:=",ExpressionUUID->"708ce0ba-7451-4a83-9278-29373ec439a0"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"1.2580955145296386`*^-13", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.302836109592777`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1987592734154995`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.335847766805377`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.4300080645469722`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3632847825432361`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.020867396609041706`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.034469731500416545`"}], - ",", - RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.001040801613933242`"}], ",", - RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.010730818105775974`"}]}], - "}"}]}], "}"}]], "Output", - CellChangeTimes->{ - 3.8419964785762787`*^9, 3.84199677282102*^9, 3.84200344191339*^9, - 3.84206895108984*^9, {3.8420710602360163`*^9, 3.842071111430875*^9}, - 3.8420712659210167`*^9, 3.842071317704265*^9, 3.842077585540234*^9, - 3.842330421912195*^9, 3.8423305030734386`*^9, 3.84233082141175*^9, - 3.8423370988960533`*^9, 3.8423500263699703`*^9, 3.84242235980014*^9, - 3.842422829133266*^9, 3.8425181316804523`*^9, 3.84251817373398*^9, - 3.842518313713923*^9, 3.842518651369175*^9, 3.842519792420923*^9, { - 3.8425199179520893`*^9, 3.842519947097322*^9}, 3.84252003513834*^9, - 3.8425221251919127`*^9, 3.8425222574690847`*^9, 3.8425226580365667`*^9, - 3.84252472721786*^9, {3.842525852462645*^9, 3.84252587069119*^9}, - 3.842591048051862*^9, 3.842591092929531*^9, 3.842591150283875*^9, { - 3.842591243590889*^9, 3.842591250853861*^9}, {3.842591292002294*^9, - 3.8425913208009033`*^9}, 3.842591408956765*^9, 3.84259595244488*^9, - 3.8425999147321863`*^9, 3.842599955499799*^9, {3.8426835078997917`*^9, - 3.842683518420891*^9}, 3.8426840067914743`*^9, 3.8426840975914927`*^9, { - 3.8426845781892967`*^9, 3.842684580099658*^9}, {3.842684660142858*^9, - 3.842684705525476*^9}, 3.8426848229599752`*^9, 3.842684854404305*^9, { - 3.842684909579274*^9, 3.84268497329652*^9}, {3.8426868092581167`*^9, - 3.842686823124484*^9}, {3.842687689463532*^9, 3.842687712290174*^9}, - 3.8426885921980677`*^9, 3.842688763237523*^9, {3.8426888478907022`*^9, - 3.842688852144611*^9}, 3.8429396094976053`*^9, 3.843710928047863*^9, - 3.8437112705860643`*^9, {3.843711327962545*^9, 3.8437113308029823`*^9}, { - 3.8437113701595163`*^9, 3.843711395150468*^9}, {3.843711795328362*^9, - 3.843711798494534*^9}, 3.8437123767819366`*^9, 3.843712708682995*^9, - 3.843714601870726*^9, 3.843715528619041*^9, 3.843720957205656*^9, { - 3.843731550932982*^9, 3.843731633333198*^9}, {3.8437316648072653`*^9, - 3.84373169535324*^9}, 3.843731886834847*^9, {3.843732072928688*^9, - 3.84373209712532*^9}}, + 3.8437361273437557`*^9, 3.843736163141509*^9}, 3.8438840779383993`*^9, + 3.843884184545044*^9, 3.84388429014081*^9, {3.8438844129235086`*^9, + 3.8438844356028957`*^9}, 3.8438853400513678`*^9, {3.843893225296072*^9, + 3.843893235924965*^9}, {3.843901377690477*^9, 3.843901416429103*^9}, { + 3.843901448838873*^9, 3.8439014679825*^9}}, CellLabel-> - "Out[129]=",ExpressionUUID->"23be90ec-d684-4f05-9496-222b14c870b4"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"fitAll2", "=", - RowBox[{"annealFit", "[", - RowBox[{ - RowBox[{ - RowBox[{"resAll", "[", - RowBox[{"4", ",", - RowBox[{"h", "[", "2", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "12"}]]}], "]"}], "[", "2", "]"}], ",", - RowBox[{"fitAll", "[", - RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.84146414095971*^9, 3.841464175798479*^9}, { - 3.841464380993734*^9, 3.841464386312539*^9}, {3.841464731456504*^9, - 3.8414647327580833`*^9}, {3.8414659180452547`*^9, 3.841465925914133*^9}, { - 3.8417325952371683`*^9, 3.841732596483498*^9}, {3.8417326274288807`*^9, - 3.841732641972403*^9}, 3.841732857201058*^9, 3.8418264400423203`*^9, { - 3.841994521950222*^9, 3.841994537926578*^9}, {3.841994622633304*^9, - 3.8419946862012978`*^9}, {3.841994769452505*^9, 3.841994815043598*^9}, { - 3.841995234420775*^9, 3.841995234498967*^9}, {3.841996465180764*^9, - 3.8419964772179747`*^9}, {3.841996717281023*^9, 3.841996742630658*^9}, { - 3.842071313310508*^9, 3.84207131621989*^9}, {3.84207758447983*^9, - 3.842077584949933*^9}, {3.842330409754711*^9, 3.8423304192747793`*^9}, { - 3.842330498373253*^9, 3.8423305020442667`*^9}, {3.8423308149171867`*^9, - 3.842330815562167*^9}, {3.842525668337566*^9, 3.842525670440715*^9}, { - 3.8425258552453413`*^9, 3.842525869365773*^9}, {3.842683991508649*^9, - 3.842683999547966*^9}, {3.842684095430543*^9, 3.84268409678189*^9}, { - 3.84268455503272*^9, 3.842684577822506*^9}, {3.8426846796264467`*^9, - 3.842684704913135*^9}, {3.842684931758143*^9, 3.8426849338609467`*^9}, { - 3.842686812243655*^9, 3.8426868223997726`*^9}, {3.84268885110296*^9, - 3.842688851597097*^9}, {3.843711321179616*^9, 3.843711330499958*^9}, - 3.843711795060121*^9, 3.8437127075816717`*^9, {3.843731528382538*^9, - 3.843731668192461*^9}, {3.843731889285021*^9, 3.8437318894046297`*^9}, { - 3.843732026343978*^9, 3.8437320623436623`*^9}, {3.843732100961691*^9, - 3.843732102920307*^9}}, - CellLabel-> - "In[131]:=",ExpressionUUID->"71729ee5-357f-4cce-b306-ed7f0fd8693f"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"0.12411347469294128`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.302836109592777`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19875927341549948`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.335847766805377`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.4300080645469722`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.36328478254323604`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.020867396609041893`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.03446973150041644`"}], ",", - RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.001040801613933203`"}], ",", - RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.010730818105775952`"}]}], - "}"}]}], "}"}]], "Output", - CellChangeTimes->{ - 3.8419964785762787`*^9, 3.84199677282102*^9, 3.84200344191339*^9, - 3.84206895108984*^9, {3.8420710602360163`*^9, 3.842071111430875*^9}, - 3.8420712659210167`*^9, 3.842071317704265*^9, 3.842077585540234*^9, - 3.842330421912195*^9, 3.8423305030734386`*^9, 3.84233082141175*^9, - 3.8423370988960533`*^9, 3.8423500263699703`*^9, 3.84242235980014*^9, - 3.842422829133266*^9, 3.8425181316804523`*^9, 3.84251817373398*^9, - 3.842518313713923*^9, 3.842518651369175*^9, 3.842519792420923*^9, { - 3.8425199179520893`*^9, 3.842519947097322*^9}, 3.84252003513834*^9, - 3.8425221251919127`*^9, 3.8425222574690847`*^9, 3.8425226580365667`*^9, - 3.84252472721786*^9, {3.842525852462645*^9, 3.84252587069119*^9}, - 3.842591048051862*^9, 3.842591092929531*^9, 3.842591150283875*^9, { - 3.842591243590889*^9, 3.842591250853861*^9}, {3.842591292002294*^9, - 3.8425913208009033`*^9}, 3.842591408956765*^9, 3.84259595244488*^9, - 3.8425999147321863`*^9, 3.842599955499799*^9, {3.8426835078997917`*^9, - 3.842683518420891*^9}, 3.8426840067914743`*^9, 3.8426840975914927`*^9, { - 3.8426845781892967`*^9, 3.842684580099658*^9}, {3.842684660142858*^9, - 3.842684705525476*^9}, 3.8426848229599752`*^9, 3.842684854404305*^9, { - 3.842684909579274*^9, 3.84268497329652*^9}, {3.8426868092581167`*^9, - 3.842686823124484*^9}, {3.842687689463532*^9, 3.842687712290174*^9}, - 3.8426885921980677`*^9, 3.842688763237523*^9, {3.8426888478907022`*^9, - 3.842688852144611*^9}, 3.8429396094976053`*^9, 3.843710928047863*^9, - 3.8437112705860643`*^9, {3.843711327962545*^9, 3.8437113308029823`*^9}, { - 3.8437113701595163`*^9, 3.843711395150468*^9}, {3.843711795328362*^9, - 3.843711798494534*^9}, 3.8437123767819366`*^9, 3.843712708682995*^9, - 3.843714601870726*^9, 3.843715528619041*^9, 3.843720957205656*^9, { - 3.843731550932982*^9, 3.8437316958635607`*^9}, 3.843731890371482*^9, { - 3.843732027598762*^9, 3.843732063336987*^9}, {3.843732104975114*^9, - 3.843732106094247*^9}}, - CellLabel-> - "Out[131]=",ExpressionUUID->"4b914b17-9403-41a8-939a-2d765b5354c6"] -}, Open ]], - -Cell[BoxData[ - RowBox[{"\[Theta]c", ":=", - RowBox[{"7", "/", "5"}]}]], "Input", - CellChangeTimes->{{3.843735830626322*^9, 3.843735842389235*^9}}, - CellLabel-> - "In[401]:=",ExpressionUUID->"7ef8ee62-41a4-45fa-8dac-fae83c979244"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Solve", "[", - RowBox[{ - RowBox[{ - RowBox[{"0", "==", - RowBox[{"rule\[Theta]0", "[", - RowBox[{"h", "[", "0", "]"}], "]"}]}], "/.", - RowBox[{ - RowBox[{"gC", "[", "0", "]"}], "->", "1"}]}], ",", "\[Theta]0"}], - "]"}]], "Input", - CellChangeTimes->{{3.843736736576861*^9, 3.843736780670817*^9}}, - CellLabel-> - "In[666]:=",ExpressionUUID->"9a00ab65-b447-44be-a4e3-b4d39b092b44"], - -Cell[BoxData["$Aborted"], "Output", - CellChangeTimes->{{3.8437367406219463`*^9, 3.843736793523494*^9}}, - CellLabel-> - "Out[666]=",ExpressionUUID->"2666b194-e53c-4199-bac1-60cb3cc85756"] + "Out[162]=",ExpressionUUID->"038f4708-742c-4509-a5bf-780abe3ef8e7"] }, Open ]], Cell[CellGroupData[{ @@ -1732,29 +1337,51 @@ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ - RowBox[{"NFN", "[", "2", "]"}], "=", "3"}], ";"}], "\[IndentingNewLine]", + RowBox[{"NFN", "[", "2", "]"}], "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"HN", "[", "2", "]"}], "=", - RowBox[{"h", "[", "0", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"h", "[", "1", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SN", "[", "2", "]"}], "=", RowBox[{"annealFit", "[", RowBox[{ - RowBox[{ - RowBox[{"res", "[", - RowBox[{ - RowBox[{"NFN", "[", "2", "]"}], ",", - RowBox[{"HN", "[", "2", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "6"}]]}], "]"}], "[", "2", "]"}], ",", RowBox[{"Join", "[", RowBox[{ - RowBox[{"Rest", "[", - RowBox[{"S", "[", "2", "]"}], "]"}], ",", - RowBox[{"{", + RowBox[{ + RowBox[{"resAll", "[", + RowBox[{ + RowBox[{"NFN", "[", "2", "]"}], ",", + RowBox[{"HN", "[", "2", "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "5"}]]}], "]"}], "[", "2", "]"}], ",", + RowBox[{"Table", "[", RowBox[{ - RowBox[{"A", "[", "3", "]"}], "->", "0"}], "}"}]}], "]"}], ",", + RowBox[{ + RowBox[{"A", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"NFN", "[", "2", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"gC", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "1"}], "}"}]}], "]"}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"\[Theta]c", "->", "1.2"}], ",", + RowBox[{"\[Theta]0", "->", "0.2"}], ",", + RowBox[{"AH", "->", + RowBox[{"-", "2.5"}]}], ",", + RowBox[{ + RowBox[{"A", "[", "1", "]"}], "->", "1"}], ",", + RowBox[{ + RowBox[{"A", "[", "2", "]"}], "->", "0"}], ",", + RowBox[{ + RowBox[{"gC", "[", "1", "]"}], "->", "0"}]}], "}"}], ",", SuperscriptBox["10", RowBox[{"-", "1"}]]}], "]"}]}]}], "Input", CellChangeTimes->{{3.84146414095971*^9, 3.841464175798479*^9}, { @@ -1783,34 +1410,46 @@ Cell[BoxData[{ 3.843735852590043*^9, 3.8437358557816*^9}, {3.8437359199919024`*^9, 3.8437359408157*^9}, {3.843736062850573*^9, 3.843736085425962*^9}, { 3.8437361472843533`*^9, 3.843736157467476*^9}, {3.843736557699114*^9, - 3.843736564149287*^9}}, - CellLabel-> - "In[597]:=",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], + 3.843736564149287*^9}, {3.843816585893599*^9, 3.843816749357264*^9}, { + 3.84381681012845*^9, 3.843816813877954*^9}, {3.843816865297563*^9, + 3.8438168874641657`*^9}, {3.84381694376405*^9, 3.843816968163871*^9}, { + 3.843817025317315*^9, 3.843817045548901*^9}, {3.843817102904263*^9, + 3.843817116262903*^9}, {3.843884013750815*^9, 3.843884064543535*^9}, { + 3.8438841558666353`*^9, 3.843884166337309*^9}, {3.8438842360351267`*^9, + 3.843884278063159*^9}, {3.8438843190620737`*^9, 3.843884330140307*^9}, { + 3.843884391590458*^9, 3.8438844521906443`*^9}, {3.843893099389781*^9, + 3.8438931001718616`*^9}, {3.843895688269582*^9, 3.843895688923799*^9}, { + 3.8438991895486917`*^9, 3.843899252351191*^9}}, + CellLabel->"In[6]:=",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], Cell[BoxData[ RowBox[{"{", - RowBox[{"3.4968103047327845`*^-15", ",", + RowBox[{"3.164885631650109`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]0", "\[Rule]", "0.19609644617745897`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.2218190647119276`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.1981515261044843`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.1211395147593324`"}]}], ",", + RowBox[{"-", "2.3933801431845954`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.1248785679585636`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5218210757148685`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3655857056170356`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4558675349680261`"}], ",", RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.005418506300095735`"}]}], - "}"}]}], "}"}]], "Output", - CellChangeTimes->{{3.843732981914864*^9, 3.8437329882826242`*^9}, { - 3.8437333059812737`*^9, 3.843733324512714*^9}, {3.84373363581549*^9, - 3.8437336632854357`*^9}, {3.843734881094233*^9, 3.8437348854701443`*^9}, { - 3.843735639466529*^9, 3.8437356494943047`*^9}, 3.8437357854817543`*^9, { - 3.843735856691206*^9, 3.843735872164836*^9}, {3.8437359238766203`*^9, - 3.8437359572880707`*^9}, {3.843736069203878*^9, 3.843736085922205*^9}, - 3.843736157758947*^9, {3.843736564372109*^9, 3.843736577172632*^9}}, - CellLabel-> - "Out[599]=",ExpressionUUID->"a41954f4-33ee-4255-936e-409c32471613"] + RowBox[{"gC", "[", "1", "]"}], "\[Rule]", + RowBox[{"-", "0.014069612364099534`"}]}]}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{{3.843816627981923*^9, 3.8438166906843433`*^9}, { + 3.843816728221302*^9, 3.843816890387457*^9}, {3.843816954497418*^9, + 3.843816977126855*^9}, {3.843817045845647*^9, 3.84381704833007*^9}, { + 3.843817103558065*^9, 3.843817133026416*^9}, 3.843817413883254*^9, { + 3.843884023645589*^9, 3.8438840692235317`*^9}, {3.843884151832285*^9, + 3.843884191391594*^9}, {3.8438842585423822`*^9, 3.8438843409205914`*^9}, { + 3.8438843986532393`*^9, 3.8438844534041224`*^9}, {3.843885269735812*^9, + 3.8438852775933657`*^9}, {3.8438930922316732`*^9, 3.843893113567326*^9}, + 3.843893232171549*^9, {3.843895660940199*^9, 3.843895691702873*^9}, { + 3.843897137547141*^9, 3.843897142383761*^9}, {3.843899197736055*^9, + 3.8438992559841423`*^9}, 3.843901920619899*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"25c2add9-9dfd-4b3a-b5ac-e3f767f84a88"] }, Open ]], Cell[CellGroupData[{ @@ -1820,45 +1459,58 @@ Cell[BoxData[ RowBox[{"SN", "[", "2", "]"}], "=", RowBox[{"annealFit", "[", RowBox[{ - RowBox[{ - RowBox[{"res", "[", + RowBox[{"Join", "[", + RowBox[{ RowBox[{ - RowBox[{"NFN", "[", "2", "]"}], ",", - RowBox[{"HN", "[", "2", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "12"}]]}], "]"}], "[", "2", "]"}], ",", + RowBox[{"resAll", "[", + RowBox[{ + RowBox[{"NFN", "[", "2", "]"}], ",", + RowBox[{"HN", "[", "2", "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "10"}]]}], "]"}], "[", "2", "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"NFN", "[", "2", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"gC", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "1"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{ RowBox[{"SN", "[", "2", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.843732998625887*^9, 3.84373302598542*^9}, - 3.84373577017391*^9, {3.843736583835957*^9, 3.8437365929314117`*^9}}, - CellLabel-> - "In[603]:=",ExpressionUUID->"3515a135-edc1-4f4f-8610-378ace64a9b7"], + CellChangeTimes->{{3.8438934053618307`*^9, 3.843893413441764*^9}, { + 3.843899229877779*^9, 3.8438992597272253`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"9acf3167-ed91-4bdd-8d54-9d984831fbe8"], Cell[BoxData[ RowBox[{"{", - RowBox[{"0.030476295143843007`", ",", + RowBox[{"3.1648867747359133`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]0", "\[Rule]", "0.18517435929014825`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.221819066848114`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19815153122696594`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "1.9880131518478075`"}]}], ",", + RowBox[{"-", "2.3933801566389947`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "0.9889222726604562`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5218210670748642`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3808085976189584`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4558675458265395`"}], ",", RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.0035050672916264462`"}]}], - "}"}]}], "}"}]], "Output", + RowBox[{"gC", "[", "1", "]"}], "\[Rule]", + RowBox[{"-", "0.014069600755783175`"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ - 3.8437330276683073`*^9, {3.843733311252123*^9, 3.84373332657629*^9}, - 3.843733666357335*^9, {3.84373488164362*^9, 3.843734886021062*^9}, { - 3.843735642252029*^9, 3.8437356500663357`*^9}, 3.843735874931855*^9, { - 3.8437359459645233`*^9, 3.8437359584464903`*^9}, {3.84373607611525*^9, - 3.8437360868113317`*^9}, 3.843736160502068*^9, {3.8437365709654503`*^9, - 3.843736595578948*^9}}, - CellLabel-> - "Out[603]=",ExpressionUUID->"1930b4b2-6535-4d94-8958-2ad399c4c17b"] + 3.843893413830318*^9, {3.8438956969492483`*^9, 3.8438956994043627`*^9}, + 3.843897142565444*^9, {3.843899225556612*^9, 3.84389926027955*^9}, + 3.843901920824957*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"b059d7c9-8735-422e-bae9-b5aebf0ffb94"] }, Open ]], Cell[CellGroupData[{ @@ -1866,22 +1518,39 @@ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ - RowBox[{"NFN", "[", "3", "]"}], "=", "4"}], ";"}], "\[IndentingNewLine]", + RowBox[{"NFN", "[", "3", "]"}], "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"HN", "[", "3", "]"}], "=", - RowBox[{"h", "[", "0", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"h", "[", "2", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SN", "[", "3", "]"}], "=", RowBox[{"annealFit", "[", RowBox[{ - RowBox[{ - RowBox[{"res", "[", + RowBox[{"Join", "[", + RowBox[{ RowBox[{ - RowBox[{"NFN", "[", "3", "]"}], ",", - RowBox[{"HN", "[", "3", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "6"}]]}], "]"}], "[", "3", "]"}], ",", + RowBox[{"resAll", "[", + RowBox[{ + RowBox[{"NFN", "[", "3", "]"}], ",", + RowBox[{"HN", "[", "3", "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "6"}]]}], "]"}], "[", "3", "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"NFN", "[", "3", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"gC", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{ @@ -1889,7 +1558,7 @@ Cell[BoxData[{ RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ - RowBox[{"A", "[", "4", "]"}], "->", "0"}], "}"}]}], "]"}], ",", + RowBox[{"gC", "[", "2", "]"}], "->", "0"}], "}"}]}], "]"}], ",", SuperscriptBox["10", RowBox[{"-", "2"}]]}], "]"}]}]}], "Input", CellChangeTimes->{{3.8414646994225616`*^9, 3.841464738150351*^9}, { @@ -1913,63 +1582,36 @@ Cell[BoxData[{ 3.843733418064506*^9}, {3.8437336711110983`*^9, 3.843733743222622*^9}, { 3.843733867081066*^9, 3.843733872992916*^9}, {3.843735890984241*^9, 3.843735896262557*^9}, {3.8437361764852953`*^9, 3.843736235604746*^9}, { - 3.843736600964464*^9, 3.843736610147759*^9}}, - CellLabel-> - "In[612]:=",ExpressionUUID->"29398383-9203-4cf6-aabb-1d3fe15a5894"], + 3.843736600964464*^9, 3.843736610147759*^9}, {3.8438171387678347`*^9, + 3.843817170088531*^9}, {3.843884129616662*^9, 3.843884142577023*^9}, { + 3.843884461862664*^9, 3.8438844756629963`*^9}, {3.843884685619783*^9, + 3.843884686098906*^9}, {3.8438957098039637`*^9, 3.843895711468151*^9}, + 3.843895754605989*^9, {3.843899267550132*^9, 3.843899275133893*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"f3f44ab5-ab9d-423b-af35-070d428c3a9d"], Cell[BoxData[ RowBox[{"{", - RowBox[{"1.8361256843554485`*^-14", ",", + RowBox[{"11.751113957916967`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]0", "\[Rule]", "0.18470627754897062`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.331282903835563`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.1990484038713263`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "1.9832614028098186`"}]}], ",", + RowBox[{"-", "2.2569952677267766`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "0.9844223578152484`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3076667536459903`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.38084744043029206`"}], ",", - + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3961569989930734`"}], ",", RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.0036887681034081243`"}], - ",", + RowBox[{"gC", "[", "1", "]"}], "\[Rule]", + RowBox[{"-", "0.014413534782357226`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.000042419697328186556`"}]}]}], "}"}]}], "}"}]], "Output",\ - - CellChangeTimes->{{3.841464725026127*^9, 3.8414647403021297`*^9}, - 3.8414661034706583`*^9, 3.841466164507646*^9, 3.8417276199972258`*^9, - 3.841733575639007*^9, 3.8417351199137087`*^9, 3.841826723584857*^9, - 3.841995253003222*^9, 3.841995358247252*^9, 3.841996554233857*^9, - 3.841996896776102*^9, 3.842003892988432*^9, 3.842069102769897*^9, - 3.8420711153992767`*^9, 3.842071270954679*^9, 3.8420776854500017`*^9, - 3.8420782329786*^9, 3.842330904607053*^9, 3.84233094745854*^9, - 3.842337102662011*^9, 3.8423500295150013`*^9, 3.842422362900515*^9, - 3.8424228372702703`*^9, 3.842518658238249*^9, 3.842520047625738*^9, - 3.842522126433864*^9, 3.842522663606366*^9, 3.842524735833218*^9, - 3.842525876494433*^9, 3.8425915016722918`*^9, {3.8425915368159523`*^9, - 3.842591547364382*^9}, 3.842595960310871*^9, {3.842599925468082*^9, - 3.842599949966288*^9}, {3.842683508766377*^9, 3.842683527962514*^9}, { - 3.842684016801947*^9, 3.84268412525108*^9}, 3.842684582284058*^9, { - 3.842684708352618*^9, 3.8426847492818947`*^9}, {3.8426849138654833`*^9, - 3.842684927173637*^9}, {3.8426849813312817`*^9, 3.842684998324686*^9}, { - 3.842685099973398*^9, 3.842685109300309*^9}, 3.842686834534837*^9, - 3.842687716609871*^9, {3.8426887766092243`*^9, 3.842688779723242*^9}, - 3.842688813081666*^9, 3.84268885793502*^9, 3.8429396116125317`*^9, - 3.8437109286899443`*^9, 3.843711292955374*^9, 3.84371133501194*^9, { - 3.843711393608118*^9, 3.8437113965945587`*^9}, 3.843711802176591*^9, { - 3.843712109537891*^9, 3.843712149727068*^9}, {3.843712180346582*^9, - 3.843712198533038*^9}, {3.843712288811365*^9, 3.8437123247202797`*^9}, { - 3.843712379380515*^9, 3.843712400446784*^9}, {3.843712712875577*^9, - 3.8437127350372334`*^9}, 3.8437146132757397`*^9, 3.843714736784836*^9, { - 3.843715529436762*^9, 3.843715557192747*^9}, 3.843720975619553*^9, { - 3.843733159681653*^9, 3.843733277377586*^9}, {3.843733397152657*^9, - 3.843733424004898*^9}, {3.843733677256922*^9, 3.843733746284148*^9}, - 3.843733874409992*^9, {3.8437339150865383`*^9, 3.843733924267795*^9}, { - 3.843735882959608*^9, 3.843735902470063*^9}, {3.843736194480228*^9, - 3.843736236088088*^9}, {3.843736610939752*^9, 3.843736633436749*^9}}, - CellLabel-> - "Out[614]=",ExpressionUUID->"6a6bc5ce-5b34-459f-a22c-941737cf0565"] + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{"-", "0.00023300168594435792`"}]}]}], "}"}]}], "}"}]], "Output",\ + + CellChangeTimes->{{3.84389571331374*^9, 3.843895757465501*^9}, + 3.843897147702183*^9, 3.843899287874754*^9, 3.843901921642076*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"adca116b-4344-4f24-a113-50dc12d9cdc0"] }, Open ]], Cell[CellGroupData[{ @@ -1979,103 +1621,111 @@ Cell[BoxData[ RowBox[{"SN", "[", "3", "]"}], "=", RowBox[{"annealFit", "[", RowBox[{ - RowBox[{ - RowBox[{"res", "[", + RowBox[{"Join", "[", + RowBox[{ RowBox[{ - RowBox[{"NFN", "[", "3", "]"}], ",", - RowBox[{"HN", "[", "3", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "12"}]]}], "]"}], "[", "3", "]"}], ",", + RowBox[{"resAll", "[", + RowBox[{ + RowBox[{"NFN", "[", "3", "]"}], ",", + RowBox[{"HN", "[", "3", "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "10"}]]}], "]"}], "[", "3", "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"NFN", "[", "3", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"gC", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{ RowBox[{"SN", "[", "3", "]"}], "[", - RowBox[{"[", "2", "]"}], "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "3"}]]}], "]"}]}]], "Input", - CellChangeTimes->{{3.843733424825795*^9, 3.84373344235317*^9}, { - 3.843733890034122*^9, 3.843733909569607*^9}, {3.843736626780848*^9, - 3.843736631204155*^9}}, - CellLabel-> - "In[615]:=",ExpressionUUID->"85da52aa-1039-4e9e-bfb7-957631df3f51"], + RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.8438957274767113`*^9, 3.843895737580668*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"fbfe9aac-852b-4f12-afa8-eefd1a141395"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \ -\\\"1.758853488707864`*^-307\\\"}]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 615, 333, - 31652614240606783354, "Local"}, + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"1.383581283132903`*^-307\\\"}], \\\")\\\"}]}]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 13, 1, + 31653754106501107189, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{ - 3.8437362400836897`*^9, {3.843736627729396*^9, 3.843736633993026*^9}}, + CellChangeTimes->{3.843901922592671*^9}, CellLabel-> "During evaluation of \ -In[615]:=",ExpressionUUID->"2fe14a28-35b5-494c-b582-a29acfb73210"], +In[13]:=",ExpressionUUID->"e11549f0-1f54-41a7-8da7-7bf815c07d68"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"8.79426744353932`*^-308\\\ -\"}]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 615, 334, 31652614240606783354, "Local"}, + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"6.917906415664515`*^-308\\\"}], \\\")\\\"}]}]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 13, 2, + 31653754106501107189, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{ - 3.8437362400836897`*^9, {3.843736627729396*^9, 3.843736634018302*^9}}, + CellChangeTimes->{3.84390192264589*^9}, CellLabel-> "During evaluation of \ -In[615]:=",ExpressionUUID->"c3673e99-ca9e-49c1-8e5b-21d883c4ef41"], +In[13]:=",ExpressionUUID->"05deb4f0-b888-4dc3-9800-9d5c62cb046e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"4.39713372176966`*^-308\\\ -\"}]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 615, 335, 31652614240606783354, "Local"}, + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"3.4589532078322574`*^-308\\\"}], \\\")\\\"}]}]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 13, + 3, 31653754106501107189, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{ - 3.8437362400836897`*^9, {3.843736627729396*^9, 3.8437366340245256`*^9}}, + CellChangeTimes->{3.843901922651989*^9}, CellLabel-> "During evaluation of \ -In[615]:=",ExpressionUUID->"ed4d4442-9e2c-4228-aa01-9be8e1ebdab4"], +In[13]:=",ExpressionUUID->"52600ce7-1c12-4f65-aeda-9fbca14e912b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 615, 336, 31652614240606783354, "Local"}, +during this calculation.\"", 2, 13, 4, 31653754106501107189, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{ - 3.8437362400836897`*^9, {3.843736627729396*^9, 3.8437366340295267`*^9}}, + CellChangeTimes->{3.843901922693015*^9}, CellLabel-> "During evaluation of \ -In[615]:=",ExpressionUUID->"f82cd4be-bb5b-4c28-a352-6894793aca94"], +In[13]:=",ExpressionUUID->"43270502-9561-4d5d-bcb4-8fd6e6b0442c"], Cell[BoxData[ RowBox[{"{", - RowBox[{"0.08428790389262919`", ",", + RowBox[{"11.751142100970982`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]0", "\[Rule]", "0.18480465016808767`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.3312829236892874`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.1990484241151759`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "1.9845580160553957`"}]}], ",", + RowBox[{"-", "2.2569953198152035`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "0.9858043006164164`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3076667198757734`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.38062302524501546`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.39615702441258427`"}], ",", RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.0037444812211801072`"}], - ",", + RowBox[{"gC", "[", "1", "]"}], "\[Rule]", + RowBox[{"-", "0.014413476770888844`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.00004858533264762448`"}]}]}], "}"}]}], "}"}]], "Output",\ + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{"-", "0.00023301374253497338`"}]}]}], "}"}]}], "}"}]], "Output",\ - CellChangeTimes->{ - 3.843733446295603*^9, 3.8437337146220617`*^9, 3.8437337522548437`*^9, { - 3.843733882044881*^9, 3.843733926818181*^9}, {3.843736223213347*^9, - 3.843736240222663*^9}, {3.843736627808776*^9, 3.8437366340654573`*^9}}, - CellLabel-> - "Out[615]=",ExpressionUUID->"5dd79a11-570c-44ec-9746-87e670b03ee1"] + CellChangeTimes->{{3.843895738249465*^9, 3.843895761446396*^9}, + 3.843897148276168*^9, 3.843901922758602*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"f81b797b-dfad-48f1-907d-78f33085f565"] }, Open ]], Cell[CellGroupData[{ @@ -2083,22 +1733,39 @@ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ - RowBox[{"NFN", "[", "4", "]"}], "=", "6"}], ";"}], "\[IndentingNewLine]", + RowBox[{"NFN", "[", "4", "]"}], "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"HN", "[", "4", "]"}], "=", - RowBox[{"h", "[", "0", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"h", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SN", "[", "4", "]"}], "=", RowBox[{"annealFit", "[", RowBox[{ - RowBox[{ - RowBox[{"res", "[", + RowBox[{"Join", "[", + RowBox[{ RowBox[{ - RowBox[{"NFN", "[", "4", "]"}], ",", - RowBox[{"HN", "[", "4", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "12"}]]}], "]"}], "[", "4", "]"}], ",", + RowBox[{"resAll", "[", + RowBox[{ + RowBox[{"NFN", "[", "4", "]"}], ",", + RowBox[{"HN", "[", "4", "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "6"}]]}], "]"}], "[", "4", "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"NFN", "[", "4", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"gC", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{ @@ -2107,9 +1774,9 @@ Cell[BoxData[{ RowBox[{"{", RowBox[{ RowBox[{ - RowBox[{"A", "[", "5", "]"}], "->", "0"}], ",", + RowBox[{"gC", "[", "3", "]"}], "->", "0"}], ",", RowBox[{ - RowBox[{"A", "[", "6", "]"}], "->", "0"}]}], "}"}]}], "]"}], ",", + RowBox[{"A", "[", "3", "]"}], "->", "0"}]}], "}"}]}], "]"}], ",", SuperscriptBox["10", RowBox[{"-", "3"}]]}], "]"}]}]}], "Input", CellChangeTimes->{{3.841464800663937*^9, 3.8414648092082663`*^9}, { @@ -2132,34 +1799,35 @@ Cell[BoxData[{ 3.843721025950254*^9}, {3.843733469833881*^9, 3.84373348958615*^9}, { 3.8437335388198547`*^9, 3.8437335888838177`*^9}, {3.8437362603746147`*^9, 3.843736262293276*^9}, {3.84373630427111*^9, 3.843736339518784*^9}, { - 3.843736645885356*^9, 3.843736708357525*^9}}, - CellLabel-> - "In[658]:=",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"], + 3.843736645885356*^9, 3.843736708357525*^9}, {3.843817197153302*^9, + 3.8438172106972446`*^9}, {3.843884495599029*^9, 3.8438845305933723`*^9}, { + 3.84388469395575*^9, 3.84388469436313*^9}, {3.843893246719131*^9, + 3.84389324737465*^9}, {3.843895780750424*^9, 3.843895781477371*^9}}, + CellLabel->"In[14]:=",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"], Cell[BoxData[ RowBox[{"{", - RowBox[{"0.11850229981256294`", ",", + RowBox[{"2.5884920771752538`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]0", "\[Rule]", "0.19207911374064776`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.3310596746720023`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19891824287445714`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.059254255024947`"}]}], ",", + RowBox[{"-", "2.361502215545131`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.0565625617489884`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.46058409961803`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.38941300435485016`"}], ",", - + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3071976169850193`"}], ",", RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.016729812628691623`"}]}], ",", + RowBox[{"gC", "[", "1", "]"}], "\[Rule]", + RowBox[{"-", "0.026882257042416906`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.01271523138887888`"}], ",", - + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.03321206004178937`"}], ",", RowBox[{ - RowBox[{"A", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.003635026940123705`"}]}], ",", + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.004370268351432168`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "6", "]"}], "\[Rule]", "0.00040151390448694524`"}]}], + RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.03233338210538799`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.841464815669158*^9, 3.841466117830838*^9, 3.8414661767800817`*^9, @@ -2190,9 +1858,80 @@ Cell[BoxData[ 3.8437213762359753`*^9}, {3.843733494958956*^9, 3.843733592567816*^9}, 3.8437337258861427`*^9, {3.843733761345716*^9, 3.843733785769959*^9}, { 3.8437362673362293`*^9, 3.843736269975911*^9}, {3.843736305110955*^9, - 3.843736346441326*^9}, {3.843736659850691*^9, 3.843736719937346*^9}}, - CellLabel-> - "Out[660]=",ExpressionUUID->"9c259a8c-bce3-49eb-b1dd-e7bcabedadcf"] + 3.843736346441326*^9}, {3.843736659850691*^9, 3.843736719937346*^9}, { + 3.843817215469469*^9, 3.8438172496817217`*^9}, 3.843817417942299*^9, { + 3.843884528604434*^9, 3.8438845391768007`*^9}, 3.843884699240148*^9, { + 3.843885296425564*^9, 3.8438853036797867`*^9}, {3.8438932494816437`*^9, + 3.843893257426305*^9}, {3.843895783800992*^9, 3.843895791614253*^9}, + 3.8438958405153723`*^9, 3.8438971523530397`*^9, 3.8439019246171093`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"c852ba83-1f1c-4b79-b8fa-4d7f006f943a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"SN", "[", "4", "]"}], "=", + RowBox[{"annealFit", "[", + RowBox[{ + RowBox[{"Join", "[", + RowBox[{ + RowBox[{ + RowBox[{"resAll", "[", + RowBox[{ + RowBox[{"NFN", "[", "4", "]"}], ",", + RowBox[{"HN", "[", "4", "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "10"}]]}], "]"}], "[", "4", "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"NFN", "[", "4", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"gC", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], "]"}], ",", + RowBox[{ + RowBox[{"SN", "[", "4", "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.843895795253961*^9, 3.843895808005636*^9}}, + CellLabel->"In[17]:=",ExpressionUUID->"1430cc9e-c966-4177-ab4c-6b03a664eaa5"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"2.5894982288562955`", ",", + RowBox[{"{", + RowBox[{ + RowBox[{"\[Theta]c", "\[Rule]", "1.3310596746630394`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19891824286627846`"}], ",", + RowBox[{"AH", "\[Rule]", + RowBox[{"-", "2.361502215519321`"}]}], ",", + RowBox[{ + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.460584099622719`"}], ",", + RowBox[{ + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3071976169866144`"}], ",", + RowBox[{ + RowBox[{"gC", "[", "1", "]"}], "\[Rule]", + RowBox[{"-", "0.026882257199972816`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.033212060175714056`"}], + ",", + RowBox[{ + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.004370268382751191`"}]}], ",", + RowBox[{ + RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.03233338210075686`"}]}], + "}"}]}], "}"}]], "Output", + CellChangeTimes->{3.8438958097062683`*^9, 3.843897155058906*^9, + 3.843901926169096*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"dce9f6c3-46a7-4528-b391-b8c13ddc1c07"] }, Open ]], Cell[CellGroupData[{ @@ -2200,23 +1939,39 @@ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ - RowBox[{"NFN", "[", "5", "]"}], "=", "12"}], - ";"}], "\[IndentingNewLine]", + RowBox[{"NFN", "[", "5", "]"}], "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"HN", "[", "5", "]"}], "=", - RowBox[{"h", "[", "0", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"h", "[", "4", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SN", "[", "5", "]"}], "=", RowBox[{"annealFit", "[", RowBox[{ - RowBox[{ - RowBox[{"resAll", "[", + RowBox[{"Join", "[", + RowBox[{ RowBox[{ - RowBox[{"NFN", "[", "5", "]"}], ",", - RowBox[{"HN", "[", "5", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "6"}]]}], "]"}], "[", "5", "]"}], ",", + RowBox[{"resAll", "[", + RowBox[{ + RowBox[{"NFN", "[", "5", "]"}], ",", + RowBox[{"HN", "[", "5", "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "4"}]]}], "]"}], "[", "5", "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"NFN", "[", "5", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"gC", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{ @@ -2224,11 +1979,9 @@ Cell[BoxData[{ RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ - RowBox[{ - RowBox[{"A", "[", "11", "]"}], "->", "0"}], ",", - RowBox[{ - RowBox[{"A", "[", "12", "]"}], "->", "0"}]}], "}"}]}], "]"}], ",", - "0"}], "]"}]}]}], "Input", + RowBox[{"gC", "[", "4", "]"}], "->", "0"}], "}"}]}], "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "3"}]]}], "]"}]}]}], "Input", CellChangeTimes->{{3.841464843337102*^9, 3.841464855633377*^9}, { 3.841485164363418*^9, 3.8414851683768*^9}, {3.8418272638322353`*^9, 3.841827269478693*^9}, {3.84182733709054*^9, 3.841827341167844*^9}, { @@ -2251,11 +2004,98 @@ Cell[BoxData[{ 3.843714750314851*^9}, {3.843715580442203*^9, 3.8437155966341877`*^9}, { 3.843721036343636*^9, 3.8437210629192343`*^9}, {3.843736286709857*^9, 3.843736292941805*^9}, {3.843736352712152*^9, 3.843736411040065*^9}, { - 3.843736441338368*^9, 3.843736445208787*^9}, 3.84373649566679*^9}, + 3.843736441338368*^9, 3.843736445208787*^9}, 3.84373649566679*^9, { + 3.843817256618774*^9, 3.843817288923072*^9}, {3.8438175009454803`*^9, + 3.843817501311736*^9}, {3.843884556051766*^9, 3.8438846052496967`*^9}, { + 3.843884702107793*^9, 3.8438847380433903`*^9}, 3.843885321335536*^9, + 3.8438932628714952`*^9, 3.8438932978331213`*^9, {3.843893438578382*^9, + 3.843893439298211*^9}, {3.843893480084515*^9, 3.843893480195063*^9}, { + 3.84390227137232*^9, 3.843902272068658*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"1.5643457278865946`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 47, + 34, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.8438971693190117`*^9, 3.843901930596023*^9, + 3.843902016449499*^9, 3.8439022821790667`*^9}, + CellLabel-> + "During evaluation of \ +In[45]:=",ExpressionUUID->"89cb3b9c-6733-4f30-ba7d-b92bea024a61"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"7.821728639432973`*^-308\\\"}], \\\")\\\"}]}]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 47, + 35, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.8438971693190117`*^9, 3.843901930596023*^9, + 3.843902016449499*^9, 3.8439022822247667`*^9}, + CellLabel-> + "During evaluation of \ +In[45]:=",ExpressionUUID->"f911b253-4922-487d-ab9d-6d0faee4e930"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"1.1357180869699784`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 47, + 36, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.8438971693190117`*^9, 3.843901930596023*^9, + 3.843902016449499*^9, 3.843902282271016*^9}, + CellLabel-> + "During evaluation of \ +In[45]:=",ExpressionUUID->"1ba81a51-6150-44c3-af7c-c67dc7bede91"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 47, 37, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.8438971693190117`*^9, 3.843901930596023*^9, + 3.843902016449499*^9, 3.8439022823138847`*^9}, CellLabel-> - "In[586]:=",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"], + "During evaluation of \ +In[45]:=",ExpressionUUID->"5ac016e9-31c7-4f0e-b8aa-afb81cf2edfa"], -Cell[BoxData["$Aborted"], "Output", +Cell[BoxData[ + RowBox[{"{", + RowBox[{"5.275380895686097`", ",", + RowBox[{"{", + RowBox[{ + RowBox[{"\[Theta]c", "\[Rule]", "1.3659855916402093`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19798224717346755`"}], ",", + RowBox[{"AH", "\[Rule]", + RowBox[{"-", "2.432462467455871`"}]}], ",", + RowBox[{ + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5545013988137597`"}], ",", + RowBox[{ + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4152771313274199`"}], ",", + RowBox[{ + RowBox[{"gC", "[", "1", "]"}], "\[Rule]", + RowBox[{"-", "0.16464479623608336`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{"-", "0.0015866531307366378`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.0013870109773813654`"}]}], ",", + RowBox[{ + RowBox[{"A", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.05442435526910374`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.00017404316385435817`"}]}], + "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.8414648792576437`*^9, 3.841466213483655*^9, 3.841485177503057*^9, 3.841727640264741*^9, 3.841733779145525*^9, 3.8417351450580807`*^9, @@ -2280,203 +2120,264 @@ Cell[BoxData["$Aborted"], "Output", 3.84371559234904*^9, 3.843715598985958*^9}, {3.843721067307371*^9, 3.843721076592401*^9}, {3.8437214015438147`*^9, 3.843721422620565*^9}, 3.843736294815735*^9, {3.843736357965226*^9, 3.84373643699953*^9}, - 3.8437364934294033`*^9, 3.8437365536409883`*^9}, - CellLabel-> - "Out[588]=",ExpressionUUID->"430992b3-b545-4ad5-857e-1cd7f9e0f50a"] + 3.8437364934294033`*^9, 3.8437365536409883`*^9, {3.8438172819384604`*^9, + 3.84381731196795*^9}, {3.843817419331808*^9, 3.843817468599063*^9}, { + 3.8438175038221617`*^9, 3.84381752834674*^9}, 3.843817618524872*^9, { + 3.8438845766837893`*^9, 3.8438846271163063`*^9}, {3.843884711265044*^9, + 3.843884744184936*^9}, {3.843885315109013*^9, 3.84388533245494*^9}, { + 3.843893269720996*^9, 3.843893306270376*^9}, {3.843893435890896*^9, + 3.843893511639142*^9}, {3.843895860382124*^9, 3.84389587869118*^9}, + 3.843897173840925*^9, 3.843901935611261*^9, 3.843902021521545*^9, + 3.843902283059269*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"82ba02fc-cd21-4782-bcf6-ebf4b2cd722e"] }, Open ]], Cell[CellGroupData[{ -Cell[BoxData[{ - RowBox[{ - RowBox[{ - RowBox[{"NFN", "[", "6", "]"}], "=", "4"}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"HN", "[", "6", "]"}], "=", - RowBox[{"h", "[", "4", "]"}]}], ";"}], "\[IndentingNewLine]", +Cell[BoxData[ RowBox[{ - RowBox[{"SN", "[", "6", "]"}], "=", + RowBox[{"SN", "[", "5", "]"}], "=", RowBox[{"annealFit", "[", RowBox[{ - RowBox[{ - RowBox[{"res", "[", - RowBox[{ - RowBox[{"NFN", "[", "6", "]"}], ",", - RowBox[{"H", "[", "6", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "10"}]]}], "]"}], "[", "6", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{ - RowBox[{"SN", "[", "5", "]"}], "[", - RowBox[{"[", "2", "]"}], "]"}], ",", - RowBox[{"{", + RowBox[{"resAll", "[", + RowBox[{ + RowBox[{"NFN", "[", "5", "]"}], ",", + RowBox[{"HN", "[", "5", "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "7"}]]}], "]"}], "[", "5", "]"}], ",", + RowBox[{"Table", "[", RowBox[{ RowBox[{ - RowBox[{"A", "[", "4", "]"}], "->", "0"}], ",", + RowBox[{"A", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"NFN", "[", "5", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "->", "0"}]}], "}"}]}], "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "4"}]]}], "]"}]}]}], "Input", - CellChangeTimes->{{3.8414649234989033`*^9, 3.841464929562983*^9}, - 3.8414650365927067`*^9, {3.841466519588132*^9, 3.8414665280647097`*^9}, { - 3.841466604931347*^9, 3.8414666419938307`*^9}, {3.8414666855258636`*^9, - 3.841466727221444*^9}, {3.84146676121622*^9, 3.8414667820495234`*^9}, { - 3.84148396767577*^9, 3.8414839726025257`*^9}, {3.84148521082797*^9, - 3.8414853154915857`*^9}, {3.841733796562776*^9, 3.841733797057767*^9}, { - 3.841735203005892*^9, 3.841735209699418*^9}, {3.8418273747300787`*^9, - 3.841827382400734*^9}, {3.841995502776061*^9, 3.841995503240049*^9}, { - 3.842078951611676*^9, 3.8420789636867447`*^9}, {3.8420798300405483`*^9, - 3.842079836854927*^9}, {3.8420799055859203`*^9, 3.842079914272601*^9}, { - 3.842079967859085*^9, 3.8420799681136713`*^9}, {3.842080021564961*^9, - 3.842080025220539*^9}, {3.8420800859182*^9, 3.8420800990122004`*^9}, { - 3.84208019154412*^9, 3.8420802080213737`*^9}, {3.842080276960822*^9, - 3.842080288543285*^9}, 3.842080409972135*^9, {3.842080584925744*^9, - 3.8420805890525837`*^9}, {3.84208137234144*^9, 3.8420814145320263`*^9}, { - 3.842081680882601*^9, 3.842081699569503*^9}, {3.84233110907162*^9, - 3.842331118191568*^9}, {3.842684312154997*^9, 3.842684343987566*^9}, { - 3.8426851236186237`*^9, 3.842685123808796*^9}, {3.842686890593161*^9, - 3.842686899497368*^9}, {3.842688881398118*^9, 3.842688882653798*^9}, { - 3.842939642760597*^9, 3.842939644575281*^9}, {3.843711363180492*^9, - 3.843711363748081*^9}, {3.843711408342869*^9, 3.843711413060946*^9}, - 3.8437118859504538`*^9, 3.8437124208648443`*^9, {3.8437127620389013`*^9, - 3.843712768838229*^9}, {3.843712823160831*^9, 3.843712823415069*^9}, { - 3.8437147810852947`*^9, 3.843714807651908*^9}, {3.843715266436727*^9, - 3.8437153468136*^9}, {3.843715612186802*^9, 3.8437156288191233`*^9}, { - 3.843721084273182*^9, 3.843721117688121*^9}}, - CellLabel-> - "In[413]:=",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"], + RowBox[{"gC", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "]"}], ",", + RowBox[{ + RowBox[{"SN", "[", "5", "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.843893524691846*^9, 3.8438935377880898`*^9}, + 3.8438935884306107`*^9, {3.84389585629605*^9, 3.84389585657469*^9}, { + 3.8438959087931347`*^9, 3.8438959090159683`*^9}, 3.843902027056909*^9}, + CellLabel->"In[48]:=",ExpressionUUID->"dd7f1593-dabe-4540-be1e-78e3cac46ee6"], Cell[BoxData[ TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"2.0023045794287002`*^-307\ -\\\"}]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 415, 331, 31652502335122491207, "Local"}, + "CompiledFunction", "cfn", + "\"Numerical error encountered at instruction \ +\\!\\(\\*RowBox[{\\\"221\\\"}]\\); proceeding with uncompiled evaluation.\"", + 2, 48, 38, 31653754106501107189, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.84372112943382*^9}, + CellChangeTimes->{3.84390203253931*^9, 3.843902287225566*^9}, CellLabel-> "During evaluation of \ -In[413]:=",ExpressionUUID->"b628b1ce-8f72-4517-8684-e5b37106425b"], +In[48]:=",ExpressionUUID->"cc8f974a-d219-4e9e-b4a7-ca4badd961fd"], Cell[BoxData[ TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.0011522897143501`*^-307\ -\\\"}]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 415, 332, 31652502335122491207, "Local"}, + "CompiledFunction", "cfn", + "\"Numerical error encountered at instruction \ +\\!\\(\\*RowBox[{\\\"221\\\"}]\\); proceeding with uncompiled evaluation.\"", + 2, 48, 39, 31653754106501107189, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.843721129519565*^9}, + CellChangeTimes->{3.84390203253931*^9, 3.84390228735631*^9}, CellLabel-> "During evaluation of \ -In[413]:=",ExpressionUUID->"21f24859-445c-4727-9669-cfd60008d6c9"], +In[48]:=",ExpressionUUID->"d99d9c04-cf49-4c56-b36c-84ebccfe63bf"], Cell[BoxData[ TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.5149545665513955`*^-307\ -\\\"}]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 415, 333, 31652502335122491207, "Local"}, + "CompiledFunction", "cfn", + "\"Numerical error encountered at instruction \ +\\!\\(\\*RowBox[{\\\"221\\\"}]\\); proceeding with uncompiled evaluation.\"", + 2, 48, 40, 31653754106501107189, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.843721129605254*^9}, + CellChangeTimes->{3.84390203253931*^9, 3.843902287539579*^9}, CellLabel-> "During evaluation of \ -In[413]:=",ExpressionUUID->"34862ce4-ccc3-473a-983f-83c9d41299b9"], +In[48]:=",ExpressionUUID->"2e1c1911-4ab1-4ed3-afad-22d62a014078"], Cell[BoxData[ TemplateBox[{ "General", "stop", - "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ -\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 415, 334, 31652502335122491207, "Local"}, + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"CompiledFunction\\\", \ +\\\"::\\\", \\\"cfn\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \ +this calculation.\"", 2, 48, 41, 31653754106501107189, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.843721129685548*^9}, + CellChangeTimes->{3.84390203253931*^9, 3.8439022875834217`*^9}, CellLabel-> "During evaluation of \ -In[413]:=",ExpressionUUID->"800b496e-93af-4967-9f4d-19bc30cefc7c"], +In[48]:=",ExpressionUUID->"b5df8d1e-6393-4c91-94c5-90d09ee043df"], Cell[BoxData[ RowBox[{"{", - RowBox[{"0.0005989943165717576`", ",", + RowBox[{"782.9024683563285`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4191290472262938`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19726885518394613`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.417421768248329`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19623756996571676`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.410307653102931`"}]}], ",", + RowBox[{"-", "2.384349776177989`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.526429619415671`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.4944302576186625`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.41671735163630635`"}], ",", - + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4827412960121003`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.20297641627344776`"}]}], ",", + RowBox[{"-", "0.2224895687204029`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{"-", "0.03607560739406468`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.00655047414057241`"}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.091790591460744`"}]}], ",", + RowBox[{"-", "0.09565637440779434`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", + RowBox[{"-", "0.0006926970427181251`"}]}]}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{{3.8438935500898237`*^9, 3.843893596050148*^9}, { + 3.8438958919007893`*^9, 3.843895912523176*^9}, 3.843897181759439*^9, + 3.843901940455085*^9, 3.843902037286686*^9, 3.843902292271083*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"c1072ef9-8223-412d-854b-b7316a190ce7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"SN", "[", "5", "]"}], "=", + RowBox[{"annealFit", "[", + RowBox[{ + RowBox[{"Join", "[", + RowBox[{ + RowBox[{ + RowBox[{"resAll", "[", + RowBox[{ + RowBox[{"NFN", "[", "5", "]"}], ",", + RowBox[{"HN", "[", "5", "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "10"}]]}], "]"}], "[", "5", "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"NFN", "[", "5", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"gC", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "]"}], ",", + RowBox[{ + RowBox[{"SN", "[", "5", "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.843893524691846*^9, 3.8438935377880898`*^9}, + 3.8438935884306107`*^9, {3.84389585629605*^9, 3.84389585657469*^9}, { + 3.8438959087931347`*^9, 3.8438959090159683`*^9}, {3.843902027056909*^9, + 3.843902045024184*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"df6fc5c6-1a03-486b-a4d4-7311da4859de"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"781.9183891323007`", ",", + RowBox[{"{", + RowBox[{ + RowBox[{"\[Theta]c", "\[Rule]", "1.4174499095572046`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19623837275274397`"}], ",", + RowBox[{"AH", "\[Rule]", + RowBox[{"-", "2.3844047782650346`"}]}], ",", + RowBox[{ + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.4945044321287986`"}], ",", + RowBox[{ + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4827425954641644`"}], ",", RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.01475651256511747`"}], ",", + RowBox[{"gC", "[", "1", "]"}], "\[Rule]", + RowBox[{"-", "0.22253679627867537`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{"-", "0.03607696344672339`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.0039972526592865106`"}], + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.006550889829736402`"}], ",", RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.013153698851402483`"}], ",", + RowBox[{"A", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.09566783498205164`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.00020390149309852383`"}]}]}], "}"}]}], "}"}]], "Output",\ - - CellChangeTimes->{ - 3.841465025789603*^9, 3.8414651161396313`*^9, 3.841466522687828*^9, - 3.841466555475013*^9, 3.841466668800694*^9, {3.841466708777321*^9, - 3.841466735908298*^9}, {3.841466779836482*^9, 3.8414667940802307`*^9}, - 3.841466824528336*^9, 3.841483997419278*^9, {3.841485225140195*^9, - 3.84148530730641*^9}, 3.841485346491642*^9, 3.841727678198784*^9, { - 3.841733795931508*^9, 3.841733821796796*^9}, 3.8417351720463753`*^9, - 3.8417352475906267`*^9, 3.841827146904572*^9, 3.841827657292903*^9, - 3.841995539806638*^9, 3.842069877907194*^9, 3.842078936824607*^9, - 3.8420789875120153`*^9, 3.8420798602764683`*^9, 3.8420799402629004`*^9, - 3.842079995444352*^9, 3.842080060576466*^9, 3.842080162099564*^9, - 3.842080245811408*^9, 3.842080332954257*^9, 3.842080431518053*^9, - 3.842080625337432*^9, {3.842081406500411*^9, 3.8420814324198103`*^9}, - 3.8420817204515057`*^9, 3.842331129758831*^9, 3.842337135231529*^9, - 3.842350258463331*^9, 3.842422914621627*^9, 3.842520300921358*^9, - 3.842522170672875*^9, 3.842522709159134*^9, 3.842524787519485*^9, - 3.842525918290428*^9, 3.842591965284109*^9, 3.8425930322238503`*^9, { - 3.8425962448099003`*^9, 3.84259626059803*^9}, 3.842596465859194*^9, - 3.84259659587401*^9, 3.8425968948300667`*^9, 3.8425970957348948`*^9, - 3.842683555724093*^9, {3.842684315768067*^9, 3.842684333014844*^9}, - 3.842684364689314*^9, 3.84268439701243*^9, 3.842684631120551*^9, - 3.842685124486528*^9, 3.842685208628757*^9, 3.842686910745422*^9, - 3.842687741468136*^9, 3.8426888994788837`*^9, {3.842939629109034*^9, - 3.842939660855831*^9}, 3.843711365823695*^9, 3.843711439289988*^9, - 3.8437114788889103`*^9, 3.843711603837839*^9, 3.8437116346369457`*^9, { - 3.843711880883437*^9, 3.843711908217847*^9}, 3.843712438680501*^9, { - 3.8437127904467697`*^9, 3.843712837616493*^9}, 3.843714808157996*^9, { - 3.843715268598218*^9, 3.843715355019931*^9}, 3.8437156380406713`*^9, { - 3.843721113575069*^9, 3.84372113118095*^9}}, - CellLabel-> - "Out[415]=",ExpressionUUID->"4b16f87a-8343-4a14-b1b1-eede27195bbc"] + RowBox[{"-", "0.0006927978972384512`"}]}]}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{{3.8438935500898237`*^9, 3.843893596050148*^9}, { + 3.8438958919007893`*^9, 3.843895912523176*^9}, 3.843897181759439*^9, + 3.843901940455085*^9, {3.843902037286686*^9, 3.843902049709662*^9}, + 3.843902299644085*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"86750074-4a9a-430f-b741-5590432396da"] }, Open ]], Cell[CellGroupData[{ -Cell[BoxData[ +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"NFN", "[", "6", "]"}], "=", "4"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"HN", "[", "6", "]"}], "=", + RowBox[{"h", "[", "5", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SN", "[", "6", "]"}], "=", RowBox[{"annealFit", "[", RowBox[{ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"4", ",", - RowBox[{"h", "[", "4", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "12"}]]}], "]"}], "[", "6", "]"}], ",", RowBox[{"Join", "[", RowBox[{ - RowBox[{"SN", "[", "6", "]"}], "[", - RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}]}]], "Input", + RowBox[{ + RowBox[{"resAll", "[", + RowBox[{ + RowBox[{"NFN", "[", "6", "]"}], ",", + RowBox[{"HN", "[", "6", "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "4"}]]}], "]"}], "[", "6", "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"NFN", "[", "6", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"gC", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}], "]"}], ",", + RowBox[{"Join", "[", + RowBox[{ + RowBox[{ + RowBox[{"SN", "[", "5", "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "4", "]"}], "->", "0"}], ",", + RowBox[{ + RowBox[{"gC", "[", "5", "]"}], "->", "0"}]}], "}"}]}], "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "4"}]]}], "]"}]}]}], "Input", CellChangeTimes->{{3.8414649234989033`*^9, 3.841464929562983*^9}, 3.8414650365927067`*^9, {3.841466519588132*^9, 3.8414665280647097`*^9}, { 3.841466604931347*^9, 3.8414666419938307`*^9}, {3.8414666855258636`*^9, @@ -2499,35 +2400,52 @@ Cell[BoxData[ 3.842939642760597*^9, 3.842939644575281*^9}, {3.843711363180492*^9, 3.843711363748081*^9}, {3.843711408342869*^9, 3.843711413060946*^9}, 3.8437118859504538`*^9, 3.8437124208648443`*^9, {3.8437127620389013`*^9, - 3.843712768838229*^9}, {3.843712823160831*^9, 3.8437128563836823`*^9}}, - CellLabel-> - "In[310]:=",ExpressionUUID->"7802d202-3d6d-4dfa-88dc-b610c353f8e0"], - -Cell[BoxData[ - TemplateBox[{ - "CompiledFunction", "cfex", - "\"Could not complete external evaluation at instruction \\!\\(\\*RowBox[{\ -\\\"29\\\"}]\\); proceeding with uncompiled evaluation.\"", 2, 310, 297, - 31652502335122491207, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.843715279632785*^9}, - CellLabel-> - "During evaluation of \ -In[310]:=",ExpressionUUID->"a6afe7e7-a295-46f1-b353-09cdec263eb6"], + 3.843712768838229*^9}, {3.843712823160831*^9, 3.843712823415069*^9}, { + 3.8437147810852947`*^9, 3.843714807651908*^9}, {3.843715266436727*^9, + 3.8437153468136*^9}, {3.843715612186802*^9, 3.8437156288191233`*^9}, { + 3.843721084273182*^9, 3.843721117688121*^9}, {3.843817477399342*^9, + 3.843817497127761*^9}, {3.8438175381847267`*^9, 3.843817538248601*^9}, + 3.843817583018195*^9, {3.843884664578208*^9, 3.84388467221027*^9}, { + 3.843884758771953*^9, 3.84388475913988*^9}, {3.843884831877975*^9, + 3.8438848346376333`*^9}, {3.843884973951572*^9, 3.843884974495858*^9}, { + 3.8438936156376534`*^9, 3.843893616549342*^9}, 3.843894707083518*^9, + 3.8439021672681637`*^9}, + CellLabel->"In[56]:=",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"], Cell[BoxData[ - TemplateBox[{ - "CompiledFunction", "cfex", - "\"Could not complete external evaluation at instruction \\!\\(\\*RowBox[{\ -\\\"29\\\"}]\\); proceeding with uncompiled evaluation.\"", 2, 310, 298, - 31652502335122491207, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.8437152799790373`*^9}, - CellLabel-> - "During evaluation of \ -In[310]:=",ExpressionUUID->"72e76bc6-8558-45fb-a4d6-1f3c0d25dce3"], - -Cell[BoxData["$Aborted"], "Output", + RowBox[{"{", + RowBox[{"7.206485312402673`", ",", + RowBox[{"{", + RowBox[{ + RowBox[{"\[Theta]c", "\[Rule]", "1.3202935507800044`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.1975914146940715`"}], ",", + RowBox[{"AH", "\[Rule]", + RowBox[{"-", "2.4759955012663792`"}]}], ",", + RowBox[{ + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6199499108601143`"}], ",", + RowBox[{ + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.41116945013129075`"}], ",", + + RowBox[{ + RowBox[{"gC", "[", "1", "]"}], "\[Rule]", + RowBox[{"-", "0.17105945200813755`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.03709585278787565`"}], ",", + RowBox[{ + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.044989919411572`"}]}], ",", + RowBox[{ + RowBox[{"A", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.02268309568493727`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.013931497523780157`"}], + ",", + RowBox[{ + RowBox[{"A", "[", "4", "]"}], "\[Rule]", + RowBox[{"-", "0.012995806497916306`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "5", "]"}], "\[Rule]", + RowBox[{"-", "0.0017772272087942685`"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.841465025789603*^9, 3.8414651161396313`*^9, 3.841466522687828*^9, 3.841466555475013*^9, 3.841466668800694*^9, {3.841466708777321*^9, @@ -2554,172 +2472,461 @@ Cell[BoxData["$Aborted"], "Output", 3.842939660855831*^9}, 3.843711365823695*^9, 3.843711439289988*^9, 3.8437114788889103`*^9, 3.843711603837839*^9, 3.8437116346369457`*^9, { 3.843711880883437*^9, 3.843711908217847*^9}, 3.843712438680501*^9, { - 3.8437127904467697`*^9, 3.8437128636726007`*^9}, 3.843715283104864*^9}, - CellLabel-> - "Out[310]=",ExpressionUUID->"5faec697-031f-4594-9d93-9cfbc6c71780"] + 3.8437127904467697`*^9, 3.843712837616493*^9}, 3.843714808157996*^9, { + 3.843715268598218*^9, 3.843715355019931*^9}, 3.8437156380406713`*^9, { + 3.843721113575069*^9, 3.84372113118095*^9}, 3.843817549577869*^9, { + 3.8438175812110367`*^9, 3.843817588463937*^9}, 3.843884773781815*^9, + 3.8438848544566517`*^9, 3.843884988268441*^9, 3.843885359862143*^9, + 3.843893989631591*^9, 3.8438945508023443`*^9, 3.8438946364911537`*^9, + 3.843894728756699*^9, 3.843895946036622*^9, 3.843897226683311*^9, + 3.843902082931218*^9, {3.8439021604155827`*^9, 3.843902186174138*^9}, + 3.843902342914719*^9, 3.843902519954713*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"9d6b6399-b8b5-4c11-b0c4-1878fb7107b3"] }, Open ]], Cell[CellGroupData[{ -Cell[BoxData[{ - RowBox[{ - RowBox[{ - RowBox[{"NFN", "[", "7", "]"}], "=", "5"}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"HN", "[", "7", "]"}], "=", - RowBox[{"h", "[", "4", "]"}]}], ";"}], "\[IndentingNewLine]", +Cell[BoxData[ RowBox[{ - RowBox[{"SN", "[", "7", "]"}], "=", - RowBox[{"RemoteEvaluate", "@", - RowBox[{"annealFit", "[", - RowBox[{ + RowBox[{"SN", "[", "6", "]"}], "=", + RowBox[{"annealFit", "[", + RowBox[{ + RowBox[{"Join", "[", RowBox[{ - RowBox[{"res2", "[", - RowBox[{ - RowBox[{"NFN", "[", "7", "]"}], ",", - RowBox[{"HN", "[", "7", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "6"}]]}], "]"}], "[", "7", "]"}], ",", - RowBox[{"Join", "[", RowBox[{ + RowBox[{"resAll", "[", + RowBox[{ + RowBox[{"NFN", "[", "6", "]"}], ",", + RowBox[{"HN", "[", "6", "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "7"}]]}], "]"}], "[", "6", "]"}], ",", + RowBox[{"Table", "[", RowBox[{ - RowBox[{"SN", "[", "6", "]"}], "[", - RowBox[{"[", "2", "]"}], "]"}], ",", - RowBox[{"{", RowBox[{ - RowBox[{"A", "[", "5", "]"}], "->", "0"}], "}"}]}], "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "4"}]]}], "]"}]}]}]}], "Input", - CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, { - 3.841228542777034*^9, 3.8412285565292*^9}, {3.841228600579276*^9, - 3.841228610938241*^9}, {3.84122872113229*^9, 3.841228734972561*^9}, { - 3.841229172428575*^9, 3.8412291846367283`*^9}, {3.841316222857486*^9, - 3.8413162470884*^9}, {3.841316614704316*^9, 3.8413166159591093`*^9}, { - 3.841317435994903*^9, 3.841317460414875*^9}, {3.841393205908807*^9, - 3.841393219668706*^9}, {3.841393715760593*^9, 3.841393720854136*^9}, { - 3.841393918673491*^9, 3.841393919841535*^9}, {3.841398218184306*^9, - 3.841398224352285*^9}, {3.841398275625342*^9, 3.8413983103457737`*^9}, { - 3.841465187752646*^9, 3.841465195640109*^9}, {3.8414668535980053`*^9, - 3.8414668583469276`*^9}, {3.841466954527582*^9, 3.8414669887273407`*^9}, { - 3.841467043427465*^9, 3.841467050761374*^9}, {3.841485350550021*^9, - 3.84148536340427*^9}, {3.841727748948023*^9, 3.841727768811008*^9}, { - 3.841733922405547*^9, 3.841733926963769*^9}, {3.841735282582388*^9, - 3.841735288612965*^9}, {3.841735373816004*^9, 3.841735406975078*^9}, { - 3.841827973707725*^9, 3.841827981339726*^9}, {3.841828290651012*^9, - 3.84182830188962*^9}, {3.841995701955594*^9, 3.8419957023556423`*^9}, { - 3.8419961541504793`*^9, 3.8419961600600033`*^9}, {3.841997048669786*^9, - 3.841997060156499*^9}, {3.8419973696591063`*^9, 3.841997402658601*^9}, { - 3.842080673878352*^9, 3.842080689694323*^9}, {3.8420814639269342`*^9, - 3.842081473093053*^9}, {3.842331164744335*^9, 3.8423311791767483`*^9}, { - 3.842595566669559*^9, 3.842595567242036*^9}, {3.8426835740690928`*^9, - 3.8426835772282543`*^9}, {3.842684428797449*^9, 3.842684436054278*^9}, { - 3.842686914673712*^9, 3.8426869259537277`*^9}, {3.8426869742363787`*^9, - 3.842686974402561*^9}, {3.8426879481654*^9, 3.842687948212266*^9}, { - 3.842687981966036*^9, 3.842687982156992*^9}, {3.8426889060058126`*^9, - 3.842688911918096*^9}, {3.84293966587212*^9, 3.842939669936199*^9}, { - 3.843711662825963*^9, 3.8437116708656683`*^9}, {3.8437119736392927`*^9, - 3.843711974543284*^9}, 3.8437125085543222`*^9, {3.843712574291185*^9, - 3.843712577058402*^9}, {3.843712891153672*^9, 3.843712891216428*^9}, { - 3.843714848580677*^9, 3.843714888910726*^9}, {3.843714970351266*^9, - 3.843714999695292*^9}, {3.8437153738156*^9, 3.843715380750386*^9}, { - 3.843715451615923*^9, 3.843715458743846*^9}, {3.8437156794451923`*^9, - 3.843715711884416*^9}, {3.843721147362162*^9, 3.8437211698730717`*^9}, { - 3.8437212341389503`*^9, 3.8437212358021297`*^9}}, - CellLabel-> - "In[422]:=",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"], - -Cell[CellGroupData[{ - -Cell["\<\ -CompiledFunction::cfne: - Numerical error encountered; proceeding with uncompiled evaluation.\ -\>", "Print", - ShowCellLabel->True, - CellChangeTimes->{3.843721309174179*^9}, - CellLabel-> - "Remote kernel",ExpressionUUID->"511d0852-d858-4548-8196-98f35415e50e"], + RowBox[{"A", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"NFN", "[", "6", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"gC", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}], "]"}], ",", + RowBox[{ + RowBox[{"SN", "[", "6", "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.843902077088789*^9, {3.843902128514913*^9, 3.8439021286739902`*^9}}, + CellLabel->"In[59]:=",ExpressionUUID->"bf55aae6-3b22-44f1-8c18-45a5a02a688a"], -Cell["\<\ -General::munfl: - 70 -5 - (7.57561 10 ) is too small to represent as a normalized machine number; - precision may be lost.\ -\>", "Print", - ShowCellLabel->True, - CellChangeTimes->{3.843721309253282*^9}, +Cell[BoxData[ + TemplateBox[{ + "CompiledFunction", "cfn", + "\"Numerical error encountered at instruction \ +\\!\\(\\*RowBox[{\\\"250\\\"}]\\); proceeding with uncompiled evaluation.\"", + 2, 59, 55, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843902203439743*^9, 3.843902493067264*^9, + 3.84390253454387*^9}, CellLabel-> - "Remote kernel",ExpressionUUID->"f79394b9-541f-492c-93db-8756d1b14926"], + "During evaluation of \ +In[59]:=",ExpressionUUID->"2b1c0138-6295-41cb-b72d-9bdcf95faa22"], -Cell["\<\ -General::munfl: - 70 -5 - (7.57561 10 ) is too small to represent as a normalized machine number; - precision may be lost.\ -\>", "Print", - ShowCellLabel->True, - CellChangeTimes->{3.8437213093325453`*^9}, +Cell[BoxData[ + TemplateBox[{ + "CompiledFunction", "cfn", + "\"Numerical error encountered at instruction \ +\\!\\(\\*RowBox[{\\\"250\\\"}]\\); proceeding with uncompiled evaluation.\"", + 2, 59, 56, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843902203439743*^9, 3.843902493067264*^9, + 3.8439025349102163`*^9}, CellLabel-> - "Remote kernel",ExpressionUUID->"b1edbebb-e977-4520-964f-b1cec1161771"], + "During evaluation of \ +In[59]:=",ExpressionUUID->"1968cc21-938c-46cc-9eba-9e9fbf2d536b"], -Cell["\<\ -General::munfl: - 70 -6 - (7.57561 10 ) is too small to represent as a normalized machine number; - precision may be lost.\ -\>", "Print", - ShowCellLabel->True, - CellChangeTimes->{3.84372130941184*^9}, +Cell[BoxData[ + TemplateBox[{ + "CompiledFunction", "cfn", + "\"Numerical error encountered at instruction \ +\\!\\(\\*RowBox[{\\\"250\\\"}]\\); proceeding with uncompiled evaluation.\"", + 2, 59, 57, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843902203439743*^9, 3.843902493067264*^9, + 3.843902535703671*^9}, CellLabel-> - "Remote kernel",ExpressionUUID->"bfd58a31-019e-410a-b9e9-ab659fab9ac9"], + "During evaluation of \ +In[59]:=",ExpressionUUID->"54327536-e923-4a6d-bd8d-521163c69b38"], -Cell["\<\ -General::stop: Further output of General::munfl - will be suppressed during this calculation.\ -\>", "Print", - ShowCellLabel->True, - CellChangeTimes->{3.843721309491207*^9}, +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"CompiledFunction\\\", \ +\\\"::\\\", \\\"cfn\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \ +this calculation.\"", 2, 59, 58, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843902203439743*^9, 3.843902493067264*^9, + 3.843902535744382*^9}, CellLabel-> - "Remote kernel",ExpressionUUID->"3b1d2871-5059-4719-bd90-6aaba8c9caef"] -}, Open ]], + "During evaluation of \ +In[59]:=",ExpressionUUID->"f27864d6-3131-4c6c-85e0-07d0f801952b"], Cell[BoxData[ RowBox[{"{", - RowBox[{"131.3249466582363`", ",", + RowBox[{"104.23080840239297`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.395183014233631`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19712957686138352`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.3693245641608245`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.1971430368297307`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.434314383420567`"}]}], ",", + RowBox[{"-", "2.433757359091536`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5610016987826405`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5599700062155228`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4548499410086436`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4606135318873582`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.21940227641432558`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.10072518384300388`"}]}], ",", + RowBox[{"-", "0.2005939288764567`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.00243412059045142`"}]}], ",", + RowBox[{"-", "0.026210637509807237`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.014884741008542564`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.0009918239195323972`"}], + RowBox[{"A", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.05406441159475623`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.004613876307860813`"}], ",", RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.012222303004004684`"}], ",", + RowBox[{"A", "[", "4", "]"}], "\[Rule]", + RowBox[{"-", "0.014420057232025288`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.0006144609325469323`"}]}], ",", + RowBox[{"gC", "[", "5", "]"}], "\[Rule]", + RowBox[{"-", "0.000570798002340311`"}]}]}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{3.84390209451889*^9, 3.8439022086870003`*^9, + 3.843902501751268*^9, 3.8439025399681253`*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"86baa30e-786d-4147-9230-63ec16e908fd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"SN", "[", "6", "]"}], "=", + RowBox[{"annealFit", "[", + RowBox[{ + RowBox[{"Join", "[", RowBox[{ - RowBox[{"A", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.0017720918296079988`"}]}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{ - 3.8413939151770983`*^9, 3.841398118546665*^9, 3.841398237839446*^9, - 3.8413995587444963`*^9, 3.8414653249934998`*^9, 3.841466926914564*^9, - 3.841466986860621*^9, 3.841467043482155*^9, 3.84146709424573*^9, + RowBox[{ + RowBox[{"resAll", "[", + RowBox[{ + RowBox[{"NFN", "[", "6", "]"}], ",", + RowBox[{"HN", "[", "6", "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "10"}]]}], "]"}], "[", "6", "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"NFN", "[", "6", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"gC", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}], "]"}], ",", + RowBox[{ + RowBox[{"SN", "[", "6", "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.843894745437924*^9, 3.8438947538904467`*^9}, { + 3.843895956896408*^9, 3.843895957416436*^9}, {3.8439021304751263`*^9, + 3.843902130666195*^9}}, + CellLabel->"In[60]:=",ExpressionUUID->"311c4189-0d61-4e5b-abce-a18bf11d30d5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \ +\\\"1.891406938872476`*^-307\\\"}]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 60, 59, + 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.8439025533284607`*^9}, + CellLabel-> + "During evaluation of \ +In[60]:=",ExpressionUUID->"bf2e9b59-9481-4751-9dda-95c2a44ef88f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"9.45703469436238`*^-308\\\ +\"}]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 60, 60, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843902554173274*^9}, + CellLabel-> + "During evaluation of \ +In[60]:=",ExpressionUUID->"e2c7bc36-ac17-4833-a5e2-708377ab366a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \ +\\\"1.157933366503335`*^-307\\\"}]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 60, 61, + 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843902555537036*^9}, + CellLabel-> + "During evaluation of \ +In[60]:=",ExpressionUUID->"a54a6f29-b6bb-42b1-9ef1-c7391454ddd3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 60, 62, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843902555542123*^9}, + CellLabel-> + "During evaluation of \ +In[60]:=",ExpressionUUID->"c84a7a7a-bcb6-4589-aa5b-07a8eb37ece5"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"105.20006456324`", ",", + RowBox[{"{", + RowBox[{ + RowBox[{"\[Theta]c", "\[Rule]", "1.3693245643432388`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19714303679801537`"}], ",", + RowBox[{"AH", "\[Rule]", + RowBox[{"-", "2.4337573590963326`"}]}], ",", + RowBox[{ + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.559970006062279`"}], ",", + RowBox[{ + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4606135324822247`"}], ",", + RowBox[{ + RowBox[{"gC", "[", "1", "]"}], "\[Rule]", + RowBox[{"-", "0.20059393001573939`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{"-", "0.02621063711050144`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.01488474127424088`"}]}], ",", + RowBox[{ + RowBox[{"A", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.054064411318565486`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.004613876176117714`"}], + ",", + RowBox[{ + RowBox[{"A", "[", "4", "]"}], "\[Rule]", + RowBox[{"-", "0.014420057543619254`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "5", "]"}], "\[Rule]", + RowBox[{"-", "0.000570797961625302`"}]}]}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{3.8438947704883204`*^9, 3.843895969029764*^9, + 3.8438972437495537`*^9, 3.843902106182866*^9, 3.843902220151823*^9, + 3.843902555547042*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"04ebe322-fb32-4e84-98d4-e2cca00e038f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"NFN", "[", "7", "]"}], "=", "4"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"HN", "[", "7", "]"}], "=", + RowBox[{"h", "[", "6", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SN", "[", "7", "]"}], "=", + RowBox[{"annealFit", "[", + RowBox[{ + RowBox[{"Join", "[", + RowBox[{ + RowBox[{ + RowBox[{"resAll", "[", + RowBox[{ + RowBox[{"NFN", "[", "7", "]"}], ",", + RowBox[{"HN", "[", "7", "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "4"}]]}], "]"}], "[", "7", "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"NFN", "[", "7", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"gC", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "6"}], "}"}]}], "]"}]}], "]"}], ",", + RowBox[{"Join", "[", + RowBox[{ + RowBox[{ + RowBox[{"SN", "[", "6", "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"gC", "[", "6", "]"}], "->", "0"}], "}"}]}], "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "4"}]]}], "]"}]}]}], "Input", + CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, { + 3.841228542777034*^9, 3.8412285565292*^9}, {3.841228600579276*^9, + 3.841228610938241*^9}, {3.84122872113229*^9, 3.841228734972561*^9}, { + 3.841229172428575*^9, 3.8412291846367283`*^9}, {3.841316222857486*^9, + 3.8413162470884*^9}, {3.841316614704316*^9, 3.8413166159591093`*^9}, { + 3.841317435994903*^9, 3.841317460414875*^9}, {3.841393205908807*^9, + 3.841393219668706*^9}, {3.841393715760593*^9, 3.841393720854136*^9}, { + 3.841393918673491*^9, 3.841393919841535*^9}, {3.841398218184306*^9, + 3.841398224352285*^9}, {3.841398275625342*^9, 3.8413983103457737`*^9}, { + 3.841465187752646*^9, 3.841465195640109*^9}, {3.8414668535980053`*^9, + 3.8414668583469276`*^9}, {3.841466954527582*^9, 3.8414669887273407`*^9}, { + 3.841467043427465*^9, 3.841467050761374*^9}, {3.841485350550021*^9, + 3.84148536340427*^9}, {3.841727748948023*^9, 3.841727768811008*^9}, { + 3.841733922405547*^9, 3.841733926963769*^9}, {3.841735282582388*^9, + 3.841735288612965*^9}, {3.841735373816004*^9, 3.841735406975078*^9}, { + 3.841827973707725*^9, 3.841827981339726*^9}, {3.841828290651012*^9, + 3.84182830188962*^9}, {3.841995701955594*^9, 3.8419957023556423`*^9}, { + 3.8419961541504793`*^9, 3.8419961600600033`*^9}, {3.841997048669786*^9, + 3.841997060156499*^9}, {3.8419973696591063`*^9, 3.841997402658601*^9}, { + 3.842080673878352*^9, 3.842080689694323*^9}, {3.8420814639269342`*^9, + 3.842081473093053*^9}, {3.842331164744335*^9, 3.8423311791767483`*^9}, { + 3.842595566669559*^9, 3.842595567242036*^9}, {3.8426835740690928`*^9, + 3.8426835772282543`*^9}, {3.842684428797449*^9, 3.842684436054278*^9}, { + 3.842686914673712*^9, 3.8426869259537277`*^9}, {3.8426869742363787`*^9, + 3.842686974402561*^9}, {3.8426879481654*^9, 3.842687948212266*^9}, { + 3.842687981966036*^9, 3.842687982156992*^9}, {3.8426889060058126`*^9, + 3.842688911918096*^9}, {3.84293966587212*^9, 3.842939669936199*^9}, { + 3.843711662825963*^9, 3.8437116708656683`*^9}, {3.8437119736392927`*^9, + 3.843711974543284*^9}, 3.8437125085543222`*^9, {3.843712574291185*^9, + 3.843712577058402*^9}, {3.843712891153672*^9, 3.843712891216428*^9}, { + 3.843714848580677*^9, 3.843714888910726*^9}, {3.843714970351266*^9, + 3.843714999695292*^9}, {3.8437153738156*^9, 3.843715380750386*^9}, { + 3.843715451615923*^9, 3.843715458743846*^9}, {3.8437156794451923`*^9, + 3.843715711884416*^9}, {3.843721147362162*^9, 3.8437211698730717`*^9}, { + 3.8437212341389503`*^9, 3.8437212358021297`*^9}, {3.843817719004178*^9, + 3.843817770765004*^9}, {3.843884811972825*^9, 3.843884846725618*^9}, { + 3.843884991376327*^9, 3.843884991528326*^9}, {3.843885961970408*^9, + 3.843885972394223*^9}, 3.843894841788228*^9, {3.84389725270442*^9, + 3.84389726136864*^9}, 3.843902579859885*^9}, + CellLabel->"In[66]:=",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"1.5741855285317382`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 68, + 67, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843896019564458*^9, 3.843897301406971*^9, + 3.843902636216378*^9, 3.843902699260846*^9}, + CellLabel-> + "During evaluation of \ +In[66]:=",ExpressionUUID->"478e944e-8539-43dd-b7ad-13452d8c5fd8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"1.7663160943131665`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 68, + 68, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843896019564458*^9, 3.843897301406971*^9, + 3.843902636216378*^9, 3.843902699473991*^9}, + CellLabel-> + "During evaluation of \ +In[66]:=",ExpressionUUID->"4e714ac4-3741-4bad-8978-9cce7fc9cf27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"7.870927642658691`*^-308\\\"}], \\\")\\\"}]}]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 68, + 69, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843896019564458*^9, 3.843897301406971*^9, + 3.843902636216378*^9, 3.843902699666747*^9}, + CellLabel-> + "During evaluation of \ +In[66]:=",ExpressionUUID->"d8d08a80-7409-4fd5-b5fa-8bf89b0dc929"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 68, 70, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843896019564458*^9, 3.843897301406971*^9, + 3.843902636216378*^9, 3.843902699839118*^9}, + CellLabel-> + "During evaluation of \ +In[66]:=",ExpressionUUID->"649838a1-0289-4c08-8492-56d4c5c821ed"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"8.124450583087372`", ",", + RowBox[{"{", + RowBox[{ + RowBox[{"\[Theta]c", "\[Rule]", "1.3210220858705704`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.1970556920513177`"}], ",", + RowBox[{"AH", "\[Rule]", + RowBox[{"-", "2.5057957897433063`"}]}], ",", + RowBox[{ + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6636796830193818`"}], ",", + RowBox[{ + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5135869874860381`"}], ",", + RowBox[{ + RowBox[{"gC", "[", "1", "]"}], "\[Rule]", + RowBox[{"-", "0.23731765900405924`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{"-", "0.023556765951411856`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.027403931952617977`"}]}], ",", + RowBox[{ + RowBox[{"A", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.08218424812337059`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.010371395709423428`"}], + ",", + RowBox[{ + RowBox[{"A", "[", "4", "]"}], "\[Rule]", + RowBox[{"-", "0.01634292508772203`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "5", "]"}], "\[Rule]", + RowBox[{"-", "0.0014462492623976719`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "4.677674109979036`*^-6"}]}], + "}"}]}], "}"}]], "Output", + CellChangeTimes->{ + 3.8413939151770983`*^9, 3.841398118546665*^9, 3.841398237839446*^9, + 3.8413995587444963`*^9, 3.8414653249934998`*^9, 3.841466926914564*^9, + 3.841466986860621*^9, 3.841467043482155*^9, 3.84146709424573*^9, 3.841485467638752*^9, 3.841727748862999*^9, 3.841727845501019*^9, 3.8417339203216867`*^9, 3.841734014800623*^9, 3.841735351995893*^9, 3.8417353959882593`*^9, 3.8417354896902313`*^9, 3.841828070375112*^9, @@ -2740,9 +2947,12 @@ Cell[BoxData[ 3.8437148808670673`*^9, 3.843714921963626*^9, {3.843714964757214*^9, 3.8437150164962597`*^9}, 3.843715396032799*^9, 3.843715474097043*^9, 3.8437157630255613`*^9, 3.843715849137591*^9, 3.843721214762032*^9, - 3.8437212799635353`*^9, 3.843721339285296*^9}, - CellLabel-> - "Out[424]=",ExpressionUUID->"98dfdb17-c250-42bc-8b48-17896671f0f4"] + 3.8437212799635353`*^9, 3.843721339285296*^9, {3.843817748985523*^9, + 3.8438177744696913`*^9}, 3.843884892558465*^9, 3.843885027334649*^9, + 3.8438853949171124`*^9, 3.843886000408156*^9, 3.84389487306847*^9, + 3.843896024822*^9, 3.843897307550561*^9, 3.8439026424131117`*^9, + 3.8439027057449923`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"10fc8e0a-a280-4cb2-a212-f7708921bb32"] }, Open ]], Cell[CellGroupData[{ @@ -2750,87 +2960,324 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SN", "[", "7", "]"}], "=", - RowBox[{"RemoteEvaluate", "@", - RowBox[{"annealFit", "[", - RowBox[{ + RowBox[{"annealFit", "[", + RowBox[{ + RowBox[{"Join", "[", RowBox[{ - RowBox[{"res2", "[", - RowBox[{"7", ",", - RowBox[{"h", "[", "2", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "12"}]]}], "]"}], "[", "7", "]"}], ",", - RowBox[{"Join", "[", RowBox[{ + RowBox[{"resAll", "[", + RowBox[{ + RowBox[{"NFN", "[", "7", "]"}], ",", + RowBox[{"HN", "[", "7", "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "7"}]]}], "]"}], "[", "7", "]"}], ",", + RowBox[{"Table", "[", RowBox[{ - RowBox[{"SN", "[", "7", "]"}], "[", - RowBox[{"[", "2", "]"}], "]"}], ",", - RowBox[{"{", "}"}]}], "]"}]}], "]"}]}]}]], "Input", - CellChangeTimes->CompressedData[" -1:eJwd0dtL02EAh/G1apoWhW5JGawk6sJSydRKzVZu2jyFuLnAhQ4mHaZF6TQ6 -EelUarnBwrxILZNMkFUu0amrxprSDBq1Gc3anIiav7CDWglm7/e9ePj8Ac82 -xdlcJZvFYkWTIF9fYa9vYgQ7lplhqP780QvjZnVjsLQuZBKGcE5MwZ7E7Qtw -H9/7G453a6N0RG4hNwZqznmMZuKuD/5n0Frn9kHO03/UFPe1tD5iu0grhj+5 -AyIfMai4PB0OSis1kCcJr4HJWlcz9HxbpLonhL1+4oww2AzfssteQsMGhw12 -8ipVK5sZgf1SWQkcjehKWkUM3JyRDOfGjh2FhaKGLOjoLMmDu+UyCbQ3OlPX -EYdmVSK4V9rUcoM4+GtTKzy4mPlQQ9wz8oXKPMjNriGeuheaA01bzMfhSKxX -Do1t3ToTcY23Qw/DXHk90FbR3wsPGCxqTgsjUBU5qOZ3qUZ4a2bFEzheyuMH -EIPY1VthcVhcGjwcKsmA6vCkuWjiREL8Ajz/eEkaQxQvRsjgXWfDkQ4i80gp -hAElLnnkffLFMkllx1ulUuJo1s58aKpqfAXb+q9b4dp6yZ984vcqy194Wje4 -DIfGhqnz4uqLMqL/jYZqm7ZcgVzOa2pT9KEfMLhoiXpyKlHxniibH6CKSz9J -MlsZwe0ujxRuLDddhncUTip7QP8CavoKbLA2wTedRUyvXf8V7r96JjKbWNB5 -gRrVvjoWGp4HUq2+HCU0p9yk/gfqFZVb - "], + RowBox[{ + RowBox[{"A", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"NFN", "[", "7", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"gC", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "6"}], "}"}]}], "]"}]}], "]"}], ",", + RowBox[{ + RowBox[{"SN", "[", "7", "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.843894886670952*^9, 3.843894898364908*^9}, { + 3.843896106805344*^9, 3.8438961101475573`*^9}, {3.8438977015612993`*^9, + 3.843897702432682*^9}, {3.843902732877788*^9, 3.843902733972754*^9}}, + CellLabel->"In[71]:=",ExpressionUUID->"b20a690a-f037-42e7-b31f-7c6fb7165446"], + +Cell[BoxData[ + TemplateBox[{ + "CompiledFunction", "cfne", + "\"Numerical error encountered; proceeding with uncompiled evaluation.\"", + 2, 71, 71, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843902763815034*^9}, CellLabel-> - "In[386]:=",ExpressionUUID->"f29012dd-767e-4ccd-8cc2-503ba7241dd4"], + "During evaluation of \ +In[71]:=",ExpressionUUID->"99f55c82-9f1e-4ed1-bee7-f6b42788529a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1\\\", \ +SuperscriptBox[\\\"2.8324920845625596`*^45\\\", \\\"7\\\"]]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 71, + 72, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843902763892293*^9}, + CellLabel-> + "During evaluation of \ +In[71]:=",ExpressionUUID->"cfc785c7-fdcc-4464-8d55-c4535fd0989e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1\\\", \ +SuperscriptBox[\\\"2.8324920845625596`*^45\\\", \\\"7\\\"]]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 71, + 73, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843902763964282*^9}, + CellLabel-> + "During evaluation of \ +In[71]:=",ExpressionUUID->"9c8142ac-b7cf-485d-a8dd-97352d13f970"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1\\\", \ +SuperscriptBox[\\\"2.8324920845625596`*^45\\\", \\\"7\\\"]]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 71, + 74, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843902764037855*^9}, + CellLabel-> + "During evaluation of \ +In[71]:=",ExpressionUUID->"834508c0-17d9-4b75-a223-87eb84e48a0c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 71, 75, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843902764112591*^9}, + CellLabel-> + "During evaluation of \ +In[71]:=",ExpressionUUID->"0e6651e7-50f5-46db-94b9-c49b364cdd89"], + +Cell[BoxData[ + TemplateBox[{ + "CompiledFunction", "cfn", + "\"Numerical error encountered at instruction \ +\\!\\(\\*RowBox[{\\\"275\\\"}]\\); proceeding with uncompiled evaluation.\"", + 2, 71, 76, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843902768411331*^9}, + CellLabel-> + "During evaluation of \ +In[71]:=",ExpressionUUID->"fcfc6397-b646-4aae-beb5-a084083db9ff"], + +Cell[BoxData[ + TemplateBox[{ + "CompiledFunction", "cfn", + "\"Numerical error encountered at instruction \ +\\!\\(\\*RowBox[{\\\"275\\\"}]\\); proceeding with uncompiled evaluation.\"", + 2, 71, 77, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843902768509634*^9}, + CellLabel-> + "During evaluation of \ +In[71]:=",ExpressionUUID->"b1114c64-a94d-4a84-8517-f220bdce1087"], + +Cell[BoxData[ + TemplateBox[{ + "CompiledFunction", "cfn", + "\"Numerical error encountered at instruction \ +\\!\\(\\*RowBox[{\\\"275\\\"}]\\); proceeding with uncompiled evaluation.\"", + 2, 71, 78, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.8439027686074543`*^9}, + CellLabel-> + "During evaluation of \ +In[71]:=",ExpressionUUID->"e7ce51a0-f9e4-4182-befc-f3116db1409a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"CompiledFunction\\\", \ +\\\"::\\\", \\\"cfn\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \ +this calculation.\"", 2, 71, 79, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843902768645434*^9}, + CellLabel-> + "During evaluation of \ +In[71]:=",ExpressionUUID->"535790fb-fc75-46e1-80cb-f0da4033f09b"], Cell[BoxData[ RowBox[{"{", - RowBox[{"304286.46524492855`", ",", + RowBox[{"36.430000509805424`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4053359861589603`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1971833552689971`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.3414182506895846`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19689930457273383`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.4312045282525254`"}]}], ",", + RowBox[{"-", "2.4797912003058262`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5563436838890758`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6274742734256753`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4425061471506051`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5212160823834201`"}], ",", + RowBox[{ + RowBox[{"gC", "[", "1", "]"}], "\[Rule]", + RowBox[{"-", "0.2388512711050075`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{"-", "0.0287049028330739`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.0003670055606791293`"}], + ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.10300712626955466`"}]}], ",", + RowBox[{"-", "0.1182912583725762`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.01691457744278105`"}], ",", - + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0022316990737939546`"}], + ",", + RowBox[{ + RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.0014576819927315152`"}], + ",", + RowBox[{ + RowBox[{"gC", "[", "5", "]"}], "\[Rule]", + RowBox[{"-", "0.0005543713880857869`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "6", "]"}], "\[Rule]", + "0.000032428766853654235`"}]}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{3.84389492761346*^9, 3.843896147124861*^9, + 3.843897369236705*^9, 3.843897727450624*^9, 3.8439028120761414`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"e6b943fe-5982-410c-a3ea-7ed5f87dc501"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"SN", "[", "7", "]"}], "=", + RowBox[{"annealFit", "[", + RowBox[{ + RowBox[{"Join", "[", + RowBox[{ + RowBox[{ + RowBox[{"resAll", "[", + RowBox[{ + RowBox[{"NFN", "[", "7", "]"}], ",", + RowBox[{"HN", "[", "7", "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "10"}]]}], "]"}], "[", "7", "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"NFN", "[", "7", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"gC", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "6"}], "}"}]}], "]"}]}], "]"}], ",", + RowBox[{ + RowBox[{"SN", "[", "7", "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.843894886670952*^9, 3.843894898364908*^9}, { + 3.843896106805344*^9, 3.8438961101475573`*^9}, {3.8438977015612993`*^9, + 3.843897702432682*^9}, {3.843902732877788*^9, 3.843902733972754*^9}, { + 3.843902841791136*^9, 3.843902841943028*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"c5f7cefb-23b6-4795-8e0e-29084392ea3e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"2.0599211954383216`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 74, + 80, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843902763815034*^9, 3.843902879273185*^9}, + CellLabel-> + "During evaluation of \ +In[74]:=",ExpressionUUID->"4542c8d2-981a-4127-9547-5d5f87f55b8c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"1.0299605977191608`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 74, + 81, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843902763815034*^9, 3.843902879539825*^9}, + CellLabel-> + "During evaluation of \ +In[74]:=",ExpressionUUID->"078927a3-b72f-479b-951b-599fed4a45e6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"1.2309736062033702`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 74, + 82, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843902763815034*^9, 3.843902879544977*^9}, + CellLabel-> + "During evaluation of \ +In[74]:=",ExpressionUUID->"7244fd16-cc92-4e8d-9c75-0b780e16d48d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 74, 83, 31653754106501107189, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843902763815034*^9, 3.843902879710231*^9}, + CellLabel-> + "During evaluation of \ +In[74]:=",ExpressionUUID->"84fcb9c4-04a4-4da4-b7a9-f8b856048bab"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"36.453880108655845`", ",", + RowBox[{"{", + RowBox[{ + RowBox[{"\[Theta]c", "\[Rule]", "1.3414183177738805`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19689919009832824`"}], ",", + RowBox[{"AH", "\[Rule]", + RowBox[{"-", "2.4797396545378896`"}]}], ",", + RowBox[{ + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6274015230688736`"}], ",", + RowBox[{ + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5212082982033303`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.21957782807237258`"}]}], ",", + RowBox[{"-", "0.23880901356745154`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.003020187852593811`"}]}], ",", + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{"-", "0.028717858615113008`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "6", "]"}], "\[Rule]", "0.00038595536852966604`"}], + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.0003968707731909203`"}], ",", RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.007670746496387066`"}], + RowBox[{"A", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.11829440269500721`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0022181153155482465`"}], ",", RowBox[{ - RowBox[{"A", "[", "7", "]"}], "\[Rule]", - RowBox[{"-", "0.00002087954039631728`"}]}]}], "}"}]}], "}"}]], "Output",\ - - CellChangeTimes->CompressedData[" -1:eJwVzlsogwEYxvHPcShKMStSJGQsGSMlPk05jpDTRmwmhUgrxZBDlEhuKKdt -oTRksVJbYbnYLDmfVmgoFyx3SnJ6n4un381z8Y+Qt5cq3RiGyaDZ9UqNc9HF -5vadrT+Ru3cmM3w9v6l/Jvftml4PjYsNE9/neJIpY9IieNrWXg697q01cLVD -VeZPGhbmtENktY9hHWYX+C2PkMZFxyaUPvxVjJLnmn4ZrOeKmuEbczRvJFNL -Q21w2KQb9ta6WF6m3QwFTZJYDsk9KM+HfDauDCZbvZlEcmLVqYCHqmmxnhTz -lovh/oxAuEG+RGVtbZPCnsaYGzJoxdbN0dHv19IPb83MJEwXJJ9AWUKIw4eU -H28pfMlA0aOMT46Mb3bB95+LyAQybm3cCBOLoh3QcH1bV0F2zyhtUK46PIFX -XVm/lWSaocejimzROxXQtvOihiV83QC05s19wC/Rh+ICfd9JrTB8r7C2cMnF -XjYEq2GfpXMQqnfqrPDbOR0vIT+T3FOg35RvIzyeDWiG/6Qo/lI= - "], - CellLabel-> - "Out[386]=",ExpressionUUID->"856b1968-3f0f-4f85-ad84-7cb3e73f0a0d"] + RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.0014665587532066901`"}], + ",", + RowBox[{ + RowBox[{"gC", "[", "5", "]"}], "\[Rule]", + RowBox[{"-", "0.0005511982630786123`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00003213793548002806`"}]}], + "}"}]}], "}"}]], "Output", + CellChangeTimes->{3.84389492761346*^9, 3.843896147124861*^9, + 3.843897369236705*^9, 3.843897727450624*^9, 3.8439028120761414`*^9, + 3.843902885231992*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"582f27a7-c183-4aa4-844c-51abc5718a5d"] }, Open ]], Cell[CellGroupData[{ @@ -2838,23 +3285,40 @@ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ - RowBox[{"NFN", "[", "8", "]"}], "=", "8"}], ";"}], "\[IndentingNewLine]", + RowBox[{"NFN", "[", "8", "]"}], "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"HN", "[", "8", "]"}], "=", - RowBox[{"h", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"h", "[", "7", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SN", "[", "8", "]"}], "=", RowBox[{"RemoteEvaluate", "@", RowBox[{"annealFit", "[", RowBox[{ - RowBox[{ - RowBox[{"res", "[", + RowBox[{"Join", "[", + RowBox[{ RowBox[{ - RowBox[{"NFN", "[", "8", "]"}], ",", - RowBox[{"HN", "[", "8", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "6"}]]}], "]"}], "[", "8", "]"}], ",", + RowBox[{"resAll", "[", + RowBox[{ + RowBox[{"NFN", "[", "8", "]"}], ",", + RowBox[{"HN", "[", "8", "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "3"}]]}], "]"}], "[", "8", "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"NFN", "[", "8", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"gC", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "7"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{ @@ -2863,9 +3327,9 @@ Cell[BoxData[{ RowBox[{"{", RowBox[{ RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "->", "0"}], ",", + RowBox[{"A", "[", "5", "]"}], "->", "0"}], ",", RowBox[{ - RowBox[{"A", "[", "8", "]"}], "->", "0"}]}], "}"}]}], "]"}], ",", + RowBox[{"gC", "[", "7", "]"}], "->", "0"}]}], "}"}]}], "]"}], ",", SuperscriptBox["10", RowBox[{"-", "5"}]]}], "]"}]}]}]}], "Input", CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, { @@ -2911,146 +3375,120 @@ Cell[BoxData[{ 3.8426893215735407`*^9}, {3.84268953374725*^9, 3.842689535833342*^9}, { 3.8426896540848227`*^9, 3.842689654387868*^9}, {3.842936128483087*^9, 3.842936137168179*^9}, {3.8437130416597033`*^9, 3.84371305213933*^9}, { - 3.843715934056658*^9, 3.843715975505213*^9}}, - CellLabel-> - "In[389]:=",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"], + 3.843715934056658*^9, 3.843715975505213*^9}, {3.843817813040893*^9, + 3.84381784925498*^9}, {3.843884929775175*^9, 3.843884967623735*^9}, + 3.8438852355815372`*^9, {3.843885353495563*^9, 3.8438853573348837`*^9}, { + 3.843885446960699*^9, 3.843885447536818*^9}, {3.843885639532933*^9, + 3.843885640243864*^9}, {3.843886019347829*^9, 3.8438860257151413`*^9}, + 3.84388724749105*^9, 3.843894962206586*^9, {3.843896184184621*^9, + 3.843896198853072*^9}, {3.843897407755311*^9, 3.843897424923874*^9}, { + 3.84389771658519*^9, 3.843897717529028*^9}, 3.843899311455843*^9, { + 3.8439029824191837`*^9, 3.84390298335358*^9}, {3.843903465036194*^9, + 3.84390347883497*^9}, {3.84390394490875*^9, 3.843903962795918*^9}}, + CellLabel->"In[90]:=",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"], Cell[CellGroupData[{ Cell["\<\ CompiledFunction::cfn: - Numerical error encountered at instruction 212; proceeding with uncompiled - evaluation.\ -\>", "Print", - ShowCellLabel->True, - CellChangeTimes->{3.84371602898495*^9}, - CellLabel-> - "Remote kernel",ExpressionUUID->"8a120e5f-a5a3-4f17-b3ed-fe4c02b738db"], - -Cell["\<\ -CompiledFunction::cfn: - Numerical error encountered at instruction 212; proceeding with uncompiled + Numerical error encountered at instruction 304; proceeding with uncompiled evaluation.\ \>", "Print", ShowCellLabel->True, - CellChangeTimes->{3.843716047060897*^9}, + CellChangeTimes->{3.8439041214889708`*^9}, CellLabel-> - "Remote kernel",ExpressionUUID->"de95d3ae-aa9a-4b14-bde6-721d748d8480"], - -Cell["\<\ -CompiledFunction::cfne: - Numerical error encountered; proceeding with uncompiled evaluation.\ -\>", "Print", - ShowCellLabel->True, - CellChangeTimes->{3.843716052259479*^9}, - CellLabel-> - "Remote kernel",ExpressionUUID->"c9fd7d2b-d1a0-48f2-b8b6-bbecc90bd16c"], + "Remote kernel",ExpressionUUID->"7a772fba-df33-4f9d-b38d-6940e3941eab"], Cell["\<\ General::munfl: - 54 -6 - (2.12132 10 ) is too small to represent as a normalized machine number; - precision may be lost.\ + -307 + 0.1 1.80759 10 is too small to represent as a normalized machine + number; precision may be lost.\ \>", "Print", ShowCellLabel->True, - CellChangeTimes->{3.843716052339076*^9}, + CellChangeTimes->{3.843904163951745*^9}, CellLabel-> - "Remote kernel",ExpressionUUID->"756862c8-5721-4b71-9543-cd0dd99e93c0"], + "Remote kernel",ExpressionUUID->"41a446af-8dd2-4c1a-85b6-0bcb5710c58e"], Cell["\<\ General::munfl: - 54 -6 - (2.12132 10 ) is too small to represent as a normalized machine number; - precision may be lost.\ + -307 + 0.1 2.01357 10 is too small to represent as a normalized machine + number; precision may be lost.\ \>", "Print", ShowCellLabel->True, - CellChangeTimes->{3.8437160524183693`*^9}, + CellChangeTimes->{3.8439041640308647`*^9}, CellLabel-> - "Remote kernel",ExpressionUUID->"7e805f4a-3d92-47ae-8493-1e29f9635c40"], + "Remote kernel",ExpressionUUID->"3053db1b-f597-47a4-aa61-dd8286212823"], Cell["\<\ General::munfl: - 54 -7 - (2.12132 10 ) is too small to represent as a normalized machine number; - precision may be lost.\ + -308 + 0.1 9.03794 10 is too small to represent as a normalized machine + number; precision may be lost.\ \>", "Print", ShowCellLabel->True, - CellChangeTimes->{3.843716052497731*^9}, + CellChangeTimes->{3.843904164109983*^9}, CellLabel-> - "Remote kernel",ExpressionUUID->"d575551e-b2b0-4da3-a620-4e466d368394"], + "Remote kernel",ExpressionUUID->"5801f127-4593-4248-a8fc-5fe3e865e2f0"], Cell["\<\ General::stop: Further output of General::munfl will be suppressed during this calculation.\ \>", "Print", ShowCellLabel->True, - CellChangeTimes->{3.843716052577257*^9}, + CellChangeTimes->{3.843904164189312*^9}, CellLabel-> - "Remote kernel",ExpressionUUID->"3bfcd99d-0da9-4b75-b727-45a2f3b0a0e8"], - -Cell["\<\ -CompiledFunction::cfn: - Numerical error encountered at instruction 212; proceeding with uncompiled - evaluation.\ -\>", "Print", - ShowCellLabel->True, - CellChangeTimes->{3.843716062254755*^9}, - CellLabel-> - "Remote kernel",ExpressionUUID->"8abe42c0-cb42-47f7-8d0e-35a497bc69c1"], - -Cell["\<\ -General::stop: Further output of CompiledFunction::cfn - will be suppressed during this calculation.\ -\>", "Print", - ShowCellLabel->True, - CellChangeTimes->{3.843716062334365*^9}, - CellLabel-> - "Remote kernel",ExpressionUUID->"a75f4be0-6356-4a2d-ac60-ca5a174ca99a"] + "Remote kernel",ExpressionUUID->"55824d87-912b-4205-a8c2-4bc2f6cbcce8"] }, Open ]], Cell[BoxData[ RowBox[{"{", - RowBox[{"3419.6988261403444`", ",", + RowBox[{"8.479354277202878`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4017104680646788`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19705890107101348`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.3214092397805217`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19692413662082323`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.465909302676139`"}]}], ",", + RowBox[{"-", "2.5126678737141974`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.606500268806754`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6742096261226624`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4812987525320637`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5350137296565726`"}], ",", RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.12968904806924655`"}]}], ",", + RowBox[{"gC", "[", "1", "]"}], "\[Rule]", + RowBox[{"-", "0.2524762323949282`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.02079714311105976`"}], ",", - + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{"-", "0.025871944215716203`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.2593495761671524`"}]}], ",", + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.017389646900317683`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.004378573171935516`"}]}], ",", + RowBox[{"A", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.11316523747894239`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "6", "]"}], "\[Rule]", "0.00026901419330847235`"}], + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0076067691439657735`"}], ",", RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.0014155250087730586`"}]}], ",", + RowBox[{"A", "[", "4", "]"}], "\[Rule]", + RowBox[{"-", "0.004912781636652989`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "7", "]"}], "\[Rule]", "0.00006570308637686371`"}], - ",", + RowBox[{"gC", "[", "5", "]"}], "\[Rule]", + RowBox[{"-", "0.0011641063024018755`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.0004950946700765749`"}]}], ",", + RowBox[{"gC", "[", "6", "]"}], "\[Rule]", + RowBox[{"-", "0.00003372969755898584`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "8", "]"}], "\[Rule]", - RowBox[{"-", "9.639787259972194`*^-6"}]}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{3.843713711772421*^9, 3.8437160836635036`*^9}, - CellLabel-> - "Out[391]=",ExpressionUUID->"63af0244-4204-4b51-95aa-39d445b52770"] + RowBox[{"A", "[", "5", "]"}], "\[Rule]", + RowBox[{"-", "0.0009064491739281797`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "7", "]"}], "\[Rule]", "9.962418367940217`*^-6"}]}], + "}"}]}], "}"}]], "Output", + CellChangeTimes->{3.843897956692271*^9, 3.84389848048285*^9, + 3.843899473681838*^9, 3.84390318020299*^9, 3.843903652395749*^9, + 3.843904173307663*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"b1a7bbe4-1bc8-4c67-8307-052ebd4e074e"] }, Open ]], Cell[CellGroupData[{ @@ -3061,95 +3499,282 @@ Cell[BoxData[ RowBox[{"RemoteEvaluate", "@", RowBox[{"annealFit", "[", RowBox[{ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"5", ",", - RowBox[{"h", "[", "6", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "10"}]]}], "]"}], "[", "8", "]"}], ",", + RowBox[{"Join", "[", + RowBox[{ + RowBox[{ + RowBox[{"resAll", "[", + RowBox[{ + RowBox[{"NFN", "[", "8", "]"}], ",", + RowBox[{"HN", "[", "8", "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "6"}]]}], "]"}], "[", "8", "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"NFN", "[", "8", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"gC", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "7"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{ RowBox[{"SN", "[", "8", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}]], "Input", - CellChangeTimes->{{3.841826409040468*^9, 3.841826597778789*^9}, { - 3.841826667389724*^9, 3.841826667595948*^9}, {3.8418267356853933`*^9, - 3.8418267802857647`*^9}, {3.841826861255658*^9, 3.841826922184668*^9}, { - 3.8418269725707407`*^9, 3.841826994313775*^9}, {3.8418270452029877`*^9, - 3.841827053242969*^9}, {3.8418271119240437`*^9, 3.84182712854834*^9}, { - 3.841827636088339*^9, 3.841827638701561*^9}, {3.8418280886535597`*^9, - 3.841828101110017*^9}, {3.841828420412331*^9, 3.8418284236037703`*^9}, { - 3.8418295127754307`*^9, 3.8418295264076853`*^9}, {3.842337631182955*^9, - 3.8423376428942547`*^9}, {3.842689848971694*^9, 3.842689861239624*^9}, { - 3.842936328099833*^9, 3.842936330571859*^9}, {3.843713428202511*^9, - 3.843713463955022*^9}}, - CellLabel-> - "In[216]:=",ExpressionUUID->"c58535c6-e2cc-4022-b4ee-6e96bd40636a"], + CellChangeTimes->{{3.843885746869969*^9, 3.843885764614059*^9}, { + 3.843886171878558*^9, 3.843886172565577*^9}, {3.8438950995756407`*^9, + 3.8438951209873133`*^9}, {3.843895350038931*^9, 3.843895350141561*^9}, { + 3.84389636346518*^9, 3.843896366714273*^9}, 3.843897720754751*^9, { + 3.8439034872365217`*^9, 3.8439034899951267`*^9}, {3.8439042239852123`*^9, + 3.843904228608623*^9}}, + CellLabel->"In[93]:=",ExpressionUUID->"e31ca7a0-70f8-48f8-88bd-46f299706f4b"], Cell[BoxData[ RowBox[{"{", - RowBox[{"5.013393180553336`*^-6", ",", + RowBox[{"335.90530556849734`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.6336622744929286`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.20659105841225178`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.3195929940061755`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.1969069347346603`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "1.1645044432474647`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.8706715079315551`"}]}], ",", + RowBox[{"-", "2.5097898865885386`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.06569045251778349`"}]}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6703168243884214`"}], ",", RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", "0.44665051626790214`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5375209550735229`"}], ",", RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.08147030668594896`"}], ",", + RowBox[{"gC", "[", "1", "]"}], "\[Rule]", + RowBox[{"-", "0.24957377635365688`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.22906712491992604`"}], ",", - + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{"-", "0.030080247144221126`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.02856604607330985`"}]}], ",", + RowBox[{"-", "0.014942276239801364`"}]}], ",", + RowBox[{ + RowBox[{"A", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.11251989583560401`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.001738523072725005`"}], + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.007554945821825036`"}], ",", RowBox[{ RowBox[{"A", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.0061775137874550065`"}]}], ",", + RowBox[{"-", "0.006679362809749447`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.00020143993517174644`"}]}], ",", + RowBox[{"-", "0.0014121861790793112`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "5.223170809365255`*^-6"}], + RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00007960998632050597`"}], ",", RowBox[{ RowBox[{"A", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.002847077663736732`"}]}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{3.8424241569967003`*^9, 3.8425230885506783`*^9, - 3.8425265804928293`*^9, 3.842689928496808*^9, 3.842936326163786*^9, - 3.842936411779951*^9, 3.842938841600656*^9, 3.842939287572624*^9, - 3.8429400042764673`*^9, 3.843713452929576*^9, 3.843713544961042*^9}, - CellLabel-> - "Out[216]=",ExpressionUUID->"1bc01698-52fd-4bce-98c8-84ff43606c38"] + RowBox[{"-", "0.00030130583284503217`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "7", "]"}], "\[Rule]", + RowBox[{"-", "5.408889984432713`*^-6"}]}]}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{3.843885911945332*^9, 3.8438862543233967`*^9, + 3.843887624508829*^9, 3.843895260043109*^9, 3.843895488593912*^9, + 3.843896514421207*^9, 3.8438976444916*^9, 3.8438976984191236`*^9, + 3.8438981237069902`*^9, 3.843898950889742*^9, 3.8439034323339043`*^9, + 3.843903805722127*^9, 3.843904406705791*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"b6abc47e-be51-4849-8362-057ad4abcb66"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"m6", "=", + RowBox[{ + RowBox[{"SN", "[", "8", "]"}], "=", RowBox[{"RemoteEvaluate", "@", RowBox[{"annealFit", "[", RowBox[{ + RowBox[{"Join", "[", + RowBox[{ + RowBox[{ + RowBox[{"resAll", "[", + RowBox[{ + RowBox[{"NFN", "[", "8", "]"}], ",", + RowBox[{"HN", "[", "8", "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "9"}]]}], "]"}], "[", "8", "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"NFN", "[", "8", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"gC", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "7"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{ - RowBox[{"res", "[", - RowBox[{"5", ",", - RowBox[{"h", "[", "6", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "6"}]]}], "]"}], "[", "8", "]"}], ",", - RowBox[{"m7", "[", - RowBox[{"[", - RowBox[{"2", ",", - RowBox[{";;", - RowBox[{"-", "2"}]}]}], "]"}], "]"}]}], "]"}]}]}]], "Input", + RowBox[{"SN", "[", "8", "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "6"}]]}], "]"}]}]}]], "Input", + CellChangeTimes->{{3.843885746869969*^9, 3.843885764614059*^9}, { + 3.843886171878558*^9, 3.843886172565577*^9}, {3.8438950995756407`*^9, + 3.8438951209873133`*^9}, {3.843895350038931*^9, 3.843895350141561*^9}, { + 3.84389636346518*^9, 3.843896381320446*^9}, 3.843897724089629*^9, + 3.843903670623104*^9, {3.843904242665646*^9, 3.843904252472993*^9}, { + 3.8439045958412724`*^9, 3.843904598631153*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"ece2d3a0-e982-4957-8372-4f9d2d7fe8c0"], + +Cell[CellGroupData[{ + +Cell["\<\ +General::munfl: + -307 + 0.1 -1.55172 10 is too small to represent as a normalized machine + number; precision may be lost.\ +\>", "Print", + ShowCellLabel->True, + CellChangeTimes->{3.84390475659794*^9}, + CellLabel-> + "Remote kernel",ExpressionUUID->"69f46805-d37f-43db-b745-b6f4e19be601"], + +Cell["\<\ +General::munfl: + -307 + 0.1 -1.69259 10 is too small to represent as a normalized machine + number; precision may be lost.\ +\>", "Print", + ShowCellLabel->True, + CellChangeTimes->{3.84390475667736*^9}, + CellLabel-> + "Remote kernel",ExpressionUUID->"3e7e2344-5bd4-45c4-863e-cca15e665d35"], + +Cell["\<\ +General::munfl: + -308 + 0.1 -7.75858 10 is too small to represent as a normalized machine + number; precision may be lost.\ +\>", "Print", + ShowCellLabel->True, + CellChangeTimes->{3.843904756756762*^9}, + CellLabel-> + "Remote kernel",ExpressionUUID->"099fa598-6830-498a-a031-0d3681f80025"], + +Cell["\<\ +General::stop: Further output of General::munfl + will be suppressed during this calculation.\ +\>", "Print", + ShowCellLabel->True, + CellChangeTimes->{3.84390475683624*^9}, + CellLabel-> + "Remote kernel",ExpressionUUID->"bccb58ff-4772-4874-a5a9-38cc32a82c5e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"1056.7879392498248`", ",", + RowBox[{"{", + RowBox[{ + RowBox[{"\[Theta]c", "\[Rule]", "1.3143988547999277`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19682467998809336`"}], ",", + RowBox[{"AH", "\[Rule]", + RowBox[{"-", "2.501222006582122`"}]}], ",", + RowBox[{ + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6586764099560007`"}], ",", + RowBox[{ + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5464680105774067`"}], ",", + RowBox[{ + RowBox[{"gC", "[", "1", "]"}], "\[Rule]", + RowBox[{"-", "0.24233603085537753`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{"-", "0.03725699985482071`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.007023853162905836`"}]}], ",", + RowBox[{ + RowBox[{"A", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.11886781800138457`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.008043198001192`"}], ",", + RowBox[{ + RowBox[{"A", "[", "4", "]"}], "\[Rule]", + RowBox[{"-", "0.007344548966467652`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "5", "]"}], "\[Rule]", + RowBox[{"-", "0.002514439339438292`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.0004602414533845913`"}], + ",", + RowBox[{ + RowBox[{"A", "[", "5", "]"}], "\[Rule]", "0.0013391951479673702`"}], + ",", + RowBox[{ + RowBox[{"gC", "[", "7", "]"}], "\[Rule]", + RowBox[{"-", "0.000047441417646060173`"}]}]}], "}"}]}], "}"}]], "Output",\ + + CellChangeTimes->{3.843885911945332*^9, 3.8438862543233967`*^9, + 3.843887624508829*^9, 3.843895260043109*^9, 3.843895488593912*^9, + 3.8438966708237343`*^9, 3.843898268990225*^9, 3.8438991479455833`*^9, + 3.843899808486554*^9, 3.843903912974147*^9, 3.8439045580464087`*^9, + 3.843904765761176*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"200f061b-0403-464b-a625-1f810bc1f5b5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"NFN", "[", "9", "]"}], "=", "5"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"HN", "[", "9", "]"}], "=", + RowBox[{"h", "[", "8", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SN", "[", "9", "]"}], "=", + RowBox[{"RemoteEvaluate", "@", + RowBox[{"annealFit", "[", + RowBox[{ + RowBox[{"Join", "[", + RowBox[{ + RowBox[{ + RowBox[{"res", "[", + RowBox[{ + RowBox[{"NFN", "[", "9", "]"}], ",", + RowBox[{"HN", "[", "9", "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "4"}]]}], "]"}], "[", "9", "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"NFN", "[", "9", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"gC", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}]}], "]"}], ",", + RowBox[{"Join", "[", + RowBox[{ + RowBox[{ + RowBox[{"SN", "[", "8", "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"gC", "[", "8", "]"}], "->", "0"}], "}"}]}], "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "7"}]]}], "]"}]}]}]}], "Input", CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, { 3.841228542777034*^9, 3.8412285565292*^9}, {3.841228600579276*^9, 3.841228610938241*^9}, {3.84122872113229*^9, 3.841228734972561*^9}, { @@ -3192,205 +3817,148 @@ Cell[BoxData[ 3.84268908089705*^9}, 3.842689217989202*^9, {3.842689321494268*^9, 3.8426893215735407`*^9}, {3.84268953374725*^9, 3.842689535833342*^9}, { 3.8426896540848227`*^9, 3.842689654387868*^9}, {3.842936128483087*^9, - 3.842936137168179*^9}, 3.843037567666704*^9, {3.84303803129965*^9, - 3.843038043082603*^9}}, + 3.842936137168179*^9}, {3.8437130416597033`*^9, 3.84371305213933*^9}, { + 3.843715934056658*^9, 3.843715975505213*^9}, {3.843817813040893*^9, + 3.84381784925498*^9}, {3.843817917808107*^9, 3.843817963897434*^9}, + 3.84381799998707*^9, {3.843885942705492*^9, 3.84388594524964*^9}, { + 3.843886284376079*^9, 3.84388631712049*^9}, 3.8438876530431747`*^9, + 3.843896726710723*^9, {3.843900013427431*^9, 3.843900022405327*^9}, { + 3.843900114094542*^9, 3.843900131749761*^9}, 3.843904798283162*^9}, CellLabel-> - "In[179]:=",ExpressionUUID->"78da668e-4ef0-42e2-a70b-6bf19f9b37c3"], + "In[100]:=",ExpressionUUID->"5facca9e-653e-4fd9-8527-0092e5469f90"], Cell[CellGroupData[{ Cell["\<\ General::munfl: -307 - 0.1 1.14512 10 is too small to represent as a normalized machine + 0.1 1.71303 10 is too small to represent as a normalized machine number; precision may be lost.\ \>", "Print", ShowCellLabel->True, - CellChangeTimes->{3.843038179007846*^9}, + CellChangeTimes->{3.843905435436809*^9}, CellLabel-> - "Remote kernel",ExpressionUUID->"2633e8ff-3a2c-4e3a-a4f9-d4a96377ebf3"], + "Remote kernel",ExpressionUUID->"f45234f2-752f-46c6-9ddf-bd262d16691f"], Cell["\<\ General::munfl: -307 - 0.1 1.59193 10 is too small to represent as a normalized machine + 0.1 1.89074 10 is too small to represent as a normalized machine number; precision may be lost.\ \>", "Print", ShowCellLabel->True, - CellChangeTimes->{3.8430381790862722`*^9}, + CellChangeTimes->{3.8439054355162163`*^9}, CellLabel-> - "Remote kernel",ExpressionUUID->"cf149e9a-ff7b-4279-ba22-60a5061cccd7"], + "Remote kernel",ExpressionUUID->"011b4035-7393-4523-94fb-fb4791bf158d"], Cell["\<\ General::munfl: -308 - 0.1 5.72562 10 is too small to represent as a normalized machine + 0.1 8.56516 10 is too small to represent as a normalized machine number; precision may be lost.\ \>", "Print", ShowCellLabel->True, - CellChangeTimes->{3.8430381791650133`*^9}, + CellChangeTimes->{3.843905435595242*^9}, CellLabel-> - "Remote kernel",ExpressionUUID->"579bb1ce-0683-426a-8ecf-cc753bd77ccb"], + "Remote kernel",ExpressionUUID->"c5d09aec-16c7-4e06-acf4-318a5ced69b1"], Cell["\<\ General::stop: Further output of General::munfl will be suppressed during this calculation.\ \>", "Print", ShowCellLabel->True, - CellChangeTimes->{3.843038179244144*^9}, + CellChangeTimes->{3.8439054356745043`*^9}, CellLabel-> - "Remote kernel",ExpressionUUID->"f8dc207c-67fd-491a-ae00-b45b0b9bf708"] + "Remote kernel",ExpressionUUID->"211a48b2-a25f-4c85-8a27-a723c7e7d387"] }, Open ]], Cell[BoxData[ RowBox[{"{", - RowBox[{"11.957913486887227`", ",", + RowBox[{"5.287764118773751`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3755343797739474`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19655427215261873`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.3127658800277853`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19684901223419413`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.553959229993646`"}]}], ",", + RowBox[{"-", "2.5192345277648243`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.735991580976113`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6842827471836845`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5976099833638995`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.550899303194035`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.3573911995082062`"}]}], ",", + RowBox[{"-", "0.25653072020284795`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.005692076889976971`"}], - ",", + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{"-", "0.031019907661117722`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.01148737498738897`"}]}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.29743509506934485`"}]}], ",", + RowBox[{"-", "0.12618658239455005`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.053687906866077495`"}], + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.009304110271580766`"}], ",", RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.019661009355712786`"}]}], ",", + RowBox[{"A", "[", "4", "]"}], "\[Rule]", + RowBox[{"-", "0.0058078561531123354`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.07858988795956891`"}], ",", - + RowBox[{"gC", "[", "5", "]"}], "\[Rule]", + RowBox[{"-", "0.0022212350499379086`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.0032996896600613235`"}], + RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.0001832855958638613`"}], ",", RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", - RowBox[{"-", "0.0002532295293844319`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.007174398307835195`"}]}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{3.8426871199786043`*^9, 3.84268729156643*^9, - 3.8426873840839453`*^9, 3.8426875065822372`*^9, 3.842687850710799*^9, - 3.8426879287424593`*^9, 3.842688129334385*^9, 3.842688321147443*^9, - 3.842689043055613*^9, 3.842689199474453*^9, 3.842689302538309*^9, - 3.842689431347052*^9, 3.842689628417358*^9, 3.8426898058853607`*^9, - 3.8429362869080553`*^9, 3.842936618345025*^9, 3.842936810857802*^9, - 3.842939015862775*^9, 3.842939177612258*^9, 3.8429399143691998`*^9, - 3.843037558671664*^9, 3.843037813798671*^9, 3.843037969298051*^9, - 3.843038186531355*^9}, - CellLabel-> - "Out[179]=",ExpressionUUID->"c6e2490b-6500-4f13-ada0-6cff9d298ebe"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"m61", "=", - RowBox[{"RemoteEvaluate", "@", - RowBox[{"annealFit", "[", - RowBox[{ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"5", ",", - RowBox[{"h", "[", "6", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "10"}]]}], "]"}], "[", "8", "]"}], ",", - RowBox[{"m6", "[", - RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}]], "Input", - CellChangeTimes->{{3.841826409040468*^9, 3.841826597778789*^9}, { - 3.841826667389724*^9, 3.841826667595948*^9}, {3.8418267356853933`*^9, - 3.8418267802857647`*^9}, {3.841826861255658*^9, 3.841826922184668*^9}, { - 3.8418269725707407`*^9, 3.841826994313775*^9}, {3.8418270452029877`*^9, - 3.841827053242969*^9}, {3.8418271119240437`*^9, 3.84182712854834*^9}, { - 3.841827636088339*^9, 3.841827638701561*^9}, {3.8418280886535597`*^9, - 3.841828101110017*^9}, {3.841828420412331*^9, 3.8418284236037703`*^9}, { - 3.8418295127754307`*^9, 3.8418295264076853`*^9}, {3.842337631182955*^9, - 3.8423376428942547`*^9}, {3.842689848971694*^9, 3.842689861239624*^9}, { - 3.842936328099833*^9, 3.842936330571859*^9}}, - CellLabel-> - "In[192]:=",ExpressionUUID->"223493f4-d77c-46b0-bb97-87a0be67433c"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"47.66452718842365`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3710192066561966`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19655268865457023`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.551315962883039`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.732278814614242`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5967868834184186`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.3515062191585261`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.005023244859308164`"}], + RowBox[{"A", "[", "5", "]"}], "\[Rule]", "0.0010896755856027475`"}], ",", RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.2952087119338217`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.05365943568010773`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.01980645818232528`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.0785090329663038`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.003353070367769979`"}], + RowBox[{"gC", "[", "7", "]"}], "\[Rule]", "0.000010106261428176786`"}], ",", RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", - RowBox[{"-", "0.00026033616168888695`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.007251366969801466`"}]}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{3.8424241569967003`*^9, 3.8425230885506783`*^9, - 3.8425265804928293`*^9, 3.842689928496808*^9, 3.842936326163786*^9, - 3.842936411779951*^9, 3.842938841600656*^9, 3.842939287572624*^9, - 3.8429400042764673`*^9, 3.843038346723687*^9}, + RowBox[{"gC", "[", "8", "]"}], "\[Rule]", + RowBox[{"-", "3.3973488887727574`*^-6"}]}]}], "}"}]}], "}"}]], "Output",\ + + CellChangeTimes->{3.8439054708703213`*^9}, CellLabel-> - "Out[192]=",ExpressionUUID->"7ea2834e-6718-45dc-b27c-33dbbcda6b96"] + "Out[102]=",ExpressionUUID->"68934bdb-e5c2-45fc-b920-4aae13dbfe8d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"m7", "=", + RowBox[{ + RowBox[{"SN", "[", "9", "]"}], "=", RowBox[{"RemoteEvaluate", "@", RowBox[{"annealFit", "[", RowBox[{ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"5", ",", - RowBox[{"h", "[", "7", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}], "[", "9", "]"}], ",", RowBox[{"Join", "[", RowBox[{ - RowBox[{"m61", "[", - RowBox[{"[", "2", "]"}], "]"}], ",", - RowBox[{"{", + RowBox[{ + RowBox[{"res", "[", + RowBox[{ + RowBox[{"NFN", "[", "9", "]"}], ",", + RowBox[{"HN", "[", "9", "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "7"}]]}], "]"}], "[", "9", "]"}], ",", + RowBox[{"Table", "[", RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "->", "0"}], "}"}]}], "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "2"}]]}], "]"}]}]}]], "Input", + RowBox[{ + RowBox[{"A", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"NFN", "[", "9", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"gC", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}]}], "]"}], ",", + RowBox[{ + RowBox[{"SN", "[", "9", "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, { 3.841228542777034*^9, 3.8412285565292*^9}, {3.841228600579276*^9, 3.841228610938241*^9}, {3.84122872113229*^9, 3.841228734972561*^9}, { @@ -3412,551 +3980,459 @@ Cell[BoxData[ 3.84173406172647*^9}, {3.841734285483835*^9, 3.8417342940989227`*^9}, { 3.8417355326753674`*^9, 3.8417355405054827`*^9}, {3.841828611487206*^9, 3.841828622255392*^9}, {3.841828675040432*^9, 3.841828684736364*^9}, { - 3.8418302810935307`*^9, 3.841830308525895*^9}, {3.842082309644547*^9, - 3.842082322292737*^9}, {3.842082384582395*^9, 3.8420823848377657`*^9}, { - 3.842085309253434*^9, 3.8420853109873867`*^9}, {3.842526212619446*^9, - 3.84252621326678*^9}, {3.842526608898067*^9, 3.842526610786344*^9}, { - 3.842589907388948*^9, 3.842589910627743*^9}, {3.8426883406998796`*^9, - 3.842688350300047*^9}, {3.842689982945778*^9, 3.8426899919141293`*^9}, { - 3.842690298096287*^9, 3.842690302551689*^9}, {3.842690858683028*^9, - 3.842690860745908*^9}, {3.8426914641016073`*^9, 3.842691475164977*^9}, { - 3.842942844119803*^9, 3.842942844167082*^9}, 3.842943826026473*^9}, - CellLabel->"In[76]:=",ExpressionUUID->"200b94d3-7cab-4649-99f3-c2558b1a5011"], + 3.841997542245502*^9, 3.8419975516374683`*^9}, {3.842080664614111*^9, + 3.842080665022011*^9}, {3.84208163711196*^9, 3.842081645968207*^9}, { + 3.842081747930049*^9, 3.84208175460223*^9}, {3.842082039052825*^9, + 3.8420820492397423`*^9}, {3.8423371230052137`*^9, 3.842337136476829*^9}, { + 3.842523090019842*^9, 3.84252309266542*^9}, {3.8425250197593327`*^9, + 3.84252504132528*^9}, {3.842525296842931*^9, 3.842525301753889*^9}, { + 3.842525379884775*^9, 3.842525395571744*^9}, {3.842525543904497*^9, + 3.842525544198461*^9}, {3.842525905156863*^9, 3.842525907468851*^9}, { + 3.8425885696042757`*^9, 3.84258858073207*^9}, {3.842588792656406*^9, + 3.8425888202643538`*^9}, {3.8426812946518803`*^9, 3.842681303046391*^9}, { + 3.8426836026128674`*^9, 3.842683605724791*^9}, {3.8426837253751593`*^9, + 3.842683725486979*^9}, {3.842685229708494*^9, 3.842685239291025*^9}, { + 3.842686938041917*^9, 3.842686952634119*^9}, {3.842687006283224*^9, + 3.8426870064672337`*^9}, {3.842687150575683*^9, 3.842687150637838*^9}, { + 3.842687393459402*^9, 3.84268739363433*^9}, 3.842687864738781*^9, { + 3.842687945965291*^9, 3.842687946148342*^9}, {3.842687990853121*^9, + 3.842688021485701*^9}, {3.842688190905941*^9, 3.842688190984992*^9}, { + 3.842688968071505*^9, 3.842688976815401*^9}, {3.842689079202087*^9, + 3.84268908089705*^9}, 3.842689217989202*^9, {3.842689321494268*^9, + 3.8426893215735407`*^9}, {3.84268953374725*^9, 3.842689535833342*^9}, { + 3.8426896540848227`*^9, 3.842689654387868*^9}, {3.842936128483087*^9, + 3.842936137168179*^9}, {3.8437130416597033`*^9, 3.84371305213933*^9}, { + 3.843715934056658*^9, 3.843715975505213*^9}, {3.843817813040893*^9, + 3.84381784925498*^9}, {3.843817917808107*^9, 3.843817963897434*^9}, { + 3.84381799998707*^9, 3.843818033913989*^9}, {3.843886344500053*^9, + 3.843886358521327*^9}, {3.8438968744983683`*^9, 3.843896878681469*^9}, { + 3.843904819491393*^9, 3.84390482089933*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"6bb6eb48-9c7f-4cd5-80e5-89dd5f03b923"], Cell[CellGroupData[{ -Cell["\<\ -CompiledFunction::cfn: - Numerical error encountered at instruction 304; proceeding with uncompiled - evaluation.\ -\>", "Print", - ShowCellLabel->True, - CellChangeTimes->{3.8429450008400097`*^9}, - CellLabel-> - "Remote kernel",ExpressionUUID->"2185ced4-0a66-4a97-8838-180d3ce37879"], - Cell["\<\ General::munfl: - -307 - 0.1 1.28874 10 is too small to represent as a normalized machine + -307 + 0.1 -1.77326 10 is too small to represent as a normalized machine number; precision may be lost.\ \>", "Print", ShowCellLabel->True, - CellChangeTimes->{3.842945156464916*^9}, + CellChangeTimes->{3.843906081538807*^9}, CellLabel-> - "Remote kernel",ExpressionUUID->"df24891c-7bf9-4b21-85c2-73617581eebb"], + "Remote kernel",ExpressionUUID->"467aa206-d126-4a40-8067-409232ffdc3a"], Cell["\<\ General::munfl: - -307 - 0.1 1.78315 10 is too small to represent as a normalized machine + -307 + 0.1 -1.94452 10 is too small to represent as a normalized machine number; precision may be lost.\ \>", "Print", ShowCellLabel->True, - CellChangeTimes->{3.8429451565439577`*^9}, + CellChangeTimes->{3.84390608161777*^9}, CellLabel-> - "Remote kernel",ExpressionUUID->"a6619516-6538-49ad-b331-3956e0aa62c9"], + "Remote kernel",ExpressionUUID->"8754ca31-013e-4466-96bb-ebec32313a78"], Cell["\<\ General::munfl: - -308 - 0.1 6.44369 10 is too small to represent as a normalized machine + -308 + 0.1 -8.86628 10 is too small to represent as a normalized machine number; precision may be lost.\ \>", "Print", ShowCellLabel->True, - CellChangeTimes->{3.842945156623135*^9}, + CellChangeTimes->{3.843906081696913*^9}, CellLabel-> - "Remote kernel",ExpressionUUID->"0558deb8-f9a3-4d34-8ab5-3fc2fa8b0deb"], + "Remote kernel",ExpressionUUID->"c1aca8bb-d681-469a-bd29-f151362e33f6"], Cell["\<\ General::stop: Further output of General::munfl will be suppressed during this calculation.\ \>", "Print", ShowCellLabel->True, - CellChangeTimes->{3.8429451567021837`*^9}, + CellChangeTimes->{3.843906081775959*^9}, CellLabel-> - "Remote kernel",ExpressionUUID->"af5140d0-5f4f-4ff2-91a9-9ac6d7032d89"] + "Remote kernel",ExpressionUUID->"4f212f81-2c74-4237-aad8-d1d9e3dda9a8"] }, Open ]], Cell[BoxData[ RowBox[{"{", - RowBox[{"0.8189269819372189`", ",", + RowBox[{"1432.6975161403723`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3798861592647795`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19657608588606654`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.315374455575039`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.1968056884469743`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.5523594631601134`"}]}], ",", + RowBox[{"-", "2.5164198920285257`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.7335980544394025`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6805031720145984`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5928229158635054`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.555351304228159`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.35752822233315795`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.008741540813834102`"}], - ",", - RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.2963514039309786`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.053507440697123036`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.019584974378453943`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.07869266586078945`"}], ",", - + RowBox[{"-", "0.25876637641698763`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.0033348773427395737`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", - RowBox[{"-", "0.0002653753387443968`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.0070012259600581725`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "\[Rule]", "1.2063011212229598`*^-6"}]}], - "}"}]}], "}"}]], "Output", - CellChangeTimes->{ - 3.842526612785705*^9, 3.842527269155875*^9, 3.8425893667554903`*^9, - 3.84258987578233*^9, 3.84259060234828*^9, {3.842601285830758*^9, - 3.842601307261709*^9}, 3.8426020125703087`*^9, 3.842681571333026*^9, { - 3.842681734653314*^9, 3.842681745419319*^9}, 3.84268836259077*^9, - 3.842688403543294*^9, 3.842690288289164*^9, 3.8426908270981073`*^9, - 3.8426914364483337`*^9, 3.8426922060770597`*^9, 3.8429405972734413`*^9, - 3.8429412386368837`*^9, 3.842942211135921*^9, 3.842942753592914*^9, - 3.842943612832719*^9, 3.8429444736860723`*^9, 3.842945184841517*^9}, - CellLabel->"Out[76]=",ExpressionUUID->"f91958e9-a220-4f8e-ae16-55c2d7026d35"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData["m7"], "Input", - CellChangeTimes->{{3.8430275901073837`*^9, 3.843027590481913*^9}}, - CellLabel-> - "In[135]:=",ExpressionUUID->"2e40e185-1d47-4e98-b537-128197264f04"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"0.8189269819372189`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3798861592647795`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19657608588606654`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.5523594631601134`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.7335980544394025`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5928229158635054`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.35752822233315795`"}]}], ",", + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{"-", "0.0319998850426093`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.008741540813834102`"}], - ",", + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.007204968199255955`"}]}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.2963514039309786`"}]}], ",", + RowBox[{"-", "0.13602478432181575`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.053507440697123036`"}], + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.007914150287781679`"}], ",", RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.019584974378453943`"}]}], ",", + RowBox[{"A", "[", "4", "]"}], "\[Rule]", + RowBox[{"-", "0.00007653570063670653`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.07869266586078945`"}], ",", - + RowBox[{"gC", "[", "5", "]"}], "\[Rule]", + RowBox[{"-", "0.0025604297749469637`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.0033348773427395737`"}], + RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00045499795722825126`"}], ",", RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", - RowBox[{"-", "0.0002653753387443968`"}]}], ",", + RowBox[{"A", "[", "5", "]"}], "\[Rule]", "0.00014503062514312605`"}], + ",", RowBox[{ - RowBox[{"A", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.0070012259600581725`"}]}], ",", + RowBox[{"gC", "[", "7", "]"}], "\[Rule]", + RowBox[{"-", "0.00005130839800305396`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "\[Rule]", "1.2063011212229598`*^-6"}]}], + RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "1.7819332938806979`*^-6"}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{3.843027590991024*^9}, + CellChangeTimes->{ + 3.843713711772421*^9, 3.8437160836635036`*^9, {3.8438178605938272`*^9, + 3.843817869929495*^9}, {3.843817954165783*^9, 3.843818007742099*^9}, + 3.843818044750214*^9, 3.843887192251857*^9, 3.84388865475042*^9, + 3.843906116786137*^9}, CellLabel-> - "Out[135]=",ExpressionUUID->"089e5e7d-8886-4596-9b12-15e349d13600"] + "Out[103]=",ExpressionUUID->"2a2c83e9-3cde-44af-a7d5-e6b62504ce18"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"m71", "=", - RowBox[{"RemoteEvaluate", "@", - RowBox[{"annealFit", "[", - RowBox[{ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"5", ",", - RowBox[{"h", "[", "7", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "10"}]]}], "]"}], "[", "9", "]"}], ",", - RowBox[{"m7", "[", - RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}]], "Input", - CellChangeTimes->{{3.841826409040468*^9, 3.841826597778789*^9}, { - 3.841826667389724*^9, 3.841826667595948*^9}, {3.8418267356853933`*^9, - 3.8418267802857647`*^9}, {3.841826861255658*^9, 3.841826922184668*^9}, { - 3.8418269725707407`*^9, 3.841826994313775*^9}, {3.8418270452029877`*^9, - 3.841827053242969*^9}, {3.8418271119240437`*^9, 3.84182712854834*^9}, { - 3.841827636088339*^9, 3.841827638701561*^9}, {3.8418280886535597`*^9, - 3.841828101110017*^9}, {3.841828420412331*^9, 3.8418284236037703`*^9}, { - 3.8418295127754307`*^9, 3.8418295264076853`*^9}, {3.842337631182955*^9, - 3.8423376428942547`*^9}, {3.8423390522239523`*^9, 3.842339066648242*^9}, { - 3.842692328096613*^9, 3.842692341828763*^9}, {3.842692714789094*^9, - 3.84269271557976*^9}}, - CellLabel->"In[89]:=",ExpressionUUID->"0dba08c9-c74d-4268-96fa-0c6efda987ca"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"175.89692615640794`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.375435411428919`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1965201354188921`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.548202398429163`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.7277523989023333`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.602777511249843`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.35476072551695503`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.0071698284978869015`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.28737467546972323`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.052493450595160036`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.019894421937458582`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.07241135663444981`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.003534527038057842`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", - RowBox[{"-", "0.00033818931210095453`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.007245524506332198`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "\[Rule]", - "0.000010619260978013524`"}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{3.842426928944779*^9, 3.842586429545986*^9, - 3.842692707013597*^9, 3.8426931510872393`*^9, 3.8429457231988564`*^9}, - CellLabel->"Out[89]=",ExpressionUUID->"30dd2ebb-5e89-4bec-b443-d6cfa7697ac6"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"m8", "=", + RowBox[{ + RowBox[{"SN", "[", "9", "]"}], "=", RowBox[{"RemoteEvaluate", "@", RowBox[{"annealFit", "[", RowBox[{ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"6", ",", - RowBox[{"h", "[", "8", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}], "[", "10", "]"}], ",", RowBox[{"Join", "[", RowBox[{ - RowBox[{"m7", "[", - RowBox[{"[", "2", "]"}], "]"}], ",", - RowBox[{"{", + RowBox[{ + RowBox[{"res", "[", + RowBox[{ + RowBox[{"NFN", "[", "9", "]"}], ",", + RowBox[{"HN", "[", "9", "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "10"}]]}], "]"}], "[", "9", "]"}], ",", + RowBox[{"Table", "[", RowBox[{ RowBox[{ - RowBox[{"gC", "[", "8", "]"}], "->", "0"}], ",", + RowBox[{"A", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"NFN", "[", "9", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ RowBox[{ - RowBox[{"A", "[", "6", "]"}], "->", "0"}]}], "}"}]}], "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "3"}]]}], "]"}]}]}]], "Input", - CellChangeTimes->CompressedData[" -1:eJwd0F1Ik3EYBfA1neBmEGNaWeAHYqnDbZExsjcV2yqNLoTENIYOst2kZl+C -FyqsLS+W72Bh4EgnRHY1ja2PRWFTNGwFG2uIw5wb2WyLQERzhfWc/8Xhd3me -5xToOxuuCgUCQQkF5lnvzg09TtYU/0v64J3lxRVY8YtfhR2D0u9QmqGLw1eV -RVtQnbeyDWMvLOU8KWuVKaGpK+z0kPJg9Dn0DoYiMGNql1kV6jv7hpzQWurg -huytNkKK22+fg/ONPSaYfemQGXKWL6Mw/DPFDH3TvI6SCY3EAz8Jb01D276P -s3CJV7pjpOjrMebk0EEPzN/pewcj2qf9aaP054GtAdh74XJbOmn/e1EPc6yh -buiqFN+EBn+aEZaIOOZpZ+A9fDY54IVnFA5bFrkQHWfa7z+S7CWtgaNZUK/S -NkF5XQ9zf8yxZiRzu9LjsOGJUXyPzKxNSGAyUKuAR0QKJSxL3HCb0Fv1kmnr -dfpha+lMANrtD6+byR9yvgOqhjsjLvTJP6xCdX1bHNbzw+vw+G7hlJssDPIu -WDDmmlaO0T268174Z1y6AFOfc5lr3B5ORZorNmugkDusLnbQPhoDs6ja9xsa -dH5mamQis4UsDZ6SwAcnDeVXyBFBowK2r5eZwuTOtX4zzGnu9m2TshOLzP9R -Il/A - "], + RowBox[{"gC", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}]}], "]"}], ",", + RowBox[{ + RowBox[{"SN", "[", "9", "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}]], "Input", + CellChangeTimes->{{3.843896889153625*^9, 3.8438968892496347`*^9}, + 3.8439010500301847`*^9}, CellLabel-> - "In[134]:=",ExpressionUUID->"77feec13-1cdc-471d-8d45-49920b8c9c58"], + "In[163]:=",ExpressionUUID->"50ae3a0c-00b7-48d3-bbd9-7fcdb7e9be65"], -Cell[BoxData[ - TemplateBox[{ - "LinkObject", "linkd", - "\"Unable to communicate with closed link \ -\\!\\(\\*RowBox[{\\\"LinkObject\\\", \\\"[\\\", RowBox[{\\\"\\\\\\\"ssh -4 -x \ --o StrictHostKeyChecking=no -o BatchMode=yes -l math sident.lassp.cornell.edu \ -wolfram -noinit -wstp\\\\\\\"\\\", \\\",\\\", \\\"3950\\\", \\\",\\\", \\\"11\ -\\\"}], \\\"]\\\"}]\\).\"", 2, 134, 66, 31647447333701645841, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.8430227605867643`*^9, 3.843027465907736*^9}, +Cell[CellGroupData[{ + +Cell["\<\ +Part::partd: Part specification $Failed[[2]] is longer than depth of object.\ +\>", "Print", + ShowCellLabel->True, + CellChangeTimes->{3.843901505357917*^9}, CellLabel-> - "During evaluation of \ -In[134]:=",ExpressionUUID->"91443dc7-57dd-4d8a-aff2-566e34296967"], + "Remote kernel",ExpressionUUID->"f2db3760-255a-4d78-86c0-da167b38c746"], -Cell[BoxData[ - TemplateBox[{ - "RemoteEvaluate", "badlink", - "\"RemoteEvaluate could not read from link \\!\\(\\*RowBox[{\\\"LinkObject\ -\\\", \\\"[\\\", RowBox[{\\\"\\\\\\\"ssh -4 -x -o StrictHostKeyChecking=no -o \ -BatchMode=yes -l math sident.lassp.cornell.edu wolfram -noinit \ --wstp\\\\\\\"\\\", \\\",\\\", \\\"3950\\\", \\\",\\\", \\\"11\\\"}], \ -\\\"]\\\"}]\\).\"", 2, 134, 67, 31647447333701645841, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.8430227605867643`*^9, 3.8430274659128532`*^9}, +Cell["\<\ +First::normal: Nonatomic expression expected at position 1 in First[$Failed].\ +\ +\>", "Print", + ShowCellLabel->True, + CellChangeTimes->{3.843901505460285*^9}, CellLabel-> - "During evaluation of \ -In[134]:=",ExpressionUUID->"8c8db586-7a76-4cc8-b40c-f5641a83fb2a"], + "Remote kernel",ExpressionUUID->"9eaeaa47-2a19-4f62-8edd-d739b738dc97"], -Cell[BoxData[ - TemplateBox[{ - "LinkObject", "linkn", - "\"Argument \\!\\(\\*RowBox[{\\\"LinkObject\\\", \\\"[\\\", RowBox[{\\\"\\\ -\\\\\"ssh -4 -x -o StrictHostKeyChecking=no -o BatchMode=yes -l math \ -sident.lassp.cornell.edu wolfram -noinit -wstp\\\\\\\"\\\", \\\",\\\", \ -\\\"3950\\\", \\\",\\\", \\\"11\\\"}], \\\"]\\\"}]\\) in \ -\\!\\(\\*RowBox[{\\\"LinkClose\\\", \\\"[\\\", RowBox[{\\\"LinkObject\\\", \\\ -\"[\\\", RowBox[{\\\"\\\\\\\"ssh -4 -x -o StrictHostKeyChecking=no -o \ -BatchMode=yes -l math sident.lassp.cornell.edu wolfram -noinit \ --wstp\\\\\\\"\\\", \\\",\\\", \\\"3950\\\", \\\",\\\", \\\"11\\\"}], \ -\\\"]\\\"}], \\\"]\\\"}]\\) has an invalid LinkObject number; the link may be \ -closed.\"", 2, 134, 68, 31647447333701645841, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.8430227605867643`*^9, 3.8430274659176064`*^9}, +Cell["\<\ +First::normal: Nonatomic expression expected at position 1 in First[2].\ +\>", "Print", + ShowCellLabel->True, + CellChangeTimes->{3.8439015055396347`*^9}, CellLabel-> - "During evaluation of \ -In[134]:=",ExpressionUUID->"55680071-ebde-46b2-9985-b7b1773db7d9"], + "Remote kernel",ExpressionUUID->"516762a4-e3a4-49c8-afd5-ebb9602701c3"], -Cell[BoxData["$Failed"], "Output", - CellChangeTimes->{3.841829478405797*^9, 3.842082489741064*^9, - 3.842083149562351*^9, 3.842083340661083*^9, 3.8424304437921963`*^9, - 3.842588045934964*^9, 3.842605348676124*^9, 3.8426955372270527`*^9, - 3.842699079739625*^9, 3.842951609647294*^9, 3.8429563055131893`*^9, - 3.842956346130459*^9, 3.842958187894113*^9, 3.843017098691923*^9, - 3.8430227606049833`*^9, 3.843027465922112*^9}, +Cell["\<\ +Part::pkspec1: The expression First[2] cannot be used as a part specification.\ +\>", "Print", + ShowCellLabel->True, + CellChangeTimes->{3.843901505619438*^9}, CellLabel-> - "Out[134]=",ExpressionUUID->"23e34e05-cb3e-40f1-ba06-a11819fced80"] -}, Open ]], + "Remote kernel",ExpressionUUID->"8c6b0e8c-5f47-421a-af95-4872d1d3fdd4"], -Cell[CellGroupData[{ +Cell["\<\ +First::normal: Nonatomic expression expected at position 1 in First[$Failed].\ +\ +\>", "Print", + ShowCellLabel->True, + CellChangeTimes->{3.8439015080475693`*^9}, + CellLabel-> + "Remote kernel",ExpressionUUID->"10d22756-dcd4-44d1-aac4-99016bb32ee9"], -Cell[BoxData[ - RowBox[{"m81", "=", - RowBox[{"RemoteEvaluate", "@", - RowBox[{"annealFit", "[", - RowBox[{ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"6", ",", - RowBox[{"h", "[", "8", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "10"}]]}], "]"}], "[", "10", "]"}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{"m8", "[", - RowBox[{"[", "2", "]"}], "]"}], ",", - RowBox[{"{", "}"}]}], "]"}]}], "]"}]}]}]], "Input", - CellChangeTimes->CompressedData[" -1:eJwd0F1Ik3EYBfA1neC2QMa0ssAUMdPhtkgYrjcT2yyNLoRESYYOit2k9i14 -sYS15cXyHSwMHOqEyK6msfWxUHSGih/RxhqRlHMjW24RRFqusJ7zvzj8Ls/z -nEJjZ+MloUAgKKXAAsftuf6hVE3Jv9QyvPXx/Rqs/M6vw44+2RcoyzIk4Att -8TbUFKz9gvFn9gqelLfJVdDaterxk4pw7CkM9EWiMGtil1kdMde9Isf09nr4 -Qz6pj5LiyzfPwPmmbivMvXDQBjn7u2G4+i3NjHzWvYyRSZ3ED1eEN6ahM2fp -NfzAq3xxUvTpGHO8/4AfHt4xT8Go/vGdjGH6c/92L+w519KeSbr+njfCPEfk -GvRqxdehKZhhgUdFHPOkJzQDn4z3BuBppdspJRdjo0zXvYeSvaQjVCqFRrW+ -GSrqu5n74u4NC5nflZmAjY8s4rtkdm1SAlOhWiU8IlKqYHnyqs+K3urnTGeP -JwjbymZD0OV6cMVGbir4Dqge6Ix60adYWIeahvYEbOAHvsLju0UTPrIozHth -4Yh3WjVC9xjOBuCfUdkiTL/JZ25wezg1aav8WQOF3CFNiZv20ZmYxaeWf0OT -IchMD45lXyTLwick8H6VqaKVHBQ0KWGd1jz3lpRObi3A/5ZfVmk= - "], +Cell["\<\ +General::stop: Further output of First::normal + will be suppressed during this calculation.\ +\>", "Print", + ShowCellLabel->True, + CellChangeTimes->{3.843901508126801*^9}, CellLabel-> - "In[107]:=",ExpressionUUID->"2742bf10-6e80-4043-a3d1-4f8276912fa7"], + "Remote kernel",ExpressionUUID->"084e7849-246f-429f-855f-22c2c43a8763"], -Cell[CellGroupData[{ +Cell["\<\ +Part::pkspec1: The expression First[2] cannot be used as a part specification.\ +\>", "Print", + ShowCellLabel->True, + CellChangeTimes->{3.843901508206236*^9}, + CellLabel-> + "Remote kernel",ExpressionUUID->"e015d14b-eb0c-4bb0-af1c-188c96529d70"], Cell["\<\ -General::munfl: - -263 -53 - 7.64335 10 1.63811 10 is too small to represent as a normalized - machine number; precision may be lost.\ +Part::pkspec1: The expression First[2] cannot be used as a part specification.\ \>", "Print", ShowCellLabel->True, - CellChangeTimes->{3.8429596446057873`*^9}, + CellChangeTimes->{3.843901508285781*^9}, CellLabel-> - "Remote kernel",ExpressionUUID->"d968a77e-0b23-4ede-8778-fe70c8fe67a4"], + "Remote kernel",ExpressionUUID->"bc7a1a36-c9f3-4c07-90fe-8ed0ce16359d"], Cell["\<\ -General::munfl: - -263 -53 - 7.64335 10 1.63811 10 is too small to represent as a normalized - machine number; precision may be lost.\ +General::stop: Further output of Part::pkspec1 + will be suppressed during this calculation.\ \>", "Print", ShowCellLabel->True, - CellChangeTimes->{3.842959644684785*^9}, + CellChangeTimes->{3.8439015083653307`*^9}, CellLabel-> - "Remote kernel",ExpressionUUID->"c0fb9f74-f597-4290-ab92-19fc6918cb3b"], + "Remote kernel",ExpressionUUID->"ad6e1792-e476-45f4-ada9-6baaeb9e165a"], Cell["\<\ -General::munfl: - -264 -54 - 2.38855 10 8.19053 10 is too small to represent as a normalized - machine number; precision may be lost.\ +Part::partd: Part specification $Failed[[2]][[All,2]] + is longer than depth of object.\ \>", "Print", ShowCellLabel->True, - CellChangeTimes->{3.842959644763789*^9}, + CellChangeTimes->{3.843901508444538*^9}, CellLabel-> - "Remote kernel",ExpressionUUID->"d580040e-4b47-47e5-a184-41377961a189"], + "Remote kernel",ExpressionUUID->"9badaa21-a438-4ebf-a9b8-b6f0cc53a9a5"], Cell["\<\ -General::stop: Further output of General::munfl +CompiledFunction::cfta: + Argument $Failed[[2]][[All,2]] at position 1 should be a rank 1 tensor of + machine-size real numbers.\ +\>", "Print", + ShowCellLabel->True, + CellChangeTimes->{3.843901508818513*^9}, + CellLabel-> + "Remote kernel",ExpressionUUID->"103493b3-bc70-4d18-ae26-4b48ba433f58"], + +Cell["\<\ +Part::partd: Part specification $Failed[[2]][[All,2]] + is longer than depth of object.\ +\>", "Print", + ShowCellLabel->True, + CellChangeTimes->{3.8439015088978977`*^9}, + CellLabel-> + "Remote kernel",ExpressionUUID->"702392f9-fce6-4fe0-a53b-091e531871fc"], + +Cell["\<\ +General::stop: Further output of Part::partd will be suppressed during this calculation.\ \>", "Print", ShowCellLabel->True, - CellChangeTimes->{3.842959644842986*^9}, + CellChangeTimes->{3.84390150897721*^9}, CellLabel-> - "Remote kernel",ExpressionUUID->"f836f1cb-320c-4756-a39e-0d2706b3cc76"], + "Remote kernel",ExpressionUUID->"891d5c90-8786-453c-915a-5c9758870145"], Cell["\<\ -CompiledFunction::cfne: - Numerical error encountered; proceeding with uncompiled evaluation.\ +CompiledFunction::cfta: + Argument $Failed[[2]][[All,2]] at position 1 should be a rank 1 tensor of + machine-size real numbers.\ \>", "Print", ShowCellLabel->True, - CellChangeTimes->{3.842959644973405*^9}, + CellChangeTimes->{3.843901509056631*^9}, CellLabel-> - "Remote kernel",ExpressionUUID->"c1df8207-0a77-43dc-8619-51d191eb8a45"], + "Remote kernel",ExpressionUUID->"18c6d658-6045-48d1-b671-d40f83ee93a5"], + +Cell["Diagonal::list: List expected at position 1 in Diagonal[0].", "Print", + ShowCellLabel->True, + CellChangeTimes->{3.843901510867215*^9}, + CellLabel-> + "Remote kernel",ExpressionUUID->"95489f99-5b01-4f57-9a57-182c23961f20"], Cell["\<\ -CompiledFunction::cfn: - Numerical error encountered at instruction 329; proceeding with uncompiled - evaluation.\ + 1 +Diagonal::list: List expected at position 1 in Diagonal[------]. + 100000\ \>", "Print", ShowCellLabel->True, - CellChangeTimes->{3.842960026779848*^9}, + CellChangeTimes->{3.8439015109464617`*^9}, CellLabel-> - "Remote kernel",ExpressionUUID->"7bac1e96-85d8-4b0c-a777-cc3800b0bd9f"] -}, Open ]], + "Remote kernel",ExpressionUUID->"f2fff34e-167a-4e82-ba62-ead2b1143e60"], -Cell[BoxData[ - RowBox[{"{", - RowBox[{"474.3340844808429`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3945402473101085`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19657904694560144`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.540331831170335`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.7160917979602017`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5879818755841343`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.3570513437923083`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.00008683579482103827`"}], - ",", - RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.2832843539025121`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.052008686379266846`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.020069279882927036`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.07315824903377943`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.0034639815271289166`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", - RowBox[{"-", "0.00023626079352352796`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.007241986884380438`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "\[Rule]", - RowBox[{"-", "0.000021904950135006763`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "3.454775277884922`*^-6"}], - ",", - RowBox[{ - RowBox[{"A", "[", "6", "]"}], "\[Rule]", - RowBox[{"-", "3.393785586194989`*^-6"}]}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{3.841829478405797*^9, 3.842082489741064*^9, - 3.842083149562351*^9, 3.842083340661083*^9, 3.8424304437921963`*^9, - 3.842588045934964*^9, 3.842605348676124*^9, 3.8426955372270527`*^9, - 3.842699079739625*^9, 3.842936038504257*^9, 3.8429603423886766`*^9}, +Cell["Diagonal::list: List expected at position 1 in Diagonal[0].", "Print", + ShowCellLabel->True, + CellChangeTimes->{3.843901511025448*^9}, + CellLabel-> + "Remote kernel",ExpressionUUID->"4171c4a8-9b74-4d07-876d-81d571c07477"], + +Cell["\<\ +General::stop: Further output of Diagonal::list + will be suppressed during this calculation.\ +\>", "Print", + ShowCellLabel->True, + CellChangeTimes->{3.843901511104794*^9}, + CellLabel-> + "Remote kernel",ExpressionUUID->"45356bd2-8112-4f01-b137-4fef8466cde1"], + +Cell["\<\ +CompiledFunction::cfta: + 1 + Argument -0.1 LinearSolve[DiagonalMatrix[Diagonal[------]], 0.] + + 100000 + $Failed[[2]][[All,2]] at position 1 should be a rank 1 tensor of + machine-size real numbers.\ +\>", "Print", + ShowCellLabel->True, + CellChangeTimes->{3.843901511184938*^9}, + CellLabel-> + "Remote kernel",ExpressionUUID->"5978dcc5-7b1e-4d27-9474-82e19086971d"], + +Cell["\<\ +General::stop: Further output of CompiledFunction::cfta + will be suppressed during this calculation.\ +\>", "Print", + ShowCellLabel->True, + CellChangeTimes->{3.843901511262813*^9}, CellLabel-> - "Out[107]=",ExpressionUUID->"956b70bf-8ee9-40a5-8b0c-7ecec5569248"] + "Remote kernel",ExpressionUUID->"3f77796a-af19-4895-a65a-bfbc320f7174"] +}, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[BoxData[ - RowBox[{"m9", "=", +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"NFN", "[", "10", "]"}], "=", "7"}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"HN", "[", "10", "]"}], "=", + RowBox[{"h", "[", "8", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SN", "[", "10", "]"}], "=", RowBox[{"RemoteEvaluate", "@", RowBox[{"annealFit", "[", RowBox[{ - RowBox[{ + RowBox[{"Join", "[", RowBox[{ - RowBox[{"res", "[", - RowBox[{"6", ",", - RowBox[{"h", "[", "9", "]"}], ",", "\[Delta]"}], "]"}], "[", "11", - "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "9", "]"}], "]"}]}], ",", "\[Delta]", ",", + RowBox[{ + RowBox[{"res", "[", + RowBox[{ + RowBox[{"NFN", "[", "10", "]"}], ",", + RowBox[{"HN", "[", "10", "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "6"}]]}], "]"}], "[", "10", "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"NFN", "[", "10", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"gC", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"Join", "[", RowBox[{ - RowBox[{"m8", "[", + RowBox[{ + RowBox[{"SN", "[", "9", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ - RowBox[{"gC", "[", "9", "]"}], "->", "0"}], "}"}]}], "]"}]}], - "]"}]}]}]], "Input", - CellChangeTimes->CompressedData[" -1:eJwd0F1Ik3EYBfA1ndBmEGOZWmDKmJbDvYuEgbyZ2JYf4YWg1EVDB8Zu8qsP -BS9UmFteDN/Bwi5GOiHMq2lsWhNlLrEwDbZsRKLOjXS5RRBhZaI9539x+F2e -5zn5prb6FrFIJFJRYJ6ja2noWapCdZxagY82Pm/B0h/CNmwdlO9CeYYxAV+V -KfehLm/rN4xP20sEUtGk4KC1fd3jJ9VrsZcwOBiJwoypI2Z5pPfGLPnCYK+B -PxVzhigpvfuwCr5t7LbCMw3nbJC3fxqB698PmJGv+tcxMqmX+eGq+EEAOk+/ -X4RfBM4XJyWbl5mTQzl+eOFv7zyMGsb70kboz+z9fthz83ZzOuk6rDPBLEek -E3rLpPehOZRmgRclPPOqJ7wAJyb7g/C6xu3MJJdjY0zX46eyU6QjXJQJTVrD -Laiu6Waejbt3LGRue3oC1j+3SAfIk5VJGUyFKzWwUKLhYHGyw2dFb/kM09nj -CcGmS2/C0OV6cs9G7qmFVqgdbot60ad+tw11tc0JWCsMf4NXjgqmfGTBmuCF -+aPeADdK9xirg/DfmHwZHnzIZe7wJ3gtaSv9VQHF/Hmdyk376M1M5bWVP9Bs -DDEb7ihLODL+McXB/9MBRgE= - "], + RowBox[{ + RowBox[{"gC", "[", "8", "]"}], "->", "0"}], ",", + RowBox[{ + RowBox[{"A", "[", "7", "]"}], "->", "0"}]}], "}"}]}], "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "6"}]]}], "]"}]}]}]}], "Input", + CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, { + 3.841228542777034*^9, 3.8412285565292*^9}, {3.841228600579276*^9, + 3.841228610938241*^9}, {3.84122872113229*^9, 3.841228734972561*^9}, { + 3.841229172428575*^9, 3.8412291846367283`*^9}, {3.841316222857486*^9, + 3.8413162470884*^9}, {3.841316614704316*^9, 3.8413166159591093`*^9}, { + 3.841317435994903*^9, 3.841317460414875*^9}, {3.841393205908807*^9, + 3.841393219668706*^9}, {3.841393715760593*^9, 3.841393720854136*^9}, { + 3.841393918673491*^9, 3.841393919841535*^9}, {3.841398218184306*^9, + 3.841398224352285*^9}, {3.841398275625342*^9, 3.8413983103457737`*^9}, { + 3.841400233517682*^9, 3.841400233589602*^9}, {3.84140027279879*^9, + 3.841400307999161*^9}, {3.8414653492274017`*^9, 3.841465359690486*^9}, { + 3.841467146790586*^9, 3.841467154468336*^9}, {3.8414672867052107`*^9, + 3.841467288319788*^9}, {3.8414674241193123`*^9, 3.84146742590688*^9}, { + 3.841467918583892*^9, 3.841467924052815*^9}, {3.8414839410370197`*^9, + 3.841483941090184*^9}, {3.841484892766676*^9, 3.841484897275704*^9}, { + 3.841485506193528*^9, 3.841485507759054*^9}, {3.841730357058971*^9, + 3.8417303681386843`*^9}, {3.8417306441451807`*^9, 3.841730655351933*^9}, { + 3.8417309381194973`*^9, 3.841730945469379*^9}, {3.841734059559957*^9, + 3.84173406172647*^9}, {3.841734285483835*^9, 3.8417342940989227`*^9}, { + 3.8417355326753674`*^9, 3.8417355405054827`*^9}, {3.841828611487206*^9, + 3.841828622255392*^9}, {3.841828675040432*^9, 3.841828684736364*^9}, { + 3.841997542245502*^9, 3.8419975516374683`*^9}, {3.842080664614111*^9, + 3.842080665022011*^9}, {3.84208163711196*^9, 3.842081645968207*^9}, { + 3.842081747930049*^9, 3.84208175460223*^9}, {3.842082039052825*^9, + 3.8420820492397423`*^9}, {3.8423371230052137`*^9, 3.842337136476829*^9}, { + 3.842523090019842*^9, 3.84252309266542*^9}, {3.8425250197593327`*^9, + 3.84252504132528*^9}, {3.842525296842931*^9, 3.842525301753889*^9}, { + 3.842525379884775*^9, 3.842525395571744*^9}, {3.842525543904497*^9, + 3.842525544198461*^9}, {3.842525905156863*^9, 3.842525907468851*^9}, { + 3.8425885696042757`*^9, 3.84258858073207*^9}, {3.842588792656406*^9, + 3.8425888202643538`*^9}, {3.8426812946518803`*^9, 3.842681303046391*^9}, { + 3.8426836026128674`*^9, 3.842683605724791*^9}, {3.8426837253751593`*^9, + 3.842683725486979*^9}, {3.842685229708494*^9, 3.842685239291025*^9}, { + 3.842686938041917*^9, 3.842686952634119*^9}, {3.842687006283224*^9, + 3.8426870064672337`*^9}, {3.842687150575683*^9, 3.842687150637838*^9}, { + 3.842687393459402*^9, 3.84268739363433*^9}, 3.842687864738781*^9, { + 3.842687945965291*^9, 3.842687946148342*^9}, {3.842687990853121*^9, + 3.842688021485701*^9}, {3.842688190905941*^9, 3.842688190984992*^9}, { + 3.842688968071505*^9, 3.842688976815401*^9}, {3.842689079202087*^9, + 3.84268908089705*^9}, 3.842689217989202*^9, {3.842689321494268*^9, + 3.8426893215735407`*^9}, {3.84268953374725*^9, 3.842689535833342*^9}, { + 3.8426896540848227`*^9, 3.842689654387868*^9}, {3.842936128483087*^9, + 3.842936137168179*^9}, {3.8437130416597033`*^9, 3.84371305213933*^9}, { + 3.843715934056658*^9, 3.843715975505213*^9}, {3.843817813040893*^9, + 3.84381784925498*^9}, {3.843817917808107*^9, 3.843817963897434*^9}, + 3.84381799998707*^9, {3.843885942705492*^9, 3.84388594524964*^9}, { + 3.843886284376079*^9, 3.84388631712049*^9}, 3.8438876530431747`*^9, { + 3.843891405565366*^9, 3.8438914616700478`*^9}}, CellLabel-> - "In[255]:=",ExpressionUUID->"da6fb0f0-808b-49e1-9a6d-6ced77c20899"], + "In[417]:=",ExpressionUUID->"f5124a1f-1004-49ef-bdce-65e49311db89"], Cell[BoxData[ TemplateBox[{ @@ -3964,13 +4440,13 @@ Cell[BoxData[ "\"Unable to communicate with closed link \ \\!\\(\\*RowBox[{\\\"LinkObject\\\", \\\"[\\\", RowBox[{\\\"\\\\\\\"ssh -4 -x \ -o StrictHostKeyChecking=no -o BatchMode=yes -l math sident.lassp.cornell.edu \ -wolfram -noinit -wstp\\\\\\\"\\\", \\\",\\\", \\\"7847\\\", \\\",\\\", \\\"11\ -\\\"}], \\\"]\\\"}]\\).\"", 2, 255, 258, 31645164027744773303, "Local"}, +wolfram -noinit -wstp\\\\\\\"\\\", \\\",\\\", \\\"8991\\\", \\\",\\\", \\\"10\ +\\\"}], \\\"]\\\"}]\\).\"", 2, 416, 229, 31653629920828211403, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.84260545067861*^9, 3.8426134264024973`*^9}, + CellChangeTimes->{3.84389145785489*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"a7443b43-ee71-430d-91d4-435b34fc9655"], +In[414]:=",ExpressionUUID->"52d37aec-5e97-49ba-a73f-9240ea9bab01"], Cell[BoxData[ TemplateBox[{ @@ -3978,13 +4454,13 @@ Cell[BoxData[ "\"RemoteEvaluate could not read from link \\!\\(\\*RowBox[{\\\"LinkObject\ \\\", \\\"[\\\", RowBox[{\\\"\\\\\\\"ssh -4 -x -o StrictHostKeyChecking=no -o \ BatchMode=yes -l math sident.lassp.cornell.edu wolfram -noinit \ --wstp\\\\\\\"\\\", \\\",\\\", \\\"7847\\\", \\\",\\\", \\\"11\\\"}], \ -\\\"]\\\"}]\\).\"", 2, 255, 259, 31645164027744773303, "Local"}, +-wstp\\\\\\\"\\\", \\\",\\\", \\\"8991\\\", \\\",\\\", \\\"10\\\"}], \ +\\\"]\\\"}]\\).\"", 2, 416, 230, 31653629920828211403, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.84260545067861*^9, 3.842613426410461*^9}, + CellChangeTimes->{3.843891457867916*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"3a4d6953-ecc7-4836-bcde-ce1889fff237"], +In[414]:=",ExpressionUUID->"a87cd0bd-956c-4292-bb38-f01fa93f88fa"], Cell[BoxData[ TemplateBox[{ @@ -3992,150 +4468,66 @@ Cell[BoxData[ "\"Argument \\!\\(\\*RowBox[{\\\"LinkObject\\\", \\\"[\\\", RowBox[{\\\"\\\ \\\\\"ssh -4 -x -o StrictHostKeyChecking=no -o BatchMode=yes -l math \ sident.lassp.cornell.edu wolfram -noinit -wstp\\\\\\\"\\\", \\\",\\\", \ -\\\"7847\\\", \\\",\\\", \\\"11\\\"}], \\\"]\\\"}]\\) in \ +\\\"8991\\\", \\\",\\\", \\\"10\\\"}], \\\"]\\\"}]\\) in \ \\!\\(\\*RowBox[{\\\"LinkClose\\\", \\\"[\\\", RowBox[{\\\"LinkObject\\\", \\\ \"[\\\", RowBox[{\\\"\\\\\\\"ssh -4 -x -o StrictHostKeyChecking=no -o \ BatchMode=yes -l math sident.lassp.cornell.edu wolfram -noinit \ --wstp\\\\\\\"\\\", \\\",\\\", \\\"7847\\\", \\\",\\\", \\\"11\\\"}], \ +-wstp\\\\\\\"\\\", \\\",\\\", \\\"8991\\\", \\\",\\\", \\\"10\\\"}], \ \\\"]\\\"}], \\\"]\\\"}]\\) has an invalid LinkObject number; the link may be \ -closed.\"", 2, 255, 260, 31645164027744773303, "Local"}, +closed.\"", 2, 416, 231, 31653629920828211403, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.84260545067861*^9, 3.842613426416132*^9}, + CellChangeTimes->{3.843891457873457*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"f91cae25-3d55-4507-97e3-8efe0f1015cd"], +In[414]:=",ExpressionUUID->"fd51acaa-08e6-4912-b93f-c1e1c0519a2a"], Cell[BoxData["$Failed"], "Output", - CellChangeTimes->{3.841829478405797*^9, 3.842082489741064*^9, - 3.842083149562351*^9, 3.842083340661083*^9, 3.8424304437921963`*^9, - 3.842588045934964*^9, 3.842605348676124*^9, 3.842605450691359*^9, - 3.842613426421671*^9}, + CellChangeTimes->{ + 3.843713711772421*^9, 3.8437160836635036`*^9, {3.8438178605938272`*^9, + 3.843817869929495*^9}, {3.843817954165783*^9, 3.843818007742099*^9}, + 3.843886804598036*^9, 3.843888264731264*^9, 3.843891457878318*^9}, CellLabel-> - "Out[255]=",ExpressionUUID->"8ae1da27-83ab-4529-80cd-aa8d17f74340"] + "Out[416]=",ExpressionUUID->"d33cb855-0ed5-497d-8933-b6ebe6b81534"] }, Open ]], -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"m81", "=", - RowBox[{ - "Import", "[", "\"\<~/doc/research/first_order_singularities/mma/m8.wl\>\"", - "]"}]}]], "Input", - CellChangeTimes->{{3.8431175557870197`*^9, 3.843117572978077*^9}, - 3.843117649811626*^9}, - CellLabel-> - "In[368]:=",ExpressionUUID->"f17f1130-056e-4552-87df-88000e071617"], - Cell[BoxData[ - RowBox[{"{", - RowBox[{"477.8872720993887`", ",", - RowBox[{"{", + RowBox[{ + RowBox[{"SN", "[", "10", "]"}], "=", + RowBox[{"RemoteEvaluate", "@", + RowBox[{"annealFit", "[", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3945095399721226`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19657331402448114`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.540815351266595`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.7168304596304513`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.58914437918972`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.3578933157155564`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.0002471276399885635`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.28467214257786666`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.05289863457865093`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.0201090322678147`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.073168474426385`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.0034486104788930307`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", - RowBox[{"-", "0.00021837125394706086`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.007098620515609658`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "\[Rule]", - RowBox[{"-", "0.000025781921631023817`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "3.737427990965571`*^-6"}], - ",", - RowBox[{ - RowBox[{"A", "[", "6", "]"}], "\[Rule]", "0.000017492654253389754`"}]}], - "}"}]}], "}"}]], "Output", - CellChangeTimes->{3.843117650061253*^9}, - CellLabel-> - "Out[368]=",ExpressionUUID->"02d3c92e-d0da-4803-afd6-9943e49011bf"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"m81", "=", - RowBox[{"FindRoot", "[", - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{"D", "[", + RowBox[{"Join", "[", RowBox[{ RowBox[{ - RowBox[{"Total", "[", - SuperscriptBox[ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"6", ",", - RowBox[{"h", "[", "8", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "10", "]"}], "2"], "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "8", "]"}], "]"}]}], ",", - RowBox[{"{", - RowBox[{"m8", "[", - RowBox[{"[", - RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}], - "]"}], ",", - RowBox[{"Evaluate", "[", - RowBox[{ - RowBox[{"m8", "[", - RowBox[{"[", "2", "]"}], "]"}], "/.", - RowBox[{"Rule", "->", "List"}]}], "]"}], ",", - RowBox[{"WorkingPrecision", "\[Rule]", "20"}], ",", - RowBox[{"MaxIterations", "\[Rule]", "5000"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841826409040468*^9, 3.841826597778789*^9}, { - 3.841826667389724*^9, 3.841826667595948*^9}, {3.8418267356853933`*^9, - 3.8418267802857647`*^9}, {3.841826861255658*^9, 3.841826922184668*^9}, { - 3.8418269725707407`*^9, 3.841826994313775*^9}, {3.8418270452029877`*^9, - 3.841827053242969*^9}, {3.8418271119240437`*^9, 3.84182712854834*^9}, { - 3.841827636088339*^9, 3.841827638701561*^9}, {3.8418280886535597`*^9, - 3.841828101110017*^9}, {3.841828420412331*^9, 3.8418284236037703`*^9}, { - 3.8418295127754307`*^9, 3.8418295264076853`*^9}, {3.842337631182955*^9, - 3.8423376428942547`*^9}, {3.8423390522239523`*^9, 3.842339066648242*^9}, { - 3.842412055464538*^9, 3.8424120822810926`*^9}}, - CellLabel-> - "(Sident) In[28]:=",ExpressionUUID->"30cc4ffc-6785-4b8d-b6fc-639e76f49ad9"], - -Cell[BoxData[ - TemplateBox[{ - "FindRoot", "precw", - "\"The precision of the argument function ({<<25311869328 bytes>>}) is \ -less than WorkingPrecision (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 28, - 26, 18367073971234218752, "Sident"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.842337650075533*^9, 3.842339083779311*^9, - 3.842412138730196*^9, 3.842433398627845*^9}, - CellLabel-> - "During evaluation of (Sident) \ -In[28]:=",ExpressionUUID->"19f98077-4ff8-4918-9a55-7133637e973a"] -}, Open ]], + RowBox[{"res", "[", + RowBox[{ + RowBox[{"NFN", "[", "10", "]"}], ",", + RowBox[{"HN", "[", "10", "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "10"}]]}], "]"}], "[", "10", "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"A", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", + RowBox[{"NFN", "[", "10", "]"}]}], "}"}]}], "]"}], ",", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"gC", "[", "i", "]"}], + RowBox[{"i", "!"}]}], ",", + RowBox[{"{", + RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}]}], "]"}], ",", + RowBox[{ + RowBox[{"SN", "[", "10", "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}], ",", + SuperscriptBox["10", + RowBox[{"-", "7"}]]}], "]"}]}]}]], "Input", + CellChangeTimes->{{3.843891518727322*^9, + 3.8438915325033417`*^9}},ExpressionUUID->"72b068ea-967c-499f-9ec3-\ +b16d3cfcb4ca"], Cell[BoxData[ RowBox[{ @@ -4333,7 +4725,7 @@ Cell[BoxData[ RowBox[{"SN", "[", "#", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "&"}], "/@", RowBox[{"Range", "[", - RowBox[{"2", ",", "7"}], "]"}]}]}], ";"}]], "Input", + RowBox[{"2", ",", "9"}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.8322388835042*^9, 3.832238885982521*^9}, { 3.832238918751101*^9, 3.832238980544174*^9}, {3.832239034801425*^9, 3.8322390392969837`*^9}, {3.832239749854486*^9, 3.832239844064394*^9}, { @@ -4464,9 +4856,24 @@ Cell[BoxData[ 3.843714714850075*^9}, 3.843714760674944*^9, {3.843714821732319*^9, 3.8437148226360064`*^9}, {3.843715025408133*^9, 3.8437150256479177`*^9}, { 3.84371565316367*^9, 3.843715658219496*^9}, {3.843720925237215*^9, - 3.843720926332776*^9}, {3.843721352548551*^9, 3.843721353244376*^9}}, + 3.843720926332776*^9}, {3.843721352548551*^9, 3.843721353244376*^9}, + 3.8438173538301086`*^9, {3.8438176031299477`*^9, 3.8438176032098103`*^9}, { + 3.843817791165987*^9, 3.843817792149683*^9}, {3.8438178806632757`*^9, + 3.843817880975377*^9}, {3.8438179914893293`*^9, 3.8438179916651*^9}, { + 3.843884641403369*^9, 3.84388464216958*^9}, {3.843884793485075*^9, + 3.843884793988578*^9}, {3.843884913518818*^9, 3.843884915870919*^9}, { + 3.8438852164444847`*^9, 3.843885216668468*^9}, 3.843885410289233*^9, { + 3.8438856227159853`*^9, 3.8438856236997957`*^9}, {3.843887205056616*^9, + 3.8438872051924*^9}, 3.8438933169925203`*^9, 3.843894670275365*^9, { + 3.843894940310717*^9, 3.843894940518072*^9}, {3.843895329797991*^9, + 3.843895329981269*^9}, 3.84389719658326*^9, {3.84389732692187*^9, + 3.843897328137978*^9}, {3.843897650215961*^9, 3.843897650551853*^9}, { + 3.843897735729596*^9, 3.8438977360095463`*^9}, {3.843898295125554*^9, + 3.84389829609173*^9}, 3.8439010408945436`*^9, 3.843902113361537*^9, { + 3.843902718148726*^9, 3.843902718404586*^9}, {3.843903443514246*^9, + 3.8439034437301693`*^9}, {3.8439061282357187`*^9, 3.843906128939198*^9}}, CellLabel-> - "In[447]:=",ExpressionUUID->"e351157f-b944-4cbd-bedd-89b185c451f7"], + "In[104]:=",ExpressionUUID->"e351157f-b944-4cbd-bedd-89b185c451f7"], Cell[CellGroupData[{ @@ -4475,39 +4882,367 @@ Cell[BoxData[ RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"Abs", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"test", "[", - RowBox[{"[", - RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", - RowBox[{"testN", "[", - RowBox[{"[", - RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], ",", - + RowBox[{"Transpose", "@", "testN"}], "]"}], "]"}], ",", RowBox[{"Joined", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.843711517183962*^9, 3.8437115486234922`*^9}, { - 3.8437120377524652`*^9, 3.843712041968378*^9}}, + 3.8437120377524652`*^9, 3.843712041968378*^9}, {3.8438173592547607`*^9, + 3.843817359444666*^9}, {3.8438851953645*^9, 3.8438852081640587`*^9}}, CellLabel-> - "In[448]:=",ExpressionUUID->"9437364d-2d5a-4493-b405-40564b9ff897"], + "In[105]:=",ExpressionUUID->"9437364d-2d5a-4493-b405-40564b9ff897"], Cell[BoxData[ - GraphicsBox[{{}, {{}, {}, + GraphicsBox[{{{{ + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{1., -9.121285207970635}, {1., -9.121285189674733}}], + LineBox[{{1., -9.121285189674733}, {1., -9.121285171378831}}]}}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{2., -6.757705342348684}, {2., -6.757705340627354}}], + LineBox[{{2., -6.757705340627354}, {2., -6.757705338906025}}]}}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{3., -6.72370612140098}, {3., -6.72370611973719}}], + LineBox[{{3., -6.72370611973719}, {3., -6.7237061180734}}]}}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{4., -10.109801247911934`}, {4., -10.109801198746386`}}], + LineBox[{{4., -10.109801198746386`}, {4., -10.109801149580841`}}]}}, + + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{5., -10.283603027489416`}, {5., -10.28360296899128}}], + LineBox[{{5., -10.28360296899128}, {5., -10.283602910493148`}}]}}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{6., -12.309343980073828`}, {6., -12.309343536557039`}}], + LineBox[{{6., -12.309343536557039`}, {6., -12.309343093040445`}}]}}, + + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{7., -9.807059753123985}, {7., -9.807059716800968}}], + LineBox[{{7., -9.807059716800968}, {7., -9.807059680477952}}]}}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{8., -9.089527104916078}, {8., -9.08952708719209}}], + LineBox[{{8., -9.08952708719209}, {8., -9.089527069468103}}]}}, + Antialiasing->False]}}, { + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{1., -6.569861286925891}, {1., -6.569861279793183}}], + LineBox[{{1., -6.569861279793183}, {1., -6.569861272660474}}]}}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{2., -8.554879259698145}, {2., -8.554879207777887}}], + LineBox[{{2., -8.554879207777887}, {2., -8.554879155857632}}]}}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{3., -8.31167620332549}, {3., -8.311676162614178}}], + LineBox[{{3., -8.311676162614178}, {3., -8.311676121902869}}]}}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{4., -9.32501363932119}, {4., -9.325013527170501}}], + LineBox[{{4., -9.325013527170501}, {4., -9.325013415019825}}]}}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{5., -9.311251716268238}, {5., -9.311251605650387}}], + LineBox[{{5., -9.311251605650387}, {5., -9.311251495032549}}]}}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{6., -10.545631957022044`}, {6., -10.545631576911703`}}], + LineBox[{{6., -10.545631576911703`}, {6., -10.545631196801507`}}]}}, + + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{7., -10.706355792238272`}, {7., -10.706355345851676`}}], + LineBox[{{7., -10.706355345851676`}, {7., -10.70635489946528}}]}}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{8., -10.070539748134387`}, {8., -10.070539511771225`}}], + LineBox[{{8., -10.070539511771225`}, {8., -10.070539275408118`}}]}}, + + Antialiasing->False]}}}, {{ + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{1., -9.121285171378831}, + Offset[{3, 0}, {1., -9.121285171378831}]}, {{ + 1., -9.121285171378831}, + Offset[{-3, 0}, {1., -9.121285171378831}]}, {{ + 1., -9.121285207970635}, + Offset[{3, 0}, {1., -9.121285207970635}]}, {{ + 1., -9.121285207970635}, + Offset[{-3, 0}, {1., -9.121285207970635}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{2., -6.757705338906025}, + Offset[{3, 0}, {2., -6.757705338906025}]}, {{ + 2., -6.757705338906025}, + Offset[{-3, 0}, {2., -6.757705338906025}]}, {{ + 2., -6.757705342348684}, + Offset[{3, 0}, {2., -6.757705342348684}]}, {{ + 2., -6.757705342348684}, + Offset[{-3, 0}, {2., -6.757705342348684}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{3., -6.7237061180734}, + Offset[{3, 0}, {3., -6.7237061180734}]}, {{3., -6.7237061180734}, + Offset[{-3, 0}, {3., -6.7237061180734}]}, {{ + 3., -6.72370612140098}, + Offset[{3, 0}, {3., -6.72370612140098}]}, {{ + 3., -6.72370612140098}, + Offset[{-3, 0}, {3., -6.72370612140098}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{4., -10.109801149580841`}, + Offset[{3, 0}, {4., -10.109801149580841`}]}, {{ + 4., -10.109801149580841`}, + Offset[{-3, 0}, {4., -10.109801149580841`}]}, {{ + 4., -10.109801247911934`}, + Offset[{3, 0}, {4., -10.109801247911934`}]}, {{ + 4., -10.109801247911934`}, + Offset[{-3, 0}, {4., -10.109801247911934`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{5., -10.283602910493148`}, + Offset[{3, 0}, {5., -10.283602910493148`}]}, {{ + 5., -10.283602910493148`}, + Offset[{-3, 0}, {5., -10.283602910493148`}]}, {{ + 5., -10.283603027489416`}, + Offset[{3, 0}, {5., -10.283603027489416`}]}, {{ + 5., -10.283603027489416`}, + Offset[{-3, 0}, {5., -10.283603027489416`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{6., -12.309343093040445`}, + Offset[{3, 0}, {6., -12.309343093040445`}]}, {{ + 6., -12.309343093040445`}, + Offset[{-3, 0}, {6., -12.309343093040445`}]}, {{ + 6., -12.309343980073828`}, + Offset[{3, 0}, {6., -12.309343980073828`}]}, {{ + 6., -12.309343980073828`}, + Offset[{-3, 0}, {6., -12.309343980073828`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{7., -9.807059680477952}, + Offset[{3, 0}, {7., -9.807059680477952}]}, {{ + 7., -9.807059680477952}, + Offset[{-3, 0}, {7., -9.807059680477952}]}, {{ + 7., -9.807059753123985}, + Offset[{3, 0}, {7., -9.807059753123985}]}, {{ + 7., -9.807059753123985}, + Offset[{-3, 0}, {7., -9.807059753123985}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{8., -9.089527069468103}, + Offset[{3, 0}, {8., -9.089527069468103}]}, {{ + 8., -9.089527069468103}, + Offset[{-3, 0}, {8., -9.089527069468103}]}, {{ + 8., -9.089527104916078}, + Offset[{3, 0}, {8., -9.089527104916078}]}, {{ + 8., -9.089527104916078}, + Offset[{-3, 0}, {8., -9.089527104916078}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}}, { + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{1., -6.569861272660474}, + Offset[{3, 0}, {1., -6.569861272660474}]}, {{ + 1., -6.569861272660474}, + Offset[{-3, 0}, {1., -6.569861272660474}]}, {{ + 1., -6.569861286925891}, + Offset[{3, 0}, {1., -6.569861286925891}]}, {{ + 1., -6.569861286925891}, + Offset[{-3, 0}, {1., -6.569861286925891}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{2., -8.554879155857632}, + Offset[{3, 0}, {2., -8.554879155857632}]}, {{ + 2., -8.554879155857632}, + Offset[{-3, 0}, {2., -8.554879155857632}]}, {{ + 2., -8.554879259698145}, + Offset[{3, 0}, {2., -8.554879259698145}]}, {{ + 2., -8.554879259698145}, + Offset[{-3, 0}, {2., -8.554879259698145}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{3., -8.311676121902869}, + Offset[{3, 0}, {3., -8.311676121902869}]}, {{ + 3., -8.311676121902869}, + Offset[{-3, 0}, {3., -8.311676121902869}]}, {{ + 3., -8.31167620332549}, + Offset[{3, 0}, {3., -8.31167620332549}]}, {{ + 3., -8.31167620332549}, + Offset[{-3, 0}, {3., -8.31167620332549}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{4., -9.325013415019825}, + Offset[{3, 0}, {4., -9.325013415019825}]}, {{ + 4., -9.325013415019825}, + Offset[{-3, 0}, {4., -9.325013415019825}]}, {{ + 4., -9.32501363932119}, + Offset[{3, 0}, {4., -9.32501363932119}]}, {{ + 4., -9.32501363932119}, + Offset[{-3, 0}, {4., -9.32501363932119}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{5., -9.311251495032549}, + Offset[{3, 0}, {5., -9.311251495032549}]}, {{ + 5., -9.311251495032549}, + Offset[{-3, 0}, {5., -9.311251495032549}]}, {{ + 5., -9.311251716268238}, + Offset[{3, 0}, {5., -9.311251716268238}]}, {{ + 5., -9.311251716268238}, + Offset[{-3, 0}, {5., -9.311251716268238}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{6., -10.545631196801507`}, + Offset[{3, 0}, {6., -10.545631196801507`}]}, {{ + 6., -10.545631196801507`}, + Offset[{-3, 0}, {6., -10.545631196801507`}]}, {{ + 6., -10.545631957022044`}, + Offset[{3, 0}, {6., -10.545631957022044`}]}, {{ + 6., -10.545631957022044`}, + Offset[{-3, 0}, {6., -10.545631957022044`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{7., -10.70635489946528}, + Offset[{3, 0}, {7., -10.70635489946528}]}, {{ + 7., -10.70635489946528}, + Offset[{-3, 0}, {7., -10.70635489946528}]}, {{ + 7., -10.706355792238272`}, + Offset[{3, 0}, {7., -10.706355792238272`}]}, {{ + 7., -10.706355792238272`}, + Offset[{-3, 0}, {7., -10.706355792238272`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{8., -10.070539275408118`}, + Offset[{3, 0}, {8., -10.070539275408118`}]}, {{ + 8., -10.070539275408118`}, + Offset[{-3, 0}, {8., -10.070539275408118`}]}, {{ + 8., -10.070539748134387`}, + Offset[{3, 0}, {8., -10.070539748134387`}]}, {{ + 8., -10.070539748134387`}, + Offset[{-3, 0}, {8., -10.070539748134387`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}}}}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - LineBox[{{1., -5.856599682468509}, {2., -7.466296480483548}, { - 3., -10.136275338080454`}, {4., -9.68356928742401}, { - 5., -9.90021444246551}, {6., -11.061638913188895`}, { - 7., -11.714565536474149`}, {8., -12.90430640260919}, { - 9., -12.501821175077207`}, {10., -12.454323964080883`}}]}, + LineBox[{{1., -6.489967158769578}, {2., -7.215121967968009}, { + 3., -7.288698113608662}, {4., -10.386973334685711`}, { + 5., -11.28534572892896}, {6., -12.558995043453105`}, { + 7., -11.177620554129026`}, {8., -10.162857609168995`}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - LineBox[{{1., -5.889483104795928}, {2., -7.21004959549613}, { - 3., -10.447639851985066`}, {4., -9.604873018380678}, { - 5., -9.965684093091653}, {6., -10.09045681925718}}]}}, {{}, {}}}, + LineBox[{{1., -6.411565498460083}, {2., -6.532907548464786}, { + 3., -6.469945827351774}, {4., -10.605589644489372`}, { + 5., -11.369570856135084`}, {6., -12.025882822779488`}, { + 7., -10.050531768180324`}, {8., -9.212664056505645}}]}, + {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + LineBox[{{1., -9.121285189674733}, {2., -6.757705340627354}, { + 3., -6.72370611973719}, {4., -10.109801198746386`}, { + 5., -10.28360296899128}, {6., -12.309343536557039`}, { + 7., -9.807059716800968}, {8., -9.08952708719209}}]}, + {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + LineBox[{{1., -6.569861279793183}, {2., -8.554879207777887}, { + 3., -8.311676162614178}, {4., -9.325013527170501}, { + 5., -9.311251605650387}, {6., -10.545631576911703`}, { + 7., -10.706355345851676`}, {8., -10.070539511771225`}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0., -13.455829449406343`}, + AxesOrigin->{0., -13.040066292195093`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -4528,7 +5263,7 @@ Cell[BoxData[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, - PlotRange->{{0., 10.}, {-13.455829449406343`, -5.856599682468509}}, + PlotRange->{{0., 8.}, {-13.040066292195093`, -6.411565498460083}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -4567,31 +5302,1460 @@ Cell[BoxData[ RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 0.}}, {-6.907755278982137, - FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-14.508657738524219`, + FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-13.815510557964274`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-13.122363377404328`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-12.716898269296165`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-12.429216196844383`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-12.02375108873622, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-11.86960040890896, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-11.736069016284437`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-11.618285980628055`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-10.819778284410283`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-10.41431317630212, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-10.126631103850338`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.721165995742174, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.567015315914915, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.433483923290392, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.315700887634009, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-8.517193191416238, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-8.111728083308073, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-7.824046010856292, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-7.418580902748128, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-7.264430222920869, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-7.1308988302963465`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-7.013115794639964, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-6.214608098422191, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-5.809142990314028, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-5.521460917862246, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-5.298317366548036, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-5.115995809754082, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.961845129926823, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.8283137373023015`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.710530701645918, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.605170185988091, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-3.912023005428146, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-3.506557897319982, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-3.2188758248682006`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-2.995732273553991, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}}}]]], "Output", + CellChangeTimes->{3.843899650826229*^9, 3.843899990311553*^9, + 3.843901042347114*^9, 3.843902115090934*^9, 3.843902237323751*^9, + 3.843902305947394*^9, 3.8439025626208076`*^9, 3.84390271945584*^9, + 3.8439028204136963`*^9, 3.8439029720245113`*^9, 3.843903445290597*^9, + 3.843903919014111*^9, 3.843904578141638*^9, 3.843904773766004*^9, + 3.843906130401853*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"52fbd471-7005-4ea0-b7a7-58de8c0386f3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + GraphicsBox[{{{{ + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{1., -9.121300509431483}, {1., -9.121300491135301}}], + LineBox[{{1., -9.121300491135301}, {1., -9.121300472839119}}]}}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{2., -6.758092395314931}, {2., -6.758092393592934}}], + LineBox[{{2., -6.758092393592934}, {2., -6.758092391870937}}]}}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{3., -6.723706153562308}, {3., -6.723706151898518}}], + LineBox[{{3., -6.723706151898518}, {3., -6.723706150234728}}]}}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{4., -8.184813922591276}, {4., -8.184813915419124}}], + LineBox[{{4., -8.184813915419124}, {4., -8.184813908246971}}]}}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{5., -8.725433821016727}, {5., -8.725433808701633}}], + LineBox[{{5., -8.725433808701633}, {5., -8.725433796386538}}]}}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{6., -10.032717539644475`}, {6., -10.032717494126404`}}], + LineBox[{{6., -10.032717494126404`}, {6., -10.032717448608334`}}]}}, + + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{7., -9.426431886325023}, {7., -9.426431861500705}}], + LineBox[{{7., -9.426431861500705}, {7., -9.426431836676386}}]}}, + Antialiasing->False]}}, { + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{1., -6.569860916272956}, {1., -6.5698609091402504`}}], + LineBox[{{1., -6.5698609091402504`}, {1., -6.5698609020075445`}}]}}, + + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{2., -8.553750928554969}, {2., -8.553750876693261}}], + LineBox[{{2., -8.553750876693261}, {2., -8.553750824831555}}]}}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{3., -8.311676268012866}, {3., -8.31167622730155}}], + LineBox[{{3., -8.31167622730155}, {3., -8.311676186590237}}]}}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{4., -8.643969743806707}, {4., -8.643969687048541}}], + LineBox[{{4., -8.643969687048541}, {4., -8.643969630290378}}]}}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{5., -9.620475786500148}, {5., -9.620475635797975}}], + LineBox[{{5., -9.620475635797975}, {5., -9.620475485095824}}]}}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{6., -10.905794156481525`}, {6., -10.90579361156986}}], + LineBox[{{6., -10.90579361156986}, {6., -10.905793066658493`}}]}}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{7., -9.80776011624256}, {7., -9.807759934500243}}], + LineBox[{{7., -9.807759934500243}, {7., -9.80775975275796}}]}}, + Antialiasing->False]}}}, {{ + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{1., -9.121300472839119}, + Offset[{3, 0}, {1., -9.121300472839119}]}, {{ + 1., -9.121300472839119}, + Offset[{-3, 0}, {1., -9.121300472839119}]}, {{ + 1., -9.121300509431483}, + Offset[{3, 0}, {1., -9.121300509431483}]}, {{ + 1., -9.121300509431483}, + Offset[{-3, 0}, {1., -9.121300509431483}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{2., -6.758092391870937}, + Offset[{3, 0}, {2., -6.758092391870937}]}, {{ + 2., -6.758092391870937}, + Offset[{-3, 0}, {2., -6.758092391870937}]}, {{ + 2., -6.758092395314931}, + Offset[{3, 0}, {2., -6.758092395314931}]}, {{ + 2., -6.758092395314931}, + Offset[{-3, 0}, {2., -6.758092395314931}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{3., -6.723706150234728}, + Offset[{3, 0}, {3., -6.723706150234728}]}, {{ + 3., -6.723706150234728}, + Offset[{-3, 0}, {3., -6.723706150234728}]}, {{ + 3., -6.723706153562308}, + Offset[{3, 0}, {3., -6.723706153562308}]}, {{ + 3., -6.723706153562308}, + Offset[{-3, 0}, {3., -6.723706153562308}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{4., -8.184813908246971}, + Offset[{3, 0}, {4., -8.184813908246971}]}, {{ + 4., -8.184813908246971}, + Offset[{-3, 0}, {4., -8.184813908246971}]}, {{ + 4., -8.184813922591276}, + Offset[{3, 0}, {4., -8.184813922591276}]}, {{ + 4., -8.184813922591276}, + Offset[{-3, 0}, {4., -8.184813922591276}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{5., -8.725433796386538}, + Offset[{3, 0}, {5., -8.725433796386538}]}, {{ + 5., -8.725433796386538}, + Offset[{-3, 0}, {5., -8.725433796386538}]}, {{ + 5., -8.725433821016727}, + Offset[{3, 0}, {5., -8.725433821016727}]}, {{ + 5., -8.725433821016727}, + Offset[{-3, 0}, {5., -8.725433821016727}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{6., -10.032717448608334`}, + Offset[{3, 0}, {6., -10.032717448608334`}]}, {{ + 6., -10.032717448608334`}, + Offset[{-3, 0}, {6., -10.032717448608334`}]}, {{ + 6., -10.032717539644475`}, + Offset[{3, 0}, {6., -10.032717539644475`}]}, {{ + 6., -10.032717539644475`}, + Offset[{-3, 0}, {6., -10.032717539644475`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{7., -9.426431836676386}, + Offset[{3, 0}, {7., -9.426431836676386}]}, {{ + 7., -9.426431836676386}, + Offset[{-3, 0}, {7., -9.426431836676386}]}, {{ + 7., -9.426431886325023}, + Offset[{3, 0}, {7., -9.426431886325023}]}, {{ + 7., -9.426431886325023}, + Offset[{-3, 0}, {7., -9.426431886325023}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}}, { + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{1., -6.5698609020075445`}, + Offset[{3, 0}, {1., -6.5698609020075445`}]}, {{ + 1., -6.5698609020075445`}, + Offset[{-3, 0}, {1., -6.5698609020075445`}]}, {{ + 1., -6.569860916272956}, + Offset[{3, 0}, {1., -6.569860916272956}]}, {{ + 1., -6.569860916272956}, + Offset[{-3, 0}, {1., -6.569860916272956}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{2., -8.553750824831555}, + Offset[{3, 0}, {2., -8.553750824831555}]}, {{ + 2., -8.553750824831555}, + Offset[{-3, 0}, {2., -8.553750824831555}]}, {{ + 2., -8.553750928554969}, + Offset[{3, 0}, {2., -8.553750928554969}]}, {{ + 2., -8.553750928554969}, + Offset[{-3, 0}, {2., -8.553750928554969}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{3., -8.311676186590237}, + Offset[{3, 0}, {3., -8.311676186590237}]}, {{ + 3., -8.311676186590237}, + Offset[{-3, 0}, {3., -8.311676186590237}]}, {{ + 3., -8.311676268012866}, + Offset[{3, 0}, {3., -8.311676268012866}]}, {{ + 3., -8.311676268012866}, + Offset[{-3, 0}, {3., -8.311676268012866}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{4., -8.643969630290378}, + Offset[{3, 0}, {4., -8.643969630290378}]}, {{ + 4., -8.643969630290378}, + Offset[{-3, 0}, {4., -8.643969630290378}]}, {{ + 4., -8.643969743806707}, + Offset[{3, 0}, {4., -8.643969743806707}]}, {{ + 4., -8.643969743806707}, + Offset[{-3, 0}, {4., -8.643969743806707}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{5., -9.620475485095824}, + Offset[{3, 0}, {5., -9.620475485095824}]}, {{ + 5., -9.620475485095824}, + Offset[{-3, 0}, {5., -9.620475485095824}]}, {{ + 5., -9.620475786500148}, + Offset[{3, 0}, {5., -9.620475786500148}]}, {{ + 5., -9.620475786500148}, + Offset[{-3, 0}, {5., -9.620475786500148}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{6., -10.905793066658493`}, + Offset[{3, 0}, {6., -10.905793066658493`}]}, {{ + 6., -10.905793066658493`}, + Offset[{-3, 0}, {6., -10.905793066658493`}]}, {{ + 6., -10.905794156481525`}, + Offset[{3, 0}, {6., -10.905794156481525`}]}, {{ + 6., -10.905794156481525`}, + Offset[{-3, 0}, {6., -10.905794156481525`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{7., -9.80775975275796}, + Offset[{3, 0}, {7., -9.80775975275796}]}, {{ + 7., -9.80775975275796}, + Offset[{-3, 0}, {7., -9.80775975275796}]}, {{ + 7., -9.80776011624256}, + Offset[{3, 0}, {7., -9.80776011624256}]}, {{ + 7., -9.80776011624256}, + Offset[{-3, 0}, {7., -9.80776011624256}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}}}}, {{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + LineBox[{{1., -6.489966021898523}, {2., -7.215665167203028}, { + 3., -7.288698136975417}, {4., -9.461102743289516}, { + 5., -9.940158044246665}, {6., -11.394820127656384`}, { + 7., -11.000486279273671`}}]}, + {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + LineBox[{{1., -6.411563725551999}, {2., -6.533430895550353}, { + 3., -6.469945857142263}, {4., -8.428145680841657}, { + 5., -8.901080355342984}, {6., -10.27390513702352}, { + 7., -9.80506955393521}}]}, + {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + LineBox[{{1., -9.121300491135301}, {2., -6.758092393592934}, { + 3., -6.723706151898518}, {4., -8.184813915419124}, { + 5., -8.725433808701633}, {6., -10.032717494126404`}, { + 7., -9.426431861500705}}]}, + {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + LineBox[{{1., -6.5698609091402504`}, {2., -8.553750876693261}, { + 3., -8.31167622730155}, {4., -8.643969687048541}, { + 5., -9.620475635797975}, {6., -10.90579361156986}, { + 7., -9.807759934500243}}]}}, {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0., -11.784788221249979`}, + 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., 7.}, {-11.784788221249979`, -6.411563725551999}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->FrontEndValueCache[{Automatic, + Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-11.512925464970229`, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", + TemplateBox[{"10", + RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-9.903487552536127, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", + TemplateBox[{"10", + RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-9.210340371976182, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", + TemplateBox[{"10", + RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-7.600902459542082, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", + TemplateBox[{"10", + RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-6.907755278982137, + FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-12.206072645530174`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-12.02375108873622, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-11.86960040890896, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-11.736069016284437`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-11.618285980628055`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-10.819778284410283`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-10.41431317630212, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-10.126631103850338`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.721165995742174, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.567015315914915, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.433483923290392, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.315700887634009, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-8.517193191416238, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-8.111728083308073, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-7.824046010856292, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-7.418580902748128, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-7.264430222920869, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-7.1308988302963465`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-7.013115794639964, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-6.214608098422191, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-5.809142990314028, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-5.521460917862246, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-5.298317366548036, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-5.115995809754082, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.961845129926823, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.8283137373023015`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.710530701645918, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.605170185988091, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.509860006183766, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.422848629194137, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.3428059215206005`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.268697949366879, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.199705077879927, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.135166556742356, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}}}]]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"e0fe24ec-ebe4-4875-83e4-0ee6e9334efc"], + +Cell[BoxData[ + GraphicsBox[{{{{ + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{1., -9.121300509431483}, {1., -9.121300491135301}}], + LineBox[{{1., -9.121300491135301}, {1., -9.121300472839119}}]}}, + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{2., -6.758092395314931}, {2., -6.758092393592934}}], + LineBox[{{2., -6.758092393592934}, {2., -6.758092391870937}}]}}, + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{3., -6.723706153562308}, {3., -6.723706151898518}}], + LineBox[{{3., -6.723706151898518}, {3., -6.723706150234728}}]}}, + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{4., -8.184813922591276}, {4., -8.184813915419124}}], + LineBox[{{4., -8.184813915419124}, {4., -8.184813908246971}}]}}, + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{5., -8.725433821016727}, {5., -8.725433808701633}}], + LineBox[{{5., -8.725433808701633}, {5., -8.725433796386538}}]}}, + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{6., -10.032717539644475`}, {6., -10.032717494126404`}}], + LineBox[{{6., -10.032717494126404`}, {6., -10.032717448608334`}}]}}, + + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{7., -9.426431886325023}, {7., -9.426431861500705}}], + LineBox[{{7., -9.426431861500705}, {7., -9.426431836676386}}]}}, + StripOnInput->False, + Antialiasing->False]}}, { + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{1., -6.569860916272956}, {1., -6.5698609091402504`}}], + LineBox[{{1., -6.5698609091402504`}, {1., -6.5698609020075445`}}]}}, + + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{2., -8.553750928554969}, {2., -8.553750876693261}}], + LineBox[{{2., -8.553750876693261}, {2., -8.553750824831555}}]}}, + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{3., -8.311676268012866}, {3., -8.31167622730155}}], + LineBox[{{3., -8.31167622730155}, {3., -8.311676186590237}}]}}, + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{4., -8.643969743806707}, {4., -8.643969687048541}}], + LineBox[{{4., -8.643969687048541}, {4., -8.643969630290378}}]}}, + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{5., -9.620475786500148}, {5., -9.620475635797975}}], + LineBox[{{5., -9.620475635797975}, {5., -9.620475485095824}}]}}, + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{6., -10.905794156481525`}, {6., -10.90579361156986}}], + LineBox[{{6., -10.90579361156986}, {6., -10.905793066658493`}}]}}, + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{7., -9.80776011624256}, {7., -9.807759934500243}}], + LineBox[{{7., -9.807759934500243}, {7., -9.80775975275796}}]}}, + StripOnInput->False, + Antialiasing->False]}}}, {{ + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{1., -9.121300472839119}, + Offset[{3, 0}, {1., -9.121300472839119}]}, {{ + 1., -9.121300472839119}, + Offset[{-3, 0}, {1., -9.121300472839119}]}, {{ + 1., -9.121300509431483}, + Offset[{3, 0}, {1., -9.121300509431483}]}, {{ + 1., -9.121300509431483}, + Offset[{-3, 0}, {1., -9.121300509431483}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{2., -6.758092391870937}, + Offset[{3, 0}, {2., -6.758092391870937}]}, {{ + 2., -6.758092391870937}, + Offset[{-3, 0}, {2., -6.758092391870937}]}, {{ + 2., -6.758092395314931}, + Offset[{3, 0}, {2., -6.758092395314931}]}, {{ + 2., -6.758092395314931}, + Offset[{-3, 0}, {2., -6.758092395314931}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{3., -6.723706150234728}, + Offset[{3, 0}, {3., -6.723706150234728}]}, {{ + 3., -6.723706150234728}, + Offset[{-3, 0}, {3., -6.723706150234728}]}, {{ + 3., -6.723706153562308}, + Offset[{3, 0}, {3., -6.723706153562308}]}, {{ + 3., -6.723706153562308}, + Offset[{-3, 0}, {3., -6.723706153562308}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{4., -8.184813908246971}, + Offset[{3, 0}, {4., -8.184813908246971}]}, {{ + 4., -8.184813908246971}, + Offset[{-3, 0}, {4., -8.184813908246971}]}, {{ + 4., -8.184813922591276}, + Offset[{3, 0}, {4., -8.184813922591276}]}, {{ + 4., -8.184813922591276}, + Offset[{-3, 0}, {4., -8.184813922591276}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{5., -8.725433796386538}, + Offset[{3, 0}, {5., -8.725433796386538}]}, {{ + 5., -8.725433796386538}, + Offset[{-3, 0}, {5., -8.725433796386538}]}, {{ + 5., -8.725433821016727}, + Offset[{3, 0}, {5., -8.725433821016727}]}, {{ + 5., -8.725433821016727}, + Offset[{-3, 0}, {5., -8.725433821016727}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{6., -10.032717448608334`}, + Offset[{3, 0}, {6., -10.032717448608334`}]}, {{ + 6., -10.032717448608334`}, + Offset[{-3, 0}, {6., -10.032717448608334`}]}, {{ + 6., -10.032717539644475`}, + Offset[{3, 0}, {6., -10.032717539644475`}]}, {{ + 6., -10.032717539644475`}, + Offset[{-3, 0}, {6., -10.032717539644475`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{7., -9.426431836676386}, + Offset[{3, 0}, {7., -9.426431836676386}]}, {{ + 7., -9.426431836676386}, + Offset[{-3, 0}, {7., -9.426431836676386}]}, {{ + 7., -9.426431886325023}, + Offset[{3, 0}, {7., -9.426431886325023}]}, {{ + 7., -9.426431886325023}, + Offset[{-3, 0}, {7., -9.426431886325023}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + StripOnInput->False, + Antialiasing->False]}}, { + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{1., -6.5698609020075445`}, + Offset[{3, 0}, {1., -6.5698609020075445`}]}, {{ + 1., -6.5698609020075445`}, + Offset[{-3, 0}, {1., -6.5698609020075445`}]}, {{ + 1., -6.569860916272956}, + Offset[{3, 0}, {1., -6.569860916272956}]}, {{ + 1., -6.569860916272956}, + Offset[{-3, 0}, {1., -6.569860916272956}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{2., -8.553750824831555}, + Offset[{3, 0}, {2., -8.553750824831555}]}, {{ + 2., -8.553750824831555}, + Offset[{-3, 0}, {2., -8.553750824831555}]}, {{ + 2., -8.553750928554969}, + Offset[{3, 0}, {2., -8.553750928554969}]}, {{ + 2., -8.553750928554969}, + Offset[{-3, 0}, {2., -8.553750928554969}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{3., -8.311676186590237}, + Offset[{3, 0}, {3., -8.311676186590237}]}, {{ + 3., -8.311676186590237}, + Offset[{-3, 0}, {3., -8.311676186590237}]}, {{ + 3., -8.311676268012866}, + Offset[{3, 0}, {3., -8.311676268012866}]}, {{ + 3., -8.311676268012866}, + Offset[{-3, 0}, {3., -8.311676268012866}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{4., -8.643969630290378}, + Offset[{3, 0}, {4., -8.643969630290378}]}, {{ + 4., -8.643969630290378}, + Offset[{-3, 0}, {4., -8.643969630290378}]}, {{ + 4., -8.643969743806707}, + Offset[{3, 0}, {4., -8.643969743806707}]}, {{ + 4., -8.643969743806707}, + Offset[{-3, 0}, {4., -8.643969743806707}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{5., -9.620475485095824}, + Offset[{3, 0}, {5., -9.620475485095824}]}, {{ + 5., -9.620475485095824}, + Offset[{-3, 0}, {5., -9.620475485095824}]}, {{ + 5., -9.620475786500148}, + Offset[{3, 0}, {5., -9.620475786500148}]}, {{ + 5., -9.620475786500148}, + Offset[{-3, 0}, {5., -9.620475786500148}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{6., -10.905793066658493`}, + Offset[{3, 0}, {6., -10.905793066658493`}]}, {{ + 6., -10.905793066658493`}, + Offset[{-3, 0}, {6., -10.905793066658493`}]}, {{ + 6., -10.905794156481525`}, + Offset[{3, 0}, {6., -10.905794156481525`}]}, {{ + 6., -10.905794156481525`}, + Offset[{-3, 0}, {6., -10.905794156481525`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + StripOnInput->False, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{7., -9.80775975275796}, + Offset[{3, 0}, {7., -9.80775975275796}]}, {{ + 7., -9.80775975275796}, + Offset[{-3, 0}, {7., -9.80775975275796}]}, {{ + 7., -9.80776011624256}, + Offset[{3, 0}, {7., -9.80776011624256}]}, {{ + 7., -9.80776011624256}, + Offset[{-3, 0}, {7., -9.80776011624256}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + StripOnInput->False, + Antialiasing->False]}}}}, {{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + LineBox[{{1., -6.489966021898523}, {2., -7.215665167203028}, { + 3., -7.288698136975417}, {4., -9.461102743289516}, { + 5., -9.940158044246665}, {6., -11.394820127656384`}, { + 7., -11.000486279273671`}}]}, + {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + LineBox[{{1., -6.411563725551999}, {2., -6.533430895550353}, { + 3., -6.469945857142263}, {4., -8.428145680841657}, { + 5., -8.901080355342984}, {6., -10.27390513702352}, { + 7., -9.80506955393521}}]}, + {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + LineBox[{{1., -9.121300491135301}, {2., -6.758092393592934}, { + 3., -6.723706151898518}, {4., -8.184813915419124}, { + 5., -8.725433808701633}, {6., -10.032717494126404`}, { + 7., -9.426431861500705}}]}, + {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + LineBox[{{1., -6.5698609091402504`}, {2., -8.553750876693261}, { + 3., -8.31167622730155}, {4., -8.643969687048541}, { + 5., -9.620475635797975}, {6., -10.90579361156986}, { + 7., -9.807759934500243}}]}}, {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0., -11.784788221249979`}, + 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., 7.}, {-11.784788221249979`, -6.411563725551999}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->FrontEndValueCache[{Automatic, + Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-11.512925464970229`, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", + TemplateBox[{"10", + RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-9.903487552536127, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", + TemplateBox[{"10", + RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-9.210340371976182, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", + TemplateBox[{"10", + RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-7.600902459542082, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", + TemplateBox[{"10", + RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-6.907755278982137, + FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-12.206072645530174`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-14.326336181730264`, + 0.}}, {-12.02375108873622, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-14.172185501903007`, + 0.}}, {-11.86960040890896, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-14.038654109278484`, + 0.}}, {-11.736069016284437`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-13.9208710736221, + 0.}}, {-11.618285980628055`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-13.815510557964274`, + 0.}}, {-10.819778284410283`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-13.122363377404328`, + 0.}}, {-10.41431317630212, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-12.716898269296165`, + 0.}}, {-10.126631103850338`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-12.429216196844383`, + 0.}}, {-9.721165995742174, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.567015315914915, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.433483923290392, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.315700887634009, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-8.517193191416238, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-8.111728083308073, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-7.824046010856292, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-7.418580902748128, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-7.264430222920869, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-7.1308988302963465`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-7.013115794639964, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-6.214608098422191, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-5.809142990314028, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-5.521460917862246, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-5.298317366548036, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-5.115995809754082, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.961845129926823, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.8283137373023015`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.710530701645918, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.605170185988091, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.509860006183766, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.422848629194137, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.3428059215206005`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.268697949366879, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.199705077879927, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.135166556742356, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}}}]]], "Output", + CellChangeTimes->{3.843906131111137*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"a7196a4e-63e4-4e6a-a5ab-a42437e784c3"], + +Cell[BoxData[ + GraphicsBox[{{{{ + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{1., -9.121300511883245}, {1., -9.121300493587063}}], + LineBox[{{1., -9.121300493587063}, {1., -9.12130047529088}}]}}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{2., -6.757767219044301}, {2., -6.757767217322865}}], + LineBox[{{2., -6.757767217322865}, {2., -6.757767215601429}}]}}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{3., -6.723706202755702}, {3., -6.723706201091912}}], + LineBox[{{3., -6.723706201091912}, {3., -6.723706199428122}}]}}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{4., -8.222712865453186}, {4., -8.222712858004}}], + LineBox[{{4., -8.222712858004}, {4., -8.222712850554814}}]}}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{5., -8.815392112321067}, {5., -8.81539209884677}}], + LineBox[{{5., -8.81539209884677}, {5., -8.815392085372473}}]}}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{6., -9.692525522407434}, {6., -9.692525490015242}}], + LineBox[{{6., -9.692525490015242}, {6., -9.692525457623052}}]}}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{{}, { + LineBox[{{7., -9.077567712132545}, {7., -9.077567694619262}}], + LineBox[{{7., -9.077567694619262}, {7., -9.077567677105979}}]}}, + Antialiasing->False]}}, { + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{1., -6.569860916202451}, {1., -6.569860909069745}}], + LineBox[{{1., -6.569860909069745}, {1., -6.569860901937039}}]}}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{2., -8.55469894382381}, {2., -8.554698891912913}}], + LineBox[{{2., -8.554698891912913}, {2., -8.554698840002018}}]}}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{3., -8.311676263479683}, {3., -8.311676222768368}}], + LineBox[{{3., -8.311676222768368}, {3., -8.311676182057054}}]}}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{4., -8.684410013936436}, {4., -8.684409954835912}}], + LineBox[{{4., -8.684409954835912}, {4., -8.684409895735392}}]}}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{5., -9.721836552490535}, {5., -9.721836385712086}}], + LineBox[{{5., -9.721836385712086}, {5., -9.721836218933664}}]}}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{6., -10.415390896628834`}, {6., -10.415390562936123`}}], + LineBox[{{6., -10.415390562936123`}, {6., -10.415390229243522`}}]}}, + + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{{}, { + LineBox[{{7., -9.476809391601991}, {7., -9.476809261067284}}], + LineBox[{{7., -9.476809261067284}, {7., -9.476809130532596}}]}}, + Antialiasing->False]}}}, {{ + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{1., -9.12130047529088}, + Offset[{3, 0}, {1., -9.12130047529088}]}, {{ + 1., -9.12130047529088}, + Offset[{-3, 0}, {1., -9.12130047529088}]}, {{ + 1., -9.121300511883245}, + Offset[{3, 0}, {1., -9.121300511883245}]}, {{ + 1., -9.121300511883245}, + Offset[{-3, 0}, {1., -9.121300511883245}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{2., -6.757767215601429}, + Offset[{3, 0}, {2., -6.757767215601429}]}, {{ + 2., -6.757767215601429}, + Offset[{-3, 0}, {2., -6.757767215601429}]}, {{ + 2., -6.757767219044301}, + Offset[{3, 0}, {2., -6.757767219044301}]}, {{ + 2., -6.757767219044301}, + Offset[{-3, 0}, {2., -6.757767219044301}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{3., -6.723706199428122}, + Offset[{3, 0}, {3., -6.723706199428122}]}, {{ + 3., -6.723706199428122}, + Offset[{-3, 0}, {3., -6.723706199428122}]}, {{ + 3., -6.723706202755702}, + Offset[{3, 0}, {3., -6.723706202755702}]}, {{ + 3., -6.723706202755702}, + Offset[{-3, 0}, {3., -6.723706202755702}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{4., -8.222712850554814}, + Offset[{3, 0}, {4., -8.222712850554814}]}, {{ + 4., -8.222712850554814}, + Offset[{-3, 0}, {4., -8.222712850554814}]}, {{ + 4., -8.222712865453186}, + Offset[{3, 0}, {4., -8.222712865453186}]}, {{ + 4., -8.222712865453186}, + Offset[{-3, 0}, {4., -8.222712865453186}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{5., -8.815392085372473}, + Offset[{3, 0}, {5., -8.815392085372473}]}, {{ + 5., -8.815392085372473}, + Offset[{-3, 0}, {5., -8.815392085372473}]}, {{ + 5., -8.815392112321067}, + Offset[{3, 0}, {5., -8.815392112321067}]}, {{ + 5., -8.815392112321067}, + Offset[{-3, 0}, {5., -8.815392112321067}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{6., -9.692525457623052}, + Offset[{3, 0}, {6., -9.692525457623052}]}, {{ + 6., -9.692525457623052}, + Offset[{-3, 0}, {6., -9.692525457623052}]}, {{ + 6., -9.692525522407434}, + Offset[{3, 0}, {6., -9.692525522407434}]}, {{ + 6., -9.692525522407434}, + Offset[{-3, 0}, {6., -9.692525522407434}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.560181, 0.691569, 0.194885], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{7., -9.077567677105979}, + Offset[{3, 0}, {7., -9.077567677105979}]}, {{ + 7., -9.077567677105979}, + Offset[{-3, 0}, {7., -9.077567677105979}]}, {{ + 7., -9.077567712132545}, + Offset[{3, 0}, {7., -9.077567712132545}]}, {{ + 7., -9.077567712132545}, + Offset[{-3, 0}, {7., -9.077567712132545}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}}, { + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{1., -6.569860901937039}, + Offset[{3, 0}, {1., -6.569860901937039}]}, {{ + 1., -6.569860901937039}, + Offset[{-3, 0}, {1., -6.569860901937039}]}, {{ + 1., -6.569860916202451}, + Offset[{3, 0}, {1., -6.569860916202451}]}, {{ + 1., -6.569860916202451}, + Offset[{-3, 0}, {1., -6.569860916202451}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{2., -8.554698840002018}, + Offset[{3, 0}, {2., -8.554698840002018}]}, {{ + 2., -8.554698840002018}, + Offset[{-3, 0}, {2., -8.554698840002018}]}, {{ + 2., -8.55469894382381}, + Offset[{3, 0}, {2., -8.55469894382381}]}, {{ + 2., -8.55469894382381}, + Offset[{-3, 0}, {2., -8.55469894382381}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{3., -8.311676182057054}, + Offset[{3, 0}, {3., -8.311676182057054}]}, {{ + 3., -8.311676182057054}, + Offset[{-3, 0}, {3., -8.311676182057054}]}, {{ + 3., -8.311676263479683}, + Offset[{3, 0}, {3., -8.311676263479683}]}, {{ + 3., -8.311676263479683}, + Offset[{-3, 0}, {3., -8.311676263479683}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{4., -8.684409895735392}, + Offset[{3, 0}, {4., -8.684409895735392}]}, {{ + 4., -8.684409895735392}, + Offset[{-3, 0}, {4., -8.684409895735392}]}, {{ + 4., -8.684410013936436}, + Offset[{3, 0}, {4., -8.684410013936436}]}, {{ + 4., -8.684410013936436}, + Offset[{-3, 0}, {4., -8.684410013936436}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{5., -9.721836218933664}, + Offset[{3, 0}, {5., -9.721836218933664}]}, {{ + 5., -9.721836218933664}, + Offset[{-3, 0}, {5., -9.721836218933664}]}, {{ + 5., -9.721836552490535}, + Offset[{3, 0}, {5., -9.721836552490535}]}, {{ + 5., -9.721836552490535}, + Offset[{-3, 0}, {5., -9.721836552490535}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{6., -10.415390229243522`}, + Offset[{3, 0}, {6., -10.415390229243522`}]}, {{ + 6., -10.415390229243522`}, + Offset[{-3, 0}, {6., -10.415390229243522`}]}, {{ + 6., -10.415390896628834`}, + Offset[{3, 0}, {6., -10.415390896628834`}]}, {{ + 6., -10.415390896628834`}, + Offset[{-3, 0}, {6., -10.415390896628834`}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}, + {RGBColor[0.922526, 0.385626, 0.209179], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{7., -9.476809130532596}, + Offset[{3, 0}, {7., -9.476809130532596}]}, {{ + 7., -9.476809130532596}, + Offset[{-3, 0}, {7., -9.476809130532596}]}, {{ + 7., -9.476809391601991}, + Offset[{3, 0}, {7., -9.476809391601991}]}, {{ + 7., -9.476809391601991}, + Offset[{-3, 0}, {7., -9.476809391601991}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}}}}, {{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + LineBox[{{1., -6.489966021713559}, {2., -7.215208768716306}, { + 3., -7.288698115715628}, {4., -9.49564665864202}, { + 5., -10.031875139685795`}, {6., -11.122423833857708`}, { + 7., -10.662646627124593`}}]}, + {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + LineBox[{{1., -6.4115637257254825`}, {2., -6.532991185673053}, { + 3., -6.469945881495144}, {4., -8.464244471199725}, { + 5., -8.990889850769694}, {6., -9.975434713947495}, { + 7., -9.459160825334754}}]}, + {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + LineBox[{{1., -9.121300493587063}, {2., -6.757767217322865}, { + 3., -6.723706201091912}, {4., -8.222712858004}, { + 5., -8.81539209884677}, {6., -9.692525490015242}, { + 7., -9.077567694619262}}]}, + {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + LineBox[{{1., -6.569860909069745}, {2., -8.554698891912913}, { + 3., -8.311676222768368}, {4., -8.684409954835912}, { + 5., -9.721836385712086}, {6., -10.415390562936123`}, { + 7., -9.476809261067284}}]}}, {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0., -11.491075371590878`}, + 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., 7.}, {-11.491075371590878`, -6.4115637257254825`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->FrontEndValueCache[{Automatic, + Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-11.512925464970229`, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", + TemplateBox[{"10", + RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-9.903487552536127, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", + TemplateBox[{"10", + RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-9.210340371976182, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", + TemplateBox[{"10", + RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-7.600902459542082, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", + TemplateBox[{"10", + RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-6.907755278982137, + FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-12.206072645530174`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-12.02375108873622, @@ -4673,21 +6837,11 @@ Cell[BoxData[ FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-4.605170185988091, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.912023005428146, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.506557897319982, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.2188758248682006`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-2.995732273553991, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]]], "Output", + GeneratedCell->False, + CellAutoOverwrite->False, CellChangeTimes->{{3.843711543560974*^9, 3.843711548810625*^9}, 3.843711654155059*^9, 3.843711783197234*^9, 3.843711833733796*^9, 3.843711923708846*^9, {3.8437120304228783`*^9, 3.843712042165395*^9}, @@ -4700,9 +6854,23 @@ Cell[BoxData[ 3.8437154045002117`*^9, 3.843715407952524*^9}, 3.843715440413783*^9, 3.843715496479456*^9, 3.84371565940444*^9, 3.843715915273138*^9, 3.843720927473126*^9, 3.843721354641965*^9, 3.843721386549151*^9, - 3.843721438510696*^9}, - CellLabel-> - "Out[448]=",ExpressionUUID->"82afe91a-043e-4f5a-9cc6-8913efd80837"] + 3.843721438510696*^9, {3.843817352014451*^9, 3.843817359703183*^9}, + 3.843817439548147*^9, 3.843817511428746*^9, 3.843817603991971*^9, + 3.8438177928840923`*^9, 3.843817882006366*^9, 3.843817992817379*^9, + 3.8438180527246323`*^9, 3.84388464345428*^9, 3.843884794815157*^9, + 3.843884917312611*^9, {3.843885028072453*^9, 3.84388503520802*^9}, { + 3.843885208394731*^9, 3.843885218533421*^9}, {3.8438854076362*^9, + 3.843885411587887*^9}, 3.843885625131513*^9, 3.843885794199828*^9, + 3.843885920288169*^9, 3.843886007661696*^9, 3.843886161448415*^9, + 3.843886265098729*^9, 3.8438872065668983`*^9, 3.843887405853435*^9, + 3.8438876330709953`*^9, 3.843891375217598*^9, 3.84389331791212*^9, + 3.8438936046252003`*^9, {3.843894662024473*^9, 3.843894672096818*^9}, + 3.843894813598171*^9, 3.843894941655048*^9, 3.843895331456686*^9, + 3.843895501705*^9, 3.8438957712514467`*^9, 3.843895830317987*^9, + 3.843895919057516*^9, 3.843895981763586*^9, 3.84389617846423*^9, + 3.843896531704711*^9, 3.8438967126046953`*^9, + 3.843897070582777*^9},ExpressionUUID->"d5f785dd-7143-46c7-bfa3-\ +e26fbd2f3c6e"] }, Open ]], Cell[CellGroupData[{ @@ -35829,7 +37997,7 @@ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"H", "[", "2", "]"}], "=", - RowBox[{"h", "[", "0", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"h", "[", "1", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"NF", "[", "2", "]"}], "=", "2"}], ";"}], "\[IndentingNewLine]", @@ -35842,27 +38010,30 @@ Cell[BoxData[{ RowBox[{"S", "[", "2", "]"}], "=", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.2113984981855266`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.18040968433960122`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.2218190647119276`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.1981515261044843`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.1295236147887016`"}]}], ",", + RowBox[{"-", "2.3933801431845954`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2447338967832837`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5218210757148685`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4997458274069301`"}]}], - "}"}]}], ";"}]}], "Input", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4558675349680261`"}], ",", + RowBox[{ + RowBox[{"gC", "[", "1", "]"}], "\[Rule]", + RowBox[{"-", "0.014069612364099534`"}]}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.842517705895237*^9, 3.842517708639202*^9}, { 3.8431067504279013`*^9, 3.8431067566565113`*^9}, {3.843107733421461*^9, 3.8431077537898293`*^9}, {3.8431079886821957`*^9, 3.8431079919621267`*^9}, { 3.843118081491584*^9, 3.8431180928836308`*^9}, {3.843290605662134*^9, - 3.843290619902092*^9}}, - CellLabel->"In[10]:=",ExpressionUUID->"afc540ea-ef9a-493b-9583-ed901e3ac580"], + 3.843290619902092*^9}, {3.8439049063728952`*^9, + 3.843904910706853*^9}},ExpressionUUID->"afc540ea-ef9a-493b-9583-\ +ed901e3ac580"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"H", "[", "3", "]"}], "=", - RowBox[{"h", "[", "1", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"h", "[", "2", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"NF", "[", "3", "]"}], "=", "2"}], ";"}], "\[IndentingNewLine]", @@ -35875,30 +38046,35 @@ Cell[BoxData[{ RowBox[{"S", "[", "3", "]"}], "=", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3497610103287452`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19612583387698465`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.3312829236892874`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.1990484241151759`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.199941956875278`"}]}], ",", + RowBox[{"-", "2.2569953198152035`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2401996118460512`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3076667198757734`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.39028245506270876`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.39615702441258427`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.014909109302639726`"}]}]}], "}"}]}], ";"}]}], "Input", + RowBox[{"-", "0.014413476770888844`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{"-", "0.00023301374253497338`"}]}]}], "}"}]}], ";"}]}], "Input",\ + CellChangeTimes->{{3.8425176933429823`*^9, 3.842517695263131*^9}, { 3.843106785276181*^9, 3.843106789804263*^9}, {3.843107740365707*^9, 3.8431077546377697`*^9}, {3.843107995522175*^9, 3.8431079986742268`*^9}, { 3.843118100443939*^9, 3.843118103571854*^9}, {3.843290613070524*^9, - 3.843290628974379*^9}}, - CellLabel->"In[14]:=",ExpressionUUID->"cdb9b75d-4c04-4ef5-9969-9e72079c5d58"], + 3.843290628974379*^9}, {3.843904951416504*^9, + 3.8439049538617773`*^9}},ExpressionUUID->"cdb9b75d-4c04-4ef5-9969-\ +9e72079c5d58"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"H", "[", "4", "]"}], "=", - RowBox[{"h", "[", "2", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"h", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"NF", "[", "4", "]"}], "=", "3"}], ";"}], "\[IndentingNewLine]", @@ -35911,35 +38087,39 @@ Cell[BoxData[{ RowBox[{"S", "[", "4", "]"}], "=", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.449037399770833`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1956310634797022`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.3310596746630394`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19891824286627846`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.2433174743125224`"}]}], ",", + RowBox[{"-", "2.361502215519321`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2964274810848326`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.460584099622719`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3707956103394163`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3071976169866144`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.10871082597145154`"}]}], ",", + RowBox[{"-", "0.026882257199972816`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.0031747260088083834`"}]}], ",", + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.033212060175714056`"}], + ",", RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.028926044331647412`"}]}]}], "}"}]}], ";"}]}], "Input", + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.004370268382751191`"}]}], ",", + RowBox[{ + RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.03233338210075686`"}]}], + "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.8425176829426823`*^9, 3.842517685070943*^9}, 3.843106817072406*^9, {3.843106854949473*^9, 3.843106855109346*^9}, { 3.8431077439737988`*^9, 3.8431077555576477`*^9}, {3.8431080011299343`*^9, 3.843108005474188*^9}, {3.843118107683989*^9, 3.8431181126276007`*^9}, { - 3.8432906307745457`*^9, 3.843290635254532*^9}}, - CellLabel->"In[18]:=",ExpressionUUID->"e7739266-4bd1-4804-846a-5133bf45bfe6"], + 3.8432906307745457`*^9, 3.843290635254532*^9}, {3.843904974326128*^9, + 3.843904999230419*^9}},ExpressionUUID->"e7739266-4bd1-4804-846a-\ +5133bf45bfe6"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"H", "[", "5", "]"}], "=", - RowBox[{"h", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"h", "[", "4", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"NF", "[", "5", "]"}], "=", "3"}], ";"}], "\[IndentingNewLine]", @@ -35952,38 +38132,43 @@ Cell[BoxData[{ RowBox[{"S", "[", "5", "]"}], "=", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4718997870644017`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19553388787373974`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.4174499095572046`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19623837275274397`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.2320560452062117`"}]}], ",", + RowBox[{"-", "2.3844047782650346`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2804295612857017`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.4945044321287986`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3631783861327246`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4827425954641644`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.11398650090024323`"}]}], ",", + RowBox[{"-", "0.22253679627867537`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.0031668813000029347`"}]}], ",", + RowBox[{"-", "0.03607696344672339`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.006550889829736402`"}], + ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.0289243859800091`"}]}], ",", + RowBox[{"-", "0.09566783498205164`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "8.857419924924222`*^-7"}]}], - "}"}]}], ";"}]}], "Input", + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", + RowBox[{"-", "0.0006927978972384512`"}]}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.842517669022213*^9, 3.842517671974608*^9}, { 3.843106881048986*^9, 3.8431068851980743`*^9}, {3.8431077463337507`*^9, 3.843107758654028*^9}, {3.843108007874248*^9, 3.843108011866128*^9}, { 3.843118116044188*^9, 3.843118119540159*^9}, {3.843290637446662*^9, - 3.8432906406465178`*^9}}, - CellLabel->"In[22]:=",ExpressionUUID->"e0c29aa2-30dd-4eb9-990b-b4abf8865eeb"], + 3.8432906406465178`*^9}, {3.843905016790925*^9, 3.843905017409232*^9}, { + 3.8439050678798122`*^9, + 3.843905067959853*^9}},ExpressionUUID->"e0c29aa2-30dd-4eb9-990b-\ +b4abf8865eeb"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"H", "[", "6", "]"}], "=", - RowBox[{"h", "[", "4", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"h", "[", "5", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"NF", "[", "6", "]"}], "=", "4"}], ";"}], "\[IndentingNewLine]", @@ -35996,45 +38181,48 @@ Cell[BoxData[{ RowBox[{"S", "[", "6", "]"}], "=", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.435757396344316`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19736542866520598`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.3693245643432388`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19714303679801537`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.3981472287670393`"}]}], ",", + RowBox[{"-", "2.4337573590963326`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5091177600111922`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.559970006062279`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.39200424741821555`"}], ",", - + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4606135324822247`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.19533215126551273`"}]}], ",", + RowBox[{"-", "0.20059393001573939`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.029301113923157842`"}], - ",", + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{"-", "0.02621063711050144`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", + RowBox[{"-", "0.01488474127424088`"}]}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.09002270806803321`"}]}], ",", + RowBox[{"-", "0.054064411318565486`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.003990623031590741`"}], + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.004613876176117714`"}], ",", RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.00011912993661574494`"}]}], ",", + RowBox[{"A", "[", "4", "]"}], "\[Rule]", + RowBox[{"-", "0.014420057543619254`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.01723324643602473`"}]}], - "}"}]}], ";"}]}], "Input", + RowBox[{"gC", "[", "5", "]"}], "\[Rule]", + RowBox[{"-", "0.000570797961625302`"}]}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.842517659446084*^9, 3.842517661454425*^9}, { 3.8431071085894737`*^9, 3.843107110873993*^9}, {3.843107749061781*^9, 3.843107761053968*^9}, {3.8431080144985437`*^9, 3.843108018722546*^9}, { 3.84311812190835*^9, 3.843118129636252*^9}, {3.8432906441747217`*^9, - 3.843290647414538*^9}}, - CellLabel->"In[26]:=",ExpressionUUID->"80a3d021-bc5a-410c-8e70-089bc45d33bc"], + 3.843290647414538*^9}, {3.843905062655871*^9, + 3.84390506544761*^9}},ExpressionUUID->"80a3d021-bc5a-410c-8e70-\ +089bc45d33bc"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"H", "[", "7", "]"}], "=", - RowBox[{"h", "[", "5", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"h", "[", "6", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"NF", "[", "7", "]"}], "=", "4"}], ";"}], "\[IndentingNewLine]", @@ -36047,40 +38235,45 @@ Cell[BoxData[{ RowBox[{"S", "[", "7", "]"}], "=", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4323668647862395`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19730236197017473`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.3414183177738805`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19689919009832824`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.42285516121067`"}]}], ",", + RowBox[{"-", "2.4797396545378896`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5453691206248084`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6274015230688736`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4131963567936482`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5212082982033303`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.22076846011611728`"}]}], ",", + RowBox[{"-", "0.23880901356745154`"}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{"-", "0.028717858615113008`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.036245425139259865`"}], + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.0003968707731909203`"}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.12160894976267282`"}]}], ",", + RowBox[{"-", "0.11829440269500721`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.010119794698736752`"}], + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0022181153155482465`"}], ",", RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.001143426002373578`"}]}], ",", + RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.0014665587532066901`"}], + ",", RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.026345666471523435`"}], ",", + RowBox[{"gC", "[", "5", "]"}], "\[Rule]", + RowBox[{"-", "0.0005511982630786123`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.00010094806835660409`"}]}], + RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00003213793548002806`"}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.8425176452301397`*^9, 3.842517647662315*^9}, { 3.843107494204513*^9, 3.8431074966811*^9}, {3.843107763382147*^9, 3.8431077653659983`*^9}, {3.843108021298802*^9, 3.843108027138801*^9}, { 3.843118132972484*^9, 3.843118139388473*^9}, {3.8432906497668543`*^9, - 3.8432906528309307`*^9}}, - CellLabel->"In[30]:=",ExpressionUUID->"1d95a4fa-b7b4-4d6f-9695-22a28602846c"], + 3.8432906528309307`*^9}, {3.843905095434697*^9, + 3.843905098760456*^9}},ExpressionUUID->"1d95a4fa-b7b4-4d6f-9695-\ +22a28602846c"], Cell[BoxData[{ RowBox[{ @@ -36137,7 +38330,7 @@ Cell[BoxData[{ 3.843107771254263*^9}, {3.843108030050688*^9, 3.843108034522934*^9}, 3.843113892598907*^9, {3.843118143540801*^9, 3.843118148388715*^9}, { 3.843290655503104*^9, 3.843290659903*^9}}, - CellLabel->"In[34]:=",ExpressionUUID->"f3f292b7-6741-4c30-b2ac-b80cd82a3eaa"], + CellLabel->"In[30]:=",ExpressionUUID->"f3f292b7-6741-4c30-b2ac-b80cd82a3eaa"], Cell[BoxData[{ RowBox[{ @@ -36199,7 +38392,7 @@ Cell[BoxData[{ 3.8431077748302317`*^9}, {3.843108036770996*^9, 3.8431080424510937`*^9}, 3.843113534568307*^9, {3.843118150468753*^9, 3.843118156188863*^9}, { 3.8432906617511663`*^9, 3.843290666751149*^9}}, - CellLabel->"In[38]:=",ExpressionUUID->"b6e4cc8e-edfb-44a9-a3e6-a4d9a234eb0c"], + CellLabel->"In[34]:=",ExpressionUUID->"b6e4cc8e-edfb-44a9-a3e6-a4d9a234eb0c"], Cell[BoxData[{ RowBox[{ @@ -36263,7 +38456,7 @@ Cell[BoxData[{ CellChangeTimes->{{3.843117659420776*^9, 3.843117674500119*^9}, { 3.843118159212996*^9, 3.843118167876886*^9}, {3.843290669023036*^9, 3.843290675335219*^9}}, - CellLabel->"In[42]:=",ExpressionUUID->"2f0f517e-a884-4fb5-aa03-33b1e6e8e890"], + CellLabel->"In[38]:=",ExpressionUUID->"2f0f517e-a884-4fb5-aa03-33b1e6e8e890"], Cell[CellGroupData[{ @@ -36293,65 +38486,48 @@ Cell[BoxData[{ 3.843637947278*^9}, {3.8436380066001596`*^9, 3.843638007279107*^9}, { 3.8437109210522957`*^9, 3.843710921508013*^9}, {3.8437139963254013`*^9, 3.843714000652972*^9}, {3.843728089015019*^9, 3.843728091110979*^9}}, - CellLabel->"",ExpressionUUID->"990c0156-b917-447b-8ea2-39f8d0d504d1"], + CellLabel->"In[42]:=",ExpressionUUID->"990c0156-b917-447b-8ea2-39f8d0d504d1"], Cell[BoxData[ - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3913474674915387`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19655731479519636`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.543160499630645`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.7202774828753598`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5931379821475696`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.3590042949089068`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.0020294361484579516`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.28632916219030613`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.05284520770144243`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.0200782236788562`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.07340497669659873`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.0034133036368888883`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", - RowBox[{"-", "0.00021383325303668766`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.007299574480334138`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "\[Rule]", - RowBox[{"-", "0.00002495169711421392`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "3.6299187273213372`*^-6"}], - ",", - RowBox[{ - RowBox[{"A", "[", "6", "]"}], "\[Rule]", "0.0000294160793005649`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "9", "]"}], "\[Rule]", - RowBox[{"-", "1.2350236293412953`*^-8"}]}]}], "}"}]], "Output", + TemplateBox[{ + "Import", "nffil", + "\"File \\!\\(\\*RowBox[{\\\"\\\\\\\"~/doc/research/first_order_\ +singularities/mma/11.wl\\\\\\\"\\\"}]\\) not found during \\!\\(\\*RowBox[{\\\ +\"Import\\\"}]\\).\"", 2, 45, 1, 31653629920828211403, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843811415853397*^9, 3.843811723974409*^9, + 3.843882978496212*^9}, + CellLabel-> + "During evaluation of \ +In[42]:=",ExpressionUUID->"69ee9008-fa6c-4744-a2bd-60ddf5a1bb01"], + +Cell[BoxData[ + TemplateBox[{ + "Part", "partd", + "\"Part specification \\!\\(\\*RowBox[{\\\"$Failed\\\", \\\"\ +\[LeftDoubleBracket]\\\", \\\"2\\\", \\\"\[RightDoubleBracket]\\\"}]\\) is \ +longer than depth of object.\"", 2, 45, 2, 31653629920828211403, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.843811415853397*^9, 3.843811723974409*^9, + 3.843882978530964*^9}, + CellLabel-> + "During evaluation of \ +In[42]:=",ExpressionUUID->"c7e61c4f-b7ba-492b-8830-f4e3d86baa49"], + +Cell[BoxData[ + RowBox[{"$Failed", "\[LeftDoubleBracket]", "2", + "\[RightDoubleBracket]"}]], "Output", CellChangeTimes->{{3.843544451672003*^9, 3.84354445475845*^9}, { 3.843625346157543*^9, 3.8436253531800337`*^9}, 3.8436379476027603`*^9, 3.843638007572206*^9, 3.84371093111165*^9, 3.843714001788314*^9, - 3.84372151320288*^9}, - CellLabel->"Out[53]=",ExpressionUUID->"a03c0e53-f1d6-465c-bec4-40d66af78dd1"] + 3.84372151320288*^9, 3.843811415896719*^9, 3.8438117240464973`*^9, + 3.843882978538393*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"9bf62f5f-7a6f-4af7-bd94-6121ead0f3e4"] }, Open ]] }, Open ]] }, Open ]] }, -WindowSize->{635.25, 1060.5}, +WindowSize->{955.5, 1060.5}, WindowMargins->{{2.25, Automatic}, {2.25, Automatic}}, FrontEndVersion->"12.3 for Linux x86 (64-bit) (July 9, 2021)", StyleDefinitions->"Default.nb", @@ -36368,295 +38544,303 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[558, 20, 996, 16, 24, "Input",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"], -Cell[1557, 38, 545, 13, 41, "Input",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"], -Cell[2105, 53, 463, 11, 24, "Input",ExpressionUUID->"2fdffe9d-9220-4c97-866d-0a1f5e3200a1"], -Cell[2571, 66, 331, 7, 24, "Input",ExpressionUUID->"8f4d55d2-f559-4382-a0b2-1a4eb0ce0b9a"], +Cell[558, 20, 991, 15, 24, "Input",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"], +Cell[1552, 37, 545, 13, 41, "Input",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"], +Cell[2100, 52, 463, 11, 24, "Input",ExpressionUUID->"2fdffe9d-9220-4c97-866d-0a1f5e3200a1"], +Cell[2566, 65, 331, 7, 24, "Input",ExpressionUUID->"8f4d55d2-f559-4382-a0b2-1a4eb0ce0b9a"], Cell[CellGroupData[{ -Cell[2927, 77, 203, 4, 50, "Section",ExpressionUUID->"5d9c76ab-41db-4d8f-b32b-3ceed5a29b07"], +Cell[2922, 76, 203, 4, 50, "Section",ExpressionUUID->"5d9c76ab-41db-4d8f-b32b-3ceed5a29b07"], Cell[CellGroupData[{ -Cell[3155, 85, 163, 3, 41, "Subsection",ExpressionUUID->"04b3434a-7ae1-4e59-9492-797bc05d141c"], -Cell[3321, 90, 218, 5, 22, "Input",ExpressionUUID->"c2736e8b-b9a2-44e3-be7a-35f424888e11"], +Cell[3150, 84, 163, 3, 41, "Subsection",ExpressionUUID->"04b3434a-7ae1-4e59-9492-797bc05d141c"], Cell[CellGroupData[{ -Cell[3564, 99, 845, 23, 22, "Input",ExpressionUUID->"f1779a9a-9c6a-4c22-8f2d-5e3f6320dd18"], -Cell[4412, 124, 1649, 39, 58, "Output",ExpressionUUID->"7b6a0ec1-17b1-42fe-be1f-bc27b407eb0f"] +Cell[3338, 91, 5830, 89, 75, "Input",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"], +Cell[9171, 182, 17304, 369, 183, "Output",ExpressionUUID->"fd0e31c4-3576-413b-be64-c5e2cf272a90"] }, Open ]], Cell[CellGroupData[{ -Cell[6098, 168, 3710, 68, 71, "Input",ExpressionUUID->"a326d1ad-f5a3-49d5-9b86-3a79e4cb291c"], -Cell[9811, 238, 2327, 33, 25, "Output",ExpressionUUID->"1560e838-31e7-482c-8c61-6b82790b3283"] +Cell[26512, 556, 5479, 85, 75, "Input",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"], +Cell[31994, 643, 9111, 201, 181, "Output",ExpressionUUID->"c9264244-18b4-4c6b-9045-ac63927b7b1f"] }, Open ]], Cell[CellGroupData[{ -Cell[12175, 276, 702, 19, 24, "Input",ExpressionUUID->"8eab97ea-e359-40c0-9935-fde12f7b604a"], -Cell[12880, 297, 1879, 32, 44, "Output",ExpressionUUID->"44b44280-02dd-432c-a93d-a6c18e60d889"] +Cell[41142, 849, 6248, 102, 92, "Input",ExpressionUUID->"b80d3f22-eb0b-4407-8e47-23e8047f75de"], +Cell[47393, 953, 19822, 378, 177, "Output",ExpressionUUID->"038f4708-742c-4509-a5bf-780abe3ef8e7"] }, Open ]], Cell[CellGroupData[{ -Cell[14796, 334, 5472, 82, 75, "Input",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"], -Cell[20271, 418, 15046, 323, 183, "Output",ExpressionUUID->"b42c1f8b-0961-4720-9780-938a106ee199"] +Cell[67252, 1336, 4323, 86, 73, "Input",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], +Cell[71578, 1424, 1504, 27, 25, "Output",ExpressionUUID->"25c2add9-9dfd-4b3a-b5ac-e3f767f84a88"] }, Open ]], Cell[CellGroupData[{ -Cell[35354, 746, 5689, 93, 92, "Input",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"], -Cell[41046, 841, 7322, 165, 181, "Output",ExpressionUUID->"b1622600-354e-42b3-a170-00c398736669"] +Cell[73119, 1456, 1206, 34, 24, "Input",ExpressionUUID->"9acf3167-ed91-4bdd-8d54-9d984831fbe8"], +Cell[74328, 1492, 910, 20, 25, "Output",ExpressionUUID->"b059d7c9-8735-422e-bae9-b5aebf0ffb94"] }, Open ]], Cell[CellGroupData[{ -Cell[48405, 1011, 5622, 87, 75, "Input",ExpressionUUID->"b80d3f22-eb0b-4407-8e47-23e8047f75de"], -Cell[54030, 1100, 17155, 326, 177, "Output",ExpressionUUID->"51d9ee8e-4cc3-4bcc-b254-f53467cac03f"] +Cell[75275, 1517, 3447, 72, 56, "Input",ExpressionUUID->"f3f44ab5-ab9d-423b-af35-070d428c3a9d"], +Cell[78725, 1591, 974, 22, 25, "Output",ExpressionUUID->"adca116b-4344-4f24-a113-50dc12d9cdc0"] }, Open ]], -Cell[71200, 1429, 227, 4, 22, "Input",ExpressionUUID->"c6e9f8ad-3b09-4a82-be20-5c15306095f7"], Cell[CellGroupData[{ -Cell[71452, 1437, 2524, 48, 24, "Input",ExpressionUUID->"d7e7fb71-cf24-4ff4-8b55-30964f0ae08c"], -Cell[73979, 1487, 594, 13, 22, "Message",ExpressionUUID->"878453de-b9da-4a3e-bff5-d563e58c984a"], -Cell[74576, 1502, 594, 13, 22, "Message",ExpressionUUID->"543aa25e-0c46-4263-8219-3c42c63c6826"], -Cell[75173, 1517, 593, 13, 22, "Message",ExpressionUUID->"a91008f4-a66c-4e00-9a19-3c8c337ea4fd"], -Cell[75769, 1532, 534, 12, 22, "Message",ExpressionUUID->"708ce0ba-7451-4a83-9278-29373ec439a0"], -Cell[76306, 1546, 3032, 54, 44, "Output",ExpressionUUID->"23be90ec-d684-4f05-9496-222b14c870b4"] +Cell[79736, 1618, 1156, 33, 24, "Input",ExpressionUUID->"fbfe9aac-852b-4f12-afa8-eefd1a141395"], +Cell[80895, 1653, 513, 11, 22, "Message",ExpressionUUID->"e11549f0-1f54-41a7-8da7-7bf815c07d68"], +Cell[81411, 1666, 512, 11, 22, "Message",ExpressionUUID->"05deb4f0-b888-4dc3-9800-9d5c62cb046e"], +Cell[81926, 1679, 514, 11, 22, "Message",ExpressionUUID->"52600ce7-1c12-4f65-aeda-9fbca14e912b"], +Cell[82443, 1692, 452, 10, 22, "Message",ExpressionUUID->"43270502-9561-4d5d-bcb4-8fd6e6b0442c"], +Cell[82898, 1704, 961, 23, 25, "Output",ExpressionUUID->"f81b797b-dfad-48f1-907d-78f33085f565"] }, Open ]], Cell[CellGroupData[{ -Cell[79375, 1605, 2100, 36, 24, "Input",ExpressionUUID->"71729ee5-357f-4cce-b306-ed7f0fd8693f"], -Cell[81478, 1643, 3031, 54, 42, "Output",ExpressionUUID->"4b914b17-9403-41a8-939a-2d765b5354c6"] +Cell[83896, 1732, 3409, 73, 73, "Input",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"], +Cell[87308, 1807, 3542, 59, 42, "Output",ExpressionUUID->"c852ba83-1f1c-4b79-b8fa-4d7f006f943a"] }, Open ]], -Cell[84524, 1700, 230, 5, 22, "Input",ExpressionUUID->"7ef8ee62-41a4-45fa-8dac-fae83c979244"], Cell[CellGroupData[{ -Cell[84779, 1709, 425, 12, 22, "Input",ExpressionUUID->"9a00ab65-b447-44be-a4e3-b4d39b092b44"], -Cell[85207, 1723, 186, 3, 25, "Output",ExpressionUUID->"2666b194-e53c-4199-bac1-60cb3cc85756"] +Cell[90887, 1871, 1154, 33, 24, "Input",ExpressionUUID->"1430cc9e-c966-4177-ab4c-6b03a664eaa5"], +Cell[92044, 1906, 1125, 27, 42, "Output",ExpressionUUID->"dce9f6c3-46a7-4528-b391-b8c13ddc1c07"] }, Open ]], Cell[CellGroupData[{ -Cell[85430, 1731, 2889, 56, 56, "Input",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], -Cell[88322, 1789, 1160, 23, 44, "Output",ExpressionUUID->"a41954f4-33ee-4255-936e-409c32471613"] +Cell[93206, 1938, 3645, 75, 56, "Input",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"], +Cell[96854, 2015, 588, 12, 22, "Message",ExpressionUUID->"89cb3b9c-6733-4f30-ba7d-b92bea024a61"], +Cell[97445, 2029, 587, 12, 22, "Message",ExpressionUUID->"f911b253-4922-487d-ab9d-6d0faee4e930"], +Cell[98035, 2043, 586, 12, 22, "Message",ExpressionUUID->"1ba81a51-6150-44c3-af7c-c67dc7bede91"], +Cell[98624, 2057, 526, 11, 22, "Message",ExpressionUUID->"5ac016e9-31c7-4f0e-b8aa-afb81cf2edfa"], +Cell[99153, 2070, 3451, 61, 42, "Output",ExpressionUUID->"82ba02fc-cd21-4782-bcf6-ebf4b2cd722e"] }, Open ]], Cell[CellGroupData[{ -Cell[89519, 1817, 671, 18, 24, "Input",ExpressionUUID->"3515a135-edc1-4f4f-8610-378ace64a9b7"], -Cell[90193, 1837, 1057, 23, 42, "Output",ExpressionUUID->"1930b4b2-6535-4d94-8958-2ad399c4c17b"] +Cell[102641, 2136, 1303, 35, 24, "Input",ExpressionUUID->"dd7f1593-dabe-4540-be1e-78e3cac46ee6"], +Cell[103947, 2173, 443, 10, 22, "Message",ExpressionUUID->"cc8f974a-d219-4e9e-b4a7-ca4badd961fd"], +Cell[104393, 2185, 442, 10, 22, "Message",ExpressionUUID->"d99d9c04-cf49-4c56-b36c-84ebccfe63bf"], +Cell[104838, 2197, 443, 10, 22, "Message",ExpressionUUID->"2e1c1911-4ab1-4ed3-afad-22d62a014078"], +Cell[105284, 2209, 483, 10, 22, "Message",ExpressionUUID->"b5df8d1e-6393-4c91-94c5-90d09ee043df"], +Cell[105770, 2221, 1370, 30, 42, "Output",ExpressionUUID->"c1072ef9-8223-412d-854b-b7316a190ce7"] }, Open ]], Cell[CellGroupData[{ -Cell[91287, 1865, 2571, 52, 56, "Input",ExpressionUUID->"29398383-9203-4cf6-aabb-1d3fe15a5894"], -Cell[93861, 1919, 3021, 52, 44, "Output",ExpressionUUID->"6a6bc5ce-5b34-459f-a22c-941737cf0565"] +Cell[107177, 2256, 1332, 36, 24, "Input",ExpressionUUID->"df6fc5c6-1a03-486b-a4d4-7311da4859de"], +Cell[108512, 2294, 1408, 32, 42, "Output",ExpressionUUID->"86750074-4a9a-430f-b741-5590432396da"] }, Open ]], Cell[CellGroupData[{ -Cell[96919, 1976, 754, 21, 24, "Input",ExpressionUUID->"85da52aa-1039-4e9e-bfb7-957631df3f51"], -Cell[97676, 1999, 515, 12, 22, "Message",ExpressionUUID->"2fe14a28-35b5-494c-b582-a29acfb73210"], -Cell[98194, 2013, 510, 11, 22, "Message",ExpressionUUID->"c3673e99-ca9e-49c1-8e5b-21d883c4ef41"], -Cell[98707, 2026, 512, 11, 22, "Message",ExpressionUUID->"ed4d4442-9e2c-4228-aa01-9be8e1ebdab4"], -Cell[99222, 2039, 509, 11, 22, "Message",ExpressionUUID->"f82cd4be-bb5b-4c28-a352-6894793aca94"], -Cell[99734, 2052, 1009, 25, 42, "Output",ExpressionUUID->"5dd79a11-570c-44ec-9746-87e670b03ee1"] +Cell[109957, 2331, 3942, 81, 73, "Input",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"], +Cell[113902, 2414, 3828, 69, 42, "Output",ExpressionUUID->"9d6b6399-b8b5-4c11-b0c4-1878fb7107b3"] }, Open ]], Cell[CellGroupData[{ -Cell[100780, 2082, 2611, 54, 56, "Input",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"], -Cell[103394, 2138, 3120, 56, 42, "Output",ExpressionUUID->"9c259a8c-bce3-49eb-b1dd-e7bcabedadcf"] +Cell[117767, 2488, 1180, 34, 24, "Input",ExpressionUUID->"bf55aae6-3b22-44f1-8c18-45a5a02a688a"], +Cell[118950, 2524, 468, 11, 22, "Message",ExpressionUUID->"2b1c0138-6295-41cb-b72d-9bdcf95faa22"], +Cell[119421, 2537, 471, 11, 22, "Message",ExpressionUUID->"1968cc21-938c-46cc-9eba-9e9fbf2d536b"], +Cell[119895, 2550, 469, 11, 22, "Message",ExpressionUUID->"54327536-e923-4a6d-bd8d-521163c69b38"], +Cell[120367, 2563, 507, 11, 22, "Message",ExpressionUUID->"f27864d6-3131-4c6c-85e0-07d0f801952b"], +Cell[120877, 2576, 1513, 36, 42, "Output",ExpressionUUID->"86baa30e-786d-4147-9230-63ec16e908fd"] }, Open ]], Cell[CellGroupData[{ -Cell[106551, 2199, 2729, 56, 56, "Input",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"], -Cell[109283, 2257, 1839, 27, 25, "Output",ExpressionUUID->"430992b3-b545-4ad5-857e-1cd7f9e0f50a"] +Cell[122427, 2617, 1256, 35, 24, "Input",ExpressionUUID->"311c4189-0d61-4e5b-abce-a18bf11d30d5"], +Cell[123686, 2654, 463, 11, 22, "Message",ExpressionUUID->"bf2e9b59-9481-4751-9dda-95c2a44ef88f"], +Cell[124152, 2667, 456, 10, 22, "Message",ExpressionUUID->"e2c7bc36-ac17-4833-a5e2-708377ab366a"], +Cell[124611, 2679, 461, 11, 22, "Message",ExpressionUUID->"a54a6f29-b6bb-42b1-9ef1-c7391454ddd3"], +Cell[125075, 2692, 453, 10, 22, "Message",ExpressionUUID->"c84a7a7a-bcb6-4589-aa5b-07a8eb37ece5"], +Cell[125531, 2704, 1559, 37, 42, "Output",ExpressionUUID->"04ebe322-fb32-4e84-98d4-e2cca00e038f"] }, Open ]], Cell[CellGroupData[{ -Cell[111159, 2289, 2969, 59, 56, "Input",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"], -Cell[114131, 2350, 460, 10, 22, "Message",ExpressionUUID->"b628b1ce-8f72-4517-8684-e5b37106425b"], -Cell[114594, 2362, 461, 10, 22, "Message",ExpressionUUID->"21f24859-445c-4727-9669-cfd60008d6c9"], -Cell[115058, 2374, 461, 10, 22, "Message",ExpressionUUID->"34862ce4-ccc3-473a-983f-83c9d41299b9"], -Cell[115522, 2386, 456, 10, 22, "Message",ExpressionUUID->"800b496e-93af-4967-9f4d-19bc30cefc7c"], -Cell[115981, 2398, 3267, 61, 58, "Output",ExpressionUUID->"4b16f87a-8343-4a14-b1b1-eede27195bbc"] +Cell[127127, 2746, 4377, 85, 56, "Input",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"], +Cell[131507, 2833, 584, 12, 22, "Message",ExpressionUUID->"478e944e-8539-43dd-b7ad-13452d8c5fd8"], +Cell[132094, 2847, 584, 12, 22, "Message",ExpressionUUID->"4e714ac4-3741-4bad-8978-9cce7fc9cf27"], +Cell[132681, 2861, 583, 12, 22, "Message",ExpressionUUID->"d8d08a80-7409-4fd5-b5fa-8bf89b0dc929"], +Cell[133267, 2875, 522, 11, 22, "Message",ExpressionUUID->"649838a1-0289-4c08-8492-56d4c5c821ed"], +Cell[133792, 2888, 3474, 66, 44, "Output",ExpressionUUID->"10fc8e0a-a280-4cb2-a212-f7708921bb32"] }, Open ]], Cell[CellGroupData[{ -Cell[119285, 2464, 2237, 39, 24, "Input",ExpressionUUID->"7802d202-3d6d-4dfa-88dc-b610c353f8e0"], -Cell[121525, 2505, 436, 10, 22, "Message",ExpressionUUID->"a6afe7e7-a295-46f1-b353-09cdec263eb6"], -Cell[121964, 2517, 438, 10, 22, "Message",ExpressionUUID->"72e76bc6-8558-45fb-a4d6-1f3c0d25dce3"], -Cell[122405, 2529, 2009, 29, 25, "Output",ExpressionUUID->"5faec697-031f-4594-9d93-9cfbc6c71780"] -}, Open ]], -Cell[CellGroupData[{ -Cell[124451, 2563, 3589, 66, 72, "Input",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"], -Cell[CellGroupData[{ -Cell[128065, 2633, 271, 7, 30, "Print",ExpressionUUID->"511d0852-d858-4548-8196-98f35415e50e"], -Cell[128339, 2642, 318, 9, 56, "Print",ExpressionUUID->"f79394b9-541f-492c-93db-8756d1b14926"], -Cell[128660, 2653, 320, 9, 56, "Print",ExpressionUUID->"b1edbebb-e977-4520-964f-b1cec1161771"], -Cell[128983, 2664, 317, 9, 56, "Print",ExpressionUUID->"bfd58a31-019e-410a-b9e9-ab659fab9ac9"], -Cell[129303, 2675, 272, 7, 30, "Print",ExpressionUUID->"3b1d2871-5059-4719-bd90-6aaba8c9caef"] -}, Open ]], -Cell[129590, 2685, 3091, 59, 58, "Output",ExpressionUUID->"98dfdb17-c250-42bc-8b48-17896671f0f4"] +Cell[137303, 2959, 1301, 35, 24, "Input",ExpressionUUID->"b20a690a-f037-42e7-b31f-7c6fb7165446"], +Cell[138607, 2996, 372, 9, 22, "Message",ExpressionUUID->"99f55c82-9f1e-4ed1-bee7-f6b42788529a"], +Cell[138982, 3007, 476, 11, 33, "Message",ExpressionUUID->"cfc785c7-fdcc-4464-8d55-c4535fd0989e"], +Cell[139461, 3020, 476, 11, 33, "Message",ExpressionUUID->"9c8142ac-b7cf-485d-a8dd-97352d13f970"], +Cell[139940, 3033, 476, 11, 33, "Message",ExpressionUUID->"834508c0-17d9-4b75-a223-87eb84e48a0c"], +Cell[140419, 3046, 453, 10, 22, "Message",ExpressionUUID->"0e6651e7-50f5-46db-94b9-c49b364cdd89"], +Cell[140875, 3058, 422, 10, 22, "Message",ExpressionUUID->"fcfc6397-b646-4aae-beb5-a084083db9ff"], +Cell[141300, 3070, 422, 10, 22, "Message",ExpressionUUID->"b1114c64-a94d-4a84-8517-f220bdce1087"], +Cell[141725, 3082, 424, 10, 22, "Message",ExpressionUUID->"e7ce51a0-f9e4-4182-befc-f3116db1409a"], +Cell[142152, 3094, 460, 10, 22, "Message",ExpressionUUID->"535790fb-fc75-46e1-80cb-f0da4033f09b"], +Cell[142615, 3106, 1609, 39, 42, "Output",ExpressionUUID->"e6b943fe-5982-410c-a3ea-7ed5f87dc501"] }, Open ]], Cell[CellGroupData[{ -Cell[132718, 2749, 1443, 34, 24, "Input",ExpressionUUID->"f29012dd-767e-4ccd-8cc2-503ba7241dd4"], -Cell[134164, 2785, 1959, 47, 58, "Output",ExpressionUUID->"856b1968-3f0f-4f85-ad84-7cb3e73f0a0d"] +Cell[144261, 3150, 1351, 36, 24, "Input",ExpressionUUID->"c5f7cefb-23b6-4795-8e0e-29084392ea3e"], +Cell[145615, 3188, 537, 11, 22, "Message",ExpressionUUID->"4542c8d2-981a-4127-9547-5d5f87f55b8c"], +Cell[146155, 3201, 537, 11, 22, "Message",ExpressionUUID->"078927a3-b72f-479b-951b-599fed4a45e6"], +Cell[146695, 3214, 537, 11, 22, "Message",ExpressionUUID->"7244fd16-cc92-4e8d-9c75-0b780e16d48d"], +Cell[147235, 3227, 475, 10, 22, "Message",ExpressionUUID->"84fcb9c4-04a4-4da4-b7a9-f8b856048bab"], +Cell[147713, 3239, 1635, 40, 42, "Output",ExpressionUUID->"582f27a7-c183-4aa4-844c-51abc5718a5d"] }, Open ]], Cell[CellGroupData[{ -Cell[136160, 2837, 4342, 78, 89, "Input",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"], +Cell[149385, 3284, 5592, 103, 73, "Input",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"], Cell[CellGroupData[{ -Cell[140527, 2919, 293, 8, 43, "Print",ExpressionUUID->"8a120e5f-a5a3-4f17-b3ed-fe4c02b738db"], -Cell[140823, 2929, 294, 8, 43, "Print",ExpressionUUID->"de95d3ae-aa9a-4b14-bde6-721d748d8480"], -Cell[141120, 2939, 271, 7, 30, "Print",ExpressionUUID->"c9fd7d2b-d1a0-48f2-b8b6-bbecc90bd16c"], -Cell[141394, 2948, 318, 9, 56, "Print",ExpressionUUID->"756862c8-5721-4b71-9543-cd0dd99e93c0"], -Cell[141715, 2959, 320, 9, 56, "Print",ExpressionUUID->"7e805f4a-3d92-47ae-8493-1e29f9635c40"], -Cell[142038, 2970, 318, 9, 56, "Print",ExpressionUUID->"d575551e-b2b0-4da3-a620-4e466d368394"], -Cell[142359, 2981, 272, 7, 30, "Print",ExpressionUUID->"3bfcd99d-0da9-4b75-b727-45a2f3b0a0e8"], -Cell[142634, 2990, 294, 8, 43, "Print",ExpressionUUID->"8abe42c0-cb42-47f7-8d0e-35a497bc69c1"], -Cell[142931, 3000, 279, 7, 30, "Print",ExpressionUUID->"a75f4be0-6356-4a2d-ac60-ca5a174ca99a"] +Cell[155002, 3391, 296, 8, 43, "Print",ExpressionUUID->"7a772fba-df33-4f9d-b38d-6940e3941eab"], +Cell[155301, 3401, 322, 9, 56, "Print",ExpressionUUID->"41a446af-8dd2-4c1a-85b6-0bcb5710c58e"], +Cell[155626, 3412, 324, 9, 56, "Print",ExpressionUUID->"3053db1b-f597-47a4-aa61-dd8286212823"], +Cell[155953, 3423, 322, 9, 56, "Print",ExpressionUUID->"5801f127-4593-4248-a8fc-5fe3e865e2f0"], +Cell[156278, 3434, 272, 7, 30, "Print",ExpressionUUID->"55824d87-912b-4205-a8c2-4bc2f6cbcce8"] }, Open ]], -Cell[143225, 3010, 1673, 42, 27, "Output",ExpressionUUID->"63af0244-4204-4b51-95aa-39d445b52770"] +Cell[156565, 3444, 1895, 46, 44, "Output",ExpressionUUID->"b1a7bbe4-1bc8-4c67-8307-052ebd4e074e"] }, Open ]], Cell[CellGroupData[{ -Cell[144935, 3057, 1303, 27, 24, "Input",ExpressionUUID->"c58535c6-e2cc-4022-b4ee-6e96bd40636a"], -Cell[146241, 3086, 1892, 45, 27, "Output",ExpressionUUID->"1bc01698-52fd-4bce-98c8-84ff43606c38"] +Cell[158497, 3495, 1545, 39, 24, "Input",ExpressionUUID->"e31ca7a0-70f8-48f8-88bd-46f299706f4b"], +Cell[160045, 3536, 2065, 48, 44, "Output",ExpressionUUID->"b6abc47e-be51-4849-8362-057ad4abcb66"] }, Open ]], Cell[CellGroupData[{ -Cell[148170, 3136, 3750, 61, 24, "Input",ExpressionUUID->"78da668e-4ef0-42e2-a70b-6bf19f9b37c3"], +Cell[162147, 3589, 1623, 41, 24, "Input",ExpressionUUID->"ece2d3a0-e982-4957-8372-4f9d2d7fe8c0"], Cell[CellGroupData[{ -Cell[151945, 3201, 322, 9, 56, "Print",ExpressionUUID->"2633e8ff-3a2c-4e3a-a4f9-d4a96377ebf3"], -Cell[152270, 3212, 324, 9, 56, "Print",ExpressionUUID->"cf149e9a-ff7b-4279-ba22-60a5061cccd7"], -Cell[152597, 3223, 324, 9, 56, "Print",ExpressionUUID->"579bb1ce-0683-426a-8ecf-cc753bd77ccb"], -Cell[152924, 3234, 272, 7, 30, "Print",ExpressionUUID->"f8dc207c-67fd-491a-ae00-b45b0b9bf708"] +Cell[163795, 3634, 323, 9, 56, "Print",ExpressionUUID->"69f46805-d37f-43db-b745-b6f4e19be601"], +Cell[164121, 3645, 323, 9, 56, "Print",ExpressionUUID->"3e7e2344-5bd4-45c4-863e-cca15e665d35"], +Cell[164447, 3656, 324, 9, 56, "Print",ExpressionUUID->"099fa598-6830-498a-a031-0d3681f80025"], +Cell[164774, 3667, 271, 7, 30, "Print",ExpressionUUID->"bccb58ff-4772-4874-a5a9-38cc32a82c5e"] }, Open ]], -Cell[153211, 3244, 2174, 50, 25, "Output",ExpressionUUID->"c6e2490b-6500-4f13-ada0-6cff9d298ebe"] +Cell[165060, 3677, 2020, 48, 42, "Output",ExpressionUUID->"200f061b-0403-464b-a625-1f810bc1f5b5"] }, Open ]], Cell[CellGroupData[{ -Cell[155422, 3299, 1195, 24, 24, "Input",ExpressionUUID->"223493f4-d77c-46b0-bb97-87a0be67433c"], -Cell[156620, 3325, 1829, 43, 25, "Output",ExpressionUUID->"7ea2834e-6718-45dc-b27c-33dbbcda6b96"] -}, Open ]], -Cell[CellGroupData[{ -Cell[158486, 3373, 2910, 50, 24, "Input",ExpressionUUID->"200b94d3-7cab-4649-99f3-c2558b1a5011"], +Cell[167117, 3730, 5199, 97, 73, "Input",ExpressionUUID->"5facca9e-653e-4fd9-8527-0092e5469f90"], Cell[CellGroupData[{ -Cell[161421, 3427, 296, 8, 43, "Print",ExpressionUUID->"2185ced4-0a66-4a97-8838-180d3ce37879"], -Cell[161720, 3437, 322, 9, 56, "Print",ExpressionUUID->"df24891c-7bf9-4b21-85c2-73617581eebb"], -Cell[162045, 3448, 324, 9, 56, "Print",ExpressionUUID->"a6619516-6538-49ad-b331-3956e0aa62c9"], -Cell[162372, 3459, 322, 9, 56, "Print",ExpressionUUID->"0558deb8-f9a3-4d34-8ab5-3fc2fa8b0deb"], -Cell[162697, 3470, 274, 7, 30, "Print",ExpressionUUID->"af5140d0-5f4f-4ff2-91a9-9ac6d7032d89"] +Cell[172341, 3831, 322, 9, 56, "Print",ExpressionUUID->"f45234f2-752f-46c6-9ddf-bd262d16691f"], +Cell[172666, 3842, 324, 9, 56, "Print",ExpressionUUID->"011b4035-7393-4523-94fb-fb4791bf158d"], +Cell[172993, 3853, 322, 9, 56, "Print",ExpressionUUID->"c5d09aec-16c7-4e06-acf4-318a5ced69b1"], +Cell[173318, 3864, 274, 7, 30, "Print",ExpressionUUID->"211a48b2-a25f-4c85-8a27-a723c7e7d387"] }, Open ]], -Cell[162986, 3480, 2286, 52, 27, "Output",ExpressionUUID->"f91958e9-a220-4f8e-ae16-55c2d7026d35"] +Cell[173607, 3874, 1877, 49, 60, "Output",ExpressionUUID->"68934bdb-e5c2-45fc-b920-4aae13dbfe8d"] }, Open ]], Cell[CellGroupData[{ -Cell[165309, 3537, 179, 3, 22, "Input",ExpressionUUID->"2e40e185-1d47-4e98-b537-128197264f04"], -Cell[165491, 3542, 1736, 45, 27, "Output",ExpressionUUID->"089e5e7d-8886-4596-9b12-15e349d13600"] -}, Open ]], +Cell[175521, 3928, 4659, 82, 24, "Input",ExpressionUUID->"6bb6eb48-9c7f-4cd5-80e5-89dd5f03b923"], Cell[CellGroupData[{ -Cell[167264, 3592, 1241, 24, 24, "Input",ExpressionUUID->"0dba08c9-c74d-4268-96fa-0c6efda987ca"], -Cell[168508, 3618, 1843, 45, 25, "Output",ExpressionUUID->"30dd2ebb-5e89-4bec-b443-d6cfa7697ac6"] +Cell[180205, 4014, 324, 9, 56, "Print",ExpressionUUID->"467aa206-d126-4a40-8067-409232ffdc3a"], +Cell[180532, 4025, 323, 9, 56, "Print",ExpressionUUID->"8754ca31-013e-4466-96bb-ebec32313a78"], +Cell[180858, 4036, 324, 9, 56, "Print",ExpressionUUID->"c1aca8bb-d681-469a-bd29-f151362e33f6"], +Cell[181185, 4047, 272, 7, 30, "Print",ExpressionUUID->"4f212f81-2c74-4237-aad8-d1d9e3dda9a8"] }, Open ]], -Cell[CellGroupData[{ -Cell[170388, 3668, 1520, 38, 24, "Input",ExpressionUUID->"77feec13-1cdc-471d-8d45-49920b8c9c58"], -Cell[171911, 3708, 625, 12, 22, "Message",ExpressionUUID->"91443dc7-57dd-4d8a-aff2-566e34296967"], -Cell[172539, 3722, 634, 12, 22, "Message",ExpressionUUID->"8c8db586-7a76-4cc8-b40c-f5641a83fb2a"], -Cell[173176, 3736, 974, 17, 22, "Message",ExpressionUUID->"55680071-ebde-46b2-9985-b7b1773db7d9"], -Cell[174153, 3755, 512, 8, 25, "Output",ExpressionUUID->"23e34e05-cb3e-40f1-ba06-a11819fced80"] +Cell[181472, 4057, 2092, 52, 60, "Output",ExpressionUUID->"2a2c83e9-3cde-44af-a7d5-e6b62504ce18"] }, Open ]], Cell[CellGroupData[{ -Cell[174702, 3768, 1280, 30, 24, "Input",ExpressionUUID->"2742bf10-6e80-4043-a3d1-4f8276912fa7"], +Cell[183601, 4114, 1250, 36, 24, "Input",ExpressionUUID->"50ae3a0c-00b7-48d3-bbd9-7fcdb7e9be65"], Cell[CellGroupData[{ -Cell[176007, 3802, 344, 9, 56, "Print",ExpressionUUID->"d968a77e-0b23-4ede-8778-fe70c8fe67a4"], -Cell[176354, 3813, 342, 9, 56, "Print",ExpressionUUID->"c0fb9f74-f597-4290-ab92-19fc6918cb3b"], -Cell[176699, 3824, 342, 9, 56, "Print",ExpressionUUID->"d580040e-4b47-47e5-a184-41377961a189"], -Cell[177044, 3835, 272, 7, 30, "Print",ExpressionUUID->"f836f1cb-320c-4756-a39e-0d2706b3cc76"], -Cell[177319, 3844, 271, 7, 30, "Print",ExpressionUUID->"c1df8207-0a77-43dc-8619-51d191eb8a45"], -Cell[177593, 3853, 294, 8, 43, "Print",ExpressionUUID->"7bac1e96-85d8-4b0c-a777-cc3800b0bd9f"] -}, Open ]], -Cell[177902, 3864, 2207, 54, 44, "Output",ExpressionUUID->"956b70bf-8ee9-40a5-8b0c-7ecec5569248"] -}, Open ]], -Cell[CellGroupData[{ -Cell[180146, 3923, 1403, 35, 24, "Input",ExpressionUUID->"da6fb0f0-808b-49e1-9a6d-6ced77c20899"], -Cell[181552, 3960, 625, 12, 22, "Message",ExpressionUUID->"a7443b43-ee71-430d-91d4-435b34fc9655"], -Cell[182180, 3974, 630, 12, 22, "Message",ExpressionUUID->"3a4d6953-ecc7-4836-bcde-ce1889fff237"], -Cell[182813, 3988, 970, 17, 22, "Message",ExpressionUUID->"f91cae25-3d55-4507-97e3-8efe0f1015cd"], -Cell[183786, 4007, 346, 6, 25, "Output",ExpressionUUID->"8ae1da27-83ab-4529-80cd-aa8d17f74340"] +Cell[184876, 4154, 252, 6, 18, "Print",ExpressionUUID->"f2db3760-255a-4d78-86c0-da167b38c746"], +Cell[185131, 4162, 255, 7, 18, "Print",ExpressionUUID->"9eaeaa47-2a19-4f62-8edd-d739b738dc97"], +Cell[185389, 4171, 249, 6, 18, "Print",ExpressionUUID->"516762a4-e3a4-49c8-afd5-ebb9602701c3"], +Cell[185641, 4179, 254, 6, 18, "Print",ExpressionUUID->"8c6b0e8c-5f47-421a-af95-4872d1d3fdd4"], +Cell[185898, 4187, 257, 7, 18, "Print",ExpressionUUID->"10d22756-dcd4-44d1-aac4-99016bb32ee9"], +Cell[186158, 4196, 271, 7, 30, "Print",ExpressionUUID->"084e7849-246f-429f-855f-22c2c43a8763"], +Cell[186432, 4205, 254, 6, 18, "Print",ExpressionUUID->"e015d14b-eb0c-4bb0-af1c-188c96529d70"], +Cell[186689, 4213, 254, 6, 18, "Print",ExpressionUUID->"bc7a1a36-c9f3-4c07-90fe-8ed0ce16359d"], +Cell[186946, 4221, 273, 7, 30, "Print",ExpressionUUID->"ad6e1792-e476-45f4-ada9-6baaeb9e165a"], +Cell[187222, 4230, 266, 7, 30, "Print",ExpressionUUID->"9badaa21-a438-4ebf-a9b8-b6f0cc53a9a5"], +Cell[187491, 4239, 309, 8, 43, "Print",ExpressionUUID->"103493b3-bc70-4d18-ae26-4b48ba433f58"], +Cell[187803, 4249, 268, 7, 30, "Print",ExpressionUUID->"702392f9-fce6-4fe0-a53b-091e531871fc"], +Cell[188074, 4258, 268, 7, 30, "Print",ExpressionUUID->"891d5c90-8786-453c-915a-5c9758870145"], +Cell[188345, 4267, 309, 8, 43, "Print",ExpressionUUID->"18c6d658-6045-48d1-b671-d40f83ee93a5"], +Cell[188657, 4277, 227, 4, 18, "Print",ExpressionUUID->"95489f99-5b01-4f57-9a57-182c23961f20"], +Cell[188887, 4283, 365, 8, 43, "Print",ExpressionUUID->"f2fff34e-167a-4e82-ba62-ead2b1143e60"], +Cell[189255, 4293, 227, 4, 18, "Print",ExpressionUUID->"4171c4a8-9b74-4d07-876d-81d571c07477"], +Cell[189485, 4299, 272, 7, 30, "Print",ExpressionUUID->"45356bd2-8112-4f01-b137-4fef8466cde1"], +Cell[189760, 4308, 489, 11, 81, "Print",ExpressionUUID->"5978dcc5-7b1e-4d27-9474-82e19086971d"], +Cell[190252, 4321, 280, 7, 30, "Print",ExpressionUUID->"3f77796a-af19-4895-a65a-bfbc320f7174"] +}, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[184169, 4018, 325, 8, 24, "Input",ExpressionUUID->"f17f1130-056e-4552-87df-88000e071617"], -Cell[184497, 4028, 1954, 49, 44, "Output",ExpressionUUID->"02d3c92e-d0da-4803-afd6-9943e49011bf"] +Cell[190581, 4334, 5215, 100, 73, "Input",ExpressionUUID->"f5124a1f-1004-49ef-bdce-65e49311db89"], +Cell[195799, 4436, 601, 12, 22, "Message",ExpressionUUID->"52d37aec-5e97-49ba-a73f-9240ea9bab01"], +Cell[196403, 4450, 609, 12, 22, "Message",ExpressionUUID->"a87cd0bd-956c-4292-bb38-f01fa93f88fa"], +Cell[197015, 4464, 949, 17, 34, "Message",ExpressionUUID->"fd51acaa-08e6-4912-b93f-c1e1c0519a2a"], +Cell[197967, 4483, 354, 6, 25, "Output",ExpressionUUID->"d33cb855-0ed5-497d-8933-b6ebe6b81534"] }, Open ]], +Cell[198336, 4492, 1265, 37, 24, "Input",ExpressionUUID->"72b068ea-967c-499f-9ec3-b16d3cfcb4ca"], +Cell[199604, 4531, 10391, 159, 22, "Input",ExpressionUUID->"673ffefa-75f0-46ac-befd-c785b4bc3ce1"], +Cell[209998, 4692, 12010, 183, 22, "Input",ExpressionUUID->"e351157f-b944-4cbd-bedd-89b185c451f7"], Cell[CellGroupData[{ -Cell[186488, 4082, 1821, 41, 24, "Input",ExpressionUUID->"30cc4ffc-6785-4b8d-b6fc-639e76f49ad9"], -Cell[188312, 4125, 511, 11, 22, "Message",ExpressionUUID->"19f98077-4ff8-4918-9a55-7133637e973a"] +Cell[222033, 4879, 525, 11, 24, "Input",ExpressionUUID->"9437364d-2d5a-4493-b405-40564b9ff897"], +Cell[222561, 4892, 23819, 525, 170, "Output",ExpressionUUID->"52fbd471-7005-4ea0-b7a7-58de8c0386f3"] }, Open ]], -Cell[188838, 4139, 10391, 159, 22, "Input",ExpressionUUID->"673ffefa-75f0-46ac-befd-c785b4bc3ce1"], -Cell[199232, 4300, 10904, 168, 22, "Input",ExpressionUUID->"e351157f-b944-4cbd-bedd-89b185c451f7"], Cell[CellGroupData[{ -Cell[210161, 4472, 642, 18, 24, "Input",ExpressionUUID->"9437364d-2d5a-4493-b405-40564b9ff897"], -Cell[210806, 4492, 9163, 212, 170, "Output",ExpressionUUID->"82afe91a-043e-4f5a-9cc6-8913efd80837"] +Cell[246417, 5422, 20997, 469, 167, "Input",ExpressionUUID->"e0fe24ec-ebe4-4875-83e4-0ee6e9334efc"], +Cell[267417, 5893, 21852, 498, 170, "Output",ExpressionUUID->"a7196a4e-63e4-4e6a-a5ab-a42437e784c3"], +Cell[289272, 6393, 22174, 479, 170, "Output",ExpressionUUID->"d5f785dd-7143-46c7-bfa3-e26fbd2f3c6e"] }, Open ]], Cell[CellGroupData[{ -Cell[220006, 4709, 1801, 44, 24, "Input",ExpressionUUID->"cc0d041f-1be1-4721-9bff-7905d15cd7c6"], -Cell[221810, 4755, 2116, 46, 44, "Output",ExpressionUUID->"a0e6b052-2a21-4317-a019-77888bf4863b"] +Cell[311483, 6877, 1801, 44, 24, "Input",ExpressionUUID->"cc0d041f-1be1-4721-9bff-7905d15cd7c6"], +Cell[313287, 6923, 2116, 46, 95, "Output",ExpressionUUID->"a0e6b052-2a21-4317-a019-77888bf4863b"] }, Open ]], -Cell[223941, 4804, 398, 8, 24, "Input",ExpressionUUID->"0c393b94-0e36-44bf-b752-a3d4e048e5f7"], +Cell[315418, 6972, 398, 8, 24, "Input",ExpressionUUID->"0c393b94-0e36-44bf-b752-a3d4e048e5f7"], Cell[CellGroupData[{ -Cell[224364, 4816, 4133, 75, 59, "Input",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"], -Cell[228500, 4893, 24167, 491, 171, "Output",ExpressionUUID->"f4dafc1e-2d69-44f1-b6c9-4e92c5596f38"] +Cell[315841, 6984, 4133, 75, 59, "Input",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"], +Cell[319977, 7061, 24167, 491, 171, "Output",ExpressionUUID->"f4dafc1e-2d69-44f1-b6c9-4e92c5596f38"] }, Open ]], -Cell[252682, 5387, 287, 7, 22, "Input",ExpressionUUID->"50db4e94-544f-4873-82ae-09a8483fdb2d"], +Cell[344159, 7555, 287, 7, 22, "Input",ExpressionUUID->"50db4e94-544f-4873-82ae-09a8483fdb2d"], Cell[CellGroupData[{ -Cell[252994, 5398, 1038, 29, 24, "Input",ExpressionUUID->"47e013e3-8ac7-4133-8111-4b3509d6e2bb"], -Cell[254035, 5429, 304, 5, 25, "Output",ExpressionUUID->"37bddea5-8edb-4ad5-af54-8c1f0c2eab67"] +Cell[344471, 7566, 1038, 29, 41, "Input",ExpressionUUID->"47e013e3-8ac7-4133-8111-4b3509d6e2bb"], +Cell[345512, 7597, 304, 5, 25, "Output",ExpressionUUID->"37bddea5-8edb-4ad5-af54-8c1f0c2eab67"] }, Open ]], Cell[CellGroupData[{ -Cell[254376, 5439, 868, 24, 24, "Input",ExpressionUUID->"01387b01-3294-40e7-8b69-78378d670e52"], -Cell[255247, 5465, 17575, 405, 184, "Output",ExpressionUUID->"8cec0562-f526-4026-ab01-0593355140a7"] +Cell[345853, 7607, 868, 24, 24, "Input",ExpressionUUID->"01387b01-3294-40e7-8b69-78378d670e52"], +Cell[346724, 7633, 17575, 405, 184, "Output",ExpressionUUID->"8cec0562-f526-4026-ab01-0593355140a7"] }, Open ]], Cell[CellGroupData[{ -Cell[272859, 5875, 1207, 25, 22, "Input",ExpressionUUID->"d88de4bc-38ed-48d9-9eb9-13896c8d48af"], -Cell[274069, 5902, 11475, 249, 171, "Output",ExpressionUUID->"e1fd13f9-9a47-43d5-ac23-916228e32fef"] +Cell[364336, 8043, 1207, 25, 22, "Input",ExpressionUUID->"d88de4bc-38ed-48d9-9eb9-13896c8d48af"], +Cell[365546, 8070, 11475, 249, 171, "Output",ExpressionUUID->"e1fd13f9-9a47-43d5-ac23-916228e32fef"] }, Open ]], Cell[CellGroupData[{ -Cell[285581, 6156, 2187, 51, 43, "Input",ExpressionUUID->"f785d7e5-8e11-45cc-81cd-0e70921fef2b"], -Cell[287771, 6209, 733, 14, 32, "Message",ExpressionUUID->"162535cd-d62a-48c2-af96-7140a9f63050"], -Cell[288507, 6225, 771, 15, 22, "Message",ExpressionUUID->"56b6fe59-14dc-4bc6-baeb-fe77ce144ee6"], -Cell[289281, 6242, 734, 14, 32, "Message",ExpressionUUID->"9e7384b5-4cf5-4f3e-84e6-a9d047e1959b"], -Cell[290018, 6258, 769, 15, 22, "Message",ExpressionUUID->"348cb862-eaed-45c1-9750-7eeddb304033"], -Cell[290790, 6275, 734, 14, 32, "Message",ExpressionUUID->"ee576e45-e228-483d-890e-f9c379104b1f"], -Cell[291527, 6291, 814, 15, 22, "Message",ExpressionUUID->"505478e2-adb1-468b-bd7d-2f1280492c3a"], -Cell[292344, 6308, 771, 15, 22, "Message",ExpressionUUID->"725753ce-0c13-4467-8895-0d985413a7b7"], -Cell[293118, 6325, 818, 15, 22, "Message",ExpressionUUID->"5eb9561f-5e5e-4b1d-b5bb-f3122d6b98f2"], -Cell[293939, 6342, 11608, 275, 180, "Output",ExpressionUUID->"be597aa8-7ecf-4557-9551-74d39eb14ee7"] +Cell[377058, 8324, 2187, 51, 66, "Input",ExpressionUUID->"f785d7e5-8e11-45cc-81cd-0e70921fef2b"], +Cell[379248, 8377, 733, 14, 32, "Message",ExpressionUUID->"162535cd-d62a-48c2-af96-7140a9f63050"], +Cell[379984, 8393, 771, 15, 22, "Message",ExpressionUUID->"56b6fe59-14dc-4bc6-baeb-fe77ce144ee6"], +Cell[380758, 8410, 734, 14, 32, "Message",ExpressionUUID->"9e7384b5-4cf5-4f3e-84e6-a9d047e1959b"], +Cell[381495, 8426, 769, 15, 22, "Message",ExpressionUUID->"348cb862-eaed-45c1-9750-7eeddb304033"], +Cell[382267, 8443, 734, 14, 32, "Message",ExpressionUUID->"ee576e45-e228-483d-890e-f9c379104b1f"], +Cell[383004, 8459, 814, 15, 22, "Message",ExpressionUUID->"505478e2-adb1-468b-bd7d-2f1280492c3a"], +Cell[383821, 8476, 771, 15, 22, "Message",ExpressionUUID->"725753ce-0c13-4467-8895-0d985413a7b7"], +Cell[384595, 8493, 818, 15, 22, "Message",ExpressionUUID->"5eb9561f-5e5e-4b1d-b5bb-f3122d6b98f2"], +Cell[385416, 8510, 11608, 275, 180, "Output",ExpressionUUID->"be597aa8-7ecf-4557-9551-74d39eb14ee7"] }, Open ]], Cell[CellGroupData[{ -Cell[305584, 6622, 1336, 31, 43, "Input",ExpressionUUID->"be68f105-e7f1-4186-b7b1-a6f02a4bd594"], -Cell[306923, 6655, 10700, 261, 181, "Output",ExpressionUUID->"b57dd479-aac4-4dc9-b32b-1a68214db69f"] +Cell[397061, 8790, 1336, 31, 43, "Input",ExpressionUUID->"be68f105-e7f1-4186-b7b1-a6f02a4bd594"], +Cell[398400, 8823, 10700, 261, 181, "Output",ExpressionUUID->"b57dd479-aac4-4dc9-b32b-1a68214db69f"] }, Open ]], Cell[CellGroupData[{ -Cell[317660, 6921, 848, 21, 22, "Input",ExpressionUUID->"0805dca1-3214-4053-b11e-4c015cec2e4b"], -Cell[318511, 6944, 12644, 228, 174, "Output",ExpressionUUID->"48b92cb7-d098-4f8b-b49d-7550fd336efb"] +Cell[409137, 9089, 848, 21, 22, "Input",ExpressionUUID->"0805dca1-3214-4053-b11e-4c015cec2e4b"], +Cell[409988, 9112, 12644, 228, 174, "Output",ExpressionUUID->"48b92cb7-d098-4f8b-b49d-7550fd336efb"] }, Open ]], Cell[CellGroupData[{ -Cell[331192, 7177, 982, 23, 22, "Input",ExpressionUUID->"df04592e-ebb2-4859-b1e7-acbef5775165"], -Cell[332177, 7202, 16441, 289, 171, "Output",ExpressionUUID->"35add101-fc22-4757-b5c1-91c88545a137"] +Cell[422669, 9345, 982, 23, 22, "Input",ExpressionUUID->"df04592e-ebb2-4859-b1e7-acbef5775165"], +Cell[423654, 9370, 16441, 289, 171, "Output",ExpressionUUID->"35add101-fc22-4757-b5c1-91c88545a137"] }, Open ]], Cell[CellGroupData[{ -Cell[348655, 7496, 3834, 96, 66, "Input",ExpressionUUID->"c7679221-477e-44ed-ad24-f20a36e0f29d"], -Cell[352492, 7594, 38355, 642, 188, "Output",ExpressionUUID->"4b4be68c-760f-476d-96a3-fcd70d8ef33c"] +Cell[440132, 9664, 3834, 96, 109, "Input",ExpressionUUID->"c7679221-477e-44ed-ad24-f20a36e0f29d"], +Cell[443969, 9762, 38355, 642, 188, "Output",ExpressionUUID->"4b4be68c-760f-476d-96a3-fcd70d8ef33c"] }, Open ]], Cell[CellGroupData[{ -Cell[390884, 8241, 2305, 52, 40, "Input",ExpressionUUID->"3774b0e8-ed8f-4304-be73-f4ed265155e9"], -Cell[393192, 8295, 11461, 208, 392, "Output",ExpressionUUID->"897b2bdd-4551-4a9d-b234-810e9e14bf11"] +Cell[482361, 10409, 2305, 52, 62, "Input",ExpressionUUID->"3774b0e8-ed8f-4304-be73-f4ed265155e9"], +Cell[484669, 10463, 11461, 208, 392, "Output",ExpressionUUID->"897b2bdd-4551-4a9d-b234-810e9e14bf11"] }, Open ]], Cell[CellGroupData[{ -Cell[404690, 8508, 2206, 52, 40, "Input",ExpressionUUID->"997c9c3d-3291-4f27-afcd-2a3c02bfd3fd"], -Cell[406899, 8562, 23560, 404, 253, "Output",ExpressionUUID->"b89ead09-4dd2-4e82-9f4f-7394478ce32f"] +Cell[496167, 10676, 2206, 52, 62, "Input",ExpressionUUID->"997c9c3d-3291-4f27-afcd-2a3c02bfd3fd"], +Cell[498376, 10730, 23560, 404, 253, "Output",ExpressionUUID->"b89ead09-4dd2-4e82-9f4f-7394478ce32f"] }, Open ]], Cell[CellGroupData[{ -Cell[430496, 8971, 1629, 38, 24, "Input",ExpressionUUID->"caeef800-5d91-4fb4-9816-9aacdb626a63"], -Cell[432128, 9011, 1251114, 20528, 364, 772638, 12684, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"f7800255-b48c-4368-ba57-548155e86dfa"] +Cell[521973, 11139, 1629, 38, 57, "Input",ExpressionUUID->"caeef800-5d91-4fb4-9816-9aacdb626a63"], +Cell[523605, 11179, 1251114, 20528, 364, 772638, 12684, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"f7800255-b48c-4368-ba57-548155e86dfa"] }, Open ]], Cell[CellGroupData[{ -Cell[1683279, 29544, 1176, 30, 24, "Input",ExpressionUUID->"626e933d-cd37-4a52-851f-6473bebeff53"], -Cell[1684458, 29576, 163730, 2704, 317, "Output",ExpressionUUID->"df893735-eb2f-4fa8-937b-dbb343a52a39"] +Cell[1774756, 31712, 1176, 30, 41, "Input",ExpressionUUID->"626e933d-cd37-4a52-851f-6473bebeff53"], +Cell[1775935, 31744, 163730, 2704, 317, "Output",ExpressionUUID->"df893735-eb2f-4fa8-937b-dbb343a52a39"] }, Open ]], Cell[CellGroupData[{ -Cell[1848225, 32285, 1906, 42, 24, "Input",ExpressionUUID->"9985bed4-dad9-41a8-a4a0-bf515be7111c"], -Cell[1850134, 32329, 199193, 3283, 362, "Output",ExpressionUUID->"7ad32301-6347-4a43-8055-9158b827767a"] +Cell[1939702, 34453, 1906, 42, 75, "Input",ExpressionUUID->"9985bed4-dad9-41a8-a4a0-bf515be7111c"], +Cell[1941611, 34497, 199193, 3283, 362, "Output",ExpressionUUID->"7ad32301-6347-4a43-8055-9158b827767a"] }, Open ]], Cell[CellGroupData[{ -Cell[2049364, 35617, 1018, 27, 24, "Input",ExpressionUUID->"95c3ad10-59a3-4496-bbd9-ec9966e153e1"], -Cell[2050385, 35646, 8989, 170, 163, "Output",ExpressionUUID->"a3028a35-bb3d-4af0-9cec-08135dfa52fc"] +Cell[2140841, 37785, 1018, 27, 24, "Input",ExpressionUUID->"95c3ad10-59a3-4496-bbd9-ec9966e153e1"], +Cell[2141862, 37814, 8989, 170, 163, "Output",ExpressionUUID->"a3028a35-bb3d-4af0-9cec-08135dfa52fc"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[2059423, 35822, 159, 3, 41, "Subsection",ExpressionUUID->"36c7685a-f47a-40aa-a737-8c7f6f4317c1"], -Cell[2059585, 35827, 1302, 31, 72, "Input",ExpressionUUID->"afc540ea-ef9a-493b-9583-ed901e3ac580"], -Cell[2060890, 35860, 1414, 34, 72, "Input",ExpressionUUID->"cdb9b75d-4c04-4ef5-9969-9e72079c5d58"], -Cell[2062307, 35896, 1671, 39, 72, "Input",ExpressionUUID->"e7739266-4bd1-4804-846a-5133bf45bfe6"], -Cell[2063981, 35937, 1740, 42, 72, "Input",ExpressionUUID->"e0c29aa2-30dd-4eb9-990b-b4abf8865eeb"], -Cell[2065724, 35981, 1946, 49, 89, "Input",ExpressionUUID->"80a3d021-bc5a-410c-8e70-089bc45d33bc"], -Cell[2067673, 36032, 2035, 50, 89, "Input",ExpressionUUID->"1d95a4fa-b7b4-4d6f-9695-22a28602846c"], -Cell[2069711, 36084, 2280, 55, 89, "Input",ExpressionUUID->"f3f292b7-6741-4c30-b2ac-b80cd82a3eaa"], -Cell[2071994, 36141, 2423, 60, 89, "Input",ExpressionUUID->"b6e4cc8e-edfb-44a9-a3e6-a4d9a234eb0c"], -Cell[2074420, 36203, 2451, 62, 89, "Input",ExpressionUUID->"2f0f517e-a884-4fb5-aa03-33b1e6e8e890"], +Cell[2150900, 37990, 159, 3, 41, "Subsection",ExpressionUUID->"36c7685a-f47a-40aa-a737-8c7f6f4317c1"], +Cell[2151062, 37995, 1442, 34, 89, "Input",ExpressionUUID->"afc540ea-ef9a-493b-9583-ed901e3ac580"], +Cell[2152507, 38031, 1564, 39, 89, "Input",ExpressionUUID->"cdb9b75d-4c04-4ef5-9969-9e72079c5d58"], +Cell[2154074, 38072, 1782, 43, 105, "Input",ExpressionUUID->"e7739266-4bd1-4804-846a-5133bf45bfe6"], +Cell[2155859, 38117, 1935, 47, 105, "Input",ExpressionUUID->"e0c29aa2-30dd-4eb9-990b-b4abf8865eeb"], +Cell[2157797, 38166, 2113, 52, 105, "Input",ExpressionUUID->"80a3d021-bc5a-410c-8e70-089bc45d33bc"], +Cell[2159913, 38220, 2191, 55, 121, "Input",ExpressionUUID->"1d95a4fa-b7b4-4d6f-9695-22a28602846c"], +Cell[2162107, 38277, 2280, 55, 121, "Input",ExpressionUUID->"f3f292b7-6741-4c30-b2ac-b80cd82a3eaa"], +Cell[2164390, 38334, 2423, 60, 121, "Input",ExpressionUUID->"b6e4cc8e-edfb-44a9-a3e6-a4d9a234eb0c"], +Cell[2166816, 38396, 2451, 62, 137, "Input",ExpressionUUID->"2f0f517e-a884-4fb5-aa03-33b1e6e8e890"], Cell[CellGroupData[{ -Cell[2076896, 36269, 1067, 26, 72, "Input",ExpressionUUID->"990c0156-b917-447b-8ea2-39f8d0d504d1"], -Cell[2077966, 36297, 2105, 51, 44, "Output",ExpressionUUID->"a03c0e53-f1d6-465c-bec4-40d66af78dd1"] +Cell[2169292, 38462, 1075, 26, 72, "Input",ExpressionUUID->"990c0156-b917-447b-8ea2-39f8d0d504d1"], +Cell[2170370, 38490, 498, 11, 22, "Message",ExpressionUUID->"69ee9008-fa6c-4744-a2bd-60ddf5a1bb01"], +Cell[2170871, 38503, 500, 11, 22, "Message",ExpressionUUID->"c7e61c4f-b7ba-492b-8830-f4e3d86baa49"], +Cell[2171374, 38516, 489, 8, 25, "Output",ExpressionUUID->"9bf62f5f-7a6f-4af7-bd94-6121ead0f3e4"] }, Open ]] }, Open ]] }, Open ]] diff --git a/schofield.wl b/schofield.wl index d3ad6d2..ecf61ff 100644 --- a/schofield.wl +++ b/schofield.wl @@ -59,39 +59,39 @@ invDerivativeList[n_][f_][x_] := Module[ MapIndexed[{Pn, i} \[Function] Pn/dfs[[1]]^(2 i[[1]] - 1), Pns] ] -dGdξLowList[n_, h_][m_] := Module[ +dGdξLowList[n_, h_, params_:{}][m_] := Module[ { ds, dF, df }, - ds = invDerivativeList[m+1][Function[θ, h[θ] / t[θ]^Δ[2]]][θc]; - dF = NestList[Function[f, D[f, θ]], RFReg[n][θ], m] + Table[dfLow[AL, B][k], {k, 0, m}] /. θ -> θc; + ds = invDerivativeList[m+1][Function[θ, h[θ] / t[θ]^Δ[2] //. params]][θc //. params]; + dF = NestList[Function[f, D[f, θ]], RFReg[n][θ], m] + Table[dfLow[AL, B][k], {k, 0, m}] /. θ -> θc //. params; df = NestList[D[#, \[Theta]] &, fp[\[Theta]]/t[\[Theta]]^2 - 1/(8 \[Pi]) Log[t[\[Theta]]^2], m] /. Map[Derivative[#][fp][\[Theta]] -> dF[[# + 1]] &, - Range[0, m]] /. θ -> θc; + Range[0, m]] /. θ -> θc //. params; Table[Sum[df[[k+1]] BellY[j, k, ds[[;; j - k + 1]]], {k, 0, j}]/(j!), {j, 0, m}] ] -dGdξList[n_, h_][m_, θp_] := Module[ +dGdξList[n_, h_, params_:{}][m_, θp_] := Module[ { ds, dF, df }, - ds = invDerivativeList[m+1][Function[θ, h[θ] / RealAbs[t[θ]]^Δ[2]]][θp]; - dF = NestList[Function[f, D[f, θ]], RF[n][θ], m] /. θ -> θp; + ds = invDerivativeList[m+1][Function[θ, h[θ] / RealAbs[t[θ]]^Δ[2] //. params]][θp]; + dF = NestList[Function[f, D[f, θ]], RF[n][θ] //. params, m] /. θ -> θp //. params; df = NestList[D[#, \[Theta]] &, fp[\[Theta]]/t[\[Theta]]^2 - 1/(8 \[Pi]) Log[t[\[Theta]]^2], m] /. Map[Derivative[#][fp][\[Theta]] -> dF[[# + 1]] &, - Range[0, m]] /. θ -> θp; + Range[0, m]] /. θ -> θp //. params; Table[Sum[df[[k+1]] BellY[j, k, ds[[;; j - k + 1]]], {k, 0, j}]/(j!), {j, 0, m}] ] -dΦdηList[n_, h_][m_, θp_] := Module[ +dΦdηList[n_, h_, params_:{}][m_, θp_] := Module[ { ds, dF, df }, - ds = invDerivativeList[m+1][Function[θ, t[θ] / h[θ]^(1 / Δ[2])]][θp]; - dF = NestList[Function[f, D[f, θ]], RF[n][θ], m] /. θ -> θp; + ds = invDerivativeList[m+1][Function[θ, t[θ] / h[θ]^(1 / Δ[2]) //. params]][θp]; + dF = NestList[Function[f, D[f, θ]], RF[n][θ] //. params, m] /. θ -> θp; df = NestList[D[#, \[Theta]] &, hh[θ]^(-2 / Δ[]) (fp[θ] - t[θ]^2 Log[hh[θ]^2] / (8 π Δ[])), m] /. Map[Derivative[#][fp][\[Theta]] -> dF[[# + 1]] &, - Range[0, m]] /. hh -> h /. θ -> θp; + Range[0, m]] /. hh -> h /. θ -> θp //. params; Table[Sum[df[[k+1]] BellY[j, k, ds[[;; j - k + 1]]], {k, 0, j}]/(j!), {j, 0, m}] ] @@ -205,7 +205,7 @@ resMid[n_, g_, δ_][m_] := formResiduals[Φs[[;;m+1]], dΦdηList[n, g][m, 1], res[F_, g_, δ_][m_] := Join[resLow[F, g, δ][m], resHigh[F, g, δ][m]] //. rules[g] chiSquared[F_, g_, δ_][m_] := Total[res[F, g, δ][m]^2] -resAll[F_, g_, δ_][m_] := Join[resLow[F, g, δ][m], resHigh[F, g, δ][m], resMid[F, g, δ][m](*, {ruleθ0[g] / 0.00005 /. Around[x_, _] :> x}*)] //. rules[g] +resAll[F_, g_, δ_][m_] := Join[resLow[F, g, δ][m], resHigh[F, g, δ][m], (*resMid[F, g, δ][m],*) {ruleθ0[g] / 0.00005, ruleAH[g] / 0.02} /. Around[x_, _] :> x] //. rules[g] newSol[eqs_, oldSol_, newVars_, δ_:0, γ_:0, opts___] := FindRoot[ eqs, -- cgit v1.2.3-54-g00ecf