(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 229983, 5139] NotebookOptionsPosition[ 214867, 4911] NotebookOutlinePosition[ 215264, 4927] CellTagsIndexPosition[ 215221, 4924] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"Get", "[", "\"\<~/doc/research/first_order_singularities/mma/schofield.wl\>\"", "]"}]], "Input", CellChangeTimes->{{3.817548726786456*^9, 3.817548838429791*^9}, { 3.817579586526174*^9, 3.817579588547625*^9}, {3.8176251109891653`*^9, 3.817625112168749*^9}, {3.8176254615736647`*^9, 3.817625462650483*^9}, 3.827832304560932*^9, {3.8278486734515533`*^9, 3.827848673995721*^9}, { 3.8278488730224733`*^9, 3.827848876357965*^9}, {3.827916449928692*^9, 3.827916450999913*^9}, {3.839304619292111*^9, 3.839304619735818*^9}, { 3.839409661432328*^9, 3.839409662064075*^9}, {3.839479110706854*^9, 3.839479110850239*^9}, {3.839569665835891*^9, 3.839569666219857*^9}, { 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[13]:=",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"], Cell[BoxData[{ RowBox[{ RowBox[{"SetAttributes", "[", RowBox[{"untilSuccess", ",", "HoldAll"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"untilSuccess", "[", "e_", "]"}], ":=", RowBox[{"Quiet", "[", RowBox[{"Check", "[", RowBox[{"e", ",", RowBox[{"untilSuccess", "[", "e", "]"}]}], "]"}], "]"}]}]}], "Input", CellChangeTimes->{{3.829364059865052*^9, 3.829364117072966*^9}, { 3.82936416412193*^9, 3.829364169770522*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"], Cell[BoxData[ RowBox[{ RowBox[{"randomEval", "[", "eq_", "]"}], ":=", RowBox[{"eq", "/.", RowBox[{ RowBox[{"Around", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":>", RowBox[{"RandomVariate", "[", RowBox[{"NormalDistribution", "[", RowBox[{"x", ",", "y"}], "]"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.840877914184023*^9, 3.840877925544536*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"2fdffe9d-9220-4c97-866d-0a1f5e3200a1"], Cell[CellGroupData[{ Cell["Match ends", "Section", CellChangeTimes->{{3.817119832436002*^9, 3.817119834596055*^9}, { 3.832238407013833*^9, 3.83223840801399*^9}},ExpressionUUID->"5d9c76ab-41db-4d8f-b32b-\ 3ceed5a29b07"], Cell[CellGroupData[{ Cell["Generate fits", "Subsection", CellChangeTimes->{{3.8425175668051233`*^9, 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[5]:=",ExpressionUUID->"c2736e8b-b9a2-44e3-be7a-35f424888e11"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s0", "=", RowBox[{ RowBox[{ RowBox[{"#1", "->", RowBox[{"Re", "[", "#2", "]"}]}], "&"}], "@@@", RowBox[{"untilSuccess", "[", RowBox[{"newSol", "[", RowBox[{ RowBox[{"randomEval", "[", RowBox[{ RowBox[{"eqAround", "[", RowBox[{"2", ",", RowBox[{"h", "[", "0", "]"}]}], "]"}], "[", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "->", RowBox[{"1", "+", RowBox[{"RandomReal", "[", "]"}]}]}], ",", RowBox[{"\[Theta]0", "->", "0.2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"AH", ",", RowBox[{"A", "[", "1", "]"}], ",", RowBox[{"A", "[", "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}}, CellLabel->"In[6]:=",ExpressionUUID->"a326d1ad-f5a3-49d5-9b86-3a79e4cb291c"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.140880712736358`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.19739663849533437`"}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.448385445073114`"}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6244482861491158`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5400156139770322`"}]}], "}"}]], "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}, CellLabel->"Out[6]=",ExpressionUUID->"e6b50f51-a941-434a-a0be-477aab535ca0"] }, 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[7]:=",ExpressionUUID->"8eab97ea-e359-40c0-9935-fde12f7b604a"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.206474`", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.690692279041286`*^-15"}], ",", RowBox[{"-", "1.3578383417065985`"}], ",", RowBox[{"-", "0.026730320042387568`"}], ",", "0.007817490328775815`", ",", RowBox[{"-", "0.0035612981516752493`"}], ",", "0.0018961128955182892`", ",", RowBox[{"-", "0.001102644164035067`"}]}], "}"}]}], "}"}]], "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}, CellLabel->"Out[7]=",ExpressionUUID->"b28feda9-0c42-492c-8c6a-d5f1ca8e2b4a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogPlot", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Abs", "[", "Gls", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Chop", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"dGd\[Xi]LowList", "[", RowBox[{"2", ",", RowBox[{"h", "[", "0", "]"}]}], "]"}], "[", "6", "]"}], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "0", "]"}], "]"}]}], "/.", "s0"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, { 3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9, 3.829128493270048*^9}, {3.8291285364471493`*^9, 3.8291285366627502`*^9}, { 3.829128816403723*^9, 3.829128817219697*^9}, {3.829212218892186*^9, 3.829212225564254*^9}, {3.8292122694048777`*^9, 3.829212364606584*^9}, { 3.829212422415756*^9, 3.8292124291194887`*^9}, {3.8292138886103983`*^9, 3.829213892914075*^9}, {3.829214258440802*^9, 3.829214267624782*^9}, { 3.829218996805491*^9, 3.829219001117147*^9}, {3.8371574167259398`*^9, 3.83715742501366*^9}, {3.838872732879181*^9, 3.8388727537664413`*^9}, { 3.838873204703073*^9, 3.8388732099027357`*^9}, {3.838873255752236*^9, 3.8388732834641113`*^9}, {3.8388734328271227`*^9, 3.8388734358267*^9}, { 3.838874157024147*^9, 3.8388741604719753`*^9}, {3.839307790346795*^9, 3.839307797698661*^9}, {3.8393093420874243`*^9, 3.839309343767222*^9}, { 3.83940985668435*^9, 3.8394098593718357`*^9}, {3.839479308878851*^9, 3.8394793092698917`*^9}, {3.839479351678846*^9, 3.839479359894719*^9}, { 3.839484132822569*^9, 3.83948413582975*^9}, {3.839484417835371*^9, 3.839484422402855*^9}, {3.8394844606917543`*^9, 3.8394845443653107`*^9}, { 3.839485068790997*^9, 3.839485069686892*^9}, {3.839485153592383*^9, 3.839485166081131*^9}, {3.8394852464151793`*^9, 3.8394852711790447`*^9}, { 3.839485306757688*^9, 3.8394853151639977`*^9}, {3.8394853654853773`*^9, 3.839485432894374*^9}, 3.839485523256114*^9, {3.839485578601307*^9, 3.839485649138336*^9}, {3.8394857007256727`*^9, 3.839485723219755*^9}, { 3.839485936266061*^9, 3.839486030177397*^9}, {3.839486075309197*^9, 3.839486142116439*^9}, {3.839486179828413*^9, 3.839486218245903*^9}, { 3.83948626754249*^9, 3.8394862713893957`*^9}, {3.8394864169524717`*^9, 3.8394864816965714`*^9}, {3.839486986826584*^9, 3.8394869896504993`*^9}, { 3.8394870445001507`*^9, 3.839487076477178*^9}, {3.839487130772867*^9, 3.839487144740963*^9}, {3.8394876124142523`*^9, 3.83948761275005*^9}, { 3.839487645182592*^9, 3.839487645638852*^9}, {3.839488048646216*^9, 3.839488090182976*^9}, {3.839488424581703*^9, 3.8394884272211113`*^9}, { 3.8394892409164047`*^9, 3.839489242332054*^9}, {3.839489275213091*^9, 3.839489292188744*^9}, {3.839489492289144*^9, 3.839489571665984*^9}, { 3.8394896094678373`*^9, 3.839489713796721*^9}, {3.839489762837819*^9, 3.839489797445959*^9}, {3.839489857544436*^9, 3.839489893848106*^9}, { 3.8394903055442333`*^9, 3.839490366136724*^9}, {3.839490881170803*^9, 3.8394908814338083`*^9}, {3.839490914539504*^9, 3.839490928595656*^9}, { 3.839492144689028*^9, 3.839492147329255*^9}, {3.839493141315516*^9, 3.8394931647319393`*^9}, {3.839493641949576*^9, 3.83949364210872*^9}, { 3.839494014823594*^9, 3.839494050556492*^9}, {3.8394955822727327`*^9, 3.8394956194090643`*^9}, {3.839495922911708*^9, 3.839495935527544*^9}, { 3.839496282949663*^9, 3.8394963032934713`*^9}, {3.839572033112393*^9, 3.8395720353280907`*^9}, {3.839572166843008*^9, 3.839572169346869*^9}, { 3.839586112218432*^9, 3.8395861234262123`*^9}, {3.839586281734277*^9, 3.8395862878848553`*^9}, {3.839586416192438*^9, 3.839586419599288*^9}, { 3.839658669660975*^9, 3.8396586751241493`*^9}, 3.839664357017618*^9, { 3.839664563809626*^9, 3.8396646004174013`*^9}, {3.840528591761121*^9, 3.8405285944877768`*^9}, {3.8405288185331697`*^9, 3.8405288189559*^9}, { 3.840875796597721*^9, 3.840875807414563*^9}, {3.841134596143955*^9, 3.841134611103293*^9}, {3.841135733956856*^9, 3.84113574469188*^9}, { 3.841213686096504*^9, 3.841213700287394*^9}, {3.841390489772376*^9, 3.841390490115335*^9}, {3.8419946095521803`*^9, 3.8419946102556753`*^9}, { 3.841994697025642*^9, 3.841994709185557*^9}, {3.841995099512912*^9, 3.8419951062806787`*^9}, {3.842068923552909*^9, 3.8420689245525312`*^9}, { 3.8423304358921137`*^9, 3.8423304652996798`*^9}, {3.842330525735715*^9, 3.8423305258049088`*^9}, {3.842337089014374*^9, 3.8423370891958523`*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{4., -3.2476887336074802`}, {4., -3.247688656415082}}], LineBox[{{4., -3.247688656415082}, {4., -3.2476885792226895`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{5., -2.682936452811683}, {5., -2.6829364235557143`}}], LineBox[{{5., -2.6829364235557143`}, {5., -2.6829363942997464`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{6., -1.6934517864279734`}, {6., -1.6934517320457758`}}], LineBox[{{6., -1.6934517320457758`}, {6., -1.693451677663581}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{7., -0.4167753281916941}, {7., -0.41677381113121115`}}], LineBox[{{7., -0.41677381113121115`}, {7., -0.4167722940730296}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{8., 1.077614026885801}, {8., 1.077615048105556}}], LineBox[{{8., 1.077615048105556}, {8., 1.0776160693242682`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{9., 2.747270914255491}, {9., 2.7479117345273405`}}], LineBox[{{9., 2.7479117345273405`}, {9., 2.7485521444115397`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{10., 4.572130331909891}, {10., 4.572233685741827}}], LineBox[{{10., 4.572233685741827}, {10., 4.572337028892852}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{11., 6.519147287940395}, {11., 6.520621127558696}}], LineBox[{{11., 6.520621127558696}, {11., 6.522092798170153}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{12., 8.58110651715989}, {12., 8.582980931954241}}], LineBox[{{12., 8.582980931954241}, {12., 8.584851839890053}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], 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[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{4., -3.2476885792226895`}, Offset[{3, 0}, {4., -3.2476885792226895`}]}, {{ 4., -3.2476885792226895`}, Offset[{-3, 0}, {4., -3.2476885792226895`}]}, {{ 4., -3.2476887336074802`}, Offset[{3, 0}, {4., -3.2476887336074802`}]}, {{ 4., -3.2476887336074802`}, Offset[{-3, 0}, {4., -3.2476887336074802`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{5., -2.6829363942997464`}, Offset[{3, 0}, {5., -2.6829363942997464`}]}, {{ 5., -2.6829363942997464`}, Offset[{-3, 0}, {5., -2.6829363942997464`}]}, {{ 5., -2.682936452811683}, Offset[{3, 0}, {5., -2.682936452811683}]}, {{ 5., -2.682936452811683}, Offset[{-3, 0}, {5., -2.682936452811683}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{6., -1.693451677663581}, Offset[{3, 0}, {6., -1.693451677663581}]}, {{ 6., -1.693451677663581}, Offset[{-3, 0}, {6., -1.693451677663581}]}, {{ 6., -1.6934517864279734`}, Offset[{3, 0}, {6., -1.6934517864279734`}]}, {{ 6., -1.6934517864279734`}, Offset[{-3, 0}, {6., -1.6934517864279734`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{7., -0.4167722940730296}, Offset[{3, 0}, {7., -0.4167722940730296}]}, {{ 7., -0.4167722940730296}, Offset[{-3, 0}, {7., -0.4167722940730296}]}, {{ 7., -0.4167753281916941}, Offset[{3, 0}, {7., -0.4167753281916941}]}, {{ 7., -0.4167753281916941}, Offset[{-3, 0}, {7., -0.4167753281916941}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{8., 1.0776160693242682`}, Offset[{3, 0}, {8., 1.0776160693242682`}]}, {{8., 1.0776160693242682`}, Offset[{-3, 0}, {8., 1.0776160693242682`}]}, {{8., 1.077614026885801}, Offset[{3, 0}, {8., 1.077614026885801}]}, {{ 8., 1.077614026885801}, Offset[{-3, 0}, {8., 1.077614026885801}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{9., 2.7485521444115397`}, Offset[{3, 0}, {9., 2.7485521444115397`}]}, {{9., 2.7485521444115397`}, Offset[{-3, 0}, {9., 2.7485521444115397`}]}, {{9., 2.747270914255491}, Offset[{3, 0}, {9., 2.747270914255491}]}, {{ 9., 2.747270914255491}, Offset[{-3, 0}, {9., 2.747270914255491}]}}], {{{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., 4.572337028892852}, Offset[{3, 0}, {10., 4.572337028892852}]}, {{10., 4.572337028892852}, Offset[{-3, 0}, {10., 4.572337028892852}]}, {{ 10., 4.572130331909891}, Offset[{3, 0}, {10., 4.572130331909891}]}, {{10., 4.572130331909891}, Offset[{-3, 0}, {10., 4.572130331909891}]}}], {{{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., 6.522092798170153}, Offset[{3, 0}, {11., 6.522092798170153}]}, {{11., 6.522092798170153}, Offset[{-3, 0}, {11., 6.522092798170153}]}, {{ 11., 6.519147287940395}, Offset[{3, 0}, {11., 6.519147287940395}]}, {{11., 6.519147287940395}, Offset[{-3, 0}, {11., 6.519147287940395}]}}], {{{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[{{{12., 8.584851839890053}, Offset[{3, 0}, {12., 8.584851839890053}]}, {{12., 8.584851839890053}, Offset[{-3, 0}, {12., 8.584851839890053}]}, {{ 12., 8.58110651715989}, Offset[{3, 0}, {12., 8.58110651715989}]}, {{12., 8.58110651715989}, Offset[{-3, 0}, {12., 8.58110651715989}]}}], {{{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., 10.751499443656988`}, Offset[{3, 0}, {13., 10.751499443656988`}]}, {{13., 10.751499443656988`}, Offset[{-3, 0}, {13., 10.751499443656988`}]}, {{13., 10.747207591575448`}, Offset[{3, 0}, {13., 10.747207591575448`}]}, {{13., 10.747207591575448`}, Offset[{-3, 0}, {13., 10.747207591575448`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{2., 0.3058939805973386}, {3., -3.016888706538089}, { 4., -3.247688656415082}, {5., -2.6829364235557143`}, { 6., -1.6934517320457758`}, {7., -0.41677381113121115`}, {8., 1.077615048105556}, {9., 2.7479117345273405`}, {10., 4.572233685741827}, {11., 6.520621127558696}, {12., 8.582980931954241}, {13., 10.749355820113736`}, {14., 13.008074231002201`}, {15., 15.354526006101828`}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{2., 0.3058939805973407}, {3., -2.928809595189747}, { 4., -3.0596322365299238`}, {5., -2.4595763208916877`}, { 6., -1.480457590090207}, {7., -0.23079298615211102`}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., -4.703417605114004}, 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., 15.}, {-4.703417605114004, 15.354526006101828`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->FrontEndValueCache[{Automatic, Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-4.605170185988091, FormBox[ TagBox[ InterpretationBox[ StyleBox["\"0.01\"", ShowStringCharacters -> False], 0.01, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, { 2.302585092994046, FormBox["10", TraditionalForm], {0.01, 0.}}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {16.11809565095832, FormBox[ TemplateBox[{"10", "7"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {-2.3025850929940455`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 4.605170185988092, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 6.907755278982137, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11.512925464970229`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 13.815510557964274`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 16.811242831518264`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 17.216707939626428`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 17.50439001207821, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 17.72753356339242, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 17.909855120186375`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 18.064005800013632`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 18.197537192638155`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 18.31532022829454, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 18.420680743952367`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]]], "Output", CellChangeTimes->{ 3.8423304660726633`*^9, 3.8423305264156647`*^9, 3.8423308073044643`*^9, { 3.8423370858934603`*^9, 3.842337089730439*^9}, 3.842350007987893*^9, 3.8424223543035307`*^9, 3.842422819890312*^9, 3.8425181248907337`*^9, 3.8425199167124577`*^9}, CellLabel->"Out[8]=",ExpressionUUID->"79d87d08-16ff-4087-a519-8498715bf2f7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogPlot", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Abs", "[", "Ghs", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Chop", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "@", RowBox[{ RowBox[{"dGd\[Xi]List", "[", RowBox[{"2", ",", RowBox[{"h", "[", "0", "]"}]}], "]"}], "[", RowBox[{"10", ",", "0"}], "]"}]}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "0", "]"}], "]"}]}], "/.", "s0"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, { 3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9, 3.829128493270048*^9}, {3.8291285364471493`*^9, 3.8291285366627502`*^9}, { 3.829128816403723*^9, 3.829128817219697*^9}, {3.829212218892186*^9, 3.829212225564254*^9}, {3.8292122694048777`*^9, 3.829212364606584*^9}, { 3.829212422415756*^9, 3.8292124291194887`*^9}, {3.8292138886103983`*^9, 3.829213892914075*^9}, {3.829214258440802*^9, 3.829214267624782*^9}, { 3.829218996805491*^9, 3.829219001117147*^9}, {3.8371574167259398`*^9, 3.83715742501366*^9}, {3.838872732879181*^9, 3.8388727537664413`*^9}, { 3.838873204703073*^9, 3.8388732099027357`*^9}, {3.838873255752236*^9, 3.8388732834641113`*^9}, {3.8388734328271227`*^9, 3.8388734358267*^9}, { 3.838874157024147*^9, 3.8388741604719753`*^9}, {3.839307790346795*^9, 3.839307797698661*^9}, {3.8393093420874243`*^9, 3.839309343767222*^9}, { 3.83940985668435*^9, 3.8394098593718357`*^9}, {3.839479308878851*^9, 3.8394793092698917`*^9}, {3.839479351678846*^9, 3.839479359894719*^9}, { 3.839484132822569*^9, 3.83948413582975*^9}, {3.839484417835371*^9, 3.839484422402855*^9}, {3.8394844606917543`*^9, 3.8394845443653107`*^9}, { 3.839485068790997*^9, 3.839485069686892*^9}, {3.839485153592383*^9, 3.839485166081131*^9}, {3.8394852464151793`*^9, 3.8394852711790447`*^9}, { 3.839485306757688*^9, 3.8394853151639977`*^9}, {3.8394853654853773`*^9, 3.839485432894374*^9}, 3.839485523256114*^9, {3.839485578601307*^9, 3.839485649138336*^9}, {3.8394857007256727`*^9, 3.839485723219755*^9}, { 3.839485936266061*^9, 3.839486030177397*^9}, {3.839486075309197*^9, 3.839486142116439*^9}, {3.839486179828413*^9, 3.839486218245903*^9}, { 3.83948626754249*^9, 3.8394862713893957`*^9}, {3.8394864169524717`*^9, 3.8394864816965714`*^9}, {3.839486986826584*^9, 3.8394869896504993`*^9}, { 3.8394870445001507`*^9, 3.839487076477178*^9}, {3.839487130772867*^9, 3.839487144740963*^9}, {3.8394876124142523`*^9, 3.83948761275005*^9}, { 3.839487645182592*^9, 3.839487645638852*^9}, {3.839488048646216*^9, 3.839488090182976*^9}, {3.839488424581703*^9, 3.8394884272211113`*^9}, { 3.8394892409164047`*^9, 3.839489242332054*^9}, {3.839489275213091*^9, 3.839489292188744*^9}, {3.839489492289144*^9, 3.839489571665984*^9}, { 3.8394896094678373`*^9, 3.839489713796721*^9}, {3.839489762837819*^9, 3.839489797445959*^9}, {3.839489857544436*^9, 3.839489893848106*^9}, { 3.8394903055442333`*^9, 3.839490366136724*^9}, {3.839490881170803*^9, 3.8394908814338083`*^9}, {3.839490914539504*^9, 3.839490928595656*^9}, { 3.839492144689028*^9, 3.839492147329255*^9}, {3.839493141315516*^9, 3.8394931647319393`*^9}, {3.839493641949576*^9, 3.83949364210872*^9}, { 3.839494014823594*^9, 3.839494050556492*^9}, {3.8394955822727327`*^9, 3.8394956194090643`*^9}, {3.839495922911708*^9, 3.839495935527544*^9}, { 3.839496282949663*^9, 3.8394963032934713`*^9}, {3.839572033112393*^9, 3.8395720353280907`*^9}, {3.839572166843008*^9, 3.839572169346869*^9}, { 3.839586112218432*^9, 3.8395861234262123`*^9}, {3.839586281734277*^9, 3.8395862878848553`*^9}, {3.839586416192438*^9, 3.839586419599288*^9}, { 3.839658669660975*^9, 3.8396586751241493`*^9}, 3.839664357017618*^9, { 3.839664563809626*^9, 3.8396646004174013`*^9}, {3.840528591761121*^9, 3.8405285944877768`*^9}, {3.8405288185331697`*^9, 3.8405288189559*^9}, { 3.840875796597721*^9, 3.840875807414563*^9}, {3.841134596143955*^9, 3.841134611103293*^9}, {3.841135733956856*^9, 3.84113574469188*^9}, { 3.841213686096504*^9, 3.841213700287394*^9}, {3.841390489772376*^9, 3.841390490115335*^9}, {3.8413905856695023`*^9, 3.8413906076135798`*^9}, { 3.841390948891877*^9, 3.8413909555318604`*^9}, {3.841994614807858*^9, 3.841994615111747*^9}, {3.842003430402297*^9, 3.8420034305840683`*^9}, { 3.842068927800907*^9, 3.842068934425075*^9}, {3.842330470596788*^9, 3.8423305414929953`*^9}, {3.842337092908471*^9, 3.842337093388023*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{5., 2.1203089445691155`}, {5., 2.1203089451690884`}}], LineBox[{{5., 2.1203089451690884`}, {5., 2.120308945769061}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{7., 4.555653628058581}, {7., 4.555653943287428}}], LineBox[{{7., 4.555653943287428}, {7., 4.555654258516176}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{9., 7.284539665889405}, {9., 7.28456024759707}}], LineBox[{{9., 7.28456024759707}, {9., 7.284580828881137}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], 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[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{5., 2.120308945769061}, Offset[{3, 0}, {5., 2.120308945769061}]}, {{5., 2.120308945769061}, Offset[{-3, 0}, {5., 2.120308945769061}]}, {{ 5., 2.1203089445691155`}, Offset[{3, 0}, {5., 2.1203089445691155`}]}, {{5., 2.1203089445691155`}, Offset[{-3, 0}, {5., 2.1203089445691155`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{7., 4.555654258516176}, Offset[{3, 0}, {7., 4.555654258516176}]}, {{7., 4.555654258516176}, Offset[{-3, 0}, {7., 4.555654258516176}]}, {{ 7., 4.555653628058581}, Offset[{3, 0}, {7., 4.555653628058581}]}, {{7., 4.555653628058581}, Offset[{-3, 0}, {7., 4.555653628058581}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{9., 7.284580828881137}, Offset[{3, 0}, {9., 7.284580828881137}]}, {{9., 7.284580828881137}, Offset[{-3, 0}, {9., 7.284580828881137}]}, {{ 9., 7.284539665889405}, Offset[{3, 0}, {9., 7.284539665889405}]}, {{9., 7.284539665889405}, Offset[{-3, 0}, {9., 7.284539665889405}]}}], {{{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., 10.161727940887767`}, Offset[{3, 0}, {11., 10.161727940887767`}]}, {{11., 10.161727940887767`}, Offset[{-3, 0}, {11., 10.161727940887767`}]}, {{11., 10.161573447047902`}, Offset[{3, 0}, {11., 10.161573447047902`}]}, {{11., 10.161573447047902`}, Offset[{-3, 0}, {11., 10.161573447047902`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{3., 0.6126028894906074}, {5., 2.1203089451690884`}, {7., 4.555653943287428}, {9., 7.28456024759707}, {11., 10.161650696951378`}, {13., 13.126355398673866`}, {15., 16.1573163641116}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{3., 0.6126028894906075}, {5., 2.116663821853074}, {7., 4.5470484758699845`}, {9., 7.272899590086907}, {11., 10.148381912570931`}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., -0.6038591566117526}, 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., 15.}, {-0.6038591566117526, 16.1573163641116}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->FrontEndValueCache[{Automatic, Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{0., FormBox["1", TraditionalForm], {0.01, 0.}}, {4.605170185988092, FormBox["100", TraditionalForm], {0.01, 0.}}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {13.815510557964274`, FormBox[ TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {2.302585092994046, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 6.907755278982137, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11.512925464970229`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 16.11809565095832, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 18.420680743952367`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 18.82614585206053, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 19.11382792451231, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 19.33697147582652, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]]], "Output", CellChangeTimes->{{3.8394864302572823`*^9, 3.839486485737481*^9}, { 3.8394868108920527`*^9, 3.839486833544271*^9}, {3.839486968169405*^9, 3.839486994739235*^9}, {3.839487050609737*^9, 3.839487081545911*^9}, { 3.839487139032605*^9, 3.839487149734391*^9}, 3.8394880559648848`*^9, 3.839488095210012*^9, 3.839488432022138*^9, 3.839488966485567*^9, 3.839489132907782*^9, 3.8394891742679043`*^9, {3.83948923216856*^9, 3.839489247298073*^9}, {3.8394892811100388`*^9, 3.839489297255623*^9}, { 3.839489518429874*^9, 3.839489576749642*^9}, 3.839489614460577*^9, { 3.839489646744204*^9, 3.839489717916*^9}, {3.839489779953936*^9, 3.839489797877178*^9}, {3.839489858269053*^9, 3.839489894400456*^9}, 3.83948999298129*^9, 3.839490039302783*^9, 3.839490198501548*^9, { 3.8394903145949183`*^9, 3.839490366668486*^9}, 3.839490410230691*^9, 3.83949068744411*^9, 3.839490882032105*^9, {3.839490915087521*^9, 3.8394909440773563`*^9}, {3.839491208442045*^9, 3.839491227913024*^9}, 3.839491282583577*^9, 3.83949138318426*^9, 3.839491847872534*^9, 3.839491922779976*^9, {3.83949214072232*^9, 3.839492147793445*^9}, 3.839492703416108*^9, {3.8394930877867403`*^9, 3.839493111348575*^9}, 3.839493159337824*^9, 3.839493260745894*^9, 3.8394938495813704`*^9, { 3.839494015878335*^9, 3.839494051166876*^9}, 3.839494155707307*^9, { 3.839494232008819*^9, 3.8394942817479143`*^9}, {3.8394955838062563`*^9, 3.839495620912838*^9}, {3.839495892980287*^9, 3.839495961352178*^9}, 3.839495996781355*^9, 3.8394960290995007`*^9, {3.8394961117034683`*^9, 3.839496132210868*^9}, {3.839496233750821*^9, 3.839496247464304*^9}, { 3.839496287823802*^9, 3.839496304224265*^9}, 3.83949641106695*^9, 3.839496651844782*^9, 3.839569714442939*^9, 3.839570692350816*^9, 3.839571037545631*^9, 3.8395710776956797`*^9, 3.8395711376334047`*^9, 3.839571186222416*^9, 3.839571351854351*^9, 3.8395716431049433`*^9, 3.8395716961263447`*^9, 3.8395719356619263`*^9, 3.839571975466508*^9, { 3.8395720292576017`*^9, 3.839572038127006*^9}, {3.83957217256413*^9, 3.83957219391011*^9}, 3.839572236054682*^9, {3.839572276306333*^9, 3.839572287892969*^9}, 3.839572342583872*^9, 3.839572572560753*^9, 3.839572613884104*^9, {3.839572830197351*^9, 3.839572867853582*^9}, { 3.839572962859436*^9, 3.839572978399377*^9}, 3.839573191565909*^9, 3.83957323416776*^9, 3.839574190974876*^9, {3.839574358418882*^9, 3.839574363836178*^9}, 3.839577688193771*^9, {3.839577931409347*^9, 3.839577940725779*^9}, {3.839579623692398*^9, 3.839579641583359*^9}, 3.839580176251998*^9, {3.839580243310802*^9, 3.839580260058309*^9}, 3.83958034038577*^9, 3.839581557584*^9, {3.83958160487352*^9, 3.839581615679512*^9}, 3.839581993151758*^9, 3.839582040886951*^9, 3.839582108820992*^9, 3.839582559973913*^9, 3.839582771424386*^9, { 3.839583107834976*^9, 3.839583154778919*^9}, {3.8395842000019083`*^9, 3.839584229236342*^9}, 3.839584319284484*^9, 3.8395843940434847`*^9, 3.839584572371277*^9, 3.839584947067206*^9, 3.839585081305537*^9, 3.839586137503179*^9, 3.8395862976249247`*^9, 3.839586429104487*^9, 3.839587842464167*^9, 3.839647990219092*^9, 3.8396572711023006`*^9, 3.839658508039483*^9, 3.839658567146755*^9, {3.8396586610674477`*^9, 3.8396586758654203`*^9}, 3.839659271097528*^9, 3.839661799778942*^9, { 3.839664337728752*^9, 3.8396643582360373`*^9}, {3.839664548980212*^9, 3.839664603837595*^9}, 3.839664641104356*^9, 3.8396691346008053`*^9, 3.8396700455490303`*^9, 3.839670127013689*^9, 3.8405260833413677`*^9, { 3.840527418121812*^9, 3.840527428230318*^9}, 3.840528597876438*^9, { 3.84052880585203*^9, 3.840528823602725*^9}, 3.840610810412817*^9, 3.8408694556097403`*^9, 3.840872804624278*^9, {3.840875797574889*^9, 3.8408758121424313`*^9}, {3.840877666763609*^9, 3.840877677233533*^9}, 3.840878067793683*^9, {3.840880830069907*^9, 3.84088085023195*^9}, { 3.840880881407505*^9, 3.840880885369958*^9}, 3.840880931429838*^9, 3.840880983523183*^9, 3.840882901582034*^9, 3.8411116534753313`*^9, 3.841111732347678*^9, 3.841112335446682*^9, 3.8411123976633244`*^9, 3.8411142717862453`*^9, 3.841114943143334*^9, 3.841115089052647*^9, 3.841115194051117*^9, 3.8411159468161507`*^9, 3.841116777994376*^9, 3.841117271305902*^9, {3.841118706967044*^9, 3.841118717367868*^9}, { 3.8411193655082083`*^9, 3.84111937034937*^9}, 3.8411197766851873`*^9, 3.8411198234566708`*^9, 3.841119866102133*^9, 3.841120115400488*^9, 3.841121153260182*^9, 3.841121472842341*^9, 3.841121535767632*^9, 3.8411219087701063`*^9, 3.841121980800602*^9, 3.841130166199669*^9, 3.8411305965940332`*^9, {3.841130719276822*^9, 3.8411307399666243`*^9}, 3.8411312190210743`*^9, 3.841134375147834*^9, 3.8411344263576813`*^9, { 3.8411344705668488`*^9, 3.841134479867544*^9}, {3.8411346037463017`*^9, 3.8411346144767933`*^9}, 3.8411356496009407`*^9, 3.841135748390747*^9, 3.8412137046354218`*^9, 3.841225535005499*^9, 3.8413034028742332`*^9, 3.841304441693802*^9, 3.841304530951276*^9, {3.841305187833931*^9, 3.841305194151207*^9}, 3.84130523777777*^9, 3.8413053474536552`*^9, 3.84131085931179*^9, 3.841316307349918*^9, {3.841390485438642*^9, 3.84139049061092*^9}, {3.841390578562212*^9, 3.841390608215399*^9}, 3.8413906429454*^9, 3.841390808978589*^9, {3.841390952687045*^9, 3.841390955726741*^9}, 3.841391292844046*^9, 3.841392160458399*^9, 3.841392337553176*^9, 3.841463592414769*^9, 3.8414645935303507`*^9, 3.8419946154384203`*^9, 3.8419951467045593`*^9, {3.842003427326373*^9, 3.842003430834703*^9}, 3.8420689347601557`*^9, 3.8423302325436993`*^9, { 3.842330473156518*^9, 3.8423305425457087`*^9}, 3.842330808232905*^9, 3.842337094201315*^9, 3.842350008585443*^9, 3.842422355862982*^9, 3.842422825653632*^9, 3.842518125710841*^9, 3.8425199173222017`*^9}, CellLabel->"Out[9]=",ExpressionUUID->"ef81ae05-495e-4a10-8e00-e5378065743c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m0", "=", RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "0", "]"}], ",", "d"}], "]"}], "[", "2", "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "0", "]"}], "]"}]}], ",", "d", ",", "s0"}], "]"}]}]], "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}}, CellLabel->"In[14]:=",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], Cell[CellGroupData[{ Cell[BoxData["3.780365613675426`*^-17"], "Print", CellChangeTimes->{ 3.8419964778762493`*^9, 3.841996772029714*^9, 3.842003441050926*^9, 3.84206895029628*^9, {3.8420710596655188`*^9, 3.8420711099569902`*^9}, 3.842071265014825*^9, 3.84207131686103*^9, 3.8420775852166233`*^9, 3.84233042160254*^9, 3.842330502764182*^9, 3.8423308211074142`*^9, 3.842337098612039*^9, 3.842350026119588*^9, 3.842422359497167*^9, 3.8424228280979633`*^9, 3.842518129102141*^9, 3.842518173249959*^9, 3.842518308115878*^9, 3.842518651037122*^9, 3.842519784835025*^9, { 3.842519917624295*^9, 3.842519946731964*^9}, 3.842520034770431*^9}, CellLabel-> "During evaluation of \ In[14]:=",ExpressionUUID->"66a8ff17-0d24-4fef-a95e-5879871a56cd"], Cell[BoxData["3.780365613675426`*^-13"], "Print", CellChangeTimes->{ 3.8419964778762493`*^9, 3.841996772029714*^9, 3.842003441050926*^9, 3.84206895029628*^9, {3.8420710596655188`*^9, 3.8420711099569902`*^9}, 3.842071265014825*^9, 3.84207131686103*^9, 3.8420775852166233`*^9, 3.84233042160254*^9, 3.842330502764182*^9, 3.8423308211074142`*^9, 3.842337098612039*^9, 3.842350026119588*^9, 3.842422359497167*^9, 3.8424228280979633`*^9, 3.842518129102141*^9, 3.842518173249959*^9, 3.842518308115878*^9, 3.842518651037122*^9, 3.842519784835025*^9, { 3.842519917624295*^9, 3.842519946731964*^9}, 3.842520034861273*^9}, CellLabel-> "During evaluation of \ In[14]:=",ExpressionUUID->"00a69f8d-00b7-4401-b1b4-b5e9a93ac4f6"], Cell[BoxData["3.780365613675425`*^-9"], "Print", CellChangeTimes->{ 3.8419964778762493`*^9, 3.841996772029714*^9, 3.842003441050926*^9, 3.84206895029628*^9, {3.8420710596655188`*^9, 3.8420711099569902`*^9}, 3.842071265014825*^9, 3.84207131686103*^9, 3.8420775852166233`*^9, 3.84233042160254*^9, 3.842330502764182*^9, 3.8423308211074142`*^9, 3.842337098612039*^9, 3.842350026119588*^9, 3.842422359497167*^9, 3.8424228280979633`*^9, 3.842518129102141*^9, 3.842518173249959*^9, 3.842518308115878*^9, 3.842518651037122*^9, 3.842519784835025*^9, { 3.842519917624295*^9, 3.842519946731964*^9}, 3.842520034952455*^9}, CellLabel-> "During evaluation of \ In[14]:=",ExpressionUUID->"fb2f9056-2601-4bb7-aa35-1e507914a317"], Cell[BoxData["0.00003780365613675426`"], "Print", CellChangeTimes->{ 3.8419964778762493`*^9, 3.841996772029714*^9, 3.842003441050926*^9, 3.84206895029628*^9, {3.8420710596655188`*^9, 3.8420711099569902`*^9}, 3.842071265014825*^9, 3.84207131686103*^9, 3.8420775852166233`*^9, 3.84233042160254*^9, 3.842330502764182*^9, 3.8423308211074142`*^9, 3.842337098612039*^9, 3.842350026119588*^9, 3.842422359497167*^9, 3.8424228280979633`*^9, 3.842518129102141*^9, 3.842518173249959*^9, 3.842518308115878*^9, 3.842518651037122*^9, 3.842519784835025*^9, { 3.842519917624295*^9, 3.842519946731964*^9}, 3.842520035046094*^9}, CellLabel-> "During evaluation of \ In[14]:=",ExpressionUUID->"c1b182f4-41eb-4773-8407-621f51299e7d"], Cell[BoxData["0.3780365613675426`"], "Print", CellChangeTimes->{ 3.8419964778762493`*^9, 3.841996772029714*^9, 3.842003441050926*^9, 3.84206895029628*^9, {3.8420710596655188`*^9, 3.8420711099569902`*^9}, 3.842071265014825*^9, 3.84207131686103*^9, 3.8420775852166233`*^9, 3.84233042160254*^9, 3.842330502764182*^9, 3.8423308211074142`*^9, 3.842337098612039*^9, 3.842350026119588*^9, 3.842422359497167*^9, 3.8424228280979633`*^9, 3.842518129102141*^9, 3.842518173249959*^9, 3.842518308115878*^9, 3.842518651037122*^9, 3.842519784835025*^9, { 3.842519917624295*^9, 3.842519946731964*^9}, 3.84252003513686*^9}, CellLabel-> "During evaluation of \ In[14]:=",ExpressionUUID->"530491f4-199f-4876-81ff-c113b559ec20"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"0.3780365613675426`", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.2120963457132339`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.1805162669647244`"}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.129941828735235`"}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2445989659606354`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.49913798222074407`"}]}], "}"}]}], "}"}]], "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}, CellLabel->"Out[14]=",ExpressionUUID->"ea79e514-ea99-4fdc-8f45-89363d3b0bf8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m01", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "0", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "15"}]]}], "]"}], "[", "2", "]"}], "2"], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "0", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m0", "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"m0", "[", 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.841826871248399*^9, 3.84182687327967*^9}, { 3.841826963193843*^9, 3.8418269640493317`*^9}, {3.8419952730999537`*^9, 3.84199527358777*^9}, {3.8420691561503267`*^9, 3.8420691815253487`*^9}, { 3.842077520948737*^9, 3.842077579789769*^9}, 3.842330455445321*^9, { 3.842330509575235*^9, 3.84233050965302*^9}, {3.842330942788649*^9, 3.842330943420467*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"b02b5204-9158-4350-9e92-e8f555f47ba7"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "\[Theta]c", "\[Rule]", "1.21209634571313281633389590008374367813`20."}], ",", RowBox[{ "\[Theta]0", "\[Rule]", "0.18051626696442270296721516815656377383`20."}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.12994182873168992645742954806228483516`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.24459896595719677689274587239885003519`20."}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4991379822210818398801604963306626113`20."}]}], "}"}]], "Output", CellChangeTimes->{{3.841826482020074*^9, 3.8418265862239122`*^9}, { 3.841826659980463*^9, 3.841826667924841*^9}, {3.841826769333158*^9, 3.841826781359291*^9}, 3.841826875723233*^9, 3.8418269303503838`*^9, 3.84182696518847*^9, 3.841995274507485*^9, 3.841996569508958*^9, 3.8419969067210817`*^9, 3.842003895497058*^9, 3.8420691052661533`*^9, { 3.842069157635578*^9, 3.8420691831628323`*^9}, {3.842077537450878*^9, 3.84207758678786*^9}, {3.842330452122755*^9, 3.842330455905246*^9}, 3.842330510039486*^9, 3.842330823682598*^9, 3.8423308801056004`*^9, 3.8423309436807528`*^9, 3.842337100874065*^9, 3.8423500280732517`*^9, 3.842422360959221*^9, 3.842422833395204*^9, 3.842518654421541*^9, 3.842520037902483*^9}, CellLabel->"Out[15]=",ExpressionUUID->"ae058dee-c3ad-4bfe-a04e-3a07b2c59ea4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m1", "=", RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "1", "]"}], ",", "\[Delta]"}], "]"}], "[", "3", "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "1", "]"}], "]"}]}], ",", "\[Delta]", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"m0", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "->", "0"}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.8414646994225616`*^9, 3.841464738150351*^9}, { 3.841995249227251*^9, 3.8419952496592083`*^9}, {3.841995323982559*^9, 3.841995342013027*^9}, {3.841996549668969*^9, 3.841996553267212*^9}, { 3.841996704350882*^9, 3.841996707910059*^9}, {3.841996888674657*^9, 3.8419968959214983`*^9}, {3.842330945573291*^9, 3.842330946196393*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"29398383-9203-4cf6-aabb-1d3fe15a5894"], Cell[CellGroupData[{ Cell[BoxData["2.884778795330512`*^-16"], "Print", CellChangeTimes->{{3.84146472167447*^9, 3.841464739046789*^9}, 3.841466102601021*^9, 3.8414661640538692`*^9, 3.841727618703388*^9, 3.841733575217207*^9, 3.841735119492049*^9, 3.841826723167212*^9, 3.8419952526781797`*^9, 3.841995357906107*^9, 3.841996553874887*^9, 3.84199689645995*^9, 3.842003892636663*^9, 3.842069102491523*^9, 3.8420711150931253`*^9, 3.8420712706377296`*^9, 3.842077685085354*^9, 3.842078232721704*^9, 3.842330904335943*^9, 3.842330947153545*^9, 3.8423371024063387`*^9, 3.84235002923596*^9, 3.8424223626001177`*^9, 3.842422836179119*^9, 3.842518657364423*^9, 3.842520046731331*^9}, CellLabel-> "During evaluation of \ In[16]:=",ExpressionUUID->"d9104651-706f-4b68-a5a5-c728ea465ffa"], Cell[BoxData["2.884778795330512`*^-12"], "Print", CellChangeTimes->{{3.84146472167447*^9, 3.841464739046789*^9}, 3.841466102601021*^9, 3.8414661640538692`*^9, 3.841727618703388*^9, 3.841733575217207*^9, 3.841735119492049*^9, 3.841826723167212*^9, 3.8419952526781797`*^9, 3.841995357906107*^9, 3.841996553874887*^9, 3.84199689645995*^9, 3.842003892636663*^9, 3.842069102491523*^9, 3.8420711150931253`*^9, 3.8420712706377296`*^9, 3.842077685085354*^9, 3.842078232721704*^9, 3.842330904335943*^9, 3.842330947153545*^9, 3.8423371024063387`*^9, 3.84235002923596*^9, 3.8424223626001177`*^9, 3.842422836179119*^9, 3.842518657364423*^9, 3.842520046948523*^9}, CellLabel-> "During evaluation of \ In[16]:=",ExpressionUUID->"9deab4b3-ca90-4b8f-9923-48119f6ff847"], Cell[BoxData["4.220530405460832`*^-9"], "Print", CellChangeTimes->{{3.84146472167447*^9, 3.841464739046789*^9}, 3.841466102601021*^9, 3.8414661640538692`*^9, 3.841727618703388*^9, 3.841733575217207*^9, 3.841735119492049*^9, 3.841826723167212*^9, 3.8419952526781797`*^9, 3.841995357906107*^9, 3.841996553874887*^9, 3.84199689645995*^9, 3.842003892636663*^9, 3.842069102491523*^9, 3.8420711150931253`*^9, 3.8420712706377296`*^9, 3.842077685085354*^9, 3.842078232721704*^9, 3.842330904335943*^9, 3.842330947153545*^9, 3.8423371024063387`*^9, 3.84235002923596*^9, 3.8424223626001177`*^9, 3.842422836179119*^9, 3.842518657364423*^9, 3.84252004717006*^9}, CellLabel-> "During evaluation of \ In[16]:=",ExpressionUUID->"5404d31c-e62e-49e2-b333-009a21640524"], Cell[BoxData["0.000011424310526996445`"], "Print", CellChangeTimes->{{3.84146472167447*^9, 3.841464739046789*^9}, 3.841466102601021*^9, 3.8414661640538692`*^9, 3.841727618703388*^9, 3.841733575217207*^9, 3.841735119492049*^9, 3.841826723167212*^9, 3.8419952526781797`*^9, 3.841995357906107*^9, 3.841996553874887*^9, 3.84199689645995*^9, 3.842003892636663*^9, 3.842069102491523*^9, 3.8420711150931253`*^9, 3.8420712706377296`*^9, 3.842077685085354*^9, 3.842078232721704*^9, 3.842330904335943*^9, 3.842330947153545*^9, 3.8423371024063387`*^9, 3.84235002923596*^9, 3.8424223626001177`*^9, 3.842422836179119*^9, 3.842518657364423*^9, 3.842520047389844*^9}, CellLabel-> "During evaluation of \ In[16]:=",ExpressionUUID->"a28f94b4-89ad-47e1-846c-b7ba0fcb7ac6"], Cell[BoxData["0.11421232427643684`"], "Print", CellChangeTimes->{{3.84146472167447*^9, 3.841464739046789*^9}, 3.841466102601021*^9, 3.8414661640538692`*^9, 3.841727618703388*^9, 3.841733575217207*^9, 3.841735119492049*^9, 3.841826723167212*^9, 3.8419952526781797`*^9, 3.841995357906107*^9, 3.841996553874887*^9, 3.84199689645995*^9, 3.842003892636663*^9, 3.842069102491523*^9, 3.8420711150931253`*^9, 3.8420712706377296`*^9, 3.842077685085354*^9, 3.842078232721704*^9, 3.842330904335943*^9, 3.842330947153545*^9, 3.8423371024063387`*^9, 3.84235002923596*^9, 3.8424223626001177`*^9, 3.842422836179119*^9, 3.842518657364423*^9, 3.842520047624308*^9}, CellLabel-> "During evaluation of \ In[16]:=",ExpressionUUID->"5e2a6bb4-7ccd-42bc-b14a-a202975669c5"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"0.11421232427643684`", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.3514739735889152`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.1957875839013835`"}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.1934946298684155`"}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2326359515350764`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3899455491908591`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.014804440592454005`"}]}]}], "}"}]}], "}"}]], "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}, CellLabel->"Out[16]=",ExpressionUUID->"cd65ff5b-16a6-4251-b492-a29a4744c41a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m11", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "1", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "15"}]]}], "]"}], "[", "3", "]"}], "2"], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "1", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m1", "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"m1", "[", 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.841826871248399*^9, 3.84182687327967*^9}, { 3.841826963193843*^9, 3.8418269640493317`*^9}, {3.8419952730999537`*^9, 3.84199527358777*^9}, {3.8420691561503267`*^9, 3.8420691815253487`*^9}, { 3.84207773630513*^9, 3.842077737128639*^9}, {3.842330932925227*^9, 3.8423309335562067`*^9}}, CellLabel->"In[17]:=",ExpressionUUID->"672771a7-a1bf-4e81-a251-1d2b0d34398b"], Cell[BoxData[ TemplateBox[{ "FindRoot", "precw", "\"The precision of the argument function (\\!\\(\\*RowBox[{\\\"{\\\", \ RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"}\ \\\"}]\\)) is less than WorkingPrecision \ (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 17, 9, 31644696824622545935, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.841826482012022*^9, 3.8418265982231407`*^9}, 3.8418266678489017`*^9, {3.841826768683412*^9, 3.841826780765348*^9}, 3.841826875141672*^9, 3.841826929758007*^9, 3.841826964563582*^9, 3.8419952739331408`*^9, 3.841996568907916*^9, 3.841996906134685*^9, 3.842003894907547*^9, 3.842069104545673*^9, {3.84206915693228*^9, 3.8420691824589853`*^9}, {3.842077724841714*^9, 3.842077737819858*^9}, { 3.842078661680546*^9, 3.8420786765827713`*^9}, {3.8423309121617327`*^9, 3.842330949894741*^9}, 3.842337103708199*^9, 3.8423500306424713`*^9, 3.8424223640648746`*^9, 3.8424228401440496`*^9, 3.842518661933456*^9, 3.8425200642498693`*^9}, CellLabel-> "During evaluation of \ In[17]:=",ExpressionUUID->"16f25f6e-c60e-4f8e-aede-8f4156f4e8ce"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "\[Theta]c", "\[Rule]", "1.35147397358894525223450735684857485043`20."}], ",", RowBox[{ "\[Theta]0", "\[Rule]", "0.19578758390135295878905816619304170396`20."}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.19349462986795838376652314061310212138`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2326359515345835925558116124521192135`20."}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.38994554919088379817648247529054591438`20."}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.01480444059243325862816297503102407804`20."}]}]}], "}"}]], "Output", CellChangeTimes->{{3.841826482020074*^9, 3.8418265862239122`*^9}, { 3.841826659980463*^9, 3.841826667924841*^9}, {3.841826769333158*^9, 3.841826781359291*^9}, 3.841826875723233*^9, 3.8418269303503838`*^9, 3.84182696518847*^9, 3.841995274507485*^9, 3.841996569508958*^9, 3.8419969067210817`*^9, 3.842003895497058*^9, 3.8420691052661533`*^9, { 3.842069157635578*^9, 3.8420691831628323`*^9}, {3.842077725555573*^9, 3.8420777385296183`*^9}, {3.8420786623935328`*^9, 3.842078677295776*^9}, { 3.842330912908163*^9, 3.8423309506236877`*^9}, 3.842337104392415*^9, 3.842350031357284*^9, 3.84242236479818*^9, 3.8424228410788403`*^9, 3.842518662641458*^9, 3.8425200649473543`*^9}, CellLabel->"Out[17]=",ExpressionUUID->"71696ee5-0fd3-4161-bb8a-42196929e12f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m2", "=", RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"3", ",", RowBox[{"h", "[", "2", "]"}], ",", "\[Delta]"}], "]"}], "[", "4", "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "2", "]"}], "]"}]}], ",", "\[Delta]", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"m1", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"gC", "[", "2", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "->", "0"}]}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.841464800663937*^9, 3.8414648092082663`*^9}, { 3.841485136434773*^9, 3.841485139912166*^9}, {3.8418271675674467`*^9, 3.841827173829061*^9}, {3.8418272431358757`*^9, 3.841827252838594*^9}, { 3.8419952877320557`*^9, 3.841995290092039*^9}, {3.8419965784135103`*^9, 3.841996650284897*^9}, {3.8420796632379017`*^9, 3.8420796662279243`*^9}, { 3.842079696973995*^9, 3.842079709908813*^9}, {3.842080958844912*^9, 3.842080971507966*^9}, {3.8420810131822977`*^9, 3.8420810161723013`*^9}, { 3.842081087975649*^9, 3.842081100630134*^9}, {3.842081146161045*^9, 3.8420812229204082`*^9}, {3.842330964068717*^9, 3.8423309647887774`*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ \"-\\\", \\\"2.129179868262892`*^-307\\\"}], \\\")\\\"}]}]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 18, 10, 31644696824622545935, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.842422847302683*^9, 3.842520092820795*^9}, CellLabel-> "During evaluation of \ In[18]:=",ExpressionUUID->"00c6f1ea-3eec-4d3f-a9b1-c856f407739b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ \"-\\\", \\\"1.5158343860408508`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 18, 11, 31644696824622545935, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.842422847302683*^9, 3.84252009289397*^9}, CellLabel-> "During evaluation of \ In[18]:=",ExpressionUUID->"49d360c7-8ef7-4563-83c8-b743c60ff9b7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ \"-\\\", \\\"1.064589934131446`*^-307\\\"}], \\\")\\\"}]}]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 18, 12, 31644696824622545935, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.842422847302683*^9, 3.84252009294631*^9}, CellLabel-> "During evaluation of \ In[18]:=",ExpressionUUID->"36901832-ab1d-4868-bcd4-9068ed98c877"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 18, 13, 31644696824622545935, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.842422847302683*^9, 3.842520092998521*^9}, CellLabel-> "During evaluation of \ In[18]:=",ExpressionUUID->"92ba5879-5df1-4071-95fd-5e396ca115a8"], Cell[CellGroupData[{ Cell[BoxData["1.4792223746118249`*^-12"], "Print", CellChangeTimes->{3.8420812260607767`*^9, 3.842330966784256*^9, 3.8423371079542294`*^9, 3.8423500378924522`*^9, 3.842422367017631*^9, 3.8424228481657143`*^9, 3.842520093800084*^9}, CellLabel-> "During evaluation of \ In[18]:=",ExpressionUUID->"2eb76cfa-8d88-4fbb-81e1-25a0cd13aa6b"], Cell[BoxData["1.4699609964783238`*^-8"], "Print", CellChangeTimes->{3.8420812260607767`*^9, 3.842330966784256*^9, 3.8423371079542294`*^9, 3.8423500378924522`*^9, 3.842422367017631*^9, 3.8424228481657143`*^9, 3.842520094519825*^9}, CellLabel-> "During evaluation of \ In[18]:=",ExpressionUUID->"6f80e87d-2c46-4938-b3b1-da63b3212821"], Cell[BoxData["0.00003420810868783384`"], "Print", CellChangeTimes->{3.8420812260607767`*^9, 3.842330966784256*^9, 3.8423371079542294`*^9, 3.8423500378924522`*^9, 3.842422367017631*^9, 3.8424228481657143`*^9, 3.842520095704912*^9}, CellLabel-> "During evaluation of \ In[18]:=",ExpressionUUID->"06a5b04b-2e6f-4043-9f3e-53b5890ebac0"], Cell[BoxData["0.0008760468866281332`"], "Print", CellChangeTimes->{3.8420812260607767`*^9, 3.842330966784256*^9, 3.8423371079542294`*^9, 3.8423500378924522`*^9, 3.842422367017631*^9, 3.8424228481657143`*^9, 3.842520096421179*^9}, CellLabel-> "During evaluation of \ In[18]:=",ExpressionUUID->"582458f2-df71-43c8-9dfa-20603aeebeef"], Cell[BoxData["8.459323369543354`"], "Print", CellChangeTimes->{3.8420812260607767`*^9, 3.842330966784256*^9, 3.8423371079542294`*^9, 3.8423500378924522`*^9, 3.842422367017631*^9, 3.8424228481657143`*^9, 3.8425200971500463`*^9}, CellLabel-> "During evaluation of \ In[18]:=",ExpressionUUID->"b7b06d10-ed9a-43f3-a119-d4e4f7607a04"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"8.459323369543354`", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.448170534187783`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.1956362598741826`"}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.243875193310685`"}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.297214677276289`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.37112702599447517`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.1085846669730256`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "0.003180060111536463`"}]}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.028954059036173905`"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.841464815669158*^9, 3.841466117830838*^9, 3.8414661767800817`*^9, 3.841485159686406*^9, 3.841727626690813*^9, 3.841733647995943*^9, 3.841733723021474*^9, 3.841735127497295*^9, 3.8418268488152533`*^9, 3.8418271797495813`*^9, 3.84182725775012*^9, 3.841995292128934*^9, { 3.841996587850503*^9, 3.8419966289686527`*^9}, 3.841996920531605*^9, 3.842004615842749*^9, 3.842069270992249*^9, 3.8420711200669518`*^9, 3.842071276106262*^9, 3.842077849817638*^9, 3.842079668218588*^9, { 3.842079703701714*^9, 3.8420797141289167`*^9}, 3.842080976350466*^9, 3.8420810189705048`*^9, 3.8420811078387203`*^9, 3.842081151755992*^9, { 3.842081182051322*^9, 3.842081226545164*^9}, 3.842330967144816*^9, 3.8423371084108763`*^9, 3.842350038269466*^9, 3.842422367406248*^9, 3.842422849491827*^9, 3.842520097152034*^9}, CellLabel->"Out[18]=",ExpressionUUID->"29eaded3-ea87-4160-b057-a5f3ca985e4f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m21", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"3", ",", RowBox[{"h", "[", "2", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "15"}]]}], "]"}], "[", "4", "]"}], "2"], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "2", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m2", "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"m2", "[", 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.841826972633595*^9}, {3.841995306564616*^9, 3.841995310220604*^9}, {3.842069315688878*^9, 3.84206931645564*^9}, { 3.8420694200901613`*^9, 3.842069420209611*^9}, {3.842069485315439*^9, 3.842069506987363*^9}, {3.842079675637556*^9, 3.842079676892334*^9}, { 3.8420797175101213`*^9, 3.842079721644863*^9}, {3.842330972532982*^9, 3.842331004349412*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"eaf55068-7c6e-48d1-8e5b-093c2f4b5994"], Cell[BoxData[ TemplateBox[{ "FindRoot", "precw", "\"The precision of the argument function \ ({1000000000000000000000000000000 <<1>> (Divide[-2 <<6>>, Power[<<2>>] \ \[Theta]c] + <<4>>) + <<6>>, <<7>>}) is less than WorkingPrecision \ (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 19, 14, 31644696824622545935, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.841826482012022*^9, 3.8418265982231407`*^9}, 3.8418266678489017`*^9, {3.841826768683412*^9, 3.841826780765348*^9}, { 3.841826898513888*^9, 3.8418269227694597`*^9}, 3.841826973347541*^9, { 3.8419953073833447`*^9, 3.841995314188479*^9}, 3.841996635157215*^9, 3.841996921667355*^9, 3.842004616129239*^9, 3.842069276220972*^9, 3.842069316903061*^9, 3.842069420754609*^9, {3.842069486053893*^9, 3.842069507761615*^9}, 3.842077855194168*^9, {3.842079670029725*^9, 3.8420796778177433`*^9}, 3.842079722258478*^9, {3.842330973610955*^9, 3.842331004742782*^9}, 3.84233710921486*^9, 3.842350039279162*^9, 3.8424228665107718`*^9, 3.8425201009101257`*^9}, CellLabel-> "During evaluation of \ In[19]:=",ExpressionUUID->"e28ce7ee-abdf-4231-88d8-1a1ff8215362"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "\[Theta]c", "\[Rule]", "1.44817053418724950796582532112042580787`20."}], ",", RowBox[{ "\[Theta]0", "\[Rule]", "0.19563625987408769066425376024313335239`20."}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.2438751933085426799037263425203777081`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.29721467727373913007533136173805830926`20."}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.37112702599660298142707565562956898964`20."}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.10858466697367488931698822074374770225`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "0.00318006011183193050398848254420911332`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.02895405903691393908968373913303400394`20."}]}]}], "}"}]], "Output", CellChangeTimes->{{3.841826482020074*^9, 3.8418265862239122`*^9}, { 3.841826659980463*^9, 3.841826667924841*^9}, {3.841826769333158*^9, 3.841826781359291*^9}, {3.841826901984071*^9, 3.841826926295443*^9}, 3.841826976960929*^9, {3.841995312910524*^9, 3.8419953178377438`*^9}, 3.841996638694839*^9, 3.841996925176203*^9, 3.842004619699828*^9, 3.8420692803788433`*^9, 3.842069417281849*^9, {3.8420694796216497`*^9, 3.842069511956089*^9}, 3.842077859280026*^9, {3.8420796719625473`*^9, 3.84207967940968*^9}, 3.842079726306419*^9, {3.8423309758973*^9, 3.8423310076177473`*^9}, 3.842337111888616*^9, 3.8423500420307827`*^9, 3.842422870066044*^9, 3.842520103628222*^9}, CellLabel->"Out[19]=",ExpressionUUID->"800387cb-98f8-4964-a6db-e2418aeee6f9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m3", "=", RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"3", ",", RowBox[{"h", "[", "3", "]"}], ",", "\[Delta]"}], "]"}], "[", "5", "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "3", "]"}], "]"}]}], ",", "\[Delta]", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"m2", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "->", "0"}], "}"}]}], "]"}]}], "]"}]}]], "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}, { 3.841995426486705*^9, 3.8419954269346237`*^9}, {3.842078716860094*^9, 3.842078729546844*^9}, {3.8420792852866793`*^9, 3.842079291813146*^9}, { 3.842079345887349*^9, 3.8420793512462807`*^9}, {3.842079433313261*^9, 3.8420794355203037`*^9}, {3.842079487073419*^9, 3.842079587890482*^9}, { 3.842079758375825*^9, 3.842079765885857*^9}, {3.8420804914851837`*^9, 3.842080502547262*^9}, {3.84208054862962*^9, 3.8420805523079987`*^9}, { 3.842081248067449*^9, 3.842081266249155*^9}, {3.842081300203639*^9, 3.842081303641553*^9}, {3.842081352812458*^9, 3.842081364659107*^9}, { 3.842331025293833*^9, 3.842331035581976*^9}, {3.8423500550900373`*^9, 3.8423500619540243`*^9}, 3.842350096428383*^9}, CellLabel->"In[20]:=",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"], Cell[CellGroupData[{ Cell[BoxData["3.44809782900676`*^-11"], "Print", ShowCellLabel->True, CellChangeTimes->{3.8423500691890783`*^9, 3.84235010008107*^9, 3.842350213530634*^9, 3.842422876045011*^9, 3.842520128304534*^9}, CellLabel-> "During evaluation of \ In[20]:=",ExpressionUUID->"a772da9e-f6b7-4a32-8a5f-5eb23b3ae4bc"], Cell[BoxData["3.120935894784196`*^-7"], "Print", ShowCellLabel->True, CellChangeTimes->{3.8423500691890783`*^9, 3.84235010008107*^9, 3.842350213530634*^9, 3.842422876045011*^9, 3.8425201309767733`*^9}, CellLabel-> "During evaluation of \ In[20]:=",ExpressionUUID->"610985db-17e7-4ade-8d8f-698e9a63230f"], Cell[BoxData["0.00013783702408395518`"], "Print", ShowCellLabel->True, CellChangeTimes->{3.8423500691890783`*^9, 3.84235010008107*^9, 3.842350213530634*^9, 3.842422876045011*^9, 3.842520133011567*^9}, CellLabel-> "During evaluation of \ In[20]:=",ExpressionUUID->"3bdf0982-399e-4f2d-9a07-abb77786cd5f"], Cell[BoxData["0.002261584433544737`"], "Print", ShowCellLabel->True, CellChangeTimes->{3.8423500691890783`*^9, 3.84235010008107*^9, 3.842350213530634*^9, 3.842422876045011*^9, 3.842520134913824*^9}, CellLabel-> "During evaluation of \ In[20]:=",ExpressionUUID->"8b1715a6-b797-49cc-ac9f-e372f328bbc3"], Cell[BoxData["21.110718242707467`"], "Print", ShowCellLabel->True, CellChangeTimes->{3.8423500691890783`*^9, 3.84235010008107*^9, 3.842350213530634*^9, 3.842422876045011*^9, 3.842520136821218*^9}, CellLabel-> "During evaluation of \ In[20]:=",ExpressionUUID->"fed30cbf-df6b-4a3e-bcda-5e2b12daee1a"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"21.110718242707467`", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.4723266158274688`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.19553682900120606`"}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.232269708123933`"}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2807104230195974`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.36318368938518`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.11437038495453454`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "0.0031926864989107536`"}]}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.029035647352127002`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "2.1231403623385694`*^-6"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.8414648792576437`*^9, 3.841466213483655*^9, 3.841485177503057*^9, 3.841727640264741*^9, 3.841733779145525*^9, 3.8417351450580807`*^9, 3.841826998518222*^9, 3.8418272820374393`*^9, 3.841827358775434*^9, 3.841995436242744*^9, 3.841996681828261*^9, 3.841996952236771*^9, 3.842069590845109*^9, 3.842078009931535*^9, 3.8420787358255987`*^9, 3.842079296309738*^9, 3.842079356375699*^9, 3.8420795236038446`*^9, 3.842079564541819*^9, 3.8420795979826*^9, 3.8420797739377327`*^9, 3.842080518036228*^9, 3.842080564898203*^9, 3.842081270318274*^9, 3.842081307800519*^9, 3.8420813690203323`*^9, {3.842331030330819*^9, 3.842331039562725*^9}, 3.8423371156656322`*^9, {3.84235008979161*^9, 3.842350100623603*^9}, 3.842350214062072*^9, 3.842422877617168*^9, 3.842520136823037*^9}, CellLabel->"Out[20]=",ExpressionUUID->"debbba60-37bd-46cc-856f-b506dc1254bf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m31", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", RowBox[{"Most", "@", SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"3", ",", RowBox[{"h", "[", "3", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "15"}]]}], "]"}], "[", "5", "]"}], "2"]}], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "3", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m3", "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"m3", "[", 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.841827284791814*^9, 3.841827288375248*^9}, { 3.841827347088809*^9, 3.841827349848246*^9}, {3.841995443303062*^9, 3.841995443783021*^9}, {3.842069637926805*^9, 3.8420696394776506`*^9}, { 3.842069680406251*^9, 3.8420696917106247`*^9}, {3.8420780240393476`*^9, 3.842078024133814*^9}, {3.842078738892099*^9, 3.842078747323058*^9}, { 3.842079304438066*^9, 3.842079337742092*^9}, {3.8423310831031437`*^9, 3.842331089327276*^9}}, CellLabel->"In[21]:=",ExpressionUUID->"0355409d-8b8c-45c1-9506-a20c5fe4044b"], Cell[BoxData[ TemplateBox[{ "FindRoot", "precw", "\"The precision of the argument function \ ({1000000000000000000000000000000 <<1>> (Divide[-2 <<6>>, Power[<<2>>] \ \[Theta]c] + <<4>>) + <<6>>, <<8>>}) is less than WorkingPrecision \ (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 21, 15, 31644696824622545935, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.841826482012022*^9, 3.8418265982231407`*^9}, 3.8418266678489017`*^9, {3.841826768683412*^9, 3.841826780765348*^9}, { 3.841826898513888*^9, 3.8418269227694597`*^9}, 3.841826973347541*^9, 3.84182705459556*^9, 3.841827294890627*^9, 3.841827359251132*^9, 3.841995444288589*^9, 3.84199698679467*^9, 3.842069594193355*^9, 3.8420696400572433`*^9, {3.842069681691224*^9, 3.842069692526046*^9}, { 3.842078011660905*^9, 3.842078028380089*^9}, {3.842078742931691*^9, 3.84207876631013*^9}, 3.842079307426499*^9, {3.8420793395149918`*^9, 3.8420793569538507`*^9}, 3.842079606899269*^9, 3.842079775925702*^9, 3.842331090442833*^9, 3.8423371161724157`*^9, 3.8423502314663477`*^9, 3.842422879244008*^9, 3.8425201410128117`*^9}, CellLabel-> "During evaluation of \ In[21]:=",ExpressionUUID->"a68111da-af1c-48eb-83ed-c30554aaee03"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "\[Theta]c", "\[Rule]", "1.47232661581950574730831794625266003401`20."}], ",", RowBox[{ "\[Theta]0", "\[Rule]", "0.19553682899976941980608212920636866396`20."}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.23226970807859892707817600113955357783`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.28071042296210436756848271479786681478`20."}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.36318368943255909242662724964156499031`20."}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.11437038496255228667232917314953286605`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "0.00319268651089377624375192882529810986`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.02903564736845887811844033076865366934`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "2.12314148923434969689902169745319`20.*^-6"}]}], "}"}]], "Output", CellChangeTimes->{{3.841826482020074*^9, 3.8418265862239122`*^9}, { 3.841826659980463*^9, 3.841826667924841*^9}, {3.841826769333158*^9, 3.841826781359291*^9}, {3.841826901984071*^9, 3.841826926295443*^9}, 3.841826976960929*^9, 3.841827061597597*^9, 3.841827305149766*^9, 3.841827366006094*^9, 3.841995451652528*^9, 3.8419969937253017`*^9, 3.842069602064939*^9, 3.8420696477136173`*^9, {3.8420696893462677`*^9, 3.84206970020901*^9}, {3.842078019842236*^9, 3.842078036260553*^9}, { 3.842078754635845*^9, 3.8420787781035547`*^9}, {3.8420793154039927`*^9, 3.842079368924656*^9}, 3.842079613766201*^9, 3.842079779552711*^9, 3.842331098572027*^9, 3.8423371241402693`*^9, 3.84235023965408*^9, 3.842422889566606*^9, 3.842520149474403*^9}, CellLabel->"Out[21]=",ExpressionUUID->"df2cdb7c-a098-4c70-b978-b4647d156ee2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m4", "=", RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"4", ",", RowBox[{"h", "[", "4", "]"}], ",", "\[Delta]"}], "]"}], "[", "6", "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "4", "]"}], "]"}]}], ",", "\[Delta]", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"m3", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"gC", "[", "4", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"A", "[", "4", "]"}], "->", "0"}]}], "}"}]}], "]"}]}], "]"}]}]], "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}}, CellLabel->"In[22]:=",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"], Cell[CellGroupData[{ Cell[BoxData["1.2936696854695982`*^-9"], "Print", CellChangeTimes->{3.8420814291640177`*^9, 3.842081710602597*^9, 3.842331128307437*^9, 3.8423371339033327`*^9, 3.8423502572964067`*^9, 3.842422912272381*^9, 3.8425202748843203`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"b414c521-270d-4565-855e-e494ea5d02ce"], Cell[BoxData["3.525122035525258`*^-7"], "Print", CellChangeTimes->{3.8420814291640177`*^9, 3.842081710602597*^9, 3.842331128307437*^9, 3.8423371339033327`*^9, 3.8423502572964067`*^9, 3.842422912272381*^9, 3.8425202804629307`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"7827ccd0-1803-42be-b211-7918b507627c"], Cell[BoxData["0.00003884604601810995`"], "Print", CellChangeTimes->{3.8420814291640177`*^9, 3.842081710602597*^9, 3.842331128307437*^9, 3.8423371339033327`*^9, 3.8423502572964067`*^9, 3.842422912272381*^9, 3.842520286052115*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"ceb7f518-14bb-487a-a694-5b2e71ba97de"], Cell[BoxData["0.023409774027878902`"], "Print", CellChangeTimes->{3.8420814291640177`*^9, 3.842081710602597*^9, 3.842331128307437*^9, 3.8423371339033327`*^9, 3.8423502572964067`*^9, 3.842422912272381*^9, 3.842520295462867*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"298212be-9307-4926-9480-b78f754e1cd0"], Cell[BoxData["232.19758653115764`"], "Print", CellChangeTimes->{3.8420814291640177`*^9, 3.842081710602597*^9, 3.842331128307437*^9, 3.8423371339033327`*^9, 3.8423502572964067`*^9, 3.842422912272381*^9, 3.842520300886169*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"d345e549-ce7d-4422-bbbb-e33864e5d5d2"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"232.19758653115764`", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.4074417639847316`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.1972173976520884`"}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.4177837979533185`"}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5373121395544191`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.43024312417557986`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.2057950586096998`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.008409351364843`"}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.09420753492441511`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.004260541252050559`"}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", RowBox[{"-", "0.0002593293131768659`"}]}], ",", RowBox[{ RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.011741242914511316`"}]}], "}"}]}], "}"}]], "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}, CellLabel->"Out[22]=",ExpressionUUID->"938aea41-c28f-491d-ba52-d97ba5435c83"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m41", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"4", ",", RowBox[{"h", "[", "4", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "15"}]]}], "]"}], "[", "]"}], "2"], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "4", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m4", "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"m4", "[", 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.841995593089758*^9, 3.84199559350574*^9}, {3.842070192752548*^9, 3.842070194879615*^9}, { 3.842078189242496*^9, 3.842078189329015*^9}, {3.842078992623692*^9, 3.842079000527603*^9}, 3.842080274095665*^9, {3.842331139656066*^9, 3.842331145384016*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"05fba3a3-cdb1-4967-ac49-78ffed60b2dc"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "\[Theta]c", "\[Rule]", "1.40744176398473164191216255858307704329`20."}], ",", RowBox[{ "\[Theta]0", "\[Rule]", "0.19721739765208839978427590722276363522`20."}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.41778379795331854751339051290415227413`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.53731213955441914364996591757517307997`20."}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.43024312417557986076843690170790068805`20."}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.20579505860969979358365833377320086583`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.00840935136484300023440585647449552198`20."}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.09420753492441510945631932827382115647`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.00426054125205055887748439857887206017`20."}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", RowBox[{"-", "0.00025932931317686587968304734452829052`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.01174124291451131632535442861353658373`20."}]}], "}"}]], "Output", CellChangeTimes->{{3.841826482020074*^9, 3.8418265862239122`*^9}, { 3.841826659980463*^9, 3.841826667924841*^9}, {3.841826769333158*^9, 3.841826781359291*^9}, {3.841826901984071*^9, 3.841826926295443*^9}, 3.841826976960929*^9, 3.841827061597597*^9, 3.841827625662114*^9, 3.841827712512493*^9, 3.841995626523354*^9, 3.842069914413797*^9, 3.8420702316182823`*^9, 3.8420790068266287`*^9, 3.842079060023765*^9, 3.842331146715291*^9, 3.842337135321105*^9, 3.8423504037428513`*^9, 3.842423010748066*^9, 3.842520304123062*^9}, CellLabel->"Out[23]=",ExpressionUUID->"2a585b59-ba0b-4178-8652-14ea398e9072"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m5", "=", RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"4", ",", RowBox[{"h", "[", "5", "]"}], ",", "\[Delta]"}], "]"}], "[", "7", "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "5", "]"}], "]"}]}], ",", "\[Delta]", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"m4", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "->", "0"}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJwdxVkow3EAB/AZzZUSW3LUWPLkCkPOhs19pG3Nw4Si1IzEKA8eZFKWqRUe bMuRozTHWsyRtEaNomyUY45E+UshauX4ff8Pnz4xTe21zUwGg8El6Md67KN6 ShD3Rx1h1fWFG/PftHdYORzyhENY9c94Izv2C2dy3d/4waJJ1JLZDexkrO64 NFnJ8Wf3a3h/2HWLWau/9Pmu/uIt8oJIU4bf2TuiW3JAS3cJPpD2qjFHEjmE czVOA7589dC7HoWb9+QXYaAVHzO79rAu2GHDy5xehbeBEtj7utrwFW89x4fs F1Geiz/vakpxg2i8EjuW28Q4QS6TYPvkaVEQ+fBNIcJpUr1xgHzwET6D8zwV s2pyyvkNPTVdWzVEbp0KrcbmKGsdPk91y7FpzqI1k/3dS2M4zCnewLae7U2c pdtVsYyUQNHooLeeFJnwyIvXCn5Qcri+5ADmYDRuCeMX44JQSTlWReZ8JpEf M9K/cOfijzSZXObhyfDE6XjhEpmabxbif0ZHC+A= "], CellLabel->"In[24]:=",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"], Cell[BoxData[ TemplateBox[{ "CompiledFunction", "cfn", "\"Numerical error encountered at instruction \ \\!\\(\\*RowBox[{\\\"250\\\"}]\\); proceeding with uncompiled evaluation.\"", 2, 21, 9, 18367073971234218752, "Sident"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.842331223286809*^9, 3.842337173289276*^9, 3.8423504445007057`*^9, 3.842423051711693*^9}, CellLabel-> "During evaluation of (Sident) \ In[21]:=",ExpressionUUID->"d267196e-1adf-4340-bf87-ced098902857"], Cell[BoxData["1.2190786742441977`"], "Print", CellChangeTimes->{3.842331227156126*^9, 3.8423371617088213`*^9, 3.842350448124104*^9, 3.842423053811371*^9}, CellLabel-> "During evaluation of (Sident) \ In[21]:=",ExpressionUUID->"6dcb5f73-de42-4d95-8d1c-ce70ed8b403d"], Cell[BoxData[ TemplateBox[{ "CompiledFunction", "cfn", "\"Numerical error encountered at instruction \ \\!\\(\\*RowBox[{\\\"250\\\"}]\\); proceeding with uncompiled evaluation.\"", 2, 21, 10, 18367073971234218752, "Sident"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.842331223286809*^9, 3.842337173289276*^9, 3.8423504445007057`*^9, 3.842423062793107*^9}, CellLabel-> "During evaluation of (Sident) \ In[21]:=",ExpressionUUID->"73d2af64-e156-476b-b530-97584d8eefe8"], Cell[CellGroupData[{ Cell[BoxData["4054.5177210183297`"], "Print", CellChangeTimes->{3.842331227156126*^9, 3.8423371617088213`*^9, 3.842350448124104*^9, 3.842423081121583*^9}, CellLabel-> "During evaluation of (Sident) \ In[21]:=",ExpressionUUID->"8af29d72-41a6-4442-aad7-16107b894e66"], Cell[BoxData["0.0002196887817923757`"], "Print", CellChangeTimes->{3.842331227156126*^9, 3.8423371617088213`*^9, 3.842350448124104*^9, 3.842423095918722*^9}, CellLabel-> "During evaluation of (Sident) \ In[21]:=",ExpressionUUID->"a9adc904-9f2a-4e38-91f4-910de9eba662"], Cell[BoxData["0.013563817782428662`"], "Print", CellChangeTimes->{3.842331227156126*^9, 3.8423371617088213`*^9, 3.842350448124104*^9, 3.842423096640314*^9}, CellLabel-> "During evaluation of (Sident) \ In[21]:=",ExpressionUUID->"b58521a1-0684-437b-be5c-14cdd769b465"], Cell[BoxData["52.21381172124036`"], "Print", CellChangeTimes->{3.842331227156126*^9, 3.8423371617088213`*^9, 3.842350448124104*^9, 3.842423097518188*^9}, CellLabel-> "During evaluation of (Sident) \ In[21]:=",ExpressionUUID->"7e67bec4-03db-44d0-9908-21fa036b90d7"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"52.21381172124036`", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.3163026519059013`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.1967388947960897`"}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.5090008381606177`"}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6703108758613683`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5630676650610293`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.25713549988259793`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "0.03961674360869956`"}]}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.14571077262078203`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.00475222050826654`"}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0015915670559433846`"}], ",", RowBox[{ RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.003771079441607323`"}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", RowBox[{"-", "0.00040849311277858444`"}]}]}], "}"}]}], "}"}]], "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, 3.841828416853786*^9, 3.841995813054018*^9, 3.841996254320202*^9, 3.841997122449973*^9, 3.841997394648814*^9, 3.841997465320455*^9, 3.842080768211817*^9, 3.842081567020575*^9, 3.842331172701756*^9, 3.842331261127962*^9, 3.842337177456024*^9, 3.842350482004504*^9, 3.842423099140039*^9}, CellLabel-> "(Sident) Out[21]=",ExpressionUUID->"7cf72793-a032-4a28-b655-b0ffbb6596bc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m51", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"4", ",", RowBox[{"h", "[", "5", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "15"}]]}], "]"}], "[", "7", "]"}], "2"], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "5", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m5", "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"m5", "[", 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.84199569621169*^9, 3.841995696627564*^9}, {3.841996143668233*^9, 3.841996146667862*^9}, {3.8419971248303843`*^9, 3.841997129597876*^9}, { 3.8419973660032587`*^9, 3.841997367370261*^9}, {3.842332495641633*^9, 3.842332499312642*^9}}, CellLabel-> "(Sident) In[22]:=",ExpressionUUID->"d76e85cc-6ecb-4d98-b567-57b256fbb910"], Cell[BoxData[ TemplateBox[{ "FindRoot", "precw", "\"The precision of the argument function ({<<510600560 bytes>>}) is less \ than WorkingPrecision (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 22, 11, 18367073971234218752, "Sident"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.841826482012022*^9, 3.8418265982231407`*^9}, 3.8418266678489017`*^9, {3.841826768683412*^9, 3.841826780765348*^9}, { 3.841826898513888*^9, 3.8418269227694597`*^9}, 3.841826973347541*^9, 3.84182705459556*^9, 3.841827366949621*^9, 3.8418276818272257`*^9, 3.8418281038913*^9, 3.8418284270510178`*^9, 3.841995894640788*^9, 3.841996150479692*^9, 3.841996267313401*^9, 3.841997134669332*^9, 3.842332503756214*^9, 3.842337179917122*^9, 3.842350484381892*^9, 3.84242315393052*^9}, CellLabel-> "During evaluation of (Sident) \ In[22]:=",ExpressionUUID->"cd52e157-2a4c-44ad-8cc0-00537e166b5a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "\[Theta]c", "\[Rule]", "1.31630265190654504126990798607059700922`20."}], ",", RowBox[{ "\[Theta]0", "\[Rule]", "0.19673889480178571425603386505667387764`20."}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.50900083782283931078340616602237669362`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.67031087534281158130313089477564731749`20."}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.56306766534037991081905173207850130325`20."}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.25713549953522877435447386379651138296`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "0.03961674425173714729077632539065329366`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.14571077274500842786302970874523210784`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.00475222097467538268037623052646543767`20."}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.00159156689838684910691438924196192437`20."}], ",", RowBox[{ RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.00377107946158147555052135172564476592`20."}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", RowBox[{"-", "0.00040849309195947277394752738192568273`20."}]}]}], "}"}]], "Output", CellChangeTimes->{{3.841826482020074*^9, 3.8418265862239122`*^9}, { 3.841826659980463*^9, 3.841826667924841*^9}, {3.841826769333158*^9, 3.841826781359291*^9}, {3.841826901984071*^9, 3.841826926295443*^9}, 3.841826976960929*^9, 3.841827061597597*^9, 3.841827625662114*^9, 3.841827712512493*^9, 3.841828205721519*^9, 3.841828563871601*^9, 3.84199603644456*^9, 3.841996151769075*^9, 3.8419963729530487`*^9, 3.8419972731107903`*^9, 3.8423325992736893`*^9, 3.842337264346949*^9, 3.842350571493417*^9, 3.842423257744377*^9}, CellLabel-> "(Sident) Out[22]=",ExpressionUUID->"bfe1a0a4-02e5-4097-8032-d3efd7e95a43"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m6", "=", RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"5", ",", RowBox[{"h", "[", "6", "]"}], ",", "\[Delta]"}], "]"}], "[", "8", "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "6", "]"}], "]"}]}], ",", "\[Delta]", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"m5", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"gC", "[", "6", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"A", "[", "5", "]"}], "->", "0"}]}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJwdz1tIUwEcx/Ghm9FmJLby9qCBtbSTZwqCICpmm6ERYRQJFnPQ6EGneanh EBXmzIfhGUzsYXgp0kJkU6bVomErMsoeNmpIo9wFbbpFULJKJf3/zsOPz+OX 33F1S93NBIFAcIIGs8133w6NxipP7sWW4Z2vK6uw+CcXhNrB1O8wNelGBD4r zY3DkuzVPzC8YCrgSKlKKofGVr/NSTKfQnPQPegLwKTZ/7wVvp7qF+RjpakG /pK+VAZIsabzPFy6qjPCo1eyBmCZ6fMY9P/Y5vWtKZ6HyKhC4oQfEzoWoSXl wxv4hZPPh0nRtyJe+1CGE+b863HBgHKqN3GMfqbH+6D+Qn2jkLTuXlTDY2Zf G3SUitvhLU+iAeaJynjLbd5X8Im9zw3PsROWZPJ96AGv9d59ySHS7D2VDNWF ymuQqdHxpoUn1g1kZqswAuseGcT95MGqqATGvFUslIlYOTwdvT1vRLfiKa9F b/NAVf5rL7Rah5sHyE2G08LCkZaAAz3mXRCW1DZGYC03sgFl/qWGA+OxylzN 1nW4PHnkN0tecuTwnhl+2CQnTTuuZhh3d3dBneKyHrrswVH4d1o2DhfyVcwM yZ49XAD3AbmsP1s= "], CellLabel-> "(Sident) In[23]:=",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"], Cell[BoxData[ TemplateBox[{ "CompiledFunction", "cfn", "\"Numerical error encountered at instruction \ \\!\\(\\*RowBox[{\\\"275\\\"}]\\); proceeding with uncompiled evaluation.\"", 2, 23, 12, 18367073971234218752, "Sident"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841829215087719*^9, 3.841997708933385*^9, 3.84208185991401*^9, 3.842082154903194*^9, 3.842337337349305*^9, 3.842423414766984*^9}, CellLabel-> "During evaluation of (Sident) \ In[23]:=",ExpressionUUID->"d0160d2e-8f96-469a-872d-0ee796be9444"], Cell[BoxData[ TemplateBox[{ "CompiledFunction", "cfn", "\"Numerical error encountered at instruction \ \\!\\(\\*RowBox[{\\\"275\\\"}]\\); proceeding with uncompiled evaluation.\"", 2, 23, 13, 18367073971234218752, "Sident"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841829215087719*^9, 3.841997708933385*^9, 3.84208185991401*^9, 3.842082154903194*^9, 3.842337337349305*^9, 3.842423416465848*^9}, CellLabel-> "During evaluation of (Sident) \ In[23]:=",ExpressionUUID->"bf8516b3-377b-4cff-962a-9fcb8818bd7a"], Cell[CellGroupData[{ Cell[BoxData["1.5264372439351575`"], "Print", CellChangeTimes->{3.8418292198877277`*^9, 3.841997712748024*^9, 3.8420818440330753`*^9, 3.842082158658132*^9, 3.842337393579763*^9, 3.8424234443592453`*^9}, CellLabel-> "During evaluation of (Sident) \ In[23]:=",ExpressionUUID->"8311c1bb-943d-422d-9594-0d8b0bf314be"], Cell[BoxData["59.50323740024926`"], "Print", CellChangeTimes->{3.8418292198877277`*^9, 3.841997712748024*^9, 3.8420818440330753`*^9, 3.842082158658132*^9, 3.842337393579763*^9, 3.842423532166943*^9}, CellLabel-> "During evaluation of (Sident) \ In[23]:=",ExpressionUUID->"559fdef1-1bb7-4720-a627-0547c64f91c6"], Cell[BoxData["60.752575633917616`"], "Print", CellChangeTimes->{3.8418292198877277`*^9, 3.841997712748024*^9, 3.8420818440330753`*^9, 3.842082158658132*^9, 3.842337393579763*^9, 3.84242357408407*^9}, CellLabel-> "During evaluation of (Sident) \ In[23]:=",ExpressionUUID->"51224b1b-831d-41ca-938d-620809952d73"], Cell[BoxData["61.721903834286124`"], "Print", CellChangeTimes->{3.8418292198877277`*^9, 3.841997712748024*^9, 3.8420818440330753`*^9, 3.842082158658132*^9, 3.842337393579763*^9, 3.842423576358542*^9}, CellLabel-> "During evaluation of (Sident) \ In[23]:=",ExpressionUUID->"1c1b5e84-691b-46ee-9233-d55a70201f31"], Cell[BoxData["2307.610811135138`"], "Print", CellChangeTimes->{3.8418292198877277`*^9, 3.841997712748024*^9, 3.8420818440330753`*^9, 3.842082158658132*^9, 3.842337393579763*^9, 3.8424235796103153`*^9}, CellLabel-> "During evaluation of (Sident) \ In[23]:=",ExpressionUUID->"26acb34e-cd65-4770-91ee-faa8560d6ae7"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"2307.610811135138`", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.3047340255897175`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.1966440660662214`"}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.535769003595088`"}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.7092519726167876`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5911350973917731`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.2792215345779851`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "0.04274889073505093`"}]}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.1692489146760486`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.005267504574391754`"}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.005134267642626646`"}], ",", RowBox[{ RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.00412589654520021`"}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", RowBox[{"-", "0.0015686458277068952`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00013326308342091376`"}], ",", RowBox[{ RowBox[{"A", "[", "5", "]"}], "\[Rule]", "0.0014336612326993358`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.84233755530348*^9, 3.842423585189662*^9}, CellLabel-> "(Sident) Out[23]=",ExpressionUUID->"95b3fe4e-6c5d-44c3-be33-5d6df8dd4ef5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m61", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"5", ",", RowBox[{"h", "[", "6", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "15"}]]}], "]"}], "[", "8", "]"}], "2"], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "6", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m6", "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"m6", "[", 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}}, CellLabel-> "(Sident) In[24]:=",ExpressionUUID->"c58535c6-e2cc-4022-b4ee-6e96bd40636a"], Cell[BoxData[ TemplateBox[{ "FindRoot", "precw", "\"The precision of the argument function ({<<1666575736 bytes>>}) is less \ than WorkingPrecision (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 24, 14, 18367073971234218752, "Sident"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.842337650075533*^9, 3.842423742779871*^9}, CellLabel-> "During evaluation of (Sident) \ In[24]:=",ExpressionUUID->"b2327031-ec11-43c5-9d99-1ad9561a8789"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "\[Theta]c", "\[Rule]", "1.30473402558862438279384169966038694306`20."}], ",", RowBox[{ "\[Theta]0", "\[Rule]", "0.19664406607951774833901943811295592628`20."}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.5357690039537832228273199757845976845`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.70925197304907657860231502073565109485`20."}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.59113509728442785240986585173891514474`20."}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.27922153451404268795553330872363798882`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "0.04274889088010283689229826734918839383`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.16924891466424059319679853386434304484`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.00526750468100285897753499365101993439`20."}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.00513426762087048461311709326153702045`20."}], ",", RowBox[{ RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.00412589655174002642884610058388901463`20."}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", RowBox[{"-", "0.00156864582912082369615474351244620055`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.0001332630841149475556949818043285057`20."}], ",", RowBox[{ RowBox[{"A", "[", "5", "]"}], "\[Rule]", "0.0014336612326993358485643925703811874`20."}]}], "}"}]], "Output", CellChangeTimes->{3.8424241569967003`*^9}, CellLabel-> "(Sident) Out[24]=",ExpressionUUID->"632b184d-8506-4e55-91a7-d02786fc1226"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m7", "=", RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{"Most", "@", RowBox[{ RowBox[{"res", "[", RowBox[{"5", ",", RowBox[{"h", "[", "7", "]"}], ",", "\[Delta]"}], "]"}], "[", "9", "]"}]}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "7", "]"}], "]"}]}], ",", "\[Delta]", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"m6", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"gC", "[", "7", "]"}], "->", "0"}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJwdz28o43EcB/CFqdumtHacP4W5znHLRkQJCTvHdQ9Wd909ESvyxJ/jDrUH qBkeLL/VxIPlXwmlxrXdsesutxPy58piidhsYWy68oCM8Hl/H7x7PXy/30nq RlVNCI/HS6bABEPbcv9woOjFQ2ADth7sumD2f+4INvSJT6E4vNIH5/OeX8Hc BNc19H7Xp3OkpEqigLqmfbONlG17vkF7n9MNw+fumYXOjtc/ySmlvhxeSn4p 3aSg9msZXPnQroNP38f1wHz9zgjcvwgyncelCx7SXyq0wc2QL4vQGLm+BPc4 hdVL8g8zmbP9MTaYeNPxG7qVk52hI/Tz2VUX1Lz9VB1Gmu7eqWGUwdkMLXmC Fli3FaqFqfx8ZoHZ8QdOz3bZYYl8zCgi1zzjTFPvkDCCNDheiqA6Q/kRysrb mdHesRMtGdsU5oOqCa2gm3xS7BfCgKNYDlP4cgV85f9s1aG38AfTqDFvwaq0 vw5oMg3U95DnMq4BZgw2ui3ok60ewdyKah+s4AbPYNa9dM5KSrc5C0watSwq RmlP5Rs7vB0Xr8Hgv1imNH4qJ5OcGXIxHwHoGi+g "], CellLabel-> "(Sident) In[25]:=",ExpressionUUID->"200b94d3-7cab-4649-99f3-c2558b1a5011"], Cell[BoxData[ TemplateBox[{ "CompiledFunction", "cfne", "\"Numerical error encountered; proceeding with uncompiled evaluation.\"", 2, 25, 15, 18367073971234218752, "Sident"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841829215087719*^9, 3.84208234137315*^9, 3.842082910442643*^9, 3.8420856679427547`*^9, 3.842338518367941*^9, 3.842424636255373*^9}, CellLabel-> "During evaluation of (Sident) \ In[25]:=",ExpressionUUID->"5c39711c-7bf4-47c1-a52a-290b4a57b8a4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1\\\", \ SuperscriptBox[\\\"1.1511195098060096`*^49\\\", \\\"7\\\"]]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 25, 16, 18367073971234218752, "Sident"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841829215087719*^9, 3.84208234137315*^9, 3.842082910442643*^9, 3.8420856679427547`*^9, 3.842338518367941*^9, 3.8424246373680553`*^9}, CellLabel-> "During evaluation of (Sident) \ In[25]:=",ExpressionUUID->"3cdd4a00-f684-4312-bedf-b6d1a2962ad0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1\\\", \ SuperscriptBox[\\\"1.1511195098060096`*^49\\\", \\\"7\\\"]]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 25, 17, 18367073971234218752, "Sident"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841829215087719*^9, 3.84208234137315*^9, 3.842082910442643*^9, 3.8420856679427547`*^9, 3.842338518367941*^9, 3.842424638375044*^9}, CellLabel-> "During evaluation of (Sident) \ In[25]:=",ExpressionUUID->"0f48f5ff-dc91-4d2b-a481-d8efb4472102"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1\\\", \ SuperscriptBox[\\\"1.1511195098060096`*^49\\\", \\\"7\\\"]]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 25, 18, 18367073971234218752, "Sident"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841829215087719*^9, 3.84208234137315*^9, 3.842082910442643*^9, 3.8420856679427547`*^9, 3.842338518367941*^9, 3.8424246393760557`*^9}, CellLabel-> "During evaluation of (Sident) \ In[25]:=",ExpressionUUID->"982d1074-b769-4103-b610-7a6efceed480"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 25, 19, 18367073971234218752, "Sident"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841829215087719*^9, 3.84208234137315*^9, 3.842082910442643*^9, 3.8420856679427547`*^9, 3.842338518367941*^9, 3.842424640376923*^9}, CellLabel-> "During evaluation of (Sident) \ In[25]:=",ExpressionUUID->"59e7cf9c-b877-493b-938c-08368aee1e4d"], Cell[CellGroupData[{ Cell[BoxData["1.4683713957622144`"], "Print", CellChangeTimes->{3.8420827819536448`*^9, 3.842085674056548*^9, 3.842338524652817*^9, 3.8424246922246847`*^9}, CellLabel-> "During evaluation of (Sident) \ In[25]:=",ExpressionUUID->"06c6bccc-a366-4987-8e95-12de534e3f07"], Cell[BoxData["1074.0704669374522`"], "Print", CellChangeTimes->{3.8420827819536448`*^9, 3.842085674056548*^9, 3.842338524652817*^9, 3.842424804425952*^9}, CellLabel-> "During evaluation of (Sident) \ In[25]:=",ExpressionUUID->"8931da64-de35-46b1-9a9a-2a66b237b836"], Cell[BoxData["10062.936564197653`"], "Print", CellChangeTimes->{3.8420827819536448`*^9, 3.842085674056548*^9, 3.842338524652817*^9, 3.8424249311462927`*^9}, CellLabel-> "During evaluation of (Sident) \ In[25]:=",ExpressionUUID->"aaec05c6-4eb2-4186-ace4-6e8fcfaf7ae5"], Cell[BoxData["10063.805084191375`"], "Print", CellChangeTimes->{3.8420827819536448`*^9, 3.842085674056548*^9, 3.842338524652817*^9, 3.8424250221579447`*^9}, CellLabel-> "During evaluation of (Sident) \ In[25]:=",ExpressionUUID->"090049f8-832b-4500-bf58-48719468911a"], Cell[BoxData["10298.839622320893`"], "Print", CellChangeTimes->{3.8420827819536448`*^9, 3.842085674056548*^9, 3.842338524652817*^9, 3.842425025827475*^9}, CellLabel-> "During evaluation of (Sident) \ In[25]:=",ExpressionUUID->"221823e5-765d-4d6a-9988-8e772c42cbe2"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"10298.839622320893`", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.313554040397371`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.19665875845268746`"}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.5334329874518926`"}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.705771571103907`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5869628025030212`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.28362958378508507`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "0.04106604279183298`"}]}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.17093933179688217`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.00713246112000304`"}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0045327774019623505`"}], ",", RowBox[{ RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.005202411362695399`"}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", RowBox[{"-", "0.0012861779229641672`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.000026683191467407747`"}], ",", RowBox[{ RowBox[{"A", "[", "5", "]"}], "\[Rule]", "0.0016681726602716807`"}], ",", RowBox[{ RowBox[{"gC", "[", "7", "]"}], "\[Rule]", "0.00001770468231070235`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.842338787726128*^9, 3.842425048192793*^9}, CellLabel-> "(Sident) Out[25]=",ExpressionUUID->"14118b71-5885-4b32-845e-95c43ebc21e3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m71", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"5", ",", RowBox[{"h", "[", "7", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "15"}]]}], "]"}], "[", "9", "]"}], "2"], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "7", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m7", "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"m7", "[", 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}}, CellLabel-> "(Sident) In[26]:=",ExpressionUUID->"0dba08c9-c74d-4268-96fa-0c6efda987ca"], Cell[BoxData[ TemplateBox[{ "FindRoot", "precw", "\"The precision of the argument function ({<<6083723064 bytes>>}) is less \ than WorkingPrecision (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 26, 20, 18367073971234218752, "Sident"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.842337650075533*^9, 3.842339083779311*^9, 3.8424250641380653`*^9}, CellLabel-> "During evaluation of (Sident) \ In[26]:=",ExpressionUUID->"e3f507c8-c362-4b0b-adac-3af6e63dd902"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "\[Theta]c", "\[Rule]", "1.31355404039653182669914597217190170034`20."}], ",", RowBox[{ "\[Theta]0", "\[Rule]", "0.19665875841110683697922172037847911269`20."}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.53343299034841646331539418608388424723`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.70577157551054277158049213768122631914`20."}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.58696280011958254780275098766609387839`20."}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.28362958660470974751439847343277330961`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "0.04106603664706777390294072097816960584`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.17093933071704376945795105099576307144`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.00713245531052218542782052857426229551`20."}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.00453278036043904087566110942927425189`20."}], ",", RowBox[{ RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.00520241118526903817122380025058684848`20."}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", RowBox[{"-", "0.00128617871409771127507986263520036548`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00002668327789037362388656113497927527`20."}], ",", RowBox[{ RowBox[{"A", "[", "5", "]"}], "\[Rule]", "0.00166817266046418252029728758844488422`20."}], ",", RowBox[{ RowBox[{"gC", "[", "7", "]"}], "\[Rule]", "0.00001770468231070234835884333324251827`20."}]}], "}"}]], "Output", CellChangeTimes->{3.842426928944779*^9}, CellLabel-> "(Sident) Out[26]=",ExpressionUUID->"e7a20339-bb83-4e2d-8fe0-80adda2c0c83"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m8", "=", RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"6", ",", RowBox[{"h", "[", "8", "]"}], ",", "\[Delta]"}], "]"}], "[", "10", "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "8", "]"}], "]"}]}], ",", "\[Delta]", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"m7", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"gC", "[", "8", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"A", "[", "6", "]"}], "->", "0"}]}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJwdz01IkwEcBvDlnOBmEGOazcNyRR/64rZwMBhriLlSw8MgqYvowPDittRK 8GCDueVh7B0s7DDyA6I8bcaWtSh0Ropa4LAhDtsXrdUWQcSkFav/8x4efsfn eRpNFuNgBY/HO0WBMs/dd+5HhbYz/wrb8M7BXgKqf7ApaJ4Wf4Hiqr4cfKE9 XYQaWeIQZp67WlhS0i9RQoc17g+TzG76GYxMx5KwaqnMqY9NXn5FPjW4uuBP yWtDkhTevH0FrveOO2DttQYn1Lk+zsL49xJn7HPHyzSZ7xCF4fuKsRXoPbb1 Fu6zylCGFHy6wBlwnwjDk78n38Ck4ck9/iz9rC/a4MTVGwOVpO9vjwnWeWIj MKgVjsKhHb4dnhfoOC/6o6twMWCLwEuKeW8NuZle4PTdfyg6Snqi52qgSWW4 Dpmucc7jmfmsnZRaK3PQ+NgunCKr2/MiWIi2K+BZgUIJm/O3Qg706pc5vRP+ HdjftBaFPt+DYSf5jWHNUDVjSQbRx2ykoKZ7IAe72ZmvsLUsXwqR8l02CBvn givKOdrT1xmBfxbEm7D0QcqZ1R3RqUin+lcb/A/qOC95 "], CellLabel-> "(Sident) In[27]:=",ExpressionUUID->"77feec13-1cdc-471d-8d45-49920b8c9c58"], Cell[BoxData[ TemplateBox[{ "CompiledFunction", "cfn", "\"Numerical error encountered at instruction \ \\!\\(\\*RowBox[{\\\"329\\\"}]\\); proceeding with uncompiled evaluation.\"", 2, 27, 21, 18367073971234218752, "Sident"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.842428357468219*^9}, CellLabel-> "During evaluation of (Sident) \ In[27]:=",ExpressionUUID->"9d8c8cde-a876-4aa0-bacc-a11e2e5a5a4f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ \"-\\\", \\\"1.9457590062576827`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 27, 22, 18367073971234218752, "Sident"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.842428822357911*^9}, CellLabel-> "During evaluation of (Sident) \ In[27]:=",ExpressionUUID->"abb69614-c7af-4867-9c74-b775865d17c1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ \"-\\\", \\\"2.1472802042089403`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 27, 23, 18367073971234218752, "Sident"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.842428823502338*^9}, CellLabel-> "During evaluation of (Sident) \ In[27]:=",ExpressionUUID->"8c83226f-3d8e-45b4-9867-78ca2b33ed7f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ \"-\\\", \\\"9.728795031288413`*^-308\\\"}], \\\")\\\"}]}]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 27, 24, 18367073971234218752, "Sident"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.842428824503319*^9}, CellLabel-> "During evaluation of (Sident) \ In[27]:=",ExpressionUUID->"a8287486-e0c0-498a-907b-96aa1a9c0033"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 27, 25, 18367073971234218752, "Sident"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.842428825504197*^9}, CellLabel-> "During evaluation of (Sident) \ In[27]:=",ExpressionUUID->"62c1c011-3524-4242-8769-7604f1ad5845"], Cell[CellGroupData[{ Cell[BoxData["89.48548714332613`"], "Print", CellChangeTimes->{3.8424288404702597`*^9}, CellLabel-> "During evaluation of (Sident) \ In[27]:=",ExpressionUUID->"0b87cef7-1e91-4227-9832-eb55dcbfd10d"], Cell[BoxData["1054.1501496701742`"], "Print", CellChangeTimes->{3.8424294626297703`*^9}, CellLabel-> "During evaluation of (Sident) \ In[27]:=",ExpressionUUID->"e12dfe7a-2b77-4ef7-836d-8c903e0fbd9a"], Cell[BoxData["10446.107430623724`"], "Print", CellChangeTimes->{3.842430014092888*^9}, CellLabel-> "During evaluation of (Sident) \ In[27]:=",ExpressionUUID->"8cf4e08b-8255-429f-97a9-83d09e6afa55"], Cell[BoxData["10447.26961256053`"], "Print", CellChangeTimes->{3.8424303231269207`*^9}, CellLabel-> "During evaluation of (Sident) \ In[27]:=",ExpressionUUID->"5c8c844f-3ad5-495f-bbce-9d837ebebc3d"], Cell[BoxData["10461.445570771271`"], "Print", CellChangeTimes->{3.842430339077183*^9}, CellLabel-> "During evaluation of (Sident) \ In[27]:=",ExpressionUUID->"111d2f5b-d90b-4c0d-9312-a5a961c1d149"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"10461.445570771271`", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.3165755399877996`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.1966622586676097`"}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.5326463007251494`"}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.704610793571788`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5858031732617006`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.28522649008675394`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "0.04070402717976069`"}]}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.17149012788410323`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.007797122391878326`"}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.004656040873728506`"}], ",", RowBox[{ RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.005103205021904066`"}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", RowBox[{"-", "0.001432754158168632`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00006084634154911762`"}], ",", RowBox[{ RowBox[{"A", "[", "5", "]"}], "\[Rule]", "0.002063010461212938`"}], ",", RowBox[{ RowBox[{"gC", "[", "7", "]"}], "\[Rule]", "0.000014182759560736414`"}], ",", RowBox[{ RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "2.804302657070413`*^-7"}], ",", RowBox[{ RowBox[{"A", "[", "6", "]"}], "\[Rule]", RowBox[{"-", "0.00006191602811550506`"}]}]}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{3.841829478405797*^9, 3.842082489741064*^9, 3.842083149562351*^9, 3.842083340661083*^9, 3.8424304437921963`*^9}, CellLabel-> "(Sident) Out[27]=",ExpressionUUID->"95a89ed3-1405-46fd-84e6-4e39c6d0115c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m81", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"D", "[", 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 ]], Cell[BoxData[{ RowBox[{ RowBox[{"ntest", "=", "2"}], ";", RowBox[{"n1", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"our\[CapitalPhi]1", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", RowBox[{"n1", ",", RowBox[{"h", "[", "0", "]"}]}], "]"}], "[", RowBox[{"ntest", ",", "1"}], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "0", "]"}], "]"}]}], "/.", "m01"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"our\[CapitalPhi]2", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", RowBox[{"n1", ",", RowBox[{"h", "[", "1", "]"}]}], "]"}], "[", RowBox[{"ntest", ",", "1"}], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "1", "]"}], "]"}]}], "/.", "m11"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"our\[CapitalPhi]3", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", RowBox[{"3", ",", RowBox[{"h", "[", "2", "]"}]}], "]"}], "[", RowBox[{"ntest", ",", "1"}], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "2", "]"}], "]"}]}], "/.", "m21"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"our\[CapitalPhi]4", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", RowBox[{"3", ",", RowBox[{"h", "[", "2", "]"}]}], "]"}], "[", RowBox[{"ntest", ",", "1"}], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "2", "]"}], "]"}]}], "/.", "m31"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"our\[CapitalPhi]5", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", RowBox[{"4", ",", RowBox[{"h", "[", "4", "]"}]}], "]"}], "[", RowBox[{"ntest", ",", "1"}], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "4", "]"}], "]"}]}], "/.", "m41"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"our\[CapitalPhi]6", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", RowBox[{"4", ",", RowBox[{"h", "[", "5", "]"}]}], "]"}], "[", RowBox[{"ntest", ",", "1"}], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "5", "]"}], "]"}]}], "/.", "m51"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"our\[CapitalPhi]7", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", RowBox[{"5", ",", RowBox[{"h", "[", "6", "]"}]}], "]"}], "[", RowBox[{"ntest", ",", "1"}], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "6", "]"}], "]"}]}], "/.", "m61"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"our\[CapitalPhi]8", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", RowBox[{"5", ",", RowBox[{"h", "[", "7", "]"}]}], "]"}], "[", RowBox[{"ntest", ",", "1"}], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "7", "]"}], "]"}]}], "/.", "m71"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"our\[CapitalPhi]9", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", RowBox[{"6", ",", RowBox[{"h", "[", "8", "]"}]}], "]"}], "[", RowBox[{"ntest", ",", "1"}], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "8", "]"}], "]"}]}], "/.", "m81"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"test", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[CapitalPhi]s", "[", RowBox[{"[", RowBox[{";;", RowBox[{"ntest", "+", "1"}]}], "]"}], "]"}], "-", "#"}], ")"}], "/", RowBox[{"\[CapitalPhi]s", "[", RowBox[{"[", RowBox[{";;", RowBox[{"ntest", "+", "1"}]}], "]"}], "]"}]}], ")"}], "&"}], "/@", RowBox[{"{", RowBox[{ "our\[CapitalPhi]1", ",", "our\[CapitalPhi]2", ",", "our\[CapitalPhi]3", ",", "our\[CapitalPhi]4", ",", "our\[CapitalPhi]5", ",", "our\[CapitalPhi]6", ",", "our\[CapitalPhi]7", ",", "our\[CapitalPhi]8", ",", "our\[CapitalPhi]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}, { 3.832240962876375*^9, 3.832240972475827*^9}, {3.8395784873824053`*^9, 3.83957849607055*^9}, {3.83957950080114*^9, 3.839579518425556*^9}, { 3.83958804978193*^9, 3.839588073901841*^9}, {3.8396605353589077`*^9, 3.839660538358272*^9}, {3.83966057553535*^9, 3.839660617032419*^9}, { 3.839660754707074*^9, 3.8396607547789183`*^9}, {3.8396621782291803`*^9, 3.8396621845492477`*^9}, {3.839663529342072*^9, 3.839663542742002*^9}, { 3.840873373815803*^9, 3.840873445078918*^9}, {3.840874252726038*^9, 3.840874278606474*^9}, {3.840876682418293*^9, 3.84087670662568*^9}, 3.840877995706422*^9, 3.8408793931665916`*^9, 3.8408795281927958`*^9, 3.84087980844783*^9, 3.840880690661016*^9, {3.840883794798806*^9, 3.840883797038789*^9}, {3.840884545541564*^9, 3.8408845538856707`*^9}, { 3.8408846573436317`*^9, 3.840884666823792*^9}, {3.8408848015624523`*^9, 3.840884804922502*^9}, 3.840885718323984*^9, {3.840885790541791*^9, 3.840885802684683*^9}, {3.8411119812699337`*^9, 3.8411119909977083`*^9}, 3.841112515316641*^9, 3.8411154290306177`*^9, 3.841115669962463*^9, 3.841115828005046*^9, 3.8411175933298197`*^9, {3.841117940111762*^9, 3.841118038801834*^9}, {3.8411181421001263`*^9, 3.841118156508168*^9}, { 3.841119106341078*^9, 3.84111910763673*^9}, {3.84111914217358*^9, 3.841119149725647*^9}, {3.841119955795576*^9, 3.841119961259308*^9}, { 3.8411218811098623`*^9, 3.84112188750177*^9}, {3.841133333672965*^9, 3.8411333646003513`*^9}, 3.841133421761998*^9, {3.841134255360888*^9, 3.8411342638889303`*^9}, {3.841135064199835*^9, 3.841135064583659*^9}, { 3.8411351234249287`*^9, 3.841135124680657*^9}, {3.841135211194282*^9, 3.841135211274117*^9}, {3.841135406390181*^9, 3.841135406461857*^9}, { 3.84113552787227*^9, 3.8411355279520473`*^9}, {3.841136166748022*^9, 3.841136166811797*^9}, {3.841136398016295*^9, 3.84113639810402*^9}, { 3.841136489617982*^9, 3.8411364896975927`*^9}, {3.84113669342939*^9, 3.84113672040588*^9}, {3.841137494860138*^9, 3.84113752066864*^9}, { 3.841196950341856*^9, 3.8411969777902308`*^9}, {3.841198298254539*^9, 3.841198298326271*^9}, {3.841198447129076*^9, 3.8411984482090397`*^9}, { 3.841199114917082*^9, 3.841199119884962*^9}, {3.841199466549716*^9, 3.841199466619011*^9}, {3.841201347909103*^9, 3.8412013530528297`*^9}, { 3.841202928897876*^9, 3.8412029425058126`*^9}, {3.8412040252936583`*^9, 3.8412040628862677`*^9}, {3.841204228641543*^9, 3.841204233873122*^9}, { 3.841204573927539*^9, 3.841204581199667*^9}, {3.841205324805374*^9, 3.841205342061594*^9}, {3.841205972657172*^9, 3.841205979025239*^9}, { 3.8412065774120607`*^9, 3.841206586731984*^9}, {3.841206662325692*^9, 3.8412066624054823`*^9}, 3.841207051644765*^9, {3.841207138974884*^9, 3.8412071390623493`*^9}, {3.841207422075746*^9, 3.841207422203761*^9}, { 3.841213509820256*^9, 3.841213509932082*^9}, {3.841228425671258*^9, 3.8412284729036703`*^9}, {3.841228675963469*^9, 3.841228686787562*^9}, { 3.841229112443954*^9, 3.841229121571589*^9}, 3.841299158149366*^9, 3.841299566996804*^9, 3.841301356709453*^9, {3.841301625730665*^9, 3.841301648672155*^9}, {3.841301731820641*^9, 3.841301732324624*^9}, { 3.841302358296423*^9, 3.841302358792099*^9}, {3.841312529523774*^9, 3.841312533419903*^9}, 3.841315636429351*^9, {3.841393121651956*^9, 3.841393121755248*^9}, {3.841393249153199*^9, 3.841393273790092*^9}, 3.841393700421857*^9, 3.841398192512566*^9, {3.841398248217105*^9, 3.841398248368924*^9}, {3.841399566779069*^9, 3.8413995828254623`*^9}, 3.841399972537139*^9, {3.8414001770689287`*^9, 3.841400177212687*^9}, { 3.841464749238928*^9, 3.841464785841058*^9}, 3.841464824834222*^9, 3.841464891539579*^9, 3.841465158808465*^9, 3.841465331579411*^9, { 3.8414658328897333`*^9, 3.841465852857485*^9}, {3.841466561097473*^9, 3.8414665630973454`*^9}, {3.841466932485777*^9, 3.8414669341900043`*^9}, { 3.841467101315713*^9, 3.841467104995029*^9}, {3.841472547040936*^9, 3.8414725544327183`*^9}, {3.8414733744967413`*^9, 3.841473388856886*^9}, { 3.841473450698228*^9, 3.8414734807303057`*^9}, {3.841485108824091*^9, 3.841485111280056*^9}, {3.841485185017519*^9, 3.841485187193397*^9}, { 3.841485484679089*^9, 3.841485487671123*^9}, {3.841485702195181*^9, 3.841485704778964*^9}, {3.841730916100902*^9, 3.841730925141005*^9}, { 3.841731203522408*^9, 3.8417312109703093`*^9}, {3.841734018910133*^9, 3.84173402362984*^9}, {3.841734714315658*^9, 3.8417347201469107`*^9}, { 3.841734973441475*^9, 3.841734989319797*^9}, {3.841735266172834*^9, 3.8417352681888866`*^9}, {3.841735347206047*^9, 3.841735349750581*^9}, { 3.8417355136010637`*^9, 3.841735515537148*^9}, {3.841736151366416*^9, 3.841736154252789*^9}, {3.8418267002293262`*^9, 3.841826700908839*^9}, { 3.841827022229425*^9, 3.841827025210784*^9}, {3.841827069605363*^9, 3.841827070995617*^9}, {3.841827192310936*^9, 3.841827202653894*^9}, { 3.841827316777439*^9, 3.8418273216080513`*^9}, {3.841827837874792*^9, 3.841827850121397*^9}, {3.841827897203548*^9, 3.841827898866517*^9}, { 3.841828245746533*^9, 3.841828250201119*^9}, {3.841828576575222*^9, 3.8418285794468193`*^9}, {3.8418289627268457`*^9, 3.841828965421782*^9}, { 3.841829039167369*^9, 3.841829042007312*^9}, {3.84182947981529*^9, 3.841829483295195*^9}, {3.8418302597577257`*^9, 3.841830259925316*^9}, { 3.84199538756015*^9, 3.8419953900461187`*^9}, {3.841996274663054*^9, 3.841996278166213*^9}, {3.841996521579771*^9, 3.841996522978904*^9}, { 3.8419970052840242`*^9, 3.8419970193718567`*^9}, {3.8419973435864277`*^9, 3.8419973472739477`*^9}, {3.8419975177893867`*^9, 3.8419975239652863`*^9}, {3.841997884748868*^9, 3.841997890763851*^9}, { 3.8420041447174597`*^9, 3.8420041781101303`*^9}, {3.842004239479266*^9, 3.842004242071266*^9}, {3.84206898552192*^9, 3.842069078843721*^9}, { 3.8420691999100437`*^9, 3.842069241622735*^9}, {3.8420697158872147`*^9, 3.842069746655909*^9}, {3.842069888210289*^9, 3.8420699077465277`*^9}, { 3.842070541727347*^9, 3.84207055363832*^9}, {3.842079184212873*^9, 3.842079187155411*^9}, {3.842079219019874*^9, 3.8420792397080917`*^9}, { 3.842079325046709*^9, 3.842079329926035*^9}, {3.842079628604021*^9, 3.842079629563249*^9}, {3.8420796856853647`*^9, 3.842079687236236*^9}, { 3.8420797866794786`*^9, 3.8420797904062223`*^9}, {3.842079866592558*^9, 3.842079867279723*^9}, {3.8420801727363577`*^9, 3.842080175165329*^9}, { 3.842080262984415*^9, 3.8420802646710453`*^9}, {3.842080344026059*^9, 3.842080348104516*^9}, {3.8420805266687517`*^9, 3.842080528363811*^9}, { 3.842080794658084*^9, 3.842080831081118*^9}, {3.842080983844451*^9, 3.842080984604033*^9}, {3.842081114415646*^9, 3.842081115430518*^9}, { 3.842081160808421*^9, 3.842081161903408*^9}, {3.842081231705904*^9, 3.842081234512889*^9}, {3.842081279546413*^9, 3.842081284690896*^9}, { 3.84208131509134*^9, 3.842081316090143*^9}, {3.8420814411176863`*^9, 3.842081443660351*^9}, {3.84208157732831*^9, 3.842081579991308*^9}, { 3.842081729995171*^9, 3.8420817311380463`*^9}, {3.8420819686554947`*^9, 3.842081979774498*^9}, {3.842083163678668*^9, 3.8420831900607443`*^9}, { 3.84208328073446*^9, 3.8420832814942417`*^9}, {3.842338085574991*^9, 3.842338122695022*^9}, {3.8423419036628428`*^9, 3.8423419057897663`*^9}, { 3.842411926198134*^9, 3.8424119445903883`*^9}, {3.84242112346338*^9, 3.842421124350946*^9}}, CellLabel->"In[81]:=",ExpressionUUID->"673ffefa-75f0-46ac-befd-c785b4bc3ce1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"ListLogLogPlot", "[", RowBox[{ RowBox[{"Abs", "@", RowBox[{"Re", "@", RowBox[{"Transpose", "[", "test", "]"}]}]}], ",", RowBox[{"Joined", "->", "True"}]}], "]"}], ",", RowBox[{"LogLogPlot", "[", RowBox[{ RowBox[{"0.0005", SuperscriptBox["x", RowBox[{"-", "2"}]]}], ",", RowBox[{"{", RowBox[{"x", ",", "0.5", ",", "10"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->CompressedData[" 1:eJwd0mtIk2EAxfG1SSxrGZEVXTe2ycDEmVZuMsbCS80aY8gsIcpZ1pw5nGvM pq3s4hJ8tSHJGNocktAFSmfYBKNVKDI2xXAlVCi2/PBWRCVlFD3n+XD4fT/8 RSar4QyXw+FkkcGJ9w8WatpZzVTm6iRsuhv5Cjtd09Q9P2cbLMT96i9U/aRe VONnNfw356gZXEYKn7dvz4BFi4/n64hRdYLakhbVeonVYzuPQr5a6F7oYTV1 kweohpnebjjLbfVBbbpnBo7bGer8za1LMEv6jVr+zKVbJM6Ne6ktfUHBR+Kp H671cEua0A2D/YnrMBJXKZPEDVfkKtjVmNsFLxem34apnSbJJ6Jsn5marduc CRmdiOrcdUwOA2ycmmTPMrAwZKaGHHu7oShlmJoXr/wDE5YCzhKR/Vy1FkqK BwUwf3ebFv6tKCuFpcuxZtjh116CRiWvFcqUPA8U7qj/bexlNY6Dv1bgtcCY q5wYckuaYHXC3HCcyJMK7NDAnGiE665ON0N2sGgEbuQPjUJ7ydv6CqJqW64N LvtW1VYSbbVWK/TZYhfgilPvgI8KpgwmYtL7mpp9Mu98FVH2T0Htvx8dOE2M DiSoSvHwDQ8xrAxTR4wP33UQnfdGqW1c/3c4IX5C7TuSGuHdIb9Ywi+g59ar khRisFhxCJYZ1vAFxDnHReqmoQ9ieYD0IzoshU9fKnJyiDG3KR/+B8ZPgIA= "], CellLabel->"In[92]:=",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"], Cell[BoxData[ GraphicsBox[{{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{0., -5.971972334739143}, { 0.6931471805599453, -7.681503916379692}, { 1.0986122886681098`, -10.32757498295671}, { 1.3862943611198906`, -9.829681783551441}, { 1.6094379124341003`, -10.230357632303523`}, { 1.791759469228055, -11.722321803004917`}, { 1.9459101490553132`, -11.124820927921238`}, { 2.0794415416798357`, -11.001954370113104`}, { 2.1972245773362196`, -11.118634002311206`}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{0., -4.184942732378463}, { 0.6931471805599453, -5.725381520561698}, { 1.0986122886681098`, -7.828252802638092}, { 1.3862943611198906`, -7.579916569917494}, { 1.6094379124341003`, -7.866801448752056}, { 1.791759469228055, -9.318111966918382}, { 1.9459101490553132`, -8.608117468053502}, { 2.0794415416798357`, -8.516686765727957}, { 2.1972245773362196`, -8.644056122322144}}]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{0., -3.6691276816033196`}, { 0.6931471805599453, -4.981672033906618}, { 1.0986122886681098`, -6.416778302027888}, { 1.3862943611198906`, -6.260942540208597}, { 1.6094379124341003`, -6.618985912040625}, { 1.791759469228055, -8.10866005325722}, { 1.9459101490553132`, -7.18049112358534}, { 2.0794415416798357`, -7.1210841072949815`}, { 2.1972245773362196`, -7.264304490440206}}]}}, {{}, {}}}, {{{}, {}, TagBox[ {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAI5En3kIu5r+WYuVBwtsYwE4n8gm8 Jua/C73y9qPdGMB6vbw1NR/mv4AXAKyF3xjA0OlRjScQ5r9qzBoWSeMYwH5C fDwM8uW/PjZQ6s/qGMDY89Ca1bXlv+gJu5Ld+RjAjFZ6V2g95b87sZDj+BcZ wPUbzdCNTOS/4f87hS9UGcAUxAQAVELiv9kVbvm91hnAdEoGlbVa4L9BtC2U pVAawDKI065P+dy/2NWUAynIGsAUtr6sKuzYvxxw16PNSRvAeqA9djwk1b/P kqdqy8IbwHjF4LhEC9G/Ly5TYupFHMACoo+s3ArKv75Mpi6lxhzAGjKFfp2J wr+884YhuT4dwMduhoWWzLS/aBNDRe7AHcCZrUXxNGuWv4O7jI98Oh7Aovun Q+2Uoj/N5n2uprEewKZ8aJvgc7k/w4pK/vEyH8C3BFezN0TEPyq3pHSWqx/A 6lWxJpJwzD8eLu0NLhcgwATtQfJUO9I/P8Lby15XIMCQcpcFKvnVP5gaER08 kyDAhL3InwgI2j9HL7QGKtQgwPVLZm6w0d0/Lgieg8QQIcDmz+/hMPbgP2yd 9ZhvUiHAjIZK3/j54j9B9KCY6JIhwPFe23Yl2+Q/TQ+TKw7PIcAJGtrR1uTm P7Dm8lZEECLA4PYOx+zL6D9LgpkVJ00iwHLg4Q5yqeo/fd+TvteIIsC3rCIa fK/sPwb5+/+YySLAu5qZv+qS7j/H1qrUBgYjwLo1PxRvT/A/3nDHQYVHI8Bz pAByoFDxP4zMN5nRhyPACyTdHIRA8j9y7O6DysMjwP2UcCmqRPM/rsgTB9QE JMDOFh+Dgjf0PyNpfx2KQSTA/Z4chpIl9T8uyz4eDn0kwIYY0erkJ/Y/kelr t6K9JMDuoqCc6Rj3PyrM3+Pj+STAsB4nsDAe+D8ba8GoNTslwFGryBAqEvk/ Q87pADR4JcBPPrkaWwH6PwPzZUMAtCXAp8Jghs4E+z8Z1E8e3fQlwN5XIz/0 9vs/Z3mAjGYxJsBv3pxZXP38PwvbHpMAcybAXmtlHfz+/T9H/hCEaLMmwCwJ SS5O7/4/uuVJCH3vJsBUmOOg4vP/P4SJ8CSiMCfALZxMsJRzAECG8d3Uc20n wF/vzuTT6gBAHxsfbxOpJ8A+uyxKNGwBQA4BzqHD6SfAjQ8Y1u3kAUA2q8Nn ICYowPqxjeUI5wFAbHx+7y0nKMBoVAP1I+kBQKNNOXc7KCjAQpnuE1rtAUAQ 8K6GVioowPgixVHG9QFA6zSapYwuKMBiNnLNngYCQKC+cOP4NijAOF3MxE8o AkAL0h1f0UcowKb/QdRqKgJAQqPY5t5IKMATorfjhSwCQHl0k27sSSjA7uai ArwwAkDmFgl+B0wowKNweUAoOQJAwVv0nD1QKMAOhCa8AEoCQHblytqpWCjA eyacyxtMAkCttoVit1kowOjIEds2TgJA44dA6sRaKMDDDf35bFICQFEqtvnf XCjAeJfTN9laAkArb6EYFmEowOY5SUf0XAJAYkBcoCNiKMBT3L5WD18CQJkR FygxYyjALiGqdUVjAkAGtIw3TGUowJvDH4VgZQJAPYVHv1lmKMAIZpWUe2cC QHNWAkdnZyjAdggLpJZpAkCqJ73OdGgowOOqgLOxawJA4fh3VoJpKMD8G1uL "]]}, Annotation[#, "Charting`Private`Tag$55730#1"]& ]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-0.09250468055625578, -12.35252994512177}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Log, Exp}]}, { Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{573.0000000000002, Automatic}, Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, PlotRange->{{-0.09250468055625578, 2.1972245773362196`}, {-12.35252994512177, -3.6691276816033196`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->FrontEndValueCache[{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledTicks[{Log, Exp}]}, {{{0., FormBox["1", TraditionalForm], {0.01, 0.}}, {0.6931471805599453, FormBox["2", TraditionalForm], {0.01, 0.}}, {1.6094379124341003`, FormBox["5", TraditionalForm], {0.01, 0.}}, {0.4054651081081644, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.0986122886681098`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.3862943611198906`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.791759469228055, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 1.9459101490553132`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.0794415416798357`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.1972245773362196`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.302585092994046, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.3513752571634776`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.3978952727983707`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, {{-11.512925464970229`, FormBox[ TemplateBox[{"10", RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {-9.210340371976182, FormBox[ TemplateBox[{"10", RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {-6.907755278982137, FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-4.605170185988091, FormBox[ TagBox[ InterpretationBox[ StyleBox["\"0.010\"", ShowStringCharacters -> False], 0.01, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}]& ], 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.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.903487552536127, 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.600902459542082, 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.}}, {-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.}}, {-2.8134107167600364`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-2.659260036932778, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-2.5257286443082556`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-2.4079456086518722`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-2.3025850929940455`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.6094379124341003`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.2039728043259361`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]]], "Output", CellChangeTimes->{ 3.8417351792754507`*^9, 3.841735270593384*^9, 3.841735357439477*^9, 3.8417355174882727`*^9, 3.8417361563955936`*^9, 3.8418267108534307`*^9, 3.8418270312390823`*^9, 3.841827075851301*^9, {3.841827197304531*^9, 3.841827206353059*^9}, 3.84182732581502*^9, 3.841827843948781*^9, 3.8418279040382137`*^9, 3.8418282580491457`*^9, 3.841828584061058*^9, { 3.841829019571225*^9, 3.841829044223043*^9}, 3.8418294854778643`*^9, 3.841830262119801*^9, {3.841995372213642*^9, 3.841995396475107*^9}, 3.841995484645892*^9, 3.841995682626008*^9, 3.841996135853613*^9, 3.841996384100068*^9, {3.841996514866692*^9, 3.841996526602826*^9}, 3.841996688560584*^9, 3.8419970235038013`*^9, 3.841997350767638*^9, 3.841997527513164*^9, 3.841997893705214*^9, 3.842069090690687*^9, { 3.8420692244517384`*^9, 3.842069254324669*^9}, 3.842069827638431*^9, 3.8420700802724743`*^9, 3.842070418369782*^9, 3.8420706117281237`*^9, 3.8420776841978817`*^9, 3.8420779660784683`*^9, 3.842078147309599*^9, 3.842078893092942*^9, 3.842079245401634*^9, 3.842079378136832*^9, 3.8420796453175364`*^9, 3.8420796884261827`*^9, 3.842079791791926*^9, 3.84207986806572*^9, 3.842079956289599*^9, 3.842080013691594*^9, 3.8420800736067333`*^9, 3.8420801767022*^9, {3.842080258395369*^9, 3.8420802657767553`*^9}, 3.8420803495055437`*^9, 3.842080447839018*^9, 3.84208053012062*^9, 3.842080571064817*^9, 3.842080636861492*^9, { 3.842080801936014*^9, 3.8420808330683537`*^9}, 3.8420809866283007`*^9, { 3.842081026758739*^9, 3.8420810665712843`*^9}, 3.842081116607491*^9, { 3.84208115809739*^9, 3.8420811630394373`*^9}, 3.842081236267685*^9, 3.842081286153639*^9, {3.8420813178474293`*^9, 3.842081320915207*^9}, 3.842081445803397*^9, 3.842081582461212*^9, 3.8420817332329817`*^9, 3.842081984502657*^9, 3.842082290220502*^9, {3.842083183386943*^9, 3.842083282444791*^9}, 3.842338155816634*^9, 3.8423390209717093`*^9, 3.842341908479927*^9, 3.842350578695993*^9, 3.842411947329998*^9, 3.842421125366508*^9}, CellLabel->"Out[92]=",ExpressionUUID->"dac320a3-b62f-4eeb-bdd8-2ec3673bb6b2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogPlot", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"rule\[Theta]0", "[", RowBox[{"h", "[", "0", "]"}], "]"}], "/.", "m01"}], ",", RowBox[{ RowBox[{"rule\[Theta]0", "[", RowBox[{"h", "[", "1", "]"}], "]"}], "/.", "m11"}], ",", RowBox[{ RowBox[{"rule\[Theta]0", "[", RowBox[{"h", "[", "2", "]"}], "]"}], "/.", "m21"}], ",", RowBox[{ RowBox[{"rule\[Theta]0", "[", RowBox[{"h", "[", "3", "]"}], "]"}], "/.", "m31"}], ",", RowBox[{ RowBox[{"rule\[Theta]0", "[", RowBox[{"h", "[", "4", "]"}], "]"}], "/.", "m41"}], ",", RowBox[{ RowBox[{"rule\[Theta]0", "[", RowBox[{"h", "[", "5", "]"}], "]"}], "/.", "m51"}], ",", RowBox[{ RowBox[{"rule\[Theta]0", "[", RowBox[{"h", "[", "6", "]"}], "]"}], "/.", "m61"}], ",", RowBox[{ RowBox[{"rule\[Theta]0", "[", RowBox[{"h", "[", "7", "]"}], "]"}], "/.", "m71"}], ",", RowBox[{ RowBox[{"rule\[Theta]0", "[", RowBox[{"h", "[", "8", "]"}], "]"}], "/.", RowBox[{"m8", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "]"}], "/.", RowBox[{ RowBox[{"gC", "[", "0", "]"}], "->", "1"}]}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ SuperscriptBox["10", RowBox[{"-", "6"}]], ",", SuperscriptBox["10", RowBox[{"\[IndentingNewLine]", RowBox[{"-", "1"}]}]]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.842336862881982*^9, 3.842336866191779*^9}, { 3.8423369010084476`*^9, 3.84233703955632*^9}, {3.842338047829585*^9, 3.8423380779341507`*^9}, {3.84233902963297*^9, 3.842339034487693*^9}, { 3.842341912687029*^9, 3.8423419130620003`*^9}, {3.842411957903296*^9, 3.8424119648708353`*^9}}, CellLabel->"In[78]:=",ExpressionUUID->"2534e368-bebd-4cc1-a20e-9a47aa5e90e3"], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{1., -4.116544210801462}, {1., -4.11348156181928}}], LineBox[{{1., -4.11348156181928}, {1., -4.1104282640237715`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{2., -5.838639013811128}, {2., -5.821619088957594}}], LineBox[{{2., -5.821619088957594}, {2., -5.804884000807531}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{3., -5.869758511346478}, {3., -5.852205302120374}}], LineBox[{{3., -5.852205302120374}, {3., -5.83495490044484}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{4., -5.818208239779498}, {4., -5.801529662687046}}], LineBox[{{4., -5.801529662687046}, {4., -5.785124703214511}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{5., -7.517702604697093}, {5., -7.429676413484005}}], LineBox[{{5., -7.429676413484005}, {5., -7.348775820498549}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{6., -9.313921978404101}, {6., -8.872724187637855}}], LineBox[{{6., -8.872724187637855}, {6., -8.567643450108353}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{7., -36.04365338911715}, {7., -11.041011363144566`}}], LineBox[{{7., -11.041011363144566`}, {7., -9.625392335798844}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{8., -36.04365338911715}, {8., -11.248833648422448`}}], LineBox[{{8., -11.248833648422448`}, {8., -9.672019108110016}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{9., -36.04365338911715}, {9., -10.32274467271925}}], LineBox[{{9., -10.32274467271925}, {9., -9.39815592839539}}]}}, Antialiasing->False]}}, { {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{1, -4.1104282640237715`}, Offset[{3, 0}, {1, -4.1104282640237715`}]}, {{ 1, -4.1104282640237715`}, Offset[{-3, 0}, {1, -4.1104282640237715`}]}, {{ 1, -4.116544210801462}, Offset[{3, 0}, {1, -4.116544210801462}]}, {{ 1, -4.116544210801462}, Offset[{-3, 0}, {1, -4.116544210801462}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{2, -5.804884000807531}, Offset[{3, 0}, {2, -5.804884000807531}]}, {{ 2, -5.804884000807531}, Offset[{-3, 0}, {2, -5.804884000807531}]}, {{ 2, -5.838639013811128}, Offset[{3, 0}, {2, -5.838639013811128}]}, {{ 2, -5.838639013811128}, Offset[{-3, 0}, {2, -5.838639013811128}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{3, -5.83495490044484}, Offset[{3, 0}, {3, -5.83495490044484}]}, {{3, -5.83495490044484}, Offset[{-3, 0}, {3, -5.83495490044484}]}, {{ 3, -5.869758511346478}, Offset[{3, 0}, {3, -5.869758511346478}]}, {{ 3, -5.869758511346478}, Offset[{-3, 0}, {3, -5.869758511346478}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{4, -5.785124703214511}, Offset[{3, 0}, {4, -5.785124703214511}]}, {{ 4, -5.785124703214511}, Offset[{-3, 0}, {4, -5.785124703214511}]}, {{ 4, -5.818208239779498}, Offset[{3, 0}, {4, -5.818208239779498}]}, {{ 4, -5.818208239779498}, Offset[{-3, 0}, {4, -5.818208239779498}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{5, -7.348775820498549}, Offset[{3, 0}, {5, -7.348775820498549}]}, {{ 5, -7.348775820498549}, Offset[{-3, 0}, {5, -7.348775820498549}]}, {{ 5, -7.517702604697093}, Offset[{3, 0}, {5, -7.517702604697093}]}, {{ 5, -7.517702604697093}, Offset[{-3, 0}, {5, -7.517702604697093}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{6, -8.567643450108353}, Offset[{3, 0}, {6, -8.567643450108353}]}, {{ 6, -8.567643450108353}, Offset[{-3, 0}, {6, -8.567643450108353}]}, {{ 6, -9.313921978404101}, Offset[{3, 0}, {6, -9.313921978404101}]}, {{ 6, -9.313921978404101}, Offset[{-3, 0}, {6, -9.313921978404101}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{7, -9.625392335798844}, Offset[{3, 0}, {7, -9.625392335798844}]}, {{ 7, -9.625392335798844}, Offset[{-3, 0}, {7, -9.625392335798844}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{8, -9.672019108110016}, Offset[{3, 0}, {8, -9.672019108110016}]}, {{ 8, -9.672019108110016}, Offset[{-3, 0}, {8, -9.672019108110016}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{9, -9.39815592839539}, Offset[{3, 0}, {9, -9.39815592839539}]}, {{9, -9.39815592839539}, Offset[{-3, 0}, {9, -9.39815592839539}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., -4.11348156181928}, {2., -5.821619088957594}, { 3., -5.852205302120374}, {4., -5.801529662687046}, { 5., -7.429676413484005}, {6., -8.872724187637855}, { 7., -11.041011363144566`}, {8., -11.248833648422448`}, { 9., -10.32274467271925}}]}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., -13.815510557964274`}, 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]], ImageSize->{713.9999999999998, Automatic}, Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, PlotRange-> NCache[{{0., 9}, {-Log[1000000], -Log[10]}}, {{ 0., 9}, {-13.815510557964274`, -2.302585092994046}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->FrontEndValueCache[{Automatic, Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-13.815510557964274`, FormBox[ TemplateBox[{"10", RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {-11.512925464970229`, FormBox[ TemplateBox[{"10", RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {-9.210340371976182, FormBox[ TemplateBox[{"10", RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {-6.907755278982137, FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-4.605170185988091, FormBox[ TagBox[ InterpretationBox[ StyleBox["\"0.010\"", ShowStringCharacters -> False], 0.01, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}}, {-2.3025850929940455`, FormBox[ TagBox[ InterpretationBox[ StyleBox["\"0.100\"", ShowStringCharacters -> False], 0.1, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}}, {-13.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.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.903487552536127, 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.600902459542082, 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.}}, {-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.}}, {-2.8134107167600364`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-2.659260036932778, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-2.5257286443082556`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-2.4079456086518722`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.6094379124341003`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-1.2039728043259361`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]]], "Output", CellChangeTimes->{{3.8423370092964497`*^9, 3.84233703988655*^9}, { 3.842338051871869*^9, 3.842338078127988*^9}, 3.842339034834592*^9, 3.84234191354906*^9, 3.8423505853859243`*^9, 3.842411965086033*^9}, CellLabel->"Out[78]=",ExpressionUUID->"c05b3224-88e5-4816-869c-4737a893ff59"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.842337008306306*^9, 3.8423370083084803`*^9}},ExpressionUUID->"a1f6b25c-0873-4498-a93d-\ 113565ed896c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"ruleAH", "[", RowBox[{"h", "[", "0", "]"}], "]"}], "/.", "m01"}], ",", RowBox[{ RowBox[{"ruleAH", "[", RowBox[{"h", "[", "1", "]"}], "]"}], "/.", "m11"}], ",", RowBox[{ RowBox[{"ruleAH", "[", RowBox[{"h", "[", "2", "]"}], "]"}], "/.", "m21"}], ",", RowBox[{ RowBox[{"ruleAH", "[", RowBox[{"h", "[", "3", "]"}], "]"}], "/.", "m31"}], ",", RowBox[{ RowBox[{"ruleAH", "[", RowBox[{"h", "[", "4", "]"}], "]"}], "/.", "m41"}], ",", RowBox[{ RowBox[{"ruleAH", "[", RowBox[{"h", "[", "5", "]"}], "]"}], "/.", "m51"}], ",", RowBox[{ RowBox[{"ruleAH", "[", RowBox[{"h", "[", "6", "]"}], "]"}], "/.", "m61"}], ",", RowBox[{ RowBox[{"ruleAH", "[", RowBox[{"h", "[", "7", "]"}], "]"}], "/.", "m71"}], ",", RowBox[{ RowBox[{"ruleAH", "[", RowBox[{"h", "[", "8", "]"}], "]"}], "/.", RowBox[{"m8", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "]"}], "/.", RowBox[{ RowBox[{"gC", "[", "0", "]"}], "->", "1"}]}], "]"}]], "Input", CellChangeTimes->{{3.842336862881982*^9, 3.842336866191779*^9}, { 3.8423369010084476`*^9, 3.84233703955632*^9}, {3.842338047829585*^9, 3.8423380779341507`*^9}, {3.84233902963297*^9, 3.842339034487693*^9}, { 3.842341912687029*^9, 3.8423419130620003`*^9}, {3.842350596340082*^9, 3.842350647444791*^9}, {3.8424119721274652`*^9, 3.8424119777670403`*^9}}, CellLabel->"In[79]:=",ExpressionUUID->"d88de4bc-38ed-48d9-9eb9-13896c8d48af"], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{1., 0.2603972077028309}, {1., 0.28039720770283094`}}], LineBox[{{1., 0.28039720770283094`}, {1., 0.30039720770283096`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{2., 0.10067964359302219`}, {2., 0.12067964359302219`}}], LineBox[{{2., 0.12067964359302219`}, {2., 0.14067964359302218`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{3., 0.07522818918390596}, {3., 0.09522818918390596}}], LineBox[{{3., 0.09522818918390596}, {3., 0.11522818918390597`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{4., 0.0812716989737421}, {4., 0.10127169897374211`}}], LineBox[{{4., 0.10127169897374211`}, {4., 0.12127169897374211`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{5., -0.019936679981071164`}, {5., 0.00006332001892883632}}], LineBox[{{5., 0.00006332001892883632}, {5., 0.020063320018928837`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{6., 0.011991158651098583`}, {6., 0.031991158651098583`}}], LineBox[{{6., 0.031991158651098583`}, {6., 0.05199115865109859}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{7., 0.02017795227700005}, {7., 0.04017795227700005}}], LineBox[{{7., 0.04017795227700005}, {7., 0.060177952277000055`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{8., 0.02028645487317184}, {8., 0.04028645487317184}}], LineBox[{{8., 0.04028645487317184}, {8., 0.060286454873171844`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{9., 0.01901264771601154}, {9., 0.03901264771601154}}], LineBox[{{9., 0.03901264771601154}, {9., 0.05901264771601154}}]}}, Antialiasing->False]}}, { {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{1., 0.30039720770283096`}, Offset[{3, 0}, {1., 0.30039720770283096`}]}, {{1., 0.30039720770283096`}, Offset[{-3, 0}, {1., 0.30039720770283096`}]}, {{1., 0.2603972077028309}, Offset[{3, 0}, {1., 0.2603972077028309}]}, {{ 1., 0.2603972077028309}, Offset[{-3, 0}, {1., 0.2603972077028309}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{2., 0.14067964359302218`}, Offset[{3, 0}, {2., 0.14067964359302218`}]}, {{2., 0.14067964359302218`}, Offset[{-3, 0}, {2., 0.14067964359302218`}]}, {{2., 0.10067964359302219`}, Offset[{3, 0}, {2., 0.10067964359302219`}]}, {{2., 0.10067964359302219`}, Offset[{-3, 0}, {2., 0.10067964359302219`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{3., 0.11522818918390597`}, Offset[{3, 0}, {3., 0.11522818918390597`}]}, {{3., 0.11522818918390597`}, Offset[{-3, 0}, {3., 0.11522818918390597`}]}, {{3., 0.07522818918390596}, Offset[{3, 0}, {3., 0.07522818918390596}]}, {{3., 0.07522818918390596}, Offset[{-3, 0}, {3., 0.07522818918390596}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{4., 0.12127169897374211`}, Offset[{3, 0}, {4., 0.12127169897374211`}]}, {{4., 0.12127169897374211`}, Offset[{-3, 0}, {4., 0.12127169897374211`}]}, {{4., 0.0812716989737421}, Offset[{3, 0}, {4., 0.0812716989737421}]}, {{ 4., 0.0812716989737421}, Offset[{-3, 0}, {4., 0.0812716989737421}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{5., 0.020063320018928837`}, Offset[{3, 0}, {5., 0.020063320018928837`}]}, {{5., 0.020063320018928837`}, Offset[{-3, 0}, {5., 0.020063320018928837`}]}, {{ 5., -0.019936679981071164`}, Offset[{3, 0}, {5., -0.019936679981071164`}]}, {{ 5., -0.019936679981071164`}, Offset[{-3, 0}, {5., -0.019936679981071164`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{6., 0.05199115865109859}, Offset[{3, 0}, {6., 0.05199115865109859}]}, {{6., 0.05199115865109859}, Offset[{-3, 0}, {6., 0.05199115865109859}]}, {{6., 0.011991158651098583`}, Offset[{3, 0}, {6., 0.011991158651098583`}]}, {{6., 0.011991158651098583`}, Offset[{-3, 0}, {6., 0.011991158651098583`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{7., 0.060177952277000055`}, Offset[{3, 0}, {7., 0.060177952277000055`}]}, {{7., 0.060177952277000055`}, Offset[{-3, 0}, {7., 0.060177952277000055`}]}, {{7., 0.02017795227700005}, Offset[{3, 0}, {7., 0.02017795227700005}]}, {{7., 0.02017795227700005}, Offset[{-3, 0}, {7., 0.02017795227700005}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{8., 0.060286454873171844`}, Offset[{3, 0}, {8., 0.060286454873171844`}]}, {{8., 0.060286454873171844`}, Offset[{-3, 0}, {8., 0.060286454873171844`}]}, {{8., 0.02028645487317184}, Offset[{3, 0}, {8., 0.02028645487317184}]}, {{8., 0.02028645487317184}, Offset[{-3, 0}, {8., 0.02028645487317184}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{9., 0.05901264771601154}, Offset[{3, 0}, {9., 0.05901264771601154}]}, {{9., 0.05901264771601154}, Offset[{-3, 0}, {9., 0.05901264771601154}]}, {{9., 0.01901264771601154}, Offset[{3, 0}, {9., 0.01901264771601154}]}, {{9., 0.01901264771601154}, Offset[{-3, 0}, {9., 0.01901264771601154}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 0.28039720770283094`}, {2., 0.12067964359302219`}, {3., 0.09522818918390596}, {4., 0.10127169897374211`}, {5., 0.00006332001892883632}, {6., 0.031991158651098583`}, {7., 0.04017795227700005}, {8., 0.04028645487317184}, {9., 0.03901264771601154}}]}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{713.9999999999998, Automatic}, Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0., 9.}, {-0.019936679981071164`, 0.30039720770283096`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8423370092964497`*^9, 3.84233703988655*^9}, { 3.842338051871869*^9, 3.842338078127988*^9}, 3.842339034834592*^9, 3.84234191354906*^9, {3.8423505853859243`*^9, 3.84235064767439*^9}, 3.842411978256198*^9}, CellLabel->"Out[79]=",ExpressionUUID->"cb1c4020-ab43-4766-b2c6-457ac2e5298a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Stored fits", "Subsection", CellChangeTimes->{{3.842517590372966*^9, 3.842517591573138*^9}},ExpressionUUID->"36c7685a-f47a-40aa-a737-\ 8c7f6f4317c1"], Cell[BoxData[ RowBox[{ RowBox[{"m01", "=", RowBox[{"{", RowBox[{ RowBox[{ "\[Theta]c", "\[Rule]", "1.21119491859637855712121672976181324791`20."}], ",", RowBox[{ "\[Theta]0", "\[Rule]", "0.18037805864637876662547309902146492111`20."}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.12939491414141908415061096249208640186`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2447666137912675194943832370360671582`20."}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.49992397885043029926506996142872430489`20."}]}], "}"}]}], ";"}]], \ "Input", CellChangeTimes->{{3.842517705895237*^9, 3.842517708639202*^9}},ExpressionUUID->"afc540ea-ef9a-493b-9583-\ ed901e3ac580"], Cell[BoxData[ RowBox[{ RowBox[{"m11", "=", RowBox[{"{", RowBox[{ RowBox[{ "\[Theta]c", "\[Rule]", "1.35152890616164762778517094120905354748`20."}], ",", RowBox[{ "\[Theta]0", "\[Rule]", "0.19577685217395626794351230428323615065`20."}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.19329002202443521915906734872177584071`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2323957708050473247230573917991786155`20."}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.38993454167949585526176302950567201436`20."}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.01480119866378319374012061649409943942`20."}]}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.8425176933429823`*^9, 3.842517695263131*^9}},ExpressionUUID->"cdb9b75d-4c04-4ef5-9969-\ 9e72079c5d58"], Cell[BoxData[ RowBox[{ RowBox[{"m21", "=", RowBox[{"{", RowBox[{ RowBox[{ "\[Theta]c", "\[Rule]", "1.44826732606543626750443052210721464039`20."}], ",", RowBox[{ "\[Theta]0", "\[Rule]", "0.19563567437869586038661779686289677704`20."}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.24381246052891059122067988859858612937`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.29712614684674249654921222637869204181`20."}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.37108987555325540173113676725825610292`20."}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.10859849803391633266832263540326194918`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "0.00317944766056712038023148626594881042`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.02895083168061132881654746104306156029`20."}]}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.8425176829426823`*^9, 3.842517685070943*^9}},ExpressionUUID->"e7739266-4bd1-4804-846a-\ 5133bf45bfe6"], Cell[BoxData[ RowBox[{ RowBox[{"m31", "=", RowBox[{"{", RowBox[{ RowBox[{ "\[Theta]c", "\[Rule]", "1.47231730333795406829164341435348879632`20."}], ",", RowBox[{ "\[Theta]0", "\[Rule]", "0.19553676651611357190507648227827237504`20."}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.23226520959893245256443830558689061059`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.28070451707480511625399624125304547023`20."}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3631836370719508085204084331441440884`20."}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.1143621295363031084101244043274410552`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "0.00319213676835238378789556503183596684`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.02903327038943439003760410093715258202`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "2.09695608120214374639812905518516`20.*^-6"}]}], "}"}]}], ";"}]], \ "Input", CellChangeTimes->{{3.842517669022213*^9, 3.842517671974608*^9}},ExpressionUUID->"e0c29aa2-30dd-4eb9-990b-\ b4abf8865eeb"], Cell[BoxData[ RowBox[{ RowBox[{"m41", "=", RowBox[{"{", RowBox[{ RowBox[{ "\[Theta]c", "\[Rule]", "1.40685112116988131347738999465946108103`20."}], ",", RowBox[{ "\[Theta]0", "\[Rule]", "0.19721474012413645060526334873429732397`20."}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.4181833936101608806268359330715611577`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.53789467845559602032778911961941048503`20."}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.43094482487038804352508236661378759891`20."}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.20595660506372287512633079131774138659`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.00809611950395225550558553351265800302`20."}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.09436173168315158121810526381523231976`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.0042785677827476388881966506971821218`20."}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", RowBox[{"-", "0.00026246183044576637272832231317920559`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.01167749987477899320520435821890714578`20."}]}], "}"}]}], ";"}]], \ "Input", CellChangeTimes->{{3.842517659446084*^9, 3.842517661454425*^9}},ExpressionUUID->"80a3d021-bc5a-410c-8e70-\ 089bc45d33bc"], Cell[BoxData[ RowBox[{ RowBox[{"m51", "=", RowBox[{"{", RowBox[{ RowBox[{ "\[Theta]c", "\[Rule]", "1.31630265190654504126990798607059700922`20."}], ",", RowBox[{ "\[Theta]0", "\[Rule]", "0.19673889480178571425603386505667387764`20."}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.50900083782283931078340616602237669362`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.67031087534281158130313089477564731749`20."}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.56306766534037991081905173207850130325`20."}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.25713549953522877435447386379651138296`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "0.03961674425173714729077632539065329366`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.14571077274500842786302970874523210784`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.00475222097467538268037623052646543767`20."}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.00159156689838684910691438924196192437`20."}], ",", RowBox[{ RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.00377107946158147555052135172564476592`20."}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", RowBox[{"-", "0.00040849309195947277394752738192568273`20."}]}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.8425176452301397`*^9, 3.842517647662315*^9}},ExpressionUUID->"1d95a4fa-b7b4-4d6f-9695-\ 22a28602846c"], Cell[BoxData[ RowBox[{ RowBox[{"m61", "=", RowBox[{"{", RowBox[{ RowBox[{ "\[Theta]c", "\[Rule]", "1.30473402558862438279384169966038694306`20."}], ",", RowBox[{ "\[Theta]0", "\[Rule]", "0.19664406607951774833901943811295592628`20."}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.5357690039537832228273199757845976845`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.70925197304907657860231502073565109485`20."}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.59113509728442785240986585173891514474`20."}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.27922153451404268795553330872363798882`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "0.04274889088010283689229826734918839383`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.16924891466424059319679853386434304484`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.00526750468100285897753499365101993439`20."}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.00513426762087048461311709326153702045`20."}], ",", RowBox[{ RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.00412589655174002642884610058388901463`20."}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", RowBox[{"-", "0.00156864582912082369615474351244620055`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.0001332630841149475556949818043285057`20."}], ",", RowBox[{ RowBox[{"A", "[", "5", "]"}], "\[Rule]", "0.0014336612326993358485643925703811874`20."}]}], "}"}]}], ";"}]], \ "Input", CellChangeTimes->{{3.842517616421838*^9, 3.8425176337261066`*^9}},ExpressionUUID->"f3f292b7-6741-4c30-b2ac-\ b80cd82a3eaa"], Cell[BoxData[ RowBox[{ RowBox[{"m71", "=", RowBox[{"{", RowBox[{ RowBox[{ "\[Theta]c", "\[Rule]", "1.31355404039653182669914597217190170034`20."}], ",", RowBox[{ "\[Theta]0", "\[Rule]", "0.19665875841110683697922172037847911269`20."}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.53343299034841646331539418608388424723`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.70577157551054277158049213768122631914`20."}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.58696280011958254780275098766609387839`20."}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.28362958660470974751439847343277330961`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "0.04106603664706777390294072097816960584`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.17093933071704376945795105099576307144`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.00713245531052218542782052857426229551`20."}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.00453278036043904087566110942927425189`20."}], ",", RowBox[{ RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.00520241118526903817122380025058684848`20."}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", RowBox[{"-", "0.00128617871409771127507986263520036548`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00002668327789037362388656113497927527`20."}], ",", RowBox[{ RowBox[{"A", "[", "5", "]"}], "\[Rule]", "0.00166817266046418252029728758844488422`20."}], ",", RowBox[{ RowBox[{"gC", "[", "7", "]"}], "\[Rule]", "0.00001770468231070234835884333324251827`20."}]}], "}"}]}], ";"}]], \ "Input", CellChangeTimes->{{3.842517725791533*^9, 3.8425177278636723`*^9}},ExpressionUUID->"b6e4cc8e-edfb-44a9-a3e6-\ a4d9a234eb0c"], Cell[BoxData[ RowBox[{"m8", "=", RowBox[{"{", RowBox[{"10461.445570771271`", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.3165755399877996`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.1966622586676097`"}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.5326463007251494`"}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.704610793571788`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5858031732617006`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.28522649008675394`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "0.04070402717976069`"}]}], ",", RowBox[{ RowBox[{"A", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.17149012788410323`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.007797122391878326`"}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.004656040873728506`"}], ",", RowBox[{ RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.005103205021904066`"}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", RowBox[{"-", "0.001432754158168632`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00006084634154911762`"}], ",", RowBox[{ RowBox[{"A", "[", "5", "]"}], "\[Rule]", "0.002063010461212938`"}], ",", RowBox[{ RowBox[{"gC", "[", "7", "]"}], "\[Rule]", "0.000014182759560736414`"}], ",", RowBox[{ RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "2.804302657070413`*^-7"}], ",", RowBox[{ RowBox[{"A", "[", "6", "]"}], "\[Rule]", RowBox[{"-", "0.00006191602811550506`"}]}]}], "}"}]}], "}"}]}]], \ "Input", CellChangeTimes->{{3.842517745815776*^9, 3.842517746224132*^9}},ExpressionUUID->"a5a4b4cf-3264-415e-9912-\ fe5941040891"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m81", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"D", "[", 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->"b9ab51e0-9b64-4dfa-80a9-3047d72051b1"], 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->"edaad5f4-5205-486f-b107-406316036f3a"] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{636., 1060.5}, WindowMargins->{{Automatic, 2.25}, {2.25, Automatic}}, FrontEndVersion->"12.3 for Linux x86 (64-bit) (July 9, 2021)", StyleDefinitions->"Default.nb", ExpressionUUID->"6f6c570c-dfc0-4320-bdc7-0f1de62bb24c" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 992, 15, 24, "Input",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"], Cell[1553, 37, 545, 13, 41, "Input",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"], Cell[2101, 52, 463, 11, 24, "Input",ExpressionUUID->"2fdffe9d-9220-4c97-866d-0a1f5e3200a1"], Cell[CellGroupData[{ Cell[2589, 67, 203, 4, 50, "Section",ExpressionUUID->"5d9c76ab-41db-4d8f-b32b-3ceed5a29b07"], Cell[CellGroupData[{ Cell[2817, 75, 163, 3, 41, "Subsection",ExpressionUUID->"04b3434a-7ae1-4e59-9492-797bc05d141c"], Cell[2983, 80, 213, 4, 22, "Input",ExpressionUUID->"c2736e8b-b9a2-44e3-be7a-35f424888e11"], Cell[CellGroupData[{ Cell[3221, 88, 3264, 59, 71, "Input",ExpressionUUID->"a326d1ad-f5a3-49d5-9b86-3a79e4cb291c"], Cell[6488, 149, 1809, 30, 25, "Output",ExpressionUUID->"e6b50f51-a941-434a-a0be-477aab535ca0"] }, Open ]], Cell[CellGroupData[{ Cell[8334, 184, 697, 18, 24, "Input",ExpressionUUID->"8eab97ea-e359-40c0-9935-fde12f7b604a"], Cell[9034, 204, 1245, 23, 44, "Output",ExpressionUUID->"b28feda9-0c42-492c-8c6a-d5f1ca8e2b4a"] }, Open ]], Cell[CellGroupData[{ Cell[10316, 232, 4741, 71, 75, "Input",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"], Cell[15060, 305, 13938, 307, 183, "Output",ExpressionUUID->"79d87d08-16ff-4087-a519-8498715bf2f7"] }, Open ]], Cell[CellGroupData[{ Cell[29035, 617, 4758, 72, 75, "Input",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"], Cell[33796, 691, 12787, 237, 181, "Output",ExpressionUUID->"ef81ae05-495e-4a10-8e00-e5378065743c"] }, Open ]], Cell[CellGroupData[{ Cell[46620, 933, 1346, 25, 22, "Input",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], Cell[CellGroupData[{ Cell[47991, 962, 746, 12, 18, "Print",ExpressionUUID->"66a8ff17-0d24-4fef-a95e-5879871a56cd"], Cell[48740, 976, 746, 12, 18, "Print",ExpressionUUID->"00a69f8d-00b7-4401-b1b4-b5e9a93ac4f6"], Cell[49489, 990, 745, 12, 18, "Print",ExpressionUUID->"fb2f9056-2601-4bb7-aa35-1e507914a317"], Cell[50237, 1004, 746, 12, 18, "Print",ExpressionUUID->"c1b182f4-41eb-4773-8407-621f51299e7d"], Cell[50986, 1018, 741, 12, 18, "Print",ExpressionUUID->"530491f4-199f-4876-81ff-c113b559ec20"] }, Open ]], Cell[51742, 1033, 1199, 23, 25, "Output",ExpressionUUID->"ea79e514-ea99-4fdc-8f45-89363d3b0bf8"] }, Open ]], Cell[CellGroupData[{ Cell[52978, 1061, 1633, 38, 41, "Input",ExpressionUUID->"b02b5204-9158-4350-9e92-e8f555f47ba7"], Cell[54614, 1101, 1415, 28, 42, "Output",ExpressionUUID->"ae058dee-c3ad-4bfe-a04e-3a07b2c59ea4"] }, Open ]], Cell[CellGroupData[{ Cell[56066, 1134, 1026, 25, 24, "Input",ExpressionUUID->"29398383-9203-4cf6-aabb-1d3fe15a5894"], Cell[CellGroupData[{ Cell[57117, 1163, 789, 12, 18, "Print",ExpressionUUID->"d9104651-706f-4b68-a5a5-c728ea465ffa"], Cell[57909, 1177, 789, 12, 18, "Print",ExpressionUUID->"9deab4b3-ca90-4b8f-9923-48119f6ff847"], Cell[58701, 1191, 787, 12, 18, "Print",ExpressionUUID->"5404d31c-e62e-49e2-b333-009a21640524"], Cell[59491, 1205, 790, 12, 18, "Print",ExpressionUUID->"a28f94b4-89ad-47e1-846c-b7ba0fcb7ac6"], Cell[60284, 1219, 786, 12, 18, "Print",ExpressionUUID->"5e2a6bb4-7ccd-42bc-b14a-a202975669c5"] }, Open ]], Cell[61085, 1234, 1359, 25, 42, "Output",ExpressionUUID->"cd65ff5b-16a6-4251-b492-a29a4744c41a"] }, Open ]], Cell[CellGroupData[{ Cell[62481, 1264, 1557, 37, 41, "Input",ExpressionUUID->"672771a7-a1bf-4e81-a251-1d2b0d34398b"], Cell[64041, 1303, 1165, 21, 22, "Message",ExpressionUUID->"16f25f6e-c60e-4f8e-aede-8f4156f4e8ce"], Cell[65209, 1326, 1510, 31, 58, "Output",ExpressionUUID->"71696ee5-0fd3-4161-bb8a-42196929e12f"] }, Open ]], Cell[CellGroupData[{ Cell[66756, 1362, 1425, 32, 24, "Input",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"], Cell[68184, 1396, 536, 11, 22, "Message",ExpressionUUID->"00c6f1ea-3eec-4d3f-a9b1-c856f407739b"], Cell[68723, 1409, 536, 11, 22, "Message",ExpressionUUID->"49d360c7-8ef7-4563-83c8-b743c60ff9b7"], Cell[69262, 1422, 535, 11, 22, "Message",ExpressionUUID->"36901832-ab1d-4868-bcd4-9068ed98c877"], Cell[69800, 1435, 475, 10, 22, "Message",ExpressionUUID->"92ba5879-5df1-4071-95fd-5e396ca115a8"], Cell[CellGroupData[{ Cell[70300, 1449, 343, 6, 18, "Print",ExpressionUUID->"2eb76cfa-8d88-4fbb-81e1-25a0cd13aa6b"], Cell[70646, 1457, 342, 6, 18, "Print",ExpressionUUID->"6f80e87d-2c46-4938-b3b1-da63b3212821"], Cell[70991, 1465, 342, 6, 18, "Print",ExpressionUUID->"06a5b04b-2e6f-4043-9f3e-53b5890ebac0"], Cell[71336, 1473, 341, 6, 18, "Print",ExpressionUUID->"582458f2-df71-43c8-9dfa-20603aeebeef"], Cell[71680, 1481, 339, 6, 18, "Print",ExpressionUUID->"b7b06d10-ed9a-43f3-a119-d4e4f7607a04"] }, Open ]], Cell[72034, 1490, 1813, 36, 42, "Output",ExpressionUUID->"29eaded3-ea87-4160-b057-a5f3ca985e4f"] }, Open ]], Cell[CellGroupData[{ Cell[73884, 1531, 1699, 39, 41, "Input",ExpressionUUID->"eaf55068-7c6e-48d1-8e5b-093c2f4b5994"], Cell[75586, 1572, 1175, 21, 34, "Message",ExpressionUUID->"e28ce7ee-abdf-4231-88d8-1a1ff8215362"], Cell[76764, 1595, 1772, 37, 74, "Output",ExpressionUUID->"800387cb-98f8-4964-a6db-e2418aeee6f9"] }, Open ]], Cell[CellGroupData[{ Cell[78573, 1637, 1598, 33, 24, "Input",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"], Cell[CellGroupData[{ Cell[80196, 1674, 309, 6, 28, "Print",ExpressionUUID->"a772da9e-f6b7-4a32-8a5f-5eb23b3ae4bc"], Cell[80508, 1682, 311, 6, 28, "Print",ExpressionUUID->"610985db-17e7-4ade-8d8f-698e9a63230f"], Cell[80822, 1690, 310, 6, 28, "Print",ExpressionUUID->"3bdf0982-399e-4f2d-9a07-abb77786cd5f"], Cell[81135, 1698, 308, 6, 28, "Print",ExpressionUUID->"8b1715a6-b797-49cc-ac9f-e372f328bbc3"], Cell[81446, 1706, 306, 6, 28, "Print",ExpressionUUID->"fed30cbf-df6b-4a3e-bcda-5e2b12daee1a"] }, Open ]], Cell[81767, 1715, 1884, 38, 44, "Output",ExpressionUUID->"debbba60-37bd-46cc-856f-b506dc1254bf"] }, Open ]], Cell[CellGroupData[{ Cell[83688, 1758, 1899, 43, 57, "Input",ExpressionUUID->"0355409d-8b8c-45c1-9506-a20c5fe4044b"], Cell[85590, 1803, 1247, 22, 34, "Message",ExpressionUUID->"a68111da-af1c-48eb-83ed-c30554aaee03"], Cell[86840, 1827, 1958, 40, 76, "Output",ExpressionUUID->"df2cdb7c-a098-4c70-b978-b4647d156ee2"] }, Open ]], Cell[CellGroupData[{ Cell[88835, 1872, 1973, 40, 24, "Input",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"], Cell[CellGroupData[{ Cell[90833, 1916, 342, 6, 18, "Print",ExpressionUUID->"b414c521-270d-4565-855e-e494ea5d02ce"], Cell[91178, 1924, 341, 6, 18, "Print",ExpressionUUID->"7827ccd0-1803-42be-b211-7918b507627c"], Cell[91522, 1932, 340, 6, 18, "Print",ExpressionUUID->"ceb7f518-14bb-487a-a694-5b2e71ba97de"], Cell[91865, 1940, 338, 6, 18, "Print",ExpressionUUID->"298212be-9307-4926-9480-b78f754e1cd0"], Cell[92206, 1948, 336, 6, 18, "Print",ExpressionUUID->"d345e549-ce7d-4422-bbbb-e33864e5d5d2"] }, Open ]], Cell[92557, 1957, 2275, 46, 58, "Output",ExpressionUUID->"938aea41-c28f-491d-ba52-d97ba5435c83"] }, Open ]], Cell[CellGroupData[{ Cell[94869, 2008, 1773, 40, 41, "Input",ExpressionUUID->"05fba3a3-cdb1-4967-ac49-78ffed60b2dc"], Cell[96645, 2050, 1975, 43, 90, "Output",ExpressionUUID->"2a585b59-ba0b-4178-8652-14ea398e9072"] }, Open ]], Cell[CellGroupData[{ Cell[98657, 2098, 1238, 31, 24, "Input",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"], Cell[99898, 2131, 502, 11, 20, "Message",ExpressionUUID->"d267196e-1adf-4340-bf87-ced098902857"], Cell[100403, 2144, 272, 5, 18, "Print",ExpressionUUID->"6dcb5f73-de42-4d95-8d1c-ce70ed8b403d"], Cell[100678, 2151, 503, 11, 20, "Message",ExpressionUUID->"73d2af64-e156-476b-b530-97584d8eefe8"], Cell[CellGroupData[{ Cell[101206, 2166, 272, 5, 18, "Print",ExpressionUUID->"8af29d72-41a6-4442-aad7-16107b894e66"], Cell[101481, 2173, 275, 5, 18, "Print",ExpressionUUID->"a9adc904-9f2a-4e38-91f4-910de9eba662"], Cell[101759, 2180, 274, 5, 18, "Print",ExpressionUUID->"b58521a1-0684-437b-be5c-14cdd769b465"], Cell[102036, 2187, 271, 5, 18, "Print",ExpressionUUID->"7e67bec4-03db-44d0-9908-21fa036b90d7"] }, Open ]], Cell[102322, 2195, 2114, 45, 58, "Output",ExpressionUUID->"7cf72793-a032-4a28-b655-b0ffbb6596bc"] }, Open ]], Cell[CellGroupData[{ Cell[104473, 2245, 1862, 42, 41, "Input",ExpressionUUID->"d76e85cc-6ecb-4d98-b567-57b256fbb910"], Cell[106338, 2289, 920, 17, 20, "Message",ExpressionUUID->"cd52e157-2a4c-44ad-8cc0-00537e166b5a"], Cell[107261, 2308, 2123, 48, 106, "Output",ExpressionUUID->"bfe1a0a4-02e5-4097-8032-d3efd7e95a43"] }, Open ]], Cell[CellGroupData[{ Cell[109421, 2361, 1443, 37, 24, "Input",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"], Cell[110867, 2400, 547, 12, 20, "Message",ExpressionUUID->"d0160d2e-8f96-469a-872d-0ee796be9444"], Cell[111417, 2414, 547, 12, 20, "Message",ExpressionUUID->"bf8516b3-377b-4cff-962a-9fcb8818bd7a"], Cell[CellGroupData[{ Cell[111989, 2430, 323, 6, 18, "Print",ExpressionUUID->"8311c1bb-943d-422d-9594-0d8b0bf314be"], Cell[112315, 2438, 320, 6, 18, "Print",ExpressionUUID->"559fdef1-1bb7-4720-a627-0547c64f91c6"], Cell[112638, 2446, 320, 6, 18, "Print",ExpressionUUID->"51224b1b-831d-41ca-938d-620809952d73"], Cell[112961, 2454, 321, 6, 18, "Print",ExpressionUUID->"1c1b5e84-691b-46ee-9233-d55a70201f31"], Cell[113285, 2462, 322, 6, 18, "Print",ExpressionUUID->"26acb34e-cd65-4770-91ee-faa8560d6ae7"] }, Open ]], Cell[113622, 2471, 1642, 42, 74, "Output",ExpressionUUID->"95b3fe4e-6c5d-44c3-be33-5d6df8dd4ef5"] }, Open ]], Cell[CellGroupData[{ Cell[115301, 2518, 1721, 40, 41, "Input",ExpressionUUID->"c58535c6-e2cc-4022-b4ee-6e96bd40636a"], Cell[117025, 2560, 463, 10, 20, "Message",ExpressionUUID->"b2327031-ec11-43c5-9d99-1ad9561a8789"], Cell[117491, 2572, 1851, 46, 122, "Output",ExpressionUUID->"632b184d-8506-4e55-91a7-d02786fc1226"] }, Open ]], Cell[CellGroupData[{ Cell[119379, 2623, 1345, 34, 24, "Input",ExpressionUUID->"200b94d3-7cab-4649-99f3-c2558b1a5011"], Cell[120727, 2659, 499, 11, 20, "Message",ExpressionUUID->"5c39711c-7bf4-47c1-a52a-290b4a57b8a4"], Cell[121229, 2672, 605, 13, 33, "Message",ExpressionUUID->"3cdd4a00-f684-4312-bedf-b6d1a2962ad0"], Cell[121837, 2687, 603, 13, 33, "Message",ExpressionUUID->"0f48f5ff-dc91-4d2b-a481-d8efb4472102"], Cell[122443, 2702, 605, 13, 33, "Message",ExpressionUUID->"982d1074-b769-4103-b610-7a6efceed480"], Cell[123051, 2717, 580, 12, 20, "Message",ExpressionUUID->"59e7cf9c-b877-493b-938c-08368aee1e4d"], Cell[CellGroupData[{ Cell[123656, 2733, 274, 5, 18, "Print",ExpressionUUID->"06c6bccc-a366-4987-8e95-12de534e3f07"], Cell[123933, 2740, 272, 5, 18, "Print",ExpressionUUID->"8931da64-de35-46b1-9a9a-2a66b237b836"], Cell[124208, 2747, 274, 5, 18, "Print",ExpressionUUID->"aaec05c6-4eb2-4186-ace4-6e8fcfaf7ae5"], Cell[124485, 2754, 274, 5, 18, "Print",ExpressionUUID->"090049f8-832b-4500-bf58-48719468911a"], Cell[124762, 2761, 272, 5, 18, "Print",ExpressionUUID->"221823e5-765d-4d6a-9988-8e772c42cbe2"] }, Open ]], Cell[125049, 2769, 1739, 43, 74, "Output",ExpressionUUID->"14118b71-5885-4b32-845e-95c43ebc21e3"] }, Open ]], Cell[CellGroupData[{ Cell[126825, 2817, 1769, 40, 41, "Input",ExpressionUUID->"0dba08c9-c74d-4268-96fa-0c6efda987ca"], Cell[128597, 2859, 490, 11, 20, "Message",ExpressionUUID->"e3f507c8-c362-4b0b-adac-3af6e63dd902"], Cell[129090, 2872, 1971, 49, 122, "Output",ExpressionUUID->"e7a20339-bb83-4e2d-8fe0-80adda2c0c83"] }, Open ]], Cell[CellGroupData[{ Cell[131098, 2926, 1411, 36, 24, "Input",ExpressionUUID->"77feec13-1cdc-471d-8d45-49920b8c9c58"], Cell[132512, 2964, 432, 10, 20, "Message",ExpressionUUID->"9d8c8cde-a876-4aa0-bacc-a11e2e5a5a4f"], Cell[132947, 2976, 525, 11, 23, "Message",ExpressionUUID->"abb69614-c7af-4867-9c74-b775865d17c1"], Cell[133475, 2989, 525, 11, 23, "Message",ExpressionUUID->"8c83226f-3d8e-45b4-9867-78ca2b33ed7f"], Cell[134003, 3002, 524, 11, 23, "Message",ExpressionUUID->"a8287486-e0c0-498a-907b-96aa1a9c0033"], Cell[134530, 3015, 463, 10, 20, "Message",ExpressionUUID->"62c1c011-3524-4242-8769-7604f1ad5845"], Cell[CellGroupData[{ Cell[135018, 3029, 202, 4, 18, "Print",ExpressionUUID->"0b87cef7-1e91-4227-9832-eb55dcbfd10d"], Cell[135223, 3035, 203, 4, 18, "Print",ExpressionUUID->"e12dfe7a-2b77-4ef7-836d-8c903e0fbd9a"], Cell[135429, 3041, 201, 4, 18, "Print",ExpressionUUID->"8cf4e08b-8255-429f-97a9-83d09e6afa55"], Cell[135633, 3047, 202, 4, 18, "Print",ExpressionUUID->"5c8c844f-3ad5-495f-bbce-9d837ebebc3d"], Cell[135838, 3053, 201, 4, 18, "Print",ExpressionUUID->"111d2f5b-d90b-4c0d-9312-a5a961c1d149"] }, Open ]], Cell[136054, 3060, 2031, 51, 76, "Output",ExpressionUUID->"95a89ed3-1405-46fd-84e6-4e39c6d0115c"] }, Open ]], Cell[CellGroupData[{ Cell[138122, 3116, 1821, 41, 41, "Input",ExpressionUUID->"30cc4ffc-6785-4b8d-b6fc-639e76f49ad9"], Cell[139946, 3159, 511, 11, 20, "Message",ExpressionUUID->"19f98077-4ff8-4918-9a55-7133637e973a"] }, Open ]], Cell[140472, 3173, 12251, 241, 198, "Input",ExpressionUUID->"673ffefa-75f0-46ac-befd-c785b4bc3ce1"], Cell[CellGroupData[{ Cell[152748, 3418, 1392, 32, 41, "Input",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"], Cell[154143, 3452, 14533, 318, 275, "Output",ExpressionUUID->"dac320a3-b62f-4eeb-bdd8-2ec3673bb6b2"] }, Open ]], Cell[CellGroupData[{ Cell[168713, 3775, 2019, 51, 93, "Input",ExpressionUUID->"2534e368-bebd-4cc1-a20e-9a47aa5e90e3"], Cell[170735, 3828, 15720, 365, 347, "Output",ExpressionUUID->"c05b3224-88e5-4816-869c-4737a893ff59"] }, Open ]], Cell[186470, 4196, 154, 3, 22, "Input",ExpressionUUID->"a1f6b25c-0873-4498-a93d-113565ed896c"], Cell[CellGroupData[{ Cell[186649, 4203, 1713, 42, 71, "Input",ExpressionUUID->"d88de4bc-38ed-48d9-9eb9-13896c8d48af"], Cell[188365, 4247, 10185, 224, 339, "Output",ExpressionUUID->"cb1c4020-ab43-4766-b2c6-457ac2e5298a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[198599, 4477, 159, 3, 41, "Subsection",ExpressionUUID->"36c7685a-f47a-40aa-a737-8c7f6f4317c1"], Cell[198761, 4482, 791, 22, 89, InheritFromParent,ExpressionUUID->"afc540ea-ef9a-493b-9583-ed901e3ac580"], Cell[199555, 4506, 936, 25, 105, InheritFromParent,ExpressionUUID->"cdb9b75d-4c04-4ef5-9969-9e72079c5d58"], Cell[200494, 4533, 1216, 31, 137, InheritFromParent,ExpressionUUID->"e7739266-4bd1-4804-846a-5133bf45bfe6"], Cell[201713, 4566, 1332, 34, 153, InheritFromParent,ExpressionUUID->"e0c29aa2-30dd-4eb9-990b-b4abf8865eeb"], Cell[203048, 4602, 1583, 40, 185, InheritFromParent,ExpressionUUID->"80a3d021-bc5a-410c-8e70-089bc45d33bc"], Cell[204634, 4644, 1730, 43, 201, InheritFromParent,ExpressionUUID->"1d95a4fa-b7b4-4d6f-9695-22a28602846c"], Cell[206367, 4689, 1973, 49, 233, InheritFromParent,ExpressionUUID->"f3f292b7-6741-4c30-b2ac-b80cd82a3eaa"], Cell[208343, 4740, 2101, 52, 137, InheritFromParent,ExpressionUUID->"b6e4cc8e-edfb-44a9-a3e6-a4d9a234eb0c"], Cell[210447, 4794, 2020, 54, 137, InheritFromParent,ExpressionUUID->"a5a4b4cf-3264-415e-9912-fe5941040891"], Cell[CellGroupData[{ Cell[212492, 4852, 1821, 41, 41, "Input",ExpressionUUID->"b9ab51e0-9b64-4dfa-80a9-3047d72051b1"], Cell[214316, 4895, 511, 11, 20, "Message",ExpressionUUID->"edaad5f4-5205-486f-b107-406316036f3a"] }, Open ]] }, Open ]] }, Open ]] } ] *)