From 4eae6a3b275df83426e97997d5dad9e7e05a06f9 Mon Sep 17 00:00:00 2001 From: Jaron Kent-Dobias Date: Wed, 6 Oct 2021 17:13:58 +0200 Subject: Work. --- m8.wl | 10 + new_schofield.nb | 13215 ++++++++++++++++++++--------------------------------- schofield.wl | 60 +- 3 files changed, 4964 insertions(+), 8321 deletions(-) create mode 100644 m8.wl diff --git a/m8.wl b/m8.wl new file mode 100644 index 0000000..8875506 --- /dev/null +++ b/m8.wl @@ -0,0 +1,10 @@ +(* Created with the Wolfram Language : www.wolfram.com *) +{10851.579671794501, {\[Theta]c -> 1.320598743540984, + \[Theta]0 -> 0.19670390350427933, AH -> -2.5259470863324207, + A[1] -> 1.6947480539779154, A[2] -> 0.5761725007964409, + gC[1] -> -0.2794780718284905, gC[2] -> -0.04009433554574842, + A[3] -> -0.1596671465481377, gC[3] -> 0.0043479399923616055, + gC[4] -> 0.006533076700974013, A[4] -> 0.0007744577414188262, + gC[5] -> -0.0019568496974147614, gC[6] -> 0.00022305717672714141, + A[5] -> 0.0024207206316697546, gC[7] -> -0.00002144977801064647, + gC[8] -> 3.9882468182738*^-6, A[6] -> 0.0000421977466132342}} diff --git a/new_schofield.nb b/new_schofield.nb index 47d3407..e80a47b 100644 --- a/new_schofield.nb +++ b/new_schofield.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 367963, 8506] -NotebookOptionsPosition[ 283126, 7118] -NotebookOutlinePosition[ 283524, 7134] -CellTagsIndexPosition[ 283481, 7131] +NotebookDataLength[ 229983, 5139] +NotebookOptionsPosition[ 214867, 4911] +NotebookOutlinePosition[ 215264, 4927] +CellTagsIndexPosition[ 215221, 4924] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -31,8 +31,9 @@ Cell[BoxData[ 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}}, - CellLabel->"In[1]:=",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"], + 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[{ @@ -64,8448 +65,5080 @@ Cell[BoxData[ Cell[CellGroupData[{ -Cell["Matching all", "Section", +Cell["Match ends", "Section", CellChangeTimes->{{3.817119832436002*^9, 3.817119834596055*^9}, { - 3.8322384028059473`*^9, - 3.83223840439787*^9}},ExpressionUUID->"bb531fce-8a9d-4a5f-8d6a-\ -ec66b9fbf698"], - -Cell[, "Input",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"3d566693-1b4e-4bc5-b33b-b8036e1e4822"], - -Cell[, "Output",ExpressionUUID->"86062308-fdba-4d87-8210-7ea083d14ee1"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"3b9512c4-4741-4838-844f-dc1843a98be2"], - -Cell[, "Output",ExpressionUUID->"2720c35a-79b8-423b-a048-5c7e2711f16a"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"34ec14f2-e69a-4233-afa7-8b9340ca265f"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"3c891175-2642-465d-b121-e5989a86c957"], - -Cell[, "Output",ExpressionUUID->"38fb3ec6-64aa-4b63-b20b-7d35d2e4572a"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"a96db868-d41f-433d-88d3-73a2b34157b2"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"9e3392d7-9445-477b-9e57-3faef08acef1"], - -Cell[, "Output",ExpressionUUID->"6c61aadd-c965-4458-a165-ef7680648fc1"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"fb46f7c2-5761-4a64-9a5f-872dd3265e1c"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"3d7346aa-9d8e-46fd-bcb4-ca52fff0d32a"], - -Cell[, "Output",ExpressionUUID->"d3885981-ee95-4189-85fb-672f5e65f744"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"1a9cafff-78bf-40d5-9387-97742820a6dc"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"7bdef841-d628-418c-9bec-b16ca8655e30"], - -Cell[, "Output",ExpressionUUID->"1db50035-262f-41c8-897c-83b291232a25"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"53343c2f-4579-48fe-afdc-6555d61fefc7"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"19f0837b-60bb-491b-b21f-34926c9efae8"], - -Cell[, "Output",ExpressionUUID->"1588dece-8475-4068-8ebd-5f1063867c03"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"3c48ca79-1fa5-4b7f-9423-94e659aae362"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"c0c5581e-24f4-4c1d-bac2-acde9933d21a"], - -Cell[, "Output",ExpressionUUID->"730ed06e-f4a9-43d9-985a-dd73afa5028a"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"89ac8434-0e5c-4a82-ae51-65e191e4c98a"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"a4de7394-b723-4a62-9094-2b462110711f"], - -Cell[, "Output",ExpressionUUID->"e3a248c2-6739-443e-a469-171bafbb4a39"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"ec5df7b8-ae45-47d9-baba-654f2daf3d01"], + 3.832238407013833*^9, + 3.83223840801399*^9}},ExpressionUUID->"5d9c76ab-41db-4d8f-b32b-\ +3ceed5a29b07"], Cell[CellGroupData[{ -Cell[, "Input",ExpressionUUID->"c28fec6d-42be-4754-8ff5-9f7327a42e34"], - -Cell[, "Output",ExpressionUUID->"2f826db1-6725-439c-8bf9-7196d08ae46b"] -}, Open ]], +Cell["Generate fits", "Subsection", + CellChangeTimes->{{3.8425175668051233`*^9, + 3.842517582508664*^9}},ExpressionUUID->"04b3434a-7ae1-4e59-9492-\ +797bc05d141c"], -Cell[, "Input",ExpressionUUID->"454bbf34-d098-476d-8e27-8e882ae07c56"], +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[, "Input",ExpressionUUID->"fdda266d-54c1-43db-b6a7-a3d02502cd24"], - -Cell[, "Message",ExpressionUUID->"b4090613-0332-49f1-a196-74002379eeeb"], +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[, "Output",ExpressionUUID->"1249aaa6-7d54-428c-8361-a89fa22f87ac"] +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[, "Input",ExpressionUUID->"7669b7fe-6525-47ea-bd17-bc39d72d2039"], - Cell[CellGroupData[{ -Cell[, "Input",ExpressionUUID->"0d0e5cda-a6fc-4708-80da-b887f6838668"], +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[, "Output",ExpressionUUID->"1661a955-9e84-44df-abe5-8a178d2f912d"] +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[, "Input",ExpressionUUID->"9112def6-5ff6-4224-8356-f50fa415d2f3"], - -Cell[, "Message",ExpressionUUID->"311d3fb6-3107-4bba-ae21-2a9d8e2be9ff"], - -Cell[, "Message",ExpressionUUID->"382c6f48-8be5-4040-8352-c107dd4acfcb"], - -Cell[, "Message",ExpressionUUID->"db776803-ed60-4310-a108-852c80375404"], - -Cell[, "Message",ExpressionUUID->"c054e628-2d2f-4c9d-b97f-3211d4a28e43"], - -Cell[, "Message",ExpressionUUID->"be1896cd-ee42-475f-8df0-db9105e2a00f"], - -Cell[, "Message",ExpressionUUID->"1c3e5739-b049-43f2-a094-b9e364dedc14"], - -Cell[, "Message",ExpressionUUID->"8781108e-dab4-4d69-bb59-846e2cf30536"], - -Cell[, "Message",ExpressionUUID->"b4b28af2-b0fd-4fee-8ea1-a1b8599ad243"] -}, 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[, "Input",ExpressionUUID->"0b79b970-7045-4be7-b49f-562e6773070c"], - -Cell[, "Output",ExpressionUUID->"a1b2e831-9c0c-4c48-9c35-6781403e92e0"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"71c1d9b7-0cf0-408f-a132-11f858bc49f0"], - -Cell[, "Output",ExpressionUUID->"5e583bca-872b-4fe1-bd8e-e1bcce981a2c"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"7b03bcdf-5941-4689-8045-07928a4af682"], - -Cell[, "Output",ExpressionUUID->"d7ee8225-65ff-4705-be5c-8b8dbe6fa41b"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"fa8135b4-fdf8-4590-be4e-73b4dd086cab"], - -Cell[, "Output",ExpressionUUID->"04ca030c-e442-4c61-8c4a-d152e5c203ae"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"29cea7b5-4fca-4cb4-8837-f04711b34c21"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"53b7755a-6f34-4db5-8104-878ea3587d8e"], - -Cell[, "Output",ExpressionUUID->"616ea1b5-1320-415b-a819-c2f94d93d7ea"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"76c95b5f-6514-4856-b4c5-cd646cd37488"], - -Cell[, "Output",ExpressionUUID->"74073881-f4b4-4f07-8f9a-cd7d59bc3693"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"02a5f468-5569-4ef4-9ad7-428f9cf2d754"], - -Cell[, "Output",ExpressionUUID->"724a73d3-c790-4baa-985a-a709e0354abe"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"7273c588-8e35-4fbd-8ebc-898cedb2387b"], - -Cell[, "Output",ExpressionUUID->"6bcb7016-9e42-477f-b8aa-2bf28ae5ec18"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"4696ee08-41ed-480a-83d4-b7dcd649182e"], - -Cell[, "Output",ExpressionUUID->"581be5fa-833d-44bd-98d5-dde94e4dd98c"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"73fa0a9d-2aa5-49d6-b995-2f0dc2997c86"], - -Cell[, "Output",ExpressionUUID->"596e78c8-422c-425b-b6d3-1d4f2a3368df"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d049de83-a67f-4f70-9161-28ea593a16b8"], - -Cell[, "Output",ExpressionUUID->"97929a1a-4107-4c3b-91b5-b4aea31a6a12"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"ff8b8a76-8ef5-4079-b3c2-caca5f90a239"], - -Cell[, "Output",ExpressionUUID->"ceca4cf7-358a-4475-9d74-be5382099c4a"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"84fba399-0d44-478f-82db-cf6e8f6da218"], - -Cell[, "Output",ExpressionUUID->"fc27ce97-44b5-4fd9-9fc6-8e3a80767ebc"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"5e586711-0483-46d1-bccb-b6897d71c1e8"], - -Cell[, "Output",ExpressionUUID->"2fa1caa4-ef1f-4ffd-8afc-94b16ed218ad"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"0bf0ad7a-0c38-45b3-944f-2cd642717885"], - -Cell[, "Output",ExpressionUUID->"cb46a863-90ee-473f-82db-5dc2a45b693e"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"f15d8a52-1992-4696-8ead-3c4153434e55"], - -Cell[, "Output",ExpressionUUID->"7c16b4f6-053a-49c7-adfb-2ff4cd3d1825"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"f9fe281b-b610-448a-b868-789cd1438874"], - -Cell[, "Output",ExpressionUUID->"cd6820b3-ec18-4309-a325-d9260e362bf3"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"379795e2-1f10-4c9d-aca9-574975c0b53e"], - -Cell[, "Output",ExpressionUUID->"e32fce1f-84cc-4e58-9ec5-270c393270f4"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"614f63fe-75a0-4c56-b782-48ad98bc3c89"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"b56cc8a2-a504-4115-9171-a6a6d7088e3d"], - -Cell[, "Output",ExpressionUUID->"56bd1e88-9615-4515-9caf-f2b140d00ea4"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"8507c1e3-d3a8-4bd7-b4aa-90d91d45805d"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"de38480a-2d94-4587-b72d-6e029e15ee96"], - -Cell[, "Output",ExpressionUUID->"43225297-d195-4377-8f95-86dbf3b45b01"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"2ec9732b-3292-49d0-bac5-10ca2b2e2d27"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"139619cc-039b-4609-af7c-bff6ef22fb47"], - -Cell[, "Output",ExpressionUUID->"afa14344-bd55-431e-aa6c-c70efe6c5a4d"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"0187bca3-1d0a-4623-aec5-953f437b51fd"], - -Cell[, "Output",ExpressionUUID->"598fc733-e306-4afa-b2be-5b73d49e16c2"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"73d2b785-99f4-4bfb-b83d-3176ccfa253d"], - -Cell[, "Output",ExpressionUUID->"d9b0e840-276e-4933-8ac7-3b44810cdfd7"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"a3876a42-f9a7-42bf-bb98-8f496b0b9429"], - -Cell[, "Output",ExpressionUUID->"25c6c990-0648-4b53-88ec-85fbf153b84d"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"a8eefdf0-e27a-49c2-a914-30fe2e3be695"], - -Cell[, "Output",ExpressionUUID->"74dd1d49-7e7f-4e72-b8c9-ce6b451108d3"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"87e7aafd-8c36-4839-935c-cc46bf1f01dd"], - -Cell[, "Output",ExpressionUUID->"fe7c92bd-96d2-4bd2-8311-6587e6a29f3e"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"148e9d0d-8b87-4af5-afd5-d33dbd331cbd"], - -Cell[, "Output",ExpressionUUID->"2cb15991-5446-4550-9d2b-990382cc6e0b"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"8daebff1-3cc2-4bf5-8cc4-604c65c548b0"], - -Cell[, "Output",ExpressionUUID->"9cd4be6d-9037-487d-805c-0e30c732a88f"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"ec87e975-8e91-4764-a5f8-d113176427a6"], - -Cell[, "Output",ExpressionUUID->"682ebcdb-8d48-4545-9fb6-2815a9591a34"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"bd4bec0c-34d4-42ea-8210-676c5a4f3b02"], - -Cell[, "Output",ExpressionUUID->"6744c9f9-54df-4620-86fe-20c2a1fb0a38"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"cb5903e7-4ebd-478a-913d-f8dce03353cd"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"7f91ac8c-3dfe-4e6e-876b-c110d899b203"], - -Cell[, "Output",ExpressionUUID->"66d898e0-c199-4cd1-8c92-f951620499ab"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d7af33b7-ba2b-49a3-aafc-91ee8eb488da"], - -Cell[, "Output",ExpressionUUID->"76e092cb-b3ca-4ad3-8371-d22bc3bdbfec"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"ba65a569-6e06-47f2-aa64-ce40ed720e16"], - -Cell[, "Output",ExpressionUUID->"49a28651-b01d-4119-8b17-5cececd6f4d8"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"f53418ef-e0c9-44a5-92b0-cb484b4f96c8"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"a30a4640-3744-4c0b-9800-1073a0fa0d50"], - -Cell[, "Output",ExpressionUUID->"a91af46f-115e-4b5b-a963-4e64b27789f9"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"6c557c5e-e6b4-4351-9c51-9653ebaa3755"], - -Cell[, "Output",ExpressionUUID->"d46b93fb-0f62-45fa-a6de-37bde5cbd060"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"b157e171-c7d5-47f2-b745-8f2e8fa0198c"], - -Cell[, "Output",ExpressionUUID->"5a0db3ec-ac1c-432f-adee-e6747b4db94f"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"bdb84812-f388-49c2-8ac6-3080c735f5e5"], - -Cell[, "Output",ExpressionUUID->"b941a263-57d9-4309-b289-83857d3df95f"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"7fec8d25-6d0b-475e-a3c6-8b90b79f873e"], - -Cell[, "Output",ExpressionUUID->"48c117a8-371e-45ba-aa5f-facdd5f694ec"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"feb6f5a0-8271-4175-8fd5-743c24ab49d2"], - -Cell[, "Output",ExpressionUUID->"b00b9646-7ea6-4e6c-895b-add09ba6b344"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"5553a701-d8ac-42d8-bf96-f61247fd91d5"], - -Cell[, "Output",ExpressionUUID->"ff2eefd5-74bd-4633-a9f6-bb1945c40989"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"4dc1af41-4bef-447e-a233-c8c033887359"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"e74b775a-c745-4f15-9b63-7bb00af5a487"], - -Cell[, "Message",ExpressionUUID->"05b00b91-b292-4f86-8ac1-2cad1d50f51c"], - -Cell[, "Output",ExpressionUUID->"54c0d651-a676-4819-8283-9d2b33e602fc"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"fb42dfa6-f948-472b-87e8-e4cb6e90ba26"], - -Cell[, "Output",ExpressionUUID->"21f29296-03a7-4cc8-b760-b71dfa22b325"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"a60f4b40-cbec-4d33-97f5-65de16370f80"], - -Cell[, "Output",ExpressionUUID->"820bd75e-ec9c-4db8-b5e7-96cfd532640b"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"49d01b4e-c864-4298-94b7-ace002b965d8"], - -Cell[, "Output",ExpressionUUID->"3156e626-6fd1-4878-b776-44c6cf7fef12"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"4cefebbf-3ee0-49eb-85d3-1f8acdd03d03"], - -Cell[, "Output",ExpressionUUID->"5fad1eab-bed9-4cd3-a21b-8c8758b922eb"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"82d96d28-401c-43fa-8337-b55bfd500552"], - -Cell[, "Output",ExpressionUUID->"1ab9ef64-9a55-4344-9cb3-5443ea2b020c"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"b2167779-1e8f-4690-a7d9-fe7d464a4815"], - -Cell[, "Output",ExpressionUUID->"ead509b6-b153-4829-be33-8ff5a6efcada"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"172fdee0-af8e-4049-9dda-cfec26fad09c"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"0ea1b44d-26c0-49ba-8c54-6d51b749dcee"], - -Cell[, "Message",ExpressionUUID->"1820350f-3096-4479-969b-2dda88e43862"], - -Cell[, "Output",ExpressionUUID->"58f08fd4-743e-4318-9e82-7ecda92ce1db"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"324ac29a-a49d-4e6b-a8d8-b259afcd34c7"], - -Cell[, "Output",ExpressionUUID->"464153b0-04b0-46cf-82d1-649dc2c2d6a0"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"288a2ff7-5161-4fe5-8f43-122ba3a5d3f2"], - -Cell[, "Output",ExpressionUUID->"d5da57e7-0428-4391-af81-4f874cd963e4"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d85908e0-a479-4a49-999f-e6e49522af2d"], - -Cell[, "Output",ExpressionUUID->"2f30870a-4c21-432a-b77d-85d6f131265e"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"4fbf2b0a-5252-416a-b90a-a12f6d946efe"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"5ac27342-feda-4aa6-9098-1d0e7b78fae8"], - -Cell[, "Output",ExpressionUUID->"b47243ad-5432-4eb5-bbf7-870353157603"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"63fcec7c-aaff-46be-90dc-231bca0993d9"], - -Cell[, "Output",ExpressionUUID->"547073ca-2de1-44b5-8139-682a4eb761c9"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"8f2cfc94-a67c-484e-bbeb-610484e18a97"], - -Cell[, "Output",ExpressionUUID->"453285de-e47a-4bcc-96d7-ec76dfc88820"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"59993536-91f3-449a-9e8c-58cd1f6ec74c"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"ab599d2d-27ef-4491-b1cb-534f98403e59"], - -Cell[, "Message",ExpressionUUID->"f4cd9634-0e29-4718-97b8-490c5f242f4a"], - -Cell[, "Output",ExpressionUUID->"80e0c922-0db4-48ee-96b6-33400b7fa9d7"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"f9bd15f0-d859-4863-9fe9-3ad2883e76d2"], - -Cell[, "Output",ExpressionUUID->"27a9c152-8a0d-4899-aa74-6a603c9665b9"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"1282028e-7a8e-46e3-bc91-b35b1d1604ed"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"83c6d43c-fed0-4989-a06f-986a75bf7651"], - -Cell[, "Message",ExpressionUUID->"cf50225b-a0ef-4626-94a0-0803782ba72f"], - -Cell[, "Output",ExpressionUUID->"e4dd84aa-35ca-4c06-b076-812cdad95551"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"9903c113-3088-4e43-884e-783e3462a3bd"], - -Cell[, "Output",ExpressionUUID->"ace4a267-d48c-4a17-8b21-0b8791f1d4a8"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"85ae5ebd-4d7b-469b-b177-bd88ef9a9e54"], - -Cell[, "Output",ExpressionUUID->"392555db-33d5-4e50-8a31-e2a3a67d3a75"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"d0ac4c0e-3fde-4f39-860c-119c61865e94"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"31b6196c-dff7-4ae3-ba24-930461af4520"], - -Cell[, "Message",ExpressionUUID->"7df3f521-17b3-470c-a210-7a61feecd5cb"], - -Cell[, "Output",ExpressionUUID->"ea8fe62a-dd49-4054-b383-0738f0b8f82f"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"c89d4fc8-2254-4238-b27d-107fefc31da5"], - -Cell[, "Output",ExpressionUUID->"d1455115-bd06-4d75-a8b5-99c39d1e90d7"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d7824482-d74e-4fac-8224-3728d7d92b24"], - -Cell[, "Output",ExpressionUUID->"ad65c8a7-66e9-4c1e-b599-35bacb78e113"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"93164c6e-f8e2-4fb1-ab0b-a65d379b88ef"], - -Cell[, "Output",ExpressionUUID->"db3875cf-f19f-4e24-a7e4-c4017292b8fe"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"40b90456-e65f-4936-94f0-aa9e157985d1"], - -Cell[, "Output",ExpressionUUID->"e84b103a-4734-481c-bc68-32680f2490ae"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"802f97e2-70b5-4c0e-b977-f8a2e505bb60"], - -Cell[, "Output",ExpressionUUID->"13540836-8492-44db-8f61-825c10092a3b"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"9510d7f0-79c6-409e-9c06-caac79aa83b9"], - -Cell[, "Message",ExpressionUUID->"b9cd98f1-c229-4f5b-95ec-13d954ebd59a"], - -Cell[, "Message",ExpressionUUID->"ea96e00a-9fe6-4d33-80b4-d0a9eed78731"], - -Cell[, "Message",ExpressionUUID->"a31115cb-de8f-481d-994b-5bc9a83710b8"], - -Cell[, "Message",ExpressionUUID->"667a685e-0e76-4db4-8986-9eaad489f3e3"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"4c6fe8ab-4f6a-4b57-92a5-c94e403d041d"], - -Cell[, "Output",ExpressionUUID->"11addea4-5f17-44f9-80f6-b7d15dd56efa"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"bc84d748-2ae9-4f3e-87ec-0fa12dfd6954"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"c099f9b5-a706-4293-9c42-f007146a13f7"], - -Cell[, "Message",ExpressionUUID->"94a73904-550c-43cf-8d0b-35b5cbc01228"], - -Cell[, "Message",ExpressionUUID->"3f893d05-e641-4bf4-9ea5-bcabdc4d6a95"], - -Cell[, "Message",ExpressionUUID->"53b27a41-4cd2-4652-a104-35161ad96bf2"], - -Cell[, "Message",ExpressionUUID->"413977e9-0c84-449f-b053-9df53b50e738"], - -Cell[, "Message",ExpressionUUID->"d499cd59-07fb-492e-b9f7-1ddddfebb272"], - -Cell[, "Message",ExpressionUUID->"395175e1-6469-49cf-a376-9be005af7add"], - -Cell[, "Message",ExpressionUUID->"8f65301b-fe48-42b3-9924-e0e8e3bea608"], - -Cell[, "Message",ExpressionUUID->"6d1c81df-b866-4446-8abe-657a6a8d929f"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"a66d45ff-8000-4c96-bcb2-2bc7343fd5de"], - -Cell[, "Output",ExpressionUUID->"5364b922-5bbc-4121-ab23-dc5bb4bec4cb"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"8e0288f2-5922-4dde-923e-8106073adf6c"], - -Cell[, "Output",ExpressionUUID->"c6c9c8e8-7cb0-4ad0-a6c6-fb0a70db55da"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"4355674b-0fd6-4516-8896-cd33a8476ab5"], - -Cell[, "Output",ExpressionUUID->"b8a18520-7b45-49b0-af16-64f6d0a9c819"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"ee6beea5-4d88-4650-837d-58c8d3c6363b"], - -Cell[, "Output",ExpressionUUID->"a27bcc82-f8f9-42d8-854c-a204a73d483f"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"5894652c-ea9c-458f-866d-b40d1a5efb75"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"3fee7ec2-e0c4-4420-8192-c46efe85e265"], - -Cell[, "Output",ExpressionUUID->"2bfc8e2b-006d-4096-8c4b-8422da967dcb"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"16683f20-3a25-47da-8c9c-58bfb1a56ae7"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"0c28b27c-3e81-49ce-9293-512f19f95aeb"], - -Cell[, "Output",ExpressionUUID->"a225487e-1b09-4625-b1b4-0393225de258"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"78606265-f50f-49dc-888d-33550f059b83"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"396a3ca5-637b-4194-943d-7ec379bcf47e"], - -Cell[, "Output",ExpressionUUID->"032de8e5-e62b-4c2c-a2db-afe60e4c0f47"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"050da7fc-1308-4d49-81b4-1f4efc54c09a"], - -Cell[, "Output",ExpressionUUID->"5c8a355d-e522-4c74-8a53-b7d46e9c333f"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"37ec5e26-c9a1-4c3e-b046-f5bdcb69b8db"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"aafc8bea-bd59-4ab7-b436-168abec75b4d"], - -Cell[, "Output",ExpressionUUID->"823a15e6-d4d4-45cf-b711-54e7c88841d0"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d90b515e-65bf-42c5-a9d8-7ebc27861a0a"], - -Cell[, "Output",ExpressionUUID->"674ddf51-ef87-4ea3-981c-9bca8b07e0de"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"74c29eca-8a3c-482d-b962-b5a7bc6eeeb5"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"4f2555c0-0b0b-46e3-953c-b99c2d8ef953"], - -Cell[, "Output",ExpressionUUID->"7ba637ff-c37f-4ab3-8f3f-c3a013477573"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"11bfaed8-b616-4bdb-acee-d6f652a0a4e6"], - -Cell[, "Output",ExpressionUUID->"9d9174e8-24e3-40da-860e-87b1062d7e14"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"da646d41-2935-4f0b-94a9-796be9875f10"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"bd584363-7bad-4830-803a-025a2ac0e9a6"], - -Cell[, "Output",ExpressionUUID->"83698929-f178-4c4d-9569-7a23e1e9c919"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"f7b18b38-4aa7-4d26-8653-c5282fb8bc07"], - -Cell[, "Output",ExpressionUUID->"aeb5446a-db30-4b37-a075-fd0875fea03f"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"6dd58649-2ccd-4fad-b61e-e6b84d8dc37c"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"47d19cd0-5c7e-4d2e-8522-f7af9f76b03d"], - -Cell[, "Output",ExpressionUUID->"e4c2258c-d675-43b1-8eb8-1a175227c843"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"e5291fe9-0a5c-4396-ac44-47a5f71d5568"], - -Cell[, "Output",ExpressionUUID->"f761d7d5-04c8-40b2-a937-6fac9575aeda"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"034d75ed-4e94-4dfa-b0b5-fb25cd2d30d3"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"939e0991-1a33-48bb-8325-c6afb708b1bf"], - -Cell[, "Output",ExpressionUUID->"07c46e6f-b409-4e46-91c4-1f8deedd3b7c"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"41fa3464-11f7-47db-b9f4-c04a234b3967"], - -Cell[, "Output",ExpressionUUID->"e6ece27a-240d-4388-ae6d-863762fb16fc"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"5f4959b4-0631-460c-894f-e078cc08f6c0"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"42dd11c3-40d8-4229-9f2b-ea33c98a4a3d"], - -Cell[, "Output",ExpressionUUID->"d656f635-4cba-4947-8345-8861516ad400"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"3b92c534-fe03-4b93-bce9-3935e73cd50a"], - -Cell[, "Output",ExpressionUUID->"047cfbb9-7bc7-4793-b25b-33d1e4b54f0f"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"a88f2391-1bc9-4d7a-b773-d4641b529a92"], - -Cell[, "Output",ExpressionUUID->"900bc96d-749d-4402-b6fc-1bde2c834df4"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"c2d3e68e-6754-4848-ad45-4d3a81a85373"], - -Cell[, "Message",ExpressionUUID->"7042c19d-9eb1-4c6c-b9ba-e11ecd2dad61"], - -Cell[, "Message",ExpressionUUID->"e96fc95a-7476-4cfa-9b6e-023e5f08ec84"], - -Cell[, "Message",ExpressionUUID->"697e339d-fa4d-4453-8541-d603f6be5ebf"], - -Cell[, "Message",ExpressionUUID->"a383bd1a-c1d9-49e6-a3ce-876ea12c3de9"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"7baff68f-40db-4778-a165-a239cf88cc8b"], - -Cell[, "Input",ExpressionUUID->"54ea4ab2-b182-41d0-bc24-6dda493e24b7"], - -Cell[, "Input",ExpressionUUID->"b233f772-ebe4-4d6e-82dc-3e50dc9f4a60"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"326e1381-0fb5-48b8-8b67-86eb59a8de43"], - -Cell[, "Output",ExpressionUUID->"ffcf6638-e41b-4dc3-a888-cbc1ddb5bd70"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"a93f2c6c-20d9-4e76-bf4e-d83eb645bfe2"], - -Cell[, "Output",ExpressionUUID->"e009ecd9-f064-498f-9713-a517c7738512"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"355b7a05-dc53-48b3-a074-381cbbaeac81"], - -Cell[, "Output",ExpressionUUID->"c021a3f3-a988-4ee0-849b-500241e51534"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"a727ff31-abf9-4fbc-b1ba-5e10e05cc6ba"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"e698d719-72a9-4ac8-adc0-f3dc6de33b29"], - -Cell[, "Message",ExpressionUUID->"66d8969a-eb54-4408-9ca1-e26797128b2e"], - -Cell[, "Output",ExpressionUUID->"c2ede9a0-b94f-4b1e-a656-779f19255c39"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"cf4b5c4b-339f-4dee-887e-9827e8e84f6a"], - -Cell[, "Output",ExpressionUUID->"59a5f5ab-6f64-4857-9cc3-85e34ce96d47"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"284ac71a-7465-46b2-a883-7d04bfed7c1a"], - -Cell[, "Output",ExpressionUUID->"8b218d9d-8ae6-4b3f-a0aa-21817c81ea81"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"7b4489a6-2b9b-4fa0-b010-a2b21dfcde45"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"3bcb2734-3eb2-49b0-9f9e-04e4c7a4fa3a"], - -Cell[, "Output",ExpressionUUID->"babae66a-342f-4778-9bda-49d5d95c0e25"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"0e6a979b-40f1-49c5-87f2-c038673fb15e"], - -Cell[, "Output",ExpressionUUID->"067ae380-8bbe-4d24-910a-2d72ea259077"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"a0ce8c43-76ba-466b-b075-393a38369f3e"], - -Cell[, "Output",ExpressionUUID->"efcd0ede-5fe0-410c-85a7-f2cb4a37d0c4"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"64ac9234-6e5e-4a0a-889d-9a4d2d9e49eb"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d5ce1c93-2d50-4d5c-a1f8-53932ea334e0"], - -Cell[, "Output",ExpressionUUID->"55d1b86b-6c0e-4346-b514-6a32ca6f4162"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"4639fe6e-d305-44c1-81c3-afb4e380c88d"], - -Cell[, "Output",ExpressionUUID->"ee73d4b7-147b-4902-9021-472fa1cbd2dd"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"487c1f18-3c65-4275-b382-bd34678bb77b"], - -Cell[, "Output",ExpressionUUID->"98313969-c467-4d0e-84c2-9301e7354fd8"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"f984095d-d7b8-42c0-84b6-f249f7191889"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"eb772438-6d55-4597-94c4-e8e4c8a28dea"], - -Cell[, "Message",ExpressionUUID->"15e11a28-3910-4175-baec-32f60966f167"], - -Cell[, "Output",ExpressionUUID->"dc1d0e6d-dbfc-4101-8f2b-a45c3ce40dc1"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"6f764f4a-8e60-4ade-81f6-342ce8502e9b"], - -Cell[, "Output",ExpressionUUID->"073b197f-bc4b-40a2-a232-0cc8f06d961e"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"afe99e33-748e-47f2-ba2a-c0c57008e3ff"], - -Cell[, "Output",ExpressionUUID->"76d79e7a-9d2d-45b3-bb8a-8f918994420a"] -}, Open ]] -}, Closed]], - -Cell[CellGroupData[{ - -Cell[TextData[{ - "Matching all ", - Cell[BoxData[ - FormBox[ - SubscriptBox["\[Theta]", "c"], TraditionalForm]],ExpressionUUID-> - "d4b75e15-2a16-49fd-8988-e16c3980fb40"], - " fixed" -}], "Section", - CellChangeTimes->{{3.817119832436002*^9, 3.817119834596055*^9}, { - 3.8322384028059473`*^9, 3.83223840439787*^9}, {3.837600386175497*^9, - 3.837600393087669*^9}},ExpressionUUID->"c1a07f43-bf98-4ded-8fe2-\ -acd38d81a62a"], - -Cell[, "Input",ExpressionUUID->"9814740b-6ceb-49dd-a8e7-470aa128f596"], - -Cell[, "Input",ExpressionUUID->"e5da5cdc-dea4-468f-9f80-7bcb8f7055ed"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"61971941-a9ac-455d-84ae-8db30be2e665"], - -Cell[, "Output",ExpressionUUID->"d79a197b-d3c2-420f-8a75-43a5a1f3eb88"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"7251e138-0073-4aed-93ec-409e542ba595"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"83870e45-e831-43bd-830f-3bbd0bc4cf26"], - -Cell[, "Output",ExpressionUUID->"608e5f38-8dc5-4659-9821-1c08ee7937a3"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"2b68538e-eb4e-4fc5-8598-9d7f4cf47a71"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"f2eb7ff1-b83a-4711-baeb-03d638af762f"], - -Cell[, "Output",ExpressionUUID->"8d8581e1-e769-405e-8440-00d9ea8a80b7"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"ff1cfdef-3775-4671-b5a8-7f84d899bb44"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"4ac9a3d8-7344-4b36-86cc-927251f84ae6"], - -Cell[, "Output",ExpressionUUID->"4020c1a4-5f22-47ef-9d1f-adef13840e75"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"be587998-8957-48f9-8d89-e1f575b484d9"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"30f0ed04-9858-4017-8217-985c3efc1c9b"], - -Cell[, "Output",ExpressionUUID->"c81e0168-c726-4188-a9c4-724e6bccc499"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"689e18ed-1ec8-498a-ad1b-507e0dd03bae"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d483d5c3-c5f0-4bc3-b35a-ee3705301f57"], - -Cell[, "Output",ExpressionUUID->"972e9daa-b8c0-48ea-94a6-5c1206f9ded8"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"4908c8f4-c01f-434c-9530-5ff19546ec45"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"c63ac5aa-bc1a-4703-8f86-c784cca22af9"], - -Cell[, "Output",ExpressionUUID->"8cee96ed-e342-42b4-9a7c-986d1e772ed3"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"6dc40e0e-abcd-407f-bbc6-3e7148e2aec4"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"616ce136-6737-40e5-8029-31272add86f8"], - -Cell[, "Output",ExpressionUUID->"9d4cc682-8c95-449b-9ae1-a07d60f17b16"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"0359663b-ea4b-4f2b-b953-154950f875db"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"ec848311-8958-4766-9a5d-9be5abcc44cb"], - -Cell[, "Output",ExpressionUUID->"51334039-280f-48e2-b328-4297f777c9de"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"49fccc0f-c05a-483f-ad54-254b7500e1ec"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"3400ca05-e157-461b-96a6-83634df1cc38"], - -Cell[, "Message",ExpressionUUID->"4717bc47-0f9e-459c-a089-7072d9d8546f"], - -Cell[, "Output",ExpressionUUID->"9e06fa9c-619d-48be-8bd4-a62423b68459"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"7336ac6b-83d1-49ff-a184-4670f1967f5f"], - -Cell[, "Output",ExpressionUUID->"a267ea60-447c-4dcc-ab03-202e34d3e02b"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"15ada2d4-3591-4b28-a4a0-0c24a32c8424"], - -Cell[, "Output",ExpressionUUID->"769cfb1a-0cd6-4aa9-816e-ac5e5367d434"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"49c36534-7e17-40fd-b17b-6c24396cf79b"], - -Cell[, "Output",ExpressionUUID->"3eb32547-a996-48e0-bbf9-9f8a2877f2f6"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"1b662f6f-7fb0-44b3-98b2-fcd0cb6cab57"], - -Cell[, "Output",ExpressionUUID->"1581c58d-9a8e-473e-b952-16b423bd8281"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"11f063b7-0e7a-4b08-8d80-05ffaf815f0e"], - -Cell[, "Output",ExpressionUUID->"59d2c040-d7ec-47c4-8ccb-8dc4f6bdfd9c"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"73f3d0d8-55bd-4b87-9313-593ad5301d2f"], - -Cell[, "Output",ExpressionUUID->"88cd5860-1a82-4fe9-9019-187e9a6284bc"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"a5dcf275-1d4e-4c96-a79c-53a3afcdb89b"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d831d23a-4316-405f-82be-49802e861f83"], - -Cell[, "Output",ExpressionUUID->"80e78af9-9b53-4cc1-b28d-62d39e95442d"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"b077fbbc-1b67-46ce-928c-cb9cb93feb84"], - -Cell[, "Output",ExpressionUUID->"fe7374a3-2e61-4f7f-bfa8-7f2610ce7280"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"7ad3e447-b82f-4f7c-bc15-cc792a2f0f08"], - -Cell[, "Output",ExpressionUUID->"18e6e545-3d72-4cad-bb2d-62756bb962d5"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"e5a7c569-4ce5-4d3c-98f3-9160229fa5f0"], - -Cell[, "Output",ExpressionUUID->"f01cccdd-cd51-4883-b237-195d686deb4a"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"667660ba-66f5-4b76-8eaf-75601abced2b"], - -Cell[, "Output",ExpressionUUID->"2988841f-72ad-4f38-8e0d-50ce0c5e4c4a"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"a8889652-7842-41cf-8091-72987781207f"], - -Cell[, "Output",ExpressionUUID->"c9889d41-efaa-48df-8497-e0395247ab18"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"f492346f-039d-454e-b401-4478d7324c1e"], - -Cell[, "Output",ExpressionUUID->"8116d71c-2d49-4040-aba8-7a291ab11d2b"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"8a8852a1-d6eb-4f81-aae0-a33a01326f50"], - -Cell[, "Output",ExpressionUUID->"d72a90fc-a009-4c0c-949a-963bb5b65ef4"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"f758c571-4941-4819-b8ff-bda876db06de"], - -Cell[, "Output",ExpressionUUID->"5a0a399e-f5ce-43d7-878e-195ab44a54cc"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"b3d86629-c3a8-4e5c-8968-6735fe772663"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"a06dd50c-b2a6-48cd-a550-24e88107ce4e"], - -Cell[, "Message",ExpressionUUID->"231f26c8-d164-4ed2-9d95-3ae6b9e7db4a"], - -Cell[, "Message",ExpressionUUID->"9234dcc5-0207-4b2e-8051-0501c80d8d9f"], - -Cell[, "Message",ExpressionUUID->"d1fb6878-82d5-4bae-8198-ca5be20a90a5"], - -Cell[, "Message",ExpressionUUID->"14e79556-c616-4367-a2e8-6eb65243108f"], - -Cell[, "Output",ExpressionUUID->"79b3a56a-fb4e-43df-a5e7-cc282c5e91e5"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"16011121-ccb9-4633-8c80-193152571641"], - -Cell[, "Input",ExpressionUUID->"dd17419e-1a61-45a6-bc6e-4fc73cef39c7"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"26c43faf-69ad-4747-a4c2-02faedeae0ba"], - -Cell[, "Message",ExpressionUUID->"f4aabacf-847b-4f9a-989e-275f0207bfac"], - -Cell[, "Output",ExpressionUUID->"54f52e14-1cc2-4199-81ae-b38e003ee6a7"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"0e67ed2d-901e-4ad6-bc18-0187d868db2a"], - -Cell[, "Output",ExpressionUUID->"bb3e229d-42a2-4f31-ba52-03d502114257"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"f953e6b7-d6db-4adc-ae62-1eaf92d1b68b"], - -Cell[, "Output",ExpressionUUID->"52df7986-73ef-4731-a037-32f90ae8c2ca"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"49320ca4-5c8c-4b1e-98f4-0fce9d6f767d"], - -Cell[, "Output",ExpressionUUID->"a5bcadc6-2050-4678-82db-1cc984ce4cf8"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"23c90a2a-3181-4507-b03d-1c6a524d318f"], - -Cell[, "Output",ExpressionUUID->"804ea812-1e08-451e-b89b-85e21b7a900b"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"411d79ae-3a60-45b7-ad34-0402223bc804"], - -Cell[, "Output",ExpressionUUID->"d0487fb6-cc6f-4a82-b7e9-c88e89124f26"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"f3f929dc-63b9-41e4-a7fa-bfc6233c0667"], - -Cell[, "Output",ExpressionUUID->"849e1d2a-9c50-44de-89d5-857702cb5fd5"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"a0caebd2-23a7-4511-9498-0c1a2e9cfe53"], - -Cell[, "Output",ExpressionUUID->"7be21de8-007c-4120-a339-1f3ac51c3e60"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"6fcf53ff-126b-4b26-a83b-148e00bf6b1b"], - -Cell[, "Output",ExpressionUUID->"c786cfbb-e4b0-428c-b40c-df3c0c0def56"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"9f042e79-5a77-40a7-a4d2-a6d243e6aed3"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"9dd5f638-04be-4ab9-8e9e-a36242ce03fc"], - -Cell[, "Output",ExpressionUUID->"9e62f072-c037-4c2b-a694-0a0eb1b1e9ea"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"b83dae54-967b-45b1-81ce-458e168a8389"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"9835d85f-5114-4265-bc49-5f2e4c050b32"], - -Cell[, "Output",ExpressionUUID->"ebe14f51-7209-4e07-91c9-c24982da80ea"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"047dad42-d9f8-4bb8-a64f-7e04a9585915"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"890d932c-2ab7-4f89-a1ee-76f76a9c3c67"], - -Cell[, "Output",ExpressionUUID->"e07ab9be-41a7-41c9-ae59-4c3f17b35525"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"2af0cd55-f1de-4186-b4d2-7e0ee2fcbb90"], - -Cell[, "Output",ExpressionUUID->"22f7b89c-ce93-4b4d-9c59-f15ec7f6da73"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"6029f4f2-49f1-4154-aecc-06d866e07507"], - -Cell[, "Output",ExpressionUUID->"15242adf-c742-46be-bda8-6054e9f087b3"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"a4dbeef0-fcd6-4246-a096-026cd5c8fe7d"], - -Cell[, "Output",ExpressionUUID->"e5f37624-2f5e-4013-ae6b-6268f8ff6713"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"115752ea-f3aa-4038-a6aa-91c3f57bfac5"], - -Cell[, "Output",ExpressionUUID->"ffa200df-716b-49a6-86be-94fa59dec869"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"8fffab93-64df-4b6d-9647-f5f8bb98486e"], - -Cell[, "Output",ExpressionUUID->"20eb8865-5dd8-4dcd-ab85-d54dfd719358"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"7c14b679-0a0b-4d2d-86fd-db7da5a08f8d"], - -Cell[, "Output",ExpressionUUID->"c86e3d74-dfee-43a3-b88b-5f71c70d4a28"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"17e630bf-a8b6-4486-96e6-7f607c98ab57"], - -Cell[, "Output",ExpressionUUID->"34cf2491-74b3-42e9-9f31-17cb7bbb6838"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"0598b222-62c5-416e-b305-746b40dd9bc3"], - -Cell[, "Output",ExpressionUUID->"c0cfe5fe-aabf-43c5-8e4a-26fc7484f455"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"5af9d17e-db82-48f8-90e9-228210a09ed5"], - -Cell[, "Output",ExpressionUUID->"9be1c398-b71f-4b8e-86ff-b57730c34ab5"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"b7b83165-8b6f-4f90-a072-18689e4da274"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"6897f3b9-582a-494f-bdf5-c17bb76e55eb"], - -Cell[, "Output",ExpressionUUID->"af3bc580-2a55-4a7d-ac98-b39a4d20796c"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"934c6620-7229-4e4b-b2ba-810eea6190fc"], - -Cell[, "Output",ExpressionUUID->"97e63d9c-91b3-4669-accb-83df4a801f84"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"3a1ee666-d77d-4248-b833-dd1b09c23d24"], - -Cell[, "Output",ExpressionUUID->"058dec63-327d-4cf0-b0a1-cdf5c026a84b"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"f4bc065b-3d70-4f1f-bbed-9d1c17b3fc3d"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d1ee4b7a-f19c-4764-a00e-c0443a4a655f"], - -Cell[, "Output",ExpressionUUID->"1538c9df-d831-46f1-8713-7331dbb17ad5"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"cb621e05-0372-4be4-8a7f-fa6af95394ed"], - -Cell[, "Output",ExpressionUUID->"11752d12-3b73-4277-a911-0c1d26651286"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"18d44a4a-c7fc-4ae5-848b-d13406c29337"], - -Cell[, "Output",ExpressionUUID->"99c9c147-0bc3-4778-9545-e9c45fe0ac14"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"e3524918-77d8-4a79-be8a-6de43155ca32"], - -Cell[, "Output",ExpressionUUID->"a9939342-ed73-4ec4-91fc-0ea9e8060540"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"5fd94adc-3ec9-44a6-9da8-ece1fda82850"], - -Cell[, "Output",ExpressionUUID->"4a09183b-1d26-4467-8906-95ef0ab9c6c8"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"73c66fd5-052d-458a-84d0-ede60e041f24"], - -Cell[, "Output",ExpressionUUID->"c0c4b728-d1d8-42c2-a3f1-8b215d3c5a43"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"7a26d6af-0aab-455f-91db-5512571172b3"], - -Cell[, "Output",ExpressionUUID->"1b652f9e-f35c-42cd-a7e0-f01c8229e46b"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"3d32eb0d-fb5d-46ba-bbff-a17aec10d743"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"40615a3b-3bf4-41cf-af74-188977e3a07e"], - -Cell[, "Message",ExpressionUUID->"1cd1ee4c-be11-4530-bf3b-f6416b08a0ff"], - -Cell[, "Output",ExpressionUUID->"7acf39dc-8aed-44fe-8bb0-bb9436fd9010"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"bf8968d9-19d7-4017-b5b9-14c165d48e1d"], - -Cell[, "Output",ExpressionUUID->"f716e403-3b85-4db1-bcc7-65265fa14b70"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"a73f44d7-19db-4443-8971-77a7d3cbc4ac"], - -Cell[, "Output",ExpressionUUID->"2da9ed36-c74b-4b4e-987d-951628f83457"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"0cce5618-8a99-44e7-86b5-68e7bc48ef0b"], - -Cell[, "Output",ExpressionUUID->"1b6560cd-6b3d-4bab-919b-dc6e68e7c444"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"8485951e-7fc8-43ed-8ba0-ef1e6d664951"], - -Cell[, "Output",ExpressionUUID->"e2c67870-453b-427a-95e8-cab50a430376"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"f8206946-5423-4615-81a4-c230b5e80d65"], - -Cell[, "Output",ExpressionUUID->"985cd9bf-505a-4fe6-988b-e983fb70bc8a"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"8088e833-ee02-4258-9f96-8c0e92981bf8"], - -Cell[, "Output",ExpressionUUID->"93cd739f-29d0-4b70-aac3-bf2a78f628b7"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"bd576e58-f517-4aa4-afda-31a30b3f37f2"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"ceb62266-9f07-4658-a4d7-321e2989a78e"], - -Cell[, "Message",ExpressionUUID->"5c805d43-a6a3-4259-8167-9ed7a83569c3"], - -Cell[, "Output",ExpressionUUID->"ca8008f0-9c0b-428c-bd51-8cef3103b4c4"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"ce2413ff-e1c9-412f-8c1c-20f5155a8e4e"], - -Cell[, "Output",ExpressionUUID->"970b6b46-2fe0-42a5-8a2d-e2d76a8db9e5"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"a2b6993a-026b-4527-b432-66adf3e82a38"], - -Cell[, "Output",ExpressionUUID->"bf2495ed-92b4-47e0-8f49-b2172527f2d1"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"3dce5e91-87e2-45b3-8a1a-d6f943dd975c"], - -Cell[, "Output",ExpressionUUID->"69a06601-7d40-4a49-9c86-e61321248df8"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"8e15ee6e-f796-4feb-a19d-45aa418925bc"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"01559a7f-0832-4186-9a48-6dc2654c35f7"], - -Cell[, "Output",ExpressionUUID->"c8019c92-12bd-4aec-9d81-dd12103214c5"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"64934bdb-d7a0-4854-b9ce-237aaf977e8a"], - -Cell[, "Output",ExpressionUUID->"838b5db2-c5d6-4d60-a8cd-e5d80ea3cacb"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"c75788e5-2d5f-4b60-a9a3-c8ab1e900ca6"], - -Cell[, "Output",ExpressionUUID->"b026bd64-4322-4d3d-bd25-24c6f375d92e"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"8712ec7d-4853-4834-9148-2e0b87e145f3"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"357d2920-878c-453b-80a5-70ba292a5ae8"], - -Cell[, "Message",ExpressionUUID->"47f7f2c3-b7e2-4a94-b6cf-25d9f0fa600f"], - -Cell[, "Output",ExpressionUUID->"9a6912d5-608a-4795-8a0e-d54603e47fad"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"5f25fdb0-021a-4328-9d95-e2f4257a4ed7"], - -Cell[, "Output",ExpressionUUID->"bf5ad568-a673-4464-9f2c-8e5d79bac130"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"52fb4777-4c7f-45e8-ac9f-46d51d41be30"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"0d730e0c-0cc6-4c7f-8384-7f3287a69ea5"], - -Cell[, "Message",ExpressionUUID->"e6302471-fb4c-458d-8ff0-f2052addc5e7"], - -Cell[, "Output",ExpressionUUID->"795c441e-9e36-4982-b06f-02572be8c468"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"19ffcc93-81a4-4442-9f7d-bb0a91076a83"], - -Cell[, "Output",ExpressionUUID->"7c3bf3fe-4257-44f9-b31f-df5fc8e0a8f6"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d27188da-dbec-4862-897d-c79d508f5a06"], - -Cell[, "Output",ExpressionUUID->"d3aaacc3-94cd-4f94-b8d3-6f97ce80a7dd"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"a7c34ad4-8a20-4d4c-a312-b4abf43e7b84"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"f952decb-8392-4bd9-9ca8-68fa98ba4ea0"], - -Cell[, "Message",ExpressionUUID->"3f58991c-8f32-42f0-910b-caff5ed428b4"], - -Cell[, "Output",ExpressionUUID->"58221ff1-4525-46a7-bdae-792c93f49938"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"438a08cf-d91e-4ffb-89f2-a823831c337f"], - -Cell[, "Output",ExpressionUUID->"31bd7638-0b3f-414d-858a-3740b7c9aa3d"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"3ca9ff01-d810-4f3b-a0e5-4853c773e631"], - -Cell[, "Output",ExpressionUUID->"bf148fd8-9693-4be5-8c41-6d1aeb3bcdce"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"5676beb4-7e67-4262-a1a9-8649d66fc608"], - -Cell[, "Output",ExpressionUUID->"4fbceaf0-ac98-4d89-a81b-49f54b7e80b3"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"a47e563a-1a70-40e7-b94e-e6dec72f2217"], - -Cell[, "Output",ExpressionUUID->"75bbd4ee-6c89-47ad-8378-521f9f78d95c"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"db5b7fcd-757d-45ac-b959-eb92b6428ee8"], - -Cell[, "Output",ExpressionUUID->"66904aad-235c-4592-a25c-527242bad8da"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"4f34a001-11c8-46a5-bab7-43816510fc29"], - -Cell[, "Message",ExpressionUUID->"8c252e0f-ebf9-40a0-a65e-5752171a35d8"], - -Cell[, "Message",ExpressionUUID->"a000d915-f8c7-4ce4-a811-545a415e24fc"], - -Cell[, "Message",ExpressionUUID->"7dde968f-6bef-4b0b-81b3-e52e357f62e2"], - -Cell[, "Message",ExpressionUUID->"5f0d7aa7-3d28-4e00-82d5-76ffcee4bd01"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"dee3cd3e-84f4-4b73-b470-f1b7c0baa7b5"], - -Cell[, "Output",ExpressionUUID->"18c3e4eb-9e95-422a-b0da-36edbb287ee5"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"c9f0635b-0df0-48ed-8c29-17f301861517"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"437d5765-89f4-444f-abba-e04ffe26d7c9"], - -Cell[, "Message",ExpressionUUID->"4c823020-6c4e-407e-8fb9-5a5ec9a49385"], - -Cell[, "Message",ExpressionUUID->"0f4aaf4c-9dbc-427f-9089-e02cb3abcf77"], - -Cell[, "Message",ExpressionUUID->"8c578de3-6085-49cf-8cf6-84361c2d8524"], - -Cell[, "Message",ExpressionUUID->"42ea315f-3868-4b6f-b2f8-24cbc5f4dc34"], - -Cell[, "Message",ExpressionUUID->"2ab5fd83-7455-458e-b91b-0d9ee7745efa"], - -Cell[, "Message",ExpressionUUID->"3d85a17e-b682-4c90-bcb8-f3301535254d"], - -Cell[, "Message",ExpressionUUID->"55552e47-2019-4e0e-94ac-22ab0b441801"], - -Cell[, "Message",ExpressionUUID->"760654c4-f428-4c74-891f-ff2a37b6b853"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"cf8328a2-2e41-4543-bbcc-55e75f60d95a"], - -Cell[, "Output",ExpressionUUID->"5407ac23-3194-49ee-8010-3f88ab93d531"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"86ced1f4-0a54-4999-959e-d79bc814f759"], - -Cell[, "Output",ExpressionUUID->"93bab345-098c-4ca7-852a-335a5cd0dcf6"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"856a5f4c-223c-4aea-beeb-3fbd1534589f"], - -Cell[, "Output",ExpressionUUID->"e28c565e-2a35-4030-81ec-c70369667adb"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"a052bc09-b1cf-4937-8c90-bdb0978ae5fb"], - -Cell[, "Output",ExpressionUUID->"27ad9b7a-bb2e-42b7-9b85-f4860d194c8a"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"bc95d58f-92c7-4786-bf70-93a6a30e7d08"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"b99c27c3-28f4-463a-bbd4-0d707f24ede5"], - -Cell[, "Output",ExpressionUUID->"dbb1ea27-23d8-498f-9931-237735b90888"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"e125971c-79d1-4a87-ab30-82edcc7a11b6"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"da2bc76c-d02b-4910-a9ef-13df31a8a85d"], - -Cell[, "Output",ExpressionUUID->"3379bb53-2814-44a6-8d6d-c6bf9ff90130"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"0ff99b46-5b6d-4857-b18e-faa48625e0b2"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"70a7e635-ea68-4ab2-b208-3f27f1f18773"], - -Cell[, "Output",ExpressionUUID->"ff4ef488-7509-4a22-b38b-3e5ee979dfec"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"e7efdffa-c82b-4b24-afeb-7b606e3a56b6"], - -Cell[, "Output",ExpressionUUID->"ea054bf8-969f-415b-abfb-ad7f9b45bd69"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"376c00c5-9f33-4e41-9b82-73d25dddfb86"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"51dc3d02-9fb1-45c0-a232-766e908af724"], - -Cell[, "Output",ExpressionUUID->"37d0c2a2-52d2-4d89-8972-8e422f0e5216"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"b0ed41fc-0793-4607-b285-69dc836fbc46"], - -Cell[, "Output",ExpressionUUID->"1a124bff-ae77-4eae-9842-4ec08b7c4be7"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"ce3d50ae-7830-43f7-9e8b-ff1617bdfce1"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"1d5c2fc0-e8df-4896-8045-0fde59533d77"], - -Cell[, "Output",ExpressionUUID->"2c63f7bd-1cf3-4607-b707-7a6b95e64ad2"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"e9f77ee6-ddde-4089-a778-5ece4a57f773"], - -Cell[, "Output",ExpressionUUID->"a47f9b99-a5ed-4171-b8a9-afdc15370d19"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"c66d9b43-8912-4776-8df9-4b82e92385a2"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d3511a9b-2734-4512-8448-59796db57c80"], - -Cell[, "Output",ExpressionUUID->"02bbcf9e-2ac0-4d1f-8fa5-b00695e27836"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"59b991fc-3c45-48aa-9268-cff7572aa8c6"], - -Cell[, "Output",ExpressionUUID->"b20c1ede-027a-4011-ba6a-a217ceecc8e8"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"3597eaa7-3139-4518-bbfe-df34271dde2a"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"77c87cdf-033d-4185-b49d-b5d681d7f0f9"], - -Cell[, "Output",ExpressionUUID->"78a71b8d-3942-4850-b5d4-5a45d3517416"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"b37e4fd1-1edc-4db8-a29a-c5c0b1ee2464"], - -Cell[, "Output",ExpressionUUID->"951d7a74-9aa0-40b2-8c7e-afd33547bd6f"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"fc9769af-3482-4891-854c-c4f69b3e7ab2"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"b726930b-8825-4fc1-bdd4-f13327dfafcc"], - -Cell[, "Output",ExpressionUUID->"dcc85e39-87fd-4c7a-adc2-f6dbe9ac4f86"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"3d6268b9-9dcd-4abd-a190-2d411c0f9ac5"], - -Cell[, "Output",ExpressionUUID->"b95a5d46-00d9-454a-bdbb-7b373fb54a04"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"75d213ac-5b7e-4a17-b0e6-82481e033952"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"402a64a2-7215-43ff-afb2-5ffdb07699eb"], - -Cell[, "Output",ExpressionUUID->"84187abd-3a8b-42cd-8388-c4431767b6fc"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"855b658f-9a32-44de-bcab-f191fa636709"], - -Cell[, "Output",ExpressionUUID->"c2f9aac7-afc1-4b9d-9453-1a00347fcbe9"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"72c66ca0-a15a-4276-8266-9702097608f9"], - -Cell[, "Output",ExpressionUUID->"c22b79eb-939c-44d3-832b-d02d2b74f6d7"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"fe1d3062-e3cb-440f-8b39-b4206ce88f50"], - -Cell[, "Message",ExpressionUUID->"a8cdbd70-b1ae-4bac-b3e9-4a3a33f415b4"], - -Cell[, "Message",ExpressionUUID->"3a00a43c-0975-4a69-8a45-f6d37256351e"], - -Cell[, "Message",ExpressionUUID->"490c70b7-6d80-4544-ad78-0bdf86f8cf57"], - -Cell[, "Message",ExpressionUUID->"a33d77be-ae6e-4ad0-bc43-7822886c2702"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"4a1ef349-9985-4fd3-a4ef-904651cf68ac"], - -Cell[, "Input",ExpressionUUID->"50c02bdb-5ed2-40ab-ba77-b26952532ed9"], - -Cell[, "Input",ExpressionUUID->"3f2d1ac4-1ccc-46f3-b1c3-9e780be42bfd"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"7fb890bc-1064-4d99-b6f5-6ecab88b82da"], - -Cell[, "Output",ExpressionUUID->"f209a90a-6414-4c82-b1ac-a415e04bb40b"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"2241f538-313e-49d3-adfa-ce7a1941836a"], - -Cell[, "Output",ExpressionUUID->"e60c6984-4395-45c5-bdea-cc5d8603b5ea"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"72447e76-665c-4e50-939a-7de5c0764602"], - -Cell[, "Output",ExpressionUUID->"c1192d4e-ddba-4b86-80cd-25d21e620f98"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"cebc93a0-79b0-4da8-98e0-dac61dd498b9"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"599c1193-9a9a-4e09-bef2-d12c1f4a1969"], - -Cell[, "Message",ExpressionUUID->"11e2554d-75ea-4c0a-9448-8bfb332a62f3"], - -Cell[, "Output",ExpressionUUID->"6b1f6bb2-0a9c-4b87-aa00-e784a50c66dc"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"61a36220-5b85-4beb-bbe5-4d4a78e82a94"], - -Cell[, "Output",ExpressionUUID->"b177731d-7523-4738-97e5-0fab244202d6"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"bfc95959-ad22-467f-8b96-2c1c826f5655"], - -Cell[, "Output",ExpressionUUID->"4bc2cbcd-5582-4860-bb36-8c588aa6b1b0"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"4e2d6149-b3b3-4123-babc-92a2df998316"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d4b73ce5-7524-4652-9579-36229cebbccf"], - -Cell[, "Output",ExpressionUUID->"25f27aca-d25c-4d15-ab55-cf857b68dcb2"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"4b312d26-e716-4e13-99c6-2e39cc88c447"], - -Cell[, "Output",ExpressionUUID->"ad045ca4-bf3e-45f2-be6a-188c8fb39746"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"ff569190-822f-433e-ac6c-14b1dcd96ed9"], - -Cell[, "Output",ExpressionUUID->"436b5bb4-ba6b-46e9-ab6e-3829cbc4f6f8"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"fe675aeb-309d-4146-9e6b-7ccf11b6980f"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"955fd7fe-8805-4dc6-bcd9-f0b6fe561e94"], - -Cell[, "Output",ExpressionUUID->"1f525144-95cc-4f1d-a2b1-7ed52efe7b5e"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"59ee4596-58f4-4760-9707-1639a55478ef"], - -Cell[, "Output",ExpressionUUID->"bcf0ddd6-91b4-474e-8418-aafc45056303"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"bf8f6059-088d-4951-bbb6-e2c25b6a202b"], - -Cell[, "Output",ExpressionUUID->"baf431bc-0457-4cd5-b76b-e8aeacd57202"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"21502648-5bb8-4309-888f-8d4797b6965f"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"25c31f45-9b44-4e7a-a888-7c4634fb8ae8"], - -Cell[, "Message",ExpressionUUID->"c514ee03-eba1-48e4-af1e-0991d7159e99"], - -Cell[, "Output",ExpressionUUID->"8d39b42e-cf19-4334-a472-16b27afd3f8e"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"15b1dea7-4387-4196-86ca-e5029d19055e"], - -Cell[, "Output",ExpressionUUID->"71a0bd1f-9ee3-45c1-8043-10fc45b089f2"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"ea7e7eb2-0ae4-48e4-9de2-2070d9c80ef7"], - -Cell[, "Output",ExpressionUUID->"a52313f1-4c10-40c6-b4b1-90cde6f32b05"] -}, Open ]] -}, Closed]], - -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[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[7]:=",ExpressionUUID->"a326d1ad-f5a3-49d5-9b86-3a79e4cb291c"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.1330578884902485`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19745451484947765`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.461034208210911`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6443351569778666`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5473671325280764`"}]}], - "}"}]], "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}, - CellLabel->"Out[7]=",ExpressionUUID->"354672a1-e808-4f47-9909-36c2b4af968c"] -}, 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[9]:=",ExpressionUUID->"8eab97ea-e359-40c0-9935-fde12f7b604a"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"0.199223`", ",", - RowBox[{"{", - RowBox[{"4.7878367936959876`*^-15", ",", - RowBox[{"-", "1.3578383417065925`"}], ",", - RowBox[{"-", "0.02690821036398916`"}], ",", "0.007873894352745905`", ",", - RowBox[{"-", "0.0035746962329615394`"}], ",", "0.001898162962634841`", - ",", - RowBox[{"-", "0.0011025522381150682`"}]}], "}"}]}], "}"}]], "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}}, - CellLabel->"Out[9]=",ExpressionUUID->"d094b3f2-bd0b-4554-877a-0954c0fd9839"] -}, 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[{"nAs", ",", - 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}}, - CellLabel->"In[10]:=",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[{ - 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], 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.30589398059733625`}, {3., -2.922176640391772}, { - 4., -3.052443034550653}, {5., -2.4558212458993265`}, { - 6., -1.4793769795111746`}, {7., -0.2308763582453745}}]}}, {{}, {}}}, - 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.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.841391291253233*^9, - 3.841392160241373*^9, 3.841392337222522*^9, 3.841463592218527*^9, - 3.841464593325774*^9, 3.841994611010065*^9, {3.8419947003129787`*^9, - 3.841994709591275*^9}, {3.84199509628699*^9, 3.841995106767374*^9}, { - 3.841995144191465*^9, 3.8419951589233913`*^9}, 3.841995209077073*^9, - 3.84200342574848*^9, 3.842068925281695*^9}, - CellLabel->"Out[10]=",ExpressionUUID->"de5014d5-9608-4236-9da2-63697a5c283d"] -}, 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[{"nAs", ",", - RowBox[{"h", "[", "0", "]"}]}], "]"}], "[", - RowBox[{"6", ",", "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}}, - CellLabel->"In[11]:=",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.6126028894906069}, {5., 2.116815582639737}, {7., - 4.546824725690496}}]}}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., -0.603859156611753}, - 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.603859156611753, 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}, - CellLabel->"Out[11]=",ExpressionUUID->"75cbb042-84e6-4596-a457-3236425ad8bd"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "0", "]"}], ",", "\[Infinity]"}], "]"}], "[", "2", - "]"}]], "Input", - CellChangeTimes->{{3.84207113009809*^9, 3.84207113459235*^9}}, - CellLabel-> - "In[173]:=",ExpressionUUID->"4aee75ec-485c-460f-b355-66a9df64aee0"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"20000.`", " ", - RowBox[{"(", - RowBox[{ - RowBox[{"-", "0.1893`"}], "+", - FractionBox[ - RowBox[{"\[Theta]0", " ", - RowBox[{"(", - RowBox[{"1", "+", - FractionBox[ - SuperscriptBox["\[Theta]0", "2"], - SuperscriptBox["\[Theta]c", "2"]]}], ")"}], " ", - RowBox[{"gC", "[", "0", "]"}]}], - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1", "+", - SuperscriptBox["\[Theta]0", "2"]}], ")"}], - RowBox[{"15", "/", "8"}]]]}], ")"}]}], "}"}]], "Output", - CellChangeTimes->{3.8420711348039207`*^9, 3.842071170683807*^9, - 3.842071201067704*^9, 3.842071258367114*^9, 3.842071320032799*^9}, - CellLabel-> - "Out[173]=",ExpressionUUID->"301e9cba-9e6b-4f8b-8b2e-9b8bdd2cf25f"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"m0", "=", - RowBox[{"annealFit", "[", - RowBox[{ - RowBox[{ - RowBox[{"Most", "@", - 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}}, - CellLabel-> - "In[191]:=",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], - -Cell[CellGroupData[{ - -Cell[BoxData["1.647052577693567`*^-16"], "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}, - CellLabel-> - "During evaluation of \ -In[191]:=",ExpressionUUID->"9eb02125-814e-4ead-82e0-8fa7ac456cc2"], - -Cell[BoxData["1.6470525776935675`*^-12"], "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.842077585336237*^9}, - CellLabel-> - "During evaluation of \ -In[191]:=",ExpressionUUID->"ba947cc5-8425-41a1-9d88-e8d4ba1c645f"], - -Cell[BoxData["1.6470525776935673`*^-8"], "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.842077585403553*^9}, - CellLabel-> - "During evaluation of \ -In[191]:=",ExpressionUUID->"8378ab59-c523-46b2-ba14-8e6dc32a93de"], - -Cell[BoxData["0.00016470525776935674`"], "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.842077585469922*^9}, - CellLabel-> - "During evaluation of \ -In[191]:=",ExpressionUUID->"0b6db944-913e-42f5-92ce-e30a1f92a1b0"], - -Cell[BoxData["1.6470525776935674`"], "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.8420775855374613`*^9}, - CellLabel-> - "During evaluation of \ -In[191]:=",ExpressionUUID->"38d8b978-cfab-4e89-9161-4cc7522a4f19"] -}, Open ]], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"1.6470525776935674`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.2089302261515305`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1800096570750626`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.1277544941656257`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2449232396679648`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5019315306082547`"}]}], - "}"}]}], "}"}]], "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}, - CellLabel-> - "Out[191]=",ExpressionUUID->"7bc51fe6-b1f4-4852-a8c3-a7820e9ee507"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"m01", "=", - RowBox[{"FindRoot", "[", - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{"D", "[", - RowBox[{ - RowBox[{ - RowBox[{"Total", "[", - RowBox[{"Most", "@", - 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}}, - CellLabel-> - "In[192]:=",ExpressionUUID->"b02b5204-9158-4350-9e92-e8f555f47ba7"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - RowBox[{ - "\[Theta]c", "\[Rule]", "1.20893022615154709853312863726921003154`20."}], - ",", - RowBox[{ - "\[Theta]0", "\[Rule]", "0.18000965707505492370899587680261531907`20."}], - ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.12775449416546477053172537562844785886`20."}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", - "1.24492323966774458428069324586063723796`20."}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", - "0.50193153060827788629624450813451384606`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}}, - CellLabel-> - "Out[192]=",ExpressionUUID->"a932a9d9-373e-4655-ab9d-01d29622fab0"] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"fitCov", "[", - RowBox[{"res_", ",", "s_"}], "]"}], ":=", - RowBox[{"With", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"J", "=", - RowBox[{"D", "[", - RowBox[{"res", ",", - RowBox[{"{", - RowBox[{"s", "[", - RowBox[{"[", - RowBox[{"All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}]}], "}"}], - ",", - RowBox[{"Symmetrize", "[", - RowBox[{"Inverse", "[", - RowBox[{"SetPrecision", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"Transpose", "[", "J", "]"}], ".", "J"}], "/.", "s"}], ",", - "60"}], "]"}], "]"}], "]"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.8420034497136087`*^9, 3.8420035544184847`*^9}, { - 3.8420036689246264`*^9, 3.84200371543722*^9}, {3.842003753374049*^9, - 3.8420037544061117`*^9}, {3.842003791974859*^9, 3.8420038448956947`*^9}, { - 3.8420050330058813`*^9, 3.8420050742463713`*^9}, {3.842005132703796*^9, - 3.842005142391529*^9}, {3.8420052346013317`*^9, 3.842005236233274*^9}, { - 3.8420778125700607`*^9, 3.842077822242277*^9}, {3.842078210769764*^9, - 3.842078230097619*^9}, 3.8420783712286167`*^9, {3.842078490662499*^9, - 3.8420785378313704`*^9}, {3.842078570000214*^9, 3.842078673081708*^9}}, - CellLabel-> - "In[307]:=",ExpressionUUID->"fac9f265-b234-4b28-9a77-a9a9a37bcb16"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"cov0", "=", - RowBox[{"fitCov", "[", - RowBox[{ - RowBox[{ - RowBox[{"Most", "@", - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "0", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "2", "]"}]}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "0", "]"}], "]"}]}], ",", "m01"}], "]"}]}]], "Input", - CellChangeTimes->{{3.842003556268217*^9, 3.842003574458744*^9}, { - 3.842003613387485*^9, 3.842003621275626*^9}, {3.842003848840043*^9, - 3.8420038643919992`*^9}, {3.8420041190780354`*^9, 3.842004121196991*^9}, { - 3.842004450452117*^9, 3.842004464579197*^9}, {3.842004507220078*^9, - 3.8420045176681633`*^9}, {3.842004562286165*^9, 3.842004584461378*^9}, { - 3.842005101248097*^9, 3.842005105846903*^9}, {3.842005147600943*^9, - 3.8420051633839703`*^9}}, - CellLabel-> - "In[302]:=",ExpressionUUID->"a3d76b7b-9348-4d3c-8e97-d0f40af7ee17"], - -Cell[BoxData[ - InterpretationBox[ - RowBox[{ - TagBox["SymmetrizedArray", - "SummaryHead"], "[", - DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, - - TemplateBox[{ - PaneSelectorBox[{False -> GridBox[{{ - PaneBox[ - ButtonBox[ - DynamicBox[ - FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], - ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, - BaseStyle -> {}, Evaluator -> Automatic, Method -> - "Preemptive"], Alignment -> {Center, Center}, ImageSize -> - Dynamic[{ - Automatic, - 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ - Magnification])}]], - GraphicsBox[ - RasterBox[CompressedData[" -1:eJxTTMoPSmVmYGBghWIQe+EKfpOHJWftvx49XD1FaI49j4LkbKdft+1fvljj -+eXaRfukTC391ldH7B+ccRfilHlm37d/phHH/wf2y37P5J9Y/NJ+/5T0yXJ9 -7+1fu93MZTS6YO9/1imjYuMFe8NghjM3zr+wD/h//rHt38f2nyQzryzje22v -a/I8xGTbe/tTWvrnD+pesF+i62fZ//iO/V2PQBbfoDf2Hypn/FeddN7+2SWl -zb9Fb9k3zOlfZb3ntb1Z69tvcgHn7X+cUZzXs+eS/dSo8hO9m17aHw/YUXr4 -xjn7K5V9H6Iar9uH3VpiKGz0Gqd7zGaufHOm5oK9z6u5Pw/bLLHXaLip+uTc -fXvhbYeMtthdtPfKPXRJK/ekvezEKYscxJ7b39Aw2ffD8o79pkT95unPn9vv -eXGCqSn9PU734Aof09f55T2BF+3XvFt/ZXrjI3sH+61R5qzv7NdxbOaon3jB -PmiZwKeMVfftRR6f9/j27A1O9+AKH1zxtbPbwHXnlhf2N9yXr6uZ9tb+ZETu -v/ivuN2DK3xwxReu9AMArA49PA== - "], {{0, 0}, {5, 5}}, {0, 1}], - AspectRatio -> 1, Axes -> False, Frame -> False, - FrameLabel -> {None, None}, FrameStyle -> Directive[ - Opacity[0.5], - Thickness[Tiny], - RGBColor[0.368417, 0.506779, 0.709798]], - FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> - Directive[ - GrayLevel[0.5, 0.4]], ImageSize -> - Dynamic[{ - Automatic, - 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ - Magnification])}], - Method -> { - "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> - Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, - "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, - "DefaultPlotStyle" -> Automatic, "DomainPadding" -> - Scaled[0.02], "RangePadding" -> Scaled[0.05]}], - GridBox[{{ - RowBox[{ - TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox[ - RowBox[{"{", - RowBox[{"5", ",", "5"}], "}"}], "SummaryItem"]}]}, { - RowBox[{ - TagBox["\"Symmetry: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox[ - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{"1", ",", "2"}], "}"}], "]"}], "SummaryItem"]}]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, - BaseStyle -> { - ShowStringCharacters -> False, NumberMarks -> False, - PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, - GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, - AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - BaselinePosition -> {1, 1}], True -> GridBox[{{ - PaneBox[ - ButtonBox[ - DynamicBox[ - FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], - ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, - BaseStyle -> {}, Evaluator -> Automatic, Method -> - "Preemptive"], Alignment -> {Center, Center}, ImageSize -> - Dynamic[{ - Automatic, - 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ - Magnification])}]], - GraphicsBox[ - RasterBox[CompressedData[" -1:eJxTTMoPSmVmYGBghWIQe+EKfpOHJWftvx49XD1FaI49j4LkbKdft+1fvljj -+eXaRfukTC391ldH7B+ccRfilHlm37d/phHH/wf2y37P5J9Y/NJ+/5T0yXJ9 -7+1fu93MZTS6YO9/1imjYuMFe8NghjM3zr+wD/h//rHt38f2nyQzryzje22v -a/I8xGTbe/tTWvrnD+pesF+i62fZ//iO/V2PQBbfoDf2Hypn/FeddN7+2SWl -zb9Fb9k3zOlfZb3ntb1Z69tvcgHn7X+cUZzXs+eS/dSo8hO9m17aHw/YUXr4 -xjn7K5V9H6Iar9uH3VpiKGz0Gqd7zGaufHOm5oK9z6u5Pw/bLLHXaLip+uTc -fXvhbYeMtthdtPfKPXRJK/ekvezEKYscxJ7b39Aw2ffD8o79pkT95unPn9vv -eXGCqSn9PU734Aof09f55T2BF+3XvFt/ZXrjI3sH+61R5qzv7NdxbOaon3jB -PmiZwKeMVfftRR6f9/j27A1O9+AKH1zxtbPbwHXnlhf2N9yXr6uZ9tb+ZETu -v/ivuN2DK3xwxReu9AMArA49PA== - "], {{0, 0}, {5, 5}}, {0, 1}], - AspectRatio -> 1, Axes -> False, Frame -> False, - FrameLabel -> {None, None}, FrameStyle -> Directive[ - Opacity[0.5], - Thickness[Tiny], - RGBColor[0.368417, 0.506779, 0.709798]], - FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> - Directive[ - GrayLevel[0.5, 0.4]], ImageSize -> - Dynamic[{ - Automatic, - 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ - Magnification])}], - Method -> { - "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> - Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, - "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, - "DefaultPlotStyle" -> Automatic, "DomainPadding" -> - Scaled[0.02], "RangePadding" -> Scaled[0.05]}], - GridBox[{{ - RowBox[{ - TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox[ - RowBox[{"{", - RowBox[{"5", ",", "5"}], "}"}], "SummaryItem"]}]}, { - RowBox[{ - TagBox["\"Symmetry: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox[ - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{"1", ",", "2"}], "}"}], "]"}], "SummaryItem"]}]}, { - RowBox[{ - TagBox["\"Symmetry order: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox["2", "SummaryItem"]}]}, { - RowBox[{ - TagBox[ - "\"Specified independent elements: \"", - "SummaryItemAnnotation"], "\[InvisibleSpace]", - TagBox["15", "SummaryItem"]}]}, { - TagBox[ - TagBox[ - GridBox[{{ - RowBox[{ - RowBox[{"{", - RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", - StyleBox[ - PaneBox[ - "0.0010234230400406674010154796083495587750600453836878516\ -0714310939003191209027279916494577997688`80.", ContentPadding -> False, - FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> - Baseline, ImageSize -> {{1, 300}, Automatic}], - LineBreakWithin -> False]}]}, { - RowBox[{ - RowBox[{"{", - RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", - StyleBox[ - PaneBox[ - "0.0001734759360010351365610521250242945048221233763287561\ -51845300005941504614910150375566038882396`80.", ContentPadding -> False, - FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> - Baseline, ImageSize -> {{1, 300}, Automatic}], - LineBreakWithin -> False]}]}, { - RowBox[{ - RowBox[{"{", - RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", - StyleBox[ - PaneBox[ - - RowBox[{ - "-", "0.\ -000829397758274225131608003201367663126877224404182710340959967973871921036263\ -230430145765899133`80."}], ContentPadding -> False, FrameMargins -> 0, - StripOnInput -> True, BaselinePosition -> Baseline, - ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> - False]}]}, { - RowBox[{ - RowBox[{"{", - RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", - StyleBox[ - PaneBox[ - "0.0000167982272422486088933023549123286276802244432010051\ -07938686531489642845188863724155615126991`80.", ContentPadding -> False, - FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> - Baseline, ImageSize -> {{1, 300}, Automatic}], - LineBreakWithin -> False]}]}, { - ItemBox[ - "\"\[VerticalEllipsis]\"", Alignment -> Center, - StripOnInput -> False]}}, - GridBoxAlignment -> {"Columns" -> {{Left}}}, - DefaultBaseStyle -> "Column", - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], - "Column"], "SummaryItem"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, - BaseStyle -> { - ShowStringCharacters -> False, NumberMarks -> False, - PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, - GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, - AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - BaselinePosition -> {1, 1}]}, - Dynamic[Typeset`open$$], ImageSize -> Automatic]}, - "SummaryPanel"], - DynamicModuleValues:>{}], "]"}], - SymmetrizedArray[ - StructuredArray`StructuredData[{5, - 5}, {{{1, 1} -> - 0.0010234230400406674010154796083495587750600453836878516071431093900319\ -1209027279916494577997688`80., {1, 2} -> - 0.0001734759360010351365610521250242945048221233763287561518453000059415\ -04614910150375566038882396`80., {1, - 3} -> -0.\ -000829397758274225131608003201367663126877224404182710340959967973871921036263\ -230430145765899133`80., {1, 4} -> - 0.0000167982272422486088933023549123286276802244432010051079386865314896\ -42845188863724155615126991`80., {1, - 5} -> -0.\ -000918059219909573139829243434204454068048295994181954924294198222586620276180\ -748542769207403136`80., {2, 2} -> - 0.0000294051425403119787532139015302103046778470351635697277292546550381\ -16724185677214766456980507`80., {2, - 3} -> -0.\ -000140587564286283957872441979050805933701155489745743153026090431120017967215\ -094684802257181357`80., {2, 4} -> - 2.8473935801673651348222169747560622776069299220232122441124394360500763\ -87782003572283860477`80.*^-6, {2, - 5} -> -0.\ -000155616178498253124065480681792926083103774239583274511018023948497931142074\ -07481484562328961`80., {3, 3} -> - 0.0006721566884042156381084597432966611137469557787323023696407736713438\ -41397181265929126893720282`80., {3, - 4} -> -0.\ -000013613541490279902062777728697425636609354720260789282866852072137174014636\ -882611159017890321`80., {3, 5} -> - 0.0007440092993467558740706661937940070610749738079423382706892573721098\ -58960311169834440846315612`80., {4, 4} -> - 2.7572218666389453104751904326369580698461004394882037808734578503557890\ -9734372214437538317`80.*^-7, {4, - 5} -> -0.\ -000015068810056562424703007417210575165189082744264541318675879562803230309573\ -613008587239563697`80., {5, 5} -> - 0.0008235428540161482265238450096785990391728557113665275333219000261649\ -50194562362424698793087217`80.}, - Symmetric[{1, 2}]}]], - Editable->False, - SelectWithContents->True, - Selectable->False]], "Output", - CellChangeTimes->{ - 3.842003621500785*^9, {3.842003675736533*^9, 3.8420036861256123`*^9}, - 3.842003756795403*^9, {3.842003823704911*^9, 3.842003864816658*^9}, - 3.842004121891232*^9, {3.842004455659184*^9, 3.8420044650505133`*^9}, - 3.842004518040139*^9, {3.84200456306161*^9, 3.842004585020187*^9}, { - 3.842005077657444*^9, 3.8420051071697474`*^9}, {3.842005150227562*^9, - 3.8420051636767282`*^9}, 3.842005237491127*^9, 3.842068955305297*^9, - 3.842077589523567*^9, {3.8420778184137583`*^9, 3.842077823391149*^9}, { - 3.842078217674678*^9, 3.842078231187545*^9}, {3.84207829425247*^9, - 3.842078296666647*^9}, {3.8420784860093737`*^9, 3.842078538892666*^9}, { - 3.8420785730708838`*^9, 3.8420785850476933`*^9}, {3.842078627291008*^9, - 3.842078655697802*^9}}, - CellLabel-> - "Out[302]=",ExpressionUUID->"db27d8e0-2312-462f-9bb8-39a683b02caf"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Eigenvalues", "[", "cov0", "]"}]], "Input", - CellChangeTimes->{{3.8420782383157663`*^9, 3.8420782411457977`*^9}}, - CellLabel-> - "In[303]:=",ExpressionUUID->"589325ac-f49d-41d5-9ec6-188d338e9638"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - "0.0025488034471880071389320363697780815102675620758929433015560844723408902\ -93311234750120528040306`80.", ",", - "9.410887980712065430994521275995070761599230562837535559336606798805921439\ -760649292345038989287968017943985857`80.*^-27", ",", - "1.201392496649355194749848312811934813201415383902801801169282066820637978\ -440673083109121506621564482594272`80.*^-30", ",", - "2.945337346599246356606457458250609760248498192162413369025222163109506135\ -986522812769901759738360075056`80.*^-32", ",", - "1.384836016347790264067874191838105988502488440619084165500168611168409466\ -560827913121721742956763284819`80.*^-33"}], "}"}]], "Output", - CellChangeTimes->{ - 3.842078241376606*^9, 3.842078496936962*^9, 3.8420785898824253`*^9, { - 3.8420786464927073`*^9, 3.842078656524024*^9}}, - CellLabel-> - "Out[303]=",ExpressionUUID->"579b2eee-a70b-48ec-8777-0bb406ee3526"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"m1", "=", - RowBox[{"annealFit", "[", - RowBox[{ - RowBox[{ - RowBox[{"Most", "@", - 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}}, - CellLabel-> - "In[259]:=",ExpressionUUID->"29398383-9203-4cf6-aabb-1d3fe15a5894"], - -Cell[CellGroupData[{ - -Cell[BoxData["1.25462842071365`*^-15"], "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}, - CellLabel-> - "During evaluation of \ -In[259]:=",ExpressionUUID->"f4869400-3765-440f-b164-28a61fae5220"], - -Cell[BoxData["1.2631210491835574`*^-11"], "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.8420782327843037`*^9}, - CellLabel-> - "During evaluation of \ -In[259]:=",ExpressionUUID->"945f0e57-8488-4da8-a8ed-b74e0eaf6307"], - -Cell[BoxData["4.2331963546918874`*^-8"], "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.8420782328482237`*^9}, - CellLabel-> - "During evaluation of \ -In[259]:=",ExpressionUUID->"9b3d6872-863b-4a4c-80d2-fab964b41cac"], - -Cell[BoxData["0.00031684946729615323`"], "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.842078232912538*^9}, - CellLabel-> - "During evaluation of \ -In[259]:=",ExpressionUUID->"218f3502-5507-419f-84cc-815a88a439d7"], - -Cell[BoxData["3.168390512388945`"], "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.8420782329760323`*^9}, - CellLabel-> - "During evaluation of \ -In[259]:=",ExpressionUUID->"6949ef75-4411-4079-b75f-8910f0a43673"] -}, Open ]], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"3.168390512388945`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3517287579359236`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1957378685492899`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.1925467441426822`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2315231917555653`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3898943902755745`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.014789463380381373`"}]}]}], "}"}]}], "}"}]], "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}, - CellLabel-> - "Out[259]=",ExpressionUUID->"3400b7e9-90a0-46dc-a2ba-63ca5c863284"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"m11", "=", - RowBox[{"FindRoot", "[", - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{"D", "[", - RowBox[{ - RowBox[{ - RowBox[{"Total", "[", - RowBox[{"Most", "@", - 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}}, - CellLabel-> - "In[308]:=",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, 308, 305, 31641741301462687909, - "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}}, - CellLabel-> - "During evaluation of \ -In[308]:=",ExpressionUUID->"f25973ba-d943-48be-9f24-5ef1920b9f51"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - RowBox[{ - "\[Theta]c", "\[Rule]", "1.35172875793611722355073707909177711641`20."}], - ",", - RowBox[{ - "\[Theta]0", "\[Rule]", "0.19573786854923995620668561389336876465`20."}], - ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.19254674414097692581072730393975493572`20."}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", - "1.23152319175335479190839939653247186677`20."}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", - "0.38989439027580807741068590686088273594`20."}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.0147894633802017424231460466572360793`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}}, - CellLabel-> - "Out[308]=",ExpressionUUID->"08bdf55b-b1ed-4694-bb3c-7cd3172fea16"] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"cov1", "=", - RowBox[{"fitCov", "[", - RowBox[{ - RowBox[{ - RowBox[{"Most", "@", - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "1", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "3", "]"}]}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "1", "]"}], "]"}]}], ",", "m11"}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.8420691103815413`*^9, 3.842069186717394*^9}, { - 3.842077740113545*^9, 3.842077740168569*^9}, {3.8420783395803432`*^9, - 3.842078364748053*^9}}, - CellLabel-> - "In[309]:=",ExpressionUUID->"15f30a53-123e-4733-bbeb-afd5a7def984"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Eigenvalues", "[", "cov1", "]"}]], "Input", - CellChangeTimes->{{3.842003556268217*^9, 3.842003574458744*^9}, { - 3.842003613387485*^9, 3.842003621275626*^9}, {3.842003848840043*^9, - 3.8420038643919992`*^9}, {3.84200390535288*^9, 3.842003913104995*^9}, { - 3.842004433011887*^9, 3.8420044347385483`*^9}, {3.84206913265244*^9, - 3.842069134156417*^9}}, - CellLabel-> - "In[310]:=",ExpressionUUID->"bfe15531-f075-4499-a137-4d851f7f7f55"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - RowBox[{ - "-", "1.9243838406653275132980579411551838606143194473908598016096127459602\ -298388166567`60.*^-16"}], ",", - "1.335195627011515425435202040871208884125767653993177788351038597289661119\ -50211316`60.*^-16", ",", - "6.388461081404886831371745058006594383338940718437269179863451220626972916\ -5160218443228`60.*^-30", ",", - "3.724875801909311051215096764492776531307117235725140627873767896047804213\ -33845236115`60.*^-31", ",", - "3.512822477418716255218775859372113726495827421660144224851771971423362250\ -33213331643`60.*^-32", ",", - "4.894741195968053077508586752587428990573066267334537848260142216717159607\ -3623774805`60.*^-33"}], "}"}]], "Output", - CellChangeTimes->{ - 3.842003621500785*^9, {3.842003675736533*^9, 3.8420036861256123`*^9}, - 3.842003756795403*^9, {3.842003823704911*^9, 3.842003864816658*^9}, - 3.842003916134631*^9, 3.842004437093234*^9, {3.8420691343488283`*^9, - 3.842069188574479*^9}, 3.842077731033498*^9, 3.8420778382278633`*^9, { - 3.842078281540761*^9, 3.842078301307665*^9}, {3.842078349735704*^9, - 3.842078375618273*^9}, 3.8420785019384327`*^9, 3.8420785961552267`*^9, { - 3.842078664124774*^9, 3.842078679034635*^9}}, - CellLabel-> - "Out[310]=",ExpressionUUID->"77026836-47db-4b26-a3f8-13436bd799b1"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{ - RowBox[{"Total", "[", - RowBox[{"Most", "@", - SuperscriptBox[ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "1", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "3", "]"}], "2"]}], "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "1", "]"}], "]"}]}], "/.", "m11"}]], "Input", - CellChangeTimes->{{3.841826796038172*^9, 3.841826798518147*^9}, { - 3.8418268788555593`*^9, 3.84182688045557*^9}, {3.8418269675383453`*^9, - 3.841826967577529*^9}, {3.841995298812356*^9, 3.841995299300308*^9}}, - CellLabel-> - "In[218]:=",ExpressionUUID->"becbd2c1-3886-4d89-919e-83cea993abb3"], - -Cell[BoxData["3.0604670490524602`*^-9"], "Output", - CellChangeTimes->{3.841826798776073*^9, 3.8418268811733217`*^9, - 3.8418269680941963`*^9, 3.8419952994877367`*^9, 3.8419965705016108`*^9, - 3.841996907397862*^9, 3.8420692682120113`*^9, 3.842077844075732*^9}, - CellLabel-> - "Out[218]=",ExpressionUUID->"eae5426a-cb1c-45df-8714-df6cd49667d5"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"m2", "=", - RowBox[{"annealFit", "[", - RowBox[{ - RowBox[{ - RowBox[{"Most", "@", - 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}}, - CellLabel-> - "In[653]:=",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ -\"-\\\", \\\"2.175358192276232`*^-307\\\"}], \\\")\\\"}]}]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 653, - 645, 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{{3.8420811794408407`*^9, 3.842081225298328*^9}}, - CellLabel-> - "During evaluation of \ -In[653]:=",ExpressionUUID->"1519d24f-8121-43a4-8d15-5ca29b9bc3ab"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ -\"-\\\", \\\"1.3681733387208444`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 653, 646, 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{{3.8420811794408407`*^9, 3.842081225522735*^9}}, - CellLabel-> - "During evaluation of \ -In[653]:=",ExpressionUUID->"bd05cbef-bfeb-4ca6-820e-77c16a106049"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ -\"-\\\", \\\"1.087679096138116`*^-307\\\"}], \\\")\\\"}]}]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 653, - 647, 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{{3.8420811794408407`*^9, 3.842081225775062*^9}}, - CellLabel-> - "During evaluation of \ -In[653]:=",ExpressionUUID->"76bbb289-10c7-4e19-a5c3-9d8cc21df69c"], - -Cell[BoxData[ - TemplateBox[{ - "General", "stop", - "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ -\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 653, 648, 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{{3.8420811794408407`*^9, 3.8420812259993353`*^9}}, - CellLabel-> - "During evaluation of \ -In[653]:=",ExpressionUUID->"f0231bbb-eb2e-4ada-a977-efa375889ca4"], - -Cell[CellGroupData[{ - -Cell[BoxData["4.3949090248982105`*^-12"], "Print", - CellChangeTimes->{3.8420812260607767`*^9}, - CellLabel-> - "During evaluation of \ -In[653]:=",ExpressionUUID->"64b212cf-4111-4ccb-92b9-9f107a144847"], - -Cell[BoxData["1.0603864587307206`*^-9"], "Print", - CellChangeTimes->{3.842081226148316*^9}, - CellLabel-> - "During evaluation of \ -In[653]:=",ExpressionUUID->"960b306d-7f02-49b2-8a38-0b3d20674367"], - -Cell[BoxData["2.792385787973429`*^-6"], "Print", - CellChangeTimes->{3.8420812262311974`*^9}, - CellLabel-> - "During evaluation of \ -In[653]:=",ExpressionUUID->"189c47be-0c37-4b3c-bc58-25c3d13f5687"], - -Cell[BoxData["0.0012000090559356317`"], "Print", - CellChangeTimes->{3.842081226310836*^9}, - CellLabel-> - "During evaluation of \ -In[653]:=",ExpressionUUID->"ed4e0608-b422-415e-9e84-154e64047132"], - -Cell[BoxData["11.991890803704985`"], "Print", - CellChangeTimes->{3.842081226387046*^9}, - CellLabel-> - "During evaluation of \ -In[653]:=",ExpressionUUID->"9b55854c-ccc6-4b25-8973-259fb0bf5612"] -}, Open ]], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"11.991890803704985`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.448617541482043`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19563356701765378`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.2435864444610742`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2968071564071018`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.37095576230172383`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.10864907914676658`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.003177267116750506`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.02893936324082352`"}]}]}], "}"}]}], "}"}]], "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}}, - CellLabel-> - "Out[653]=",ExpressionUUID->"fa0d4eff-3a2b-4779-9a29-cdf4413c0568"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"m21", "=", - RowBox[{"FindRoot", "[", - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{"D", "[", - RowBox[{ - RowBox[{ - RowBox[{"Total", "[", - RowBox[{"Most", "@", - SuperscriptBox[ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "3", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], "]"}], "[", "4", "]"}], "2"]}], "]"}], - "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "3", "]"}], "]"}]}], ",", - RowBox[{"{", - RowBox[{"m2", "[", - RowBox[{"[", - RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}], - "]"}], ",", - RowBox[{"Evaluate", "[", - RowBox[{ - RowBox[{"m2", "[", - RowBox[{"[", "2", "]"}], "]"}], "/.", - RowBox[{"Rule", "->", "List"}]}], "]"}], ",", - RowBox[{"WorkingPrecision", "\[Rule]", "15"}], ",", - 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}}, - CellLabel-> - "In[407]:=",ExpressionUUID->"eaf55068-7c6e-48d1-8e5b-093c2f4b5994"], - -Cell[BoxData[ - TemplateBox[{ - "FindRoot", "precw", - "\"The precision of the argument function ({100000000000000000000000000 \ -<<1>> (Divide[-2 <<5>> (Power[\[Theta]c, -1] + <<1>> - Divide[Power[E, <<1>>] \ -Pi Power[<<2>>], 4 <<3>> (\[Theta]c + <<3>>)]), <<1>>] + <<4>>) + <<6>>, \ -<<7>>}) is less than WorkingPrecision \ -(\\!\\(\\*RowBox[{\\\"15.`\\\"}]\\)).\"", 2, 407, 414, 31641741301462687909, - "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}, - CellLabel-> - "During evaluation of \ -In[407]:=",ExpressionUUID->"bb66e50b-f997-44d9-ba2c-a37d72d7249e"], - -Cell[BoxData[ - TemplateBox[{ - "FindRoot", "bddir", - "\"The search direction \\!\\(\\*RowBox[{\\\"{\\\", \ -RowBox[{\\\"2.53965496135013`15.*^-12\\\", \\\",\\\", RowBox[{\\\"-\\\", \ -\\\"3.57061033963652`15.*^-13\\\"}], \\\",\\\", \ -\\\"1.8025424914886`15.*^-11\\\", \\\",\\\", RowBox[{\\\"-\\\", \ -\\\"2.39868548713662`15.*^-11\\\"}], \\\",\\\", \ -\\\"2.5615325400987`15.*^-12\\\", \\\",\\\", \ -\\\"4.58273154979095`15.*^-12\\\", \\\",\\\", RowBox[{\\\"-\\\", \ -\\\"1.56414515669193`15.*^-12\\\"}], \\\",\\\", \\\"2.46649528749619`15.*^-13\ -\\\"}], \\\"}\\\"}]\\) is not a descent direction for the merit function. The \ -step will be taken without the line search.\"", 2, 407, 415, - 31641741301462687909, "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.8420797262779417`*^9}, - CellLabel-> - "During evaluation of \ -In[407]:=",ExpressionUUID->"69901938-a23f-4a57-b4f2-5e5be6d9ff19"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - RowBox[{ - "\[Theta]c", "\[Rule]", "1.39640140702670691766620027873040490558`15."}], - ",", - RowBox[{ - "\[Theta]0", "\[Rule]", "0.19561752501762282087327377522180741551`15."}], - ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.21478831204662112221329117619354697143`15."}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", - "1.2602180254217114206615247243364880446`15."}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", - "0.3504599230798142432947907895377413107`15."}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.04268658215981520190896391697546383902`15."}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - "0.00700262478578725836412674473311270201`15."}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.00087146495931545848237806045755954563`15."}]}]}], - "}"}]], "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}, - CellLabel-> - "Out[407]=",ExpressionUUID->"6661822c-1c31-436e-a750-cc5539a9b64a"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"cov2", "=", - RowBox[{"fitCov", "[", - RowBox[{ - RowBox[{ - RowBox[{"Most", "@", - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "3", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], "]"}], "[", "4", "]"}]}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "3", "]"}], "]"}]}], ",", "m21"}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.842003556268217*^9, 3.842003574458744*^9}, { - 3.842003613387485*^9, 3.842003621275626*^9}, {3.842003848840043*^9, - 3.8420038643919992`*^9}, {3.8420041190780354`*^9, 3.842004121196991*^9}, { - 3.842004450452117*^9, 3.842004464579197*^9}, {3.842004507220078*^9, - 3.8420045176681633`*^9}, {3.842004562286165*^9, 3.842004584461378*^9}, { - 3.842004629182274*^9, 3.842004645582592*^9}, {3.842004748440856*^9, - 3.842004775096924*^9}, {3.842069284175571*^9, 3.84206931947155*^9}, { - 3.842077861602908*^9, 3.8420778622750483`*^9}}, - CellLabel-> - "In[221]:=",ExpressionUUID->"d5eaef8f-0b87-435a-b319-0400431fa108"], - -Cell[BoxData[ - TemplateBox[{ - "Inverse", "luc", - "\"Result for \\!\\(\\*RowBox[{\\\"Inverse\\\"}]\\) of badly conditioned \ -matrix \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \ -RowBox[{\\\"4.278156461926111`*^27\\\", \\\",\\\", \ -\\\"1.2923904709458336`*^27\\\", \\\",\\\", \\\"3.2649002358986426`*^27\\\", \ -\\\",\\\", \\\"3.620471587109727`*^27\\\", \\\",\\\", \ -\\\"5.380893028207948`*^27\\\", \\\",\\\", \\\"1.7622011463466822`*^27\\\", \ -\\\",\\\", \\\"4.4343270407178814`*^27\\\", \\\",\\\", \ -\\\"1.0592979732019165`*^28\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ -RowBox[{\\\"1.2923904709458336`*^27\\\", \\\",\\\", \ -\\\"3.332975444538528`*^27\\\", \\\",\\\", \\\"1.769165835509894`*^27\\\", \\\ -\",\\\", \\\"1.6350093306041047`*^27\\\", \\\",\\\", \ -\\\"1.5714143457236215`*^27\\\", \\\",\\\", \\\"5.128959849654629`*^26\\\", \ -\\\",\\\", \\\"1.1583835253731466`*^27\\\", \\\",\\\", \ -\\\"2.567388765040525`*^27\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"5\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", \ -RowBox[{\\\"{\\\", RowBox[{\\\"1.0592979732019165`*^28\\\", \\\",\\\", \ -\\\"2.567388765040525`*^27\\\", \\\",\\\", \\\"7.725426562417563`*^27\\\", \\\ -\",\\\", \\\"8.7120045810106`*^27\\\", \\\",\\\", \\\"1.3012231179359057`*^28\ -\\\", \\\",\\\", \\\"6.16374656960162`*^27\\\", \\\",\\\", \ -\\\"2.005273050409311`*^28\\\", \\\",\\\", \\\"5.476699019360475`*^28\\\"}], \ -\\\"}\\\"}]}], \\\"}\\\"}]\\) may contain significant numerical errors.\"", 2, - 221, 265, 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{{3.8420693003724623`*^9, 3.842069307508058*^9}, - 3.842069528290135*^9, 3.842077869579063*^9}, - CellLabel-> - "During evaluation of \ -In[221]:=",ExpressionUUID->"6ba43569-cbf1-4d71-9cbd-7fc42ba52d1e"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Eigenvalues", "[", "cov2", "]"}]], "Input", - CellChangeTimes->{{3.84200479379454*^9, 3.842004796305029*^9}}, - CellLabel-> - "In[222]:=",ExpressionUUID->"cba8a0b9-3aa3-4333-8122-e7602067e28b"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - RowBox[{"-", "3.230423071835214`*^-12"}], ",", "1.7919995711342513`*^-13", - ",", "3.8267580218389237`*^-19", ",", "4.7400009481592`*^-20", ",", - "3.418075688967513`*^-27", ",", "3.727422301517766`*^-28", ",", - "2.308402976354898`*^-28", ",", - RowBox[{"-", "3.778365631339311`*^-29"}]}], "}"}]], "Output", - CellChangeTimes->{3.84200479649478*^9, 3.842069310173429*^9, - 3.842069564405438*^9, 3.842077871860488*^9}, - CellLabel-> - "Out[222]=",ExpressionUUID->"5dfe1d42-b9c2-48fd-9216-d7f98b1686a4"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{ - RowBox[{"Total", "[", - RowBox[{"Most", "@", - SuperscriptBox[ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "3", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "4", "]"}], "2"]}], "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "3", "]"}], "]"}]}], "/.", "m21"}]], "Input", - CellChangeTimes->{{3.841826917072412*^9, 3.841826936288608*^9}, { - 3.841826978938397*^9, 3.8418269790096073`*^9}, {3.841995415950396*^9, - 3.841995419862485*^9}, {3.841996644677185*^9, 3.841996645324901*^9}, { - 3.84199692537027*^9, 3.841996925898037*^9}}, - CellLabel->"In[88]:=",ExpressionUUID->"bbab0f46-5630-4e0d-9151-1d8b6f618dd4"], - -Cell[BoxData["8.199876622943114`*^-10"], "Output", - CellChangeTimes->{{3.8418269193329*^9, 3.841826936706436*^9}, - 3.841826979599214*^9, {3.84199541658891*^9, 3.8419954201458*^9}, { - 3.84199663925913*^9, 3.8419966456767406`*^9}, 3.841996926188746*^9, - 3.84206957517971*^9}, - CellLabel->"Out[88]=",ExpressionUUID->"edec1b3d-65eb-4c19-b54f-7e961dd48a14"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"m3", "=", - RowBox[{"annealFit", "[", - RowBox[{ - RowBox[{ - RowBox[{"Join", "[", - RowBox[{"Most", "@", - 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}}, - CellLabel-> - "In[705]:=",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"], - -Cell[CellGroupData[{ - -Cell[BoxData["2.387928280428427`*^-13"], "Print", - CellChangeTimes->{3.8414648601920137`*^9, 3.8414662057577333`*^9, - 3.8414851717359543`*^9, 3.841727635202511*^9, 3.841733773189451*^9, - 3.841735136655308*^9, 3.8418269873850927`*^9, 3.841827274079143*^9, - 3.841827347911943*^9, 3.84199542980134*^9, 3.841996674868339*^9, - 3.841996945518828*^9, 3.842069585784683*^9, 3.8420780093708*^9, - 3.842078735157702*^9, 3.84207929580005*^9, 3.8420793557356167`*^9, - 3.842079522857326*^9, 3.8420795616609783`*^9, 3.842079596365732*^9, - 3.842079769492628*^9, 3.842080509861586*^9, 3.84208056286895*^9, - 3.842081269737405*^9, 3.8420813073689957`*^9, 3.84208136845347*^9}, - CellLabel-> - "During evaluation of \ -In[705]:=",ExpressionUUID->"76cd6c3e-a4fd-4959-9c73-7e63297fc1f0"], - -Cell[BoxData["2.387928280428428`*^-9"], "Print", - CellChangeTimes->{3.8414648601920137`*^9, 3.8414662057577333`*^9, - 3.8414851717359543`*^9, 3.841727635202511*^9, 3.841733773189451*^9, - 3.841735136655308*^9, 3.8418269873850927`*^9, 3.841827274079143*^9, - 3.841827347911943*^9, 3.84199542980134*^9, 3.841996674868339*^9, - 3.841996945518828*^9, 3.842069585784683*^9, 3.8420780093708*^9, - 3.842078735157702*^9, 3.84207929580005*^9, 3.8420793557356167`*^9, - 3.842079522857326*^9, 3.8420795616609783`*^9, 3.842079596365732*^9, - 3.842079769492628*^9, 3.842080509861586*^9, 3.84208056286895*^9, - 3.842081269737405*^9, 3.8420813073689957`*^9, 3.842081368540495*^9}, - CellLabel-> - "During evaluation of \ -In[705]:=",ExpressionUUID->"295f8b37-5b7f-4d24-9e1a-35ef70b97b74"], - -Cell[BoxData["0.000010382052468019348`"], "Print", - CellChangeTimes->{3.8414648601920137`*^9, 3.8414662057577333`*^9, - 3.8414851717359543`*^9, 3.841727635202511*^9, 3.841733773189451*^9, - 3.841735136655308*^9, 3.8418269873850927`*^9, 3.841827274079143*^9, - 3.841827347911943*^9, 3.84199542980134*^9, 3.841996674868339*^9, - 3.841996945518828*^9, 3.842069585784683*^9, 3.8420780093708*^9, - 3.842078735157702*^9, 3.84207929580005*^9, 3.8420793557356167`*^9, - 3.842079522857326*^9, 3.8420795616609783`*^9, 3.842079596365732*^9, - 3.842079769492628*^9, 3.842080509861586*^9, 3.84208056286895*^9, - 3.842081269737405*^9, 3.8420813073689957`*^9, 3.842081368630163*^9}, - CellLabel-> - "During evaluation of \ -In[705]:=",ExpressionUUID->"db514d7c-bfff-4ec7-b794-ece0ede56ace"], - -Cell[BoxData["0.07342437316454359`"], "Print", - CellChangeTimes->{3.8414648601920137`*^9, 3.8414662057577333`*^9, - 3.8414851717359543`*^9, 3.841727635202511*^9, 3.841733773189451*^9, - 3.841735136655308*^9, 3.8418269873850927`*^9, 3.841827274079143*^9, - 3.841827347911943*^9, 3.84199542980134*^9, 3.841996674868339*^9, - 3.841996945518828*^9, 3.842069585784683*^9, 3.8420780093708*^9, - 3.842078735157702*^9, 3.84207929580005*^9, 3.8420793557356167`*^9, - 3.842079522857326*^9, 3.8420795616609783`*^9, 3.842079596365732*^9, - 3.842079769492628*^9, 3.842080509861586*^9, 3.84208056286895*^9, - 3.842081269737405*^9, 3.8420813073689957`*^9, 3.842081368746111*^9}, - CellLabel-> - "During evaluation of \ -In[705]:=",ExpressionUUID->"dc74f80c-bc11-4ac0-a055-fedcbddd7bb9"], - -Cell[BoxData["725.9914248197848`"], "Print", - CellChangeTimes->{3.8414648601920137`*^9, 3.8414662057577333`*^9, - 3.8414851717359543`*^9, 3.841727635202511*^9, 3.841733773189451*^9, - 3.841735136655308*^9, 3.8418269873850927`*^9, 3.841827274079143*^9, - 3.841827347911943*^9, 3.84199542980134*^9, 3.841996674868339*^9, - 3.841996945518828*^9, 3.842069585784683*^9, 3.8420780093708*^9, - 3.842078735157702*^9, 3.84207929580005*^9, 3.8420793557356167`*^9, - 3.842079522857326*^9, 3.8420795616609783`*^9, 3.842079596365732*^9, - 3.842079769492628*^9, 3.842080509861586*^9, 3.84208056286895*^9, - 3.842081269737405*^9, 3.8420813073689957`*^9, 3.842081368848545*^9}, - CellLabel-> - "During evaluation of \ -In[705]:=",ExpressionUUID->"54ab27f6-8246-4dbd-9292-7ad540633f98"] -}, Open ]], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"725.9914248197848`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.472264255629011`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19553640903650252`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.2322394361987974`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2806706731472282`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.36318328194995403`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.1143149948338975`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.003188993400276659`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.02901968481273821`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "1.9470798303017617`*^-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}, - CellLabel-> - "Out[705]=",ExpressionUUID->"850f52c5-d775-481d-8a42-d6b6cad02ff1"] -}, 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[{"2", ",", - RowBox[{"h", "[", "4", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "5", "]"}], "2"]}], "]"}], - "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "4", "]"}], "]"}]}], ",", - 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}}, - CellLabel-> - "In[409]:=",ExpressionUUID->"0355409d-8b8c-45c1-9506-a20c5fe4044b"], - -Cell[BoxData[ - TemplateBox[{ - "FindRoot", "precw", - "\"The precision of the argument function \ -({1000000000000000000000000000000 <<1>> (Divide[-2 <<6>>, Power[Pi, 2] \ -\[Theta]c] + <<3>> - Divide[2 <<6>> (Divide[15 <<4>> (1 + <<4>>), 16 <<3>>] + \ -<<6>>), <<1>>]) + <<7>>, <<7>>}) is less than WorkingPrecision \ -(\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 409, 420, 31641741301462687909, - "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}, - CellLabel-> - "During evaluation of \ -In[409]:=",ExpressionUUID->"a8e408da-491c-41d8-a6b9-e436489dc2e8"], - -Cell[BoxData[ - TemplateBox[{ - "FindRoot", "nlnum", - "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ -\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\ -\\\", RowBox[{\\\"1.6666666666666666`*^14\\\", \\\" \\\", RowBox[{\\\"(\\\", \ -RowBox[{FractionBox[RowBox[{\\\"252.2490091738866`\\\", \\\" \\\", RowBox[{\\\ -\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"9.25825813182315`\\\"}], \\\" \ -\\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\ -\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ -RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ -\\\", \\\"\[RightSkeleton]\\\"}]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\ -\", RowBox[{RowBox[{\\\"10.034728134347144`\\\", \\\"\[VeryThinSpace]\\\"}], \ -\\\"+\\\", RowBox[{\\\"2615.534681962896`\\\", \\\" \\\", \ -RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ -RowBox[{\\\"159.93106776394674`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\ -\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"0.7526551253898892`\\\", \\\" \\\", \ -RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ -RowBox[{\\\"15.328580653635763`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\ -\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"]\\\"}]}], \\\"-\\\", RowBox[{\\\"952.7349874331767`\\\", \\\" \\\", \ -RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \\\")\\\"}]}], \ -SuperscriptBox[RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"1.3553607614885674`\\\", \\\"\[VeryThinSpace]\\\"}], \ -\\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ -\\\"6\\\"]], \\\"-\\\", FractionBox[RowBox[{\\\"46.24302096893161`\\\", \\\" \ -\\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.7980077645559802`\\\", \\\"\ -\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"18\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}]}], \ -\\\")\\\"}], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"10.034728134347144`\\\", \\\"\[VeryThinSpace]\\\"}], \ -\\\"+\\\", RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\ -\[RightSkeleton]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ -\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\ -\[RightSkeleton]\\\"}]}], \\\")\\\"}]}], SuperscriptBox[RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"1.3553607614885674`\\\", \\\"\[VeryThinSpace]\\\"}], \ -\\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ -\\\"7\\\"]], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"9\\\", \\\"\ -\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{RowBox[{\\\"(\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\")\\\"}], \\\" \ -\\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"7.066319394411696`\\\", \\\" \ -\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \ -RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \ -\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ -\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ -\\\"\[RightSkeleton]\\\"}]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"5\\\", \\\"\[RightSkeleton]\\\"}]}], \\\")\\\"}], \\\ -\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \\\"0.18388371`\\\"}], \ -\\\"+\\\", RowBox[{\\\"0.008333333333333333`\\\", \\\" \\\", \ -RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"7.707170161488603`\\\", \\\" \\\", \ -RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \ -\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ -\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\ -\"-\\\", RowBox[{\\\"0.8049071581684973`\\\", \\\" \\\", \ -RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \ -\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\ -\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{RowBox[{\\\"Plus\\\", \\\"[\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"5\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ -\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\ -\"+\\\", RowBox[{RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\ -\\\", \\\"4\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\ -\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ -\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ -RowBox[{\\\"0.6766162461777642`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ -\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ -\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \ -\\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\ -\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \\\")\\\"}]}]}], \ -\\\")\\\"}]}]}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\ -\[RightSkeleton]\\\"}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) is not a list of \ -numbers with dimensions \\!\\(\\*RowBox[{\\\"{\\\", \\\"8\\\", \\\"}\\\"}]\\) \ -at \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"\[Theta]c\\\", \\\",\\\", \\\"\ -\[Theta]0\\\", \\\",\\\", \\\"AH\\\", \\\",\\\", RowBox[{\\\"A\\\", \ -\\\"[\\\", \\\"1\\\", \\\"]\\\"}], \\\",\\\", RowBox[{\\\"A\\\", \\\"[\\\", \ -\\\"2\\\", \\\"]\\\"}], \\\",\\\", RowBox[{\\\"gC\\\", \\\"[\\\", \\\"1\\\", \ -\\\"]\\\"}], \\\",\\\", RowBox[{\\\"gC\\\", \\\"[\\\", \\\"2\\\", \ -\\\"]\\\"}], \\\",\\\", RowBox[{\\\"gC\\\", \\\"[\\\", \\\"3\\\", \ -\\\"]\\\"}]}], \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \ -RowBox[{\\\"1.4671952947018108`\\\", \\\",\\\", \\\"0.19457016430423735`\\\", \ -\\\",\\\", RowBox[{\\\"-\\\", \\\"2.139812761537908`\\\"}], \\\",\\\", \ -\\\"1.1552015129427358`\\\", \\\",\\\", \\\"0.32545791252674666`\\\", \\\",\\\ -\", RowBox[{\\\"-\\\", \\\"0.043595358143656684`\\\"}], \\\",\\\", \ -\\\"0.004727400272887512`\\\", \\\",\\\", RowBox[{\\\"-\\\", \ -\\\"0.0004294418917538953`\\\"}]}], \\\"}\\\"}]\\).\"", 2, 409, 421, - 31641741301462687909, "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.8420797777394*^9}, - CellLabel-> - "During evaluation of \ -In[409]:=",ExpressionUUID->"f32e1169-808f-4e7a-8e18-94d2ea578fbb"], - -Cell[BoxData[ - TemplateBox[{ - "FindRoot", "precw", - "\"The precision of the argument function \ -({1000000000000000000000000000000 <<1>> (Divide[-2 <<6>>, Power[Pi, 2] \ -\[Theta]c] + <<3>> - Divide[2 <<6>> (Divide[15 <<4>> (1 + <<4>>), 16 <<3>>] + \ -<<6>>), <<1>>]) + <<7>>, <<7>>}) is less than WorkingPrecision \ -(\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 409, 422, 31641741301462687909, - "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.842079777912903*^9}, - CellLabel-> - "During evaluation of \ -In[409]:=",ExpressionUUID->"a880e8b2-2093-4b4d-989c-9c4eb4791932"], - -Cell[BoxData["$Aborted"], "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}, - CellLabel-> - "Out[409]=",ExpressionUUID->"32b0c21c-4fe0-4111-b324-fce35fc3def1"] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"cov3", "=", - RowBox[{"fitCov", "[", - RowBox[{ - RowBox[{ - RowBox[{"Most", "@", - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "4", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "5", "]"}]}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "4", "]"}], "]"}]}], ",", "m31"}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.842003556268217*^9, 3.842003574458744*^9}, { - 3.842003613387485*^9, 3.842003621275626*^9}, {3.842003848840043*^9, - 3.8420038643919992`*^9}, {3.8420041190780354`*^9, 3.842004121196991*^9}, { - 3.842004450452117*^9, 3.842004464579197*^9}, {3.842004507220078*^9, - 3.8420045176681633`*^9}, {3.842004562286165*^9, 3.842004584461378*^9}, { - 3.842004629182274*^9, 3.842004645582592*^9}, {3.842004748440856*^9, - 3.842004775096924*^9}, {3.842069284175571*^9, 3.84206931947155*^9}, { - 3.8420696058371563`*^9, 3.8420696355333242`*^9}, {3.8420696838306513`*^9, - 3.842069697694405*^9}, {3.84207803016672*^9, 3.84207803022985*^9}, { - 3.842078778020159*^9, 3.842078781059864*^9}}, - CellLabel-> - "In[314]:=",ExpressionUUID->"8f8cc5f8-51d5-4e0d-9ac6-686492c6ab4e"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Eigenvalues", "[", "cov3", "]"}]], "Input", - CellChangeTimes->{{3.84200479379454*^9, 3.842004796305029*^9}, { - 3.842069630381701*^9, 3.842069630725026*^9}}, - CellLabel-> - "In[315]:=",ExpressionUUID->"bb34f160-5745-4b8c-9aea-78f13ca9d061"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - "1.5849716242393695540138824332360069226406240063425402727721104166268797795\ -9162234`60.*^-16", ",", - RowBox[{ - "-", "1.0651330403039601088216800549255900246031952523750457747479541835666\ -6653382625358`60.*^-16"}], ",", - "2.114642699533618758203770577554359917497901786042394712765600867401577412\ -4836847`60.*^-17", ",", - "1.023244775781508419430524794913506258661198412165202278185433584895372522\ -05724`60.*^-19", ",", - "4.179090570744377930846264593664155022697485951768512481938033550558683929\ -38`60.*^-22", ",", - "1.538495003868480931824241619704452247569826305803690149936792546868832096\ -525605594936`60.*^-31", ",", - "3.713597313167737001715606506373724478861067439864134644283211546626974398\ -04235882404`60.*^-32", ",", - "1.002804126934366521819944524217235639152014225194057513295145872657795543\ -72475190955`60.*^-32", ",", - "6.137561191202087010763219043998792500701997641307469996219237393912123708\ -1518994`60.*^-35"}], "}"}]], "Output", - CellChangeTimes->{3.84200479649478*^9, 3.842069310173429*^9, - 3.842069564405438*^9, 3.842069631089506*^9, 3.8420696627187443`*^9, - 3.842069712977997*^9, 3.842078049009088*^9, 3.842078802834725*^9}, - CellLabel-> - "Out[315]=",ExpressionUUID->"601f157d-85c3-48a5-95fc-2ca295547ea7"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{ - RowBox[{"Total", "[", - RowBox[{"Most", "@", - SuperscriptBox[ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "3", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "5", "]"}], "2"]}], "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "3", "]"}], "]"}]}], "/.", "m31"}]], "Input", - CellChangeTimes->{{3.841827091379568*^9, 3.8418270964598017`*^9}, { - 3.841827308864356*^9, 3.841827310927503*^9}, {3.8419954531271257`*^9, - 3.841995472943472*^9}, {3.842079279365378*^9, 3.842079281132698*^9}, { - 3.8420793125178623`*^9, 3.842079315189137*^9}}, - CellLabel-> - "In[355]:=",ExpressionUUID->"db5637ef-5db6-417e-aa71-a7604e24c6ef"], - -Cell[BoxData["1.7915283539988777`*^-9"], "Output", - CellChangeTimes->{ - 3.841827096965208*^9, 3.841827311458522*^9, {3.841995453987759*^9, - 3.8419954736951323`*^9}, 3.842078053758122*^9, {3.842079274211137*^9, - 3.84207928187488*^9}, 3.842079316258065*^9}, - CellLabel-> - "Out[355]=",ExpressionUUID->"f4a0c326-bcce-48a7-b6b6-0adc5e1117d9"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"m4", "=", - RowBox[{"annealFit", "[", - RowBox[{ - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{"Most", "@", - RowBox[{ - RowBox[{"res", "[", - RowBox[{"4", ",", - RowBox[{"h", "[", "4", "]"}], ",", "\[Delta]"}], "]"}], "[", "6", - "]"}]}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "4", "]"}], "]"}]}], ",", - RowBox[{"Table", "[", - RowBox[{ - RowBox[{ - RowBox[{"gC", "[", "i", "]"}], - SuperscriptBox[ - RowBox[{"(", - RowBox[{"i", "!"}], ")"}], "2"]}], ",", - RowBox[{"{", - RowBox[{"i", ",", "1", ",", "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}}, - CellLabel-> - "In[729]:=",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"], - -Cell[CellGroupData[{ - -Cell[BoxData["0.075525948159603`"], "Print", - CellChangeTimes->{3.8420814291640177`*^9, 3.842081710602597*^9}, - CellLabel-> - "During evaluation of \ -In[729]:=",ExpressionUUID->"1cc722dd-0661-43d8-9ed2-b5a9da0121a5"], - -Cell[BoxData["0.6559582772029767`"], "Print", - CellChangeTimes->{3.8420814291640177`*^9, 3.842081710950465*^9}, - CellLabel-> - "During evaluation of \ -In[729]:=",ExpressionUUID->"6db4e008-6acc-4de3-b085-c5815d72123f"] -}, Open ]], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.1281442277961205`*^-307\ -\\\"}]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 729, 694, 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.842081716498714*^9}, - CellLabel-> - "During evaluation of \ -In[729]:=",ExpressionUUID->"5dbb837d-148c-4d61-884d-3cf82071a482"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \ -\\\"1.862383206170826`*^-307\\\"}]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 729, 695, - 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.8420817175052853`*^9}, - CellLabel-> - "During evaluation of \ -In[729]:=",ExpressionUUID->"ba5e36a7-9bde-423d-9781-1367cdeef641"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \ -\\\"5.640721138980603`*^-308\\\"}]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 729, 696, - 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.8420817185065403`*^9}, - CellLabel-> - "During evaluation of \ -In[729]:=",ExpressionUUID->"1b499df4-74aa-4cf6-9683-305e74be18ac"], - -Cell[BoxData[ - TemplateBox[{ - "General", "stop", - "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ -\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 729, 697, 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.842081719507819*^9}, - CellLabel-> - "During evaluation of \ -In[729]:=",ExpressionUUID->"e1931c33-f8ff-4df1-85df-ca8a1b6d75f6"], - -Cell[CellGroupData[{ - -Cell[BoxData["0.07581399096189172`"], "Print", - CellChangeTimes->{3.8420814291640177`*^9, 3.8420817197561502`*^9}, - CellLabel-> - "During evaluation of \ -In[729]:=",ExpressionUUID->"2d01766e-b294-4653-a2a6-46243985a459"], - -Cell[BoxData["0.0787441101655384`"], "Print", - CellChangeTimes->{3.8420814291640177`*^9, 3.842081719900365*^9}, - CellLabel-> - "During evaluation of \ -In[729]:=",ExpressionUUID->"f5bccbb6-1fbe-4f47-9bef-0ccdc85b6856"], - -Cell[BoxData["29.10059980618554`"], "Print", - CellChangeTimes->{3.8420814291640177`*^9, 3.8420817200448217`*^9}, - CellLabel-> - "During evaluation of \ -In[729]:=",ExpressionUUID->"fadc5272-339f-4608-b67e-333e755b68c3"] -}, Open ]], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"29.10059980618554`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4312778835749929`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19732509117254304`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.4028295871884646`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5156336401002357`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.40214832523324057`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.19988091334200161`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.022538008578838246`"}], - ",", - RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.0903860977178859`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.0039041225298240044`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.0001528446348693018`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.015177066141364`"}]}], - "}"}]}], "}"}]], "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}, - CellLabel-> - "Out[729]=",ExpressionUUID->"3031a478-69cf-42dd-add2-43fc87d99397"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"m41", "=", - RowBox[{"FindRoot", "[", - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{"D", "[", - RowBox[{ - RowBox[{ - RowBox[{"Total", "[", - RowBox[{"Most", "@", - SuperscriptBox[ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "6", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "]"}], "2"]}], "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "6", "]"}], "]"}]}], ",", - 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},ExpressionUUID->"05fba3a3-cdb1-4967-ac49-\ -78ffed60b2dc"], - -Cell[BoxData[ - TemplateBox[{ - "FindRoot", "precw", - "\"The precision of the argument function ({<<285525160 bytes>>}) is less \ -than WorkingPrecision (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 330, 344, - 31641741301462687909, "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.841827366949621*^9, 3.8418276818272257`*^9, - 3.84199559465702*^9, 3.8420698791427593`*^9, 3.8420701963294992`*^9, { - 3.8420789974661207`*^9, 3.842079009833984*^9}}, - CellLabel-> - "During evaluation of \ -In[330]:=",ExpressionUUID->"91873ce0-54c0-46c8-820a-80bb260ac12a"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - RowBox[{ - "\[Theta]c", "\[Rule]", "1.42939430660712984583678321019347964462`20."}], - ",", - RowBox[{ - "\[Theta]0", "\[Rule]", "0.19759542622308503143155315268328090472`20."}], - ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.30858539611460903453933351102687724466`20."}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", - "1.38135113976130435835703061790979212939`20."}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", - "0.30850601359954215658601438646865061628`20."}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.08884557760153220504393773376104732284`20."}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - "0.0263219626371513248187684455613865908`20."}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.0057505289876997296605557877751477159`20."}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.00030016858115051391303258338060090697`20."}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - "0.0004421161481252421504834923312455273`20."}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", - RowBox[{"-", "0.00006622610232173892740561239759450487`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}, - CellLabel-> - "Out[330]=",ExpressionUUID->"cea4572e-6a77-4824-9860-0f4ae84f6eff"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"cov4", "=", - RowBox[{"fitCov", "[", - RowBox[{ - RowBox[{ - RowBox[{"Most", "@", - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "5", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], "]"}], "[", "6", "]"}]}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "5", "]"}], "]"}]}], ",", "m41"}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.842003556268217*^9, 3.842003574458744*^9}, { - 3.842003613387485*^9, 3.842003621275626*^9}, {3.842003848840043*^9, - 3.8420038643919992`*^9}, {3.8420041190780354`*^9, 3.842004121196991*^9}, { - 3.842004450452117*^9, 3.842004464579197*^9}, {3.842004507220078*^9, - 3.8420045176681633`*^9}, {3.842004562286165*^9, 3.842004584461378*^9}, { - 3.842004629182274*^9, 3.842004645582592*^9}, {3.842004748440856*^9, - 3.842004775096924*^9}, {3.842069284175571*^9, 3.84206931947155*^9}, { - 3.8420696058371563`*^9, 3.8420696355333242`*^9}, {3.8420696838306513`*^9, - 3.842069697694405*^9}, {3.8420698638255777`*^9, 3.842069877409816*^9}, { - 3.84207020030344*^9, 3.842070200719542*^9}}, - CellLabel-> - "In[331]:=",ExpressionUUID->"2eaa6819-866a-4b8d-af81-f5a819bfb53b"], - -Cell[BoxData[ - TemplateBox[{ - "Inverse", "sing", - "\"Matrix \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \ -RowBox[{\\\"3.90537836598697542184599552`60.*^27\\\", \\\",\\\", \ -\\\"1.21407757304491654841892864`60.*^27\\\", \\\",\\\", \ -\\\"3.102815550668907353915523072`60.*^27\\\", \\\",\\\", \ -\\\"3.47184832375979988563787776`60.*^27\\\", \\\",\\\", \ -\\\"5.263252148853968738937995264`60.*^27\\\", \\\",\\\", \ -\\\"2.131349804755593403979268096`60.*^27\\\", \\\",\\\", \ -\\\"6.17000870298589683072892928`60.*^27\\\", \\\",\\\", \ -\\\"1.6315334618790885250142568448`60.*^28\\\", \\\",\\\", \ -\\\"4.09130220290842244008640512`60.*^28\\\", \\\",\\\", \ -\\\"9.907541864121657070429667328`60.*^28\\\", \\\",\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}], \\\ -\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"9\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ -\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) is singular.\"", 2, 331, - 345, 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{{3.8420693003724623`*^9, 3.842069307508058*^9}, - 3.842069528290135*^9, 3.8420696280368977`*^9, 3.8420696614345512`*^9, - 3.842069712930028*^9, 3.8420699776463957`*^9, 3.84207031897926*^9, - 3.842079153368966*^9}, - CellLabel-> - "During evaluation of \ -In[331]:=",ExpressionUUID->"0eccf485-37e5-4032-93ca-ec5f8d761898"], - -Cell[BoxData[ - TemplateBox[{ - "TensorTranspose", "symmperm", - "\"Invalid permutation or symmetry generator \\!\\(\\*RowBox[{\\\"{\\\", \ -RowBox[{RowBox[{\\\"Cycles\\\", \\\"[\\\", RowBox[{\\\"{\\\", \\\"}\\\"}], \\\ -\"]\\\"}], \\\",\\\", \\\"2\\\"}], \\\"}\\\"}]\\).\"", 2, 331, 346, - 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{{3.8420693003724623`*^9, 3.842069307508058*^9}, - 3.842069528290135*^9, 3.8420696280368977`*^9, 3.8420696614345512`*^9, - 3.842069712930028*^9, 3.8420699776463957`*^9, 3.84207031897926*^9, - 3.842079153379635*^9}, - CellLabel-> - "During evaluation of \ -In[331]:=",ExpressionUUID->"3a340bbf-3691-4a32-a639-43b1cb496d4b"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{ - RowBox[{"Total", "[", - RowBox[{"Most", "@", - SuperscriptBox[ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "5", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "6", "]"}], "2"]}], "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "5", "]"}], "]"}]}], "/.", "m41"}]], "Input", - CellChangeTimes->{{3.841827810752561*^9, 3.841827812064506*^9}, { - 3.84199560027389*^9, 3.841995600809766*^9}}, - CellLabel-> - "In[113]:=",ExpressionUUID->"95183f9d-14a9-49a1-839d-4444c8816906"], - -Cell[BoxData["539.0750104142268`"], "Output", - CellChangeTimes->{3.84182781294737*^9, 3.8419956716899233`*^9}, - CellLabel-> - "Out[113]=",ExpressionUUID->"12e1a994-ab05-4127-8c67-c64bc0481031"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"m5", "=", - RowBox[{"annealFit", "[", - RowBox[{ - RowBox[{ - RowBox[{"Most", "@", - RowBox[{ - RowBox[{"res", "[", - RowBox[{"4", ",", - RowBox[{"h", "[", "5", "]"}], ",", "\[Delta]"}], "]"}], "[", "7", - "]"}]}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "5", "]"}], "]"}]}], ",", "\[Delta]", ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{"m4", "[", - RowBox[{"[", "2", "]"}], "]"}], ",", - RowBox[{"{", "}"}]}], "]"}]}], "]"}]}]], "Input", - CellChangeTimes->CompressedData[" -1:eJwdxVkow3EAB/AZzZXSbInJWPLkWO4YmmyOudK25oFQVmpGmll58CCTskwp -eXDkKJTmSsyRpE2Nohjl2JCo/bViTa0cv+8ePn0SWzvr2+g0Gi2ewNyxXsvo -NCVM/qPOsPbh1oGz3cYnrB5mvmEmo+kd7xQkeXEe1/GNX7YNaUYyq5nFx/qu -O5OZnHL1vIGPh+1OzFj/9V9s7y/bIy+JDZX4k3UgdpLDlD3l2CrX6TFbxhnC -hYbrGXz34fNvfxXtPpNdonAzPqdrjvB4pO0Er7J1qsAZSmjp03Tge96mIIgc -EispxJ6nugrcLJ6oxrbVDilObVTIsGXysjSCfOpWiXGWfHp2gGz9ipnHRb6q -BT054+bRPzVXXzNEbp+KqsVbceYGfJPpaMSmxW3jFjnUsTKGo6+lO/ikd38X -548fahmzlFDVYvNvvig14RFXwBp+UbO5weQw+mACVkZnl+GSKJkEazkCTzr5 -NTfHi7uXf+R8cqWPp8D/yyYCcQ== - "], - CellLabel-> - "In[718]:=",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.4658541919328716`*^-307\ -\\\"}]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 718, 683, 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.84199743256188*^9, 3.842080733370126*^9, - 3.842081527808547*^9}, - CellLabel-> - "During evaluation of \ -In[718]:=",ExpressionUUID->"5b0a31b1-0147-4c6b-8c71-77e8d16a3fe0"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \ -\\\"7.329270959664358`*^-308\\\"}]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 718, 684, - 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.84199743256188*^9, 3.842080733370126*^9, - 3.842081528818989*^9}, - CellLabel-> - "During evaluation of \ -In[718]:=",ExpressionUUID->"c7b8c0bc-4211-4848-8c36-3dde2258f6ab"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \ -\\\"1.209312973093438`*^-307\\\"}]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 718, 685, - 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.84199743256188*^9, 3.842080733370126*^9, - 3.842081529830113*^9}, - CellLabel-> - "During evaluation of \ -In[718]:=",ExpressionUUID->"98869ba0-354d-4f3a-83b1-2e3506a2dc77"], - -Cell[BoxData[ - TemplateBox[{ - "General", "stop", - "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ -\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 718, 686, 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.84199743256188*^9, 3.842080733370126*^9, - 3.842081530831411*^9}, - CellLabel-> - "During evaluation of \ -In[718]:=",ExpressionUUID->"741c2835-6f2b-4d3e-ad9a-43338ec14bae"], - -Cell[BoxData["1.300043772695784`"], "Print", - CellChangeTimes->{3.8419974359052467`*^9, 3.8420807368639727`*^9, - 3.842081531403545*^9}, - CellLabel-> - "During evaluation of \ -In[718]:=",ExpressionUUID->"42357edc-9ab2-4f72-958b-df58546276b5"], - -Cell[BoxData[ - TemplateBox[{ - "CompiledFunction", "cfn", - "\"Numerical error encountered at instruction \ -\\!\\(\\*RowBox[{\\\"246\\\"}]\\); proceeding with uncompiled evaluation.\"", - 2, 718, 687, 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.84199743256188*^9, 3.842080733370126*^9, - 3.842081540925908*^9}, - CellLabel-> - "During evaluation of \ -In[718]:=",ExpressionUUID->"3cecf403-7c75-47bf-89f5-b852f5629786"], - -Cell[CellGroupData[{ - -Cell[BoxData["4058.1674030131294`"], "Print", - CellChangeTimes->{3.8419974359052467`*^9, 3.8420807368639727`*^9, - 3.8420815474157667`*^9}, - CellLabel-> - "During evaluation of \ -In[718]:=",ExpressionUUID->"ce671eaa-753d-4558-9b0f-49e9a27c349b"], - -Cell[BoxData["0.0001651253458422503`"], "Print", - CellChangeTimes->{3.8419974359052467`*^9, 3.8420807368639727`*^9, - 3.842081565131521*^9}, - CellLabel-> - "During evaluation of \ -In[718]:=",ExpressionUUID->"7273914d-e0db-4df1-b671-1354048e6b63"], - -Cell[BoxData["0.0054670786251654994`"], "Print", - CellChangeTimes->{3.8419974359052467`*^9, 3.8420807368639727`*^9, - 3.842081565490107*^9}, - CellLabel-> - "During evaluation of \ -In[718]:=",ExpressionUUID->"ee0d1163-5db0-4416-aee1-ce8ba2780c0b"], - -Cell[BoxData["53.01109667439369`"], "Print", - CellChangeTimes->{3.8419974359052467`*^9, 3.8420807368639727`*^9, - 3.8420815658374443`*^9}, - CellLabel-> - "During evaluation of \ -In[718]:=",ExpressionUUID->"67e8fb8b-b447-4416-a0ac-8c428a22e9da"] -}, Open ]], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"53.01109667439369`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3164773519677373`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19674024733498047`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.5087259682394336`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6699087235507812`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5627107775357804`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.25692856750569926`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.03954968217627526`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.14542105248902384`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.004710498723172338`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0015928662945959684`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.00040768830051065327`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.0037291339270268315`"}]}], - "}"}]}], "}"}]], "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}, - CellLabel-> - "Out[718]=",ExpressionUUID->"14770430-141b-4626-8333-163b114c5340"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "6", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "7", "]"}], "//", - "Length"}]], "Input", - CellChangeTimes->{{3.841828274864975*^9, 3.841828276177104*^9}}, - CellLabel-> - "In[173]:=",ExpressionUUID->"17f91843-8956-4f81-b1e8-d44b6a7d9eb0"], - -Cell[BoxData["13"], "Output", - CellChangeTimes->{3.841828276614294*^9}, - CellLabel-> - "Out[173]=",ExpressionUUID->"47bd5d48-5e3c-4239-aeb3-925830a4d4ee"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"m5", "[", - RowBox[{"[", "2", "]"}], "]"}], "//", "Length"}]], "Input", - CellChangeTimes->{{3.841828279530572*^9, 3.841828281457172*^9}}, - CellLabel-> - "In[174]:=",ExpressionUUID->"e5e0d48d-1b36-449f-a213-47b0b8f5a51a"], - -Cell[BoxData["11"], "Output", - CellChangeTimes->{3.841828281622363*^9}, - CellLabel-> - "Out[174]=",ExpressionUUID->"b9b6d78e-1395-494a-9d59-1adb52d2e1c5"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"m51", "=", - RowBox[{"FindRoot", "[", - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{"D", "[", - RowBox[{ - RowBox[{ - RowBox[{"Total", "[", - SuperscriptBox[ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "7", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "7", "]"}], "2"], "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "7", "]"}], "]"}]}], ",", - 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}},ExpressionUUID->"d76e85cc-6ecb-4d98-b567-\ -57b256fbb910"], - -Cell[BoxData[ - TemplateBox[{ - "FindRoot", "precw", - "\"The precision of the argument function ({<<694195360 bytes>>}) is less \ -than WorkingPrecision (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 234, 179, - 31641252845358461867, "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.841827366949621*^9, 3.8418276818272257`*^9, - 3.8418281038913*^9, 3.8418284270510178`*^9, 3.841995894640788*^9, - 3.841996150479692*^9, 3.841996267313401*^9, 3.841997134669332*^9}, - CellLabel-> - "During evaluation of \ -In[234]:=",ExpressionUUID->"175fdfae-18d1-4457-aa55-c870b6da50e3"], - -Cell[BoxData[ - TemplateBox[{ - "FindRoot", "lstol", - "\"The line search decreased the step size to within tolerance specified \ -by AccuracyGoal and PrecisionGoal but was unable to find a sufficient \ -decrease in the merit function. You may need more than \ -\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\) digits of working precision to meet these \ -tolerances.\"", 2, 234, 180, 31641252845358461867, "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.841827366949621*^9, 3.8418276818272257`*^9, - 3.8418281038913*^9, 3.8418284270510178`*^9, 3.841995894640788*^9, - 3.841996150479692*^9, 3.841996267313401*^9, 3.84199727289795*^9}, - CellLabel-> - "During evaluation of \ -In[234]:=",ExpressionUUID->"f2c58cd8-5d0a-4e2b-be83-442b509d25f4"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - RowBox[{ - "\[Theta]c", "\[Rule]", "1.42008555446741263567177074149118077764`20."}], - ",", - RowBox[{ - "\[Theta]0", "\[Rule]", "0.19820209948293445086352462252086115699`20."}], - ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.44625506206449284445711231081422546021`20."}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", - "1.5741615351149518036319399036224367047`20."}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", - "0.27738017368715762197045361032876031524`20."}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.17346968249318400380426496212342946842`20."}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - "0.13238062753409191956275387052212390878`20."}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.1057754994175690134187923048570828925`20."}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - "0.05791358962448711707982481403259859206`20."}], ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.01967138474661253931127129750271063706`20."}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", - "0.0037353392648868206321241483308207533`20."}], ",", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "\[Rule]", - RowBox[{"-", "0.00030359903581788499578991824291347732`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}, - CellLabel-> - "Out[234]=",ExpressionUUID->"131bca88-c755-43c5-b416-18a9bd9854f6"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{ - RowBox[{"Total", "[", - RowBox[{"Most", "@", - SuperscriptBox[ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "7", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "7", "]"}], "2"]}], "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "7", "]"}], "]"}]}], "/.", "m51"}]], "Input", - CellChangeTimes->{{3.841828235056446*^9, 3.841828236024247*^9}, { - 3.8418284280679817`*^9, 3.8418284318836603`*^9}, {3.8419961190031757`*^9, - 3.841996124843244*^9}, {3.8419973280981216`*^9, 3.84199732852144*^9}}, - CellLabel-> - "In[236]:=",ExpressionUUID->"a65b95cb-3d7a-457b-baa4-3dfcacab2a82"], - -Cell[BoxData["3.838922426094726`"], "Output", - CellChangeTimes->{ - 3.841828237813458*^9, 3.841828565499898*^9, {3.8419961211792307`*^9, - 3.841996126594369*^9}, {3.841997324201659*^9, 3.841997330189872*^9}}, - CellLabel-> - "Out[236]=",ExpressionUUID->"ca8f15d4-0701-43b7-826f-81e998eb533e"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"m6", "=", - RowBox[{"annealFit", "[", - RowBox[{ - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{"Most", "@", - RowBox[{ - RowBox[{"res", "[", - RowBox[{"5", ",", - RowBox[{"h", "[", "6", "]"}], ",", "\[Delta]"}], "]"}], "[", "8", - "]"}]}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "6", "]"}], "]"}]}], ",", - RowBox[{"Table", "[", - RowBox[{ - RowBox[{ - RowBox[{"gC", "[", "i", "]"}], - RowBox[{"(", - RowBox[{"i", "!"}], ")"}]}], ",", - RowBox[{"{", - RowBox[{"i", ",", "1", ",", "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:eJwdz01I2nEAxnGpbEwLhrO21cEGkrVZ2mAQhEWUbtQYo1g02IYKkw5p7TWZ -RAVmeZD+guIOUrqxN3bQwl7mmGwuMpo7KJtEUvlCZekYtLC2Rev3/A8Pn+OX -57yyp+1eDoPB4JNBnrlvYWw801j+PxOET1aX1+HlX1QcaoycLcjJv5uCc3X8 -LKzlre/D5IypmiJy5VwxNPRGXV6i8HtiCvqNkRjMnzyibYgMXPlAfCMztcBd -7kdZjMhSPb4KAx1aAyy6WToCJaYfEzD68y9tZEP6PkFMS9le+C3n0SdoOfV1 -Hq5Q4ukkkbl2idY9ds4Ly/4M+GBM9nowd4L8PJsdgrprtxR5RPvhdSUsNkce -QE8d6yHsCuXqYSVTQlvvCn+Gb91DftgscloKiEuJ57T20WfsQqI5XFEAlTWy -Tihs0dKeSTo39cSS3rwUbHupZw0TTzal2TATbhJBAVMkhhfT96cN6DbM0lp0 -rhCUX/gShna7VT1C3BFSGlhj64l50BMuxmFtqyIFWynbNhREA7dPODKNfNXe -HRh8dfq3iHjDU0ZbZX3RLSaa/vnUMOvvfwq10nYd9Lnj4/DgncABjwH3VjhM - - "], - CellLabel-> - "In[751]:=",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.8862120135138032`*^-307\ -\\\"}]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 751, 710, 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.841829215087719*^9, 3.841997708933385*^9, - 3.84208185991401*^9, 3.842082154903194*^9}, - CellLabel-> - "During evaluation of \ -In[751]:=",ExpressionUUID->"7022a1c2-cb5c-4ed6-aedf-2be4e100d2c2"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"2.1050413386526948`*^-307\ -\\\"}]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 751, 711, 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.841829215087719*^9, 3.841997708933385*^9, - 3.84208185991401*^9, 3.842082155923115*^9}, - CellLabel-> - "During evaluation of \ -In[751]:=",ExpressionUUID->"5ba58f54-0c40-4b49-91c2-0fd5f3844bbd"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \ -\\\"9.431060067569016`*^-308\\\"}]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 751, 712, - 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.841829215087719*^9, 3.841997708933385*^9, - 3.84208185991401*^9, 3.842082156924309*^9}, - CellLabel-> - "During evaluation of \ -In[751]:=",ExpressionUUID->"ecac759d-6cb0-4dc2-aeac-47c178646a12"], - -Cell[BoxData[ - TemplateBox[{ - "General", "stop", - "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ -\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 751, 713, 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.841829215087719*^9, 3.841997708933385*^9, - 3.84208185991401*^9, 3.842082157925557*^9}, - CellLabel-> - "During evaluation of \ -In[751]:=",ExpressionUUID->"99b3ad8d-d501-4d2c-b5c7-95a58da32861"], - -Cell[BoxData["2.6390882544034686`"], "Print", - CellChangeTimes->{3.8418292198877277`*^9, 3.841997712748024*^9, - 3.8420818440330753`*^9, 3.842082158658132*^9}, - CellLabel-> - "During evaluation of \ -In[751]:=",ExpressionUUID->"7e287192-653e-4602-a480-351190844d50"], - -Cell[BoxData[ - TemplateBox[{ - "CompiledFunction", "cfne", - "\"Numerical error encountered; proceeding with uncompiled evaluation.\"", - 2, 751, 714, 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.841829215087719*^9, 3.841997708933385*^9, - 3.84208185991401*^9, 3.842082174573023*^9}, - CellLabel-> - "During evaluation of \ -In[751]:=",ExpressionUUID->"aa0c05da-cd9f-4901-b218-dd2e6c72f897"], - -Cell[BoxData[ - TemplateBox[{ - "CompiledFunction", "cfn", - "\"Numerical error encountered at instruction \ -\\!\\(\\*RowBox[{\\\"275\\\"}]\\); proceeding with uncompiled evaluation.\"", - 2, 751, 715, 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.841829215087719*^9, 3.841997708933385*^9, - 3.84208185991401*^9, 3.8420821895892963`*^9}, - CellLabel-> - "During evaluation of \ -In[751]:=",ExpressionUUID->"aefcd4e1-0ad9-41dc-8d9f-cecf959c8248"], - -Cell[CellGroupData[{ - -Cell[BoxData["58.36189484334191`"], "Print", - CellChangeTimes->{3.8418292198877277`*^9, 3.841997712748024*^9, - 3.8420818440330753`*^9, 3.8420822389568*^9}, - CellLabel-> - "During evaluation of \ -In[751]:=",ExpressionUUID->"d624a023-7f0f-4e91-8f3f-60d7bf738292"], - -Cell[BoxData["58.32511543904032`"], "Print", - CellChangeTimes->{3.8418292198877277`*^9, 3.841997712748024*^9, - 3.8420818440330753`*^9, 3.842082269968614*^9}, - CellLabel-> - "During evaluation of \ -In[751]:=",ExpressionUUID->"983aeed7-3c0b-4341-a483-0f2e86f19547"], - -Cell[BoxData["58.60750446923504`"], "Print", - CellChangeTimes->{3.8418292198877277`*^9, 3.841997712748024*^9, - 3.8420818440330753`*^9, 3.842082273035759*^9}, - CellLabel-> - "During evaluation of \ -In[751]:=",ExpressionUUID->"52534976-7bf6-4a65-a8a7-38bcbdf1be65"], - -Cell[BoxData["2272.734589158684`"], "Print", - CellChangeTimes->{3.8418292198877277`*^9, 3.841997712748024*^9, - 3.8420818440330753`*^9, 3.842082274272003*^9}, - CellLabel-> - "During evaluation of \ -In[751]:=",ExpressionUUID->"89ae812f-91c5-4c6e-87c6-de4b31b17e48"] -}, Open ]] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"m6", "=", - RowBox[{"{", - RowBox[{"2272.734589158684`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3053061442708302`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19663560107595623`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.5368261599243653`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.7108160252330362`"}], ",", - - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5926167832063681`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.2812358144995081`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.04198949750026452`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.17345114501721076`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.0065596668614836505`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.004317004580958006`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.0014157584142083521`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.006658268409302458`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00012139778301924035`"}], - ",", - RowBox[{ - RowBox[{"A", "[", "5", "]"}], "\[Rule]", "0.0009751352780293256`"}]}], - "}"}]}], "}"}]}]], "Input", - CellChangeTimes->{{3.8420853047553797`*^9, 3.842085305299364*^9}}, - CellLabel->"In[5]:=",ExpressionUUID->"7c2fae36-9969-45c8-be00-c728dc79c64c"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"2272.734589158684`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3053061442708302`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19663560107595623`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.5368261599243653`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.7108160252330362`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5926167832063681`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.2812358144995081`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.04198949750026452`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.17345114501721076`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.0065596668614836505`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.004317004580958006`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.0014157584142083521`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.006658268409302458`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00012139778301924035`"}], - ",", - RowBox[{ - RowBox[{"A", "[", "5", "]"}], "\[Rule]", "0.0009751352780293256`"}]}], - "}"}]}], "}"}]], "Output", - CellChangeTimes->{3.842085305613484*^9}, - CellLabel->"Out[5]=",ExpressionUUID->"d5ad0fbd-caf6-48b3-984e-33816913a7c3"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"m61", "=", - RowBox[{"FindRoot", "[", - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{"D", "[", - RowBox[{ - RowBox[{ - RowBox[{"Total", "[", - SuperscriptBox[ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "9", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "8", "]"}], "2"], "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "9", "]"}], "]"}]}], ",", - 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}}, - CellLabel-> - "In[222]:=",ExpressionUUID->"c58535c6-e2cc-4022-b4ee-6e96bd40636a"], - -Cell[BoxData[ - TemplateBox[{ - "FindRoot", "precw", - "\"The precision of the argument function ({<<2653161352 bytes>>}) is less \ -than WorkingPrecision (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 222, 200, - 31640151626685725371, "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.841827366949621*^9, 3.8418276818272257`*^9, - 3.8418281038913*^9, 3.8418284270510178`*^9, 3.841829536005509*^9}, - CellLabel-> - "During evaluation of \ -In[222]:=",ExpressionUUID->"5f9bd29b-8eb0-4a32-ae66-82cfd8da388b"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - RowBox[{ - "\[Theta]c", "\[Rule]", "1.43530233934454397413388179448288836447`20."}], - ",", - RowBox[{ - "\[Theta]0", "\[Rule]", "0.19810750318155021038673820669390491876`20."}], - ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.41414511046370388475665774891550873252`20."}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", - "1.52847855623586235679877311886711223981`20."}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", - "0.27757284310796637050651370448598242267`20."}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.15981661117010678741660435302753868935`20."}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - "0.11177842476054524419979561862157555507`20."}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.08669227551449891552591646797933627525`20."}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - "0.04824102761320677502254090347737312691`20."}], ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.0176349451257987009895638859592901342`20."}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", - "0.00402666598994386666996800804063142797`20."}], ",", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "\[Rule]", - RowBox[{"-", "0.00054217628283006627899467793224584737`20."}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "8", "]"}], "\[Rule]", - "0.00004156753418433903738874902433439589`20."}], ",", - RowBox[{ - RowBox[{"gC", "[", "9", "]"}], "\[Rule]", - RowBox[{"-", "1.95691831298995994482716687098716`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.841827625662114*^9, - 3.841827712512493*^9, 3.841828205721519*^9, 3.841828563871601*^9, - 3.8418302295796003`*^9}, - CellLabel-> - "Out[222]=",ExpressionUUID->"8ef30ce7-91ad-4cb6-8ff5-0b797be59053"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{ - RowBox[{"Total", "[", - SuperscriptBox[ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "9", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "8", "]"}], "2"], "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "9", "]"}], "]"}]}], "/.", "m61"}]], "Input", - CellChangeTimes->{{3.8418295433118*^9, 3.8418295443598213`*^9}}, - CellLabel-> - "In[223]:=",ExpressionUUID->"7f30ad07-05ba-4e34-952b-ca6f21b02e96"], - -Cell[BoxData["143.3716391810322`"], "Output", - CellChangeTimes->{3.841830234134746*^9}, - CellLabel-> - "Out[223]=",ExpressionUUID->"f51249ff-f932-482f-9bc1-b30044e4e4b1"] -}, 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->"In[6]:=",ExpressionUUID->"200b94d3-7cab-4649-99f3-c2558b1a5011"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.4325296632774505`*^-307\ -\\\"}]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 6, 1, 31641848649737364005, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.841829215087719*^9, 3.84208234137315*^9, - 3.842082910442643*^9, 3.8420856679427547`*^9}, - CellLabel-> - "During evaluation of \ -In[6]:=",ExpressionUUID->"2615180a-f646-41b8-96fe-8e684692f56b"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.5875503329372965`*^-307\ -\\\"}]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 6, 2, 31641848649737364005, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.841829215087719*^9, 3.84208234137315*^9, - 3.842082910442643*^9, 3.8420856689939203`*^9}, - CellLabel-> - "During evaluation of \ -In[6]:=",ExpressionUUID->"a1f65287-1cb7-4001-8046-d8a23e15172e"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \ -\\\"7.162648316387252`*^-308\\\"}]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 6, 3, - 31641848649737364005, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.841829215087719*^9, 3.84208234137315*^9, - 3.842082910442643*^9, 3.842085669994464*^9}, - CellLabel-> - "During evaluation of \ -In[6]:=",ExpressionUUID->"ec64abf9-ad4f-45cd-99e4-70431b11d26b"], - -Cell[BoxData[ - TemplateBox[{ - "General", "stop", - "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ -\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 6, 4, 31641848649737364005, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.841829215087719*^9, 3.84208234137315*^9, - 3.842082910442643*^9, 3.842085671001289*^9}, - CellLabel-> - "During evaluation of \ -In[6]:=",ExpressionUUID->"5bd1676a-a15f-4aae-9cbb-c102f0f95532"], - -Cell[CellGroupData[{ - -Cell[BoxData["1.0811038199964305`"], "Print", - CellChangeTimes->{3.8420827819536448`*^9, 3.842085674056548*^9}, - CellLabel-> - "During evaluation of \ -In[6]:=",ExpressionUUID->"7ed5d548-514d-4fe8-8b78-512914799352"], - -Cell[BoxData["1179.5860449106412`"], "Print", - CellChangeTimes->{3.8420827819536448`*^9, 3.842085786738756*^9}, - CellLabel-> - "During evaluation of \ -In[6]:=",ExpressionUUID->"b2af9369-9d8f-431e-9030-76bb4380fee7"], - -Cell[BoxData["9908.552958543973`"], "Print", - CellChangeTimes->{3.8420827819536448`*^9, 3.842085904865103*^9}, - CellLabel-> - "During evaluation of \ -In[6]:=",ExpressionUUID->"675faf5b-4311-49e7-8b1a-fcd3f0834ef9"], - -Cell[BoxData["9908.935963790944`"], "Print", - CellChangeTimes->{3.8420827819536448`*^9, 3.8420859345720253`*^9}, - CellLabel-> - "During evaluation of \ -In[6]:=",ExpressionUUID->"c0034a53-fdfc-421f-8cf9-a66d01740b1a"], - -Cell[BoxData["9915.268939821786`"], "Print", - CellChangeTimes->{3.8420827819536448`*^9, 3.842085937665681*^9}, - CellLabel-> - "During evaluation of \ -In[6]:=",ExpressionUUID->"a759c179-7c48-4826-8457-6fda0b49f576"] -}, Open ]], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"9915.268939821786`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.314217918104849`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19665388241742326`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.535615002952812`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.7089312231797729`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5879200594237792`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.2864227132551715`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.038291151408117945`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.17671641646995187`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.007691119500696897`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.00413783035471103`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.0014531171727638857`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.009263700350518947`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00011356642943329183`"}], - ",", - RowBox[{ - RowBox[{"A", "[", "5", "]"}], "\[Rule]", "0.0008812910746076584`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "\[Rule]", "6.1199045061749`*^-6"}]}], - "}"}]}], "}"}]], "Output", - CellChangeTimes->{3.841829478405797*^9, 3.842082489741064*^9, - 3.842083149562351*^9, 3.842085958970133*^9}, - CellLabel->"Out[6]=",ExpressionUUID->"603ce513-d919-4a6a-aae2-e99140ba8fb2"] -}, 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-> - "In[807]:=",ExpressionUUID->"77feec13-1cdc-471d-8d45-49920b8c9c58"], - -Cell[BoxData["$Aborted"], "Output", - CellChangeTimes->{3.841829478405797*^9, 3.842082489741064*^9, - 3.842083149562351*^9, 3.842083340661083*^9}, - CellLabel-> - "Out[806]=",ExpressionUUID->"362d644d-39b8-4815-95d9-a10f5c313532"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[{ - RowBox[{ - RowBox[{"ntest", "=", "3"}], ";", - RowBox[{"n1", "=", "2"}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"our\[CapitalPhi]1", "=", - RowBox[{ - RowBox[{ - RowBox[{"Map", "[", - RowBox[{ - RowBox[{ - RowBox[{"With", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"df", "=", - RowBox[{"D", "[", - RowBox[{"#", ",", - RowBox[{"{", - RowBox[{"m01", "[", - RowBox[{"[", - RowBox[{"All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}]}], - "}"}], ",", - RowBox[{"Around", "[", - RowBox[{"#", ",", - RowBox[{"df", ".", "cov0", ".", "df"}]}], "]"}]}], "]"}], "&"}], - ",", - 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[{"Map", "[", - RowBox[{ - RowBox[{ - RowBox[{"With", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"df", "=", - RowBox[{"D", "[", - RowBox[{"#", ",", - RowBox[{"{", - RowBox[{"m11", "[", - RowBox[{"[", - RowBox[{"All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}]}], - "}"}], ",", - RowBox[{"Around", "[", - RowBox[{"#", ",", - RowBox[{"df", ".", "cov1", ".", "df"}]}], "]"}]}], "]"}], "&"}], - ",", - 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[{"Map", "[", - RowBox[{ - RowBox[{ - RowBox[{"With", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"df", "=", - RowBox[{"D", "[", - RowBox[{"#", ",", - RowBox[{"{", - RowBox[{"m21", "[", - RowBox[{"[", - RowBox[{"All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}]}], - "}"}], ",", - RowBox[{"Around", "[", - RowBox[{"#", ",", - RowBox[{"df", ".", "cov2", ".", "df"}]}], "]"}]}], "]"}], "&"}], - ",", - RowBox[{ - RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", - RowBox[{"n1", ",", - RowBox[{"h", "[", "3", "]"}]}], "]"}], "[", - RowBox[{"ntest", ",", "1"}], "]"}]}], "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "3", "]"}], "]"}]}], "/.", "m21"}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"our\[CapitalPhi]4", "=", - RowBox[{ - RowBox[{ - RowBox[{"Map", "[", - RowBox[{ - RowBox[{ - RowBox[{"With", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"df", "=", - RowBox[{"D", "[", - RowBox[{"#", ",", - RowBox[{"{", - RowBox[{"m31", "[", - RowBox[{"[", - RowBox[{"All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}]}], - "}"}], ",", - RowBox[{"Around", "[", - RowBox[{"#", ",", - RowBox[{"df", ".", "cov3", ".", "df"}]}], "]"}]}], "]"}], "&"}], - ",", - RowBox[{ - RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", - RowBox[{"n1", ",", - RowBox[{"h", "[", "3", "]"}]}], "]"}], "[", - RowBox[{"ntest", ",", "1"}], "]"}]}], "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "3", "]"}], "]"}]}], "/.", - RowBox[{"m3", "[", - RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"our\[CapitalPhi]5", "=", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", - RowBox[{"n1", ",", - RowBox[{"h", "[", "5", "]"}]}], "]"}], "[", - RowBox[{"ntest", ",", "1"}], "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "5", "]"}], "]"}]}], "/.", "m41"}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"our\[CapitalPhi]6", "=", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"dFd\[Eta]List", "[", - RowBox[{"n1", ",", - RowBox[{"h", "[", "5", "]"}]}], "]"}], "[", "ntest", "]"}], "[", - "1", "]"}], "/", - RowBox[{ - RowBox[{"Range", "[", - RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "5", "]"}], "]"}]}], "/.", - RowBox[{"m5", "[", - RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"our\[CapitalPhi]7", "=", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"dFd\[Eta]List", "[", - RowBox[{"n1", ",", - RowBox[{"h", "[", "7", "]"}]}], "]"}], "[", "ntest", "]"}], "[", - "1", "]"}], "/", - RowBox[{ - RowBox[{"Range", "[", - RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "7", "]"}], "]"}]}], "/.", - RowBox[{"m6", "[", - RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[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"}], "}"}]}]}], - ";"}]}], "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.842079618956163*^9, 3.842079619691287*^9}}, - CellLabel-> - "In[373]:=",ExpressionUUID->"696e8dad-b679-4cff-9df9-7fa32582e84f"], - -Cell[BoxData["$Aborted"], "Output", - CellChangeTimes->{3.8420796242319183`*^9}, - CellLabel-> - "Out[374]=",ExpressionUUID->"6a404edb-ac94-461f-b2e5-acd44da01100"], - -Cell[BoxData["$Aborted"], "Output", - CellChangeTimes->{3.842079641410962*^9}, - CellLabel-> - "Out[376]=",ExpressionUUID->"2c660b93-654e-4c19-a6ee-ebd9ae1fe369"], - -Cell[BoxData["$Aborted"], "Output", - CellChangeTimes->{3.842079642992372*^9}, - CellLabel-> - "Out[377]=",ExpressionUUID->"ac425c72-2e2b-4850-8349-fef964c356dd"], - -Cell[BoxData[ - TemplateBox[{ - "Part", "partd", - "\"Part specification \\!\\(\\*RowBox[{\\\"m5\\\", \ -\\\"\[LeftDoubleBracket]\\\", \\\"2\\\", \\\"\[RightDoubleBracket]\\\"}]\\) \ -is longer than depth of object.\"", 2, 379, 382, 31641741301462687909, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{{3.8420690577543163`*^9, 3.842069085191916*^9}, - 3.842069222904478*^9, 3.842069254149623*^9, 3.8420697981814404`*^9, - 3.8420700634622517`*^9, 3.842070413337386*^9, 3.8420706115982637`*^9, - 3.842077684024465*^9, 3.8420779659089937`*^9, 3.842078147124432*^9, - 3.842078892908864*^9, 3.842079239774172*^9, 3.842079643119793*^9}, - CellLabel-> - "During evaluation of \ -In[373]:=",ExpressionUUID->"e7472b6a-9708-47bd-9dd2-849ab9abc5a6"], - -Cell[BoxData[ - TemplateBox[{ - "ReplaceAll", "reps", - "\"\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"m5\\\", \ -\\\"\[LeftDoubleBracket]\\\", \\\"2\\\", \\\"\[RightDoubleBracket]\\\"}], \ -\\\"}\\\"}]\\) is neither a list of replacement rules nor a valid dispatch \ -table, and so cannot be used for replacing.\"", 2, 379, 383, - 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{{3.8420690577543163`*^9, 3.842069085191916*^9}, - 3.842069222904478*^9, 3.842069254149623*^9, 3.8420697981814404`*^9, - 3.8420700634622517`*^9, 3.842070413337386*^9, 3.8420706115982637`*^9, - 3.842077684024465*^9, 3.8420779659089937`*^9, 3.842078147124432*^9, - 3.842078892908864*^9, 3.842079239774172*^9, 3.842079643125565*^9}, - CellLabel-> - "During evaluation of \ -In[373]:=",ExpressionUUID->"d14e8158-7a0c-4e09-98f1-d604a5881e2e"], - -Cell[BoxData[ - TemplateBox[{ - "Part", "partd", - "\"Part specification \\!\\(\\*RowBox[{\\\"m6\\\", \ -\\\"\[LeftDoubleBracket]\\\", \\\"2\\\", \\\"\[RightDoubleBracket]\\\"}]\\) \ -is longer than depth of object.\"", 2, 380, 384, 31641741301462687909, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{{3.8420690577543163`*^9, 3.842069085191916*^9}, - 3.842069222904478*^9, 3.842069254149623*^9, 3.8420697981814404`*^9, - 3.8420700634622517`*^9, 3.842070413337386*^9, 3.8420706115982637`*^9, - 3.842077684024465*^9, 3.8420779659089937`*^9, 3.842078147124432*^9, - 3.842078892908864*^9, 3.842079239774172*^9, 3.8420796431310797`*^9}, - CellLabel-> - "During evaluation of \ -In[373]:=",ExpressionUUID->"a752eb8a-23e3-4cdb-af93-ff21c18cf987"], - -Cell[BoxData[ - TemplateBox[{ - "ReplaceAll", "reps", - "\"\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"m6\\\", \ -\\\"\[LeftDoubleBracket]\\\", \\\"2\\\", \\\"\[RightDoubleBracket]\\\"}], \ -\\\"}\\\"}]\\) is neither a list of replacement rules nor a valid dispatch \ -table, and so cannot be used for replacing.\"", 2, 380, 385, - 31641741301462687909, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{{3.8420690577543163`*^9, 3.842069085191916*^9}, - 3.842069222904478*^9, 3.842069254149623*^9, 3.8420697981814404`*^9, - 3.8420700634622517`*^9, 3.842070413337386*^9, 3.8420706115982637`*^9, - 3.842077684024465*^9, 3.8420779659089937`*^9, 3.842078147124432*^9, - 3.842078892908864*^9, 3.842079239774172*^9, 3.842079643136348*^9}, - CellLabel-> - "During evaluation of \ -In[373]:=",ExpressionUUID->"ba4bcc27-d9ad-4822-a182-dbfb6baf266b"] -}, 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", "]"}], "]"}]}], "/.", - RowBox[{"m2", "[", - RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[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", "]"}], "]"}]}], "/.", - RowBox[{"m3", "[", - RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[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", "]"}], "]"}]}], "/.", - RowBox[{"m4", "[", - RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[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", "]"}], "]"}]}], "/.", - RowBox[{"m5", "[", - RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[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", "]"}], "]"}]}], "/.", - RowBox[{"m6", "[", - RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[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", "]"}], "]"}]}], "/.", - RowBox[{"m7", "[", - RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[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"}], "}"}]}]}], ";"}]}], "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}}, - CellLabel-> - "In[795]:=",ExpressionUUID->"673ffefa-75f0-46ac-befd-c785b4bc3ce1"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{ - RowBox[{"(", - RowBox[{ - RowBox[{"(", - RowBox[{ - RowBox[{"\[CapitalPhi]s", "[", - RowBox[{"[", - RowBox[{";;", - RowBox[{"2", "+", "1"}]}], "]"}], "]"}], "-", "#"}], ")"}], "/", - RowBox[{"\[CapitalPhi]s", "[", - RowBox[{"[", - RowBox[{";;", - RowBox[{"2", "+", "1"}]}], "]"}], "]"}]}], ")"}], "&"}], "@", - RowBox[{"(", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", - RowBox[{"5", ",", - RowBox[{"h", "[", "6", "]"}]}], "]"}], "[", - RowBox[{"2", ",", "1"}], "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "6", "]"}], "]"}]}], "/.", - RowBox[{"m6", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}]], "Input", - CellChangeTimes->{{3.84208597735402*^9, 3.842086041345319*^9}}, - CellLabel->"In[11]:=",ExpressionUUID->"3a6bc1b3-5e9d-4b1c-b46d-fd5e4ff8cf76"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - RowBox[{"-", "0.00001410683177676464`"}], ",", "0.0001756274338069263`", - ",", "0.0007405099973650077`"}], "}"}]], "Output", - CellChangeTimes->{{3.842086001837146*^9, 3.842086041643119*^9}}, - CellLabel->"Out[11]=",ExpressionUUID->"c977424a-aa18-4aea-aaca-484dcc8c8408"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{ - RowBox[{"(", - RowBox[{ - RowBox[{"(", - RowBox[{ - RowBox[{"\[CapitalPhi]s", "[", - RowBox[{"[", - RowBox[{";;", - RowBox[{"2", "+", "1"}]}], "]"}], "]"}], "-", "#"}], ")"}], "/", - RowBox[{"\[CapitalPhi]s", "[", - RowBox[{"[", - RowBox[{";;", - RowBox[{"2", "+", "1"}]}], "]"}], "]"}]}], ")"}], "&"}], "@", - RowBox[{"(", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", - RowBox[{"5", ",", - RowBox[{"h", "[", "7", "]"}]}], "]"}], "[", - RowBox[{"2", ",", "1"}], "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "7", "]"}], "]"}]}], "/.", - RowBox[{"m7", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}]], "Input", - CellChangeTimes->{{3.84208597735402*^9, 3.842086001512249*^9}}, - CellLabel->"In[9]:=",ExpressionUUID->"a69be52b-dc01-480f-81d9-1536204c04bc"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - RowBox[{"-", "0.000015323164578722875`"}], ",", "0.00018434643379817203`", - ",", "0.0007498348692234069`"}], "}"}]], "Output", - CellChangeTimes->{3.842086001837146*^9}, - CellLabel->"Out[9]=",ExpressionUUID->"e502b5f4-ed08-4ca3-8845-e50c58f64274"] -}, Open ]], - -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[805]:=",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"], - -Cell[BoxData[ - GraphicsBox[{{{}, {{}, {}, - {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ - 0.012833333333333334`], AbsoluteThickness[1.6], - LineBox[{{0., -6.004631619205707}, { - 0.6931471805599453, -7.68073299889055}, { - 1.0986122886681098`, -10.33004943255557}, { - 1.3862943611198906`, -9.82911785657391}, { - 1.6094379124341003`, -10.084886766739118`}, { - 1.791759469228055, -11.713550979368975`}, { - 1.9459101490553132`, -11.168851354748806`}, { - 2.0794415416798357`, -11.07090528604727}}]}, - {RGBColor[0.880722, 0.611041, 0.142051], PointSize[ - 0.012833333333333334`], AbsoluteThickness[1.6], - LineBox[{{0., -4.223339526781511}, { - 0.6931471805599453, -5.724446142736132}, { - 1.0986122886681098`, -7.829706716217511}, { - 1.3862943611198906`, -7.580697473713457}, { - 1.6094379124341003`, -7.731919232253363}, { - 1.791759469228055, -9.306919160032065}, { - 1.9459101490553132`, -8.647145659996903}, { - 2.0794415416798357`, -8.58140986060854}}]}, - {RGBColor[0.560181, 0.691569, 0.194885], PointSize[ - 0.012833333333333334`], AbsoluteThickness[1.6], - LineBox[{{0., -3.715723038207591}, { - 0.6931471805599453, -4.98040566796352}, { - 1.0986122886681098`, -6.417487733930928}, { - 1.3862943611198906`, -6.260707431308009}, { - 1.6094379124341003`, -6.511820157839195}, { - 1.791759469228055, -8.091915595704814}, { - 1.9459101490553132`, -7.208171423517026}, { - 2.0794415416798357`, -7.17495264065246}}]}}, {{}, {}}}, {{{}, {}, - 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$73216#1"]& ]}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{-0.08754593296134726, -12.339426403677306`}, - 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.08754593296134726, - 2.0794415416798357`}, {-12.339426403677306`, -3.715723038207591}}, - 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.}}}, {{-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}}, - CellLabel-> - "Out[805]=",ExpressionUUID->"4a71281b-8b4d-40ea-912d-d0bffa3afba8"] -}, Open ]] -}, Open ]] -}, -WindowSize->{635.25, 1060.5}, -WindowMargins->{{642, Automatic}, {2.25, Automatic}}, -FrontEndVersion->"12.3 for Linux x86 (64-bit) (May 11, 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, 889, 14, 24, "Input",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"], -Cell[1450, 36, 545, 13, 41, "Input",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"], -Cell[1998, 51, 463, 11, 24, "Input",ExpressionUUID->"2fdffe9d-9220-4c97-866d-0a1f5e3200a1"], -Cell[CellGroupData[{ -Cell[2486, 66, 207, 4, 50, "Section",ExpressionUUID->"bb531fce-8a9d-4a5f-8d6a-ec66b9fbf698"], -Cell[2696, 72, 70, 0, 71, "Input",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"], -Cell[CellGroupData[{ -Cell[2791, 76, 70, 0, 55, "Input",ExpressionUUID->"3d566693-1b4e-4bc5-b33b-b8036e1e4822"], -Cell[2864, 78, 71, 0, 58, "Output",ExpressionUUID->"86062308-fdba-4d87-8210-7ea083d14ee1"] -}, Open ]], -Cell[CellGroupData[{ -Cell[2972, 83, 70, 0, 115, "Input",ExpressionUUID->"3b9512c4-4741-4838-844f-dc1843a98be2"], -Cell[3045, 85, 71, 0, 450, "Output",ExpressionUUID->"2720c35a-79b8-423b-a048-5c7e2711f16a"] -}, Open ]], -Cell[3131, 88, 70, 0, 71, "Input",ExpressionUUID->"34ec14f2-e69a-4233-afa7-8b9340ca265f"], -Cell[CellGroupData[{ -Cell[3226, 92, 70, 0, 24, "Input",ExpressionUUID->"3c891175-2642-465d-b121-e5989a86c957"], -Cell[3299, 94, 71, 0, 58, "Output",ExpressionUUID->"38fb3ec6-64aa-4b63-b20b-7d35d2e4572a"] -}, Open ]], -Cell[3385, 97, 70, 0, 71, "Input",ExpressionUUID->"a96db868-d41f-433d-88d3-73a2b34157b2"], -Cell[CellGroupData[{ -Cell[3480, 101, 70, 0, 24, "Input",ExpressionUUID->"9e3392d7-9445-477b-9e57-3faef08acef1"], -Cell[3553, 103, 71, 0, 25, "Output",ExpressionUUID->"6c61aadd-c965-4458-a165-ef7680648fc1"] -}, Open ]], -Cell[3639, 106, 70, 0, 71, "Input",ExpressionUUID->"fb46f7c2-5761-4a64-9a5f-872dd3265e1c"], -Cell[CellGroupData[{ -Cell[3734, 110, 70, 0, 24, "Input",ExpressionUUID->"3d7346aa-9d8e-46fd-bcb4-ca52fff0d32a"], -Cell[3807, 112, 71, 0, 58, "Output",ExpressionUUID->"d3885981-ee95-4189-85fb-672f5e65f744"] -}, Open ]], -Cell[3893, 115, 70, 0, 71, "Input",ExpressionUUID->"1a9cafff-78bf-40d5-9387-97742820a6dc"], -Cell[CellGroupData[{ -Cell[3988, 119, 70, 0, 24, "Input",ExpressionUUID->"7bdef841-d628-418c-9bec-b16ca8655e30"], -Cell[4061, 121, 71, 0, 76, "Output",ExpressionUUID->"1db50035-262f-41c8-897c-83b291232a25"] -}, Open ]], -Cell[4147, 124, 70, 0, 71, "Input",ExpressionUUID->"53343c2f-4579-48fe-afdc-6555d61fefc7"], -Cell[CellGroupData[{ -Cell[4242, 128, 70, 0, 24, "Input",ExpressionUUID->"19f0837b-60bb-491b-b21f-34926c9efae8"], -Cell[4315, 130, 71, 0, 76, "Output",ExpressionUUID->"1588dece-8475-4068-8ebd-5f1063867c03"] -}, Open ]], -Cell[4401, 133, 70, 0, 71, "Input",ExpressionUUID->"3c48ca79-1fa5-4b7f-9423-94e659aae362"], -Cell[CellGroupData[{ -Cell[4496, 137, 70, 0, 24, "Input",ExpressionUUID->"c0c5581e-24f4-4c1d-bac2-acde9933d21a"], -Cell[4569, 139, 71, 0, 92, "Output",ExpressionUUID->"730ed06e-f4a9-43d9-985a-dd73afa5028a"] -}, Open ]], -Cell[4655, 142, 70, 0, 71, "Input",ExpressionUUID->"89ac8434-0e5c-4a82-ae51-65e191e4c98a"], -Cell[CellGroupData[{ -Cell[4750, 146, 70, 0, 24, "Input",ExpressionUUID->"a4de7394-b723-4a62-9094-2b462110711f"], -Cell[4823, 148, 71, 0, 92, "Output",ExpressionUUID->"e3a248c2-6739-443e-a469-171bafbb4a39"] -}, Open ]], -Cell[4909, 151, 70, 0, 71, "Input",ExpressionUUID->"ec5df7b8-ae45-47d9-baba-654f2daf3d01"], -Cell[CellGroupData[{ -Cell[5004, 155, 70, 0, 24, "Input",ExpressionUUID->"c28fec6d-42be-4754-8ff5-9f7327a42e34"], -Cell[5077, 157, 71, 0, 108, "Output",ExpressionUUID->"2f826db1-6725-439c-8bf9-7196d08ae46b"] -}, Open ]], -Cell[5163, 160, 70, 0, 71, "Input",ExpressionUUID->"454bbf34-d098-476d-8e27-8e882ae07c56"], -Cell[CellGroupData[{ -Cell[5258, 164, 70, 0, 24, "Input",ExpressionUUID->"fdda266d-54c1-43db-b6a7-a3d02502cd24"], -Cell[5331, 166, 72, 0, 34, "Message",ExpressionUUID->"b4090613-0332-49f1-a196-74002379eeeb"], -Cell[5406, 168, 71, 0, 124, "Output",ExpressionUUID->"1249aaa6-7d54-428c-8361-a89fa22f87ac"] -}, Open ]], -Cell[5492, 171, 70, 0, 56, "Input",ExpressionUUID->"7669b7fe-6525-47ea-bd17-bc39d72d2039"], -Cell[CellGroupData[{ -Cell[5587, 175, 70, 0, 24, "Input",ExpressionUUID->"0d0e5cda-a6fc-4708-80da-b887f6838668"], -Cell[5660, 177, 71, 0, 407, "Output",ExpressionUUID->"1661a955-9e84-44df-abe5-8a178d2f912d"] -}, Open ]], -Cell[CellGroupData[{ -Cell[5768, 182, 70, 0, 89, "Input",ExpressionUUID->"9112def6-5ff6-4224-8356-f50fa415d2f3"], -Cell[5841, 184, 72, 0, 32, "Message",ExpressionUUID->"311d3fb6-3107-4bba-ae21-2a9d8e2be9ff"], -Cell[5916, 186, 72, 0, 22, "Message",ExpressionUUID->"382c6f48-8be5-4040-8352-c107dd4acfcb"], -Cell[5991, 188, 72, 0, 32, "Message",ExpressionUUID->"db776803-ed60-4310-a108-852c80375404"], -Cell[6066, 190, 72, 0, 22, "Message",ExpressionUUID->"c054e628-2d2f-4c9d-b97f-3211d4a28e43"], -Cell[6141, 192, 72, 0, 32, "Message",ExpressionUUID->"be1896cd-ee42-475f-8df0-db9105e2a00f"], -Cell[6216, 194, 72, 0, 22, "Message",ExpressionUUID->"1c3e5739-b049-43f2-a094-b9e364dedc14"], -Cell[6291, 196, 72, 0, 22, "Message",ExpressionUUID->"8781108e-dab4-4d69-bb59-846e2cf30536"], -Cell[6366, 198, 72, 0, 22, "Message",ExpressionUUID->"b4b28af2-b0fd-4fee-8ea1-a1b8599ad243"] -}, Open ]], -Cell[CellGroupData[{ -Cell[6475, 203, 70, 0, 24, "Input",ExpressionUUID->"0b79b970-7045-4be7-b49f-562e6773070c"], -Cell[6548, 205, 71, 0, 371, "Output",ExpressionUUID->"a1b2e831-9c0c-4c48-9c35-6781403e92e0"] -}, Open ]], -Cell[CellGroupData[{ -Cell[6656, 210, 70, 0, 22, "Input",ExpressionUUID->"71c1d9b7-0cf0-408f-a132-11f858bc49f0"], -Cell[6729, 212, 71, 0, 481, "Output",ExpressionUUID->"5e583bca-872b-4fe1-bd8e-e1bcce981a2c"] -}, Open ]], -Cell[CellGroupData[{ -Cell[6837, 217, 70, 0, 39, "Input",ExpressionUUID->"7b03bcdf-5941-4689-8045-07928a4af682"], -Cell[6910, 219, 71, 0, 481, "Output",ExpressionUUID->"d7ee8225-65ff-4705-be5c-8b8dbe6fa41b"] -}, Open ]], -Cell[CellGroupData[{ -Cell[7018, 224, 70, 0, 22, "Input",ExpressionUUID->"fa8135b4-fdf8-4590-be4e-73b4dd086cab"], -Cell[7091, 226, 71, 0, 414, "Output",ExpressionUUID->"04ca030c-e442-4c61-8c4a-d152e5c203ae"] -}, Open ]], -Cell[7177, 229, 70, 0, 22, "Input",ExpressionUUID->"29cea7b5-4fca-4cb4-8837-f04711b34c21"], -Cell[CellGroupData[{ -Cell[7272, 233, 70, 0, 93, "Input",ExpressionUUID->"53b7755a-6f34-4db5-8104-878ea3587d8e"], -Cell[7345, 235, 71, 0, 387, "Output",ExpressionUUID->"616ea1b5-1320-415b-a819-c2f94d93d7ea"] -}, Open ]], -Cell[CellGroupData[{ -Cell[7453, 240, 70, 0, 22, "Input",ExpressionUUID->"76c95b5f-6514-4856-b4c5-cd646cd37488"], -Cell[7526, 242, 71, 0, 25, "Output",ExpressionUUID->"74073881-f4b4-4f07-8f9a-cd7d59bc3693"] -}, Open ]], -Cell[CellGroupData[{ -Cell[7634, 247, 70, 0, 22, "Input",ExpressionUUID->"02a5f468-5569-4ef4-9ad7-428f9cf2d754"], -Cell[7707, 249, 71, 0, 44, "Output",ExpressionUUID->"724a73d3-c790-4baa-985a-a709e0354abe"] -}, Open ]], -Cell[CellGroupData[{ -Cell[7815, 254, 70, 0, 24, "Input",ExpressionUUID->"7273c588-8e35-4fbd-8ebc-898cedb2387b"], -Cell[7888, 256, 71, 0, 44, "Output",ExpressionUUID->"6bcb7016-9e42-477f-b8aa-2bf28ae5ec18"] -}, Open ]], -Cell[CellGroupData[{ -Cell[7996, 261, 70, 0, 22, "Input",ExpressionUUID->"4696ee08-41ed-480a-83d4-b7dcd649182e"], -Cell[8069, 263, 71, 0, 25, "Output",ExpressionUUID->"581be5fa-833d-44bd-98d5-dde94e4dd98c"] -}, Open ]], -Cell[CellGroupData[{ -Cell[8177, 268, 70, 0, 93, "Input",ExpressionUUID->"73fa0a9d-2aa5-49d6-b995-2f0dc2997c86"], -Cell[8250, 270, 71, 0, 585, "Output",ExpressionUUID->"596e78c8-422c-425b-b6d3-1d4f2a3368df"] -}, Open ]], -Cell[CellGroupData[{ -Cell[8358, 275, 70, 0, 110, "Input",ExpressionUUID->"d049de83-a67f-4f70-9161-28ea593a16b8"], -Cell[8431, 277, 71, 0, 396, "Output",ExpressionUUID->"97929a1a-4107-4c3b-91b5-b4aea31a6a12"] -}, Open ]], -Cell[CellGroupData[{ -Cell[8539, 282, 70, 0, 59, "Input",ExpressionUUID->"ff8b8a76-8ef5-4079-b3c2-caca5f90a239"], -Cell[8612, 284, 71, 0, 368, "Output",ExpressionUUID->"ceca4cf7-358a-4475-9d74-be5382099c4a"] -}, Open ]], -Cell[CellGroupData[{ -Cell[8720, 289, 70, 0, 38, "Input",ExpressionUUID->"84fba399-0d44-478f-82db-cf6e8f6da218"], -Cell[8793, 291, 71, 0, 35, "Output",ExpressionUUID->"fc27ce97-44b5-4fd9-9fc6-8e3a80767ebc"] -}, Open ]], -Cell[CellGroupData[{ -Cell[8901, 296, 70, 0, 57, "Input",ExpressionUUID->"5e586711-0483-46d1-bccb-b6897d71c1e8"], -Cell[8974, 298, 71, 0, 169, "Output",ExpressionUUID->"2fa1caa4-ef1f-4ffd-8afc-94b16ed218ad"] -}, Open ]], -Cell[CellGroupData[{ -Cell[9082, 303, 70, 0, 22, "Input",ExpressionUUID->"0bf0ad7a-0c38-45b3-944f-2cd642717885"], -Cell[9155, 305, 71, 0, 108, "Output",ExpressionUUID->"cb46a863-90ee-473f-82db-5dc2a45b693e"] -}, Open ]], -Cell[CellGroupData[{ -Cell[9263, 310, 70, 0, 119, "Input",ExpressionUUID->"f15d8a52-1992-4696-8ead-3c4153434e55"], -Cell[9336, 312, 71, 0, 449, "Output",ExpressionUUID->"7c16b4f6-053a-49c7-adfb-2ff4cd3d1825"] -}, Open ]], -Cell[CellGroupData[{ -Cell[9444, 317, 70, 0, 22, "Input",ExpressionUUID->"f9fe281b-b610-448a-b868-789cd1438874"], -Cell[9517, 319, 71, 0, 271, "Output",ExpressionUUID->"cd6820b3-ec18-4309-a325-d9260e362bf3"] -}, Open ]], -Cell[CellGroupData[{ -Cell[9625, 324, 70, 0, 75, "Input",ExpressionUUID->"379795e2-1f10-4c9d-aca9-574975c0b53e"], -Cell[9698, 326, 71, 0, 181, "Output",ExpressionUUID->"e32fce1f-84cc-4e58-9ec5-270c393270f4"] -}, Open ]], -Cell[9784, 329, 70, 0, 71, "Input",ExpressionUUID->"614f63fe-75a0-4c56-b782-48ad98bc3c89"], -Cell[CellGroupData[{ -Cell[9879, 333, 70, 0, 24, "Input",ExpressionUUID->"b56cc8a2-a504-4115-9171-a6a6d7088e3d"], -Cell[9952, 335, 71, 0, 60, "Output",ExpressionUUID->"56bd1e88-9615-4515-9caf-f2b140d00ea4"] -}, Open ]], -Cell[10038, 338, 70, 0, 71, "Input",ExpressionUUID->"8507c1e3-d3a8-4bd7-b4aa-90d91d45805d"], -Cell[CellGroupData[{ -Cell[10133, 342, 70, 0, 24, "Input",ExpressionUUID->"de38480a-2d94-4587-b72d-6e029e15ee96"], -Cell[10206, 344, 71, 0, 60, "Output",ExpressionUUID->"43225297-d195-4377-8f95-86dbf3b45b01"] -}, Open ]], -Cell[10292, 347, 70, 0, 71, "Input",ExpressionUUID->"2ec9732b-3292-49d0-bac5-10ca2b2e2d27"], -Cell[CellGroupData[{ -Cell[10387, 351, 70, 0, 24, "Input",ExpressionUUID->"139619cc-039b-4609-af7c-bff6ef22fb47"], -Cell[10460, 353, 71, 0, 25, "Output",ExpressionUUID->"afa14344-bd55-431e-aa6c-c70efe6c5a4d"] -}, Open ]], -Cell[CellGroupData[{ -Cell[10568, 358, 70, 0, 22, "Input",ExpressionUUID->"0187bca3-1d0a-4623-aec5-953f437b51fd"], -Cell[10641, 360, 71, 0, 25, "Output",ExpressionUUID->"598fc733-e306-4afa-b2be-5b73d49e16c2"] -}, Open ]], -Cell[CellGroupData[{ -Cell[10749, 365, 70, 0, 22, "Input",ExpressionUUID->"73d2b785-99f4-4bfb-b83d-3176ccfa253d"], -Cell[10822, 367, 71, 0, 25, "Output",ExpressionUUID->"d9b0e840-276e-4933-8ac7-3b44810cdfd7"] -}, Open ]], -Cell[CellGroupData[{ -Cell[10930, 372, 70, 0, 22, "Input",ExpressionUUID->"a3876a42-f9a7-42bf-bb98-8f496b0b9429"], -Cell[11003, 374, 71, 0, 25, "Output",ExpressionUUID->"25c6c990-0648-4b53-88ec-85fbf153b84d"] -}, Open ]], -Cell[CellGroupData[{ -Cell[11111, 379, 70, 0, 246, "Input",ExpressionUUID->"a8eefdf0-e27a-49c2-a914-30fe2e3be695"], -Cell[11184, 381, 71, 0, 170, "Output",ExpressionUUID->"74dd1d49-7e7f-4e72-b8c9-ce6b451108d3"] -}, Open ]], -Cell[CellGroupData[{ -Cell[11292, 386, 70, 0, 24, "Input",ExpressionUUID->"87e7aafd-8c36-4839-935c-cc46bf1f01dd"], -Cell[11365, 388, 71, 0, 25, "Output",ExpressionUUID->"fe7c92bd-96d2-4bd2-8311-6587e6a29f3e"] -}, Open ]], -Cell[CellGroupData[{ -Cell[11473, 393, 70, 0, 22, "Input",ExpressionUUID->"148e9d0d-8b87-4af5-afd5-d33dbd331cbd"], -Cell[11546, 395, 71, 0, 25, "Output",ExpressionUUID->"2cb15991-5446-4550-9d2b-990382cc6e0b"] -}, Open ]], -Cell[CellGroupData[{ -Cell[11654, 400, 70, 0, 22, "Input",ExpressionUUID->"8daebff1-3cc2-4bf5-8cc4-604c65c548b0"], -Cell[11727, 402, 71, 0, 25, "Output",ExpressionUUID->"9cd4be6d-9037-487d-805c-0e30c732a88f"] -}, Open ]], -Cell[CellGroupData[{ -Cell[11835, 407, 70, 0, 22, "Input",ExpressionUUID->"ec87e975-8e91-4764-a5f8-d113176427a6"], -Cell[11908, 409, 71, 0, 25, "Output",ExpressionUUID->"682ebcdb-8d48-4545-9fb6-2815a9591a34"] -}, Open ]], -Cell[CellGroupData[{ -Cell[12016, 414, 70, 0, 24, "Input",ExpressionUUID->"bd4bec0c-34d4-42ea-8210-676c5a4f3b02"], -Cell[12089, 416, 71, 0, 25, "Output",ExpressionUUID->"6744c9f9-54df-4620-86fe-20c2a1fb0a38"] -}, Open ]], -Cell[12175, 419, 70, 0, 22, "Input",ExpressionUUID->"cb5903e7-4ebd-478a-913d-f8dce03353cd"], -Cell[CellGroupData[{ -Cell[12270, 423, 70, 0, 22, "Input",ExpressionUUID->"7f91ac8c-3dfe-4e6e-876b-c110d899b203"], -Cell[12343, 425, 71, 0, 25, "Output",ExpressionUUID->"66d898e0-c199-4cd1-8c92-f951620499ab"] -}, Open ]], -Cell[CellGroupData[{ -Cell[12451, 430, 70, 0, 24, "Input",ExpressionUUID->"d7af33b7-ba2b-49a3-aafc-91ee8eb488da"], -Cell[12524, 432, 71, 0, 25, "Output",ExpressionUUID->"76e092cb-b3ca-4ad3-8371-d22bc3bdbfec"] -}, Open ]], -Cell[CellGroupData[{ -Cell[12632, 437, 70, 0, 71, "Input",ExpressionUUID->"ba65a569-6e06-47f2-aa64-ce40ed720e16"], -Cell[12705, 439, 71, 0, 183, "Output",ExpressionUUID->"49a28651-b01d-4119-8b17-5cececd6f4d8"] -}, Open ]], -Cell[12791, 442, 70, 0, 22, "Input",ExpressionUUID->"f53418ef-e0c9-44a5-92b0-cb484b4f96c8"], -Cell[CellGroupData[{ -Cell[12886, 446, 70, 0, 75, "Input",ExpressionUUID->"a30a4640-3744-4c0b-9800-1073a0fa0d50"], -Cell[12959, 448, 71, 0, 25, "Output",ExpressionUUID->"a91af46f-115e-4b5b-a963-4e64b27789f9"] -}, Open ]], -Cell[CellGroupData[{ -Cell[13067, 453, 70, 0, 75, "Input",ExpressionUUID->"6c557c5e-e6b4-4351-9c51-9653ebaa3755"], -Cell[13140, 455, 71, 0, 25, "Output",ExpressionUUID->"d46b93fb-0f62-45fa-a6de-37bde5cbd060"] -}, Open ]], -Cell[CellGroupData[{ -Cell[13248, 460, 70, 0, 37, "Input",ExpressionUUID->"b157e171-c7d5-47f2-b745-8f2e8fa0198c"], -Cell[13321, 462, 71, 0, 25, "Output",ExpressionUUID->"5a0db3ec-ac1c-432f-adee-e6747b4db94f"] -}, Open ]], -Cell[CellGroupData[{ -Cell[13429, 467, 70, 0, 24, "Input",ExpressionUUID->"bdb84812-f388-49c2-8ac6-3080c735f5e5"], -Cell[13502, 469, 71, 0, 44, "Output",ExpressionUUID->"b941a263-57d9-4309-b289-83857d3df95f"] -}, Open ]], -Cell[CellGroupData[{ -Cell[13610, 474, 70, 0, 22, "Input",ExpressionUUID->"7fec8d25-6d0b-475e-a3c6-8b90b79f873e"], -Cell[13683, 476, 71, 0, 25, "Output",ExpressionUUID->"48c117a8-371e-45ba-aa5f-facdd5f694ec"] -}, Open ]], -Cell[CellGroupData[{ -Cell[13791, 481, 70, 0, 39, "Input",ExpressionUUID->"feb6f5a0-8271-4175-8fd5-743c24ab49d2"], -Cell[13864, 483, 71, 0, 25, "Output",ExpressionUUID->"b00b9646-7ea6-4e6c-895b-add09ba6b344"] -}, Open ]], -Cell[CellGroupData[{ -Cell[13972, 488, 70, 0, 58, "Input",ExpressionUUID->"5553a701-d8ac-42d8-bf96-f61247fd91d5"], -Cell[14045, 490, 71, 0, 171, "Output",ExpressionUUID->"ff2eefd5-74bd-4633-a9f6-bb1945c40989"] -}, Open ]], -Cell[14131, 493, 70, 0, 55, "Input",ExpressionUUID->"4dc1af41-4bef-447e-a233-c8c033887359"], -Cell[CellGroupData[{ -Cell[14226, 497, 70, 0, 22, "Input",ExpressionUUID->"e74b775a-c745-4f15-9b63-7bb00af5a487"], -Cell[14299, 499, 72, 0, 22, "Message",ExpressionUUID->"05b00b91-b292-4f86-8ac1-2cad1d50f51c"], -Cell[14374, 501, 71, 0, 42, "Output",ExpressionUUID->"54c0d651-a676-4819-8283-9d2b33e602fc"] -}, Open ]], -Cell[CellGroupData[{ -Cell[14482, 506, 70, 0, 71, "Input",ExpressionUUID->"fb42dfa6-f948-472b-87e8-e4cb6e90ba26"], -Cell[14555, 508, 71, 0, 137, "Output",ExpressionUUID->"21f29296-03a7-4cc8-b760-b71dfa22b325"] -}, Open ]], -Cell[CellGroupData[{ -Cell[14663, 513, 70, 0, 41, "Input",ExpressionUUID->"a60f4b40-cbec-4d33-97f5-65de16370f80"], -Cell[14736, 515, 71, 0, 180, "Output",ExpressionUUID->"820bd75e-ec9c-4db8-b5e7-96cfd532640b"] -}, Open ]], -Cell[CellGroupData[{ -Cell[14844, 520, 70, 0, 41, "Input",ExpressionUUID->"49d01b4e-c864-4298-94b7-ace002b965d8"], -Cell[14917, 522, 71, 0, 180, "Output",ExpressionUUID->"3156e626-6fd1-4878-b776-44c6cf7fef12"] -}, Open ]], -Cell[CellGroupData[{ -Cell[15025, 527, 70, 0, 39, "Input",ExpressionUUID->"4cefebbf-3ee0-49eb-85d3-1f8acdd03d03"], -Cell[15098, 529, 71, 0, 27, "Output",ExpressionUUID->"5fad1eab-bed9-4cd3-a21b-8c8758b922eb"] -}, Open ]], -Cell[CellGroupData[{ -Cell[15206, 534, 70, 0, 75, "Input",ExpressionUUID->"82d96d28-401c-43fa-8337-b55bfd500552"], -Cell[15279, 536, 71, 0, 138, "Output",ExpressionUUID->"1ab9ef64-9a55-4344-9cb3-5443ea2b020c"] -}, Open ]], -Cell[CellGroupData[{ -Cell[15387, 541, 70, 0, 57, "Input",ExpressionUUID->"b2167779-1e8f-4690-a7d9-fe7d464a4815"], -Cell[15460, 543, 71, 0, 181, "Output",ExpressionUUID->"ead509b6-b153-4829-be33-8ff5a6efcada"] -}, Open ]], -Cell[15546, 546, 70, 0, 55, "Input",ExpressionUUID->"172fdee0-af8e-4049-9dda-cfec26fad09c"], -Cell[CellGroupData[{ -Cell[15641, 550, 70, 0, 24, "Input",ExpressionUUID->"0ea1b44d-26c0-49ba-8c54-6d51b749dcee"], -Cell[15714, 552, 72, 0, 22, "Message",ExpressionUUID->"1820350f-3096-4479-969b-2dda88e43862"], -Cell[15789, 554, 71, 0, 60, "Output",ExpressionUUID->"58f08fd4-743e-4318-9e82-7ecda92ce1db"] -}, Open ]], -Cell[CellGroupData[{ -Cell[15897, 559, 70, 0, 71, "Input",ExpressionUUID->"324ac29a-a49d-4e6b-a8d8-b259afcd34c7"], -Cell[15970, 561, 71, 0, 138, "Output",ExpressionUUID->"464153b0-04b0-46cf-82d1-649dc2c2d6a0"] -}, Open ]], -Cell[CellGroupData[{ -Cell[16078, 566, 70, 0, 59, "Input",ExpressionUUID->"288a2ff7-5161-4fe5-8f43-122ba3a5d3f2"], -Cell[16151, 568, 71, 0, 184, "Output",ExpressionUUID->"d5da57e7-0428-4391-af81-4f874cd963e4"] -}, Open ]], -Cell[CellGroupData[{ -Cell[16259, 573, 70, 0, 75, "Input",ExpressionUUID->"d85908e0-a479-4a49-999f-e6e49522af2d"], -Cell[16332, 575, 71, 0, 180, "Output",ExpressionUUID->"2f30870a-4c21-432a-b77d-85d6f131265e"] -}, Open ]], -Cell[16418, 578, 70, 0, 55, "Input",ExpressionUUID->"4fbf2b0a-5252-416a-b90a-a12f6d946efe"], -Cell[CellGroupData[{ -Cell[16513, 582, 70, 0, 22, "Input",ExpressionUUID->"5ac27342-feda-4aa6-9098-1d0e7b78fae8"], -Cell[16586, 584, 71, 0, 42, "Output",ExpressionUUID->"b47243ad-5432-4eb5-bbf7-870353157603"] -}, Open ]], -Cell[CellGroupData[{ -Cell[16694, 589, 70, 0, 71, "Input",ExpressionUUID->"63fcec7c-aaff-46be-90dc-231bca0993d9"], -Cell[16767, 591, 71, 0, 138, "Output",ExpressionUUID->"547073ca-2de1-44b5-8139-682a4eb761c9"] -}, Open ]], -Cell[CellGroupData[{ -Cell[16875, 596, 70, 0, 141, "Input",ExpressionUUID->"8f2cfc94-a67c-484e-bbeb-610484e18a97"], -Cell[16948, 598, 71, 0, 138, "Output",ExpressionUUID->"453285de-e47a-4bcc-96d7-ec76dfc88820"] -}, Open ]], -Cell[17034, 601, 70, 0, 55, "Input",ExpressionUUID->"59993536-91f3-449a-9e8c-58cd1f6ec74c"], -Cell[CellGroupData[{ -Cell[17129, 605, 70, 0, 22, "Input",ExpressionUUID->"ab599d2d-27ef-4491-b1cb-534f98403e59"], -Cell[17202, 607, 72, 0, 46, "Message",ExpressionUUID->"f4cd9634-0e29-4718-97b8-490c5f242f4a"], -Cell[17277, 609, 71, 0, 58, "Output",ExpressionUUID->"80e0c922-0db4-48ee-96b6-33400b7fa9d7"] -}, Open ]], -Cell[CellGroupData[{ -Cell[17385, 614, 70, 0, 71, "Input",ExpressionUUID->"f9bd15f0-d859-4863-9fe9-3ad2883e76d2"], -Cell[17458, 616, 71, 0, 138, "Output",ExpressionUUID->"27a9c152-8a0d-4899-aa74-6a603c9665b9"] -}, Open ]], -Cell[17544, 619, 70, 0, 55, "Input",ExpressionUUID->"1282028e-7a8e-46e3-bc91-b35b1d1604ed"], -Cell[CellGroupData[{ -Cell[17639, 623, 70, 0, 22, "Input",ExpressionUUID->"83c6d43c-fed0-4989-a06f-986a75bf7651"], -Cell[17712, 625, 72, 0, 22, "Message",ExpressionUUID->"cf50225b-a0ef-4626-94a0-0803782ba72f"], -Cell[17787, 627, 71, 0, 79, "Output",ExpressionUUID->"e4dd84aa-35ca-4c06-b076-812cdad95551"] -}, Open ]], -Cell[CellGroupData[{ -Cell[17895, 632, 70, 0, 71, "Input",ExpressionUUID->"9903c113-3088-4e43-884e-783e3462a3bd"], -Cell[17968, 634, 71, 0, 136, "Output",ExpressionUUID->"ace4a267-d48c-4a17-8b21-0b8791f1d4a8"] -}, Open ]], -Cell[CellGroupData[{ -Cell[18076, 639, 70, 0, 22, "Input",ExpressionUUID->"85ae5ebd-4d7b-469b-b177-bd88ef9a9e54"], -Cell[18149, 641, 71, 0, 178, "Output",ExpressionUUID->"392555db-33d5-4e50-8a31-e2a3a67d3a75"] -}, Open ]], -Cell[18235, 644, 70, 0, 55, "Input",ExpressionUUID->"d0ac4c0e-3fde-4f39-860c-119c61865e94"], -Cell[CellGroupData[{ -Cell[18330, 648, 70, 0, 24, "Input",ExpressionUUID->"31b6196c-dff7-4ae3-ba24-930461af4520"], -Cell[18403, 650, 72, 0, 34, "Message",ExpressionUUID->"7df3f521-17b3-470c-a210-7a61feecd5cb"], -Cell[18478, 652, 71, 0, 76, "Output",ExpressionUUID->"ea8fe62a-dd49-4054-b383-0738f0b8f82f"] -}, Open ]], -Cell[CellGroupData[{ -Cell[18586, 657, 70, 0, 71, "Input",ExpressionUUID->"c89d4fc8-2254-4238-b27d-107fefc31da5"], -Cell[18659, 659, 71, 0, 136, "Output",ExpressionUUID->"d1455115-bd06-4d75-a8b5-99c39d1e90d7"] -}, Open ]], -Cell[CellGroupData[{ -Cell[18767, 664, 70, 0, 55, "Input",ExpressionUUID->"d7824482-d74e-4fac-8224-3728d7d92b24"], -Cell[18840, 666, 71, 0, 178, "Output",ExpressionUUID->"ad65c8a7-66e9-4c1e-b599-35bacb78e113"] -}, Open ]], -Cell[CellGroupData[{ -Cell[18948, 671, 70, 0, 22, "Input",ExpressionUUID->"93164c6e-f8e2-4fb1-ab0b-a65d379b88ef"], -Cell[19021, 673, 71, 0, 25, "Output",ExpressionUUID->"db3875cf-f19f-4e24-a7e4-c4017292b8fe"] -}, Open ]], -Cell[CellGroupData[{ -Cell[19129, 678, 70, 0, 22, "Input",ExpressionUUID->"40b90456-e65f-4936-94f0-aa9e157985d1"], -Cell[19202, 680, 71, 0, 51, "Output",ExpressionUUID->"e84b103a-4734-481c-bc68-32680f2490ae"] -}, Open ]], -Cell[CellGroupData[{ -Cell[19310, 685, 70, 0, 59, "Input",ExpressionUUID->"802f97e2-70b5-4c0e-b977-f8a2e505bb60"], -Cell[19383, 687, 71, 0, 77, "Output",ExpressionUUID->"13540836-8492-44db-8f61-825c10092a3b"] -}, Open ]], -Cell[CellGroupData[{ -Cell[19491, 692, 70, 0, 63, "Input",ExpressionUUID->"9510d7f0-79c6-409e-9c06-caac79aa83b9"], -Cell[19564, 694, 72, 0, 22, "Message",ExpressionUUID->"b9cd98f1-c229-4f5b-95ec-13d954ebd59a"], -Cell[19639, 696, 72, 0, 22, "Message",ExpressionUUID->"ea96e00a-9fe6-4d33-80b4-d0a9eed78731"], -Cell[19714, 698, 72, 0, 22, "Message",ExpressionUUID->"a31115cb-de8f-481d-994b-5bc9a83710b8"], -Cell[19789, 700, 72, 0, 22, "Message",ExpressionUUID->"667a685e-0e76-4db4-8986-9eaad489f3e3"] -}, Open ]], -Cell[CellGroupData[{ -Cell[19898, 705, 70, 0, 24, "Input",ExpressionUUID->"4c6fe8ab-4f6a-4b57-92a5-c94e403d041d"], -Cell[19971, 707, 71, 0, 182, "Output",ExpressionUUID->"11addea4-5f17-44f9-80f6-b7d15dd56efa"] -}, Open ]], -Cell[20057, 710, 70, 0, 109, "Input",ExpressionUUID->"bc84d748-2ae9-4f3e-87ec-0fa12dfd6954"], -Cell[CellGroupData[{ -Cell[20152, 714, 70, 0, 126, "Input",ExpressionUUID->"c099f9b5-a706-4293-9c42-f007146a13f7"], -Cell[20225, 716, 72, 0, 32, "Message",ExpressionUUID->"94a73904-550c-43cf-8d0b-35b5cbc01228"], -Cell[20300, 718, 72, 0, 22, "Message",ExpressionUUID->"3f893d05-e641-4bf4-9ea5-bcabdc4d6a95"], -Cell[20375, 720, 72, 0, 32, "Message",ExpressionUUID->"53b27a41-4cd2-4652-a104-35161ad96bf2"], -Cell[20450, 722, 72, 0, 32, "Message",ExpressionUUID->"413977e9-0c84-449f-b053-9df53b50e738"], -Cell[20525, 724, 72, 0, 22, "Message",ExpressionUUID->"d499cd59-07fb-492e-b9f7-1ddddfebb272"], -Cell[20600, 726, 72, 0, 22, "Message",ExpressionUUID->"395175e1-6469-49cf-a376-9be005af7add"], -Cell[20675, 728, 72, 0, 22, "Message",ExpressionUUID->"8f65301b-fe48-42b3-9924-e0e8e3bea608"], -Cell[20750, 730, 72, 0, 22, "Message",ExpressionUUID->"6d1c81df-b866-4446-8abe-657a6a8d929f"] -}, Open ]], -Cell[CellGroupData[{ -Cell[20859, 735, 70, 0, 22, "Input",ExpressionUUID->"a66d45ff-8000-4c96-bcb2-2bc7343fd5de"], -Cell[20932, 737, 71, 0, 305, "Output",ExpressionUUID->"5364b922-5bbc-4121-ab23-dc5bb4bec4cb"] -}, Open ]], -Cell[CellGroupData[{ -Cell[21040, 742, 70, 0, 76, "Input",ExpressionUUID->"8e0288f2-5922-4dde-923e-8106073adf6c"], -Cell[21113, 744, 71, 0, 352, "Output",ExpressionUUID->"c6c9c8e8-7cb0-4ad0-a6c6-fb0a70db55da"] -}, Open ]], -Cell[CellGroupData[{ -Cell[21221, 749, 70, 0, 24, "Input",ExpressionUUID->"4355674b-0fd6-4516-8896-cd33a8476ab5"], -Cell[21294, 751, 71, 0, 25, "Output",ExpressionUUID->"b8a18520-7b45-49b0-af16-64f6d0a9c819"] -}, Open ]], -Cell[CellGroupData[{ -Cell[21402, 756, 70, 0, 24, "Input",ExpressionUUID->"ee6beea5-4d88-4650-837d-58c8d3c6363b"], -Cell[21475, 758, 71, 0, 179, "Output",ExpressionUUID->"a27bcc82-f8f9-42d8-854c-a204a73d483f"] -}, Open ]], -Cell[21561, 761, 70, 0, 75, "Input",ExpressionUUID->"5894652c-ea9c-458f-866d-b40d1a5efb75"], -Cell[CellGroupData[{ -Cell[21656, 765, 70, 0, 24, "Input",ExpressionUUID->"3fee7ec2-e0c4-4420-8192-c46efe85e265"], -Cell[21729, 767, 71, 0, 178, "Output",ExpressionUUID->"2bfc8e2b-006d-4096-8c4b-8422da967dcb"] -}, Open ]], -Cell[21815, 770, 70, 0, 109, "Input",ExpressionUUID->"16683f20-3a25-47da-8c9c-58bfb1a56ae7"], -Cell[CellGroupData[{ -Cell[21910, 774, 70, 0, 24, "Input",ExpressionUUID->"0c28b27c-3e81-49ce-9293-512f19f95aeb"], -Cell[21983, 776, 71, 0, 180, "Output",ExpressionUUID->"a225487e-1b09-4625-b1b4-0393225de258"] -}, Open ]], -Cell[22069, 779, 70, 0, 55, "Input",ExpressionUUID->"78606265-f50f-49dc-888d-33550f059b83"], -Cell[CellGroupData[{ -Cell[22164, 783, 70, 0, 22, "Input",ExpressionUUID->"396a3ca5-637b-4194-943d-7ec379bcf47e"], -Cell[22237, 785, 71, 0, 25, "Output",ExpressionUUID->"032de8e5-e62b-4c2c-a2db-afe60e4c0f47"] -}, Open ]], -Cell[CellGroupData[{ -Cell[22345, 790, 70, 0, 71, "Input",ExpressionUUID->"050da7fc-1308-4d49-81b4-1f4efc54c09a"], -Cell[22418, 792, 71, 0, 136, "Output",ExpressionUUID->"5c8a355d-e522-4c74-8a53-b7d46e9c333f"] -}, Open ]], -Cell[22504, 795, 70, 0, 55, "Input",ExpressionUUID->"37ec5e26-c9a1-4c3e-b046-f5bdcb69b8db"], -Cell[CellGroupData[{ -Cell[22599, 799, 70, 0, 22, "Input",ExpressionUUID->"aafc8bea-bd59-4ab7-b436-168abec75b4d"], -Cell[22672, 801, 71, 0, 25, "Output",ExpressionUUID->"823a15e6-d4d4-45cf-b711-54e7c88841d0"] -}, Open ]], -Cell[CellGroupData[{ -Cell[22780, 806, 70, 0, 71, "Input",ExpressionUUID->"d90b515e-65bf-42c5-a9d8-7ebc27861a0a"], -Cell[22853, 808, 71, 0, 135, "Output",ExpressionUUID->"674ddf51-ef87-4ea3-981c-9bca8b07e0de"] -}, Open ]], -Cell[22939, 811, 70, 0, 55, "Input",ExpressionUUID->"74c29eca-8a3c-482d-b962-b5a7bc6eeeb5"], -Cell[CellGroupData[{ -Cell[23034, 815, 70, 0, 57, "Input",ExpressionUUID->"4f2555c0-0b0b-46e3-953c-b99c2d8ef953"], -Cell[23107, 817, 71, 0, 44, "Output",ExpressionUUID->"7ba637ff-c37f-4ab3-8f3f-c3a013477573"] -}, Open ]], -Cell[CellGroupData[{ -Cell[23215, 822, 70, 0, 71, "Input",ExpressionUUID->"11bfaed8-b616-4bdb-acee-d6f652a0a4e6"], -Cell[23288, 824, 71, 0, 136, "Output",ExpressionUUID->"9d9174e8-24e3-40da-860e-87b1062d7e14"] -}, Open ]], -Cell[23374, 827, 70, 0, 55, "Input",ExpressionUUID->"da646d41-2935-4f0b-94a9-796be9875f10"], -Cell[CellGroupData[{ -Cell[23469, 831, 70, 0, 57, "Input",ExpressionUUID->"bd584363-7bad-4830-803a-025a2ac0e9a6"], -Cell[23542, 833, 71, 0, 44, "Output",ExpressionUUID->"83698929-f178-4c4d-9569-7a23e1e9c919"] -}, Open ]], -Cell[CellGroupData[{ -Cell[23650, 838, 70, 0, 71, "Input",ExpressionUUID->"f7b18b38-4aa7-4d26-8653-c5282fb8bc07"], -Cell[23723, 840, 71, 0, 136, "Output",ExpressionUUID->"aeb5446a-db30-4b37-a075-fd0875fea03f"] -}, Open ]], -Cell[23809, 843, 70, 0, 55, "Input",ExpressionUUID->"6dd58649-2ccd-4fad-b61e-e6b84d8dc37c"], -Cell[CellGroupData[{ -Cell[23904, 847, 70, 0, 57, "Input",ExpressionUUID->"47d19cd0-5c7e-4d2e-8522-f7af9f76b03d"], -Cell[23977, 849, 71, 0, 44, "Output",ExpressionUUID->"e4c2258c-d675-43b1-8eb8-1a175227c843"] -}, Open ]], -Cell[CellGroupData[{ -Cell[24085, 854, 70, 0, 71, "Input",ExpressionUUID->"e5291fe9-0a5c-4396-ac44-47a5f71d5568"], -Cell[24158, 856, 71, 0, 134, "Output",ExpressionUUID->"f761d7d5-04c8-40b2-a937-6fac9575aeda"] -}, Open ]], -Cell[24244, 859, 70, 0, 55, "Input",ExpressionUUID->"034d75ed-4e94-4dfa-b0b5-fb25cd2d30d3"], -Cell[CellGroupData[{ -Cell[24339, 863, 70, 0, 73, "Input",ExpressionUUID->"939e0991-1a33-48bb-8325-c6afb708b1bf"], -Cell[24412, 865, 71, 0, 42, "Output",ExpressionUUID->"07c46e6f-b409-4e46-91c4-1f8deedd3b7c"] -}, Open ]], -Cell[CellGroupData[{ -Cell[24520, 870, 70, 0, 71, "Input",ExpressionUUID->"41fa3464-11f7-47db-b9f4-c04a234b3967"], -Cell[24593, 872, 71, 0, 136, "Output",ExpressionUUID->"e6ece27a-240d-4388-ae6d-863762fb16fc"] -}, Open ]], -Cell[24679, 875, 70, 0, 55, "Input",ExpressionUUID->"5f4959b4-0631-460c-894f-e078cc08f6c0"], -Cell[CellGroupData[{ -Cell[24774, 879, 70, 0, 89, "Input",ExpressionUUID->"42dd11c3-40d8-4229-9f2b-ea33c98a4a3d"], -Cell[24847, 881, 71, 0, 25, "Output",ExpressionUUID->"d656f635-4cba-4947-8345-8861516ad400"] -}, Open ]], -Cell[CellGroupData[{ -Cell[24955, 886, 70, 0, 71, "Input",ExpressionUUID->"3b92c534-fe03-4b93-bce9-3935e73cd50a"], -Cell[25028, 888, 71, 0, 133, "Output",ExpressionUUID->"047cfbb9-7bc7-4793-b25b-33d1e4b54f0f"] -}, Open ]], -Cell[CellGroupData[{ -Cell[25136, 893, 70, 0, 22, "Input",ExpressionUUID->"a88f2391-1bc9-4d7a-b773-d4641b529a92"], -Cell[25209, 895, 71, 0, 177, "Output",ExpressionUUID->"900bc96d-749d-4402-b6fc-1bde2c834df4"] -}, Open ]], -Cell[CellGroupData[{ -Cell[25317, 900, 70, 0, 63, "Input",ExpressionUUID->"c2d3e68e-6754-4848-ad45-4d3a81a85373"], -Cell[25390, 902, 72, 0, 22, "Message",ExpressionUUID->"7042c19d-9eb1-4c6c-b9ba-e11ecd2dad61"], -Cell[25465, 904, 72, 0, 22, "Message",ExpressionUUID->"e96fc95a-7476-4cfa-9b6e-023e5f08ec84"], -Cell[25540, 906, 72, 0, 22, "Message",ExpressionUUID->"697e339d-fa4d-4453-8541-d603f6be5ebf"], -Cell[25615, 908, 72, 0, 22, "Message",ExpressionUUID->"a383bd1a-c1d9-49e6-a3ce-876ea12c3de9"] -}, Open ]], -Cell[25702, 911, 70, 0, 75, "Input",ExpressionUUID->"7baff68f-40db-4778-a165-a239cf88cc8b"], -Cell[25775, 913, 70, 0, 109, "Input",ExpressionUUID->"54ea4ab2-b182-41d0-bc24-6dda493e24b7"], -Cell[25848, 915, 70, 0, 126, "Input",ExpressionUUID->"b233f772-ebe4-4d6e-82dc-3e50dc9f4a60"], -Cell[CellGroupData[{ -Cell[25943, 919, 70, 0, 24, "Input",ExpressionUUID->"326e1381-0fb5-48b8-8b67-86eb59a8de43"], -Cell[26016, 921, 71, 0, 182, "Output",ExpressionUUID->"ffcf6638-e41b-4dc3-a888-cbc1ddb5bd70"] -}, Open ]], -Cell[CellGroupData[{ -Cell[26124, 926, 70, 0, 24, "Input",ExpressionUUID->"a93f2c6c-20d9-4e76-bf4e-d83eb645bfe2"], -Cell[26197, 928, 71, 0, 178, "Output",ExpressionUUID->"e009ecd9-f064-498f-9713-a517c7738512"] -}, Open ]], -Cell[CellGroupData[{ -Cell[26305, 933, 70, 0, 24, "Input",ExpressionUUID->"355b7a05-dc53-48b3-a074-381cbbaeac81"], -Cell[26378, 935, 71, 0, 179, "Output",ExpressionUUID->"c021a3f3-a988-4ee0-849b-500241e51534"] -}, Open ]], -Cell[26464, 938, 70, 0, 55, "Input",ExpressionUUID->"a727ff31-abf9-4fbc-b1ba-5e10e05cc6ba"], -Cell[CellGroupData[{ -Cell[26559, 942, 70, 0, 57, "Input",ExpressionUUID->"e698d719-72a9-4ac8-adc0-f3dc6de33b29"], -Cell[26632, 944, 72, 0, 34, "Message",ExpressionUUID->"66d8969a-eb54-4408-9ca1-e26797128b2e"], -Cell[26707, 946, 71, 0, 44, "Output",ExpressionUUID->"c2ede9a0-b94f-4b1e-a656-779f19255c39"] -}, Open ]], -Cell[CellGroupData[{ -Cell[26815, 951, 70, 0, 71, "Input",ExpressionUUID->"cf4b5c4b-339f-4dee-887e-9827e8e84f6a"], -Cell[26888, 953, 71, 0, 135, "Output",ExpressionUUID->"59a5f5ab-6f64-4857-9cc3-85e34ce96d47"] -}, Open ]], -Cell[CellGroupData[{ -Cell[26996, 958, 70, 0, 22, "Input",ExpressionUUID->"284ac71a-7465-46b2-a883-7d04bfed7c1a"], -Cell[27069, 960, 71, 0, 177, "Output",ExpressionUUID->"8b218d9d-8ae6-4b3f-a0aa-21817c81ea81"] -}, Open ]], -Cell[27155, 963, 70, 0, 55, "Input",ExpressionUUID->"7b4489a6-2b9b-4fa0-b010-a2b21dfcde45"], -Cell[CellGroupData[{ -Cell[27250, 967, 70, 0, 57, "Input",ExpressionUUID->"3bcb2734-3eb2-49b0-9f9e-04e4c7a4fa3a"], -Cell[27323, 969, 71, 0, 44, "Output",ExpressionUUID->"babae66a-342f-4778-9bda-49d5d95c0e25"] -}, Open ]], -Cell[CellGroupData[{ -Cell[27431, 974, 70, 0, 71, "Input",ExpressionUUID->"0e6a979b-40f1-49c5-87f2-c038673fb15e"], -Cell[27504, 976, 71, 0, 135, "Output",ExpressionUUID->"067ae380-8bbe-4d24-910a-2d72ea259077"] -}, Open ]], -Cell[CellGroupData[{ -Cell[27612, 981, 70, 0, 22, "Input",ExpressionUUID->"a0ce8c43-76ba-466b-b075-393a38369f3e"], -Cell[27685, 983, 71, 0, 177, "Output",ExpressionUUID->"efcd0ede-5fe0-410c-85a7-f2cb4a37d0c4"] -}, Open ]], -Cell[27771, 986, 70, 0, 55, "Input",ExpressionUUID->"64ac9234-6e5e-4a0a-889d-9a4d2d9e49eb"], -Cell[CellGroupData[{ -Cell[27866, 990, 70, 0, 73, "Input",ExpressionUUID->"d5ce1c93-2d50-4d5c-a1f8-53932ea334e0"], -Cell[27939, 992, 71, 0, 60, "Output",ExpressionUUID->"55d1b86b-6c0e-4346-b514-6a32ca6f4162"] -}, Open ]], -Cell[CellGroupData[{ -Cell[28047, 997, 70, 0, 71, "Input",ExpressionUUID->"4639fe6e-d305-44c1-81c3-afb4e380c88d"], -Cell[28120, 999, 71, 0, 136, "Output",ExpressionUUID->"ee73d4b7-147b-4902-9021-472fa1cbd2dd"] -}, Open ]], -Cell[CellGroupData[{ -Cell[28228, 1004, 70, 0, 22, "Input",ExpressionUUID->"487c1f18-3c65-4275-b382-bd34678bb77b"], -Cell[28301, 1006, 71, 0, 180, "Output",ExpressionUUID->"98313969-c467-4d0e-84c2-9301e7354fd8"] -}, Open ]], -Cell[28387, 1009, 70, 0, 55, "Input",ExpressionUUID->"f984095d-d7b8-42c0-84b6-f249f7191889"], -Cell[CellGroupData[{ -Cell[28482, 1013, 70, 0, 89, "Input",ExpressionUUID->"eb772438-6d55-4597-94c4-e8e4c8a28dea"], -Cell[28555, 1015, 72, 0, 37, "Message",ExpressionUUID->"15e11a28-3910-4175-baec-32f60966f167"], -Cell[28630, 1017, 71, 0, 60, "Output",ExpressionUUID->"dc1d0e6d-dbfc-4101-8f2b-a45c3ce40dc1"] -}, Open ]], -Cell[CellGroupData[{ -Cell[28738, 1022, 70, 0, 71, "Input",ExpressionUUID->"6f764f4a-8e60-4ade-81f6-342ce8502e9b"], -Cell[28811, 1024, 71, 0, 138, "Output",ExpressionUUID->"073b197f-bc4b-40a2-a232-0cc8f06d961e"] -}, Open ]], -Cell[CellGroupData[{ -Cell[28919, 1029, 70, 0, 22, "Input",ExpressionUUID->"afe99e33-748e-47f2-ba2a-c0c57008e3ff"], -Cell[28992, 1031, 71, 0, 177, "Output",ExpressionUUID->"76d79e7a-9d2d-45b3-bb8a-8f918994420a"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[29112, 1037, 418, 11, 40, "Section",ExpressionUUID->"c1a07f43-bf98-4ded-8fe2-acd38d81a62a"], -Cell[29533, 1050, 70, 0, 22, "Input",ExpressionUUID->"9814740b-6ceb-49dd-a8e7-470aa128f596"], -Cell[29606, 1052, 70, 0, 71, "Input",ExpressionUUID->"e5da5cdc-dea4-468f-9f80-7bcb8f7055ed"], -Cell[CellGroupData[{ -Cell[29701, 1056, 70, 0, 22, "Input",ExpressionUUID->"61971941-a9ac-455d-84ae-8db30be2e665"], -Cell[29774, 1058, 71, 0, 25, "Output",ExpressionUUID->"d79a197b-d3c2-420f-8a75-43a5a1f3eb88"] -}, Open ]], -Cell[29860, 1061, 70, 0, 71, "Input",ExpressionUUID->"7251e138-0073-4aed-93ec-409e542ba595"], -Cell[CellGroupData[{ -Cell[29955, 1065, 70, 0, 24, "Input",ExpressionUUID->"83870e45-e831-43bd-830f-3bbd0bc4cf26"], -Cell[30028, 1067, 71, 0, 25, "Output",ExpressionUUID->"608e5f38-8dc5-4659-9821-1c08ee7937a3"] -}, Open ]], -Cell[30114, 1070, 70, 0, 71, "Input",ExpressionUUID->"2b68538e-eb4e-4fc5-8598-9d7f4cf47a71"], -Cell[CellGroupData[{ -Cell[30209, 1074, 70, 0, 24, "Input",ExpressionUUID->"f2eb7ff1-b83a-4711-baeb-03d638af762f"], -Cell[30282, 1076, 71, 0, 25, "Output",ExpressionUUID->"8d8581e1-e769-405e-8440-00d9ea8a80b7"] -}, Open ]], -Cell[30368, 1079, 70, 0, 71, "Input",ExpressionUUID->"ff1cfdef-3775-4671-b5a8-7f84d899bb44"], -Cell[CellGroupData[{ -Cell[30463, 1083, 70, 0, 24, "Input",ExpressionUUID->"4ac9a3d8-7344-4b36-86cc-927251f84ae6"], -Cell[30536, 1085, 71, 0, 25, "Output",ExpressionUUID->"4020c1a4-5f22-47ef-9d1f-adef13840e75"] -}, Open ]], -Cell[30622, 1088, 70, 0, 71, "Input",ExpressionUUID->"be587998-8957-48f9-8d89-e1f575b484d9"], -Cell[CellGroupData[{ -Cell[30717, 1092, 70, 0, 24, "Input",ExpressionUUID->"30f0ed04-9858-4017-8217-985c3efc1c9b"], -Cell[30790, 1094, 71, 0, 25, "Output",ExpressionUUID->"c81e0168-c726-4188-a9c4-724e6bccc499"] -}, Open ]], -Cell[30876, 1097, 70, 0, 71, "Input",ExpressionUUID->"689e18ed-1ec8-498a-ad1b-507e0dd03bae"], -Cell[CellGroupData[{ -Cell[30971, 1101, 70, 0, 24, "Input",ExpressionUUID->"d483d5c3-c5f0-4bc3-b35a-ee3705301f57"], -Cell[31044, 1103, 71, 0, 27, "Output",ExpressionUUID->"972e9daa-b8c0-48ea-94a6-5c1206f9ded8"] -}, Open ]], -Cell[31130, 1106, 70, 0, 71, "Input",ExpressionUUID->"4908c8f4-c01f-434c-9530-5ff19546ec45"], -Cell[CellGroupData[{ -Cell[31225, 1110, 70, 0, 24, "Input",ExpressionUUID->"c63ac5aa-bc1a-4703-8f86-c784cca22af9"], -Cell[31298, 1112, 71, 0, 44, "Output",ExpressionUUID->"8cee96ed-e342-42b4-9a7c-986d1e772ed3"] -}, Open ]], -Cell[31384, 1115, 70, 0, 71, "Input",ExpressionUUID->"6dc40e0e-abcd-407f-bbc6-3e7148e2aec4"], -Cell[CellGroupData[{ -Cell[31479, 1119, 70, 0, 24, "Input",ExpressionUUID->"616ce136-6737-40e5-8029-31272add86f8"], -Cell[31552, 1121, 71, 0, 44, "Output",ExpressionUUID->"9d4cc682-8c95-449b-9ae1-a07d60f17b16"] -}, Open ]], -Cell[31638, 1124, 70, 0, 71, "Input",ExpressionUUID->"0359663b-ea4b-4f2b-b953-154950f875db"], -Cell[CellGroupData[{ -Cell[31733, 1128, 70, 0, 24, "Input",ExpressionUUID->"ec848311-8958-4766-9a5d-9be5abcc44cb"], -Cell[31806, 1130, 71, 0, 44, "Output",ExpressionUUID->"51334039-280f-48e2-b328-4297f777c9de"] -}, Open ]], -Cell[31892, 1133, 70, 0, 71, "Input",ExpressionUUID->"49fccc0f-c05a-483f-ad54-254b7500e1ec"], -Cell[CellGroupData[{ -Cell[31987, 1137, 70, 0, 24, "Input",ExpressionUUID->"3400ca05-e157-461b-96a6-83634df1cc38"], -Cell[32060, 1139, 72, 0, 22, "Message",ExpressionUUID->"4717bc47-0f9e-459c-a089-7072d9d8546f"], -Cell[32135, 1141, 71, 0, 44, "Output",ExpressionUUID->"9e06fa9c-619d-48be-8bd4-a62423b68459"] -}, Open ]], -Cell[CellGroupData[{ -Cell[32243, 1146, 70, 0, 24, "Input",ExpressionUUID->"7336ac6b-83d1-49ff-a184-4670f1967f5f"], -Cell[32316, 1148, 71, 0, 25, "Output",ExpressionUUID->"a267ea60-447c-4dcc-ab03-202e34d3e02b"] -}, Open ]], -Cell[CellGroupData[{ -Cell[32424, 1153, 70, 0, 24, "Input",ExpressionUUID->"15ada2d4-3591-4b28-a4a0-0c24a32c8424"], -Cell[32497, 1155, 71, 0, 25, "Output",ExpressionUUID->"769cfb1a-0cd6-4aa9-816e-ac5e5367d434"] -}, Open ]], -Cell[CellGroupData[{ -Cell[32605, 1160, 70, 0, 24, "Input",ExpressionUUID->"49c36534-7e17-40fd-b17b-6c24396cf79b"], -Cell[32678, 1162, 71, 0, 25, "Output",ExpressionUUID->"3eb32547-a996-48e0-bbf9-9f8a2877f2f6"] -}, Open ]], -Cell[CellGroupData[{ -Cell[32786, 1167, 70, 0, 24, "Input",ExpressionUUID->"1b662f6f-7fb0-44b3-98b2-fcd0cb6cab57"], -Cell[32859, 1169, 71, 0, 25, "Output",ExpressionUUID->"1581c58d-9a8e-473e-b952-16b423bd8281"] -}, Open ]], -Cell[CellGroupData[{ -Cell[32967, 1174, 70, 0, 24, "Input",ExpressionUUID->"11f063b7-0e7a-4b08-8d80-05ffaf815f0e"], -Cell[33040, 1176, 71, 0, 25, "Output",ExpressionUUID->"59d2c040-d7ec-47c4-8ccb-8dc4f6bdfd9c"] -}, Open ]], -Cell[CellGroupData[{ -Cell[33148, 1181, 70, 0, 24, "Input",ExpressionUUID->"73f3d0d8-55bd-4b87-9313-593ad5301d2f"], -Cell[33221, 1183, 71, 0, 177, "Output",ExpressionUUID->"88cd5860-1a82-4fe9-9019-187e9a6284bc"] -}, Open ]], -Cell[33307, 1186, 70, 0, 22, "Input",ExpressionUUID->"a5dcf275-1d4e-4c96-a79c-53a3afcdb89b"], -Cell[CellGroupData[{ -Cell[33402, 1190, 70, 0, 24, "Input",ExpressionUUID->"d831d23a-4316-405f-82be-49802e861f83"], -Cell[33475, 1192, 71, 0, 40, "Output",ExpressionUUID->"80e78af9-9b53-4cc1-b28d-62d39e95442d"] -}, Open ]], -Cell[CellGroupData[{ -Cell[33583, 1197, 70, 0, 22, "Input",ExpressionUUID->"b077fbbc-1b67-46ce-928c-cb9cb93feb84"], -Cell[33656, 1199, 71, 0, 39, "Output",ExpressionUUID->"fe7374a3-2e61-4f7f-bfa8-7f2610ce7280"] -}, Open ]], -Cell[CellGroupData[{ -Cell[33764, 1204, 70, 0, 24, "Input",ExpressionUUID->"7ad3e447-b82f-4f7c-bc15-cc792a2f0f08"], -Cell[33837, 1206, 71, 0, 41, "Output",ExpressionUUID->"18e6e545-3d72-4cad-bb2d-62756bb962d5"] -}, Open ]], -Cell[CellGroupData[{ -Cell[33945, 1211, 70, 0, 22, "Input",ExpressionUUID->"e5a7c569-4ce5-4d3c-98f3-9160229fa5f0"], -Cell[34018, 1213, 71, 0, 41, "Output",ExpressionUUID->"f01cccdd-cd51-4883-b237-195d686deb4a"] -}, Open ]], -Cell[CellGroupData[{ -Cell[34126, 1218, 70, 0, 24, "Input",ExpressionUUID->"667660ba-66f5-4b76-8eaf-75601abced2b"], -Cell[34199, 1220, 71, 0, 25, "Output",ExpressionUUID->"2988841f-72ad-4f38-8e0d-50ce0c5e4c4a"] -}, Open ]], -Cell[CellGroupData[{ -Cell[34307, 1225, 70, 0, 22, "Input",ExpressionUUID->"a8889652-7842-41cf-8091-72987781207f"], -Cell[34380, 1227, 71, 0, 175, "Output",ExpressionUUID->"c9889d41-efaa-48df-8497-e0395247ab18"] -}, Open ]], -Cell[CellGroupData[{ -Cell[34488, 1232, 70, 0, 23, "Input",ExpressionUUID->"f492346f-039d-454e-b401-4478d7324c1e"], -Cell[34561, 1234, 71, 0, 25, "Output",ExpressionUUID->"8116d71c-2d49-4040-aba8-7a291ab11d2b"] -}, Open ]], -Cell[CellGroupData[{ -Cell[34669, 1239, 70, 0, 25, "Input",ExpressionUUID->"8a8852a1-d6eb-4f81-aae0-a33a01326f50"], -Cell[34742, 1241, 71, 0, 25, "Output",ExpressionUUID->"d72a90fc-a009-4c0c-949a-963bb5b65ef4"] -}, Open ]], -Cell[CellGroupData[{ -Cell[34850, 1246, 70, 0, 22, "Input",ExpressionUUID->"f758c571-4941-4819-b8ff-bda876db06de"], -Cell[34923, 1248, 71, 0, 39, "Output",ExpressionUUID->"5a0a399e-f5ce-43d7-878e-195ab44a54cc"] -}, Open ]], -Cell[35009, 1251, 70, 0, 24, "Input",ExpressionUUID->"b3d86629-c3a8-4e5c-8968-6735fe772663"], -Cell[CellGroupData[{ -Cell[35104, 1255, 70, 0, 25, "Input",ExpressionUUID->"a06dd50c-b2a6-48cd-a550-24e88107ce4e"], -Cell[35177, 1257, 72, 0, 22, "Message",ExpressionUUID->"231f26c8-d164-4ed2-9d95-3ae6b9e7db4a"], -Cell[35252, 1259, 72, 0, 22, "Message",ExpressionUUID->"9234dcc5-0207-4b2e-8051-0501c80d8d9f"], -Cell[35327, 1261, 72, 0, 22, "Message",ExpressionUUID->"d1fb6878-82d5-4bae-8198-ca5be20a90a5"], -Cell[35402, 1263, 72, 0, 22, "Message",ExpressionUUID->"14e79556-c616-4367-a2e8-6eb65243108f"], -Cell[35477, 1265, 71, 0, 168, "Output",ExpressionUUID->"79b3a56a-fb4e-43df-a5e7-cc282c5e91e5"] -}, Open ]], -Cell[35563, 1268, 70, 0, 22, "Input",ExpressionUUID->"16011121-ccb9-4633-8c80-193152571641"], -Cell[35636, 1270, 70, 0, 71, "Input",ExpressionUUID->"dd17419e-1a61-45a6-bc6e-4fc73cef39c7"], -Cell[CellGroupData[{ -Cell[35731, 1274, 70, 0, 24, "Input",ExpressionUUID->"26c43faf-69ad-4747-a4c2-02faedeae0ba"], -Cell[35804, 1276, 72, 0, 22, "Message",ExpressionUUID->"f4aabacf-847b-4f9a-989e-275f0207bfac"], -Cell[35879, 1278, 71, 0, 44, "Output",ExpressionUUID->"54f52e14-1cc2-4199-81ae-b38e003ee6a7"] -}, Open ]], -Cell[CellGroupData[{ -Cell[35987, 1283, 70, 0, 22, "Input",ExpressionUUID->"0e67ed2d-901e-4ad6-bc18-0187d868db2a"], -Cell[36060, 1285, 71, 0, 412, "Output",ExpressionUUID->"bb3e229d-42a2-4f31-ba52-03d502114257"] -}, Open ]], -Cell[CellGroupData[{ -Cell[36168, 1290, 70, 0, 97, "Input",ExpressionUUID->"f953e6b7-d6db-4adc-ae62-1eaf92d1b68b"], -Cell[36241, 1292, 71, 0, 428, "Output",ExpressionUUID->"52df7986-73ef-4731-a037-32f90ae8c2ca"] -}, Open ]], -Cell[CellGroupData[{ -Cell[36349, 1297, 70, 0, 38, "Input",ExpressionUUID->"49320ca4-5c8c-4b1e-98f4-0fce9d6f767d"], -Cell[36422, 1299, 71, 0, 35, "Output",ExpressionUUID->"a5bcadc6-2050-4678-82db-1cc984ce4cf8"] -}, Open ]], -Cell[CellGroupData[{ -Cell[36530, 1304, 70, 0, 24, "Input",ExpressionUUID->"23c90a2a-3181-4507-b03d-1c6a524d318f"], -Cell[36603, 1306, 71, 0, 58, "Output",ExpressionUUID->"804ea812-1e08-451e-b89b-85e21b7a900b"] -}, Open ]], -Cell[CellGroupData[{ -Cell[36711, 1311, 70, 0, 22, "Input",ExpressionUUID->"411d79ae-3a60-45b7-ad34-0402223bc804"], -Cell[36784, 1313, 71, 0, 44, "Output",ExpressionUUID->"d0487fb6-cc6f-4a82-b7e9-c88e89124f26"] -}, Open ]], -Cell[CellGroupData[{ -Cell[36892, 1318, 70, 0, 99, "Input",ExpressionUUID->"f3f929dc-63b9-41e4-a7fa-bfc6233c0667"], -Cell[36965, 1320, 71, 0, 449, "Output",ExpressionUUID->"849e1d2a-9c50-44de-89d5-857702cb5fd5"] -}, Open ]], -Cell[CellGroupData[{ -Cell[37073, 1325, 70, 0, 22, "Input",ExpressionUUID->"a0caebd2-23a7-4511-9498-0c1a2e9cfe53"], -Cell[37146, 1327, 71, 0, 271, "Output",ExpressionUUID->"7be21de8-007c-4120-a339-1f3ac51c3e60"] -}, Open ]], -Cell[CellGroupData[{ -Cell[37254, 1332, 70, 0, 75, "Input",ExpressionUUID->"6fcf53ff-126b-4b26-a83b-148e00bf6b1b"], -Cell[37327, 1334, 71, 0, 181, "Output",ExpressionUUID->"c786cfbb-e4b0-428c-b40c-df3c0c0def56"] -}, Open ]], -Cell[37413, 1337, 70, 0, 71, "Input",ExpressionUUID->"9f042e79-5a77-40a7-a4d2-a6d243e6aed3"], -Cell[CellGroupData[{ -Cell[37508, 1341, 70, 0, 24, "Input",ExpressionUUID->"9dd5f638-04be-4ab9-8e9e-a36242ce03fc"], -Cell[37581, 1343, 71, 0, 44, "Output",ExpressionUUID->"9e62f072-c037-4c2b-a694-0a0eb1b1e9ea"] +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[37667, 1346, 70, 0, 71, "Input",ExpressionUUID->"b83dae54-967b-45b1-81ce-458e168a8389"], + Cell[CellGroupData[{ -Cell[37762, 1350, 70, 0, 24, "Input",ExpressionUUID->"9835d85f-5114-4265-bc49-5f2e4c050b32"], -Cell[37835, 1352, 71, 0, 44, "Output",ExpressionUUID->"ebe14f51-7209-4e07-91c9-c24982da80ea"] + +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[37921, 1355, 70, 0, 71, "Input",ExpressionUUID->"047dad42-d9f8-4bb8-a64f-7e04a9585915"], + Cell[CellGroupData[{ -Cell[38016, 1359, 70, 0, 24, "Input",ExpressionUUID->"890d932c-2ab7-4f89-a1ee-76f76a9c3c67"], -Cell[38089, 1361, 71, 0, 25, "Output",ExpressionUUID->"e07ab9be-41a7-41c9-ae59-4c3f17b35525"] -}, Open ]], + +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[38197, 1366, 70, 0, 22, "Input",ExpressionUUID->"2af0cd55-f1de-4186-b4d2-7e0ee2fcbb90"], -Cell[38270, 1368, 71, 0, 25, "Output",ExpressionUUID->"22f7b89c-ce93-4b4d-9c59-f15ec7f6da73"] + +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[CellGroupData[{ -Cell[38378, 1373, 70, 0, 22, "Input",ExpressionUUID->"6029f4f2-49f1-4154-aecc-06d866e07507"], -Cell[38451, 1375, 71, 0, 25, "Output",ExpressionUUID->"15242adf-c742-46be-bda8-6054e9f087b3"] + +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[38559, 1380, 70, 0, 22, "Input",ExpressionUUID->"a4dbeef0-fcd6-4246-a096-026cd5c8fe7d"], -Cell[38632, 1382, 71, 0, 25, "Output",ExpressionUUID->"e5f37624-2f5e-4013-ae6b-6268f8ff6713"] + +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[38740, 1387, 70, 0, 246, "Input",ExpressionUUID->"115752ea-f3aa-4038-a6aa-91c3f57bfac5"], -Cell[38813, 1389, 71, 0, 170, "Output",ExpressionUUID->"ffa200df-716b-49a6-86be-94fa59dec869"] -}, Open ]], + +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[38921, 1394, 70, 0, 24, "Input",ExpressionUUID->"8fffab93-64df-4b6d-9647-f5f8bb98486e"], -Cell[38994, 1396, 71, 0, 25, "Output",ExpressionUUID->"20eb8865-5dd8-4dcd-ab85-d54dfd719358"] + +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[CellGroupData[{ -Cell[39102, 1401, 70, 0, 22, "Input",ExpressionUUID->"7c14b679-0a0b-4d2d-86fd-db7da5a08f8d"], -Cell[39175, 1403, 71, 0, 25, "Output",ExpressionUUID->"c86e3d74-dfee-43a3-b88b-5f71c70d4a28"] + +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[39283, 1408, 70, 0, 22, "Input",ExpressionUUID->"17e630bf-a8b6-4486-96e6-7f607c98ab57"], -Cell[39356, 1410, 71, 0, 25, "Output",ExpressionUUID->"34cf2491-74b3-42e9-9f31-17cb7bbb6838"] + +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[39464, 1415, 70, 0, 22, "Input",ExpressionUUID->"0598b222-62c5-416e-b305-746b40dd9bc3"], -Cell[39537, 1417, 71, 0, 25, "Output",ExpressionUUID->"c0cfe5fe-aabf-43c5-8e4a-26fc7484f455"] -}, Open ]], + +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[39645, 1422, 70, 0, 24, "Input",ExpressionUUID->"5af9d17e-db82-48f8-90e9-228210a09ed5"], -Cell[39718, 1424, 71, 0, 25, "Output",ExpressionUUID->"9be1c398-b71f-4b8e-86ff-b57730c34ab5"] + +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[39804, 1427, 70, 0, 22, "Input",ExpressionUUID->"b7b83165-8b6f-4f90-a072-18689e4da274"], -Cell[CellGroupData[{ -Cell[39899, 1431, 70, 0, 22, "Input",ExpressionUUID->"6897f3b9-582a-494f-bdf5-c17bb76e55eb"], -Cell[39972, 1433, 71, 0, 25, "Output",ExpressionUUID->"af3bc580-2a55-4a7d-ac98-b39a4d20796c"] + +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[40080, 1438, 70, 0, 24, "Input",ExpressionUUID->"934c6620-7229-4e4b-b2ba-810eea6190fc"], -Cell[40153, 1440, 71, 0, 25, "Output",ExpressionUUID->"97e63d9c-91b3-4669-accb-83df4a801f84"] + +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[40261, 1445, 70, 0, 71, "Input",ExpressionUUID->"3a1ee666-d77d-4248-b833-dd1b09c23d24"], -Cell[40334, 1447, 71, 0, 183, "Output",ExpressionUUID->"058dec63-327d-4cf0-b0a1-cdf5c026a84b"] + +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[40420, 1450, 70, 0, 22, "Input",ExpressionUUID->"f4bc065b-3d70-4f1f-bbed-9d1c17b3fc3d"], -Cell[CellGroupData[{ -Cell[40515, 1454, 70, 0, 24, "Input",ExpressionUUID->"d1ee4b7a-f19c-4764-a00e-c0443a4a655f"], -Cell[40588, 1456, 71, 0, 25, "Output",ExpressionUUID->"1538c9df-d831-46f1-8713-7331dbb17ad5"] + +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[40696, 1461, 70, 0, 75, "Input",ExpressionUUID->"cb621e05-0372-4be4-8a7f-fa6af95394ed"], -Cell[40769, 1463, 71, 0, 25, "Output",ExpressionUUID->"11752d12-3b73-4277-a911-0c1d26651286"] + +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[40877, 1468, 70, 0, 37, "Input",ExpressionUUID->"18d44a4a-c7fc-4ae5-848b-d13406c29337"], -Cell[40950, 1470, 71, 0, 25, "Output",ExpressionUUID->"99c9c147-0bc3-4778-9545-e9c45fe0ac14"] -}, Open ]], + +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[41058, 1475, 70, 0, 24, "Input",ExpressionUUID->"e3524918-77d8-4a79-be8a-6de43155ca32"], -Cell[41131, 1477, 71, 0, 27, "Output",ExpressionUUID->"a9939342-ed73-4ec4-91fc-0ea9e8060540"] + +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[CellGroupData[{ -Cell[41239, 1482, 70, 0, 22, "Input",ExpressionUUID->"5fd94adc-3ec9-44a6-9da8-ece1fda82850"], -Cell[41312, 1484, 71, 0, 25, "Output",ExpressionUUID->"4a09183b-1d26-4467-8906-95ef0ab9c6c8"] + +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[41420, 1489, 70, 0, 39, "Input",ExpressionUUID->"73c66fd5-052d-458a-84d0-ede60e041f24"], -Cell[41493, 1491, 71, 0, 25, "Output",ExpressionUUID->"c0c4b728-d1d8-42c2-a3f1-8b215d3c5a43"] + +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[41601, 1496, 70, 0, 58, "Input",ExpressionUUID->"7a26d6af-0aab-455f-91db-5512571172b3"], -Cell[41674, 1498, 71, 0, 171, "Output",ExpressionUUID->"1b652f9e-f35c-42cd-a7e0-f01c8229e46b"] -}, Open ]], -Cell[41760, 1501, 70, 0, 55, "Input",ExpressionUUID->"3d32eb0d-fb5d-46ba-bbff-a17aec10d743"], + +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[41855, 1505, 70, 0, 22, "Input",ExpressionUUID->"40615a3b-3bf4-41cf-af74-188977e3a07e"], -Cell[41928, 1507, 72, 0, 22, "Message",ExpressionUUID->"1cd1ee4c-be11-4530-bf3b-f6416b08a0ff"], -Cell[42003, 1509, 71, 0, 25, "Output",ExpressionUUID->"7acf39dc-8aed-44fe-8bb0-bb9436fd9010"] + +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[CellGroupData[{ -Cell[42111, 1514, 70, 0, 71, "Input",ExpressionUUID->"bf8968d9-19d7-4017-b5b9-14c165d48e1d"], -Cell[42184, 1516, 71, 0, 137, "Output",ExpressionUUID->"f716e403-3b85-4db1-bcc7-65265fa14b70"] + +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[42292, 1521, 70, 0, 41, "Input",ExpressionUUID->"a73f44d7-19db-4443-8971-77a7d3cbc4ac"], -Cell[42365, 1523, 71, 0, 180, "Output",ExpressionUUID->"2da9ed36-c74b-4b4e-987d-951628f83457"] + +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[42473, 1528, 70, 0, 41, "Input",ExpressionUUID->"0cce5618-8a99-44e7-86b5-68e7bc48ef0b"], -Cell[42546, 1530, 71, 0, 180, "Output",ExpressionUUID->"1b6560cd-6b3d-4bab-919b-dc6e68e7c444"] -}, Open ]], + +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[42654, 1535, 70, 0, 39, "Input",ExpressionUUID->"8485951e-7fc8-43ed-8ba0-ef1e6d664951"], -Cell[42727, 1537, 71, 0, 27, "Output",ExpressionUUID->"e2c67870-453b-427a-95e8-cab50a430376"] + +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[CellGroupData[{ -Cell[42835, 1542, 70, 0, 75, "Input",ExpressionUUID->"f8206946-5423-4615-81a4-c230b5e80d65"], -Cell[42908, 1544, 71, 0, 138, "Output",ExpressionUUID->"985cd9bf-505a-4fe6-988b-e983fb70bc8a"] + +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[43016, 1549, 70, 0, 57, "Input",ExpressionUUID->"8088e833-ee02-4258-9f96-8c0e92981bf8"], -Cell[43089, 1551, 71, 0, 181, "Output",ExpressionUUID->"93cd739f-29d0-4b70-aac3-bf2a78f628b7"] + +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[43175, 1554, 70, 0, 55, "Input",ExpressionUUID->"bd576e58-f517-4aa4-afda-31a30b3f37f2"], + Cell[CellGroupData[{ -Cell[43270, 1558, 70, 0, 24, "Input",ExpressionUUID->"ceb62266-9f07-4658-a4d7-321e2989a78e"], -Cell[43343, 1560, 72, 0, 22, "Message",ExpressionUUID->"5c805d43-a6a3-4259-8167-9ed7a83569c3"], -Cell[43418, 1562, 71, 0, 60, "Output",ExpressionUUID->"ca8008f0-9c0b-428c-bd51-8cef3103b4c4"] -}, Open ]], + +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[43526, 1567, 70, 0, 71, "Input",ExpressionUUID->"ce2413ff-e1c9-412f-8c1c-20f5155a8e4e"], -Cell[43599, 1569, 71, 0, 138, "Output",ExpressionUUID->"970b6b46-2fe0-42a5-8a2d-e2d76a8db9e5"] + +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[CellGroupData[{ -Cell[43707, 1574, 70, 0, 59, "Input",ExpressionUUID->"a2b6993a-026b-4527-b432-66adf3e82a38"], -Cell[43780, 1576, 71, 0, 184, "Output",ExpressionUUID->"bf2495ed-92b4-47e0-8f49-b2172527f2d1"] + +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[43888, 1581, 70, 0, 75, "Input",ExpressionUUID->"3dce5e91-87e2-45b3-8a1a-d6f943dd975c"], -Cell[43961, 1583, 71, 0, 180, "Output",ExpressionUUID->"69a06601-7d40-4a49-9c86-e61321248df8"] + +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[44047, 1586, 70, 0, 55, "Input",ExpressionUUID->"8e15ee6e-f796-4feb-a19d-45aa418925bc"], + Cell[CellGroupData[{ -Cell[44142, 1590, 70, 0, 22, "Input",ExpressionUUID->"01559a7f-0832-4186-9a48-6dc2654c35f7"], -Cell[44215, 1592, 71, 0, 42, "Output",ExpressionUUID->"c8019c92-12bd-4aec-9d81-dd12103214c5"] -}, Open ]], + +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[44323, 1597, 70, 0, 71, "Input",ExpressionUUID->"64934bdb-d7a0-4854-b9ce-237aaf977e8a"], -Cell[44396, 1599, 71, 0, 138, "Output",ExpressionUUID->"838b5db2-c5d6-4d60-a8cd-e5d80ea3cacb"] + +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[CellGroupData[{ -Cell[44504, 1604, 70, 0, 141, "Input",ExpressionUUID->"c75788e5-2d5f-4b60-a9a3-c8ab1e900ca6"], -Cell[44577, 1606, 71, 0, 138, "Output",ExpressionUUID->"b026bd64-4322-4d3d-bd25-24c6f375d92e"] + +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[44663, 1609, 70, 0, 55, "Input",ExpressionUUID->"8712ec7d-4853-4834-9148-2e0b87e145f3"], + Cell[CellGroupData[{ -Cell[44758, 1613, 70, 0, 22, "Input",ExpressionUUID->"357d2920-878c-453b-80a5-70ba292a5ae8"], -Cell[44831, 1615, 72, 0, 46, "Message",ExpressionUUID->"47f7f2c3-b7e2-4a94-b6cf-25d9f0fa600f"], -Cell[44906, 1617, 71, 0, 58, "Output",ExpressionUUID->"9a6912d5-608a-4795-8a0e-d54603e47fad"] + +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[45014, 1622, 70, 0, 71, "Input",ExpressionUUID->"5f25fdb0-021a-4328-9d95-e2f4257a4ed7"], -Cell[45087, 1624, 71, 0, 138, "Output",ExpressionUUID->"bf5ad568-a673-4464-9f2c-8e5d79bac130"] + +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[45173, 1627, 70, 0, 55, "Input",ExpressionUUID->"52fb4777-4c7f-45e8-ac9f-46d51d41be30"], + Cell[CellGroupData[{ -Cell[45268, 1631, 70, 0, 22, "Input",ExpressionUUID->"0d730e0c-0cc6-4c7f-8384-7f3287a69ea5"], -Cell[45341, 1633, 72, 0, 22, "Message",ExpressionUUID->"e6302471-fb4c-458d-8ff0-f2052addc5e7"], -Cell[45416, 1635, 71, 0, 79, "Output",ExpressionUUID->"795c441e-9e36-4982-b06f-02572be8c468"] + +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[45524, 1640, 70, 0, 71, "Input",ExpressionUUID->"19ffcc93-81a4-4442-9f7d-bb0a91076a83"], -Cell[45597, 1642, 71, 0, 136, "Output",ExpressionUUID->"7c3bf3fe-4257-44f9-b31f-df5fc8e0a8f6"] + +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[45705, 1647, 70, 0, 22, "Input",ExpressionUUID->"d27188da-dbec-4862-897d-c79d508f5a06"], -Cell[45778, 1649, 71, 0, 178, "Output",ExpressionUUID->"d3aaacc3-94cd-4f94-b8d3-6f97ce80a7dd"] -}, Open ]], -Cell[45864, 1652, 70, 0, 55, "Input",ExpressionUUID->"a7c34ad4-8a20-4d4c-a312-b4abf43e7b84"], + +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[45959, 1656, 70, 0, 24, "Input",ExpressionUUID->"f952decb-8392-4bd9-9ca8-68fa98ba4ea0"], -Cell[46032, 1658, 72, 0, 34, "Message",ExpressionUUID->"3f58991c-8f32-42f0-910b-caff5ed428b4"], -Cell[46107, 1660, 71, 0, 76, "Output",ExpressionUUID->"58221ff1-4525-46a7-bdae-792c93f49938"] -}, Open ]], + +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[46215, 1665, 70, 0, 71, "Input",ExpressionUUID->"438a08cf-d91e-4ffb-89f2-a823831c337f"], -Cell[46288, 1667, 71, 0, 136, "Output",ExpressionUUID->"31bd7638-0b3f-414d-858a-3740b7c9aa3d"] -}, Open ]], +Cell[2589, 67, 203, 4, 50, "Section",ExpressionUUID->"5d9c76ab-41db-4d8f-b32b-3ceed5a29b07"], Cell[CellGroupData[{ -Cell[46396, 1672, 70, 0, 55, "Input",ExpressionUUID->"3ca9ff01-d810-4f3b-a0e5-4853c773e631"], -Cell[46469, 1674, 71, 0, 178, "Output",ExpressionUUID->"bf148fd8-9693-4be5-8c41-6d1aeb3bcdce"] -}, Open ]], +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[46577, 1679, 70, 0, 22, "Input",ExpressionUUID->"5676beb4-7e67-4262-a1a9-8649d66fc608"], -Cell[46650, 1681, 71, 0, 25, "Output",ExpressionUUID->"4fbceaf0-ac98-4d89-a81b-49f54b7e80b3"] +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[46758, 1686, 70, 0, 22, "Input",ExpressionUUID->"a47e563a-1a70-40e7-b94e-e6dec72f2217"], -Cell[46831, 1688, 71, 0, 51, "Output",ExpressionUUID->"75bbd4ee-6c89-47ad-8378-521f9f78d95c"] +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[46939, 1693, 70, 0, 59, "Input",ExpressionUUID->"db5b7fcd-757d-45ac-b959-eb92b6428ee8"], -Cell[47012, 1695, 71, 0, 77, "Output",ExpressionUUID->"66904aad-235c-4592-a25c-527242bad8da"] +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[47120, 1700, 70, 0, 63, "Input",ExpressionUUID->"4f34a001-11c8-46a5-bab7-43816510fc29"], -Cell[47193, 1702, 72, 0, 22, "Message",ExpressionUUID->"8c252e0f-ebf9-40a0-a65e-5752171a35d8"], -Cell[47268, 1704, 72, 0, 22, "Message",ExpressionUUID->"a000d915-f8c7-4ce4-a811-545a415e24fc"], -Cell[47343, 1706, 72, 0, 22, "Message",ExpressionUUID->"7dde968f-6bef-4b0b-81b3-e52e357f62e2"], -Cell[47418, 1708, 72, 0, 22, "Message",ExpressionUUID->"5f0d7aa7-3d28-4e00-82d5-76ffcee4bd01"] +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[47527, 1713, 70, 0, 24, "Input",ExpressionUUID->"dee3cd3e-84f4-4b73-b470-f1b7c0baa7b5"], -Cell[47600, 1715, 71, 0, 182, "Output",ExpressionUUID->"18c3e4eb-9e95-422a-b0da-36edbb287ee5"] -}, Open ]], -Cell[47686, 1718, 70, 0, 109, "Input",ExpressionUUID->"c9f0635b-0df0-48ed-8c29-17f301861517"], +Cell[46620, 933, 1346, 25, 22, "Input",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], Cell[CellGroupData[{ -Cell[47781, 1722, 70, 0, 126, "Input",ExpressionUUID->"437d5765-89f4-444f-abba-e04ffe26d7c9"], -Cell[47854, 1724, 72, 0, 32, "Message",ExpressionUUID->"4c823020-6c4e-407e-8fb9-5a5ec9a49385"], -Cell[47929, 1726, 72, 0, 22, "Message",ExpressionUUID->"0f4aaf4c-9dbc-427f-9089-e02cb3abcf77"], -Cell[48004, 1728, 72, 0, 32, "Message",ExpressionUUID->"8c578de3-6085-49cf-8cf6-84361c2d8524"], -Cell[48079, 1730, 72, 0, 32, "Message",ExpressionUUID->"42ea315f-3868-4b6f-b2f8-24cbc5f4dc34"], -Cell[48154, 1732, 72, 0, 22, "Message",ExpressionUUID->"2ab5fd83-7455-458e-b91b-0d9ee7745efa"], -Cell[48229, 1734, 72, 0, 22, "Message",ExpressionUUID->"3d85a17e-b682-4c90-bcb8-f3301535254d"], -Cell[48304, 1736, 72, 0, 22, "Message",ExpressionUUID->"55552e47-2019-4e0e-94ac-22ab0b441801"], -Cell[48379, 1738, 72, 0, 22, "Message",ExpressionUUID->"760654c4-f428-4c74-891f-ff2a37b6b853"] +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[CellGroupData[{ -Cell[48488, 1743, 70, 0, 22, "Input",ExpressionUUID->"cf8328a2-2e41-4543-bbcc-55e75f60d95a"], -Cell[48561, 1745, 71, 0, 305, "Output",ExpressionUUID->"5407ac23-3194-49ee-8010-3f88ab93d531"] +Cell[51742, 1033, 1199, 23, 25, "Output",ExpressionUUID->"ea79e514-ea99-4fdc-8f45-89363d3b0bf8"] }, Open ]], Cell[CellGroupData[{ -Cell[48669, 1750, 70, 0, 76, "Input",ExpressionUUID->"86ced1f4-0a54-4999-959e-d79bc814f759"], -Cell[48742, 1752, 71, 0, 352, "Output",ExpressionUUID->"93bab345-098c-4ca7-852a-335a5cd0dcf6"] +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[48850, 1757, 70, 0, 24, "Input",ExpressionUUID->"856a5f4c-223c-4aea-beeb-3fbd1534589f"], -Cell[48923, 1759, 71, 0, 25, "Output",ExpressionUUID->"e28c565e-2a35-4030-81ec-c70369667adb"] -}, Open ]], +Cell[56066, 1134, 1026, 25, 24, "Input",ExpressionUUID->"29398383-9203-4cf6-aabb-1d3fe15a5894"], Cell[CellGroupData[{ -Cell[49031, 1764, 70, 0, 24, "Input",ExpressionUUID->"a052bc09-b1cf-4937-8c90-bdb0978ae5fb"], -Cell[49104, 1766, 71, 0, 179, "Output",ExpressionUUID->"27ad9b7a-bb2e-42b7-9b85-f4860d194c8a"] +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[49190, 1769, 70, 0, 75, "Input",ExpressionUUID->"bc95d58f-92c7-4786-bf70-93a6a30e7d08"], -Cell[CellGroupData[{ -Cell[49285, 1773, 70, 0, 24, "Input",ExpressionUUID->"b99c27c3-28f4-463a-bbd4-0d707f24ede5"], -Cell[49358, 1775, 71, 0, 178, "Output",ExpressionUUID->"dbb1ea27-23d8-498f-9931-237735b90888"] +Cell[61085, 1234, 1359, 25, 42, "Output",ExpressionUUID->"cd65ff5b-16a6-4251-b492-a29a4744c41a"] }, Open ]], -Cell[49444, 1778, 70, 0, 109, "Input",ExpressionUUID->"e125971c-79d1-4a87-ab30-82edcc7a11b6"], Cell[CellGroupData[{ -Cell[49539, 1782, 70, 0, 24, "Input",ExpressionUUID->"da2bc76c-d02b-4910-a9ef-13df31a8a85d"], -Cell[49612, 1784, 71, 0, 180, "Output",ExpressionUUID->"3379bb53-2814-44a6-8d6d-c6bf9ff90130"] +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[49698, 1787, 70, 0, 55, "Input",ExpressionUUID->"0ff99b46-5b6d-4857-b18e-faa48625e0b2"], Cell[CellGroupData[{ -Cell[49793, 1791, 70, 0, 22, "Input",ExpressionUUID->"70a7e635-ea68-4ab2-b208-3f27f1f18773"], -Cell[49866, 1793, 71, 0, 25, "Output",ExpressionUUID->"ff4ef488-7509-4a22-b38b-3e5ee979dfec"] -}, Open ]], +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[49974, 1798, 70, 0, 71, "Input",ExpressionUUID->"e7efdffa-c82b-4b24-afeb-7b606e3a56b6"], -Cell[50047, 1800, 71, 0, 136, "Output",ExpressionUUID->"ea054bf8-969f-415b-abfb-ad7f9b45bd69"] +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[50133, 1803, 70, 0, 55, "Input",ExpressionUUID->"376c00c5-9f33-4e41-9b82-73d25dddfb86"], -Cell[CellGroupData[{ -Cell[50228, 1807, 70, 0, 22, "Input",ExpressionUUID->"51dc3d02-9fb1-45c0-a232-766e908af724"], -Cell[50301, 1809, 71, 0, 25, "Output",ExpressionUUID->"37d0c2a2-52d2-4d89-8972-8e422f0e5216"] +Cell[72034, 1490, 1813, 36, 42, "Output",ExpressionUUID->"29eaded3-ea87-4160-b057-a5f3ca985e4f"] }, Open ]], Cell[CellGroupData[{ -Cell[50409, 1814, 70, 0, 71, "Input",ExpressionUUID->"b0ed41fc-0793-4607-b285-69dc836fbc46"], -Cell[50482, 1816, 71, 0, 135, "Output",ExpressionUUID->"1a124bff-ae77-4eae-9842-4ec08b7c4be7"] +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[50568, 1819, 70, 0, 55, "Input",ExpressionUUID->"ce3d50ae-7830-43f7-9e8b-ff1617bdfce1"], Cell[CellGroupData[{ -Cell[50663, 1823, 70, 0, 57, "Input",ExpressionUUID->"1d5c2fc0-e8df-4896-8045-0fde59533d77"], -Cell[50736, 1825, 71, 0, 44, "Output",ExpressionUUID->"2c63f7bd-1cf3-4607-b707-7a6b95e64ad2"] -}, Open ]], +Cell[78573, 1637, 1598, 33, 24, "Input",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"], Cell[CellGroupData[{ -Cell[50844, 1830, 70, 0, 71, "Input",ExpressionUUID->"e9f77ee6-ddde-4089-a778-5ece4a57f773"], -Cell[50917, 1832, 71, 0, 136, "Output",ExpressionUUID->"a47f9b99-a5ed-4171-b8a9-afdc15370d19"] +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[51003, 1835, 70, 0, 55, "Input",ExpressionUUID->"c66d9b43-8912-4776-8df9-4b82e92385a2"], -Cell[CellGroupData[{ -Cell[51098, 1839, 70, 0, 57, "Input",ExpressionUUID->"d3511a9b-2734-4512-8448-59796db57c80"], -Cell[51171, 1841, 71, 0, 44, "Output",ExpressionUUID->"02bbcf9e-2ac0-4d1f-8fa5-b00695e27836"] +Cell[81767, 1715, 1884, 38, 44, "Output",ExpressionUUID->"debbba60-37bd-46cc-856f-b506dc1254bf"] }, Open ]], Cell[CellGroupData[{ -Cell[51279, 1846, 70, 0, 71, "Input",ExpressionUUID->"59b991fc-3c45-48aa-9268-cff7572aa8c6"], -Cell[51352, 1848, 71, 0, 136, "Output",ExpressionUUID->"b20c1ede-027a-4011-ba6a-a217ceecc8e8"] +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[51438, 1851, 70, 0, 55, "Input",ExpressionUUID->"3597eaa7-3139-4518-bbfe-df34271dde2a"], Cell[CellGroupData[{ -Cell[51533, 1855, 70, 0, 57, "Input",ExpressionUUID->"77c87cdf-033d-4185-b49d-b5d681d7f0f9"], -Cell[51606, 1857, 71, 0, 44, "Output",ExpressionUUID->"78a71b8d-3942-4850-b5d4-5a45d3517416"] -}, Open ]], +Cell[88835, 1872, 1973, 40, 24, "Input",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"], Cell[CellGroupData[{ -Cell[51714, 1862, 70, 0, 71, "Input",ExpressionUUID->"b37e4fd1-1edc-4db8-a29a-c5c0b1ee2464"], -Cell[51787, 1864, 71, 0, 134, "Output",ExpressionUUID->"951d7a74-9aa0-40b2-8c7e-afd33547bd6f"] +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[51873, 1867, 70, 0, 55, "Input",ExpressionUUID->"fc9769af-3482-4891-854c-c4f69b3e7ab2"], -Cell[CellGroupData[{ -Cell[51968, 1871, 70, 0, 73, "Input",ExpressionUUID->"b726930b-8825-4fc1-bdd4-f13327dfafcc"], -Cell[52041, 1873, 71, 0, 42, "Output",ExpressionUUID->"dcc85e39-87fd-4c7a-adc2-f6dbe9ac4f86"] +Cell[92557, 1957, 2275, 46, 58, "Output",ExpressionUUID->"938aea41-c28f-491d-ba52-d97ba5435c83"] }, Open ]], Cell[CellGroupData[{ -Cell[52149, 1878, 70, 0, 71, "Input",ExpressionUUID->"3d6268b9-9dcd-4abd-a190-2d411c0f9ac5"], -Cell[52222, 1880, 71, 0, 136, "Output",ExpressionUUID->"b95a5d46-00d9-454a-bdbb-7b373fb54a04"] +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[52308, 1883, 70, 0, 55, "Input",ExpressionUUID->"75d213ac-5b7e-4a17-b0e6-82481e033952"], Cell[CellGroupData[{ -Cell[52403, 1887, 70, 0, 89, "Input",ExpressionUUID->"402a64a2-7215-43ff-afb2-5ffdb07699eb"], -Cell[52476, 1889, 71, 0, 25, "Output",ExpressionUUID->"84187abd-3a8b-42cd-8388-c4431767b6fc"] -}, Open ]], +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[52584, 1894, 70, 0, 71, "Input",ExpressionUUID->"855b658f-9a32-44de-bcab-f191fa636709"], -Cell[52657, 1896, 71, 0, 133, "Output",ExpressionUUID->"c2f9aac7-afc1-4b9d-9453-1a00347fcbe9"] +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[CellGroupData[{ -Cell[52765, 1901, 70, 0, 22, "Input",ExpressionUUID->"72c66ca0-a15a-4276-8266-9702097608f9"], -Cell[52838, 1903, 71, 0, 177, "Output",ExpressionUUID->"c22b79eb-939c-44d3-832b-d02d2b74f6d7"] +Cell[102322, 2195, 2114, 45, 58, "Output",ExpressionUUID->"7cf72793-a032-4a28-b655-b0ffbb6596bc"] }, Open ]], Cell[CellGroupData[{ -Cell[52946, 1908, 70, 0, 63, "Input",ExpressionUUID->"fe1d3062-e3cb-440f-8b39-b4206ce88f50"], -Cell[53019, 1910, 72, 0, 22, "Message",ExpressionUUID->"a8cdbd70-b1ae-4bac-b3e9-4a3a33f415b4"], -Cell[53094, 1912, 72, 0, 22, "Message",ExpressionUUID->"3a00a43c-0975-4a69-8a45-f6d37256351e"], -Cell[53169, 1914, 72, 0, 22, "Message",ExpressionUUID->"490c70b7-6d80-4544-ad78-0bdf86f8cf57"], -Cell[53244, 1916, 72, 0, 22, "Message",ExpressionUUID->"a33d77be-ae6e-4ad0-bc43-7822886c2702"] +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[53331, 1919, 70, 0, 75, "Input",ExpressionUUID->"4a1ef349-9985-4fd3-a4ef-904651cf68ac"], -Cell[53404, 1921, 70, 0, 109, "Input",ExpressionUUID->"50c02bdb-5ed2-40ab-ba77-b26952532ed9"], -Cell[53477, 1923, 70, 0, 126, "Input",ExpressionUUID->"3f2d1ac4-1ccc-46f3-b1c3-9e780be42bfd"], Cell[CellGroupData[{ -Cell[53572, 1927, 70, 0, 24, "Input",ExpressionUUID->"7fb890bc-1064-4d99-b6f5-6ecab88b82da"], -Cell[53645, 1929, 71, 0, 182, "Output",ExpressionUUID->"f209a90a-6414-4c82-b1ac-a415e04bb40b"] -}, Open ]], +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[53753, 1934, 70, 0, 24, "Input",ExpressionUUID->"2241f538-313e-49d3-adfa-ce7a1941836a"], -Cell[53826, 1936, 71, 0, 178, "Output",ExpressionUUID->"e60c6984-4395-45c5-bdea-cc5d8603b5ea"] +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[CellGroupData[{ -Cell[53934, 1941, 70, 0, 24, "Input",ExpressionUUID->"72447e76-665c-4e50-939a-7de5c0764602"], -Cell[54007, 1943, 71, 0, 179, "Output",ExpressionUUID->"c1192d4e-ddba-4b86-80cd-25d21e620f98"] +Cell[113622, 2471, 1642, 42, 74, "Output",ExpressionUUID->"95b3fe4e-6c5d-44c3-be33-5d6df8dd4ef5"] }, Open ]], -Cell[54093, 1946, 70, 0, 55, "Input",ExpressionUUID->"cebc93a0-79b0-4da8-98e0-dac61dd498b9"], Cell[CellGroupData[{ -Cell[54188, 1950, 70, 0, 57, "Input",ExpressionUUID->"599c1193-9a9a-4e09-bef2-d12c1f4a1969"], -Cell[54261, 1952, 72, 0, 34, "Message",ExpressionUUID->"11e2554d-75ea-4c0a-9448-8bfb332a62f3"], -Cell[54336, 1954, 71, 0, 44, "Output",ExpressionUUID->"6b1f6bb2-0a9c-4b87-aa00-e784a50c66dc"] +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[54444, 1959, 70, 0, 71, "Input",ExpressionUUID->"61a36220-5b85-4beb-bbe5-4d4a78e82a94"], -Cell[54517, 1961, 71, 0, 135, "Output",ExpressionUUID->"b177731d-7523-4738-97e5-0fab244202d6"] -}, Open ]], +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[54625, 1966, 70, 0, 22, "Input",ExpressionUUID->"bfc95959-ad22-467f-8b96-2c1c826f5655"], -Cell[54698, 1968, 71, 0, 177, "Output",ExpressionUUID->"4bc2cbcd-5582-4860-bb36-8c588aa6b1b0"] +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[54784, 1971, 70, 0, 55, "Input",ExpressionUUID->"4e2d6149-b3b3-4123-babc-92a2df998316"], -Cell[CellGroupData[{ -Cell[54879, 1975, 70, 0, 57, "Input",ExpressionUUID->"d4b73ce5-7524-4652-9579-36229cebbccf"], -Cell[54952, 1977, 71, 0, 44, "Output",ExpressionUUID->"25f27aca-d25c-4d15-ab55-cf857b68dcb2"] +Cell[125049, 2769, 1739, 43, 74, "Output",ExpressionUUID->"14118b71-5885-4b32-845e-95c43ebc21e3"] }, Open ]], Cell[CellGroupData[{ -Cell[55060, 1982, 70, 0, 71, "Input",ExpressionUUID->"4b312d26-e716-4e13-99c6-2e39cc88c447"], -Cell[55133, 1984, 71, 0, 135, "Output",ExpressionUUID->"ad045ca4-bf3e-45f2-be6a-188c8fb39746"] +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[55241, 1989, 70, 0, 22, "Input",ExpressionUUID->"ff569190-822f-433e-ac6c-14b1dcd96ed9"], -Cell[55314, 1991, 71, 0, 177, "Output",ExpressionUUID->"436b5bb4-ba6b-46e9-ab6e-3829cbc4f6f8"] -}, Open ]], -Cell[55400, 1994, 70, 0, 55, "Input",ExpressionUUID->"fe675aeb-309d-4146-9e6b-7ccf11b6980f"], +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[55495, 1998, 70, 0, 41, "Input",ExpressionUUID->"955fd7fe-8805-4dc6-bcd9-f0b6fe561e94"], -Cell[55568, 2000, 71, 0, 44, "Output",ExpressionUUID->"1f525144-95cc-4f1d-a2b1-7ed52efe7b5e"] +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[CellGroupData[{ -Cell[55676, 2005, 70, 0, 71, "Input",ExpressionUUID->"59ee4596-58f4-4760-9707-1639a55478ef"], -Cell[55749, 2007, 71, 0, 136, "Output",ExpressionUUID->"bcf0ddd6-91b4-474e-8418-aafc45056303"] +Cell[136054, 3060, 2031, 51, 76, "Output",ExpressionUUID->"95a89ed3-1405-46fd-84e6-4e39c6d0115c"] }, Open ]], Cell[CellGroupData[{ -Cell[55857, 2012, 70, 0, 22, "Input",ExpressionUUID->"bf8f6059-088d-4951-bbb6-e2c25b6a202b"], -Cell[55930, 2014, 71, 0, 180, "Output",ExpressionUUID->"baf431bc-0457-4cd5-b76b-e8aeacd57202"] +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[56016, 2017, 70, 0, 55, "Input",ExpressionUUID->"21502648-5bb8-4309-888f-8d4797b6965f"], +Cell[140472, 3173, 12251, 241, 198, "Input",ExpressionUUID->"673ffefa-75f0-46ac-befd-c785b4bc3ce1"], Cell[CellGroupData[{ -Cell[56111, 2021, 70, 0, 41, "Input",ExpressionUUID->"25c31f45-9b44-4e7a-a888-7c4634fb8ae8"], -Cell[56184, 2023, 72, 0, 22, "Message",ExpressionUUID->"c514ee03-eba1-48e4-af1e-0991d7159e99"], -Cell[56259, 2025, 71, 0, 44, "Output",ExpressionUUID->"8d39b42e-cf19-4334-a472-16b27afd3f8e"] +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[56367, 2030, 70, 0, 71, "Input",ExpressionUUID->"15b1dea7-4387-4196-86ca-e5029d19055e"], -Cell[56440, 2032, 71, 0, 138, "Output",ExpressionUUID->"71a0bd1f-9ee3-45c1-8043-10fc45b089f2"] +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[56548, 2037, 70, 0, 22, "Input",ExpressionUUID->"ea7e7eb2-0ae4-48e4-9de2-2070d9c80ef7"], -Cell[56621, 2039, 71, 0, 177, "Output",ExpressionUUID->"a52313f1-4c10-40c6-b4b1-90cde6f32b05"] +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 ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[56741, 2045, 203, 4, 40, "Section",ExpressionUUID->"5d9c76ab-41db-4d8f-b32b-3ceed5a29b07"], -Cell[56947, 2051, 213, 4, 22, "Input",ExpressionUUID->"c2736e8b-b9a2-44e3-be7a-35f424888e11"], -Cell[CellGroupData[{ -Cell[57185, 2059, 3264, 59, 71, "Input",ExpressionUUID->"a326d1ad-f5a3-49d5-9b86-3a79e4cb291c"], -Cell[60452, 2120, 1601, 27, 25, "Output",ExpressionUUID->"354672a1-e808-4f47-9909-36c2b4af968c"] -}, Open ]], -Cell[CellGroupData[{ -Cell[62090, 2152, 697, 18, 24, "Input",ExpressionUUID->"8eab97ea-e359-40c0-9935-fde12f7b604a"], -Cell[62790, 2172, 1009, 18, 44, "Output",ExpressionUUID->"d094b3f2-bd0b-4554-877a-0954c0fd9839"] -}, Open ]], -Cell[CellGroupData[{ -Cell[63836, 2195, 4590, 69, 75, "Input",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"], -Cell[68429, 2266, 16628, 323, 183, "Output",ExpressionUUID->"de5014d5-9608-4236-9da2-63697a5c283d"] -}, Open ]], -Cell[CellGroupData[{ -Cell[85094, 2594, 4662, 71, 75, "Input",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"], -Cell[89759, 2667, 12484, 233, 181, "Output",ExpressionUUID->"75cbb042-84e6-4596-a457-3236425ad8bd"] -}, Open ]], -Cell[CellGroupData[{ -Cell[102280, 2905, 308, 8, 22, "Input",ExpressionUUID->"4aee75ec-485c-460f-b355-66a9df64aee0"], -Cell[102591, 2915, 794, 22, 61, "Output",ExpressionUUID->"301e9cba-9e6b-4f8b-8b2e-9b8bdd2cf25f"] -}, Open ]], -Cell[CellGroupData[{ -Cell[103422, 2942, 1231, 25, 22, "Input",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], -Cell[CellGroupData[{ -Cell[104678, 2971, 392, 7, 18, "Print",ExpressionUUID->"9eb02125-814e-4ead-82e0-8fa7ac456cc2"], -Cell[105073, 2980, 391, 7, 18, "Print",ExpressionUUID->"ba947cc5-8425-41a1-9d88-e8d4ba1c645f"], -Cell[105467, 2989, 390, 7, 18, "Print",ExpressionUUID->"8378ab59-c523-46b2-ba14-8e6dc32a93de"], -Cell[105860, 2998, 390, 7, 18, "Print",ExpressionUUID->"0b6db944-913e-42f5-92ce-e30a1f92a1b0"], -Cell[106253, 3007, 388, 7, 18, "Print",ExpressionUUID->"38d8b978-cfab-4e89-9161-4cc7522a4f19"] -}, Open ]], -Cell[106656, 3017, 845, 19, 25, "Output",ExpressionUUID->"7bc51fe6-b1f4-4852-a8c3-a7820e9ee507"] -}, Open ]], -Cell[CellGroupData[{ -Cell[107538, 3041, 1560, 39, 57, "Input",ExpressionUUID->"b02b5204-9158-4350-9e92-e8f555f47ba7"], -Cell[109101, 3082, 1132, 25, 42, "Output",ExpressionUUID->"a932a9d9-373e-4655-ab9d-01d29622fab0"] -}, Open ]], -Cell[110248, 3110, 1354, 32, 41, "Input",ExpressionUUID->"fac9f265-b234-4b28-9a77-a9a9a37bcb16"], -Cell[CellGroupData[{ -Cell[111627, 3146, 977, 22, 24, "Input",ExpressionUUID->"a3d76b7b-9348-4d3c-8e97-d0f40af7ee17"], -Cell[112607, 3170, 13954, 283, 50, "Output",ExpressionUUID->"db27d8e0-2312-462f-9bb8-39a683b02caf"] -}, Open ]], -Cell[CellGroupData[{ -Cell[126598, 3458, 220, 4, 22, "Input",ExpressionUUID->"589325ac-f49d-41d5-9ec6-188d338e9638"], -Cell[126821, 3464, 916, 17, 92, "Output",ExpressionUUID->"579b2eee-a70b-48ec-8777-0bb406ee3526"] -}, Open ]], -Cell[CellGroupData[{ -Cell[127774, 3486, 1018, 27, 24, "Input",ExpressionUUID->"29398383-9203-4cf6-aabb-1d3fe15a5894"], -Cell[CellGroupData[{ -Cell[128817, 3517, 602, 10, 18, "Print",ExpressionUUID->"f4869400-3765-440f-b164-28a61fae5220"], -Cell[129422, 3529, 606, 10, 18, "Print",ExpressionUUID->"945f0e57-8488-4da8-a8ed-b74e0eaf6307"], -Cell[130031, 3541, 605, 10, 18, "Print",ExpressionUUID->"9b3d6872-863b-4a4c-80d2-fab964b41cac"], -Cell[130639, 3553, 603, 10, 18, "Print",ExpressionUUID->"218f3502-5507-419f-84cc-815a88a439d7"], -Cell[131245, 3565, 600, 10, 18, "Print",ExpressionUUID->"6949ef75-4411-4079-b75f-8910f0a43673"] -}, Open ]], -Cell[131860, 3578, 1174, 24, 42, "Output",ExpressionUUID->"3400b7e9-90a0-46dc-a2ba-63ca5c863284"] -}, Open ]], -Cell[CellGroupData[{ -Cell[133071, 3607, 1559, 39, 57, "Input",ExpressionUUID->"672771a7-a1bf-4e81-a251-1d2b0d34398b"], -Cell[134633, 3648, 969, 18, 22, "Message",ExpressionUUID->"f25973ba-d943-48be-9f24-5ef1920b9f51"], -Cell[135605, 3668, 1319, 29, 58, "Output",ExpressionUUID->"08bdf55b-b1ed-4694-bb3c-7cd3172fea16"] -}, Open ]], -Cell[136939, 3700, 718, 20, 24, "Input",ExpressionUUID->"15f30a53-123e-4733-bbeb-afd5a7def984"], -Cell[CellGroupData[{ -Cell[137682, 3724, 460, 8, 22, "Input",ExpressionUUID->"bfe15531-f075-4499-a137-4d851f7f7f55"], -Cell[138145, 3734, 1312, 25, 108, "Output",ExpressionUUID->"77026836-47db-4b26-a3f8-13436bd799b1"] -}, Open ]], -Cell[CellGroupData[{ -Cell[139494, 3764, 724, 18, 24, "Input",ExpressionUUID->"becbd2c1-3886-4d89-919e-83cea993abb3"], -Cell[140221, 3784, 345, 5, 25, "Output",ExpressionUUID->"eae5426a-cb1c-45df-8714-df6cd49667d5"] -}, Open ]], -Cell[CellGroupData[{ -Cell[140603, 3794, 1415, 34, 24, "Input",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"], -Cell[142021, 3830, 543, 11, 22, "Message",ExpressionUUID->"1519d24f-8121-43a4-8d15-5ca29b9bc3ab"], -Cell[142567, 3843, 544, 11, 22, "Message",ExpressionUUID->"bd05cbef-bfeb-4ca6-820e-77c16a106049"], -Cell[143114, 3856, 543, 11, 22, "Message",ExpressionUUID->"76bbb289-10c7-4e19-a5c3-9d8cc21df69c"], -Cell[143660, 3869, 484, 10, 22, "Message",ExpressionUUID->"f0231bbb-eb2e-4ada-a977-efa375889ca4"], -Cell[CellGroupData[{ -Cell[144169, 3883, 200, 4, 18, "Print",ExpressionUUID->"64b212cf-4111-4ccb-92b9-9f107a144847"], -Cell[144372, 3889, 197, 4, 18, "Print",ExpressionUUID->"960b306d-7f02-49b2-8a38-0b3d20674367"], -Cell[144572, 3895, 198, 4, 18, "Print",ExpressionUUID->"189c47be-0c37-4b3c-bc58-25c3d13f5687"], -Cell[144773, 3901, 196, 4, 18, "Print",ExpressionUUID->"ed4e0608-b422-415e-9e84-154e64047132"], -Cell[144972, 3907, 193, 4, 18, "Print",ExpressionUUID->"9b55854c-ccc6-4b25-8973-259fb0bf5612"] -}, Open ]], -Cell[145180, 3914, 1679, 35, 42, "Output",ExpressionUUID->"fa0d4eff-3a2b-4779-9a29-cdf4413c0568"] -}, Open ]], -Cell[CellGroupData[{ -Cell[146896, 3954, 1703, 41, 57, "Input",ExpressionUUID->"eaf55068-7c6e-48d1-8e5b-093c2f4b5994"], -Cell[148602, 3997, 1116, 20, 34, "Message",ExpressionUUID->"bb66e50b-f997-44d9-ba2c-a37d72d7249e"], -Cell[149721, 4019, 1423, 25, 64, "Message",ExpressionUUID->"69901938-a23f-4a57-b4f2-5e5be6d9ff19"], -Cell[151147, 4046, 1617, 36, 58, "Output",ExpressionUUID->"6661822c-1c31-436e-a750-cc5539a9b64a"] -}, Open ]], -Cell[CellGroupData[{ -Cell[152801, 4087, 1104, 25, 24, "Input",ExpressionUUID->"d5eaef8f-0b87-435a-b319-0400431fa108"], -Cell[153908, 4114, 1821, 30, 79, "Message",ExpressionUUID->"6ba43569-cbf1-4d71-9cbd-7fc42ba52d1e"] -}, Open ]], -Cell[CellGroupData[{ -Cell[155766, 4149, 215, 4, 22, "Input",ExpressionUUID->"cba8a0b9-3aa3-4333-8122-e7602067e28b"], -Cell[155984, 4155, 552, 11, 44, "Output",ExpressionUUID->"5dfe1d42-b9c2-48fd-9216-d7f98b1686a4"] -}, Open ]], -Cell[CellGroupData[{ -Cell[156573, 4171, 767, 18, 24, "Input",ExpressionUUID->"bbab0f46-5630-4e0d-9151-1d8b6f618dd4"], -Cell[157343, 4191, 360, 5, 25, "Output",ExpressionUUID->"edec1b3d-65eb-4c19-b54f-7e961dd48a14"] -}, Open ]], -Cell[CellGroupData[{ -Cell[157740, 4201, 1540, 34, 24, "Input",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"], -Cell[CellGroupData[{ -Cell[159305, 4239, 779, 12, 18, "Print",ExpressionUUID->"76cd6c3e-a4fd-4959-9c73-7e63297fc1f0"], -Cell[160087, 4253, 779, 12, 18, "Print",ExpressionUUID->"295f8b37-5b7f-4d24-9e1a-35ef70b97b74"], -Cell[160869, 4267, 781, 12, 18, "Print",ExpressionUUID->"db514d7c-bfff-4ec7-b794-ece0ede56ace"], -Cell[161653, 4281, 777, 12, 18, "Print",ExpressionUUID->"dc74f80c-bc11-4ac0-a055-fedcbddd7bb9"], -Cell[162433, 4295, 775, 12, 18, "Print",ExpressionUUID->"54ab27f6-8246-4dbd-9292-7ad540633f98"] -}, Open ]], -Cell[163223, 4310, 1689, 36, 44, "Output",ExpressionUUID->"850f52c5-d775-481d-8a42-d6b6cad02ff1"] -}, Open ]], -Cell[CellGroupData[{ -Cell[164949, 4351, 1852, 43, 57, "Input",ExpressionUUID->"0355409d-8b8c-45c1-9506-a20c5fe4044b"], -Cell[166804, 4396, 1202, 21, 34, "Message",ExpressionUUID->"a8e408da-491c-41d8-a6b9-e436489dc2e8"], -Cell[168009, 4419, 8231, 116, 177, "Message",ExpressionUUID->"f32e1169-808f-4e7a-8e18-94d2ea578fbb"], -Cell[176243, 4537, 1202, 21, 34, "Message",ExpressionUUID->"a880e8b2-2093-4b4d-989c-9c4eb4791932"], -Cell[177448, 4560, 769, 11, 25, "Output",ExpressionUUID->"32b0c21c-4fe0-4111-b324-fce35fc3def1"] -}, Open ]], -Cell[178232, 4574, 1250, 27, 24, "Input",ExpressionUUID->"8f8cc5f8-51d5-4e0d-9ac6-686492c6ab4e"], -Cell[CellGroupData[{ -Cell[179507, 4605, 264, 5, 22, "Input",ExpressionUUID->"bb34f160-5745-4b8c-9aea-78f13ca9d061"], -Cell[179774, 4612, 1310, 26, 156, "Output",ExpressionUUID->"601f157d-85c3-48a5-95fc-2ca295547ea7"] -}, Open ]], -Cell[CellGroupData[{ -Cell[181121, 4643, 776, 19, 24, "Input",ExpressionUUID->"db5637ef-5db6-417e-aa71-a7604e24c6ef"], -Cell[181900, 4664, 345, 6, 25, "Output",ExpressionUUID->"f4a0c326-bcce-48a7-b6b6-0adc5e1117d9"] -}, Open ]], -Cell[CellGroupData[{ -Cell[182282, 4675, 2326, 53, 41, "Input",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"], -Cell[CellGroupData[{ -Cell[184633, 4732, 216, 4, 18, "Print",ExpressionUUID->"1cc722dd-0661-43d8-9ed2-b5a9da0121a5"], -Cell[184852, 4738, 217, 4, 18, "Print",ExpressionUUID->"6db4e008-6acc-4de3-b085-c5815d72123f"] -}, Open ]], -Cell[185084, 4745, 461, 10, 22, "Message",ExpressionUUID->"5dbb837d-148c-4d61-884d-3cf82071a482"], -Cell[185548, 4757, 466, 11, 22, "Message",ExpressionUUID->"ba5e36a7-9bde-423d-9781-1367cdeef641"], -Cell[186017, 4770, 466, 11, 22, "Message",ExpressionUUID->"1b499df4-74aa-4cf6-9683-305e74be18ac"], -Cell[186486, 4783, 456, 10, 22, "Message",ExpressionUUID->"e1931c33-f8ff-4df1-85df-ca8a1b6d75f6"], -Cell[CellGroupData[{ -Cell[186967, 4797, 220, 4, 18, "Print",ExpressionUUID->"2d01766e-b294-4653-a2a6-46243985a459"], -Cell[187190, 4803, 217, 4, 18, "Print",ExpressionUUID->"f5bccbb6-1fbe-4f47-9bef-0ccdc85b6856"], -Cell[187410, 4809, 218, 4, 18, "Print",ExpressionUUID->"fadc5272-339f-4608-b67e-333e755b68c3"] -}, Open ]], -Cell[187643, 4816, 2172, 47, 58, "Output",ExpressionUUID->"3031a478-69cf-42dd-add2-43fc87d99397"] -}, Open ]], -Cell[CellGroupData[{ -Cell[189852, 4868, 1745, 41, 57, "Input",ExpressionUUID->"05fba3a3-cdb1-4967-ac49-78ffed60b2dc"], -Cell[191600, 4911, 803, 15, 22, "Message",ExpressionUUID->"91873ce0-54c0-46c8-820a-80bb260ac12a"], -Cell[192406, 4928, 1876, 43, 90, "Output",ExpressionUUID->"cea4572e-6a77-4824-9860-0f4ae84f6eff"] -}, Open ]], -Cell[CellGroupData[{ -Cell[194319, 4976, 1253, 27, 24, "Input",ExpressionUUID->"2eaa6819-866a-4b8d-af81-f5a819bfb53b"], -Cell[195575, 5005, 1452, 26, 148, "Message",ExpressionUUID->"0eccf485-37e5-4032-93ca-ec5f8d761898"], -Cell[197030, 5033, 709, 14, 22, "Message",ExpressionUUID->"3a340bbf-3691-4a32-a639-43b1cb496d4b"] -}, Open ]], -Cell[CellGroupData[{ -Cell[197776, 5052, 625, 17, 24, "Input",ExpressionUUID->"95183f9d-14a9-49a1-839d-4444c8816906"], -Cell[198404, 5071, 193, 3, 25, "Output",ExpressionUUID->"12e1a994-ab05-4127-8c67-c64bc0481031"] }, Open ]], Cell[CellGroupData[{ -Cell[198634, 5079, 1191, 30, 24, "Input",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"], -Cell[199828, 5111, 507, 11, 22, "Message",ExpressionUUID->"5b0a31b1-0147-4c6b-8c71-77e8d16a3fe0"], -Cell[200338, 5124, 510, 12, 22, "Message",ExpressionUUID->"c7b8c0bc-4211-4848-8c36-3dde2258f6ab"], -Cell[200851, 5138, 510, 12, 22, "Message",ExpressionUUID->"98869ba0-354d-4f3a-83b1-2e3506a2dc77"], -Cell[201364, 5152, 502, 11, 22, "Message",ExpressionUUID->"741c2835-6f2b-4d3e-ad9a-43338ec14bae"], -Cell[201869, 5165, 243, 5, 18, "Print",ExpressionUUID->"42357edc-9ab2-4f72-958b-df58546276b5"], -Cell[202115, 5172, 471, 11, 22, "Message",ExpressionUUID->"3cecf403-7c75-47bf-89f5-b852f5629786"], +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[202611, 5187, 246, 5, 18, "Print",ExpressionUUID->"ce671eaa-753d-4558-9b0f-49e9a27c349b"], -Cell[202860, 5194, 247, 5, 18, "Print",ExpressionUUID->"7273914d-e0db-4df1-b671-1354048e6b63"], -Cell[203110, 5201, 247, 5, 18, "Print",ExpressionUUID->"ee0d1163-5db0-4416-aee1-ce8ba2780c0b"], -Cell[203360, 5208, 245, 5, 18, "Print",ExpressionUUID->"67e8fb8b-b447-4416-a0ac-8c428a22e9da"] -}, Open ]], -Cell[203620, 5216, 2002, 44, 58, "Output",ExpressionUUID->"14770430-141b-4626-8333-163b114c5340"] -}, Open ]], -Cell[CellGroupData[{ -Cell[205659, 5265, 383, 11, 24, "Input",ExpressionUUID->"17f91843-8956-4f81-b1e8-d44b6a7d9eb0"], -Cell[206045, 5278, 154, 3, 25, "Output",ExpressionUUID->"47bd5d48-5e3c-4239-aeb3-925830a4d4ee"] -}, Open ]], -Cell[CellGroupData[{ -Cell[206236, 5286, 257, 6, 22, "Input",ExpressionUUID->"e5e0d48d-1b36-449f-a213-47b0b8f5a51a"], -Cell[206496, 5294, 154, 3, 25, "Output",ExpressionUUID->"b9b6d78e-1395-494a-9d59-1adb52d2e1c5"] -}, Open ]], -Cell[CellGroupData[{ -Cell[206687, 5302, 1782, 41, 41, "Input",ExpressionUUID->"d76e85cc-6ecb-4d98-b567-57b256fbb910"], -Cell[208472, 5345, 818, 15, 22, "Message",ExpressionUUID->"175fdfae-18d1-4457-aa55-c870b6da50e3"], -Cell[209293, 5362, 972, 17, 34, "Message",ExpressionUUID->"f2c58cd8-5d0a-4e2b-be83-442b509d25f4"], -Cell[210268, 5381, 2020, 47, 90, "Output",ExpressionUUID->"131bca88-c755-43c5-b416-18a9bd9854f6"] -}, Open ]], -Cell[CellGroupData[{ -Cell[212325, 5433, 728, 18, 24, "Input",ExpressionUUID->"a65b95cb-3d7a-457b-baa4-3dfcacab2a82"], -Cell[213056, 5453, 293, 5, 25, "Output",ExpressionUUID->"ca8f15d4-0701-43b7-826f-81e998eb533e"] -}, Open ]], -Cell[CellGroupData[{ -Cell[213386, 5463, 1784, 49, 41, "Input",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"], -Cell[215173, 5514, 529, 11, 22, "Message",ExpressionUUID->"7022a1c2-cb5c-4ed6-aedf-2be4e100d2c2"], -Cell[215705, 5527, 529, 11, 22, "Message",ExpressionUUID->"5ba58f54-0c40-4b49-91c2-0fd5f3844bbd"], -Cell[216237, 5540, 532, 12, 22, "Message",ExpressionUUID->"ecac759d-6cb0-4dc2-aeac-47c178646a12"], -Cell[216772, 5554, 524, 11, 22, "Message",ExpressionUUID->"99b3ad8d-d501-4d2c-b5c7-95a58da32861"], -Cell[217299, 5567, 266, 5, 18, "Print",ExpressionUUID->"7e287192-653e-4602-a480-351190844d50"], -Cell[217568, 5574, 443, 10, 22, "Message",ExpressionUUID->"aa0c05da-cd9f-4901-b218-dd2e6c72f897"], -Cell[218014, 5586, 495, 11, 22, "Message",ExpressionUUID->"aefcd4e1-0ad9-41dc-8d9f-cecf959c8248"], -Cell[CellGroupData[{ -Cell[218534, 5601, 263, 5, 18, "Print",ExpressionUUID->"d624a023-7f0f-4e91-8f3f-60d7bf738292"], -Cell[218800, 5608, 265, 5, 18, "Print",ExpressionUUID->"983aeed7-3c0b-4341-a483-0f2e86f19547"], -Cell[219068, 5615, 265, 5, 18, "Print",ExpressionUUID->"52534976-7bf6-4a65-a8a7-38bcbdf1be65"], -Cell[219336, 5622, 265, 5, 18, "Print",ExpressionUUID->"89ae812f-91c5-4c6e-87c6-de4b31b17e48"] +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 ]], -Cell[CellGroupData[{ -Cell[219650, 5633, 1714, 44, 105, InheritFromParent,ExpressionUUID->"7c2fae36-9969-45c8-be00-c728dc79c64c"], -Cell[221367, 5679, 1607, 40, 74, "Output",ExpressionUUID->"d5ad0fbd-caf6-48b3-984e-33816913a7c3"] -}, Open ]], -Cell[CellGroupData[{ -Cell[223011, 5724, 1662, 39, 41, "Input",ExpressionUUID->"c58535c6-e2cc-4022-b4ee-6e96bd40636a"], -Cell[224676, 5765, 749, 14, 22, "Message",ExpressionUUID->"5f9bd29b-8eb0-4a32-ae66-82cfd8da388b"], -Cell[225428, 5781, 2202, 52, 108, "Output",ExpressionUUID->"8ef30ce7-91ad-4cb6-8ff5-0b797be59053"] -}, Open ]], -Cell[CellGroupData[{ -Cell[227667, 5838, 542, 15, 24, "Input",ExpressionUUID->"7f30ad07-05ba-4e34-952b-ca6f21b02e96"], -Cell[228212, 5855, 170, 3, 25, "Output",ExpressionUUID->"f51249ff-f932-482f-9bc1-b30044e4e4b1"] -}, Open ]], -Cell[CellGroupData[{ -Cell[228419, 5863, 1332, 33, 24, "Input",ExpressionUUID->"200b94d3-7cab-4649-99f3-c2558b1a5011"], -Cell[229754, 5898, 525, 11, 22, "Message",ExpressionUUID->"2615180a-f646-41b8-96fe-8e684692f56b"], -Cell[230282, 5911, 525, 11, 22, "Message",ExpressionUUID->"a1f65287-1cb7-4001-8046-d8a23e15172e"], -Cell[230810, 5924, 526, 12, 22, "Message",ExpressionUUID->"ec64abf9-ad4f-45cd-99e4-70431b11d26b"], -Cell[231339, 5938, 518, 11, 22, "Message",ExpressionUUID->"5bd1676a-a15f-4aae-9cbb-c102f0f95532"], -Cell[CellGroupData[{ -Cell[231882, 5953, 215, 4, 18, "Print",ExpressionUUID->"7ed5d548-514d-4fe8-8b78-512914799352"], -Cell[232100, 5959, 215, 4, 18, "Print",ExpressionUUID->"b2af9369-9d8f-431e-9030-76bb4380fee7"], -Cell[232318, 5965, 214, 4, 18, "Print",ExpressionUUID->"675faf5b-4311-49e7-8b1a-fcd3f0834ef9"], -Cell[232535, 5971, 216, 4, 18, "Print",ExpressionUUID->"c0034a53-fdfc-421f-8cf9-a66d01740b1a"], -Cell[232754, 5977, 214, 4, 18, "Print",ExpressionUUID->"a759c179-7c48-4826-8457-6fda0b49f576"] -}, Open ]], -Cell[232983, 5984, 1767, 43, 76, "Output",ExpressionUUID->"603ce513-d919-4a6a-aae2-e99140ba8fb2"] -}, Open ]], -Cell[CellGroupData[{ -Cell[234787, 6032, 1403, 36, 24, "Input",ExpressionUUID->"77feec13-1cdc-471d-8d45-49920b8c9c58"], -Cell[236193, 6070, 229, 4, 25, "Output",ExpressionUUID->"362d644d-39b8-4815-95d9-a10f5c313532"] -}, Open ]], -Cell[CellGroupData[{ -Cell[236459, 6079, 12912, 285, 306, "Input",ExpressionUUID->"696e8dad-b679-4cff-9df9-7fa32582e84f"], -Cell[249374, 6366, 162, 3, 25, "Output",ExpressionUUID->"6a404edb-ac94-461f-b2e5-acd44da01100"], -Cell[249539, 6371, 160, 3, 25, "Output",ExpressionUUID->"2c660b93-654e-4c19-a6ee-ebd9ae1fe369"], -Cell[249702, 6376, 160, 3, 25, "Output",ExpressionUUID->"ac425c72-2e2b-4850-8349-fef964c356dd"], -Cell[249865, 6381, 770, 15, 22, "Message",ExpressionUUID->"e7472b6a-9708-47bd-9dd2-849ab9abc5a6"], -Cell[250638, 6398, 862, 16, 22, "Message",ExpressionUUID->"d14e8158-7a0c-4e09-98f1-d604a5881e2e"], -Cell[251503, 6416, 772, 15, 22, "Message",ExpressionUUID->"a752eb8a-23e3-4cdb-af93-ff21c18cf987"], -Cell[252278, 6433, 862, 16, 22, "Message",ExpressionUUID->"ba4bcc27-d9ad-4822-a182-dbfb6baf266b"] -}, Open ]], -Cell[253155, 6452, 11952, 233, 182, "Input",ExpressionUUID->"673ffefa-75f0-46ac-befd-c785b4bc3ce1"], -Cell[CellGroupData[{ -Cell[265132, 6689, 944, 28, 24, "Input",ExpressionUUID->"3a6bc1b3-5e9d-4b1c-b46d-fd5e4ff8cf76"], -Cell[266079, 6719, 315, 6, 25, "Output",ExpressionUUID->"c977424a-aa18-4aea-aaca-484dcc8c8408"] -}, Open ]], -Cell[CellGroupData[{ -Cell[266431, 6730, 943, 28, 24, "Input",ExpressionUUID->"a69be52b-dc01-480f-81d9-1536204c04bc"], -Cell[267377, 6760, 292, 6, 25, "Output",ExpressionUUID->"e502b5f4-ed08-4ca3-8845-e50c58f64274"] -}, Open ]], -Cell[CellGroupData[{ -Cell[267706, 6771, 1396, 33, 41, "Input",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"], -Cell[269105, 6806, 13993, 308, 275, "Output",ExpressionUUID->"4a71281b-8b4d-40ea-912d-d0bffa3afba8"] }, Open ]] }, Open ]] } diff --git a/schofield.wl b/schofield.wl index f32d855..3f45f5d 100644 --- a/schofield.wl +++ b/schofield.wl @@ -96,9 +96,11 @@ dΦdηList[n_, h_][m_, θp_] := Module[ ] ruleB[g_] := B -> (2 * OverBar[s] / π) * (- g'[θc] / t[θc]^Δ[2]) -ruleθ0[g_] := Simplify[g[I θ0]/(-t[I θ0])^Δ[2]/I] - Around[0.18930, 0.00005] +ξYL[g_] := g[I θ0]/(-t[I θ0])^Δ[2]/I +AYL[g_] := AH / ((g[I θ0]/ I)^(2 / Δ[2]) * (-η[g]'[I θ0] / (2 θ0 I))^(5/6)) +ruleθ0[g_] := ξYL[g] - Around[0.18930, 0.00005] ruleAL[g_] := AL -> Exp[Δ[2] t[θc]^(Δ[2] - 1) t'[θc] / (2 OverBar[s] / π g'[θc]) - t[θc]^Δ[2] g''[θc] / (4 OverBar[s] / π g'[θc]^2)] t[θc]^(1/8) OverBar[s] / (2 π) * g'[θc] -ruleAH[g_] := AH / ((g[I θ0]/ I)^(2 / Δ[2]) * (-η[g]'[I θ0] / (2 θ0 I))^(5/6)) + Around[1.37, 0.02] +ruleAH[g_] := AYL[g] + Around[1.37, 0.02] eqLowRHSReg[n_][m_] := dRFc[n][m] @@ -144,9 +146,9 @@ Gls = { Around[ 2.937665, 3.0 10^(-6)], Around[-15.61, 1.0 10^(-2)], Around[ 96.76, 1.0 10^(-2)], - -6.79 10^2, - 5.34 10^3, - -4.66 10^4, + Around[-6.79 10^2, 1.0], + Around[5.34 10^3, 10.], + Around[-4.66 10^4, 0.01 10^4], 4.46 10^5, -4.66 10^6 } @@ -187,7 +189,7 @@ resLow[n_, g_, δ_][m_] := formResiduals[Gls[[;;m+1]], dGdξLowList[n, g][m], δ resHigh[n_, g_, δ_][m_] := Rest[formResiduals[Ghs[[;;m+1]], dGdξList[n, g][m, 0], δ][[;;;;2]]] -res[F_, g_, δ_][m_] := Join[resLow[F, g, δ][m], resHigh[F, g, δ][m], {ruleθ0[g] / 0.00005(*, ruleAH[g] / 0.02*)} /. Around[x_, _] :> x] +res[F_, g_, δ_][m_] := Join[resLow[F, g, δ][m], resHigh[F, g, δ][m]] chiSquared[F_, g_, δ_][m_] := Total[res[F, g, δ][m]^2] newSol[eqs_, oldSol_, newVars_, δ_:0, γ_:0, opts___] := FindRoot[ @@ -205,8 +207,9 @@ levenbergMarquardtStep[M_, λ_, g_] := Quiet[ , LinearSolve::luc ] -levenbergMarquardtAcceleration[M_, λ_, v_, J_, rold_, rf_, h_, β_, δ_] := Quiet[ - - Re[LinearSolve[M + λ DiagonalMatrix[Diagonal[M]], Transpose[J].(2/h((rf[Append[β[[All,2]] + h v, δ]] - rold) / h - J . v))] / 2] +levenbergMarquardtAcceleration[M_, λ_, v_, J_, rold_, rf_, h_, β_] := Quiet[ + δβ = β; δβ[[All, 2]] += h v; + - Re[LinearSolve[M + λ DiagonalMatrix[Diagonal[M]], Transpose[J].(2/h(((rf /. δβ) - rold) / h - J . v))] / 2] , LinearSolve::luc ] @@ -229,7 +232,7 @@ levenbergMarquardt[r_, β0_, λ0_ : 1, ν_ : 2, ε_ : 10^-15] := ] -levenbergMarquardtHelper[Δ_, rf_, Jf_, β0_, λ0_ : 1, ν_ : 2, ε_ : 10^-15, accOff_ : False] := +levenbergMarquardtHelper[r_, J_, β0_, λ0_ : 1, ν_ : 2, ε_ : 10^-15] := Module[ { n = Length[β0], @@ -240,66 +243,63 @@ levenbergMarquardtHelper[Δ_, rf_, Jf_, β0_, λ0_ : 1, ν_ : 2, ε_ : 10^-15, a h = 0.1, fvv, α = 0.1, a, v, U, nSteps = 0, reject, μ =3 }, PrintTemporary["Beginning the algorithm."]; - oldr = rf[Append[β[[All, 2]], Δ]]; - oldJ = Jf[Append[β[[All, 2]], Δ]]; + oldr = r /. β; + oldJ = J /. β; U = First[SingularValueDecomposition[oldJ]]; oldC = Re[Total[oldr^2]]; newC = oldC; g = Re[Transpose[oldJ] . oldr]; M = Re[Transpose[oldJ] . oldJ]; v = levenbergMarquardtStep[M, λ, g]; - a = levenbergMarquardtAcceleration[M, λ, v, oldJ, oldr, rf, h, β, Δ]; - δ = v + If[accOff, 0, a]; + a = levenbergMarquardtAcceleration[M, λ, v, oldJ, oldr, r, h, β]; + δ = v + a; vlast = v; PrintTemporary["Current cost value: ", Dynamic[oldC]]; While[Norm[δ] > ε, newβ[[All, 2]] += δ; - newr = rf[Append[newβ[[All, 2]], Δ]]; + newr = r /. newβ; newC = Re[Total[newr^2]]; While[((1 - v . vlast / Norm[v] / Norm[vlast])newC > oldC) || (2 Norm[a] / Norm[v] > α), λ *= ν; v = levenbergMarquardtStep[M, λ, g]; - a = levenbergMarquardtAcceleration[M, λ, v, oldJ, oldr, rf, h, β, Δ]; - δ = v + If[accOff, 0, a]; + a = levenbergMarquardtAcceleration[M, λ, v, oldJ, oldr, r, h, β]; + δ = v + a; newβ = β; newβ[[All, 2]] += δ; - newr = rf[Append[newβ[[All, 2]], Δ]]; + newr = r /. newβ; newC = Re[Total[newr^2]]; ]; oldC = newC; oldr = newr; β = newβ; - oldJ = Jf[Append[β[[All, 2]], Δ]]; + oldJ = J /. β; U = First[SingularValueDecomposition[oldJ]]; g = Re[Transpose[oldJ] . oldr]; M = Re[Transpose[oldJ] . oldJ]; vlast = v; λ /= μ; v = levenbergMarquardtStep[M, λ, g]; - a = levenbergMarquardtAcceleration[M, λ, v, oldJ, oldr, rf, h, β, Δ]; - δ = v + If[accOff, 0, a]; + a = levenbergMarquardtAcceleration[M, λ, v, oldJ, oldr, r, h, β]; + δ = v + a; nSteps += 1; ]; {newC, β} ] annealFit[r_, Δ_, β0_, δ0_ : 10^-5, δ1_ : 10^-13, δδ_ : 100, λ0_ : 1, ν_ : 2, ε_: 10^-15] := -Module[ {lastfit = {1,β0}, rf, Jf, δ = δ0, n = Length[β0]}, - Quiet[ - rf = Compile[{{x, _Real, 1}}, - Evaluate[r /. Thread[Rule[Append[First /@ β0, Δ], Part[x, #] & /@ Range[n + 1]]]] - ]; - Jf = Compile[{{x, _Real, 1}}, - Evaluate[D[r, {First /@ β0}] /. Thread[Rule[Append[First /@ β0, Δ], Part[x, #] & /@ Range[n + 1]]]] - ]; - , Part::partd]; +Module[ {lastfit = {1, β0}, dr, δ = δ0}, + dr = D[r, {First /@ β0}]; While[δ >= δ1, - lastfit = levenbergMarquardtHelper[δ, rf, Jf, lastfit[[2]]]; + lastfit = levenbergMarquardtHelper[r /. Δ -> δ, dr /. Δ -> δ, lastfit[[2]], λ0, ν, ε]; Print[lastfit[[1]]]; δ /= δδ; ]; lastfit ] +fitCov[res_, s_] := + With[{J = D[res, {s[[All, 1]]}]}, + Symmetrize[Inverse[SetPrecision[Transpose[J] . J /. s, 60]]]] + EndPackage[] -- cgit v1.2.3-54-g00ecf