summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--caselle_compare.nb1774
-rw-r--r--new_schofield.nb6812
-rw-r--r--schofield.wl26
3 files changed, 5667 insertions, 2945 deletions
diff --git a/caselle_compare.nb b/caselle_compare.nb
index 8ad80e6..835a5ce 100644
--- a/caselle_compare.nb
+++ b/caselle_compare.nb
@@ -10,10 +10,10 @@
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
-NotebookDataLength[ 119928, 2768]
-NotebookOptionsPosition[ 113588, 2657]
-NotebookOutlinePosition[ 113988, 2673]
-CellTagsIndexPosition[ 113945, 2670]
+NotebookDataLength[ 144618, 3306]
+NotebookOptionsPosition[ 136358, 3157]
+NotebookOutlinePosition[ 136756, 3173]
+CellTagsIndexPosition[ 136713, 3170]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
@@ -28,220 +28,7 @@ Cell[BoxData[
3.827832304560932*^9, {3.8278486734515533`*^9, 3.827848673995721*^9}, {
3.8278488730224733`*^9, 3.827848876357965*^9}, {3.827916449928692*^9,
3.827916450999913*^9}},
- CellLabel->"In[1]:=",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"],
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"n9", "=", "2"}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"F9", "=",
- RowBox[{"RF", "[", "n9", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"h9", "=",
- RowBox[{"h", "[", "15", "]"}]}], ";"}]}], "Input",
- CellChangeTimes->{
- 3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
- 3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9,
- 3.817564534320574*^9}, {3.81756485534698*^9, 3.817564862343175*^9}, {
- 3.817564919676697*^9, 3.8175649235785027`*^9}, {3.817565106996109*^9,
- 3.8175651474217367`*^9}, {3.8175652415905113`*^9, 3.817565250029232*^9}, {
- 3.8175657444559927`*^9, 3.8175657689660788`*^9}, 3.8175669120549498`*^9, {
- 3.8175677716518087`*^9, 3.817567773706285*^9}, {3.817579700926876*^9,
- 3.817579701354711*^9}, {3.8175810533593073`*^9, 3.817581114447541*^9}, {
- 3.817581149854197*^9, 3.8175811499220247`*^9}, {3.817581265163169*^9,
- 3.81758126542041*^9}, {3.81758144220247*^9, 3.8175814490334673`*^9}, {
- 3.8175815152710047`*^9, 3.817581521148234*^9}, {3.817581635837187*^9,
- 3.817581700879589*^9}, {3.817581767691791*^9, 3.817581768673394*^9}, {
- 3.8175821842992363`*^9, 3.8175821844066353`*^9}, {3.817582286431714*^9,
- 3.817582297101211*^9}, {3.817582488847374*^9, 3.817582488974349*^9}, {
- 3.817582803954041*^9, 3.817582804222094*^9}, {3.817618756754203*^9,
- 3.817618757439868*^9}, {3.81761900296082*^9, 3.817619003035212*^9}, {
- 3.8176203963382673`*^9, 3.817620396528458*^9}, {3.817626242723531*^9,
- 3.817626282042306*^9}, {3.81762924164756*^9, 3.8176292443562737`*^9}, {
- 3.8176636404765043`*^9, 3.817663648770928*^9}, {3.817666003825204*^9,
- 3.8176660163975077`*^9}, 3.825758657266858*^9, 3.8257634297123632`*^9, {
- 3.8257637382216587`*^9, 3.825763741294034*^9}, {3.825764046315646*^9,
- 3.8257640768120003`*^9}, {3.826007441657895*^9, 3.8260074468257313`*^9},
- 3.826007758136524*^9, {3.826013359537168*^9, 3.826013366921255*^9}, {
- 3.826013463378932*^9, 3.826013482235341*^9}, {3.826014234648857*^9,
- 3.8260142779855223`*^9}, {3.82610306735501*^9, 3.826103074379273*^9}, {
- 3.826103107756144*^9, 3.826103107819812*^9}, {3.826272369240218*^9,
- 3.826272391792493*^9}, {3.826272586652137*^9, 3.826272594732195*^9}, {
- 3.826273088053089*^9, 3.826273089748893*^9}, {3.826273144677765*^9,
- 3.826273146997635*^9}, {3.8262736335668373`*^9, 3.826273635734462*^9},
- 3.8266890691074533`*^9, {3.826689155061082*^9, 3.8266891551567373`*^9}, {
- 3.8266893130797987`*^9, 3.826689323848358*^9}, {3.826689565988503*^9,
- 3.826689581228674*^9}, {3.826689634565889*^9, 3.826689650102207*^9}, {
- 3.826689983421033*^9, 3.826689988684514*^9}, {3.826690298234497*^9,
- 3.826690304258379*^9}, {3.8266903448673897`*^9, 3.826690346835585*^9}, {
- 3.826690541351234*^9, 3.826690548879322*^9}, 3.8266910071358747`*^9, {
- 3.82669106486483*^9, 3.826691074849018*^9}, {3.826691445503744*^9,
- 3.826691458440094*^9}, {3.82669167994809*^9, 3.826691683996052*^9}, {
- 3.826704702577314*^9, 3.826704712105288*^9}, {3.82670492717354*^9,
- 3.826704930421282*^9}, {3.827403765410832*^9, 3.827403784866971*^9}, {
- 3.827404400190401*^9, 3.827404420238784*^9}, {3.8274045097126637`*^9,
- 3.8274045126565638`*^9}, {3.8274047169724197`*^9, 3.827404723828395*^9}, {
- 3.827404767149251*^9, 3.827404769613168*^9}, {3.827405559211132*^9,
- 3.827405561458974*^9}, {3.827406421058803*^9, 3.827406425898838*^9}, {
- 3.827410007136595*^9, 3.827410024500999*^9}, {3.827468086395525*^9,
- 3.827468087899349*^9}, {3.8274817111143637`*^9, 3.827481732722485*^9}, {
- 3.827481932910375*^9, 3.827481942630374*^9}, {3.827484882114504*^9,
- 3.827484891178834*^9}, {3.82748496838837*^9, 3.827484972428067*^9}, {
- 3.827554870569126*^9, 3.8275548842255087`*^9}, {3.827554955106474*^9,
- 3.827554986395269*^9}, {3.827555061348587*^9, 3.827555089773085*^9}, {
- 3.827555513700951*^9, 3.8275555289410133`*^9}, {3.827558549917939*^9,
- 3.827558582782239*^9}, {3.827561592644457*^9, 3.8275616094843884`*^9}, {
- 3.827830458103025*^9, 3.8278304871675167`*^9}, {3.827830599481675*^9,
- 3.8278306003135023`*^9}, {3.82783063897057*^9, 3.827830646362282*^9}, {
- 3.827830706235694*^9, 3.827830712059711*^9}, {3.827831315902727*^9,
- 3.827831321270451*^9}, {3.827833104775069*^9, 3.827833114719193*^9}, {
- 3.8278331747045517`*^9, 3.827833179136505*^9}, {3.8278334549656887`*^9,
- 3.827833462445428*^9}, 3.829120829171124*^9, {3.829213838889318*^9,
- 3.829213883841852*^9}, {3.829214173078923*^9, 3.829214190007135*^9}, {
- 3.829217677573986*^9, 3.829217686333686*^9}, {3.829217811928056*^9,
- 3.8292178136720657`*^9}, {3.829218394666704*^9, 3.829218401658337*^9}, {
- 3.8292188164581223`*^9, 3.82921883122604*^9}, {3.829218950764509*^9,
- 3.829218957204319*^9}, {3.829220267572093*^9, 3.829220270004106*^9}, {
- 3.82936259901405*^9, 3.829362614606016*^9}, {3.829370367314437*^9,
- 3.829370369098258*^9}, {3.82937149074282*^9, 3.829371504006997*^9}, {
- 3.829371588392646*^9, 3.829371592952486*^9}, {3.829371703474627*^9,
- 3.829371725714978*^9}, {3.8293841834937067`*^9, 3.829384188373666*^9}, {
- 3.829384287679748*^9, 3.8293842910074463`*^9}, {3.8293843661210957`*^9,
- 3.829384372016992*^9}, {3.8293844069057617`*^9, 3.829384407617469*^9}, {
- 3.829384490603231*^9, 3.8293844949630737`*^9}, {3.829384774360268*^9,
- 3.829384778992144*^9}, {3.829384939363501*^9, 3.829384940539279*^9}, {
- 3.829385057917753*^9, 3.8293850885740633`*^9}, {3.8293851940558357`*^9,
- 3.82938520864007*^9}, {3.829385243712878*^9, 3.829385265113099*^9}, {
- 3.829385359435005*^9, 3.82938536205903*^9}, {3.8293854930775623`*^9,
- 3.829385516669804*^9}, {3.829385592767355*^9, 3.829385603743544*^9}, {
- 3.829385805283429*^9, 3.8293858066272917`*^9}, {3.8296441789890337`*^9,
- 3.829644182788821*^9}, {3.8296443535841208`*^9, 3.8296443554960938`*^9}, {
- 3.829644473714408*^9, 3.8296444761702623`*^9}, {3.829644990507839*^9,
- 3.829644992283627*^9}, {3.8296450810455513`*^9, 3.829645083133322*^9}, {
- 3.829645633663727*^9, 3.829645635447423*^9}, {3.829646390405294*^9,
- 3.829646395957156*^9}, {3.8296466570661983`*^9, 3.8296466584660683`*^9}, {
- 3.829647489657442*^9, 3.8296474909771557`*^9}, {3.829648049259359*^9,
- 3.829648052195036*^9}, {3.829648124252544*^9, 3.829648126212494*^9}, {
- 3.829648545868373*^9, 3.829648547468088*^9}, {3.829815925549561*^9,
- 3.829815927157423*^9}, {3.831199182529437*^9, 3.831199184025214*^9}, {
- 3.831199555872078*^9, 3.8311995571520443`*^9}, {3.831200372511159*^9,
- 3.831200375510755*^9}, {3.831200883112361*^9, 3.831200884648239*^9}, {
- 3.831202244984953*^9, 3.8312022472967157`*^9}, {3.831202303490005*^9,
- 3.8312023084899607`*^9}, {3.8312025111574802`*^9, 3.831202512989365*^9}, {
- 3.831202842403379*^9, 3.831202846339692*^9}, {3.8321389414364977`*^9,
- 3.8321389438202143`*^9}, {3.832139044022344*^9, 3.8321390459501247`*^9}, {
- 3.832139331571517*^9, 3.832139334051388*^9}, {3.832139429389288*^9,
- 3.832139429661056*^9}, {3.832139540919005*^9, 3.83213954419108*^9}, {
- 3.832139593440238*^9, 3.8321395952640944`*^9}, {3.832139841260713*^9,
- 3.832139861220974*^9}, {3.832140024431809*^9, 3.8321400256558027`*^9}, {
- 3.8321402850208273`*^9, 3.832140296084632*^9}, {3.8321406237947397`*^9,
- 3.832140627690679*^9}, {3.832140880727601*^9, 3.832140885559256*^9}, {
- 3.832145324960071*^9, 3.832145325215494*^9}},
- CellLabel->"In[2]:=",ExpressionUUID->"872503c3-0779-4b87-805f-13a088f459e3"],
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"n1", "=", "2"}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"F1", "=",
- RowBox[{"RF", "[", "n1", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"h1", "=",
- RowBox[{"h", "[", "0", "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"sol1", "=",
- RowBox[{"{",
- RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.1942649631944824`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.1980115286480415`"}], ",",
- RowBox[{"B", "\[Rule]", "8.55266640049003`"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.1942649631944824`"}], ",",
-
- RowBox[{"AL", "\[Rule]",
- RowBox[{"-", "0.09823515561347546`"}]}], ",",
- RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.3836528485084885`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.0766637996073516`"}], ",",
- RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.0038100879767504`"}], ",",
- RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.22823495175053052`"}]}],
- "}"}]}], ";"}]}], "Input",
- CellChangeTimes->{{3.832146779562958*^9, 3.8321467886772203`*^9}},
- CellLabel->"In[2]:=",ExpressionUUID->"02a1f6e5-4144-4552-9463-2a226c1ee186"],
-
-Cell[BoxData[
- RowBox[{
- RowBox[{"sol9", "=",
- RowBox[{"{",
- RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.3334703412536566`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19778787932056896`"}], ",",
- RowBox[{"B", "\[Rule]", "2.423508930724686`"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2182536469166905`"}], ",",
-
- RowBox[{"AL", "\[Rule]",
- RowBox[{"-", "0.032849858698944676`"}]}], ",",
- RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.476902848020555`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.3332747682033883`"}], ",",
- RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.5090565130203157`"}], ",",
- RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.23349249078258508`"}], ",",
-
- RowBox[{
- RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.05795919615164437`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.009724404457489885`"}],
- ",",
- RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.0027930254001640054`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0009257841098320665`"}],
- ",",
- RowBox[{
- RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0003462096131004199`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00013670744619527473`"}],
- ",",
- RowBox[{
- RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
- RowBox[{"-", "0.000057088418113155406`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.000024064383846786254`"}],
- ",",
- RowBox[{
- RowBox[{"gC", "[", "9", "]"}], "\[Rule]",
- RowBox[{"-", "0.000010116684104855923`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "10", "]"}], "\[Rule]", "4.024896321935335`*^-6"}],
- ",",
- RowBox[{
- RowBox[{"gC", "[", "11", "]"}], "\[Rule]",
- RowBox[{"-", "1.4759300475764031`*^-6"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "12", "]"}], "\[Rule]", "4.686996899926149`*^-7"}],
- ",",
- RowBox[{
- RowBox[{"gC", "[", "13", "]"}], "\[Rule]",
- RowBox[{"-", "1.2362968704699286`*^-7"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "14", "]"}], "\[Rule]", "2.395277120268058`*^-8"}],
- ",",
- RowBox[{
- RowBox[{"gC", "[", "15", "]"}], "\[Rule]",
- RowBox[{"-", "2.99666705183393`*^-9"}]}]}], "}"}]}], ";"}]], "Input",
- CellChangeTimes->{{3.8321453319115543`*^9, 3.832145338055831*^9}, {
- 3.8365700691716623`*^9, 3.836570070475397*^9}},
- CellLabel->"In[5]:=",ExpressionUUID->"d8831e63-87f3-498c-8951-21f347e539ff"],
+ CellLabel->"In[64]:=",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"],
Cell[CellGroupData[{
@@ -293,8 +80,9 @@ Cell[BoxData[{
RowBox[{"2", "!"}]}]}], ",",
RowBox[{"c4", "\[Rule]",
RowBox[{
- RowBox[{"Ghs", "[",
- RowBox[{"[", "5", "]"}], "]"}],
+ RowBox[{
+ RowBox[{"Ghs", "[",
+ RowBox[{"[", "5", "]"}], "]"}], "[", "\"\<Value\>\"", "]"}],
RowBox[{"4", "!"}]}]}]}], "}"}]}]}], "\[IndentingNewLine]",
RowBox[{"m0", "=",
RowBox[{
@@ -306,275 +94,30 @@ Cell[BoxData[{
3.832146444152248*^9, {3.832146620327344*^9, 3.832146620479251*^9}, {
3.84380599279574*^9, 3.8438060263082247`*^9}, {3.843806057721389*^9,
3.8438061646410103`*^9}, {3.8438062079468822`*^9, 3.843806212028804*^9}, {
- 3.843806310535351*^9, 3.843806319271604*^9}},
- CellLabel->"In[66]:=",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"],
+ 3.843806310535351*^9, 3.843806319271604*^9}, {3.843811727076584*^9,
+ 3.843811750155121*^9}},
+ CellLabel->"In[47]:=",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"],
-Cell[BoxData[
- InterpretationBox[
- TemplateBox[{"0.272868892", "67", "18"},
- "AroundSeq"],
- Around[0.27286889266851116`, 1.830377061433295*^-10]]], "Output",
+Cell[BoxData["0.27286889266851116`"], "Output",
CellChangeTimes->{{3.8438061496682377`*^9, 3.843806165132856*^9},
- 3.8438062124458447`*^9, {3.8438063135040703`*^9, 3.843806319765049*^9}},
- CellLabel->"Out[68]=",ExpressionUUID->"7147fa3f-588c-4d84-919f-5b390263b15a"],
+ 3.8438062124458447`*^9, {3.8438063135040703`*^9, 3.843806319765049*^9},
+ 3.8438114231817093`*^9, {3.843811741230702*^9, 3.8438117504040937`*^9},
+ 3.8438127470406*^9, 3.8438833063506927`*^9},
+ CellLabel->"Out[49]=",ExpressionUUID->"5916b0af-c167-4771-aeb7-3c62b468a0ba"],
-Cell[BoxData[
- InterpretationBox[
- TemplateBox[{"1.007010684", "9", "7"},
- "AroundSeq"],
- Around[1.007010684856479, 6.754926295020057*^-10]]], "Output",
+Cell[BoxData["1.007010684856479`"], "Output",
CellChangeTimes->{{3.8438061496682377`*^9, 3.843806165132856*^9},
- 3.8438062124458447`*^9, {3.8438063135040703`*^9, 3.843806319775044*^9}},
- CellLabel->"Out[69]=",ExpressionUUID->"77d5d61f-2753-4b7e-a4c4-fa95057652f1"]
-}, Open ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"Ghs", "[",
- RowBox[{"[", "3", "]"}], "]"}]], "Input",
- CellChangeTimes->{{3.843806234438224*^9, 3.84380624199413*^9}},
- CellLabel->"In[61]:=",ExpressionUUID->"cc1db89b-ac08-453b-acd3-8a1a74aa25de"],
-
-Cell[BoxData[
- RowBox[{"-",
- "1.845228078232838354322445111140726622305063693019713225476383902326`51.\
-00035391886207"}]], "Output",
- CellChangeTimes->{{3.84380623765521*^9, 3.843806242237384*^9}},
- CellLabel->"Out[61]=",ExpressionUUID->"539cef56-d335-495b-a7cf-72f95eb2f3c6"]
-}, Open ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData["a"], "Input",
- CellChangeTimes->{3.843806064824988*^9},
- CellLabel->"In[42]:=",ExpressionUUID->"826bcc4b-5d2e-4245-a68d-af19dfb20e6b"],
-
-Cell[BoxData["a"], "Output",
- CellChangeTimes->{3.8438060655024347`*^9},
- CellLabel->"Out[42]=",ExpressionUUID->"82fdbc16-a012-4ac0-9a30-1b833903afee"]
-}, Open ]],
-
-Cell[BoxData[
- RowBox[{
- RowBox[{"coeffCas", "[", "n_", "]"}], ":=",
- RowBox[{
- RowBox[{"NestList", "[",
- RowBox[{
- RowBox[{"dd\[Xi]", "[", "hCas", "]"}], ",",
- RowBox[{"m0", " ",
- FractionBox["\[Theta]",
- SuperscriptBox[
- RowBox[{"(",
- RowBox[{
- SuperscriptBox["\[Theta]", "2"], "-", "1"}], ")"}],
- RowBox[{"1", "/", "8"}]]]}], ",", "n"}], "]"}], "/.",
- RowBox[{"\[Theta]", "->", "\[Theta]0Cas"}]}]}]], "Input",
- CellChangeTimes->{{3.8321456376315823`*^9, 3.83214564961337*^9}, {
- 3.8321456871660624`*^9, 3.832145718870708*^9}, {3.832145767359564*^9,
- 3.83214577961791*^9}, {3.832145890778178*^9, 3.832145905218177*^9}, {
- 3.832145940706725*^9, 3.8321459464268084`*^9}, {3.832145996299863*^9,
- 3.832146000067889*^9}, {3.832239324678667*^9, 3.832239324966337*^9}},
- CellLabel->"In[48]:=",ExpressionUUID->"bd6b698e-6871-43fa-9d98-7385cc594c9c"],
-
-Cell[BoxData[
- RowBox[{
- RowBox[{"coeffCasMid", "[", "n_", "]"}], ":=",
- RowBox[{
- RowBox[{"NestList", "[",
- RowBox[{
- RowBox[{"dd\[Eta]", "[", "hCas", "]"}], ",",
- RowBox[{"m0", " ",
- FractionBox["\[Theta]",
- SuperscriptBox[
- RowBox[{"hCas", "[", "\[Theta]", "]"}],
- RowBox[{"1", "/",
- RowBox[{"\[Delta]", "[", "2", "]"}]}]]]}], ",", "n"}], "]"}], "/.",
- RowBox[{"\[Theta]", "->", "1"}]}]}]], "Input",
- CellChangeTimes->{{3.8322392541892567`*^9, 3.832239262037384*^9}, {
- 3.8322392935260983`*^9, 3.832239293789916*^9}, {3.832239451552669*^9,
- 3.832239458672798*^9}, {3.832239576243064*^9, 3.832239576394759*^9}},
- CellLabel->"In[9]:=",ExpressionUUID->"7bddfed2-a761-4c62-bcdc-0460988fbd67"],
-
-Cell[BoxData[
- RowBox[{
- RowBox[{"datNum", "=",
- RowBox[{"Thread", "[",
- RowBox[{"{",
- RowBox[{
- RowBox[{"Range", "[",
- RowBox[{"0", ",",
- RowBox[{
- RowBox[{"Length", "[", "Gls", "]"}], "-", "1"}]}], "]"}], ",",
- "Gls"}], "}"}], "]"}]}], ";"}]], "Input",
- CellChangeTimes->{{3.832146079469277*^9, 3.832146080085175*^9}, {
- 3.832146220615906*^9, 3.832146230663995*^9}, 3.836571905035768*^9, {
- 3.836572227321196*^9, 3.836572228850659*^9}, {3.843802149837371*^9,
- 3.843802151956236*^9}},
- CellLabel->"In[59]:=",ExpressionUUID->"ec8b9383-61d6-44c2-b776-3d651fc19660"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"Export", "[",
- RowBox[{
- "\"\<~/doc/research/first_order_singularities/paper/data/glow_series_\
-numeric.dat\>\"", ",",
- RowBox[{
- RowBox[{
- RowBox[{"{",
- RowBox[{"#1", ",",
- RowBox[{"If", "[",
- RowBox[{
- RowBox[{
- RowBox[{"Head", "[", "#2", "]"}], "===", "Around"}], ",",
- RowBox[{"#2", "[", "\"\<Value\>\"", "]"}], ",", "#2"}], "]"}], ",",
- RowBox[{"If", "[",
- RowBox[{
- RowBox[{
- RowBox[{"Head", "[", "#2", "]"}], "===", "Around"}], ",",
- RowBox[{"#2", "[", "\"\<Uncertainty\>\"", "]"}], ",", "0"}], "]"}]}],
- "}"}], "&"}], "@@@", "datNum"}]}], "]"}]], "Input",
- CellChangeTimes->{{3.836571907042726*^9, 3.8365719075682077`*^9}, {
- 3.8365719679456177`*^9, 3.836572034954253*^9}, {3.836572067138021*^9,
- 3.8365720932499523`*^9}},
- CellLabel->"In[33]:=",ExpressionUUID->"cbeb62aa-7e89-4ec5-a1cb-d5012bac06fd"],
-
-Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/glow_\
-series_numeric.dat\"\>"], "Output",
- CellChangeTimes->{
- 3.8365719078847313`*^9, {3.836572025847522*^9, 3.836572035446138*^9},
- 3.8365720941903563`*^9, 3.836572233522911*^9},
- CellLabel->"Out[33]=",ExpressionUUID->"9ddcc7c6-de02-4d31-9401-bbbc5eefe582"]
-}, Open ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"m0rule", "=",
- RowBox[{
- RowBox[{"Solve", "[",
- RowBox[{
- RowBox[{
- RowBox[{"datCas", "[",
- RowBox[{"[",
- RowBox[{"{",
- RowBox[{"1", ",", "2"}], "}"}], "]"}], "]"}], "==",
- RowBox[{"datNum", "[",
- RowBox[{"[",
- RowBox[{
- RowBox[{"2", ";;", "3"}], ",", "2"}], "]"}], "]"}]}], ",",
- RowBox[{"{",
- RowBox[{"m0", ",", "h0"}], "}"}]}], "]"}], "[",
- RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
- CellChangeTimes->{{3.8321459908444443`*^9, 3.8321460752131433`*^9}, {
- 3.8321464716527967`*^9, 3.8321464718044024`*^9}, {3.8321466387696667`*^9,
- 3.832146653175795*^9}, {3.832151934783225*^9, 3.8321519353348494`*^9}, {
- 3.832152037225222*^9, 3.8321520374089203`*^9}, {3.832239305719432*^9,
- 3.832239316046335*^9}, {3.836984166958787*^9, 3.83698416798269*^9}, {
- 3.836984311313539*^9, 3.836984316617137*^9}, {3.8438022146151648`*^9,
- 3.843802259206324*^9}},
- CellLabel->"In[72]:=",ExpressionUUID->"7efd85be-fd7d-435a-a870-214d8ec4025d"],
-
-Cell[BoxData[
- TemplateBox[{
- "Solve", "ratnz",
- "\"Solve was unable to solve the system with inexact coefficients. The \
-answer was obtained by solving a corresponding exact system and numericizing \
-the result.\"", 2, 72, 17, 31653097672855845075, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{
- 3.832146653505703*^9, 3.8321519356060266`*^9, 3.8321520375652533`*^9, {
- 3.8321544205609913`*^9, 3.832154425785782*^9}, {3.832239276291945*^9,
- 3.832239326773054*^9}, {3.836570087200712*^9, 3.836570104160351*^9}, {
- 3.8369749921742907`*^9, 3.836975002927493*^9}, 3.836984168350904*^9,
- 3.8369843170148077`*^9, 3.8370700000102262`*^9, {3.837072474483852*^9,
- 3.837072478715604*^9}, {3.8438021401706963`*^9, 3.843802153865232*^9}, {
- 3.843802229529984*^9, 3.843802270916144*^9}},
- CellLabel->
- "During evaluation of \
-In[72]:=",ExpressionUUID->"4bba24d3-fa02-4ad0-86b9-3bdb7e46a000"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"m0", "\[Rule]", "566.4709429312807`"}], ",",
- RowBox[{"h0", "\[Rule]",
- RowBox[{"-", "5.262843279675711`"}]}]}], "}"}]], "Output",
- CellChangeTimes->{{3.832145993018977*^9, 3.832146075354514*^9}, {
- 3.832146456457759*^9, 3.83214647211082*^9}, 3.832146653511766*^9,
- 3.832151935612179*^9, 3.8321520375710917`*^9, {3.8321544206488857`*^9,
- 3.8321544257922564`*^9}, {3.8322392763285713`*^9,
- 3.8322393267777767`*^9}, {3.836570087516891*^9, 3.8365701041934032`*^9}, {
- 3.836974992241055*^9, 3.836975002932447*^9}, 3.836984168357218*^9,
- 3.836984317019814*^9, 3.837070000054738*^9, {3.837072474543331*^9,
- 3.837072478720648*^9}, {3.843802140320195*^9, 3.843802153880229*^9}, {
- 3.843802229536105*^9, 3.843802270921445*^9}},
- CellLabel->"Out[72]=",ExpressionUUID->"e2f0010a-e1b6-4537-a8ae-b59af3108330"]
+ 3.8438062124458447`*^9, {3.8438063135040703`*^9, 3.843806319765049*^9},
+ 3.8438114231817093`*^9, {3.843811741230702*^9, 3.8438117504040937`*^9},
+ 3.8438127470406*^9, 3.843883306351761*^9},
+ CellLabel->"Out[50]=",ExpressionUUID->"c9921f2f-76f7-4cfd-85ee-7bf5652dc449"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
- RowBox[{"ClearAll", "[", "h0", "]"}], ";",
- RowBox[{"ClearAll", "[", "m0", "]"}], ";"}], "\[IndentingNewLine]",
- RowBox[{"h0", "=",
- RowBox[{
- RowBox[{"h0", "[", "\"\<Value\>\"", "]"}], "/.",
- "m0rule"}]}], "\[IndentingNewLine]",
- RowBox[{"m0", "=",
- RowBox[{
- RowBox[{"m0", "[", "\"\<Value\>\"", "]"}], "/.", "m0rule"}]}]}], "Input",
- CellChangeTimes->{{3.8369847488424397`*^9, 3.836984792561878*^9}},
- CellLabel->"In[13]:=",ExpressionUUID->"28731a52-d222-49b4-aebb-262f9a5d4dd5"],
-
-Cell[BoxData["0.2591817983420855`"], "Output",
- CellChangeTimes->{{3.83698477315833*^9, 3.8369847927282743`*^9},
- 3.837070002329464*^9, 3.837072479312191*^9},
- CellLabel->"Out[14]=",ExpressionUUID->"65626e49-d3af-4115-b5d3-96f63b95604e"],
-
-Cell[BoxData[
- RowBox[{"-", "1.0057626728406195`"}]], "Output",
- CellChangeTimes->{{3.83698477315833*^9, 3.8369847927282743`*^9},
- 3.837070002329464*^9, 3.837072479313409*^9},
- CellLabel->"Out[15]=",ExpressionUUID->"fe83a208-ae15-4c69-a7c9-b98329954997"]
-}, Open ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{
- RowBox[{
- RowBox[{"coeffCasMid", "[", "5", "]"}], "/",
- RowBox[{
- RowBox[{"Range", "[",
- RowBox[{"0", ",", "5"}], "]"}], "!"}]}], "/.", "m0rule"}]], "Input",
- CellChangeTimes->{{3.832239286022997*^9, 3.83223928776565*^9}, {
- 3.832239333006241*^9, 3.83223933347838*^9}, {3.832239464537035*^9,
- 3.832239465688715*^9}, {3.832239596747369*^9, 3.832239610347269*^9}, {
- 3.832239661037331*^9, 3.83223966189207*^9}},
- CellLabel->"In[16]:=",ExpressionUUID->"f42f7737-f59e-4289-8153-b78626e30f0e"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"-", "1.280384036380197`"}], ",",
- RowBox[{"-", "0.166257524237109`"}], ",", "0.03998986398383036`", ",",
- RowBox[{"-", "0.00793393859415671`"}], ",", "0.00027904634576921466`", ",",
- "0.0006680802614227808`"}], "}"}]], "Output",
- CellChangeTimes->{
- 3.832239333786672*^9, {3.8322394618672743`*^9, 3.832239465919291*^9}, {
- 3.83223957814188*^9, 3.832239613896473*^9}, 3.83223966232157*^9,
- 3.8369843208154488`*^9, 3.8370724800639668`*^9},
- CellLabel->"Out[16]=",ExpressionUUID->"c7c2e58e-e6d9-436b-9cc9-4238f4205a5a"]
-}, Open ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[{
- RowBox[{
- RowBox[{"totCas", "=", "6"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"totCas", "=", "13"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"ds", "=",
RowBox[{
@@ -653,40 +196,23 @@ Cell[BoxData[{
3.843802515907176*^9}, {3.84380268121432*^9, 3.843802684734229*^9},
3.843802806265029*^9, {3.843802947563074*^9, 3.843802949058984*^9},
3.843803003228539*^9, {3.843803040877533*^9, 3.843803044636691*^9}, {
- 3.8438064612671556`*^9, 3.843806483348926*^9}},
- CellLabel->"In[78]:=",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"],
+ 3.8438064612671556`*^9, 3.843806483348926*^9}, {3.843811490926489*^9,
+ 3.843811490990367*^9}, {3.843811762123721*^9, 3.843811792156164*^9}, {
+ 3.84381190693526*^9, 3.843811907005992*^9}, {3.843812765889268*^9,
+ 3.8438127660003633`*^9}, {3.8438833187875977`*^9, 3.843883318858028*^9}},
+ CellLabel->"In[59]:=",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- InterpretationBox[
- TemplateBox[{"-1.359523230", "8", "9"},
- "AroundSeq"],
- Around[-1.3595232308079763`, 9.119544964693466*^-10]], ",",
- InterpretationBox[
- TemplateBox[{"-0.0465554917", "0", "4"},
- "AroundSeq"],
- Around[-0.04655549169678349, 4.416441189932351*^-11]], ",",
- InterpretationBox[
- TemplateBox[{"0.032372119", "97", "18"},
- "AroundSeq"],
- Around[0.03237211997439275, 1.8148798936135176`*^-10]], ",",
- InterpretationBox[
- TemplateBox[{"-0.045597194", "8", "8"},
- "AroundSeq"],
- Around[-0.04559719478179554, 8.093160531246696*^-10]], ",",
- InterpretationBox[
- TemplateBox[{"0.08960826", "2", "4"},
- "AroundSeq"],
- Around[0.08960826235587013, 3.603495866011567*^-9]], ",",
- InterpretationBox[
- TemplateBox[{"-0.2143894", "70", "18"},
- "AroundSeq"],
- Around[-0.21438947006327158`, 1.757348031524261*^-8]], ",",
- InterpretationBox[
- TemplateBox[{"0.584185", "90", "10"},
- "AroundSeq"],
- Around[0.5841858983994364, 9.746945124081612*^-8]]}], "}"}]], "Output",
+ RowBox[{"-", "1.3595232308079763`"}], ",",
+ RowBox[{"-", "0.04655549169678349`"}], ",", "0.03237211997439275`", ",",
+ RowBox[{"-", "0.04559719478179554`"}], ",", "0.0896082623558699`", ",",
+ RowBox[{"-", "0.2143894700632707`"}], ",", "0.584185898399437`", ",",
+ RowBox[{"-", "1.7457422693875277`"}], ",", "5.58836650656107`", ",",
+ RowBox[{"-", "18.86651788362811`"}], ",", "66.44778572365097`", ",",
+ RowBox[{"-", "242.23334827652096`"}], ",", "908.6585949684338`", ",",
+ RowBox[{"-", "3491.621379722553`"}]}], "}"}]], "Output",
CellChangeTimes->{
3.83698713111462*^9, 3.836987321633688*^9, 3.8369882151463833`*^9,
3.83698833312978*^9, 3.837070043781701*^9, 3.837070402550199*^9,
@@ -694,15 +220,17 @@ Cell[BoxData[
3.8438022397282753`*^9, 3.843802269116067*^9}, 3.8438023757788677`*^9, {
3.84380243891853*^9, 3.843802516429851*^9}, 3.8438026852881813`*^9,
3.843802807050653*^9, 3.843802949596843*^9, 3.843803004201252*^9,
- 3.843803045143682*^9, {3.843806458261032*^9, 3.843806484750998*^9}},
- CellLabel->"Out[81]=",ExpressionUUID->"11e20a4b-cae5-48c4-b906-784dd8f87538"]
+ 3.843803045143682*^9, {3.843806458261032*^9, 3.843806484750998*^9}, {
+ 3.8438117627002707`*^9, 3.843811778845757*^9}, 3.843811897566523*^9,
+ 3.843812875019771*^9, {3.8438833095937767`*^9, 3.843883327729155*^9}},
+ CellLabel->"Out[62]=",ExpressionUUID->"662f4cfd-8b83-42b3-bae9-63f60b0e3593"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
- RowBox[{"totCas", "=", "6"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"totCas", "=", "13"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"ds", "=",
RowBox[{
@@ -782,27 +310,24 @@ Cell[BoxData[{
3.843802806265029*^9, {3.843802947563074*^9, 3.843802949058984*^9},
3.843803003228539*^9, {3.843803040877533*^9, 3.843803044636691*^9}, {
3.843803094421678*^9, 3.843803146878536*^9}, {3.843806505415429*^9,
- 3.8438065212344007`*^9}},
- CellLabel->"In[90]:=",ExpressionUUID->"34fe8bc4-abfb-4504-a7f1-045cd2a55ee6"],
+ 3.8438065212344007`*^9}, {3.843811444237966*^9, 3.843811444581764*^9}, {
+ 3.8438114746875067`*^9, 3.843811475623706*^9}, {3.843812978160186*^9,
+ 3.843812978303809*^9}, {3.843813154956399*^9, 3.843813155905347*^9}},
+ CellLabel->"In[61]:=",ExpressionUUID->"34fe8bc4-abfb-4504-a7f1-045cd2a55ee6"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0.`", ",",
- InterpretationBox[
- TemplateBox[{"-1.84522807", "82", "18"},
- "AroundSeq"],
- Around[-1.8452280782328385`, 1.7504575706350577`*^-9]], ",", "0.`", ",",
- InterpretationBox[
- TemplateBox[{"8.3337006", "9", "4"},
- "AroundSeq"],
- Around[8.333700692974128, 3.690828158823886*^-8]], ",", "0.`", ",",
- InterpretationBox[
- TemplateBox[{"-95.168816", "5", "8"},
- "AroundSeq"],
- Around[-95.16881652232625, 8.398770239245246*^-7]], ",", "0.`"}],
- "}"}]], "Output",
- CellChangeTimes->{{3.843806513941721*^9, 3.843806524411374*^9}},
- CellLabel->"Out[93]=",ExpressionUUID->"9ec93309-453d-448d-a010-32e525370828"]
+ RowBox[{"-", "1.8452280782328385`"}], ",", "0.`", ",", "8.33370069297413`",
+ ",", "0.`", ",",
+ RowBox[{"-", "95.16881652232634`"}], ",", "0.`", ",",
+ "1457.5474391179216`", ",", "0.`", ",",
+ RowBox[{"-", "25883.955538425816`"}], ",", "0.`", ",",
+ "503591.1494797519`", ",", "0.`", ",",
+ RowBox[{"-", "1.0451949132136984`*^7"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.843806513941721*^9, 3.843806524411374*^9},
+ 3.84381144996428*^9, {3.8438131466573687`*^9, 3.8438131757670813`*^9}},
+ CellLabel->"Out[64]=",ExpressionUUID->"343f2684-7442-43b7-9d49-7e58cf8f6f6d"]
}, Open ]],
Cell[CellGroupData[{
@@ -944,6 +469,604 @@ Cell[BoxData[
Cell[CellGroupData[{
Cell[BoxData[
+ RowBox[{
+ RowBox[{"2", "/",
+ RowBox[{"\[CapitalDelta]", "[", "]"}]}], "-",
+ RowBox[{"1", "/",
+ RowBox[{"\[CapitalDelta]", "[", "]"}]}], "-", "1"}]], "Input",
+ CellChangeTimes->{{3.843819126096643*^9, 3.843819132248021*^9}},
+ CellLabel->"In[75]:=",ExpressionUUID->"c2ec938b-df20-4457-ac8f-5fb89f93d9f3"],
+
+Cell[BoxData[
+ RowBox[{"-",
+ FractionBox["7", "15"]}]], "Output",
+ CellChangeTimes->{3.843819132484602*^9},
+ CellLabel->"Out[75]=",ExpressionUUID->"7a8c2bb5-90c4-4aeb-82ef-a923f5a729e3"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"2", "/",
+ RowBox[{"\[CapitalDelta]", "[", "]"}]}], "-", "1"}]], "Input",
+ CellChangeTimes->{{3.843819136273534*^9, 3.843819141872426*^9}},
+ CellLabel->"In[77]:=",ExpressionUUID->"f775ff7d-d0b6-4518-90fc-dce2b496637c"],
+
+Cell[BoxData[
+ FractionBox["1", "15"]], "Output",
+ CellChangeTimes->{{3.843819138334237*^9, 3.843819142061701*^9}},
+ CellLabel->"Out[77]=",ExpressionUUID->"60b8b008-7807-40a6-b3d9-1f2e8b589a73"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}], "//", "N"}]], "Input",
+ CellChangeTimes->{{3.843819287998005*^9, 3.843819316027919*^9},
+ 3.843819487895836*^9},
+ CellLabel->"In[81]:=",ExpressionUUID->"33e05555-1738-48c2-b7aa-e8fd44cecd72"],
+
+Cell[BoxData["1.1977333837979933`"], "Output",
+ CellChangeTimes->{{3.843819312543305*^9, 3.8438193162340193`*^9},
+ 3.8438194882408333`*^9},
+ CellLabel->"Out[81]=",ExpressionUUID->"a53b9d58-d244-4548-8b2d-0153f5f04983"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ParametricPlot", "[",
+ RowBox[{
+ RowBox[{"Evaluate", "[",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ FractionBox[
+ RowBox[{"t", "[", "\[Theta]", "]"}],
+ SuperscriptBox[
+ RowBox[{
+ RowBox[{"H", "[", "2", "]"}], "[", "\[Theta]", "]"}],
+ RowBox[{"1", "/",
+ RowBox[{"\[CapitalDelta]", "[", "]"}]}]]], ",",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{"t", "[", "\[Theta]", "]"}], "/",
+ SuperscriptBox[
+ RowBox[{
+ RowBox[{"H", "[", "2", "]"}], "[", "\[Theta]", "]"}],
+ RowBox[{"1", "/",
+ RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}], "]"}],
+ RowBox[{"\[Beta]", "[", "]"}]],
+ RowBox[{
+ RowBox[{
+ RowBox[{"dGd\[Xi]List", "[",
+ RowBox[{
+ RowBox[{"NF", "[", "2", "]"}], ",",
+ RowBox[{"H", "[", "2", "]"}]}], "]"}], "[",
+ RowBox[{"1", ",", "\[Theta]"}], "]"}], "[",
+ RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "//.",
+ RowBox[{"rules", "[",
+ RowBox[{"H", "[", "2", "]"}], "]"}]}], "/.",
+ RowBox[{"S", "[", "2", "]"}]}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ FractionBox[
+ RowBox[{"t", "[", "\[Theta]", "]"}],
+ SuperscriptBox[
+ RowBox[{
+ RowBox[{"H", "[", "9", "]"}], "[", "\[Theta]", "]"}],
+ RowBox[{"1", "/",
+ RowBox[{"\[CapitalDelta]", "[", "]"}]}]]], ",",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{"t", "[", "\[Theta]", "]"}], "/",
+ SuperscriptBox[
+ RowBox[{
+ RowBox[{"H", "[", "9", "]"}], "[", "\[Theta]", "]"}],
+ RowBox[{"1", "/",
+ RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}], "]"}],
+ RowBox[{"\[Beta]", "[", "]"}]],
+ RowBox[{
+ RowBox[{
+ RowBox[{"dGd\[Xi]List", "[",
+ RowBox[{
+ RowBox[{"NF", "[", "9", "]"}], ",",
+ RowBox[{"H", "[", "9", "]"}]}], "]"}], "[",
+ RowBox[{"1", ",", "\[Theta]"}], "]"}], "[",
+ RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "//.",
+ RowBox[{"rules", "[",
+ RowBox[{"H", "[", "9", "]"}], "]"}]}], "/.",
+ RowBox[{"S", "[", "9", "]"}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox[
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Theta]", "2"], "-", "1"}], ")"}],
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"h0", " ",
+ RowBox[{"hCas", "[", "\[Theta]", "]"}]}], ")"}],
+ RowBox[{"1", "/",
+ RowBox[{"\[CapitalDelta]", "[", "]"}]}]]], ",",
+ RowBox[{
+ RowBox[{"-", "m0"}], " ",
+ RowBox[{"\[Theta]", "/",
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"h0", " ",
+ RowBox[{"hCas", "[", "\[Theta]", "]"}]}], ")"}],
+ RowBox[{
+ RowBox[{"\[Beta]", "[", "]"}], "/",
+ RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}]}]}], "}"}]}], "}"}],
+ "]"}], ",",
+ RowBox[{"{",
+ RowBox[{"\[Theta]", ",", "0", ",", "1.4"}], "}"}], ",",
+ RowBox[{"AspectRatio", "->",
+ RowBox[{"1", "/", "GoldenRatio"}]}], ",",
+ RowBox[{"PlotPoints", "->", "100"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.8438198342385807`*^9, 3.843820020985083*^9}, {
+ 3.843820064258402*^9, 3.843820168163731*^9}, {3.843820295646703*^9,
+ 3.843820334254881*^9}, {3.843820426504457*^9, 3.8438204458005657`*^9}, {
+ 3.843820527418583*^9, 3.843820578467298*^9}, {3.843820614988928*^9,
+ 3.843820745632656*^9}, {3.843820778711458*^9, 3.843820779687192*^9}, {
+ 3.8438208872181587`*^9, 3.8438208883219223`*^9}, {3.843821196664508*^9,
+ 3.8438213596909237`*^9}},
+ CellLabel->
+ "In[134]:=",ExpressionUUID->"79242c4a-ef9e-453f-aabd-057c68f68aca"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {},
+ TagBox[
+ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
+ 1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
+1:eJwVknc4FYwfxYmIrOh2rbL3yoqUUHgjbxqXRFLKSraskMKrkowkooisyBYJ
+32/IyMqIrigaNvdy7ZFfvz/Oc/44n+f8cZ4jYut2xm4bHR1d5V/930ki+Q5j
+hEDM1Qpq7uHYA7OTrBEl78xRkJnFuiDeHHo3AuxPXTPF3RIbvWnRdqBlxnTs
+4kkjLEYbi9QANyBnDDD8LDNAFXdef4sEb3ixT6LSzuAYjuY6Or+w9Ae2ehdj
+/UA9bDekiKVxBEPvoam5VX5ddPEoIjy3vA0itNfuQlva6BSkTNbJCYXJTOfx
+OLnD2CNY8mSJGg4eWj6Vd15oYdnImwVz9bsge9fG7bnpQTxax/K278Z9COh/
+9fyjjCaO0p31/lzyADS01WsMpTTQiFilmD79EAI3OWdj9Q6gWNZ/ORAbA0Gq
+fFxVXupo0N1V1p0XC8HJfmvjb9UwR9EsMb0hDryHEzKIu9SwpywkTH/wEShO
+cGqTfVSxwsCbu3U+HgYTzabUJ1Sw7pl2meGOBJA8JU6JtlfBDp1e9kbBJzBY
+8XspekYZU+3XDpnvTwR34VqPPUHKaGBpy85wLAk+nj+uylmyHx3P5FsP2iWD
+yY56e3rz/cioftVNwCcFrvL6Kg3+UcIjaffDUsKfgdrEzSin94r4ahv9xu30
+VKB+H7h7TUkRMeJd++q5NOClpPVQXyogD13o1KVvaSDe/QbFX8rjkPqBfv3J
+F1C4NglN8vL41r86vtEtHZIFl036quQw5pLUXbrFdJBu+BqX91sW66vfncj8
+kwF0dvmtDbdl8Zv9/Ume0JfQl5ltNC0ii1+bWy8fZc4Ep4zJggsuMhjT8/j0
+b44sEHBOMFbilUF9VXL7hbgsODuccFa0URozUh0UnhKywf/s4d5CWWl065Rr
+cRbIARtCRSyBWwo3F5StIsVfAdRej/bvksQhs42LZ7NegcVGKPvXOEnk3hyS
+m5TKAwH9gFgVAUm0bpbJjZDNh7ohPtkuHQkcZ5weTFQogLvFJQ1FbBJ4ve6S
+yOzrAggPPlAwNSCOVd2qlryKhcB4m+yseVMcBZesict7iqCQsBFZ2yKGjVHT
+Q/2EYqAb5PaITBFDfZ2H6eWWxRAlY8cc6C6GxUPf3wemFsOoddK+JAExHKm0
+02mWLoGLo4cXkoNE8fvIxg8rrVI4RDrPb2khigf6lHQfBJeCw2PhsmlVUXw+
+lrMrp64UCFy+be4zIvgbXOfTjcsgk/dDnKqTCAYnyzrmnS+H6B02F7qMRHCL
+eFlV+1k5MMvZeXDKiaBP8Mz26uFySDEifjlHEUY1hgXn2w5v4O2KrvfjYGHc
+aLuRouRdAdUXJM4GOQphSW5Xjub9t+C2dEy66qAQ+iox2Oa3vYUshnsJ1TuF
+0E2h24CTswpqZJ4TN4v3oYT22YX0R1VgQ006/JNpH34VU41nTHkHJ54cVrvT
+IYg7NRl+1ufWgFHOca+VXEEkEcIn1KZqgJLZYjYfLojb9pU5JcjXQqMk5/JV
+HUEccDxClCushX+Lh4OWKgSwcndbR0opwLBf5u6EGn70Xc3+2DeIsOOUuNbG
+C348qL09jraGkLvBc6H0P350KlqksPC9h5fcxuEcp/lRLZAuRMzsPbxw7RI/
+NcGHqxbl1qzt7+HuaJvPV0k+pLF1ib56VweDzzMcCjj5UECaj9WWXAev/ltj
+rV3hRZ9IpVqe5TpgInRYRLfyYsO80ZOrKvVgv6Y5+c2LF4M7X5+pzqkHloGp
+S9c6iBhl93PYIL4BVEljdE+riOgVnpeXXNwAKkEjAStZRGQLD7Ob6miABsEb
+kjohRJwljuf7sXwACZubp4fViNhmJVxuHPwB/jE6TvmVuQdTeNLI7faNUCEf
+ny6TQUCto/82nVNthgpG4awL8QRcvHbH6KJpMxxiTrXNDyeg4ZlBgo1zM1Sd
+rHmS5kjAhvH3D00zmuHdOuOxbiUCxpD82Ka5W2BhJ2lqV/1uHPRevsUz1wIK
+XuLidOs8qG2R+HJvbitkn2uMUKHwoNutZ9MuDa1gxWWY4/eTBztSr4dVfm+F
+lmBuQ502HrTpP5xxeE8b7KdaKBQ958HNMGoyXWgb7H6RPblgyIN9V5XsfK3a
+oewX5XlnBjeKO6lZCe3ohJnzIosnkrixaZqJtCbeCfEli8zkh9y4xUJ+3KHX
+Ce2vT5eKB3CjuZMNzfZmJ7CRFT2DTnOjSxMjx6HZTjDzmmfexcCNan/0dElO
+nyBZfnEW3HdhrXuj2KETXaBFkgxMdePC0cYCujHGHsg+WTxZ7ciFSqSIh/G7
+euBcCNHlx2UuLGn7JK2zrwdSH5q7GpC4sFgy9E6kRg+Mj3OUOB3kwicKQi10
+13rgjam+zr7tXEgaoE+27uiBZr1Vk4JjnGh+4KbycHwvrEhUbA59ZUfWrXJn
+Vr4+YFRuzb7xiR3Fa4JH1iT6oHXHW0e+D+xou2X+Y0ylD2C/HjmsgB33Zw6E
+V5j0wYMoC6mJ2+zYd2fCQiGkD3y/zBR+lmXHy3u9LLxG++CpolXX2zA2JN/5
+fuRaUT+06Lo85TDbiYYPXgrxaJFhzSXpQ8d5FswSvZk9QByE9vu/Vnm6mFF1
+72XKVsI3CHEzZvrswISPD2kYRz8chlmTJ2Pr+ttRKL1UzTN7BBzTr7jRjBhR
+78yZs9U5P+AKRLIpWjCgq+/gsuLrnyCRYhWz7eE2zKhVU9gZ8ws+H5c4/b2J
+Hp0cnIq+3PgN8yXdAQQiPXoYm+5JOD4K1wvKR6Ju0aFy3Z9dO+nHIKiKP0ej
+cwsGnC1iBGvGoObjKfaXTX/AzLOwwNZ2HH48oNXOVm/CQoCY/L87J+Bdpq1W
+RdMGMLf6KDRlT0BePbV1gbIO/ukMK6IqkzBtTOO+w70OIUcZBGJxEiRuhK+J
+nFyDkBbPCBadKeAv7W3VT1iFDkONXNfyKVDXPNHu1b8Cl2fsacL7p8Er0d0z
+S34Fgl2plvnPpiGG4OX5LGAZlk9X8nhwzkCUo76ZbvcSrF+Lag4PmIFzBySl
+LmgtwWc5J9GUgRmoTqoZLni6CGpX7ifQ6czCFtOV/p8si2DEpnndKWkWCsZd
+SiJvLYBnc+Ivecos6DtXN7DP0KCStLFb34gC4fQZ6OpAgzLt0s7qpxRYGnbb
+G02eh2n9PD8vKgXiuHDz0bl58Ah2kBYUokLRho7nwYE5uGetrqmjTwXYHcxp
+SpqD7ye2+m87U8HEXvgLA5kKpqm37x+NpsIl2+bSPyQqfPJ62idQToU3vD3b
+g3MpoJPIEe/6l9Nr6z2tUz0LQwdeF6atUWF4RZi1qXoGYnKSk2b3zsGL1/nS
+UZ3TUL73FZvJkTlgjYgM+Tw2BfdMomdCrefgSjpZc3N6ErSyo02GgufASuke
+826GSVjHjSP3n83BSeZ/NE5un4Al7+V9VrVzcOuO2/awnePg2Mpfo/htDkir
+/PQJImMQmZn/KHp9DjZ8Y+McREfhk7/5sqjAPOhyJ+5yUfkNxu4+iraa81Dg
+ssd9Xe7v7+46f/z+d5fhj3ZEK6mf0NbQUJnhMw+/A0+cISj/AL94Kq/uo7/5
+iJuckOgIsBqkbmmUzEPYDrcz/cLDwDRT4CfaOQ9YM/SaXfcb9HTteRcx9be/
+yMlTg3kQ1JWOzbiz0kD9QrjXyhgZ2o+El3hI0UBwqqVmPLIfYnNqQfAfGnBE
+RuBJmc9g+gGfhtrToMWVxLU51A3puddPSYXRoLuVv0vgxCfYe9fkQ91LGhi9
+LxNQTmqFFEsbtqp6GnQsjVLMQxuBei/2Yt4PGpxq+LI8XItwMNq5kXH7Aiz8
+5igd2/8GCAWej6YlFqBfv35E7r90GHjWTik2XoC1Hf60mQxjuNk7LjN2ZQH+
+B5OUOZs=
+ "]], LineBox[CompressedData["
+1:eJwBQQS++yFib1JlAgAAAEMAAAACAAAAtgN3irWqSj9bDNpMDWX0v84SWbZb
+8LA/dpOGi3WS9L931hnRdkXAP37G6PKFu/S/0olSNlUqyD8/AhO02+P0vzzY
+glCyxNA/pyYOCjgS9b9bbw+XaeLVPwdf3h0IQ/W/To6ZykVu2D9p3vVAaVr1
+v14QbiJmPts/ax55Lz109b9uq+ORLPLgP2dLzX6wrvW/QXF1CjuU5D8ec2vn
+fev1vx7OlldA1ug/21CkfvQu9r+BOmKouJ3uPzsqCauNhPa/5iNVEHbh8j90
+fUw29OX2v8KRJdvXh/g/LgtG7eRv979A0k9B8aP4P7t/mxJncve/pa5GlkfA
++D87+IAY7XT3v0Lan8Ou+fg/Nifc+AR697+Z7dlRgm/5P+R/s31lhPe/gPhN
+Mypo+j8pMLEG9pn3v9OqiLlGlvw/nZgxFsnI9788yQEwQ7z8P8QG5H3ly/e/
+//+2nKfi/D/L2Gr4B8/3v0CGN0KwMP0/82DfiF/V9798XoEs+9H9P2ugJe1b
+4ve/3yKLQn4r/z/m9b+bov33v5CY9eg/JwFAGhyWNVk6+L8ngIt6a0EBQBt3
+R9YuPvi/sAWSdfBbAUC3ILDNDUL4vwj0WQ8PkgFAOHFLe+hJ+L+nt9Wr3QIC
+QJ8I+TkWWvi/oZyF4Pz4AkA+RjO1g3z4v6iKYaADTwVA+Gl+fZbL+L/6jD8V
+UXoFQD8vQoMU0fi/A94483OmBUA2ivjEpdb4v9UTVq9WAQZATmF4HwTi+L+w
+IZ2TbcIGQGF3eXHA+fi/ve8m1z16CED56rfT0C35v6cf6h7gJw1A4E5OXEuv
++b9rOGzPU48NQPKeQky8ufm/3BWWVpL6DUB7tGtNcsT5vzk8bF1r3Q5AiCpG
+Grza+b9/M1lPZ24QQF8ZZow+C/q/YKi36F+1EEAEkGxJThj6v0Xt98qY/xBA
+yt1Omckl+r+4RgcI254RQFf1l3UfQvq/sap65PwRE0AlAcPzO4H6v341E8I1
+fBNAu4TJIJmS+r/ojCDC5ewTQGFkJl+zpPq/bmUppoTkFED4VCNfYsv6v23C
+Mi4MSBdAY0EmcBQl+7+CGKKVEgEYQHfzo/a9Pvu/6v6hzszKGEAF4li+Alr7
+vzZN2sGvmxpAG9jBMj2W+79FmGd1T6obQB76U6vAt/u/9trpQRPZHECO4qR/
+Atz7vxbw9y3WtB9ApQPzA8Yu/L/tD23dtLsgQCwSSdGrXvy/4EPOFQTEIUBW
+sGg4O5T8v/56dJMDACNADjdsFOrQ/L8//l0k9YIkQO8ZDO3RFv2//T+t5Ntr
+JkBvwSULH2n9v+AIa/Wi8ChA1e/WofDM/b9zQVvjo3ksQBy+blpXS/6/7YF8
+6y/6MEAhZc7xwPb+v27SCiNVFjZAp8Htbq3+/7/eDfDHuulCQBCWQjmwXwHA
+6Usap/TNaEAMrBIaZl8FwA3sMX4=
+ "]]},
+ Annotation[#, "Charting`Private`Tag$15119874#1"]& ],
+ TagBox[
+ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
+ 1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
+1:eJwV0vc/FQofwPGMonKulU32TIh0Q0IqMyGkwU1IqDhEKnJFaZDZpOhcIyMK
+hcj3q8yMg9M9iezVwdEZdsZznx8+r/c/8JE/G+Dozblhw4aK//q/HU9e+0yI
+hGPevZgmyh+iYNM6dqekygXbbEnni1JdoGuuKtDe7ygOVlpyvEzwBuZSmrO7
+nRVycI3RMq4FQPGzXXIjZYdQjM9K4cSjy8CQCBnwPmSOdq2Lb0gnr8IJvpaI
+g+FmqJFUcpT0xw1QtLXXXZY0xfv7Ln3JOBkFr9qcCHLrxhhR6vjXgVfRsBSf
+TkrZsQ+XnhHVlhm3YNWiLin6pSFmqMyST+nfAb5qC9+MowbIm26k3BdyD94c
+fPyhRX0vFkRdr+kriYPWm5ErFqp/YkLiqfzC6QfAf4DLMcVsD5oICGg2JCXC
+yif206pgfWzwOlzUU5AE6cYXCyYrd+MjAwmjwrpkYCy0hUsI7kYdVRUe+x8p
+EO/zyqQ3VA99Xr8v6malghPZW3wvTRepTms5LryPwCDrg0XyOV0cqBV93C39
+GNpMN4cn03fhsabBF/46T4C4K0BJImIXnhtQT5Qyfwp8lSvmQiU6qKhpvf7b
+Ow0yKUO53C46aOYjI2oSmg5Cz05vG1nTRtWRnzfrbj2HvCPcxsRaLXx4mPi6
+lJQBkuG2mUHaWpilsOu4iGsm+BsXOC1l7US9VV7nyP5MSHcbltDK0sSgFUqq
+7+RL6CxLjO3U1ETVo27NMwEksKzIixn8sAPbokV8NedIQN1oUfx+TAPrArfu
++L72D3TfKD/dEaWBn8UGtttGZ0Hg+Tb7RXkNlN3poBLJkw3y9Mwc34vqGBbS
+Rd/BnwPyVyuq94mro6vXzbJXyTkQb3nfTKdBDePkQzKmRHLBY23+Y42GGs5l
+5Ug2S72CigZCtIqQKmYMrL7jUs6HTT+nNt7vVEFa44AeJScfeB4Rt9CTVdBx
+o3ojUa0AHlfzZhySUsHn8w1VsjsKIdX4hc+4iTL+e4tZ5KxVBL5vdZMa+JSx
+uALmy4qKwOtD/xbOXiUcLt9/j6ZVDLvZttNHryvhwcKaBD+xN2BklOvR3ayI
+gZHRpp6ibyGfo3AqO10RgxYGuSxPvYXA0/pqjwMVMYOVcko08y3YHc5NeCel
+iOmm8suB6iUQW1C+rSpCAZl0ermyUSnMrVbTrroqoOG84qJ7ZClEtWfqEXYr
+oByRMh39uRRSv9UWJ9PlMSGB8i3Jpgxi0/JtXH3lcfywT+znk+/A5cC9tnkr
+ecwyCDxy5sU7iPu5kKa/Qx7Jk0c8JofeQYIbNSzylxxy0GPkGs+/h6Arj//A
+G3LYPtoblBtSDsG3Fr/2n5fFtR2/VBTjKkHghrSxjKEsDj19kZ7TXgka1URT
+eT5ZNDqglSAh+AE4U6uYXiXbMSyn1qn94Qd4S5JNcODZjovPD0qHvqgChzi5
+f1fbpZFv6649XYUfYermvYaQfGlUK/O65DrzEa4VWLoRb0ujadH2CLJ2DUR/
+Tr8wYSKN26PqziSW1ADhfNpYZIUUcg4UL7mXA5BPbinfWSOJL/0m6DIDCIGM
+rfEPSZJYSWoMsFhF6PjN4WEXK4lV2rVlflK1EOPazCp0kMTiTQ5PXxyvBbfl
+EyFzNAlMTB0yqSbXQpf+O8oDVQk8OxZ+sKvmE8TvTYnzFJBA5sHxxqc/PsGZ
+eLely0viqDlDszi1/AmmOY73W7WKY4wMp1Wr/meIlxkryrwsjjS/rc/OFX6G
+RkO5cUOyGOo/O51040kd7PnDxutClRg2BzhvmXhXBxJvWj+25ooh14nJLCtK
+HWhzB2uKRYmhrg/34VVCPchtekAHfTH0O9l5bnt0PSzq285TckTx656qQKsL
+DRAt5Bm8N0sEQ9439FgbNkEIYSj44kMRdGPzyfq5NAGrMEILbotg63LdUHRQ
+E0SbuXiW+4pgCzFzNCe/CdJeL0gxdUTwziU7er5kM9S694iY1W1DbRrxbMFS
+M3wzmW+0XxHGUKX9aQmlLaC77bLtLYYw/pCIOLLe3gLKS8MP2kaF8aDW5Vu+
+ky0gXlMX/KRNGDNXiLd3yrdCDGF9TjBTGBOtPFuCH7QCr1Oj1HlLYdy6O9hu
+yacNFvxHz53LFkIlMSG9CVEybCpR0hl7JoTXfmcnT+mRIcp4d/nlRKH//nG6
+RrMng+XgHbv660Jo/eXtYOc9MnCdsWWrHhNCysSvdac1MrxhCMeRuYWQL+2q
+tFBQB5xaPOyQGySIpbF2i0TnTmiwS+ruJQpgvS/BzVeIAv4ejzt/+wkg6xrV
+eJcsBQpHTg0oeglgpMh+8/kdFLgYs75030UAH5b6Vl05RIHI3m3XPxgJoKZe
+h5trGAVOJswVRvMIoNyImUNiHwWShn5wt1ny48gAyaQn+yuQatL98oYISMnQ
+JnbtpMKfmfNbLKgE/McNTccMqZBqsqmO8YWANoypN7MWVKDYnNU4X0bA5gSt
+4M1nqWAeYX1tNJaALIbj31seUaGixtudYxcBaUcrGv1WqZB592GixX0+lDX5
+mpTV/A3upli88z69FX08+AK4Xb/DtNCwVd3ZzejF538xzuQHXGAEsDN7eXDB
+3DV/obEfyhpJwTqXN2H+zWv1kwWDEJa6kCZ+bCMuKmnUcDUPQadaUOi3E9y4
+x1i1fqltGGqGN8jy+3Fh8tCVrOZ/R2AswdWo5SUnilbZ8ypXjYLfRt28uj4O
+9I6TTpomjUHjl2FbcW0O/F5rrdMfOg41L593JT3dgDlRhwU7tCegqsI8h8K1
+Af3zhJQ/TU1Ab1SQlRH3Opib2HqdTPwJevaxu/nXVmH4ttje5T9pIOzCe8yB
+sAp7lUz6i7to0GvNR/posAL2A2R1zlOTsKLPT+o68xv8DjEX+sYnwfNYhGBe
+5jL0JD20yTk7BQ+b2/eMTy+BojOvnQ51CrZM8zpG6C7BcdIvgcdHpsHz+5Wi
+mvuLUDxEc50qnwabu8umvP0LoCW46aW4Ch0ULg2udBosQLj1nMyjeDoU0i+4
+l2XPQ/v1FeKRSTpU802trW+eB5K9IDfBZgY8HP9uagqfA0L3QKEEaQZ8t1JV
+yXOzILLXLY80OwMHDFzE287NQjjLv97R5hccpG0INR1lg3sF72L101+Q4FBw
+5MYJNtg5b75tPf0LOku+2On1sCB0a/46SYoBYy6eb83+YsFYiuGFGyYMqBSX
+uVbUy4R1bYWyMG8G7BNVirU5ywQLmqO7wh0G1IhsVuceZEC7r5kxvZABT747
+Jsl6MMBKVLXUtYMBQX/7z/RQfwH/ISkFCoMBVTY/fqR1z0AK8bf9DWEmODEk
+Sj5O0WGtSF3fR48JKk7V1CdcdIjsCxixc2QCp7pDjzvPNDw7Lm4UFswEd2dp
+P3OpKRjXc74vk8yE2M3kYCHJSegzuC/HX8qEvqwvLIoUDYbVX9zSpDCh3qud
+o1LzJ7RkOtgvMJjgYaTO26AyAaNhU83KgiygXOayOa09Dmm5EoOS2iwQv/66
+JV12DHyDAlgxR1mg2lKQkygwCoJSOwOOB7CgwjZ7uy//CHDt+9oqEM+Cndns
+Ak/2EFhzp7S4v2aB7/73p2F0EDgLrvNkt7BgTWNCIL5gAAyym0ihNBbY/2X+
+4ZNDHzQ9IP/esIUNU+mk+W7BXsjrnal/pMYGtS419pPEblgr/+7EZc2GfPfP
+XyV4qRDR7KOj4s8GDz+ujrInFKgYL/vpcY8NRjFa3rn9HUDdGzmRXciGwA7u
+zp6wVjgjo2XO18YGw+59eq1yjVDxU15gH50N/3CVGPJI14JDWWD9a4FZMDUl
+jdjcfQ8ijm4ulrqz0NdXOZKQTwKbK6ejjh+fhevV0QbSxdbwWYMpdS5wFv4H
+1vk7tA==
+ "]], LineBox[CompressedData["
+1:eJwVjnk4lAkcx2ccQ4eMIVTUIEVIURbJ+ys1lVyxzrCOGORYspVCJR1bykop
+ke3eDtFGSaXfi6nZaoUlkXUlNY8QmjHmncPaP77P5/k8z+ePr1FEkneUEo1G
+C5ne/7T41c9utMKVOHz78IXjyULM1RxesKD2PpG/Osq46ZIQDTJslznzkYja
+Kyxp5AlxSJtTW+3CJ6I6Y7+oDgrRlrOkNOlBI6HVyRvw1BZhMUsdkp1aCaZP
+UPSgkwj95vOqEt3aiN6PJq86PEU40GgRV5XfTsRduNbE2yHCzdEnw30LugiD
+EX1dxzwRpo2G1Mzc2kcUNwKd8UyE/PqhQMZgP+EGC7leX0TYduTEW1Lymdjp
+rnJvVG8CnYtUyjdqDRK4T2ux5qYJ1LQ5oHu6apjQNUxW3pQ+gWPH7qb0towS
+7c/5xvSKCWzK693N/TBOdBV5TBUKJrAkpnRxipuIaDYM41KmYtx/sewErVtM
++PgX83oixHiC3uU86zFF2FVJeSVXxXj1fZzA31VBNM87oh0wLMaUnOEnH+bT
+YcCFxyxwmMRFv505Gn1XGT7pcpWyzk0iOVf9q/stBlSykx10xZOoIjm49lnS
+TLCoVAvlRkvwpIEp/bYWE1yqvmvOpyRYR/S+ub6QCY7+NZYnZRI842Ad+siC
+CcrW67sUCglmWEPHAg4TXN8msEaUKfzuyYoQ72eC7b3ug0MaFOZ/f2a3fIgJ
+/dbxQUnGFOZe/zf+da8W5LWdValzp/CxRSONNaYFBrNVC/O9KCxhWrak0Vng
+fItTE+NDoU9JzOhdYxbkx1Z2GQZSGO5+7MHNaBYMjtOuVe6gMCt8vWWkiAW+
+ntunLqVT+NlbJBxZqQN6P8UYVpdTGHarXJ+1RQc4TG+z4AoKr8aVPk0O04Gc
+Xqsg1arpvmjLm8FcHQhuP3467vn0PzZZ1j+mA1Zz5O1ZDRSyvdBMrX4uLLMU
+vKAPU8jNKfn26roe0IObw7RtpPi0GQIdX+qBAzH0R4WdFIkbjHwDgR5UrD7P
+CV0jxR4zFSFY6YOPboB3ywYptlmvq/Wv0YdqYWnc+gApqm8v6MkWz4OCcJZ9
+zCEpOst32FuPGcBGvxhed7cU2/cQF22XGkLA7pzGFQNS9N5WHGMfagg61PPO
+gq9SLHrXY7ejcdrV32temZSijR+tGXAhhJ56wKvRlmGx72iQcxIbnNolZaUe
+MkzqjYy9c5YNqZ4lD074yVC1Zvy06Akb3MxJ2+OhMrxolGPuPtMIxn0ZLQOJ
+Mvw48M7J4KERjNQHHt2aJ8OiOaph/hwTsD+rv0DSJcMrDlp9HgdMwPmQVUiC
+QIY+Q3xjjScm4FSYwJj/XYbhDas6YfViyGsgjyyZIUeviezdpRtNYVaCSf92
+ezlODkeVi3NNwa9vlfnHDXKkZ2R/nNVlCrSmz4LqbXIsHJzZ6npwCWiz16xO
+ipcjKfdgeI0thTdR0rYDN+XYl5zpKfM3A8+LTbMXPZLj2vSAz2n1ZiC/xuav
+fSnHfZfHtx6+Yw6xmVdZBgI5nn96KYvOtwAGbbdDlq0Ct+1J/tE5whJM15St
+hM0K1MfLm2zUrEApjhfQG6LA1HFGw7WU5fC3p+veeTkKzDI0vjxbvgL2tZ6L
+4ooVWD7YcU6YvhLeZs75pKYzhQefu7wQqtlA4j/t1oE2U1h743VGDMcWgqMW
+3RhOncLIh2d3HVXYgkhiw6kpnELfdZXx29+sAi58igypncK07CVfTR/aQbn5
+0soDGjSyLafV/H33D+BT7cA1W0ojk1b2pxrZO8D9srQt511o5Eunjl8MGx3h
+vGXm3V2RNLIvbbEg47ETGFfUSW8eo5GshlOXTHQICJ7c05D9J418tn+nqcms
+dXD0xc8mPf00sr80jSvQcIGWlvQVmWw6uatYVxz+bSMU/L4qa30inWT/xZ/U
+y3UF3pk6XbMPdDKfu4G1f3gbgEaBmH9ciZzh0T5GDEXAEV5C0IpAFVLlFSNM
+pe4QOJ6iH6unq5P/AYBX51I=
+ "]]},
+ Annotation[#, "Charting`Private`Tag$15119874#2"]& ],
+ TagBox[
+ {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
+ 1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
+1:eJwVlfcj1f0fQK+tskX2yJ7ZM+4nQh6iECUZWdkjMjOTUDYZmckKjz3T641o
+SBFFpDKys8flUt/n+9P5C845/De9TBxJcTgcIwkO93/SnyB0RzA9RDkOY5of
+sYOXf+N+D220OiH1We8e3p9qkMvgkRflZIPoS4g9HhX60EvFu3LR4BoqqsrC
+VXWYQOtqwxWt+itI8uM/BT0RV2H5eHABg7Ypuj0FXZJS1uDbpl8iHHwZ8X0c
+jeCcsQNhFSUpKvZLSBbnz1xV5gB81J5dYcSL6Ab3pFa4ozPIKmwySIgaokma
+Cd8QblfYHRn8/E/+PyhNNWDr8qA7SPVKtiQZ6iN+nXXLpDAvUMho6vwhfAG9
+pRj5ZXLSB4yPArxCBPXQnf3YySBnX9jhImub1tRFUX4nDGdbb8PLQA8mQR8d
+9GTU70QjtT/wf2t+69JyHnHIvDSgtLgDhaG08tV051H03GDA9tMAWIgX6Y/0
+00Zau40z6WuBoOvlsrU2p4XwlddNiarBQEKTw2PpoIVefY53UI0OAbKwMkGX
+5XPIX0V9xro/FF7qhjw+Cj6HCm7k0wYzhcH1AoEy+loMOU1yr04ZRYASmZQN
+rRmGMoRwYeQbEfDvsMnXY0Q8emPHFtWaGglaZXaK0KmJqIvP1s6NRME56ouV
+nyQ0Eddg59It/2jgKnr7wLVIA7k+933/kOUeuLOrKkHhWdRj59PcZxYDBmMa
+UT5iZ5FKQsvA9FYMRD4Wb0lsUUe29r6NVan3gdMg/VH4tBpyqIpmN/sYC6H+
+2z3PwtRQR7OnkZLHA5BUqHr1lUcNRZ4+2/fxeBz09yx8t3NVRbkO3x/J6MTD
+RQJDB55FFTU8ulRMnIqHfR3bUo0eFXT+1/z9mLAEoDEJnP8hooKU7pAbfmt+
+CMwnL+W40SsjdkdzTxBMglL/fa+xD0qouuSGwXNIAq6nQ/FayUqIIaG5WEYq
+GWgc6oor2ZTQlr87fdbrZFBaOmK5paGIHP/ouqoTU6DNdGLf6Lgi+uFXV7eg
+lwqRBjPkKWMKiCS7hyY8PRX09q0ylgMV0D+KNypvSaVBxVe9voTX8oholOWj
+Zp0Om4c7zjY58simyORkQW06hNgx55h7yiPOoZwrK6QZwGbL9jCCXR6ddU82
+1SrLAHkKt9e5IXKo4aHo1NxqJoxzRb22MZdDcpQLSrnYYxgKmhMgyMqh36mD
+bOqpj6FZ4jAsdlkWlWxI9mgqZsGGyctRG2dZZCRjgrMOzoZ8wtNR0guyiGCW
+dyqgPxvELvUx6orJol8u/pRhXDkQ8TQ1Jeu3DOpS8XIzf5kDc1J0zxdDZVD7
+JzKiMskTWOo/NuPpeAZ96lmrWo3Ohyxup8BGpTNo1PSVHG4kHwjyuDSgPoMW
+d3xXSAULIC76rjzjv9IoM5O24ltPAWi163azkUsjUq6kRd/IQpC5q1Gx1y+J
+7rXNn1eBIvhCfrHCv0wSDXkMrQ3PFYGydAoWEC2JKEO5bV3oiiHv5l+R/bOS
+yGvZ42PkjWII8H7VXN4kgYwyZxJdicXw6HHWw6gOcRR6SW9WRKkEyjlqLNcK
+xFHp4Hm6AcsSMD5uz1N9TxyRWhnGeYSXgIuITQCLsTjKGN7MKnxTAo1ffkv4
+zIsh68hvAoOWzyBIeSb/jJAYuuhpVWQVVgpnP2dPUtOJoSf3Olk6ikthmFnv
+Hc+eKOr2K3dkeV0KkVb5eYdvRZHimazmTvoyoNT0pnb0FUWiZI9WJgvL4Kgw
+KJJ/QAQd1rd+vtldDpWMu3IWbSJI3LDMLmquHF4XeHZ0PBNBEuQMKvnHK4A9
+WjeELlwERefSTr4zqYAlQYqa1/Ii6JZ9Sy1hugKGr2nPE0uEUUmfdsJz0udQ
+M1rjkl8shHg5n3Gk4ashzimbbzRNCPkTBN3TblaD69ClJMkYISRMTjGQHFMN
+zqxpQpK3hNCHRf6BqP5qeCm6ft/vjBDa7ZdROm9RA4wpHL5T3YLo/rI+Jeb5
+L3SaPgMxogDSY39myDFQC9i5m112awIo/1oDzut7LezNQXj1jAAavdjo171W
+C2aypVfD3wsgJpbkYkemOvDsEG2kLBBAsYGk+DyLOnAIuWgeqCeAVN0oOz5N
+1UHYsYaZqpLTyLmRV8R2px5IpuRNz+ScRhPTxjfIqRsgMbU6vDvpNHLbXDUs
+42gAYTknG46Q06jgqo31Ir4B7rDUJSSYnEYk4iW+1vENwE+4zHSJ/DRy1/qW
+S8vbCOXFxfp2vvxIyD1KNU6vCR527sTWuvAj3OaIFpVlEyhOhFHQ2PEj3YDQ
+M/fcm+CoiMVw3pgfsefbtwSnNIGQTPShhDQ/GksxKLKcaII61szaLyt8SNQp
+Y2TOsxnou+kQlS8fCg3nolXJaAGLRetjEm58SEuoZ8WytAV2l2ydzR34kOqY
+1kZoSwtUCtie7jXnQ0lpA24vv7YAV+D4DO4sH4plHlJX5mkFruUHmbNUfGjS
+a3ERV9YKeZd9Vgn6vOjIN/Hafksb/GXyNaLV5EXluRPypG/bIJF03V9ajhep
+XDu8cHy8DTbABGVy8KJEOmVhtsM2qAwOGjpc5kHaLF86xbF2IO0YPkGTwoMO
+MfZFiTftIBLXYVw5w42QnQdWPNoBesz1UsZj3Ig/obzxz2IHKFauCOIGuJE0
+w19zy8MOUMq9fOx+MzdqCK8Sped/AXveRla88dwo6k42k5frC4hg1HG4I8+N
+fKgNU6mPXsBVURE72UQuRLJWVVjK/xIWKleD1W05UfM9ySYLBQT9CZSk0Rac
+6MludJm2BgLyIkHtT0ac6MKfm7pndBGoSKX1xmpwImnqkniKqwgof6olXeTk
+RDVrWfI1IQh0jPUL1cY4UKxrjep6N4Jf4bmeJhYcKJTq+ROVy12gIdQa6HeL
+HSlQX5adc++Gd/o9k1/s2BGDWcULYf9uKOAdI9G8zo5MGMqOO9/thvQvQt4c
+RuyIik14be5RN4jL5OqeUGBHP9/Kfp+p6QaF8EmyNzh21OtM7/dpvRsSt3bH
+HuSxoQ+ss37Rfj0gQTLKyDlzCjmt7rOfDXkF7T6ZXdV3WdGPdEVvlfo+6Lfv
+dI+zZkE6mvo3gtAbOO78muG880kUUS+89L3rHWQcC01qCWJGrXfsh3xX3kN2
+ZMCVvAYmJDavQTaz9gHCHj0xpdhkRHF0A7euJA7C2ns5s2EdRnRS30rzdf4Q
+UO/oF9TVM6CUxSge+SefIKbepuopLwMKT449710zDKwu4d605+gRY43sqYXq
+Ecj+W2nQhNEhz6BQZp3uz6D0buPt7BVaxO18eUJ16AtoGJQuUD+gQfc4QtU7
+B0YBC6yni206gRIuc1Eb/RgDA3dlwiPicfRMxTb78fevsBpV8I7O6DjytLpK
++2FsHH6qsGc/zzmGHi94a+IXJqB2cDu2/oAagZ3Rx7xf36BWOnQgxYwaSUvl
+hV4nTMK/d95r0LdSIVFterl/KH+AkrT3JysJKvRmTCxbhOQnFGOC0XuPKdHG
+o6KR/bifEKkYv97NRImsc69enzk2BftUIhzTaRRI6ufw8N3YKSD7u7a1TkuB
+6Chk/tAyTIPjndw0nnRyZHDcW7g7aRpwDy7Q8zKTo5KUV3MPOWbgQ5uGs1oe
+GXLYPrCOeTIDVvjCmF4JMsQqbLZjyjUL45MkTv31pKjgMkbwLJuF043DHzO1
+SVGtzlgNiP2Cir7IuvL3JOhzTJ3nw5ZfcPvQK0T1GglSLE4TvaX9Xyxd5ifC
+VnHopEbwpfC+OajUU2tODMEh/5XGKrsr84A2eK16GHBIpc7+64OJefDRTg6v
+vPQXqtQ2+4dsFoClsapDwvMPeClvBOmuLwAdR9a6X84RNIzjDCgCF8HKsrDz
+WOMhxDOXM1+gWYK2NVE6o0EiiDaJWjIVLMG9vpLnJAcHEM+4uycltgyhx/jE
+p+kOgOurhqQjWoYTkcFfNWX2ISzn6iCJ8QqwsrNRv1UjQLo/x77u8goYfwgt
+enZ+D1wD1YSe3f8NFwR8Gh5d24V6R/nxCPZVOIW9lik33QEL7wBn8o5VeO2R
++8HZYhucqiRHFM3W4K+Q3nyZxRYo9x3mTK2sAZX0jp2k8iZceiQ0//6fdYhE
+A5tD3BtQkfTbXix3HSi+ldFkta+BVvlcnM72OpzLlKTv5f0NBy+uWLMabcBb
+5+7cd3FLEPKyWEK7ZAMazENPG8XOgzmft3YX+Sbc5+q9MREyCxV2buGyNzeB
+ydqDi01tCoh+qfkJXZtgZf/tunP+ODzT9J3lkN4CEz3MXtPuE/REyP81zd6C
+xMInl0mkEbDIK7pMsmzDGvuV9V83K/GlYh2M99K3wbHNXPhweRDfd3XfRZFn
+B96oMt2upp/GJzvlrqm/24EVH827r1Sn8XdZk0iJ73fgQDMl5KTDNH6fQ/fM
+i4874F/I0mDXNo23mtpZOP95B4hD1ILdTjN4Iad2R++fO8Bq6zYqMTCLtxic
+wins7QDHQtdKx8A8nvKmfWGG8C4oU5jp6eMW8C1fW4OLxXbh49zYnIj8Ap6Q
+tS1RL7kLT8Lalr5lL+A7tehkx+V2wcEiulPLbRF/JWw77yJ+F0jCmi9t8Szj
+iThe6bdXdyHznoI2+rSKHw/I4TdL3IUbqvEeDKfW8IFdGu6nUndhcZFCYfP6
+Gh463YJ/ZOyCYuvzydvza/jhnnenw/J2YUP95sjXqHV8ToxExF7VLgxk4wY7
+ajfwcnIPYpfe74J31uhvTfNt/EsazT4Xxj3Y0q72sL+3jU/qpVpaYdmDyWSR
+/7a/jZeTjm0O4NiDsxFRSxOMO3gFhZiPJQJ7kL2Tq3b4eQdvxUeYsFXaA71L
+dE1fgvfwzeH83lE39iAtjX64z4SIF7wd2NzZsAc0N9eJDZlEfNj3alaftj2g
+LlDQeTZBxE/ILqnKwR6M61mS1d06xLv2K9L+eLcHm9eu4/WSj/Cmd83sV6b3
+IKlSp7qeDocVSAp2SbISwPONzeiwGg4jjD6mWuQiwMCHiu1eZxymmyzT2iZA
+AHuNEUfVVzgs3MWuOEeWAI68f94pPyDBLG3p6NyNCJCYkRr47TwZNoIru735
+kAANchPN56LIMI329Ur9DAIInLCX5+siw1qGqeW78wiw16WwGK9Njom+KyTh
++pcArrgwn9M3KLASiudkWcMEOPmLLdGNQIVlv7gPwkL7EPTKVJNgQY1N1GqG
+Gv/ncalTgXVnOzVmOF7V26K+Dz/o1I7a449h1znmOkxN90FN/miE9foJjJH9
+6Sbf/X24K6pEbCJnwGpCGtvv/9kH2/RTTMiSATOU+iVR/18nCkv95OSbGDBc
+SW+NG+8BLP9yozoMZMQEM2sEG7UOoILE9YaKATMW+7TpHFvqATiNqnBGDDNj
+9FfOqUuVHwAWtPMj3fEk9k1irM8UDuDh/Y4h5yoWLC+zesRg4wAkvIp+jB+w
+YR/O8Iy43iICb4uQTTkVB3bLmCwqLoEIDqEPyZ0UOLG/rwV3A+qIUDn7+1Xt
+CR6MN0bn+zeqQ5gt/QQM73kx5nSWwT7VQ9DSllz0/s2HsXFcFH/kcwhfGwLa
+31YJYOJq+tYJ+4eQl/GklyZbCEuaf1robHwE/puUB3QioljCeHnFdMsRGLNp
+fCd/I4H9eS/MekLjD7QnveQO6pHBpmq02Xa2/gB/wNDcRTsl7LETw0+uEzjE
+tPtdWa1dB0vx1nev8CBBMQPBam+C7mA/VTSmztdTov8BqbTVrw==
+ "]]},
+ Annotation[#, "Charting`Private`Tag$15119874#3"]& ], {}}, {}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{0, 0},
+ DisplayFunction->Identity,
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ ImagePadding->All,
+ Method->{
+ "DefaultGraphicsInteraction" -> {
+ "Version" -> 1.2, "TrackMousePosition" -> {True, False},
+ "Effects" -> {
+ "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
+ "Droplines" -> {
+ "freeformCursorMode" -> True,
+ "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" ->
+ None},
+ PlotRange->{{-7.7956157916985465`,
+ 4.688521322387839}, {-3.0008612201069385`, 0.}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.05],
+ Scaled[0.05]}, {
+ Scaled[0.05],
+ Scaled[0.05]}},
+ Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{{3.843821355321394*^9, 3.843821359977265*^9}},
+ CellLabel->
+ "Out[134]=",ExpressionUUID->"9e7d57d6-efa3-474c-ad30-e142da216a92"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"S", "[", "2", "]"}]], "Input",
+ CellChangeTimes->{{3.843820567123662*^9, 3.843820567586446*^9}},
+ CellLabel->
+ "In[104]:=",ExpressionUUID->"e2ebf167-6996-49ef-9ca3-9dd16132c4ea"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]", "1.2113984981855266`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.18040968433960122`"}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{"-", "2.1295236147887016`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2447338967832837`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4997458274069301`"}]}],
+ "}"}]], "Output",
+ CellChangeTimes->{3.843820567743414*^9},
+ CellLabel->
+ "Out[104]=",ExpressionUUID->"c33b6abd-b8d8-415e-b881-93fd6c52f0db"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"m0", "/",
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"h0", " ",
+ RowBox[{"hCas", "[", "1", "]"}]}], ")"}],
+ RowBox[{
+ RowBox[{"\[Beta]", "[", "]"}], "/",
+ RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}]], "Input",
+ CellChangeTimes->{{3.843819332197076*^9, 3.843819353348621*^9}, {
+ 3.843820821640896*^9, 3.843820835136125*^9}, {3.8438209702351227`*^9,
+ 3.843820974739016*^9}},
+ CellLabel->
+ "In[120]:=",ExpressionUUID->"e153916d-9f1b-43b9-a6c4-f59eefa45d16"],
+
+Cell[BoxData["1.2775821852263383`"], "Output",
+ CellChangeTimes->{3.843819353571412*^9, 3.8438208357193813`*^9,
+ 3.8438209750052147`*^9},
+ CellLabel->
+ "Out[120]=",ExpressionUUID->"ca5cf147-c698-4d49-a753-1cf32997e5f5"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[", "1", "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.8438209840375433`*^9, 3.8438209924910793`*^9}},
+ CellLabel->
+ "In[122]:=",ExpressionUUID->"c29b0035-e029-4b18-8ef4-ecd12fb49333"],
+
+Cell[BoxData[
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"2", " ", "\[Pi]"}], ")"}],
+ RowBox[{"1", "/", "15"}]], " ",
+ RowBox[{"Gamma", "[",
+ FractionBox["1", "5"], "]"}], " ",
+ RowBox[{"Gamma", "[",
+ FractionBox["1", "3"], "]"}], " ",
+ RowBox[{"Gamma", "[",
+ FractionBox["7", "15"], "]"}], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FractionBox[
+ RowBox[{"Gamma", "[",
+ FractionBox["3", "4"], "]"}],
+ RowBox[{"Gamma", "[",
+ FractionBox["1", "4"], "]"}]], ")"}],
+ RowBox[{"8", "/", "15"}]], " ",
+ SuperscriptBox[
+ RowBox[{"Gamma", "[",
+ FractionBox["13", "16"], "]"}],
+ RowBox[{"16", "/", "15"}]]}],
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"Gamma", "[",
+ FractionBox["3", "16"], "]"}],
+ RowBox[{"16", "/", "15"}]], " ",
+ RowBox[{"Gamma", "[",
+ FractionBox["8", "15"], "]"}], " ",
+ RowBox[{"Gamma", "[",
+ FractionBox["2", "3"], "]"}], " ",
+ RowBox[{"Gamma", "[",
+ FractionBox["4", "5"], "]"}]}]]}]], "Output",
+ CellChangeTimes->{{3.84382098702094*^9, 3.8438209896475677`*^9}},
+ CellLabel->
+ "Out[122]=",ExpressionUUID->"a77b28a6-eacd-4614-b43a-ed39428597d6"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
RowBox[{"datCasM", "/.", "m0rule"}]], "Input",
CellChangeTimes->{{3.843803230256878*^9, 3.8438032333117857`*^9}},
CellLabel->
@@ -1125,35 +1248,269 @@ Cell[BoxData[
Cell[CellGroupData[{
Cell[BoxData[
+ RowBox[{"datOurLow2", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{"dGd\[Xi]LowList", "[",
+ RowBox[{
+ RowBox[{"NF", "[", "2", "]"}], ",",
+ RowBox[{"H", "[", "2", "]"}], ",",
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{"rules", "[",
+ RowBox[{"H", "[", "2", "]"}], "]"}], ",",
+ RowBox[{"S", "[", "2", "]"}]}], "]"}]}], "]"}], "[", "14", "]"}],
+ "]"}]}]], "Input",
+ CellChangeTimes->{{3.843813552094987*^9, 3.8438136440081587`*^9}, {
+ 3.8438833391542397`*^9, 3.843883375666812*^9}, {3.843883449636417*^9,
+ 3.843883479692768*^9}},
+ CellLabel->"In[68]:=",ExpressionUUID->"922bbf13-0a40-4ffe-b65d-fb54bcae380b"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-", "1.3578383417064264`"}], ",",
+ RowBox[{"-", "0.04895328972027624`"}], ",", "0.04203900654851574`", ",",
+ RowBox[{"-", "0.07968638965975097`"}], ",", "0.22106513597990632`", ",",
+ RowBox[{"-", "0.7897713487895526`"}], ",", "3.4541403942028106`", ",",
+ RowBox[{"-", "17.966673990659217`"}], ",", "108.71139878939208`", ",",
+ RowBox[{"-", "751.2716428061942`"}], ",", "5840.849431039178`", ",",
+ RowBox[{"-", "50462.408110284574`"}], ",", "479625.97589905205`", ",",
+ RowBox[{"-", "4.973515079991114`*^6"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9},
+ 3.8438140456211767`*^9, 3.843883359816826*^9, {3.843883446786009*^9,
+ 3.8438834656906137`*^9}, 3.843883510726555*^9},
+ CellLabel->"Out[68]=",ExpressionUUID->"7d4aad94-bfa0-4ae6-9abe-17ccfe54ccf9"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"datOurLow9", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{"dGd\[Xi]LowList", "[",
+ RowBox[{
+ RowBox[{"NF", "[", "9", "]"}], ",",
+ RowBox[{"H", "[", "9", "]"}], ",",
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{"rules", "[",
+ RowBox[{"H", "[", "9", "]"}], "]"}], ",",
+ RowBox[{"S", "[", "9", "]"}]}], "]"}]}], "]"}], "[", "14", "]"}],
+ "]"}]}]], "Input",
+ CellChangeTimes->{{3.843813552094987*^9, 3.843813668224395*^9}, {
+ 3.843883465412313*^9, 3.84388347186026*^9}, {3.843883516141139*^9,
+ 3.843883518181106*^9}},
+ CellLabel->"In[69]:=",ExpressionUUID->"649e9e6d-3d2c-4639-9c47-2ea1ddcf4b02"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"-", "1.3578383417024302`"}], ",",
+ RowBox[{"-", "0.04895328971613999`"}], ",", "0.03886393160532956`", ",",
+ RowBox[{"-", "0.06836211904809866`"}], ",", "0.1838837094630435`", ",",
+ RowBox[{"-", "0.6591707116569322`"}], ",", "2.937664768538837`", ",",
+ RowBox[{"-", "15.62383316549295`"}], ",", "96.76358918813067`", ",",
+ RowBox[{"-", "689.9238519006262`"}], ",", "5653.610756437245`", ",",
+ RowBox[{"-", "53230.65513770707`"}], ",", "570382.8371346319`", ",",
+ RowBox[{"-", "6.804407434310122`*^6"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9},
+ 3.843818188530829*^9, 3.8438835487202253`*^9},
+ CellLabel->"Out[69]=",ExpressionUUID->"3d3ce9a7-1d88-4c65-8565-6972979e7b63"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"datOurHigh2", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{"dGd\[Xi]List", "[",
+ RowBox[{
+ RowBox[{"NF", "[", "2", "]"}], ",",
+ RowBox[{"H", "[", "2", "]"}], ",",
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{"rules", "[",
+ RowBox[{"H", "[", "2", "]"}], "]"}], ",",
+ RowBox[{"S", "[", "2", "]"}]}], "]"}]}], "]"}], "[",
+ RowBox[{"14", ",", "0"}], "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.843813552094987*^9, 3.8438136440081587`*^9}, {
+ 3.8438833391542397`*^9, 3.843883375666812*^9}, {3.843883449636417*^9,
+ 3.843883479692768*^9}, {3.8438835272533703`*^9, 3.843883540637532*^9}},
+ CellLabel->"In[70]:=",ExpressionUUID->"65da12ab-b919-4aad-899a-77b90d54ba33"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",", "0", ",",
+ RowBox[{"-", "1.845228078232855`"}], ",", "0", ",", "9.13299780319435`",
+ ",", "0", ",",
+ RowBox[{"-", "120.49236894043679`"}], ",", "0", ",", "2170.0705084060182`",
+ ",", "0", ",",
+ RowBox[{"-", "45590.04978070584`"}], ",", "0", ",",
+ "1.0498238403780453`*^6", ",", "0", ",",
+ RowBox[{"-", "2.569287836366928`*^7"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9},
+ 3.8438140456211767`*^9, 3.843883359816826*^9, {3.843883446786009*^9,
+ 3.8438834656906137`*^9}, 3.843883510726555*^9, 3.843883580486106*^9},
+ CellLabel->"Out[70]=",ExpressionUUID->"895bb215-c3fa-44dd-bbdf-c4de16295e4a"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"datOurHigh9", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{"dGd\[Xi]List", "[",
+ RowBox[{
+ RowBox[{"NF", "[", "9", "]"}], ",",
+ RowBox[{"H", "[", "9", "]"}], ",",
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{"rules", "[",
+ RowBox[{"H", "[", "9", "]"}], "]"}], ",",
+ RowBox[{"S", "[", "9", "]"}]}], "]"}]}], "]"}], "[",
+ RowBox[{"14", ",", "0"}], "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.843813552094987*^9, 3.843813668224395*^9}, {
+ 3.843883465412313*^9, 3.84388347186026*^9}, {3.843883516141139*^9,
+ 3.84388354845371*^9}},
+ CellLabel->"In[71]:=",ExpressionUUID->"2476ffb9-8112-4899-a159-f51883b8e216"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0", ",", "0", ",",
+ RowBox[{"-", "1.845228078233437`"}], ",", "0", ",", "8.333711750016088`",
+ ",", "0", ",",
+ RowBox[{"-", "95.16895435995913`"}], ",", "0", ",", "1458.0146401083766`",
+ ",", "0", ",",
+ RowBox[{"-", "25896.798094642745`"}], ",", "0", ",", "502972.6708710323`",
+ ",", "0", ",",
+ RowBox[{"-", "1.037144470816526`*^7"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9},
+ 3.843818188530829*^9, 3.8438836116815853`*^9},
+ CellLabel->"Out[71]=",ExpressionUUID->"b3a3183b-d2af-4e21-b8e1-1dbac01da522"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"datOurMid2", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[",
+ RowBox[{
+ RowBox[{"NF", "[", "2", "]"}], ",",
+ RowBox[{"H", "[", "2", "]"}], ",",
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{"rules", "[",
+ RowBox[{"H", "[", "2", "]"}], "]"}], ",",
+ RowBox[{"S", "[", "2", "]"}]}], "]"}]}], "]"}], "[",
+ RowBox[{"14", ",", "1"}], "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.843813552094987*^9, 3.8438136440081587`*^9}, {
+ 3.8438833391542397`*^9, 3.843883375666812*^9}, {3.843883449636417*^9,
+ 3.843883479692768*^9}, {3.8438835272533703`*^9, 3.843883540637532*^9}, {
+ 3.8438835969825583`*^9, 3.843883614991191*^9}},
+ CellLabel->"In[72]:=",ExpressionUUID->"e595b072-4f65-493a-afbb-d0fd95bb7c1c"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "1.1948724284794678`"}], ",",
+ RowBox[{"-", "0.32330658411019586`"}], ",", "0.11346429812999838`", ",",
+ "0.01686309365914635`", ",",
+ RowBox[{"-", "0.001863074413146943`"}], ",", "0.0003315262819236183`", ",",
+ "0.00036080803794583794`", ",",
+ RowBox[{"-", "0.0004509482793079114`"}], ",", "0.0001582843938685694`",
+ ",", "0.000058289459329385525`", ",",
+ RowBox[{"-", "0.00007259627084372857`"}], ",", "0.000016663825922859607`",
+ ",", "8.056136910592027`*^-6", ",",
+ RowBox[{"-", "4.675420447040588`*^-6"}], ",", "1.1812169011381494`*^-6"}],
+ "}"}]], "Output",
+ CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9},
+ 3.8438140456211767`*^9, 3.843883359816826*^9, {3.843883446786009*^9,
+ 3.8438834656906137`*^9}, 3.843883510726555*^9, 3.843883580486106*^9,
+ 3.843883657475613*^9},
+ CellLabel->"Out[72]=",ExpressionUUID->"10b2b981-6a70-47a2-b331-59f3035f0b63"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"datOurMid9", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[",
+ RowBox[{
+ RowBox[{"NF", "[", "9", "]"}], ",",
+ RowBox[{"H", "[", "9", "]"}], ",",
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{"rules", "[",
+ RowBox[{"H", "[", "9", "]"}], "]"}], ",",
+ RowBox[{"S", "[", "9", "]"}]}], "]"}]}], "]"}], "[",
+ RowBox[{"14", ",", "1"}], "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.843813552094987*^9, 3.843813668224395*^9}, {
+ 3.843883465412313*^9, 3.84388347186026*^9}, {3.843883516141139*^9,
+ 3.84388354845371*^9}, {3.843883600398727*^9, 3.843883619695004*^9}},
+ CellLabel->"In[73]:=",ExpressionUUID->"428ba532-a5a7-47a0-834d-51e3a093d96a"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "1.1977308964821485`"}], ",",
+ RowBox[{"-", "0.31881789297902025`"}], ",", "0.11089601302626526`", ",",
+ "0.01642300862533117`", ",",
+ RowBox[{"-", "0.0002696467837568495`"}], ",",
+ RowBox[{"-", "0.000504047944460891`"}], ",", "0.00020288418772922178`",
+ ",",
+ RowBox[{"-", "0.000046527087437412423`"}], ",", "6.758456177269158`*^-6",
+ ",",
+ RowBox[{"-", "1.3591739593199971`*^-6"}], ",",
+ RowBox[{"-", "3.971266342374754`*^-7"}], ",", "2.552648054600211`*^-6",
+ ",",
+ RowBox[{"-", "3.307244351589582`*^-6"}], ",", "2.196995226701064`*^-6",
+ ",",
+ RowBox[{"-", "3.409156647107724`*^-7"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.843813619617247*^9, 3.8438136383272247`*^9},
+ 3.843818188530829*^9, 3.8438836964718227`*^9},
+ CellLabel->"Out[73]=",ExpressionUUID->"299c9c7f-a1e2-4f23-8954-2fad569e0d71"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
RowBox[{"Export", "[",
RowBox[{
- "\"\<~/doc/research/first_order_singularities/paper/data/glow_series_ours_0.\
+ "\"\<~/doc/research/first_order_singularities/paper/data/glow_series_ours_9.\
dat\>\"", ",",
- RowBox[{"Prepend", "[",
+ RowBox[{"Table", "[",
RowBox[{
- RowBox[{"Table", "[",
+ RowBox[{"{",
RowBox[{
- RowBox[{"{",
- RowBox[{"i", ",",
- RowBox[{"datOurs", "[",
- RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",",
- RowBox[{"{",
- RowBox[{"i", ",", "1", ",",
- RowBox[{"Length", "[", "datOurs", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"i", "-", "1"}], ",",
+ RowBox[{"datOurLow9", "[",
+ RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",",
RowBox[{"{",
- RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "]"}]], "Input",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"Length", "[", "datOurLow9", "]"}]}], "}"}]}], "]"}]}],
+ "]"}]], "Input",
CellChangeTimes->{{3.8365725090188103`*^9, 3.836572511033183*^9}, {
3.836572551269373*^9, 3.836572621026455*^9}, {3.8365727308332853`*^9,
- 3.836572735579463*^9}, {3.8369881356397867`*^9, 3.8369881529196568`*^9}},
- CellLabel->"In[38]:=",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"],
+ 3.836572735579463*^9}, {3.8369881356397867`*^9, 3.8369881529196568`*^9}, {
+ 3.843818319071336*^9, 3.8438183408474913`*^9}},
+ CellLabel->"In[72]:=",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"],
Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/glow_\
-series_ours_0.dat\"\>"], "Output",
+series_ours_9.dat\"\>"], "Output",
CellChangeTimes->{
3.8365725114300337`*^9, {3.8365725984285917`*^9, 3.8365726212484303`*^9},
3.8365727364325037`*^9, {3.836988153130045*^9, 3.836988182958664*^9},
- 3.836988333167184*^9, 3.8370701494196787`*^9, 3.8370707835909777`*^9},
- CellLabel->"Out[38]=",ExpressionUUID->"21b5cf8e-7f0a-45f7-ab93-9e8ebe789a07"]
+ 3.836988333167184*^9, 3.8370701494196787`*^9, 3.8370707835909777`*^9,
+ 3.843818342558866*^9},
+ CellLabel->"Out[72]=",ExpressionUUID->"1091901f-4a92-4d11-9361-eb8e074518d8"]
}, Open ]],
Cell[CellGroupData[{
@@ -1169,32 +1526,175 @@ caselle.dat\>\"", ",",
RowBox[{
RowBox[{"{",
RowBox[{"i", ",",
- RowBox[{
- RowBox[{"Prepend", "[",
- RowBox[{"datCas", ",",
- RowBox[{
- RowBox[{"Gls", "[",
- RowBox[{"[", "2", "]"}], "]"}], "[", "\"\<Value\>\"", "]"}]}],
- "]"}], "[",
+ RowBox[{"datCas", "[",
RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "1", ",",
- RowBox[{"1", "+",
- RowBox[{"Length", "[", "datCas", "]"}]}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Length", "[", "datCas", "]"}]}], "}"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "]"}]], "Input",
CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, {
3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9,
3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9},
- 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}},
- CellLabel->"In[22]:=",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"],
+ 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, {
+ 3.843812903750565*^9, 3.843812935070904*^9}},
+ CellLabel->"In[56]:=",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"],
Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/glow_\
series_caselle.dat\"\>"], "Output",
CellChangeTimes->{3.836988223024967*^9, 3.836988260494157*^9,
3.836988333199574*^9, 3.837070149473012*^9, 3.837070783629765*^9,
- 3.837072865499703*^9},
- CellLabel->"Out[22]=",ExpressionUUID->"a5e80f1a-5f57-4a7a-ad79-17c92282d141"]
+ 3.837072865499703*^9, 3.843812937101083*^9},
+ CellLabel->"Out[56]=",ExpressionUUID->"849b4c20-f4a2-4ab0-be1c-d4b54f277dcb"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Export", "[",
+ RowBox[{
+ "\"\<~/doc/research/first_order_singularities/paper/data/ghigh_caselle.dat\>\
+\"", ",",
+ RowBox[{"Prepend", "[",
+ RowBox[{
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"i", ",",
+ RowBox[{"datCasH", "[",
+ RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"Length", "[", "datCasH", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"{",
+ RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, {
+ 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9,
+ 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9},
+ 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, {
+ 3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9,
+ 3.843813002559956*^9}},
+ CellLabel->"In[65]:=",ExpressionUUID->"3f815a4c-10cf-489f-9fc2-62e52069c4c0"],
+
+Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/ghigh_\
+caselle.dat\"\>"], "Output",
+ CellChangeTimes->{3.836988223024967*^9, 3.836988260494157*^9,
+ 3.836988333199574*^9, 3.837070149473012*^9, 3.837070783629765*^9,
+ 3.837072865499703*^9, 3.843812937101083*^9, 3.843813188718388*^9},
+ CellLabel->"Out[65]=",ExpressionUUID->"55fbc8bb-cdab-4659-a082-91bdbb81a26d"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Export", "[",
+ RowBox[{
+ "\"\<~/doc/research/first_order_singularities/paper/data/ghigh_series_ours_\
+2.dat\>\"", ",",
+ RowBox[{"Thread", "[",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"0", ",", "14"}], "]"}], ",", "datOurHigh2"}], "}"}], "]"}]}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, {
+ 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9,
+ 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9},
+ 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, {
+ 3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9,
+ 3.843813002559956*^9}, {3.843883687737048*^9, 3.843883735041348*^9}},
+ CellLabel->"In[74]:=",ExpressionUUID->"cd97b893-1f61-415c-8763-743df3cfe10e"],
+
+Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/ghigh_\
+series_ours_2.dat\"\>"], "Output",
+ CellChangeTimes->{3.836988223024967*^9, 3.836988260494157*^9,
+ 3.836988333199574*^9, 3.837070149473012*^9, 3.837070783629765*^9,
+ 3.837072865499703*^9, 3.843812937101083*^9, 3.843813188718388*^9,
+ 3.843883736492688*^9},
+ CellLabel->"Out[74]=",ExpressionUUID->"ad44ff35-c8ad-47fb-82dc-2f08ed5015a0"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"Export", "[",
+ RowBox[{
+ "\"\<~/doc/research/first_order_singularities/paper/data/ghigh_series_ours_\
+9.dat\>\"", ",",
+ RowBox[{"Thread", "[",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"0", ",", "14"}], "]"}], ",", "datOurHigh9"}], "}"}], "]"}]}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, {
+ 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9,
+ 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9},
+ 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, {
+ 3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9,
+ 3.843813002559956*^9}, {3.843883687737048*^9, 3.843883746721509*^9}},
+ CellLabel->"In[75]:=",ExpressionUUID->"7cc8abed-034f-48f9-a04c-7a7cd336cffc"],
+
+Cell[BoxData["\"\<~/doc/research/first_order_singularities/paper/data/ghigh_\
+series_ours_9.dat\>\""], "Input",
+ CellChangeTimes->{3.843883760658271*^9},
+ CellLabel->"Out[75]=",ExpressionUUID->"65b75ed6-31a7-4b35-9f87-bb8013223e69"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Export", "[",
+ RowBox[{
+ "\"\<~/doc/research/first_order_singularities/paper/data/phi_series_ours_2.\
+dat\>\"", ",",
+ RowBox[{"Thread", "[",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"0", ",", "14"}], "]"}], ",", "datOurMid2"}], "}"}], "]"}]}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, {
+ 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9,
+ 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9},
+ 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, {
+ 3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9,
+ 3.843813002559956*^9}, {3.843883687737048*^9, 3.843883785650159*^9}},
+ CellLabel->"In[76]:=",ExpressionUUID->"ed90fc79-b0f9-464f-acb1-e5aa0d9691f1"],
+
+Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/phi_\
+series_ours_2.dat\"\>"], "Output",
+ CellChangeTimes->{3.8438837865421677`*^9},
+ CellLabel->"Out[76]=",ExpressionUUID->"ec63ab55-c78c-48bb-be15-d4ffdc90af1f"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Export", "[",
+ RowBox[{
+ "\"\<~/doc/research/first_order_singularities/paper/data/phi_series_ours_9.\
+dat\>\"", ",",
+ RowBox[{"Thread", "[",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"0", ",", "14"}], "]"}], ",", "datOurMid9"}], "}"}], "]"}]}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, {
+ 3.8365730212450933`*^9, 3.836573024451941*^9}, {3.8369870331179867`*^9,
+ 3.836987040227461*^9}, {3.836988096983111*^9, 3.836988122791327*^9},
+ 3.836988222777315*^9, {3.83698825888205*^9, 3.836988260282138*^9}, {
+ 3.843812903750565*^9, 3.843812935070904*^9}, {3.843812988936552*^9,
+ 3.843813002559956*^9}, {3.843883687737048*^9, 3.843883746721509*^9}, {
+ 3.8438837895463448`*^9, 3.843883795498577*^9}},
+ CellLabel->"In[77]:=",ExpressionUUID->"6dd628a1-23df-42ea-b634-4bef16413391"],
+
+Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/phi_\
+series_ours_9.dat\"\>"], "Output",
+ CellChangeTimes->{
+ 3.836988223024967*^9, 3.836988260494157*^9, 3.836988333199574*^9,
+ 3.837070149473012*^9, 3.837070783629765*^9, 3.837072865499703*^9,
+ 3.843812937101083*^9, 3.843813188718388*^9, {3.843883736492688*^9,
+ 3.8438837481882477`*^9}, 3.8438837970953608`*^9},
+ CellLabel->"Out[77]=",ExpressionUUID->"fba3789b-8807-4cd2-86d2-e085f54bc1e0"]
}, Open ]],
Cell[CellGroupData[{
@@ -2655,9 +3155,9 @@ Cell[BoxData[
CellLabel->"Out[91]=",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"]
}, Open ]]
},
-WindowSize->{475.5, 790.5},
-WindowMargins->{{Automatic, 2.25}, {2.25, Automatic}},
-FrontEndVersion->"12.1 for Linux ARM (32-bit) (August 18, 2020)",
+WindowSize->{635.25, 1060.5},
+WindowMargins->{{642, Automatic}, {2.25, Automatic}},
+FrontEndVersion->"12.3 for Linux x86 (64-bit) (July 9, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"d257fbda-2be1-4221-9ac8-5153716cfc00"
]
@@ -2672,103 +3172,141 @@ CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
-Cell[558, 20, 596, 10, 71, "Input",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"],
-Cell[1157, 32, 7539, 107, 71, "Input",ExpressionUUID->"872503c3-0779-4b87-805f-13a088f459e3"],
-Cell[8699, 141, 1256, 31, 257, "Input",ExpressionUUID->"02a1f6e5-4144-4552-9463-2a226c1ee186"],
-Cell[9958, 174, 2710, 69, 504, "Input",ExpressionUUID->"d8831e63-87f3-498c-8951-21f347e539ff"],
-Cell[CellGroupData[{
-Cell[12693, 247, 2190, 62, 225, "Input",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"],
-Cell[14886, 311, 384, 7, 35, "Output",ExpressionUUID->"7147fa3f-588c-4d84-919f-5b390263b15a"],
-Cell[15273, 320, 379, 7, 35, "Output",ExpressionUUID->"77d5d61f-2753-4b7e-a4c4-fa95057652f1"]
+Cell[558, 20, 597, 10, 24, "Input",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"],
+Cell[CellGroupData[{
+Cell[1180, 34, 2287, 64, 112, "Input",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"],
+Cell[3470, 100, 394, 5, 25, "Output",ExpressionUUID->"5916b0af-c167-4771-aeb7-3c62b468a0ba"],
+Cell[3867, 107, 390, 5, 25, "Output",ExpressionUUID->"c9921f2f-76f7-4cfd-85ee-7bf5652dc449"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[4294, 117, 3846, 85, 109, "Input",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"],
+Cell[8143, 204, 1339, 21, 42, "Output",ExpressionUUID->"662f4cfd-8b83-42b3-bae9-63f60b0e3593"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[9519, 230, 3847, 85, 109, "Input",ExpressionUUID->"34fe8bc4-abfb-4504-a7f1-045cd2a55ee6"],
+Cell[13369, 317, 640, 12, 44, "Output",ExpressionUUID->"343f2684-7442-43b7-9d49-7e58cf8f6f6d"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[14046, 334, 3915, 87, 106, "Input",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"],
+Cell[17964, 423, 1559, 42, 61, "Output",ExpressionUUID->"afaa9364-8f91-4950-979b-0f9ef86eab0e"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[19560, 470, 326, 7, 22, "Input",ExpressionUUID->"c2ec938b-df20-4457-ac8f-5fb89f93d9f3"],
+Cell[19889, 479, 188, 4, 39, "Output",ExpressionUUID->"7a8c2bb5-90c4-4aeb-82ef-a923f5a729e3"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[20114, 488, 255, 5, 22, "Input",ExpressionUUID->"f775ff7d-d0b6-4518-90fc-dce2b496637c"],
+Cell[20372, 495, 194, 3, 39, "Output",ExpressionUUID->"60b8b008-7807-40a6-b3d9-1f2e8b589a73"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[20603, 503, 306, 7, 22, "Input",ExpressionUUID->"33e05555-1738-48c2-b7aa-e8fd44cecd72"],
+Cell[20912, 512, 221, 3, 25, "Output",ExpressionUUID->"a53b9d58-d244-4548-8b2d-0153f5f04983"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[21170, 520, 4200, 108, 191, "Input",ExpressionUUID->"79242c4a-ef9e-453f-aabd-057c68f68aca"],
+Cell[25373, 630, 19071, 333, 179, "Output",ExpressionUUID->"9e7d57d6-efa3-474c-ad30-e142da216a92"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[44481, 968, 203, 4, 22, "Input",ExpressionUUID->"e2ebf167-6996-49ef-9ca3-9dd16132c4ea"],
+Cell[44687, 974, 569, 14, 25, "Output",ExpressionUUID->"c33b6abd-b8d8-415e-b881-93fd6c52f0db"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[45293, 993, 501, 13, 24, "Input",ExpressionUUID->"e153916d-9f1b-43b9-a6c4-f59eefa45d16"],
+Cell[45797, 1008, 222, 4, 25, "Output",ExpressionUUID->"ca5cf147-c698-4d49-a753-1cf32997e5f5"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[46056, 1017, 243, 5, 22, "Input",ExpressionUUID->"c29b0035-e029-4b18-8ef4-ecd12fb49333"],
+Cell[46302, 1024, 1247, 39, 70, "Output",ExpressionUUID->"a77b28a6-eacd-4614-b43a-ed39428597d6"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[47586, 1068, 212, 4, 22, "Input",ExpressionUUID->"40438766-386e-4ef0-95c5-bb36288917ef"],
+Cell[47801, 1074, 735, 15, 44, "Output",ExpressionUUID->"462d7199-fbaa-4949-8313-776399b35c4a"]
}, Open ]],
Cell[CellGroupData[{
-Cell[15689, 332, 223, 4, 29, "Input",ExpressionUUID->"cc1db89b-ac08-453b-acd3-8a1a74aa25de"],
-Cell[15915, 338, 279, 5, 55, "Output",ExpressionUUID->"539cef56-d335-495b-a7cf-72f95eb2f3c6"]
+Cell[48573, 1094, 4388, 128, 175, "Input",ExpressionUUID->"f81ed9c7-d940-4314-963c-c36ea0215ef3"],
+Cell[52964, 1224, 1199, 20, 60, "Output",ExpressionUUID->"2234af5e-068b-46a3-beaf-99a907ef5184"]
}, Open ]],
Cell[CellGroupData[{
-Cell[16231, 348, 148, 2, 29, "Input",ExpressionUUID->"826bcc4b-5d2e-4245-a68d-af19dfb20e6b"],
-Cell[16382, 352, 151, 2, 33, "Output",ExpressionUUID->"82fdbc16-a012-4ac0-9a30-1b833903afee"]
+Cell[54200, 1249, 685, 17, 24, "Input",ExpressionUUID->"922bbf13-0a40-4ffe-b65d-fb54bcae380b"],
+Cell[54888, 1268, 882, 14, 44, "Output",ExpressionUUID->"7d4aad94-bfa0-4ae6-9abe-17ccfe54ccf9"]
}, Open ]],
-Cell[16548, 357, 916, 20, 72, "Input",ExpressionUUID->"bd6b698e-6871-43fa-9d98-7385cc594c9c"],
-Cell[17467, 379, 752, 17, 69, "Input",ExpressionUUID->"7bddfed2-a761-4c62-bcdc-0460988fbd67"],
-Cell[18222, 398, 618, 15, 29, "Input",ExpressionUUID->"ec8b9383-61d6-44c2-b776-3d651fc19660"],
Cell[CellGroupData[{
-Cell[18865, 417, 943, 23, 133, "Input",ExpressionUUID->"cbeb62aa-7e89-4ec5-a1cb-d5012bac06fd"],
-Cell[19811, 442, 334, 5, 55, "Output",ExpressionUUID->"9ddcc7c6-de02-4d31-9401-bbbc5eefe582"]
+Cell[55807, 1287, 680, 17, 24, "Input",ExpressionUUID->"649e9e6d-3d2c-4639-9c47-2ea1ddcf4b02"],
+Cell[56490, 1306, 802, 13, 44, "Output",ExpressionUUID->"3d3ce9a7-1d88-4c65-8565-6972979e7b63"]
}, Open ]],
Cell[CellGroupData[{
-Cell[20182, 452, 1041, 24, 71, "Input",ExpressionUUID->"7efd85be-fd7d-435a-a870-214d8ec4025d"],
-Cell[21226, 478, 924, 17, 49, "Message",ExpressionUUID->"4bba24d3-fa02-4ad0-86b9-3bdb7e46a000"],
-Cell[22153, 497, 877, 15, 33, "Output",ExpressionUUID->"e2f0010a-e1b6-4537-a8ae-b59af3108330"]
+Cell[57329, 1324, 752, 17, 24, "Input",ExpressionUUID->"65da12ab-b919-4aad-899a-77b90d54ba33"],
+Cell[58084, 1343, 711, 13, 44, "Output",ExpressionUUID->"895bb215-c3fa-44dd-bbdf-c4de16295e4a"]
}, Open ]],
Cell[CellGroupData[{
-Cell[23067, 517, 523, 12, 71, "Input",ExpressionUUID->"28731a52-d222-49b4-aebb-262f9a5d4dd5"],
-Cell[23593, 531, 240, 3, 33, "Output",ExpressionUUID->"65626e49-d3af-4115-b5d3-96f63b95604e"],
-Cell[23836, 536, 257, 4, 33, "Output",ExpressionUUID->"fe83a208-ae15-4c69-a7c9-b98329954997"]
+Cell[58832, 1361, 698, 17, 24, "Input",ExpressionUUID->"2476ffb9-8112-4899-a159-f51883b8e216"],
+Cell[59533, 1380, 612, 12, 27, "Output",ExpressionUUID->"b3a3183b-d2af-4e21-b8e1-1dbac01da522"]
}, Open ]],
Cell[CellGroupData[{
-Cell[24130, 545, 531, 11, 31, "Input",ExpressionUUID->"f42f7737-f59e-4289-8153-b78626e30f0e"],
-Cell[24664, 558, 583, 11, 55, "Output",ExpressionUUID->"c7c2e58e-e6d9-436b-9cc9-4238f4205a5a"]
+Cell[60182, 1397, 815, 18, 24, "Input",ExpressionUUID->"e595b072-4f65-493a-afbb-d0fd95bb7c1c"],
+Cell[61000, 1417, 967, 18, 60, "Output",ExpressionUUID->"10b2b981-6a70-47a2-b331-59f3035f0b63"]
}, Open ]],
Cell[CellGroupData[{
-Cell[25284, 574, 3600, 82, 247, "Input",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"],
-Cell[28887, 658, 1695, 39, 102, "Output",ExpressionUUID->"11e20a4b-cae5-48c4-b906-784dd8f87538"]
+Cell[62004, 1440, 756, 17, 24, "Input",ExpressionUUID->"428ba532-a5a7-47a0-834d-51e3a093d96a"],
+Cell[62763, 1459, 900, 19, 60, "Output",ExpressionUUID->"299c9c7f-a1e2-4f23-8954-2fad569e0d71"]
}, Open ]],
Cell[CellGroupData[{
-Cell[30619, 702, 3652, 83, 247, "Input",ExpressionUUID->"34fe8bc4-abfb-4504-a7f1-045cd2a55ee6"],
-Cell[34274, 787, 689, 17, 58, "Output",ExpressionUUID->"9ec93309-453d-448d-a010-32e525370828"]
+Cell[63700, 1483, 839, 20, 41, "Input",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"],
+Cell[64542, 1505, 461, 7, 25, "Output",ExpressionUUID->"1091901f-4a92-4d11-9361-eb8e074518d8"]
}, Open ]],
Cell[CellGroupData[{
-Cell[35000, 809, 3915, 87, 263, "Input",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"],
-Cell[38918, 898, 1559, 42, 102, "Output",ExpressionUUID->"afaa9364-8f91-4950-979b-0f9ef86eab0e"]
+Cell[65040, 1517, 1002, 23, 41, "Input",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"],
+Cell[66045, 1542, 371, 5, 25, "Output",ExpressionUUID->"849b4c20-f4a2-4ab0-be1c-d4b54f277dcb"]
}, Open ]],
Cell[CellGroupData[{
-Cell[40514, 945, 212, 4, 29, "Input",ExpressionUUID->"40438766-386e-4ef0-95c5-bb36288917ef"],
-Cell[40729, 951, 735, 15, 99, "Output",ExpressionUUID->"462d7199-fbaa-4949-8313-776399b35c4a"]
+Cell[66453, 1552, 1048, 24, 41, "Input",ExpressionUUID->"3f815a4c-10cf-489f-9fc2-62e52069c4c0"],
+Cell[67504, 1578, 387, 5, 25, "Output",ExpressionUUID->"55fbc8bb-cdab-4659-a082-91bdbb81a26d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[41501, 971, 4388, 128, 493, "Input",ExpressionUUID->"f81ed9c7-d940-4314-963c-c36ea0215ef3"],
-Cell[45892, 1101, 1199, 20, 120, "Output",ExpressionUUID->"2234af5e-068b-46a3-beaf-99a907ef5184"]
+Cell[67928, 1588, 846, 17, 41, "Input",ExpressionUUID->"cd97b893-1f61-415c-8763-743df3cfe10e"],
+Cell[68777, 1607, 418, 6, 25, "Output",ExpressionUUID->"ad44ff35-c8ad-47fb-82dc-2f08ed5015a0"]
}, Open ]],
+Cell[69210, 1616, 846, 17, 41, "Input",ExpressionUUID->"7cc8abed-034f-48f9-a04c-7a7cd336cffc"],
+Cell[70059, 1635, 232, 3, 22, InheritFromParent,ExpressionUUID->"65b75ed6-31a7-4b35-9f87-bb8013223e69"],
Cell[CellGroupData[{
-Cell[47128, 1126, 882, 21, 113, "Input",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"],
-Cell[48013, 1149, 435, 6, 25, "Output",ExpressionUUID->"21b5cf8e-7f0a-45f7-ab93-9e8ebe789a07"]
+Cell[70316, 1642, 843, 17, 41, "Input",ExpressionUUID->"ed90fc79-b0f9-464f-acb1-e5aa0d9691f1"],
+Cell[71162, 1661, 233, 3, 25, "Output",ExpressionUUID->"ec63ab55-c78c-48bb-be15-d4ffdc90af1f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[48485, 1160, 1195, 29, 41, "Input",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"],
-Cell[49683, 1191, 349, 5, 25, "Output",ExpressionUUID->"a5e80f1a-5f57-4a7a-ad79-17c92282d141"]
+Cell[71432, 1669, 895, 18, 41, "Input",ExpressionUUID->"6dd628a1-23df-42ea-b634-4bef16413391"],
+Cell[72330, 1689, 472, 7, 25, "Output",ExpressionUUID->"fba3789b-8807-4cd2-86d2-e085f54bc1e0"]
}, Open ]],
Cell[CellGroupData[{
-Cell[50069, 1201, 228, 5, 22, "Input",ExpressionUUID->"feb08355-9ad1-4257-9f97-e394177d7e32"],
-Cell[50300, 1208, 274, 8, 25, "Output",ExpressionUUID->"87e29f54-9d68-4261-96d4-95d24dcdc36a"]
+Cell[72839, 1701, 228, 5, 22, "Input",ExpressionUUID->"feb08355-9ad1-4257-9f97-e394177d7e32"],
+Cell[73070, 1708, 274, 8, 25, "Output",ExpressionUUID->"87e29f54-9d68-4261-96d4-95d24dcdc36a"]
}, Open ]],
Cell[CellGroupData[{
-Cell[50611, 1221, 1542, 27, 55, "Input",ExpressionUUID->"e61ed118-a102-4290-8440-cba17b87145b"],
-Cell[52156, 1250, 12321, 270, 180, "Output",ExpressionUUID->"2e45389f-59c7-4eaf-9b3a-270214fa013e"]
+Cell[73381, 1721, 1542, 27, 55, "Input",ExpressionUUID->"e61ed118-a102-4290-8440-cba17b87145b"],
+Cell[74926, 1750, 12321, 270, 180, "Output",ExpressionUUID->"2e45389f-59c7-4eaf-9b3a-270214fa013e"]
}, Open ]],
-Cell[64492, 1523, 175, 3, 22, "Input",ExpressionUUID->"0f87aa05-2cc9-472a-ab27-39ee15777442"],
-Cell[64670, 1528, 356, 7, 24, "Input",ExpressionUUID->"627c17e0-e2d8-4347-8fe9-812183a42941"],
+Cell[87262, 2023, 175, 3, 22, "Input",ExpressionUUID->"0f87aa05-2cc9-472a-ab27-39ee15777442"],
+Cell[87440, 2028, 356, 7, 24, "Input",ExpressionUUID->"627c17e0-e2d8-4347-8fe9-812183a42941"],
Cell[CellGroupData[{
-Cell[65051, 1539, 176, 2, 22, "Input",ExpressionUUID->"f32c32be-7fcb-4660-bf43-cbc119acda96"],
-Cell[65230, 1543, 2097, 65, 77, "Output",ExpressionUUID->"01b48fb7-d8c9-4012-92f6-488cf7e7087c"]
+Cell[87821, 2039, 176, 2, 22, "Input",ExpressionUUID->"f32c32be-7fcb-4660-bf43-cbc119acda96"],
+Cell[88000, 2043, 2097, 65, 77, "Output",ExpressionUUID->"01b48fb7-d8c9-4012-92f6-488cf7e7087c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[67364, 1613, 860, 24, 24, "Input",ExpressionUUID->"bfa6a31f-5eb9-4063-b798-e45ab1e3b53a"],
-Cell[68227, 1639, 1944, 57, 77, "Output",ExpressionUUID->"0ca79efb-1867-4b1f-96fc-4a691d54b72e"]
+Cell[90134, 2113, 860, 24, 24, "Input",ExpressionUUID->"bfa6a31f-5eb9-4063-b798-e45ab1e3b53a"],
+Cell[90997, 2139, 1944, 57, 77, "Output",ExpressionUUID->"0ca79efb-1867-4b1f-96fc-4a691d54b72e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[70208, 1701, 2622, 77, 93, "Input",ExpressionUUID->"242aacdf-e4c7-423c-a26a-12188ba2476e"],
-Cell[72833, 1780, 21838, 439, 180, "Output",ExpressionUUID->"073d831e-11a6-4203-90ce-0df429c1a3f0"]
+Cell[92978, 2201, 2622, 77, 93, "Input",ExpressionUUID->"242aacdf-e4c7-423c-a26a-12188ba2476e"],
+Cell[95603, 2280, 21838, 439, 180, "Output",ExpressionUUID->"073d831e-11a6-4203-90ce-0df429c1a3f0"]
}, Open ]],
-Cell[94686, 2222, 725, 15, 24, "Input",ExpressionUUID->"80c6c675-eade-40e1-8d0f-13a6578b30ff"],
-Cell[95414, 2239, 764, 21, 22, "Input",ExpressionUUID->"d8847f2e-21fe-4fb7-84ae-676f83acdf5a"],
+Cell[117456, 2722, 725, 15, 24, "Input",ExpressionUUID->"80c6c675-eade-40e1-8d0f-13a6578b30ff"],
+Cell[118184, 2739, 764, 21, 22, "Input",ExpressionUUID->"d8847f2e-21fe-4fb7-84ae-676f83acdf5a"],
Cell[CellGroupData[{
-Cell[96203, 2264, 679, 17, 40, "Input",ExpressionUUID->"15d60f60-2f87-40da-a2c6-66d640111d75"],
-Cell[96885, 2283, 1298, 32, 44, "Output",ExpressionUUID->"6f1d902a-0431-4a99-adc2-97eb3c423317"]
+Cell[118973, 2764, 679, 17, 40, "Input",ExpressionUUID->"15d60f60-2f87-40da-a2c6-66d640111d75"],
+Cell[119655, 2783, 1298, 32, 44, "Output",ExpressionUUID->"6f1d902a-0431-4a99-adc2-97eb3c423317"]
}, Open ]],
Cell[CellGroupData[{
-Cell[98220, 2320, 736, 18, 57, "Input",ExpressionUUID->"bec4c929-c1a6-4fd0-be18-caf3643ba3a4"],
-Cell[98959, 2340, 14613, 314, 179, "Output",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"]
+Cell[120990, 2820, 736, 18, 57, "Input",ExpressionUUID->"bec4c929-c1a6-4fd0-be18-caf3643ba3a4"],
+Cell[121729, 2840, 14613, 314, 179, "Output",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"]
}, Open ]]
}
]
diff --git a/new_schofield.nb b/new_schofield.nb
index d67e096..cd387b6 100644
--- a/new_schofield.nb
+++ b/new_schofield.nb
@@ -10,10 +10,10 @@
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
-NotebookDataLength[ 2099745, 36658]
-NotebookOptionsPosition[ 2080111, 36353]
-NotebookOutlinePosition[ 2080510, 36369]
-CellTagsIndexPosition[ 2080467, 36366]
+NotebookDataLength[ 2193199, 38842]
+NotebookOptionsPosition[ 2171903, 38529]
+NotebookOutlinePosition[ 2172301, 38545]
+CellTagsIndexPosition[ 2172258, 38542]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
@@ -33,8 +33,7 @@ Cell[BoxData[
3.83957102205329*^9, 3.8395710222207737`*^9}, {3.841389917784724*^9,
3.841389919112598*^9}, {3.8424227955510283`*^9, 3.842422804973724*^9}, {
3.8425181034802094`*^9, 3.8425181185428543`*^9}},
- CellLabel->
- "In[354]:=",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"],
+ CellLabel->"In[1]:=",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"],
Cell[BoxData[{
RowBox[{
@@ -88,248 +87,6 @@ Cell["Generate fits", "Subsection",
3.842517582508664*^9}},ExpressionUUID->"04b3434a-7ae1-4e59-9492-\
797bc05d141c"],
-Cell[BoxData[
- RowBox[{
- RowBox[{"nAs", "=", "2"}], ";"}]], "Input",
- CellChangeTimes->{{3.841213645969795*^9, 3.841213648302487*^9}},
- CellLabel->
- "In[244]:=",ExpressionUUID->"c2736e8b-b9a2-44e3-be7a-35f424888e11"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"stest", "=",
- RowBox[{"newSol", "[",
- RowBox[{
- RowBox[{"randomEval", "[",
- RowBox[{"Drop", "[",
- RowBox[{
- RowBox[{
- RowBox[{"eqAround", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "3", "]"}]}], "]"}], "[",
- RowBox[{"2", ",", "2", ",", "2"}], "]"}], ",", "1"}], "]"}], "]"}],
- ",",
- RowBox[{"Most", "@",
- RowBox[{
- RowBox[{"SN", "[", "2", "]"}], "[",
- RowBox[{"[", "2", "]"}], "]"}]}], ",",
- RowBox[{"{",
- RowBox[{"gC", "[", "3", "]"}], "}"}], ",", "0.1"}], "]"}]}]], "Input",
- CellChangeTimes->{{3.8437350842487507`*^9, 3.8437350887834578`*^9}, {
- 3.843735130705277*^9, 3.843735208315724*^9}, {3.843735319485054*^9,
- 3.8437353404680843`*^9}},
- CellLabel->
- "In[373]:=",ExpressionUUID->"f1779a9a-9c6a-4c22-8f2d-5e3f6320dd18"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]",
- RowBox[{"1.30739428360541`", "\[VeryThinSpace]", "+",
- RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
- RowBox[{"\[Theta]0", "\[Rule]",
- RowBox[{"0.1986413821273041`", "\[VeryThinSpace]", "+",
- RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
- RowBox[{"AH", "\[Rule]",
- RowBox[{
- RowBox[{"-", "2.3455271705562053`"}], "+",
- RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]",
- RowBox[{"1.4375595560982888`", "\[VeryThinSpace]", "+",
- RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]",
- RowBox[{"0.38772441346096487`", "\[VeryThinSpace]", "+",
- RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{
- RowBox[{"-", "0.04228284080339083`"}], "+",
- RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
- RowBox[{"0.010833244085729572`", "\[VeryThinSpace]", "+",
- RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{
- RowBox[{"-", "0.0019045960428110999`"}], "+",
- RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}]}], "}"}]], "Output",
- CellChangeTimes->{{3.8437350129483624`*^9, 3.843735090915018*^9},
- 3.843735128296685*^9, {3.84373516161607*^9, 3.843735229281365*^9}, {
- 3.843735326877481*^9, 3.8437353415674667`*^9}},
- CellLabel->
- "Out[373]=",ExpressionUUID->"7b6a0ec1-17b1-42fe-be1f-bc27b407eb0f"]
-}, Open ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"s0", "=",
- RowBox[{
- RowBox[{
- RowBox[{"#1", "->",
- RowBox[{"Re", "[", "#2", "]"}]}], "&"}], "@@@",
- RowBox[{"untilSuccess", "[",
- RowBox[{"newSol", "[",
- RowBox[{
- RowBox[{"randomEval", "[",
- RowBox[{"Drop", "[",
- RowBox[{
- RowBox[{
- RowBox[{"eqAround", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "2", "]"}]}], "]"}], "[",
- RowBox[{"2", ",", "2", ",", "2"}], "]"}], ",", "2"}], "]"}], "]"}],
- ",",
- RowBox[{"{",
- RowBox[{
- RowBox[{"\[Theta]c", "->",
- RowBox[{"1", "+",
- RowBox[{"RandomReal", "[", "]"}]}]}], ",",
- RowBox[{"\[Theta]0", "->", "0.2"}]}], "}"}], ",",
- RowBox[{"{",
- RowBox[{"AH", ",",
- RowBox[{"A", "[", "1", "]"}], ",",
- RowBox[{"A", "[", "2", "]"}], ",",
- RowBox[{"gC", "[", "1", "]"}], ",",
- RowBox[{"gC", "[", "2", "]"}]}], "}"}], ",", ".1"}], "]"}],
- "]"}]}]}]], "Input",
- CellChangeTimes->{{3.840872563521092*^9, 3.840872576998932*^9}, {
- 3.840872709369928*^9, 3.840872764402226*^9}, {3.840877636812889*^9,
- 3.840877656924961*^9}, {3.840877923391466*^9, 3.8408779355510817`*^9}, {
- 3.8408780598941317`*^9, 3.8408780601811543`*^9}, {3.8408797181810427`*^9,
- 3.840879778238139*^9}, {3.840880795134419*^9, 3.840880840286354*^9}, {
- 3.840880874528244*^9, 3.840880874703277*^9}, {3.840880912632703*^9,
- 3.840880919991878*^9}, {3.840880964425344*^9, 3.840880970072919*^9}, {
- 3.8408823919331017`*^9, 3.840882408285187*^9}, {3.840882654137898*^9,
- 3.8408827357871857`*^9}, {3.840882788764772*^9, 3.840882792524544*^9},
- 3.840882894926977*^9, {3.841112236364469*^9, 3.841112243763925*^9}, {
- 3.841112313502637*^9, 3.8411123146620913`*^9}, {3.841112388153365*^9,
- 3.841112388328306*^9}, {3.841113559383749*^9, 3.84111356348705*^9}, {
- 3.841113845807329*^9, 3.8411138491660833`*^9}, {3.841114253194316*^9,
- 3.841114254601055*^9}, {3.8411149340289297`*^9, 3.8411149380036087`*^9}, {
- 3.841115140132168*^9, 3.8411151578518972`*^9}, {3.841118660703054*^9,
- 3.841118669270204*^9}, {3.84111963423028*^9, 3.84111963438923*^9}, {
- 3.8411197709763603`*^9, 3.841119780736758*^9}, {3.841119818369471*^9,
- 3.841119861353202*^9}, {3.841120052157507*^9, 3.841120061869829*^9}, {
- 3.841120110726479*^9, 3.841120112581915*^9}, {3.841121150329917*^9,
- 3.8411211504968767`*^9}, {3.841121467374711*^9, 3.841121469214098*^9}, {
- 3.841121521631566*^9, 3.8411215316470957`*^9}, {3.841121826077414*^9,
- 3.841121830028577*^9}, {3.841122524498312*^9, 3.841122524665271*^9}, {
- 3.841122562074945*^9, 3.8411225622019987`*^9}, {3.841122639908085*^9,
- 3.841122640555438*^9}, {3.841130161765921*^9, 3.841130162765541*^9}, {
- 3.841131213073967*^9, 3.841131213232782*^9}, {3.841134390651767*^9,
- 3.8411344156200743`*^9}, {3.841134461917511*^9, 3.8411344621164227`*^9}, {
- 3.8411356221148643`*^9, 3.8411356447942247`*^9}, {3.841213559117867*^9,
- 3.841213592453618*^9}, {3.841213653182707*^9, 3.841213680583296*^9}, {
- 3.841994430388618*^9, 3.8419944408046093`*^9}, {3.841994755179496*^9,
- 3.841994755346443*^9}, {3.841994896941716*^9, 3.841994926998374*^9}, {
- 3.841994983607177*^9, 3.8419950242243156`*^9}, {3.841995200194737*^9,
- 3.8419952057475653`*^9}, {3.842688660466323*^9, 3.842688668562681*^9}, {
- 3.842688747500245*^9, 3.842688751827346*^9}, 3.843711136688591*^9, {
- 3.8437111949458714`*^9, 3.843711256554105*^9}, 3.843714578528306*^9, {
- 3.843734907692033*^9, 3.843734942084776*^9}, {3.8437349752622023`*^9,
- 3.843734978125502*^9}},
- CellLabel->
- "In[349]:=",ExpressionUUID->"a326d1ad-f5a3-49d5-9b86-3a79e4cb291c"],
-
-Cell[BoxData["$Aborted"], "Output",
- CellChangeTimes->{{3.841213667298201*^9, 3.841213680834222*^9}, {
- 3.841225528753489*^9, 3.8412255307639217`*^9}, 3.841297785004229*^9,
- 3.841303397495946*^9, 3.841304437958754*^9, 3.841304527293501*^9, {
- 3.841305184240437*^9, 3.841305190396916*^9}, 3.841305233787437*^9,
- 3.841305343526166*^9, 3.8413108551817913`*^9, 3.8413112805525637`*^9,
- 3.841316303642786*^9, 3.841389849950029*^9, 3.84138996708595*^9,
- 3.841390187817034*^9, 3.8413902178695107`*^9, 3.841390251177702*^9,
- 3.841390293298427*^9, 3.8413904792944736`*^9, 3.8413905777348013`*^9,
- 3.841391289327278*^9, 3.841392157175344*^9, 3.841392285420888*^9,
- 3.841392335464444*^9, 3.8414635899813747`*^9, 3.841464592139812*^9,
- 3.841727568283511*^9, 3.841733129163908*^9, 3.841826404105365*^9,
- 3.8419944380646667`*^9, {3.8419947535141783`*^9, 3.841994756891218*^9}, {
- 3.841994924101157*^9, 3.841994935329941*^9}, {3.841994992788472*^9,
- 3.8419950232557077`*^9}, 3.841995079391933*^9, {3.841995204423297*^9,
- 3.84199520626237*^9}, 3.8420034241494923`*^9, 3.8420689124310923`*^9,
- 3.842330230554284*^9, 3.842330804692266*^9, {3.842337081323071*^9,
- 3.842337084010837*^9}, 3.842350006073023*^9, 3.842422344645892*^9,
- 3.842422816178594*^9, 3.842518122452919*^9, 3.842519915109*^9,
- 3.842522122885919*^9, 3.842522655663528*^9, 3.842524725510088*^9,
- 3.842525662569347*^9, 3.84259116821867*^9, {3.842599196265551*^9,
- 3.8425992071730633`*^9}, 3.842599359641241*^9, 3.8425998079904613`*^9, {
- 3.842683504778739*^9, 3.842683514378283*^9}, {3.84268397204325*^9,
- 3.842683978375692*^9}, {3.842684654553711*^9, 3.842684657254725*^9},
- 3.842684902947652*^9, 3.8426868062452803`*^9, 3.842687682372817*^9, {
- 3.8426885885640917`*^9, 3.842688589825081*^9}, {3.842688667291643*^9,
- 3.84268867286578*^9}, {3.8426887522632008`*^9, 3.842688753765951*^9},
- 3.842688845006856*^9, 3.842939605883937*^9, 3.843290139302218*^9,
- 3.843644146085823*^9, 3.843710924398151*^9, {3.843711054640924*^9,
- 3.8437110922400217`*^9}, 3.8437111370774107`*^9, {3.843711214813362*^9,
- 3.84371125686831*^9}, {3.8437145761432467`*^9, 3.843714578908883*^9},
- 3.843734947477396*^9, 3.843734987457467*^9},
- CellLabel->
- "Out[349]=",ExpressionUUID->"1560e838-31e7-482c-8c61-6b82790b3283"]
-}, Open ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"Timing", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"dGd\[Xi]LowList", "[",
- RowBox[{"nAs", ",",
- RowBox[{"h", "[", "0", "]"}]}], "]"}], "[", "6", "]"}], "/",
- RowBox[{"(",
- RowBox[{
- RowBox[{"Range", "[",
- RowBox[{"0", ",", "6"}], "]"}], "!"}], ")"}]}], "//.",
- RowBox[{"rules", "[",
- RowBox[{"h", "[", "0", "]"}], "]"}]}], "/.", "s0"}], "]"}]], "Input",
- CellChangeTimes->{{3.841389858617463*^9, 3.841389864495379*^9}, {
- 3.841390308400168*^9, 3.841390319008019*^9}, {3.842068918729508*^9,
- 3.842068919328607*^9}},
- CellLabel->
- "In[247]:=",ExpressionUUID->"8eab97ea-e359-40c0-9935-fde12f7b604a"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{"0.211381`", ",",
- RowBox[{"{",
- RowBox[{"5.037636974236648`*^-15", ",",
- RowBox[{"-", "1.3578383417065911`"}], ",",
- RowBox[{"-", "0.026337983587361724`"}], ",", "0.007675283648517661`",
- ",",
- RowBox[{"-", "0.003524064392815372`"}], ",", "0.0018900670454341274`",
- ",",
- RowBox[{"-", "0.0011030713997917116`"}]}], "}"}]}], "}"}]], "Output",
- CellChangeTimes->{
- 3.841389868403063*^9, 3.8413899704214067`*^9, 3.841390191376688*^9,
- 3.841390222192317*^9, 3.8413902544921722`*^9, {3.841390296630432*^9,
- 3.841390322266429*^9}, 3.841390481156994*^9, 3.841390578185719*^9,
- 3.841391289835928*^9, 3.8413921581798*^9, 3.841392286032384*^9,
- 3.84139233625907*^9, 3.841463590768024*^9, 3.8414645923911953`*^9,
- 3.84172756896039*^9, 3.8417331294742737`*^9, 3.841826404430285*^9,
- 3.842003424758133*^9, {3.842068914521706*^9, 3.8420689201777153`*^9},
- 3.842330230893139*^9, 3.842330806477663*^9, {3.84233708198837*^9,
- 3.84233708481223*^9}, 3.842350006459215*^9, 3.842422346176568*^9,
- 3.842422817711318*^9, 3.84251812308186*^9, 3.842519915679865*^9,
- 3.842522123426433*^9, 3.842522656068872*^9, 3.8425247258854227`*^9,
- 3.842525663225604*^9, 3.842591168723563*^9, {3.842599197158167*^9,
- 3.842599207599419*^9}, 3.842599360465514*^9, 3.8425998084666023`*^9, {
- 3.842683505512886*^9, 3.842683515139864*^9}, {3.842683972405624*^9,
- 3.842683983377284*^9}, 3.8426846581937027`*^9, 3.842684904465537*^9,
- 3.842686806884112*^9, 3.842687683113398*^9, 3.8426885904206676`*^9,
- 3.8426887543295116`*^9, 3.8426888454660797`*^9, 3.8429396072831182`*^9,
- 3.843290139550982*^9, 3.843710924603498*^9, 3.843711088523991*^9,
- 3.843711138218265*^9, 3.843711257605888*^9, 3.843714579451165*^9},
- CellLabel->
- "Out[247]=",ExpressionUUID->"44b44280-02dd-432c-a93d-a6c18e60d889"]
-}, Open ]],
-
Cell[CellGroupData[{
Cell[BoxData[
@@ -337,17 +94,21 @@ Cell[BoxData[
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"Abs", "[", "Gls", "]"}], ",", "\[IndentingNewLine]",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"Chop", "@",
+ RowBox[{"Abs", "@",
RowBox[{
- RowBox[{"Abs", "[",
+ RowBox[{"dGd\[Xi]LowList", "[",
RowBox[{
- RowBox[{"dGd\[Xi]LowList", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "3", "]"}]}], "]"}], "[", "8", "]"}], "]"}], "//.",
- RowBox[{"rules", "[",
- RowBox[{"h", "[", "3", "]"}], "]"}]}], "/.", "stest"}], "]"}]}],
- "\[IndentingNewLine]", "}"}], "]"}]], "Input",
+ RowBox[{"NFN", "[", "7", "]"}], ",",
+ RowBox[{"HN", "[", "7", "]"}], ",",
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{"rules", "[",
+ RowBox[{"HN", "[", "7", "]"}], "]"}], ",",
+ RowBox[{
+ RowBox[{"SN", "[", "7", "]"}], "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], "[", "13",
+ "]"}]}]}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input",
CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, {
3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9,
3.829128493270048*^9}, {3.8291285364471493`*^9, 3.8291285366627502`*^9}, {
@@ -412,9 +173,12 @@ Cell[BoxData[
3.843732139233203*^9}, {3.843732799750082*^9, 3.8437328493500834`*^9}, {
3.8437330806830597`*^9, 3.843733105226886*^9}, {3.8437333721607237`*^9,
3.843733374624625*^9}, {3.8437351833302603`*^9, 3.84373518371329*^9}, {
- 3.843735347060704*^9, 3.843735363453938*^9}},
+ 3.843735347060704*^9, 3.843735363453938*^9}, {3.843884105824162*^9,
+ 3.843884116384301*^9}, {3.843885471625979*^9, 3.8438854826409693`*^9}, {
+ 3.843895611016502*^9, 3.843895646762692*^9}, {3.843901283826623*^9,
+ 3.843901290602743*^9}},
CellLabel->
- "In[375]:=",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"],
+ "In[154]:=",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"],
Cell[BoxData[
GraphicsBox[{{{
@@ -467,6 +231,16 @@ Cell[BoxData[
StyleBox[{{}, {
LineBox[{{13., 10.747207591575448`}, {13., 10.749355820113736`}}],
LineBox[{{13., 10.749355820113736`}, {13., 10.751499443656988`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{14., 13.005829561148378`}, {14., 13.008074231002201`}}],
+ LineBox[{{14., 13.008074231002201`}, {14., 13.010313873595706`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{15., 15.35237777756354}, {15., 15.354526006101828`}}],
+ LineBox[{{15., 15.354526006101828`}, {15., 15.35666962964508}}]}},
Antialiasing->False]}}, {
{RGBColor[0.368417, 0.506779, 0.709798],
StyleBox[{
@@ -612,6 +386,35 @@ Cell[BoxData[
10.747207591575448`},
Offset[{-3, 0}, {13., 10.747207591575448`}]}}], {{{1., 0.}, {0.,
1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{14., 13.010313873595706`},
+ Offset[{3, 0}, {14., 13.010313873595706`}]}, {{14.,
+ 13.010313873595706`},
+ Offset[{-3, 0}, {14., 13.010313873595706`}]}, {{14.,
+ 13.005829561148378`},
+ Offset[{3, 0}, {14., 13.005829561148378`}]}, {{14.,
+ 13.005829561148378`},
+ Offset[{-3, 0}, {14., 13.005829561148378`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{15., 15.35666962964508},
+ Offset[{3, 0}, {15., 15.35666962964508}]}, {{15.,
+ 15.35666962964508}, Offset[{-3, 0}, {15., 15.35666962964508}]}, {{
+ 15., 15.35237777756354},
+ Offset[{3, 0}, {15., 15.35237777756354}]}, {{15.,
+ 15.35237777756354},
+ Offset[{-3, 0}, {15., 15.35237777756354}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
Antialiasing->False]}}}, {
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
@@ -624,14 +427,17 @@ Cell[BoxData[
13.008074231002201`}, {15., 15.354526006101828`}}]},
{RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
- PointBox[{{2., 0.3058939805973395}, {3., -3.0168887065381007`}, {
- 4., -3.2384753178398777`}, {5., -2.6396229982862995`}, {
- 6., -1.5995614426337927`}, {7., -0.27923626577710925`}, {8.,
- 1.2381495928937638`}, {9., 2.911830858222188}}]}}, {{}, {}}},
+ PointBox[{{2., 0.3058939805971706}, {3., -3.0168887065270606`}, {
+ 4., -3.2476886564569973`}, {5., -2.682936423477142}, {
+ 6., -1.693451732882842}, {7., -0.4167738013600686}, {8.,
+ 1.077615047773819}, {9., 2.7510811302510185`}, {10.,
+ 4.586316016568673}, {11., 6.581917335773754}, {12.,
+ 8.739935900221406}, {13., 11.049198069932453`}, {14.,
+ 13.480441427538558`}}]}}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
- AxesOrigin->{0., -4.703417605114004},
+ AxesOrigin->{0., -4.7035853558213905`},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
@@ -652,7 +458,7 @@ Cell[BoxData[
Part[#, 1]],
Exp[
Part[#, 2]]}& )}},
- PlotRange->{{0., 15.}, {-4.703417605114004, 15.354526006101828`}},
+ PlotRange->{{0., 15.}, {-4.7035853558213905`, 15.35666962964508}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
@@ -737,9 +543,13 @@ Cell[BoxData[
3.843731919344845*^9, 3.843731927535083*^9}, 3.843732141204548*^9,
3.843732851581748*^9, {3.843733102888973*^9, 3.8437331082537203`*^9}, {
3.843733367828533*^9, 3.843733376807994*^9}, 3.8437351861353197`*^9, {
- 3.84373535353183*^9, 3.843735365917848*^9}},
+ 3.84373535353183*^9, 3.843735365917848*^9}, 3.843884118149969*^9,
+ 3.843884181352561*^9, 3.843884286857087*^9, 3.8438844096656847`*^9,
+ 3.8438844413531446`*^9, 3.843885337947896*^9, 3.843893134211335*^9,
+ 3.843895544397488*^9, {3.8438955968230658`*^9, 3.8438956559794064`*^9},
+ 3.843901300625553*^9},
CellLabel->
- "Out[375]=",ExpressionUUID->"b42c1f8b-0961-4720-9780-938a106ee199"]
+ "Out[154]=",ExpressionUUID->"fd0e31c4-3576-413b-be64-c5e2cf272a90"]
}, Open ]],
Cell[CellGroupData[{
@@ -750,30 +560,20 @@ Cell[BoxData[
RowBox[{
RowBox[{"Abs", "[", "Ghs", "]"}], ",", "\[IndentingNewLine]",
RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{"Abs", "@",
- RowBox[{
- RowBox[{"dGd\[Xi]List", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "3", "]"}]}], "]"}], "[",
- RowBox[{"10", ",", "0"}], "]"}]}], "//.",
- RowBox[{"rules", "[",
- RowBox[{"h", "[", "3", "]"}], "]"}]}], "/.", "stest"}], "]"}], ",",
- "\[IndentingNewLine]",
- RowBox[{"Chop", "[",
- RowBox[{
+ RowBox[{"Abs", "@",
RowBox[{
- RowBox[{"Abs", "@",
+ RowBox[{"dGd\[Xi]List", "[",
RowBox[{
- RowBox[{"dGd\[Xi]List", "[",
- RowBox[{"4", ",",
- RowBox[{"h", "[", "2", "]"}]}], "]"}], "[",
- RowBox[{"10", ",", "0"}], "]"}]}], "//.",
- RowBox[{"rules", "[",
- RowBox[{"h", "[", "2", "]"}], "]"}]}], "/.",
- RowBox[{"fitAll2", "[",
- RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]",
+ RowBox[{"NFN", "[", "7", "]"}], ",",
+ RowBox[{"HN", "[", "7", "]"}], ",",
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{"rules", "[",
+ RowBox[{"HN", "[", "7", "]"}], "]"}], ",",
+ RowBox[{
+ RowBox[{"SN", "[", "7", "]"}], "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], "[",
+ RowBox[{"12", ",", "0"}], "]"}]}], "]"}]}], "\[IndentingNewLine]",
"}"}], "]"}]], "Input",
CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, {
3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9,
@@ -835,9 +635,11 @@ Cell[BoxData[
3.843731704281345*^9, 3.843731715745541*^9}, {3.843731932094289*^9,
3.843731944021738*^9}, {3.8437321241374807`*^9, 3.843732132193034*^9}, {
3.843732765588666*^9, 3.843732809901375*^9}, {3.8437333348475018`*^9,
- 3.843733353095563*^9}, {3.8437353722697067`*^9, 3.8437353829251413`*^9}},
+ 3.843733353095563*^9}, {3.8437353722697067`*^9, 3.8437353829251413`*^9}, {
+ 3.843884084968059*^9, 3.843884101159732*^9}, {3.843901316747282*^9,
+ 3.843901351307724*^9}},
CellLabel->
- "In[376]:=",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"],
+ "In[156]:=",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"],
Cell[BoxData[
GraphicsBox[{{{
@@ -860,6 +662,16 @@ Cell[BoxData[
StyleBox[{{}, {
LineBox[{{11., 10.161573447047902`}, {11., 10.161650696951378`}}],
LineBox[{{11., 10.161650696951378`}, {11., 10.161727940887767`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{13., 13.124361380067}, {13., 13.126355398673866`}}],
+ LineBox[{{13., 13.126355398673866`}, {13., 13.128345449081875`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{15., 16.147654453199863`}, {15., 16.1573163641116}}],
+ LineBox[{{15., 16.1573163641116}, {15., 16.166885815127753`}}]}},
Antialiasing->False]}}, {
{RGBColor[0.368417, 0.506779, 0.709798],
StyleBox[{
@@ -917,6 +729,34 @@ Cell[BoxData[
10.161573447047902`},
Offset[{-3, 0}, {11., 10.161573447047902`}]}}], {{{1., 0.}, {0.,
1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{13., 13.128345449081875`},
+ Offset[{3, 0}, {13., 13.128345449081875`}]}, {{13.,
+ 13.128345449081875`},
+ Offset[{-3, 0}, {13., 13.128345449081875`}]}, {{13.,
+ 13.124361380067}, Offset[{3, 0}, {13., 13.124361380067}]}, {{13.,
+ 13.124361380067}, Offset[{-3, 0}, {13., 13.124361380067}]}}], {{{
+ 1., 0.}, {0., 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{15., 16.166885815127753`},
+ Offset[{3, 0}, {15., 16.166885815127753`}]}, {{15.,
+ 16.166885815127753`},
+ Offset[{-3, 0}, {15., 16.166885815127753`}]}, {{15.,
+ 16.147654453199863`},
+ Offset[{3, 0}, {15., 16.147654453199863`}]}, {{15.,
+ 16.147654453199863`},
+ Offset[{-3, 0}, {15., 16.147654453199863`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
Antialiasing->False]}}}, {
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
@@ -926,18 +766,13 @@ Cell[BoxData[
16.1573163641116}}]},
{RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
- PointBox[{{3., 0.6126028894906071}, {5., 2.1109785113895767`}, {7.,
- 4.534176839769846}, {9., 7.255067201410258}, {11.,
- 10.12730531781154}}]},
- {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`],
- AbsoluteThickness[1.6],
- PointBox[{{3., 0.6126028894906262}, {5., 2.1109739099468317`}, {7.,
- 4.534081549695019}, {9., 7.254889801159566}, {11.,
- 10.127122769451875`}}]}}, {{}, {}}},
+ PointBox[{{3., 0.6126028894906607}, {5., 2.120308945169121}, {7.,
+ 4.555653942531499}, {9., 7.285107004801981}, {11.,
+ 10.162827570262268`}, {13., 13.13021428339704}}]}}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
- AxesOrigin->{0., -0.6038591566117528},
+ AxesOrigin->{0., -0.6046080204606867},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
@@ -958,7 +793,7 @@ Cell[BoxData[
Part[#, 1]],
Exp[
Part[#, 2]]}& )}},
- PlotRange->{{0., 15.}, {-0.6038591566117528, 16.1573163641116}},
+ PlotRange->{{0., 15.}, {-0.6046080204606867, 16.166885815127753`}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
@@ -1002,9 +837,12 @@ Cell[BoxData[
CellChangeTimes->{
3.843731944895442*^9, 3.843732133201442*^9, {3.843732782028946*^9,
3.8437328111197443`*^9}, {3.843733350142552*^9, 3.843733354397788*^9},
- 3.843735384793891*^9},
+ 3.843735384793891*^9, 3.84388410198702*^9, 3.8438841824710293`*^9,
+ 3.84388428802978*^9, {3.8438844108126*^9, 3.843884438078618*^9},
+ 3.843885338536109*^9, 3.843893222398693*^9, {3.843901348448614*^9,
+ 3.8439013540855618`*^9}},
CellLabel->
- "Out[376]=",ExpressionUUID->"b1622600-354e-42b3-a170-00c398736669"]
+ "Out[156]=",ExpressionUUID->"c9264244-18b4-4c6b-9045-ac63927b7b1f"]
}, Open ]],
Cell[CellGroupData[{
@@ -1028,7 +866,22 @@ Cell[BoxData[
RowBox[{"HN", "[", "2", "]"}], "]"}]}], "/.",
RowBox[{
RowBox[{"SN", "[", "2", "]"}], "[",
- RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]",
+ RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]",
+ RowBox[{"Chop", "[",
+ RowBox[{"Abs", "@",
+ RowBox[{
+ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "8", "]"}], ",",
+ RowBox[{"HN", "[", "8", "]"}], ",",
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{"rules", "[",
+ RowBox[{"HN", "[", "8", "]"}], "]"}], ",",
+ RowBox[{
+ RowBox[{"SN", "[", "8", "]"}], "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], "[",
+ RowBox[{"11", ",", "1"}], "]"}]}], "]"}]}], "\[IndentingNewLine]",
"}"}], "]"}]], "Input",
CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, {
3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9,
@@ -1094,9 +947,9 @@ Cell[BoxData[
3.843732651570488*^9, 3.843732675242991*^9}, {3.8437330390347557`*^9,
3.843733058330291*^9}, {3.8437353923025923`*^9, 3.84373542030167*^9}, {
3.8437359755682907`*^9, 3.8437360272169533`*^9}, {3.8437361227477913`*^9,
- 3.843736137403366*^9}},
+ 3.843736137403366*^9}, {3.84390136001165*^9, 3.84390146346984*^9}},
CellLabel->
- "In[493]:=",ExpressionUUID->"b80d3f22-eb0b-4407-8e47-23e8047f75de"],
+ "In[162]:=",ExpressionUUID->"b80d3f22-eb0b-4407-8e47-23e8047f75de"],
Cell[BoxData[
GraphicsBox[{{{
@@ -1134,6 +987,16 @@ Cell[BoxData[
StyleBox[{{}, {
LineBox[{{9., -14.959957382976183`}, {9., -14.9568216011655}}],
LineBox[{{9., -14.9568216011655}, {9., -14.953695621752207`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{10., -12.356895535264757`}, {10., -12.354572653848617`}}],
+ LineBox[{{10., -12.354572653848617`}, {10., -12.352255155708255`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{11., -13.13241371325783}, {11., -13.127375919227873`}}],
+ LineBox[{{11., -13.127375919227873`}, {11., -13.122363377404328`}}]}},
Antialiasing->False]}}, {
{RGBColor[0.368417, 0.506779, 0.709798],
StyleBox[{
@@ -1239,6 +1102,36 @@ Cell[BoxData[
9., -14.959957382976183`},
Offset[{-3, 0}, {9., -14.959957382976183`}]}}], {{{1., 0.}, {0.,
1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{10., -12.352255155708255`},
+ Offset[{3, 0}, {10., -12.352255155708255`}]}, {{
+ 10., -12.352255155708255`},
+ Offset[{-3, 0}, {10., -12.352255155708255`}]}, {{
+ 10., -12.356895535264757`},
+ Offset[{3, 0}, {10., -12.356895535264757`}]}, {{
+ 10., -12.356895535264757`},
+ Offset[{-3, 0}, {10., -12.356895535264757`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{11., -13.122363377404328`},
+ Offset[{3, 0}, {11., -13.122363377404328`}]}, {{
+ 11., -13.122363377404328`},
+ Offset[{-3, 0}, {11., -13.122363377404328`}]}, {{
+ 11., -13.13241371325783},
+ Offset[{3, 0}, {11., -13.13241371325783}]}, {{
+ 11., -13.13241371325783},
+ Offset[{-3, 0}, {11., -13.13241371325783}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
Antialiasing->False]}}}, {
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
@@ -1250,14 +1143,22 @@ Cell[BoxData[
11., -13.127375919227873`}}]},
{RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
- PointBox[{{1., 0.1804309238382549}, {2., -1.1431595731894557`}, {
- 3., -2.1992508587114474`}, {4., -4.110117300794899}, {
- 5., -8.526091023048032}, {6., -7.416377554873354}, {
- 7., -8.251371053172717}, {8., -10.231282745437296`}}]}}, {{}, {}}},
+ PointBox[{{1., 0.1791622254565127}, {2., -1.1380209819811473`}, {
+ 3., -2.200237167363314}, {4., -4.026935298114119}, {
+ 5., -6.689492658335067}, {6., -7.348303307111008}, {
+ 7., -7.116099682546296}, {8., -7.902809964074185}}]},
+ {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{1., 0.18044101182175404`}, {2., -1.14327782347157}, {
+ 3., -2.1996989814353403`}, {4., -4.107356260746165}, {
+ 5., -8.333541838075812}, {6., -7.471719578616903}, {
+ 7., -8.273477734475353}, {8., -9.810468903409943}, {
+ 9., -10.666667752115927`}, {10., -10.176532372524312`}, {
+ 11., -10.683248005725693`}, {12., -14.143092200979424`}}]}}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
- AxesOrigin->{0., -16.144778690140278`},
+ AxesOrigin->{0., -16.144779479582237`},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
@@ -1278,7 +1179,7 @@ Cell[BoxData[
Part[#, 1]],
Exp[
Part[#, 2]]}& )}},
- PlotRange->{{0., 11.}, {-16.144778690140278`, 0.1804309238382727}},
+ PlotRange->{{0., 12.}, {-16.144779479582237`, 0.18044101182175404`}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
@@ -1422,309 +1323,13 @@ Cell[BoxData[
3.8437326711436357`*^9, 3.843732679390757*^9}, {3.843733056365028*^9,
3.8437330631925383`*^9}, 3.8437333364732037`*^9, 3.843735425793211*^9, {
3.8437359934634533`*^9, 3.843736031958579*^9}, 3.843736095326563*^9, {
- 3.8437361273437557`*^9, 3.843736163141509*^9}},
+ 3.8437361273437557`*^9, 3.843736163141509*^9}, 3.8438840779383993`*^9,
+ 3.843884184545044*^9, 3.84388429014081*^9, {3.8438844129235086`*^9,
+ 3.8438844356028957`*^9}, 3.8438853400513678`*^9, {3.843893225296072*^9,
+ 3.843893235924965*^9}, {3.843901377690477*^9, 3.843901416429103*^9}, {
+ 3.843901448838873*^9, 3.8439014679825*^9}},
CellLabel->
- "Out[493]=",ExpressionUUID->"51d9ee8e-4cc3-4bcc-b254-f53467cac03f"]
-}, Open ]],
-
-Cell[BoxData[""], "Input",
- CellChangeTimes->{{3.8437147274261427`*^9, 3.843714729922184*^9}, {
- 3.843715541673305*^9, 3.843715549689198*^9},
- 3.843732919183404*^9},ExpressionUUID->"c6e9f8ad-3b09-4a82-be20-\
-5c15306095f7"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"fitAll", "=",
- RowBox[{"annealFit", "[",
- RowBox[{
- RowBox[{
- RowBox[{"resAll", "[",
- RowBox[{"3", ",",
- RowBox[{"h", "[", "2", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "6"}]]}], "]"}], "[", "2", "]"}], ",",
- RowBox[{"Join", "[",
- RowBox[{
- RowBox[{"S", "[", "2", "]"}], ",",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- RowBox[{"gC", "[", "1", "]"}], "->", "0"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "->", "0"}], ",",
- RowBox[{
- RowBox[{"A", "[", "3", "]"}], "->", "0"}]}], "}"}]}], "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "3"}]]}], "]"}]}]], "Input",
- CellChangeTimes->{{3.84146414095971*^9, 3.841464175798479*^9}, {
- 3.841464380993734*^9, 3.841464386312539*^9}, {3.841464731456504*^9,
- 3.8414647327580833`*^9}, {3.8414659180452547`*^9, 3.841465925914133*^9}, {
- 3.8417325952371683`*^9, 3.841732596483498*^9}, {3.8417326274288807`*^9,
- 3.841732641972403*^9}, 3.841732857201058*^9, 3.8418264400423203`*^9, {
- 3.841994521950222*^9, 3.841994537926578*^9}, {3.841994622633304*^9,
- 3.8419946862012978`*^9}, {3.841994769452505*^9, 3.841994815043598*^9}, {
- 3.841995234420775*^9, 3.841995234498967*^9}, {3.841996465180764*^9,
- 3.8419964772179747`*^9}, {3.841996717281023*^9, 3.841996742630658*^9}, {
- 3.842071313310508*^9, 3.84207131621989*^9}, {3.84207758447983*^9,
- 3.842077584949933*^9}, {3.842330409754711*^9, 3.8423304192747793`*^9}, {
- 3.842330498373253*^9, 3.8423305020442667`*^9}, {3.8423308149171867`*^9,
- 3.842330815562167*^9}, {3.842525668337566*^9, 3.842525670440715*^9}, {
- 3.8425258552453413`*^9, 3.842525869365773*^9}, {3.842683991508649*^9,
- 3.842683999547966*^9}, {3.842684095430543*^9, 3.84268409678189*^9}, {
- 3.84268455503272*^9, 3.842684577822506*^9}, {3.8426846796264467`*^9,
- 3.842684704913135*^9}, {3.842684931758143*^9, 3.8426849338609467`*^9}, {
- 3.842686812243655*^9, 3.8426868223997726`*^9}, {3.84268885110296*^9,
- 3.842688851597097*^9}, {3.843711321179616*^9, 3.843711330499958*^9},
- 3.843711795060121*^9, 3.8437127075816717`*^9, {3.843731528382538*^9,
- 3.8437316312569847`*^9}, {3.843731661690056*^9, 3.84373168751271*^9}, {
- 3.8437318811822147`*^9, 3.843731885100402*^9}, {3.8437320829294043`*^9,
- 3.843732094712236*^9}, {3.84373360678996*^9, 3.8437336094441233`*^9}, {
- 3.843735549992126*^9,
- 3.843735550640082*^9}},ExpressionUUID->"d7e7fb71-cf24-4ff4-8b55-\
-30964f0ae08c"],
-
-Cell[BoxData[
- TemplateBox[{
- "General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\
-\"-\\\", \\\"4.1858935277736344`*^-308\\\"}], \\\")\\\"}]}]\\) is too small \
-to represent as a normalized machine number; precision may be lost.\"", 2,
- 129, 62, 31652614240606783354, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{
- 3.8437316951968307`*^9, 3.843731886697137*^9, {3.843732072706987*^9,
- 3.843732096949669*^9}},
- CellLabel->
- "During evaluation of \
-In[129]:=",ExpressionUUID->"878453de-b9da-4a3e-bff5-d563e58c984a"],
-
-Cell[BoxData[
- TemplateBox[{
- "General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\
-\"-\\\", \\\"2.9645920442127316`*^-308\\\"}], \\\")\\\"}]}]\\) is too small \
-to represent as a normalized machine number; precision may be lost.\"", 2,
- 129, 63, 31652614240606783354, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{
- 3.8437316951968307`*^9, 3.843731886697137*^9, {3.843732072706987*^9,
- 3.843732096973472*^9}},
- CellLabel->
- "During evaluation of \
-In[129]:=",ExpressionUUID->"543aa25e-0c46-4263-8219-3c42c63c6826"],
-
-Cell[BoxData[
- TemplateBox[{
- "General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\
-\"-\\\", \\\"6.695025678091192`*^-308\\\"}], \\\")\\\"}]}]\\) is too small to \
-represent as a normalized machine number; precision may be lost.\"", 2, 129,
- 64, 31652614240606783354, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{
- 3.8437316951968307`*^9, 3.843731886697137*^9, {3.843732072706987*^9,
- 3.843732097001243*^9}},
- CellLabel->
- "During evaluation of \
-In[129]:=",ExpressionUUID->"a91008f4-a66c-4e00-9a19-3c8c337ea4fd"],
-
-Cell[BoxData[
- TemplateBox[{
- "General", "stop",
- "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
-\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
-during this calculation.\"", 2, 129, 65, 31652614240606783354, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{
- 3.8437316951968307`*^9, 3.843731886697137*^9, {3.843732072706987*^9,
- 3.8437320970082817`*^9}},
- CellLabel->
- "During evaluation of \
-In[129]:=",ExpressionUUID->"708ce0ba-7451-4a83-9278-29373ec439a0"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{"1.2580955145296386`*^-13", ",",
- RowBox[{"{",
- RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.302836109592777`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.1987592734154995`"}], ",",
- RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.335847766805377`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.4300080645469722`"}], ",",
- RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3632847825432361`"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.020867396609041706`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.034469731500416545`"}],
- ",",
- RowBox[{
- RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.001040801613933242`"}], ",",
- RowBox[{
- RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.010730818105775974`"}]}],
- "}"}]}], "}"}]], "Output",
- CellChangeTimes->{
- 3.8419964785762787`*^9, 3.84199677282102*^9, 3.84200344191339*^9,
- 3.84206895108984*^9, {3.8420710602360163`*^9, 3.842071111430875*^9},
- 3.8420712659210167`*^9, 3.842071317704265*^9, 3.842077585540234*^9,
- 3.842330421912195*^9, 3.8423305030734386`*^9, 3.84233082141175*^9,
- 3.8423370988960533`*^9, 3.8423500263699703`*^9, 3.84242235980014*^9,
- 3.842422829133266*^9, 3.8425181316804523`*^9, 3.84251817373398*^9,
- 3.842518313713923*^9, 3.842518651369175*^9, 3.842519792420923*^9, {
- 3.8425199179520893`*^9, 3.842519947097322*^9}, 3.84252003513834*^9,
- 3.8425221251919127`*^9, 3.8425222574690847`*^9, 3.8425226580365667`*^9,
- 3.84252472721786*^9, {3.842525852462645*^9, 3.84252587069119*^9},
- 3.842591048051862*^9, 3.842591092929531*^9, 3.842591150283875*^9, {
- 3.842591243590889*^9, 3.842591250853861*^9}, {3.842591292002294*^9,
- 3.8425913208009033`*^9}, 3.842591408956765*^9, 3.84259595244488*^9,
- 3.8425999147321863`*^9, 3.842599955499799*^9, {3.8426835078997917`*^9,
- 3.842683518420891*^9}, 3.8426840067914743`*^9, 3.8426840975914927`*^9, {
- 3.8426845781892967`*^9, 3.842684580099658*^9}, {3.842684660142858*^9,
- 3.842684705525476*^9}, 3.8426848229599752`*^9, 3.842684854404305*^9, {
- 3.842684909579274*^9, 3.84268497329652*^9}, {3.8426868092581167`*^9,
- 3.842686823124484*^9}, {3.842687689463532*^9, 3.842687712290174*^9},
- 3.8426885921980677`*^9, 3.842688763237523*^9, {3.8426888478907022`*^9,
- 3.842688852144611*^9}, 3.8429396094976053`*^9, 3.843710928047863*^9,
- 3.8437112705860643`*^9, {3.843711327962545*^9, 3.8437113308029823`*^9}, {
- 3.8437113701595163`*^9, 3.843711395150468*^9}, {3.843711795328362*^9,
- 3.843711798494534*^9}, 3.8437123767819366`*^9, 3.843712708682995*^9,
- 3.843714601870726*^9, 3.843715528619041*^9, 3.843720957205656*^9, {
- 3.843731550932982*^9, 3.843731633333198*^9}, {3.8437316648072653`*^9,
- 3.84373169535324*^9}, 3.843731886834847*^9, {3.843732072928688*^9,
- 3.84373209712532*^9}},
- CellLabel->
- "Out[129]=",ExpressionUUID->"23be90ec-d684-4f05-9496-222b14c870b4"]
-}, Open ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"fitAll2", "=",
- RowBox[{"annealFit", "[",
- RowBox[{
- RowBox[{
- RowBox[{"resAll", "[",
- RowBox[{"4", ",",
- RowBox[{"h", "[", "2", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "12"}]]}], "]"}], "[", "2", "]"}], ",",
- RowBox[{"fitAll", "[",
- RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input",
- CellChangeTimes->{{3.84146414095971*^9, 3.841464175798479*^9}, {
- 3.841464380993734*^9, 3.841464386312539*^9}, {3.841464731456504*^9,
- 3.8414647327580833`*^9}, {3.8414659180452547`*^9, 3.841465925914133*^9}, {
- 3.8417325952371683`*^9, 3.841732596483498*^9}, {3.8417326274288807`*^9,
- 3.841732641972403*^9}, 3.841732857201058*^9, 3.8418264400423203`*^9, {
- 3.841994521950222*^9, 3.841994537926578*^9}, {3.841994622633304*^9,
- 3.8419946862012978`*^9}, {3.841994769452505*^9, 3.841994815043598*^9}, {
- 3.841995234420775*^9, 3.841995234498967*^9}, {3.841996465180764*^9,
- 3.8419964772179747`*^9}, {3.841996717281023*^9, 3.841996742630658*^9}, {
- 3.842071313310508*^9, 3.84207131621989*^9}, {3.84207758447983*^9,
- 3.842077584949933*^9}, {3.842330409754711*^9, 3.8423304192747793`*^9}, {
- 3.842330498373253*^9, 3.8423305020442667`*^9}, {3.8423308149171867`*^9,
- 3.842330815562167*^9}, {3.842525668337566*^9, 3.842525670440715*^9}, {
- 3.8425258552453413`*^9, 3.842525869365773*^9}, {3.842683991508649*^9,
- 3.842683999547966*^9}, {3.842684095430543*^9, 3.84268409678189*^9}, {
- 3.84268455503272*^9, 3.842684577822506*^9}, {3.8426846796264467`*^9,
- 3.842684704913135*^9}, {3.842684931758143*^9, 3.8426849338609467`*^9}, {
- 3.842686812243655*^9, 3.8426868223997726`*^9}, {3.84268885110296*^9,
- 3.842688851597097*^9}, {3.843711321179616*^9, 3.843711330499958*^9},
- 3.843711795060121*^9, 3.8437127075816717`*^9, {3.843731528382538*^9,
- 3.843731668192461*^9}, {3.843731889285021*^9, 3.8437318894046297`*^9}, {
- 3.843732026343978*^9, 3.8437320623436623`*^9}, {3.843732100961691*^9,
- 3.843732102920307*^9}},
- CellLabel->
- "In[131]:=",ExpressionUUID->"71729ee5-357f-4cce-b306-ed7f0fd8693f"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{"0.12411347469294128`", ",",
- RowBox[{"{",
- RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.302836109592777`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19875927341549948`"}], ",",
- RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.335847766805377`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.4300080645469722`"}], ",",
- RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.36328478254323604`"}], ",",
-
- RowBox[{
- RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.020867396609041893`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.03446973150041644`"}], ",",
- RowBox[{
- RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.001040801613933203`"}], ",",
- RowBox[{
- RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.010730818105775952`"}]}],
- "}"}]}], "}"}]], "Output",
- CellChangeTimes->{
- 3.8419964785762787`*^9, 3.84199677282102*^9, 3.84200344191339*^9,
- 3.84206895108984*^9, {3.8420710602360163`*^9, 3.842071111430875*^9},
- 3.8420712659210167`*^9, 3.842071317704265*^9, 3.842077585540234*^9,
- 3.842330421912195*^9, 3.8423305030734386`*^9, 3.84233082141175*^9,
- 3.8423370988960533`*^9, 3.8423500263699703`*^9, 3.84242235980014*^9,
- 3.842422829133266*^9, 3.8425181316804523`*^9, 3.84251817373398*^9,
- 3.842518313713923*^9, 3.842518651369175*^9, 3.842519792420923*^9, {
- 3.8425199179520893`*^9, 3.842519947097322*^9}, 3.84252003513834*^9,
- 3.8425221251919127`*^9, 3.8425222574690847`*^9, 3.8425226580365667`*^9,
- 3.84252472721786*^9, {3.842525852462645*^9, 3.84252587069119*^9},
- 3.842591048051862*^9, 3.842591092929531*^9, 3.842591150283875*^9, {
- 3.842591243590889*^9, 3.842591250853861*^9}, {3.842591292002294*^9,
- 3.8425913208009033`*^9}, 3.842591408956765*^9, 3.84259595244488*^9,
- 3.8425999147321863`*^9, 3.842599955499799*^9, {3.8426835078997917`*^9,
- 3.842683518420891*^9}, 3.8426840067914743`*^9, 3.8426840975914927`*^9, {
- 3.8426845781892967`*^9, 3.842684580099658*^9}, {3.842684660142858*^9,
- 3.842684705525476*^9}, 3.8426848229599752`*^9, 3.842684854404305*^9, {
- 3.842684909579274*^9, 3.84268497329652*^9}, {3.8426868092581167`*^9,
- 3.842686823124484*^9}, {3.842687689463532*^9, 3.842687712290174*^9},
- 3.8426885921980677`*^9, 3.842688763237523*^9, {3.8426888478907022`*^9,
- 3.842688852144611*^9}, 3.8429396094976053`*^9, 3.843710928047863*^9,
- 3.8437112705860643`*^9, {3.843711327962545*^9, 3.8437113308029823`*^9}, {
- 3.8437113701595163`*^9, 3.843711395150468*^9}, {3.843711795328362*^9,
- 3.843711798494534*^9}, 3.8437123767819366`*^9, 3.843712708682995*^9,
- 3.843714601870726*^9, 3.843715528619041*^9, 3.843720957205656*^9, {
- 3.843731550932982*^9, 3.8437316958635607`*^9}, 3.843731890371482*^9, {
- 3.843732027598762*^9, 3.843732063336987*^9}, {3.843732104975114*^9,
- 3.843732106094247*^9}},
- CellLabel->
- "Out[131]=",ExpressionUUID->"4b914b17-9403-41a8-939a-2d765b5354c6"]
-}, Open ]],
-
-Cell[BoxData[
- RowBox[{"\[Theta]c", ":=",
- RowBox[{"7", "/", "5"}]}]], "Input",
- CellChangeTimes->{{3.843735830626322*^9, 3.843735842389235*^9}},
- CellLabel->
- "In[401]:=",ExpressionUUID->"7ef8ee62-41a4-45fa-8dac-fae83c979244"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"Solve", "[",
- RowBox[{
- RowBox[{
- RowBox[{"0", "==",
- RowBox[{"rule\[Theta]0", "[",
- RowBox[{"h", "[", "0", "]"}], "]"}]}], "/.",
- RowBox[{
- RowBox[{"gC", "[", "0", "]"}], "->", "1"}]}], ",", "\[Theta]0"}],
- "]"}]], "Input",
- CellChangeTimes->{{3.843736736576861*^9, 3.843736780670817*^9}},
- CellLabel->
- "In[666]:=",ExpressionUUID->"9a00ab65-b447-44be-a4e3-b4d39b092b44"],
-
-Cell[BoxData["$Aborted"], "Output",
- CellChangeTimes->{{3.8437367406219463`*^9, 3.843736793523494*^9}},
- CellLabel->
- "Out[666]=",ExpressionUUID->"2666b194-e53c-4199-bac1-60cb3cc85756"]
+ "Out[162]=",ExpressionUUID->"038f4708-742c-4509-a5bf-780abe3ef8e7"]
}, Open ]],
Cell[CellGroupData[{
@@ -1732,29 +1337,51 @@ Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
- RowBox[{"NFN", "[", "2", "]"}], "=", "3"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"NFN", "[", "2", "]"}], "=", "2"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"HN", "[", "2", "]"}], "=",
- RowBox[{"h", "[", "0", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"h", "[", "1", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"SN", "[", "2", "]"}], "=",
RowBox[{"annealFit", "[",
RowBox[{
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{
- RowBox[{"NFN", "[", "2", "]"}], ",",
- RowBox[{"HN", "[", "2", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "6"}]]}], "]"}], "[", "2", "]"}], ",",
RowBox[{"Join", "[",
RowBox[{
- RowBox[{"Rest", "[",
- RowBox[{"S", "[", "2", "]"}], "]"}], ",",
- RowBox[{"{",
+ RowBox[{
+ RowBox[{"resAll", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "2", "]"}], ",",
+ RowBox[{"HN", "[", "2", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "5"}]]}], "]"}], "[", "2", "]"}], ",",
+ RowBox[{"Table", "[",
RowBox[{
- RowBox[{"A", "[", "3", "]"}], "->", "0"}], "}"}]}], "]"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"NFN", "[", "2", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "1"}], "}"}]}], "]"}]}], "]"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "->", "1.2"}], ",",
+ RowBox[{"\[Theta]0", "->", "0.2"}], ",",
+ RowBox[{"AH", "->",
+ RowBox[{"-", "2.5"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "->", "1"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "->", "0"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "->", "0"}]}], "}"}], ",",
SuperscriptBox["10",
RowBox[{"-", "1"}]]}], "]"}]}]}], "Input",
CellChangeTimes->{{3.84146414095971*^9, 3.841464175798479*^9}, {
@@ -1783,34 +1410,46 @@ Cell[BoxData[{
3.843735852590043*^9, 3.8437358557816*^9}, {3.8437359199919024`*^9,
3.8437359408157*^9}, {3.843736062850573*^9, 3.843736085425962*^9}, {
3.8437361472843533`*^9, 3.843736157467476*^9}, {3.843736557699114*^9,
- 3.843736564149287*^9}},
- CellLabel->
- "In[597]:=",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"],
+ 3.843736564149287*^9}, {3.843816585893599*^9, 3.843816749357264*^9}, {
+ 3.84381681012845*^9, 3.843816813877954*^9}, {3.843816865297563*^9,
+ 3.8438168874641657`*^9}, {3.84381694376405*^9, 3.843816968163871*^9}, {
+ 3.843817025317315*^9, 3.843817045548901*^9}, {3.843817102904263*^9,
+ 3.843817116262903*^9}, {3.843884013750815*^9, 3.843884064543535*^9}, {
+ 3.8438841558666353`*^9, 3.843884166337309*^9}, {3.8438842360351267`*^9,
+ 3.843884278063159*^9}, {3.8438843190620737`*^9, 3.843884330140307*^9}, {
+ 3.843884391590458*^9, 3.8438844521906443`*^9}, {3.843893099389781*^9,
+ 3.8438931001718616`*^9}, {3.843895688269582*^9, 3.843895688923799*^9}, {
+ 3.8438991895486917`*^9, 3.843899252351191*^9}},
+ CellLabel->"In[6]:=",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"],
Cell[BoxData[
RowBox[{"{",
- RowBox[{"3.4968103047327845`*^-15", ",",
+ RowBox[{"3.164885631650109`", ",",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]0", "\[Rule]", "0.19609644617745897`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.2218190647119276`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.1981515261044843`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.1211395147593324`"}]}], ",",
+ RowBox[{"-", "2.3933801431845954`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.1248785679585636`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5218210757148685`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3655857056170356`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4558675349680261`"}], ",",
RowBox[{
- RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.005418506300095735`"}]}],
- "}"}]}], "}"}]], "Output",
- CellChangeTimes->{{3.843732981914864*^9, 3.8437329882826242`*^9}, {
- 3.8437333059812737`*^9, 3.843733324512714*^9}, {3.84373363581549*^9,
- 3.8437336632854357`*^9}, {3.843734881094233*^9, 3.8437348854701443`*^9}, {
- 3.843735639466529*^9, 3.8437356494943047`*^9}, 3.8437357854817543`*^9, {
- 3.843735856691206*^9, 3.843735872164836*^9}, {3.8437359238766203`*^9,
- 3.8437359572880707`*^9}, {3.843736069203878*^9, 3.843736085922205*^9},
- 3.843736157758947*^9, {3.843736564372109*^9, 3.843736577172632*^9}},
- CellLabel->
- "Out[599]=",ExpressionUUID->"a41954f4-33ee-4255-936e-409c32471613"]
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.014069612364099534`"}]}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.843816627981923*^9, 3.8438166906843433`*^9}, {
+ 3.843816728221302*^9, 3.843816890387457*^9}, {3.843816954497418*^9,
+ 3.843816977126855*^9}, {3.843817045845647*^9, 3.84381704833007*^9}, {
+ 3.843817103558065*^9, 3.843817133026416*^9}, 3.843817413883254*^9, {
+ 3.843884023645589*^9, 3.8438840692235317`*^9}, {3.843884151832285*^9,
+ 3.843884191391594*^9}, {3.8438842585423822`*^9, 3.8438843409205914`*^9}, {
+ 3.8438843986532393`*^9, 3.8438844534041224`*^9}, {3.843885269735812*^9,
+ 3.8438852775933657`*^9}, {3.8438930922316732`*^9, 3.843893113567326*^9},
+ 3.843893232171549*^9, {3.843895660940199*^9, 3.843895691702873*^9}, {
+ 3.843897137547141*^9, 3.843897142383761*^9}, {3.843899197736055*^9,
+ 3.8438992559841423`*^9}, 3.843901920619899*^9},
+ CellLabel->"Out[8]=",ExpressionUUID->"25c2add9-9dfd-4b3a-b5ac-e3f767f84a88"]
}, Open ]],
Cell[CellGroupData[{
@@ -1820,45 +1459,58 @@ Cell[BoxData[
RowBox[{"SN", "[", "2", "]"}], "=",
RowBox[{"annealFit", "[",
RowBox[{
- RowBox[{
- RowBox[{"res", "[",
+ RowBox[{"Join", "[",
+ RowBox[{
RowBox[{
- RowBox[{"NFN", "[", "2", "]"}], ",",
- RowBox[{"HN", "[", "2", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "12"}]]}], "]"}], "[", "2", "]"}], ",",
+ RowBox[{"resAll", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "2", "]"}], ",",
+ RowBox[{"HN", "[", "2", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "10"}]]}], "]"}], "[", "2", "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"A", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"NFN", "[", "2", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "1"}], "}"}]}], "]"}]}], "]"}], ",",
RowBox[{
RowBox[{"SN", "[", "2", "]"}], "[",
RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input",
- CellChangeTimes->{{3.843732998625887*^9, 3.84373302598542*^9},
- 3.84373577017391*^9, {3.843736583835957*^9, 3.8437365929314117`*^9}},
- CellLabel->
- "In[603]:=",ExpressionUUID->"3515a135-edc1-4f4f-8610-378ace64a9b7"],
+ CellChangeTimes->{{3.8438934053618307`*^9, 3.843893413441764*^9}, {
+ 3.843899229877779*^9, 3.8438992597272253`*^9}},
+ CellLabel->"In[9]:=",ExpressionUUID->"9acf3167-ed91-4bdd-8d54-9d984831fbe8"],
Cell[BoxData[
RowBox[{"{",
- RowBox[{"0.030476295143843007`", ",",
+ RowBox[{"3.1648867747359133`", ",",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]0", "\[Rule]", "0.18517435929014825`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.221819066848114`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19815153122696594`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "1.9880131518478075`"}]}], ",",
+ RowBox[{"-", "2.3933801566389947`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "0.9889222726604562`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5218210670748642`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3808085976189584`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4558675458265395`"}], ",",
RowBox[{
- RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.0035050672916264462`"}]}],
- "}"}]}], "}"}]], "Output",
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.014069600755783175`"}]}]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{
- 3.8437330276683073`*^9, {3.843733311252123*^9, 3.84373332657629*^9},
- 3.843733666357335*^9, {3.84373488164362*^9, 3.843734886021062*^9}, {
- 3.843735642252029*^9, 3.8437356500663357`*^9}, 3.843735874931855*^9, {
- 3.8437359459645233`*^9, 3.8437359584464903`*^9}, {3.84373607611525*^9,
- 3.8437360868113317`*^9}, 3.843736160502068*^9, {3.8437365709654503`*^9,
- 3.843736595578948*^9}},
- CellLabel->
- "Out[603]=",ExpressionUUID->"1930b4b2-6535-4d94-8958-2ad399c4c17b"]
+ 3.843893413830318*^9, {3.8438956969492483`*^9, 3.8438956994043627`*^9},
+ 3.843897142565444*^9, {3.843899225556612*^9, 3.84389926027955*^9},
+ 3.843901920824957*^9},
+ CellLabel->"Out[9]=",ExpressionUUID->"b059d7c9-8735-422e-bae9-b5aebf0ffb94"]
}, Open ]],
Cell[CellGroupData[{
@@ -1866,22 +1518,39 @@ Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
- RowBox[{"NFN", "[", "3", "]"}], "=", "4"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"NFN", "[", "3", "]"}], "=", "2"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"HN", "[", "3", "]"}], "=",
- RowBox[{"h", "[", "0", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"h", "[", "2", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"SN", "[", "3", "]"}], "=",
RowBox[{"annealFit", "[",
RowBox[{
- RowBox[{
- RowBox[{"res", "[",
+ RowBox[{"Join", "[",
+ RowBox[{
RowBox[{
- RowBox[{"NFN", "[", "3", "]"}], ",",
- RowBox[{"HN", "[", "3", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "6"}]]}], "]"}], "[", "3", "]"}], ",",
+ RowBox[{"resAll", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "3", "]"}], ",",
+ RowBox[{"HN", "[", "3", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "6"}]]}], "]"}], "[", "3", "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"A", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"NFN", "[", "3", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "]"}], ",",
RowBox[{"Join", "[",
RowBox[{
RowBox[{
@@ -1889,7 +1558,7 @@ Cell[BoxData[{
RowBox[{"[", "2", "]"}], "]"}], ",",
RowBox[{"{",
RowBox[{
- RowBox[{"A", "[", "4", "]"}], "->", "0"}], "}"}]}], "]"}], ",",
+ RowBox[{"gC", "[", "2", "]"}], "->", "0"}], "}"}]}], "]"}], ",",
SuperscriptBox["10",
RowBox[{"-", "2"}]]}], "]"}]}]}], "Input",
CellChangeTimes->{{3.8414646994225616`*^9, 3.841464738150351*^9}, {
@@ -1913,63 +1582,36 @@ Cell[BoxData[{
3.843733418064506*^9}, {3.8437336711110983`*^9, 3.843733743222622*^9}, {
3.843733867081066*^9, 3.843733872992916*^9}, {3.843735890984241*^9,
3.843735896262557*^9}, {3.8437361764852953`*^9, 3.843736235604746*^9}, {
- 3.843736600964464*^9, 3.843736610147759*^9}},
- CellLabel->
- "In[612]:=",ExpressionUUID->"29398383-9203-4cf6-aabb-1d3fe15a5894"],
+ 3.843736600964464*^9, 3.843736610147759*^9}, {3.8438171387678347`*^9,
+ 3.843817170088531*^9}, {3.843884129616662*^9, 3.843884142577023*^9}, {
+ 3.843884461862664*^9, 3.8438844756629963`*^9}, {3.843884685619783*^9,
+ 3.843884686098906*^9}, {3.8438957098039637`*^9, 3.843895711468151*^9},
+ 3.843895754605989*^9, {3.843899267550132*^9, 3.843899275133893*^9}},
+ CellLabel->"In[10]:=",ExpressionUUID->"f3f44ab5-ab9d-423b-af35-070d428c3a9d"],
Cell[BoxData[
RowBox[{"{",
- RowBox[{"1.8361256843554485`*^-14", ",",
+ RowBox[{"11.751113957916967`", ",",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]0", "\[Rule]", "0.18470627754897062`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.331282903835563`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.1990484038713263`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "1.9832614028098186`"}]}], ",",
+ RowBox[{"-", "2.2569952677267766`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "0.9844223578152484`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3076667536459903`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.38084744043029206`"}], ",",
-
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3961569989930734`"}], ",",
RowBox[{
- RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.0036887681034081243`"}],
- ",",
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.014413534782357226`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "4", "]"}], "\[Rule]",
- RowBox[{"-", "0.000042419697328186556`"}]}]}], "}"}]}], "}"}]], "Output",\
-
- CellChangeTimes->{{3.841464725026127*^9, 3.8414647403021297`*^9},
- 3.8414661034706583`*^9, 3.841466164507646*^9, 3.8417276199972258`*^9,
- 3.841733575639007*^9, 3.8417351199137087`*^9, 3.841826723584857*^9,
- 3.841995253003222*^9, 3.841995358247252*^9, 3.841996554233857*^9,
- 3.841996896776102*^9, 3.842003892988432*^9, 3.842069102769897*^9,
- 3.8420711153992767`*^9, 3.842071270954679*^9, 3.8420776854500017`*^9,
- 3.8420782329786*^9, 3.842330904607053*^9, 3.84233094745854*^9,
- 3.842337102662011*^9, 3.8423500295150013`*^9, 3.842422362900515*^9,
- 3.8424228372702703`*^9, 3.842518658238249*^9, 3.842520047625738*^9,
- 3.842522126433864*^9, 3.842522663606366*^9, 3.842524735833218*^9,
- 3.842525876494433*^9, 3.8425915016722918`*^9, {3.8425915368159523`*^9,
- 3.842591547364382*^9}, 3.842595960310871*^9, {3.842599925468082*^9,
- 3.842599949966288*^9}, {3.842683508766377*^9, 3.842683527962514*^9}, {
- 3.842684016801947*^9, 3.84268412525108*^9}, 3.842684582284058*^9, {
- 3.842684708352618*^9, 3.8426847492818947`*^9}, {3.8426849138654833`*^9,
- 3.842684927173637*^9}, {3.8426849813312817`*^9, 3.842684998324686*^9}, {
- 3.842685099973398*^9, 3.842685109300309*^9}, 3.842686834534837*^9,
- 3.842687716609871*^9, {3.8426887766092243`*^9, 3.842688779723242*^9},
- 3.842688813081666*^9, 3.84268885793502*^9, 3.8429396116125317`*^9,
- 3.8437109286899443`*^9, 3.843711292955374*^9, 3.84371133501194*^9, {
- 3.843711393608118*^9, 3.8437113965945587`*^9}, 3.843711802176591*^9, {
- 3.843712109537891*^9, 3.843712149727068*^9}, {3.843712180346582*^9,
- 3.843712198533038*^9}, {3.843712288811365*^9, 3.8437123247202797`*^9}, {
- 3.843712379380515*^9, 3.843712400446784*^9}, {3.843712712875577*^9,
- 3.8437127350372334`*^9}, 3.8437146132757397`*^9, 3.843714736784836*^9, {
- 3.843715529436762*^9, 3.843715557192747*^9}, 3.843720975619553*^9, {
- 3.843733159681653*^9, 3.843733277377586*^9}, {3.843733397152657*^9,
- 3.843733424004898*^9}, {3.843733677256922*^9, 3.843733746284148*^9},
- 3.843733874409992*^9, {3.8437339150865383`*^9, 3.843733924267795*^9}, {
- 3.843735882959608*^9, 3.843735902470063*^9}, {3.843736194480228*^9,
- 3.843736236088088*^9}, {3.843736610939752*^9, 3.843736633436749*^9}},
- CellLabel->
- "Out[614]=",ExpressionUUID->"6a6bc5ce-5b34-459f-a22c-941737cf0565"]
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.00023300168594435792`"}]}]}], "}"}]}], "}"}]], "Output",\
+
+ CellChangeTimes->{{3.84389571331374*^9, 3.843895757465501*^9},
+ 3.843897147702183*^9, 3.843899287874754*^9, 3.843901921642076*^9},
+ CellLabel->"Out[12]=",ExpressionUUID->"adca116b-4344-4f24-a113-50dc12d9cdc0"]
}, Open ]],
Cell[CellGroupData[{
@@ -1979,103 +1621,111 @@ Cell[BoxData[
RowBox[{"SN", "[", "3", "]"}], "=",
RowBox[{"annealFit", "[",
RowBox[{
- RowBox[{
- RowBox[{"res", "[",
+ RowBox[{"Join", "[",
+ RowBox[{
RowBox[{
- RowBox[{"NFN", "[", "3", "]"}], ",",
- RowBox[{"HN", "[", "3", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "12"}]]}], "]"}], "[", "3", "]"}], ",",
+ RowBox[{"resAll", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "3", "]"}], ",",
+ RowBox[{"HN", "[", "3", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "10"}]]}], "]"}], "[", "3", "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"A", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"NFN", "[", "3", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "]"}], ",",
RowBox[{
RowBox[{"SN", "[", "3", "]"}], "[",
- RowBox[{"[", "2", "]"}], "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "3"}]]}], "]"}]}]], "Input",
- CellChangeTimes->{{3.843733424825795*^9, 3.84373344235317*^9}, {
- 3.843733890034122*^9, 3.843733909569607*^9}, {3.843736626780848*^9,
- 3.843736631204155*^9}},
- CellLabel->
- "In[615]:=",ExpressionUUID->"85da52aa-1039-4e9e-bfb7-957631df3f51"],
+ RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.8438957274767113`*^9, 3.843895737580668*^9}},
+ CellLabel->"In[13]:=",ExpressionUUID->"fbfe9aac-852b-4f12-afa8-eefd1a141395"],
Cell[BoxData[
TemplateBox[{
"General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \
-\\\"1.758853488707864`*^-307\\\"}]\\) is too small to represent as a \
-normalized machine number; precision may be lost.\"", 2, 615, 333,
- 31652614240606783354, "Local"},
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\
+\"-\\\", \\\"1.383581283132903`*^-307\\\"}], \\\")\\\"}]}]\\) is too small to \
+represent as a normalized machine number; precision may be lost.\"", 2, 13, 1,
+ 31653754106501107189, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{
- 3.8437362400836897`*^9, {3.843736627729396*^9, 3.843736633993026*^9}},
+ CellChangeTimes->{3.843901922592671*^9},
CellLabel->
"During evaluation of \
-In[615]:=",ExpressionUUID->"2fe14a28-35b5-494c-b582-a29acfb73210"],
+In[13]:=",ExpressionUUID->"e11549f0-1f54-41a7-8da7-7bf815c07d68"],
Cell[BoxData[
TemplateBox[{
"General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"8.79426744353932`*^-308\\\
-\"}]\\) is too small to represent as a normalized machine number; precision \
-may be lost.\"", 2, 615, 334, 31652614240606783354, "Local"},
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\
+\"-\\\", \\\"6.917906415664515`*^-308\\\"}], \\\")\\\"}]}]\\) is too small to \
+represent as a normalized machine number; precision may be lost.\"", 2, 13, 2,
+ 31653754106501107189, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{
- 3.8437362400836897`*^9, {3.843736627729396*^9, 3.843736634018302*^9}},
+ CellChangeTimes->{3.84390192264589*^9},
CellLabel->
"During evaluation of \
-In[615]:=",ExpressionUUID->"c3673e99-ca9e-49c1-8e5b-21d883c4ef41"],
+In[13]:=",ExpressionUUID->"05deb4f0-b888-4dc3-9800-9d5c62cb046e"],
Cell[BoxData[
TemplateBox[{
"General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"4.39713372176966`*^-308\\\
-\"}]\\) is too small to represent as a normalized machine number; precision \
-may be lost.\"", 2, 615, 335, 31652614240606783354, "Local"},
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\
+\"-\\\", \\\"3.4589532078322574`*^-308\\\"}], \\\")\\\"}]}]\\) is too small \
+to represent as a normalized machine number; precision may be lost.\"", 2, 13,
+ 3, 31653754106501107189, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{
- 3.8437362400836897`*^9, {3.843736627729396*^9, 3.8437366340245256`*^9}},
+ CellChangeTimes->{3.843901922651989*^9},
CellLabel->
"During evaluation of \
-In[615]:=",ExpressionUUID->"ed4d4442-9e2c-4228-aa01-9be8e1ebdab4"],
+In[13]:=",ExpressionUUID->"52600ce7-1c12-4f65-aeda-9fbca14e912b"],
Cell[BoxData[
TemplateBox[{
"General", "stop",
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
-during this calculation.\"", 2, 615, 336, 31652614240606783354, "Local"},
+during this calculation.\"", 2, 13, 4, 31653754106501107189, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{
- 3.8437362400836897`*^9, {3.843736627729396*^9, 3.8437366340295267`*^9}},
+ CellChangeTimes->{3.843901922693015*^9},
CellLabel->
"During evaluation of \
-In[615]:=",ExpressionUUID->"f82cd4be-bb5b-4c28-a352-6894793aca94"],
+In[13]:=",ExpressionUUID->"43270502-9561-4d5d-bcb4-8fd6e6b0442c"],
Cell[BoxData[
RowBox[{"{",
- RowBox[{"0.08428790389262919`", ",",
+ RowBox[{"11.751142100970982`", ",",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]0", "\[Rule]", "0.18480465016808767`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3312829236892874`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.1990484241151759`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "1.9845580160553957`"}]}], ",",
+ RowBox[{"-", "2.2569953198152035`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "0.9858043006164164`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3076667198757734`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.38062302524501546`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.39615702441258427`"}], ",",
RowBox[{
- RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.0037444812211801072`"}],
- ",",
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.014413476770888844`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "4", "]"}], "\[Rule]",
- RowBox[{"-", "0.00004858533264762448`"}]}]}], "}"}]}], "}"}]], "Output",\
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.00023301374253497338`"}]}]}], "}"}]}], "}"}]], "Output",\
- CellChangeTimes->{
- 3.843733446295603*^9, 3.8437337146220617`*^9, 3.8437337522548437`*^9, {
- 3.843733882044881*^9, 3.843733926818181*^9}, {3.843736223213347*^9,
- 3.843736240222663*^9}, {3.843736627808776*^9, 3.8437366340654573`*^9}},
- CellLabel->
- "Out[615]=",ExpressionUUID->"5dd79a11-570c-44ec-9746-87e670b03ee1"]
+ CellChangeTimes->{{3.843895738249465*^9, 3.843895761446396*^9},
+ 3.843897148276168*^9, 3.843901922758602*^9},
+ CellLabel->"Out[13]=",ExpressionUUID->"f81b797b-dfad-48f1-907d-78f33085f565"]
}, Open ]],
Cell[CellGroupData[{
@@ -2083,22 +1733,39 @@ Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
- RowBox[{"NFN", "[", "4", "]"}], "=", "6"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"NFN", "[", "4", "]"}], "=", "3"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"HN", "[", "4", "]"}], "=",
- RowBox[{"h", "[", "0", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"h", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"SN", "[", "4", "]"}], "=",
RowBox[{"annealFit", "[",
RowBox[{
- RowBox[{
- RowBox[{"res", "[",
+ RowBox[{"Join", "[",
+ RowBox[{
RowBox[{
- RowBox[{"NFN", "[", "4", "]"}], ",",
- RowBox[{"HN", "[", "4", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "12"}]]}], "]"}], "[", "4", "]"}], ",",
+ RowBox[{"resAll", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "4", "]"}], ",",
+ RowBox[{"HN", "[", "4", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "6"}]]}], "]"}], "[", "4", "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"A", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"NFN", "[", "4", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], "]"}], ",",
RowBox[{"Join", "[",
RowBox[{
RowBox[{
@@ -2107,9 +1774,9 @@ Cell[BoxData[{
RowBox[{"{",
RowBox[{
RowBox[{
- RowBox[{"A", "[", "5", "]"}], "->", "0"}], ",",
+ RowBox[{"gC", "[", "3", "]"}], "->", "0"}], ",",
RowBox[{
- RowBox[{"A", "[", "6", "]"}], "->", "0"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"A", "[", "3", "]"}], "->", "0"}]}], "}"}]}], "]"}], ",",
SuperscriptBox["10",
RowBox[{"-", "3"}]]}], "]"}]}]}], "Input",
CellChangeTimes->{{3.841464800663937*^9, 3.8414648092082663`*^9}, {
@@ -2132,34 +1799,35 @@ Cell[BoxData[{
3.843721025950254*^9}, {3.843733469833881*^9, 3.84373348958615*^9}, {
3.8437335388198547`*^9, 3.8437335888838177`*^9}, {3.8437362603746147`*^9,
3.843736262293276*^9}, {3.84373630427111*^9, 3.843736339518784*^9}, {
- 3.843736645885356*^9, 3.843736708357525*^9}},
- CellLabel->
- "In[658]:=",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"],
+ 3.843736645885356*^9, 3.843736708357525*^9}, {3.843817197153302*^9,
+ 3.8438172106972446`*^9}, {3.843884495599029*^9, 3.8438845305933723`*^9}, {
+ 3.84388469395575*^9, 3.84388469436313*^9}, {3.843893246719131*^9,
+ 3.84389324737465*^9}, {3.843895780750424*^9, 3.843895781477371*^9}},
+ CellLabel->"In[14]:=",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"],
Cell[BoxData[
RowBox[{"{",
- RowBox[{"0.11850229981256294`", ",",
+ RowBox[{"2.5884920771752538`", ",",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]0", "\[Rule]", "0.19207911374064776`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3310596746720023`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19891824287445714`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.059254255024947`"}]}], ",",
+ RowBox[{"-", "2.361502215545131`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.0565625617489884`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.46058409961803`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.38941300435485016`"}], ",",
-
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3071976169850193`"}], ",",
RowBox[{
- RowBox[{"A", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.016729812628691623`"}]}], ",",
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.026882257042416906`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.01271523138887888`"}], ",",
-
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.03321206004178937`"}], ",",
RowBox[{
- RowBox[{"A", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.003635026940123705`"}]}], ",",
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.004370268351432168`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "6", "]"}], "\[Rule]", "0.00040151390448694524`"}]}],
+ RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.03233338210538799`"}]}],
"}"}]}], "}"}]], "Output",
CellChangeTimes->{
3.841464815669158*^9, 3.841466117830838*^9, 3.8414661767800817`*^9,
@@ -2190,9 +1858,80 @@ Cell[BoxData[
3.8437213762359753`*^9}, {3.843733494958956*^9, 3.843733592567816*^9},
3.8437337258861427`*^9, {3.843733761345716*^9, 3.843733785769959*^9}, {
3.8437362673362293`*^9, 3.843736269975911*^9}, {3.843736305110955*^9,
- 3.843736346441326*^9}, {3.843736659850691*^9, 3.843736719937346*^9}},
- CellLabel->
- "Out[660]=",ExpressionUUID->"9c259a8c-bce3-49eb-b1dd-e7bcabedadcf"]
+ 3.843736346441326*^9}, {3.843736659850691*^9, 3.843736719937346*^9}, {
+ 3.843817215469469*^9, 3.8438172496817217`*^9}, 3.843817417942299*^9, {
+ 3.843884528604434*^9, 3.8438845391768007`*^9}, 3.843884699240148*^9, {
+ 3.843885296425564*^9, 3.8438853036797867`*^9}, {3.8438932494816437`*^9,
+ 3.843893257426305*^9}, {3.843895783800992*^9, 3.843895791614253*^9},
+ 3.8438958405153723`*^9, 3.8438971523530397`*^9, 3.8439019246171093`*^9},
+ CellLabel->"Out[16]=",ExpressionUUID->"c852ba83-1f1c-4b79-b8fa-4d7f006f943a"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"SN", "[", "4", "]"}], "=",
+ RowBox[{"annealFit", "[",
+ RowBox[{
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"resAll", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "4", "]"}], ",",
+ RowBox[{"HN", "[", "4", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "10"}]]}], "]"}], "[", "4", "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"A", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"NFN", "[", "4", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], "]"}], ",",
+ RowBox[{
+ RowBox[{"SN", "[", "4", "]"}], "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.843895795253961*^9, 3.843895808005636*^9}},
+ CellLabel->"In[17]:=",ExpressionUUID->"1430cc9e-c966-4177-ab4c-6b03a664eaa5"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"2.5894982288562955`", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3310596746630394`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19891824286627846`"}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{"-", "2.361502215519321`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.460584099622719`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3071976169866144`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.026882257199972816`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.033212060175714056`"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.004370268382751191`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.03233338210075686`"}]}],
+ "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.8438958097062683`*^9, 3.843897155058906*^9,
+ 3.843901926169096*^9},
+ CellLabel->"Out[17]=",ExpressionUUID->"dce9f6c3-46a7-4528-b391-b8c13ddc1c07"]
}, Open ]],
Cell[CellGroupData[{
@@ -2200,23 +1939,39 @@ Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
- RowBox[{"NFN", "[", "5", "]"}], "=", "12"}],
- ";"}], "\[IndentingNewLine]",
+ RowBox[{"NFN", "[", "5", "]"}], "=", "3"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"HN", "[", "5", "]"}], "=",
- RowBox[{"h", "[", "0", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"h", "[", "4", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"SN", "[", "5", "]"}], "=",
RowBox[{"annealFit", "[",
RowBox[{
- RowBox[{
- RowBox[{"resAll", "[",
+ RowBox[{"Join", "[",
+ RowBox[{
RowBox[{
- RowBox[{"NFN", "[", "5", "]"}], ",",
- RowBox[{"HN", "[", "5", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "6"}]]}], "]"}], "[", "5", "]"}], ",",
+ RowBox[{"resAll", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "5", "]"}], ",",
+ RowBox[{"HN", "[", "5", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "4"}]]}], "]"}], "[", "5", "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"A", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"NFN", "[", "5", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "]"}], ",",
RowBox[{"Join", "[",
RowBox[{
RowBox[{
@@ -2224,11 +1979,9 @@ Cell[BoxData[{
RowBox[{"[", "2", "]"}], "]"}], ",",
RowBox[{"{",
RowBox[{
- RowBox[{
- RowBox[{"A", "[", "11", "]"}], "->", "0"}], ",",
- RowBox[{
- RowBox[{"A", "[", "12", "]"}], "->", "0"}]}], "}"}]}], "]"}], ",",
- "0"}], "]"}]}]}], "Input",
+ RowBox[{"gC", "[", "4", "]"}], "->", "0"}], "}"}]}], "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "3"}]]}], "]"}]}]}], "Input",
CellChangeTimes->{{3.841464843337102*^9, 3.841464855633377*^9}, {
3.841485164363418*^9, 3.8414851683768*^9}, {3.8418272638322353`*^9,
3.841827269478693*^9}, {3.84182733709054*^9, 3.841827341167844*^9}, {
@@ -2251,11 +2004,98 @@ Cell[BoxData[{
3.843714750314851*^9}, {3.843715580442203*^9, 3.8437155966341877`*^9}, {
3.843721036343636*^9, 3.8437210629192343`*^9}, {3.843736286709857*^9,
3.843736292941805*^9}, {3.843736352712152*^9, 3.843736411040065*^9}, {
- 3.843736441338368*^9, 3.843736445208787*^9}, 3.84373649566679*^9},
+ 3.843736441338368*^9, 3.843736445208787*^9}, 3.84373649566679*^9, {
+ 3.843817256618774*^9, 3.843817288923072*^9}, {3.8438175009454803`*^9,
+ 3.843817501311736*^9}, {3.843884556051766*^9, 3.8438846052496967`*^9}, {
+ 3.843884702107793*^9, 3.8438847380433903`*^9}, 3.843885321335536*^9,
+ 3.8438932628714952`*^9, 3.8438932978331213`*^9, {3.843893438578382*^9,
+ 3.843893439298211*^9}, {3.843893480084515*^9, 3.843893480195063*^9}, {
+ 3.84390227137232*^9, 3.843902272068658*^9}},
+ CellLabel->"In[45]:=",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "munfl",
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\
+\"-\\\", \\\"1.5643457278865946`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \
+to represent as a normalized machine number; precision may be lost.\"", 2, 47,
+ 34, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.8438971693190117`*^9, 3.843901930596023*^9,
+ 3.843902016449499*^9, 3.8439022821790667`*^9},
+ CellLabel->
+ "During evaluation of \
+In[45]:=",ExpressionUUID->"89cb3b9c-6733-4f30-ba7d-b92bea024a61"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "munfl",
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\
+\"-\\\", \\\"7.821728639432973`*^-308\\\"}], \\\")\\\"}]}]\\) is too small to \
+represent as a normalized machine number; precision may be lost.\"", 2, 47,
+ 35, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.8438971693190117`*^9, 3.843901930596023*^9,
+ 3.843902016449499*^9, 3.8439022822247667`*^9},
+ CellLabel->
+ "During evaluation of \
+In[45]:=",ExpressionUUID->"f911b253-4922-487d-ab9d-6d0faee4e930"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "munfl",
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\
+\"-\\\", \\\"1.1357180869699784`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \
+to represent as a normalized machine number; precision may be lost.\"", 2, 47,
+ 36, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.8438971693190117`*^9, 3.843901930596023*^9,
+ 3.843902016449499*^9, 3.843902282271016*^9},
CellLabel->
- "In[586]:=",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"],
+ "During evaluation of \
+In[45]:=",ExpressionUUID->"1ba81a51-6150-44c3-af7c-c67dc7bede91"],
-Cell[BoxData["$Aborted"], "Output",
+Cell[BoxData[
+ TemplateBox[{
+ "General", "stop",
+ "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
+\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
+during this calculation.\"", 2, 47, 37, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.8438971693190117`*^9, 3.843901930596023*^9,
+ 3.843902016449499*^9, 3.8439022823138847`*^9},
+ CellLabel->
+ "During evaluation of \
+In[45]:=",ExpressionUUID->"5ac016e9-31c7-4f0e-b8aa-afb81cf2edfa"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"5.275380895686097`", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3659855916402093`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19798224717346755`"}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{"-", "2.432462467455871`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5545013988137597`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4152771313274199`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.16464479623608336`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0015866531307366378`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0013870109773813654`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.05442435526910374`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.00017404316385435817`"}]}],
+ "}"}]}], "}"}]], "Output",
CellChangeTimes->{
3.8414648792576437`*^9, 3.841466213483655*^9, 3.841485177503057*^9,
3.841727640264741*^9, 3.841733779145525*^9, 3.8417351450580807`*^9,
@@ -2280,9 +2120,211 @@ Cell[BoxData["$Aborted"], "Output",
3.84371559234904*^9, 3.843715598985958*^9}, {3.843721067307371*^9,
3.843721076592401*^9}, {3.8437214015438147`*^9, 3.843721422620565*^9},
3.843736294815735*^9, {3.843736357965226*^9, 3.84373643699953*^9},
- 3.8437364934294033`*^9, 3.8437365536409883`*^9},
+ 3.8437364934294033`*^9, 3.8437365536409883`*^9, {3.8438172819384604`*^9,
+ 3.84381731196795*^9}, {3.843817419331808*^9, 3.843817468599063*^9}, {
+ 3.8438175038221617`*^9, 3.84381752834674*^9}, 3.843817618524872*^9, {
+ 3.8438845766837893`*^9, 3.8438846271163063`*^9}, {3.843884711265044*^9,
+ 3.843884744184936*^9}, {3.843885315109013*^9, 3.84388533245494*^9}, {
+ 3.843893269720996*^9, 3.843893306270376*^9}, {3.843893435890896*^9,
+ 3.843893511639142*^9}, {3.843895860382124*^9, 3.84389587869118*^9},
+ 3.843897173840925*^9, 3.843901935611261*^9, 3.843902021521545*^9,
+ 3.843902283059269*^9},
+ CellLabel->"Out[47]=",ExpressionUUID->"82ba02fc-cd21-4782-bcf6-ebf4b2cd722e"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"SN", "[", "5", "]"}], "=",
+ RowBox[{"annealFit", "[",
+ RowBox[{
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"resAll", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "5", "]"}], ",",
+ RowBox[{"HN", "[", "5", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "7"}]]}], "]"}], "[", "5", "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"A", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"NFN", "[", "5", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "]"}], ",",
+ RowBox[{
+ RowBox[{"SN", "[", "5", "]"}], "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.843893524691846*^9, 3.8438935377880898`*^9},
+ 3.8438935884306107`*^9, {3.84389585629605*^9, 3.84389585657469*^9}, {
+ 3.8438959087931347`*^9, 3.8438959090159683`*^9}, 3.843902027056909*^9},
+ CellLabel->"In[48]:=",ExpressionUUID->"dd7f1593-dabe-4540-be1e-78e3cac46ee6"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "CompiledFunction", "cfn",
+ "\"Numerical error encountered at instruction \
+\\!\\(\\*RowBox[{\\\"221\\\"}]\\); proceeding with uncompiled evaluation.\"",
+ 2, 48, 38, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.84390203253931*^9, 3.843902287225566*^9},
+ CellLabel->
+ "During evaluation of \
+In[48]:=",ExpressionUUID->"cc8f974a-d219-4e9e-b4a7-ca4badd961fd"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "CompiledFunction", "cfn",
+ "\"Numerical error encountered at instruction \
+\\!\\(\\*RowBox[{\\\"221\\\"}]\\); proceeding with uncompiled evaluation.\"",
+ 2, 48, 39, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.84390203253931*^9, 3.84390228735631*^9},
+ CellLabel->
+ "During evaluation of \
+In[48]:=",ExpressionUUID->"d99d9c04-cf49-4c56-b36c-84ebccfe63bf"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "CompiledFunction", "cfn",
+ "\"Numerical error encountered at instruction \
+\\!\\(\\*RowBox[{\\\"221\\\"}]\\); proceeding with uncompiled evaluation.\"",
+ 2, 48, 40, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.84390203253931*^9, 3.843902287539579*^9},
+ CellLabel->
+ "During evaluation of \
+In[48]:=",ExpressionUUID->"2e1c1911-4ab1-4ed3-afad-22d62a014078"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "stop",
+ "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"CompiledFunction\\\", \
+\\\"::\\\", \\\"cfn\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \
+this calculation.\"", 2, 48, 41, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.84390203253931*^9, 3.8439022875834217`*^9},
CellLabel->
- "Out[588]=",ExpressionUUID->"430992b3-b545-4ad5-857e-1cd7f9e0f50a"]
+ "During evaluation of \
+In[48]:=",ExpressionUUID->"b5df8d1e-6393-4c91-94c5-90d09ee043df"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"782.9024683563285`", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]", "1.417421768248329`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19623756996571676`"}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{"-", "2.384349776177989`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.4944302576186625`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4827412960121003`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.2224895687204029`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.03607560739406468`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.00655047414057241`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.09565637440779434`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0006926970427181251`"}]}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.8438935500898237`*^9, 3.843893596050148*^9}, {
+ 3.8438958919007893`*^9, 3.843895912523176*^9}, 3.843897181759439*^9,
+ 3.843901940455085*^9, 3.843902037286686*^9, 3.843902292271083*^9},
+ CellLabel->"Out[48]=",ExpressionUUID->"c1072ef9-8223-412d-854b-b7316a190ce7"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"SN", "[", "5", "]"}], "=",
+ RowBox[{"annealFit", "[",
+ RowBox[{
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"resAll", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "5", "]"}], ",",
+ RowBox[{"HN", "[", "5", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "10"}]]}], "]"}], "[", "5", "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"A", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"NFN", "[", "5", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "]"}], ",",
+ RowBox[{
+ RowBox[{"SN", "[", "5", "]"}], "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.843893524691846*^9, 3.8438935377880898`*^9},
+ 3.8438935884306107`*^9, {3.84389585629605*^9, 3.84389585657469*^9}, {
+ 3.8438959087931347`*^9, 3.8438959090159683`*^9}, {3.843902027056909*^9,
+ 3.843902045024184*^9}},
+ CellLabel->"In[49]:=",ExpressionUUID->"df6fc5c6-1a03-486b-a4d4-7311da4859de"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"781.9183891323007`", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]", "1.4174499095572046`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19623837275274397`"}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{"-", "2.3844047782650346`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.4945044321287986`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4827425954641644`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.22253679627867537`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.03607696344672339`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.006550889829736402`"}],
+ ",",
+ RowBox[{
+ RowBox[{"A", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.09566783498205164`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0006927978972384512`"}]}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.8438935500898237`*^9, 3.843893596050148*^9}, {
+ 3.8438958919007893`*^9, 3.843895912523176*^9}, 3.843897181759439*^9,
+ 3.843901940455085*^9, {3.843902037286686*^9, 3.843902049709662*^9},
+ 3.843902299644085*^9},
+ CellLabel->"Out[49]=",ExpressionUUID->"86750074-4a9a-430f-b741-5590432396da"]
}, Open ]],
Cell[CellGroupData[{
@@ -2294,18 +2336,35 @@ Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"HN", "[", "6", "]"}], "=",
- RowBox[{"h", "[", "4", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"h", "[", "5", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"SN", "[", "6", "]"}], "=",
RowBox[{"annealFit", "[",
RowBox[{
- RowBox[{
- RowBox[{"res", "[",
+ RowBox[{"Join", "[",
+ RowBox[{
RowBox[{
- RowBox[{"NFN", "[", "6", "]"}], ",",
- RowBox[{"H", "[", "6", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "10"}]]}], "]"}], "[", "6", "]"}], ",",
+ RowBox[{"resAll", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "6", "]"}], ",",
+ RowBox[{"HN", "[", "6", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "4"}]]}], "]"}], "[", "6", "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"A", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"NFN", "[", "6", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}], "]"}], ",",
RowBox[{"Join", "[",
RowBox[{
RowBox[{
@@ -2316,7 +2375,7 @@ Cell[BoxData[{
RowBox[{
RowBox[{"A", "[", "4", "]"}], "->", "0"}], ",",
RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "->", "0"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"gC", "[", "5", "]"}], "->", "0"}]}], "}"}]}], "]"}], ",",
SuperscriptBox["10",
RowBox[{"-", "4"}]]}], "]"}]}]}], "Input",
CellChangeTimes->{{3.8414649234989033`*^9, 3.841464929562983*^9},
@@ -2344,89 +2403,49 @@ Cell[BoxData[{
3.843712768838229*^9}, {3.843712823160831*^9, 3.843712823415069*^9}, {
3.8437147810852947`*^9, 3.843714807651908*^9}, {3.843715266436727*^9,
3.8437153468136*^9}, {3.843715612186802*^9, 3.8437156288191233`*^9}, {
- 3.843721084273182*^9, 3.843721117688121*^9}},
- CellLabel->
- "In[413]:=",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"],
-
-Cell[BoxData[
- TemplateBox[{
- "General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"2.0023045794287002`*^-307\
-\\\"}]\\) is too small to represent as a normalized machine number; precision \
-may be lost.\"", 2, 415, 331, 31652502335122491207, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.84372112943382*^9},
- CellLabel->
- "During evaluation of \
-In[413]:=",ExpressionUUID->"b628b1ce-8f72-4517-8684-e5b37106425b"],
-
-Cell[BoxData[
- TemplateBox[{
- "General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.0011522897143501`*^-307\
-\\\"}]\\) is too small to represent as a normalized machine number; precision \
-may be lost.\"", 2, 415, 332, 31652502335122491207, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.843721129519565*^9},
- CellLabel->
- "During evaluation of \
-In[413]:=",ExpressionUUID->"21f24859-445c-4727-9669-cfd60008d6c9"],
-
-Cell[BoxData[
- TemplateBox[{
- "General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.5149545665513955`*^-307\
-\\\"}]\\) is too small to represent as a normalized machine number; precision \
-may be lost.\"", 2, 415, 333, 31652502335122491207, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.843721129605254*^9},
- CellLabel->
- "During evaluation of \
-In[413]:=",ExpressionUUID->"34862ce4-ccc3-473a-983f-83c9d41299b9"],
-
-Cell[BoxData[
- TemplateBox[{
- "General", "stop",
- "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
-\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
-during this calculation.\"", 2, 415, 334, 31652502335122491207, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.843721129685548*^9},
- CellLabel->
- "During evaluation of \
-In[413]:=",ExpressionUUID->"800b496e-93af-4967-9f4d-19bc30cefc7c"],
+ 3.843721084273182*^9, 3.843721117688121*^9}, {3.843817477399342*^9,
+ 3.843817497127761*^9}, {3.8438175381847267`*^9, 3.843817538248601*^9},
+ 3.843817583018195*^9, {3.843884664578208*^9, 3.84388467221027*^9}, {
+ 3.843884758771953*^9, 3.84388475913988*^9}, {3.843884831877975*^9,
+ 3.8438848346376333`*^9}, {3.843884973951572*^9, 3.843884974495858*^9}, {
+ 3.8438936156376534`*^9, 3.843893616549342*^9}, 3.843894707083518*^9,
+ 3.8439021672681637`*^9},
+ CellLabel->"In[56]:=",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"],
Cell[BoxData[
RowBox[{"{",
- RowBox[{"0.0005989943165717576`", ",",
+ RowBox[{"7.206485312402673`", ",",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.4191290472262938`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19726885518394613`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3202935507800044`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.1975914146940715`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.410307653102931`"}]}], ",",
+ RowBox[{"-", "2.4759955012663792`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.526429619415671`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6199499108601143`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.41671735163630635`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.41116945013129075`"}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.20297641627344776`"}]}], ",",
+ RowBox[{"-", "0.17105945200813755`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.091790591460744`"}]}], ",",
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.03709585278787565`"}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.01475651256511747`"}], ",",
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.044989919411572`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.0039972526592865106`"}],
+ RowBox[{"A", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.02268309568493727`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.013931497523780157`"}],
",",
RowBox[{
- RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.013153698851402483`"}], ",",
+ RowBox[{"A", "[", "4", "]"}], "\[Rule]",
+ RowBox[{"-", "0.012995806497916306`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
- RowBox[{"-", "0.00020390149309852383`"}]}]}], "}"}]}], "}"}]], "Output",\
-
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0017772272087942685`"}]}]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{
3.841465025789603*^9, 3.8414651161396313`*^9, 3.841466522687828*^9,
3.841466555475013*^9, 3.841466668800694*^9, {3.841466708777321*^9,
@@ -2455,9 +2474,14 @@ Cell[BoxData[
3.843711880883437*^9, 3.843711908217847*^9}, 3.843712438680501*^9, {
3.8437127904467697`*^9, 3.843712837616493*^9}, 3.843714808157996*^9, {
3.843715268598218*^9, 3.843715355019931*^9}, 3.8437156380406713`*^9, {
- 3.843721113575069*^9, 3.84372113118095*^9}},
- CellLabel->
- "Out[415]=",ExpressionUUID->"4b16f87a-8343-4a14-b1b1-eede27195bbc"]
+ 3.843721113575069*^9, 3.84372113118095*^9}, 3.843817549577869*^9, {
+ 3.8438175812110367`*^9, 3.843817588463937*^9}, 3.843884773781815*^9,
+ 3.8438848544566517`*^9, 3.843884988268441*^9, 3.843885359862143*^9,
+ 3.843893989631591*^9, 3.8438945508023443`*^9, 3.8438946364911537`*^9,
+ 3.843894728756699*^9, 3.843895946036622*^9, 3.843897226683311*^9,
+ 3.843902082931218*^9, {3.8439021604155827`*^9, 3.843902186174138*^9},
+ 3.843902342914719*^9, 3.843902519954713*^9},
+ CellLabel->"Out[58]=",ExpressionUUID->"9d6b6399-b8b5-4c11-b0c4-1878fb7107b3"]
}, Open ]],
Cell[CellGroupData[{
@@ -2467,96 +2491,255 @@ Cell[BoxData[
RowBox[{"SN", "[", "6", "]"}], "=",
RowBox[{"annealFit", "[",
RowBox[{
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"resAll", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "6", "]"}], ",",
+ RowBox[{"HN", "[", "6", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "7"}]]}], "]"}], "[", "6", "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"A", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"NFN", "[", "6", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}], "]"}], ",",
RowBox[{
- RowBox[{"res", "[",
- RowBox[{"4", ",",
- RowBox[{"h", "[", "4", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "12"}]]}], "]"}], "[", "6", "]"}], ",",
+ RowBox[{"SN", "[", "6", "]"}], "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{
+ 3.843902077088789*^9, {3.843902128514913*^9, 3.8439021286739902`*^9}},
+ CellLabel->"In[59]:=",ExpressionUUID->"bf55aae6-3b22-44f1-8c18-45a5a02a688a"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "CompiledFunction", "cfn",
+ "\"Numerical error encountered at instruction \
+\\!\\(\\*RowBox[{\\\"250\\\"}]\\); proceeding with uncompiled evaluation.\"",
+ 2, 59, 55, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.843902203439743*^9, 3.843902493067264*^9,
+ 3.84390253454387*^9},
+ CellLabel->
+ "During evaluation of \
+In[59]:=",ExpressionUUID->"2b1c0138-6295-41cb-b72d-9bdcf95faa22"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "CompiledFunction", "cfn",
+ "\"Numerical error encountered at instruction \
+\\!\\(\\*RowBox[{\\\"250\\\"}]\\); proceeding with uncompiled evaluation.\"",
+ 2, 59, 56, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.843902203439743*^9, 3.843902493067264*^9,
+ 3.8439025349102163`*^9},
+ CellLabel->
+ "During evaluation of \
+In[59]:=",ExpressionUUID->"1968cc21-938c-46cc-9eba-9e9fbf2d536b"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "CompiledFunction", "cfn",
+ "\"Numerical error encountered at instruction \
+\\!\\(\\*RowBox[{\\\"250\\\"}]\\); proceeding with uncompiled evaluation.\"",
+ 2, 59, 57, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.843902203439743*^9, 3.843902493067264*^9,
+ 3.843902535703671*^9},
+ CellLabel->
+ "During evaluation of \
+In[59]:=",ExpressionUUID->"54327536-e923-4a6d-bd8d-521163c69b38"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "stop",
+ "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"CompiledFunction\\\", \
+\\\"::\\\", \\\"cfn\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \
+this calculation.\"", 2, 59, 58, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.843902203439743*^9, 3.843902493067264*^9,
+ 3.843902535744382*^9},
+ CellLabel->
+ "During evaluation of \
+In[59]:=",ExpressionUUID->"f27864d6-3131-4c6c-85e0-07d0f801952b"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"104.23080840239297`", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3693245641608245`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.1971430368297307`"}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{"-", "2.433757359091536`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5599700062155228`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4606135318873582`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.2005939288764567`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.026210637509807237`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.014884741008542564`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.05406441159475623`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.004613876307860813`"}],
+ ",",
+ RowBox[{
+ RowBox[{"A", "[", "4", "]"}], "\[Rule]",
+ RowBox[{"-", "0.014420057232025288`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.000570798002340311`"}]}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.84390209451889*^9, 3.8439022086870003`*^9,
+ 3.843902501751268*^9, 3.8439025399681253`*^9},
+ CellLabel->"Out[59]=",ExpressionUUID->"86baa30e-786d-4147-9230-63ec16e908fd"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"SN", "[", "6", "]"}], "=",
+ RowBox[{"annealFit", "[",
+ RowBox[{
RowBox[{"Join", "[",
RowBox[{
- RowBox[{"SN", "[", "6", "]"}], "[",
- RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}]}]], "Input",
- CellChangeTimes->{{3.8414649234989033`*^9, 3.841464929562983*^9},
- 3.8414650365927067`*^9, {3.841466519588132*^9, 3.8414665280647097`*^9}, {
- 3.841466604931347*^9, 3.8414666419938307`*^9}, {3.8414666855258636`*^9,
- 3.841466727221444*^9}, {3.84146676121622*^9, 3.8414667820495234`*^9}, {
- 3.84148396767577*^9, 3.8414839726025257`*^9}, {3.84148521082797*^9,
- 3.8414853154915857`*^9}, {3.841733796562776*^9, 3.841733797057767*^9}, {
- 3.841735203005892*^9, 3.841735209699418*^9}, {3.8418273747300787`*^9,
- 3.841827382400734*^9}, {3.841995502776061*^9, 3.841995503240049*^9}, {
- 3.842078951611676*^9, 3.8420789636867447`*^9}, {3.8420798300405483`*^9,
- 3.842079836854927*^9}, {3.8420799055859203`*^9, 3.842079914272601*^9}, {
- 3.842079967859085*^9, 3.8420799681136713`*^9}, {3.842080021564961*^9,
- 3.842080025220539*^9}, {3.8420800859182*^9, 3.8420800990122004`*^9}, {
- 3.84208019154412*^9, 3.8420802080213737`*^9}, {3.842080276960822*^9,
- 3.842080288543285*^9}, 3.842080409972135*^9, {3.842080584925744*^9,
- 3.8420805890525837`*^9}, {3.84208137234144*^9, 3.8420814145320263`*^9}, {
- 3.842081680882601*^9, 3.842081699569503*^9}, {3.84233110907162*^9,
- 3.842331118191568*^9}, {3.842684312154997*^9, 3.842684343987566*^9}, {
- 3.8426851236186237`*^9, 3.842685123808796*^9}, {3.842686890593161*^9,
- 3.842686899497368*^9}, {3.842688881398118*^9, 3.842688882653798*^9}, {
- 3.842939642760597*^9, 3.842939644575281*^9}, {3.843711363180492*^9,
- 3.843711363748081*^9}, {3.843711408342869*^9, 3.843711413060946*^9},
- 3.8437118859504538`*^9, 3.8437124208648443`*^9, {3.8437127620389013`*^9,
- 3.843712768838229*^9}, {3.843712823160831*^9, 3.8437128563836823`*^9}},
+ RowBox[{
+ RowBox[{"resAll", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "6", "]"}], ",",
+ RowBox[{"HN", "[", "6", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "10"}]]}], "]"}], "[", "6", "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"A", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"NFN", "[", "6", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}], "]"}], ",",
+ RowBox[{
+ RowBox[{"SN", "[", "6", "]"}], "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.843894745437924*^9, 3.8438947538904467`*^9}, {
+ 3.843895956896408*^9, 3.843895957416436*^9}, {3.8439021304751263`*^9,
+ 3.843902130666195*^9}},
+ CellLabel->"In[60]:=",ExpressionUUID->"311c4189-0d61-4e5b-abce-a18bf11d30d5"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "munfl",
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \
+\\\"1.891406938872476`*^-307\\\"}]\\) is too small to represent as a \
+normalized machine number; precision may be lost.\"", 2, 60, 59,
+ 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.8439025533284607`*^9},
CellLabel->
- "In[310]:=",ExpressionUUID->"7802d202-3d6d-4dfa-88dc-b610c353f8e0"],
+ "During evaluation of \
+In[60]:=",ExpressionUUID->"bf2e9b59-9481-4751-9dda-95c2a44ef88f"],
Cell[BoxData[
TemplateBox[{
- "CompiledFunction", "cfex",
- "\"Could not complete external evaluation at instruction \\!\\(\\*RowBox[{\
-\\\"29\\\"}]\\); proceeding with uncompiled evaluation.\"", 2, 310, 297,
- 31652502335122491207, "Local"},
+ "General", "munfl",
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"9.45703469436238`*^-308\\\
+\"}]\\) is too small to represent as a normalized machine number; precision \
+may be lost.\"", 2, 60, 60, 31653754106501107189, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.843715279632785*^9},
+ CellChangeTimes->{3.843902554173274*^9},
CellLabel->
"During evaluation of \
-In[310]:=",ExpressionUUID->"a6afe7e7-a295-46f1-b353-09cdec263eb6"],
+In[60]:=",ExpressionUUID->"e2c7bc36-ac17-4833-a5e2-708377ab366a"],
Cell[BoxData[
TemplateBox[{
- "CompiledFunction", "cfex",
- "\"Could not complete external evaluation at instruction \\!\\(\\*RowBox[{\
-\\\"29\\\"}]\\); proceeding with uncompiled evaluation.\"", 2, 310, 298,
- 31652502335122491207, "Local"},
+ "General", "munfl",
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \
+\\\"1.157933366503335`*^-307\\\"}]\\) is too small to represent as a \
+normalized machine number; precision may be lost.\"", 2, 60, 61,
+ 31653754106501107189, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.8437152799790373`*^9},
+ CellChangeTimes->{3.843902555537036*^9},
CellLabel->
"During evaluation of \
-In[310]:=",ExpressionUUID->"72e76bc6-8558-45fb-a4d6-1f3c0d25dce3"],
+In[60]:=",ExpressionUUID->"a54a6f29-b6bb-42b1-9ef1-c7391454ddd3"],
-Cell[BoxData["$Aborted"], "Output",
- CellChangeTimes->{
- 3.841465025789603*^9, 3.8414651161396313`*^9, 3.841466522687828*^9,
- 3.841466555475013*^9, 3.841466668800694*^9, {3.841466708777321*^9,
- 3.841466735908298*^9}, {3.841466779836482*^9, 3.8414667940802307`*^9},
- 3.841466824528336*^9, 3.841483997419278*^9, {3.841485225140195*^9,
- 3.84148530730641*^9}, 3.841485346491642*^9, 3.841727678198784*^9, {
- 3.841733795931508*^9, 3.841733821796796*^9}, 3.8417351720463753`*^9,
- 3.8417352475906267`*^9, 3.841827146904572*^9, 3.841827657292903*^9,
- 3.841995539806638*^9, 3.842069877907194*^9, 3.842078936824607*^9,
- 3.8420789875120153`*^9, 3.8420798602764683`*^9, 3.8420799402629004`*^9,
- 3.842079995444352*^9, 3.842080060576466*^9, 3.842080162099564*^9,
- 3.842080245811408*^9, 3.842080332954257*^9, 3.842080431518053*^9,
- 3.842080625337432*^9, {3.842081406500411*^9, 3.8420814324198103`*^9},
- 3.8420817204515057`*^9, 3.842331129758831*^9, 3.842337135231529*^9,
- 3.842350258463331*^9, 3.842422914621627*^9, 3.842520300921358*^9,
- 3.842522170672875*^9, 3.842522709159134*^9, 3.842524787519485*^9,
- 3.842525918290428*^9, 3.842591965284109*^9, 3.8425930322238503`*^9, {
- 3.8425962448099003`*^9, 3.84259626059803*^9}, 3.842596465859194*^9,
- 3.84259659587401*^9, 3.8425968948300667`*^9, 3.8425970957348948`*^9,
- 3.842683555724093*^9, {3.842684315768067*^9, 3.842684333014844*^9},
- 3.842684364689314*^9, 3.84268439701243*^9, 3.842684631120551*^9,
- 3.842685124486528*^9, 3.842685208628757*^9, 3.842686910745422*^9,
- 3.842687741468136*^9, 3.8426888994788837`*^9, {3.842939629109034*^9,
- 3.842939660855831*^9}, 3.843711365823695*^9, 3.843711439289988*^9,
- 3.8437114788889103`*^9, 3.843711603837839*^9, 3.8437116346369457`*^9, {
- 3.843711880883437*^9, 3.843711908217847*^9}, 3.843712438680501*^9, {
- 3.8437127904467697`*^9, 3.8437128636726007`*^9}, 3.843715283104864*^9},
+Cell[BoxData[
+ TemplateBox[{
+ "General", "stop",
+ "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
+\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
+during this calculation.\"", 2, 60, 62, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.843902555542123*^9},
CellLabel->
- "Out[310]=",ExpressionUUID->"5faec697-031f-4594-9d93-9cfbc6c71780"]
+ "During evaluation of \
+In[60]:=",ExpressionUUID->"c84a7a7a-bcb6-4589-aa5b-07a8eb37ece5"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"105.20006456324`", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3693245643432388`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19714303679801537`"}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{"-", "2.4337573590963326`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.559970006062279`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4606135324822247`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.20059393001573939`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.02621063711050144`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.01488474127424088`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.054064411318565486`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.004613876176117714`"}],
+ ",",
+ RowBox[{
+ RowBox[{"A", "[", "4", "]"}], "\[Rule]",
+ RowBox[{"-", "0.014420057543619254`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.000570797961625302`"}]}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.8438947704883204`*^9, 3.843895969029764*^9,
+ 3.8438972437495537`*^9, 3.843902106182866*^9, 3.843902220151823*^9,
+ 3.843902555547042*^9},
+ CellLabel->"Out[60]=",ExpressionUUID->"04ebe322-fb32-4e84-98d4-e2cca00e038f"]
}, Open ]],
Cell[CellGroupData[{
@@ -2564,33 +2747,49 @@ Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
- RowBox[{"NFN", "[", "7", "]"}], "=", "5"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"NFN", "[", "7", "]"}], "=", "4"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"HN", "[", "7", "]"}], "=",
- RowBox[{"h", "[", "4", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"h", "[", "6", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"SN", "[", "7", "]"}], "=",
- RowBox[{"RemoteEvaluate", "@",
- RowBox[{"annealFit", "[",
- RowBox[{
+ RowBox[{"annealFit", "[",
+ RowBox[{
+ RowBox[{"Join", "[",
RowBox[{
- RowBox[{"res2", "[",
- RowBox[{
- RowBox[{"NFN", "[", "7", "]"}], ",",
- RowBox[{"HN", "[", "7", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "6"}]]}], "]"}], "[", "7", "]"}], ",",
- RowBox[{"Join", "[",
RowBox[{
+ RowBox[{"resAll", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "7", "]"}], ",",
+ RowBox[{"HN", "[", "7", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "4"}]]}], "]"}], "[", "7", "]"}], ",",
+ RowBox[{"Table", "[",
RowBox[{
- RowBox[{"SN", "[", "6", "]"}], "[",
- RowBox[{"[", "2", "]"}], "]"}], ",",
- RowBox[{"{",
RowBox[{
- RowBox[{"A", "[", "5", "]"}], "->", "0"}], "}"}]}], "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "4"}]]}], "]"}]}]}]}], "Input",
+ RowBox[{"A", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"NFN", "[", "7", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "6"}], "}"}]}], "]"}]}], "]"}], ",",
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"SN", "[", "6", "]"}], "[",
+ RowBox[{"[", "2", "]"}], "]"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"gC", "[", "6", "]"}], "->", "0"}], "}"}]}], "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "4"}]]}], "]"}]}]}], "Input",
CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, {
3.841228542777034*^9, 3.8412285565292*^9}, {3.841228600579276*^9,
3.841228610938241*^9}, {3.84122872113229*^9, 3.841228734972561*^9}, {
@@ -2625,97 +2824,105 @@ Cell[BoxData[{
3.843714999695292*^9}, {3.8437153738156*^9, 3.843715380750386*^9}, {
3.843715451615923*^9, 3.843715458743846*^9}, {3.8437156794451923`*^9,
3.843715711884416*^9}, {3.843721147362162*^9, 3.8437211698730717`*^9}, {
- 3.8437212341389503`*^9, 3.8437212358021297`*^9}},
- CellLabel->
- "In[422]:=",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"],
-
-Cell[CellGroupData[{
-
-Cell["\<\
-CompiledFunction::cfne:
- Numerical error encountered; proceeding with uncompiled evaluation.\
-\>", "Print",
- ShowCellLabel->True,
- CellChangeTimes->{3.843721309174179*^9},
- CellLabel->
- "Remote kernel",ExpressionUUID->"511d0852-d858-4548-8196-98f35415e50e"],
+ 3.8437212341389503`*^9, 3.8437212358021297`*^9}, {3.843817719004178*^9,
+ 3.843817770765004*^9}, {3.843884811972825*^9, 3.843884846725618*^9}, {
+ 3.843884991376327*^9, 3.843884991528326*^9}, {3.843885961970408*^9,
+ 3.843885972394223*^9}, 3.843894841788228*^9, {3.84389725270442*^9,
+ 3.84389726136864*^9}, 3.843902579859885*^9},
+ CellLabel->"In[66]:=",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"],
-Cell["\<\
-General::munfl:
- 70 -5
- (7.57561 10 ) is too small to represent as a normalized machine number;
- precision may be lost.\
-\>", "Print",
- ShowCellLabel->True,
- CellChangeTimes->{3.843721309253282*^9},
+Cell[BoxData[
+ TemplateBox[{
+ "General", "munfl",
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\
+\"-\\\", \\\"1.5741855285317382`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \
+to represent as a normalized machine number; precision may be lost.\"", 2, 68,
+ 67, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.843896019564458*^9, 3.843897301406971*^9,
+ 3.843902636216378*^9, 3.843902699260846*^9},
CellLabel->
- "Remote kernel",ExpressionUUID->"f79394b9-541f-492c-93db-8756d1b14926"],
+ "During evaluation of \
+In[66]:=",ExpressionUUID->"478e944e-8539-43dd-b7ad-13452d8c5fd8"],
-Cell["\<\
-General::munfl:
- 70 -5
- (7.57561 10 ) is too small to represent as a normalized machine number;
- precision may be lost.\
-\>", "Print",
- ShowCellLabel->True,
- CellChangeTimes->{3.8437213093325453`*^9},
+Cell[BoxData[
+ TemplateBox[{
+ "General", "munfl",
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\
+\"-\\\", \\\"1.7663160943131665`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \
+to represent as a normalized machine number; precision may be lost.\"", 2, 68,
+ 68, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.843896019564458*^9, 3.843897301406971*^9,
+ 3.843902636216378*^9, 3.843902699473991*^9},
CellLabel->
- "Remote kernel",ExpressionUUID->"b1edbebb-e977-4520-964f-b1cec1161771"],
+ "During evaluation of \
+In[66]:=",ExpressionUUID->"4e714ac4-3741-4bad-8978-9cce7fc9cf27"],
-Cell["\<\
-General::munfl:
- 70 -6
- (7.57561 10 ) is too small to represent as a normalized machine number;
- precision may be lost.\
-\>", "Print",
- ShowCellLabel->True,
- CellChangeTimes->{3.84372130941184*^9},
+Cell[BoxData[
+ TemplateBox[{
+ "General", "munfl",
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\
+\"-\\\", \\\"7.870927642658691`*^-308\\\"}], \\\")\\\"}]}]\\) is too small to \
+represent as a normalized machine number; precision may be lost.\"", 2, 68,
+ 69, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.843896019564458*^9, 3.843897301406971*^9,
+ 3.843902636216378*^9, 3.843902699666747*^9},
CellLabel->
- "Remote kernel",ExpressionUUID->"bfd58a31-019e-410a-b9e9-ab659fab9ac9"],
+ "During evaluation of \
+In[66]:=",ExpressionUUID->"d8d08a80-7409-4fd5-b5fa-8bf89b0dc929"],
-Cell["\<\
-General::stop: Further output of General::munfl
- will be suppressed during this calculation.\
-\>", "Print",
- ShowCellLabel->True,
- CellChangeTimes->{3.843721309491207*^9},
+Cell[BoxData[
+ TemplateBox[{
+ "General", "stop",
+ "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
+\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
+during this calculation.\"", 2, 68, 70, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.843896019564458*^9, 3.843897301406971*^9,
+ 3.843902636216378*^9, 3.843902699839118*^9},
CellLabel->
- "Remote kernel",ExpressionUUID->"3b1d2871-5059-4719-bd90-6aaba8c9caef"]
-}, Open ]],
+ "During evaluation of \
+In[66]:=",ExpressionUUID->"649838a1-0289-4c08-8492-56d4c5c821ed"],
Cell[BoxData[
RowBox[{"{",
- RowBox[{"131.3249466582363`", ",",
+ RowBox[{"8.124450583087372`", ",",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.395183014233631`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19712957686138352`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3210220858705704`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.1970556920513177`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.434314383420567`"}]}], ",",
+ RowBox[{"-", "2.5057957897433063`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5610016987826405`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6636796830193818`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4548499410086436`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5135869874860381`"}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.21940227641432558`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.10072518384300388`"}]}], ",",
+ RowBox[{"-", "0.23731765900405924`"}]}], ",",
RowBox[{
RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
- RowBox[{"-", "0.00243412059045142`"}]}], ",",
+ RowBox[{"-", "0.023556765951411856`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.0009918239195323972`"}],
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.027403931952617977`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.08218424812337059`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.010371395709423428`"}],
",",
RowBox[{
- RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.012222303004004684`"}], ",",
+ RowBox[{"A", "[", "4", "]"}], "\[Rule]",
+ RowBox[{"-", "0.01634292508772203`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
- RowBox[{"-", "0.0006144609325469323`"}]}], ",",
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0014462492623976719`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0017720918296079988`"}]}]}], "}"}]}], "}"}]], "Output",
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "4.677674109979036`*^-6"}]}],
+ "}"}]}], "}"}]], "Output",
CellChangeTimes->{
3.8413939151770983`*^9, 3.841398118546665*^9, 3.841398237839446*^9,
3.8413995587444963`*^9, 3.8414653249934998`*^9, 3.841466926914564*^9,
@@ -2740,9 +2947,12 @@ Cell[BoxData[
3.8437148808670673`*^9, 3.843714921963626*^9, {3.843714964757214*^9,
3.8437150164962597`*^9}, 3.843715396032799*^9, 3.843715474097043*^9,
3.8437157630255613`*^9, 3.843715849137591*^9, 3.843721214762032*^9,
- 3.8437212799635353`*^9, 3.843721339285296*^9},
- CellLabel->
- "Out[424]=",ExpressionUUID->"98dfdb17-c250-42bc-8b48-17896671f0f4"]
+ 3.8437212799635353`*^9, 3.843721339285296*^9, {3.843817748985523*^9,
+ 3.8438177744696913`*^9}, 3.843884892558465*^9, 3.843885027334649*^9,
+ 3.8438853949171124`*^9, 3.843886000408156*^9, 3.84389487306847*^9,
+ 3.843896024822*^9, 3.843897307550561*^9, 3.8439026424131117`*^9,
+ 3.8439027057449923`*^9},
+ CellLabel->"Out[68]=",ExpressionUUID->"10fc8e0a-a280-4cb2-a212-f7708921bb32"]
}, Open ]],
Cell[CellGroupData[{
@@ -2750,87 +2960,324 @@ Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"SN", "[", "7", "]"}], "=",
- RowBox[{"RemoteEvaluate", "@",
- RowBox[{"annealFit", "[",
- RowBox[{
+ RowBox[{"annealFit", "[",
+ RowBox[{
+ RowBox[{"Join", "[",
RowBox[{
- RowBox[{"res2", "[",
- RowBox[{"7", ",",
- RowBox[{"h", "[", "2", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "12"}]]}], "]"}], "[", "7", "]"}], ",",
- RowBox[{"Join", "[",
RowBox[{
+ RowBox[{"resAll", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "7", "]"}], ",",
+ RowBox[{"HN", "[", "7", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "7"}]]}], "]"}], "[", "7", "]"}], ",",
+ RowBox[{"Table", "[",
RowBox[{
- RowBox[{"SN", "[", "7", "]"}], "[",
- RowBox[{"[", "2", "]"}], "]"}], ",",
- RowBox[{"{", "}"}]}], "]"}]}], "]"}]}]}]], "Input",
- CellChangeTimes->CompressedData["
-1:eJwd0dtL02EAh/G1apoWhW5JGawk6sJSydRKzVZu2jyFuLnAhQ4mHaZF6TQ6
-EelUarnBwrxILZNMkFUu0amrxprSDBq1Gc3anIiav7CDWglm7/e9ePj8Ac82
-xdlcJZvFYkWTIF9fYa9vYgQ7lplhqP780QvjZnVjsLQuZBKGcE5MwZ7E7Qtw
-H9/7G453a6N0RG4hNwZqznmMZuKuD/5n0Frn9kHO03/UFPe1tD5iu0grhj+5
-AyIfMai4PB0OSis1kCcJr4HJWlcz9HxbpLonhL1+4oww2AzfssteQsMGhw12
-8ipVK5sZgf1SWQkcjehKWkUM3JyRDOfGjh2FhaKGLOjoLMmDu+UyCbQ3OlPX
-EYdmVSK4V9rUcoM4+GtTKzy4mPlQQ9wz8oXKPMjNriGeuheaA01bzMfhSKxX
-Do1t3ToTcY23Qw/DXHk90FbR3wsPGCxqTgsjUBU5qOZ3qUZ4a2bFEzheyuMH
-EIPY1VthcVhcGjwcKsmA6vCkuWjiREL8Ajz/eEkaQxQvRsjgXWfDkQ4i80gp
-hAElLnnkffLFMkllx1ulUuJo1s58aKpqfAXb+q9b4dp6yZ984vcqy194Wje4
-DIfGhqnz4uqLMqL/jYZqm7ZcgVzOa2pT9KEfMLhoiXpyKlHxniibH6CKSz9J
-MlsZwe0ujxRuLDddhncUTip7QP8CavoKbLA2wTedRUyvXf8V7r96JjKbWNB5
-gRrVvjoWGp4HUq2+HCU0p9yk/gfqFZVb
- "],
+ RowBox[{
+ RowBox[{"A", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"NFN", "[", "7", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "6"}], "}"}]}], "]"}]}], "]"}], ",",
+ RowBox[{
+ RowBox[{"SN", "[", "7", "]"}], "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.843894886670952*^9, 3.843894898364908*^9}, {
+ 3.843896106805344*^9, 3.8438961101475573`*^9}, {3.8438977015612993`*^9,
+ 3.843897702432682*^9}, {3.843902732877788*^9, 3.843902733972754*^9}},
+ CellLabel->"In[71]:=",ExpressionUUID->"b20a690a-f037-42e7-b31f-7c6fb7165446"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "CompiledFunction", "cfne",
+ "\"Numerical error encountered; proceeding with uncompiled evaluation.\"",
+ 2, 71, 71, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.843902763815034*^9},
+ CellLabel->
+ "During evaluation of \
+In[71]:=",ExpressionUUID->"99f55c82-9f1e-4ed1-bee7-f6b42788529a"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "munfl",
+ "\"\\!\\(\\*FractionBox[\\\"1\\\", \
+SuperscriptBox[\\\"2.8324920845625596`*^45\\\", \\\"7\\\"]]\\) is too small \
+to represent as a normalized machine number; precision may be lost.\"", 2, 71,
+ 72, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.843902763892293*^9},
+ CellLabel->
+ "During evaluation of \
+In[71]:=",ExpressionUUID->"cfc785c7-fdcc-4464-8d55-c4535fd0989e"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "munfl",
+ "\"\\!\\(\\*FractionBox[\\\"1\\\", \
+SuperscriptBox[\\\"2.8324920845625596`*^45\\\", \\\"7\\\"]]\\) is too small \
+to represent as a normalized machine number; precision may be lost.\"", 2, 71,
+ 73, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.843902763964282*^9},
+ CellLabel->
+ "During evaluation of \
+In[71]:=",ExpressionUUID->"9c8142ac-b7cf-485d-a8dd-97352d13f970"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "munfl",
+ "\"\\!\\(\\*FractionBox[\\\"1\\\", \
+SuperscriptBox[\\\"2.8324920845625596`*^45\\\", \\\"7\\\"]]\\) is too small \
+to represent as a normalized machine number; precision may be lost.\"", 2, 71,
+ 74, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.843902764037855*^9},
+ CellLabel->
+ "During evaluation of \
+In[71]:=",ExpressionUUID->"834508c0-17d9-4b75-a223-87eb84e48a0c"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "stop",
+ "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
+\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
+during this calculation.\"", 2, 71, 75, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.843902764112591*^9},
+ CellLabel->
+ "During evaluation of \
+In[71]:=",ExpressionUUID->"0e6651e7-50f5-46db-94b9-c49b364cdd89"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "CompiledFunction", "cfn",
+ "\"Numerical error encountered at instruction \
+\\!\\(\\*RowBox[{\\\"275\\\"}]\\); proceeding with uncompiled evaluation.\"",
+ 2, 71, 76, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.843902768411331*^9},
+ CellLabel->
+ "During evaluation of \
+In[71]:=",ExpressionUUID->"fcfc6397-b646-4aae-beb5-a084083db9ff"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "CompiledFunction", "cfn",
+ "\"Numerical error encountered at instruction \
+\\!\\(\\*RowBox[{\\\"275\\\"}]\\); proceeding with uncompiled evaluation.\"",
+ 2, 71, 77, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.843902768509634*^9},
+ CellLabel->
+ "During evaluation of \
+In[71]:=",ExpressionUUID->"b1114c64-a94d-4a84-8517-f220bdce1087"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "CompiledFunction", "cfn",
+ "\"Numerical error encountered at instruction \
+\\!\\(\\*RowBox[{\\\"275\\\"}]\\); proceeding with uncompiled evaluation.\"",
+ 2, 71, 78, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.8439027686074543`*^9},
CellLabel->
- "In[386]:=",ExpressionUUID->"f29012dd-767e-4ccd-8cc2-503ba7241dd4"],
+ "During evaluation of \
+In[71]:=",ExpressionUUID->"e7ce51a0-f9e4-4182-befc-f3116db1409a"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "stop",
+ "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"CompiledFunction\\\", \
+\\\"::\\\", \\\"cfn\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \
+this calculation.\"", 2, 71, 79, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.843902768645434*^9},
+ CellLabel->
+ "During evaluation of \
+In[71]:=",ExpressionUUID->"535790fb-fc75-46e1-80cb-f0da4033f09b"],
Cell[BoxData[
RowBox[{"{",
- RowBox[{"304286.46524492855`", ",",
+ RowBox[{"36.430000509805424`", ",",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.4053359861589603`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.1971833552689971`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3414182506895846`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19689930457273383`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.4312045282525254`"}]}], ",",
+ RowBox[{"-", "2.4797912003058262`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6274742734256753`"}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5563436838890758`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5212160823834201`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4425061471506051`"}], ",",
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.2388512711050075`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0287049028330739`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.0003670055606791293`"}],
+ ",",
RowBox[{
RowBox[{"A", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.10300712626955466`"}]}], ",",
+ RowBox[{"-", "0.1182912583725762`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.01691457744278105`"}], ",",
-
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0022316990737939546`"}],
+ ",",
+ RowBox[{
+ RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.0014576819927315152`"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0005543713880857869`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]",
+ "0.000032428766853654235`"}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.84389492761346*^9, 3.843896147124861*^9,
+ 3.843897369236705*^9, 3.843897727450624*^9, 3.8439028120761414`*^9},
+ CellLabel->"Out[71]=",ExpressionUUID->"e6b943fe-5982-410c-a3ea-7ed5f87dc501"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"SN", "[", "7", "]"}], "=",
+ RowBox[{"annealFit", "[",
+ RowBox[{
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"resAll", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "7", "]"}], ",",
+ RowBox[{"HN", "[", "7", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "10"}]]}], "]"}], "[", "7", "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"A", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"NFN", "[", "7", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "6"}], "}"}]}], "]"}]}], "]"}], ",",
+ RowBox[{
+ RowBox[{"SN", "[", "7", "]"}], "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.843894886670952*^9, 3.843894898364908*^9}, {
+ 3.843896106805344*^9, 3.8438961101475573`*^9}, {3.8438977015612993`*^9,
+ 3.843897702432682*^9}, {3.843902732877788*^9, 3.843902733972754*^9}, {
+ 3.843902841791136*^9, 3.843902841943028*^9}},
+ CellLabel->"In[74]:=",ExpressionUUID->"c5f7cefb-23b6-4795-8e0e-29084392ea3e"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "munfl",
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\
+\"-\\\", \\\"2.0599211954383216`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \
+to represent as a normalized machine number; precision may be lost.\"", 2, 74,
+ 80, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.843902763815034*^9, 3.843902879273185*^9},
+ CellLabel->
+ "During evaluation of \
+In[74]:=",ExpressionUUID->"4542c8d2-981a-4127-9547-5d5f87f55b8c"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "munfl",
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\
+\"-\\\", \\\"1.0299605977191608`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \
+to represent as a normalized machine number; precision may be lost.\"", 2, 74,
+ 81, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.843902763815034*^9, 3.843902879539825*^9},
+ CellLabel->
+ "During evaluation of \
+In[74]:=",ExpressionUUID->"078927a3-b72f-479b-951b-599fed4a45e6"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "munfl",
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\
+\"-\\\", \\\"1.2309736062033702`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \
+to represent as a normalized machine number; precision may be lost.\"", 2, 74,
+ 82, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.843902763815034*^9, 3.843902879544977*^9},
+ CellLabel->
+ "During evaluation of \
+In[74]:=",ExpressionUUID->"7244fd16-cc92-4e8d-9c75-0b780e16d48d"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "stop",
+ "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
+\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
+during this calculation.\"", 2, 74, 83, 31653754106501107189, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.843902763815034*^9, 3.843902879710231*^9},
+ CellLabel->
+ "During evaluation of \
+In[74]:=",ExpressionUUID->"84fcb9c4-04a4-4da4-b7a9-f8b856048bab"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"36.453880108655845`", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3414183177738805`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19689919009832824`"}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{"-", "2.4797396545378896`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6274015230688736`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5212082982033303`"}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.21957782807237258`"}]}], ",",
+ RowBox[{"-", "0.23880901356745154`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.003020187852593811`"}]}], ",",
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.028717858615113008`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "6", "]"}], "\[Rule]", "0.00038595536852966604`"}],
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.0003968707731909203`"}],
",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.007670746496387066`"}],
+ RowBox[{"A", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.11829440269500721`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0022181153155482465`"}],
",",
RowBox[{
- RowBox[{"A", "[", "7", "]"}], "\[Rule]",
- RowBox[{"-", "0.00002087954039631728`"}]}]}], "}"}]}], "}"}]], "Output",\
-
- CellChangeTimes->CompressedData["
-1:eJwVzlsogwEYxvHPcShKMStSJGQsGSMlPk05jpDTRmwmhUgrxZBDlEhuKKdt
-oTRksVJbYbnYLDmfVmgoFyx3SnJ6n4un381z8Y+Qt5cq3RiGyaDZ9UqNc9HF
-5vadrT+Ru3cmM3w9v6l/Jvftml4PjYsNE9/neJIpY9IieNrWXg697q01cLVD
-VeZPGhbmtENktY9hHWYX+C2PkMZFxyaUPvxVjJLnmn4ZrOeKmuEbczRvJFNL
-Q21w2KQb9ta6WF6m3QwFTZJYDsk9KM+HfDauDCZbvZlEcmLVqYCHqmmxnhTz
-lovh/oxAuEG+RGVtbZPCnsaYGzJoxdbN0dHv19IPb83MJEwXJJ9AWUKIw4eU
-H28pfMlA0aOMT46Mb3bB95+LyAQybm3cCBOLoh3QcH1bV0F2zyhtUK46PIFX
-XVm/lWSaocejimzROxXQtvOihiV83QC05s19wC/Rh+ICfd9JrTB8r7C2cMnF
-XjYEq2GfpXMQqnfqrPDbOR0vIT+T3FOg35RvIzyeDWiG/6Qo/lI=
- "],
- CellLabel->
- "Out[386]=",ExpressionUUID->"856b1968-3f0f-4f85-ad84-7cb3e73f0a0d"]
+ RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.0014665587532066901`"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0005511982630786123`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00003213793548002806`"}]}],
+ "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.84389492761346*^9, 3.843896147124861*^9,
+ 3.843897369236705*^9, 3.843897727450624*^9, 3.8439028120761414`*^9,
+ 3.843902885231992*^9},
+ CellLabel->"Out[74]=",ExpressionUUID->"582f27a7-c183-4aa4-844c-51abc5718a5d"]
}, Open ]],
Cell[CellGroupData[{
@@ -2838,23 +3285,40 @@ Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
- RowBox[{"NFN", "[", "8", "]"}], "=", "8"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"NFN", "[", "8", "]"}], "=", "5"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"HN", "[", "8", "]"}], "=",
- RowBox[{"h", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"h", "[", "7", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"SN", "[", "8", "]"}], "=",
RowBox[{"RemoteEvaluate", "@",
RowBox[{"annealFit", "[",
RowBox[{
- RowBox[{
- RowBox[{"res", "[",
+ RowBox[{"Join", "[",
+ RowBox[{
RowBox[{
- RowBox[{"NFN", "[", "8", "]"}], ",",
- RowBox[{"HN", "[", "8", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "6"}]]}], "]"}], "[", "8", "]"}], ",",
+ RowBox[{"resAll", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "8", "]"}], ",",
+ RowBox[{"HN", "[", "8", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "3"}]]}], "]"}], "[", "8", "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"A", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"NFN", "[", "8", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "7"}], "}"}]}], "]"}]}], "]"}], ",",
RowBox[{"Join", "[",
RowBox[{
RowBox[{
@@ -2863,9 +3327,9 @@ Cell[BoxData[{
RowBox[{"{",
RowBox[{
RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "->", "0"}], ",",
+ RowBox[{"A", "[", "5", "]"}], "->", "0"}], ",",
RowBox[{
- RowBox[{"A", "[", "8", "]"}], "->", "0"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"gC", "[", "7", "]"}], "->", "0"}]}], "}"}]}], "]"}], ",",
SuperscriptBox["10",
RowBox[{"-", "5"}]]}], "]"}]}]}]}], "Input",
CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, {
@@ -2911,146 +3375,120 @@ Cell[BoxData[{
3.8426893215735407`*^9}, {3.84268953374725*^9, 3.842689535833342*^9}, {
3.8426896540848227`*^9, 3.842689654387868*^9}, {3.842936128483087*^9,
3.842936137168179*^9}, {3.8437130416597033`*^9, 3.84371305213933*^9}, {
- 3.843715934056658*^9, 3.843715975505213*^9}},
- CellLabel->
- "In[389]:=",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"],
+ 3.843715934056658*^9, 3.843715975505213*^9}, {3.843817813040893*^9,
+ 3.84381784925498*^9}, {3.843884929775175*^9, 3.843884967623735*^9},
+ 3.8438852355815372`*^9, {3.843885353495563*^9, 3.8438853573348837`*^9}, {
+ 3.843885446960699*^9, 3.843885447536818*^9}, {3.843885639532933*^9,
+ 3.843885640243864*^9}, {3.843886019347829*^9, 3.8438860257151413`*^9},
+ 3.84388724749105*^9, 3.843894962206586*^9, {3.843896184184621*^9,
+ 3.843896198853072*^9}, {3.843897407755311*^9, 3.843897424923874*^9}, {
+ 3.84389771658519*^9, 3.843897717529028*^9}, 3.843899311455843*^9, {
+ 3.8439029824191837`*^9, 3.84390298335358*^9}, {3.843903465036194*^9,
+ 3.84390347883497*^9}, {3.84390394490875*^9, 3.843903962795918*^9}},
+ CellLabel->"In[90]:=",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"],
Cell[CellGroupData[{
Cell["\<\
CompiledFunction::cfn:
- Numerical error encountered at instruction 212; proceeding with uncompiled
- evaluation.\
-\>", "Print",
- ShowCellLabel->True,
- CellChangeTimes->{3.84371602898495*^9},
- CellLabel->
- "Remote kernel",ExpressionUUID->"8a120e5f-a5a3-4f17-b3ed-fe4c02b738db"],
-
-Cell["\<\
-CompiledFunction::cfn:
- Numerical error encountered at instruction 212; proceeding with uncompiled
+ Numerical error encountered at instruction 304; proceeding with uncompiled
evaluation.\
\>", "Print",
ShowCellLabel->True,
- CellChangeTimes->{3.843716047060897*^9},
+ CellChangeTimes->{3.8439041214889708`*^9},
CellLabel->
- "Remote kernel",ExpressionUUID->"de95d3ae-aa9a-4b14-bde6-721d748d8480"],
-
-Cell["\<\
-CompiledFunction::cfne:
- Numerical error encountered; proceeding with uncompiled evaluation.\
-\>", "Print",
- ShowCellLabel->True,
- CellChangeTimes->{3.843716052259479*^9},
- CellLabel->
- "Remote kernel",ExpressionUUID->"c9fd7d2b-d1a0-48f2-b8b6-bbecc90bd16c"],
+ "Remote kernel",ExpressionUUID->"7a772fba-df33-4f9d-b38d-6940e3941eab"],
Cell["\<\
General::munfl:
- 54 -6
- (2.12132 10 ) is too small to represent as a normalized machine number;
- precision may be lost.\
+ -307
+ 0.1 1.80759 10 is too small to represent as a normalized machine
+ number; precision may be lost.\
\>", "Print",
ShowCellLabel->True,
- CellChangeTimes->{3.843716052339076*^9},
+ CellChangeTimes->{3.843904163951745*^9},
CellLabel->
- "Remote kernel",ExpressionUUID->"756862c8-5721-4b71-9543-cd0dd99e93c0"],
+ "Remote kernel",ExpressionUUID->"41a446af-8dd2-4c1a-85b6-0bcb5710c58e"],
Cell["\<\
General::munfl:
- 54 -6
- (2.12132 10 ) is too small to represent as a normalized machine number;
- precision may be lost.\
+ -307
+ 0.1 2.01357 10 is too small to represent as a normalized machine
+ number; precision may be lost.\
\>", "Print",
ShowCellLabel->True,
- CellChangeTimes->{3.8437160524183693`*^9},
+ CellChangeTimes->{3.8439041640308647`*^9},
CellLabel->
- "Remote kernel",ExpressionUUID->"7e805f4a-3d92-47ae-8493-1e29f9635c40"],
+ "Remote kernel",ExpressionUUID->"3053db1b-f597-47a4-aa61-dd8286212823"],
Cell["\<\
General::munfl:
- 54 -7
- (2.12132 10 ) is too small to represent as a normalized machine number;
- precision may be lost.\
+ -308
+ 0.1 9.03794 10 is too small to represent as a normalized machine
+ number; precision may be lost.\
\>", "Print",
ShowCellLabel->True,
- CellChangeTimes->{3.843716052497731*^9},
+ CellChangeTimes->{3.843904164109983*^9},
CellLabel->
- "Remote kernel",ExpressionUUID->"d575551e-b2b0-4da3-a620-4e466d368394"],
+ "Remote kernel",ExpressionUUID->"5801f127-4593-4248-a8fc-5fe3e865e2f0"],
Cell["\<\
General::stop: Further output of General::munfl
will be suppressed during this calculation.\
\>", "Print",
ShowCellLabel->True,
- CellChangeTimes->{3.843716052577257*^9},
+ CellChangeTimes->{3.843904164189312*^9},
CellLabel->
- "Remote kernel",ExpressionUUID->"3bfcd99d-0da9-4b75-b727-45a2f3b0a0e8"],
-
-Cell["\<\
-CompiledFunction::cfn:
- Numerical error encountered at instruction 212; proceeding with uncompiled
- evaluation.\
-\>", "Print",
- ShowCellLabel->True,
- CellChangeTimes->{3.843716062254755*^9},
- CellLabel->
- "Remote kernel",ExpressionUUID->"8abe42c0-cb42-47f7-8d0e-35a497bc69c1"],
-
-Cell["\<\
-General::stop: Further output of CompiledFunction::cfn
- will be suppressed during this calculation.\
-\>", "Print",
- ShowCellLabel->True,
- CellChangeTimes->{3.843716062334365*^9},
- CellLabel->
- "Remote kernel",ExpressionUUID->"a75f4be0-6356-4a2d-ac60-ca5a174ca99a"]
+ "Remote kernel",ExpressionUUID->"55824d87-912b-4205-a8c2-4bc2f6cbcce8"]
}, Open ]],
Cell[BoxData[
RowBox[{"{",
- RowBox[{"3419.6988261403444`", ",",
+ RowBox[{"8.479354277202878`", ",",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.4017104680646788`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19705890107101348`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3214092397805217`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19692413662082323`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.465909302676139`"}]}], ",",
+ RowBox[{"-", "2.5126678737141974`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.606500268806754`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6742096261226624`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4812987525320637`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5350137296565726`"}], ",",
RowBox[{
- RowBox[{"A", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.12968904806924655`"}]}], ",",
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.2524762323949282`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.02079714311105976`"}], ",",
-
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.025871944215716203`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.2593495761671524`"}]}], ",",
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.017389646900317683`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.004378573171935516`"}]}], ",",
+ RowBox[{"A", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.11316523747894239`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "6", "]"}], "\[Rule]", "0.00026901419330847235`"}],
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0076067691439657735`"}],
",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
- RowBox[{"-", "0.0014155250087730586`"}]}], ",",
+ RowBox[{"A", "[", "4", "]"}], "\[Rule]",
+ RowBox[{"-", "0.004912781636652989`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "7", "]"}], "\[Rule]", "0.00006570308637686371`"}],
- ",",
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0011641063024018755`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.0004950946700765749`"}]}], ",",
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]",
+ RowBox[{"-", "0.00003372969755898584`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "8", "]"}], "\[Rule]",
- RowBox[{"-", "9.639787259972194`*^-6"}]}]}], "}"}]}], "}"}]], "Output",
- CellChangeTimes->{3.843713711772421*^9, 3.8437160836635036`*^9},
- CellLabel->
- "Out[391]=",ExpressionUUID->"63af0244-4204-4b51-95aa-39d445b52770"]
+ RowBox[{"A", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0009064491739281797`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "7", "]"}], "\[Rule]", "9.962418367940217`*^-6"}]}],
+ "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.843897956692271*^9, 3.84389848048285*^9,
+ 3.843899473681838*^9, 3.84390318020299*^9, 3.843903652395749*^9,
+ 3.843904173307663*^9},
+ CellLabel->"Out[92]=",ExpressionUUID->"b1a7bbe4-1bc8-4c67-8307-052ebd4e074e"]
}, Open ]],
Cell[CellGroupData[{
@@ -3061,95 +3499,282 @@ Cell[BoxData[
RowBox[{"RemoteEvaluate", "@",
RowBox[{"annealFit", "[",
RowBox[{
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"5", ",",
- RowBox[{"h", "[", "6", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "10"}]]}], "]"}], "[", "8", "]"}], ",",
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"resAll", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "8", "]"}], ",",
+ RowBox[{"HN", "[", "8", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "6"}]]}], "]"}], "[", "8", "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"A", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"NFN", "[", "8", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "7"}], "}"}]}], "]"}]}], "]"}], ",",
RowBox[{
RowBox[{"SN", "[", "8", "]"}], "[",
RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}]], "Input",
- CellChangeTimes->{{3.841826409040468*^9, 3.841826597778789*^9}, {
- 3.841826667389724*^9, 3.841826667595948*^9}, {3.8418267356853933`*^9,
- 3.8418267802857647`*^9}, {3.841826861255658*^9, 3.841826922184668*^9}, {
- 3.8418269725707407`*^9, 3.841826994313775*^9}, {3.8418270452029877`*^9,
- 3.841827053242969*^9}, {3.8418271119240437`*^9, 3.84182712854834*^9}, {
- 3.841827636088339*^9, 3.841827638701561*^9}, {3.8418280886535597`*^9,
- 3.841828101110017*^9}, {3.841828420412331*^9, 3.8418284236037703`*^9}, {
- 3.8418295127754307`*^9, 3.8418295264076853`*^9}, {3.842337631182955*^9,
- 3.8423376428942547`*^9}, {3.842689848971694*^9, 3.842689861239624*^9}, {
- 3.842936328099833*^9, 3.842936330571859*^9}, {3.843713428202511*^9,
- 3.843713463955022*^9}},
- CellLabel->
- "In[216]:=",ExpressionUUID->"c58535c6-e2cc-4022-b4ee-6e96bd40636a"],
+ CellChangeTimes->{{3.843885746869969*^9, 3.843885764614059*^9}, {
+ 3.843886171878558*^9, 3.843886172565577*^9}, {3.8438950995756407`*^9,
+ 3.8438951209873133`*^9}, {3.843895350038931*^9, 3.843895350141561*^9}, {
+ 3.84389636346518*^9, 3.843896366714273*^9}, 3.843897720754751*^9, {
+ 3.8439034872365217`*^9, 3.8439034899951267`*^9}, {3.8439042239852123`*^9,
+ 3.843904228608623*^9}},
+ CellLabel->"In[93]:=",ExpressionUUID->"e31ca7a0-70f8-48f8-88bd-46f299706f4b"],
Cell[BoxData[
RowBox[{"{",
- RowBox[{"5.013393180553336`*^-6", ",",
+ RowBox[{"335.90530556849734`", ",",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.6336622744929286`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.20659105841225178`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3195929940061755`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.1969069347346603`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "1.1645044432474647`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.8706715079315551`"}]}], ",",
+ RowBox[{"-", "2.5097898865885386`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]",
- RowBox[{"-", "0.06569045251778349`"}]}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6703168243884214`"}], ",",
RowBox[{
- RowBox[{"gC", "[", "1", "]"}], "\[Rule]", "0.44665051626790214`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5375209550735229`"}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.08147030668594896`"}], ",",
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.24957377635365688`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.22906712491992604`"}], ",",
-
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.030080247144221126`"}]}], ",",
RowBox[{
RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.02856604607330985`"}]}], ",",
+ RowBox[{"-", "0.014942276239801364`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.11251989583560401`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.001738523072725005`"}],
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.007554945821825036`"}],
",",
RowBox[{
RowBox[{"A", "[", "4", "]"}], "\[Rule]",
- RowBox[{"-", "0.0061775137874550065`"}]}], ",",
+ RowBox[{"-", "0.006679362809749447`"}]}], ",",
RowBox[{
RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.00020143993517174644`"}]}], ",",
+ RowBox[{"-", "0.0014121861790793112`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "5.223170809365255`*^-6"}],
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00007960998632050597`"}],
",",
RowBox[{
RowBox[{"A", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.002847077663736732`"}]}]}], "}"}]}], "}"}]], "Output",
- CellChangeTimes->{3.8424241569967003`*^9, 3.8425230885506783`*^9,
- 3.8425265804928293`*^9, 3.842689928496808*^9, 3.842936326163786*^9,
- 3.842936411779951*^9, 3.842938841600656*^9, 3.842939287572624*^9,
- 3.8429400042764673`*^9, 3.843713452929576*^9, 3.843713544961042*^9},
- CellLabel->
- "Out[216]=",ExpressionUUID->"1bc01698-52fd-4bce-98c8-84ff43606c38"]
+ RowBox[{"-", "0.00030130583284503217`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
+ RowBox[{"-", "5.408889984432713`*^-6"}]}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.843885911945332*^9, 3.8438862543233967`*^9,
+ 3.843887624508829*^9, 3.843895260043109*^9, 3.843895488593912*^9,
+ 3.843896514421207*^9, 3.8438976444916*^9, 3.8438976984191236`*^9,
+ 3.8438981237069902`*^9, 3.843898950889742*^9, 3.8439034323339043`*^9,
+ 3.843903805722127*^9, 3.843904406705791*^9},
+ CellLabel->"Out[93]=",ExpressionUUID->"b6abc47e-be51-4849-8362-057ad4abcb66"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
- RowBox[{"m6", "=",
+ RowBox[{
+ RowBox[{"SN", "[", "8", "]"}], "=",
RowBox[{"RemoteEvaluate", "@",
RowBox[{"annealFit", "[",
RowBox[{
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"resAll", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "8", "]"}], ",",
+ RowBox[{"HN", "[", "8", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "9"}]]}], "]"}], "[", "8", "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"A", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"NFN", "[", "8", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "7"}], "}"}]}], "]"}]}], "]"}], ",",
RowBox[{
- RowBox[{"res", "[",
- RowBox[{"5", ",",
- RowBox[{"h", "[", "6", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "6"}]]}], "]"}], "[", "8", "]"}], ",",
- RowBox[{"m7", "[",
- RowBox[{"[",
- RowBox[{"2", ",",
- RowBox[{";;",
- RowBox[{"-", "2"}]}]}], "]"}], "]"}]}], "]"}]}]}]], "Input",
+ RowBox[{"SN", "[", "8", "]"}], "[",
+ RowBox[{"[", "2", "]"}], "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "6"}]]}], "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.843885746869969*^9, 3.843885764614059*^9}, {
+ 3.843886171878558*^9, 3.843886172565577*^9}, {3.8438950995756407`*^9,
+ 3.8438951209873133`*^9}, {3.843895350038931*^9, 3.843895350141561*^9}, {
+ 3.84389636346518*^9, 3.843896381320446*^9}, 3.843897724089629*^9,
+ 3.843903670623104*^9, {3.843904242665646*^9, 3.843904252472993*^9}, {
+ 3.8439045958412724`*^9, 3.843904598631153*^9}},
+ CellLabel->"In[97]:=",ExpressionUUID->"ece2d3a0-e982-4957-8372-4f9d2d7fe8c0"],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+General::munfl:
+ -307
+ 0.1 -1.55172 10 is too small to represent as a normalized machine
+ number; precision may be lost.\
+\>", "Print",
+ ShowCellLabel->True,
+ CellChangeTimes->{3.84390475659794*^9},
+ CellLabel->
+ "Remote kernel",ExpressionUUID->"69f46805-d37f-43db-b745-b6f4e19be601"],
+
+Cell["\<\
+General::munfl:
+ -307
+ 0.1 -1.69259 10 is too small to represent as a normalized machine
+ number; precision may be lost.\
+\>", "Print",
+ ShowCellLabel->True,
+ CellChangeTimes->{3.84390475667736*^9},
+ CellLabel->
+ "Remote kernel",ExpressionUUID->"3e7e2344-5bd4-45c4-863e-cca15e665d35"],
+
+Cell["\<\
+General::munfl:
+ -308
+ 0.1 -7.75858 10 is too small to represent as a normalized machine
+ number; precision may be lost.\
+\>", "Print",
+ ShowCellLabel->True,
+ CellChangeTimes->{3.843904756756762*^9},
+ CellLabel->
+ "Remote kernel",ExpressionUUID->"099fa598-6830-498a-a031-0d3681f80025"],
+
+Cell["\<\
+General::stop: Further output of General::munfl
+ will be suppressed during this calculation.\
+\>", "Print",
+ ShowCellLabel->True,
+ CellChangeTimes->{3.84390475683624*^9},
+ CellLabel->
+ "Remote kernel",ExpressionUUID->"bccb58ff-4772-4874-a5a9-38cc32a82c5e"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"1056.7879392498248`", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3143988547999277`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19682467998809336`"}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{"-", "2.501222006582122`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6586764099560007`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5464680105774067`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.24233603085537753`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.03725699985482071`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.007023853162905836`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.11886781800138457`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.008043198001192`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "4", "]"}], "\[Rule]",
+ RowBox[{"-", "0.007344548966467652`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.002514439339438292`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.0004602414533845913`"}],
+ ",",
+ RowBox[{
+ RowBox[{"A", "[", "5", "]"}], "\[Rule]", "0.0013391951479673702`"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
+ RowBox[{"-", "0.000047441417646060173`"}]}]}], "}"}]}], "}"}]], "Output",\
+
+ CellChangeTimes->{3.843885911945332*^9, 3.8438862543233967`*^9,
+ 3.843887624508829*^9, 3.843895260043109*^9, 3.843895488593912*^9,
+ 3.8438966708237343`*^9, 3.843898268990225*^9, 3.8438991479455833`*^9,
+ 3.843899808486554*^9, 3.843903912974147*^9, 3.8439045580464087`*^9,
+ 3.843904765761176*^9},
+ CellLabel->"Out[97]=",ExpressionUUID->"200f061b-0403-464b-a625-1f810bc1f5b5"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"NFN", "[", "9", "]"}], "=", "5"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"HN", "[", "9", "]"}], "=",
+ RowBox[{"h", "[", "8", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"SN", "[", "9", "]"}], "=",
+ RowBox[{"RemoteEvaluate", "@",
+ RowBox[{"annealFit", "[",
+ RowBox[{
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "9", "]"}], ",",
+ RowBox[{"HN", "[", "9", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "4"}]]}], "]"}], "[", "9", "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"A", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"NFN", "[", "9", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}]}], "]"}], ",",
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"SN", "[", "8", "]"}], "[",
+ RowBox[{"[", "2", "]"}], "]"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"gC", "[", "8", "]"}], "->", "0"}], "}"}]}], "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "7"}]]}], "]"}]}]}]}], "Input",
CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, {
3.841228542777034*^9, 3.8412285565292*^9}, {3.841228600579276*^9,
3.841228610938241*^9}, {3.84122872113229*^9, 3.841228734972561*^9}, {
@@ -3192,205 +3817,148 @@ Cell[BoxData[
3.84268908089705*^9}, 3.842689217989202*^9, {3.842689321494268*^9,
3.8426893215735407`*^9}, {3.84268953374725*^9, 3.842689535833342*^9}, {
3.8426896540848227`*^9, 3.842689654387868*^9}, {3.842936128483087*^9,
- 3.842936137168179*^9}, 3.843037567666704*^9, {3.84303803129965*^9,
- 3.843038043082603*^9}},
+ 3.842936137168179*^9}, {3.8437130416597033`*^9, 3.84371305213933*^9}, {
+ 3.843715934056658*^9, 3.843715975505213*^9}, {3.843817813040893*^9,
+ 3.84381784925498*^9}, {3.843817917808107*^9, 3.843817963897434*^9},
+ 3.84381799998707*^9, {3.843885942705492*^9, 3.84388594524964*^9}, {
+ 3.843886284376079*^9, 3.84388631712049*^9}, 3.8438876530431747`*^9,
+ 3.843896726710723*^9, {3.843900013427431*^9, 3.843900022405327*^9}, {
+ 3.843900114094542*^9, 3.843900131749761*^9}, 3.843904798283162*^9},
CellLabel->
- "In[179]:=",ExpressionUUID->"78da668e-4ef0-42e2-a70b-6bf19f9b37c3"],
+ "In[100]:=",ExpressionUUID->"5facca9e-653e-4fd9-8527-0092e5469f90"],
Cell[CellGroupData[{
Cell["\<\
General::munfl:
-307
- 0.1 1.14512 10 is too small to represent as a normalized machine
+ 0.1 1.71303 10 is too small to represent as a normalized machine
number; precision may be lost.\
\>", "Print",
ShowCellLabel->True,
- CellChangeTimes->{3.843038179007846*^9},
+ CellChangeTimes->{3.843905435436809*^9},
CellLabel->
- "Remote kernel",ExpressionUUID->"2633e8ff-3a2c-4e3a-a4f9-d4a96377ebf3"],
+ "Remote kernel",ExpressionUUID->"f45234f2-752f-46c6-9ddf-bd262d16691f"],
Cell["\<\
General::munfl:
-307
- 0.1 1.59193 10 is too small to represent as a normalized machine
+ 0.1 1.89074 10 is too small to represent as a normalized machine
number; precision may be lost.\
\>", "Print",
ShowCellLabel->True,
- CellChangeTimes->{3.8430381790862722`*^9},
+ CellChangeTimes->{3.8439054355162163`*^9},
CellLabel->
- "Remote kernel",ExpressionUUID->"cf149e9a-ff7b-4279-ba22-60a5061cccd7"],
+ "Remote kernel",ExpressionUUID->"011b4035-7393-4523-94fb-fb4791bf158d"],
Cell["\<\
General::munfl:
-308
- 0.1 5.72562 10 is too small to represent as a normalized machine
+ 0.1 8.56516 10 is too small to represent as a normalized machine
number; precision may be lost.\
\>", "Print",
ShowCellLabel->True,
- CellChangeTimes->{3.8430381791650133`*^9},
+ CellChangeTimes->{3.843905435595242*^9},
CellLabel->
- "Remote kernel",ExpressionUUID->"579bb1ce-0683-426a-8ecf-cc753bd77ccb"],
+ "Remote kernel",ExpressionUUID->"c5d09aec-16c7-4e06-acf4-318a5ced69b1"],
Cell["\<\
General::stop: Further output of General::munfl
will be suppressed during this calculation.\
\>", "Print",
ShowCellLabel->True,
- CellChangeTimes->{3.843038179244144*^9},
+ CellChangeTimes->{3.8439054356745043`*^9},
CellLabel->
- "Remote kernel",ExpressionUUID->"f8dc207c-67fd-491a-ae00-b45b0b9bf708"]
+ "Remote kernel",ExpressionUUID->"211a48b2-a25f-4c85-8a27-a723c7e7d387"]
}, Open ]],
Cell[BoxData[
RowBox[{"{",
- RowBox[{"11.957913486887227`", ",",
+ RowBox[{"5.287764118773751`", ",",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.3755343797739474`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19655427215261873`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3127658800277853`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19684901223419413`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.553959229993646`"}]}], ",",
+ RowBox[{"-", "2.5192345277648243`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.735991580976113`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6842827471836845`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5976099833638995`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.550899303194035`"}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.3573911995082062`"}]}], ",",
+ RowBox[{"-", "0.25653072020284795`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.005692076889976971`"}],
- ",",
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.031019907661117722`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.01148737498738897`"}]}], ",",
RowBox[{
RowBox[{"A", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.29743509506934485`"}]}], ",",
+ RowBox[{"-", "0.12618658239455005`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.053687906866077495`"}],
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.009304110271580766`"}],
",",
RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
- RowBox[{"-", "0.019661009355712786`"}]}], ",",
+ RowBox[{"A", "[", "4", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0058078561531123354`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.07858988795956891`"}], ",",
-
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0022212350499379086`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.0032996896600613235`"}],
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.0001832855958638613`"}],
",",
RowBox[{
- RowBox[{"gC", "[", "6", "]"}], "\[Rule]",
- RowBox[{"-", "0.0002532295293844319`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.007174398307835195`"}]}]}], "}"}]}], "}"}]], "Output",
- CellChangeTimes->{3.8426871199786043`*^9, 3.84268729156643*^9,
- 3.8426873840839453`*^9, 3.8426875065822372`*^9, 3.842687850710799*^9,
- 3.8426879287424593`*^9, 3.842688129334385*^9, 3.842688321147443*^9,
- 3.842689043055613*^9, 3.842689199474453*^9, 3.842689302538309*^9,
- 3.842689431347052*^9, 3.842689628417358*^9, 3.8426898058853607`*^9,
- 3.8429362869080553`*^9, 3.842936618345025*^9, 3.842936810857802*^9,
- 3.842939015862775*^9, 3.842939177612258*^9, 3.8429399143691998`*^9,
- 3.843037558671664*^9, 3.843037813798671*^9, 3.843037969298051*^9,
- 3.843038186531355*^9},
- CellLabel->
- "Out[179]=",ExpressionUUID->"c6e2490b-6500-4f13-ada0-6cff9d298ebe"]
-}, Open ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"m61", "=",
- RowBox[{"RemoteEvaluate", "@",
- RowBox[{"annealFit", "[",
- RowBox[{
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"5", ",",
- RowBox[{"h", "[", "6", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "10"}]]}], "]"}], "[", "8", "]"}], ",",
- RowBox[{"m6", "[",
- RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}]], "Input",
- CellChangeTimes->{{3.841826409040468*^9, 3.841826597778789*^9}, {
- 3.841826667389724*^9, 3.841826667595948*^9}, {3.8418267356853933`*^9,
- 3.8418267802857647`*^9}, {3.841826861255658*^9, 3.841826922184668*^9}, {
- 3.8418269725707407`*^9, 3.841826994313775*^9}, {3.8418270452029877`*^9,
- 3.841827053242969*^9}, {3.8418271119240437`*^9, 3.84182712854834*^9}, {
- 3.841827636088339*^9, 3.841827638701561*^9}, {3.8418280886535597`*^9,
- 3.841828101110017*^9}, {3.841828420412331*^9, 3.8418284236037703`*^9}, {
- 3.8418295127754307`*^9, 3.8418295264076853`*^9}, {3.842337631182955*^9,
- 3.8423376428942547`*^9}, {3.842689848971694*^9, 3.842689861239624*^9}, {
- 3.842936328099833*^9, 3.842936330571859*^9}},
- CellLabel->
- "In[192]:=",ExpressionUUID->"223493f4-d77c-46b0-bb97-87a0be67433c"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{"47.66452718842365`", ",",
- RowBox[{"{",
- RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.3710192066561966`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19655268865457023`"}], ",",
- RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.551315962883039`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.732278814614242`"}], ",",
- RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5967868834184186`"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.3515062191585261`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.005023244859308164`"}],
+ RowBox[{"A", "[", "5", "]"}], "\[Rule]", "0.0010896755856027475`"}],
",",
RowBox[{
- RowBox[{"A", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.2952087119338217`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.05365943568010773`"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
- RowBox[{"-", "0.01980645818232528`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.0785090329663038`"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.003353070367769979`"}],
+ RowBox[{"gC", "[", "7", "]"}], "\[Rule]", "0.000010106261428176786`"}],
",",
RowBox[{
- RowBox[{"gC", "[", "6", "]"}], "\[Rule]",
- RowBox[{"-", "0.00026033616168888695`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.007251366969801466`"}]}]}], "}"}]}], "}"}]], "Output",
- CellChangeTimes->{3.8424241569967003`*^9, 3.8425230885506783`*^9,
- 3.8425265804928293`*^9, 3.842689928496808*^9, 3.842936326163786*^9,
- 3.842936411779951*^9, 3.842938841600656*^9, 3.842939287572624*^9,
- 3.8429400042764673`*^9, 3.843038346723687*^9},
+ RowBox[{"gC", "[", "8", "]"}], "\[Rule]",
+ RowBox[{"-", "3.3973488887727574`*^-6"}]}]}], "}"}]}], "}"}]], "Output",\
+
+ CellChangeTimes->{3.8439054708703213`*^9},
CellLabel->
- "Out[192]=",ExpressionUUID->"7ea2834e-6718-45dc-b27c-33dbbcda6b96"]
+ "Out[102]=",ExpressionUUID->"68934bdb-e5c2-45fc-b920-4aae13dbfe8d"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
- RowBox[{"m7", "=",
+ RowBox[{
+ RowBox[{"SN", "[", "9", "]"}], "=",
RowBox[{"RemoteEvaluate", "@",
RowBox[{"annealFit", "[",
RowBox[{
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"5", ",",
- RowBox[{"h", "[", "7", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "5"}]]}], "]"}], "[", "9", "]"}], ",",
RowBox[{"Join", "[",
RowBox[{
- RowBox[{"m61", "[",
- RowBox[{"[", "2", "]"}], "]"}], ",",
- RowBox[{"{",
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "9", "]"}], ",",
+ RowBox[{"HN", "[", "9", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "7"}]]}], "]"}], "[", "9", "]"}], ",",
+ RowBox[{"Table", "[",
RowBox[{
- RowBox[{"gC", "[", "7", "]"}], "->", "0"}], "}"}]}], "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "2"}]]}], "]"}]}]}]], "Input",
+ RowBox[{
+ RowBox[{"A", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"NFN", "[", "9", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}]}], "]"}], ",",
+ RowBox[{
+ RowBox[{"SN", "[", "9", "]"}], "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}]], "Input",
CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, {
3.841228542777034*^9, 3.8412285565292*^9}, {3.841228600579276*^9,
3.841228610938241*^9}, {3.84122872113229*^9, 3.841228734972561*^9}, {
@@ -3412,551 +3980,459 @@ Cell[BoxData[
3.84173406172647*^9}, {3.841734285483835*^9, 3.8417342940989227`*^9}, {
3.8417355326753674`*^9, 3.8417355405054827`*^9}, {3.841828611487206*^9,
3.841828622255392*^9}, {3.841828675040432*^9, 3.841828684736364*^9}, {
- 3.8418302810935307`*^9, 3.841830308525895*^9}, {3.842082309644547*^9,
- 3.842082322292737*^9}, {3.842082384582395*^9, 3.8420823848377657`*^9}, {
- 3.842085309253434*^9, 3.8420853109873867`*^9}, {3.842526212619446*^9,
- 3.84252621326678*^9}, {3.842526608898067*^9, 3.842526610786344*^9}, {
- 3.842589907388948*^9, 3.842589910627743*^9}, {3.8426883406998796`*^9,
- 3.842688350300047*^9}, {3.842689982945778*^9, 3.8426899919141293`*^9}, {
- 3.842690298096287*^9, 3.842690302551689*^9}, {3.842690858683028*^9,
- 3.842690860745908*^9}, {3.8426914641016073`*^9, 3.842691475164977*^9}, {
- 3.842942844119803*^9, 3.842942844167082*^9}, 3.842943826026473*^9},
- CellLabel->"In[76]:=",ExpressionUUID->"200b94d3-7cab-4649-99f3-c2558b1a5011"],
+ 3.841997542245502*^9, 3.8419975516374683`*^9}, {3.842080664614111*^9,
+ 3.842080665022011*^9}, {3.84208163711196*^9, 3.842081645968207*^9}, {
+ 3.842081747930049*^9, 3.84208175460223*^9}, {3.842082039052825*^9,
+ 3.8420820492397423`*^9}, {3.8423371230052137`*^9, 3.842337136476829*^9}, {
+ 3.842523090019842*^9, 3.84252309266542*^9}, {3.8425250197593327`*^9,
+ 3.84252504132528*^9}, {3.842525296842931*^9, 3.842525301753889*^9}, {
+ 3.842525379884775*^9, 3.842525395571744*^9}, {3.842525543904497*^9,
+ 3.842525544198461*^9}, {3.842525905156863*^9, 3.842525907468851*^9}, {
+ 3.8425885696042757`*^9, 3.84258858073207*^9}, {3.842588792656406*^9,
+ 3.8425888202643538`*^9}, {3.8426812946518803`*^9, 3.842681303046391*^9}, {
+ 3.8426836026128674`*^9, 3.842683605724791*^9}, {3.8426837253751593`*^9,
+ 3.842683725486979*^9}, {3.842685229708494*^9, 3.842685239291025*^9}, {
+ 3.842686938041917*^9, 3.842686952634119*^9}, {3.842687006283224*^9,
+ 3.8426870064672337`*^9}, {3.842687150575683*^9, 3.842687150637838*^9}, {
+ 3.842687393459402*^9, 3.84268739363433*^9}, 3.842687864738781*^9, {
+ 3.842687945965291*^9, 3.842687946148342*^9}, {3.842687990853121*^9,
+ 3.842688021485701*^9}, {3.842688190905941*^9, 3.842688190984992*^9}, {
+ 3.842688968071505*^9, 3.842688976815401*^9}, {3.842689079202087*^9,
+ 3.84268908089705*^9}, 3.842689217989202*^9, {3.842689321494268*^9,
+ 3.8426893215735407`*^9}, {3.84268953374725*^9, 3.842689535833342*^9}, {
+ 3.8426896540848227`*^9, 3.842689654387868*^9}, {3.842936128483087*^9,
+ 3.842936137168179*^9}, {3.8437130416597033`*^9, 3.84371305213933*^9}, {
+ 3.843715934056658*^9, 3.843715975505213*^9}, {3.843817813040893*^9,
+ 3.84381784925498*^9}, {3.843817917808107*^9, 3.843817963897434*^9}, {
+ 3.84381799998707*^9, 3.843818033913989*^9}, {3.843886344500053*^9,
+ 3.843886358521327*^9}, {3.8438968744983683`*^9, 3.843896878681469*^9}, {
+ 3.843904819491393*^9, 3.84390482089933*^9}},
+ CellLabel->
+ "In[103]:=",ExpressionUUID->"6bb6eb48-9c7f-4cd5-80e5-89dd5f03b923"],
Cell[CellGroupData[{
Cell["\<\
-CompiledFunction::cfn:
- Numerical error encountered at instruction 304; proceeding with uncompiled
- evaluation.\
-\>", "Print",
- ShowCellLabel->True,
- CellChangeTimes->{3.8429450008400097`*^9},
- CellLabel->
- "Remote kernel",ExpressionUUID->"2185ced4-0a66-4a97-8838-180d3ce37879"],
-
-Cell["\<\
General::munfl:
- -307
- 0.1 1.28874 10 is too small to represent as a normalized machine
+ -307
+ 0.1 -1.77326 10 is too small to represent as a normalized machine
number; precision may be lost.\
\>", "Print",
ShowCellLabel->True,
- CellChangeTimes->{3.842945156464916*^9},
+ CellChangeTimes->{3.843906081538807*^9},
CellLabel->
- "Remote kernel",ExpressionUUID->"df24891c-7bf9-4b21-85c2-73617581eebb"],
+ "Remote kernel",ExpressionUUID->"467aa206-d126-4a40-8067-409232ffdc3a"],
Cell["\<\
General::munfl:
- -307
- 0.1 1.78315 10 is too small to represent as a normalized machine
+ -307
+ 0.1 -1.94452 10 is too small to represent as a normalized machine
number; precision may be lost.\
\>", "Print",
ShowCellLabel->True,
- CellChangeTimes->{3.8429451565439577`*^9},
+ CellChangeTimes->{3.84390608161777*^9},
CellLabel->
- "Remote kernel",ExpressionUUID->"a6619516-6538-49ad-b331-3956e0aa62c9"],
+ "Remote kernel",ExpressionUUID->"8754ca31-013e-4466-96bb-ebec32313a78"],
Cell["\<\
General::munfl:
- -308
- 0.1 6.44369 10 is too small to represent as a normalized machine
+ -308
+ 0.1 -8.86628 10 is too small to represent as a normalized machine
number; precision may be lost.\
\>", "Print",
ShowCellLabel->True,
- CellChangeTimes->{3.842945156623135*^9},
+ CellChangeTimes->{3.843906081696913*^9},
CellLabel->
- "Remote kernel",ExpressionUUID->"0558deb8-f9a3-4d34-8ab5-3fc2fa8b0deb"],
+ "Remote kernel",ExpressionUUID->"c1aca8bb-d681-469a-bd29-f151362e33f6"],
Cell["\<\
General::stop: Further output of General::munfl
will be suppressed during this calculation.\
\>", "Print",
ShowCellLabel->True,
- CellChangeTimes->{3.8429451567021837`*^9},
+ CellChangeTimes->{3.843906081775959*^9},
CellLabel->
- "Remote kernel",ExpressionUUID->"af5140d0-5f4f-4ff2-91a9-9ac6d7032d89"]
+ "Remote kernel",ExpressionUUID->"4f212f81-2c74-4237-aad8-d1d9e3dda9a8"]
}, Open ]],
Cell[BoxData[
RowBox[{"{",
- RowBox[{"0.8189269819372189`", ",",
+ RowBox[{"1432.6975161403723`", ",",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.3798861592647795`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19657608588606654`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.315374455575039`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.1968056884469743`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.5523594631601134`"}]}], ",",
+ RowBox[{"-", "2.5164198920285257`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.7335980544394025`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6805031720145984`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5928229158635054`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.555351304228159`"}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.35752822233315795`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.008741540813834102`"}],
- ",",
- RowBox[{
- RowBox[{"A", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.2963514039309786`"}]}], ",",
+ RowBox[{"-", "0.25876637641698763`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.053507440697123036`"}],
- ",",
- RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
- RowBox[{"-", "0.019584974378453943`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.07869266586078945`"}], ",",
-
- RowBox[{
- RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.0033348773427395737`"}],
- ",",
- RowBox[{
- RowBox[{"gC", "[", "6", "]"}], "\[Rule]",
- RowBox[{"-", "0.0002653753387443968`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0070012259600581725`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "7", "]"}], "\[Rule]", "1.2063011212229598`*^-6"}]}],
- "}"}]}], "}"}]], "Output",
- CellChangeTimes->{
- 3.842526612785705*^9, 3.842527269155875*^9, 3.8425893667554903`*^9,
- 3.84258987578233*^9, 3.84259060234828*^9, {3.842601285830758*^9,
- 3.842601307261709*^9}, 3.8426020125703087`*^9, 3.842681571333026*^9, {
- 3.842681734653314*^9, 3.842681745419319*^9}, 3.84268836259077*^9,
- 3.842688403543294*^9, 3.842690288289164*^9, 3.8426908270981073`*^9,
- 3.8426914364483337`*^9, 3.8426922060770597`*^9, 3.8429405972734413`*^9,
- 3.8429412386368837`*^9, 3.842942211135921*^9, 3.842942753592914*^9,
- 3.842943612832719*^9, 3.8429444736860723`*^9, 3.842945184841517*^9},
- CellLabel->"Out[76]=",ExpressionUUID->"f91958e9-a220-4f8e-ae16-55c2d7026d35"]
-}, Open ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData["m7"], "Input",
- CellChangeTimes->{{3.8430275901073837`*^9, 3.843027590481913*^9}},
- CellLabel->
- "In[135]:=",ExpressionUUID->"2e40e185-1d47-4e98-b537-128197264f04"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{"0.8189269819372189`", ",",
- RowBox[{"{",
- RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.3798861592647795`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19657608588606654`"}], ",",
- RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.5523594631601134`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.7335980544394025`"}], ",",
- RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5928229158635054`"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.35752822233315795`"}]}], ",",
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0319998850426093`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.008741540813834102`"}],
- ",",
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.007204968199255955`"}]}], ",",
RowBox[{
RowBox[{"A", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.2963514039309786`"}]}], ",",
+ RowBox[{"-", "0.13602478432181575`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.053507440697123036`"}],
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.007914150287781679`"}],
",",
RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
- RowBox[{"-", "0.019584974378453943`"}]}], ",",
+ RowBox[{"A", "[", "4", "]"}], "\[Rule]",
+ RowBox[{"-", "0.00007653570063670653`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.07869266586078945`"}], ",",
-
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0025604297749469637`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.0033348773427395737`"}],
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00045499795722825126`"}],
",",
RowBox[{
- RowBox[{"gC", "[", "6", "]"}], "\[Rule]",
- RowBox[{"-", "0.0002653753387443968`"}]}], ",",
+ RowBox[{"A", "[", "5", "]"}], "\[Rule]", "0.00014503062514312605`"}],
+ ",",
RowBox[{
- RowBox[{"A", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0070012259600581725`"}]}], ",",
+ RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
+ RowBox[{"-", "0.00005130839800305396`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "7", "]"}], "\[Rule]", "1.2063011212229598`*^-6"}]}],
+ RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "1.7819332938806979`*^-6"}]}],
"}"}]}], "}"}]], "Output",
- CellChangeTimes->{3.843027590991024*^9},
+ CellChangeTimes->{
+ 3.843713711772421*^9, 3.8437160836635036`*^9, {3.8438178605938272`*^9,
+ 3.843817869929495*^9}, {3.843817954165783*^9, 3.843818007742099*^9},
+ 3.843818044750214*^9, 3.843887192251857*^9, 3.84388865475042*^9,
+ 3.843906116786137*^9},
CellLabel->
- "Out[135]=",ExpressionUUID->"089e5e7d-8886-4596-9b12-15e349d13600"]
-}, Open ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"m71", "=",
- RowBox[{"RemoteEvaluate", "@",
- RowBox[{"annealFit", "[",
- RowBox[{
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"5", ",",
- RowBox[{"h", "[", "7", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "10"}]]}], "]"}], "[", "9", "]"}], ",",
- RowBox[{"m7", "[",
- RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}]], "Input",
- CellChangeTimes->{{3.841826409040468*^9, 3.841826597778789*^9}, {
- 3.841826667389724*^9, 3.841826667595948*^9}, {3.8418267356853933`*^9,
- 3.8418267802857647`*^9}, {3.841826861255658*^9, 3.841826922184668*^9}, {
- 3.8418269725707407`*^9, 3.841826994313775*^9}, {3.8418270452029877`*^9,
- 3.841827053242969*^9}, {3.8418271119240437`*^9, 3.84182712854834*^9}, {
- 3.841827636088339*^9, 3.841827638701561*^9}, {3.8418280886535597`*^9,
- 3.841828101110017*^9}, {3.841828420412331*^9, 3.8418284236037703`*^9}, {
- 3.8418295127754307`*^9, 3.8418295264076853`*^9}, {3.842337631182955*^9,
- 3.8423376428942547`*^9}, {3.8423390522239523`*^9, 3.842339066648242*^9}, {
- 3.842692328096613*^9, 3.842692341828763*^9}, {3.842692714789094*^9,
- 3.84269271557976*^9}},
- CellLabel->"In[89]:=",ExpressionUUID->"0dba08c9-c74d-4268-96fa-0c6efda987ca"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{"175.89692615640794`", ",",
- RowBox[{"{",
- RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.375435411428919`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.1965201354188921`"}], ",",
- RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.548202398429163`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.7277523989023333`"}], ",",
- RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.602777511249843`"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.35476072551695503`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
- RowBox[{"-", "0.0071698284978869015`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.28737467546972323`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.052493450595160036`"}],
- ",",
- RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
- RowBox[{"-", "0.019894421937458582`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.07241135663444981`"}], ",",
-
- RowBox[{
- RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.003534527038057842`"}],
- ",",
- RowBox[{
- RowBox[{"gC", "[", "6", "]"}], "\[Rule]",
- RowBox[{"-", "0.00033818931210095453`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.007245524506332198`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
- "0.000010619260978013524`"}]}], "}"}]}], "}"}]], "Output",
- CellChangeTimes->{3.842426928944779*^9, 3.842586429545986*^9,
- 3.842692707013597*^9, 3.8426931510872393`*^9, 3.8429457231988564`*^9},
- CellLabel->"Out[89]=",ExpressionUUID->"30dd2ebb-5e89-4bec-b443-d6cfa7697ac6"]
+ "Out[103]=",ExpressionUUID->"2a2c83e9-3cde-44af-a7d5-e6b62504ce18"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
- RowBox[{"m8", "=",
+ RowBox[{
+ RowBox[{"SN", "[", "9", "]"}], "=",
RowBox[{"RemoteEvaluate", "@",
RowBox[{"annealFit", "[",
RowBox[{
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"6", ",",
- RowBox[{"h", "[", "8", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "5"}]]}], "]"}], "[", "10", "]"}], ",",
RowBox[{"Join", "[",
RowBox[{
- RowBox[{"m7", "[",
- RowBox[{"[", "2", "]"}], "]"}], ",",
- RowBox[{"{",
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "9", "]"}], ",",
+ RowBox[{"HN", "[", "9", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "10"}]]}], "]"}], "[", "9", "]"}], ",",
+ RowBox[{"Table", "[",
RowBox[{
RowBox[{
- RowBox[{"gC", "[", "8", "]"}], "->", "0"}], ",",
+ RowBox[{"A", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"NFN", "[", "9", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
RowBox[{
- RowBox[{"A", "[", "6", "]"}], "->", "0"}]}], "}"}]}], "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "3"}]]}], "]"}]}]}]], "Input",
- CellChangeTimes->CompressedData["
-1:eJwd0F1Ik3EYBfA1neBmEGNaWeAHYqnDbZExsjcV2yqNLoTENIYOst2kZl+C
-FyqsLS+W72Bh4EgnRHY1ja2PRWFTNGwFG2uIw5wb2WyLQERzhfWc/8Xhd3me
-5xToOxuuCgUCQQkF5lnvzg09TtYU/0v64J3lxRVY8YtfhR2D0u9QmqGLw1eV
-RVtQnbeyDWMvLOU8KWuVKaGpK+z0kPJg9Dn0DoYiMGNql1kV6jv7hpzQWurg
-huytNkKK22+fg/ONPSaYfemQGXKWL6Mw/DPFDH3TvI6SCY3EAz8Jb01D276P
-s3CJV7pjpOjrMebk0EEPzN/pewcj2qf9aaP054GtAdh74XJbOmn/e1EPc6yh
-buiqFN+EBn+aEZaIOOZpZ+A9fDY54IVnFA5bFrkQHWfa7z+S7CWtgaNZUK/S
-NkF5XQ9zf8yxZiRzu9LjsOGJUXyPzKxNSGAyUKuAR0QKJSxL3HCb0Fv1kmnr
-dfpha+lMANrtD6+byR9yvgOqhjsjLvTJP6xCdX1bHNbzw+vw+G7hlJssDPIu
-WDDmmlaO0T268174Z1y6AFOfc5lr3B5ORZorNmugkDusLnbQPhoDs6ja9xsa
-dH5mamQis4UsDZ6SwAcnDeVXyBFBowK2r5eZwuTOtX4zzGnu9m2TshOLzP9R
-Il/A
- "],
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}]}], "]"}], ",",
+ RowBox[{
+ RowBox[{"SN", "[", "9", "]"}], "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.843896889153625*^9, 3.8438968892496347`*^9},
+ 3.8439010500301847`*^9},
CellLabel->
- "In[134]:=",ExpressionUUID->"77feec13-1cdc-471d-8d45-49920b8c9c58"],
+ "In[163]:=",ExpressionUUID->"50ae3a0c-00b7-48d3-bbd9-7fcdb7e9be65"],
-Cell[BoxData[
- TemplateBox[{
- "LinkObject", "linkd",
- "\"Unable to communicate with closed link \
-\\!\\(\\*RowBox[{\\\"LinkObject\\\", \\\"[\\\", RowBox[{\\\"\\\\\\\"ssh -4 -x \
--o StrictHostKeyChecking=no -o BatchMode=yes -l math sident.lassp.cornell.edu \
-wolfram -noinit -wstp\\\\\\\"\\\", \\\",\\\", \\\"3950\\\", \\\",\\\", \\\"11\
-\\\"}], \\\"]\\\"}]\\).\"", 2, 134, 66, 31647447333701645841, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.8430227605867643`*^9, 3.843027465907736*^9},
+Cell[CellGroupData[{
+
+Cell["\<\
+Part::partd: Part specification $Failed[[2]] is longer than depth of object.\
+\>", "Print",
+ ShowCellLabel->True,
+ CellChangeTimes->{3.843901505357917*^9},
CellLabel->
- "During evaluation of \
-In[134]:=",ExpressionUUID->"91443dc7-57dd-4d8a-aff2-566e34296967"],
+ "Remote kernel",ExpressionUUID->"f2db3760-255a-4d78-86c0-da167b38c746"],
-Cell[BoxData[
- TemplateBox[{
- "RemoteEvaluate", "badlink",
- "\"RemoteEvaluate could not read from link \\!\\(\\*RowBox[{\\\"LinkObject\
-\\\", \\\"[\\\", RowBox[{\\\"\\\\\\\"ssh -4 -x -o StrictHostKeyChecking=no -o \
-BatchMode=yes -l math sident.lassp.cornell.edu wolfram -noinit \
--wstp\\\\\\\"\\\", \\\",\\\", \\\"3950\\\", \\\",\\\", \\\"11\\\"}], \
-\\\"]\\\"}]\\).\"", 2, 134, 67, 31647447333701645841, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.8430227605867643`*^9, 3.8430274659128532`*^9},
+Cell["\<\
+First::normal: Nonatomic expression expected at position 1 in First[$Failed].\
+\
+\>", "Print",
+ ShowCellLabel->True,
+ CellChangeTimes->{3.843901505460285*^9},
CellLabel->
- "During evaluation of \
-In[134]:=",ExpressionUUID->"8c8db586-7a76-4cc8-b40c-f5641a83fb2a"],
+ "Remote kernel",ExpressionUUID->"9eaeaa47-2a19-4f62-8edd-d739b738dc97"],
-Cell[BoxData[
- TemplateBox[{
- "LinkObject", "linkn",
- "\"Argument \\!\\(\\*RowBox[{\\\"LinkObject\\\", \\\"[\\\", RowBox[{\\\"\\\
-\\\\\"ssh -4 -x -o StrictHostKeyChecking=no -o BatchMode=yes -l math \
-sident.lassp.cornell.edu wolfram -noinit -wstp\\\\\\\"\\\", \\\",\\\", \
-\\\"3950\\\", \\\",\\\", \\\"11\\\"}], \\\"]\\\"}]\\) in \
-\\!\\(\\*RowBox[{\\\"LinkClose\\\", \\\"[\\\", RowBox[{\\\"LinkObject\\\", \\\
-\"[\\\", RowBox[{\\\"\\\\\\\"ssh -4 -x -o StrictHostKeyChecking=no -o \
-BatchMode=yes -l math sident.lassp.cornell.edu wolfram -noinit \
--wstp\\\\\\\"\\\", \\\",\\\", \\\"3950\\\", \\\",\\\", \\\"11\\\"}], \
-\\\"]\\\"}], \\\"]\\\"}]\\) has an invalid LinkObject number; the link may be \
-closed.\"", 2, 134, 68, 31647447333701645841, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.8430227605867643`*^9, 3.8430274659176064`*^9},
+Cell["\<\
+First::normal: Nonatomic expression expected at position 1 in First[2].\
+\>", "Print",
+ ShowCellLabel->True,
+ CellChangeTimes->{3.8439015055396347`*^9},
CellLabel->
- "During evaluation of \
-In[134]:=",ExpressionUUID->"55680071-ebde-46b2-9985-b7b1773db7d9"],
+ "Remote kernel",ExpressionUUID->"516762a4-e3a4-49c8-afd5-ebb9602701c3"],
-Cell[BoxData["$Failed"], "Output",
- CellChangeTimes->{3.841829478405797*^9, 3.842082489741064*^9,
- 3.842083149562351*^9, 3.842083340661083*^9, 3.8424304437921963`*^9,
- 3.842588045934964*^9, 3.842605348676124*^9, 3.8426955372270527`*^9,
- 3.842699079739625*^9, 3.842951609647294*^9, 3.8429563055131893`*^9,
- 3.842956346130459*^9, 3.842958187894113*^9, 3.843017098691923*^9,
- 3.8430227606049833`*^9, 3.843027465922112*^9},
+Cell["\<\
+Part::pkspec1: The expression First[2] cannot be used as a part specification.\
+\>", "Print",
+ ShowCellLabel->True,
+ CellChangeTimes->{3.843901505619438*^9},
CellLabel->
- "Out[134]=",ExpressionUUID->"23e34e05-cb3e-40f1-ba06-a11819fced80"]
-}, Open ]],
+ "Remote kernel",ExpressionUUID->"8c6b0e8c-5f47-421a-af95-4872d1d3fdd4"],
-Cell[CellGroupData[{
+Cell["\<\
+First::normal: Nonatomic expression expected at position 1 in First[$Failed].\
+\
+\>", "Print",
+ ShowCellLabel->True,
+ CellChangeTimes->{3.8439015080475693`*^9},
+ CellLabel->
+ "Remote kernel",ExpressionUUID->"10d22756-dcd4-44d1-aac4-99016bb32ee9"],
-Cell[BoxData[
- RowBox[{"m81", "=",
- RowBox[{"RemoteEvaluate", "@",
- RowBox[{"annealFit", "[",
- RowBox[{
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"6", ",",
- RowBox[{"h", "[", "8", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "10"}]]}], "]"}], "[", "10", "]"}], ",",
- RowBox[{"Join", "[",
- RowBox[{
- RowBox[{"m8", "[",
- RowBox[{"[", "2", "]"}], "]"}], ",",
- RowBox[{"{", "}"}]}], "]"}]}], "]"}]}]}]], "Input",
- CellChangeTimes->CompressedData["
-1:eJwd0F1Ik3EYBfA1neC2QMa0ssAUMdPhtkgYrjcT2yyNLoRESYYOit2k9i14
-sYS15cXyHSwMHOqEyK6msfWxUHSGih/RxhqRlHMjW24RRFqusJ7zvzj8Ls/z
-nEJjZ+MloUAgKKXAAsftuf6hVE3Jv9QyvPXx/Rqs/M6vw44+2RcoyzIk4Att
-8TbUFKz9gvFn9gqelLfJVdDaterxk4pw7CkM9EWiMGtil1kdMde9Isf09nr4
-Qz6pj5LiyzfPwPmmbivMvXDQBjn7u2G4+i3NjHzWvYyRSZ3ED1eEN6ahM2fp
-NfzAq3xxUvTpGHO8/4AfHt4xT8Go/vGdjGH6c/92L+w519KeSbr+njfCPEfk
-GvRqxdehKZhhgUdFHPOkJzQDn4z3BuBppdspJRdjo0zXvYeSvaQjVCqFRrW+
-GSrqu5n74u4NC5nflZmAjY8s4rtkdm1SAlOhWiU8IlKqYHnyqs+K3urnTGeP
-JwjbymZD0OV6cMVGbir4Dqge6Ix60adYWIeahvYEbOAHvsLju0UTPrIozHth
-4Yh3WjVC9xjOBuCfUdkiTL/JZ25wezg1aav8WQOF3CFNiZv20ZmYxaeWf0OT
-IchMD45lXyTLwick8H6VqaKVHBQ0KWGd1jz3lpRObi3A/5ZfVmk=
- "],
+Cell["\<\
+General::stop: Further output of First::normal
+ will be suppressed during this calculation.\
+\>", "Print",
+ ShowCellLabel->True,
+ CellChangeTimes->{3.843901508126801*^9},
CellLabel->
- "In[107]:=",ExpressionUUID->"2742bf10-6e80-4043-a3d1-4f8276912fa7"],
+ "Remote kernel",ExpressionUUID->"084e7849-246f-429f-855f-22c2c43a8763"],
-Cell[CellGroupData[{
+Cell["\<\
+Part::pkspec1: The expression First[2] cannot be used as a part specification.\
+\>", "Print",
+ ShowCellLabel->True,
+ CellChangeTimes->{3.843901508206236*^9},
+ CellLabel->
+ "Remote kernel",ExpressionUUID->"e015d14b-eb0c-4bb0-af1c-188c96529d70"],
Cell["\<\
-General::munfl:
- -263 -53
- 7.64335 10 1.63811 10 is too small to represent as a normalized
- machine number; precision may be lost.\
+Part::pkspec1: The expression First[2] cannot be used as a part specification.\
\>", "Print",
ShowCellLabel->True,
- CellChangeTimes->{3.8429596446057873`*^9},
+ CellChangeTimes->{3.843901508285781*^9},
CellLabel->
- "Remote kernel",ExpressionUUID->"d968a77e-0b23-4ede-8778-fe70c8fe67a4"],
+ "Remote kernel",ExpressionUUID->"bc7a1a36-c9f3-4c07-90fe-8ed0ce16359d"],
Cell["\<\
-General::munfl:
- -263 -53
- 7.64335 10 1.63811 10 is too small to represent as a normalized
- machine number; precision may be lost.\
+General::stop: Further output of Part::pkspec1
+ will be suppressed during this calculation.\
\>", "Print",
ShowCellLabel->True,
- CellChangeTimes->{3.842959644684785*^9},
+ CellChangeTimes->{3.8439015083653307`*^9},
CellLabel->
- "Remote kernel",ExpressionUUID->"c0fb9f74-f597-4290-ab92-19fc6918cb3b"],
+ "Remote kernel",ExpressionUUID->"ad6e1792-e476-45f4-ada9-6baaeb9e165a"],
Cell["\<\
-General::munfl:
- -264 -54
- 2.38855 10 8.19053 10 is too small to represent as a normalized
- machine number; precision may be lost.\
+Part::partd: Part specification $Failed[[2]][[All,2]]
+ is longer than depth of object.\
\>", "Print",
ShowCellLabel->True,
- CellChangeTimes->{3.842959644763789*^9},
+ CellChangeTimes->{3.843901508444538*^9},
CellLabel->
- "Remote kernel",ExpressionUUID->"d580040e-4b47-47e5-a184-41377961a189"],
+ "Remote kernel",ExpressionUUID->"9badaa21-a438-4ebf-a9b8-b6f0cc53a9a5"],
Cell["\<\
-General::stop: Further output of General::munfl
+CompiledFunction::cfta:
+ Argument $Failed[[2]][[All,2]] at position 1 should be a rank 1 tensor of
+ machine-size real numbers.\
+\>", "Print",
+ ShowCellLabel->True,
+ CellChangeTimes->{3.843901508818513*^9},
+ CellLabel->
+ "Remote kernel",ExpressionUUID->"103493b3-bc70-4d18-ae26-4b48ba433f58"],
+
+Cell["\<\
+Part::partd: Part specification $Failed[[2]][[All,2]]
+ is longer than depth of object.\
+\>", "Print",
+ ShowCellLabel->True,
+ CellChangeTimes->{3.8439015088978977`*^9},
+ CellLabel->
+ "Remote kernel",ExpressionUUID->"702392f9-fce6-4fe0-a53b-091e531871fc"],
+
+Cell["\<\
+General::stop: Further output of Part::partd
will be suppressed during this calculation.\
\>", "Print",
ShowCellLabel->True,
- CellChangeTimes->{3.842959644842986*^9},
+ CellChangeTimes->{3.84390150897721*^9},
CellLabel->
- "Remote kernel",ExpressionUUID->"f836f1cb-320c-4756-a39e-0d2706b3cc76"],
+ "Remote kernel",ExpressionUUID->"891d5c90-8786-453c-915a-5c9758870145"],
Cell["\<\
-CompiledFunction::cfne:
- Numerical error encountered; proceeding with uncompiled evaluation.\
+CompiledFunction::cfta:
+ Argument $Failed[[2]][[All,2]] at position 1 should be a rank 1 tensor of
+ machine-size real numbers.\
\>", "Print",
ShowCellLabel->True,
- CellChangeTimes->{3.842959644973405*^9},
+ CellChangeTimes->{3.843901509056631*^9},
+ CellLabel->
+ "Remote kernel",ExpressionUUID->"18c6d658-6045-48d1-b671-d40f83ee93a5"],
+
+Cell["Diagonal::list: List expected at position 1 in Diagonal[0].", "Print",
+ ShowCellLabel->True,
+ CellChangeTimes->{3.843901510867215*^9},
CellLabel->
- "Remote kernel",ExpressionUUID->"c1df8207-0a77-43dc-8619-51d191eb8a45"],
+ "Remote kernel",ExpressionUUID->"95489f99-5b01-4f57-9a57-182c23961f20"],
Cell["\<\
-CompiledFunction::cfn:
- Numerical error encountered at instruction 329; proceeding with uncompiled
- evaluation.\
+ 1
+Diagonal::list: List expected at position 1 in Diagonal[------].
+ 100000\
\>", "Print",
ShowCellLabel->True,
- CellChangeTimes->{3.842960026779848*^9},
+ CellChangeTimes->{3.8439015109464617`*^9},
CellLabel->
- "Remote kernel",ExpressionUUID->"7bac1e96-85d8-4b0c-a777-cc3800b0bd9f"]
-}, Open ]],
+ "Remote kernel",ExpressionUUID->"f2fff34e-167a-4e82-ba62-ead2b1143e60"],
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{"474.3340844808429`", ",",
- RowBox[{"{",
- RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.3945402473101085`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19657904694560144`"}], ",",
- RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.540331831170335`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.7160917979602017`"}], ",",
- RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5879818755841343`"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.3570513437923083`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.00008683579482103827`"}],
- ",",
- RowBox[{
- RowBox[{"A", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.2832843539025121`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.052008686379266846`"}],
- ",",
- RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
- RowBox[{"-", "0.020069279882927036`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.07315824903377943`"}], ",",
-
- RowBox[{
- RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.0034639815271289166`"}],
- ",",
- RowBox[{
- RowBox[{"gC", "[", "6", "]"}], "\[Rule]",
- RowBox[{"-", "0.00023626079352352796`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.007241986884380438`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
- RowBox[{"-", "0.000021904950135006763`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "3.454775277884922`*^-6"}],
- ",",
- RowBox[{
- RowBox[{"A", "[", "6", "]"}], "\[Rule]",
- RowBox[{"-", "3.393785586194989`*^-6"}]}]}], "}"}]}], "}"}]], "Output",
- CellChangeTimes->{3.841829478405797*^9, 3.842082489741064*^9,
- 3.842083149562351*^9, 3.842083340661083*^9, 3.8424304437921963`*^9,
- 3.842588045934964*^9, 3.842605348676124*^9, 3.8426955372270527`*^9,
- 3.842699079739625*^9, 3.842936038504257*^9, 3.8429603423886766`*^9},
+Cell["Diagonal::list: List expected at position 1 in Diagonal[0].", "Print",
+ ShowCellLabel->True,
+ CellChangeTimes->{3.843901511025448*^9},
CellLabel->
- "Out[107]=",ExpressionUUID->"956b70bf-8ee9-40a5-8b0c-7ecec5569248"]
+ "Remote kernel",ExpressionUUID->"4171c4a8-9b74-4d07-876d-81d571c07477"],
+
+Cell["\<\
+General::stop: Further output of Diagonal::list
+ will be suppressed during this calculation.\
+\>", "Print",
+ ShowCellLabel->True,
+ CellChangeTimes->{3.843901511104794*^9},
+ CellLabel->
+ "Remote kernel",ExpressionUUID->"45356bd2-8112-4f01-b137-4fef8466cde1"],
+
+Cell["\<\
+CompiledFunction::cfta:
+ 1
+ Argument -0.1 LinearSolve[DiagonalMatrix[Diagonal[------]], 0.] +
+ 100000
+ $Failed[[2]][[All,2]] at position 1 should be a rank 1 tensor of
+ machine-size real numbers.\
+\>", "Print",
+ ShowCellLabel->True,
+ CellChangeTimes->{3.843901511184938*^9},
+ CellLabel->
+ "Remote kernel",ExpressionUUID->"5978dcc5-7b1e-4d27-9474-82e19086971d"],
+
+Cell["\<\
+General::stop: Further output of CompiledFunction::cfta
+ will be suppressed during this calculation.\
+\>", "Print",
+ ShowCellLabel->True,
+ CellChangeTimes->{3.843901511262813*^9},
+ CellLabel->
+ "Remote kernel",ExpressionUUID->"3f77796a-af19-4895-a65a-bfbc320f7174"]
+}, Open ]]
}, Open ]],
Cell[CellGroupData[{
-Cell[BoxData[
- RowBox[{"m9", "=",
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"NFN", "[", "10", "]"}], "=", "7"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"HN", "[", "10", "]"}], "=",
+ RowBox[{"h", "[", "8", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"SN", "[", "10", "]"}], "=",
RowBox[{"RemoteEvaluate", "@",
RowBox[{"annealFit", "[",
RowBox[{
- RowBox[{
+ RowBox[{"Join", "[",
RowBox[{
- RowBox[{"res", "[",
- RowBox[{"6", ",",
- RowBox[{"h", "[", "9", "]"}], ",", "\[Delta]"}], "]"}], "[", "11",
- "]"}], "//.",
- RowBox[{"rules", "[",
- RowBox[{"h", "[", "9", "]"}], "]"}]}], ",", "\[Delta]", ",",
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "10", "]"}], ",",
+ RowBox[{"HN", "[", "10", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "6"}]]}], "]"}], "[", "10", "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"A", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"NFN", "[", "10", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}]}], "]"}], ",",
RowBox[{"Join", "[",
RowBox[{
- RowBox[{"m8", "[",
+ RowBox[{
+ RowBox[{"SN", "[", "9", "]"}], "[",
RowBox[{"[", "2", "]"}], "]"}], ",",
RowBox[{"{",
RowBox[{
- RowBox[{"gC", "[", "9", "]"}], "->", "0"}], "}"}]}], "]"}]}],
- "]"}]}]}]], "Input",
- CellChangeTimes->CompressedData["
-1:eJwd0F1Ik3EYBfA1ndBmEGOZWmDKmJbDvYuEgbyZ2JYf4YWg1EVDB8Zu8qsP
-BS9UmFteDN/Bwi5GOiHMq2lsWhNlLrEwDbZsRKLOjXS5RRBhZaI9539x+F2e
-5zn5prb6FrFIJFJRYJ6ja2noWapCdZxagY82Pm/B0h/CNmwdlO9CeYYxAV+V
-KfehLm/rN4xP20sEUtGk4KC1fd3jJ9VrsZcwOBiJwoypI2Z5pPfGLPnCYK+B
-PxVzhigpvfuwCr5t7LbCMw3nbJC3fxqB698PmJGv+tcxMqmX+eGq+EEAOk+/
-X4RfBM4XJyWbl5mTQzl+eOFv7zyMGsb70kboz+z9fthz83ZzOuk6rDPBLEek
-E3rLpPehOZRmgRclPPOqJ7wAJyb7g/C6xu3MJJdjY0zX46eyU6QjXJQJTVrD
-Laiu6Waejbt3LGRue3oC1j+3SAfIk5VJGUyFKzWwUKLhYHGyw2dFb/kM09nj
-CcGmS2/C0OV6cs9G7qmFVqgdbot60ad+tw11tc0JWCsMf4NXjgqmfGTBmuCF
-+aPeADdK9xirg/DfmHwZHnzIZe7wJ3gtaSv9VQHF/Hmdyk376M1M5bWVP9Bs
-DDEb7ihLODL+McXB/9MBRgE=
- "],
+ RowBox[{
+ RowBox[{"gC", "[", "8", "]"}], "->", "0"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "7", "]"}], "->", "0"}]}], "}"}]}], "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "6"}]]}], "]"}]}]}]}], "Input",
+ CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, {
+ 3.841228542777034*^9, 3.8412285565292*^9}, {3.841228600579276*^9,
+ 3.841228610938241*^9}, {3.84122872113229*^9, 3.841228734972561*^9}, {
+ 3.841229172428575*^9, 3.8412291846367283`*^9}, {3.841316222857486*^9,
+ 3.8413162470884*^9}, {3.841316614704316*^9, 3.8413166159591093`*^9}, {
+ 3.841317435994903*^9, 3.841317460414875*^9}, {3.841393205908807*^9,
+ 3.841393219668706*^9}, {3.841393715760593*^9, 3.841393720854136*^9}, {
+ 3.841393918673491*^9, 3.841393919841535*^9}, {3.841398218184306*^9,
+ 3.841398224352285*^9}, {3.841398275625342*^9, 3.8413983103457737`*^9}, {
+ 3.841400233517682*^9, 3.841400233589602*^9}, {3.84140027279879*^9,
+ 3.841400307999161*^9}, {3.8414653492274017`*^9, 3.841465359690486*^9}, {
+ 3.841467146790586*^9, 3.841467154468336*^9}, {3.8414672867052107`*^9,
+ 3.841467288319788*^9}, {3.8414674241193123`*^9, 3.84146742590688*^9}, {
+ 3.841467918583892*^9, 3.841467924052815*^9}, {3.8414839410370197`*^9,
+ 3.841483941090184*^9}, {3.841484892766676*^9, 3.841484897275704*^9}, {
+ 3.841485506193528*^9, 3.841485507759054*^9}, {3.841730357058971*^9,
+ 3.8417303681386843`*^9}, {3.8417306441451807`*^9, 3.841730655351933*^9}, {
+ 3.8417309381194973`*^9, 3.841730945469379*^9}, {3.841734059559957*^9,
+ 3.84173406172647*^9}, {3.841734285483835*^9, 3.8417342940989227`*^9}, {
+ 3.8417355326753674`*^9, 3.8417355405054827`*^9}, {3.841828611487206*^9,
+ 3.841828622255392*^9}, {3.841828675040432*^9, 3.841828684736364*^9}, {
+ 3.841997542245502*^9, 3.8419975516374683`*^9}, {3.842080664614111*^9,
+ 3.842080665022011*^9}, {3.84208163711196*^9, 3.842081645968207*^9}, {
+ 3.842081747930049*^9, 3.84208175460223*^9}, {3.842082039052825*^9,
+ 3.8420820492397423`*^9}, {3.8423371230052137`*^9, 3.842337136476829*^9}, {
+ 3.842523090019842*^9, 3.84252309266542*^9}, {3.8425250197593327`*^9,
+ 3.84252504132528*^9}, {3.842525296842931*^9, 3.842525301753889*^9}, {
+ 3.842525379884775*^9, 3.842525395571744*^9}, {3.842525543904497*^9,
+ 3.842525544198461*^9}, {3.842525905156863*^9, 3.842525907468851*^9}, {
+ 3.8425885696042757`*^9, 3.84258858073207*^9}, {3.842588792656406*^9,
+ 3.8425888202643538`*^9}, {3.8426812946518803`*^9, 3.842681303046391*^9}, {
+ 3.8426836026128674`*^9, 3.842683605724791*^9}, {3.8426837253751593`*^9,
+ 3.842683725486979*^9}, {3.842685229708494*^9, 3.842685239291025*^9}, {
+ 3.842686938041917*^9, 3.842686952634119*^9}, {3.842687006283224*^9,
+ 3.8426870064672337`*^9}, {3.842687150575683*^9, 3.842687150637838*^9}, {
+ 3.842687393459402*^9, 3.84268739363433*^9}, 3.842687864738781*^9, {
+ 3.842687945965291*^9, 3.842687946148342*^9}, {3.842687990853121*^9,
+ 3.842688021485701*^9}, {3.842688190905941*^9, 3.842688190984992*^9}, {
+ 3.842688968071505*^9, 3.842688976815401*^9}, {3.842689079202087*^9,
+ 3.84268908089705*^9}, 3.842689217989202*^9, {3.842689321494268*^9,
+ 3.8426893215735407`*^9}, {3.84268953374725*^9, 3.842689535833342*^9}, {
+ 3.8426896540848227`*^9, 3.842689654387868*^9}, {3.842936128483087*^9,
+ 3.842936137168179*^9}, {3.8437130416597033`*^9, 3.84371305213933*^9}, {
+ 3.843715934056658*^9, 3.843715975505213*^9}, {3.843817813040893*^9,
+ 3.84381784925498*^9}, {3.843817917808107*^9, 3.843817963897434*^9},
+ 3.84381799998707*^9, {3.843885942705492*^9, 3.84388594524964*^9}, {
+ 3.843886284376079*^9, 3.84388631712049*^9}, 3.8438876530431747`*^9, {
+ 3.843891405565366*^9, 3.8438914616700478`*^9}},
CellLabel->
- "In[255]:=",ExpressionUUID->"da6fb0f0-808b-49e1-9a6d-6ced77c20899"],
+ "In[417]:=",ExpressionUUID->"f5124a1f-1004-49ef-bdce-65e49311db89"],
Cell[BoxData[
TemplateBox[{
@@ -3964,13 +4440,13 @@ Cell[BoxData[
"\"Unable to communicate with closed link \
\\!\\(\\*RowBox[{\\\"LinkObject\\\", \\\"[\\\", RowBox[{\\\"\\\\\\\"ssh -4 -x \
-o StrictHostKeyChecking=no -o BatchMode=yes -l math sident.lassp.cornell.edu \
-wolfram -noinit -wstp\\\\\\\"\\\", \\\",\\\", \\\"7847\\\", \\\",\\\", \\\"11\
-\\\"}], \\\"]\\\"}]\\).\"", 2, 255, 258, 31645164027744773303, "Local"},
+wolfram -noinit -wstp\\\\\\\"\\\", \\\",\\\", \\\"8991\\\", \\\",\\\", \\\"10\
+\\\"}], \\\"]\\\"}]\\).\"", 2, 416, 229, 31653629920828211403, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.84260545067861*^9, 3.8426134264024973`*^9},
+ CellChangeTimes->{3.84389145785489*^9},
CellLabel->
"During evaluation of \
-In[255]:=",ExpressionUUID->"a7443b43-ee71-430d-91d4-435b34fc9655"],
+In[414]:=",ExpressionUUID->"52d37aec-5e97-49ba-a73f-9240ea9bab01"],
Cell[BoxData[
TemplateBox[{
@@ -3978,13 +4454,13 @@ Cell[BoxData[
"\"RemoteEvaluate could not read from link \\!\\(\\*RowBox[{\\\"LinkObject\
\\\", \\\"[\\\", RowBox[{\\\"\\\\\\\"ssh -4 -x -o StrictHostKeyChecking=no -o \
BatchMode=yes -l math sident.lassp.cornell.edu wolfram -noinit \
--wstp\\\\\\\"\\\", \\\",\\\", \\\"7847\\\", \\\",\\\", \\\"11\\\"}], \
-\\\"]\\\"}]\\).\"", 2, 255, 259, 31645164027744773303, "Local"},
+-wstp\\\\\\\"\\\", \\\",\\\", \\\"8991\\\", \\\",\\\", \\\"10\\\"}], \
+\\\"]\\\"}]\\).\"", 2, 416, 230, 31653629920828211403, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.84260545067861*^9, 3.842613426410461*^9},
+ CellChangeTimes->{3.843891457867916*^9},
CellLabel->
"During evaluation of \
-In[255]:=",ExpressionUUID->"3a4d6953-ecc7-4836-bcde-ce1889fff237"],
+In[414]:=",ExpressionUUID->"a87cd0bd-956c-4292-bb38-f01fa93f88fa"],
Cell[BoxData[
TemplateBox[{
@@ -3992,150 +4468,66 @@ Cell[BoxData[
"\"Argument \\!\\(\\*RowBox[{\\\"LinkObject\\\", \\\"[\\\", RowBox[{\\\"\\\
\\\\\"ssh -4 -x -o StrictHostKeyChecking=no -o BatchMode=yes -l math \
sident.lassp.cornell.edu wolfram -noinit -wstp\\\\\\\"\\\", \\\",\\\", \
-\\\"7847\\\", \\\",\\\", \\\"11\\\"}], \\\"]\\\"}]\\) in \
+\\\"8991\\\", \\\",\\\", \\\"10\\\"}], \\\"]\\\"}]\\) in \
\\!\\(\\*RowBox[{\\\"LinkClose\\\", \\\"[\\\", RowBox[{\\\"LinkObject\\\", \\\
\"[\\\", RowBox[{\\\"\\\\\\\"ssh -4 -x -o StrictHostKeyChecking=no -o \
BatchMode=yes -l math sident.lassp.cornell.edu wolfram -noinit \
--wstp\\\\\\\"\\\", \\\",\\\", \\\"7847\\\", \\\",\\\", \\\"11\\\"}], \
+-wstp\\\\\\\"\\\", \\\",\\\", \\\"8991\\\", \\\",\\\", \\\"10\\\"}], \
\\\"]\\\"}], \\\"]\\\"}]\\) has an invalid LinkObject number; the link may be \
-closed.\"", 2, 255, 260, 31645164027744773303, "Local"},
+closed.\"", 2, 416, 231, 31653629920828211403, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.84260545067861*^9, 3.842613426416132*^9},
+ CellChangeTimes->{3.843891457873457*^9},
CellLabel->
"During evaluation of \
-In[255]:=",ExpressionUUID->"f91cae25-3d55-4507-97e3-8efe0f1015cd"],
+In[414]:=",ExpressionUUID->"fd51acaa-08e6-4912-b93f-c1e1c0519a2a"],
Cell[BoxData["$Failed"], "Output",
- CellChangeTimes->{3.841829478405797*^9, 3.842082489741064*^9,
- 3.842083149562351*^9, 3.842083340661083*^9, 3.8424304437921963`*^9,
- 3.842588045934964*^9, 3.842605348676124*^9, 3.842605450691359*^9,
- 3.842613426421671*^9},
+ CellChangeTimes->{
+ 3.843713711772421*^9, 3.8437160836635036`*^9, {3.8438178605938272`*^9,
+ 3.843817869929495*^9}, {3.843817954165783*^9, 3.843818007742099*^9},
+ 3.843886804598036*^9, 3.843888264731264*^9, 3.843891457878318*^9},
CellLabel->
- "Out[255]=",ExpressionUUID->"8ae1da27-83ab-4529-80cd-aa8d17f74340"]
+ "Out[416]=",ExpressionUUID->"d33cb855-0ed5-497d-8933-b6ebe6b81534"]
}, Open ]],
-Cell[CellGroupData[{
-
Cell[BoxData[
- RowBox[{"m81", "=",
- RowBox[{
- "Import", "[", "\"\<~/doc/research/first_order_singularities/mma/m8.wl\>\"",
- "]"}]}]], "Input",
- CellChangeTimes->{{3.8431175557870197`*^9, 3.843117572978077*^9},
- 3.843117649811626*^9},
- CellLabel->
- "In[368]:=",ExpressionUUID->"f17f1130-056e-4552-87df-88000e071617"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{"477.8872720993887`", ",",
- RowBox[{"{",
+ RowBox[{
+ RowBox[{"SN", "[", "10", "]"}], "=",
+ RowBox[{"RemoteEvaluate", "@",
+ RowBox[{"annealFit", "[",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.3945095399721226`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19657331402448114`"}], ",",
- RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.540815351266595`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.7168304596304513`"}], ",",
- RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.58914437918972`"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.3578933157155564`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
- RowBox[{"-", "0.0002471276399885635`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.28467214257786666`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.05289863457865093`"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
- RowBox[{"-", "0.0201090322678147`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.073168474426385`"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.0034486104788930307`"}],
- ",",
- RowBox[{
- RowBox[{"gC", "[", "6", "]"}], "\[Rule]",
- RowBox[{"-", "0.00021837125394706086`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.007098620515609658`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
- RowBox[{"-", "0.000025781921631023817`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "3.737427990965571`*^-6"}],
- ",",
- RowBox[{
- RowBox[{"A", "[", "6", "]"}], "\[Rule]", "0.000017492654253389754`"}]}],
- "}"}]}], "}"}]], "Output",
- CellChangeTimes->{3.843117650061253*^9},
- CellLabel->
- "Out[368]=",ExpressionUUID->"02d3c92e-d0da-4803-afd6-9943e49011bf"]
-}, Open ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"m81", "=",
- RowBox[{"FindRoot", "[",
- RowBox[{
- RowBox[{"Evaluate", "[",
- RowBox[{"D", "[",
+ RowBox[{"Join", "[",
RowBox[{
RowBox[{
- RowBox[{"Total", "[",
- SuperscriptBox[
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"6", ",",
- RowBox[{"h", "[", "8", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "15"}]]}], "]"}], "[", "10", "]"}], "2"], "]"}], "//.",
- RowBox[{"rules", "[",
- RowBox[{"h", "[", "8", "]"}], "]"}]}], ",",
- RowBox[{"{",
- RowBox[{"m8", "[",
- RowBox[{"[",
- RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}],
- "]"}], ",",
- RowBox[{"Evaluate", "[",
- RowBox[{
- RowBox[{"m8", "[",
- RowBox[{"[", "2", "]"}], "]"}], "/.",
- RowBox[{"Rule", "->", "List"}]}], "]"}], ",",
- RowBox[{"WorkingPrecision", "\[Rule]", "20"}], ",",
- RowBox[{"MaxIterations", "\[Rule]", "5000"}]}], "]"}]}]], "Input",
- CellChangeTimes->{{3.841826409040468*^9, 3.841826597778789*^9}, {
- 3.841826667389724*^9, 3.841826667595948*^9}, {3.8418267356853933`*^9,
- 3.8418267802857647`*^9}, {3.841826861255658*^9, 3.841826922184668*^9}, {
- 3.8418269725707407`*^9, 3.841826994313775*^9}, {3.8418270452029877`*^9,
- 3.841827053242969*^9}, {3.8418271119240437`*^9, 3.84182712854834*^9}, {
- 3.841827636088339*^9, 3.841827638701561*^9}, {3.8418280886535597`*^9,
- 3.841828101110017*^9}, {3.841828420412331*^9, 3.8418284236037703`*^9}, {
- 3.8418295127754307`*^9, 3.8418295264076853`*^9}, {3.842337631182955*^9,
- 3.8423376428942547`*^9}, {3.8423390522239523`*^9, 3.842339066648242*^9}, {
- 3.842412055464538*^9, 3.8424120822810926`*^9}},
- CellLabel->
- "(Sident) In[28]:=",ExpressionUUID->"30cc4ffc-6785-4b8d-b6fc-639e76f49ad9"],
-
-Cell[BoxData[
- TemplateBox[{
- "FindRoot", "precw",
- "\"The precision of the argument function ({<<25311869328 bytes>>}) is \
-less than WorkingPrecision (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 28,
- 26, 18367073971234218752, "Sident"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.842337650075533*^9, 3.842339083779311*^9,
- 3.842412138730196*^9, 3.842433398627845*^9},
- CellLabel->
- "During evaluation of (Sident) \
-In[28]:=",ExpressionUUID->"19f98077-4ff8-4918-9a55-7133637e973a"]
-}, Open ]],
+ RowBox[{"res", "[",
+ RowBox[{
+ RowBox[{"NFN", "[", "10", "]"}], ",",
+ RowBox[{"HN", "[", "10", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "10"}]]}], "]"}], "[", "10", "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"A", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"NFN", "[", "10", "]"}]}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"i", "!"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}]}], "]"}], ",",
+ RowBox[{
+ RowBox[{"SN", "[", "10", "]"}], "[",
+ RowBox[{"[", "2", "]"}], "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "7"}]]}], "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.843891518727322*^9,
+ 3.8438915325033417`*^9}},ExpressionUUID->"72b068ea-967c-499f-9ec3-\
+b16d3cfcb4ca"],
Cell[BoxData[
RowBox[{
@@ -4333,7 +4725,7 @@ Cell[BoxData[
RowBox[{"SN", "[", "#", "]"}], "[",
RowBox[{"[", "2", "]"}], "]"}]}], "&"}], "/@",
RowBox[{"Range", "[",
- RowBox[{"2", ",", "7"}], "]"}]}]}], ";"}]], "Input",
+ RowBox[{"2", ",", "9"}], "]"}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.8322388835042*^9, 3.832238885982521*^9}, {
3.832238918751101*^9, 3.832238980544174*^9}, {3.832239034801425*^9,
3.8322390392969837`*^9}, {3.832239749854486*^9, 3.832239844064394*^9}, {
@@ -4464,9 +4856,24 @@ Cell[BoxData[
3.843714714850075*^9}, 3.843714760674944*^9, {3.843714821732319*^9,
3.8437148226360064`*^9}, {3.843715025408133*^9, 3.8437150256479177`*^9}, {
3.84371565316367*^9, 3.843715658219496*^9}, {3.843720925237215*^9,
- 3.843720926332776*^9}, {3.843721352548551*^9, 3.843721353244376*^9}},
+ 3.843720926332776*^9}, {3.843721352548551*^9, 3.843721353244376*^9},
+ 3.8438173538301086`*^9, {3.8438176031299477`*^9, 3.8438176032098103`*^9}, {
+ 3.843817791165987*^9, 3.843817792149683*^9}, {3.8438178806632757`*^9,
+ 3.843817880975377*^9}, {3.8438179914893293`*^9, 3.8438179916651*^9}, {
+ 3.843884641403369*^9, 3.84388464216958*^9}, {3.843884793485075*^9,
+ 3.843884793988578*^9}, {3.843884913518818*^9, 3.843884915870919*^9}, {
+ 3.8438852164444847`*^9, 3.843885216668468*^9}, 3.843885410289233*^9, {
+ 3.8438856227159853`*^9, 3.8438856236997957`*^9}, {3.843887205056616*^9,
+ 3.8438872051924*^9}, 3.8438933169925203`*^9, 3.843894670275365*^9, {
+ 3.843894940310717*^9, 3.843894940518072*^9}, {3.843895329797991*^9,
+ 3.843895329981269*^9}, 3.84389719658326*^9, {3.84389732692187*^9,
+ 3.843897328137978*^9}, {3.843897650215961*^9, 3.843897650551853*^9}, {
+ 3.843897735729596*^9, 3.8438977360095463`*^9}, {3.843898295125554*^9,
+ 3.84389829609173*^9}, 3.8439010408945436`*^9, 3.843902113361537*^9, {
+ 3.843902718148726*^9, 3.843902718404586*^9}, {3.843903443514246*^9,
+ 3.8439034437301693`*^9}, {3.8439061282357187`*^9, 3.843906128939198*^9}},
CellLabel->
- "In[447]:=",ExpressionUUID->"e351157f-b944-4cbd-bedd-89b185c451f7"],
+ "In[104]:=",ExpressionUUID->"e351157f-b944-4cbd-bedd-89b185c451f7"],
Cell[CellGroupData[{
@@ -4475,39 +4882,367 @@ Cell[BoxData[
RowBox[{
RowBox[{"Evaluate", "[",
RowBox[{"Abs", "[",
- RowBox[{"{",
- RowBox[{
- RowBox[{"test", "[",
- RowBox[{"[",
- RowBox[{"All", ",", "1"}], "]"}], "]"}], ",",
- RowBox[{"testN", "[",
- RowBox[{"[",
- RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], ",",
-
+ RowBox[{"Transpose", "@", "testN"}], "]"}], "]"}], ",",
RowBox[{"Joined", "->", "True"}]}], "]"}]], "Input",
CellChangeTimes->{{3.843711517183962*^9, 3.8437115486234922`*^9}, {
- 3.8437120377524652`*^9, 3.843712041968378*^9}},
+ 3.8437120377524652`*^9, 3.843712041968378*^9}, {3.8438173592547607`*^9,
+ 3.843817359444666*^9}, {3.8438851953645*^9, 3.8438852081640587`*^9}},
CellLabel->
- "In[448]:=",ExpressionUUID->"9437364d-2d5a-4493-b405-40564b9ff897"],
+ "In[105]:=",ExpressionUUID->"9437364d-2d5a-4493-b405-40564b9ff897"],
Cell[BoxData[
- GraphicsBox[{{}, {{}, {},
+ GraphicsBox[{{{{
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{1., -9.121285207970635}, {1., -9.121285189674733}}],
+ LineBox[{{1., -9.121285189674733}, {1., -9.121285171378831}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{2., -6.757705342348684}, {2., -6.757705340627354}}],
+ LineBox[{{2., -6.757705340627354}, {2., -6.757705338906025}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{3., -6.72370612140098}, {3., -6.72370611973719}}],
+ LineBox[{{3., -6.72370611973719}, {3., -6.7237061180734}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{4., -10.109801247911934`}, {4., -10.109801198746386`}}],
+ LineBox[{{4., -10.109801198746386`}, {4., -10.109801149580841`}}]}},
+
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{5., -10.283603027489416`}, {5., -10.28360296899128}}],
+ LineBox[{{5., -10.28360296899128}, {5., -10.283602910493148`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{6., -12.309343980073828`}, {6., -12.309343536557039`}}],
+ LineBox[{{6., -12.309343536557039`}, {6., -12.309343093040445`}}]}},
+
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{7., -9.807059753123985}, {7., -9.807059716800968}}],
+ LineBox[{{7., -9.807059716800968}, {7., -9.807059680477952}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{8., -9.089527104916078}, {8., -9.08952708719209}}],
+ LineBox[{{8., -9.08952708719209}, {8., -9.089527069468103}}]}},
+ Antialiasing->False]}}, {
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{1., -6.569861286925891}, {1., -6.569861279793183}}],
+ LineBox[{{1., -6.569861279793183}, {1., -6.569861272660474}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{2., -8.554879259698145}, {2., -8.554879207777887}}],
+ LineBox[{{2., -8.554879207777887}, {2., -8.554879155857632}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{3., -8.31167620332549}, {3., -8.311676162614178}}],
+ LineBox[{{3., -8.311676162614178}, {3., -8.311676121902869}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{4., -9.32501363932119}, {4., -9.325013527170501}}],
+ LineBox[{{4., -9.325013527170501}, {4., -9.325013415019825}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{5., -9.311251716268238}, {5., -9.311251605650387}}],
+ LineBox[{{5., -9.311251605650387}, {5., -9.311251495032549}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{6., -10.545631957022044`}, {6., -10.545631576911703`}}],
+ LineBox[{{6., -10.545631576911703`}, {6., -10.545631196801507`}}]}},
+
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{7., -10.706355792238272`}, {7., -10.706355345851676`}}],
+ LineBox[{{7., -10.706355345851676`}, {7., -10.70635489946528}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{8., -10.070539748134387`}, {8., -10.070539511771225`}}],
+ LineBox[{{8., -10.070539511771225`}, {8., -10.070539275408118`}}]}},
+
+ Antialiasing->False]}}}, {{
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{1., -9.121285171378831},
+ Offset[{3, 0}, {1., -9.121285171378831}]}, {{
+ 1., -9.121285171378831},
+ Offset[{-3, 0}, {1., -9.121285171378831}]}, {{
+ 1., -9.121285207970635},
+ Offset[{3, 0}, {1., -9.121285207970635}]}, {{
+ 1., -9.121285207970635},
+ Offset[{-3, 0}, {1., -9.121285207970635}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{2., -6.757705338906025},
+ Offset[{3, 0}, {2., -6.757705338906025}]}, {{
+ 2., -6.757705338906025},
+ Offset[{-3, 0}, {2., -6.757705338906025}]}, {{
+ 2., -6.757705342348684},
+ Offset[{3, 0}, {2., -6.757705342348684}]}, {{
+ 2., -6.757705342348684},
+ Offset[{-3, 0}, {2., -6.757705342348684}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{3., -6.7237061180734},
+ Offset[{3, 0}, {3., -6.7237061180734}]}, {{3., -6.7237061180734},
+ Offset[{-3, 0}, {3., -6.7237061180734}]}, {{
+ 3., -6.72370612140098},
+ Offset[{3, 0}, {3., -6.72370612140098}]}, {{
+ 3., -6.72370612140098},
+ Offset[{-3, 0}, {3., -6.72370612140098}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{4., -10.109801149580841`},
+ Offset[{3, 0}, {4., -10.109801149580841`}]}, {{
+ 4., -10.109801149580841`},
+ Offset[{-3, 0}, {4., -10.109801149580841`}]}, {{
+ 4., -10.109801247911934`},
+ Offset[{3, 0}, {4., -10.109801247911934`}]}, {{
+ 4., -10.109801247911934`},
+ Offset[{-3, 0}, {4., -10.109801247911934`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{5., -10.283602910493148`},
+ Offset[{3, 0}, {5., -10.283602910493148`}]}, {{
+ 5., -10.283602910493148`},
+ Offset[{-3, 0}, {5., -10.283602910493148`}]}, {{
+ 5., -10.283603027489416`},
+ Offset[{3, 0}, {5., -10.283603027489416`}]}, {{
+ 5., -10.283603027489416`},
+ Offset[{-3, 0}, {5., -10.283603027489416`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{6., -12.309343093040445`},
+ Offset[{3, 0}, {6., -12.309343093040445`}]}, {{
+ 6., -12.309343093040445`},
+ Offset[{-3, 0}, {6., -12.309343093040445`}]}, {{
+ 6., -12.309343980073828`},
+ Offset[{3, 0}, {6., -12.309343980073828`}]}, {{
+ 6., -12.309343980073828`},
+ Offset[{-3, 0}, {6., -12.309343980073828`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{7., -9.807059680477952},
+ Offset[{3, 0}, {7., -9.807059680477952}]}, {{
+ 7., -9.807059680477952},
+ Offset[{-3, 0}, {7., -9.807059680477952}]}, {{
+ 7., -9.807059753123985},
+ Offset[{3, 0}, {7., -9.807059753123985}]}, {{
+ 7., -9.807059753123985},
+ Offset[{-3, 0}, {7., -9.807059753123985}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{8., -9.089527069468103},
+ Offset[{3, 0}, {8., -9.089527069468103}]}, {{
+ 8., -9.089527069468103},
+ Offset[{-3, 0}, {8., -9.089527069468103}]}, {{
+ 8., -9.089527104916078},
+ Offset[{3, 0}, {8., -9.089527104916078}]}, {{
+ 8., -9.089527104916078},
+ Offset[{-3, 0}, {8., -9.089527104916078}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]}}, {
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{1., -6.569861272660474},
+ Offset[{3, 0}, {1., -6.569861272660474}]}, {{
+ 1., -6.569861272660474},
+ Offset[{-3, 0}, {1., -6.569861272660474}]}, {{
+ 1., -6.569861286925891},
+ Offset[{3, 0}, {1., -6.569861286925891}]}, {{
+ 1., -6.569861286925891},
+ Offset[{-3, 0}, {1., -6.569861286925891}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{2., -8.554879155857632},
+ Offset[{3, 0}, {2., -8.554879155857632}]}, {{
+ 2., -8.554879155857632},
+ Offset[{-3, 0}, {2., -8.554879155857632}]}, {{
+ 2., -8.554879259698145},
+ Offset[{3, 0}, {2., -8.554879259698145}]}, {{
+ 2., -8.554879259698145},
+ Offset[{-3, 0}, {2., -8.554879259698145}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{3., -8.311676121902869},
+ Offset[{3, 0}, {3., -8.311676121902869}]}, {{
+ 3., -8.311676121902869},
+ Offset[{-3, 0}, {3., -8.311676121902869}]}, {{
+ 3., -8.31167620332549},
+ Offset[{3, 0}, {3., -8.31167620332549}]}, {{
+ 3., -8.31167620332549},
+ Offset[{-3, 0}, {3., -8.31167620332549}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{4., -9.325013415019825},
+ Offset[{3, 0}, {4., -9.325013415019825}]}, {{
+ 4., -9.325013415019825},
+ Offset[{-3, 0}, {4., -9.325013415019825}]}, {{
+ 4., -9.32501363932119},
+ Offset[{3, 0}, {4., -9.32501363932119}]}, {{
+ 4., -9.32501363932119},
+ Offset[{-3, 0}, {4., -9.32501363932119}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{5., -9.311251495032549},
+ Offset[{3, 0}, {5., -9.311251495032549}]}, {{
+ 5., -9.311251495032549},
+ Offset[{-3, 0}, {5., -9.311251495032549}]}, {{
+ 5., -9.311251716268238},
+ Offset[{3, 0}, {5., -9.311251716268238}]}, {{
+ 5., -9.311251716268238},
+ Offset[{-3, 0}, {5., -9.311251716268238}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{6., -10.545631196801507`},
+ Offset[{3, 0}, {6., -10.545631196801507`}]}, {{
+ 6., -10.545631196801507`},
+ Offset[{-3, 0}, {6., -10.545631196801507`}]}, {{
+ 6., -10.545631957022044`},
+ Offset[{3, 0}, {6., -10.545631957022044`}]}, {{
+ 6., -10.545631957022044`},
+ Offset[{-3, 0}, {6., -10.545631957022044`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{7., -10.70635489946528},
+ Offset[{3, 0}, {7., -10.70635489946528}]}, {{
+ 7., -10.70635489946528},
+ Offset[{-3, 0}, {7., -10.70635489946528}]}, {{
+ 7., -10.706355792238272`},
+ Offset[{3, 0}, {7., -10.706355792238272`}]}, {{
+ 7., -10.706355792238272`},
+ Offset[{-3, 0}, {7., -10.706355792238272`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{8., -10.070539275408118`},
+ Offset[{3, 0}, {8., -10.070539275408118`}]}, {{
+ 8., -10.070539275408118`},
+ Offset[{-3, 0}, {8., -10.070539275408118`}]}, {{
+ 8., -10.070539748134387`},
+ Offset[{3, 0}, {8., -10.070539748134387`}]}, {{
+ 8., -10.070539748134387`},
+ Offset[{-3, 0}, {8., -10.070539748134387`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]}}}}, {{}, {},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
- LineBox[{{1., -5.856599682468509}, {2., -7.466296480483548}, {
- 3., -10.136275338080454`}, {4., -9.68356928742401}, {
- 5., -9.90021444246551}, {6., -11.061638913188895`}, {
- 7., -11.714565536474149`}, {8., -12.90430640260919}, {
- 9., -12.501821175077207`}, {10., -12.454323964080883`}}]},
+ LineBox[{{1., -6.489967158769578}, {2., -7.215121967968009}, {
+ 3., -7.288698113608662}, {4., -10.386973334685711`}, {
+ 5., -11.28534572892896}, {6., -12.558995043453105`}, {
+ 7., -11.177620554129026`}, {8., -10.162857609168995`}}]},
{RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
- LineBox[{{1., -5.889483104795928}, {2., -7.21004959549613}, {
- 3., -10.447639851985066`}, {4., -9.604873018380678}, {
- 5., -9.965684093091653}, {6., -10.09045681925718}}]}}, {{}, {}}},
+ LineBox[{{1., -6.411565498460083}, {2., -6.532907548464786}, {
+ 3., -6.469945827351774}, {4., -10.605589644489372`}, {
+ 5., -11.369570856135084`}, {6., -12.025882822779488`}, {
+ 7., -10.050531768180324`}, {8., -9.212664056505645}}]},
+ {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ LineBox[{{1., -9.121285189674733}, {2., -6.757705340627354}, {
+ 3., -6.72370611973719}, {4., -10.109801198746386`}, {
+ 5., -10.28360296899128}, {6., -12.309343536557039`}, {
+ 7., -9.807059716800968}, {8., -9.08952708719209}}]},
+ {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ LineBox[{{1., -6.569861279793183}, {2., -8.554879207777887}, {
+ 3., -8.311676162614178}, {4., -9.325013527170501}, {
+ 5., -9.311251605650387}, {6., -10.545631576911703`}, {
+ 7., -10.706355345851676`}, {8., -10.070539511771225`}}]}}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
- AxesOrigin->{0., -13.455829449406343`},
+ AxesOrigin->{0., -13.040066292195093`},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
@@ -4528,7 +5263,7 @@ Cell[BoxData[
Part[#, 1]],
Exp[
Part[#, 2]]}& )}},
- PlotRange->{{0., 10.}, {-13.455829449406343`, -5.856599682468509}},
+ PlotRange->{{0., 8.}, {-13.040066292195093`, -6.411565498460083}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
@@ -4567,31 +5302,490 @@ Cell[BoxData[
RowBox[{"-", "4"}]}, "Superscript", SyntaxForm ->
SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01,
0.}}, {-6.907755278982137,
- FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-14.508657738524219`,
+ FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-13.815510557964274`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-14.326336181730264`,
+ 0.}}, {-13.122363377404328`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-14.172185501903007`,
+ 0.}}, {-12.716898269296165`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-14.038654109278484`,
+ 0.}}, {-12.429216196844383`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-13.9208710736221,
+ 0.}}, {-12.02375108873622,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-13.815510557964274`,
+ 0.}}, {-11.86960040890896,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-13.122363377404328`,
+ 0.}}, {-11.736069016284437`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-12.716898269296165`,
+ 0.}}, {-11.618285980628055`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-12.429216196844383`,
+ 0.}}, {-10.819778284410283`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-10.41431317630212,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-10.126631103850338`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.721165995742174,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.567015315914915,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.433483923290392,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.315700887634009,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-8.517193191416238,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-8.111728083308073,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.824046010856292,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.418580902748128,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.264430222920869,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.1308988302963465`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.013115794639964,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-6.214608098422191,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.809142990314028,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.521460917862246,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.298317366548036,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.115995809754082,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.961845129926823,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.8283137373023015`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.710530701645918,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.605170185988091,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.912023005428146,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.506557897319982,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.2188758248682006`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.995732273553991,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}}}]]], "Output",
+ CellChangeTimes->{3.843899650826229*^9, 3.843899990311553*^9,
+ 3.843901042347114*^9, 3.843902115090934*^9, 3.843902237323751*^9,
+ 3.843902305947394*^9, 3.8439025626208076`*^9, 3.84390271945584*^9,
+ 3.8439028204136963`*^9, 3.8439029720245113`*^9, 3.843903445290597*^9,
+ 3.843903919014111*^9, 3.843904578141638*^9, 3.843904773766004*^9,
+ 3.843906130401853*^9},
+ CellLabel->
+ "Out[105]=",ExpressionUUID->"52fbd471-7005-4ea0-b7a7-58de8c0386f3"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ GraphicsBox[{{{{
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{1., -9.121300509431483}, {1., -9.121300491135301}}],
+ LineBox[{{1., -9.121300491135301}, {1., -9.121300472839119}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{2., -6.758092395314931}, {2., -6.758092393592934}}],
+ LineBox[{{2., -6.758092393592934}, {2., -6.758092391870937}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{3., -6.723706153562308}, {3., -6.723706151898518}}],
+ LineBox[{{3., -6.723706151898518}, {3., -6.723706150234728}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{4., -8.184813922591276}, {4., -8.184813915419124}}],
+ LineBox[{{4., -8.184813915419124}, {4., -8.184813908246971}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{5., -8.725433821016727}, {5., -8.725433808701633}}],
+ LineBox[{{5., -8.725433808701633}, {5., -8.725433796386538}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{6., -10.032717539644475`}, {6., -10.032717494126404`}}],
+ LineBox[{{6., -10.032717494126404`}, {6., -10.032717448608334`}}]}},
+
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{7., -9.426431886325023}, {7., -9.426431861500705}}],
+ LineBox[{{7., -9.426431861500705}, {7., -9.426431836676386}}]}},
+ Antialiasing->False]}}, {
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{1., -6.569860916272956}, {1., -6.5698609091402504`}}],
+ LineBox[{{1., -6.5698609091402504`}, {1., -6.5698609020075445`}}]}},
+
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{2., -8.553750928554969}, {2., -8.553750876693261}}],
+ LineBox[{{2., -8.553750876693261}, {2., -8.553750824831555}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{3., -8.311676268012866}, {3., -8.31167622730155}}],
+ LineBox[{{3., -8.31167622730155}, {3., -8.311676186590237}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{4., -8.643969743806707}, {4., -8.643969687048541}}],
+ LineBox[{{4., -8.643969687048541}, {4., -8.643969630290378}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{5., -9.620475786500148}, {5., -9.620475635797975}}],
+ LineBox[{{5., -9.620475635797975}, {5., -9.620475485095824}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{6., -10.905794156481525`}, {6., -10.90579361156986}}],
+ LineBox[{{6., -10.90579361156986}, {6., -10.905793066658493`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{7., -9.80776011624256}, {7., -9.807759934500243}}],
+ LineBox[{{7., -9.807759934500243}, {7., -9.80775975275796}}]}},
+ Antialiasing->False]}}}, {{
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{1., -9.121300472839119},
+ Offset[{3, 0}, {1., -9.121300472839119}]}, {{
+ 1., -9.121300472839119},
+ Offset[{-3, 0}, {1., -9.121300472839119}]}, {{
+ 1., -9.121300509431483},
+ Offset[{3, 0}, {1., -9.121300509431483}]}, {{
+ 1., -9.121300509431483},
+ Offset[{-3, 0}, {1., -9.121300509431483}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{2., -6.758092391870937},
+ Offset[{3, 0}, {2., -6.758092391870937}]}, {{
+ 2., -6.758092391870937},
+ Offset[{-3, 0}, {2., -6.758092391870937}]}, {{
+ 2., -6.758092395314931},
+ Offset[{3, 0}, {2., -6.758092395314931}]}, {{
+ 2., -6.758092395314931},
+ Offset[{-3, 0}, {2., -6.758092395314931}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{3., -6.723706150234728},
+ Offset[{3, 0}, {3., -6.723706150234728}]}, {{
+ 3., -6.723706150234728},
+ Offset[{-3, 0}, {3., -6.723706150234728}]}, {{
+ 3., -6.723706153562308},
+ Offset[{3, 0}, {3., -6.723706153562308}]}, {{
+ 3., -6.723706153562308},
+ Offset[{-3, 0}, {3., -6.723706153562308}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{4., -8.184813908246971},
+ Offset[{3, 0}, {4., -8.184813908246971}]}, {{
+ 4., -8.184813908246971},
+ Offset[{-3, 0}, {4., -8.184813908246971}]}, {{
+ 4., -8.184813922591276},
+ Offset[{3, 0}, {4., -8.184813922591276}]}, {{
+ 4., -8.184813922591276},
+ Offset[{-3, 0}, {4., -8.184813922591276}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{5., -8.725433796386538},
+ Offset[{3, 0}, {5., -8.725433796386538}]}, {{
+ 5., -8.725433796386538},
+ Offset[{-3, 0}, {5., -8.725433796386538}]}, {{
+ 5., -8.725433821016727},
+ Offset[{3, 0}, {5., -8.725433821016727}]}, {{
+ 5., -8.725433821016727},
+ Offset[{-3, 0}, {5., -8.725433821016727}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{6., -10.032717448608334`},
+ Offset[{3, 0}, {6., -10.032717448608334`}]}, {{
+ 6., -10.032717448608334`},
+ Offset[{-3, 0}, {6., -10.032717448608334`}]}, {{
+ 6., -10.032717539644475`},
+ Offset[{3, 0}, {6., -10.032717539644475`}]}, {{
+ 6., -10.032717539644475`},
+ Offset[{-3, 0}, {6., -10.032717539644475`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{7., -9.426431836676386},
+ Offset[{3, 0}, {7., -9.426431836676386}]}, {{
+ 7., -9.426431836676386},
+ Offset[{-3, 0}, {7., -9.426431836676386}]}, {{
+ 7., -9.426431886325023},
+ Offset[{3, 0}, {7., -9.426431886325023}]}, {{
+ 7., -9.426431886325023},
+ Offset[{-3, 0}, {7., -9.426431886325023}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]}}, {
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{1., -6.5698609020075445`},
+ Offset[{3, 0}, {1., -6.5698609020075445`}]}, {{
+ 1., -6.5698609020075445`},
+ Offset[{-3, 0}, {1., -6.5698609020075445`}]}, {{
+ 1., -6.569860916272956},
+ Offset[{3, 0}, {1., -6.569860916272956}]}, {{
+ 1., -6.569860916272956},
+ Offset[{-3, 0}, {1., -6.569860916272956}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{2., -8.553750824831555},
+ Offset[{3, 0}, {2., -8.553750824831555}]}, {{
+ 2., -8.553750824831555},
+ Offset[{-3, 0}, {2., -8.553750824831555}]}, {{
+ 2., -8.553750928554969},
+ Offset[{3, 0}, {2., -8.553750928554969}]}, {{
+ 2., -8.553750928554969},
+ Offset[{-3, 0}, {2., -8.553750928554969}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{3., -8.311676186590237},
+ Offset[{3, 0}, {3., -8.311676186590237}]}, {{
+ 3., -8.311676186590237},
+ Offset[{-3, 0}, {3., -8.311676186590237}]}, {{
+ 3., -8.311676268012866},
+ Offset[{3, 0}, {3., -8.311676268012866}]}, {{
+ 3., -8.311676268012866},
+ Offset[{-3, 0}, {3., -8.311676268012866}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{4., -8.643969630290378},
+ Offset[{3, 0}, {4., -8.643969630290378}]}, {{
+ 4., -8.643969630290378},
+ Offset[{-3, 0}, {4., -8.643969630290378}]}, {{
+ 4., -8.643969743806707},
+ Offset[{3, 0}, {4., -8.643969743806707}]}, {{
+ 4., -8.643969743806707},
+ Offset[{-3, 0}, {4., -8.643969743806707}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{5., -9.620475485095824},
+ Offset[{3, 0}, {5., -9.620475485095824}]}, {{
+ 5., -9.620475485095824},
+ Offset[{-3, 0}, {5., -9.620475485095824}]}, {{
+ 5., -9.620475786500148},
+ Offset[{3, 0}, {5., -9.620475786500148}]}, {{
+ 5., -9.620475786500148},
+ Offset[{-3, 0}, {5., -9.620475786500148}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{6., -10.905793066658493`},
+ Offset[{3, 0}, {6., -10.905793066658493`}]}, {{
+ 6., -10.905793066658493`},
+ Offset[{-3, 0}, {6., -10.905793066658493`}]}, {{
+ 6., -10.905794156481525`},
+ Offset[{3, 0}, {6., -10.905794156481525`}]}, {{
+ 6., -10.905794156481525`},
+ Offset[{-3, 0}, {6., -10.905794156481525`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{7., -9.80775975275796},
+ Offset[{3, 0}, {7., -9.80775975275796}]}, {{
+ 7., -9.80775975275796},
+ Offset[{-3, 0}, {7., -9.80775975275796}]}, {{
+ 7., -9.80776011624256},
+ Offset[{3, 0}, {7., -9.80776011624256}]}, {{
+ 7., -9.80776011624256},
+ Offset[{-3, 0}, {7., -9.80776011624256}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]}}}}, {{}, {},
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ LineBox[{{1., -6.489966021898523}, {2., -7.215665167203028}, {
+ 3., -7.288698136975417}, {4., -9.461102743289516}, {
+ 5., -9.940158044246665}, {6., -11.394820127656384`}, {
+ 7., -11.000486279273671`}}]},
+ {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ LineBox[{{1., -6.411563725551999}, {2., -6.533430895550353}, {
+ 3., -6.469945857142263}, {4., -8.428145680841657}, {
+ 5., -8.901080355342984}, {6., -10.27390513702352}, {
+ 7., -9.80506955393521}}]},
+ {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ LineBox[{{1., -9.121300491135301}, {2., -6.758092393592934}, {
+ 3., -6.723706151898518}, {4., -8.184813915419124}, {
+ 5., -8.725433808701633}, {6., -10.032717494126404`}, {
+ 7., -9.426431861500705}}]},
+ {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ LineBox[{{1., -6.5698609091402504`}, {2., -8.553750876693261}, {
+ 3., -8.31167622730155}, {4., -8.643969687048541}, {
+ 5., -9.620475635797975}, {6., -10.90579361156986}, {
+ 7., -9.807759934500243}}]}}, {{}, {}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{0., -11.784788221249979`},
+ DisplayFunction->Identity,
+ Frame->{{False, False}, {False, False}},
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->{{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}},
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& )}},
+ PlotRange->{{0., 7.}, {-11.784788221249979`, -6.411563725551999}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->FrontEndValueCache[{Automatic,
+ Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-11.512925464970229`,
+ FormBox[
+ TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`",
+ TemplateBox[{"10",
+ RowBox[{"-", "5"}]}, "Superscript", SyntaxForm ->
+ SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01,
+ 0.}}, {-9.903487552536127,
+ FormBox[
+ TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`",
+ TemplateBox[{"10",
+ RowBox[{"-", "5"}]}, "Superscript", SyntaxForm ->
+ SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01,
+ 0.}}, {-9.210340371976182,
+ FormBox[
+ TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`",
+ TemplateBox[{"10",
+ RowBox[{"-", "4"}]}, "Superscript", SyntaxForm ->
+ SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01,
+ 0.}}, {-7.600902459542082,
+ FormBox[
+ TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`",
+ TemplateBox[{"10",
+ RowBox[{"-", "4"}]}, "Superscript", SyntaxForm ->
+ SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01,
+ 0.}}, {-6.907755278982137,
+ FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-12.206072645530174`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
0.}}, {-12.02375108873622,
@@ -4675,19 +5869,979 @@ Cell[BoxData[
0.}}, {-4.605170185988091,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-3.912023005428146,
+ 0.}}, {-4.509860006183766,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-3.506557897319982,
+ 0.}}, {-4.422848629194137,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-3.2188758248682006`,
+ 0.}}, {-4.3428059215206005`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-2.995732273553991,
+ 0.}}, {-4.268697949366879,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.199705077879927,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.135166556742356,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}}}]]], "Input",
+ CellLabel->
+ "In[106]:=",ExpressionUUID->"e0fe24ec-ebe4-4875-83e4-0ee6e9334efc"],
+
+Cell[BoxData[
+ GraphicsBox[{{{{
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{1., -9.121300509431483}, {1., -9.121300491135301}}],
+ LineBox[{{1., -9.121300491135301}, {1., -9.121300472839119}}]}},
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{2., -6.758092395314931}, {2., -6.758092393592934}}],
+ LineBox[{{2., -6.758092393592934}, {2., -6.758092391870937}}]}},
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{3., -6.723706153562308}, {3., -6.723706151898518}}],
+ LineBox[{{3., -6.723706151898518}, {3., -6.723706150234728}}]}},
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{4., -8.184813922591276}, {4., -8.184813915419124}}],
+ LineBox[{{4., -8.184813915419124}, {4., -8.184813908246971}}]}},
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{5., -8.725433821016727}, {5., -8.725433808701633}}],
+ LineBox[{{5., -8.725433808701633}, {5., -8.725433796386538}}]}},
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{6., -10.032717539644475`}, {6., -10.032717494126404`}}],
+ LineBox[{{6., -10.032717494126404`}, {6., -10.032717448608334`}}]}},
+
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{7., -9.426431886325023}, {7., -9.426431861500705}}],
+ LineBox[{{7., -9.426431861500705}, {7., -9.426431836676386}}]}},
+ StripOnInput->False,
+ Antialiasing->False]}}, {
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{1., -6.569860916272956}, {1., -6.5698609091402504`}}],
+ LineBox[{{1., -6.5698609091402504`}, {1., -6.5698609020075445`}}]}},
+
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{2., -8.553750928554969}, {2., -8.553750876693261}}],
+ LineBox[{{2., -8.553750876693261}, {2., -8.553750824831555}}]}},
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{3., -8.311676268012866}, {3., -8.31167622730155}}],
+ LineBox[{{3., -8.31167622730155}, {3., -8.311676186590237}}]}},
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{4., -8.643969743806707}, {4., -8.643969687048541}}],
+ LineBox[{{4., -8.643969687048541}, {4., -8.643969630290378}}]}},
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{5., -9.620475786500148}, {5., -9.620475635797975}}],
+ LineBox[{{5., -9.620475635797975}, {5., -9.620475485095824}}]}},
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{6., -10.905794156481525`}, {6., -10.90579361156986}}],
+ LineBox[{{6., -10.90579361156986}, {6., -10.905793066658493`}}]}},
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{7., -9.80776011624256}, {7., -9.807759934500243}}],
+ LineBox[{{7., -9.807759934500243}, {7., -9.80775975275796}}]}},
+ StripOnInput->False,
+ Antialiasing->False]}}}, {{
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{1., -9.121300472839119},
+ Offset[{3, 0}, {1., -9.121300472839119}]}, {{
+ 1., -9.121300472839119},
+ Offset[{-3, 0}, {1., -9.121300472839119}]}, {{
+ 1., -9.121300509431483},
+ Offset[{3, 0}, {1., -9.121300509431483}]}, {{
+ 1., -9.121300509431483},
+ Offset[{-3, 0}, {1., -9.121300509431483}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{2., -6.758092391870937},
+ Offset[{3, 0}, {2., -6.758092391870937}]}, {{
+ 2., -6.758092391870937},
+ Offset[{-3, 0}, {2., -6.758092391870937}]}, {{
+ 2., -6.758092395314931},
+ Offset[{3, 0}, {2., -6.758092395314931}]}, {{
+ 2., -6.758092395314931},
+ Offset[{-3, 0}, {2., -6.758092395314931}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{3., -6.723706150234728},
+ Offset[{3, 0}, {3., -6.723706150234728}]}, {{
+ 3., -6.723706150234728},
+ Offset[{-3, 0}, {3., -6.723706150234728}]}, {{
+ 3., -6.723706153562308},
+ Offset[{3, 0}, {3., -6.723706153562308}]}, {{
+ 3., -6.723706153562308},
+ Offset[{-3, 0}, {3., -6.723706153562308}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{4., -8.184813908246971},
+ Offset[{3, 0}, {4., -8.184813908246971}]}, {{
+ 4., -8.184813908246971},
+ Offset[{-3, 0}, {4., -8.184813908246971}]}, {{
+ 4., -8.184813922591276},
+ Offset[{3, 0}, {4., -8.184813922591276}]}, {{
+ 4., -8.184813922591276},
+ Offset[{-3, 0}, {4., -8.184813922591276}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{5., -8.725433796386538},
+ Offset[{3, 0}, {5., -8.725433796386538}]}, {{
+ 5., -8.725433796386538},
+ Offset[{-3, 0}, {5., -8.725433796386538}]}, {{
+ 5., -8.725433821016727},
+ Offset[{3, 0}, {5., -8.725433821016727}]}, {{
+ 5., -8.725433821016727},
+ Offset[{-3, 0}, {5., -8.725433821016727}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{6., -10.032717448608334`},
+ Offset[{3, 0}, {6., -10.032717448608334`}]}, {{
+ 6., -10.032717448608334`},
+ Offset[{-3, 0}, {6., -10.032717448608334`}]}, {{
+ 6., -10.032717539644475`},
+ Offset[{3, 0}, {6., -10.032717539644475`}]}, {{
+ 6., -10.032717539644475`},
+ Offset[{-3, 0}, {6., -10.032717539644475`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{7., -9.426431836676386},
+ Offset[{3, 0}, {7., -9.426431836676386}]}, {{
+ 7., -9.426431836676386},
+ Offset[{-3, 0}, {7., -9.426431836676386}]}, {{
+ 7., -9.426431886325023},
+ Offset[{3, 0}, {7., -9.426431886325023}]}, {{
+ 7., -9.426431886325023},
+ Offset[{-3, 0}, {7., -9.426431886325023}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ StripOnInput->False,
+ Antialiasing->False]}}, {
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{1., -6.5698609020075445`},
+ Offset[{3, 0}, {1., -6.5698609020075445`}]}, {{
+ 1., -6.5698609020075445`},
+ Offset[{-3, 0}, {1., -6.5698609020075445`}]}, {{
+ 1., -6.569860916272956},
+ Offset[{3, 0}, {1., -6.569860916272956}]}, {{
+ 1., -6.569860916272956},
+ Offset[{-3, 0}, {1., -6.569860916272956}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{2., -8.553750824831555},
+ Offset[{3, 0}, {2., -8.553750824831555}]}, {{
+ 2., -8.553750824831555},
+ Offset[{-3, 0}, {2., -8.553750824831555}]}, {{
+ 2., -8.553750928554969},
+ Offset[{3, 0}, {2., -8.553750928554969}]}, {{
+ 2., -8.553750928554969},
+ Offset[{-3, 0}, {2., -8.553750928554969}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{3., -8.311676186590237},
+ Offset[{3, 0}, {3., -8.311676186590237}]}, {{
+ 3., -8.311676186590237},
+ Offset[{-3, 0}, {3., -8.311676186590237}]}, {{
+ 3., -8.311676268012866},
+ Offset[{3, 0}, {3., -8.311676268012866}]}, {{
+ 3., -8.311676268012866},
+ Offset[{-3, 0}, {3., -8.311676268012866}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{4., -8.643969630290378},
+ Offset[{3, 0}, {4., -8.643969630290378}]}, {{
+ 4., -8.643969630290378},
+ Offset[{-3, 0}, {4., -8.643969630290378}]}, {{
+ 4., -8.643969743806707},
+ Offset[{3, 0}, {4., -8.643969743806707}]}, {{
+ 4., -8.643969743806707},
+ Offset[{-3, 0}, {4., -8.643969743806707}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{5., -9.620475485095824},
+ Offset[{3, 0}, {5., -9.620475485095824}]}, {{
+ 5., -9.620475485095824},
+ Offset[{-3, 0}, {5., -9.620475485095824}]}, {{
+ 5., -9.620475786500148},
+ Offset[{3, 0}, {5., -9.620475786500148}]}, {{
+ 5., -9.620475786500148},
+ Offset[{-3, 0}, {5., -9.620475786500148}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{6., -10.905793066658493`},
+ Offset[{3, 0}, {6., -10.905793066658493`}]}, {{
+ 6., -10.905793066658493`},
+ Offset[{-3, 0}, {6., -10.905793066658493`}]}, {{
+ 6., -10.905794156481525`},
+ Offset[{3, 0}, {6., -10.905794156481525`}]}, {{
+ 6., -10.905794156481525`},
+ Offset[{-3, 0}, {6., -10.905794156481525`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ StripOnInput->False,
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{7., -9.80775975275796},
+ Offset[{3, 0}, {7., -9.80775975275796}]}, {{
+ 7., -9.80775975275796},
+ Offset[{-3, 0}, {7., -9.80775975275796}]}, {{
+ 7., -9.80776011624256},
+ Offset[{3, 0}, {7., -9.80776011624256}]}, {{
+ 7., -9.80776011624256},
+ Offset[{-3, 0}, {7., -9.80776011624256}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ StripOnInput->False,
+ Antialiasing->False]}}}}, {{}, {},
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ LineBox[{{1., -6.489966021898523}, {2., -7.215665167203028}, {
+ 3., -7.288698136975417}, {4., -9.461102743289516}, {
+ 5., -9.940158044246665}, {6., -11.394820127656384`}, {
+ 7., -11.000486279273671`}}]},
+ {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ LineBox[{{1., -6.411563725551999}, {2., -6.533430895550353}, {
+ 3., -6.469945857142263}, {4., -8.428145680841657}, {
+ 5., -8.901080355342984}, {6., -10.27390513702352}, {
+ 7., -9.80506955393521}}]},
+ {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ LineBox[{{1., -9.121300491135301}, {2., -6.758092393592934}, {
+ 3., -6.723706151898518}, {4., -8.184813915419124}, {
+ 5., -8.725433808701633}, {6., -10.032717494126404`}, {
+ 7., -9.426431861500705}}]},
+ {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ LineBox[{{1., -6.5698609091402504`}, {2., -8.553750876693261}, {
+ 3., -8.31167622730155}, {4., -8.643969687048541}, {
+ 5., -9.620475635797975}, {6., -10.90579361156986}, {
+ 7., -9.807759934500243}}]}}, {{}, {}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{0., -11.784788221249979`},
+ DisplayFunction->Identity,
+ Frame->{{False, False}, {False, False}},
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->{{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}},
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& )}},
+ PlotRange->{{0., 7.}, {-11.784788221249979`, -6.411563725551999}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->FrontEndValueCache[{Automatic,
+ Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-11.512925464970229`,
+ FormBox[
+ TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`",
+ TemplateBox[{"10",
+ RowBox[{"-", "5"}]}, "Superscript", SyntaxForm ->
+ SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01,
+ 0.}}, {-9.903487552536127,
+ FormBox[
+ TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`",
+ TemplateBox[{"10",
+ RowBox[{"-", "5"}]}, "Superscript", SyntaxForm ->
+ SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01,
+ 0.}}, {-9.210340371976182,
+ FormBox[
+ TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`",
+ TemplateBox[{"10",
+ RowBox[{"-", "4"}]}, "Superscript", SyntaxForm ->
+ SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01,
+ 0.}}, {-7.600902459542082,
+ FormBox[
+ TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`",
+ TemplateBox[{"10",
+ RowBox[{"-", "4"}]}, "Superscript", SyntaxForm ->
+ SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01,
+ 0.}}, {-6.907755278982137,
+ FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-12.206072645530174`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-12.02375108873622,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-11.86960040890896,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-11.736069016284437`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-11.618285980628055`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-10.819778284410283`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-10.41431317630212,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-10.126631103850338`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.721165995742174,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.567015315914915,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.433483923290392,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.315700887634009,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-8.517193191416238,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-8.111728083308073,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.824046010856292,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.418580902748128,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.264430222920869,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.1308988302963465`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.013115794639964,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-6.214608098422191,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.809142990314028,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.521460917862246,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.298317366548036,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.115995809754082,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.961845129926823,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.8283137373023015`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.710530701645918,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.605170185988091,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.509860006183766,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.422848629194137,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.3428059215206005`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.268697949366879,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.199705077879927,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.135166556742356,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}}}]]], "Output",
+ CellChangeTimes->{3.843906131111137*^9},
+ CellLabel->
+ "Out[106]=",ExpressionUUID->"a7196a4e-63e4-4e6a-a5ab-a42437e784c3"],
+
+Cell[BoxData[
+ GraphicsBox[{{{{
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{1., -9.121300511883245}, {1., -9.121300493587063}}],
+ LineBox[{{1., -9.121300493587063}, {1., -9.12130047529088}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{2., -6.757767219044301}, {2., -6.757767217322865}}],
+ LineBox[{{2., -6.757767217322865}, {2., -6.757767215601429}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{3., -6.723706202755702}, {3., -6.723706201091912}}],
+ LineBox[{{3., -6.723706201091912}, {3., -6.723706199428122}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{4., -8.222712865453186}, {4., -8.222712858004}}],
+ LineBox[{{4., -8.222712858004}, {4., -8.222712850554814}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{5., -8.815392112321067}, {5., -8.81539209884677}}],
+ LineBox[{{5., -8.81539209884677}, {5., -8.815392085372473}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{6., -9.692525522407434}, {6., -9.692525490015242}}],
+ LineBox[{{6., -9.692525490015242}, {6., -9.692525457623052}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{{}, {
+ LineBox[{{7., -9.077567712132545}, {7., -9.077567694619262}}],
+ LineBox[{{7., -9.077567694619262}, {7., -9.077567677105979}}]}},
+ Antialiasing->False]}}, {
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{1., -6.569860916202451}, {1., -6.569860909069745}}],
+ LineBox[{{1., -6.569860909069745}, {1., -6.569860901937039}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{2., -8.55469894382381}, {2., -8.554698891912913}}],
+ LineBox[{{2., -8.554698891912913}, {2., -8.554698840002018}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{3., -8.311676263479683}, {3., -8.311676222768368}}],
+ LineBox[{{3., -8.311676222768368}, {3., -8.311676182057054}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{4., -8.684410013936436}, {4., -8.684409954835912}}],
+ LineBox[{{4., -8.684409954835912}, {4., -8.684409895735392}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{5., -9.721836552490535}, {5., -9.721836385712086}}],
+ LineBox[{{5., -9.721836385712086}, {5., -9.721836218933664}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{6., -10.415390896628834`}, {6., -10.415390562936123`}}],
+ LineBox[{{6., -10.415390562936123`}, {6., -10.415390229243522`}}]}},
+
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{{}, {
+ LineBox[{{7., -9.476809391601991}, {7., -9.476809261067284}}],
+ LineBox[{{7., -9.476809261067284}, {7., -9.476809130532596}}]}},
+ Antialiasing->False]}}}, {{
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{1., -9.12130047529088},
+ Offset[{3, 0}, {1., -9.12130047529088}]}, {{
+ 1., -9.12130047529088},
+ Offset[{-3, 0}, {1., -9.12130047529088}]}, {{
+ 1., -9.121300511883245},
+ Offset[{3, 0}, {1., -9.121300511883245}]}, {{
+ 1., -9.121300511883245},
+ Offset[{-3, 0}, {1., -9.121300511883245}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{2., -6.757767215601429},
+ Offset[{3, 0}, {2., -6.757767215601429}]}, {{
+ 2., -6.757767215601429},
+ Offset[{-3, 0}, {2., -6.757767215601429}]}, {{
+ 2., -6.757767219044301},
+ Offset[{3, 0}, {2., -6.757767219044301}]}, {{
+ 2., -6.757767219044301},
+ Offset[{-3, 0}, {2., -6.757767219044301}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{3., -6.723706199428122},
+ Offset[{3, 0}, {3., -6.723706199428122}]}, {{
+ 3., -6.723706199428122},
+ Offset[{-3, 0}, {3., -6.723706199428122}]}, {{
+ 3., -6.723706202755702},
+ Offset[{3, 0}, {3., -6.723706202755702}]}, {{
+ 3., -6.723706202755702},
+ Offset[{-3, 0}, {3., -6.723706202755702}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{4., -8.222712850554814},
+ Offset[{3, 0}, {4., -8.222712850554814}]}, {{
+ 4., -8.222712850554814},
+ Offset[{-3, 0}, {4., -8.222712850554814}]}, {{
+ 4., -8.222712865453186},
+ Offset[{3, 0}, {4., -8.222712865453186}]}, {{
+ 4., -8.222712865453186},
+ Offset[{-3, 0}, {4., -8.222712865453186}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{5., -8.815392085372473},
+ Offset[{3, 0}, {5., -8.815392085372473}]}, {{
+ 5., -8.815392085372473},
+ Offset[{-3, 0}, {5., -8.815392085372473}]}, {{
+ 5., -8.815392112321067},
+ Offset[{3, 0}, {5., -8.815392112321067}]}, {{
+ 5., -8.815392112321067},
+ Offset[{-3, 0}, {5., -8.815392112321067}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{6., -9.692525457623052},
+ Offset[{3, 0}, {6., -9.692525457623052}]}, {{
+ 6., -9.692525457623052},
+ Offset[{-3, 0}, {6., -9.692525457623052}]}, {{
+ 6., -9.692525522407434},
+ Offset[{3, 0}, {6., -9.692525522407434}]}, {{
+ 6., -9.692525522407434},
+ Offset[{-3, 0}, {6., -9.692525522407434}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.560181, 0.691569, 0.194885],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{7., -9.077567677105979},
+ Offset[{3, 0}, {7., -9.077567677105979}]}, {{
+ 7., -9.077567677105979},
+ Offset[{-3, 0}, {7., -9.077567677105979}]}, {{
+ 7., -9.077567712132545},
+ Offset[{3, 0}, {7., -9.077567712132545}]}, {{
+ 7., -9.077567712132545},
+ Offset[{-3, 0}, {7., -9.077567712132545}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]}}, {
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{1., -6.569860901937039},
+ Offset[{3, 0}, {1., -6.569860901937039}]}, {{
+ 1., -6.569860901937039},
+ Offset[{-3, 0}, {1., -6.569860901937039}]}, {{
+ 1., -6.569860916202451},
+ Offset[{3, 0}, {1., -6.569860916202451}]}, {{
+ 1., -6.569860916202451},
+ Offset[{-3, 0}, {1., -6.569860916202451}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{2., -8.554698840002018},
+ Offset[{3, 0}, {2., -8.554698840002018}]}, {{
+ 2., -8.554698840002018},
+ Offset[{-3, 0}, {2., -8.554698840002018}]}, {{
+ 2., -8.55469894382381},
+ Offset[{3, 0}, {2., -8.55469894382381}]}, {{
+ 2., -8.55469894382381},
+ Offset[{-3, 0}, {2., -8.55469894382381}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{3., -8.311676182057054},
+ Offset[{3, 0}, {3., -8.311676182057054}]}, {{
+ 3., -8.311676182057054},
+ Offset[{-3, 0}, {3., -8.311676182057054}]}, {{
+ 3., -8.311676263479683},
+ Offset[{3, 0}, {3., -8.311676263479683}]}, {{
+ 3., -8.311676263479683},
+ Offset[{-3, 0}, {3., -8.311676263479683}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{4., -8.684409895735392},
+ Offset[{3, 0}, {4., -8.684409895735392}]}, {{
+ 4., -8.684409895735392},
+ Offset[{-3, 0}, {4., -8.684409895735392}]}, {{
+ 4., -8.684410013936436},
+ Offset[{3, 0}, {4., -8.684410013936436}]}, {{
+ 4., -8.684410013936436},
+ Offset[{-3, 0}, {4., -8.684410013936436}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{5., -9.721836218933664},
+ Offset[{3, 0}, {5., -9.721836218933664}]}, {{
+ 5., -9.721836218933664},
+ Offset[{-3, 0}, {5., -9.721836218933664}]}, {{
+ 5., -9.721836552490535},
+ Offset[{3, 0}, {5., -9.721836552490535}]}, {{
+ 5., -9.721836552490535},
+ Offset[{-3, 0}, {5., -9.721836552490535}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{6., -10.415390229243522`},
+ Offset[{3, 0}, {6., -10.415390229243522`}]}, {{
+ 6., -10.415390229243522`},
+ Offset[{-3, 0}, {6., -10.415390229243522`}]}, {{
+ 6., -10.415390896628834`},
+ Offset[{3, 0}, {6., -10.415390896628834`}]}, {{
+ 6., -10.415390896628834`},
+ Offset[{-3, 0}, {6., -10.415390896628834`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.922526, 0.385626, 0.209179],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{7., -9.476809130532596},
+ Offset[{3, 0}, {7., -9.476809130532596}]}, {{
+ 7., -9.476809130532596},
+ Offset[{-3, 0}, {7., -9.476809130532596}]}, {{
+ 7., -9.476809391601991},
+ Offset[{3, 0}, {7., -9.476809391601991}]}, {{
+ 7., -9.476809391601991},
+ Offset[{-3, 0}, {7., -9.476809391601991}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]}}}}, {{}, {},
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ LineBox[{{1., -6.489966021713559}, {2., -7.215208768716306}, {
+ 3., -7.288698115715628}, {4., -9.49564665864202}, {
+ 5., -10.031875139685795`}, {6., -11.122423833857708`}, {
+ 7., -10.662646627124593`}}]},
+ {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ LineBox[{{1., -6.4115637257254825`}, {2., -6.532991185673053}, {
+ 3., -6.469945881495144}, {4., -8.464244471199725}, {
+ 5., -8.990889850769694}, {6., -9.975434713947495}, {
+ 7., -9.459160825334754}}]},
+ {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ LineBox[{{1., -9.121300493587063}, {2., -6.757767217322865}, {
+ 3., -6.723706201091912}, {4., -8.222712858004}, {
+ 5., -8.81539209884677}, {6., -9.692525490015242}, {
+ 7., -9.077567694619262}}]},
+ {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ LineBox[{{1., -6.569860909069745}, {2., -8.554698891912913}, {
+ 3., -8.311676222768368}, {4., -8.684409954835912}, {
+ 5., -9.721836385712086}, {6., -10.415390562936123`}, {
+ 7., -9.476809261067284}}]}}, {{}, {}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{0., -11.491075371590878`},
+ DisplayFunction->Identity,
+ Frame->{{False, False}, {False, False}},
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->{{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}},
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& )}},
+ PlotRange->{{0., 7.}, {-11.491075371590878`, -6.4115637257254825`}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->FrontEndValueCache[{Automatic,
+ Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-11.512925464970229`,
+ FormBox[
+ TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`",
+ TemplateBox[{"10",
+ RowBox[{"-", "5"}]}, "Superscript", SyntaxForm ->
+ SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01,
+ 0.}}, {-9.903487552536127,
+ FormBox[
+ TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`",
+ TemplateBox[{"10",
+ RowBox[{"-", "5"}]}, "Superscript", SyntaxForm ->
+ SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01,
+ 0.}}, {-9.210340371976182,
+ FormBox[
+ TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`",
+ TemplateBox[{"10",
+ RowBox[{"-", "4"}]}, "Superscript", SyntaxForm ->
+ SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01,
+ 0.}}, {-7.600902459542082,
+ FormBox[
+ TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`",
+ TemplateBox[{"10",
+ RowBox[{"-", "4"}]}, "Superscript", SyntaxForm ->
+ SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01,
+ 0.}}, {-6.907755278982137,
+ FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-12.206072645530174`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-12.02375108873622,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-11.86960040890896,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-11.736069016284437`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-11.618285980628055`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-10.819778284410283`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-10.41431317630212,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-10.126631103850338`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.721165995742174,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.567015315914915,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.433483923290392,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.315700887634009,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-8.517193191416238,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-8.111728083308073,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.824046010856292,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.418580902748128,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.264430222920869,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.1308988302963465`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.013115794639964,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-6.214608098422191,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.809142990314028,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.521460917862246,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.298317366548036,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.115995809754082,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.961845129926823,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.8283137373023015`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.710530701645918,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.605170185988091,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
0.}}}}]]], "Output",
+ GeneratedCell->False,
+ CellAutoOverwrite->False,
CellChangeTimes->{{3.843711543560974*^9, 3.843711548810625*^9},
3.843711654155059*^9, 3.843711783197234*^9, 3.843711833733796*^9,
3.843711923708846*^9, {3.8437120304228783`*^9, 3.843712042165395*^9},
@@ -4700,9 +6854,23 @@ Cell[BoxData[
3.8437154045002117`*^9, 3.843715407952524*^9}, 3.843715440413783*^9,
3.843715496479456*^9, 3.84371565940444*^9, 3.843715915273138*^9,
3.843720927473126*^9, 3.843721354641965*^9, 3.843721386549151*^9,
- 3.843721438510696*^9},
- CellLabel->
- "Out[448]=",ExpressionUUID->"82afe91a-043e-4f5a-9cc6-8913efd80837"]
+ 3.843721438510696*^9, {3.843817352014451*^9, 3.843817359703183*^9},
+ 3.843817439548147*^9, 3.843817511428746*^9, 3.843817603991971*^9,
+ 3.8438177928840923`*^9, 3.843817882006366*^9, 3.843817992817379*^9,
+ 3.8438180527246323`*^9, 3.84388464345428*^9, 3.843884794815157*^9,
+ 3.843884917312611*^9, {3.843885028072453*^9, 3.84388503520802*^9}, {
+ 3.843885208394731*^9, 3.843885218533421*^9}, {3.8438854076362*^9,
+ 3.843885411587887*^9}, 3.843885625131513*^9, 3.843885794199828*^9,
+ 3.843885920288169*^9, 3.843886007661696*^9, 3.843886161448415*^9,
+ 3.843886265098729*^9, 3.8438872065668983`*^9, 3.843887405853435*^9,
+ 3.8438876330709953`*^9, 3.843891375217598*^9, 3.84389331791212*^9,
+ 3.8438936046252003`*^9, {3.843894662024473*^9, 3.843894672096818*^9},
+ 3.843894813598171*^9, 3.843894941655048*^9, 3.843895331456686*^9,
+ 3.843895501705*^9, 3.8438957712514467`*^9, 3.843895830317987*^9,
+ 3.843895919057516*^9, 3.843895981763586*^9, 3.84389617846423*^9,
+ 3.843896531704711*^9, 3.8438967126046953`*^9,
+ 3.843897070582777*^9},ExpressionUUID->"d5f785dd-7143-46c7-bfa3-\
+e26fbd2f3c6e"]
}, Open ]],
Cell[CellGroupData[{
@@ -35829,7 +37997,7 @@ Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"H", "[", "2", "]"}], "=",
- RowBox[{"h", "[", "0", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"h", "[", "1", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"NF", "[", "2", "]"}], "=", "2"}], ";"}], "\[IndentingNewLine]",
@@ -35842,27 +38010,30 @@ Cell[BoxData[{
RowBox[{"S", "[", "2", "]"}], "=",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.2113984981855266`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.18040968433960122`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.2218190647119276`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.1981515261044843`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.1295236147887016`"}]}], ",",
+ RowBox[{"-", "2.3933801431845954`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2447338967832837`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5218210757148685`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4997458274069301`"}]}],
- "}"}]}], ";"}]}], "Input",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4558675349680261`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.014069612364099534`"}]}]}], "}"}]}], ";"}]}], "Input",
CellChangeTimes->{{3.842517705895237*^9, 3.842517708639202*^9}, {
3.8431067504279013`*^9, 3.8431067566565113`*^9}, {3.843107733421461*^9,
3.8431077537898293`*^9}, {3.8431079886821957`*^9, 3.8431079919621267`*^9}, {
3.843118081491584*^9, 3.8431180928836308`*^9}, {3.843290605662134*^9,
- 3.843290619902092*^9}},
- CellLabel->"In[10]:=",ExpressionUUID->"afc540ea-ef9a-493b-9583-ed901e3ac580"],
+ 3.843290619902092*^9}, {3.8439049063728952`*^9,
+ 3.843904910706853*^9}},ExpressionUUID->"afc540ea-ef9a-493b-9583-\
+ed901e3ac580"],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"H", "[", "3", "]"}], "=",
- RowBox[{"h", "[", "1", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"h", "[", "2", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"NF", "[", "3", "]"}], "=", "2"}], ";"}], "\[IndentingNewLine]",
@@ -35875,30 +38046,35 @@ Cell[BoxData[{
RowBox[{"S", "[", "3", "]"}], "=",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.3497610103287452`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19612583387698465`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3312829236892874`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.1990484241151759`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.199941956875278`"}]}], ",",
+ RowBox[{"-", "2.2569953198152035`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2401996118460512`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3076667198757734`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.39028245506270876`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.39615702441258427`"}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.014909109302639726`"}]}]}], "}"}]}], ";"}]}], "Input",
+ RowBox[{"-", "0.014413476770888844`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.00023301374253497338`"}]}]}], "}"}]}], ";"}]}], "Input",\
+
CellChangeTimes->{{3.8425176933429823`*^9, 3.842517695263131*^9}, {
3.843106785276181*^9, 3.843106789804263*^9}, {3.843107740365707*^9,
3.8431077546377697`*^9}, {3.843107995522175*^9, 3.8431079986742268`*^9}, {
3.843118100443939*^9, 3.843118103571854*^9}, {3.843290613070524*^9,
- 3.843290628974379*^9}},
- CellLabel->"In[14]:=",ExpressionUUID->"cdb9b75d-4c04-4ef5-9969-9e72079c5d58"],
+ 3.843290628974379*^9}, {3.843904951416504*^9,
+ 3.8439049538617773`*^9}},ExpressionUUID->"cdb9b75d-4c04-4ef5-9969-\
+9e72079c5d58"],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"H", "[", "4", "]"}], "=",
- RowBox[{"h", "[", "2", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"h", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"NF", "[", "4", "]"}], "=", "3"}], ";"}], "\[IndentingNewLine]",
@@ -35911,35 +38087,39 @@ Cell[BoxData[{
RowBox[{"S", "[", "4", "]"}], "=",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.449037399770833`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.1956310634797022`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3310596746630394`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19891824286627846`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.2433174743125224`"}]}], ",",
+ RowBox[{"-", "2.361502215519321`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2964274810848326`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.460584099622719`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3707956103394163`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3071976169866144`"}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.10871082597145154`"}]}], ",",
+ RowBox[{"-", "0.026882257199972816`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
- RowBox[{"-", "0.0031747260088083834`"}]}], ",",
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.033212060175714056`"}],
+ ",",
RowBox[{
- RowBox[{"A", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.028926044331647412`"}]}]}], "}"}]}], ";"}]}], "Input",
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.004370268382751191`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "3", "]"}], "\[Rule]", "0.03233338210075686`"}]}],
+ "}"}]}], ";"}]}], "Input",
CellChangeTimes->{{3.8425176829426823`*^9, 3.842517685070943*^9},
3.843106817072406*^9, {3.843106854949473*^9, 3.843106855109346*^9}, {
3.8431077439737988`*^9, 3.8431077555576477`*^9}, {3.8431080011299343`*^9,
3.843108005474188*^9}, {3.843118107683989*^9, 3.8431181126276007`*^9}, {
- 3.8432906307745457`*^9, 3.843290635254532*^9}},
- CellLabel->"In[18]:=",ExpressionUUID->"e7739266-4bd1-4804-846a-5133bf45bfe6"],
+ 3.8432906307745457`*^9, 3.843290635254532*^9}, {3.843904974326128*^9,
+ 3.843904999230419*^9}},ExpressionUUID->"e7739266-4bd1-4804-846a-\
+5133bf45bfe6"],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"H", "[", "5", "]"}], "=",
- RowBox[{"h", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"h", "[", "4", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"NF", "[", "5", "]"}], "=", "3"}], ";"}], "\[IndentingNewLine]",
@@ -35952,38 +38132,43 @@ Cell[BoxData[{
RowBox[{"S", "[", "5", "]"}], "=",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.4718997870644017`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19553388787373974`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.4174499095572046`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19623837275274397`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.2320560452062117`"}]}], ",",
+ RowBox[{"-", "2.3844047782650346`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2804295612857017`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.4945044321287986`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3631783861327246`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4827425954641644`"}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.11398650090024323`"}]}], ",",
+ RowBox[{"-", "0.22253679627867537`"}]}], ",",
RowBox[{
RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
- RowBox[{"-", "0.0031668813000029347`"}]}], ",",
+ RowBox[{"-", "0.03607696344672339`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.006550889829736402`"}],
+ ",",
RowBox[{
RowBox[{"A", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.0289243859800091`"}]}], ",",
+ RowBox[{"-", "0.09566783498205164`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "8.857419924924222`*^-7"}]}],
- "}"}]}], ";"}]}], "Input",
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0006927978972384512`"}]}]}], "}"}]}], ";"}]}], "Input",
CellChangeTimes->{{3.842517669022213*^9, 3.842517671974608*^9}, {
3.843106881048986*^9, 3.8431068851980743`*^9}, {3.8431077463337507`*^9,
3.843107758654028*^9}, {3.843108007874248*^9, 3.843108011866128*^9}, {
3.843118116044188*^9, 3.843118119540159*^9}, {3.843290637446662*^9,
- 3.8432906406465178`*^9}},
- CellLabel->"In[22]:=",ExpressionUUID->"e0c29aa2-30dd-4eb9-990b-b4abf8865eeb"],
+ 3.8432906406465178`*^9}, {3.843905016790925*^9, 3.843905017409232*^9}, {
+ 3.8439050678798122`*^9,
+ 3.843905067959853*^9}},ExpressionUUID->"e0c29aa2-30dd-4eb9-990b-\
+b4abf8865eeb"],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"H", "[", "6", "]"}], "=",
- RowBox[{"h", "[", "4", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"h", "[", "5", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"NF", "[", "6", "]"}], "=", "4"}], ";"}], "\[IndentingNewLine]",
@@ -35996,45 +38181,48 @@ Cell[BoxData[{
RowBox[{"S", "[", "6", "]"}], "=",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.435757396344316`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19736542866520598`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3693245643432388`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19714303679801537`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.3981472287670393`"}]}], ",",
+ RowBox[{"-", "2.4337573590963326`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5091177600111922`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.559970006062279`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.39200424741821555`"}], ",",
-
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4606135324822247`"}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.19533215126551273`"}]}], ",",
+ RowBox[{"-", "0.20059393001573939`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.029301113923157842`"}],
- ",",
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.02621063711050144`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.01488474127424088`"}]}], ",",
RowBox[{
RowBox[{"A", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.09002270806803321`"}]}], ",",
+ RowBox[{"-", "0.054064411318565486`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.003990623031590741`"}],
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.004613876176117714`"}],
",",
RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
- RowBox[{"-", "0.00011912993661574494`"}]}], ",",
+ RowBox[{"A", "[", "4", "]"}], "\[Rule]",
+ RowBox[{"-", "0.014420057543619254`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.01723324643602473`"}]}],
- "}"}]}], ";"}]}], "Input",
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.000570797961625302`"}]}]}], "}"}]}], ";"}]}], "Input",
CellChangeTimes->{{3.842517659446084*^9, 3.842517661454425*^9}, {
3.8431071085894737`*^9, 3.843107110873993*^9}, {3.843107749061781*^9,
3.843107761053968*^9}, {3.8431080144985437`*^9, 3.843108018722546*^9}, {
3.84311812190835*^9, 3.843118129636252*^9}, {3.8432906441747217`*^9,
- 3.843290647414538*^9}},
- CellLabel->"In[26]:=",ExpressionUUID->"80a3d021-bc5a-410c-8e70-089bc45d33bc"],
+ 3.843290647414538*^9}, {3.843905062655871*^9,
+ 3.84390506544761*^9}},ExpressionUUID->"80a3d021-bc5a-410c-8e70-\
+089bc45d33bc"],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"H", "[", "7", "]"}], "=",
- RowBox[{"h", "[", "5", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"h", "[", "6", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"NF", "[", "7", "]"}], "=", "4"}], ";"}], "\[IndentingNewLine]",
@@ -36047,40 +38235,45 @@ Cell[BoxData[{
RowBox[{"S", "[", "7", "]"}], "=",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.4323668647862395`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19730236197017473`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3414183177738805`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19689919009832824`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.42285516121067`"}]}], ",",
+ RowBox[{"-", "2.4797396545378896`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5453691206248084`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6274015230688736`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4131963567936482`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5212082982033303`"}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.22076846011611728`"}]}], ",",
+ RowBox[{"-", "0.23880901356745154`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.036245425139259865`"}],
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.028717858615113008`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.0003968707731909203`"}],
",",
RowBox[{
RowBox[{"A", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.12160894976267282`"}]}], ",",
+ RowBox[{"-", "0.11829440269500721`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.010119794698736752`"}],
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0022181153155482465`"}],
",",
RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
- RowBox[{"-", "0.001143426002373578`"}]}], ",",
+ RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.0014665587532066901`"}],
+ ",",
RowBox[{
- RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.026345666471523435`"}], ",",
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0005511982630786123`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.00010094806835660409`"}]}],
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00003213793548002806`"}]}],
"}"}]}], ";"}]}], "Input",
CellChangeTimes->{{3.8425176452301397`*^9, 3.842517647662315*^9}, {
3.843107494204513*^9, 3.8431074966811*^9}, {3.843107763382147*^9,
3.8431077653659983`*^9}, {3.843108021298802*^9, 3.843108027138801*^9}, {
3.843118132972484*^9, 3.843118139388473*^9}, {3.8432906497668543`*^9,
- 3.8432906528309307`*^9}},
- CellLabel->"In[30]:=",ExpressionUUID->"1d95a4fa-b7b4-4d6f-9695-22a28602846c"],
+ 3.8432906528309307`*^9}, {3.843905095434697*^9,
+ 3.843905098760456*^9}},ExpressionUUID->"1d95a4fa-b7b4-4d6f-9695-\
+22a28602846c"],
Cell[BoxData[{
RowBox[{
@@ -36137,7 +38330,7 @@ Cell[BoxData[{
3.843107771254263*^9}, {3.843108030050688*^9, 3.843108034522934*^9},
3.843113892598907*^9, {3.843118143540801*^9, 3.843118148388715*^9}, {
3.843290655503104*^9, 3.843290659903*^9}},
- CellLabel->"In[34]:=",ExpressionUUID->"f3f292b7-6741-4c30-b2ac-b80cd82a3eaa"],
+ CellLabel->"In[30]:=",ExpressionUUID->"f3f292b7-6741-4c30-b2ac-b80cd82a3eaa"],
Cell[BoxData[{
RowBox[{
@@ -36199,7 +38392,7 @@ Cell[BoxData[{
3.8431077748302317`*^9}, {3.843108036770996*^9, 3.8431080424510937`*^9},
3.843113534568307*^9, {3.843118150468753*^9, 3.843118156188863*^9}, {
3.8432906617511663`*^9, 3.843290666751149*^9}},
- CellLabel->"In[38]:=",ExpressionUUID->"b6e4cc8e-edfb-44a9-a3e6-a4d9a234eb0c"],
+ CellLabel->"In[34]:=",ExpressionUUID->"b6e4cc8e-edfb-44a9-a3e6-a4d9a234eb0c"],
Cell[BoxData[{
RowBox[{
@@ -36263,7 +38456,7 @@ Cell[BoxData[{
CellChangeTimes->{{3.843117659420776*^9, 3.843117674500119*^9}, {
3.843118159212996*^9, 3.843118167876886*^9}, {3.843290669023036*^9,
3.843290675335219*^9}},
- CellLabel->"In[42]:=",ExpressionUUID->"2f0f517e-a884-4fb5-aa03-33b1e6e8e890"],
+ CellLabel->"In[38]:=",ExpressionUUID->"2f0f517e-a884-4fb5-aa03-33b1e6e8e890"],
Cell[CellGroupData[{
@@ -36293,65 +38486,48 @@ Cell[BoxData[{
3.843637947278*^9}, {3.8436380066001596`*^9, 3.843638007279107*^9}, {
3.8437109210522957`*^9, 3.843710921508013*^9}, {3.8437139963254013`*^9,
3.843714000652972*^9}, {3.843728089015019*^9, 3.843728091110979*^9}},
- CellLabel->"",ExpressionUUID->"990c0156-b917-447b-8ea2-39f8d0d504d1"],
+ CellLabel->"In[42]:=",ExpressionUUID->"990c0156-b917-447b-8ea2-39f8d0d504d1"],
Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.3913474674915387`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19655731479519636`"}], ",",
- RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.543160499630645`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.7202774828753598`"}], ",",
- RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5931379821475696`"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.3590042949089068`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
- RowBox[{"-", "0.0020294361484579516`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.28632916219030613`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.05284520770144243`"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
- RowBox[{"-", "0.0200782236788562`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.07340497669659873`"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.0034133036368888883`"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "6", "]"}], "\[Rule]",
- RowBox[{"-", "0.00021383325303668766`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.007299574480334138`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
- RowBox[{"-", "0.00002495169711421392`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "3.6299187273213372`*^-6"}],
- ",",
- RowBox[{
- RowBox[{"A", "[", "6", "]"}], "\[Rule]", "0.0000294160793005649`"}], ",",
-
- RowBox[{
- RowBox[{"gC", "[", "9", "]"}], "\[Rule]",
- RowBox[{"-", "1.2350236293412953`*^-8"}]}]}], "}"}]], "Output",
+ TemplateBox[{
+ "Import", "nffil",
+ "\"File \\!\\(\\*RowBox[{\\\"\\\\\\\"~/doc/research/first_order_\
+singularities/mma/11.wl\\\\\\\"\\\"}]\\) not found during \\!\\(\\*RowBox[{\\\
+\"Import\\\"}]\\).\"", 2, 45, 1, 31653629920828211403, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.843811415853397*^9, 3.843811723974409*^9,
+ 3.843882978496212*^9},
+ CellLabel->
+ "During evaluation of \
+In[42]:=",ExpressionUUID->"69ee9008-fa6c-4744-a2bd-60ddf5a1bb01"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "Part", "partd",
+ "\"Part specification \\!\\(\\*RowBox[{\\\"$Failed\\\", \\\"\
+\[LeftDoubleBracket]\\\", \\\"2\\\", \\\"\[RightDoubleBracket]\\\"}]\\) is \
+longer than depth of object.\"", 2, 45, 2, 31653629920828211403, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.843811415853397*^9, 3.843811723974409*^9,
+ 3.843882978530964*^9},
+ CellLabel->
+ "During evaluation of \
+In[42]:=",ExpressionUUID->"c7e61c4f-b7ba-492b-8830-f4e3d86baa49"],
+
+Cell[BoxData[
+ RowBox[{"$Failed", "\[LeftDoubleBracket]", "2",
+ "\[RightDoubleBracket]"}]], "Output",
CellChangeTimes->{{3.843544451672003*^9, 3.84354445475845*^9}, {
3.843625346157543*^9, 3.8436253531800337`*^9}, 3.8436379476027603`*^9,
3.843638007572206*^9, 3.84371093111165*^9, 3.843714001788314*^9,
- 3.84372151320288*^9},
- CellLabel->"Out[53]=",ExpressionUUID->"a03c0e53-f1d6-465c-bec4-40d66af78dd1"]
+ 3.84372151320288*^9, 3.843811415896719*^9, 3.8438117240464973`*^9,
+ 3.843882978538393*^9},
+ CellLabel->"Out[45]=",ExpressionUUID->"9bf62f5f-7a6f-4af7-bd94-6121ead0f3e4"]
}, Open ]]
}, Open ]]
}, Open ]]
},
-WindowSize->{635.25, 1060.5},
+WindowSize->{955.5, 1060.5},
WindowMargins->{{2.25, Automatic}, {2.25, Automatic}},
FrontEndVersion->"12.3 for Linux x86 (64-bit) (July 9, 2021)",
StyleDefinitions->"Default.nb",
@@ -36368,295 +38544,303 @@ CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
-Cell[558, 20, 996, 16, 24, "Input",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"],
-Cell[1557, 38, 545, 13, 41, "Input",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"],
-Cell[2105, 53, 463, 11, 24, "Input",ExpressionUUID->"2fdffe9d-9220-4c97-866d-0a1f5e3200a1"],
-Cell[2571, 66, 331, 7, 24, "Input",ExpressionUUID->"8f4d55d2-f559-4382-a0b2-1a4eb0ce0b9a"],
-Cell[CellGroupData[{
-Cell[2927, 77, 203, 4, 50, "Section",ExpressionUUID->"5d9c76ab-41db-4d8f-b32b-3ceed5a29b07"],
+Cell[558, 20, 991, 15, 24, "Input",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"],
+Cell[1552, 37, 545, 13, 41, "Input",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"],
+Cell[2100, 52, 463, 11, 24, "Input",ExpressionUUID->"2fdffe9d-9220-4c97-866d-0a1f5e3200a1"],
+Cell[2566, 65, 331, 7, 24, "Input",ExpressionUUID->"8f4d55d2-f559-4382-a0b2-1a4eb0ce0b9a"],
Cell[CellGroupData[{
-Cell[3155, 85, 163, 3, 41, "Subsection",ExpressionUUID->"04b3434a-7ae1-4e59-9492-797bc05d141c"],
-Cell[3321, 90, 218, 5, 22, "Input",ExpressionUUID->"c2736e8b-b9a2-44e3-be7a-35f424888e11"],
+Cell[2922, 76, 203, 4, 50, "Section",ExpressionUUID->"5d9c76ab-41db-4d8f-b32b-3ceed5a29b07"],
Cell[CellGroupData[{
-Cell[3564, 99, 845, 23, 22, "Input",ExpressionUUID->"f1779a9a-9c6a-4c22-8f2d-5e3f6320dd18"],
-Cell[4412, 124, 1649, 39, 58, "Output",ExpressionUUID->"7b6a0ec1-17b1-42fe-be1f-bc27b407eb0f"]
-}, Open ]],
+Cell[3150, 84, 163, 3, 41, "Subsection",ExpressionUUID->"04b3434a-7ae1-4e59-9492-797bc05d141c"],
Cell[CellGroupData[{
-Cell[6098, 168, 3710, 68, 71, "Input",ExpressionUUID->"a326d1ad-f5a3-49d5-9b86-3a79e4cb291c"],
-Cell[9811, 238, 2327, 33, 25, "Output",ExpressionUUID->"1560e838-31e7-482c-8c61-6b82790b3283"]
+Cell[3338, 91, 5830, 89, 75, "Input",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"],
+Cell[9171, 182, 17304, 369, 183, "Output",ExpressionUUID->"fd0e31c4-3576-413b-be64-c5e2cf272a90"]
}, Open ]],
Cell[CellGroupData[{
-Cell[12175, 276, 702, 19, 24, "Input",ExpressionUUID->"8eab97ea-e359-40c0-9935-fde12f7b604a"],
-Cell[12880, 297, 1879, 32, 44, "Output",ExpressionUUID->"44b44280-02dd-432c-a93d-a6c18e60d889"]
+Cell[26512, 556, 5479, 85, 75, "Input",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"],
+Cell[31994, 643, 9111, 201, 181, "Output",ExpressionUUID->"c9264244-18b4-4c6b-9045-ac63927b7b1f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[14796, 334, 5472, 82, 75, "Input",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"],
-Cell[20271, 418, 15046, 323, 183, "Output",ExpressionUUID->"b42c1f8b-0961-4720-9780-938a106ee199"]
+Cell[41142, 849, 6248, 102, 92, "Input",ExpressionUUID->"b80d3f22-eb0b-4407-8e47-23e8047f75de"],
+Cell[47393, 953, 19822, 378, 177, "Output",ExpressionUUID->"038f4708-742c-4509-a5bf-780abe3ef8e7"]
}, Open ]],
Cell[CellGroupData[{
-Cell[35354, 746, 5689, 93, 92, "Input",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"],
-Cell[41046, 841, 7322, 165, 181, "Output",ExpressionUUID->"b1622600-354e-42b3-a170-00c398736669"]
+Cell[67252, 1336, 4323, 86, 73, "Input",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"],
+Cell[71578, 1424, 1504, 27, 25, "Output",ExpressionUUID->"25c2add9-9dfd-4b3a-b5ac-e3f767f84a88"]
}, Open ]],
Cell[CellGroupData[{
-Cell[48405, 1011, 5622, 87, 75, "Input",ExpressionUUID->"b80d3f22-eb0b-4407-8e47-23e8047f75de"],
-Cell[54030, 1100, 17155, 326, 177, "Output",ExpressionUUID->"51d9ee8e-4cc3-4bcc-b254-f53467cac03f"]
+Cell[73119, 1456, 1206, 34, 24, "Input",ExpressionUUID->"9acf3167-ed91-4bdd-8d54-9d984831fbe8"],
+Cell[74328, 1492, 910, 20, 25, "Output",ExpressionUUID->"b059d7c9-8735-422e-bae9-b5aebf0ffb94"]
}, Open ]],
-Cell[71200, 1429, 227, 4, 22, "Input",ExpressionUUID->"c6e9f8ad-3b09-4a82-be20-5c15306095f7"],
Cell[CellGroupData[{
-Cell[71452, 1437, 2524, 48, 24, "Input",ExpressionUUID->"d7e7fb71-cf24-4ff4-8b55-30964f0ae08c"],
-Cell[73979, 1487, 594, 13, 22, "Message",ExpressionUUID->"878453de-b9da-4a3e-bff5-d563e58c984a"],
-Cell[74576, 1502, 594, 13, 22, "Message",ExpressionUUID->"543aa25e-0c46-4263-8219-3c42c63c6826"],
-Cell[75173, 1517, 593, 13, 22, "Message",ExpressionUUID->"a91008f4-a66c-4e00-9a19-3c8c337ea4fd"],
-Cell[75769, 1532, 534, 12, 22, "Message",ExpressionUUID->"708ce0ba-7451-4a83-9278-29373ec439a0"],
-Cell[76306, 1546, 3032, 54, 44, "Output",ExpressionUUID->"23be90ec-d684-4f05-9496-222b14c870b4"]
+Cell[75275, 1517, 3447, 72, 56, "Input",ExpressionUUID->"f3f44ab5-ab9d-423b-af35-070d428c3a9d"],
+Cell[78725, 1591, 974, 22, 25, "Output",ExpressionUUID->"adca116b-4344-4f24-a113-50dc12d9cdc0"]
}, Open ]],
Cell[CellGroupData[{
-Cell[79375, 1605, 2100, 36, 24, "Input",ExpressionUUID->"71729ee5-357f-4cce-b306-ed7f0fd8693f"],
-Cell[81478, 1643, 3031, 54, 42, "Output",ExpressionUUID->"4b914b17-9403-41a8-939a-2d765b5354c6"]
+Cell[79736, 1618, 1156, 33, 24, "Input",ExpressionUUID->"fbfe9aac-852b-4f12-afa8-eefd1a141395"],
+Cell[80895, 1653, 513, 11, 22, "Message",ExpressionUUID->"e11549f0-1f54-41a7-8da7-7bf815c07d68"],
+Cell[81411, 1666, 512, 11, 22, "Message",ExpressionUUID->"05deb4f0-b888-4dc3-9800-9d5c62cb046e"],
+Cell[81926, 1679, 514, 11, 22, "Message",ExpressionUUID->"52600ce7-1c12-4f65-aeda-9fbca14e912b"],
+Cell[82443, 1692, 452, 10, 22, "Message",ExpressionUUID->"43270502-9561-4d5d-bcb4-8fd6e6b0442c"],
+Cell[82898, 1704, 961, 23, 25, "Output",ExpressionUUID->"f81b797b-dfad-48f1-907d-78f33085f565"]
}, Open ]],
-Cell[84524, 1700, 230, 5, 22, "Input",ExpressionUUID->"7ef8ee62-41a4-45fa-8dac-fae83c979244"],
Cell[CellGroupData[{
-Cell[84779, 1709, 425, 12, 22, "Input",ExpressionUUID->"9a00ab65-b447-44be-a4e3-b4d39b092b44"],
-Cell[85207, 1723, 186, 3, 25, "Output",ExpressionUUID->"2666b194-e53c-4199-bac1-60cb3cc85756"]
+Cell[83896, 1732, 3409, 73, 73, "Input",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"],
+Cell[87308, 1807, 3542, 59, 42, "Output",ExpressionUUID->"c852ba83-1f1c-4b79-b8fa-4d7f006f943a"]
}, Open ]],
Cell[CellGroupData[{
-Cell[85430, 1731, 2889, 56, 56, "Input",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"],
-Cell[88322, 1789, 1160, 23, 44, "Output",ExpressionUUID->"a41954f4-33ee-4255-936e-409c32471613"]
+Cell[90887, 1871, 1154, 33, 24, "Input",ExpressionUUID->"1430cc9e-c966-4177-ab4c-6b03a664eaa5"],
+Cell[92044, 1906, 1125, 27, 42, "Output",ExpressionUUID->"dce9f6c3-46a7-4528-b391-b8c13ddc1c07"]
}, Open ]],
Cell[CellGroupData[{
-Cell[89519, 1817, 671, 18, 24, "Input",ExpressionUUID->"3515a135-edc1-4f4f-8610-378ace64a9b7"],
-Cell[90193, 1837, 1057, 23, 42, "Output",ExpressionUUID->"1930b4b2-6535-4d94-8958-2ad399c4c17b"]
+Cell[93206, 1938, 3645, 75, 56, "Input",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"],
+Cell[96854, 2015, 588, 12, 22, "Message",ExpressionUUID->"89cb3b9c-6733-4f30-ba7d-b92bea024a61"],
+Cell[97445, 2029, 587, 12, 22, "Message",ExpressionUUID->"f911b253-4922-487d-ab9d-6d0faee4e930"],
+Cell[98035, 2043, 586, 12, 22, "Message",ExpressionUUID->"1ba81a51-6150-44c3-af7c-c67dc7bede91"],
+Cell[98624, 2057, 526, 11, 22, "Message",ExpressionUUID->"5ac016e9-31c7-4f0e-b8aa-afb81cf2edfa"],
+Cell[99153, 2070, 3451, 61, 42, "Output",ExpressionUUID->"82ba02fc-cd21-4782-bcf6-ebf4b2cd722e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[91287, 1865, 2571, 52, 56, "Input",ExpressionUUID->"29398383-9203-4cf6-aabb-1d3fe15a5894"],
-Cell[93861, 1919, 3021, 52, 44, "Output",ExpressionUUID->"6a6bc5ce-5b34-459f-a22c-941737cf0565"]
+Cell[102641, 2136, 1303, 35, 24, "Input",ExpressionUUID->"dd7f1593-dabe-4540-be1e-78e3cac46ee6"],
+Cell[103947, 2173, 443, 10, 22, "Message",ExpressionUUID->"cc8f974a-d219-4e9e-b4a7-ca4badd961fd"],
+Cell[104393, 2185, 442, 10, 22, "Message",ExpressionUUID->"d99d9c04-cf49-4c56-b36c-84ebccfe63bf"],
+Cell[104838, 2197, 443, 10, 22, "Message",ExpressionUUID->"2e1c1911-4ab1-4ed3-afad-22d62a014078"],
+Cell[105284, 2209, 483, 10, 22, "Message",ExpressionUUID->"b5df8d1e-6393-4c91-94c5-90d09ee043df"],
+Cell[105770, 2221, 1370, 30, 42, "Output",ExpressionUUID->"c1072ef9-8223-412d-854b-b7316a190ce7"]
}, Open ]],
Cell[CellGroupData[{
-Cell[96919, 1976, 754, 21, 24, "Input",ExpressionUUID->"85da52aa-1039-4e9e-bfb7-957631df3f51"],
-Cell[97676, 1999, 515, 12, 22, "Message",ExpressionUUID->"2fe14a28-35b5-494c-b582-a29acfb73210"],
-Cell[98194, 2013, 510, 11, 22, "Message",ExpressionUUID->"c3673e99-ca9e-49c1-8e5b-21d883c4ef41"],
-Cell[98707, 2026, 512, 11, 22, "Message",ExpressionUUID->"ed4d4442-9e2c-4228-aa01-9be8e1ebdab4"],
-Cell[99222, 2039, 509, 11, 22, "Message",ExpressionUUID->"f82cd4be-bb5b-4c28-a352-6894793aca94"],
-Cell[99734, 2052, 1009, 25, 42, "Output",ExpressionUUID->"5dd79a11-570c-44ec-9746-87e670b03ee1"]
+Cell[107177, 2256, 1332, 36, 24, "Input",ExpressionUUID->"df6fc5c6-1a03-486b-a4d4-7311da4859de"],
+Cell[108512, 2294, 1408, 32, 42, "Output",ExpressionUUID->"86750074-4a9a-430f-b741-5590432396da"]
}, Open ]],
Cell[CellGroupData[{
-Cell[100780, 2082, 2611, 54, 56, "Input",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"],
-Cell[103394, 2138, 3120, 56, 42, "Output",ExpressionUUID->"9c259a8c-bce3-49eb-b1dd-e7bcabedadcf"]
+Cell[109957, 2331, 3942, 81, 73, "Input",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"],
+Cell[113902, 2414, 3828, 69, 42, "Output",ExpressionUUID->"9d6b6399-b8b5-4c11-b0c4-1878fb7107b3"]
}, Open ]],
Cell[CellGroupData[{
-Cell[106551, 2199, 2729, 56, 56, "Input",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"],
-Cell[109283, 2257, 1839, 27, 25, "Output",ExpressionUUID->"430992b3-b545-4ad5-857e-1cd7f9e0f50a"]
+Cell[117767, 2488, 1180, 34, 24, "Input",ExpressionUUID->"bf55aae6-3b22-44f1-8c18-45a5a02a688a"],
+Cell[118950, 2524, 468, 11, 22, "Message",ExpressionUUID->"2b1c0138-6295-41cb-b72d-9bdcf95faa22"],
+Cell[119421, 2537, 471, 11, 22, "Message",ExpressionUUID->"1968cc21-938c-46cc-9eba-9e9fbf2d536b"],
+Cell[119895, 2550, 469, 11, 22, "Message",ExpressionUUID->"54327536-e923-4a6d-bd8d-521163c69b38"],
+Cell[120367, 2563, 507, 11, 22, "Message",ExpressionUUID->"f27864d6-3131-4c6c-85e0-07d0f801952b"],
+Cell[120877, 2576, 1513, 36, 42, "Output",ExpressionUUID->"86baa30e-786d-4147-9230-63ec16e908fd"]
}, Open ]],
Cell[CellGroupData[{
-Cell[111159, 2289, 2969, 59, 56, "Input",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"],
-Cell[114131, 2350, 460, 10, 22, "Message",ExpressionUUID->"b628b1ce-8f72-4517-8684-e5b37106425b"],
-Cell[114594, 2362, 461, 10, 22, "Message",ExpressionUUID->"21f24859-445c-4727-9669-cfd60008d6c9"],
-Cell[115058, 2374, 461, 10, 22, "Message",ExpressionUUID->"34862ce4-ccc3-473a-983f-83c9d41299b9"],
-Cell[115522, 2386, 456, 10, 22, "Message",ExpressionUUID->"800b496e-93af-4967-9f4d-19bc30cefc7c"],
-Cell[115981, 2398, 3267, 61, 58, "Output",ExpressionUUID->"4b16f87a-8343-4a14-b1b1-eede27195bbc"]
+Cell[122427, 2617, 1256, 35, 24, "Input",ExpressionUUID->"311c4189-0d61-4e5b-abce-a18bf11d30d5"],
+Cell[123686, 2654, 463, 11, 22, "Message",ExpressionUUID->"bf2e9b59-9481-4751-9dda-95c2a44ef88f"],
+Cell[124152, 2667, 456, 10, 22, "Message",ExpressionUUID->"e2c7bc36-ac17-4833-a5e2-708377ab366a"],
+Cell[124611, 2679, 461, 11, 22, "Message",ExpressionUUID->"a54a6f29-b6bb-42b1-9ef1-c7391454ddd3"],
+Cell[125075, 2692, 453, 10, 22, "Message",ExpressionUUID->"c84a7a7a-bcb6-4589-aa5b-07a8eb37ece5"],
+Cell[125531, 2704, 1559, 37, 42, "Output",ExpressionUUID->"04ebe322-fb32-4e84-98d4-e2cca00e038f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[119285, 2464, 2237, 39, 24, "Input",ExpressionUUID->"7802d202-3d6d-4dfa-88dc-b610c353f8e0"],
-Cell[121525, 2505, 436, 10, 22, "Message",ExpressionUUID->"a6afe7e7-a295-46f1-b353-09cdec263eb6"],
-Cell[121964, 2517, 438, 10, 22, "Message",ExpressionUUID->"72e76bc6-8558-45fb-a4d6-1f3c0d25dce3"],
-Cell[122405, 2529, 2009, 29, 25, "Output",ExpressionUUID->"5faec697-031f-4594-9d93-9cfbc6c71780"]
+Cell[127127, 2746, 4377, 85, 56, "Input",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"],
+Cell[131507, 2833, 584, 12, 22, "Message",ExpressionUUID->"478e944e-8539-43dd-b7ad-13452d8c5fd8"],
+Cell[132094, 2847, 584, 12, 22, "Message",ExpressionUUID->"4e714ac4-3741-4bad-8978-9cce7fc9cf27"],
+Cell[132681, 2861, 583, 12, 22, "Message",ExpressionUUID->"d8d08a80-7409-4fd5-b5fa-8bf89b0dc929"],
+Cell[133267, 2875, 522, 11, 22, "Message",ExpressionUUID->"649838a1-0289-4c08-8492-56d4c5c821ed"],
+Cell[133792, 2888, 3474, 66, 44, "Output",ExpressionUUID->"10fc8e0a-a280-4cb2-a212-f7708921bb32"]
}, Open ]],
Cell[CellGroupData[{
-Cell[124451, 2563, 3589, 66, 72, "Input",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"],
-Cell[CellGroupData[{
-Cell[128065, 2633, 271, 7, 30, "Print",ExpressionUUID->"511d0852-d858-4548-8196-98f35415e50e"],
-Cell[128339, 2642, 318, 9, 56, "Print",ExpressionUUID->"f79394b9-541f-492c-93db-8756d1b14926"],
-Cell[128660, 2653, 320, 9, 56, "Print",ExpressionUUID->"b1edbebb-e977-4520-964f-b1cec1161771"],
-Cell[128983, 2664, 317, 9, 56, "Print",ExpressionUUID->"bfd58a31-019e-410a-b9e9-ab659fab9ac9"],
-Cell[129303, 2675, 272, 7, 30, "Print",ExpressionUUID->"3b1d2871-5059-4719-bd90-6aaba8c9caef"]
-}, Open ]],
-Cell[129590, 2685, 3091, 59, 58, "Output",ExpressionUUID->"98dfdb17-c250-42bc-8b48-17896671f0f4"]
+Cell[137303, 2959, 1301, 35, 24, "Input",ExpressionUUID->"b20a690a-f037-42e7-b31f-7c6fb7165446"],
+Cell[138607, 2996, 372, 9, 22, "Message",ExpressionUUID->"99f55c82-9f1e-4ed1-bee7-f6b42788529a"],
+Cell[138982, 3007, 476, 11, 33, "Message",ExpressionUUID->"cfc785c7-fdcc-4464-8d55-c4535fd0989e"],
+Cell[139461, 3020, 476, 11, 33, "Message",ExpressionUUID->"9c8142ac-b7cf-485d-a8dd-97352d13f970"],
+Cell[139940, 3033, 476, 11, 33, "Message",ExpressionUUID->"834508c0-17d9-4b75-a223-87eb84e48a0c"],
+Cell[140419, 3046, 453, 10, 22, "Message",ExpressionUUID->"0e6651e7-50f5-46db-94b9-c49b364cdd89"],
+Cell[140875, 3058, 422, 10, 22, "Message",ExpressionUUID->"fcfc6397-b646-4aae-beb5-a084083db9ff"],
+Cell[141300, 3070, 422, 10, 22, "Message",ExpressionUUID->"b1114c64-a94d-4a84-8517-f220bdce1087"],
+Cell[141725, 3082, 424, 10, 22, "Message",ExpressionUUID->"e7ce51a0-f9e4-4182-befc-f3116db1409a"],
+Cell[142152, 3094, 460, 10, 22, "Message",ExpressionUUID->"535790fb-fc75-46e1-80cb-f0da4033f09b"],
+Cell[142615, 3106, 1609, 39, 42, "Output",ExpressionUUID->"e6b943fe-5982-410c-a3ea-7ed5f87dc501"]
}, Open ]],
Cell[CellGroupData[{
-Cell[132718, 2749, 1443, 34, 24, "Input",ExpressionUUID->"f29012dd-767e-4ccd-8cc2-503ba7241dd4"],
-Cell[134164, 2785, 1959, 47, 58, "Output",ExpressionUUID->"856b1968-3f0f-4f85-ad84-7cb3e73f0a0d"]
+Cell[144261, 3150, 1351, 36, 24, "Input",ExpressionUUID->"c5f7cefb-23b6-4795-8e0e-29084392ea3e"],
+Cell[145615, 3188, 537, 11, 22, "Message",ExpressionUUID->"4542c8d2-981a-4127-9547-5d5f87f55b8c"],
+Cell[146155, 3201, 537, 11, 22, "Message",ExpressionUUID->"078927a3-b72f-479b-951b-599fed4a45e6"],
+Cell[146695, 3214, 537, 11, 22, "Message",ExpressionUUID->"7244fd16-cc92-4e8d-9c75-0b780e16d48d"],
+Cell[147235, 3227, 475, 10, 22, "Message",ExpressionUUID->"84fcb9c4-04a4-4da4-b7a9-f8b856048bab"],
+Cell[147713, 3239, 1635, 40, 42, "Output",ExpressionUUID->"582f27a7-c183-4aa4-844c-51abc5718a5d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[136160, 2837, 4342, 78, 89, "Input",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"],
+Cell[149385, 3284, 5592, 103, 73, "Input",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"],
Cell[CellGroupData[{
-Cell[140527, 2919, 293, 8, 43, "Print",ExpressionUUID->"8a120e5f-a5a3-4f17-b3ed-fe4c02b738db"],
-Cell[140823, 2929, 294, 8, 43, "Print",ExpressionUUID->"de95d3ae-aa9a-4b14-bde6-721d748d8480"],
-Cell[141120, 2939, 271, 7, 30, "Print",ExpressionUUID->"c9fd7d2b-d1a0-48f2-b8b6-bbecc90bd16c"],
-Cell[141394, 2948, 318, 9, 56, "Print",ExpressionUUID->"756862c8-5721-4b71-9543-cd0dd99e93c0"],
-Cell[141715, 2959, 320, 9, 56, "Print",ExpressionUUID->"7e805f4a-3d92-47ae-8493-1e29f9635c40"],
-Cell[142038, 2970, 318, 9, 56, "Print",ExpressionUUID->"d575551e-b2b0-4da3-a620-4e466d368394"],
-Cell[142359, 2981, 272, 7, 30, "Print",ExpressionUUID->"3bfcd99d-0da9-4b75-b727-45a2f3b0a0e8"],
-Cell[142634, 2990, 294, 8, 43, "Print",ExpressionUUID->"8abe42c0-cb42-47f7-8d0e-35a497bc69c1"],
-Cell[142931, 3000, 279, 7, 30, "Print",ExpressionUUID->"a75f4be0-6356-4a2d-ac60-ca5a174ca99a"]
+Cell[155002, 3391, 296, 8, 43, "Print",ExpressionUUID->"7a772fba-df33-4f9d-b38d-6940e3941eab"],
+Cell[155301, 3401, 322, 9, 56, "Print",ExpressionUUID->"41a446af-8dd2-4c1a-85b6-0bcb5710c58e"],
+Cell[155626, 3412, 324, 9, 56, "Print",ExpressionUUID->"3053db1b-f597-47a4-aa61-dd8286212823"],
+Cell[155953, 3423, 322, 9, 56, "Print",ExpressionUUID->"5801f127-4593-4248-a8fc-5fe3e865e2f0"],
+Cell[156278, 3434, 272, 7, 30, "Print",ExpressionUUID->"55824d87-912b-4205-a8c2-4bc2f6cbcce8"]
}, Open ]],
-Cell[143225, 3010, 1673, 42, 27, "Output",ExpressionUUID->"63af0244-4204-4b51-95aa-39d445b52770"]
+Cell[156565, 3444, 1895, 46, 44, "Output",ExpressionUUID->"b1a7bbe4-1bc8-4c67-8307-052ebd4e074e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[144935, 3057, 1303, 27, 24, "Input",ExpressionUUID->"c58535c6-e2cc-4022-b4ee-6e96bd40636a"],
-Cell[146241, 3086, 1892, 45, 27, "Output",ExpressionUUID->"1bc01698-52fd-4bce-98c8-84ff43606c38"]
+Cell[158497, 3495, 1545, 39, 24, "Input",ExpressionUUID->"e31ca7a0-70f8-48f8-88bd-46f299706f4b"],
+Cell[160045, 3536, 2065, 48, 44, "Output",ExpressionUUID->"b6abc47e-be51-4849-8362-057ad4abcb66"]
}, Open ]],
Cell[CellGroupData[{
-Cell[148170, 3136, 3750, 61, 24, "Input",ExpressionUUID->"78da668e-4ef0-42e2-a70b-6bf19f9b37c3"],
+Cell[162147, 3589, 1623, 41, 24, "Input",ExpressionUUID->"ece2d3a0-e982-4957-8372-4f9d2d7fe8c0"],
Cell[CellGroupData[{
-Cell[151945, 3201, 322, 9, 56, "Print",ExpressionUUID->"2633e8ff-3a2c-4e3a-a4f9-d4a96377ebf3"],
-Cell[152270, 3212, 324, 9, 56, "Print",ExpressionUUID->"cf149e9a-ff7b-4279-ba22-60a5061cccd7"],
-Cell[152597, 3223, 324, 9, 56, "Print",ExpressionUUID->"579bb1ce-0683-426a-8ecf-cc753bd77ccb"],
-Cell[152924, 3234, 272, 7, 30, "Print",ExpressionUUID->"f8dc207c-67fd-491a-ae00-b45b0b9bf708"]
-}, Open ]],
-Cell[153211, 3244, 2174, 50, 25, "Output",ExpressionUUID->"c6e2490b-6500-4f13-ada0-6cff9d298ebe"]
+Cell[163795, 3634, 323, 9, 56, "Print",ExpressionUUID->"69f46805-d37f-43db-b745-b6f4e19be601"],
+Cell[164121, 3645, 323, 9, 56, "Print",ExpressionUUID->"3e7e2344-5bd4-45c4-863e-cca15e665d35"],
+Cell[164447, 3656, 324, 9, 56, "Print",ExpressionUUID->"099fa598-6830-498a-a031-0d3681f80025"],
+Cell[164774, 3667, 271, 7, 30, "Print",ExpressionUUID->"bccb58ff-4772-4874-a5a9-38cc32a82c5e"]
}, Open ]],
-Cell[CellGroupData[{
-Cell[155422, 3299, 1195, 24, 24, "Input",ExpressionUUID->"223493f4-d77c-46b0-bb97-87a0be67433c"],
-Cell[156620, 3325, 1829, 43, 25, "Output",ExpressionUUID->"7ea2834e-6718-45dc-b27c-33dbbcda6b96"]
+Cell[165060, 3677, 2020, 48, 42, "Output",ExpressionUUID->"200f061b-0403-464b-a625-1f810bc1f5b5"]
}, Open ]],
Cell[CellGroupData[{
-Cell[158486, 3373, 2910, 50, 24, "Input",ExpressionUUID->"200b94d3-7cab-4649-99f3-c2558b1a5011"],
+Cell[167117, 3730, 5199, 97, 73, "Input",ExpressionUUID->"5facca9e-653e-4fd9-8527-0092e5469f90"],
Cell[CellGroupData[{
-Cell[161421, 3427, 296, 8, 43, "Print",ExpressionUUID->"2185ced4-0a66-4a97-8838-180d3ce37879"],
-Cell[161720, 3437, 322, 9, 56, "Print",ExpressionUUID->"df24891c-7bf9-4b21-85c2-73617581eebb"],
-Cell[162045, 3448, 324, 9, 56, "Print",ExpressionUUID->"a6619516-6538-49ad-b331-3956e0aa62c9"],
-Cell[162372, 3459, 322, 9, 56, "Print",ExpressionUUID->"0558deb8-f9a3-4d34-8ab5-3fc2fa8b0deb"],
-Cell[162697, 3470, 274, 7, 30, "Print",ExpressionUUID->"af5140d0-5f4f-4ff2-91a9-9ac6d7032d89"]
+Cell[172341, 3831, 322, 9, 56, "Print",ExpressionUUID->"f45234f2-752f-46c6-9ddf-bd262d16691f"],
+Cell[172666, 3842, 324, 9, 56, "Print",ExpressionUUID->"011b4035-7393-4523-94fb-fb4791bf158d"],
+Cell[172993, 3853, 322, 9, 56, "Print",ExpressionUUID->"c5d09aec-16c7-4e06-acf4-318a5ced69b1"],
+Cell[173318, 3864, 274, 7, 30, "Print",ExpressionUUID->"211a48b2-a25f-4c85-8a27-a723c7e7d387"]
}, Open ]],
-Cell[162986, 3480, 2286, 52, 27, "Output",ExpressionUUID->"f91958e9-a220-4f8e-ae16-55c2d7026d35"]
+Cell[173607, 3874, 1877, 49, 60, "Output",ExpressionUUID->"68934bdb-e5c2-45fc-b920-4aae13dbfe8d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[165309, 3537, 179, 3, 22, "Input",ExpressionUUID->"2e40e185-1d47-4e98-b537-128197264f04"],
-Cell[165491, 3542, 1736, 45, 27, "Output",ExpressionUUID->"089e5e7d-8886-4596-9b12-15e349d13600"]
-}, Open ]],
+Cell[175521, 3928, 4659, 82, 24, "Input",ExpressionUUID->"6bb6eb48-9c7f-4cd5-80e5-89dd5f03b923"],
Cell[CellGroupData[{
-Cell[167264, 3592, 1241, 24, 24, "Input",ExpressionUUID->"0dba08c9-c74d-4268-96fa-0c6efda987ca"],
-Cell[168508, 3618, 1843, 45, 25, "Output",ExpressionUUID->"30dd2ebb-5e89-4bec-b443-d6cfa7697ac6"]
+Cell[180205, 4014, 324, 9, 56, "Print",ExpressionUUID->"467aa206-d126-4a40-8067-409232ffdc3a"],
+Cell[180532, 4025, 323, 9, 56, "Print",ExpressionUUID->"8754ca31-013e-4466-96bb-ebec32313a78"],
+Cell[180858, 4036, 324, 9, 56, "Print",ExpressionUUID->"c1aca8bb-d681-469a-bd29-f151362e33f6"],
+Cell[181185, 4047, 272, 7, 30, "Print",ExpressionUUID->"4f212f81-2c74-4237-aad8-d1d9e3dda9a8"]
}, Open ]],
-Cell[CellGroupData[{
-Cell[170388, 3668, 1520, 38, 24, "Input",ExpressionUUID->"77feec13-1cdc-471d-8d45-49920b8c9c58"],
-Cell[171911, 3708, 625, 12, 22, "Message",ExpressionUUID->"91443dc7-57dd-4d8a-aff2-566e34296967"],
-Cell[172539, 3722, 634, 12, 22, "Message",ExpressionUUID->"8c8db586-7a76-4cc8-b40c-f5641a83fb2a"],
-Cell[173176, 3736, 974, 17, 22, "Message",ExpressionUUID->"55680071-ebde-46b2-9985-b7b1773db7d9"],
-Cell[174153, 3755, 512, 8, 25, "Output",ExpressionUUID->"23e34e05-cb3e-40f1-ba06-a11819fced80"]
+Cell[181472, 4057, 2092, 52, 60, "Output",ExpressionUUID->"2a2c83e9-3cde-44af-a7d5-e6b62504ce18"]
}, Open ]],
Cell[CellGroupData[{
-Cell[174702, 3768, 1280, 30, 24, "Input",ExpressionUUID->"2742bf10-6e80-4043-a3d1-4f8276912fa7"],
+Cell[183601, 4114, 1250, 36, 24, "Input",ExpressionUUID->"50ae3a0c-00b7-48d3-bbd9-7fcdb7e9be65"],
Cell[CellGroupData[{
-Cell[176007, 3802, 344, 9, 56, "Print",ExpressionUUID->"d968a77e-0b23-4ede-8778-fe70c8fe67a4"],
-Cell[176354, 3813, 342, 9, 56, "Print",ExpressionUUID->"c0fb9f74-f597-4290-ab92-19fc6918cb3b"],
-Cell[176699, 3824, 342, 9, 56, "Print",ExpressionUUID->"d580040e-4b47-47e5-a184-41377961a189"],
-Cell[177044, 3835, 272, 7, 30, "Print",ExpressionUUID->"f836f1cb-320c-4756-a39e-0d2706b3cc76"],
-Cell[177319, 3844, 271, 7, 30, "Print",ExpressionUUID->"c1df8207-0a77-43dc-8619-51d191eb8a45"],
-Cell[177593, 3853, 294, 8, 43, "Print",ExpressionUUID->"7bac1e96-85d8-4b0c-a777-cc3800b0bd9f"]
-}, Open ]],
-Cell[177902, 3864, 2207, 54, 44, "Output",ExpressionUUID->"956b70bf-8ee9-40a5-8b0c-7ecec5569248"]
-}, Open ]],
-Cell[CellGroupData[{
-Cell[180146, 3923, 1403, 35, 24, "Input",ExpressionUUID->"da6fb0f0-808b-49e1-9a6d-6ced77c20899"],
-Cell[181552, 3960, 625, 12, 22, "Message",ExpressionUUID->"a7443b43-ee71-430d-91d4-435b34fc9655"],
-Cell[182180, 3974, 630, 12, 22, "Message",ExpressionUUID->"3a4d6953-ecc7-4836-bcde-ce1889fff237"],
-Cell[182813, 3988, 970, 17, 22, "Message",ExpressionUUID->"f91cae25-3d55-4507-97e3-8efe0f1015cd"],
-Cell[183786, 4007, 346, 6, 25, "Output",ExpressionUUID->"8ae1da27-83ab-4529-80cd-aa8d17f74340"]
+Cell[184876, 4154, 252, 6, 18, "Print",ExpressionUUID->"f2db3760-255a-4d78-86c0-da167b38c746"],
+Cell[185131, 4162, 255, 7, 18, "Print",ExpressionUUID->"9eaeaa47-2a19-4f62-8edd-d739b738dc97"],
+Cell[185389, 4171, 249, 6, 18, "Print",ExpressionUUID->"516762a4-e3a4-49c8-afd5-ebb9602701c3"],
+Cell[185641, 4179, 254, 6, 18, "Print",ExpressionUUID->"8c6b0e8c-5f47-421a-af95-4872d1d3fdd4"],
+Cell[185898, 4187, 257, 7, 18, "Print",ExpressionUUID->"10d22756-dcd4-44d1-aac4-99016bb32ee9"],
+Cell[186158, 4196, 271, 7, 30, "Print",ExpressionUUID->"084e7849-246f-429f-855f-22c2c43a8763"],
+Cell[186432, 4205, 254, 6, 18, "Print",ExpressionUUID->"e015d14b-eb0c-4bb0-af1c-188c96529d70"],
+Cell[186689, 4213, 254, 6, 18, "Print",ExpressionUUID->"bc7a1a36-c9f3-4c07-90fe-8ed0ce16359d"],
+Cell[186946, 4221, 273, 7, 30, "Print",ExpressionUUID->"ad6e1792-e476-45f4-ada9-6baaeb9e165a"],
+Cell[187222, 4230, 266, 7, 30, "Print",ExpressionUUID->"9badaa21-a438-4ebf-a9b8-b6f0cc53a9a5"],
+Cell[187491, 4239, 309, 8, 43, "Print",ExpressionUUID->"103493b3-bc70-4d18-ae26-4b48ba433f58"],
+Cell[187803, 4249, 268, 7, 30, "Print",ExpressionUUID->"702392f9-fce6-4fe0-a53b-091e531871fc"],
+Cell[188074, 4258, 268, 7, 30, "Print",ExpressionUUID->"891d5c90-8786-453c-915a-5c9758870145"],
+Cell[188345, 4267, 309, 8, 43, "Print",ExpressionUUID->"18c6d658-6045-48d1-b671-d40f83ee93a5"],
+Cell[188657, 4277, 227, 4, 18, "Print",ExpressionUUID->"95489f99-5b01-4f57-9a57-182c23961f20"],
+Cell[188887, 4283, 365, 8, 43, "Print",ExpressionUUID->"f2fff34e-167a-4e82-ba62-ead2b1143e60"],
+Cell[189255, 4293, 227, 4, 18, "Print",ExpressionUUID->"4171c4a8-9b74-4d07-876d-81d571c07477"],
+Cell[189485, 4299, 272, 7, 30, "Print",ExpressionUUID->"45356bd2-8112-4f01-b137-4fef8466cde1"],
+Cell[189760, 4308, 489, 11, 81, "Print",ExpressionUUID->"5978dcc5-7b1e-4d27-9474-82e19086971d"],
+Cell[190252, 4321, 280, 7, 30, "Print",ExpressionUUID->"3f77796a-af19-4895-a65a-bfbc320f7174"]
+}, Open ]]
}, Open ]],
Cell[CellGroupData[{
-Cell[184169, 4018, 325, 8, 24, "Input",ExpressionUUID->"f17f1130-056e-4552-87df-88000e071617"],
-Cell[184497, 4028, 1954, 49, 44, "Output",ExpressionUUID->"02d3c92e-d0da-4803-afd6-9943e49011bf"]
+Cell[190581, 4334, 5215, 100, 73, "Input",ExpressionUUID->"f5124a1f-1004-49ef-bdce-65e49311db89"],
+Cell[195799, 4436, 601, 12, 22, "Message",ExpressionUUID->"52d37aec-5e97-49ba-a73f-9240ea9bab01"],
+Cell[196403, 4450, 609, 12, 22, "Message",ExpressionUUID->"a87cd0bd-956c-4292-bb38-f01fa93f88fa"],
+Cell[197015, 4464, 949, 17, 34, "Message",ExpressionUUID->"fd51acaa-08e6-4912-b93f-c1e1c0519a2a"],
+Cell[197967, 4483, 354, 6, 25, "Output",ExpressionUUID->"d33cb855-0ed5-497d-8933-b6ebe6b81534"]
}, Open ]],
+Cell[198336, 4492, 1265, 37, 24, "Input",ExpressionUUID->"72b068ea-967c-499f-9ec3-b16d3cfcb4ca"],
+Cell[199604, 4531, 10391, 159, 22, "Input",ExpressionUUID->"673ffefa-75f0-46ac-befd-c785b4bc3ce1"],
+Cell[209998, 4692, 12010, 183, 22, "Input",ExpressionUUID->"e351157f-b944-4cbd-bedd-89b185c451f7"],
Cell[CellGroupData[{
-Cell[186488, 4082, 1821, 41, 24, "Input",ExpressionUUID->"30cc4ffc-6785-4b8d-b6fc-639e76f49ad9"],
-Cell[188312, 4125, 511, 11, 22, "Message",ExpressionUUID->"19f98077-4ff8-4918-9a55-7133637e973a"]
+Cell[222033, 4879, 525, 11, 24, "Input",ExpressionUUID->"9437364d-2d5a-4493-b405-40564b9ff897"],
+Cell[222561, 4892, 23819, 525, 170, "Output",ExpressionUUID->"52fbd471-7005-4ea0-b7a7-58de8c0386f3"]
}, Open ]],
-Cell[188838, 4139, 10391, 159, 22, "Input",ExpressionUUID->"673ffefa-75f0-46ac-befd-c785b4bc3ce1"],
-Cell[199232, 4300, 10904, 168, 22, "Input",ExpressionUUID->"e351157f-b944-4cbd-bedd-89b185c451f7"],
Cell[CellGroupData[{
-Cell[210161, 4472, 642, 18, 24, "Input",ExpressionUUID->"9437364d-2d5a-4493-b405-40564b9ff897"],
-Cell[210806, 4492, 9163, 212, 170, "Output",ExpressionUUID->"82afe91a-043e-4f5a-9cc6-8913efd80837"]
+Cell[246417, 5422, 20997, 469, 167, "Input",ExpressionUUID->"e0fe24ec-ebe4-4875-83e4-0ee6e9334efc"],
+Cell[267417, 5893, 21852, 498, 170, "Output",ExpressionUUID->"a7196a4e-63e4-4e6a-a5ab-a42437e784c3"],
+Cell[289272, 6393, 22174, 479, 170, "Output",ExpressionUUID->"d5f785dd-7143-46c7-bfa3-e26fbd2f3c6e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[220006, 4709, 1801, 44, 24, "Input",ExpressionUUID->"cc0d041f-1be1-4721-9bff-7905d15cd7c6"],
-Cell[221810, 4755, 2116, 46, 44, "Output",ExpressionUUID->"a0e6b052-2a21-4317-a019-77888bf4863b"]
+Cell[311483, 6877, 1801, 44, 24, "Input",ExpressionUUID->"cc0d041f-1be1-4721-9bff-7905d15cd7c6"],
+Cell[313287, 6923, 2116, 46, 95, "Output",ExpressionUUID->"a0e6b052-2a21-4317-a019-77888bf4863b"]
}, Open ]],
-Cell[223941, 4804, 398, 8, 24, "Input",ExpressionUUID->"0c393b94-0e36-44bf-b752-a3d4e048e5f7"],
+Cell[315418, 6972, 398, 8, 24, "Input",ExpressionUUID->"0c393b94-0e36-44bf-b752-a3d4e048e5f7"],
Cell[CellGroupData[{
-Cell[224364, 4816, 4133, 75, 59, "Input",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"],
-Cell[228500, 4893, 24167, 491, 171, "Output",ExpressionUUID->"f4dafc1e-2d69-44f1-b6c9-4e92c5596f38"]
+Cell[315841, 6984, 4133, 75, 59, "Input",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"],
+Cell[319977, 7061, 24167, 491, 171, "Output",ExpressionUUID->"f4dafc1e-2d69-44f1-b6c9-4e92c5596f38"]
}, Open ]],
-Cell[252682, 5387, 287, 7, 22, "Input",ExpressionUUID->"50db4e94-544f-4873-82ae-09a8483fdb2d"],
+Cell[344159, 7555, 287, 7, 22, "Input",ExpressionUUID->"50db4e94-544f-4873-82ae-09a8483fdb2d"],
Cell[CellGroupData[{
-Cell[252994, 5398, 1038, 29, 24, "Input",ExpressionUUID->"47e013e3-8ac7-4133-8111-4b3509d6e2bb"],
-Cell[254035, 5429, 304, 5, 25, "Output",ExpressionUUID->"37bddea5-8edb-4ad5-af54-8c1f0c2eab67"]
+Cell[344471, 7566, 1038, 29, 41, "Input",ExpressionUUID->"47e013e3-8ac7-4133-8111-4b3509d6e2bb"],
+Cell[345512, 7597, 304, 5, 25, "Output",ExpressionUUID->"37bddea5-8edb-4ad5-af54-8c1f0c2eab67"]
}, Open ]],
Cell[CellGroupData[{
-Cell[254376, 5439, 868, 24, 24, "Input",ExpressionUUID->"01387b01-3294-40e7-8b69-78378d670e52"],
-Cell[255247, 5465, 17575, 405, 184, "Output",ExpressionUUID->"8cec0562-f526-4026-ab01-0593355140a7"]
+Cell[345853, 7607, 868, 24, 24, "Input",ExpressionUUID->"01387b01-3294-40e7-8b69-78378d670e52"],
+Cell[346724, 7633, 17575, 405, 184, "Output",ExpressionUUID->"8cec0562-f526-4026-ab01-0593355140a7"]
}, Open ]],
Cell[CellGroupData[{
-Cell[272859, 5875, 1207, 25, 22, "Input",ExpressionUUID->"d88de4bc-38ed-48d9-9eb9-13896c8d48af"],
-Cell[274069, 5902, 11475, 249, 171, "Output",ExpressionUUID->"e1fd13f9-9a47-43d5-ac23-916228e32fef"]
+Cell[364336, 8043, 1207, 25, 22, "Input",ExpressionUUID->"d88de4bc-38ed-48d9-9eb9-13896c8d48af"],
+Cell[365546, 8070, 11475, 249, 171, "Output",ExpressionUUID->"e1fd13f9-9a47-43d5-ac23-916228e32fef"]
}, Open ]],
Cell[CellGroupData[{
-Cell[285581, 6156, 2187, 51, 43, "Input",ExpressionUUID->"f785d7e5-8e11-45cc-81cd-0e70921fef2b"],
-Cell[287771, 6209, 733, 14, 32, "Message",ExpressionUUID->"162535cd-d62a-48c2-af96-7140a9f63050"],
-Cell[288507, 6225, 771, 15, 22, "Message",ExpressionUUID->"56b6fe59-14dc-4bc6-baeb-fe77ce144ee6"],
-Cell[289281, 6242, 734, 14, 32, "Message",ExpressionUUID->"9e7384b5-4cf5-4f3e-84e6-a9d047e1959b"],
-Cell[290018, 6258, 769, 15, 22, "Message",ExpressionUUID->"348cb862-eaed-45c1-9750-7eeddb304033"],
-Cell[290790, 6275, 734, 14, 32, "Message",ExpressionUUID->"ee576e45-e228-483d-890e-f9c379104b1f"],
-Cell[291527, 6291, 814, 15, 22, "Message",ExpressionUUID->"505478e2-adb1-468b-bd7d-2f1280492c3a"],
-Cell[292344, 6308, 771, 15, 22, "Message",ExpressionUUID->"725753ce-0c13-4467-8895-0d985413a7b7"],
-Cell[293118, 6325, 818, 15, 22, "Message",ExpressionUUID->"5eb9561f-5e5e-4b1d-b5bb-f3122d6b98f2"],
-Cell[293939, 6342, 11608, 275, 180, "Output",ExpressionUUID->"be597aa8-7ecf-4557-9551-74d39eb14ee7"]
+Cell[377058, 8324, 2187, 51, 66, "Input",ExpressionUUID->"f785d7e5-8e11-45cc-81cd-0e70921fef2b"],
+Cell[379248, 8377, 733, 14, 32, "Message",ExpressionUUID->"162535cd-d62a-48c2-af96-7140a9f63050"],
+Cell[379984, 8393, 771, 15, 22, "Message",ExpressionUUID->"56b6fe59-14dc-4bc6-baeb-fe77ce144ee6"],
+Cell[380758, 8410, 734, 14, 32, "Message",ExpressionUUID->"9e7384b5-4cf5-4f3e-84e6-a9d047e1959b"],
+Cell[381495, 8426, 769, 15, 22, "Message",ExpressionUUID->"348cb862-eaed-45c1-9750-7eeddb304033"],
+Cell[382267, 8443, 734, 14, 32, "Message",ExpressionUUID->"ee576e45-e228-483d-890e-f9c379104b1f"],
+Cell[383004, 8459, 814, 15, 22, "Message",ExpressionUUID->"505478e2-adb1-468b-bd7d-2f1280492c3a"],
+Cell[383821, 8476, 771, 15, 22, "Message",ExpressionUUID->"725753ce-0c13-4467-8895-0d985413a7b7"],
+Cell[384595, 8493, 818, 15, 22, "Message",ExpressionUUID->"5eb9561f-5e5e-4b1d-b5bb-f3122d6b98f2"],
+Cell[385416, 8510, 11608, 275, 180, "Output",ExpressionUUID->"be597aa8-7ecf-4557-9551-74d39eb14ee7"]
}, Open ]],
Cell[CellGroupData[{
-Cell[305584, 6622, 1336, 31, 43, "Input",ExpressionUUID->"be68f105-e7f1-4186-b7b1-a6f02a4bd594"],
-Cell[306923, 6655, 10700, 261, 181, "Output",ExpressionUUID->"b57dd479-aac4-4dc9-b32b-1a68214db69f"]
+Cell[397061, 8790, 1336, 31, 43, "Input",ExpressionUUID->"be68f105-e7f1-4186-b7b1-a6f02a4bd594"],
+Cell[398400, 8823, 10700, 261, 181, "Output",ExpressionUUID->"b57dd479-aac4-4dc9-b32b-1a68214db69f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[317660, 6921, 848, 21, 22, "Input",ExpressionUUID->"0805dca1-3214-4053-b11e-4c015cec2e4b"],
-Cell[318511, 6944, 12644, 228, 174, "Output",ExpressionUUID->"48b92cb7-d098-4f8b-b49d-7550fd336efb"]
+Cell[409137, 9089, 848, 21, 22, "Input",ExpressionUUID->"0805dca1-3214-4053-b11e-4c015cec2e4b"],
+Cell[409988, 9112, 12644, 228, 174, "Output",ExpressionUUID->"48b92cb7-d098-4f8b-b49d-7550fd336efb"]
}, Open ]],
Cell[CellGroupData[{
-Cell[331192, 7177, 982, 23, 22, "Input",ExpressionUUID->"df04592e-ebb2-4859-b1e7-acbef5775165"],
-Cell[332177, 7202, 16441, 289, 171, "Output",ExpressionUUID->"35add101-fc22-4757-b5c1-91c88545a137"]
+Cell[422669, 9345, 982, 23, 22, "Input",ExpressionUUID->"df04592e-ebb2-4859-b1e7-acbef5775165"],
+Cell[423654, 9370, 16441, 289, 171, "Output",ExpressionUUID->"35add101-fc22-4757-b5c1-91c88545a137"]
}, Open ]],
Cell[CellGroupData[{
-Cell[348655, 7496, 3834, 96, 66, "Input",ExpressionUUID->"c7679221-477e-44ed-ad24-f20a36e0f29d"],
-Cell[352492, 7594, 38355, 642, 188, "Output",ExpressionUUID->"4b4be68c-760f-476d-96a3-fcd70d8ef33c"]
+Cell[440132, 9664, 3834, 96, 109, "Input",ExpressionUUID->"c7679221-477e-44ed-ad24-f20a36e0f29d"],
+Cell[443969, 9762, 38355, 642, 188, "Output",ExpressionUUID->"4b4be68c-760f-476d-96a3-fcd70d8ef33c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[390884, 8241, 2305, 52, 40, "Input",ExpressionUUID->"3774b0e8-ed8f-4304-be73-f4ed265155e9"],
-Cell[393192, 8295, 11461, 208, 392, "Output",ExpressionUUID->"897b2bdd-4551-4a9d-b234-810e9e14bf11"]
+Cell[482361, 10409, 2305, 52, 62, "Input",ExpressionUUID->"3774b0e8-ed8f-4304-be73-f4ed265155e9"],
+Cell[484669, 10463, 11461, 208, 392, "Output",ExpressionUUID->"897b2bdd-4551-4a9d-b234-810e9e14bf11"]
}, Open ]],
Cell[CellGroupData[{
-Cell[404690, 8508, 2206, 52, 40, "Input",ExpressionUUID->"997c9c3d-3291-4f27-afcd-2a3c02bfd3fd"],
-Cell[406899, 8562, 23560, 404, 253, "Output",ExpressionUUID->"b89ead09-4dd2-4e82-9f4f-7394478ce32f"]
+Cell[496167, 10676, 2206, 52, 62, "Input",ExpressionUUID->"997c9c3d-3291-4f27-afcd-2a3c02bfd3fd"],
+Cell[498376, 10730, 23560, 404, 253, "Output",ExpressionUUID->"b89ead09-4dd2-4e82-9f4f-7394478ce32f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[430496, 8971, 1629, 38, 24, "Input",ExpressionUUID->"caeef800-5d91-4fb4-9816-9aacdb626a63"],
-Cell[432128, 9011, 1251114, 20528, 364, 772638, 12684, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"f7800255-b48c-4368-ba57-548155e86dfa"]
+Cell[521973, 11139, 1629, 38, 57, "Input",ExpressionUUID->"caeef800-5d91-4fb4-9816-9aacdb626a63"],
+Cell[523605, 11179, 1251114, 20528, 364, 772638, 12684, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"f7800255-b48c-4368-ba57-548155e86dfa"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1683279, 29544, 1176, 30, 24, "Input",ExpressionUUID->"626e933d-cd37-4a52-851f-6473bebeff53"],
-Cell[1684458, 29576, 163730, 2704, 317, "Output",ExpressionUUID->"df893735-eb2f-4fa8-937b-dbb343a52a39"]
+Cell[1774756, 31712, 1176, 30, 41, "Input",ExpressionUUID->"626e933d-cd37-4a52-851f-6473bebeff53"],
+Cell[1775935, 31744, 163730, 2704, 317, "Output",ExpressionUUID->"df893735-eb2f-4fa8-937b-dbb343a52a39"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1848225, 32285, 1906, 42, 24, "Input",ExpressionUUID->"9985bed4-dad9-41a8-a4a0-bf515be7111c"],
-Cell[1850134, 32329, 199193, 3283, 362, "Output",ExpressionUUID->"7ad32301-6347-4a43-8055-9158b827767a"]
+Cell[1939702, 34453, 1906, 42, 75, "Input",ExpressionUUID->"9985bed4-dad9-41a8-a4a0-bf515be7111c"],
+Cell[1941611, 34497, 199193, 3283, 362, "Output",ExpressionUUID->"7ad32301-6347-4a43-8055-9158b827767a"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2049364, 35617, 1018, 27, 24, "Input",ExpressionUUID->"95c3ad10-59a3-4496-bbd9-ec9966e153e1"],
-Cell[2050385, 35646, 8989, 170, 163, "Output",ExpressionUUID->"a3028a35-bb3d-4af0-9cec-08135dfa52fc"]
+Cell[2140841, 37785, 1018, 27, 24, "Input",ExpressionUUID->"95c3ad10-59a3-4496-bbd9-ec9966e153e1"],
+Cell[2141862, 37814, 8989, 170, 163, "Output",ExpressionUUID->"a3028a35-bb3d-4af0-9cec-08135dfa52fc"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
-Cell[2059423, 35822, 159, 3, 41, "Subsection",ExpressionUUID->"36c7685a-f47a-40aa-a737-8c7f6f4317c1"],
-Cell[2059585, 35827, 1302, 31, 72, "Input",ExpressionUUID->"afc540ea-ef9a-493b-9583-ed901e3ac580"],
-Cell[2060890, 35860, 1414, 34, 72, "Input",ExpressionUUID->"cdb9b75d-4c04-4ef5-9969-9e72079c5d58"],
-Cell[2062307, 35896, 1671, 39, 72, "Input",ExpressionUUID->"e7739266-4bd1-4804-846a-5133bf45bfe6"],
-Cell[2063981, 35937, 1740, 42, 72, "Input",ExpressionUUID->"e0c29aa2-30dd-4eb9-990b-b4abf8865eeb"],
-Cell[2065724, 35981, 1946, 49, 89, "Input",ExpressionUUID->"80a3d021-bc5a-410c-8e70-089bc45d33bc"],
-Cell[2067673, 36032, 2035, 50, 89, "Input",ExpressionUUID->"1d95a4fa-b7b4-4d6f-9695-22a28602846c"],
-Cell[2069711, 36084, 2280, 55, 89, "Input",ExpressionUUID->"f3f292b7-6741-4c30-b2ac-b80cd82a3eaa"],
-Cell[2071994, 36141, 2423, 60, 89, "Input",ExpressionUUID->"b6e4cc8e-edfb-44a9-a3e6-a4d9a234eb0c"],
-Cell[2074420, 36203, 2451, 62, 89, "Input",ExpressionUUID->"2f0f517e-a884-4fb5-aa03-33b1e6e8e890"],
+Cell[2150900, 37990, 159, 3, 41, "Subsection",ExpressionUUID->"36c7685a-f47a-40aa-a737-8c7f6f4317c1"],
+Cell[2151062, 37995, 1442, 34, 89, "Input",ExpressionUUID->"afc540ea-ef9a-493b-9583-ed901e3ac580"],
+Cell[2152507, 38031, 1564, 39, 89, "Input",ExpressionUUID->"cdb9b75d-4c04-4ef5-9969-9e72079c5d58"],
+Cell[2154074, 38072, 1782, 43, 105, "Input",ExpressionUUID->"e7739266-4bd1-4804-846a-5133bf45bfe6"],
+Cell[2155859, 38117, 1935, 47, 105, "Input",ExpressionUUID->"e0c29aa2-30dd-4eb9-990b-b4abf8865eeb"],
+Cell[2157797, 38166, 2113, 52, 105, "Input",ExpressionUUID->"80a3d021-bc5a-410c-8e70-089bc45d33bc"],
+Cell[2159913, 38220, 2191, 55, 121, "Input",ExpressionUUID->"1d95a4fa-b7b4-4d6f-9695-22a28602846c"],
+Cell[2162107, 38277, 2280, 55, 121, "Input",ExpressionUUID->"f3f292b7-6741-4c30-b2ac-b80cd82a3eaa"],
+Cell[2164390, 38334, 2423, 60, 121, "Input",ExpressionUUID->"b6e4cc8e-edfb-44a9-a3e6-a4d9a234eb0c"],
+Cell[2166816, 38396, 2451, 62, 137, "Input",ExpressionUUID->"2f0f517e-a884-4fb5-aa03-33b1e6e8e890"],
Cell[CellGroupData[{
-Cell[2076896, 36269, 1067, 26, 72, "Input",ExpressionUUID->"990c0156-b917-447b-8ea2-39f8d0d504d1"],
-Cell[2077966, 36297, 2105, 51, 44, "Output",ExpressionUUID->"a03c0e53-f1d6-465c-bec4-40d66af78dd1"]
+Cell[2169292, 38462, 1075, 26, 72, "Input",ExpressionUUID->"990c0156-b917-447b-8ea2-39f8d0d504d1"],
+Cell[2170370, 38490, 498, 11, 22, "Message",ExpressionUUID->"69ee9008-fa6c-4744-a2bd-60ddf5a1bb01"],
+Cell[2170871, 38503, 500, 11, 22, "Message",ExpressionUUID->"c7e61c4f-b7ba-492b-8830-f4e3d86baa49"],
+Cell[2171374, 38516, 489, 8, 25, "Output",ExpressionUUID->"9bf62f5f-7a6f-4af7-bd94-6121ead0f3e4"]
}, Open ]]
}, Open ]]
}, Open ]]
diff --git a/schofield.wl b/schofield.wl
index d3ad6d2..ecf61ff 100644
--- a/schofield.wl
+++ b/schofield.wl
@@ -59,39 +59,39 @@ invDerivativeList[n_][f_][x_] := Module[
MapIndexed[{Pn, i} \[Function] Pn/dfs[[1]]^(2 i[[1]] - 1), Pns]
]
-dGdξLowList[n_, h_][m_] := Module[
+dGdξLowList[n_, h_, params_:{}][m_] := Module[
{ ds, dF, df },
- ds = invDerivativeList[m+1][Function[θ, h[θ] / t[θ]^Δ[2]]][θc];
- dF = NestList[Function[f, D[f, θ]], RFReg[n][θ], m] + Table[dfLow[AL, B][k], {k, 0, m}] /. θ -> θc;
+ ds = invDerivativeList[m+1][Function[θ, h[θ] / t[θ]^Δ[2] //. params]][θc //. params];
+ dF = NestList[Function[f, D[f, θ]], RFReg[n][θ], m] + Table[dfLow[AL, B][k], {k, 0, m}] /. θ -> θc //. params;
df = NestList[D[#, \[Theta]] &,
fp[\[Theta]]/t[\[Theta]]^2 - 1/(8 \[Pi]) Log[t[\[Theta]]^2],
m] /.
Map[Derivative[#][fp][\[Theta]] -> dF[[# + 1]] &,
- Range[0, m]] /. θ -> θc;
+ Range[0, m]] /. θ -> θc //. params;
Table[Sum[df[[k+1]] BellY[j, k, ds[[;; j - k + 1]]], {k, 0, j}]/(j!), {j, 0, m}]
]
-dGdξList[n_, h_][m_, θp_] := Module[
+dGdξList[n_, h_, params_:{}][m_, θp_] := Module[
{ ds, dF, df },
- ds = invDerivativeList[m+1][Function[θ, h[θ] / RealAbs[t[θ]]^Δ[2]]][θp];
- dF = NestList[Function[f, D[f, θ]], RF[n][θ], m] /. θ -> θp;
+ ds = invDerivativeList[m+1][Function[θ, h[θ] / RealAbs[t[θ]]^Δ[2] //. params]][θp];
+ dF = NestList[Function[f, D[f, θ]], RF[n][θ] //. params, m] /. θ -> θp //. params;
df = NestList[D[#, \[Theta]] &,
fp[\[Theta]]/t[\[Theta]]^2 - 1/(8 \[Pi]) Log[t[\[Theta]]^2],
m] /.
Map[Derivative[#][fp][\[Theta]] -> dF[[# + 1]] &,
- Range[0, m]] /. θ -> θp;
+ Range[0, m]] /. θ -> θp //. params;
Table[Sum[df[[k+1]] BellY[j, k, ds[[;; j - k + 1]]], {k, 0, j}]/(j!), {j, 0, m}]
]
-dΦdηList[n_, h_][m_, θp_] := Module[
+dΦdηList[n_, h_, params_:{}][m_, θp_] := Module[
{ ds, dF, df },
- ds = invDerivativeList[m+1][Function[θ, t[θ] / h[θ]^(1 / Δ[2])]][θp];
- dF = NestList[Function[f, D[f, θ]], RF[n][θ], m] /. θ -> θp;
+ ds = invDerivativeList[m+1][Function[θ, t[θ] / h[θ]^(1 / Δ[2]) //. params]][θp];
+ dF = NestList[Function[f, D[f, θ]], RF[n][θ] //. params, m] /. θ -> θp;
df = NestList[D[#, \[Theta]] &,
hh[θ]^(-2 / Δ[]) (fp[θ] - t[θ]^2 Log[hh[θ]^2] / (8 π Δ[])),
m] /.
Map[Derivative[#][fp][\[Theta]] -> dF[[# + 1]] &,
- Range[0, m]] /. hh -> h /. θ -> θp;
+ Range[0, m]] /. hh -> h /. θ -> θp //. params;
Table[Sum[df[[k+1]] BellY[j, k, ds[[;; j - k + 1]]], {k, 0, j}]/(j!), {j, 0, m}]
]
@@ -205,7 +205,7 @@ resMid[n_, g_, δ_][m_] := formResiduals[Φs[[;;m+1]], dΦdηList[n, g][m, 1], Î
res[F_, g_, δ_][m_] := Join[resLow[F, g, δ][m], resHigh[F, g, δ][m]] //. rules[g]
chiSquared[F_, g_, δ_][m_] := Total[res[F, g, δ][m]^2]
-resAll[F_, g_, δ_][m_] := Join[resLow[F, g, δ][m], resHigh[F, g, δ][m], resMid[F, g, δ][m](*, {ruleθ0[g] / 0.00005 /. Around[x_, _] :> x}*)] //. rules[g]
+resAll[F_, g_, δ_][m_] := Join[resLow[F, g, δ][m], resHigh[F, g, δ][m], (*resMid[F, g, δ][m],*) {ruleθ0[g] / 0.00005, ruleAH[g] / 0.02} /. Around[x_, _] :> x] //. rules[g]
newSol[eqs_, oldSol_, newVars_, δ_:0, γ_:0, opts___] := FindRoot[
eqs,