summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJaron Kent-Dobias <jaron@kent-dobias.com>2021-10-01 20:59:10 +0200
committerJaron Kent-Dobias <jaron@kent-dobias.com>2021-10-01 20:59:10 +0200
commit5269fa0fb763e7193738b6ae7ba1c62288da8ff9 (patch)
tree1739bd65a10b7d84a8b6c2035a828ea4cf25b829
parent58bcac0e92695c9efea5c865118bc3c3557b20e2 (diff)
downloadmma-5269fa0fb763e7193738b6ae7ba1c62288da8ff9.tar.gz
mma-5269fa0fb763e7193738b6ae7ba1c62288da8ff9.tar.bz2
mma-5269fa0fb763e7193738b6ae7ba1c62288da8ff9.zip
Lots of work.
Diffstat
-rw-r--r--new_schofield.nb5065
-rw-r--r--schofield.wl2
2 files changed, 2916 insertions, 2151 deletions
diff --git a/new_schofield.nb b/new_schofield.nb
index ab135ce..47d3407 100644
--- a/new_schofield.nb
+++ b/new_schofield.nb
@@ -10,10 +10,10 @@
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
-NotebookDataLength[ 331041, 7741]
-NotebookOptionsPosition[ 247055, 6373]
-NotebookOutlinePosition[ 247454, 6389]
-CellTagsIndexPosition[ 247411, 6386]
+NotebookDataLength[ 367963, 8506]
+NotebookOptionsPosition[ 283126, 7118]
+NotebookOutlinePosition[ 283524, 7134]
+CellTagsIndexPosition[ 283481, 7131]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
@@ -2069,7 +2069,7 @@ Cell[BoxData[
RowBox[{"randomEval", "[",
RowBox[{
RowBox[{"eqAround", "[",
- RowBox[{"nAs", ",",
+ RowBox[{"2", ",",
RowBox[{"h", "[", "0", "]"}]}], "]"}], "[",
RowBox[{"1", ",",
RowBox[{"-", "1"}], ",", "2"}], "]"}], "]"}], ",",
@@ -2111,20 +2111,24 @@ Cell[BoxData[
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}},
- CellLabel->"In[6]:=",ExpressionUUID->"a326d1ad-f5a3-49d5-9b86-3a79e4cb291c"],
+ 3.841213592453618*^9}, {3.841213653182707*^9, 3.841213680583296*^9}, {
+ 3.841994430388618*^9, 3.8419944408046093`*^9}, {3.841994755179496*^9,
+ 3.841994755346443*^9}, {3.841994896941716*^9, 3.841994926998374*^9}, {
+ 3.841994983607177*^9, 3.8419950242243156`*^9}, {3.841995200194737*^9,
+ 3.8419952057475653`*^9}},
+ CellLabel->"In[7]:=",ExpressionUUID->"a326d1ad-f5a3-49d5-9b86-3a79e4cb291c"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.1492840131168385`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.1975594933639457`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.1330578884902485`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19745451484947765`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.4378711987652424`"}]}], ",",
+ RowBox[{"-", "2.461034208210911`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6062294996292714`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6443351569778666`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.532161675651072`"}]}],
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5473671325280764`"}]}],
"}"}]], "Output",
CellChangeTimes->{{3.841213667298201*^9, 3.841213680834222*^9}, {
3.841225528753489*^9, 3.8412255307639217`*^9}, 3.841297785004229*^9,
@@ -2136,8 +2140,12 @@ Cell[BoxData[
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},
- CellLabel->"Out[6]=",ExpressionUUID->"97d0a138-49bc-4f29-960c-16ea2836e8d6"]
+ 3.841727568283511*^9, 3.841733129163908*^9, 3.841826404105365*^9,
+ 3.8419944380646667`*^9, {3.8419947535141783`*^9, 3.841994756891218*^9}, {
+ 3.841994924101157*^9, 3.841994935329941*^9}, {3.841994992788472*^9,
+ 3.8419950232557077`*^9}, 3.841995079391933*^9, {3.841995204423297*^9,
+ 3.84199520626237*^9}, 3.8420034241494923`*^9, 3.8420689124310923`*^9},
+ CellLabel->"Out[7]=",ExpressionUUID->"354672a1-e808-4f47-9909-36c2b4af968c"]
}, Open ]],
Cell[CellGroupData[{
@@ -2148,7 +2156,7 @@ Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
- RowBox[{"dFd\[Xi]LowList", "[",
+ RowBox[{"dGd\[Xi]LowList", "[",
RowBox[{"nAs", ",",
RowBox[{"h", "[", "0", "]"}]}], "]"}], "[", "6", "]"}], "/",
RowBox[{"(",
@@ -2158,28 +2166,29 @@ Cell[BoxData[
RowBox[{"rules", "[",
RowBox[{"h", "[", "0", "]"}], "]"}]}], "/.", "s0"}], "]"}]], "Input",
CellChangeTimes->{{3.841389858617463*^9, 3.841389864495379*^9}, {
- 3.841390308400168*^9, 3.841390319008019*^9}},
- CellLabel->"In[7]:=",ExpressionUUID->"8eab97ea-e359-40c0-9935-fde12f7b604a"],
+ 3.841390308400168*^9, 3.841390319008019*^9}, {3.842068918729508*^9,
+ 3.842068919328607*^9}},
+ CellLabel->"In[9]:=",ExpressionUUID->"8eab97ea-e359-40c0-9935-fde12f7b604a"],
Cell[BoxData[
RowBox[{"{",
- RowBox[{"0.180543`", ",",
+ RowBox[{"0.199223`", ",",
RowBox[{"{",
- RowBox[{"7.396860901565105`*^-15", ",",
- RowBox[{"-", "1.3578383417065896`"}], ",",
- RowBox[{"-", "0.0265662929581853`"}], ",", "0.007760994971557898`", ",",
-
- RowBox[{"-", "0.0035470852971395033`"}], ",", "0.0018938636969998107`",
+ RowBox[{"4.7878367936959876`*^-15", ",",
+ RowBox[{"-", "1.3578383417065925`"}], ",",
+ RowBox[{"-", "0.02690821036398916`"}], ",", "0.007873894352745905`", ",",
+ RowBox[{"-", "0.0035746962329615394`"}], ",", "0.001898162962634841`",
",",
- RowBox[{"-", "0.0011027777822985678`"}]}], "}"}]}], "}"}]], "Output",
+ RowBox[{"-", "0.0011025522381150682`"}]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{
3.841389868403063*^9, 3.8413899704214067`*^9, 3.841390191376688*^9,
3.841390222192317*^9, 3.8413902544921722`*^9, {3.841390296630432*^9,
3.841390322266429*^9}, 3.841390481156994*^9, 3.841390578185719*^9,
3.841391289835928*^9, 3.8413921581798*^9, 3.841392286032384*^9,
3.84139233625907*^9, 3.841463590768024*^9, 3.8414645923911953`*^9,
- 3.84172756896039*^9, 3.8417331294742737`*^9, 3.841826404430285*^9},
- CellLabel->"Out[7]=",ExpressionUUID->"657cc05f-0a6c-4bfc-ac63-5c7dda33b28c"]
+ 3.84172756896039*^9, 3.8417331294742737`*^9, 3.841826404430285*^9,
+ 3.842003424758133*^9, {3.842068914521706*^9, 3.8420689201777153`*^9}},
+ CellLabel->"Out[9]=",ExpressionUUID->"d094b3f2-bd0b-4554-877a-0954c0fd9839"]
}, Open ]],
Cell[CellGroupData[{
@@ -2194,7 +2203,7 @@ Cell[BoxData[
RowBox[{
RowBox[{"Abs", "[",
RowBox[{
- RowBox[{"dFd\[Xi]LowList", "[",
+ RowBox[{"dGd\[Xi]LowList", "[",
RowBox[{"nAs", ",",
RowBox[{"h", "[", "0", "]"}]}], "]"}], "[", "6", "]"}], "]"}], "//.",
RowBox[{"rules", "[",
@@ -2250,8 +2259,10 @@ Cell[BoxData[
3.840875796597721*^9, 3.840875807414563*^9}, {3.841134596143955*^9,
3.841134611103293*^9}, {3.841135733956856*^9, 3.84113574469188*^9}, {
3.841213686096504*^9, 3.841213700287394*^9}, {3.841390489772376*^9,
- 3.841390490115335*^9}},
- CellLabel->"In[8]:=",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"],
+ 3.841390490115335*^9}, {3.8419946095521803`*^9, 3.8419946102556753`*^9}, {
+ 3.841994697025642*^9, 3.841994709185557*^9}, {3.841995099512912*^9,
+ 3.8419951062806787`*^9}, {3.842068923552909*^9, 3.8420689245525312`*^9}},
+ CellLabel->"In[10]:=",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"],
Cell[BoxData[
GraphicsBox[{{{
@@ -2403,9 +2414,9 @@ Cell[BoxData[
13.008074231002201`}, {15., 15.354526006101828`}}]},
{RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
- PointBox[{{2., 0.30589398059733547`}, {3., -2.939991449502729}, {
- 4., -3.0732313079230256`}, {5., -2.4672415968455867`}, {
- 6., -1.4827631892187632`}, {7., -0.2305312490425864}}]}}, {{}, {}}},
+ PointBox[{{2., 0.30589398059733625`}, {3., -2.922176640391772}, {
+ 4., -3.052443034550653}, {5., -2.4558212458993265`}, {
+ 6., -1.4793769795111746`}, {7., -0.2308763582453745}}]}}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
@@ -2419,7 +2430,6 @@ Cell[BoxData[
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
- ImageSize->{419.9999999999983, Automatic},
Method->{
"OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
@@ -2573,8 +2583,11 @@ Cell[BoxData[
3.84131085931179*^9, 3.841316307349918*^9, {3.841390485438642*^9,
3.84139049061092*^9}, 3.841390578562212*^9, 3.841391291253233*^9,
3.841392160241373*^9, 3.841392337222522*^9, 3.841463592218527*^9,
- 3.841464593325774*^9},
- CellLabel->"Out[8]=",ExpressionUUID->"50732af7-406a-47af-b446-2d2e30f9e4ac"]
+ 3.841464593325774*^9, 3.841994611010065*^9, {3.8419947003129787`*^9,
+ 3.841994709591275*^9}, {3.84199509628699*^9, 3.841995106767374*^9}, {
+ 3.841995144191465*^9, 3.8419951589233913`*^9}, 3.841995209077073*^9,
+ 3.84200342574848*^9, 3.842068925281695*^9},
+ CellLabel->"Out[10]=",ExpressionUUID->"de5014d5-9608-4236-9da2-63697a5c283d"]
}, Open ]],
Cell[CellGroupData[{
@@ -2589,9 +2602,10 @@ Cell[BoxData[
RowBox[{
RowBox[{"Abs", "@",
RowBox[{
- RowBox[{"dFd\[Xi]HighList", "[",
+ RowBox[{"dGd\[Xi]List", "[",
RowBox[{"nAs", ",",
- RowBox[{"h", "[", "0", "]"}]}], "]"}], "[", "6", "]"}]}], "//.",
+ RowBox[{"h", "[", "0", "]"}]}], "]"}], "[",
+ RowBox[{"6", ",", "0"}], "]"}]}], "//.",
RowBox[{"rules", "[",
RowBox[{"h", "[", "0", "]"}], "]"}]}], "/.", "s0"}], "]"}]}],
"\[IndentingNewLine]", "}"}], "]"}]], "Input",
@@ -2646,8 +2660,10 @@ Cell[BoxData[
3.841134611103293*^9}, {3.841135733956856*^9, 3.84113574469188*^9}, {
3.841213686096504*^9, 3.841213700287394*^9}, {3.841390489772376*^9,
3.841390490115335*^9}, {3.8413905856695023`*^9, 3.8413906076135798`*^9}, {
- 3.841390948891877*^9, 3.8413909555318604`*^9}},
- CellLabel->"In[9]:=",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"],
+ 3.841390948891877*^9, 3.8413909555318604`*^9}, {3.841994614807858*^9,
+ 3.841994615111747*^9}, {3.842003430402297*^9, 3.8420034305840683`*^9}, {
+ 3.842068927800907*^9, 3.842068934425075*^9}},
+ CellLabel->"In[11]:=",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"],
Cell[BoxData[
GraphicsBox[{{{
@@ -2736,12 +2752,12 @@ Cell[BoxData[
16.1573163641116}}]},
{RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
- PointBox[{{3., 0.6126028894906071}, {5., 2.1136506467491194`}, {7.,
- 4.5410854526110125`}}]}}, {{}, {}}},
+ PointBox[{{3., 0.6126028894906069}, {5., 2.116815582639737}, {7.,
+ 4.546824725690496}}]}}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
- AxesOrigin->{0., -0.6038591566117528},
+ AxesOrigin->{0., -0.603859156611753},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
@@ -2751,7 +2767,6 @@ Cell[BoxData[
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
- ImageSize->{419.9999999999983, Automatic},
Method->{
"OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
@@ -2763,7 +2778,7 @@ Cell[BoxData[
Part[#, 1]],
Exp[
Part[#, 2]]}& )}},
- PlotRange->{{0., 15.}, {-0.6038591566117528, 16.1573163641116}},
+ PlotRange->{{0., 15.}, {-0.603859156611753, 16.1573163641116}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
@@ -2880,11 +2895,48 @@ Cell[BoxData[
3.84139049061092*^9}, {3.841390578562212*^9, 3.841390608215399*^9},
3.8413906429454*^9, 3.841390808978589*^9, {3.841390952687045*^9,
3.841390955726741*^9}, 3.841391292844046*^9, 3.841392160458399*^9,
- 3.841392337553176*^9, 3.841463592414769*^9, 3.8414645935303507`*^9},
- CellLabel->"Out[9]=",ExpressionUUID->"d5be2d93-8799-4554-97ed-a66db4df9e0a"]
+ 3.841392337553176*^9, 3.841463592414769*^9, 3.8414645935303507`*^9,
+ 3.8419946154384203`*^9, 3.8419951467045593`*^9, {3.842003427326373*^9,
+ 3.842003430834703*^9}, 3.8420689347601557`*^9},
+ CellLabel->"Out[11]=",ExpressionUUID->"75cbb042-84e6-4596-a457-3236425ad8bd"]
}, Open ]],
-Cell[BoxData["42492.10772459181`"], "Input",ExpressionUUID->"d8f49b29-f847-451a-a460-2535964a9a0a"],
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"2", ",",
+ RowBox[{"h", "[", "0", "]"}], ",", "\[Infinity]"}], "]"}], "[", "2",
+ "]"}]], "Input",
+ CellChangeTimes->{{3.84207113009809*^9, 3.84207113459235*^9}},
+ CellLabel->
+ "In[173]:=",ExpressionUUID->"4aee75ec-485c-460f-b355-66a9df64aee0"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"20000.`", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "0.1893`"}], "+",
+ FractionBox[
+ RowBox[{"\[Theta]0", " ",
+ RowBox[{"(",
+ RowBox[{"1", "+",
+ FractionBox[
+ SuperscriptBox["\[Theta]0", "2"],
+ SuperscriptBox["\[Theta]c", "2"]]}], ")"}], " ",
+ RowBox[{"gC", "[", "0", "]"}]}],
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"1", "+",
+ SuperscriptBox["\[Theta]0", "2"]}], ")"}],
+ RowBox[{"15", "/", "8"}]]]}], ")"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.8420711348039207`*^9, 3.842071170683807*^9,
+ 3.842071201067704*^9, 3.842071258367114*^9, 3.842071320032799*^9},
+ CellLabel->
+ "Out[173]=",ExpressionUUID->"301e9cba-9e6b-4f8b-8b2e-9b8bdd2cf25f"]
+}, Open ]],
Cell[CellGroupData[{
@@ -2893,213 +2945,96 @@ Cell[BoxData[
RowBox[{"annealFit", "[",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "0", "]"}], ",", "d"}], "]"}], "[", "2", "]"}], "//.",
+ RowBox[{"Most", "@",
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"2", ",",
+ RowBox[{"h", "[", "0", "]"}], ",", "d"}], "]"}], "[", "2", "]"}]}], "//.",
RowBox[{"rules", "[",
- RowBox[{"h", "[", "0", "]"}], "]"}]}], ",", "d", ",", "s0", ",",
- SuperscriptBox["10",
- RowBox[{"-", "5"}]], ",",
- SuperscriptBox["10",
- RowBox[{"-", "13"}]], ",", "10", ",", "1", ",", "2"}], "]"}]}]], "Input",\
-
+ RowBox[{"h", "[", "0", "]"}], "]"}]}], ",", "d", ",", "s0"}],
+ "]"}]}]], "Input",
CellChangeTimes->{{3.84146414095971*^9, 3.841464175798479*^9}, {
3.841464380993734*^9, 3.841464386312539*^9}, {3.841464731456504*^9,
3.8414647327580833`*^9}, {3.8414659180452547`*^9, 3.841465925914133*^9}, {
3.8417325952371683`*^9, 3.841732596483498*^9}, {3.8417326274288807`*^9,
- 3.841732641972403*^9}, 3.841732857201058*^9, 3.8418264400423203`*^9},
- CellLabel->"In[9]:=",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"],
-
-Cell[BoxData[
- TemplateBox[{
- "CompiledFunction", "cfn",
- "\"Numerical error encountered at instruction \
-\\!\\(\\*RowBox[{\\\"73\\\"}]\\); proceeding with uncompiled evaluation.\"",
- 2, 9, 7, 31640151626685725371, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{{3.8417334474339247`*^9, 3.8417335312336073`*^9},
- 3.841826407338984*^9, 3.841826440436727*^9},
- CellLabel->
- "During evaluation of \
-In[9]:=",ExpressionUUID->"38e1e97e-6922-4902-bd7b-4347bdc13a47"],
-
-Cell[BoxData[
- TemplateBox[{
- "CompiledFunction", "cfn",
- "\"Numerical error encountered at instruction \
-\\!\\(\\*RowBox[{\\\"73\\\"}]\\); proceeding with uncompiled evaluation.\"",
- 2, 9, 8, 31640151626685725371, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{{3.8417334474339247`*^9, 3.8417335312336073`*^9},
- 3.841826407338984*^9, 3.841826440468438*^9},
- CellLabel->
- "During evaluation of \
-In[9]:=",ExpressionUUID->"a33755cf-536c-4641-9c78-7289962fa472"],
-
-Cell[BoxData["42492.10772456681`"], "Print",
- CellChangeTimes->{{3.8417334477070303`*^9, 3.8417335314689503`*^9},
- 3.841826407475919*^9, 3.841826440557686*^9},
- CellLabel->
- "During evaluation of \
-In[9]:=",ExpressionUUID->"e2133c02-599f-4265-8ee0-047003daf318"],
-
-Cell[BoxData[
- TemplateBox[{
- "General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"2.5729858535460755`*^-308\
-\\\"}]\\) is too small to represent as a normalized machine number; precision \
-may be lost.\"", 2, 9, 9, 31640151626685725371, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{{3.8417334474339247`*^9, 3.8417335312336073`*^9},
- 3.841826407338984*^9, 3.841826440934972*^9},
- CellLabel->
- "During evaluation of \
-In[9]:=",ExpressionUUID->"668d8ed1-e748-4361-801c-3b3622c9e584"],
-
-Cell[BoxData[
- TemplateBox[{
- "General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \
-\\\"2.454357907742668`*^-308\\\"}]\\) is too small to represent as a \
-normalized machine number; precision may be lost.\"", 2, 9, 10,
- 31640151626685725371, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{{3.8417334474339247`*^9, 3.8417335312336073`*^9},
- 3.841826407338984*^9, 3.8418264409637623`*^9},
- CellLabel->
- "During evaluation of \
-In[9]:=",ExpressionUUID->"6271bd0b-cc2b-4bb6-976f-ea43e0cce940"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData["73592.14637736928`"], "Print",
- CellChangeTimes->{{3.8417334477070303`*^9, 3.8417335314689503`*^9},
- 3.841826407475919*^9, 3.841826440993697*^9},
- CellLabel->
- "During evaluation of \
-In[9]:=",ExpressionUUID->"7035d7f9-98ac-4ffd-a934-ef2622699155"],
-
-Cell[BoxData["74081.16445564883`"], "Print",
- CellChangeTimes->{{3.8417334477070303`*^9, 3.8417335314689503`*^9},
- 3.841826407475919*^9, 3.8418264410957193`*^9},
- CellLabel->
- "During evaluation of \
-In[9]:=",ExpressionUUID->"e0d087bb-d143-4be9-8121-da53fae84005"]
-}, Open ]],
-
-Cell[BoxData[
- TemplateBox[{
- "General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.5233297363048155`*^-307\
-\\\"}]\\) is too small to represent as a normalized machine number; precision \
-may be lost.\"", 2, 9, 11, 31640151626685725371, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{{3.8417334474339247`*^9, 3.8417335312336073`*^9},
- 3.841826407338984*^9, 3.841826441472019*^9},
- CellLabel->
- "During evaluation of \
-In[9]:=",ExpressionUUID->"0522f535-30ca-4741-802a-bb8a853e882d"],
-
-Cell[BoxData[
- TemplateBox[{
- "General", "stop",
- "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
-\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
-during this calculation.\"", 2, 9, 12, 31640151626685725371, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{{3.8417334474339247`*^9, 3.8417335312336073`*^9},
- 3.841826407338984*^9, 3.841826441501545*^9},
+ 3.841732641972403*^9}, 3.841732857201058*^9, 3.8418264400423203`*^9, {
+ 3.841994521950222*^9, 3.841994537926578*^9}, {3.841994622633304*^9,
+ 3.8419946862012978`*^9}, {3.841994769452505*^9, 3.841994815043598*^9}, {
+ 3.841995234420775*^9, 3.841995234498967*^9}, {3.841996465180764*^9,
+ 3.8419964772179747`*^9}, {3.841996717281023*^9, 3.841996742630658*^9}, {
+ 3.842071313310508*^9, 3.84207131621989*^9}, {3.84207758447983*^9,
+ 3.842077584949933*^9}},
CellLabel->
- "During evaluation of \
-In[9]:=",ExpressionUUID->"aa249a58-de29-40dc-aae9-b1b44827b2c7"],
+ "In[191]:=",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"],
Cell[CellGroupData[{
-Cell[BoxData["74086.07964036196`"], "Print",
- CellChangeTimes->{{3.8417334477070303`*^9, 3.8417335314689503`*^9},
- 3.841826407475919*^9, 3.841826441561379*^9},
- CellLabel->
- "During evaluation of \
-In[9]:=",ExpressionUUID->"5a87b09d-851d-4928-bc80-d3c2e6276486"],
-
-Cell[BoxData["74086.12879471993`"], "Print",
- CellChangeTimes->{{3.8417334477070303`*^9, 3.8417335314689503`*^9},
- 3.841826407475919*^9, 3.8418264416153708`*^9},
+Cell[BoxData["1.647052577693567`*^-16"], "Print",
+ CellChangeTimes->{
+ 3.8419964778762493`*^9, 3.841996772029714*^9, 3.842003441050926*^9,
+ 3.84206895029628*^9, {3.8420710596655188`*^9, 3.8420711099569902`*^9},
+ 3.842071265014825*^9, 3.84207131686103*^9, 3.8420775852166233`*^9},
CellLabel->
"During evaluation of \
-In[9]:=",ExpressionUUID->"29a0662b-8080-4911-a9d1-8fcefdde30fe"],
+In[191]:=",ExpressionUUID->"9eb02125-814e-4ead-82e0-8fa7ac456cc2"],
-Cell[BoxData["74086.12928631637`"], "Print",
- CellChangeTimes->{{3.8417334477070303`*^9, 3.8417335314689503`*^9},
- 3.841826407475919*^9, 3.841826442017448*^9},
+Cell[BoxData["1.6470525776935675`*^-12"], "Print",
+ CellChangeTimes->{
+ 3.8419964778762493`*^9, 3.841996772029714*^9, 3.842003441050926*^9,
+ 3.84206895029628*^9, {3.8420710596655188`*^9, 3.8420711099569902`*^9},
+ 3.842071265014825*^9, 3.84207131686103*^9, 3.842077585336237*^9},
CellLabel->
"During evaluation of \
-In[9]:=",ExpressionUUID->"098c6f69-b055-4dd3-8bfd-423282782cfa"],
+In[191]:=",ExpressionUUID->"ba947cc5-8425-41a1-9d88-e8d4ba1c645f"],
-Cell[BoxData["74086.12985370669`"], "Print",
- CellChangeTimes->{{3.8417334477070303`*^9, 3.8417335314689503`*^9},
- 3.841826407475919*^9, 3.8418264420706987`*^9},
+Cell[BoxData["1.6470525776935673`*^-8"], "Print",
+ CellChangeTimes->{
+ 3.8419964778762493`*^9, 3.841996772029714*^9, 3.842003441050926*^9,
+ 3.84206895029628*^9, {3.8420710596655188`*^9, 3.8420711099569902`*^9},
+ 3.842071265014825*^9, 3.84207131686103*^9, 3.842077585403553*^9},
CellLabel->
"During evaluation of \
-In[9]:=",ExpressionUUID->"974a42b3-eb50-42fb-b86b-1fc3b45d6c54"],
+In[191]:=",ExpressionUUID->"8378ab59-c523-46b2-ba14-8e6dc32a93de"],
-Cell[BoxData["74086.18656082678`"], "Print",
- CellChangeTimes->{{3.8417334477070303`*^9, 3.8417335314689503`*^9},
- 3.841826407475919*^9, 3.8418264421751003`*^9},
+Cell[BoxData["0.00016470525776935674`"], "Print",
+ CellChangeTimes->{
+ 3.8419964778762493`*^9, 3.841996772029714*^9, 3.842003441050926*^9,
+ 3.84206895029628*^9, {3.8420710596655188`*^9, 3.8420711099569902`*^9},
+ 3.842071265014825*^9, 3.84207131686103*^9, 3.842077585469922*^9},
CellLabel->
"During evaluation of \
-In[9]:=",ExpressionUUID->"581c19dd-5430-4e9a-bd6a-620526353336"],
+In[191]:=",ExpressionUUID->"0b6db944-913e-42f5-92ce-e30a1f92a1b0"],
-Cell[BoxData["74091.87242830146`"], "Print",
- CellChangeTimes->{{3.8417334477070303`*^9, 3.8417335314689503`*^9},
- 3.841826407475919*^9, 3.841826442279838*^9},
+Cell[BoxData["1.6470525776935674`"], "Print",
+ CellChangeTimes->{
+ 3.8419964778762493`*^9, 3.841996772029714*^9, 3.842003441050926*^9,
+ 3.84206895029628*^9, {3.8420710596655188`*^9, 3.8420711099569902`*^9},
+ 3.842071265014825*^9, 3.84207131686103*^9, 3.8420775855374613`*^9},
CellLabel->
"During evaluation of \
-In[9]:=",ExpressionUUID->"25e141dd-4610-4868-a9d7-d5a3fd63eafd"]
+In[191]:=",ExpressionUUID->"38d8b978-cfab-4e89-9161-4cc7522a4f19"]
}, Open ]],
Cell[BoxData[
RowBox[{"{",
- RowBox[{"74091.87242830146`", ",",
+ RowBox[{"1.6470525776935674`", ",",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.2463993878812167`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.18295265314323894`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.2089302261515305`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.1800096570750626`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.115911980361489`"}]}], ",",
+ RowBox[{"-", "2.1277544941656257`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2040328498739996`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2449232396679648`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.47367560579375484`"}]}],
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5019315306082547`"}]}],
"}"}]}], "}"}]], "Output",
- CellChangeTimes->{{3.841466076959186*^9, 3.841466095449538*^9},
- 3.841466158855105*^9, {3.8417276079091053`*^9, 3.841727615377058*^9},
- 3.84173249550154*^9, {3.841732565454404*^9, 3.841732607895466*^9},
- 3.841732643471121*^9, 3.841732758169614*^9, {3.841732855577588*^9,
- 3.841732881121413*^9}, {3.841733013813401*^9, 3.8417330428195066`*^9},
- 3.841733111440667*^9, 3.8417331607886677`*^9, 3.8417332580263147`*^9, {
- 3.841733448394301*^9, 3.841733532125449*^9}, 3.841826408310234*^9,
- 3.841826442283183*^9},
- CellLabel->"Out[9]=",ExpressionUUID->"925a3f69-9d05-48c7-98d4-b3010fe027fa"]
-}, Open ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"s0", "[",
- RowBox[{"[",
- RowBox[{"All", ",", "1"}], "]"}], "]"}]], "Input",
- CellChangeTimes->{{3.8418265155305*^9, 3.841826517657034*^9}},
- CellLabel->"In[13]:=",ExpressionUUID->"fa94781f-8445-46c2-8474-4226f805b567"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{"\[Theta]c", ",", "\[Theta]0", ",", "AH", ",",
- RowBox[{"A", "[", "1", "]"}], ",",
- RowBox[{"A", "[", "2", "]"}]}], "}"}]], "Output",
- CellChangeTimes->{3.841826517886661*^9},
- CellLabel->"Out[13]=",ExpressionUUID->"d3c62db3-05b9-4187-9bcc-ddb3de13793c"]
+ CellChangeTimes->{
+ 3.8419964785762787`*^9, 3.84199677282102*^9, 3.84200344191339*^9,
+ 3.84206895108984*^9, {3.8420710602360163`*^9, 3.842071111430875*^9},
+ 3.8420712659210167`*^9, 3.842071317704265*^9, 3.842077585540234*^9},
+ CellLabel->
+ "Out[191]=",ExpressionUUID->"7bc51fe6-b1f4-4852-a8c3-a7820e9ee507"]
}, Open ]],
Cell[CellGroupData[{
@@ -3113,19 +3048,22 @@ Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Total", "[",
- SuperscriptBox[
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "0", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "15"}]]}], "]"}], "[", "2", "]"}], "2"], "]"}], "//.",
+ RowBox[{"Most", "@",
+ SuperscriptBox[
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"2", ",",
+ RowBox[{"h", "[", "0", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "15"}]]}], "]"}], "[", "2", "]"}], "2"]}], "]"}],
+ "//.",
RowBox[{"rules", "[",
RowBox[{"h", "[", "0", "]"}], "]"}]}], ",",
RowBox[{"{",
- RowBox[{"s0", "[",
+ RowBox[{"m0", "[",
RowBox[{"[",
- RowBox[{"All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}], "]"}], ",",
+ RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}],
+ "]"}], ",",
RowBox[{"Evaluate", "[",
RowBox[{
RowBox[{"m0", "[",
@@ -3134,70 +3072,414 @@ Cell[BoxData[
RowBox[{"WorkingPrecision", "\[Rule]", "20"}], ",",
RowBox[{"MaxIterations", "\[Rule]", "5000"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.841826409040468*^9, 3.841826597778789*^9}, {
- 3.841826667389724*^9, 3.841826667595948*^9}, {3.8418269541937237`*^9,
- 3.841826954225218*^9}},
- CellLabel->"In[46]:=",ExpressionUUID->"ee264c8f-1f8f-4cc9-aa8c-84111cea251b"],
-
-Cell[BoxData[
- TemplateBox[{
- "FindRoot", "precw",
- "\"The precision of the argument function (\\!\\(\\*RowBox[{\\\"{\\\", \
-RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"}\
-\\\"}]\\)) is less than WorkingPrecision \
-(\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 46, 58, 31640151626685725371,
- "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{{3.841826482012022*^9, 3.8418265982231407`*^9},
- 3.8418266678489017`*^9, 3.8418269545838118`*^9},
+ 3.841826667389724*^9, 3.841826667595948*^9}, {3.8418267356853933`*^9,
+ 3.8418267802857647`*^9}, {3.841826871248399*^9, 3.84182687327967*^9}, {
+ 3.841826963193843*^9, 3.8418269640493317`*^9}, {3.8419952730999537`*^9,
+ 3.84199527358777*^9}, {3.8420691561503267`*^9, 3.8420691815253487`*^9}, {
+ 3.842077520948737*^9, 3.842077579789769*^9}},
CellLabel->
- "During evaluation of \
-In[46]:=",ExpressionUUID->"b7316a79-d459-413d-8e45-f8c1f75251d7"],
+ "In[192]:=",ExpressionUUID->"b02b5204-9158-4350-9e92-e8f555f47ba7"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "\[Theta]c", "\[Rule]", "1.24639938787887653732645725507852238426`20."}],
+ "\[Theta]c", "\[Rule]", "1.20893022615154709853312863726921003154`20."}],
",",
RowBox[{
- "\[Theta]0", "\[Rule]", "0.1829526531421194505123173866256805632`20."}],
+ "\[Theta]0", "\[Rule]", "0.18000965707505492370899587680261531907`20."}],
",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.11591198035119144560232927656579333064`20."}]}], ",",
+ RowBox[{"-", "2.12775449416546477053172537562844785886`20."}]}], ",",
RowBox[{
RowBox[{"A", "[", "1", "]"}], "\[Rule]",
- "1.20403284986555226801346484586183493272`20."}], ",",
+ "1.24492323966774458428069324586063723796`20."}], ",",
RowBox[{
RowBox[{"A", "[", "2", "]"}], "\[Rule]",
- "0.47367560579621367982541288184561265379`20."}]}], "}"}]], "Output",
+ "0.50193153060827788629624450813451384606`20."}]}], "}"}]], "Output",
CellChangeTimes->{{3.841826482020074*^9, 3.8418265862239122`*^9}, {
- 3.841826659980463*^9, 3.841826667924841*^9}, 3.841826954661435*^9},
- CellLabel->"Out[46]=",ExpressionUUID->"79e68256-f728-4955-a624-e60c6c8ea908"]
+ 3.841826659980463*^9, 3.841826667924841*^9}, {3.841826769333158*^9,
+ 3.841826781359291*^9}, 3.841826875723233*^9, 3.8418269303503838`*^9,
+ 3.84182696518847*^9, 3.841995274507485*^9, 3.841996569508958*^9,
+ 3.8419969067210817`*^9, 3.842003895497058*^9, 3.8420691052661533`*^9, {
+ 3.842069157635578*^9, 3.8420691831628323`*^9}, {3.842077537450878*^9,
+ 3.84207758678786*^9}},
+ CellLabel->
+ "Out[192]=",ExpressionUUID->"a932a9d9-373e-4655-ab9d-01d29622fab0"]
}, Open ]],
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"fitCov", "[",
+ RowBox[{"res_", ",", "s_"}], "]"}], ":=",
+ RowBox[{"With", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"J", "=",
+ RowBox[{"D", "[",
+ RowBox[{"res", ",",
+ RowBox[{"{",
+ RowBox[{"s", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}]}], "}"}],
+ ",",
+ RowBox[{"Symmetrize", "[",
+ RowBox[{"Inverse", "[",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Transpose", "[", "J", "]"}], ".", "J"}], "/.", "s"}], ",",
+ "60"}], "]"}], "]"}], "]"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.8420034497136087`*^9, 3.8420035544184847`*^9}, {
+ 3.8420036689246264`*^9, 3.84200371543722*^9}, {3.842003753374049*^9,
+ 3.8420037544061117`*^9}, {3.842003791974859*^9, 3.8420038448956947`*^9}, {
+ 3.8420050330058813`*^9, 3.8420050742463713`*^9}, {3.842005132703796*^9,
+ 3.842005142391529*^9}, {3.8420052346013317`*^9, 3.842005236233274*^9}, {
+ 3.8420778125700607`*^9, 3.842077822242277*^9}, {3.842078210769764*^9,
+ 3.842078230097619*^9}, 3.8420783712286167`*^9, {3.842078490662499*^9,
+ 3.8420785378313704`*^9}, {3.842078570000214*^9, 3.842078673081708*^9}},
+ CellLabel->
+ "In[307]:=",ExpressionUUID->"fac9f265-b234-4b28-9a77-a9a9a37bcb16"],
+
Cell[CellGroupData[{
Cell[BoxData[
- RowBox[{
+ RowBox[{"cov0", "=",
+ RowBox[{"fitCov", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Most", "@",
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"2", ",",
+ RowBox[{"h", "[", "0", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "15"}]]}], "]"}], "[", "2", "]"}]}], "//.",
+ RowBox[{"rules", "[",
+ RowBox[{"h", "[", "0", "]"}], "]"}]}], ",", "m01"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.842003556268217*^9, 3.842003574458744*^9}, {
+ 3.842003613387485*^9, 3.842003621275626*^9}, {3.842003848840043*^9,
+ 3.8420038643919992`*^9}, {3.8420041190780354`*^9, 3.842004121196991*^9}, {
+ 3.842004450452117*^9, 3.842004464579197*^9}, {3.842004507220078*^9,
+ 3.8420045176681633`*^9}, {3.842004562286165*^9, 3.842004584461378*^9}, {
+ 3.842005101248097*^9, 3.842005105846903*^9}, {3.842005147600943*^9,
+ 3.8420051633839703`*^9}},
+ CellLabel->
+ "In[302]:=",ExpressionUUID->"a3d76b7b-9348-4d3c-8e97-d0f40af7ee17"],
+
+Cell[BoxData[
+ InterpretationBox[
RowBox[{
- RowBox[{"Total", "[",
- SuperscriptBox[
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "0", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "15"}]]}], "]"}], "[", "2", "]"}], "2"], "]"}], "//.",
- RowBox[{"rules", "[",
- RowBox[{"h", "[", "0", "]"}], "]"}]}], "/.", "m01"}]], "Input",
- CellChangeTimes->{{3.841826687676178*^9, 3.841826692908362*^9}, {
- 3.8418269595454597`*^9, 3.841826959633253*^9}},
- CellLabel->"In[48]:=",ExpressionUUID->"f5b06313-e438-43cc-9cb3-d01232c73e1f"],
+ TagBox["SymmetrizedArray",
+ "SummaryHead"], "[",
+ DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"},
+
+ TemplateBox[{
+ PaneSelectorBox[{False -> GridBox[{{
+ PaneBox[
+ ButtonBox[
+ DynamicBox[
+ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]],
+ ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
+ BaseStyle -> {}, Evaluator -> Automatic, Method ->
+ "Preemptive"], Alignment -> {Center, Center}, ImageSize ->
+ Dynamic[{
+ Automatic,
+ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+ Magnification])}]],
+ GraphicsBox[
+ RasterBox[CompressedData["
+1:eJxTTMoPSmVmYGBghWIQe+EKfpOHJWftvx49XD1FaI49j4LkbKdft+1fvljj
++eXaRfukTC391ldH7B+ccRfilHlm37d/phHH/wf2y37P5J9Y/NJ+/5T0yXJ9
+7+1fu93MZTS6YO9/1imjYuMFe8NghjM3zr+wD/h//rHt38f2nyQzryzje22v
+a/I8xGTbe/tTWvrnD+pesF+i62fZ//iO/V2PQBbfoDf2Hypn/FeddN7+2SWl
+zb9Fb9k3zOlfZb3ntb1Z69tvcgHn7X+cUZzXs+eS/dSo8hO9m17aHw/YUXr4
+xjn7K5V9H6Iar9uH3VpiKGz0Gqd7zGaufHOm5oK9z6u5Pw/bLLHXaLip+uTc
+fXvhbYeMtthdtPfKPXRJK/ekvezEKYscxJ7b39Aw2ffD8o79pkT95unPn9vv
+eXGCqSn9PU734Aof09f55T2BF+3XvFt/ZXrjI3sH+61R5qzv7NdxbOaon3jB
+PmiZwKeMVfftRR6f9/j27A1O9+AKH1zxtbPbwHXnlhf2N9yXr6uZ9tb+ZETu
+v/ivuN2DK3xwxReu9AMArA49PA==
+ "], {{0, 0}, {5, 5}}, {0, 1}],
+ AspectRatio -> 1, Axes -> False, Frame -> False,
+ FrameLabel -> {None, None}, FrameStyle -> Directive[
+ Opacity[0.5],
+ Thickness[Tiny],
+ RGBColor[0.368417, 0.506779, 0.709798]],
+ FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
+ Directive[
+ GrayLevel[0.5, 0.4]], ImageSize ->
+ Dynamic[{
+ Automatic,
+ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+ Magnification])}],
+ Method -> {
+ "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
+ Automatic,
+ "DefaultGraphicsInteraction" -> {
+ "Version" -> 1.2, "TrackMousePosition" -> {True, False},
+ "Effects" -> {
+ "Highlight" -> {"ratio" -> 2},
+ "HighlightPoint" -> {"ratio" -> 2},
+ "Droplines" -> {
+ "freeformCursorMode" -> True,
+ "placement" -> {"x" -> "All", "y" -> "None"}}}},
+ "DefaultPlotStyle" -> Automatic, "DomainPadding" ->
+ Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
+ GridBox[{{
+ RowBox[{
+ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
+ "\[InvisibleSpace]",
+ TagBox[
+ RowBox[{"{",
+ RowBox[{"5", ",", "5"}], "}"}], "SummaryItem"]}]}, {
+ RowBox[{
+ TagBox["\"Symmetry: \"", "SummaryItemAnnotation"],
+ "\[InvisibleSpace]",
+ TagBox[
+ RowBox[{"Symmetric", "[",
+ RowBox[{"{",
+ RowBox[{"1", ",", "2"}], "}"}], "]"}], "SummaryItem"]}]}},
+ GridBoxAlignment -> {
+ "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
+ False, GridBoxItemSize -> {
+ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
+ BaseStyle -> {
+ ShowStringCharacters -> False, NumberMarks -> False,
+ PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
+ GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
+ AutoDelete -> False,
+ GridBoxItemSize -> {
+ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ BaselinePosition -> {1, 1}], True -> GridBox[{{
+ PaneBox[
+ ButtonBox[
+ DynamicBox[
+ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]],
+ ButtonFunction :> (Typeset`open$$ = False), Appearance -> None,
+ BaseStyle -> {}, Evaluator -> Automatic, Method ->
+ "Preemptive"], Alignment -> {Center, Center}, ImageSize ->
+ Dynamic[{
+ Automatic,
+ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+ Magnification])}]],
+ GraphicsBox[
+ RasterBox[CompressedData["
+1:eJxTTMoPSmVmYGBghWIQe+EKfpOHJWftvx49XD1FaI49j4LkbKdft+1fvljj
++eXaRfukTC391ldH7B+ccRfilHlm37d/phHH/wf2y37P5J9Y/NJ+/5T0yXJ9
+7+1fu93MZTS6YO9/1imjYuMFe8NghjM3zr+wD/h//rHt38f2nyQzryzje22v
+a/I8xGTbe/tTWvrnD+pesF+i62fZ//iO/V2PQBbfoDf2Hypn/FeddN7+2SWl
+zb9Fb9k3zOlfZb3ntb1Z69tvcgHn7X+cUZzXs+eS/dSo8hO9m17aHw/YUXr4
+xjn7K5V9H6Iar9uH3VpiKGz0Gqd7zGaufHOm5oK9z6u5Pw/bLLHXaLip+uTc
+fXvhbYeMtthdtPfKPXRJK/ekvezEKYscxJ7b39Aw2ffD8o79pkT95unPn9vv
+eXGCqSn9PU734Aof09f55T2BF+3XvFt/ZXrjI3sH+61R5qzv7NdxbOaon3jB
+PmiZwKeMVfftRR6f9/j27A1O9+AKH1zxtbPbwHXnlhf2N9yXr6uZ9tb+ZETu
+v/ivuN2DK3xwxReu9AMArA49PA==
+ "], {{0, 0}, {5, 5}}, {0, 1}],
+ AspectRatio -> 1, Axes -> False, Frame -> False,
+ FrameLabel -> {None, None}, FrameStyle -> Directive[
+ Opacity[0.5],
+ Thickness[Tiny],
+ RGBColor[0.368417, 0.506779, 0.709798]],
+ FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
+ Directive[
+ GrayLevel[0.5, 0.4]], ImageSize ->
+ Dynamic[{
+ Automatic,
+ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+ Magnification])}],
+ Method -> {
+ "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
+ Automatic,
+ "DefaultGraphicsInteraction" -> {
+ "Version" -> 1.2, "TrackMousePosition" -> {True, False},
+ "Effects" -> {
+ "Highlight" -> {"ratio" -> 2},
+ "HighlightPoint" -> {"ratio" -> 2},
+ "Droplines" -> {
+ "freeformCursorMode" -> True,
+ "placement" -> {"x" -> "All", "y" -> "None"}}}},
+ "DefaultPlotStyle" -> Automatic, "DomainPadding" ->
+ Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
+ GridBox[{{
+ RowBox[{
+ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
+ "\[InvisibleSpace]",
+ TagBox[
+ RowBox[{"{",
+ RowBox[{"5", ",", "5"}], "}"}], "SummaryItem"]}]}, {
+ RowBox[{
+ TagBox["\"Symmetry: \"", "SummaryItemAnnotation"],
+ "\[InvisibleSpace]",
+ TagBox[
+ RowBox[{"Symmetric", "[",
+ RowBox[{"{",
+ RowBox[{"1", ",", "2"}], "}"}], "]"}], "SummaryItem"]}]}, {
+ RowBox[{
+ TagBox["\"Symmetry order: \"", "SummaryItemAnnotation"],
+ "\[InvisibleSpace]",
+ TagBox["2", "SummaryItem"]}]}, {
+ RowBox[{
+ TagBox[
+ "\"Specified independent elements: \"",
+ "SummaryItemAnnotation"], "\[InvisibleSpace]",
+ TagBox["15", "SummaryItem"]}]}, {
+ TagBox[
+ TagBox[
+ GridBox[{{
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "1"}], "}"}], "\[Rule]",
+ StyleBox[
+ PaneBox[
+ "0.0010234230400406674010154796083495587750600453836878516\
+0714310939003191209027279916494577997688`80.", ContentPadding -> False,
+ FrameMargins -> 0, StripOnInput -> True, BaselinePosition ->
+ Baseline, ImageSize -> {{1, 300}, Automatic}],
+ LineBreakWithin -> False]}]}, {
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "2"}], "}"}], "\[Rule]",
+ StyleBox[
+ PaneBox[
+ "0.0001734759360010351365610521250242945048221233763287561\
+51845300005941504614910150375566038882396`80.", ContentPadding -> False,
+ FrameMargins -> 0, StripOnInput -> True, BaselinePosition ->
+ Baseline, ImageSize -> {{1, 300}, Automatic}],
+ LineBreakWithin -> False]}]}, {
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "3"}], "}"}], "\[Rule]",
+ StyleBox[
+ PaneBox[
+
+ RowBox[{
+ "-", "0.\
+000829397758274225131608003201367663126877224404182710340959967973871921036263\
+230430145765899133`80."}], ContentPadding -> False, FrameMargins -> 0,
+ StripOnInput -> True, BaselinePosition -> Baseline,
+ ImageSize -> {{1, 300}, Automatic}], LineBreakWithin ->
+ False]}]}, {
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "4"}], "}"}], "\[Rule]",
+ StyleBox[
+ PaneBox[
+ "0.0000167982272422486088933023549123286276802244432010051\
+07938686531489642845188863724155615126991`80.", ContentPadding -> False,
+ FrameMargins -> 0, StripOnInput -> True, BaselinePosition ->
+ Baseline, ImageSize -> {{1, 300}, Automatic}],
+ LineBreakWithin -> False]}]}, {
+ ItemBox[
+ "\"\[VerticalEllipsis]\"", Alignment -> Center,
+ StripOnInput -> False]}},
+ GridBoxAlignment -> {"Columns" -> {{Left}}},
+ DefaultBaseStyle -> "Column",
+ GridBoxItemSize -> {
+ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
+ "Column"], "SummaryItem"]}},
+ GridBoxAlignment -> {
+ "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
+ False, GridBoxItemSize -> {
+ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
+ BaseStyle -> {
+ ShowStringCharacters -> False, NumberMarks -> False,
+ PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
+ GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
+ AutoDelete -> False,
+ GridBoxItemSize -> {
+ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ BaselinePosition -> {1, 1}]},
+ Dynamic[Typeset`open$$], ImageSize -> Automatic]},
+ "SummaryPanel"],
+ DynamicModuleValues:>{}], "]"}],
+ SymmetrizedArray[
+ StructuredArray`StructuredData[{5,
+ 5}, {{{1, 1} ->
+ 0.0010234230400406674010154796083495587750600453836878516071431093900319\
+1209027279916494577997688`80., {1, 2} ->
+ 0.0001734759360010351365610521250242945048221233763287561518453000059415\
+04614910150375566038882396`80., {1,
+ 3} -> -0.\
+000829397758274225131608003201367663126877224404182710340959967973871921036263\
+230430145765899133`80., {1, 4} ->
+ 0.0000167982272422486088933023549123286276802244432010051079386865314896\
+42845188863724155615126991`80., {1,
+ 5} -> -0.\
+000918059219909573139829243434204454068048295994181954924294198222586620276180\
+748542769207403136`80., {2, 2} ->
+ 0.0000294051425403119787532139015302103046778470351635697277292546550381\
+16724185677214766456980507`80., {2,
+ 3} -> -0.\
+000140587564286283957872441979050805933701155489745743153026090431120017967215\
+094684802257181357`80., {2, 4} ->
+ 2.8473935801673651348222169747560622776069299220232122441124394360500763\
+87782003572283860477`80.*^-6, {2,
+ 5} -> -0.\
+000155616178498253124065480681792926083103774239583274511018023948497931142074\
+07481484562328961`80., {3, 3} ->
+ 0.0006721566884042156381084597432966611137469557787323023696407736713438\
+41397181265929126893720282`80., {3,
+ 4} -> -0.\
+000013613541490279902062777728697425636609354720260789282866852072137174014636\
+882611159017890321`80., {3, 5} ->
+ 0.0007440092993467558740706661937940070610749738079423382706892573721098\
+58960311169834440846315612`80., {4, 4} ->
+ 2.7572218666389453104751904326369580698461004394882037808734578503557890\
+9734372214437538317`80.*^-7, {4,
+ 5} -> -0.\
+000015068810056562424703007417210575165189082744264541318675879562803230309573\
+613008587239563697`80., {5, 5} ->
+ 0.0008235428540161482265238450096785990391728557113665275333219000261649\
+50194562362424698793087217`80.},
+ Symmetric[{1, 2}]}]],
+ Editable->False,
+ SelectWithContents->True,
+ Selectable->False]], "Output",
+ CellChangeTimes->{
+ 3.842003621500785*^9, {3.842003675736533*^9, 3.8420036861256123`*^9},
+ 3.842003756795403*^9, {3.842003823704911*^9, 3.842003864816658*^9},
+ 3.842004121891232*^9, {3.842004455659184*^9, 3.8420044650505133`*^9},
+ 3.842004518040139*^9, {3.84200456306161*^9, 3.842004585020187*^9}, {
+ 3.842005077657444*^9, 3.8420051071697474`*^9}, {3.842005150227562*^9,
+ 3.8420051636767282`*^9}, 3.842005237491127*^9, 3.842068955305297*^9,
+ 3.842077589523567*^9, {3.8420778184137583`*^9, 3.842077823391149*^9}, {
+ 3.842078217674678*^9, 3.842078231187545*^9}, {3.84207829425247*^9,
+ 3.842078296666647*^9}, {3.8420784860093737`*^9, 3.842078538892666*^9}, {
+ 3.8420785730708838`*^9, 3.8420785850476933`*^9}, {3.842078627291008*^9,
+ 3.842078655697802*^9}},
+ CellLabel->
+ "Out[302]=",ExpressionUUID->"db27d8e0-2312-462f-9bb8-39a683b02caf"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Eigenvalues", "[", "cov0", "]"}]], "Input",
+ CellChangeTimes->{{3.8420782383157663`*^9, 3.8420782411457977`*^9}},
+ CellLabel->
+ "In[303]:=",ExpressionUUID->"589325ac-f49d-41d5-9ec6-188d338e9638"],
-Cell[BoxData["74086.1292912154`"], "Output",
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ "0.0025488034471880071389320363697780815102675620758929433015560844723408902\
+93311234750120528040306`80.", ",",
+ "9.410887980712065430994521275995070761599230562837535559336606798805921439\
+760649292345038989287968017943985857`80.*^-27", ",",
+ "1.201392496649355194749848312811934813201415383902801801169282066820637978\
+440673083109121506621564482594272`80.*^-30", ",",
+ "2.945337346599246356606457458250609760248498192162413369025222163109506135\
+986522812769901759738360075056`80.*^-32", ",",
+ "1.384836016347790264067874191838105988502488440619084165500168611168409466\
+560827913121721742956763284819`80.*^-33"}], "}"}]], "Output",
CellChangeTimes->{
- 3.8418266931280403`*^9, {3.841826957836481*^9, 3.8418269599659777`*^9}},
- CellLabel->"Out[48]=",ExpressionUUID->"73287823-12e5-4424-b776-ffaef3d1f313"]
+ 3.842078241376606*^9, 3.842078496936962*^9, 3.8420785898824253`*^9, {
+ 3.8420786464927073`*^9, 3.842078656524024*^9}},
+ CellLabel->
+ "Out[303]=",ExpressionUUID->"579b2eee-a70b-48ec-8777-0bb406ee3526"]
}, Open ]],
Cell[CellGroupData[{
@@ -3207,86 +3489,118 @@ Cell[BoxData[
RowBox[{"annealFit", "[",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "1", "]"}], ",", "\[Delta]"}], "]"}], "[", "3",
- "]"}], "//.",
+ RowBox[{"Most", "@",
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"2", ",",
+ RowBox[{"h", "[", "1", "]"}], ",", "\[Delta]"}], "]"}], "[", "3",
+ "]"}]}], "//.",
RowBox[{"rules", "[",
RowBox[{"h", "[", "1", "]"}], "]"}]}], ",", "\[Delta]", ",",
- RowBox[{"Append", "[",
+ RowBox[{"Join", "[",
RowBox[{
RowBox[{"m0", "[",
RowBox[{"[", "2", "]"}], "]"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "1", "]"}], "->", "0"}]}], "]"}]}],
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "->", "0"}], "}"}]}], "]"}]}],
"]"}]}]], "Input",
- CellChangeTimes->{{3.8414646994225616`*^9, 3.841464738150351*^9}},
- CellLabel->"In[32]:=",ExpressionUUID->"29398383-9203-4cf6-aabb-1d3fe15a5894"],
+ CellChangeTimes->{{3.8414646994225616`*^9, 3.841464738150351*^9}, {
+ 3.841995249227251*^9, 3.8419952496592083`*^9}, {3.841995323982559*^9,
+ 3.841995342013027*^9}, {3.841996549668969*^9, 3.841996553267212*^9}, {
+ 3.841996704350882*^9, 3.841996707910059*^9}, {3.841996888674657*^9,
+ 3.8419968959214983`*^9}},
+ CellLabel->
+ "In[259]:=",ExpressionUUID->"29398383-9203-4cf6-aabb-1d3fe15a5894"],
Cell[CellGroupData[{
-Cell[BoxData["9.449430444391366`"], "Print",
+Cell[BoxData["1.25462842071365`*^-15"], "Print",
CellChangeTimes->{{3.84146472167447*^9, 3.841464739046789*^9},
3.841466102601021*^9, 3.8414661640538692`*^9, 3.841727618703388*^9,
- 3.841733575217207*^9, 3.841735119492049*^9, 3.841826723167212*^9},
+ 3.841733575217207*^9, 3.841735119492049*^9, 3.841826723167212*^9,
+ 3.8419952526781797`*^9, 3.841995357906107*^9, 3.841996553874887*^9,
+ 3.84199689645995*^9, 3.842003892636663*^9, 3.842069102491523*^9,
+ 3.8420711150931253`*^9, 3.8420712706377296`*^9, 3.842077685085354*^9,
+ 3.842078232721704*^9},
CellLabel->
"During evaluation of \
-In[32]:=",ExpressionUUID->"2487362d-5c14-4c33-b345-40ddb69ef3da"],
+In[259]:=",ExpressionUUID->"f4869400-3765-440f-b164-28a61fae5220"],
-Cell[BoxData["9.451942442182629`"], "Print",
+Cell[BoxData["1.2631210491835574`*^-11"], "Print",
CellChangeTimes->{{3.84146472167447*^9, 3.841464739046789*^9},
3.841466102601021*^9, 3.8414661640538692`*^9, 3.841727618703388*^9,
- 3.841733575217207*^9, 3.841735119492049*^9, 3.841826723311756*^9},
+ 3.841733575217207*^9, 3.841735119492049*^9, 3.841826723167212*^9,
+ 3.8419952526781797`*^9, 3.841995357906107*^9, 3.841996553874887*^9,
+ 3.84199689645995*^9, 3.842003892636663*^9, 3.842069102491523*^9,
+ 3.8420711150931253`*^9, 3.8420712706377296`*^9, 3.842077685085354*^9,
+ 3.8420782327843037`*^9},
CellLabel->
"During evaluation of \
-In[32]:=",ExpressionUUID->"a6fe3275-23df-4e8a-bd70-c5f23038882b"],
+In[259]:=",ExpressionUUID->"945f0e57-8488-4da8-a8ed-b74e0eaf6307"],
-Cell[BoxData["9.451942707544093`"], "Print",
+Cell[BoxData["4.2331963546918874`*^-8"], "Print",
CellChangeTimes->{{3.84146472167447*^9, 3.841464739046789*^9},
3.841466102601021*^9, 3.8414661640538692`*^9, 3.841727618703388*^9,
- 3.841733575217207*^9, 3.841735119492049*^9, 3.8418267234179*^9},
+ 3.841733575217207*^9, 3.841735119492049*^9, 3.841826723167212*^9,
+ 3.8419952526781797`*^9, 3.841995357906107*^9, 3.841996553874887*^9,
+ 3.84199689645995*^9, 3.842003892636663*^9, 3.842069102491523*^9,
+ 3.8420711150931253`*^9, 3.8420712706377296`*^9, 3.842077685085354*^9,
+ 3.8420782328482237`*^9},
CellLabel->
"During evaluation of \
-In[32]:=",ExpressionUUID->"d7432d20-dfa4-4e51-b255-1dfcc908c271"],
+In[259]:=",ExpressionUUID->"9b3d6872-863b-4a4c-80d2-fab964b41cac"],
-Cell[BoxData["9.451962839027255`"], "Print",
+Cell[BoxData["0.00031684946729615323`"], "Print",
CellChangeTimes->{{3.84146472167447*^9, 3.841464739046789*^9},
3.841466102601021*^9, 3.8414661640538692`*^9, 3.841727618703388*^9,
- 3.841733575217207*^9, 3.841735119492049*^9, 3.841826723496903*^9},
+ 3.841733575217207*^9, 3.841735119492049*^9, 3.841826723167212*^9,
+ 3.8419952526781797`*^9, 3.841995357906107*^9, 3.841996553874887*^9,
+ 3.84199689645995*^9, 3.842003892636663*^9, 3.842069102491523*^9,
+ 3.8420711150931253`*^9, 3.8420712706377296`*^9, 3.842077685085354*^9,
+ 3.842078232912538*^9},
CellLabel->
"During evaluation of \
-In[32]:=",ExpressionUUID->"02c205d3-5106-4a3b-a2df-92d4bb9605d4"],
+In[259]:=",ExpressionUUID->"218f3502-5507-419f-84cc-815a88a439d7"],
-Cell[BoxData["9.653277434621701`"], "Print",
+Cell[BoxData["3.168390512388945`"], "Print",
CellChangeTimes->{{3.84146472167447*^9, 3.841464739046789*^9},
3.841466102601021*^9, 3.8414661640538692`*^9, 3.841727618703388*^9,
- 3.841733575217207*^9, 3.841735119492049*^9, 3.841826723580741*^9},
+ 3.841733575217207*^9, 3.841735119492049*^9, 3.841826723167212*^9,
+ 3.8419952526781797`*^9, 3.841995357906107*^9, 3.841996553874887*^9,
+ 3.84199689645995*^9, 3.842003892636663*^9, 3.842069102491523*^9,
+ 3.8420711150931253`*^9, 3.8420712706377296`*^9, 3.842077685085354*^9,
+ 3.8420782329760323`*^9},
CellLabel->
"During evaluation of \
-In[32]:=",ExpressionUUID->"a1c49a36-3b8c-42a0-8953-abf3faa882d9"]
+In[259]:=",ExpressionUUID->"6949ef75-4411-4079-b75f-8910f0a43673"]
}, Open ]],
Cell[BoxData[
RowBox[{"{",
- RowBox[{"9.653277434621701`", ",",
+ RowBox[{"3.168390512388945`", ",",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.3362286141964865`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19907020759634733`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3517287579359236`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.1957378685492899`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.255973001287936`"}]}], ",",
+ RowBox[{"-", "2.1925467441426822`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3055713907335396`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2315231917555653`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3924438424127452`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3898943902755745`"}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.016008824015947273`"}]}]}], "}"}]}], "}"}]], "Output",
+ RowBox[{"-", "0.014789463380381373`"}]}]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{{3.841464725026127*^9, 3.8414647403021297`*^9},
3.8414661034706583`*^9, 3.841466164507646*^9, 3.8417276199972258`*^9,
- 3.841733575639007*^9, 3.8417351199137087`*^9, 3.841826723584857*^9},
- CellLabel->"Out[32]=",ExpressionUUID->"d5e4c61a-fc6e-47b8-9909-b3202b08adb1"]
+ 3.841733575639007*^9, 3.8417351199137087`*^9, 3.841826723584857*^9,
+ 3.841995253003222*^9, 3.841995358247252*^9, 3.841996554233857*^9,
+ 3.841996896776102*^9, 3.842003892988432*^9, 3.842069102769897*^9,
+ 3.8420711153992767`*^9, 3.842071270954679*^9, 3.8420776854500017`*^9,
+ 3.8420782329786*^9},
+ CellLabel->
+ "Out[259]=",ExpressionUUID->"3400b7e9-90a0-46dc-a2ba-63ca5c863284"]
}, Open ]],
Cell[CellGroupData[{
@@ -3300,13 +3614,15 @@ Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Total", "[",
- SuperscriptBox[
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "1", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "15"}]]}], "]"}], "[", "3", "]"}], "2"], "]"}], "//.",
+ RowBox[{"Most", "@",
+ SuperscriptBox[
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"2", ",",
+ RowBox[{"h", "[", "1", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "15"}]]}], "]"}], "[", "3", "]"}], "2"]}], "]"}],
+ "//.",
RowBox[{"rules", "[",
RowBox[{"h", "[", "1", "]"}], "]"}]}], ",",
RowBox[{"{",
@@ -3324,8 +3640,11 @@ Cell[BoxData[
CellChangeTimes->{{3.841826409040468*^9, 3.841826597778789*^9}, {
3.841826667389724*^9, 3.841826667595948*^9}, {3.8418267356853933`*^9,
3.8418267802857647`*^9}, {3.841826871248399*^9, 3.84182687327967*^9}, {
- 3.841826963193843*^9, 3.8418269640493317`*^9}},
- CellLabel->"In[49]:=",ExpressionUUID->"672771a7-a1bf-4e81-a251-1d2b0d34398b"],
+ 3.841826963193843*^9, 3.8418269640493317`*^9}, {3.8419952730999537`*^9,
+ 3.84199527358777*^9}, {3.8420691561503267`*^9, 3.8420691815253487`*^9}, {
+ 3.84207773630513*^9, 3.842077737128639*^9}},
+ CellLabel->
+ "In[308]:=",ExpressionUUID->"672771a7-a1bf-4e81-a251-1d2b0d34398b"],
Cell[BoxData[
TemplateBox[{
@@ -3333,42 +3652,112 @@ Cell[BoxData[
"\"The precision of the argument function (\\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"}\
\\\"}]\\)) is less than WorkingPrecision \
-(\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 49, 59, 31640151626685725371,
+(\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 308, 305, 31641741301462687909,
"Local"},
"MessageTemplate"]], "Message", "MSG",
CellChangeTimes->{{3.841826482012022*^9, 3.8418265982231407`*^9},
3.8418266678489017`*^9, {3.841826768683412*^9, 3.841826780765348*^9},
- 3.841826875141672*^9, 3.841826929758007*^9, 3.841826964563582*^9},
+ 3.841826875141672*^9, 3.841826929758007*^9, 3.841826964563582*^9,
+ 3.8419952739331408`*^9, 3.841996568907916*^9, 3.841996906134685*^9,
+ 3.842003894907547*^9, 3.842069104545673*^9, {3.84206915693228*^9,
+ 3.8420691824589853`*^9}, {3.842077724841714*^9, 3.842077737819858*^9}, {
+ 3.842078661680546*^9, 3.8420786765827713`*^9}},
CellLabel->
"During evaluation of \
-In[49]:=",ExpressionUUID->"30825e01-eb21-4382-93ac-46a8324b26e0"],
+In[308]:=",ExpressionUUID->"f25973ba-d943-48be-9f24-5ef1920b9f51"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "\[Theta]c", "\[Rule]", "1.33622861419673184691655610251140181959`20."}],
+ "\[Theta]c", "\[Rule]", "1.35172875793611722355073707909177711641`20."}],
",",
RowBox[{
- "\[Theta]0", "\[Rule]", "0.1990702075960474043645381339797671007`20."}],
+ "\[Theta]0", "\[Rule]", "0.19573786854923995620668561389336876465`20."}],
",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.25597300128339746697122708973067526412`20."}]}], ",",
+ RowBox[{"-", "2.19254674414097692581072730393975493572`20."}]}], ",",
RowBox[{
RowBox[{"A", "[", "1", "]"}], "\[Rule]",
- "1.3055713907286844467790538033153089176`20."}], ",",
+ "1.23152319175335479190839939653247186677`20."}], ",",
RowBox[{
RowBox[{"A", "[", "2", "]"}], "\[Rule]",
- "0.39244384241306854765393414093794108051`20."}], ",",
+ "0.38989439027580807741068590686088273594`20."}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.01600882401581054720824133486755352125`20."}]}]}],
+ RowBox[{"-", "0.0147894633802017424231460466572360793`20."}]}]}],
"}"}]], "Output",
CellChangeTimes->{{3.841826482020074*^9, 3.8418265862239122`*^9}, {
3.841826659980463*^9, 3.841826667924841*^9}, {3.841826769333158*^9,
3.841826781359291*^9}, 3.841826875723233*^9, 3.8418269303503838`*^9,
- 3.84182696518847*^9},
- CellLabel->"Out[49]=",ExpressionUUID->"3ac239fc-e3d8-4fa6-bd3c-6a4f018a72fd"]
+ 3.84182696518847*^9, 3.841995274507485*^9, 3.841996569508958*^9,
+ 3.8419969067210817`*^9, 3.842003895497058*^9, 3.8420691052661533`*^9, {
+ 3.842069157635578*^9, 3.8420691831628323`*^9}, {3.842077725555573*^9,
+ 3.8420777385296183`*^9}, {3.8420786623935328`*^9, 3.842078677295776*^9}},
+ CellLabel->
+ "Out[308]=",ExpressionUUID->"08bdf55b-b1ed-4694-bb3c-7cd3172fea16"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"cov1", "=",
+ RowBox[{"fitCov", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Most", "@",
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"2", ",",
+ RowBox[{"h", "[", "1", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "15"}]]}], "]"}], "[", "3", "]"}]}], "//.",
+ RowBox[{"rules", "[",
+ RowBox[{"h", "[", "1", "]"}], "]"}]}], ",", "m11"}], "]"}]}],
+ ";"}]], "Input",
+ CellChangeTimes->{{3.8420691103815413`*^9, 3.842069186717394*^9}, {
+ 3.842077740113545*^9, 3.842077740168569*^9}, {3.8420783395803432`*^9,
+ 3.842078364748053*^9}},
+ CellLabel->
+ "In[309]:=",ExpressionUUID->"15f30a53-123e-4733-bbeb-afd5a7def984"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Eigenvalues", "[", "cov1", "]"}]], "Input",
+ CellChangeTimes->{{3.842003556268217*^9, 3.842003574458744*^9}, {
+ 3.842003613387485*^9, 3.842003621275626*^9}, {3.842003848840043*^9,
+ 3.8420038643919992`*^9}, {3.84200390535288*^9, 3.842003913104995*^9}, {
+ 3.842004433011887*^9, 3.8420044347385483`*^9}, {3.84206913265244*^9,
+ 3.842069134156417*^9}},
+ CellLabel->
+ "In[310]:=",ExpressionUUID->"bfe15531-f075-4499-a137-4d851f7f7f55"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ "-", "1.9243838406653275132980579411551838606143194473908598016096127459602\
+298388166567`60.*^-16"}], ",",
+ "1.335195627011515425435202040871208884125767653993177788351038597289661119\
+50211316`60.*^-16", ",",
+ "6.388461081404886831371745058006594383338940718437269179863451220626972916\
+5160218443228`60.*^-30", ",",
+ "3.724875801909311051215096764492776531307117235725140627873767896047804213\
+33845236115`60.*^-31", ",",
+ "3.512822477418716255218775859372113726495827421660144224851771971423362250\
+33213331643`60.*^-32", ",",
+ "4.894741195968053077508586752587428990573066267334537848260142216717159607\
+3623774805`60.*^-33"}], "}"}]], "Output",
+ CellChangeTimes->{
+ 3.842003621500785*^9, {3.842003675736533*^9, 3.8420036861256123`*^9},
+ 3.842003756795403*^9, {3.842003823704911*^9, 3.842003864816658*^9},
+ 3.842003916134631*^9, 3.842004437093234*^9, {3.8420691343488283`*^9,
+ 3.842069188574479*^9}, 3.842077731033498*^9, 3.8420778382278633`*^9, {
+ 3.842078281540761*^9, 3.842078301307665*^9}, {3.842078349735704*^9,
+ 3.842078375618273*^9}, 3.8420785019384327`*^9, 3.8420785961552267`*^9, {
+ 3.842078664124774*^9, 3.842078679034635*^9}},
+ CellLabel->
+ "Out[310]=",ExpressionUUID->"77026836-47db-4b26-a3f8-13436bd799b1"]
}, Open ]],
Cell[CellGroupData[{
@@ -3377,24 +3766,28 @@ Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Total", "[",
- SuperscriptBox[
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "1", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "15"}]]}], "]"}], "[", "3", "]"}], "2"], "]"}], "//.",
+ RowBox[{"Most", "@",
+ SuperscriptBox[
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"2", ",",
+ RowBox[{"h", "[", "1", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "15"}]]}], "]"}], "[", "3", "]"}], "2"]}], "]"}], "//.",
RowBox[{"rules", "[",
RowBox[{"h", "[", "1", "]"}], "]"}]}], "/.", "m11"}]], "Input",
CellChangeTimes->{{3.841826796038172*^9, 3.841826798518147*^9}, {
3.8418268788555593`*^9, 3.84182688045557*^9}, {3.8418269675383453`*^9,
- 3.841826967577529*^9}},
- CellLabel->"In[50]:=",ExpressionUUID->"becbd2c1-3886-4d89-919e-83cea993abb3"],
+ 3.841826967577529*^9}, {3.841995298812356*^9, 3.841995299300308*^9}},
+ CellLabel->
+ "In[218]:=",ExpressionUUID->"becbd2c1-3886-4d89-919e-83cea993abb3"],
-Cell[BoxData["9.451942707027875`"], "Output",
+Cell[BoxData["3.0604670490524602`*^-9"], "Output",
CellChangeTimes->{3.841826798776073*^9, 3.8418268811733217`*^9,
- 3.8418269680941963`*^9},
- CellLabel->"Out[50]=",ExpressionUUID->"de992139-61ec-45d2-a14b-74928691d4aa"]
+ 3.8418269680941963`*^9, 3.8419952994877367`*^9, 3.8419965705016108`*^9,
+ 3.841996907397862*^9, 3.8420692682120113`*^9, 3.842077844075732*^9},
+ CellLabel->
+ "Out[218]=",ExpressionUUID->"eae5426a-cb1c-45df-8714-df6cd49667d5"]
}, Open ]],
Cell[CellGroupData[{
@@ -3404,13 +3797,14 @@ Cell[BoxData[
RowBox[{"annealFit", "[",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "3", "]"}], ",", "\[Delta]"}], "]"}], "[", "4",
- "]"}], "//.",
+ RowBox[{"Most", "@",
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"3", ",",
+ RowBox[{"h", "[", "2", "]"}], ",", "\[Delta]"}], "]"}], "[", "4",
+ "]"}]}], "//.",
RowBox[{"rules", "[",
- RowBox[{"h", "[", "3", "]"}], "]"}]}], ",", "\[Delta]", ",",
+ RowBox[{"h", "[", "2", "]"}], "]"}]}], ",", "\[Delta]", ",",
RowBox[{"Join", "[",
RowBox[{
RowBox[{"m1", "[",
@@ -3420,151 +3814,140 @@ Cell[BoxData[
RowBox[{
RowBox[{"gC", "[", "2", "]"}], "->", "0"}], ",",
RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "->", "0"}]}], "}"}]}], "]"}]}],
+ RowBox[{"A", "[", "3", "]"}], "->", "0"}]}], "}"}]}], "]"}]}],
"]"}]}]], "Input",
CellChangeTimes->{{3.841464800663937*^9, 3.8414648092082663`*^9}, {
3.841485136434773*^9, 3.841485139912166*^9}, {3.8418271675674467`*^9,
- 3.841827173829061*^9}, {3.8418272431358757`*^9, 3.841827252838594*^9}},
- CellLabel->"In[99]:=",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData["0.051772281428755895`"], "Print",
- CellChangeTimes->{3.841464811189674*^9, 3.841466113596136*^9,
- 3.841466174231003*^9, 3.841485157234458*^9, 3.841727625120616*^9,
- 3.841733644791923*^9, 3.841733719112348*^9, 3.841735123248308*^9,
- 3.841826845674734*^9, 3.8418271759718447`*^9, 3.841827254686544*^9},
- CellLabel->
- "During evaluation of \
-In[99]:=",ExpressionUUID->"a946ecb3-353a-4b0f-a9fb-ab7640b1b75c"],
-
-Cell[BoxData["0.05177711319999637`"], "Print",
- CellChangeTimes->{3.841464811189674*^9, 3.841466113596136*^9,
- 3.841466174231003*^9, 3.841485157234458*^9, 3.841727625120616*^9,
- 3.841733644791923*^9, 3.841733719112348*^9, 3.841735123248308*^9,
- 3.841826845674734*^9, 3.8418271759718447`*^9, 3.841827255094644*^9},
- CellLabel->
- "During evaluation of \
-In[99]:=",ExpressionUUID->"4266f228-fa5d-4036-ba39-ead2abb5fc55"],
-
-Cell[BoxData["0.05178053244606944`"], "Print",
- CellChangeTimes->{3.841464811189674*^9, 3.841466113596136*^9,
- 3.841466174231003*^9, 3.841485157234458*^9, 3.841727625120616*^9,
- 3.841733644791923*^9, 3.841733719112348*^9, 3.841735123248308*^9,
- 3.841826845674734*^9, 3.8418271759718447`*^9, 3.8418272552054358`*^9},
- CellLabel->
- "During evaluation of \
-In[99]:=",ExpressionUUID->"8c1a6163-9f63-48da-b626-50dbad8fd5bf"],
-
-Cell[BoxData["0.05191334888846085`"], "Print",
- CellChangeTimes->{3.841464811189674*^9, 3.841466113596136*^9,
- 3.841466174231003*^9, 3.841485157234458*^9, 3.841727625120616*^9,
- 3.841733644791923*^9, 3.841733719112348*^9, 3.841735123248308*^9,
- 3.841826845674734*^9, 3.8418271759718447`*^9, 3.8418272553600273`*^9},
+ 3.841827173829061*^9}, {3.8418272431358757`*^9, 3.841827252838594*^9}, {
+ 3.8419952877320557`*^9, 3.841995290092039*^9}, {3.8419965784135103`*^9,
+ 3.841996650284897*^9}, {3.8420796632379017`*^9, 3.8420796662279243`*^9}, {
+ 3.842079696973995*^9, 3.842079709908813*^9}, {3.842080958844912*^9,
+ 3.842080971507966*^9}, {3.8420810131822977`*^9, 3.8420810161723013`*^9}, {
+ 3.842081087975649*^9, 3.842081100630134*^9}, {3.842081146161045*^9,
+ 3.8420812229204082`*^9}},
CellLabel->
- "During evaluation of \
-In[99]:=",ExpressionUUID->"88b8db6e-3fdf-483b-af65-2c2999af38f5"]
-}, Open ]],
+ "In[653]:=",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"],
Cell[BoxData[
TemplateBox[{
"General", "munfl",
"\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\
-\"-\\\", \\\"1.923114750739261`*^-307\\\"}], \\\")\\\"}]}]\\) is too small to \
-represent as a normalized machine number; precision may be lost.\"", 2, 99,
- 111, 31640151626685725371, "Local"},
+\"-\\\", \\\"2.175358192276232`*^-307\\\"}], \\\")\\\"}]}]\\) is too small to \
+represent as a normalized machine number; precision may be lost.\"", 2, 653,
+ 645, 31641741301462687909, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.84146481246984*^9, 3.8414661127914667`*^9,
- 3.8414661755505667`*^9, 3.84148515649649*^9, 3.841727624402594*^9,
- 3.841733646144292*^9, 3.841733720332137*^9, 3.841735124988158*^9,
- 3.841826847857007*^9, 3.841827177665861*^9, 3.841827256838187*^9},
+ CellChangeTimes->{{3.8420811794408407`*^9, 3.842081225298328*^9}},
CellLabel->
"During evaluation of \
-In[99]:=",ExpressionUUID->"ba32119b-06f1-4a37-a68c-eb07d99fac2d"],
+In[653]:=",ExpressionUUID->"1519d24f-8121-43a4-8d15-5ca29b9bc3ab"],
Cell[BoxData[
TemplateBox[{
"General", "munfl",
"\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\
-\"-\\\", \\\"1.2820765004928408`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \
-to represent as a normalized machine number; precision may be lost.\"", 2, 99,
- 112, 31640151626685725371, "Local"},
+\"-\\\", \\\"1.3681733387208444`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \
+to represent as a normalized machine number; precision may be lost.\"", 2,
+ 653, 646, 31641741301462687909, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.84146481246984*^9, 3.8414661127914667`*^9,
- 3.8414661755505667`*^9, 3.84148515649649*^9, 3.841727624402594*^9,
- 3.841733646144292*^9, 3.841733720332137*^9, 3.841735124988158*^9,
- 3.841826847857007*^9, 3.841827177665861*^9, 3.8418272570694847`*^9},
+ CellChangeTimes->{{3.8420811794408407`*^9, 3.842081225522735*^9}},
CellLabel->
"During evaluation of \
-In[99]:=",ExpressionUUID->"1770cc78-2c3c-4877-825c-f4728148b97d"],
+In[653]:=",ExpressionUUID->"bd05cbef-bfeb-4ca6-820e-77c16a106049"],
Cell[BoxData[
TemplateBox[{
"General", "munfl",
"\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\
-\"-\\\", \\\"8.547176669952273`*^-308\\\"}], \\\")\\\"}]}]\\) is too small to \
-represent as a normalized machine number; precision may be lost.\"", 2, 99,
- 113, 31640151626685725371, "Local"},
+\"-\\\", \\\"1.087679096138116`*^-307\\\"}], \\\")\\\"}]}]\\) is too small to \
+represent as a normalized machine number; precision may be lost.\"", 2, 653,
+ 647, 31641741301462687909, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.84146481246984*^9, 3.8414661127914667`*^9,
- 3.8414661755505667`*^9, 3.84148515649649*^9, 3.841727624402594*^9,
- 3.841733646144292*^9, 3.841733720332137*^9, 3.841735124988158*^9,
- 3.841826847857007*^9, 3.841827177665861*^9, 3.8418272573003798`*^9},
+ CellChangeTimes->{{3.8420811794408407`*^9, 3.842081225775062*^9}},
CellLabel->
"During evaluation of \
-In[99]:=",ExpressionUUID->"0ce5aef7-b955-4225-882b-98866bfce2b2"],
+In[653]:=",ExpressionUUID->"76bbb289-10c7-4e19-a5c3-9d8cc21df69c"],
Cell[BoxData[
TemplateBox[{
"General", "stop",
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
-during this calculation.\"", 2, 99, 114, 31640151626685725371, "Local"},
+during this calculation.\"", 2, 653, 648, 31641741301462687909, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.84146481246984*^9, 3.8414661127914667`*^9,
- 3.8414661755505667`*^9, 3.84148515649649*^9, 3.841727624402594*^9,
- 3.841733646144292*^9, 3.841733720332137*^9, 3.841735124988158*^9,
- 3.841826847857007*^9, 3.841827177665861*^9, 3.8418272575293417`*^9},
+ CellChangeTimes->{{3.8420811794408407`*^9, 3.8420812259993353`*^9}},
+ CellLabel->
+ "During evaluation of \
+In[653]:=",ExpressionUUID->"f0231bbb-eb2e-4ada-a977-efa375889ca4"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["4.3949090248982105`*^-12"], "Print",
+ CellChangeTimes->{3.8420812260607767`*^9},
+ CellLabel->
+ "During evaluation of \
+In[653]:=",ExpressionUUID->"64b212cf-4111-4ccb-92b9-9f107a144847"],
+
+Cell[BoxData["1.0603864587307206`*^-9"], "Print",
+ CellChangeTimes->{3.842081226148316*^9},
+ CellLabel->
+ "During evaluation of \
+In[653]:=",ExpressionUUID->"960b306d-7f02-49b2-8a38-0b3d20674367"],
+
+Cell[BoxData["2.792385787973429`*^-6"], "Print",
+ CellChangeTimes->{3.8420812262311974`*^9},
+ CellLabel->
+ "During evaluation of \
+In[653]:=",ExpressionUUID->"189c47be-0c37-4b3c-bc58-25c3d13f5687"],
+
+Cell[BoxData["0.0012000090559356317`"], "Print",
+ CellChangeTimes->{3.842081226310836*^9},
CellLabel->
"During evaluation of \
-In[99]:=",ExpressionUUID->"cb1b4c0a-3d15-4c11-931c-36c9a19171a4"],
+In[653]:=",ExpressionUUID->"ed4e0608-b422-415e-9e84-154e64047132"],
-Cell[BoxData["0.2094377737939454`"], "Print",
- CellChangeTimes->{3.841464811189674*^9, 3.841466113596136*^9,
- 3.841466174231003*^9, 3.841485157234458*^9, 3.841727625120616*^9,
- 3.841733644791923*^9, 3.841733719112348*^9, 3.841735123248308*^9,
- 3.841826845674734*^9, 3.8418271759718447`*^9, 3.841827257583682*^9},
+Cell[BoxData["11.991890803704985`"], "Print",
+ CellChangeTimes->{3.842081226387046*^9},
CellLabel->
"During evaluation of \
-In[99]:=",ExpressionUUID->"14397552-cc28-4d45-ba69-afa6d658ce72"],
+In[653]:=",ExpressionUUID->"9b55854c-ccc6-4b25-8973-259fb0bf5612"]
+}, Open ]],
Cell[BoxData[
RowBox[{"{",
- RowBox[{"0.2094377737939454`", ",",
+ RowBox[{"11.991890803704985`", ",",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.3294417509629508`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19851634079388408`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.448617541482043`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19563356701765378`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.3916927470407425`"}]}], ",",
+ RowBox[{"-", "2.2435864444610742`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5009798213063066`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2968071564071018`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3547258842325767`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.37095576230172383`"}], ",",
+
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.07229559945450427`"}]}], ",",
+ RowBox[{"-", "0.10864907914676658`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.020014791514890582`"}],
- ",",
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.003177267116750506`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.0031967856292485788`"}]}]}], "}"}]}], "}"}]], "Output",
- CellChangeTimes->{3.841464815669158*^9, 3.841466117830838*^9,
- 3.8414661767800817`*^9, 3.841485159686406*^9, 3.841727626690813*^9,
- 3.841733647995943*^9, 3.841733723021474*^9, 3.841735127497295*^9,
- 3.8418268488152533`*^9, 3.8418271797495813`*^9, 3.84182725775012*^9},
- CellLabel->"Out[99]=",ExpressionUUID->"531124ae-8ead-4a78-8719-39ec0b3fae79"]
+ RowBox[{"A", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.02893936324082352`"}]}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{
+ 3.841464815669158*^9, 3.841466117830838*^9, 3.8414661767800817`*^9,
+ 3.841485159686406*^9, 3.841727626690813*^9, 3.841733647995943*^9,
+ 3.841733723021474*^9, 3.841735127497295*^9, 3.8418268488152533`*^9,
+ 3.8418271797495813`*^9, 3.84182725775012*^9, 3.841995292128934*^9, {
+ 3.841996587850503*^9, 3.8419966289686527`*^9}, 3.841996920531605*^9,
+ 3.842004615842749*^9, 3.842069270992249*^9, 3.8420711200669518`*^9,
+ 3.842071276106262*^9, 3.842077849817638*^9, 3.842079668218588*^9, {
+ 3.842079703701714*^9, 3.8420797141289167`*^9}, 3.842080976350466*^9,
+ 3.8420810189705048`*^9, 3.8420811078387203`*^9, 3.842081151755992*^9, {
+ 3.842081182051322*^9, 3.842081226545164*^9}},
+ CellLabel->
+ "Out[653]=",ExpressionUUID->"fa0d4eff-3a2b-4779-9a29-cdf4413c0568"]
}, Open ]],
Cell[CellGroupData[{
@@ -3578,13 +3961,15 @@ Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Total", "[",
- SuperscriptBox[
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "3", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "15"}]]}], "]"}], "[", "4", "]"}], "2"], "]"}], "//.",
+ RowBox[{"Most", "@",
+ SuperscriptBox[
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"2", ",",
+ RowBox[{"h", "[", "3", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "13"}]]}], "]"}], "[", "4", "]"}], "2"]}], "]"}],
+ "//.",
RowBox[{"rules", "[",
RowBox[{"h", "[", "3", "]"}], "]"}]}], ",",
RowBox[{"{",
@@ -3597,65 +3982,189 @@ Cell[BoxData[
RowBox[{"m2", "[",
RowBox[{"[", "2", "]"}], "]"}], "/.",
RowBox[{"Rule", "->", "List"}]}], "]"}], ",",
- RowBox[{"WorkingPrecision", "\[Rule]", "20"}], ",",
+ RowBox[{"WorkingPrecision", "\[Rule]", "15"}], ",",
RowBox[{"MaxIterations", "\[Rule]", "5000"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.841826409040468*^9, 3.841826597778789*^9}, {
3.841826667389724*^9, 3.841826667595948*^9}, {3.8418267356853933`*^9,
3.8418267802857647`*^9}, {3.841826861255658*^9, 3.841826922184668*^9}, {
- 3.8418269725707407`*^9, 3.841826972633595*^9}},
- CellLabel->"In[51]:=",ExpressionUUID->"eaf55068-7c6e-48d1-8e5b-093c2f4b5994"],
+ 3.8418269725707407`*^9, 3.841826972633595*^9}, {3.841995306564616*^9,
+ 3.841995310220604*^9}, {3.842069315688878*^9, 3.84206931645564*^9}, {
+ 3.8420694200901613`*^9, 3.842069420209611*^9}, {3.842069485315439*^9,
+ 3.842069506987363*^9}, {3.842079675637556*^9, 3.842079676892334*^9}, {
+ 3.8420797175101213`*^9, 3.842079721644863*^9}},
+ CellLabel->
+ "In[407]:=",ExpressionUUID->"eaf55068-7c6e-48d1-8e5b-093c2f4b5994"],
Cell[BoxData[
TemplateBox[{
"FindRoot", "precw",
- "\"The precision of the argument function ({8. Power[10, 8] (Divide[-2 (-\
-\[Theta]0 + Power[<<2>>] <<1>> + <<1>> + Power[\[Theta]0, 7] gC[3]), <<1>>] + \
-<<1>>) (-0.1893 - Divide[(Power[\[Theta]0, 2] + Power[\[Theta]c, 2]) (-\
-\[Theta]0 + Power[\[Theta]0, 3] gC[1] - Power[\[Theta]0, 5] gC[2] + Power[\
-\[Theta]0, 7] gC[3]), Power[1 + Power[\[Theta]0, 2], <<1>>] Power[\[Theta]c, \
-2]]) + <<8>>, <<7>>}) is less than WorkingPrecision \
-(\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 51, 60, 31640151626685725371,
+ "\"The precision of the argument function ({100000000000000000000000000 \
+<<1>> (Divide[-2 <<5>> (Power[\[Theta]c, -1] + <<1>> - Divide[Power[E, <<1>>] \
+Pi Power[<<2>>], 4 <<3>> (\[Theta]c + <<3>>)]), <<1>>] + <<4>>) + <<6>>, \
+<<7>>}) is less than WorkingPrecision \
+(\\!\\(\\*RowBox[{\\\"15.`\\\"}]\\)).\"", 2, 407, 414, 31641741301462687909,
"Local"},
"MessageTemplate"]], "Message", "MSG",
CellChangeTimes->{{3.841826482012022*^9, 3.8418265982231407`*^9},
3.8418266678489017`*^9, {3.841826768683412*^9, 3.841826780765348*^9}, {
- 3.841826898513888*^9, 3.8418269227694597`*^9}, 3.841826973347541*^9},
+ 3.841826898513888*^9, 3.8418269227694597`*^9}, 3.841826973347541*^9, {
+ 3.8419953073833447`*^9, 3.841995314188479*^9}, 3.841996635157215*^9,
+ 3.841996921667355*^9, 3.842004616129239*^9, 3.842069276220972*^9,
+ 3.842069316903061*^9, 3.842069420754609*^9, {3.842069486053893*^9,
+ 3.842069507761615*^9}, 3.842077855194168*^9, {3.842079670029725*^9,
+ 3.8420796778177433`*^9}, 3.842079722258478*^9},
+ CellLabel->
+ "During evaluation of \
+In[407]:=",ExpressionUUID->"bb66e50b-f997-44d9-ba2c-a37d72d7249e"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "FindRoot", "bddir",
+ "\"The search direction \\!\\(\\*RowBox[{\\\"{\\\", \
+RowBox[{\\\"2.53965496135013`15.*^-12\\\", \\\",\\\", RowBox[{\\\"-\\\", \
+\\\"3.57061033963652`15.*^-13\\\"}], \\\",\\\", \
+\\\"1.8025424914886`15.*^-11\\\", \\\",\\\", RowBox[{\\\"-\\\", \
+\\\"2.39868548713662`15.*^-11\\\"}], \\\",\\\", \
+\\\"2.5615325400987`15.*^-12\\\", \\\",\\\", \
+\\\"4.58273154979095`15.*^-12\\\", \\\",\\\", RowBox[{\\\"-\\\", \
+\\\"1.56414515669193`15.*^-12\\\"}], \\\",\\\", \\\"2.46649528749619`15.*^-13\
+\\\"}], \\\"}\\\"}]\\) is not a descent direction for the merit function. The \
+step will be taken without the line search.\"", 2, 407, 415,
+ 31641741301462687909, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.841826482012022*^9, 3.8418265982231407`*^9},
+ 3.8418266678489017`*^9, {3.841826768683412*^9, 3.841826780765348*^9}, {
+ 3.841826898513888*^9, 3.8418269227694597`*^9}, 3.841826973347541*^9, {
+ 3.8419953073833447`*^9, 3.841995314188479*^9}, 3.841996635157215*^9,
+ 3.841996921667355*^9, 3.842004616129239*^9, 3.842069276220972*^9,
+ 3.842069316903061*^9, 3.842069420754609*^9, {3.842069486053893*^9,
+ 3.842069507761615*^9}, 3.842077855194168*^9, {3.842079670029725*^9,
+ 3.8420796778177433`*^9}, 3.8420797262779417`*^9},
CellLabel->
"During evaluation of \
-In[51]:=",ExpressionUUID->"334ca9d2-87ff-4b5b-82cf-03a54d1382ab"],
+In[407]:=",ExpressionUUID->"69901938-a23f-4a57-b4f2-5e5be6d9ff19"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "\[Theta]c", "\[Rule]", "1.32944175095762705653136497860812040432`20."}],
+ "\[Theta]c", "\[Rule]", "1.39640140702670691766620027873040490558`15."}],
",",
RowBox[{
- "\[Theta]0", "\[Rule]", "0.19851634079387940099875436957379335619`20."}],
+ "\[Theta]0", "\[Rule]", "0.19561752501762282087327377522180741551`15."}],
",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.39169274706644288467674843499700372069`20."}]}], ",",
+ RowBox[{"-", "2.21478831204662112221329117619354697143`15."}]}], ",",
RowBox[{
RowBox[{"A", "[", "1", "]"}], "\[Rule]",
- "1.50097982134318679952735884219249398435`20."}], ",",
+ "1.2602180254217114206615247243364880446`15."}], ",",
RowBox[{
RowBox[{"A", "[", "2", "]"}], "\[Rule]",
- "0.35472588422886148106873431741708148046`20."}], ",",
+ "0.3504599230798142432947907895377413107`15."}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.07229559946763170612151694672889323414`20."}]}], ",",
+ RowBox[{"-", "0.04268658215981520190896391697546383902`15."}]}], ",",
RowBox[{
RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
- "0.02001479152353039267441639679230095709`20."}], ",",
+ "0.00700262478578725836412674473311270201`15."}], ",",
RowBox[{
RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.00319678563132391072668793355401404247`20."}]}]}],
+ RowBox[{"-", "0.00087146495931545848237806045755954563`15."}]}]}],
"}"}]], "Output",
CellChangeTimes->{{3.841826482020074*^9, 3.8418265862239122`*^9}, {
3.841826659980463*^9, 3.841826667924841*^9}, {3.841826769333158*^9,
3.841826781359291*^9}, {3.841826901984071*^9, 3.841826926295443*^9},
- 3.841826976960929*^9},
- CellLabel->"Out[51]=",ExpressionUUID->"a9055bc2-2ac1-4de8-8dac-28ec754d13c2"]
+ 3.841826976960929*^9, {3.841995312910524*^9, 3.8419953178377438`*^9},
+ 3.841996638694839*^9, 3.841996925176203*^9, 3.842004619699828*^9,
+ 3.8420692803788433`*^9, 3.842069417281849*^9, {3.8420694796216497`*^9,
+ 3.842069511956089*^9}, 3.842077859280026*^9, {3.8420796719625473`*^9,
+ 3.84207967940968*^9}, 3.842079726306419*^9},
+ CellLabel->
+ "Out[407]=",ExpressionUUID->"6661822c-1c31-436e-a750-cc5539a9b64a"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"cov2", "=",
+ RowBox[{"fitCov", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Most", "@",
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"2", ",",
+ RowBox[{"h", "[", "3", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "13"}]]}], "]"}], "[", "4", "]"}]}], "//.",
+ RowBox[{"rules", "[",
+ RowBox[{"h", "[", "3", "]"}], "]"}]}], ",", "m21"}], "]"}]}],
+ ";"}]], "Input",
+ CellChangeTimes->{{3.842003556268217*^9, 3.842003574458744*^9}, {
+ 3.842003613387485*^9, 3.842003621275626*^9}, {3.842003848840043*^9,
+ 3.8420038643919992`*^9}, {3.8420041190780354`*^9, 3.842004121196991*^9}, {
+ 3.842004450452117*^9, 3.842004464579197*^9}, {3.842004507220078*^9,
+ 3.8420045176681633`*^9}, {3.842004562286165*^9, 3.842004584461378*^9}, {
+ 3.842004629182274*^9, 3.842004645582592*^9}, {3.842004748440856*^9,
+ 3.842004775096924*^9}, {3.842069284175571*^9, 3.84206931947155*^9}, {
+ 3.842077861602908*^9, 3.8420778622750483`*^9}},
+ CellLabel->
+ "In[221]:=",ExpressionUUID->"d5eaef8f-0b87-435a-b319-0400431fa108"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "Inverse", "luc",
+ "\"Result for \\!\\(\\*RowBox[{\\\"Inverse\\\"}]\\) of badly conditioned \
+matrix \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \
+RowBox[{\\\"4.278156461926111`*^27\\\", \\\",\\\", \
+\\\"1.2923904709458336`*^27\\\", \\\",\\\", \\\"3.2649002358986426`*^27\\\", \
+\\\",\\\", \\\"3.620471587109727`*^27\\\", \\\",\\\", \
+\\\"5.380893028207948`*^27\\\", \\\",\\\", \\\"1.7622011463466822`*^27\\\", \
+\\\",\\\", \\\"4.4343270407178814`*^27\\\", \\\",\\\", \
+\\\"1.0592979732019165`*^28\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
+RowBox[{\\\"1.2923904709458336`*^27\\\", \\\",\\\", \
+\\\"3.332975444538528`*^27\\\", \\\",\\\", \\\"1.769165835509894`*^27\\\", \\\
+\",\\\", \\\"1.6350093306041047`*^27\\\", \\\",\\\", \
+\\\"1.5714143457236215`*^27\\\", \\\",\\\", \\\"5.128959849654629`*^26\\\", \
+\\\",\\\", \\\"1.1583835253731466`*^27\\\", \\\",\\\", \
+\\\"2.567388765040525`*^27\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"\
+\[LeftSkeleton]\\\", \\\"5\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", \
+RowBox[{\\\"{\\\", RowBox[{\\\"1.0592979732019165`*^28\\\", \\\",\\\", \
+\\\"2.567388765040525`*^27\\\", \\\",\\\", \\\"7.725426562417563`*^27\\\", \\\
+\",\\\", \\\"8.7120045810106`*^27\\\", \\\",\\\", \\\"1.3012231179359057`*^28\
+\\\", \\\",\\\", \\\"6.16374656960162`*^27\\\", \\\",\\\", \
+\\\"2.005273050409311`*^28\\\", \\\",\\\", \\\"5.476699019360475`*^28\\\"}], \
+\\\"}\\\"}]}], \\\"}\\\"}]\\) may contain significant numerical errors.\"", 2,
+ 221, 265, 31641741301462687909, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.8420693003724623`*^9, 3.842069307508058*^9},
+ 3.842069528290135*^9, 3.842077869579063*^9},
+ CellLabel->
+ "During evaluation of \
+In[221]:=",ExpressionUUID->"6ba43569-cbf1-4d71-9cbd-7fc42ba52d1e"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Eigenvalues", "[", "cov2", "]"}]], "Input",
+ CellChangeTimes->{{3.84200479379454*^9, 3.842004796305029*^9}},
+ CellLabel->
+ "In[222]:=",ExpressionUUID->"cba8a0b9-3aa3-4333-8122-e7602067e28b"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "3.230423071835214`*^-12"}], ",", "1.7919995711342513`*^-13",
+ ",", "3.8267580218389237`*^-19", ",", "4.7400009481592`*^-20", ",",
+ "3.418075688967513`*^-27", ",", "3.727422301517766`*^-28", ",",
+ "2.308402976354898`*^-28", ",",
+ RowBox[{"-", "3.778365631339311`*^-29"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.84200479649478*^9, 3.842069310173429*^9,
+ 3.842069564405438*^9, 3.842077871860488*^9},
+ CellLabel->
+ "Out[222]=",ExpressionUUID->"5dfe1d42-b9c2-48fd-9216-d7f98b1686a4"]
}, Open ]],
Cell[CellGroupData[{
@@ -3664,23 +4173,28 @@ Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Total", "[",
- SuperscriptBox[
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "3", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "15"}]]}], "]"}], "[", "4", "]"}], "2"], "]"}], "//.",
+ RowBox[{"Most", "@",
+ SuperscriptBox[
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"2", ",",
+ RowBox[{"h", "[", "3", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "15"}]]}], "]"}], "[", "4", "]"}], "2"]}], "]"}], "//.",
RowBox[{"rules", "[",
RowBox[{"h", "[", "3", "]"}], "]"}]}], "/.", "m21"}]], "Input",
CellChangeTimes->{{3.841826917072412*^9, 3.841826936288608*^9}, {
- 3.841826978938397*^9, 3.8418269790096073`*^9}},
- CellLabel->"In[52]:=",ExpressionUUID->"bbab0f46-5630-4e0d-9151-1d8b6f618dd4"],
+ 3.841826978938397*^9, 3.8418269790096073`*^9}, {3.841995415950396*^9,
+ 3.841995419862485*^9}, {3.841996644677185*^9, 3.841996645324901*^9}, {
+ 3.84199692537027*^9, 3.841996925898037*^9}},
+ CellLabel->"In[88]:=",ExpressionUUID->"bbab0f46-5630-4e0d-9151-1d8b6f618dd4"],
-Cell[BoxData["0.05177813526302298`"], "Output",
+Cell[BoxData["8.199876622943114`*^-10"], "Output",
CellChangeTimes->{{3.8418269193329*^9, 3.841826936706436*^9},
- 3.841826979599214*^9},
- CellLabel->"Out[52]=",ExpressionUUID->"8bfd2404-26dd-479a-b323-cfa1bea22ba1"]
+ 3.841826979599214*^9, {3.84199541658891*^9, 3.8419954201458*^9}, {
+ 3.84199663925913*^9, 3.8419966456767406`*^9}, 3.841996926188746*^9,
+ 3.84206957517971*^9},
+ CellLabel->"Out[88]=",ExpressionUUID->"edec1b3d-65eb-4c19-b54f-7e961dd48a14"]
}, Open ]],
Cell[CellGroupData[{
@@ -3690,161 +4204,147 @@ Cell[BoxData[
RowBox[{"annealFit", "[",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "3", "]"}], ",", "\[Delta]"}], "]"}], "[", "5",
- "]"}], "//.",
+ RowBox[{"Join", "[",
+ RowBox[{"Most", "@",
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"3", ",",
+ RowBox[{"h", "[", "3", "]"}], ",", "\[Delta]"}], "]"}], "[", "5",
+ "]"}]}], "]"}], "//.",
RowBox[{"rules", "[",
RowBox[{"h", "[", "3", "]"}], "]"}]}], ",", "\[Delta]", ",",
RowBox[{"Join", "[",
RowBox[{
RowBox[{"m2", "[",
RowBox[{"[", "2", "]"}], "]"}], ",",
- RowBox[{"{", "}"}]}], "]"}]}], "]"}]}]], "Input",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "->", "0"}], "}"}]}], "]"}]}],
+ "]"}]}]], "Input",
CellChangeTimes->{{3.841464843337102*^9, 3.841464855633377*^9}, {
3.841485164363418*^9, 3.8414851683768*^9}, {3.8418272638322353`*^9,
- 3.841827269478693*^9}, {3.84182733709054*^9, 3.841827341167844*^9}},
+ 3.841827269478693*^9}, {3.84182733709054*^9, 3.841827341167844*^9}, {
+ 3.841995426486705*^9, 3.8419954269346237`*^9}, {3.842078716860094*^9,
+ 3.842078729546844*^9}, {3.8420792852866793`*^9, 3.842079291813146*^9}, {
+ 3.842079345887349*^9, 3.8420793512462807`*^9}, {3.842079433313261*^9,
+ 3.8420794355203037`*^9}, {3.842079487073419*^9, 3.842079587890482*^9}, {
+ 3.842079758375825*^9, 3.842079765885857*^9}, {3.8420804914851837`*^9,
+ 3.842080502547262*^9}, {3.84208054862962*^9, 3.8420805523079987`*^9}, {
+ 3.842081248067449*^9, 3.842081266249155*^9}, {3.842081300203639*^9,
+ 3.842081303641553*^9}, {3.842081352812458*^9, 3.842081364659107*^9}},
CellLabel->
- "In[122]:=",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"],
+ "In[705]:=",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"],
-Cell[BoxData["489.4696287933705`"], "Print",
+Cell[CellGroupData[{
+
+Cell[BoxData["2.387928280428427`*^-13"], "Print",
CellChangeTimes->{3.8414648601920137`*^9, 3.8414662057577333`*^9,
3.8414851717359543`*^9, 3.841727635202511*^9, 3.841733773189451*^9,
3.841735136655308*^9, 3.8418269873850927`*^9, 3.841827274079143*^9,
- 3.841827347911943*^9},
- CellLabel->
- "During evaluation of \
-In[122]:=",ExpressionUUID->"acad0e19-ca48-4f70-b570-3c13e6559546"],
-
-Cell[BoxData[
- TemplateBox[{
- "General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.4975171833806045`*^-307\
-\\\"}]\\) is too small to represent as a normalized machine number; precision \
-may be lost.\"", 2, 122, 133, 31640151626685725371, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.841464863330677*^9, 3.841466204154407*^9,
- 3.841485174897429*^9, 3.841727633841527*^9, 3.841733771817769*^9,
- 3.841735135212792*^9, 3.8418269908463984`*^9, 3.841827279170081*^9,
- 3.8418273512389183`*^9},
- CellLabel->
- "During evaluation of \
-In[122]:=",ExpressionUUID->"f3b26d2a-327a-40f2-bf48-762d2e826c8b"],
-
-Cell[BoxData[
- TemplateBox[{
- "General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"9.98344788920403`*^-308\\\
-\"}]\\) is too small to represent as a normalized machine number; precision \
-may be lost.\"", 2, 122, 134, 31640151626685725371, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.841464863330677*^9, 3.841466204154407*^9,
- 3.841485174897429*^9, 3.841727633841527*^9, 3.841733771817769*^9,
- 3.841735135212792*^9, 3.8418269908463984`*^9, 3.841827279170081*^9,
- 3.841827351758584*^9},
- CellLabel->
- "During evaluation of \
-In[122]:=",ExpressionUUID->"e2893e1a-da81-4967-9028-c2ddf3c859a9"],
-
-Cell[BoxData[
- TemplateBox[{
- "General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"6.65563192613602`*^-308\\\
-\"}]\\) is too small to represent as a normalized machine number; precision \
-may be lost.\"", 2, 122, 135, 31640151626685725371, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.841464863330677*^9, 3.841466204154407*^9,
- 3.841485174897429*^9, 3.841727633841527*^9, 3.841733771817769*^9,
- 3.841735135212792*^9, 3.8418269908463984`*^9, 3.841827279170081*^9,
- 3.841827352208637*^9},
+ 3.841827347911943*^9, 3.84199542980134*^9, 3.841996674868339*^9,
+ 3.841996945518828*^9, 3.842069585784683*^9, 3.8420780093708*^9,
+ 3.842078735157702*^9, 3.84207929580005*^9, 3.8420793557356167`*^9,
+ 3.842079522857326*^9, 3.8420795616609783`*^9, 3.842079596365732*^9,
+ 3.842079769492628*^9, 3.842080509861586*^9, 3.84208056286895*^9,
+ 3.842081269737405*^9, 3.8420813073689957`*^9, 3.84208136845347*^9},
CellLabel->
"During evaluation of \
-In[122]:=",ExpressionUUID->"4ebedd47-e11c-475c-baed-f9b6b907d76c"],
+In[705]:=",ExpressionUUID->"76cd6c3e-a4fd-4959-9c73-7e63297fc1f0"],
-Cell[BoxData[
- TemplateBox[{
- "General", "stop",
- "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
-\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
-during this calculation.\"", 2, 122, 136, 31640151626685725371, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.841464863330677*^9, 3.841466204154407*^9,
- 3.841485174897429*^9, 3.841727633841527*^9, 3.841733771817769*^9,
- 3.841735135212792*^9, 3.8418269908463984`*^9, 3.841827279170081*^9,
- 3.841827352652326*^9},
- CellLabel->
- "During evaluation of \
-In[122]:=",ExpressionUUID->"bf29ec8b-6d0d-494f-a286-5b236a62dad9"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData["7544.032623454086`"], "Print",
+Cell[BoxData["2.387928280428428`*^-9"], "Print",
CellChangeTimes->{3.8414648601920137`*^9, 3.8414662057577333`*^9,
3.8414851717359543`*^9, 3.841727635202511*^9, 3.841733773189451*^9,
3.841735136655308*^9, 3.8418269873850927`*^9, 3.841827274079143*^9,
- 3.841827352755423*^9},
+ 3.841827347911943*^9, 3.84199542980134*^9, 3.841996674868339*^9,
+ 3.841996945518828*^9, 3.842069585784683*^9, 3.8420780093708*^9,
+ 3.842078735157702*^9, 3.84207929580005*^9, 3.8420793557356167`*^9,
+ 3.842079522857326*^9, 3.8420795616609783`*^9, 3.842079596365732*^9,
+ 3.842079769492628*^9, 3.842080509861586*^9, 3.84208056286895*^9,
+ 3.842081269737405*^9, 3.8420813073689957`*^9, 3.842081368540495*^9},
CellLabel->
"During evaluation of \
-In[122]:=",ExpressionUUID->"b609a385-9bb2-4557-8acc-bed35111ad21"],
+In[705]:=",ExpressionUUID->"295f8b37-5b7f-4d24-9e1a-35ef70b97b74"],
-Cell[BoxData["7547.62219676352`"], "Print",
+Cell[BoxData["0.000010382052468019348`"], "Print",
CellChangeTimes->{3.8414648601920137`*^9, 3.8414662057577333`*^9,
3.8414851717359543`*^9, 3.841727635202511*^9, 3.841733773189451*^9,
3.841735136655308*^9, 3.8418269873850927`*^9, 3.841827274079143*^9,
- 3.841827355608079*^9},
+ 3.841827347911943*^9, 3.84199542980134*^9, 3.841996674868339*^9,
+ 3.841996945518828*^9, 3.842069585784683*^9, 3.8420780093708*^9,
+ 3.842078735157702*^9, 3.84207929580005*^9, 3.8420793557356167`*^9,
+ 3.842079522857326*^9, 3.8420795616609783`*^9, 3.842079596365732*^9,
+ 3.842079769492628*^9, 3.842080509861586*^9, 3.84208056286895*^9,
+ 3.842081269737405*^9, 3.8420813073689957`*^9, 3.842081368630163*^9},
CellLabel->
"During evaluation of \
-In[122]:=",ExpressionUUID->"ccffdeb3-c221-47bf-b880-30efb5f19937"],
+In[705]:=",ExpressionUUID->"db514d7c-bfff-4ec7-b794-ece0ede56ace"],
-Cell[BoxData["7547.623015958472`"], "Print",
+Cell[BoxData["0.07342437316454359`"], "Print",
CellChangeTimes->{3.8414648601920137`*^9, 3.8414662057577333`*^9,
3.8414851717359543`*^9, 3.841727635202511*^9, 3.841733773189451*^9,
3.841735136655308*^9, 3.8418269873850927`*^9, 3.841827274079143*^9,
- 3.841827358263262*^9},
+ 3.841827347911943*^9, 3.84199542980134*^9, 3.841996674868339*^9,
+ 3.841996945518828*^9, 3.842069585784683*^9, 3.8420780093708*^9,
+ 3.842078735157702*^9, 3.84207929580005*^9, 3.8420793557356167`*^9,
+ 3.842079522857326*^9, 3.8420795616609783`*^9, 3.842079596365732*^9,
+ 3.842079769492628*^9, 3.842080509861586*^9, 3.84208056286895*^9,
+ 3.842081269737405*^9, 3.8420813073689957`*^9, 3.842081368746111*^9},
CellLabel->
"During evaluation of \
-In[122]:=",ExpressionUUID->"c797301d-6cd0-4b0b-b6a0-7b2bf6ad9c93"],
+In[705]:=",ExpressionUUID->"dc74f80c-bc11-4ac0-a055-fedcbddd7bb9"],
-Cell[BoxData["7549.228703786271`"], "Print",
+Cell[BoxData["725.9914248197848`"], "Print",
CellChangeTimes->{3.8414648601920137`*^9, 3.8414662057577333`*^9,
3.8414851717359543`*^9, 3.841727635202511*^9, 3.841733773189451*^9,
3.841735136655308*^9, 3.8418269873850927`*^9, 3.841827274079143*^9,
- 3.8418273584007673`*^9},
+ 3.841827347911943*^9, 3.84199542980134*^9, 3.841996674868339*^9,
+ 3.841996945518828*^9, 3.842069585784683*^9, 3.8420780093708*^9,
+ 3.842078735157702*^9, 3.84207929580005*^9, 3.8420793557356167`*^9,
+ 3.842079522857326*^9, 3.8420795616609783`*^9, 3.842079596365732*^9,
+ 3.842079769492628*^9, 3.842080509861586*^9, 3.84208056286895*^9,
+ 3.842081269737405*^9, 3.8420813073689957`*^9, 3.842081368848545*^9},
CellLabel->
"During evaluation of \
-In[122]:=",ExpressionUUID->"238aa827-985b-46ca-ba93-7235adf631b7"]
+In[705]:=",ExpressionUUID->"54ab27f6-8246-4dbd-9292-7ad540633f98"]
}, Open ]],
Cell[BoxData[
RowBox[{"{",
- RowBox[{"7549.228703786271`", ",",
+ RowBox[{"725.9914248197848`", ",",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.4671952424687085`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19457016511195707`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.472264255629011`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19553640903650252`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.139812814666874`"}]}], ",",
+ RowBox[{"-", "2.2322394361987974`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.1552015866244443`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2806706731472282`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3254579291183115`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.36318328194995403`"}], ",",
+
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.04359535734081209`"}]}], ",",
+ RowBox[{"-", "0.1143149948338975`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.004727401626332516`"}],
- ",",
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.003188993400276659`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.00042944211918985974`"}]}]}], "}"}]}], "}"}]], "Output",\
-
+ RowBox[{"A", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.02901968481273821`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "1.9470798303017617`*^-6"}]}],
+ "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.8414648792576437`*^9, 3.841466213483655*^9,
3.841485177503057*^9, 3.841727640264741*^9, 3.841733779145525*^9,
3.8417351450580807`*^9, 3.841826998518222*^9, 3.8418272820374393`*^9,
- 3.841827358775434*^9},
+ 3.841827358775434*^9, 3.841995436242744*^9, 3.841996681828261*^9,
+ 3.841996952236771*^9, 3.842069590845109*^9, 3.842078009931535*^9,
+ 3.8420787358255987`*^9, 3.842079296309738*^9, 3.842079356375699*^9,
+ 3.8420795236038446`*^9, 3.842079564541819*^9, 3.8420795979826*^9,
+ 3.8420797739377327`*^9, 3.842080518036228*^9, 3.842080564898203*^9,
+ 3.842081270318274*^9, 3.842081307800519*^9, 3.8420813690203323`*^9},
CellLabel->
- "Out[122]=",ExpressionUUID->"dc4d99cd-a7e0-49bb-9939-cd444c973ba8"]
+ "Out[705]=",ExpressionUUID->"850f52c5-d775-481d-8a42-d6b6cad02ff1"]
}, Open ]],
Cell[CellGroupData[{
@@ -3858,15 +4358,17 @@ Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Total", "[",
- SuperscriptBox[
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "3", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "15"}]]}], "]"}], "[", "5", "]"}], "2"], "]"}], "//.",
+ RowBox[{"Most", "@",
+ SuperscriptBox[
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"2", ",",
+ RowBox[{"h", "[", "4", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "15"}]]}], "]"}], "[", "5", "]"}], "2"]}], "]"}],
+ "//.",
RowBox[{"rules", "[",
- RowBox[{"h", "[", "3", "]"}], "]"}]}], ",",
+ RowBox[{"h", "[", "4", "]"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"m3", "[",
RowBox[{"[",
@@ -3884,64 +4386,257 @@ Cell[BoxData[
3.8418267802857647`*^9}, {3.841826861255658*^9, 3.841826922184668*^9}, {
3.8418269725707407`*^9, 3.841826994313775*^9}, {3.8418270452029877`*^9,
3.841827053242969*^9}, {3.841827284791814*^9, 3.841827288375248*^9}, {
- 3.841827347088809*^9, 3.841827349848246*^9}},
+ 3.841827347088809*^9, 3.841827349848246*^9}, {3.841995443303062*^9,
+ 3.841995443783021*^9}, {3.842069637926805*^9, 3.8420696394776506`*^9}, {
+ 3.842069680406251*^9, 3.8420696917106247`*^9}, {3.8420780240393476`*^9,
+ 3.842078024133814*^9}, {3.842078738892099*^9, 3.842078747323058*^9}, {
+ 3.842079304438066*^9, 3.842079337742092*^9}},
CellLabel->
- "In[123]:=",ExpressionUUID->"0355409d-8b8c-45c1-9506-a20c5fe4044b"],
+ "In[409]:=",ExpressionUUID->"0355409d-8b8c-45c1-9506-a20c5fe4044b"],
Cell[BoxData[
TemplateBox[{
"FindRoot", "precw",
- "\"The precision of the argument function ({8. Power[10, 8] (Divide[-2 (-\
-\[Theta]0 + <<2>> + Power[\[Theta]0, 7] gC[3]), Power[<<2>>] \[Theta]c] + \
-Divide[<<2>>]) (-0.1893 - Divide[(Power[\[Theta]0, 2] + Power[\[Theta]c, 2]) \
-(-\[Theta]0 + Power[\[Theta]0, 3] gC[1] - Power[\[Theta]0, 5] gC[2] + Power[\
-\[Theta]0, 7] gC[3]), Power[1 + Power[\[Theta]0, 2], <<1>>] Power[\[Theta]c, \
-2]]) + <<9>>, <<7>>}) is less than WorkingPrecision \
-(\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 123, 137, 31640151626685725371,
+ "\"The precision of the argument function \
+({1000000000000000000000000000000 <<1>> (Divide[-2 <<6>>, Power[Pi, 2] \
+\[Theta]c] + <<3>> - Divide[2 <<6>> (Divide[15 <<4>> (1 + <<4>>), 16 <<3>>] + \
+<<6>>), <<1>>]) + <<7>>, <<7>>}) is less than WorkingPrecision \
+(\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 409, 420, 31641741301462687909,
"Local"},
"MessageTemplate"]], "Message", "MSG",
CellChangeTimes->{{3.841826482012022*^9, 3.8418265982231407`*^9},
3.8418266678489017`*^9, {3.841826768683412*^9, 3.841826780765348*^9}, {
3.841826898513888*^9, 3.8418269227694597`*^9}, 3.841826973347541*^9,
- 3.84182705459556*^9, 3.841827294890627*^9, 3.841827359251132*^9},
+ 3.84182705459556*^9, 3.841827294890627*^9, 3.841827359251132*^9,
+ 3.841995444288589*^9, 3.84199698679467*^9, 3.842069594193355*^9,
+ 3.8420696400572433`*^9, {3.842069681691224*^9, 3.842069692526046*^9}, {
+ 3.842078011660905*^9, 3.842078028380089*^9}, {3.842078742931691*^9,
+ 3.84207876631013*^9}, 3.842079307426499*^9, {3.8420793395149918`*^9,
+ 3.8420793569538507`*^9}, 3.842079606899269*^9, 3.842079775925702*^9},
CellLabel->
"During evaluation of \
-In[123]:=",ExpressionUUID->"9d0aaa2d-9044-4606-9061-02502fb2546a"],
+In[409]:=",ExpressionUUID->"a8e408da-491c-41d8-a6b9-e436489dc2e8"],
Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "\[Theta]c", "\[Rule]", "1.46719524247946543920847525649236957852`20."}],
- ",",
- RowBox[{
- "\[Theta]0", "\[Rule]", "0.19457016510998079468024195022063240678`20."}],
- ",",
- RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.13981281457927161082485469966163306683`20."}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]",
- "1.15520158650894769548178800010706248909`20."}], ",",
- RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]",
- "0.32545792913122707137708917055856925022`20."}], ",",
- RowBox[{
- RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.04359535731944888945582548709564370455`20."}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
- "0.00472740162042339412620713423023968762`20."}], ",",
- RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.0004294421184630650496095084304106164`20."}]}]}],
- "}"}]], "Output",
+ TemplateBox[{
+ "FindRoot", "nlnum",
+ "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\
+\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \
+RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\
+\\\", RowBox[{\\\"1.6666666666666666`*^14\\\", \\\" \\\", RowBox[{\\\"(\\\", \
+RowBox[{FractionBox[RowBox[{\\\"252.2490091738866`\\\", \\\" \\\", RowBox[{\\\
+\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"9.25825813182315`\\\"}], \\\" \
+\\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\
+\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \
+RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \
+\\\"\[RightSkeleton]\\\"}], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\
+\\\", \\\"\[RightSkeleton]\\\"}]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\
+\", RowBox[{RowBox[{\\\"10.034728134347144`\\\", \\\"\[VeryThinSpace]\\\"}], \
+\\\"+\\\", RowBox[{\\\"2615.534681962896`\\\", \\\" \\\", \
+RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
+\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \
+RowBox[{\\\"159.93106776394674`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\
+\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \
+\\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"0.7526551253898892`\\\", \\\" \\\", \
+RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
+\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \
+RowBox[{\\\"15.328580653635763`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\
+\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \
+\\\"]\\\"}]}], \\\"-\\\", RowBox[{\\\"952.7349874331767`\\\", \\\" \\\", \
+RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \
+\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \\\")\\\"}]}], \
+SuperscriptBox[RowBox[{\\\"(\\\", \
+RowBox[{RowBox[{\\\"1.3553607614885674`\\\", \\\"\[VeryThinSpace]\\\"}], \
+\\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
+\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \
+\\\"6\\\"]], \\\"-\\\", FractionBox[RowBox[{\\\"46.24302096893161`\\\", \\\" \
+\\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.7980077645559802`\\\", \\\"\
+\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \
+\\\"18\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \
+RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}]}], \
+\\\")\\\"}], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\
+\[RightSkeleton]\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \
+RowBox[{RowBox[{\\\"10.034728134347144`\\\", \\\"\[VeryThinSpace]\\\"}], \
+\\\"+\\\", RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\
+\[RightSkeleton]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", \
+RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\
+\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\
+\[RightSkeleton]\\\"}]}], \\\")\\\"}]}], SuperscriptBox[RowBox[{\\\"(\\\", \
+RowBox[{RowBox[{\\\"1.3553607614885674`\\\", \\\"\[VeryThinSpace]\\\"}], \
+\\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
+\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \
+\\\"7\\\"]], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"9\\\", \\\"\
+\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{RowBox[{\\\"(\\\", RowBox[{\\\"\
+\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\")\\\"}], \\\" \
+\\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"7.066319394411696`\\\", \\\" \
+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
+\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \
+RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \
+\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \
+\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\
+\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \
+\\\"\[RightSkeleton]\\\"}]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\
+\[LeftSkeleton]\\\", \\\"5\\\", \\\"\[RightSkeleton]\\\"}]}], \\\")\\\"}], \\\
+\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \\\"0.18388371`\\\"}], \
+\\\"+\\\", RowBox[{\\\"0.008333333333333333`\\\", \\\" \\\", \
+RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"7.707170161488603`\\\", \\\" \\\", \
+RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \
+\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \
+\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\
+\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\
+\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\
+\"-\\\", RowBox[{\\\"0.8049071581684973`\\\", \\\" \\\", \
+RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \
+\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \
+\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\
+\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{RowBox[{\\\"Plus\\\", \\\"[\\\", \
+RowBox[{\\\"\[LeftSkeleton]\\\", \\\"5\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\
+\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\
+\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\
+\"+\\\", RowBox[{RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\
+\\\", \\\"4\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\
+\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\
+\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \
+RowBox[{\\\"0.6766162461777642`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \
+\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\
+\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\
+\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \
+\\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\
+\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \\\")\\\"}]}]}], \
+\\\")\\\"}]}]}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\
+\[RightSkeleton]\\\"}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
+\\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) is not a list of \
+numbers with dimensions \\!\\(\\*RowBox[{\\\"{\\\", \\\"8\\\", \\\"}\\\"}]\\) \
+at \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"\[Theta]c\\\", \\\",\\\", \\\"\
+\[Theta]0\\\", \\\",\\\", \\\"AH\\\", \\\",\\\", RowBox[{\\\"A\\\", \
+\\\"[\\\", \\\"1\\\", \\\"]\\\"}], \\\",\\\", RowBox[{\\\"A\\\", \\\"[\\\", \
+\\\"2\\\", \\\"]\\\"}], \\\",\\\", RowBox[{\\\"gC\\\", \\\"[\\\", \\\"1\\\", \
+\\\"]\\\"}], \\\",\\\", RowBox[{\\\"gC\\\", \\\"[\\\", \\\"2\\\", \
+\\\"]\\\"}], \\\",\\\", RowBox[{\\\"gC\\\", \\\"[\\\", \\\"3\\\", \
+\\\"]\\\"}]}], \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \
+RowBox[{\\\"1.4671952947018108`\\\", \\\",\\\", \\\"0.19457016430423735`\\\", \
+\\\",\\\", RowBox[{\\\"-\\\", \\\"2.139812761537908`\\\"}], \\\",\\\", \
+\\\"1.1552015129427358`\\\", \\\",\\\", \\\"0.32545791252674666`\\\", \\\",\\\
+\", RowBox[{\\\"-\\\", \\\"0.043595358143656684`\\\"}], \\\",\\\", \
+\\\"0.004727400272887512`\\\", \\\",\\\", RowBox[{\\\"-\\\", \
+\\\"0.0004294418917538953`\\\"}]}], \\\"}\\\"}]\\).\"", 2, 409, 421,
+ 31641741301462687909, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.841826482012022*^9, 3.8418265982231407`*^9},
+ 3.8418266678489017`*^9, {3.841826768683412*^9, 3.841826780765348*^9}, {
+ 3.841826898513888*^9, 3.8418269227694597`*^9}, 3.841826973347541*^9,
+ 3.84182705459556*^9, 3.841827294890627*^9, 3.841827359251132*^9,
+ 3.841995444288589*^9, 3.84199698679467*^9, 3.842069594193355*^9,
+ 3.8420696400572433`*^9, {3.842069681691224*^9, 3.842069692526046*^9}, {
+ 3.842078011660905*^9, 3.842078028380089*^9}, {3.842078742931691*^9,
+ 3.84207876631013*^9}, 3.842079307426499*^9, {3.8420793395149918`*^9,
+ 3.8420793569538507`*^9}, 3.842079606899269*^9, 3.8420797777394*^9},
+ CellLabel->
+ "During evaluation of \
+In[409]:=",ExpressionUUID->"f32e1169-808f-4e7a-8e18-94d2ea578fbb"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "FindRoot", "precw",
+ "\"The precision of the argument function \
+({1000000000000000000000000000000 <<1>> (Divide[-2 <<6>>, Power[Pi, 2] \
+\[Theta]c] + <<3>> - Divide[2 <<6>> (Divide[15 <<4>> (1 + <<4>>), 16 <<3>>] + \
+<<6>>), <<1>>]) + <<7>>, <<7>>}) is less than WorkingPrecision \
+(\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 409, 422, 31641741301462687909,
+ "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.841826482012022*^9, 3.8418265982231407`*^9},
+ 3.8418266678489017`*^9, {3.841826768683412*^9, 3.841826780765348*^9}, {
+ 3.841826898513888*^9, 3.8418269227694597`*^9}, 3.841826973347541*^9,
+ 3.84182705459556*^9, 3.841827294890627*^9, 3.841827359251132*^9,
+ 3.841995444288589*^9, 3.84199698679467*^9, 3.842069594193355*^9,
+ 3.8420696400572433`*^9, {3.842069681691224*^9, 3.842069692526046*^9}, {
+ 3.842078011660905*^9, 3.842078028380089*^9}, {3.842078742931691*^9,
+ 3.84207876631013*^9}, 3.842079307426499*^9, {3.8420793395149918`*^9,
+ 3.8420793569538507`*^9}, 3.842079606899269*^9, 3.842079777912903*^9},
+ CellLabel->
+ "During evaluation of \
+In[409]:=",ExpressionUUID->"a880e8b2-2093-4b4d-989c-9c4eb4791932"],
+
+Cell[BoxData["$Aborted"], "Output",
CellChangeTimes->{{3.841826482020074*^9, 3.8418265862239122`*^9}, {
3.841826659980463*^9, 3.841826667924841*^9}, {3.841826769333158*^9,
3.841826781359291*^9}, {3.841826901984071*^9, 3.841826926295443*^9},
3.841826976960929*^9, 3.841827061597597*^9, 3.841827305149766*^9,
- 3.841827366006094*^9},
+ 3.841827366006094*^9, 3.841995451652528*^9, 3.8419969937253017`*^9,
+ 3.842069602064939*^9, 3.8420696477136173`*^9, {3.8420696893462677`*^9,
+ 3.84206970020901*^9}, {3.842078019842236*^9, 3.842078036260553*^9}, {
+ 3.842078754635845*^9, 3.8420787781035547`*^9}, {3.8420793154039927`*^9,
+ 3.842079368924656*^9}, 3.842079613766201*^9, 3.842079779552711*^9},
+ CellLabel->
+ "Out[409]=",ExpressionUUID->"32b0c21c-4fe0-4111-b324-fce35fc3def1"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"cov3", "=",
+ RowBox[{"fitCov", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Most", "@",
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"2", ",",
+ RowBox[{"h", "[", "4", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "15"}]]}], "]"}], "[", "5", "]"}]}], "//.",
+ RowBox[{"rules", "[",
+ RowBox[{"h", "[", "4", "]"}], "]"}]}], ",", "m31"}], "]"}]}],
+ ";"}]], "Input",
+ CellChangeTimes->{{3.842003556268217*^9, 3.842003574458744*^9}, {
+ 3.842003613387485*^9, 3.842003621275626*^9}, {3.842003848840043*^9,
+ 3.8420038643919992`*^9}, {3.8420041190780354`*^9, 3.842004121196991*^9}, {
+ 3.842004450452117*^9, 3.842004464579197*^9}, {3.842004507220078*^9,
+ 3.8420045176681633`*^9}, {3.842004562286165*^9, 3.842004584461378*^9}, {
+ 3.842004629182274*^9, 3.842004645582592*^9}, {3.842004748440856*^9,
+ 3.842004775096924*^9}, {3.842069284175571*^9, 3.84206931947155*^9}, {
+ 3.8420696058371563`*^9, 3.8420696355333242`*^9}, {3.8420696838306513`*^9,
+ 3.842069697694405*^9}, {3.84207803016672*^9, 3.84207803022985*^9}, {
+ 3.842078778020159*^9, 3.842078781059864*^9}},
+ CellLabel->
+ "In[314]:=",ExpressionUUID->"8f8cc5f8-51d5-4e0d-9ac6-686492c6ab4e"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Eigenvalues", "[", "cov3", "]"}]], "Input",
+ CellChangeTimes->{{3.84200479379454*^9, 3.842004796305029*^9}, {
+ 3.842069630381701*^9, 3.842069630725026*^9}},
+ CellLabel->
+ "In[315]:=",ExpressionUUID->"bb34f160-5745-4b8c-9aea-78f13ca9d061"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ "1.5849716242393695540138824332360069226406240063425402727721104166268797795\
+9162234`60.*^-16", ",",
+ RowBox[{
+ "-", "1.0651330403039601088216800549255900246031952523750457747479541835666\
+6653382625358`60.*^-16"}], ",",
+ "2.114642699533618758203770577554359917497901786042394712765600867401577412\
+4836847`60.*^-17", ",",
+ "1.023244775781508419430524794913506258661198412165202278185433584895372522\
+05724`60.*^-19", ",",
+ "4.179090570744377930846264593664155022697485951768512481938033550558683929\
+38`60.*^-22", ",",
+ "1.538495003868480931824241619704452247569826305803690149936792546868832096\
+525605594936`60.*^-31", ",",
+ "3.713597313167737001715606506373724478861067439864134644283211546626974398\
+04235882404`60.*^-32", ",",
+ "1.002804126934366521819944524217235639152014225194057513295145872657795543\
+72475190955`60.*^-32", ",",
+ "6.137561191202087010763219043998792500701997641307469996219237393912123708\
+1518994`60.*^-35"}], "}"}]], "Output",
+ CellChangeTimes->{3.84200479649478*^9, 3.842069310173429*^9,
+ 3.842069564405438*^9, 3.842069631089506*^9, 3.8420696627187443`*^9,
+ 3.842069712977997*^9, 3.842078049009088*^9, 3.842078802834725*^9},
CellLabel->
- "Out[123]=",ExpressionUUID->"566df64d-7810-429a-afb1-f800919aefb9"]
+ "Out[315]=",ExpressionUUID->"601f157d-85c3-48a5-95fc-2ca295547ea7"]
}, Open ]],
Cell[CellGroupData[{
@@ -3950,24 +4645,30 @@ Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Total", "[",
- SuperscriptBox[
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "4", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "15"}]]}], "]"}], "[", "5", "]"}], "2"], "]"}], "//.",
+ RowBox[{"Most", "@",
+ SuperscriptBox[
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"2", ",",
+ RowBox[{"h", "[", "3", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "15"}]]}], "]"}], "[", "5", "]"}], "2"]}], "]"}], "//.",
RowBox[{"rules", "[",
- RowBox[{"h", "[", "4", "]"}], "]"}]}], "/.", "m31"}]], "Input",
+ RowBox[{"h", "[", "3", "]"}], "]"}]}], "/.", "m31"}]], "Input",
CellChangeTimes->{{3.841827091379568*^9, 3.8418270964598017`*^9}, {
- 3.841827308864356*^9, 3.841827310927503*^9}},
+ 3.841827308864356*^9, 3.841827310927503*^9}, {3.8419954531271257`*^9,
+ 3.841995472943472*^9}, {3.842079279365378*^9, 3.842079281132698*^9}, {
+ 3.8420793125178623`*^9, 3.842079315189137*^9}},
CellLabel->
- "In[102]:=",ExpressionUUID->"db5637ef-5db6-417e-aa71-a7604e24c6ef"],
+ "In[355]:=",ExpressionUUID->"db5637ef-5db6-417e-aa71-a7604e24c6ef"],
-Cell[BoxData["7410.009703090096`"], "Output",
- CellChangeTimes->{3.841827096965208*^9, 3.841827311458522*^9},
+Cell[BoxData["1.7915283539988777`*^-9"], "Output",
+ CellChangeTimes->{
+ 3.841827096965208*^9, 3.841827311458522*^9, {3.841995453987759*^9,
+ 3.8419954736951323`*^9}, 3.842078053758122*^9, {3.842079274211137*^9,
+ 3.84207928187488*^9}, 3.842079316258065*^9},
CellLabel->
- "Out[102]=",ExpressionUUID->"3de50d92-0b34-4eb5-b769-b252da7dda77"]
+ "Out[355]=",ExpressionUUID->"f4a0c326-bcce-48a7-b6b6-0adc5e1117d9"]
}, Open ]],
Cell[CellGroupData[{
@@ -3976,14 +4677,27 @@ Cell[BoxData[
RowBox[{"m4", "=",
RowBox[{"annealFit", "[",
RowBox[{
- RowBox[{
+ RowBox[{"Join", "[",
RowBox[{
- RowBox[{"res", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "5", "]"}], ",", "\[Delta]"}], "]"}], "[", "6",
- "]"}], "//.",
- RowBox[{"rules", "[",
- RowBox[{"h", "[", "5", "]"}], "]"}]}], ",", "\[Delta]", ",",
+ RowBox[{
+ RowBox[{"Most", "@",
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"4", ",",
+ RowBox[{"h", "[", "4", "]"}], ",", "\[Delta]"}], "]"}], "[", "6",
+ "]"}]}], "//.",
+ RowBox[{"rules", "[",
+ RowBox[{"h", "[", "4", "]"}], "]"}]}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"i", "!"}], ")"}], "2"]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "]"}], ",",
+ "\[Delta]", ",",
RowBox[{"Join", "[",
RowBox[{
RowBox[{"m3", "[",
@@ -3993,7 +4707,7 @@ Cell[BoxData[
RowBox[{
RowBox[{"gC", "[", "4", "]"}], "->", "0"}], ",",
RowBox[{
- RowBox[{"gC", "[", "5", "]"}], "->", "0"}]}], "}"}]}], "]"}]}],
+ RowBox[{"A", "[", "4", "]"}], "->", "0"}]}], "}"}]}], "]"}]}],
"]"}]}]], "Input",
CellChangeTimes->{{3.8414649234989033`*^9, 3.841464929562983*^9},
3.8414650365927067`*^9, {3.841466519588132*^9, 3.8414665280647097`*^9}, {
@@ -4002,132 +4716,136 @@ Cell[BoxData[
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.841827382400734*^9}, {3.841995502776061*^9, 3.841995503240049*^9}, {
+ 3.842078951611676*^9, 3.8420789636867447`*^9}, {3.8420798300405483`*^9,
+ 3.842079836854927*^9}, {3.8420799055859203`*^9, 3.842079914272601*^9}, {
+ 3.842079967859085*^9, 3.8420799681136713`*^9}, {3.842080021564961*^9,
+ 3.842080025220539*^9}, {3.8420800859182*^9, 3.8420800990122004`*^9}, {
+ 3.84208019154412*^9, 3.8420802080213737`*^9}, {3.842080276960822*^9,
+ 3.842080288543285*^9}, 3.842080409972135*^9, {3.842080584925744*^9,
+ 3.8420805890525837`*^9}, {3.84208137234144*^9, 3.8420814145320263`*^9}, {
+ 3.842081680882601*^9, 3.842081699569503*^9}},
+ CellLabel->
+ "In[729]:=",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["0.075525948159603`"], "Print",
+ CellChangeTimes->{3.8420814291640177`*^9, 3.842081710602597*^9},
+ CellLabel->
+ "During evaluation of \
+In[729]:=",ExpressionUUID->"1cc722dd-0661-43d8-9ed2-b5a9da0121a5"],
+
+Cell[BoxData["0.6559582772029767`"], "Print",
+ CellChangeTimes->{3.8420814291640177`*^9, 3.842081710950465*^9},
CellLabel->
- "In[125]:=",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"],
+ "During evaluation of \
+In[729]:=",ExpressionUUID->"6db4e008-6acc-4de3-b085-c5815d72123f"]
+}, Open ]],
Cell[BoxData[
TemplateBox[{
"General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\
-\"-\\\", \\\"1.5823788780514753`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \
-to represent as a normalized machine number; precision may be lost.\"", 2,
- 125, 139, 31640151626685725371, "Local"},
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.1281442277961205`*^-307\
+\\\"}]\\) is too small to represent as a normalized machine number; precision \
+may be lost.\"", 2, 729, 694, 31641741301462687909, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.84173381086263*^9, 3.8417351675859528`*^9,
- 3.8417352270858*^9, 3.841827118165216*^9, 3.841827642836625*^9},
+ CellChangeTimes->{3.842081716498714*^9},
CellLabel->
"During evaluation of \
-In[125]:=",ExpressionUUID->"1eb674f0-c985-414c-8dd4-9df222e3420e"],
+In[729]:=",ExpressionUUID->"5dbb837d-148c-4d61-884d-3cf82071a482"],
Cell[BoxData[
TemplateBox[{
"General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\
-\"-\\\", \\\"1.9927773573642074`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \
-to represent as a normalized machine number; precision may be lost.\"", 2,
- 125, 140, 31640151626685725371, "Local"},
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \
+\\\"1.862383206170826`*^-307\\\"}]\\) is too small to represent as a \
+normalized machine number; precision may be lost.\"", 2, 729, 695,
+ 31641741301462687909, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.84173381086263*^9, 3.8417351675859528`*^9,
- 3.8417352270858*^9, 3.841827118165216*^9, 3.841827643843383*^9},
+ CellChangeTimes->{3.8420817175052853`*^9},
CellLabel->
"During evaluation of \
-In[125]:=",ExpressionUUID->"79ae622b-68cc-4ae5-9cbf-67c098c2cfdc"],
+In[729]:=",ExpressionUUID->"ba5e36a7-9bde-423d-9781-1367cdeef641"],
Cell[BoxData[
TemplateBox[{
"General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\
-\"-\\\", \\\"1.054919252034317`*^-307\\\"}], \\\")\\\"}]}]\\) is too small to \
-represent as a normalized machine number; precision may be lost.\"", 2, 125,
- 141, 31640151626685725371, "Local"},
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \
+\\\"5.640721138980603`*^-308\\\"}]\\) is too small to represent as a \
+normalized machine number; precision may be lost.\"", 2, 729, 696,
+ 31641741301462687909, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.84173381086263*^9, 3.8417351675859528`*^9,
- 3.8417352270858*^9, 3.841827118165216*^9, 3.841827644844027*^9},
+ CellChangeTimes->{3.8420817185065403`*^9},
CellLabel->
"During evaluation of \
-In[125]:=",ExpressionUUID->"702c1b9f-d31c-42f7-8c24-f62b86396c0d"],
+In[729]:=",ExpressionUUID->"1b499df4-74aa-4cf6-9683-305e74be18ac"],
Cell[BoxData[
TemplateBox[{
"General", "stop",
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
-during this calculation.\"", 2, 125, 142, 31640151626685725371, "Local"},
+during this calculation.\"", 2, 729, 697, 31641741301462687909, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.84173381086263*^9, 3.8417351675859528`*^9,
- 3.8417352270858*^9, 3.841827118165216*^9, 3.841827645844573*^9},
+ CellChangeTimes->{3.842081719507819*^9},
CellLabel->
"During evaluation of \
-In[125]:=",ExpressionUUID->"c458fce2-db72-4ca5-a4dc-37f71ca848e3"],
+In[729]:=",ExpressionUUID->"e1931c33-f8ff-4df1-85df-ca8a1b6d75f6"],
Cell[CellGroupData[{
-Cell[BoxData["210.64422127514067`"], "Print",
- CellChangeTimes->{3.841733814067276*^9, 3.841735157616345*^9,
- 3.841735219557222*^9, 3.8418271214113617`*^9, 3.841827646111308*^9},
- CellLabel->
- "During evaluation of \
-In[125]:=",ExpressionUUID->"1eadd117-6f6a-485f-b06d-5da8ab64d17d"],
-
-Cell[BoxData["542.9718710843498`"], "Print",
- CellChangeTimes->{3.841733814067276*^9, 3.841735157616345*^9,
- 3.841735219557222*^9, 3.8418271214113617`*^9, 3.8418276484137173`*^9},
+Cell[BoxData["0.07581399096189172`"], "Print",
+ CellChangeTimes->{3.8420814291640177`*^9, 3.8420817197561502`*^9},
CellLabel->
"During evaluation of \
-In[125]:=",ExpressionUUID->"2c93ecc5-7bfe-40b2-b98d-6164a1f802db"],
+In[729]:=",ExpressionUUID->"2d01766e-b294-4653-a2a6-46243985a459"],
-Cell[BoxData["543.0008053657173`"], "Print",
- CellChangeTimes->{3.841733814067276*^9, 3.841735157616345*^9,
- 3.841735219557222*^9, 3.8418271214113617`*^9, 3.841827656233279*^9},
+Cell[BoxData["0.0787441101655384`"], "Print",
+ CellChangeTimes->{3.8420814291640177`*^9, 3.842081719900365*^9},
CellLabel->
"During evaluation of \
-In[125]:=",ExpressionUUID->"7a2062df-133d-4aed-b7ac-a77a0c3957f1"],
+In[729]:=",ExpressionUUID->"f5bccbb6-1fbe-4f47-9bef-0ccdc85b6856"],
-Cell[BoxData["543.0013977981135`"], "Print",
- CellChangeTimes->{3.841733814067276*^9, 3.841735157616345*^9,
- 3.841735219557222*^9, 3.8418271214113617`*^9, 3.841827656591814*^9},
+Cell[BoxData["29.10059980618554`"], "Print",
+ CellChangeTimes->{3.8420814291640177`*^9, 3.8420817200448217`*^9},
CellLabel->
"During evaluation of \
-In[125]:=",ExpressionUUID->"466d97cd-f0c3-4dcd-b3b4-a489a8cf840d"],
-
-Cell[BoxData["547.4881084839132`"], "Print",
- CellChangeTimes->{3.841733814067276*^9, 3.841735157616345*^9,
- 3.841735219557222*^9, 3.8418271214113617`*^9, 3.8418276568213663`*^9},
- CellLabel->
- "During evaluation of \
-In[125]:=",ExpressionUUID->"59599292-8821-416f-8a16-ae9ecf852ef6"]
+In[729]:=",ExpressionUUID->"fadc5272-339f-4608-b67e-333e755b68c3"]
}, Open ]],
Cell[BoxData[
RowBox[{"{",
- RowBox[{"547.4881084839132`", ",",
+ RowBox[{"29.10059980618554`", ",",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.446830533535459`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19767409932724675`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.4312778835749929`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19732509117254304`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.313137454277198`"}]}], ",",
+ RowBox[{"-", "2.4028295871884646`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3867273605732717`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5156336401002357`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.29759427685280704`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.40214832523324057`"}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.09961520579360285`"}]}], ",",
+ RowBox[{"-", "0.19988091334200161`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.034391842588091394`"}],
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.022538008578838246`"}],
",",
RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.011718522101898993`"}]}], ",",
+ RowBox[{"A", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0903860977178859`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0024020141215996245`"}],
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.0039041225298240044`"}],
",",
RowBox[{
- RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0002149751984089997`"}]}]}], "}"}]}], "}"}]], "Output",
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0001528446348693018`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.015177066141364`"}]}],
+ "}"}]}], "}"}]], "Output",
CellChangeTimes->{
3.841465025789603*^9, 3.8414651161396313`*^9, 3.841466522687828*^9,
3.841466555475013*^9, 3.841466668800694*^9, {3.841466708777321*^9,
@@ -4135,9 +4853,15 @@ Cell[BoxData[
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.8417352475906267`*^9, 3.841827146904572*^9, 3.841827657292903*^9,
+ 3.841995539806638*^9, 3.842069877907194*^9, 3.842078936824607*^9,
+ 3.8420789875120153`*^9, 3.8420798602764683`*^9, 3.8420799402629004`*^9,
+ 3.842079995444352*^9, 3.842080060576466*^9, 3.842080162099564*^9,
+ 3.842080245811408*^9, 3.842080332954257*^9, 3.842080431518053*^9,
+ 3.842080625337432*^9, {3.842081406500411*^9, 3.8420814324198103`*^9},
+ 3.8420817204515057`*^9},
CellLabel->
- "Out[125]=",ExpressionUUID->"6d7a8040-abd3-4614-8989-bd49a44bcdd7"]
+ "Out[729]=",ExpressionUUID->"3031a478-69cf-42dd-add2-43fc87d99397"]
}, Open ]],
Cell[CellGroupData[{
@@ -4151,15 +4875,16 @@ Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Total", "[",
- SuperscriptBox[
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "5", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "15"}]]}], "]"}], "[", "6", "]"}], "2"], "]"}], "//.",
+ RowBox[{"Most", "@",
+ SuperscriptBox[
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"2", ",",
+ RowBox[{"h", "[", "6", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "15"}]]}], "]"}], "[", "]"}], "2"]}], "]"}], "//.",
RowBox[{"rules", "[",
- RowBox[{"h", "[", "5", "]"}], "]"}]}], ",",
+ RowBox[{"h", "[", "6", "]"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"m4", "[",
RowBox[{"[",
@@ -4173,73 +4898,154 @@ Cell[BoxData[
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}},
- CellLabel->
- "In[126]:=",ExpressionUUID->"05fba3a3-cdb1-4967-ac49-78ffed60b2dc"],
+ 3.841826667389724*^9, 3.841826667595948*^9}, {3.8418267356853933`*^9,
+ 3.8418267802857647`*^9}, {3.841826861255658*^9, 3.841826922184668*^9}, {
+ 3.8418269725707407`*^9, 3.841826994313775*^9}, {3.8418270452029877`*^9,
+ 3.841827053242969*^9}, {3.8418271119240437`*^9, 3.84182712854834*^9}, {
+ 3.841827636088339*^9, 3.841827638701561*^9}, {3.841995593089758*^9,
+ 3.84199559350574*^9}, {3.842070192752548*^9, 3.842070194879615*^9}, {
+ 3.842078189242496*^9, 3.842078189329015*^9}, {3.842078992623692*^9,
+ 3.842079000527603*^9},
+ 3.842080274095665*^9},ExpressionUUID->"05fba3a3-cdb1-4967-ac49-\
+78ffed60b2dc"],
Cell[BoxData[
TemplateBox[{
"FindRoot", "precw",
- "\"The precision of the argument function ({8. Power[10, 8] (Divide[-2 \
-<<1>>, <<1>>] + <<1>>) (-0.1893 - Divide[(Power[\[Theta]0, 2] + \
-Power[\[Theta]c, 2]) (-\[Theta]0 + Power[\[Theta]0, 3] gC[1] - \
-Power[\[Theta]0, 5] gC[2] + Power[\[Theta]0, 7] gC[3] - Power[\[Theta]0, 9] \
-gC[4] + Power[\[Theta]0, 11] gC[5]), Power[1 + Power[\[Theta]0, 2], <<1>>] \
-Power[\[Theta]c, 2]]) + <<11>>, <<9>>}) is less than WorkingPrecision (\\!\\(\
-\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 126, 143, 31640151626685725371, "Local"},
+ "\"The precision of the argument function ({<<285525160 bytes>>}) is less \
+than WorkingPrecision (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 330, 344,
+ 31641741301462687909, "Local"},
"MessageTemplate"]], "Message", "MSG",
CellChangeTimes->{{3.841826482012022*^9, 3.8418265982231407`*^9},
3.8418266678489017`*^9, {3.841826768683412*^9, 3.841826780765348*^9}, {
3.841826898513888*^9, 3.8418269227694597`*^9}, 3.841826973347541*^9,
- 3.84182705459556*^9, 3.841827366949621*^9, 3.8418276818272257`*^9},
+ 3.84182705459556*^9, 3.841827366949621*^9, 3.8418276818272257`*^9,
+ 3.84199559465702*^9, 3.8420698791427593`*^9, 3.8420701963294992`*^9, {
+ 3.8420789974661207`*^9, 3.842079009833984*^9}},
CellLabel->
"During evaluation of \
-In[126]:=",ExpressionUUID->"bd9355a7-8279-4425-9f9f-040a6462886b"],
+In[330]:=",ExpressionUUID->"91873ce0-54c0-46c8-820a-80bb260ac12a"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "\[Theta]c", "\[Rule]", "1.44683053350812983438995081519416617309`20."}],
+ "\[Theta]c", "\[Rule]", "1.42939430660712984583678321019347964462`20."}],
",",
RowBox[{
- "\[Theta]0", "\[Rule]", "0.19767409932901857743941450706057262448`20."}],
+ "\[Theta]0", "\[Rule]", "0.19759542622308503143155315268328090472`20."}],
",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.31313745434454724513927470627039212435`20."}]}], ",",
+ RowBox[{"-", "2.30858539611460903453933351102687724466`20."}]}], ",",
RowBox[{
RowBox[{"A", "[", "1", "]"}], "\[Rule]",
- "1.38672736066035178242669250518105638098`20."}], ",",
+ "1.38135113976130435835703061790979212939`20."}], ",",
RowBox[{
RowBox[{"A", "[", "2", "]"}], "\[Rule]",
- "0.29759427685411207389325812446950716968`20."}], ",",
+ "0.30850601359954215658601438646865061628`20."}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.09961520579164134909262327610771929`20."}]}], ",",
+ RowBox[{"-", "0.08884557760153220504393773376104732284`20."}]}], ",",
RowBox[{
RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
- "0.03439184257537925262684543279921815462`20."}], ",",
+ "0.0263219626371513248187684455613865908`20."}], ",",
RowBox[{
RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.01171852209256335034764595054480531359`20."}]}], ",",
+ RowBox[{"-", "0.0057505289876997296605557877751477159`20."}]}], ",",
RowBox[{
RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
- "0.00240201411883554545254975381484167573`20."}], ",",
+ RowBox[{"-", "0.00030016858115051391303258338060090697`20."}]}], ",",
RowBox[{
RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.00021497519810754231402731638303284138`20."}]}]}],
+ "0.0004421161481252421504834923312455273`20."}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]",
+ RowBox[{"-", "0.00006622610232173892740561239759450487`20."}]}]}],
"}"}]], "Output",
CellChangeTimes->{{3.841826482020074*^9, 3.8418265862239122`*^9}, {
3.841826659980463*^9, 3.841826667924841*^9}, {3.841826769333158*^9,
3.841826781359291*^9}, {3.841826901984071*^9, 3.841826926295443*^9},
3.841826976960929*^9, 3.841827061597597*^9, 3.841827625662114*^9,
- 3.841827712512493*^9},
+ 3.841827712512493*^9, 3.841995626523354*^9, 3.842069914413797*^9,
+ 3.8420702316182823`*^9, 3.8420790068266287`*^9, 3.842079060023765*^9},
+ CellLabel->
+ "Out[330]=",ExpressionUUID->"cea4572e-6a77-4824-9860-0f4ae84f6eff"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"cov4", "=",
+ RowBox[{"fitCov", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Most", "@",
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"2", ",",
+ RowBox[{"h", "[", "5", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "13"}]]}], "]"}], "[", "6", "]"}]}], "//.",
+ RowBox[{"rules", "[",
+ RowBox[{"h", "[", "5", "]"}], "]"}]}], ",", "m41"}], "]"}]}],
+ ";"}]], "Input",
+ CellChangeTimes->{{3.842003556268217*^9, 3.842003574458744*^9}, {
+ 3.842003613387485*^9, 3.842003621275626*^9}, {3.842003848840043*^9,
+ 3.8420038643919992`*^9}, {3.8420041190780354`*^9, 3.842004121196991*^9}, {
+ 3.842004450452117*^9, 3.842004464579197*^9}, {3.842004507220078*^9,
+ 3.8420045176681633`*^9}, {3.842004562286165*^9, 3.842004584461378*^9}, {
+ 3.842004629182274*^9, 3.842004645582592*^9}, {3.842004748440856*^9,
+ 3.842004775096924*^9}, {3.842069284175571*^9, 3.84206931947155*^9}, {
+ 3.8420696058371563`*^9, 3.8420696355333242`*^9}, {3.8420696838306513`*^9,
+ 3.842069697694405*^9}, {3.8420698638255777`*^9, 3.842069877409816*^9}, {
+ 3.84207020030344*^9, 3.842070200719542*^9}},
CellLabel->
- "Out[126]=",ExpressionUUID->"654d71eb-dee5-458e-8255-34110ac2bc9b"]
+ "In[331]:=",ExpressionUUID->"2eaa6819-866a-4b8d-af81-f5a819bfb53b"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "Inverse", "sing",
+ "\"Matrix \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \
+RowBox[{\\\"3.90537836598697542184599552`60.*^27\\\", \\\",\\\", \
+\\\"1.21407757304491654841892864`60.*^27\\\", \\\",\\\", \
+\\\"3.102815550668907353915523072`60.*^27\\\", \\\",\\\", \
+\\\"3.47184832375979988563787776`60.*^27\\\", \\\",\\\", \
+\\\"5.263252148853968738937995264`60.*^27\\\", \\\",\\\", \
+\\\"2.131349804755593403979268096`60.*^27\\\", \\\",\\\", \
+\\\"6.17000870298589683072892928`60.*^27\\\", \\\",\\\", \
+\\\"1.6315334618790885250142568448`60.*^28\\\", \\\",\\\", \
+\\\"4.09130220290842244008640512`60.*^28\\\", \\\",\\\", \
+\\\"9.907541864121657070429667328`60.*^28\\\", \\\",\\\", RowBox[{\\\"\
+\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}], \\\
+\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"9\\\", \
+\\\"\[RightSkeleton]\\\"}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\
+\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) is singular.\"", 2, 331,
+ 345, 31641741301462687909, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.8420693003724623`*^9, 3.842069307508058*^9},
+ 3.842069528290135*^9, 3.8420696280368977`*^9, 3.8420696614345512`*^9,
+ 3.842069712930028*^9, 3.8420699776463957`*^9, 3.84207031897926*^9,
+ 3.842079153368966*^9},
+ CellLabel->
+ "During evaluation of \
+In[331]:=",ExpressionUUID->"0eccf485-37e5-4032-93ca-ec5f8d761898"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "TensorTranspose", "symmperm",
+ "\"Invalid permutation or symmetry generator \\!\\(\\*RowBox[{\\\"{\\\", \
+RowBox[{RowBox[{\\\"Cycles\\\", \\\"[\\\", RowBox[{\\\"{\\\", \\\"}\\\"}], \\\
+\"]\\\"}], \\\",\\\", \\\"2\\\"}], \\\"}\\\"}]\\).\"", 2, 331, 346,
+ 31641741301462687909, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.8420693003724623`*^9, 3.842069307508058*^9},
+ 3.842069528290135*^9, 3.8420696280368977`*^9, 3.8420696614345512`*^9,
+ 3.842069712930028*^9, 3.8420699776463957`*^9, 3.84207031897926*^9,
+ 3.842079153379635*^9},
+ CellLabel->
+ "During evaluation of \
+In[331]:=",ExpressionUUID->"3a340bbf-3691-4a32-a639-43b1cb496d4b"]
}, Open ]],
Cell[CellGroupData[{
@@ -4248,23 +5054,25 @@ Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Total", "[",
- SuperscriptBox[
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "5", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "15"}]]}], "]"}], "[", "6", "]"}], "2"], "]"}], "//.",
+ RowBox[{"Most", "@",
+ SuperscriptBox[
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"2", ",",
+ RowBox[{"h", "[", "5", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "15"}]]}], "]"}], "[", "6", "]"}], "2"]}], "]"}], "//.",
RowBox[{"rules", "[",
RowBox[{"h", "[", "5", "]"}], "]"}]}], "/.", "m41"}]], "Input",
- CellChangeTimes->{{3.841827810752561*^9, 3.841827812064506*^9}},
+ CellChangeTimes->{{3.841827810752561*^9, 3.841827812064506*^9}, {
+ 3.84199560027389*^9, 3.841995600809766*^9}},
CellLabel->
- "In[127]:=",ExpressionUUID->"95183f9d-14a9-49a1-839d-4444c8816906"],
+ "In[113]:=",ExpressionUUID->"95183f9d-14a9-49a1-839d-4444c8816906"],
-Cell[BoxData["543.000787362022`"], "Output",
- CellChangeTimes->{3.84182781294737*^9},
+Cell[BoxData["539.0750104142268`"], "Output",
+ CellChangeTimes->{3.84182781294737*^9, 3.8419956716899233`*^9},
CellLabel->
- "Out[127]=",ExpressionUUID->"8587fd91-aaae-4609-8a53-56d0d1a38c08"]
+ "Out[113]=",ExpressionUUID->"12e1a994-ab05-4127-8c67-c64bc0481031"]
}, Open ]],
Cell[CellGroupData[{
@@ -4274,246 +5082,183 @@ Cell[BoxData[
RowBox[{"annealFit", "[",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "7", "]"}], ",", "\[Delta]"}], "]"}], "[", "7",
- "]"}], "//.",
+ RowBox[{"Most", "@",
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"4", ",",
+ RowBox[{"h", "[", "5", "]"}], ",", "\[Delta]"}], "]"}], "[", "7",
+ "]"}]}], "//.",
RowBox[{"rules", "[",
- RowBox[{"h", "[", "7", "]"}], "]"}]}], ",", "\[Delta]", ",",
+ RowBox[{"h", "[", "5", "]"}], "]"}]}], ",", "\[Delta]", ",",
RowBox[{"Join", "[",
RowBox[{
RowBox[{"m4", "[",
RowBox[{"[", "2", "]"}], "]"}], ",",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- RowBox[{"gC", "[", "6", "]"}], "->", "0"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "7", "]"}], "->", "0"}]}], "}"}]}], "]"}]}],
- "]"}]}]], "Input",
+ RowBox[{"{", "}"}]}], "]"}]}], "]"}]}]], "Input",
CellChangeTimes->CompressedData["
-1:eJxTTMoPSmViYGCQAGIQLT+x/Fj/vDeOav/fnAHRZXdv3AfRpu8nPATReZ1C
-z0G0EFvcCxC9w1rlG4i2kL//HUQ/3tarNwFIiySIGIDotoLb63cBaZ0rjzaB
-6EOd1x6AaLaN/8C0/bV6991AeoVbrxeI/iSy1+0BkOZKK/UA0cfDKtpAtGio
-dDuItu29Oh9E3377C0xfe+q68xGQfu3KvQtEn2UqOQCipwicPgKi14pW5DDP
-f+N4rLokF0TfUdpswwKkOaS8bUH0l4cBniA6wW26L4g+vTY3BETrxkaEguhj
-My+68ALpE+9z3EC0Sdi8Bc1A+vhnycUg2u6Xz5I2IG10/R6YfrMoyK8dSGfO
-FfYH0VtkdkWC6OvG92NB9Pql2yZsAdKc91dNBNHiV0N2gOgj5Xt2gmgA+lTW
-wA==
+1:eJwdxVkow3EAB/AZzZXSbInJWPLkWO4YmmyOudK25oFQVmpGmll58CCTskwp
+eXDkKJTmSsyRpE2Nohjl2JCo/bViTa0cv+8ePn0SWzvr2+g0Gi2ewNyxXsvo
+NCVM/qPOsPbh1oGz3cYnrB5mvmEmo+kd7xQkeXEe1/GNX7YNaUYyq5nFx/qu
+O5OZnHL1vIGPh+1OzFj/9V9s7y/bIy+JDZX4k3UgdpLDlD3l2CrX6TFbxhnC
+hYbrGXz34fNvfxXtPpNdonAzPqdrjvB4pO0Er7J1qsAZSmjp03Tge96mIIgc
+EispxJ6nugrcLJ6oxrbVDilObVTIsGXysjSCfOpWiXGWfHp2gGz9ipnHRb6q
+BT054+bRPzVXXzNEbp+KqsVbceYGfJPpaMSmxW3jFjnUsTKGo6+lO/ikd38X
+548fahmzlFDVYvNvvig14RFXwBp+UbO5weQw+mACVkZnl+GSKJkEazkCTzr5
+NTfHi7uXf+R8cqWPp8D/yyYCcQ==
"],
CellLabel->
- "In[175]:=",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"],
-
-Cell[BoxData[
- TemplateBox[{
- "CompiledFunction", "cfn",
- "\"Numerical error encountered at instruction \
-\\!\\(\\*RowBox[{\\\"295\\\"}]\\); proceeding with uncompiled evaluation.\"",
- 2, 175, 175, 31640151626685725371, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.841733963748535*^9, 3.841735325334972*^9,
- 3.841735380183619*^9, 3.8417354442440033`*^9, 3.8418280236213093`*^9,
- 3.8418283418822727`*^9},
- CellLabel->
- "During evaluation of \
-In[175]:=",ExpressionUUID->"41668fb4-8f9f-4c09-b1cd-03ad9ef4c0e9"],
-
-Cell[BoxData[
- TemplateBox[{
- "CompiledFunction", "cfn",
- "\"Numerical error encountered at instruction \
-\\!\\(\\*RowBox[{\\\"295\\\"}]\\); proceeding with uncompiled evaluation.\"",
- 2, 175, 176, 31640151626685725371, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.841733963748535*^9, 3.841735325334972*^9,
- 3.841735380183619*^9, 3.8417354442440033`*^9, 3.8418280236213093`*^9,
- 3.8418283449623537`*^9},
- CellLabel->
- "During evaluation of \
-In[175]:=",ExpressionUUID->"ca915e3a-7833-4a4f-a0ed-814ea3e75567"],
-
-Cell[BoxData[
- TemplateBox[{
- "CompiledFunction", "cfn",
- "\"Numerical error encountered at instruction \
-\\!\\(\\*RowBox[{\\\"295\\\"}]\\); proceeding with uncompiled evaluation.\"",
- 2, 175, 177, 31640151626685725371, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.841733963748535*^9, 3.841735325334972*^9,
- 3.841735380183619*^9, 3.8417354442440033`*^9, 3.8418280236213093`*^9,
- 3.841828346039682*^9},
- CellLabel->
- "During evaluation of \
-In[175]:=",ExpressionUUID->"05c2fd8d-fd1a-4756-b04a-e8537047f74e"],
+ "In[718]:=",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"],
Cell[BoxData[
TemplateBox[{
- "General", "stop",
- "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"CompiledFunction\\\", \
-\\\"::\\\", \\\"cfn\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \
-this calculation.\"", 2, 175, 178, 31640151626685725371, "Local"},
+ "General", "munfl",
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.4658541919328716`*^-307\
+\\\"}]\\) is too small to represent as a normalized machine number; precision \
+may be lost.\"", 2, 718, 683, 31641741301462687909, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.841733963748535*^9, 3.841735325334972*^9,
- 3.841735380183619*^9, 3.8417354442440033`*^9, 3.8418280236213093`*^9,
- 3.8418283470403*^9},
+ CellChangeTimes->{3.84199743256188*^9, 3.842080733370126*^9,
+ 3.842081527808547*^9},
CellLabel->
"During evaluation of \
-In[175]:=",ExpressionUUID->"f1fa7de1-abe8-4fbe-a3b9-7254834db41f"],
+In[718]:=",ExpressionUUID->"5b0a31b1-0147-4c6b-8c71-77e8d16a3fe0"],
Cell[BoxData[
TemplateBox[{
- "CompiledFunction", "cfne",
- "\"Numerical error encountered; proceeding with uncompiled evaluation.\"",
- 2, 175, 179, 31640151626685725371, "Local"},
+ "General", "munfl",
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \
+\\\"7.329270959664358`*^-308\\\"}]\\) is too small to represent as a \
+normalized machine number; precision may be lost.\"", 2, 718, 684,
+ 31641741301462687909, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.841733963748535*^9, 3.841735325334972*^9,
- 3.841735380183619*^9, 3.8417354442440033`*^9, 3.8418280236213093`*^9,
- 3.8418283497399054`*^9},
+ CellChangeTimes->{3.84199743256188*^9, 3.842080733370126*^9,
+ 3.842081528818989*^9},
CellLabel->
"During evaluation of \
-In[175]:=",ExpressionUUID->"6fece7d9-7a00-4299-9f04-f5fb8de0cd65"],
+In[718]:=",ExpressionUUID->"c7b8c0bc-4211-4848-8c36-3dde2258f6ab"],
Cell[BoxData[
TemplateBox[{
"General", "munfl",
- "\"\\!\\(\\*FractionBox[\\\"1\\\", \
-SuperscriptBox[\\\"2.304509622488196`*^53\\\", \\\"6\\\"]]\\) is too small to \
-represent as a normalized machine number; precision may be lost.\"", 2, 175,
- 180, 31640151626685725371, "Local"},
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \
+\\\"1.209312973093438`*^-307\\\"}]\\) is too small to represent as a \
+normalized machine number; precision may be lost.\"", 2, 718, 685,
+ 31641741301462687909, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.841733963748535*^9, 3.841735325334972*^9,
- 3.841735380183619*^9, 3.8417354442440033`*^9, 3.8418280236213093`*^9,
- 3.841828350760833*^9},
+ CellChangeTimes->{3.84199743256188*^9, 3.842080733370126*^9,
+ 3.842081529830113*^9},
CellLabel->
"During evaluation of \
-In[175]:=",ExpressionUUID->"778f2f82-5b97-4ffc-b743-59c8fccbe5dc"],
+In[718]:=",ExpressionUUID->"98869ba0-354d-4f3a-83b1-2e3506a2dc77"],
Cell[BoxData[
TemplateBox[{
- "General", "munfl",
- "\"\\!\\(\\*FractionBox[\\\"1\\\", \
-SuperscriptBox[\\\"2.304509622488196`*^53\\\", \\\"6\\\"]]\\) is too small to \
-represent as a normalized machine number; precision may be lost.\"", 2, 175,
- 181, 31640151626685725371, "Local"},
+ "General", "stop",
+ "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
+\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
+during this calculation.\"", 2, 718, 686, 31641741301462687909, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.841733963748535*^9, 3.841735325334972*^9,
- 3.841735380183619*^9, 3.8417354442440033`*^9, 3.8418280236213093`*^9,
- 3.841828351762226*^9},
+ CellChangeTimes->{3.84199743256188*^9, 3.842080733370126*^9,
+ 3.842081530831411*^9},
CellLabel->
"During evaluation of \
-In[175]:=",ExpressionUUID->"f02a9f16-0650-4b8e-8c23-94f56cff9fd7"],
+In[718]:=",ExpressionUUID->"741c2835-6f2b-4d3e-ad9a-43338ec14bae"],
-Cell[BoxData[
- TemplateBox[{
- "General", "munfl",
- "\"\\!\\(\\*FractionBox[\\\"1\\\", \
-SuperscriptBox[\\\"2.304509622488196`*^53\\\", \\\"7\\\"]]\\) is too small to \
-represent as a normalized machine number; precision may be lost.\"", 2, 175,
- 182, 31640151626685725371, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.841733963748535*^9, 3.841735325334972*^9,
- 3.841735380183619*^9, 3.8417354442440033`*^9, 3.8418280236213093`*^9,
- 3.841828352763657*^9},
+Cell[BoxData["1.300043772695784`"], "Print",
+ CellChangeTimes->{3.8419974359052467`*^9, 3.8420807368639727`*^9,
+ 3.842081531403545*^9},
CellLabel->
"During evaluation of \
-In[175]:=",ExpressionUUID->"4e59c2e0-2258-40e7-94de-27b4487488c2"],
+In[718]:=",ExpressionUUID->"42357edc-9ab2-4f72-958b-df58546276b5"],
Cell[BoxData[
TemplateBox[{
- "General", "stop",
- "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
-\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
-during this calculation.\"", 2, 175, 183, 31640151626685725371, "Local"},
+ "CompiledFunction", "cfn",
+ "\"Numerical error encountered at instruction \
+\\!\\(\\*RowBox[{\\\"246\\\"}]\\); proceeding with uncompiled evaluation.\"",
+ 2, 718, 687, 31641741301462687909, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.841733963748535*^9, 3.841735325334972*^9,
- 3.841735380183619*^9, 3.8417354442440033`*^9, 3.8418280236213093`*^9,
- 3.8418283537649527`*^9},
+ CellChangeTimes->{3.84199743256188*^9, 3.842080733370126*^9,
+ 3.842081540925908*^9},
CellLabel->
"During evaluation of \
-In[175]:=",ExpressionUUID->"b661f0d6-f0ad-49ab-ba5e-571ab55dc3d4"],
+In[718]:=",ExpressionUUID->"3cecf403-7c75-47bf-89f5-b852f5629786"],
Cell[CellGroupData[{
-Cell[BoxData["1.9017900407346886`"], "Print",
- CellChangeTimes->{3.8417354284961843`*^9, 3.841828027284082*^9,
- 3.8418283736957903`*^9},
+Cell[BoxData["4058.1674030131294`"], "Print",
+ CellChangeTimes->{3.8419974359052467`*^9, 3.8420807368639727`*^9,
+ 3.8420815474157667`*^9},
CellLabel->
"During evaluation of \
-In[175]:=",ExpressionUUID->"2771a46a-e776-4ace-a985-62647351a33a"],
+In[718]:=",ExpressionUUID->"ce671eaa-753d-4558-9b0f-49e9a27c349b"],
-Cell[BoxData["1.902111085802813`"], "Print",
- CellChangeTimes->{3.8417354284961843`*^9, 3.841828027284082*^9,
- 3.841828397004847*^9},
+Cell[BoxData["0.0001651253458422503`"], "Print",
+ CellChangeTimes->{3.8419974359052467`*^9, 3.8420807368639727`*^9,
+ 3.842081565131521*^9},
CellLabel->
"During evaluation of \
-In[175]:=",ExpressionUUID->"5fd5c7c5-8b0e-49d6-ad3d-e57ec084ccd1"],
+In[718]:=",ExpressionUUID->"7273914d-e0db-4df1-b671-1354048e6b63"],
-Cell[BoxData["1.9022669784689206`"], "Print",
- CellChangeTimes->{3.8417354284961843`*^9, 3.841828027284082*^9,
- 3.841828397756584*^9},
+Cell[BoxData["0.0054670786251654994`"], "Print",
+ CellChangeTimes->{3.8419974359052467`*^9, 3.8420807368639727`*^9,
+ 3.842081565490107*^9},
CellLabel->
"During evaluation of \
-In[175]:=",ExpressionUUID->"7f628f55-8395-4206-8d7f-3b6b90a6d353"],
+In[718]:=",ExpressionUUID->"ee0d1163-5db0-4416-aee1-ce8ba2780c0b"],
-Cell[BoxData["1.903074502481198`"], "Print",
- CellChangeTimes->{3.8417354284961843`*^9, 3.841828027284082*^9,
- 3.841828413555407*^9},
+Cell[BoxData["53.01109667439369`"], "Print",
+ CellChangeTimes->{3.8419974359052467`*^9, 3.8420807368639727`*^9,
+ 3.8420815658374443`*^9},
CellLabel->
"During evaluation of \
-In[175]:=",ExpressionUUID->"0347675c-f132-46eb-ac5a-2a9d1d0bbc75"],
-
-Cell[BoxData["3.7653774164246467`"], "Print",
- CellChangeTimes->{3.8417354284961843`*^9, 3.841828027284082*^9,
- 3.841828415153451*^9},
- CellLabel->
- "During evaluation of \
-In[175]:=",ExpressionUUID->"49328f8b-e9ec-473a-9744-d85b769718df"]
+In[718]:=",ExpressionUUID->"67e8fb8b-b447-4416-a0ac-8c428a22e9da"]
}, Open ]],
Cell[BoxData[
RowBox[{"{",
- RowBox[{"3.7653774164246467`", ",",
+ RowBox[{"53.01109667439369`", ",",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.4204467431818846`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.1981981955360953`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3164773519677373`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19674024733498047`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.4450422389418804`"}]}], ",",
+ RowBox[{"-", "2.5087259682394336`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.572445400344034`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6699087235507812`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2775034194090796`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5627107775357804`"}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.17285125402638662`"}]}], ",",
+ RowBox[{"-", "0.25692856750569926`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.13148693447359153`"}], ",",
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.03954968217627526`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.10486243552710944`"}]}], ",",
+ RowBox[{"A", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.14542105248902384`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.057340836382735086`"}],
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.004710498723172338`"}],
",",
RowBox[{
- RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.019458301469912204`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.003691983444951542`"}],
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0015928662945959684`"}],
",",
RowBox[{
- RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
- RowBox[{"-", "0.00029987006205201466`"}]}]}], "}"}]}], "}"}]], "Output",\
-
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.00040768830051065327`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.0037291339270268315`"}]}],
+ "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.8413939151770983`*^9, 3.841398118546665*^9,
3.841398237839446*^9, 3.8413995587444963`*^9, 3.8414653249934998`*^9,
3.841466926914564*^9, 3.841466986860621*^9, 3.841467043482155*^9,
3.84146709424573*^9, 3.841485467638752*^9, 3.841727748862999*^9,
3.841727845501019*^9, 3.8417339203216867`*^9, 3.841734014800623*^9,
3.841735351995893*^9, 3.8417353959882593`*^9, 3.8417354896902313`*^9,
- 3.841828070375112*^9, 3.841828416853786*^9},
+ 3.841828070375112*^9, 3.841828416853786*^9, 3.841995813054018*^9,
+ 3.841996254320202*^9, 3.841997122449973*^9, 3.841997394648814*^9,
+ 3.841997465320455*^9, 3.842080768211817*^9, 3.842081567020575*^9},
CellLabel->
- "Out[175]=",ExpressionUUID->"c78d02da-d4d4-4c03-afa0-380e8a60c5de"]
+ "Out[718]=",ExpressionUUID->"14770430-141b-4626-8333-163b114c5340"]
}, Open ]],
Cell[CellGroupData[{
@@ -4591,72 +5336,97 @@ Cell[BoxData[
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}},
- CellLabel->
- "In[176]:=",ExpressionUUID->"d76e85cc-6ecb-4d98-b567-57b256fbb910"],
+ 3.841828101110017*^9}, {3.841828420412331*^9, 3.8418284236037703`*^9}, {
+ 3.84199569621169*^9, 3.841995696627564*^9}, {3.841996143668233*^9,
+ 3.841996146667862*^9}, {3.8419971248303843`*^9, 3.841997129597876*^9}, {
+ 3.8419973660032587`*^9,
+ 3.841997367370261*^9}},ExpressionUUID->"d76e85cc-6ecb-4d98-b567-\
+57b256fbb910"],
Cell[BoxData[
TemplateBox[{
"FindRoot", "precw",
- "\"The precision of the argument function ({<<694750544 bytes>>}) is less \
-than WorkingPrecision (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 176, 184,
- 31640151626685725371, "Local"},
+ "\"The precision of the argument function ({<<694195360 bytes>>}) is less \
+than WorkingPrecision (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 234, 179,
+ 31641252845358461867, "Local"},
"MessageTemplate"]], "Message", "MSG",
CellChangeTimes->{{3.841826482012022*^9, 3.8418265982231407`*^9},
3.8418266678489017`*^9, {3.841826768683412*^9, 3.841826780765348*^9}, {
3.841826898513888*^9, 3.8418269227694597`*^9}, 3.841826973347541*^9,
3.84182705459556*^9, 3.841827366949621*^9, 3.8418276818272257`*^9,
- 3.8418281038913*^9, 3.8418284270510178`*^9},
+ 3.8418281038913*^9, 3.8418284270510178`*^9, 3.841995894640788*^9,
+ 3.841996150479692*^9, 3.841996267313401*^9, 3.841997134669332*^9},
CellLabel->
"During evaluation of \
-In[176]:=",ExpressionUUID->"d81d89d5-0b6f-4772-bbbc-daf7132151e3"],
+In[234]:=",ExpressionUUID->"175fdfae-18d1-4457-aa55-c870b6da50e3"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "FindRoot", "lstol",
+ "\"The line search decreased the step size to within tolerance specified \
+by AccuracyGoal and PrecisionGoal but was unable to find a sufficient \
+decrease in the merit function. You may need more than \
+\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\) digits of working precision to meet these \
+tolerances.\"", 2, 234, 180, 31641252845358461867, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.841826482012022*^9, 3.8418265982231407`*^9},
+ 3.8418266678489017`*^9, {3.841826768683412*^9, 3.841826780765348*^9}, {
+ 3.841826898513888*^9, 3.8418269227694597`*^9}, 3.841826973347541*^9,
+ 3.84182705459556*^9, 3.841827366949621*^9, 3.8418276818272257`*^9,
+ 3.8418281038913*^9, 3.8418284270510178`*^9, 3.841995894640788*^9,
+ 3.841996150479692*^9, 3.841996267313401*^9, 3.84199727289795*^9},
+ CellLabel->
+ "During evaluation of \
+In[234]:=",ExpressionUUID->"f2c58cd8-5d0a-4e2b-be83-442b509d25f4"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "\[Theta]c", "\[Rule]", "1.42044674318115356272976761912057586183`20."}],
+ "\[Theta]c", "\[Rule]", "1.42008555446741263567177074149118077764`20."}],
",",
RowBox[{
- "\[Theta]0", "\[Rule]", "0.19819819553549351064564265729578369726`20."}],
+ "\[Theta]0", "\[Rule]", "0.19820209948293445086352462252086115699`20."}],
",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.44504223894882042249301971008368074851`20."}]}], ",",
+ RowBox[{"-", "2.44625506206449284445711231081422546021`20."}]}], ",",
RowBox[{
RowBox[{"A", "[", "1", "]"}], "\[Rule]",
- "1.57244540035740267447077726445600167892`20."}], ",",
+ "1.5741615351149518036319399036224367047`20."}], ",",
RowBox[{
RowBox[{"A", "[", "2", "]"}], "\[Rule]",
- "0.27750341940590951489020871879579328279`20."}], ",",
+ "0.27738017368715762197045361032876031524`20."}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.17285125404536787104525273396059156131`20."}]}], ",",
+ RowBox[{"-", "0.17346968249318400380426496212342946842`20."}]}], ",",
RowBox[{
RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
- "0.13148693579215256906092975042260812883`20."}], ",",
+ "0.13238062753409191956275387052212390878`20."}], ",",
RowBox[{
RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.10486243853305635858930485128707134385`20."}]}], ",",
+ RowBox[{"-", "0.1057754994175690134187923048570828925`20."}]}], ",",
RowBox[{
RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
- "0.05734083915717952000654305751880391791`20."}], ",",
+ "0.05791358962448711707982481403259859206`20."}], ",",
RowBox[{
RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.01945830275547855951414684725017805382`20."}]}], ",",
+ RowBox[{"-", "0.01967138474661253931127129750271063706`20."}]}], ",",
RowBox[{
RowBox[{"gC", "[", "6", "]"}], "\[Rule]",
- "0.00369198374355999389580092851673014065`20."}], ",",
+ "0.0037353392648868206321241483308207533`20."}], ",",
RowBox[{
RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
- RowBox[{"-", "0.00029987008985370817229762214144924283`20."}]}]}],
+ RowBox[{"-", "0.00030359903581788499578991824291347732`20."}]}]}],
"}"}]], "Output",
CellChangeTimes->{{3.841826482020074*^9, 3.8418265862239122`*^9}, {
3.841826659980463*^9, 3.841826667924841*^9}, {3.841826769333158*^9,
3.841826781359291*^9}, {3.841826901984071*^9, 3.841826926295443*^9},
3.841826976960929*^9, 3.841827061597597*^9, 3.841827625662114*^9,
- 3.841827712512493*^9, 3.841828205721519*^9, 3.841828563871601*^9},
+ 3.841827712512493*^9, 3.841828205721519*^9, 3.841828563871601*^9,
+ 3.84199603644456*^9, 3.841996151769075*^9, 3.8419963729530487`*^9,
+ 3.8419972731107903`*^9},
CellLabel->
- "Out[176]=",ExpressionUUID->"e3396b93-78fe-43c2-9e7f-cba4d01a8c7b"]
+ "Out[234]=",ExpressionUUID->"131bca88-c755-43c5-b416-18a9bd9854f6"]
}, Open ]],
Cell[CellGroupData[{
@@ -4665,24 +5435,28 @@ Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Total", "[",
- SuperscriptBox[
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "7", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "15"}]]}], "]"}], "[", "7", "]"}], "2"], "]"}], "//.",
+ RowBox[{"Most", "@",
+ SuperscriptBox[
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"2", ",",
+ RowBox[{"h", "[", "7", "]"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "15"}]]}], "]"}], "[", "7", "]"}], "2"]}], "]"}], "//.",
RowBox[{"rules", "[",
RowBox[{"h", "[", "7", "]"}], "]"}]}], "/.", "m51"}]], "Input",
CellChangeTimes->{{3.841828235056446*^9, 3.841828236024247*^9}, {
- 3.8418284280679817`*^9, 3.8418284318836603`*^9}},
+ 3.8418284280679817`*^9, 3.8418284318836603`*^9}, {3.8419961190031757`*^9,
+ 3.841996124843244*^9}, {3.8419973280981216`*^9, 3.84199732852144*^9}},
CellLabel->
- "In[177]:=",ExpressionUUID->"a65b95cb-3d7a-457b-baa4-3dfcacab2a82"],
+ "In[236]:=",ExpressionUUID->"a65b95cb-3d7a-457b-baa4-3dfcacab2a82"],
-Cell[BoxData["1.9021116437200405`"], "Output",
- CellChangeTimes->{3.841828237813458*^9, 3.841828565499898*^9},
+Cell[BoxData["3.838922426094726`"], "Output",
+ CellChangeTimes->{
+ 3.841828237813458*^9, 3.841828565499898*^9, {3.8419961211792307`*^9,
+ 3.841996126594369*^9}, {3.841997324201659*^9, 3.841997330189872*^9}},
CellLabel->
- "Out[177]=",ExpressionUUID->"5dbdd46f-88a3-41c7-a9b9-703ff7b38428"]
+ "Out[236]=",ExpressionUUID->"ca8f15d4-0701-43b7-826f-81e998eb533e"]
}, Open ]],
Cell[CellGroupData[{
@@ -4691,14 +5465,26 @@ Cell[BoxData[
RowBox[{"m6", "=",
RowBox[{"annealFit", "[",
RowBox[{
- RowBox[{
+ RowBox[{"Join", "[",
RowBox[{
- RowBox[{"res", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "9", "]"}], ",", "\[Delta]"}], "]"}], "[", "8",
- "]"}], "//.",
- RowBox[{"rules", "[",
- RowBox[{"h", "[", "9", "]"}], "]"}]}], ",", "\[Delta]", ",",
+ RowBox[{
+ RowBox[{"Most", "@",
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"5", ",",
+ RowBox[{"h", "[", "6", "]"}], ",", "\[Delta]"}], "]"}], "[", "8",
+ "]"}]}], "//.",
+ RowBox[{"rules", "[",
+ RowBox[{"h", "[", "6", "]"}], "]"}]}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"gC", "[", "i", "]"}],
+ RowBox[{"(",
+ RowBox[{"i", "!"}], ")"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "6"}], "}"}]}], "]"}]}], "]"}], ",",
+ "\[Delta]", ",",
RowBox[{"Join", "[",
RowBox[{
RowBox[{"m5", "[",
@@ -4706,161 +5492,232 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- RowBox[{"gC", "[", "8", "]"}], "->", "0"}], ",",
+ RowBox[{"gC", "[", "6", "]"}], "->", "0"}], ",",
RowBox[{
- RowBox[{"gC", "[", "9", "]"}], "->", "0"}]}], "}"}]}], "]"}]}],
+ RowBox[{"A", "[", "5", "]"}], "->", "0"}]}], "}"}]}], "]"}]}],
"]"}]}]], "Input",
CellChangeTimes->CompressedData["
-1:eJwdz00ow3EAxvGFKRslzfsBJa//bFNqtZAwQg6KuGhbkQvzbrXDrGY4LP/V
-xGFZlHAa2rxMxAh5OVgsWWy2MDYpByLh9/wPT5/jtydDrmhoC2OxWGlkjIah
-w4mZUFnWX+gMDt5ee2DRG30Pu8bjnmBcZGsAbogzP6AozfMJ/Wv6AprIk/IE
-UNftttiJ1KVvFTrGXV4YufLLWOpSV20RFyX6GvjO25Z4iZz2gWp41KTUwfjG
-1FFYrL8yQ/frN6ProXLTRwxWcu3wPKx/FxpjTw/gDS2w+Ynsu0LG5YlkO0z/
-Uu9Ar2RhONxMfiZ9aKCqrkUWQTT91MthgsHVC61iTh/suAjXwlx2MWOJxbkH
-l5Y1DljBnzVGE098c4ymsWluDNHgzImGcqGkGVI1SsZE/+yjlpjSHRGADfNa
-zggxqjzIhSFnOR9ms/kCmB/ssenQLV1nNKosF1Cat++EJtNk5yjxhaK7oHBK
-4bWiRx3fQ1GtLABr6aln+A/+sw4V
+1:eJwdz01I2nEAxnGpbEwLhrO21cEGkrVZ2mAQhEWUbtQYo1g02IYKkw5p7TWZ
+RAVmeZD+guIOUrqxN3bQwl7mmGwuMpo7KJtEUvlCZekYtLC2Rev3/A8Pn+OX
+57yyp+1eDoPB4JNBnrlvYWw801j+PxOET1aX1+HlX1QcaoycLcjJv5uCc3X8
+LKzlre/D5IypmiJy5VwxNPRGXV6i8HtiCvqNkRjMnzyibYgMXPlAfCMztcBd
+7kdZjMhSPb4KAx1aAyy6WToCJaYfEzD68y9tZEP6PkFMS9le+C3n0SdoOfV1
+Hq5Q4ukkkbl2idY9ds4Ly/4M+GBM9nowd4L8PJsdgrprtxR5RPvhdSUsNkce
+QE8d6yHsCuXqYSVTQlvvCn+Gb91DftgscloKiEuJ57T20WfsQqI5XFEAlTWy
+Tihs0dKeSTo39cSS3rwUbHupZw0TTzal2TATbhJBAVMkhhfT96cN6DbM0lp0
+rhCUX/gShna7VT1C3BFSGlhj64l50BMuxmFtqyIFWynbNhREA7dPODKNfNXe
+HRh8dfq3iHjDU0ZbZX3RLSaa/vnUMOvvfwq10nYd9Lnj4/DgncABjwH3VjhM
+
"],
CellLabel->
- "In[211]:=",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"],
+ "In[751]:=",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"],
Cell[BoxData[
TemplateBox[{
"General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.5373556873898448`*^-307\
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.8862120135138032`*^-307\
\\\"}]\\) is too small to represent as a normalized machine number; precision \
-may be lost.\"", 2, 211, 195, 31640151626685725371, "Local"},
+may be lost.\"", 2, 751, 710, 31641741301462687909, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.841829215087719*^9},
+ CellChangeTimes->{3.841829215087719*^9, 3.841997708933385*^9,
+ 3.84208185991401*^9, 3.842082154903194*^9},
CellLabel->
"During evaluation of \
-In[211]:=",ExpressionUUID->"43154a2d-4b29-45a0-a434-ee75a37ea5a6"],
+In[751]:=",ExpressionUUID->"7022a1c2-cb5c-4ed6-aedf-2be4e100d2c2"],
Cell[BoxData[
TemplateBox[{
"General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.0249037915932299`*^-307\
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"2.1050413386526948`*^-307\
\\\"}]\\) is too small to represent as a normalized machine number; precision \
-may be lost.\"", 2, 211, 196, 31640151626685725371, "Local"},
+may be lost.\"", 2, 751, 711, 31641741301462687909, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.841829216111751*^9},
+ CellChangeTimes->{3.841829215087719*^9, 3.841997708933385*^9,
+ 3.84208185991401*^9, 3.842082155923115*^9},
CellLabel->
"During evaluation of \
-In[211]:=",ExpressionUUID->"0193046b-c796-40a0-8d34-92b38c08612e"],
+In[751]:=",ExpressionUUID->"5ba58f54-0c40-4b49-91c2-0fd5f3844bbd"],
Cell[BoxData[
TemplateBox[{
"General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"2.0403955970057664`*^-307\
-\\\"}]\\) is too small to represent as a normalized machine number; precision \
-may be lost.\"", 2, 211, 197, 31640151626685725371, "Local"},
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \
+\\\"9.431060067569016`*^-308\\\"}]\\) is too small to represent as a \
+normalized machine number; precision may be lost.\"", 2, 751, 712,
+ 31641741301462687909, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.841829217136343*^9},
+ CellChangeTimes->{3.841829215087719*^9, 3.841997708933385*^9,
+ 3.84208185991401*^9, 3.842082156924309*^9},
CellLabel->
"During evaluation of \
-In[211]:=",ExpressionUUID->"4eb58821-12d5-4a9d-a211-26a420c2aae5"],
+In[751]:=",ExpressionUUID->"ecac759d-6cb0-4dc2-aeac-47c178646a12"],
Cell[BoxData[
TemplateBox[{
"General", "stop",
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
-during this calculation.\"", 2, 211, 198, 31640151626685725371, "Local"},
+during this calculation.\"", 2, 751, 713, 31641741301462687909, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.8418292181369658`*^9},
+ CellChangeTimes->{3.841829215087719*^9, 3.841997708933385*^9,
+ 3.84208185991401*^9, 3.842082157925557*^9},
+ CellLabel->
+ "During evaluation of \
+In[751]:=",ExpressionUUID->"99b3ad8d-d501-4d2c-b5c7-95a58da32861"],
+
+Cell[BoxData["2.6390882544034686`"], "Print",
+ CellChangeTimes->{3.8418292198877277`*^9, 3.841997712748024*^9,
+ 3.8420818440330753`*^9, 3.842082158658132*^9},
CellLabel->
"During evaluation of \
-In[211]:=",ExpressionUUID->"49bff667-63d7-4760-978a-73a296ee578b"],
+In[751]:=",ExpressionUUID->"7e287192-653e-4602-a480-351190844d50"],
-Cell[BoxData["141.71521623560383`"], "Print",
- CellChangeTimes->{3.8418292198877277`*^9},
+Cell[BoxData[
+ TemplateBox[{
+ "CompiledFunction", "cfne",
+ "\"Numerical error encountered; proceeding with uncompiled evaluation.\"",
+ 2, 751, 714, 31641741301462687909, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.841829215087719*^9, 3.841997708933385*^9,
+ 3.84208185991401*^9, 3.842082174573023*^9},
CellLabel->
"During evaluation of \
-In[211]:=",ExpressionUUID->"a32f3152-51d5-4d8f-abff-ecbf1de0c45a"],
+In[751]:=",ExpressionUUID->"aa0c05da-cd9f-4901-b218-dd2e6c72f897"],
Cell[BoxData[
TemplateBox[{
"CompiledFunction", "cfn",
"\"Numerical error encountered at instruction \
-\\!\\(\\*RowBox[{\\\"345\\\"}]\\); proceeding with uncompiled evaluation.\"",
- 2, 211, 199, 31640151626685725371, "Local"},
+\\!\\(\\*RowBox[{\\\"275\\\"}]\\); proceeding with uncompiled evaluation.\"",
+ 2, 751, 715, 31641741301462687909, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.84182924147563*^9},
+ CellChangeTimes->{3.841829215087719*^9, 3.841997708933385*^9,
+ 3.84208185991401*^9, 3.8420821895892963`*^9},
CellLabel->
"During evaluation of \
-In[211]:=",ExpressionUUID->"6bb8fc13-d816-4592-82ed-6b658105114c"],
+In[751]:=",ExpressionUUID->"aefcd4e1-0ad9-41dc-8d9f-cecf959c8248"],
Cell[CellGroupData[{
-Cell[BoxData["143.15883458108507`"], "Print",
- CellChangeTimes->{3.8418293614419928`*^9},
+Cell[BoxData["58.36189484334191`"], "Print",
+ CellChangeTimes->{3.8418292198877277`*^9, 3.841997712748024*^9,
+ 3.8420818440330753`*^9, 3.8420822389568*^9},
CellLabel->
"During evaluation of \
-In[211]:=",ExpressionUUID->"e2626643-02b1-42d1-a109-9025993730a9"],
+In[751]:=",ExpressionUUID->"d624a023-7f0f-4e91-8f3f-60d7bf738292"],
-Cell[BoxData["143.37164075763874`"], "Print",
- CellChangeTimes->{3.841829430485454*^9},
+Cell[BoxData["58.32511543904032`"], "Print",
+ CellChangeTimes->{3.8418292198877277`*^9, 3.841997712748024*^9,
+ 3.8420818440330753`*^9, 3.842082269968614*^9},
CellLabel->
"During evaluation of \
-In[211]:=",ExpressionUUID->"44ecfe86-c61b-4b43-9afd-ff7bdde5e0f6"],
+In[751]:=",ExpressionUUID->"983aeed7-3c0b-4341-a483-0f2e86f19547"],
-Cell[BoxData["143.37249141895887`"], "Print",
- CellChangeTimes->{3.841829435336576*^9},
+Cell[BoxData["58.60750446923504`"], "Print",
+ CellChangeTimes->{3.8418292198877277`*^9, 3.841997712748024*^9,
+ 3.8420818440330753`*^9, 3.842082273035759*^9},
CellLabel->
"During evaluation of \
-In[211]:=",ExpressionUUID->"8dc8547d-7d28-4209-996f-f00c3583f4c6"],
+In[751]:=",ExpressionUUID->"52534976-7bf6-4a65-a8a7-38bcbdf1be65"],
-Cell[BoxData["149.10420227212848`"], "Print",
- CellChangeTimes->{3.84182947111211*^9},
+Cell[BoxData["2272.734589158684`"], "Print",
+ CellChangeTimes->{3.8418292198877277`*^9, 3.841997712748024*^9,
+ 3.8420818440330753`*^9, 3.842082274272003*^9},
CellLabel->
"During evaluation of \
-In[211]:=",ExpressionUUID->"86348a39-d046-406d-803b-3b303b6142ed"]
+In[751]:=",ExpressionUUID->"89ae812f-91c5-4c6e-87c6-de4b31b17e48"]
+}, Open ]]
}, Open ]],
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"m6", "=",
+ RowBox[{"{",
+ RowBox[{"2272.734589158684`", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3053061442708302`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19663560107595623`"}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{"-", "2.5368261599243653`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.7108160252330362`"}], ",",
+
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5926167832063681`"}], ",",
+
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.2812358144995081`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.04198949750026452`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.17345114501721076`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.0065596668614836505`"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.004317004580958006`"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0014157584142083521`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.006658268409302458`"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00012139778301924035`"}],
+ ",",
+ RowBox[{
+ RowBox[{"A", "[", "5", "]"}], "\[Rule]", "0.0009751352780293256`"}]}],
+ "}"}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.8420853047553797`*^9, 3.842085305299364*^9}},
+ CellLabel->"In[5]:=",ExpressionUUID->"7c2fae36-9969-45c8-be00-c728dc79c64c"],
+
Cell[BoxData[
RowBox[{"{",
- RowBox[{"149.10420227212848`", ",",
+ RowBox[{"2272.734589158684`", ",",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.4353023393451338`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19810750318237103`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3053061442708302`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19663560107595623`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.414145110467576`"}]}], ",",
+ RowBox[{"-", "2.5368261599243653`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5284785562366807`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.7108160252330362`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.27757284310876956`"}], ",",
-
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5926167832063681`"}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.15981661115475995`"}]}], ",",
+ RowBox[{"-", "0.2812358144995081`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.11177842464150112`"}], ",",
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.04198949750026452`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.08669227528395326`"}]}], ",",
+ RowBox[{"A", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.17345114501721076`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.048241027413658745`"}],
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.0065596668614836505`"}],
",",
RowBox[{
- RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.01763494503661643`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.004026665969714435`"}],
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.004317004580958006`"}],
",",
RowBox[{
- RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
- RowBox[{"-", "0.0005421762809782185`"}]}], ",",
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0014157584142083521`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.006658268409302458`"}], ",",
RowBox[{
- RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.00004156753418487688`"}],
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00012139778301924035`"}],
",",
RowBox[{
- RowBox[{"gC", "[", "9", "]"}], "\[Rule]",
- RowBox[{"-", "1.9569183131822054`*^-6"}]}]}], "}"}]}], "}"}]], "Output",\
-
- CellChangeTimes->{3.841829478405797*^9},
- CellLabel->
- "Out[211]=",ExpressionUUID->"3390f52a-3233-4bad-8428-c484f32992c1"]
+ RowBox[{"A", "[", "5", "]"}], "\[Rule]", "0.0009751352780293256`"}]}],
+ "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.842085305613484*^9},
+ CellLabel->"Out[5]=",ExpressionUUID->"d5ad0fbd-caf6-48b3-984e-33816913a7c3"]
}, Open ]],
Cell[CellGroupData[{
@@ -5009,921 +5866,217 @@ Cell[BoxData[
RowBox[{"annealFit", "[",
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "9", "]"}], ",", "\[Delta]"}], "]"}], "[", "9",
- "]"}], "//.",
+ RowBox[{"Most", "@",
+ RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"5", ",",
+ RowBox[{"h", "[", "7", "]"}], ",", "\[Delta]"}], "]"}], "[", "9",
+ "]"}]}], "//.",
RowBox[{"rules", "[",
- RowBox[{"h", "[", "9", "]"}], "]"}]}], ",", "\[Delta]", ",",
+ RowBox[{"h", "[", "7", "]"}], "]"}]}], ",", "\[Delta]", ",",
RowBox[{"Join", "[",
RowBox[{
RowBox[{"m6", "[",
RowBox[{"[", "2", "]"}], "]"}], ",",
- RowBox[{"{", "}"}]}], "]"}]}], "]"}]}]], "Input",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"gC", "[", "7", "]"}], "->", "0"}], "}"}]}], "]"}]}],
+ "]"}]}]], "Input",
CellChangeTimes->CompressedData["
-1:eJwdz00ow3EAxvHFtrJR0rwfsOR12SZKiSU2Gjko4iJW5OL9tRxQMxzW/qtp
-Doso4TS0eZnIW8jLwZolC/9tYWxSDkTC7/kfnj7Hb0+Sqr2qKYjFYiWSwQR9
-/5FuOlCU8hc4h3231/cw941yw7aJiCcYwa33wY385A+Yl3D/Cb1r2iyKKGgQ
-SKCmw2W2EUUOzyrcn3DSkLvyyyhzDpVuERcVWiV8F2wraCKvubcMHtcMaGBk
-dfwYLNBezUDX6zej80G+6SH65XwbvAjq2YWG8LNDeENJrF4i5y6bcVkXa4OJ
-X0M7kFYsDAfPkJ8xHyNwsKKukU00/VSqYJTe2QUt+bxu2HIZrIbpnALGQrN9
-Dy4tj+zDEvGsIZR46pljNI1P8cOIentaKFRJFbVQpBxgjPbOPqqJcR1sH6ya
-V/NGiSHFfj4M2IvFMJUjlsBMf6dVg65sndEwaL6EDRkHdmgyTbaOEV9EVBuU
-GttpC3qiEzfMK2/0wXLK+AxzfoUrVqLQQVngPy6AF1c=
+1:eJwdz28o43EcB/CFqdumtHacP4W5znHLRkQJCTvHdQ9Wd909ESvyxJ/jDrUH
+qBkeLL/VxIPlXwmlxrXdsesutxPy58piidhsYWy68oCM8Hl/H7x7PXy/30nq
+RlVNCI/HS6bABEPbcv9woOjFQ2ADth7sumD2f+4INvSJT6E4vNIH5/OeX8Hc
+BNc19H7Xp3OkpEqigLqmfbONlG17vkF7n9MNw+fumYXOjtc/ySmlvhxeSn4p
+3aSg9msZXPnQroNP38f1wHz9zgjcvwgyncelCx7SXyq0wc2QL4vQGLm+BPc4
+hdVL8g8zmbP9MTaYeNPxG7qVk52hI/Tz2VUX1Lz9VB1Gmu7eqWGUwdkMLXmC
+Fli3FaqFqfx8ZoHZ8QdOz3bZYYl8zCgi1zzjTFPvkDCCNDheiqA6Q/kRysrb
+mdHesRMtGdsU5oOqCa2gm3xS7BfCgKNYDlP4cgV85f9s1aG38AfTqDFvwaq0
+vw5oMg3U95DnMq4BZgw2ui3ok60ewdyKah+s4AbPYNa9dM5KSrc5C0watSwq
+RmlP5Rs7vB0Xr8Hgv1imNH4qJ5OcGXIxHwHoGi+g
"],
- CellLabel->
- "In[234]:=",ExpressionUUID->"200b94d3-7cab-4649-99f3-c2558b1a5011"],
+ CellLabel->"In[6]:=",ExpressionUUID->"200b94d3-7cab-4649-99f3-c2558b1a5011"],
Cell[BoxData[
TemplateBox[{
"General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.5373556873898448`*^-307\
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.4325296632774505`*^-307\
\\\"}]\\) is too small to represent as a normalized machine number; precision \
-may be lost.\"", 2, 211, 195, 31640151626685725371, "Local"},
+may be lost.\"", 2, 6, 1, 31641848649737364005, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.841829215087719*^9},
+ CellChangeTimes->{3.841829215087719*^9, 3.84208234137315*^9,
+ 3.842082910442643*^9, 3.8420856679427547`*^9},
CellLabel->
"During evaluation of \
-In[211]:=",ExpressionUUID->"8286d0bb-4e6c-4e7a-b928-3c79819fc289"],
+In[6]:=",ExpressionUUID->"2615180a-f646-41b8-96fe-8e684692f56b"],
Cell[BoxData[
TemplateBox[{
"General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.0249037915932299`*^-307\
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.5875503329372965`*^-307\
\\\"}]\\) is too small to represent as a normalized machine number; precision \
-may be lost.\"", 2, 211, 196, 31640151626685725371, "Local"},
+may be lost.\"", 2, 6, 2, 31641848649737364005, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.841829216111751*^9},
+ CellChangeTimes->{3.841829215087719*^9, 3.84208234137315*^9,
+ 3.842082910442643*^9, 3.8420856689939203`*^9},
CellLabel->
"During evaluation of \
-In[211]:=",ExpressionUUID->"e2ff3031-bd78-4855-8bc7-9747fcae88e3"],
+In[6]:=",ExpressionUUID->"a1f65287-1cb7-4001-8046-d8a23e15172e"],
Cell[BoxData[
TemplateBox[{
"General", "munfl",
- "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"2.0403955970057664`*^-307\
-\\\"}]\\) is too small to represent as a normalized machine number; precision \
-may be lost.\"", 2, 211, 197, 31640151626685725371, "Local"},
+ "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \
+\\\"7.162648316387252`*^-308\\\"}]\\) is too small to represent as a \
+normalized machine number; precision may be lost.\"", 2, 6, 3,
+ 31641848649737364005, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.841829217136343*^9},
+ CellChangeTimes->{3.841829215087719*^9, 3.84208234137315*^9,
+ 3.842082910442643*^9, 3.842085669994464*^9},
CellLabel->
"During evaluation of \
-In[211]:=",ExpressionUUID->"193d3a87-2837-49e1-b092-63ac86b20f22"],
+In[6]:=",ExpressionUUID->"ec64abf9-ad4f-45cd-99e4-70431b11d26b"],
Cell[BoxData[
TemplateBox[{
"General", "stop",
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
-during this calculation.\"", 2, 211, 198, 31640151626685725371, "Local"},
+during this calculation.\"", 2, 6, 4, 31641848649737364005, "Local"},
"MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.8418292181369658`*^9},
+ CellChangeTimes->{3.841829215087719*^9, 3.84208234137315*^9,
+ 3.842082910442643*^9, 3.842085671001289*^9},
CellLabel->
"During evaluation of \
-In[211]:=",ExpressionUUID->"903983c6-c194-4176-a62a-37d20d186199"],
+In[6]:=",ExpressionUUID->"5bd1676a-a15f-4aae-9cbb-c102f0f95532"],
-Cell[BoxData["141.71521623560383`"], "Print",
- CellChangeTimes->{3.8418292198877277`*^9},
- CellLabel->
- "During evaluation of \
-In[211]:=",ExpressionUUID->"f39aff0b-2bf3-4ae8-beec-a77c7cdab645"],
+Cell[CellGroupData[{
-Cell[BoxData[
- TemplateBox[{
- "CompiledFunction", "cfn",
- "\"Numerical error encountered at instruction \
-\\!\\(\\*RowBox[{\\\"345\\\"}]\\); proceeding with uncompiled evaluation.\"",
- 2, 211, 199, 31640151626685725371, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.84182924147563*^9},
+Cell[BoxData["1.0811038199964305`"], "Print",
+ CellChangeTimes->{3.8420827819536448`*^9, 3.842085674056548*^9},
CellLabel->
"During evaluation of \
-In[211]:=",ExpressionUUID->"829bb464-97dd-4460-9e09-24e64f09c6cd"],
-
-Cell[CellGroupData[{
+In[6]:=",ExpressionUUID->"7ed5d548-514d-4fe8-8b78-512914799352"],
-Cell[BoxData["143.15883458108507`"], "Print",
- CellChangeTimes->{3.8418293614419928`*^9},
+Cell[BoxData["1179.5860449106412`"], "Print",
+ CellChangeTimes->{3.8420827819536448`*^9, 3.842085786738756*^9},
CellLabel->
"During evaluation of \
-In[211]:=",ExpressionUUID->"31d0dd9c-24f2-4fe0-9dd2-0608475aa63c"],
+In[6]:=",ExpressionUUID->"b2af9369-9d8f-431e-9030-76bb4380fee7"],
-Cell[BoxData["143.37164075763874`"], "Print",
- CellChangeTimes->{3.841829430485454*^9},
+Cell[BoxData["9908.552958543973`"], "Print",
+ CellChangeTimes->{3.8420827819536448`*^9, 3.842085904865103*^9},
CellLabel->
"During evaluation of \
-In[211]:=",ExpressionUUID->"07cc8905-7513-4079-baa4-1590126efe5b"],
+In[6]:=",ExpressionUUID->"675faf5b-4311-49e7-8b1a-fcd3f0834ef9"],
-Cell[BoxData["143.37249141895887`"], "Print",
- CellChangeTimes->{3.841829435336576*^9},
+Cell[BoxData["9908.935963790944`"], "Print",
+ CellChangeTimes->{3.8420827819536448`*^9, 3.8420859345720253`*^9},
CellLabel->
"During evaluation of \
-In[211]:=",ExpressionUUID->"cd190030-d600-470f-a1b8-f2cf48a0bb35"],
+In[6]:=",ExpressionUUID->"c0034a53-fdfc-421f-8cf9-a66d01740b1a"],
-Cell[BoxData["149.10420227212848`"], "Print",
- CellChangeTimes->{3.84182947111211*^9},
+Cell[BoxData["9915.268939821786`"], "Print",
+ CellChangeTimes->{3.8420827819536448`*^9, 3.842085937665681*^9},
CellLabel->
"During evaluation of \
-In[211]:=",ExpressionUUID->"da7b9bba-21ae-4e2a-8c84-ec593f50dff7"]
+In[6]:=",ExpressionUUID->"a759c179-7c48-4826-8457-6fda0b49f576"]
}, Open ]],
Cell[BoxData[
RowBox[{"{",
- RowBox[{"149.10420227212848`", ",",
+ RowBox[{"9915.268939821786`", ",",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.4353023393451338`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19810750318237103`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.314217918104849`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19665388241742326`"}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.414145110467576`"}]}], ",",
+ RowBox[{"-", "2.535615002952812`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5284785562366807`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.7089312231797729`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.27757284310876956`"}], ",",
-
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5879200594237792`"}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.15981661115475995`"}]}], ",",
+ RowBox[{"-", "0.2864227132551715`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.11177842464150112`"}], ",",
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.038291151408117945`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.08669227528395326`"}]}], ",",
+ RowBox[{"A", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.17671641646995187`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.048241027413658745`"}],
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.007691119500696897`"}],
",",
RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.00413783035471103`"}], ",",
+ RowBox[{
RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.01763494503661643`"}]}], ",",
+ RowBox[{"-", "0.0014531171727638857`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.004026665969714435`"}],
- ",",
+ RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.009263700350518947`"}], ",",
RowBox[{
- RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
- RowBox[{"-", "0.0005421762809782185`"}]}], ",",
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00011356642943329183`"}],
+ ",",
RowBox[{
- RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.00004156753418487688`"}],
+ RowBox[{"A", "[", "5", "]"}], "\[Rule]", "0.0008812910746076584`"}],
",",
RowBox[{
- RowBox[{"gC", "[", "9", "]"}], "\[Rule]",
- RowBox[{"-", "1.9569183131822054`*^-6"}]}]}], "}"}]}], "}"}]], "Output",\
-
- CellChangeTimes->{3.841829478405797*^9},
- CellLabel->
- "Out[211]=",ExpressionUUID->"d66cf11c-6249-4ce5-90b1-7ccedf7b8994"]
+ RowBox[{"gC", "[", "7", "]"}], "\[Rule]", "6.1199045061749`*^-6"}]}],
+ "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.841829478405797*^9, 3.842082489741064*^9,
+ 3.842083149562351*^9, 3.842085958970133*^9},
+ CellLabel->"Out[6]=",ExpressionUUID->"603ce513-d919-4a6a-aae2-e99140ba8fb2"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
- RowBox[{"ListPlot", "[", "\[IndentingNewLine]",
- RowBox[{
+ RowBox[{"m8", "=",
+ RowBox[{"annealFit", "[",
RowBox[{
- RowBox[{"If", "[",
- RowBox[{
- RowBox[{
- RowBox[{"Head", "[", "#", "]"}], "===", "Around"}], ",",
- RowBox[{"#", "/",
- RowBox[{"#", "[", "\"\<Uncertainty\>\"", "]"}]}], ",",
- RowBox[{"Around", "[",
- RowBox[{
- RowBox[{"#", "/",
- SuperscriptBox["10",
- RowBox[{"-", "15"}]]}], ",", "1"}], "]"}]}], "]"}], "&"}], "/@",
- RowBox[{"(",
RowBox[{
RowBox[{
- RowBox[{"Abs", "[",
- RowBox[{
- RowBox[{"Ghs", "[",
- RowBox[{"[",
- RowBox[{";;",
- RowBox[{"7", "+", "1"}]}], "]"}], "]"}], "-",
- RowBox[{
- RowBox[{"dFd\[Xi]HighList", "[",
- RowBox[{"nAs", ",",
- RowBox[{"h", "[", "5", "]"}]}], "]"}], "[", "7", "]"}]}], "]"}], "//.",
- RowBox[{"rules", "[",
- RowBox[{"h", "[", "5", "]"}], "]"}]}], "/.", "m41"}], ")"}]}],
- "\[IndentingNewLine]", "]"}]], "Input",
- CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, {
- 3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9,
- 3.829128493270048*^9}, {3.8291285364471493`*^9, 3.8291285366627502`*^9}, {
- 3.829128816403723*^9, 3.829128817219697*^9}, {3.829212218892186*^9,
- 3.829212225564254*^9}, {3.8292122694048777`*^9, 3.829212364606584*^9}, {
- 3.829212422415756*^9, 3.8292124291194887`*^9}, {3.8292138886103983`*^9,
- 3.829213892914075*^9}, {3.829214258440802*^9, 3.829214267624782*^9}, {
- 3.829218996805491*^9, 3.829219001117147*^9}, {3.8371574167259398`*^9,
- 3.83715742501366*^9}, {3.838872732879181*^9, 3.8388727537664413`*^9}, {
- 3.838873204703073*^9, 3.8388732099027357`*^9}, {3.838873255752236*^9,
- 3.8388732834641113`*^9}, {3.8388734328271227`*^9, 3.8388734358267*^9}, {
- 3.838874157024147*^9, 3.8388741604719753`*^9}, {3.839307790346795*^9,
- 3.839307797698661*^9}, {3.8393093420874243`*^9, 3.839309343767222*^9}, {
- 3.83940985668435*^9, 3.8394098593718357`*^9}, {3.839479308878851*^9,
- 3.8394793092698917`*^9}, {3.839479351678846*^9, 3.839479359894719*^9}, {
- 3.839484132822569*^9, 3.83948413582975*^9}, {3.839484417835371*^9,
- 3.839484422402855*^9}, {3.8394844606917543`*^9, 3.8394845443653107`*^9}, {
- 3.839485068790997*^9, 3.839485069686892*^9}, {3.839485153592383*^9,
- 3.839485166081131*^9}, {3.8394852464151793`*^9, 3.8394852711790447`*^9}, {
- 3.839485306757688*^9, 3.8394853151639977`*^9}, {3.8394853654853773`*^9,
- 3.839485432894374*^9}, 3.839485523256114*^9, {3.839485578601307*^9,
- 3.839485649138336*^9}, {3.8394857007256727`*^9, 3.839485723219755*^9}, {
- 3.839485936266061*^9, 3.839486030177397*^9}, {3.839486075309197*^9,
- 3.839486142116439*^9}, {3.839486179828413*^9, 3.839486218245903*^9}, {
- 3.83948626754249*^9, 3.8394862713893957`*^9}, {3.8394864169524717`*^9,
- 3.8394864816965714`*^9}, {3.839486986826584*^9, 3.8394869896504993`*^9}, {
- 3.8394870445001507`*^9, 3.839487076477178*^9}, {3.839487130772867*^9,
- 3.839487144740963*^9}, {3.8394876124142523`*^9, 3.83948761275005*^9}, {
- 3.839487645182592*^9, 3.839487645638852*^9}, {3.839488048646216*^9,
- 3.839488090182976*^9}, {3.839488424581703*^9, 3.8394884272211113`*^9}, {
- 3.8394892409164047`*^9, 3.839489242332054*^9}, {3.839489275213091*^9,
- 3.839489292188744*^9}, {3.839489492289144*^9, 3.839489571665984*^9}, {
- 3.8394896094678373`*^9, 3.839489713796721*^9}, {3.839489762837819*^9,
- 3.839489797445959*^9}, {3.839489857544436*^9, 3.839489893848106*^9}, {
- 3.8394903055442333`*^9, 3.839490366136724*^9}, {3.839490881170803*^9,
- 3.8394908814338083`*^9}, {3.839490914539504*^9, 3.839490928595656*^9}, {
- 3.839492144689028*^9, 3.839492147329255*^9}, {3.839493141315516*^9,
- 3.8394931647319393`*^9}, {3.839493641949576*^9, 3.83949364210872*^9}, {
- 3.839494014823594*^9, 3.839494050556492*^9}, {3.8394955822727327`*^9,
- 3.8394956194090643`*^9}, {3.839495922911708*^9, 3.839495935527544*^9}, {
- 3.839496282949663*^9, 3.8394963032934713`*^9}, {3.839572033112393*^9,
- 3.8395720353280907`*^9}, {3.839572166843008*^9, 3.839572169346869*^9}, {
- 3.839586112218432*^9, 3.8395861234262123`*^9}, {3.839586281734277*^9,
- 3.8395862878848553`*^9}, {3.839586416192438*^9, 3.839586419599288*^9}, {
- 3.839658669660975*^9, 3.8396586751241493`*^9}, 3.839664357017618*^9, {
- 3.839664563809626*^9, 3.8396646004174013`*^9}, {3.840528591761121*^9,
- 3.8405285944877768`*^9}, {3.8405288185331697`*^9, 3.8405288189559*^9}, {
- 3.840875796597721*^9, 3.840875807414563*^9}, {3.841134596143955*^9,
- 3.841134611103293*^9}, {3.841135733956856*^9, 3.84113574469188*^9}, {
- 3.841213686096504*^9, 3.841213700287394*^9}, {3.841390489772376*^9,
- 3.841390490115335*^9}, {3.841466253710223*^9, 3.8414662964943447`*^9}, {
- 3.841466368519874*^9, 3.841466399143363*^9}, {3.8414664657685127`*^9,
- 3.841466482072263*^9}, {3.841466579721918*^9, 3.841466581697276*^9}, {
- 3.841467822982641*^9, 3.841467887060186*^9}, {3.841484003411813*^9,
- 3.8414840895729713`*^9}, {3.84148427696859*^9, 3.8414842809922123`*^9}, {
- 3.841827821577551*^9, 3.841827830168942*^9}},
- CellLabel->
- "In[129]:=",ExpressionUUID->"aee89b99-c52c-426f-9380-809683f9fe8d"],
-
-Cell[BoxData[
- GraphicsBox[{{{
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{{}, {LineBox[{{1., -1.}, {1., 0.}}],
- LineBox[{{1., 0.}, {1., 1.}}]}},
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{{}, {LineBox[{{2., -1.}, {2., 0.}}],
- LineBox[{{2., 0.}, {2., 1.}}]}},
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{{}, {LineBox[{{3., -1.}, {3., 0.}}],
- LineBox[{{3., 0.}, {3., 1.}}]}},
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{{}, {LineBox[{{4., -1.}, {4., 0.}}],
- LineBox[{{4., 0.}, {4., 1.}}]}},
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{{}, {
- LineBox[{{5., -0.9998991029315221}, {5., 0.00010089706847793423`}}],
- LineBox[{{5., 0.00010089706847793423`}, {5., 1.000100897068478}}]}},
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{{}, {LineBox[{{6., -1.}, {6., 0.}}],
- LineBox[{{6., 0.}, {6., 1.}}]}},
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{{}, {
- LineBox[{{7., -0.9701544202442468}, {7., 0.029845579755753224`}}],
- LineBox[{{7., 0.029845579755753224`}, {7., 1.0298455797557533`}}]}},
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{{}, {LineBox[{{8., -1.}, {8., 0.}}],
- LineBox[{{8., 0.}, {8., 1.}}]}},
- Antialiasing->False]}}, {
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{
- GeometricTransformationBox[
- LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
- GeometricTransformationBox[
- LineBox[{{{1., 1.}, Offset[{3, 0}, {1., 1.}]}, {{1., 1.},
- Offset[{-3, 0}, {1., 1.}]}, {{1., -1.},
- Offset[{3, 0}, {1., -1.}]}, {{1., -1.},
- Offset[{-3, 0}, {1., -1.}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]},
-
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{
- GeometricTransformationBox[
- LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
- GeometricTransformationBox[
- LineBox[{{{2., 1.}, Offset[{3, 0}, {2., 1.}]}, {{2., 1.},
- Offset[{-3, 0}, {2., 1.}]}, {{2., -1.},
- Offset[{3, 0}, {2., -1.}]}, {{2., -1.},
- Offset[{-3, 0}, {2., -1.}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]},
-
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{
- GeometricTransformationBox[
- LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
- GeometricTransformationBox[
- LineBox[{{{3., 1.}, Offset[{3, 0}, {3., 1.}]}, {{3., 1.},
- Offset[{-3, 0}, {3., 1.}]}, {{3., -1.},
- Offset[{3, 0}, {3., -1.}]}, {{3., -1.},
- Offset[{-3, 0}, {3., -1.}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]},
-
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{
- GeometricTransformationBox[
- LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
- GeometricTransformationBox[
- LineBox[{{{4., 1.}, Offset[{3, 0}, {4., 1.}]}, {{4., 1.},
- Offset[{-3, 0}, {4., 1.}]}, {{4., -1.},
- Offset[{3, 0}, {4., -1.}]}, {{4., -1.},
- Offset[{-3, 0}, {4., -1.}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]},
-
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{
- GeometricTransformationBox[
- LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
- GeometricTransformationBox[
- LineBox[{{{5., 1.000100897068478},
- Offset[{3, 0}, {5., 1.000100897068478}]}, {{5.,
- 1.000100897068478}, Offset[{-3, 0}, {5., 1.000100897068478}]}, {{
- 5., -0.9998991029315221},
- Offset[{3, 0}, {5., -0.9998991029315221}]}, {{
- 5., -0.9998991029315221},
- Offset[{-3, 0}, {5., -0.9998991029315221}]}}], {{{1., 0.}, {0.,
- 1.}}, {0., 0.}}]},
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{
- GeometricTransformationBox[
- LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
- GeometricTransformationBox[
- LineBox[{{{6., 1.}, Offset[{3, 0}, {6., 1.}]}, {{6., 1.},
- Offset[{-3, 0}, {6., 1.}]}, {{6., -1.},
- Offset[{3, 0}, {6., -1.}]}, {{6., -1.},
- Offset[{-3, 0}, {6., -1.}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]},
-
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{
- GeometricTransformationBox[
- LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
- GeometricTransformationBox[
- LineBox[{{{7., 1.0298455797557533`},
- Offset[{3, 0}, {7., 1.0298455797557533`}]}, {{7.,
- 1.0298455797557533`},
- Offset[{-3, 0}, {7., 1.0298455797557533`}]}, {{
- 7., -0.9701544202442468},
- Offset[{3, 0}, {7., -0.9701544202442468}]}, {{
- 7., -0.9701544202442468},
- Offset[{-3, 0}, {7., -0.9701544202442468}]}}], {{{1., 0.}, {0.,
- 1.}}, {0., 0.}}]},
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{
- GeometricTransformationBox[
- LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
- GeometricTransformationBox[
- LineBox[{{{8., 1.}, Offset[{3, 0}, {8., 1.}]}, {{8., 1.},
- Offset[{-3, 0}, {8., 1.}]}, {{8., -1.},
- Offset[{3, 0}, {8., -1.}]}, {{8., -1.},
- Offset[{-3, 0}, {8., -1.}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]},
-
- Antialiasing->False]}}},
- {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
- AbsoluteThickness[1.6],
- PointBox[{{1., 0.}, {2., 0.}, {3., 0.}, {4., 0.}, {5.,
- 0.00010089706847793423`}, {6., 0.}, {7., 0.029845579755753224`}, {8.,
- 0.}}]}, {{}, {}}},
- AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
- Axes->{True, True},
- AxesLabel->{None, None},
- AxesOrigin->{0., 0},
- DisplayFunction->Identity,
- Frame->{{False, False}, {False, False}},
- FrameLabel->{{None, None}, {None, None}},
- FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
- GridLines->{None, None},
- GridLinesStyle->Directive[
- GrayLevel[0.5, 0.4]],
- Method->{
- "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
- "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
- Identity[
- Part[#, 1]],
- Identity[
- Part[#, 2]]}& ), "CopiedValueFunction" -> ({
- Identity[
- Part[#, 1]],
- Identity[
- Part[#, 2]]}& )}},
- PlotRange->{{0., 8.}, {-0.04476836963362984, 0.07461394938938307}},
- PlotRangeClipping->True,
- PlotRangePadding->{{
- Scaled[0.02],
- Scaled[0.02]}, {
- Scaled[0.05],
- Scaled[0.05]}},
- Ticks->{Automatic, Automatic}]], "Output",
- CellChangeTimes->{{3.8394864302572823`*^9, 3.839486485737481*^9}, {
- 3.8394868108920527`*^9, 3.839486833544271*^9}, {3.839486968169405*^9,
- 3.839486994739235*^9}, {3.839487050609737*^9, 3.839487081545911*^9}, {
- 3.839487139032605*^9, 3.839487149734391*^9}, 3.8394880559648848`*^9,
- 3.839488095210012*^9, 3.839488432022138*^9, 3.839488966485567*^9,
- 3.839489132907782*^9, 3.8394891742679043`*^9, {3.83948923216856*^9,
- 3.839489247298073*^9}, {3.8394892811100388`*^9, 3.839489297255623*^9}, {
- 3.839489518429874*^9, 3.839489576749642*^9}, 3.839489614460577*^9, {
- 3.839489646744204*^9, 3.839489717916*^9}, {3.839489779953936*^9,
- 3.839489797877178*^9}, {3.839489858269053*^9, 3.839489894400456*^9},
- 3.83948999298129*^9, 3.839490039302783*^9, 3.839490198501548*^9, {
- 3.8394903145949183`*^9, 3.839490366668486*^9}, 3.839490410230691*^9,
- 3.83949068744411*^9, 3.839490882032105*^9, {3.839490915087521*^9,
- 3.8394909440773563`*^9}, {3.839491208442045*^9, 3.839491227913024*^9},
- 3.839491282583577*^9, 3.83949138318426*^9, 3.839491847872534*^9,
- 3.839491922779976*^9, {3.83949214072232*^9, 3.839492147793445*^9},
- 3.839492703416108*^9, {3.8394930877867403`*^9, 3.839493111348575*^9},
- 3.839493159337824*^9, 3.839493260745894*^9, 3.8394938495813704`*^9, {
- 3.839494015878335*^9, 3.839494051166876*^9}, 3.839494155707307*^9, {
- 3.839494232008819*^9, 3.8394942817479143`*^9}, {3.8394955838062563`*^9,
- 3.839495620912838*^9}, {3.839495892980287*^9, 3.839495961352178*^9},
- 3.839495996781355*^9, 3.8394960290995007`*^9, {3.8394961117034683`*^9,
- 3.839496132210868*^9}, {3.839496233750821*^9, 3.839496247464304*^9}, {
- 3.839496287823802*^9, 3.839496304224265*^9}, 3.83949641106695*^9,
- 3.839496651844782*^9, 3.839569714442939*^9, 3.839570692350816*^9,
- 3.839571037545631*^9, 3.8395710776956797`*^9, 3.8395711376334047`*^9,
- 3.839571186222416*^9, 3.839571351854351*^9, 3.8395716431049433`*^9,
- 3.8395716961263447`*^9, 3.8395719356619263`*^9, 3.839571975466508*^9, {
- 3.8395720292576017`*^9, 3.839572038127006*^9}, {3.83957217256413*^9,
- 3.83957219391011*^9}, 3.839572236054682*^9, {3.839572276306333*^9,
- 3.839572287892969*^9}, 3.839572342583872*^9, 3.839572572560753*^9,
- 3.839572613884104*^9, {3.839572830197351*^9, 3.839572867853582*^9}, {
- 3.839572962859436*^9, 3.839572978399377*^9}, 3.839573191565909*^9,
- 3.83957323416776*^9, 3.839574190974876*^9, {3.839574358418882*^9,
- 3.839574363836178*^9}, 3.839577688193771*^9, {3.839577931409347*^9,
- 3.839577940725779*^9}, {3.839579623692398*^9, 3.839579641583359*^9},
- 3.839580176251998*^9, {3.839580243310802*^9, 3.839580260058309*^9},
- 3.83958034038577*^9, 3.839581557584*^9, {3.83958160487352*^9,
- 3.839581615679512*^9}, 3.839581993151758*^9, 3.839582040886951*^9,
- 3.839582108820992*^9, 3.839582559973913*^9, 3.839582771424386*^9, {
- 3.839583107834976*^9, 3.839583154778919*^9}, {3.8395842000019083`*^9,
- 3.839584229236342*^9}, 3.839584319284484*^9, 3.8395843940434847`*^9,
- 3.839584572371277*^9, 3.839584947067206*^9, 3.839585081305537*^9,
- 3.839586137503179*^9, 3.8395862976249247`*^9, 3.839586429104487*^9,
- 3.839587842464167*^9, 3.839647990219092*^9, 3.8396572711023006`*^9,
- 3.839658508039483*^9, 3.839658567146755*^9, {3.8396586610674477`*^9,
- 3.8396586758654203`*^9}, 3.839659271097528*^9, 3.839661799778942*^9, {
- 3.839664337728752*^9, 3.8396643582360373`*^9}, {3.839664548980212*^9,
- 3.839664603837595*^9}, 3.839664641104356*^9, 3.8396691346008053`*^9,
- 3.8396700455490303`*^9, 3.839670127013689*^9, 3.8405260833413677`*^9, {
- 3.840527418121812*^9, 3.840527428230318*^9}, 3.840528597876438*^9, {
- 3.84052880585203*^9, 3.840528823602725*^9}, 3.840610810412817*^9,
- 3.8408694556097403`*^9, 3.840872804624278*^9, {3.840875797574889*^9,
- 3.8408758121424313`*^9}, {3.840877666763609*^9, 3.840877677233533*^9},
- 3.840878067793683*^9, {3.840880830069907*^9, 3.84088085023195*^9}, {
- 3.840880881407505*^9, 3.840880885369958*^9}, 3.840880931429838*^9,
- 3.840880983523183*^9, 3.840882901582034*^9, 3.8411116534753313`*^9,
- 3.841111732347678*^9, 3.841112335446682*^9, 3.8411123976633244`*^9,
- 3.8411142717862453`*^9, 3.841114943143334*^9, 3.841115089052647*^9,
- 3.841115194051117*^9, 3.8411159468161507`*^9, 3.841116777994376*^9,
- 3.841117271305902*^9, {3.841118706967044*^9, 3.841118717367868*^9}, {
- 3.8411193655082083`*^9, 3.84111937034937*^9}, 3.8411197766851873`*^9,
- 3.8411198234566708`*^9, 3.841119866102133*^9, 3.841120115400488*^9,
- 3.841121153260182*^9, 3.841121472842341*^9, 3.841121535767632*^9,
- 3.8411219087701063`*^9, 3.841121980800602*^9, 3.841130166199669*^9,
- 3.8411305965940332`*^9, {3.841130719276822*^9, 3.8411307399666243`*^9},
- 3.8411312190210743`*^9, 3.841134375147834*^9, 3.8411344263576813`*^9, {
- 3.8411344705668488`*^9, 3.841134479867544*^9}, {3.8411346037463017`*^9,
- 3.8411346144767933`*^9}, 3.8411356496009407`*^9, 3.841135748390747*^9,
- 3.8412137046354218`*^9, 3.841225535005499*^9, 3.8413034028742332`*^9,
- 3.841304441693802*^9, 3.841304530951276*^9, {3.841305187833931*^9,
- 3.841305194151207*^9}, 3.84130523777777*^9, 3.8413053474536552`*^9,
- 3.84131085931179*^9, 3.841316307349918*^9, {3.841390485438642*^9,
- 3.84139049061092*^9}, 3.841390578562212*^9, 3.841391291253233*^9,
- 3.841392160241373*^9, 3.841392337222522*^9, 3.841463592218527*^9,
- 3.841464593325774*^9, {3.84146629539501*^9, 3.841466301656163*^9}, {
- 3.841466384639339*^9, 3.841466402526952*^9}, {3.841466472723971*^9,
- 3.8414664828370647`*^9}, 3.8414665824436007`*^9, 3.841466673870327*^9,
- 3.841467838433302*^9, {3.841467883576232*^9, 3.8414678912410383`*^9}, {
- 3.841484010972992*^9, 3.841484090971327*^9}, 3.841484283040318*^9, {
- 3.841827824633439*^9, 3.841827830609838*^9}},
- CellLabel->
- "Out[129]=",ExpressionUUID->"e2cf0809-e3b4-4dec-a74f-4d1922647b69"]
-}, Open ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"ListPlot", "[", "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"If", "[",
- RowBox[{
- RowBox[{
- RowBox[{"Head", "[", "#", "]"}], "===", "Around"}], ",",
- RowBox[{"#", "/",
- RowBox[{"#", "[", "\"\<Uncertainty\>\"", "]"}]}], ",",
- RowBox[{"Around", "[",
- RowBox[{
- RowBox[{"#", "/",
- SuperscriptBox["10",
- RowBox[{"-", "13"}]]}], ",", "1"}], "]"}]}], "]"}], "&"}], "/@",
- RowBox[{"(",
- RowBox[{
+ RowBox[{"res", "[",
+ RowBox[{"6", ",",
+ RowBox[{"h", "[", "8", "]"}], ",", "\[Delta]"}], "]"}], "[", "10",
+ "]"}], "//.",
+ RowBox[{"rules", "[",
+ RowBox[{"h", "[", "8", "]"}], "]"}]}], ",", "\[Delta]", ",",
+ RowBox[{"Join", "[",
RowBox[{
- RowBox[{"Abs", "[",
+ RowBox[{"m7", "[",
+ RowBox[{"[", "2", "]"}], "]"}], ",",
+ RowBox[{"{",
RowBox[{
- RowBox[{"Gls", "[",
- RowBox[{"[",
- RowBox[{";;",
- RowBox[{"4", "+", "1"}]}], "]"}], "]"}], "-",
RowBox[{
- RowBox[{"dFd\[Xi]LowList", "[",
- RowBox[{"nAs", ",",
- RowBox[{"h", "[", "3", "]"}]}], "]"}], "[", "4", "]"}]}], "]"}], "//.",
- RowBox[{"rules", "[",
- RowBox[{"h", "[", "3", "]"}], "]"}]}], "/.", "m21"}], ")"}]}],
- "\[IndentingNewLine]", "]"}]], "Input",
- CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, {
- 3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9,
- 3.829128493270048*^9}, {3.8291285364471493`*^9, 3.8291285366627502`*^9}, {
- 3.829128816403723*^9, 3.829128817219697*^9}, {3.829212218892186*^9,
- 3.829212225564254*^9}, {3.8292122694048777`*^9, 3.829212364606584*^9}, {
- 3.829212422415756*^9, 3.8292124291194887`*^9}, {3.8292138886103983`*^9,
- 3.829213892914075*^9}, {3.829214258440802*^9, 3.829214267624782*^9}, {
- 3.829218996805491*^9, 3.829219001117147*^9}, {3.8371574167259398`*^9,
- 3.83715742501366*^9}, {3.838872732879181*^9, 3.8388727537664413`*^9}, {
- 3.838873204703073*^9, 3.8388732099027357`*^9}, {3.838873255752236*^9,
- 3.8388732834641113`*^9}, {3.8388734328271227`*^9, 3.8388734358267*^9}, {
- 3.838874157024147*^9, 3.8388741604719753`*^9}, {3.839307790346795*^9,
- 3.839307797698661*^9}, {3.8393093420874243`*^9, 3.839309343767222*^9}, {
- 3.83940985668435*^9, 3.8394098593718357`*^9}, {3.839479308878851*^9,
- 3.8394793092698917`*^9}, {3.839479351678846*^9, 3.839479359894719*^9}, {
- 3.839484132822569*^9, 3.83948413582975*^9}, {3.839484417835371*^9,
- 3.839484422402855*^9}, {3.8394844606917543`*^9, 3.8394845443653107`*^9}, {
- 3.839485068790997*^9, 3.839485069686892*^9}, {3.839485153592383*^9,
- 3.839485166081131*^9}, {3.8394852464151793`*^9, 3.8394852711790447`*^9}, {
- 3.839485306757688*^9, 3.8394853151639977`*^9}, {3.8394853654853773`*^9,
- 3.839485432894374*^9}, 3.839485523256114*^9, {3.839485578601307*^9,
- 3.839485649138336*^9}, {3.8394857007256727`*^9, 3.839485723219755*^9}, {
- 3.839485936266061*^9, 3.839486030177397*^9}, {3.839486075309197*^9,
- 3.839486142116439*^9}, {3.839486179828413*^9, 3.839486218245903*^9}, {
- 3.83948626754249*^9, 3.8394862713893957`*^9}, {3.8394864169524717`*^9,
- 3.8394864816965714`*^9}, {3.839486986826584*^9, 3.8394869896504993`*^9}, {
- 3.8394870445001507`*^9, 3.839487076477178*^9}, {3.839487130772867*^9,
- 3.839487144740963*^9}, {3.8394876124142523`*^9, 3.83948761275005*^9}, {
- 3.839487645182592*^9, 3.839487645638852*^9}, {3.839488048646216*^9,
- 3.839488090182976*^9}, {3.839488424581703*^9, 3.8394884272211113`*^9}, {
- 3.8394892409164047`*^9, 3.839489242332054*^9}, {3.839489275213091*^9,
- 3.839489292188744*^9}, {3.839489492289144*^9, 3.839489571665984*^9}, {
- 3.8394896094678373`*^9, 3.839489713796721*^9}, {3.839489762837819*^9,
- 3.839489797445959*^9}, {3.839489857544436*^9, 3.839489893848106*^9}, {
- 3.8394903055442333`*^9, 3.839490366136724*^9}, {3.839490881170803*^9,
- 3.8394908814338083`*^9}, {3.839490914539504*^9, 3.839490928595656*^9}, {
- 3.839492144689028*^9, 3.839492147329255*^9}, {3.839493141315516*^9,
- 3.8394931647319393`*^9}, {3.839493641949576*^9, 3.83949364210872*^9}, {
- 3.839494014823594*^9, 3.839494050556492*^9}, {3.8394955822727327`*^9,
- 3.8394956194090643`*^9}, {3.839495922911708*^9, 3.839495935527544*^9}, {
- 3.839496282949663*^9, 3.8394963032934713`*^9}, {3.839572033112393*^9,
- 3.8395720353280907`*^9}, {3.839572166843008*^9, 3.839572169346869*^9}, {
- 3.839586112218432*^9, 3.8395861234262123`*^9}, {3.839586281734277*^9,
- 3.8395862878848553`*^9}, {3.839586416192438*^9, 3.839586419599288*^9}, {
- 3.839658669660975*^9, 3.8396586751241493`*^9}, 3.839664357017618*^9, {
- 3.839664563809626*^9, 3.8396646004174013`*^9}, {3.840528591761121*^9,
- 3.8405285944877768`*^9}, {3.8405288185331697`*^9, 3.8405288189559*^9}, {
- 3.840875796597721*^9, 3.840875807414563*^9}, {3.841134596143955*^9,
- 3.841134611103293*^9}, {3.841135733956856*^9, 3.84113574469188*^9}, {
- 3.841213686096504*^9, 3.841213700287394*^9}, {3.841390489772376*^9,
- 3.841390490115335*^9}, {3.841466253710223*^9, 3.8414662964943447`*^9}, {
- 3.841466368519874*^9, 3.841466399143363*^9}, {3.8414664657685127`*^9,
- 3.841466482072263*^9}, {3.841466579721918*^9, 3.841466581697276*^9}, {
- 3.841467822982641*^9, 3.841467887060186*^9}, {3.841484003411813*^9,
- 3.8414840895729713`*^9}, {3.841733546733794*^9, 3.841733599750197*^9}, {
- 3.841733657807919*^9, 3.841733679959672*^9}, {3.841827013586504*^9,
- 3.8418270137382708`*^9}},
- CellLabel->"In[54]:=",ExpressionUUID->"86e28df3-e9b9-4c9d-b376-e2250a73da96"],
-
-Cell[BoxData[
- GraphicsBox[{{{
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{{}, {LineBox[{{1., -1.}, {1., 0.}}],
- LineBox[{{1., 0.}, {1., 1.}}]}},
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{{}, {LineBox[{{2., -1.}, {2., 0.}}],
- LineBox[{{2., 0.}, {2., 1.}}]}},
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{{}, {LineBox[{{3., -1.}, {3., 0.}}],
- LineBox[{{3., 0.}, {3., 1.}}]}},
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{{}, {
- LineBox[{{4., -0.9990007368277922}, {4., 0.000999263172207776}}],
- LineBox[{{4., 0.000999263172207776}, {4., 1.0009992631722078`}}]}},
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{{}, {
- LineBox[{{5., -0.9998453459326696}, {5., 0.00015465406733028428`}}],
- LineBox[{{5., 0.00015465406733028428`}, {5., 1.00015465406733}}]}},
- Antialiasing->False]}}, {
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{
- GeometricTransformationBox[
- LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
- GeometricTransformationBox[
- LineBox[{{{1., 1.}, Offset[{3, 0}, {1., 1.}]}, {{1., 1.},
- Offset[{-3, 0}, {1., 1.}]}, {{1., -1.},
- Offset[{3, 0}, {1., -1.}]}, {{1., -1.},
- Offset[{-3, 0}, {1., -1.}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]},
-
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{
- GeometricTransformationBox[
- LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
- GeometricTransformationBox[
- LineBox[{{{2., 1.}, Offset[{3, 0}, {2., 1.}]}, {{2., 1.},
- Offset[{-3, 0}, {2., 1.}]}, {{2., -1.},
- Offset[{3, 0}, {2., -1.}]}, {{2., -1.},
- Offset[{-3, 0}, {2., -1.}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]},
-
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{
- GeometricTransformationBox[
- LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
- GeometricTransformationBox[
- LineBox[{{{3., 1.}, Offset[{3, 0}, {3., 1.}]}, {{3., 1.},
- Offset[{-3, 0}, {3., 1.}]}, {{3., -1.},
- Offset[{3, 0}, {3., -1.}]}, {{3., -1.},
- Offset[{-3, 0}, {3., -1.}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]},
-
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{
- GeometricTransformationBox[
- LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
- GeometricTransformationBox[
- LineBox[{{{4., 1.0009992631722078`},
- Offset[{3, 0}, {4., 1.0009992631722078`}]}, {{4.,
- 1.0009992631722078`},
- Offset[{-3, 0}, {4., 1.0009992631722078`}]}, {{
- 4., -0.9990007368277922},
- Offset[{3, 0}, {4., -0.9990007368277922}]}, {{
- 4., -0.9990007368277922},
- Offset[{-3, 0}, {4., -0.9990007368277922}]}}], {{{1., 0.}, {0.,
- 1.}}, {0., 0.}}]},
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{
- GeometricTransformationBox[
- LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
- GeometricTransformationBox[
- LineBox[{{{5., 1.00015465406733},
- Offset[{3, 0}, {5., 1.00015465406733}]}, {{5., 1.00015465406733},
- Offset[{-3, 0}, {5., 1.00015465406733}]}, {{
- 5., -0.9998453459326696},
- Offset[{3, 0}, {5., -0.9998453459326696}]}, {{
- 5., -0.9998453459326696},
- Offset[{-3, 0}, {5., -0.9998453459326696}]}}], {{{1., 0.}, {0.,
- 1.}}, {0., 0.}}]},
- Antialiasing->False]}}},
- {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
- AbsoluteThickness[1.6],
- PointBox[{{1., 0.}, {2., 0.}, {3., 0.}, {4., 0.000999263172207776}, {5.,
- 0.00015465406733028428`}}]}, {{}, {}}},
- AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
- Axes->{True, True},
- AxesLabel->{None, None},
- AxesOrigin->{0., 0},
- DisplayFunction->Identity,
- Frame->{{False, False}, {False, False}},
- FrameLabel->{{None, None}, {None, None}},
- FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
- GridLines->{None, None},
- GridLinesStyle->Directive[
- GrayLevel[0.5, 0.4]],
- Method->{
- "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
- "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
- Identity[
- Part[#, 1]],
- Identity[
- Part[#, 2]]}& ), "CopiedValueFunction" -> ({
- Identity[
- Part[#, 1]],
- Identity[
- Part[#, 2]]}& )}},
- PlotRange->{{0., 5.}, {-0.001498894758311664, 0.00249815793051944}},
- PlotRangeClipping->True,
- PlotRangePadding->{{
- Scaled[0.02],
- Scaled[0.02]}, {
- Scaled[0.05],
- Scaled[0.05]}},
- Ticks->{Automatic, Automatic}]], "Output",
- CellChangeTimes->{{3.8394864302572823`*^9, 3.839486485737481*^9}, {
- 3.8394868108920527`*^9, 3.839486833544271*^9}, {3.839486968169405*^9,
- 3.839486994739235*^9}, {3.839487050609737*^9, 3.839487081545911*^9}, {
- 3.839487139032605*^9, 3.839487149734391*^9}, 3.8394880559648848`*^9,
- 3.839488095210012*^9, 3.839488432022138*^9, 3.839488966485567*^9,
- 3.839489132907782*^9, 3.8394891742679043`*^9, {3.83948923216856*^9,
- 3.839489247298073*^9}, {3.8394892811100388`*^9, 3.839489297255623*^9}, {
- 3.839489518429874*^9, 3.839489576749642*^9}, 3.839489614460577*^9, {
- 3.839489646744204*^9, 3.839489717916*^9}, {3.839489779953936*^9,
- 3.839489797877178*^9}, {3.839489858269053*^9, 3.839489894400456*^9},
- 3.83948999298129*^9, 3.839490039302783*^9, 3.839490198501548*^9, {
- 3.8394903145949183`*^9, 3.839490366668486*^9}, 3.839490410230691*^9,
- 3.83949068744411*^9, 3.839490882032105*^9, {3.839490915087521*^9,
- 3.8394909440773563`*^9}, {3.839491208442045*^9, 3.839491227913024*^9},
- 3.839491282583577*^9, 3.83949138318426*^9, 3.839491847872534*^9,
- 3.839491922779976*^9, {3.83949214072232*^9, 3.839492147793445*^9},
- 3.839492703416108*^9, {3.8394930877867403`*^9, 3.839493111348575*^9},
- 3.839493159337824*^9, 3.839493260745894*^9, 3.8394938495813704`*^9, {
- 3.839494015878335*^9, 3.839494051166876*^9}, 3.839494155707307*^9, {
- 3.839494232008819*^9, 3.8394942817479143`*^9}, {3.8394955838062563`*^9,
- 3.839495620912838*^9}, {3.839495892980287*^9, 3.839495961352178*^9},
- 3.839495996781355*^9, 3.8394960290995007`*^9, {3.8394961117034683`*^9,
- 3.839496132210868*^9}, {3.839496233750821*^9, 3.839496247464304*^9}, {
- 3.839496287823802*^9, 3.839496304224265*^9}, 3.83949641106695*^9,
- 3.839496651844782*^9, 3.839569714442939*^9, 3.839570692350816*^9,
- 3.839571037545631*^9, 3.8395710776956797`*^9, 3.8395711376334047`*^9,
- 3.839571186222416*^9, 3.839571351854351*^9, 3.8395716431049433`*^9,
- 3.8395716961263447`*^9, 3.8395719356619263`*^9, 3.839571975466508*^9, {
- 3.8395720292576017`*^9, 3.839572038127006*^9}, {3.83957217256413*^9,
- 3.83957219391011*^9}, 3.839572236054682*^9, {3.839572276306333*^9,
- 3.839572287892969*^9}, 3.839572342583872*^9, 3.839572572560753*^9,
- 3.839572613884104*^9, {3.839572830197351*^9, 3.839572867853582*^9}, {
- 3.839572962859436*^9, 3.839572978399377*^9}, 3.839573191565909*^9,
- 3.83957323416776*^9, 3.839574190974876*^9, {3.839574358418882*^9,
- 3.839574363836178*^9}, 3.839577688193771*^9, {3.839577931409347*^9,
- 3.839577940725779*^9}, {3.839579623692398*^9, 3.839579641583359*^9},
- 3.839580176251998*^9, {3.839580243310802*^9, 3.839580260058309*^9},
- 3.83958034038577*^9, 3.839581557584*^9, {3.83958160487352*^9,
- 3.839581615679512*^9}, 3.839581993151758*^9, 3.839582040886951*^9,
- 3.839582108820992*^9, 3.839582559973913*^9, 3.839582771424386*^9, {
- 3.839583107834976*^9, 3.839583154778919*^9}, {3.8395842000019083`*^9,
- 3.839584229236342*^9}, 3.839584319284484*^9, 3.8395843940434847`*^9,
- 3.839584572371277*^9, 3.839584947067206*^9, 3.839585081305537*^9,
- 3.839586137503179*^9, 3.8395862976249247`*^9, 3.839586429104487*^9,
- 3.839587842464167*^9, 3.839647990219092*^9, 3.8396572711023006`*^9,
- 3.839658508039483*^9, 3.839658567146755*^9, {3.8396586610674477`*^9,
- 3.8396586758654203`*^9}, 3.839659271097528*^9, 3.839661799778942*^9, {
- 3.839664337728752*^9, 3.8396643582360373`*^9}, {3.839664548980212*^9,
- 3.839664603837595*^9}, 3.839664641104356*^9, 3.8396691346008053`*^9,
- 3.8396700455490303`*^9, 3.839670127013689*^9, 3.8405260833413677`*^9, {
- 3.840527418121812*^9, 3.840527428230318*^9}, 3.840528597876438*^9, {
- 3.84052880585203*^9, 3.840528823602725*^9}, 3.840610810412817*^9,
- 3.8408694556097403`*^9, 3.840872804624278*^9, {3.840875797574889*^9,
- 3.8408758121424313`*^9}, {3.840877666763609*^9, 3.840877677233533*^9},
- 3.840878067793683*^9, {3.840880830069907*^9, 3.84088085023195*^9}, {
- 3.840880881407505*^9, 3.840880885369958*^9}, 3.840880931429838*^9,
- 3.840880983523183*^9, 3.840882901582034*^9, 3.8411116534753313`*^9,
- 3.841111732347678*^9, 3.841112335446682*^9, 3.8411123976633244`*^9,
- 3.8411142717862453`*^9, 3.841114943143334*^9, 3.841115089052647*^9,
- 3.841115194051117*^9, 3.8411159468161507`*^9, 3.841116777994376*^9,
- 3.841117271305902*^9, {3.841118706967044*^9, 3.841118717367868*^9}, {
- 3.8411193655082083`*^9, 3.84111937034937*^9}, 3.8411197766851873`*^9,
- 3.8411198234566708`*^9, 3.841119866102133*^9, 3.841120115400488*^9,
- 3.841121153260182*^9, 3.841121472842341*^9, 3.841121535767632*^9,
- 3.8411219087701063`*^9, 3.841121980800602*^9, 3.841130166199669*^9,
- 3.8411305965940332`*^9, {3.841130719276822*^9, 3.8411307399666243`*^9},
- 3.8411312190210743`*^9, 3.841134375147834*^9, 3.8411344263576813`*^9, {
- 3.8411344705668488`*^9, 3.841134479867544*^9}, {3.8411346037463017`*^9,
- 3.8411346144767933`*^9}, 3.8411356496009407`*^9, 3.841135748390747*^9,
- 3.8412137046354218`*^9, 3.841225535005499*^9, 3.8413034028742332`*^9,
- 3.841304441693802*^9, 3.841304530951276*^9, {3.841305187833931*^9,
- 3.841305194151207*^9}, 3.84130523777777*^9, 3.8413053474536552`*^9,
- 3.84131085931179*^9, 3.841316307349918*^9, {3.841390485438642*^9,
- 3.84139049061092*^9}, 3.841390578562212*^9, 3.841391291253233*^9,
- 3.841392160241373*^9, 3.841392337222522*^9, 3.841463592218527*^9,
- 3.841464593325774*^9, {3.84146629539501*^9, 3.841466301656163*^9}, {
- 3.841466384639339*^9, 3.841466402526952*^9}, {3.841466472723971*^9,
- 3.8414664828370647`*^9}, 3.8414665824436007`*^9, 3.841466673870327*^9,
- 3.841467838433302*^9, {3.841467883576232*^9, 3.8414678912410383`*^9}, {
- 3.841484010972992*^9, 3.841484090971327*^9}, {3.8417335944855137`*^9,
- 3.84173360078579*^9}, {3.8417336641871347`*^9, 3.8417336809514713`*^9},
- 3.841733732414792*^9, 3.8418270143146687`*^9},
- CellLabel->"Out[54]=",ExpressionUUID->"7248522d-d1d4-4c85-974e-1c4fb75d0538"]
-}, Open ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{
- RowBox[{
- RowBox[{
- SuperscriptBox[
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "5", "]"}], ",", "\[Delta]"}], "]"}], "[", "7",
- "]"}], "2"], "//.",
- RowBox[{"rules", "[",
- RowBox[{"h", "[", "5", "]"}], "]"}]}], "/.", "m41"}], "/.",
- RowBox[{"\[Delta]", "->",
- SuperscriptBox["10",
- RowBox[{"-", "13"}]]}]}]], "Input",
- CellChangeTimes->{{3.841484363307539*^9, 3.8414843901158257`*^9}, {
- 3.841484477837139*^9, 3.841484478027885*^9}, {3.841737234056855*^9,
- 3.841737236584674*^9}, {3.841737343483218*^9, 3.841737356282648*^9}, {
- 3.8418279179390507`*^9, 3.841827919010655*^9}},
+ RowBox[{"gC", "[", "8", "]"}], "->", "0"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "6", "]"}], "->", "0"}]}], "}"}]}], "]"}]}],
+ "]"}]}]], "Input",
+ CellChangeTimes->CompressedData["
+1:eJwdz01IkwEcBvDlnOBmEGOazcNyRR/64rZwMBhriLlSw8MgqYvowPDittRK
+8GCDueVh7B0s7DDyA6I8bcaWtSh0Ropa4LAhDtsXrdUWQcSkFav/8x4efsfn
+eRpNFuNgBY/HO0WBMs/dd+5HhbYz/wrb8M7BXgKqf7ApaJ4Wf4Hiqr4cfKE9
+XYQaWeIQZp67WlhS0i9RQoc17g+TzG76GYxMx5KwaqnMqY9NXn5FPjW4uuBP
+yWtDkhTevH0FrveOO2DttQYn1Lk+zsL49xJn7HPHyzSZ7xCF4fuKsRXoPbb1
+Fu6zylCGFHy6wBlwnwjDk78n38Ck4ck9/iz9rC/a4MTVGwOVpO9vjwnWeWIj
+MKgVjsKhHb4dnhfoOC/6o6twMWCLwEuKeW8NuZle4PTdfyg6Snqi52qgSWW4
+Dpmucc7jmfmsnZRaK3PQ+NgunCKr2/MiWIi2K+BZgUIJm/O3Qg706pc5vRP+
+HdjftBaFPt+DYSf5jWHNUDVjSQbRx2ykoKZ7IAe72ZmvsLUsXwqR8l02CBvn
+givKOdrT1xmBfxbEm7D0QcqZ1R3RqUin+lcb/A/qOC95
+ "],
CellLabel->
- "In[159]:=",ExpressionUUID->"c18b0b40-ab1a-45cd-ade8-999f04490358"],
+ "In[807]:=",ExpressionUUID->"77feec13-1cdc-471d-8d45-49920b8c9c58"],
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- "0``11.223106731244716", ",", "0``9.729549536879775", ",",
- "0``7.935594288562297", ",", "0.000014369909231904813`", ",",
- "1.382022061865488`*^-6", ",", "1.3088411793461432`*^-6", ",",
- "0.00006349109463943773`", ",", "6.310867767580666`*^7", ",",
- "0``12.432330500807378", ",", "1.0180218427440947`*^-8", ",",
- "0.0008907586309570269`", ",", "539.0740391579806`", ",",
- "3.9257768833632865`"}], "}"}]], "Output",
- CellChangeTimes->{{3.841484380853382*^9, 3.841484391296424*^9},
- 3.841484479328834*^9, {3.8417372314526987`*^9, 3.8417372372839403`*^9},
- 3.841737358030662*^9, 3.8418279212521048`*^9},
+Cell[BoxData["$Aborted"], "Output",
+ CellChangeTimes->{3.841829478405797*^9, 3.842082489741064*^9,
+ 3.842083149562351*^9, 3.842083340661083*^9},
CellLabel->
- "Out[159]=",ExpressionUUID->"08d062c4-9852-492a-8cb4-f8dd85719bf0"]
+ "Out[806]=",ExpressionUUID->"362d644d-39b8-4815-95d9-a10f5c313532"]
}, Open ]],
Cell[CellGroupData[{
-Cell[BoxData[
- RowBox[{"m6", "[",
- RowBox[{"[", "2", "]"}], "]"}]], "Input",
- CellChangeTimes->{{3.841829033783963*^9, 3.8418290353904676`*^9}},
- CellLabel->
- "In[200]:=",ExpressionUUID->"294039ec-927c-4d0e-b5e8-b787af6c65a6"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.4386492968109206`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19811568425039638`"}], ",",
- RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.413816520799948`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.527854128004632`"}], ",",
- RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.27587973561318635`"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.16115393159628033`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.11257716872626324`"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.0873159799752823`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.04846436044571278`"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.017508382180364136`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.003840089000838421`"}], ",",
-
- RowBox[{
- RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
- RowBox[{"-", "0.00045129383525703565`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.00002047851412149209`"}]}],
- "}"}]], "Output",
- CellChangeTimes->{3.841829035506735*^9},
- CellLabel->
- "Out[200]=",ExpressionUUID->"754c9690-f873-4d2f-beb2-c3646db81f65"]
-}, Open ]],
-
-Cell[BoxData[
- RowBox[{"m61", "=",
- RowBox[{"levenburgMarquardt", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"res", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "9", "]"}], ",",
- SuperscriptBox["10",
- RowBox[{"-", "9"}]]}], "]"}], "[", "8", "]"}], "//.",
- RowBox[{"rules", "[",
- RowBox[{"h", "[", "9", "]"}], "]"}]}], ",",
- RowBox[{"Join", "[",
- RowBox[{
- RowBox[{"m6", "[",
- RowBox[{"[", "2", "]"}], "]"}], ",",
- RowBox[{"{", "}"}]}], "]"}]}], "]"}]}]], "Input",
- CellChangeTimes->{{3.8414007567035093`*^9,
- 3.841400777615796*^9}},ExpressionUUID->"9d9f94f3-e11c-49e5-a722-\
-caf2af60837a"],
-
Cell[BoxData[{
RowBox[{
RowBox[{"ntest", "=", "3"}], ";",
@@ -5932,16 +6085,29 @@ Cell[BoxData[{
RowBox[{"our\[CapitalPhi]1", "=",
RowBox[{
RowBox[{
- RowBox[{
+ RowBox[{"Map", "[",
RowBox[{
RowBox[{
- RowBox[{"dFd\[Eta]List", "[",
+ RowBox[{"With", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"df", "=",
+ RowBox[{"D", "[",
+ RowBox[{"#", ",",
+ RowBox[{"{",
+ RowBox[{"m01", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}]}],
+ "}"}], ",",
+ RowBox[{"Around", "[",
+ RowBox[{"#", ",",
+ RowBox[{"df", ".", "cov0", ".", "df"}]}], "]"}]}], "]"}], "&"}],
+ ",",
+ RowBox[{
+ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[",
RowBox[{"n1", ",",
- RowBox[{"h", "[", "0", "]"}]}], "]"}], "[", "ntest", "]"}], "[",
- "1", "]"}], "/",
- RowBox[{
- RowBox[{"Range", "[",
- RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "//.",
+ RowBox[{"h", "[", "0", "]"}]}], "]"}], "[",
+ RowBox[{"ntest", ",", "1"}], "]"}]}], "]"}], "//.",
RowBox[{"rules", "[",
RowBox[{"h", "[", "0", "]"}], "]"}]}], "/.", "m01"}]}],
";"}], "\[IndentingNewLine]",
@@ -5949,16 +6115,29 @@ Cell[BoxData[{
RowBox[{"our\[CapitalPhi]2", "=",
RowBox[{
RowBox[{
- RowBox[{
+ RowBox[{"Map", "[",
RowBox[{
RowBox[{
- RowBox[{"dFd\[Eta]List", "[",
+ RowBox[{"With", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"df", "=",
+ RowBox[{"D", "[",
+ RowBox[{"#", ",",
+ RowBox[{"{",
+ RowBox[{"m11", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}]}],
+ "}"}], ",",
+ RowBox[{"Around", "[",
+ RowBox[{"#", ",",
+ RowBox[{"df", ".", "cov1", ".", "df"}]}], "]"}]}], "]"}], "&"}],
+ ",",
+ RowBox[{
+ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[",
RowBox[{"n1", ",",
- RowBox[{"h", "[", "1", "]"}]}], "]"}], "[", "ntest", "]"}], "[",
- "1", "]"}], "/",
- RowBox[{
- RowBox[{"Range", "[",
- RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "//.",
+ RowBox[{"h", "[", "1", "]"}]}], "]"}], "[",
+ RowBox[{"ntest", ",", "1"}], "]"}]}], "]"}], "//.",
RowBox[{"rules", "[",
RowBox[{"h", "[", "1", "]"}], "]"}]}], "/.", "m11"}]}],
";"}], "\[IndentingNewLine]",
@@ -5966,16 +6145,29 @@ Cell[BoxData[{
RowBox[{"our\[CapitalPhi]3", "=",
RowBox[{
RowBox[{
- RowBox[{
+ RowBox[{"Map", "[",
RowBox[{
RowBox[{
- RowBox[{"dFd\[Eta]List", "[",
+ RowBox[{"With", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"df", "=",
+ RowBox[{"D", "[",
+ RowBox[{"#", ",",
+ RowBox[{"{",
+ RowBox[{"m21", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}]}],
+ "}"}], ",",
+ RowBox[{"Around", "[",
+ RowBox[{"#", ",",
+ RowBox[{"df", ".", "cov2", ".", "df"}]}], "]"}]}], "]"}], "&"}],
+ ",",
+ RowBox[{
+ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[",
RowBox[{"n1", ",",
- RowBox[{"h", "[", "3", "]"}]}], "]"}], "[", "ntest", "]"}], "[",
- "1", "]"}], "/",
- RowBox[{
- RowBox[{"Range", "[",
- RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "//.",
+ RowBox[{"h", "[", "3", "]"}]}], "]"}], "[",
+ RowBox[{"ntest", ",", "1"}], "]"}]}], "]"}], "//.",
RowBox[{"rules", "[",
RowBox[{"h", "[", "3", "]"}], "]"}]}], "/.", "m21"}]}],
";"}], "\[IndentingNewLine]",
@@ -5983,33 +6175,42 @@ Cell[BoxData[{
RowBox[{"our\[CapitalPhi]4", "=",
RowBox[{
RowBox[{
- RowBox[{
+ RowBox[{"Map", "[",
RowBox[{
RowBox[{
- RowBox[{"dFd\[Eta]List", "[",
+ RowBox[{"With", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"df", "=",
+ RowBox[{"D", "[",
+ RowBox[{"#", ",",
+ RowBox[{"{",
+ RowBox[{"m31", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}]}],
+ "}"}], ",",
+ RowBox[{"Around", "[",
+ RowBox[{"#", ",",
+ RowBox[{"df", ".", "cov3", ".", "df"}]}], "]"}]}], "]"}], "&"}],
+ ",",
+ RowBox[{
+ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[",
RowBox[{"n1", ",",
- RowBox[{"h", "[", "3", "]"}]}], "]"}], "[", "ntest", "]"}], "[",
- "1", "]"}], "/",
- RowBox[{
- RowBox[{"Range", "[",
- RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "//.",
+ RowBox[{"h", "[", "3", "]"}]}], "]"}], "[",
+ RowBox[{"ntest", ",", "1"}], "]"}]}], "]"}], "//.",
RowBox[{"rules", "[",
- RowBox[{"h", "[", "3", "]"}], "]"}]}], "/.", "m31"}]}],
- ";"}], "\[IndentingNewLine]",
+ RowBox[{"h", "[", "3", "]"}], "]"}]}], "/.",
+ RowBox[{"m3", "[",
+ RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"our\[CapitalPhi]5", "=",
RowBox[{
RowBox[{
RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"dFd\[Eta]List", "[",
- RowBox[{"n1", ",",
- RowBox[{"h", "[", "5", "]"}]}], "]"}], "[", "ntest", "]"}], "[",
- "1", "]"}], "/",
- RowBox[{
- RowBox[{"Range", "[",
- RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "//.",
+ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[",
+ RowBox[{"n1", ",",
+ RowBox[{"h", "[", "5", "]"}]}], "]"}], "[",
+ RowBox[{"ntest", ",", "1"}], "]"}], "//.",
RowBox[{"rules", "[",
RowBox[{"h", "[", "5", "]"}], "]"}]}], "/.", "m41"}]}],
";"}], "\[IndentingNewLine]",
@@ -6022,14 +6223,15 @@ Cell[BoxData[{
RowBox[{
RowBox[{"dFd\[Eta]List", "[",
RowBox[{"n1", ",",
- RowBox[{"h", "[", "7", "]"}]}], "]"}], "[", "ntest", "]"}], "[",
+ RowBox[{"h", "[", "5", "]"}]}], "]"}], "[", "ntest", "]"}], "[",
"1", "]"}], "/",
RowBox[{
RowBox[{"Range", "[",
RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "//.",
RowBox[{"rules", "[",
- RowBox[{"h", "[", "7", "]"}], "]"}]}], "/.", "m51"}]}],
- ";"}], "\[IndentingNewLine]",
+ RowBox[{"h", "[", "5", "]"}], "]"}]}], "/.",
+ RowBox[{"m5", "[",
+ RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"our\[CapitalPhi]7", "=",
RowBox[{
@@ -6039,32 +6241,32 @@ Cell[BoxData[{
RowBox[{
RowBox[{"dFd\[Eta]List", "[",
RowBox[{"n1", ",",
- RowBox[{"h", "[", "9", "]"}]}], "]"}], "[", "ntest", "]"}], "[",
+ RowBox[{"h", "[", "7", "]"}]}], "]"}], "[", "ntest", "]"}], "[",
"1", "]"}], "/",
RowBox[{
RowBox[{"Range", "[",
RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "//.",
RowBox[{"rules", "[",
- RowBox[{"h", "[", "9", "]"}], "]"}]}], "/.", "m61"}]}],
- ";"}], "\[IndentingNewLine]",
+ RowBox[{"h", "[", "7", "]"}], "]"}]}], "/.",
+ RowBox[{"m6", "[",
+ RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"test", "=",
RowBox[{
RowBox[{
RowBox[{"(",
- RowBox[{"(",
- RowBox[{
- RowBox[{"\[CapitalPhi]s", "[",
- RowBox[{"[",
- RowBox[{";;",
- RowBox[{"ntest", "+", "1"}]}], "]"}], "]"}], "-", "#"}], ")"}],
- RowBox[{"(*",
- RowBox[{"/",
- RowBox[{"\[CapitalPhi]s", "[",
- RowBox[{"[",
- RowBox[{";;",
- RowBox[{"ntest", "+", "1"}]}], "]"}], "]"}]}], "*)"}], ")"}],
- "&"}], "/@",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"ntest", "+", "1"}]}], "]"}], "]"}], "-", "#"}], ")"}],
+ "/",
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"ntest", "+", "1"}]}], "]"}], "]"}]}], ")"}], "&"}], "/@",
RowBox[{"{",
RowBox[{
"our\[CapitalPhi]1", ",", "our\[CapitalPhi]2", ",", "our\[CapitalPhi]3",
@@ -6147,72 +6349,539 @@ Cell[BoxData[{
3.841828245746533*^9, 3.841828250201119*^9}, {3.841828576575222*^9,
3.8418285794468193`*^9}, {3.8418289627268457`*^9, 3.841828965421782*^9}, {
3.841829039167369*^9, 3.841829042007312*^9}, {3.84182947981529*^9,
- 3.841829483295195*^9}, {3.8418302597577257`*^9, 3.841830259925316*^9}},
+ 3.841829483295195*^9}, {3.8418302597577257`*^9, 3.841830259925316*^9}, {
+ 3.84199538756015*^9, 3.8419953900461187`*^9}, {3.841996274663054*^9,
+ 3.841996278166213*^9}, {3.841996521579771*^9, 3.841996522978904*^9}, {
+ 3.8419970052840242`*^9, 3.8419970193718567`*^9}, {3.8419973435864277`*^9,
+ 3.8419973472739477`*^9}, {3.8419975177893867`*^9,
+ 3.8419975239652863`*^9}, {3.841997884748868*^9, 3.841997890763851*^9}, {
+ 3.8420041447174597`*^9, 3.8420041781101303`*^9}, {3.842004239479266*^9,
+ 3.842004242071266*^9}, {3.84206898552192*^9, 3.842069078843721*^9}, {
+ 3.8420691999100437`*^9, 3.842069241622735*^9}, {3.8420697158872147`*^9,
+ 3.842069746655909*^9}, {3.842069888210289*^9, 3.8420699077465277`*^9}, {
+ 3.842070541727347*^9, 3.84207055363832*^9}, {3.842079184212873*^9,
+ 3.842079187155411*^9}, {3.842079618956163*^9, 3.842079619691287*^9}},
+ CellLabel->
+ "In[373]:=",ExpressionUUID->"696e8dad-b679-4cff-9df9-7fa32582e84f"],
+
+Cell[BoxData["$Aborted"], "Output",
+ CellChangeTimes->{3.8420796242319183`*^9},
+ CellLabel->
+ "Out[374]=",ExpressionUUID->"6a404edb-ac94-461f-b2e5-acd44da01100"],
+
+Cell[BoxData["$Aborted"], "Output",
+ CellChangeTimes->{3.842079641410962*^9},
+ CellLabel->
+ "Out[376]=",ExpressionUUID->"2c660b93-654e-4c19-a6ee-ebd9ae1fe369"],
+
+Cell[BoxData["$Aborted"], "Output",
+ CellChangeTimes->{3.842079642992372*^9},
+ CellLabel->
+ "Out[377]=",ExpressionUUID->"ac425c72-2e2b-4850-8349-fef964c356dd"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "Part", "partd",
+ "\"Part specification \\!\\(\\*RowBox[{\\\"m5\\\", \
+\\\"\[LeftDoubleBracket]\\\", \\\"2\\\", \\\"\[RightDoubleBracket]\\\"}]\\) \
+is longer than depth of object.\"", 2, 379, 382, 31641741301462687909,
+ "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.8420690577543163`*^9, 3.842069085191916*^9},
+ 3.842069222904478*^9, 3.842069254149623*^9, 3.8420697981814404`*^9,
+ 3.8420700634622517`*^9, 3.842070413337386*^9, 3.8420706115982637`*^9,
+ 3.842077684024465*^9, 3.8420779659089937`*^9, 3.842078147124432*^9,
+ 3.842078892908864*^9, 3.842079239774172*^9, 3.842079643119793*^9},
+ CellLabel->
+ "During evaluation of \
+In[373]:=",ExpressionUUID->"e7472b6a-9708-47bd-9dd2-849ab9abc5a6"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "ReplaceAll", "reps",
+ "\"\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"m5\\\", \
+\\\"\[LeftDoubleBracket]\\\", \\\"2\\\", \\\"\[RightDoubleBracket]\\\"}], \
+\\\"}\\\"}]\\) is neither a list of replacement rules nor a valid dispatch \
+table, and so cannot be used for replacing.\"", 2, 379, 383,
+ 31641741301462687909, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.8420690577543163`*^9, 3.842069085191916*^9},
+ 3.842069222904478*^9, 3.842069254149623*^9, 3.8420697981814404`*^9,
+ 3.8420700634622517`*^9, 3.842070413337386*^9, 3.8420706115982637`*^9,
+ 3.842077684024465*^9, 3.8420779659089937`*^9, 3.842078147124432*^9,
+ 3.842078892908864*^9, 3.842079239774172*^9, 3.842079643125565*^9},
+ CellLabel->
+ "During evaluation of \
+In[373]:=",ExpressionUUID->"d14e8158-7a0c-4e09-98f1-d604a5881e2e"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "Part", "partd",
+ "\"Part specification \\!\\(\\*RowBox[{\\\"m6\\\", \
+\\\"\[LeftDoubleBracket]\\\", \\\"2\\\", \\\"\[RightDoubleBracket]\\\"}]\\) \
+is longer than depth of object.\"", 2, 380, 384, 31641741301462687909,
+ "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.8420690577543163`*^9, 3.842069085191916*^9},
+ 3.842069222904478*^9, 3.842069254149623*^9, 3.8420697981814404`*^9,
+ 3.8420700634622517`*^9, 3.842070413337386*^9, 3.8420706115982637`*^9,
+ 3.842077684024465*^9, 3.8420779659089937`*^9, 3.842078147124432*^9,
+ 3.842078892908864*^9, 3.842079239774172*^9, 3.8420796431310797`*^9},
+ CellLabel->
+ "During evaluation of \
+In[373]:=",ExpressionUUID->"a752eb8a-23e3-4cdb-af93-ff21c18cf987"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "ReplaceAll", "reps",
+ "\"\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"m6\\\", \
+\\\"\[LeftDoubleBracket]\\\", \\\"2\\\", \\\"\[RightDoubleBracket]\\\"}], \
+\\\"}\\\"}]\\) is neither a list of replacement rules nor a valid dispatch \
+table, and so cannot be used for replacing.\"", 2, 380, 385,
+ 31641741301462687909, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.8420690577543163`*^9, 3.842069085191916*^9},
+ 3.842069222904478*^9, 3.842069254149623*^9, 3.8420697981814404`*^9,
+ 3.8420700634622517`*^9, 3.842070413337386*^9, 3.8420706115982637`*^9,
+ 3.842077684024465*^9, 3.8420779659089937`*^9, 3.842078147124432*^9,
+ 3.842078892908864*^9, 3.842079239774172*^9, 3.842079643136348*^9},
+ CellLabel->
+ "During evaluation of \
+In[373]:=",ExpressionUUID->"ba4bcc27-d9ad-4822-a182-dbfb6baf266b"]
+}, Open ]],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"ntest", "=", "2"}], ";",
+ RowBox[{"n1", "=", "2"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"our\[CapitalPhi]1", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[",
+ RowBox[{"n1", ",",
+ RowBox[{"h", "[", "0", "]"}]}], "]"}], "[",
+ RowBox[{"ntest", ",", "1"}], "]"}], "//.",
+ RowBox[{"rules", "[",
+ RowBox[{"h", "[", "0", "]"}], "]"}]}], "/.", "m01"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"our\[CapitalPhi]2", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[",
+ RowBox[{"n1", ",",
+ RowBox[{"h", "[", "1", "]"}]}], "]"}], "[",
+ RowBox[{"ntest", ",", "1"}], "]"}], "//.",
+ RowBox[{"rules", "[",
+ RowBox[{"h", "[", "1", "]"}], "]"}]}], "/.", "m11"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"our\[CapitalPhi]3", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[",
+ RowBox[{"3", ",",
+ RowBox[{"h", "[", "2", "]"}]}], "]"}], "[",
+ RowBox[{"ntest", ",", "1"}], "]"}], "//.",
+ RowBox[{"rules", "[",
+ RowBox[{"h", "[", "2", "]"}], "]"}]}], "/.",
+ RowBox[{"m2", "[",
+ RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"our\[CapitalPhi]4", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[",
+ RowBox[{"3", ",",
+ RowBox[{"h", "[", "2", "]"}]}], "]"}], "[",
+ RowBox[{"ntest", ",", "1"}], "]"}], "//.",
+ RowBox[{"rules", "[",
+ RowBox[{"h", "[", "2", "]"}], "]"}]}], "/.",
+ RowBox[{"m3", "[",
+ RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"our\[CapitalPhi]5", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[",
+ RowBox[{"4", ",",
+ RowBox[{"h", "[", "4", "]"}]}], "]"}], "[",
+ RowBox[{"ntest", ",", "1"}], "]"}], "//.",
+ RowBox[{"rules", "[",
+ RowBox[{"h", "[", "4", "]"}], "]"}]}], "/.",
+ RowBox[{"m4", "[",
+ RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"our\[CapitalPhi]6", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[",
+ RowBox[{"4", ",",
+ RowBox[{"h", "[", "5", "]"}]}], "]"}], "[",
+ RowBox[{"ntest", ",", "1"}], "]"}], "//.",
+ RowBox[{"rules", "[",
+ RowBox[{"h", "[", "5", "]"}], "]"}]}], "/.",
+ RowBox[{"m5", "[",
+ RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"our\[CapitalPhi]7", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[",
+ RowBox[{"5", ",",
+ RowBox[{"h", "[", "6", "]"}]}], "]"}], "[",
+ RowBox[{"ntest", ",", "1"}], "]"}], "//.",
+ RowBox[{"rules", "[",
+ RowBox[{"h", "[", "6", "]"}], "]"}]}], "/.",
+ RowBox[{"m6", "[",
+ RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"our\[CapitalPhi]8", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[",
+ RowBox[{"5", ",",
+ RowBox[{"h", "[", "7", "]"}]}], "]"}], "[",
+ RowBox[{"ntest", ",", "1"}], "]"}], "//.",
+ RowBox[{"rules", "[",
+ RowBox[{"h", "[", "7", "]"}], "]"}]}], "/.",
+ RowBox[{"m7", "[",
+ RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"test", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"ntest", "+", "1"}]}], "]"}], "]"}], "-", "#"}], ")"}],
+ "/",
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"ntest", "+", "1"}]}], "]"}], "]"}]}], ")"}], "&"}], "/@",
+ RowBox[{"{",
+ RowBox[{
+ "our\[CapitalPhi]1", ",", "our\[CapitalPhi]2", ",", "our\[CapitalPhi]3",
+ ",", "our\[CapitalPhi]4", ",", "our\[CapitalPhi]5", ",",
+ "our\[CapitalPhi]6", ",", "our\[CapitalPhi]7", ",",
+ "our\[CapitalPhi]8"}], "}"}]}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.8322388835042*^9, 3.832238885982521*^9}, {
+ 3.832238918751101*^9, 3.832238980544174*^9}, {3.832239034801425*^9,
+ 3.8322390392969837`*^9}, {3.832239749854486*^9, 3.832239844064394*^9}, {
+ 3.832240962876375*^9, 3.832240972475827*^9}, {3.8395784873824053`*^9,
+ 3.83957849607055*^9}, {3.83957950080114*^9, 3.839579518425556*^9}, {
+ 3.83958804978193*^9, 3.839588073901841*^9}, {3.8396605353589077`*^9,
+ 3.839660538358272*^9}, {3.83966057553535*^9, 3.839660617032419*^9}, {
+ 3.839660754707074*^9, 3.8396607547789183`*^9}, {3.8396621782291803`*^9,
+ 3.8396621845492477`*^9}, {3.839663529342072*^9, 3.839663542742002*^9}, {
+ 3.840873373815803*^9, 3.840873445078918*^9}, {3.840874252726038*^9,
+ 3.840874278606474*^9}, {3.840876682418293*^9, 3.84087670662568*^9},
+ 3.840877995706422*^9, 3.8408793931665916`*^9, 3.8408795281927958`*^9,
+ 3.84087980844783*^9, 3.840880690661016*^9, {3.840883794798806*^9,
+ 3.840883797038789*^9}, {3.840884545541564*^9, 3.8408845538856707`*^9}, {
+ 3.8408846573436317`*^9, 3.840884666823792*^9}, {3.8408848015624523`*^9,
+ 3.840884804922502*^9}, 3.840885718323984*^9, {3.840885790541791*^9,
+ 3.840885802684683*^9}, {3.8411119812699337`*^9, 3.8411119909977083`*^9},
+ 3.841112515316641*^9, 3.8411154290306177`*^9, 3.841115669962463*^9,
+ 3.841115828005046*^9, 3.8411175933298197`*^9, {3.841117940111762*^9,
+ 3.841118038801834*^9}, {3.8411181421001263`*^9, 3.841118156508168*^9}, {
+ 3.841119106341078*^9, 3.84111910763673*^9}, {3.84111914217358*^9,
+ 3.841119149725647*^9}, {3.841119955795576*^9, 3.841119961259308*^9}, {
+ 3.8411218811098623`*^9, 3.84112188750177*^9}, {3.841133333672965*^9,
+ 3.8411333646003513`*^9}, 3.841133421761998*^9, {3.841134255360888*^9,
+ 3.8411342638889303`*^9}, {3.841135064199835*^9, 3.841135064583659*^9}, {
+ 3.8411351234249287`*^9, 3.841135124680657*^9}, {3.841135211194282*^9,
+ 3.841135211274117*^9}, {3.841135406390181*^9, 3.841135406461857*^9}, {
+ 3.84113552787227*^9, 3.8411355279520473`*^9}, {3.841136166748022*^9,
+ 3.841136166811797*^9}, {3.841136398016295*^9, 3.84113639810402*^9}, {
+ 3.841136489617982*^9, 3.8411364896975927`*^9}, {3.84113669342939*^9,
+ 3.84113672040588*^9}, {3.841137494860138*^9, 3.84113752066864*^9}, {
+ 3.841196950341856*^9, 3.8411969777902308`*^9}, {3.841198298254539*^9,
+ 3.841198298326271*^9}, {3.841198447129076*^9, 3.8411984482090397`*^9}, {
+ 3.841199114917082*^9, 3.841199119884962*^9}, {3.841199466549716*^9,
+ 3.841199466619011*^9}, {3.841201347909103*^9, 3.8412013530528297`*^9}, {
+ 3.841202928897876*^9, 3.8412029425058126`*^9}, {3.8412040252936583`*^9,
+ 3.8412040628862677`*^9}, {3.841204228641543*^9, 3.841204233873122*^9}, {
+ 3.841204573927539*^9, 3.841204581199667*^9}, {3.841205324805374*^9,
+ 3.841205342061594*^9}, {3.841205972657172*^9, 3.841205979025239*^9}, {
+ 3.8412065774120607`*^9, 3.841206586731984*^9}, {3.841206662325692*^9,
+ 3.8412066624054823`*^9}, 3.841207051644765*^9, {3.841207138974884*^9,
+ 3.8412071390623493`*^9}, {3.841207422075746*^9, 3.841207422203761*^9}, {
+ 3.841213509820256*^9, 3.841213509932082*^9}, {3.841228425671258*^9,
+ 3.8412284729036703`*^9}, {3.841228675963469*^9, 3.841228686787562*^9}, {
+ 3.841229112443954*^9, 3.841229121571589*^9}, 3.841299158149366*^9,
+ 3.841299566996804*^9, 3.841301356709453*^9, {3.841301625730665*^9,
+ 3.841301648672155*^9}, {3.841301731820641*^9, 3.841301732324624*^9}, {
+ 3.841302358296423*^9, 3.841302358792099*^9}, {3.841312529523774*^9,
+ 3.841312533419903*^9}, 3.841315636429351*^9, {3.841393121651956*^9,
+ 3.841393121755248*^9}, {3.841393249153199*^9, 3.841393273790092*^9},
+ 3.841393700421857*^9, 3.841398192512566*^9, {3.841398248217105*^9,
+ 3.841398248368924*^9}, {3.841399566779069*^9, 3.8413995828254623`*^9},
+ 3.841399972537139*^9, {3.8414001770689287`*^9, 3.841400177212687*^9}, {
+ 3.841464749238928*^9, 3.841464785841058*^9}, 3.841464824834222*^9,
+ 3.841464891539579*^9, 3.841465158808465*^9, 3.841465331579411*^9, {
+ 3.8414658328897333`*^9, 3.841465852857485*^9}, {3.841466561097473*^9,
+ 3.8414665630973454`*^9}, {3.841466932485777*^9, 3.8414669341900043`*^9}, {
+ 3.841467101315713*^9, 3.841467104995029*^9}, {3.841472547040936*^9,
+ 3.8414725544327183`*^9}, {3.8414733744967413`*^9, 3.841473388856886*^9}, {
+ 3.841473450698228*^9, 3.8414734807303057`*^9}, {3.841485108824091*^9,
+ 3.841485111280056*^9}, {3.841485185017519*^9, 3.841485187193397*^9}, {
+ 3.841485484679089*^9, 3.841485487671123*^9}, {3.841485702195181*^9,
+ 3.841485704778964*^9}, {3.841730916100902*^9, 3.841730925141005*^9}, {
+ 3.841731203522408*^9, 3.8417312109703093`*^9}, {3.841734018910133*^9,
+ 3.84173402362984*^9}, {3.841734714315658*^9, 3.8417347201469107`*^9}, {
+ 3.841734973441475*^9, 3.841734989319797*^9}, {3.841735266172834*^9,
+ 3.8417352681888866`*^9}, {3.841735347206047*^9, 3.841735349750581*^9}, {
+ 3.8417355136010637`*^9, 3.841735515537148*^9}, {3.841736151366416*^9,
+ 3.841736154252789*^9}, {3.8418267002293262`*^9, 3.841826700908839*^9}, {
+ 3.841827022229425*^9, 3.841827025210784*^9}, {3.841827069605363*^9,
+ 3.841827070995617*^9}, {3.841827192310936*^9, 3.841827202653894*^9}, {
+ 3.841827316777439*^9, 3.8418273216080513`*^9}, {3.841827837874792*^9,
+ 3.841827850121397*^9}, {3.841827897203548*^9, 3.841827898866517*^9}, {
+ 3.841828245746533*^9, 3.841828250201119*^9}, {3.841828576575222*^9,
+ 3.8418285794468193`*^9}, {3.8418289627268457`*^9, 3.841828965421782*^9}, {
+ 3.841829039167369*^9, 3.841829042007312*^9}, {3.84182947981529*^9,
+ 3.841829483295195*^9}, {3.8418302597577257`*^9, 3.841830259925316*^9}, {
+ 3.84199538756015*^9, 3.8419953900461187`*^9}, {3.841996274663054*^9,
+ 3.841996278166213*^9}, {3.841996521579771*^9, 3.841996522978904*^9}, {
+ 3.8419970052840242`*^9, 3.8419970193718567`*^9}, {3.8419973435864277`*^9,
+ 3.8419973472739477`*^9}, {3.8419975177893867`*^9,
+ 3.8419975239652863`*^9}, {3.841997884748868*^9, 3.841997890763851*^9}, {
+ 3.8420041447174597`*^9, 3.8420041781101303`*^9}, {3.842004239479266*^9,
+ 3.842004242071266*^9}, {3.84206898552192*^9, 3.842069078843721*^9}, {
+ 3.8420691999100437`*^9, 3.842069241622735*^9}, {3.8420697158872147`*^9,
+ 3.842069746655909*^9}, {3.842069888210289*^9, 3.8420699077465277`*^9}, {
+ 3.842070541727347*^9, 3.84207055363832*^9}, {3.842079184212873*^9,
+ 3.842079187155411*^9}, {3.842079219019874*^9, 3.8420792397080917`*^9}, {
+ 3.842079325046709*^9, 3.842079329926035*^9}, {3.842079628604021*^9,
+ 3.842079629563249*^9}, {3.8420796856853647`*^9, 3.842079687236236*^9}, {
+ 3.8420797866794786`*^9, 3.8420797904062223`*^9}, {3.842079866592558*^9,
+ 3.842079867279723*^9}, {3.8420801727363577`*^9, 3.842080175165329*^9}, {
+ 3.842080262984415*^9, 3.8420802646710453`*^9}, {3.842080344026059*^9,
+ 3.842080348104516*^9}, {3.8420805266687517`*^9, 3.842080528363811*^9}, {
+ 3.842080794658084*^9, 3.842080831081118*^9}, {3.842080983844451*^9,
+ 3.842080984604033*^9}, {3.842081114415646*^9, 3.842081115430518*^9}, {
+ 3.842081160808421*^9, 3.842081161903408*^9}, {3.842081231705904*^9,
+ 3.842081234512889*^9}, {3.842081279546413*^9, 3.842081284690896*^9}, {
+ 3.84208131509134*^9, 3.842081316090143*^9}, {3.8420814411176863`*^9,
+ 3.842081443660351*^9}, {3.84208157732831*^9, 3.842081579991308*^9}, {
+ 3.842081729995171*^9, 3.8420817311380463`*^9}, {3.8420819686554947`*^9,
+ 3.842081979774498*^9}, {3.842083163678668*^9, 3.8420831900607443`*^9}, {
+ 3.84208328073446*^9, 3.8420832814942417`*^9}},
CellLabel->
- "In[224]:=",ExpressionUUID->"696e8dad-b679-4cff-9df9-7fa32582e84f"],
+ "In[795]:=",ExpressionUUID->"673ffefa-75f0-46ac-befd-c785b4bc3ce1"],
Cell[CellGroupData[{
Cell[BoxData[
- RowBox[{"ListLogPlot", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"2", "+", "1"}]}], "]"}], "]"}], "-", "#"}], ")"}], "/",
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"2", "+", "1"}]}], "]"}], "]"}]}], ")"}], "&"}], "@",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[",
+ RowBox[{"5", ",",
+ RowBox[{"h", "[", "6", "]"}]}], "]"}], "[",
+ RowBox[{"2", ",", "1"}], "]"}], "//.",
+ RowBox[{"rules", "[",
+ RowBox[{"h", "[", "6", "]"}], "]"}]}], "/.",
+ RowBox[{"m6", "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}]], "Input",
+ CellChangeTimes->{{3.84208597735402*^9, 3.842086041345319*^9}},
+ CellLabel->"In[11]:=",ExpressionUUID->"3a6bc1b3-5e9d-4b1c-b46d-fd5e4ff8cf76"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "0.00001410683177676464`"}], ",", "0.0001756274338069263`",
+ ",", "0.0007405099973650077`"}], "}"}]], "Output",
+ CellChangeTimes->{{3.842086001837146*^9, 3.842086041643119*^9}},
+ CellLabel->"Out[11]=",ExpressionUUID->"c977424a-aa18-4aea-aaca-484dcc8c8408"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
RowBox[{
- RowBox[{"Abs", "@",
- RowBox[{"Re", "@",
- RowBox[{"Transpose", "[", "test", "]"}]}]}], ",",
- RowBox[{"Joined", "->", "True"}]}], "]"}]], "Input",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"2", "+", "1"}]}], "]"}], "]"}], "-", "#"}], ")"}], "/",
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"2", "+", "1"}]}], "]"}], "]"}]}], ")"}], "&"}], "@",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[",
+ RowBox[{"5", ",",
+ RowBox[{"h", "[", "7", "]"}]}], "]"}], "[",
+ RowBox[{"2", ",", "1"}], "]"}], "//.",
+ RowBox[{"rules", "[",
+ RowBox[{"h", "[", "7", "]"}], "]"}]}], "/.",
+ RowBox[{"m7", "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}]], "Input",
+ CellChangeTimes->{{3.84208597735402*^9, 3.842086001512249*^9}},
+ CellLabel->"In[9]:=",ExpressionUUID->"a69be52b-dc01-480f-81d9-1536204c04bc"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "0.000015323164578722875`"}], ",", "0.00018434643379817203`",
+ ",", "0.0007498348692234069`"}], "}"}]], "Output",
+ CellChangeTimes->{3.842086001837146*^9},
+ CellLabel->"Out[9]=",ExpressionUUID->"e502b5f4-ed08-4ca3-8845-e50c58f64274"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Show", "[",
+ RowBox[{
+ RowBox[{"ListLogLogPlot", "[",
+ RowBox[{
+ RowBox[{"Abs", "@",
+ RowBox[{"Re", "@",
+ RowBox[{"Transpose", "[", "test", "]"}]}]}], ",",
+ RowBox[{"Joined", "->", "True"}]}], "]"}], ",",
+ RowBox[{"LogLogPlot", "[",
+ RowBox[{
+ RowBox[{"0.0005",
+ SuperscriptBox["x",
+ RowBox[{"-", "2"}]]}], ",",
+ RowBox[{"{",
+ RowBox[{"x", ",", "0.5", ",", "10"}], "}"}], ",",
+ RowBox[{"PlotStyle", "->", "Black"}]}], "]"}]}], "]"}]], "Input",
CellChangeTimes->CompressedData["
-1:eJwd0FtIk3Ech/G1SSxrGYEVHTfcZLBESTv4yhgLDzFrjCGzhChnWXPmcK4x
-m7ayg0tw2pBkjEyHKHSAshkyQWkRigynGK6EAsWWF29FVFJG0e/7v3j43D8y
-s814XigQCFQUnPzweKmmndfOqNYnYdNA9CvsdM8y9/+cb7CShzRfmIYpg6wm
-yGvFby8yM4U+BXzZvisTFi0/W6wjY5oEsyUtpvOT1WN7TkCxRupZus9r66YO
-M41zPd1wXtgagLp07xyccPiYi3d2rMAsxTdm+bhbv0wuTPiZLX0hyUfy7A/3
-Zrg9TeqBof7ELRiNq7kkueV6jhp2NeZ2wWuF6fdgaqdZ/olUHrQws/XbVNCn
-lzFde0/mwF4+zkzyF3ywMGxhhp0HuqEsZZiZF6/8AxPWAsEKyX+u2gjlxUMS
-eGRfmw7+rSgrhaWr082wI6i7Ck2cqBUqOZEXSnfX/zb18Frn0V9r8GbvmLuc
-DHvkTbA6YWk4RYoUEgc0+k43wk03ZpshP1Q0AreKn49CR8m7+gpSvTPXDlcD
-62orSXutzQYD9unLcM1lcMKnBTNGM5n0v2Fmn8m7VEUq/+Uz+x/FBs+RscEE
-k8sYvu0lI1yEOWJ68r6DdD0cZbYJg9/hZMYLZt/x1KjoAX2xRl5B793XJSlk
-qDj/GCwzbhBLyAXnFeZ/mApx9A==
+1:eJwd0mtIk2EAxfG1SSxrGZEVXTe2ycDEmVZuMsbCS80aY8gsIcpZ1pw5nGvM
+pq3s4hJ8tSHJGNocktAFSmfYBKNVKDI2xXAlVCi2/PBWRCVlFD3n+XD4fT/8
+RSar4QyXw+FkkcGJ9w8WatpZzVTm6iRsuhv5Cjtd09Q9P2cbLMT96i9U/aRe
+VONnNfw356gZXEYKn7dvz4BFi4/n64hRdYLakhbVeonVYzuPQr5a6F7oYTV1
+kweohpnebjjLbfVBbbpnBo7bGer8za1LMEv6jVr+zKVbJM6Ne6ktfUHBR+Kp
+H671cEua0A2D/YnrMBJXKZPEDVfkKtjVmNsFLxem34apnSbJJ6Jsn5marduc
+CRmdiOrcdUwOA2ycmmTPMrAwZKaGHHu7oShlmJoXr/wDE5YCzhKR/Vy1FkqK
+BwUwf3ebFv6tKCuFpcuxZtjh116CRiWvFcqUPA8U7qj/bexlNY6Dv1bgtcCY
+q5wYckuaYHXC3HCcyJMK7NDAnGiE665ON0N2sGgEbuQPjUJ7ydv6CqJqW64N
+LvtW1VYSbbVWK/TZYhfgilPvgI8KpgwmYtL7mpp9Mu98FVH2T0Htvx8dOE2M
+DiSoSvHwDQ8xrAxTR4wP33UQnfdGqW1c/3c4IX5C7TuSGuHdIb9Ywi+g59ar
+khRisFhxCJYZ1vAFxDnHReqmoQ9ieYD0IzoshU9fKnJyiDG3KR/+B8ZPgIA=
+
"],
CellLabel->
- "In[233]:=",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"],
+ "In[805]:=",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"],
Cell[BoxData[
- GraphicsBox[{{}, {{}, {},
- {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
- AbsoluteThickness[1.6],
- LineBox[{{1., -6.247357072407003}, {2., -7.24293799236701}, {
- 3., -7.524483683885048}, {4., -8.789682374493376}, {
- 5., -8.92454575354715}, {6., -8.472135787993935}, {
- 7., -8.82388019392827}}]},
- {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
- AbsoluteThickness[1.6],
- LineBox[{{1., -5.846050115598956}, {2., -6.559531467834641}, {
- 3., -6.731472544668917}, {4., -7.823638488881279}, {
- 5., -7.923560144521074}, {6., -7.393223012429918}, {
- 7., -7.783557059930336}}]},
- {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`],
- AbsoluteThickness[1.6],
- LineBox[{{1., -6.4434842766726526`}, {2., -6.776964236022403}, {
- 3., -6.9775063983186705`}, {4., -7.717571453758359}, {
- 5., -7.872650731613265}, {6., -7.311334753441164}, {
- 7., -7.775843727796941}}]},
- {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.012833333333333334`],
- AbsoluteThickness[1.6],
- LineBox[{{1., -8.390375395925787}, {2., -8.497117912351516}, {
- 3., -9.040017317003855}, {4., -8.535448281542093}, {
- 5., -9.419192360288292}, {6., -9.63707286786908}, {
- 7., -11.248131952781149`}}]}}, {{}, {}}},
+ GraphicsBox[{{{}, {{}, {},
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+ 0.012833333333333334`], AbsoluteThickness[1.6],
+ LineBox[{{0., -6.004631619205707}, {
+ 0.6931471805599453, -7.68073299889055}, {
+ 1.0986122886681098`, -10.33004943255557}, {
+ 1.3862943611198906`, -9.82911785657391}, {
+ 1.6094379124341003`, -10.084886766739118`}, {
+ 1.791759469228055, -11.713550979368975`}, {
+ 1.9459101490553132`, -11.168851354748806`}, {
+ 2.0794415416798357`, -11.07090528604727}}]},
+ {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+ 0.012833333333333334`], AbsoluteThickness[1.6],
+ LineBox[{{0., -4.223339526781511}, {
+ 0.6931471805599453, -5.724446142736132}, {
+ 1.0986122886681098`, -7.829706716217511}, {
+ 1.3862943611198906`, -7.580697473713457}, {
+ 1.6094379124341003`, -7.731919232253363}, {
+ 1.791759469228055, -9.306919160032065}, {
+ 1.9459101490553132`, -8.647145659996903}, {
+ 2.0794415416798357`, -8.58140986060854}}]},
+ {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+ 0.012833333333333334`], AbsoluteThickness[1.6],
+ LineBox[{{0., -3.715723038207591}, {
+ 0.6931471805599453, -4.98040566796352}, {
+ 1.0986122886681098`, -6.417487733930928}, {
+ 1.3862943611198906`, -6.260707431308009}, {
+ 1.6094379124341003`, -6.511820157839195}, {
+ 1.791759469228055, -8.091915595704814}, {
+ 1.9459101490553132`, -7.208171423517026}, {
+ 2.0794415416798357`, -7.17495264065246}}]}}, {{}, {}}}, {{{}, {},
+ TagBox[
+ {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.],
+ LineBox[CompressedData["
+1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAI5En3kIu5r+WYuVBwtsYwE4n8gm8
+Jua/C73y9qPdGMB6vbw1NR/mv4AXAKyF3xjA0OlRjScQ5r9qzBoWSeMYwH5C
+fDwM8uW/PjZQ6s/qGMDY89Ca1bXlv+gJu5Ld+RjAjFZ6V2g95b87sZDj+BcZ
+wPUbzdCNTOS/4f87hS9UGcAUxAQAVELiv9kVbvm91hnAdEoGlbVa4L9BtC2U
+pVAawDKI065P+dy/2NWUAynIGsAUtr6sKuzYvxxw16PNSRvAeqA9djwk1b/P
+kqdqy8IbwHjF4LhEC9G/Ly5TYupFHMACoo+s3ArKv75Mpi6lxhzAGjKFfp2J
+wr+884YhuT4dwMduhoWWzLS/aBNDRe7AHcCZrUXxNGuWv4O7jI98Oh7Aovun
+Q+2Uoj/N5n2uprEewKZ8aJvgc7k/w4pK/vEyH8C3BFezN0TEPyq3pHSWqx/A
+6lWxJpJwzD8eLu0NLhcgwATtQfJUO9I/P8Lby15XIMCQcpcFKvnVP5gaER08
+kyDAhL3InwgI2j9HL7QGKtQgwPVLZm6w0d0/Lgieg8QQIcDmz+/hMPbgP2yd
+9ZhvUiHAjIZK3/j54j9B9KCY6JIhwPFe23Yl2+Q/TQ+TKw7PIcAJGtrR1uTm
+P7Dm8lZEECLA4PYOx+zL6D9LgpkVJ00iwHLg4Q5yqeo/fd+TvteIIsC3rCIa
+fK/sPwb5+/+YySLAu5qZv+qS7j/H1qrUBgYjwLo1PxRvT/A/3nDHQYVHI8Bz
+pAByoFDxP4zMN5nRhyPACyTdHIRA8j9y7O6DysMjwP2UcCmqRPM/rsgTB9QE
+JMDOFh+Dgjf0PyNpfx2KQSTA/Z4chpIl9T8uyz4eDn0kwIYY0erkJ/Y/kelr
+t6K9JMDuoqCc6Rj3PyrM3+Pj+STAsB4nsDAe+D8ba8GoNTslwFGryBAqEvk/
+Q87pADR4JcBPPrkaWwH6PwPzZUMAtCXAp8Jghs4E+z8Z1E8e3fQlwN5XIz/0
+9vs/Z3mAjGYxJsBv3pxZXP38PwvbHpMAcybAXmtlHfz+/T9H/hCEaLMmwCwJ
+SS5O7/4/uuVJCH3vJsBUmOOg4vP/P4SJ8CSiMCfALZxMsJRzAECG8d3Uc20n
+wF/vzuTT6gBAHxsfbxOpJ8A+uyxKNGwBQA4BzqHD6SfAjQ8Y1u3kAUA2q8Nn
+ICYowPqxjeUI5wFAbHx+7y0nKMBoVAP1I+kBQKNNOXc7KCjAQpnuE1rtAUAQ
+8K6GVioowPgixVHG9QFA6zSapYwuKMBiNnLNngYCQKC+cOP4NijAOF3MxE8o
+AkAL0h1f0UcowKb/QdRqKgJAQqPY5t5IKMATorfjhSwCQHl0k27sSSjA7uai
+ArwwAkDmFgl+B0wowKNweUAoOQJAwVv0nD1QKMAOhCa8AEoCQHblytqpWCjA
+eyacyxtMAkCttoVit1kowOjIEds2TgJA44dA6sRaKMDDDf35bFICQFEqtvnf
+XCjAeJfTN9laAkArb6EYFmEowOY5SUf0XAJAYkBcoCNiKMBT3L5WD18CQJkR
+FygxYyjALiGqdUVjAkAGtIw3TGUowJvDH4VgZQJAPYVHv1lmKMAIZpWUe2cC
+QHNWAkdnZyjAdggLpJZpAkCqJ73OdGgowOOqgLOxawJA4fh3VoJpKMD8G1uL
+
+ "]]},
+ Annotation[#, "Charting`Private`Tag$73216#1"]& ]}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
- AxesOrigin->{0., -11.670875513516435`},
+ AxesOrigin->{-0.08754593296134726, -12.339426403677306`},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{
Charting`ScaledTicks[{Log, Exp}],
- Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}},
+ Charting`ScaledFrameTicks[{Log, Exp}]}, {
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Log, Exp}]}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
@@ -6220,48 +6889,80 @@ Cell[BoxData[
Method->{
"OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
- Identity[
+ Exp[
Part[#, 1]],
Exp[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
- Identity[
+ Exp[
Part[#, 1]],
Exp[
Part[#, 2]]}& )}},
- PlotRange->{{0., 7.}, {-11.670875513516435`, -5.846050115598956}},
+ PlotRange->{{-0.08754593296134726,
+ 2.0794415416798357`}, {-12.339426403677306`, -3.715723038207591}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.02],
Scaled[0.05]}},
- Ticks->FrontEndValueCache[{Automatic,
- Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-11.512925464970229`,
+ Ticks->FrontEndValueCache[{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledTicks[{Log, Exp}]}, {{{0.,
+ FormBox["1", TraditionalForm], {0.01, 0.}}, {0.6931471805599453,
+ FormBox["2", TraditionalForm], {0.01, 0.}}, {1.6094379124341003`,
+ FormBox["5", TraditionalForm], {0.01, 0.}}, {0.4054651081081644,
FormBox[
- TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`",
- TemplateBox[{"10",
- RowBox[{"-", "5"}]}, "Superscript", SyntaxForm ->
- SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01,
- 0.}}, {-9.903487552536127,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.0986122886681098`,
FormBox[
- TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`",
- TemplateBox[{"10",
- RowBox[{"-", "5"}]}, "Superscript", SyntaxForm ->
- SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01,
- 0.}}, {-9.210340371976182,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.3862943611198906`,
FormBox[
- TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`",
- TemplateBox[{"10",
- RowBox[{"-", "4"}]}, "Superscript", SyntaxForm ->
- SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01,
- 0.}}, {-7.600902459542082,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.791759469228055,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.9459101490553132`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.0794415416798357`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.1972245773362196`,
FormBox[
- TemplateBox[{"\[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`,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.302585092994046,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}}, {{-11.512925464970229`,
+ FormBox[
+ TemplateBox[{"10",
+ RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {-9.210340371976182,
+ FormBox[
+ TemplateBox[{"10",
+ RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {-6.907755278982137,
+ FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-4.605170185988091,
+ FormBox[
+ TagBox[
+ InterpretationBox[
+ StyleBox["\"0.010\"", ShowStringCharacters -> False], 0.01,
+ AutoDelete -> True], NumberForm[#, {
+ DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01,
+ 0.}}, {-13.815510557964274`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-13.122363377404328`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-12.716898269296165`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-12.429216196844383`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-12.206072645530174`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
0.}}, {-12.02375108873622,
@@ -6285,6 +6986,9 @@ Cell[BoxData[
0.}}, {-10.126631103850338`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.903487552536127,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
0.}}, {-9.721165995742174,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
@@ -6306,6 +7010,9 @@ Cell[BoxData[
0.}}, {-7.824046010856292,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.600902459542082,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
0.}}, {-7.418580902748128,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
@@ -6342,9 +7049,6 @@ Cell[BoxData[
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,
@@ -6357,6 +7061,27 @@ Cell[BoxData[
0.}}, {-2.995732273553991,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.8134107167600364`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.659260036932778,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.5257286443082556`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.4079456086518722`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.3025850929940455`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.6094379124341003`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.2039728043259361`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
0.}}}}]]], "Output",
CellChangeTimes->{
3.8417351792754507`*^9, 3.841735270593384*^9, 3.841735357439477*^9,
@@ -6365,14 +7090,34 @@ Cell[BoxData[
3.841827206353059*^9}, 3.84182732581502*^9, 3.841827843948781*^9,
3.8418279040382137`*^9, 3.8418282580491457`*^9, 3.841828584061058*^9, {
3.841829019571225*^9, 3.841829044223043*^9}, 3.8418294854778643`*^9,
- 3.841830262119801*^9},
+ 3.841830262119801*^9, {3.841995372213642*^9, 3.841995396475107*^9},
+ 3.841995484645892*^9, 3.841995682626008*^9, 3.841996135853613*^9,
+ 3.841996384100068*^9, {3.841996514866692*^9, 3.841996526602826*^9},
+ 3.841996688560584*^9, 3.8419970235038013`*^9, 3.841997350767638*^9,
+ 3.841997527513164*^9, 3.841997893705214*^9, 3.842069090690687*^9, {
+ 3.8420692244517384`*^9, 3.842069254324669*^9}, 3.842069827638431*^9,
+ 3.8420700802724743`*^9, 3.842070418369782*^9, 3.8420706117281237`*^9,
+ 3.8420776841978817`*^9, 3.8420779660784683`*^9, 3.842078147309599*^9,
+ 3.842078893092942*^9, 3.842079245401634*^9, 3.842079378136832*^9,
+ 3.8420796453175364`*^9, 3.8420796884261827`*^9, 3.842079791791926*^9,
+ 3.84207986806572*^9, 3.842079956289599*^9, 3.842080013691594*^9,
+ 3.8420800736067333`*^9, 3.8420801767022*^9, {3.842080258395369*^9,
+ 3.8420802657767553`*^9}, 3.8420803495055437`*^9, 3.842080447839018*^9,
+ 3.84208053012062*^9, 3.842080571064817*^9, 3.842080636861492*^9, {
+ 3.842080801936014*^9, 3.8420808330683537`*^9}, 3.8420809866283007`*^9, {
+ 3.842081026758739*^9, 3.8420810665712843`*^9}, 3.842081116607491*^9, {
+ 3.84208115809739*^9, 3.8420811630394373`*^9}, 3.842081236267685*^9,
+ 3.842081286153639*^9, {3.8420813178474293`*^9, 3.842081320915207*^9},
+ 3.842081445803397*^9, 3.842081582461212*^9, 3.8420817332329817`*^9,
+ 3.842081984502657*^9, 3.842082290220502*^9, {3.842083183386943*^9,
+ 3.842083282444791*^9}},
CellLabel->
- "Out[233]=",ExpressionUUID->"7be6558a-70f0-43d7-951c-51b419e583cb"]
+ "Out[805]=",ExpressionUUID->"4a71281b-8b4d-40ea-912d-d0bffa3afba8"]
}, Open ]]
}, Open ]]
},
-WindowSize->{1405.5, 1060.5},
-WindowMargins->{{Automatic, 2.25}, {2.25, Automatic}},
+WindowSize->{635.25, 1060.5},
+WindowMargins->{{642, Automatic}, {2.25, Automatic}},
FrontEndVersion->"12.3 for Linux x86 (64-bit) (May 11, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"6f6c570c-dfc0-4320-bdc7-0f1de62bb24c"
@@ -7498,249 +8243,269 @@ Cell[CellGroupData[{
Cell[56741, 2045, 203, 4, 40, "Section",ExpressionUUID->"5d9c76ab-41db-4d8f-b32b-3ceed5a29b07"],
Cell[56947, 2051, 213, 4, 22, "Input",ExpressionUUID->"c2736e8b-b9a2-44e3-be7a-35f424888e11"],
Cell[CellGroupData[{
-Cell[57185, 2059, 3014, 55, 22, "Input",ExpressionUUID->"a326d1ad-f5a3-49d5-9b86-3a79e4cb291c"],
-Cell[60202, 2116, 1303, 23, 25, "Output",ExpressionUUID->"97d0a138-49bc-4f29-960c-16ea2836e8d6"]
+Cell[57185, 2059, 3264, 59, 71, "Input",ExpressionUUID->"a326d1ad-f5a3-49d5-9b86-3a79e4cb291c"],
+Cell[60452, 2120, 1601, 27, 25, "Output",ExpressionUUID->"354672a1-e808-4f47-9909-36c2b4af968c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[61542, 2144, 648, 17, 24, "Input",ExpressionUUID->"8eab97ea-e359-40c0-9935-fde12f7b604a"],
-Cell[62193, 2163, 940, 18, 27, "Output",ExpressionUUID->"657cc05f-0a6c-4bfc-ac63-5c7dda33b28c"]
+Cell[62090, 2152, 697, 18, 24, "Input",ExpressionUUID->"8eab97ea-e359-40c0-9935-fde12f7b604a"],
+Cell[62790, 2172, 1009, 18, 44, "Output",ExpressionUUID->"d094b3f2-bd0b-4554-877a-0954c0fd9839"]
}, Open ]],
Cell[CellGroupData[{
-Cell[63170, 2186, 4389, 67, 75, "Input",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"],
-Cell[67562, 2255, 16434, 321, 210, "Output",ExpressionUUID->"50732af7-406a-47af-b446-2d2e30f9e4ac"]
+Cell[63836, 2195, 4590, 69, 75, "Input",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"],
+Cell[68429, 2266, 16628, 323, 183, "Output",ExpressionUUID->"de5014d5-9608-4236-9da2-63697a5c283d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[84033, 2581, 4487, 68, 75, "Input",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"],
-Cell[88523, 2651, 12408, 232, 209, "Output",ExpressionUUID->"d5be2d93-8799-4554-97ed-a66db4df9e0a"]
+Cell[85094, 2594, 4662, 71, 75, "Input",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"],
+Cell[89759, 2667, 12484, 233, 181, "Output",ExpressionUUID->"75cbb042-84e6-4596-a457-3236425ad8bd"]
}, Open ]],
-Cell[100946, 2886, 99, 0, 22, "Input",ExpressionUUID->"d8f49b29-f847-451a-a460-2535964a9a0a"],
-Cell[CellGroupData[{
-Cell[101070, 2890, 945, 21, 24, "Input",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"],
-Cell[102018, 2913, 494, 11, 22, "Message",ExpressionUUID->"38e1e97e-6922-4902-bd7b-4347bdc13a47"],
-Cell[102515, 2926, 494, 11, 22, "Message",ExpressionUUID->"a33755cf-536c-4641-9c78-7289962fa472"],
-Cell[103012, 2939, 266, 5, 18, "Print",ExpressionUUID->"e2133c02-599f-4265-8ee0-047003daf318"],
-Cell[103281, 2946, 531, 11, 22, "Message",ExpressionUUID->"668d8ed1-e748-4361-801c-3b3622c9e584"],
-Cell[103815, 2959, 537, 12, 22, "Message",ExpressionUUID->"6271bd0b-cc2b-4bb6-976f-ea43e0cce940"],
Cell[CellGroupData[{
-Cell[104377, 2975, 266, 5, 18, "Print",ExpressionUUID->"7035d7f9-98ac-4ffd-a934-ef2622699155"],
-Cell[104646, 2982, 268, 5, 18, "Print",ExpressionUUID->"e0d087bb-d143-4be9-8121-da53fae84005"]
+Cell[102280, 2905, 308, 8, 22, "Input",ExpressionUUID->"4aee75ec-485c-460f-b355-66a9df64aee0"],
+Cell[102591, 2915, 794, 22, 61, "Output",ExpressionUUID->"301e9cba-9e6b-4f8b-8b2e-9b8bdd2cf25f"]
}, Open ]],
-Cell[104929, 2990, 532, 11, 22, "Message",ExpressionUUID->"0522f535-30ca-4741-802a-bb8a853e882d"],
-Cell[105464, 3003, 527, 11, 22, "Message",ExpressionUUID->"aa249a58-de29-40dc-aae9-b1b44827b2c7"],
Cell[CellGroupData[{
-Cell[106016, 3018, 266, 5, 18, "Print",ExpressionUUID->"5a87b09d-851d-4928-bc80-d3c2e6276486"],
-Cell[106285, 3025, 268, 5, 18, "Print",ExpressionUUID->"29a0662b-8080-4911-a9d1-8fcefdde30fe"],
-Cell[106556, 3032, 266, 5, 18, "Print",ExpressionUUID->"098c6f69-b055-4dd3-8bfd-423282782cfa"],
-Cell[106825, 3039, 268, 5, 18, "Print",ExpressionUUID->"974a42b3-eb50-42fb-b86b-1fc3b45d6c54"],
-Cell[107096, 3046, 268, 5, 18, "Print",ExpressionUUID->"581c19dd-5430-4e9a-bd6a-620526353336"],
-Cell[107367, 3053, 266, 5, 18, "Print",ExpressionUUID->"25e141dd-4610-4868-a9d7-d5a3fd63eafd"]
+Cell[103422, 2942, 1231, 25, 22, "Input",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"],
+Cell[CellGroupData[{
+Cell[104678, 2971, 392, 7, 18, "Print",ExpressionUUID->"9eb02125-814e-4ead-82e0-8fa7ac456cc2"],
+Cell[105073, 2980, 391, 7, 18, "Print",ExpressionUUID->"ba947cc5-8425-41a1-9d88-e8d4ba1c645f"],
+Cell[105467, 2989, 390, 7, 18, "Print",ExpressionUUID->"8378ab59-c523-46b2-ba14-8e6dc32a93de"],
+Cell[105860, 2998, 390, 7, 18, "Print",ExpressionUUID->"0b6db944-913e-42f5-92ce-e30a1f92a1b0"],
+Cell[106253, 3007, 388, 7, 18, "Print",ExpressionUUID->"38d8b978-cfab-4e89-9161-4cc7522a4f19"]
}, Open ]],
-Cell[107648, 3061, 1135, 22, 25, "Output",ExpressionUUID->"925a3f69-9d05-48c7-98d4-b3010fe027fa"]
+Cell[106656, 3017, 845, 19, 25, "Output",ExpressionUUID->"7bc51fe6-b1f4-4852-a8c3-a7820e9ee507"]
}, Open ]],
Cell[CellGroupData[{
-Cell[108820, 3088, 247, 5, 22, "Input",ExpressionUUID->"fa94781f-8445-46c2-8474-4226f805b567"],
-Cell[109070, 3095, 299, 6, 25, "Output",ExpressionUUID->"d3c62db3-05b9-4187-9bcc-ddb3de13793c"]
+Cell[107538, 3041, 1560, 39, 57, "Input",ExpressionUUID->"b02b5204-9158-4350-9e92-e8f555f47ba7"],
+Cell[109101, 3082, 1132, 25, 42, "Output",ExpressionUUID->"a932a9d9-373e-4655-ab9d-01d29622fab0"]
}, Open ]],
+Cell[110248, 3110, 1354, 32, 41, "Input",ExpressionUUID->"fac9f265-b234-4b28-9a77-a9a9a37bcb16"],
Cell[CellGroupData[{
-Cell[109406, 3106, 1244, 32, 24, "Input",ExpressionUUID->"ee264c8f-1f8f-4cc9-aa8c-84111cea251b"],
-Cell[110653, 3140, 605, 13, 22, "Message",ExpressionUUID->"b7316a79-d459-413d-8e45-f8c1f75251d7"],
-Cell[111261, 3155, 809, 19, 25, "Output",ExpressionUUID->"79e68256-f728-4955-a624-e60c6c8ea908"]
+Cell[111627, 3146, 977, 22, 24, "Input",ExpressionUUID->"a3d76b7b-9348-4d3c-8e97-d0f40af7ee17"],
+Cell[112607, 3170, 13954, 283, 50, "Output",ExpressionUUID->"db27d8e0-2312-462f-9bb8-39a683b02caf"]
}, Open ]],
Cell[CellGroupData[{
-Cell[112107, 3179, 589, 15, 24, "Input",ExpressionUUID->"f5b06313-e438-43cc-9cb3-d01232c73e1f"],
-Cell[112699, 3196, 218, 3, 25, "Output",ExpressionUUID->"73287823-12e5-4424-b776-ffaef3d1f313"]
+Cell[126598, 3458, 220, 4, 22, "Input",ExpressionUUID->"589325ac-f49d-41d5-9ec6-188d338e9638"],
+Cell[126821, 3464, 916, 17, 92, "Output",ExpressionUUID->"579b2eee-a70b-48ec-8777-0bb406ee3526"]
}, Open ]],
Cell[CellGroupData[{
-Cell[112954, 3204, 707, 20, 22, "Input",ExpressionUUID->"29398383-9203-4cf6-aabb-1d3fe15a5894"],
+Cell[127774, 3486, 1018, 27, 24, "Input",ExpressionUUID->"29398383-9203-4cf6-aabb-1d3fe15a5894"],
Cell[CellGroupData[{
-Cell[113686, 3228, 356, 6, 18, "Print",ExpressionUUID->"2487362d-5c14-4c33-b345-40ddb69ef3da"],
-Cell[114045, 3236, 356, 6, 18, "Print",ExpressionUUID->"a6fe3275-23df-4e8a-bd70-c5f23038882b"],
-Cell[114404, 3244, 354, 6, 18, "Print",ExpressionUUID->"d7432d20-dfa4-4e51-b255-1dfcc908c271"],
-Cell[114761, 3252, 356, 6, 18, "Print",ExpressionUUID->"02c205d3-5106-4a3b-a2df-92d4bb9605d4"],
-Cell[115120, 3260, 356, 6, 18, "Print",ExpressionUUID->"a1c49a36-3b8c-42a0-8953-abf3faa882d9"]
+Cell[128817, 3517, 602, 10, 18, "Print",ExpressionUUID->"f4869400-3765-440f-b164-28a61fae5220"],
+Cell[129422, 3529, 606, 10, 18, "Print",ExpressionUUID->"945f0e57-8488-4da8-a8ed-b74e0eaf6307"],
+Cell[130031, 3541, 605, 10, 18, "Print",ExpressionUUID->"9b3d6872-863b-4a4c-80d2-fab964b41cac"],
+Cell[130639, 3553, 603, 10, 18, "Print",ExpressionUUID->"218f3502-5507-419f-84cc-815a88a439d7"],
+Cell[131245, 3565, 600, 10, 18, "Print",ExpressionUUID->"6949ef75-4411-4079-b75f-8910f0a43673"]
}, Open ]],
-Cell[115491, 3269, 932, 19, 25, "Output",ExpressionUUID->"d5e4c61a-fc6e-47b8-9909-b3202b08adb1"]
+Cell[131860, 3578, 1174, 24, 42, "Output",ExpressionUUID->"3400b7e9-90a0-46dc-a2ba-63ca5c863284"]
}, Open ]],
Cell[CellGroupData[{
-Cell[116460, 3293, 1358, 34, 24, "Input",ExpressionUUID->"672771a7-a1bf-4e81-a251-1d2b0d34398b"],
-Cell[117821, 3329, 697, 14, 22, "Message",ExpressionUUID->"30825e01-eb21-4382-93ac-46a8324b26e0"],
-Cell[118521, 3345, 1044, 25, 25, "Output",ExpressionUUID->"3ac239fc-e3d8-4fa6-bd3c-6a4f018a72fd"]
+Cell[133071, 3607, 1559, 39, 57, "Input",ExpressionUUID->"672771a7-a1bf-4e81-a251-1d2b0d34398b"],
+Cell[134633, 3648, 969, 18, 22, "Message",ExpressionUUID->"f25973ba-d943-48be-9f24-5ef1920b9f51"],
+Cell[135605, 3668, 1319, 29, 58, "Output",ExpressionUUID->"08bdf55b-b1ed-4694-bb3c-7cd3172fea16"]
}, Open ]],
+Cell[136939, 3700, 718, 20, 24, "Input",ExpressionUUID->"15f30a53-123e-4733-bbeb-afd5a7def984"],
Cell[CellGroupData[{
-Cell[119602, 3375, 639, 16, 24, "Input",ExpressionUUID->"becbd2c1-3886-4d89-919e-83cea993abb3"],
-Cell[120244, 3393, 217, 3, 25, "Output",ExpressionUUID->"de992139-61ec-45d2-a14b-74928691d4aa"]
+Cell[137682, 3724, 460, 8, 22, "Input",ExpressionUUID->"bfe15531-f075-4499-a137-4d851f7f7f55"],
+Cell[138145, 3734, 1312, 25, 108, "Output",ExpressionUUID->"77026836-47db-4b26-a3f8-13436bd799b1"]
}, Open ]],
Cell[CellGroupData[{
-Cell[120498, 3401, 978, 26, 24, "Input",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"],
+Cell[139494, 3764, 724, 18, 24, "Input",ExpressionUUID->"becbd2c1-3886-4d89-919e-83cea993abb3"],
+Cell[140221, 3784, 345, 5, 25, "Output",ExpressionUUID->"eae5426a-cb1c-45df-8714-df6cd49667d5"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[140603, 3794, 1415, 34, 24, "Input",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"],
+Cell[142021, 3830, 543, 11, 22, "Message",ExpressionUUID->"1519d24f-8121-43a4-8d15-5ca29b9bc3ab"],
+Cell[142567, 3843, 544, 11, 22, "Message",ExpressionUUID->"bd05cbef-bfeb-4ca6-820e-77c16a106049"],
+Cell[143114, 3856, 543, 11, 22, "Message",ExpressionUUID->"76bbb289-10c7-4e19-a5c3-9d8cc21df69c"],
+Cell[143660, 3869, 484, 10, 22, "Message",ExpressionUUID->"f0231bbb-eb2e-4ada-a977-efa375889ca4"],
Cell[CellGroupData[{
-Cell[121501, 3431, 425, 7, 18, "Print",ExpressionUUID->"a946ecb3-353a-4b0f-a9fb-ab7640b1b75c"],
-Cell[121929, 3440, 424, 7, 18, "Print",ExpressionUUID->"4266f228-fa5d-4036-ba39-ead2abb5fc55"],
-Cell[122356, 3449, 426, 7, 18, "Print",ExpressionUUID->"8c1a6163-9f63-48da-b626-50dbad8fd5bf"],
-Cell[122785, 3458, 426, 7, 18, "Print",ExpressionUUID->"88b8db6e-3fdf-483b-af65-2c2999af38f5"]
+Cell[144169, 3883, 200, 4, 18, "Print",ExpressionUUID->"64b212cf-4111-4ccb-92b9-9f107a144847"],
+Cell[144372, 3889, 197, 4, 18, "Print",ExpressionUUID->"960b306d-7f02-49b2-8a38-0b3d20674367"],
+Cell[144572, 3895, 198, 4, 18, "Print",ExpressionUUID->"189c47be-0c37-4b3c-bc58-25c3d13f5687"],
+Cell[144773, 3901, 196, 4, 18, "Print",ExpressionUUID->"ed4e0608-b422-415e-9e84-154e64047132"],
+Cell[144972, 3907, 193, 4, 18, "Print",ExpressionUUID->"9b55854c-ccc6-4b25-8973-259fb0bf5612"]
}, Open ]],
-Cell[123226, 3468, 746, 14, 22, "Message",ExpressionUUID->"ba32119b-06f1-4a37-a68c-eb07d99fac2d"],
-Cell[123975, 3484, 749, 14, 22, "Message",ExpressionUUID->"1770cc78-2c3c-4877-825c-f4728148b97d"],
-Cell[124727, 3500, 748, 14, 22, "Message",ExpressionUUID->"0ce5aef7-b955-4225-882b-98866bfce2b2"],
-Cell[125478, 3516, 687, 13, 22, "Message",ExpressionUUID->"cb1b4c0a-3d15-4c11-931c-36c9a19171a4"],
-Cell[126168, 3531, 423, 7, 18, "Print",ExpressionUUID->"14397552-cc28-4d45-ba69-afa6d658ce72"],
-Cell[126594, 3540, 1214, 26, 25, "Output",ExpressionUUID->"531124ae-8ead-4a78-8719-39ec0b3fae79"]
+Cell[145180, 3914, 1679, 35, 42, "Output",ExpressionUUID->"fa0d4eff-3a2b-4779-9a29-cdf4413c0568"]
}, Open ]],
Cell[CellGroupData[{
-Cell[127845, 3571, 1359, 34, 24, "Input",ExpressionUUID->"eaf55068-7c6e-48d1-8e5b-093c2f4b5994"],
-Cell[129207, 3607, 943, 17, 34, "Message",ExpressionUUID->"334ca9d2-87ff-4b5b-82cf-03a54d1382ab"],
-Cell[130153, 3626, 1300, 31, 42, "Output",ExpressionUUID->"a9055bc2-2ac1-4de8-8dac-28ec754d13c2"]
+Cell[146896, 3954, 1703, 41, 57, "Input",ExpressionUUID->"eaf55068-7c6e-48d1-8e5b-093c2f4b5994"],
+Cell[148602, 3997, 1116, 20, 34, "Message",ExpressionUUID->"bb66e50b-f997-44d9-ba2c-a37d72d7249e"],
+Cell[149721, 4019, 1423, 25, 64, "Message",ExpressionUUID->"69901938-a23f-4a57-b4f2-5e5be6d9ff19"],
+Cell[151147, 4046, 1617, 36, 58, "Output",ExpressionUUID->"6661822c-1c31-436e-a750-cc5539a9b64a"]
}, Open ]],
Cell[CellGroupData[{
-Cell[131490, 3662, 589, 15, 24, "Input",ExpressionUUID->"bbab0f46-5630-4e0d-9151-1d8b6f618dd4"],
-Cell[132082, 3679, 216, 3, 25, "Output",ExpressionUUID->"8bfd2404-26dd-479a-b323-cfa1bea22ba1"]
+Cell[152801, 4087, 1104, 25, 24, "Input",ExpressionUUID->"d5eaef8f-0b87-435a-b319-0400431fa108"],
+Cell[153908, 4114, 1821, 30, 79, "Message",ExpressionUUID->"6ba43569-cbf1-4d71-9cbd-7fc42ba52d1e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[132335, 3687, 806, 21, 24, "Input",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"],
-Cell[133144, 3710, 385, 7, 18, "Print",ExpressionUUID->"acad0e19-ca48-4f70-b570-3c13e6559546"],
-Cell[133532, 3719, 650, 13, 22, "Message",ExpressionUUID->"f3b26d2a-327a-40f2-bf48-762d2e826c8b"],
-Cell[134185, 3734, 646, 13, 22, "Message",ExpressionUUID->"e2893e1a-da81-4967-9028-c2ddf3c859a9"],
-Cell[134834, 3749, 646, 13, 22, "Message",ExpressionUUID->"4ebedd47-e11c-475c-baed-f9b6b907d76c"],
-Cell[135483, 3764, 643, 13, 22, "Message",ExpressionUUID->"bf29ec8b-6d0d-494f-a286-5b236a62dad9"],
+Cell[155766, 4149, 215, 4, 22, "Input",ExpressionUUID->"cba8a0b9-3aa3-4333-8122-e7602067e28b"],
+Cell[155984, 4155, 552, 11, 44, "Output",ExpressionUUID->"5dfe1d42-b9c2-48fd-9216-d7f98b1686a4"]
+}, Open ]],
Cell[CellGroupData[{
-Cell[136151, 3781, 385, 7, 18, "Print",ExpressionUUID->"b609a385-9bb2-4557-8acc-bed35111ad21"],
-Cell[136539, 3790, 384, 7, 18, "Print",ExpressionUUID->"ccffdeb3-c221-47bf-b880-30efb5f19937"],
-Cell[136926, 3799, 385, 7, 18, "Print",ExpressionUUID->"c797301d-6cd0-4b0b-b6a0-7b2bf6ad9c93"],
-Cell[137314, 3808, 387, 7, 18, "Print",ExpressionUUID->"238aa827-985b-46ca-ba93-7235adf631b7"]
+Cell[156573, 4171, 767, 18, 24, "Input",ExpressionUUID->"bbab0f46-5630-4e0d-9151-1d8b6f618dd4"],
+Cell[157343, 4191, 360, 5, 25, "Output",ExpressionUUID->"edec1b3d-65eb-4c19-b54f-7e961dd48a14"]
}, Open ]],
-Cell[137716, 3818, 1176, 28, 25, "Output",ExpressionUUID->"dc4d99cd-a7e0-49bb-9939-cd444c973ba8"]
+Cell[CellGroupData[{
+Cell[157740, 4201, 1540, 34, 24, "Input",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"],
+Cell[CellGroupData[{
+Cell[159305, 4239, 779, 12, 18, "Print",ExpressionUUID->"76cd6c3e-a4fd-4959-9c73-7e63297fc1f0"],
+Cell[160087, 4253, 779, 12, 18, "Print",ExpressionUUID->"295f8b37-5b7f-4d24-9e1a-35ef70b97b74"],
+Cell[160869, 4267, 781, 12, 18, "Print",ExpressionUUID->"db514d7c-bfff-4ec7-b794-ece0ede56ace"],
+Cell[161653, 4281, 777, 12, 18, "Print",ExpressionUUID->"dc74f80c-bc11-4ac0-a055-fedcbddd7bb9"],
+Cell[162433, 4295, 775, 12, 18, "Print",ExpressionUUID->"54ab27f6-8246-4dbd-9292-7ad540633f98"]
+}, Open ]],
+Cell[163223, 4310, 1689, 36, 44, "Output",ExpressionUUID->"850f52c5-d775-481d-8a42-d6b6cad02ff1"]
}, Open ]],
Cell[CellGroupData[{
-Cell[138929, 3851, 1509, 37, 24, "Input",ExpressionUUID->"0355409d-8b8c-45c1-9506-a20c5fe4044b"],
-Cell[140441, 3890, 1019, 18, 34, "Message",ExpressionUUID->"9d0aaa2d-9044-4606-9061-02502fb2546a"],
-Cell[141463, 3910, 1373, 33, 42, "Output",ExpressionUUID->"566df64d-7810-429a-afb1-f800919aefb9"]
+Cell[164949, 4351, 1852, 43, 57, "Input",ExpressionUUID->"0355409d-8b8c-45c1-9506-a20c5fe4044b"],
+Cell[166804, 4396, 1202, 21, 34, "Message",ExpressionUUID->"a8e408da-491c-41d8-a6b9-e436489dc2e8"],
+Cell[168009, 4419, 8231, 116, 177, "Message",ExpressionUUID->"f32e1169-808f-4e7a-8e18-94d2ea578fbb"],
+Cell[176243, 4537, 1202, 21, 34, "Message",ExpressionUUID->"a880e8b2-2093-4b4d-989c-9c4eb4791932"],
+Cell[177448, 4560, 769, 11, 25, "Output",ExpressionUUID->"32b0c21c-4fe0-4111-b324-fce35fc3def1"]
}, Open ]],
+Cell[178232, 4574, 1250, 27, 24, "Input",ExpressionUUID->"8f8cc5f8-51d5-4e0d-9ac6-686492c6ab4e"],
Cell[CellGroupData[{
-Cell[142873, 3948, 593, 16, 24, "Input",ExpressionUUID->"db5637ef-5db6-417e-aa71-a7604e24c6ef"],
-Cell[143469, 3966, 192, 3, 25, "Output",ExpressionUUID->"3de50d92-0b34-4eb5-b769-b252da7dda77"]
+Cell[179507, 4605, 264, 5, 22, "Input",ExpressionUUID->"bb34f160-5745-4b8c-9aea-78f13ca9d061"],
+Cell[179774, 4612, 1310, 26, 156, "Output",ExpressionUUID->"601f157d-85c3-48a5-95fc-2ca295547ea7"]
}, Open ]],
Cell[CellGroupData[{
-Cell[143698, 3974, 1311, 32, 24, "Input",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"],
-Cell[145012, 4008, 608, 12, 22, "Message",ExpressionUUID->"1eb674f0-c985-414c-8dd4-9df222e3420e"],
-Cell[145623, 4022, 608, 12, 22, "Message",ExpressionUUID->"79ae622b-68cc-4ae5-9cbf-67c098c2cfdc"],
-Cell[146234, 4036, 607, 12, 22, "Message",ExpressionUUID->"702c1b9f-d31c-42f7-8c24-f62b86396c0d"],
-Cell[146844, 4050, 546, 11, 22, "Message",ExpressionUUID->"c458fce2-db72-4ca5-a4dc-37f71ca848e3"],
+Cell[181121, 4643, 776, 19, 24, "Input",ExpressionUUID->"db5637ef-5db6-417e-aa71-a7604e24c6ef"],
+Cell[181900, 4664, 345, 6, 25, "Output",ExpressionUUID->"f4a0c326-bcce-48a7-b6b6-0adc5e1117d9"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[182282, 4675, 2326, 53, 41, "Input",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"],
Cell[CellGroupData[{
-Cell[147415, 4065, 286, 5, 18, "Print",ExpressionUUID->"1eadd117-6f6a-485f-b06d-5da8ab64d17d"],
-Cell[147704, 4072, 287, 5, 18, "Print",ExpressionUUID->"2c93ecc5-7bfe-40b2-b98d-6164a1f802db"],
-Cell[147994, 4079, 285, 5, 18, "Print",ExpressionUUID->"7a2062df-133d-4aed-b7ac-a77a0c3957f1"],
-Cell[148282, 4086, 285, 5, 18, "Print",ExpressionUUID->"466d97cd-f0c3-4dcd-b3b4-a489a8cf840d"],
-Cell[148570, 4093, 287, 5, 18, "Print",ExpressionUUID->"59599292-8821-416f-8a16-ae9ecf852ef6"]
+Cell[184633, 4732, 216, 4, 18, "Print",ExpressionUUID->"1cc722dd-0661-43d8-9ed2-b5a9da0121a5"],
+Cell[184852, 4738, 217, 4, 18, "Print",ExpressionUUID->"6db4e008-6acc-4de3-b085-c5815d72123f"]
}, Open ]],
-Cell[148872, 4101, 1689, 38, 25, "Output",ExpressionUUID->"6d7a8040-abd3-4614-8989-bd49a44bcdd7"]
+Cell[185084, 4745, 461, 10, 22, "Message",ExpressionUUID->"5dbb837d-148c-4d61-884d-3cf82071a482"],
+Cell[185548, 4757, 466, 11, 22, "Message",ExpressionUUID->"ba5e36a7-9bde-423d-9781-1367cdeef641"],
+Cell[186017, 4770, 466, 11, 22, "Message",ExpressionUUID->"1b499df4-74aa-4cf6-9683-305e74be18ac"],
+Cell[186486, 4783, 456, 10, 22, "Message",ExpressionUUID->"e1931c33-f8ff-4df1-85df-ca8a1b6d75f6"],
+Cell[CellGroupData[{
+Cell[186967, 4797, 220, 4, 18, "Print",ExpressionUUID->"2d01766e-b294-4653-a2a6-46243985a459"],
+Cell[187190, 4803, 217, 4, 18, "Print",ExpressionUUID->"f5bccbb6-1fbe-4f47-9bef-0ccdc85b6856"],
+Cell[187410, 4809, 218, 4, 18, "Print",ExpressionUUID->"fadc5272-339f-4608-b67e-333e755b68c3"]
+}, Open ]],
+Cell[187643, 4816, 2172, 47, 58, "Output",ExpressionUUID->"3031a478-69cf-42dd-add2-43fc87d99397"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[189852, 4868, 1745, 41, 57, "Input",ExpressionUUID->"05fba3a3-cdb1-4967-ac49-78ffed60b2dc"],
+Cell[191600, 4911, 803, 15, 22, "Message",ExpressionUUID->"91873ce0-54c0-46c8-820a-80bb260ac12a"],
+Cell[192406, 4928, 1876, 43, 90, "Output",ExpressionUUID->"cea4572e-6a77-4824-9860-0f4ae84f6eff"]
}, Open ]],
Cell[CellGroupData[{
-Cell[150598, 4144, 1510, 37, 24, "Input",ExpressionUUID->"05fba3a3-cdb1-4967-ac49-78ffed60b2dc"],
-Cell[152111, 4183, 1007, 17, 34, "Message",ExpressionUUID->"bd9355a7-8279-4425-9f9f-040a6462886b"],
-Cell[153121, 4202, 1624, 39, 42, "Output",ExpressionUUID->"654d71eb-dee5-458e-8255-34110ac2bc9b"]
+Cell[194319, 4976, 1253, 27, 24, "Input",ExpressionUUID->"2eaa6819-866a-4b8d-af81-f5a819bfb53b"],
+Cell[195575, 5005, 1452, 26, 148, "Message",ExpressionUUID->"0eccf485-37e5-4032-93ca-ec5f8d761898"],
+Cell[197030, 5033, 709, 14, 22, "Message",ExpressionUUID->"3a340bbf-3691-4a32-a639-43b1cb496d4b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[154782, 4246, 542, 15, 24, "Input",ExpressionUUID->"95183f9d-14a9-49a1-839d-4444c8816906"],
-Cell[155327, 4263, 168, 3, 25, "Output",ExpressionUUID->"8587fd91-aaae-4609-8a53-56d0d1a38c08"]
+Cell[197776, 5052, 625, 17, 24, "Input",ExpressionUUID->"95183f9d-14a9-49a1-839d-4444c8816906"],
+Cell[198404, 5071, 193, 3, 25, "Output",ExpressionUUID->"12e1a994-ab05-4127-8c67-c64bc0481031"]
}, Open ]],
Cell[CellGroupData[{
-Cell[155532, 4271, 1241, 34, 24, "Input",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"],
-Cell[156776, 4307, 547, 12, 22, "Message",ExpressionUUID->"41668fb4-8f9f-4c09-b1cd-03ad9ef4c0e9"],
-Cell[157326, 4321, 547, 12, 22, "Message",ExpressionUUID->"ca915e3a-7833-4a4f-a0ed-814ea3e75567"],
-Cell[157876, 4335, 545, 12, 22, "Message",ExpressionUUID->"05c2fd8d-fd1a-4756-b04a-e8537047f74e"],
-Cell[158424, 4349, 581, 12, 22, "Message",ExpressionUUID->"f1fa7de1-abe8-4fbe-a3b9-7254834db41f"],
-Cell[159008, 4363, 497, 11, 22, "Message",ExpressionUUID->"6fece7d9-7a00-4299-9f04-f5fb8de0cd65"],
-Cell[159508, 4376, 598, 13, 33, "Message",ExpressionUUID->"778f2f82-5b97-4ffc-b743-59c8fccbe5dc"],
-Cell[160109, 4391, 598, 13, 33, "Message",ExpressionUUID->"f02a9f16-0650-4b8e-8c23-94f56cff9fd7"],
-Cell[160710, 4406, 598, 13, 33, "Message",ExpressionUUID->"4e59c2e0-2258-40e7-94de-27b4487488c2"],
-Cell[161311, 4421, 578, 12, 22, "Message",ExpressionUUID->"b661f0d6-f0ad-49ab-ba5e-571ab55dc3d4"],
+Cell[198634, 5079, 1191, 30, 24, "Input",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"],
+Cell[199828, 5111, 507, 11, 22, "Message",ExpressionUUID->"5b0a31b1-0147-4c6b-8c71-77e8d16a3fe0"],
+Cell[200338, 5124, 510, 12, 22, "Message",ExpressionUUID->"c7b8c0bc-4211-4848-8c36-3dde2258f6ab"],
+Cell[200851, 5138, 510, 12, 22, "Message",ExpressionUUID->"98869ba0-354d-4f3a-83b1-2e3506a2dc77"],
+Cell[201364, 5152, 502, 11, 22, "Message",ExpressionUUID->"741c2835-6f2b-4d3e-ad9a-43338ec14bae"],
+Cell[201869, 5165, 243, 5, 18, "Print",ExpressionUUID->"42357edc-9ab2-4f72-958b-df58546276b5"],
+Cell[202115, 5172, 471, 11, 22, "Message",ExpressionUUID->"3cecf403-7c75-47bf-89f5-b852f5629786"],
Cell[CellGroupData[{
-Cell[161914, 4437, 244, 5, 18, "Print",ExpressionUUID->"2771a46a-e776-4ace-a985-62647351a33a"],
-Cell[162161, 4444, 241, 5, 18, "Print",ExpressionUUID->"5fd5c7c5-8b0e-49d6-ad3d-e57ec084ccd1"],
-Cell[162405, 4451, 242, 5, 18, "Print",ExpressionUUID->"7f628f55-8395-4206-8d7f-3b6b90a6d353"],
-Cell[162650, 4458, 241, 5, 18, "Print",ExpressionUUID->"0347675c-f132-46eb-ac5a-2a9d1d0bbc75"],
-Cell[162894, 4465, 242, 5, 18, "Print",ExpressionUUID->"49328f8b-e9ec-473a-9744-d85b769718df"]
+Cell[202611, 5187, 246, 5, 18, "Print",ExpressionUUID->"ce671eaa-753d-4558-9b0f-49e9a27c349b"],
+Cell[202860, 5194, 247, 5, 18, "Print",ExpressionUUID->"7273914d-e0db-4df1-b671-1354048e6b63"],
+Cell[203110, 5201, 247, 5, 18, "Print",ExpressionUUID->"ee0d1163-5db0-4416-aee1-ce8ba2780c0b"],
+Cell[203360, 5208, 245, 5, 18, "Print",ExpressionUUID->"67e8fb8b-b447-4416-a0ac-8c428a22e9da"]
}, Open ]],
-Cell[163151, 4473, 1838, 42, 25, "Output",ExpressionUUID->"c78d02da-d4d4-4c03-afa0-380e8a60c5de"]
+Cell[203620, 5216, 2002, 44, 58, "Output",ExpressionUUID->"14770430-141b-4626-8333-163b114c5340"]
}, Open ]],
Cell[CellGroupData[{
-Cell[165026, 4520, 383, 11, 24, "Input",ExpressionUUID->"17f91843-8956-4f81-b1e8-d44b6a7d9eb0"],
-Cell[165412, 4533, 154, 3, 25, "Output",ExpressionUUID->"47bd5d48-5e3c-4239-aeb3-925830a4d4ee"]
+Cell[205659, 5265, 383, 11, 24, "Input",ExpressionUUID->"17f91843-8956-4f81-b1e8-d44b6a7d9eb0"],
+Cell[206045, 5278, 154, 3, 25, "Output",ExpressionUUID->"47bd5d48-5e3c-4239-aeb3-925830a4d4ee"]
}, Open ]],
Cell[CellGroupData[{
-Cell[165603, 4541, 257, 6, 22, "Input",ExpressionUUID->"e5e0d48d-1b36-449f-a213-47b0b8f5a51a"],
-Cell[165863, 4549, 154, 3, 25, "Output",ExpressionUUID->"b9b6d78e-1395-494a-9d59-1adb52d2e1c5"]
+Cell[206236, 5286, 257, 6, 22, "Input",ExpressionUUID->"e5e0d48d-1b36-449f-a213-47b0b8f5a51a"],
+Cell[206496, 5294, 154, 3, 25, "Output",ExpressionUUID->"b9b6d78e-1395-494a-9d59-1adb52d2e1c5"]
}, Open ]],
Cell[CellGroupData[{
-Cell[166054, 4557, 1609, 38, 24, "Input",ExpressionUUID->"d76e85cc-6ecb-4d98-b567-57b256fbb910"],
-Cell[167666, 4597, 726, 14, 22, "Message",ExpressionUUID->"d81d89d5-0b6f-4772-bbbc-daf7132151e3"],
-Cell[168395, 4613, 1924, 45, 42, "Output",ExpressionUUID->"e3396b93-78fe-43c2-9e7f-cba4d01a8c7b"]
+Cell[206687, 5302, 1782, 41, 41, "Input",ExpressionUUID->"d76e85cc-6ecb-4d98-b567-57b256fbb910"],
+Cell[208472, 5345, 818, 15, 22, "Message",ExpressionUUID->"175fdfae-18d1-4457-aa55-c870b6da50e3"],
+Cell[209293, 5362, 972, 17, 34, "Message",ExpressionUUID->"f2c58cd8-5d0a-4e2b-be83-442b509d25f4"],
+Cell[210268, 5381, 2020, 47, 90, "Output",ExpressionUUID->"131bca88-c755-43c5-b416-18a9bd9854f6"]
}, Open ]],
Cell[CellGroupData[{
-Cell[170356, 4663, 595, 16, 24, "Input",ExpressionUUID->"a65b95cb-3d7a-457b-baa4-3dfcacab2a82"],
-Cell[170954, 4681, 193, 3, 25, "Output",ExpressionUUID->"5dbdd46f-88a3-41c7-a9b9-703ff7b38428"]
+Cell[212325, 5433, 728, 18, 24, "Input",ExpressionUUID->"a65b95cb-3d7a-457b-baa4-3dfcacab2a82"],
+Cell[213056, 5453, 293, 5, 25, "Output",ExpressionUUID->"ca8f15d4-0701-43b7-826f-81e998eb533e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[171184, 4689, 1326, 35, 24, "Input",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"],
-Cell[172513, 4726, 461, 10, 22, "Message",ExpressionUUID->"43154a2d-4b29-45a0-a434-ee75a37ea5a6"],
-Cell[172977, 4738, 461, 10, 22, "Message",ExpressionUUID->"0193046b-c796-40a0-8d34-92b38c08612e"],
-Cell[173441, 4750, 461, 10, 22, "Message",ExpressionUUID->"4eb58821-12d5-4a9d-a211-26a420c2aae5"],
-Cell[173905, 4762, 458, 10, 22, "Message",ExpressionUUID->"49bff667-63d7-4760-978a-73a296ee578b"],
-Cell[174366, 4774, 195, 4, 18, "Print",ExpressionUUID->"a32f3152-51d5-4d8f-abff-ecbf1de0c45a"],
-Cell[174564, 4780, 424, 10, 22, "Message",ExpressionUUID->"6bb8fc13-d816-4592-82ed-6b658105114c"],
+Cell[213386, 5463, 1784, 49, 41, "Input",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"],
+Cell[215173, 5514, 529, 11, 22, "Message",ExpressionUUID->"7022a1c2-cb5c-4ed6-aedf-2be4e100d2c2"],
+Cell[215705, 5527, 529, 11, 22, "Message",ExpressionUUID->"5ba58f54-0c40-4b49-91c2-0fd5f3844bbd"],
+Cell[216237, 5540, 532, 12, 22, "Message",ExpressionUUID->"ecac759d-6cb0-4dc2-aeac-47c178646a12"],
+Cell[216772, 5554, 524, 11, 22, "Message",ExpressionUUID->"99b3ad8d-d501-4d2c-b5c7-95a58da32861"],
+Cell[217299, 5567, 266, 5, 18, "Print",ExpressionUUID->"7e287192-653e-4602-a480-351190844d50"],
+Cell[217568, 5574, 443, 10, 22, "Message",ExpressionUUID->"aa0c05da-cd9f-4901-b218-dd2e6c72f897"],
+Cell[218014, 5586, 495, 11, 22, "Message",ExpressionUUID->"aefcd4e1-0ad9-41dc-8d9f-cecf959c8248"],
Cell[CellGroupData[{
-Cell[175013, 4794, 195, 4, 18, "Print",ExpressionUUID->"e2626643-02b1-42d1-a109-9025993730a9"],
-Cell[175211, 4800, 193, 4, 18, "Print",ExpressionUUID->"44ecfe86-c61b-4b43-9afd-ff7bdde5e0f6"],
-Cell[175407, 4806, 193, 4, 18, "Print",ExpressionUUID->"8dc8547d-7d28-4209-996f-f00c3583f4c6"],
-Cell[175603, 4812, 192, 4, 18, "Print",ExpressionUUID->"86348a39-d046-406d-803b-3b303b6142ed"]
+Cell[218534, 5601, 263, 5, 18, "Print",ExpressionUUID->"d624a023-7f0f-4e91-8f3f-60d7bf738292"],
+Cell[218800, 5608, 265, 5, 18, "Print",ExpressionUUID->"983aeed7-3c0b-4341-a483-0f2e86f19547"],
+Cell[219068, 5615, 265, 5, 18, "Print",ExpressionUUID->"52534976-7bf6-4a65-a8a7-38bcbdf1be65"],
+Cell[219336, 5622, 265, 5, 18, "Print",ExpressionUUID->"89ae812f-91c5-4c6e-87c6-de4b31b17e48"]
+}, Open ]]
}, Open ]],
-Cell[175810, 4819, 1641, 43, 44, "Output",ExpressionUUID->"3390f52a-3233-4bad-8428-c484f32992c1"]
+Cell[CellGroupData[{
+Cell[219650, 5633, 1714, 44, 105, InheritFromParent,ExpressionUUID->"7c2fae36-9969-45c8-be00-c728dc79c64c"],
+Cell[221367, 5679, 1607, 40, 74, "Output",ExpressionUUID->"d5ad0fbd-caf6-48b3-984e-33816913a7c3"]
}, Open ]],
Cell[CellGroupData[{
-Cell[177488, 4867, 1662, 39, 24, "Input",ExpressionUUID->"c58535c6-e2cc-4022-b4ee-6e96bd40636a"],
-Cell[179153, 4908, 749, 14, 22, "Message",ExpressionUUID->"5f9bd29b-8eb0-4a32-ae66-82cfd8da388b"],
-Cell[179905, 4924, 2202, 52, 60, "Output",ExpressionUUID->"8ef30ce7-91ad-4cb6-8ff5-0b797be59053"]
+Cell[223011, 5724, 1662, 39, 41, "Input",ExpressionUUID->"c58535c6-e2cc-4022-b4ee-6e96bd40636a"],
+Cell[224676, 5765, 749, 14, 22, "Message",ExpressionUUID->"5f9bd29b-8eb0-4a32-ae66-82cfd8da388b"],
+Cell[225428, 5781, 2202, 52, 108, "Output",ExpressionUUID->"8ef30ce7-91ad-4cb6-8ff5-0b797be59053"]
}, Open ]],
Cell[CellGroupData[{
-Cell[182144, 4981, 542, 15, 24, "Input",ExpressionUUID->"7f30ad07-05ba-4e34-952b-ca6f21b02e96"],
-Cell[182689, 4998, 170, 3, 25, "Output",ExpressionUUID->"f51249ff-f932-482f-9bc1-b30044e4e4b1"]
+Cell[227667, 5838, 542, 15, 24, "Input",ExpressionUUID->"7f30ad07-05ba-4e34-952b-ca6f21b02e96"],
+Cell[228212, 5855, 170, 3, 25, "Output",ExpressionUUID->"f51249ff-f932-482f-9bc1-b30044e4e4b1"]
}, Open ]],
Cell[CellGroupData[{
-Cell[182896, 5006, 1173, 29, 24, "Input",ExpressionUUID->"200b94d3-7cab-4649-99f3-c2558b1a5011"],
-Cell[184072, 5037, 461, 10, 22, "Message",ExpressionUUID->"8286d0bb-4e6c-4e7a-b928-3c79819fc289"],
-Cell[184536, 5049, 461, 10, 22, "Message",ExpressionUUID->"e2ff3031-bd78-4855-8bc7-9747fcae88e3"],
-Cell[185000, 5061, 461, 10, 22, "Message",ExpressionUUID->"193d3a87-2837-49e1-b092-63ac86b20f22"],
-Cell[185464, 5073, 458, 10, 22, "Message",ExpressionUUID->"903983c6-c194-4176-a62a-37d20d186199"],
-Cell[185925, 5085, 195, 4, 18, "Print",ExpressionUUID->"f39aff0b-2bf3-4ae8-beec-a77c7cdab645"],
-Cell[186123, 5091, 424, 10, 22, "Message",ExpressionUUID->"829bb464-97dd-4460-9e09-24e64f09c6cd"],
+Cell[228419, 5863, 1332, 33, 24, "Input",ExpressionUUID->"200b94d3-7cab-4649-99f3-c2558b1a5011"],
+Cell[229754, 5898, 525, 11, 22, "Message",ExpressionUUID->"2615180a-f646-41b8-96fe-8e684692f56b"],
+Cell[230282, 5911, 525, 11, 22, "Message",ExpressionUUID->"a1f65287-1cb7-4001-8046-d8a23e15172e"],
+Cell[230810, 5924, 526, 12, 22, "Message",ExpressionUUID->"ec64abf9-ad4f-45cd-99e4-70431b11d26b"],
+Cell[231339, 5938, 518, 11, 22, "Message",ExpressionUUID->"5bd1676a-a15f-4aae-9cbb-c102f0f95532"],
Cell[CellGroupData[{
-Cell[186572, 5105, 195, 4, 18, "Print",ExpressionUUID->"31d0dd9c-24f2-4fe0-9dd2-0608475aa63c"],
-Cell[186770, 5111, 193, 4, 18, "Print",ExpressionUUID->"07cc8905-7513-4079-baa4-1590126efe5b"],
-Cell[186966, 5117, 193, 4, 18, "Print",ExpressionUUID->"cd190030-d600-470f-a1b8-f2cf48a0bb35"],
-Cell[187162, 5123, 192, 4, 18, "Print",ExpressionUUID->"da7b9bba-21ae-4e2a-8c84-ec593f50dff7"]
+Cell[231882, 5953, 215, 4, 18, "Print",ExpressionUUID->"7ed5d548-514d-4fe8-8b78-512914799352"],
+Cell[232100, 5959, 215, 4, 18, "Print",ExpressionUUID->"b2af9369-9d8f-431e-9030-76bb4380fee7"],
+Cell[232318, 5965, 214, 4, 18, "Print",ExpressionUUID->"675faf5b-4311-49e7-8b1a-fcd3f0834ef9"],
+Cell[232535, 5971, 216, 4, 18, "Print",ExpressionUUID->"c0034a53-fdfc-421f-8cf9-a66d01740b1a"],
+Cell[232754, 5977, 214, 4, 18, "Print",ExpressionUUID->"a759c179-7c48-4826-8457-6fda0b49f576"]
}, Open ]],
-Cell[187369, 5130, 1641, 43, 44, "Output",ExpressionUUID->"d66cf11c-6249-4ce5-90b1-7ccedf7b8994"]
+Cell[232983, 5984, 1767, 43, 76, "Output",ExpressionUUID->"603ce513-d919-4a6a-aae2-e99140ba8fb2"]
}, Open ]],
Cell[CellGroupData[{
-Cell[189047, 5178, 5233, 88, 59, "Input",ExpressionUUID->"aee89b99-c52c-426f-9380-809683f9fe8d"],
-Cell[194283, 5268, 12998, 248, 171, "Output",ExpressionUUID->"e2cf0809-e3b4-4dec-a74f-4d1922647b69"]
+Cell[234787, 6032, 1403, 36, 24, "Input",ExpressionUUID->"77feec13-1cdc-471d-8d45-49920b8c9c58"],
+Cell[236193, 6070, 229, 4, 25, "Output",ExpressionUUID->"362d644d-39b8-4815-95d9-a10f5c313532"]
}, Open ]],
Cell[CellGroupData[{
-Cell[207318, 5521, 5279, 88, 59, "Input",ExpressionUUID->"86e28df3-e9b9-4c9d-b376-e2250a73da96"],
-Cell[212600, 5611, 11050, 202, 165, "Output",ExpressionUUID->"7248522d-d1d4-4c85-974e-1c4fb75d0538"]
+Cell[236459, 6079, 12912, 285, 306, "Input",ExpressionUUID->"696e8dad-b679-4cff-9df9-7fa32582e84f"],
+Cell[249374, 6366, 162, 3, 25, "Output",ExpressionUUID->"6a404edb-ac94-461f-b2e5-acd44da01100"],
+Cell[249539, 6371, 160, 3, 25, "Output",ExpressionUUID->"2c660b93-654e-4c19-a6ee-ebd9ae1fe369"],
+Cell[249702, 6376, 160, 3, 25, "Output",ExpressionUUID->"ac425c72-2e2b-4850-8349-fef964c356dd"],
+Cell[249865, 6381, 770, 15, 22, "Message",ExpressionUUID->"e7472b6a-9708-47bd-9dd2-849ab9abc5a6"],
+Cell[250638, 6398, 862, 16, 22, "Message",ExpressionUUID->"d14e8158-7a0c-4e09-98f1-d604a5881e2e"],
+Cell[251503, 6416, 772, 15, 22, "Message",ExpressionUUID->"a752eb8a-23e3-4cdb-af93-ff21c18cf987"],
+Cell[252278, 6433, 862, 16, 22, "Message",ExpressionUUID->"ba4bcc27-d9ad-4822-a182-dbfb6baf266b"]
}, Open ]],
+Cell[253155, 6452, 11952, 233, 182, "Input",ExpressionUUID->"673ffefa-75f0-46ac-befd-c785b4bc3ce1"],
Cell[CellGroupData[{
-Cell[223687, 5818, 768, 20, 22, "Input",ExpressionUUID->"c18b0b40-ab1a-45cd-ade8-999f04490358"],
-Cell[224458, 5840, 749, 14, 27, "Output",ExpressionUUID->"08d062c4-9852-492a-8cb4-f8dd85719bf0"]
+Cell[265132, 6689, 944, 28, 24, "Input",ExpressionUUID->"3a6bc1b3-5e9d-4b1c-b46d-fd5e4ff8cf76"],
+Cell[266079, 6719, 315, 6, 25, "Output",ExpressionUUID->"c977424a-aa18-4aea-aaca-484dcc8c8408"]
}, Open ]],
Cell[CellGroupData[{
-Cell[225244, 5859, 229, 5, 22, "Input",ExpressionUUID->"294039ec-927c-4d0e-b5e8-b787af6c65a6"],
-Cell[225476, 5866, 1379, 35, 25, "Output",ExpressionUUID->"754c9690-f873-4d2f-beb2-c3646db81f65"]
+Cell[266431, 6730, 943, 28, 24, "Input",ExpressionUUID->"a69be52b-dc01-480f-81d9-1536204c04bc"],
+Cell[267377, 6760, 292, 6, 25, "Output",ExpressionUUID->"e502b5f4-ed08-4ca3-8845-e50c58f64274"]
}, Open ]],
-Cell[226870, 5904, 677, 20, 24, "Input",ExpressionUUID->"9d9f94f3-e11c-49e5-a722-caf2af60837a"],
-Cell[227550, 5926, 10248, 225, 157, "Input",ExpressionUUID->"696e8dad-b679-4cff-9df9-7fa32582e84f"],
Cell[CellGroupData[{
-Cell[237823, 6155, 1040, 22, 24, "Input",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"],
-Cell[238866, 6179, 8161, 190, 269, "Output",ExpressionUUID->"7be6558a-70f0-43d7-951c-51b419e583cb"]
+Cell[267706, 6771, 1396, 33, 41, "Input",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"],
+Cell[269105, 6806, 13993, 308, 275, "Output",ExpressionUUID->"4a71281b-8b4d-40ea-912d-d0bffa3afba8"]
}, Open ]]
}, Open ]]
}
diff --git a/schofield.wl b/schofield.wl
index c60daf5..f32d855 100644
--- a/schofield.wl
+++ b/schofield.wl
@@ -187,7 +187,7 @@ resLow[n_, g_, δ_][m_] := formResiduals[Gls[[;;m+1]], dGdξLowList[n, g][m], δ
resHigh[n_, g_, δ_][m_] := Rest[formResiduals[Ghs[[;;m+1]], dGdξList[n, g][m, 0], δ][[;;;;2]]]
-res[F_, g_, δ_][m_] := Join[resLow[F, g, δ][m], resHigh[F, g, δ][m], {ruleθ0[g] / 0.00005, ruleAH[g] / 0.02} /. Around[x_, _] :> x]
+res[F_, g_, δ_][m_] := Join[resLow[F, g, δ][m], resHigh[F, g, δ][m], {ruleθ0[g] / 0.00005(*, ruleAH[g] / 0.02*)} /. Around[x_, _] :> x]
chiSquared[F_, g_, δ_][m_] := Total[res[F, g, δ][m]^2]
newSol[eqs_, oldSol_, newVars_, δ_:0, γ_:0, opts___] := FindRoot[