summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJaron Kent-Dobias <jaron@kent-dobias.com>2021-05-07 17:11:59 +0200
committerJaron Kent-Dobias <jaron@kent-dobias.com>2021-05-07 17:11:59 +0200
commitb59fef3c0518a9c1b20801116b7c7c9fb4167569 (patch)
treefbb4bf381d5238182f228ac2550ac07c8d8c2b59
parenta0a4103c46857e1785cfa5de613980a88b864453 (diff)
downloadmma-b59fef3c0518a9c1b20801116b7c7c9fb4167569.tar.gz
mma-b59fef3c0518a9c1b20801116b7c7c9fb4167569.tar.bz2
mma-b59fef3c0518a9c1b20801116b7c7c9fb4167569.zip
Much work.
Diffstat
-rw-r--r--new_schofield.nb6868
-rw-r--r--schofield.wl29
2 files changed, 6411 insertions, 486 deletions
diff --git a/new_schofield.nb b/new_schofield.nb
index 343497b..fa371a4 100644
--- a/new_schofield.nb
+++ b/new_schofield.nb
@@ -10,10 +10,10 @@
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
-NotebookDataLength[ 3329224, 64012]
-NotebookOptionsPosition[ 3303946, 63607]
-NotebookOutlinePosition[ 3304343, 63623]
-CellTagsIndexPosition[ 3304300, 63620]
+NotebookDataLength[ 3683055, 69934]
+NotebookOptionsPosition[ 3650784, 69417]
+NotebookOutlinePosition[ 3651182, 69433]
+CellTagsIndexPosition[ 3651139, 69430]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
@@ -29,7 +29,23 @@ Cell[BoxData[
3.8278488730224733`*^9, 3.827848876357965*^9}, {3.827916449928692*^9,
3.827916450999913*^9}},
CellLabel->
- "In[360]:=",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"],
+ "In[684]:=",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"SetAttributes", "[",
+ RowBox[{"untilSuccess", ",", "HoldAll"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"untilSuccess", "[", "e_", "]"}], ":=",
+ RowBox[{"Quiet", "[",
+ RowBox[{"Check", "[",
+ RowBox[{"e", ",",
+ RowBox[{"untilSuccess", "[", "e", "]"}]}], "]"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.829364059865052*^9, 3.829364117072966*^9}, {
+ 3.82936416412193*^9, 3.829364169770522*^9}},
+ CellLabel->
+ "In[302]:=",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"],
Cell[CellGroupData[{
@@ -40,16 +56,19 @@ ec66b9fbf698"],
Cell[BoxData[{
RowBox[{
+ RowBox[{"n1", "=", "2"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
RowBox[{"F1", "=",
- RowBox[{"RF", "[", "2", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"RF", "[", "n1", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"h1", "=",
- RowBox[{"h", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"h", "[", "0", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"eq1", "=",
RowBox[{
RowBox[{"eq", "[",
- RowBox[{"2", ",", "h1"}], "]"}], "[", "5", "]"}]}], ";"}]}], "Input",
+ RowBox[{"n1", ",", "h1"}], "]"}], "[",
+ RowBox[{"2", ",", "0", ",", "2"}], "]"}]}], ";"}]}], "Input",
CellChangeTimes->{
3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9,
@@ -125,32 +144,45 @@ Cell[BoxData[{
3.8278514813844013`*^9}, {3.827852148894856*^9, 3.827852150027165*^9}, {
3.827916600355418*^9, 3.8279166007464867`*^9}, 3.82912009777382*^9, {
3.8291239449952374`*^9, 3.8291239450751753`*^9}, {3.82912401495669*^9,
- 3.829124015036573*^9}},
+ 3.829124015036573*^9}, {3.8292127445813313`*^9, 3.8292127521016293`*^9}, {
+ 3.829212944025367*^9, 3.829212948433154*^9}, {3.829213033234993*^9,
+ 3.829213037666829*^9}, {3.829213336896472*^9, 3.829213345344234*^9}, {
+ 3.829213572300416*^9, 3.829213592268558*^9}, {3.829213663382043*^9,
+ 3.829213709822839*^9}, {3.829213990595724*^9, 3.8292139923876038`*^9}, {
+ 3.829216558985858*^9, 3.829216563265575*^9}, {3.829216879911537*^9,
+ 3.8292169344641933`*^9}, {3.8292170472422943`*^9, 3.82921704971436*^9}, {
+ 3.829217143700285*^9, 3.829217152468186*^9}, {3.829217334679847*^9,
+ 3.829217336231662*^9}, {3.8292179653307056`*^9, 3.829217965562833*^9}, {
+ 3.829218202055146*^9, 3.8292182124950447`*^9}, {3.829367562200581*^9,
+ 3.8293675638166313`*^9}, {3.829367957375147*^9, 3.8293679614470243`*^9}, {
+ 3.82938385498405*^9, 3.82938389061633*^9}, {3.829383949401424*^9,
+ 3.8293839514252863`*^9}, {3.829384030122982*^9, 3.829384032130804*^9}},
CellLabel->
- "In[340]:=",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"],
+ "In[485]:=",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"sol1", "=",
- RowBox[{"newSol", "[",
- RowBox[{"eq1", ",",
- RowBox[{"{",
- RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]",
- RowBox[{"1", "+",
- RowBox[{"RandomReal", "[", "]"}]}]}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.2"}], ",",
- RowBox[{"B", "\[Rule]",
- RowBox[{"RandomReal", "[", "]"}]}]}], "}"}], ",",
- RowBox[{"{",
- RowBox[{"AH", ",", "AL", ",",
- RowBox[{"A", "[", "0", "]"}], ",",
- RowBox[{"A", "[", "1", "]"}], ",",
- RowBox[{"A", "[", "2", "]"}], ",",
- RowBox[{"gC", "[", "1", "]"}], ",",
- RowBox[{"gC", "[", "2", "]"}], ",",
- RowBox[{"gC", "[", "3", "]"}]}], "}"}], ",", "1"}], "]"}]}]], "Input",
+ RowBox[{"untilSuccess", "[",
+ RowBox[{"newSol", "[",
+ RowBox[{"eq1", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]",
+ RowBox[{"1", "+",
+ RowBox[{"RandomReal", "[", "]"}]}]}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.2"}], ",",
+ RowBox[{"B", "\[Rule]",
+ RowBox[{"RandomReal", "[", "]"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"AL", ",", "AH", ",",
+ RowBox[{"A", "[", "0", "]"}], ",",
+ RowBox[{"A", "[", "1", "]"}], ",",
+ RowBox[{"A", "[", "2", "]"}]}], "}"}], ",", "1"}], "]"}],
+ "]"}]}]], "Input",
CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9,
3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, {
@@ -246,34 +278,46 @@ Cell[BoxData[
3.827833419061803*^9, 3.827833419405127*^9}, {3.827833563177503*^9,
3.827833587879898*^9}, {3.829123947820333*^9, 3.829123947979281*^9}, {
3.829124009797543*^9, 3.829124021036685*^9}, {3.829128511295164*^9,
- 3.829128513654436*^9}},
+ 3.829128513654436*^9}, {3.829212756886036*^9, 3.829212762085951*^9}, {
+ 3.8292129511779957`*^9, 3.829212957521381*^9}, {3.829213040668173*^9,
+ 3.829213040826989*^9}, {3.829213290655733*^9, 3.829213296231707*^9}, {
+ 3.829213348905381*^9, 3.829213352712525*^9}, {3.829213421682129*^9,
+ 3.82921342758595*^9}, {3.829213600262001*^9, 3.8292136005409937`*^9}, {
+ 3.8292136954152107`*^9, 3.829213696254664*^9}, {3.829213812569561*^9,
+ 3.829213813680688*^9}, {3.8292139946688538`*^9, 3.829213994835944*^9}, {
+ 3.8292161943954277`*^9, 3.8292162076273727`*^9}, {3.8292163263018513`*^9,
+ 3.8292163278054934`*^9}, {3.8292164183593807`*^9,
+ 3.8292164773842373`*^9}, {3.829216565474231*^9, 3.8292165671378813`*^9}, {
+ 3.8292168992566147`*^9, 3.829216902831699*^9}, {3.829216936841383*^9,
+ 3.829216976505587*^9}, {3.8292170517627993`*^9, 3.829217056290599*^9}, {
+ 3.829217155469007*^9, 3.829217159652409*^9}, 3.8292172455423098`*^9, {
+ 3.829217338344171*^9, 3.829217339967683*^9}, {3.829218219632141*^9,
+ 3.829218221023416*^9}, {3.8293675280395813`*^9, 3.8293675409599533`*^9}, {
+ 3.829367571505825*^9, 3.8293675716802998`*^9}, {3.829367966407447*^9,
+ 3.829367967023261*^9}, {3.829369345040145*^9, 3.82936934775222*^9}, {
+ 3.829383953946238*^9, 3.829383963449841*^9}, {3.8293840392038937`*^9,
+ 3.829384039371208*^9}},
CellLabel->
- "In[371]:=",ExpressionUUID->"3d566693-1b4e-4bc5-b33b-b8036e1e4822"],
+ "In[489]:=",ExpressionUUID->"3d566693-1b4e-4bc5-b33b-b8036e1e4822"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.3596432455676633`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.22995255276692708`"}], ",",
- RowBox[{"B", "\[Rule]", "9.904016466974532`"}], ",",
- RowBox[{"AH", "\[Rule]", "0.7613157219279851`"}], ",",
- RowBox[{"AL", "\[Rule]",
- RowBox[{"-", "1.0273074343961772`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "0", "]"}], "\[Rule]",
- RowBox[{"-", "0.06570955465298985`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "2.7347153276989653`"}]}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.1942649631945688`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19801152864804233`"}], ",",
+ RowBox[{"B", "\[Rule]", "8.552666400482265`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.6558004557168237`"}], ",",
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.1942649631945688`"}], ",",
+ RowBox[{"AL", "\[Rule]",
+ RowBox[{"-", "0.09823515561341657`"}]}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{"-", "2.3836528485083655`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "1", "]"}], "\[Rule]", "2.225890624694657`"}], ",",
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.0766637996073867`"}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
- RowBox[{"-", "0.28455478358113`"}]}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.0038100879768628`"}], ",",
RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.010880941199478373`"}]}],
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.22823495175056782`"}]}],
"}"}]], "Output",
CellChangeTimes->{
3.82756527111445*^9, 3.827565361069772*^9, 3.827830364884798*^9, {
@@ -290,9 +334,29 @@ Cell[BoxData[
3.829123915730427*^9, 3.82912398207615*^9}, {3.829124021865954*^9,
3.829124026906376*^9}, 3.8291242386215897`*^9, {3.8291245463139877`*^9,
3.829124568185623*^9}, {3.829124615573295*^9, 3.8291246424032717`*^9}, {
- 3.82912548413385*^9, 3.8291254914737797`*^9}, 3.8291285138753147`*^9},
+ 3.82912548413385*^9, 3.8291254914737797`*^9}, 3.8291285138753147`*^9, {
+ 3.829211697121183*^9, 3.8292117085911703`*^9}, {3.8292117614008093`*^9,
+ 3.829211767478136*^9}, 3.829211862358832*^9, 3.829211944449153*^9, {
+ 3.829212193985766*^9, 3.8292122117496*^9}, {3.829212754140682*^9,
+ 3.829212771524193*^9}, {3.829212895714222*^9, 3.829213072892671*^9}, {
+ 3.829213293667219*^9, 3.8292133006872807`*^9}, {3.829213355955532*^9,
+ 3.829213434763876*^9}, {3.829213498431302*^9, 3.8292135087509117`*^9}, {
+ 3.829213563928628*^9, 3.8292135702055283`*^9}, {3.829213602083907*^9,
+ 3.829213660269532*^9}, {3.829213710785372*^9, 3.8292137535754633`*^9}, {
+ 3.829213809513175*^9, 3.829213822264585*^9}, {3.8292139115610723`*^9,
+ 3.829213915363771*^9}, {3.8292140005768013`*^9, 3.829214011542778*^9}, {
+ 3.829214078853065*^9, 3.829214099018461*^9}, {3.829215865902472*^9,
+ 3.8292159257084503`*^9}, {3.8292161564791327`*^9, 3.82921656741947*^9}, {
+ 3.829216903394943*^9, 3.829217345709529*^9}, 3.8292179669705*^9,
+ 3.829218222204777*^9, 3.829219271967852*^9, {3.82922000137011*^9,
+ 3.829220031526595*^9}, {3.8292203979260197`*^9, 3.829220401195169*^9}, {
+ 3.829362042947587*^9, 3.829362058184822*^9}, {3.829363740177747*^9,
+ 3.829363748316815*^9}, {3.829367525861875*^9, 3.8293675660399017`*^9},
+ 3.829367689137109*^9, {3.8293679552788773`*^9, 3.829367967316113*^9},
+ 3.829369350335235*^9, {3.829383857178418*^9, 3.829383894033601*^9}, {
+ 3.829384025315864*^9, 3.829384040234758*^9}},
CellLabel->
- "Out[371]=",ExpressionUUID->"be0089f1-72a3-41ac-aaa8-4e24df0a52e9"]
+ "Out[489]=",ExpressionUUID->"827b45f8-036a-4707-a544-af07c7899e74"]
}, Open ]],
Cell[CellGroupData[{
@@ -301,28 +365,35 @@ Cell[BoxData[
RowBox[{"ListLogPlot", "[",
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
- RowBox[{"Abs", "@", "Gls"}], ",", "\[IndentingNewLine]",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{"Abs", "@",
+ RowBox[{
+ RowBox[{"Abs", "[", "Gls", "]"}],
+ RowBox[{"(",
+ RowBox[{
RowBox[{"(",
RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"dFd\[Xi]Low", "[",
- RowBox[{"2", ",",
- RowBox[{"h", "[", "3", "]"}]}], "]"}], "[", "#", "]"}], "/",
- RowBox[{"#", "!"}]}], "&"}], "/@",
RowBox[{"Range", "[",
- RowBox[{"0", ",", "9"}], "]"}]}], ")"}]}], "/.", "sol1"}], "]"}]}],
- "\[IndentingNewLine]", "}"}], "]"}]], "Input",
+ RowBox[{"Length", "[", "Gls", "]"}], "]"}], "-", "1"}], ")"}],
+ "!"}], ")"}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{"dFd\[Xi]LowList", "[",
+ RowBox[{"n1", ",", "h1"}], "]"}], "[", "9", "]"}], "]"}], "/.",
+ "sol1"}], "]"}]}], "\[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}},ExpressionUUID->"ebb4c874-bb28-449d-8bcb-\
-e2e4531ba683"],
+ 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.829212839887741*^9, 3.8292128418634233`*^9}, {3.8292129082730722`*^9,
+ 3.829212910328438*^9}, {3.8292129728899527`*^9, 3.8292129751535673`*^9}, {
+ 3.8292130489714537`*^9, 3.829213049059307*^9}, {3.829213469483386*^9,
+ 3.829213472178563*^9}, 3.829213610229796*^9, {3.829213716799589*^9,
+ 3.829213718462913*^9}, {3.829216967665065*^9, 3.829216968033147*^9}, {
+ 3.829220569850068*^9, 3.829220570201481*^9}},
+ CellLabel->
+ "In[479]:=",ExpressionUUID->"ebb4c874-bb28-449d-8bcb-e2e4531ba683"],
Cell[BoxData[
GraphicsBox[{{{{},
@@ -333,58 +404,56 @@ Cell[BoxData[
Antialiasing->False]},
{RGBColor[0.368417, 0.506779, 0.709798],
StyleBox[{{}, {
- LineBox[{{3., -3.0168887065845538`}, {3., -3.0168887065436985`}}],
- LineBox[{{3., -3.0168887065436985`}, {3., -3.016888706502843}}]}},
+ LineBox[{{3., -2.3237415260246084`}, {3., -2.323741525983753}}],
+ LineBox[{{3., -2.323741525983753}, {3., -2.3237415259428977`}}]}},
Antialiasing->False]},
{RGBColor[0.368417, 0.506779, 0.709798],
StyleBox[{{}, {
- LineBox[{{4., -3.24768873618056}, {4., -3.2476887336074802`}}],
- LineBox[{{4., -3.2476887336074802`}, {4., -3.2476887310344003`}}]}},
+ LineBox[{{4., -1.4559292669525052`}, {4., -1.4559292643794253`}}],
+ LineBox[{{4., -1.4559292643794253`}, {4., -1.4559292618063453`}}]}},
Antialiasing->False]},
{RGBColor[0.368417, 0.506779, 0.709798],
StyleBox[{{}, {
- LineBox[{{5., -2.6829364089277306`}, {5., -2.6829363942997464`}}],
- LineBox[{{5., -2.6829363942997464`}, {5., -2.6829363796717627`}}]}},
+ LineBox[{{5., 0.49511742142021525`}, {5., 0.4951174360481992}}],
+ LineBox[{{5., 0.4951174360481992}, {5., 0.4951174506761829}}]}},
Antialiasing->False]},
{RGBColor[0.368417, 0.506779, 0.709798],
StyleBox[{{}, {
- LineBox[{{6., -1.6934517864279734`}, {6., -1.6934517320457758`}}],
- LineBox[{{6., -1.6934517320457758`}, {6., -1.693451677663581}}]}},
+ LineBox[{{6., 3.0940399563540724`}, {6., 3.09404001073627}}],
+ LineBox[{{6., 3.09404001073627}, {6., 3.094040065118465}}]}},
Antialiasing->False]},
{RGBColor[0.368417, 0.506779, 0.709798],
StyleBox[{{}, {
- LineBox[{{7., -0.4167753281916941}, {7., -0.41677381113121115`}}],
- LineBox[{{7., -0.41677381113121115`}, {7., -0.4167722940730296}}]}},
+ LineBox[{{7., 6.1624758838184075`}, {7., 6.16247740087889}}],
+ LineBox[{{7., 6.16247740087889}, {7., 6.162478917937071}}]}},
Antialiasing->False]},
{RGBColor[0.368417, 0.506779, 0.709798],
StyleBox[{{}, {
- LineBox[{{8., 1.077614026885801}, {8., 1.077615048105556}}],
- LineBox[{{8., 1.077615048105556}, {8., 1.0776160693242682`}}]}},
+ LineBox[{{8., 9.602775387951214}, {8., 9.60277640917097}}],
+ LineBox[{{8., 9.60277640917097}, {8., 9.602777430389681}}]}},
Antialiasing->False]},
{RGBColor[0.368417, 0.506779, 0.709798],
StyleBox[{{}, {
- LineBox[{{9., 2.747270914255491}, {9., 2.7479117345273405`}}],
- LineBox[{{9., 2.7479117345273405`}, {9., 2.7485521444115397`}}]}},
+ LineBox[{{9., 13.351873817000742`}, {9., 13.352514637272591`}}],
+ LineBox[{{9., 13.352514637272591`}, {9., 13.35315504715679}}]}},
Antialiasing->False]}}, {}}, {
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
- PointBox[{{2., 0.3058939805973386}, {3., -3.0168887065436985`}, {
- 4., -3.2476887336074802`}, {5., -2.6829363942997464`}, {
- 6., -1.6934517320457758`}, {7., -0.41677381113121115`}, {8.,
- 1.077615048105556}, {9., 2.7479117345273405`}, {10.,
- 4.572233685741827}, {11., 6.520621127558696}, {12.,
- 8.582980931954241}}]},
+ PointBox[{{2., 0.3058939805973386}, {3., -2.323741525983753}, {
+ 4., -1.4559292643794253`}, {5., 0.4951174360481992}, {6.,
+ 3.09404001073627}, {7., 6.16247740087889}, {8., 9.60277640917097}, {9.,
+ 13.352514637272591`}, {10., 17.374061165823296`}, {11.,
+ 21.625033700634212`}, {12., 26.085288777828126`}}]},
{RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
- PointBox[{{2., 0.30589398059733885`}, {3., -3.0168887065436962`}, {
- 4., -3.2476887336074807`}, {5., -2.6829363942997455`}, {
- 6., -1.6934517320457743`}, {7., -0.42902936197974423`}, {8.,
- 1.048632367518606}, {9., 2.703474045602483}, {10.,
- 4.509722212091018}}]}}, {{}, {}}},
+ PointBox[{{2., 0.30589398059734035`}, {3., -2.3237415259837553`}, {
+ 4., -1.4630191140844473`}, {5., 0.46594799631678313`}, {6.,
+ 3.032015692784348}, {7., 6.065443960311703}, {8., 9.474366021505134}, {
+ 9., 13.198778109364856`}, {10., 17.195307773271495`}}]}}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
- AxesOrigin->{0., -4.1735057771158415`},
+ AxesOrigin->{0., -4.546909369396598},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
@@ -405,7 +474,7 @@ Cell[BoxData[
Part[#, 1]],
Exp[
Part[#, 2]]}& )}},
- PlotRange->{{0., 12.}, {-4.1735057771158415`, 8.582980931954241}},
+ PlotRange->{{0., 12.}, {-4.546909369396598, 26.085288777828126`}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
@@ -413,200 +482,5984 @@ Cell[BoxData[
Scaled[0.02],
Scaled[0.05]}},
Ticks->FrontEndValueCache[{Automatic,
- Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-2.3025850929940455`,
+ Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{2.302585092994046,
+ FormBox["10", TraditionalForm], {0.01, 0.}}, {11.512925464970229`,
FormBox[
- TagBox[
- InterpretationBox[
- StyleBox["\"0.1\"", ShowStringCharacters -> False], 0.1, AutoDelete ->
- True], NumberForm[#, {
- DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {0.,
- FormBox["1", TraditionalForm], {0.01, 0.}}, {2.302585092994046,
- FormBox["10", TraditionalForm], {0.01, 0.}}, {4.605170185988092,
- FormBox["100", TraditionalForm], {0.01, 0.}}, {6.907755278982137,
- FormBox["1000", TraditionalForm], {0.01, 0.}}, {9.210340371976184,
+ TemplateBox[{"10", "5"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {20.72326583694641,
FormBox[
- TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox],
- TraditionalForm], {0.01, 0.}}, {-4.605170185988091,
+ TemplateBox[{"10", "9"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {-6.907755278982137,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-3.912023005428146,
+ 0.}}, {-4.605170185988091,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-3.506557897319982,
+ 0.}}, {-2.3025850929940455`,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-3.2188758248682006`,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-2.995732273553991,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.605170185988092,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-2.8134107167600364`,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.907755278982137,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-2.659260036932778,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 9.210340371976184,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-2.5257286443082556`,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 13.815510557964274`,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-2.4079456086518722`,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 16.11809565095832,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-1.6094379124341003`,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 18.420680743952367`,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-1.2039728043259361`,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 23.025850929940457`,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-0.916290731874155,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 25.328436022934504`,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-0.6931471805599453,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 27.631021115928547`,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-0.5108256237659907,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 29.933606208922594`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-0.35667494393873245`,
+ 0.}}}}]]], "Output",
+ CellChangeTimes->{
+ 3.829128192696102*^9, 3.8291283114274397`*^9, {3.829128370744546*^9,
+ 3.829128445841797*^9}, {3.829128480636278*^9, 3.829128527376986*^9},
+ 3.8291285849859743`*^9, 3.8292117566926937`*^9, 3.829211814966825*^9,
+ 3.829211912332552*^9, 3.829211996833428*^9, 3.829212286708362*^9,
+ 3.8292123390635853`*^9, 3.8292124113465843`*^9, 3.82921282448454*^9, {
+ 3.8292128902006397`*^9, 3.829212938890925*^9}, {3.829212969097286*^9,
+ 3.829212983190785*^9}, {3.8292130458637743`*^9, 3.829213057004476*^9},
+ 3.829213329159383*^9, {3.829213464976367*^9, 3.829213491577249*^9}, {
+ 3.829213605574645*^9, 3.82921361277246*^9}, 3.829213653577368*^9,
+ 3.829213739855487*^9, 3.829213828803851*^9, 3.829213922668639*^9,
+ 3.829214015451096*^9, {3.8292140951571407`*^9, 3.829214103055998*^9},
+ 3.829215883688561*^9, 3.829215929104144*^9, 3.829216570886566*^9, {
+ 3.829216966241403*^9, 3.829216969830461*^9}, 3.8292172562942963`*^9,
+ 3.829217350020563*^9, 3.8292179697686987`*^9, 3.82921822500557*^9,
+ 3.829219274210935*^9, 3.829220034508875*^9, 3.8292204036733913`*^9,
+ 3.8292206062076*^9, 3.829362096031363*^9, 3.8293677340603113`*^9,
+ 3.829368008634383*^9, 3.829369394089733*^9, 3.829383879593367*^9,
+ 3.829383932987261*^9},
+ CellLabel->
+ "Out[479]=",ExpressionUUID->"1960a7a4-3ea5-44a1-b144-07eeafdaa210"]
+}, Open ]],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"n2", "=", "2"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"F2", "=",
+ RowBox[{"RF", "[", "n2", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"h2", "=",
+ RowBox[{"h", "[", "1", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"eq2", "=",
+ RowBox[{
+ RowBox[{"eq", "[",
+ RowBox[{"n2", ",", "h2"}], "]"}], "[",
+ RowBox[{"2", ",", "1", ",", "2"}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{
+ 3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
+ 3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9,
+ 3.817564534320574*^9}, {3.81756485534698*^9, 3.817564862343175*^9}, {
+ 3.817564919676697*^9, 3.8175649235785027`*^9}, {3.817565106996109*^9,
+ 3.8175651474217367`*^9}, {3.8175652415905113`*^9, 3.817565250029232*^9}, {
+ 3.8175657444559927`*^9, 3.8175657689660788`*^9}, 3.8175669120549498`*^9, {
+ 3.8175677716518087`*^9, 3.817567773706285*^9}, {3.817579700926876*^9,
+ 3.817579701354711*^9}, {3.8175810533593073`*^9, 3.817581114447541*^9}, {
+ 3.817581149854197*^9, 3.8175811499220247`*^9}, {3.817581265163169*^9,
+ 3.81758126542041*^9}, {3.81758144220247*^9, 3.8175814490334673`*^9}, {
+ 3.8175815152710047`*^9, 3.817581521148234*^9}, {3.817581635837187*^9,
+ 3.817581700879589*^9}, {3.817581767691791*^9, 3.817581768673394*^9}, {
+ 3.8175821842992363`*^9, 3.8175821844066353`*^9}, {3.817582286431714*^9,
+ 3.817582297101211*^9}, {3.817582488847374*^9, 3.817582488974349*^9}, {
+ 3.817582803954041*^9, 3.817582804222094*^9}, {3.817618756754203*^9,
+ 3.817618757439868*^9}, {3.81761900296082*^9, 3.817619003035212*^9}, {
+ 3.8176203963382673`*^9, 3.817620396528458*^9}, {3.817626242723531*^9,
+ 3.817626282042306*^9}, {3.81762924164756*^9, 3.8176292443562737`*^9}, {
+ 3.8176636404765043`*^9, 3.817663648770928*^9}, {3.817666003825204*^9,
+ 3.8176660163975077`*^9}, 3.825758657266858*^9, 3.8257634297123632`*^9, {
+ 3.8257637382216587`*^9, 3.825763741294034*^9}, {3.825764046315646*^9,
+ 3.8257640768120003`*^9}, {3.826007441657895*^9, 3.8260074468257313`*^9},
+ 3.826007758136524*^9, {3.826013359537168*^9, 3.826013366921255*^9}, {
+ 3.826013463378932*^9, 3.826013482235341*^9}, {3.826014234648857*^9,
+ 3.8260142779855223`*^9}, {3.82610306735501*^9, 3.826103074379273*^9}, {
+ 3.826103107756144*^9, 3.826103107819812*^9}, {3.826272369240218*^9,
+ 3.826272391792493*^9}, {3.826272586652137*^9, 3.826272594732195*^9}, {
+ 3.826273088053089*^9, 3.826273089748893*^9}, {3.826273144677765*^9,
+ 3.826273146997635*^9}, {3.8262736335668373`*^9, 3.826273635734462*^9},
+ 3.8266890691074533`*^9, {3.826689155061082*^9, 3.8266891551567373`*^9}, {
+ 3.8266893130797987`*^9, 3.826689323848358*^9}, {3.826689565988503*^9,
+ 3.826689581228674*^9}, {3.826689634565889*^9, 3.826689650102207*^9}, {
+ 3.826689983421033*^9, 3.826689988684514*^9}, {3.826690298234497*^9,
+ 3.826690304258379*^9}, {3.8266903448673897`*^9, 3.826690346835585*^9}, {
+ 3.826690541351234*^9, 3.826690548879322*^9}, 3.8266910071358747`*^9, {
+ 3.82669106486483*^9, 3.826691074849018*^9}, {3.826691445503744*^9,
+ 3.826691458440094*^9}, {3.82669167994809*^9, 3.826691683996052*^9}, {
+ 3.826704702577314*^9, 3.826704712105288*^9}, {3.82670492717354*^9,
+ 3.826704930421282*^9}, {3.827403765410832*^9, 3.827403784866971*^9}, {
+ 3.827404400190401*^9, 3.827404420238784*^9}, {3.8274045097126637`*^9,
+ 3.8274045126565638`*^9}, {3.8274047169724197`*^9, 3.827404723828395*^9}, {
+ 3.827404767149251*^9, 3.827404769613168*^9}, {3.827405559211132*^9,
+ 3.827405561458974*^9}, {3.827406421058803*^9, 3.827406425898838*^9}, {
+ 3.827410007136595*^9, 3.827410024500999*^9}, {3.827468086395525*^9,
+ 3.827468087899349*^9}, {3.8274817111143637`*^9, 3.827481732722485*^9}, {
+ 3.827481932910375*^9, 3.827481942630374*^9}, {3.827484882114504*^9,
+ 3.827484891178834*^9}, {3.82748496838837*^9, 3.827484972428067*^9}, {
+ 3.827554870569126*^9, 3.8275548842255087`*^9}, {3.827554955106474*^9,
+ 3.827554986395269*^9}, {3.827555061348587*^9, 3.827555089773085*^9}, {
+ 3.827555513700951*^9, 3.8275555289410133`*^9}, {3.827558549917939*^9,
+ 3.827558582782239*^9}, {3.827561592644457*^9, 3.8275616094843884`*^9}, {
+ 3.827830458103025*^9, 3.8278304871675167`*^9}, {3.827830599481675*^9,
+ 3.8278306003135023`*^9}, {3.82783063897057*^9, 3.827830646362282*^9}, {
+ 3.827830706235694*^9, 3.827830712059711*^9}, {3.827831315902727*^9,
+ 3.827831321270451*^9}, {3.827833104775069*^9, 3.827833114719193*^9}, {
+ 3.8278331747045517`*^9, 3.827833179136505*^9}, {3.8278334549656887`*^9,
+ 3.827833462445428*^9}, 3.829120829171124*^9, {3.829213838889318*^9,
+ 3.829213883841852*^9}, {3.829216680244032*^9, 3.8292166875078707`*^9}, {
+ 3.829217356792184*^9, 3.829217363040196*^9}, {3.829217611596777*^9,
+ 3.829217614180689*^9}, {3.8292179006095667`*^9, 3.82921790960981*^9}, {
+ 3.829217997675579*^9, 3.829218002163485*^9}, {3.8292181618864193`*^9,
+ 3.829218166502698*^9}, {3.829218241519663*^9, 3.829218244927868*^9}, {
+ 3.829218327681534*^9, 3.8292183301052837`*^9}, {3.829219307330814*^9,
+ 3.829219309722743*^9}, {3.829219364523818*^9, 3.829219376947916*^9}, {
+ 3.829368028888688*^9, 3.829368032640358*^9}, {3.829368125978788*^9,
+ 3.829368158786539*^9}, {3.829368489640855*^9, 3.8293685026248217`*^9}, {
+ 3.829368942512965*^9, 3.829368947281065*^9}, {3.8293690670431423`*^9,
+ 3.829369070970992*^9}, {3.829370761001676*^9, 3.829370763321416*^9}, {
+ 3.829371075543243*^9, 3.829371092567361*^9}, {3.829371139368414*^9,
+ 3.8293711438322983`*^9}, {3.8293839400973167`*^9, 3.829383946329383*^9}},
+ CellLabel->
+ "In[490]:=",ExpressionUUID->"34ec14f2-e69a-4233-afa7-8b9340ca265f"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"sol2", "=",
+ RowBox[{"untilSuccess", "[",
+ RowBox[{"newSol", "[",
+ RowBox[{"eq2", ",", "sol1", ",",
+ RowBox[{"{",
+ RowBox[{"gC", "[", "1", "]"}], "}"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "1"}]]}], "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
+ 3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9,
+ 3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, {
+ 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, {
+ 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9,
+ 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, {
+ 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9,
+ 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, {
+ 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9,
+ 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, {
+ 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9,
+ 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, {
+ 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9,
+ 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, {
+ 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9,
+ 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, {
+ 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9,
+ 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, {
+ 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9,
+ 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9,
+ 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, {
+ 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9,
+ 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, {
+ 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9,
+ 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, {
+ 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9,
+ 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, {
+ 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9,
+ 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, {
+ 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9,
+ 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, {
+ 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9,
+ 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, {
+ 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9,
+ 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9},
+ 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, {
+ 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9,
+ 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, {
+ 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9,
+ 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, {
+ 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9,
+ 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, {
+ 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9,
+ 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, {
+ 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9,
+ 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, {
+ 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9,
+ 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, {
+ 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9,
+ 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, {
+ 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9,
+ 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, {
+ 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9,
+ 3.8260074763785057`*^9}, {3.8260077526573877`*^9,
+ 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, {
+ 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9,
+ 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, {
+ 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9,
+ 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, {
+ 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9,
+ 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, {
+ 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, {
+ 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9,
+ 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, {
+ 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9,
+ 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, {
+ 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9,
+ 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, {
+ 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9,
+ 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, {
+ 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9,
+ 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, {
+ 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9,
+ 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9,
+ 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9,
+ 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9,
+ 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, {
+ 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9,
+ 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9,
+ 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, {
+ 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, {
+ 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9,
+ 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9,
+ 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, {
+ 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9,
+ 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, {
+ 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9,
+ 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, {
+ 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9,
+ 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, {
+ 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9,
+ 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, {
+ 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9,
+ 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, {
+ 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9,
+ 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, {
+ 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9,
+ 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, {
+ 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9,
+ 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9},
+ 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9,
+ 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, {
+ 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9,
+ 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, {
+ 3.829214031268794*^9, 3.829214040157639*^9}, {3.829216649212429*^9,
+ 3.829216713844104*^9}, {3.829217366544965*^9, 3.829217390512424*^9}, {
+ 3.829217616820653*^9, 3.829217618716579*^9}, {3.829217913075171*^9,
+ 3.829217913281975*^9}, {3.8292180058278713`*^9, 3.829218006499639*^9}, {
+ 3.829218169279408*^9, 3.829218169886425*^9}, {3.829218249408503*^9,
+ 3.8292182527599*^9}, {3.829218332601268*^9, 3.8292183344651337`*^9}, {
+ 3.829219312835874*^9, 3.8292193133627453`*^9}, {3.829219381116323*^9,
+ 3.829219381796111*^9}, {3.829368037970189*^9, 3.829368046808629*^9}, {
+ 3.829368163195677*^9, 3.829368164218666*^9}, {3.829368508025868*^9,
+ 3.829368523322445*^9}, {3.8293689509698563`*^9, 3.829368952969119*^9}, {
+ 3.829369079419671*^9, 3.829369080659419*^9}, {3.82937076952973*^9,
+ 3.829370770201521*^9}, {3.829371098735732*^9, 3.829371101471711*^9}, {
+ 3.829371152593144*^9, 3.8293711527685347`*^9}},
+ CellLabel->
+ "In[494]:=",ExpressionUUID->"3c891175-2642-465d-b121-e5989a86c957"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]", "1.1902176442711372`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.197976737246886`"}], ",",
+ RowBox[{"B", "\[Rule]", "8.934974747488742`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.1907835701424658`"}], ",",
+ RowBox[{"AL", "\[Rule]",
+ RowBox[{"-", "0.10022764362395367`"}]}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{"-", "2.387596334644148`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.0738334869692325`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.996632476952634`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2267942907739353`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", "0.0003772839142190877`"}]}],
+ "}"}]], "Output",
+ CellChangeTimes->{{3.826689120800562*^9, 3.826689127418775*^9}, {
+ 3.826689158488123*^9, 3.8266891737031317`*^9}, {3.826689317590938*^9,
+ 3.826689360645096*^9}, {3.8266895920966187`*^9, 3.82668965774481*^9}, {
+ 3.826689994862856*^9, 3.826690033288772*^9}, {3.8266900773992367`*^9,
+ 3.826690138259676*^9}, {3.826690170487563*^9, 3.826690210884091*^9}, {
+ 3.82669028582425*^9, 3.826690412478512*^9}, {3.826690525277103*^9,
+ 3.826690586804343*^9}, 3.8266911044203787`*^9, {3.8266911415341454`*^9,
+ 3.826691176067152*^9}, {3.8266914431034403`*^9, 3.826691466496176*^9}, {
+ 3.8266915698104963`*^9, 3.826691589183861*^9}, {3.826691629285613*^9,
+ 3.826691658570911*^9}, {3.826691691287863*^9, 3.826691696658971*^9},
+ 3.826692543677533*^9, {3.8267021751874743`*^9, 3.826702188045772*^9}, {
+ 3.826702249172145*^9, 3.8267022876310787`*^9}, {3.826702328696328*^9,
+ 3.826702337613181*^9}, {3.82670240505122*^9, 3.826702415381674*^9}, {
+ 3.826702466382925*^9, 3.8267024746472607`*^9}, {3.82670292325323*^9,
+ 3.826702926250457*^9}, {3.826704726369697*^9, 3.8267049509999313`*^9}, {
+ 3.8273110328413973`*^9, 3.8273110427062273`*^9}, {3.8273130359585447`*^9,
+ 3.827313096509973*^9}, {3.827313127495216*^9, 3.8273131369191723`*^9},
+ 3.82731317007028*^9, 3.8273132039981737`*^9, 3.827313246533884*^9, {
+ 3.8273133462431517`*^9, 3.827313389144965*^9}, {3.827313425515341*^9,
+ 3.8273134583541927`*^9}, 3.827313492781188*^9, {3.82731352923447*^9,
+ 3.8273135589068947`*^9}, {3.827313596780452*^9, 3.827313655707004*^9}, {
+ 3.827313919011878*^9, 3.8273139325541162`*^9}, {3.8273139642216597`*^9,
+ 3.827314074115497*^9}, {3.827314372765233*^9, 3.8273143825934277`*^9}, {
+ 3.827403799553021*^9, 3.8274038250868883`*^9}, {3.827404411304475*^9,
+ 3.827404474434816*^9}, {3.827404520773925*^9, 3.827404582308402*^9}, {
+ 3.827404734048932*^9, 3.827404820482794*^9}, {3.827405568262806*^9,
+ 3.8274056500914383`*^9}, {3.827406440885428*^9, 3.827406445571705*^9},
+ 3.82741006348425*^9, 3.827410107607787*^9, {3.827468049995737*^9,
+ 3.827468095724422*^9}, 3.827480997719429*^9, {3.82748108294648*^9,
+ 3.827481129985794*^9}, 3.827481641182066*^9, {3.8274817411058826`*^9,
+ 3.827481855698565*^9}, 3.827481892268821*^9, {3.827481928398188*^9,
+ 3.827481956595954*^9}, {3.827482424452154*^9, 3.827482440121634*^9}, {
+ 3.827482626074338*^9, 3.827482647145111*^9}, {3.827484842554553*^9,
+ 3.827484874049939*^9}, 3.827484913883271*^9, {3.827484990128724*^9,
+ 3.8274849919736977`*^9}, 3.827554895814118*^9, {3.827554947784121*^9,
+ 3.8275549984120703`*^9}, {3.8275550679769897`*^9, 3.827555094379706*^9}, {
+ 3.8275554797725573`*^9, 3.827555480967787*^9}, {3.827555525888712*^9,
+ 3.827555559767219*^9}, {3.827558622717334*^9, 3.8275586356363983`*^9}, {
+ 3.8275586667285223`*^9, 3.827558741490138*^9}, {3.827561578728423*^9,
+ 3.827561658589188*^9}, 3.82783047330208*^9, {3.827830505564189*^9,
+ 3.827830518175445*^9}, {3.8278306124447412`*^9, 3.8278306293937597`*^9},
+ 3.8278306698240337`*^9, {3.8278309059064503`*^9, 3.8278309322836113`*^9}, {
+ 3.827831366061975*^9, 3.827831374894594*^9}, 3.827832582229473*^9,
+ 3.827832905505087*^9, 3.827833024832057*^9, {3.827833121728074*^9,
+ 3.827833156887409*^9}, {3.827833190486783*^9, 3.827833214597282*^9},
+ 3.827833440181951*^9, {3.827833485349725*^9, 3.827833509120513*^9},
+ 3.827833641521347*^9, 3.8279184071752663`*^9, {3.829120832804307*^9,
+ 3.8291209136945477`*^9}, {3.829121218248872*^9, 3.829121242382848*^9}, {
+ 3.82912136689071*^9, 3.82912138344954*^9}, {3.8291214179310007`*^9,
+ 3.8291214519539347`*^9}, 3.829121487616544*^9, 3.829121528475222*^9, {
+ 3.82912458078371*^9, 3.829124601986802*^9}, {3.8291246559522*^9,
+ 3.829124672481606*^9}, {3.8291247141750517`*^9, 3.829124779311466*^9}, {
+ 3.829211841985059*^9, 3.829211856018559*^9}, {3.829211923636525*^9,
+ 3.829211943366921*^9}, {3.82921204932723*^9, 3.829212097388105*^9}, {
+ 3.829212658917536*^9, 3.829212735633731*^9}, 3.8292138590684853`*^9, {
+ 3.829213900767322*^9, 3.829213987652483*^9}, {3.829214027339926*^9,
+ 3.829214077595415*^9}, 3.829214111976997*^9, {3.829216645620145*^9,
+ 3.829216715417513*^9}, {3.8292173703682117`*^9, 3.829217427661035*^9}, {
+ 3.8292175095857973`*^9, 3.829217521894855*^9}, {3.829217579387204*^9,
+ 3.8292176200414343`*^9}, {3.8292179136735353`*^9, 3.8292179192009*^9},
+ 3.829218020136615*^9, {3.829218058272133*^9, 3.829218132563239*^9}, {
+ 3.829218170541244*^9, 3.82921819896801*^9}, {3.8292182735631647`*^9,
+ 3.829218294423565*^9}, {3.829218325665007*^9, 3.829218335494206*^9}, {
+ 3.829219313612496*^9, 3.829219386026712*^9}, 3.829220043672707*^9, {
+ 3.829220421789029*^9, 3.829220424905802*^9}, 3.829362108394184*^9, {
+ 3.8293637509986*^9, 3.829363754657275*^9}, 3.8293680398996677`*^9,
+ 3.829368120602828*^9, 3.8293681653351*^9, {3.8293685104434834`*^9,
+ 3.8293685251750927`*^9}, {3.82936906356641*^9, 3.829369081306682*^9},
+ 3.829369398034728*^9, 3.8293707666734953`*^9, 3.8293710551667223`*^9, {
+ 3.8293710882362747`*^9, 3.829371104724761*^9}, {3.829371148126133*^9,
+ 3.82937115298039*^9}, 3.8293840449961777`*^9},
+ CellLabel->
+ "Out[494]=",ExpressionUUID->"fceab09e-fc60-4843-9773-a38dbb6c64e9"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListLogPlot", "[",
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Abs", "[", "Gls", "]"}],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"Length", "[", "Gls", "]"}], "]"}], "-", "1"}], ")"}],
+ "!"}], ")"}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{"dFd\[Xi]LowList", "[",
+ RowBox[{"n2", ",", "h2"}], "]"}], "[", "9", "]"}], "]"}], "/.",
+ "sol2"}], "]"}]}], "\[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.8292167266289587`*^9, 3.829216727252491*^9}},
+ CellLabel->
+ "In[287]:=",ExpressionUUID->"f64e2eb8-4318-4e8f-af9c-c3c51317913e"],
+
+Cell[BoxData[
+ GraphicsBox[{{{{},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{2., 0.3058939805973312}, {2., 0.3058939805973386}}],
+ LineBox[{{2., 0.3058939805973386}, {2., 0.3058939805973459}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{3., -2.3237415260246084`}, {3., -2.323741525983753}}],
+ LineBox[{{3., -2.323741525983753}, {3., -2.3237415259428977`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{4., -1.4559292669525052`}, {4., -1.4559292643794253`}}],
+ LineBox[{{4., -1.4559292643794253`}, {4., -1.4559292618063453`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{5., 0.49511742142021525`}, {5., 0.4951174360481992}}],
+ LineBox[{{5., 0.4951174360481992}, {5., 0.4951174506761829}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{6., 3.0940399563540724`}, {6., 3.09404001073627}}],
+ LineBox[{{6., 3.09404001073627}, {6., 3.094040065118465}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{7., 6.1624758838184075`}, {7., 6.16247740087889}}],
+ LineBox[{{7., 6.16247740087889}, {7., 6.162478917937071}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{8., 9.602775387951214}, {8., 9.60277640917097}}],
+ LineBox[{{8., 9.60277640917097}, {8., 9.602777430389681}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{9., 13.351873817000742`}, {9., 13.352514637272591`}}],
+ LineBox[{{9., 13.352514637272591`}, {9., 13.35315504715679}}]}},
+ Antialiasing->False]}}, {}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{2., 0.3058939805973386}, {3., -2.323741525983753}, {
+ 4., -1.4559292643794253`}, {5., 0.4951174360481992}, {6.,
+ 3.09404001073627}, {7., 6.16247740087889}, {8., 9.60277640917097}, {9.,
+ 13.352514637272591`}, {10., 17.374061165823296`}, {11.,
+ 21.625033700634212`}, {12., 26.085288777828126`}}]},
+ {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{2., 0.305893980597332}, {3., -2.3237415259837064`}, {
+ 4., -1.4559292643793043`}, {5., 0.49511743604825265`}, {6.,
+ 3.081513912937237}, {7., 6.1201496508180355`}, {8., 9.51965652170546}, {
+ 9., 13.227479111092594`}, {10., 17.20694340744775}}]}}, {{}, {}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{0., -4.546909369396598},
+ DisplayFunction->Identity,
+ Frame->{{False, False}, {False, False}},
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->{{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}},
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& )}},
+ PlotRange->{{0., 12.}, {-4.546909369396598, 26.085288777828126`}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->FrontEndValueCache[{Automatic,
+ Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{2.302585092994046,
+ FormBox["10", TraditionalForm], {0.01, 0.}}, {11.512925464970229`,
+ FormBox[
+ TemplateBox[{"10", "5"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {20.72326583694641,
+ FormBox[
+ TemplateBox[{"10", "9"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {-6.907755278982137,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-0.2231435513142097,
+ 0.}}, {-4.605170185988091,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-0.10536051565782628`,
+ 0.}}, {-2.3025850929940455`,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 0.6931471805599453,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 1.0986122886681098`,
+ 4.605170185988092,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 1.3862943611198906`,
+ 6.907755278982137,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 1.6094379124341003`,
+ 9.210340371976184,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 1.791759469228055,
+ 13.815510557964274`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 1.9459101490553132`,
+ 16.11809565095832,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 2.0794415416798357`,
+ 18.420680743952367`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 2.1972245773362196`,
+ 23.025850929940457`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 2.995732273553991,
+ 25.328436022934504`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 3.4011973816621555`,
+ 27.631021115928547`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 3.6888794541139363`,
+ 29.933606208922594`,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 3.912023005428146,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}}}]]], "Output",
+ CellChangeTimes->{
+ 3.829128192696102*^9, 3.8291283114274397`*^9, {3.829128370744546*^9,
+ 3.829128445841797*^9}, {3.829128480636278*^9, 3.829128527376986*^9},
+ 3.8291285849859743`*^9, 3.8292117566926937`*^9, 3.829211814966825*^9,
+ 3.829211912332552*^9, 3.829211996833428*^9, 3.829212286708362*^9,
+ 3.8292123390635853`*^9, 3.8292124113465843`*^9, 3.8292124966849127`*^9,
+ 3.829213895309402*^9, 3.829214115032938*^9, 3.8292167193092747`*^9,
+ 3.829216775401761*^9, 3.829217477375403*^9, 3.8292175737297792`*^9,
+ 3.829217667412431*^9, 3.829218383924204*^9, 3.8292194279999638`*^9,
+ 3.829220087692603*^9, 3.829220449734817*^9, 3.829220681685664*^9,
+ 3.8293682126201677`*^9, 3.82936857310034*^9, 3.829369130651861*^9,
+ 3.829369445384159*^9},
+ CellLabel->
+ "Out[287]=",ExpressionUUID->"0e0ace01-33a4-48d3-bd55-128f7acfa937"]
+}, Open ]],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"n3", "=", "2"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"F3", "=",
+ RowBox[{"RF", "[", "n3", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"h3", "=",
+ RowBox[{"h", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"eq3", "=",
+ RowBox[{
+ RowBox[{"eq", "[",
+ RowBox[{"n3", ",", "h3"}], "]"}], "[",
+ RowBox[{"3", ",", "2", ",", "2"}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{
+ 3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
+ 3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9,
+ 3.817564534320574*^9}, {3.81756485534698*^9, 3.817564862343175*^9}, {
+ 3.817564919676697*^9, 3.8175649235785027`*^9}, {3.817565106996109*^9,
+ 3.8175651474217367`*^9}, {3.8175652415905113`*^9, 3.817565250029232*^9}, {
+ 3.8175657444559927`*^9, 3.8175657689660788`*^9}, 3.8175669120549498`*^9, {
+ 3.8175677716518087`*^9, 3.817567773706285*^9}, {3.817579700926876*^9,
+ 3.817579701354711*^9}, {3.8175810533593073`*^9, 3.817581114447541*^9}, {
+ 3.817581149854197*^9, 3.8175811499220247`*^9}, {3.817581265163169*^9,
+ 3.81758126542041*^9}, {3.81758144220247*^9, 3.8175814490334673`*^9}, {
+ 3.8175815152710047`*^9, 3.817581521148234*^9}, {3.817581635837187*^9,
+ 3.817581700879589*^9}, {3.817581767691791*^9, 3.817581768673394*^9}, {
+ 3.8175821842992363`*^9, 3.8175821844066353`*^9}, {3.817582286431714*^9,
+ 3.817582297101211*^9}, {3.817582488847374*^9, 3.817582488974349*^9}, {
+ 3.817582803954041*^9, 3.817582804222094*^9}, {3.817618756754203*^9,
+ 3.817618757439868*^9}, {3.81761900296082*^9, 3.817619003035212*^9}, {
+ 3.8176203963382673`*^9, 3.817620396528458*^9}, {3.817626242723531*^9,
+ 3.817626282042306*^9}, {3.81762924164756*^9, 3.8176292443562737`*^9}, {
+ 3.8176636404765043`*^9, 3.817663648770928*^9}, {3.817666003825204*^9,
+ 3.8176660163975077`*^9}, 3.825758657266858*^9, 3.8257634297123632`*^9, {
+ 3.8257637382216587`*^9, 3.825763741294034*^9}, {3.825764046315646*^9,
+ 3.8257640768120003`*^9}, {3.826007441657895*^9, 3.8260074468257313`*^9},
+ 3.826007758136524*^9, {3.826013359537168*^9, 3.826013366921255*^9}, {
+ 3.826013463378932*^9, 3.826013482235341*^9}, {3.826014234648857*^9,
+ 3.8260142779855223`*^9}, {3.82610306735501*^9, 3.826103074379273*^9}, {
+ 3.826103107756144*^9, 3.826103107819812*^9}, {3.826272369240218*^9,
+ 3.826272391792493*^9}, {3.826272586652137*^9, 3.826272594732195*^9}, {
+ 3.826273088053089*^9, 3.826273089748893*^9}, {3.826273144677765*^9,
+ 3.826273146997635*^9}, {3.8262736335668373`*^9, 3.826273635734462*^9},
+ 3.8266890691074533`*^9, {3.826689155061082*^9, 3.8266891551567373`*^9}, {
+ 3.8266893130797987`*^9, 3.826689323848358*^9}, {3.826689565988503*^9,
+ 3.826689581228674*^9}, {3.826689634565889*^9, 3.826689650102207*^9}, {
+ 3.826689983421033*^9, 3.826689988684514*^9}, {3.826690298234497*^9,
+ 3.826690304258379*^9}, {3.8266903448673897`*^9, 3.826690346835585*^9}, {
+ 3.826690541351234*^9, 3.826690548879322*^9}, 3.8266910071358747`*^9, {
+ 3.82669106486483*^9, 3.826691074849018*^9}, {3.826691445503744*^9,
+ 3.826691458440094*^9}, {3.82669167994809*^9, 3.826691683996052*^9}, {
+ 3.826704702577314*^9, 3.826704712105288*^9}, {3.82670492717354*^9,
+ 3.826704930421282*^9}, {3.827403765410832*^9, 3.827403784866971*^9}, {
+ 3.827404400190401*^9, 3.827404420238784*^9}, {3.8274045097126637`*^9,
+ 3.8274045126565638`*^9}, {3.8274047169724197`*^9, 3.827404723828395*^9}, {
+ 3.827404767149251*^9, 3.827404769613168*^9}, {3.827405559211132*^9,
+ 3.827405561458974*^9}, {3.827406421058803*^9, 3.827406425898838*^9}, {
+ 3.827410007136595*^9, 3.827410024500999*^9}, {3.827468086395525*^9,
+ 3.827468087899349*^9}, {3.8274817111143637`*^9, 3.827481732722485*^9}, {
+ 3.827481932910375*^9, 3.827481942630374*^9}, {3.827484882114504*^9,
+ 3.827484891178834*^9}, {3.82748496838837*^9, 3.827484972428067*^9}, {
+ 3.827554870569126*^9, 3.8275548842255087`*^9}, {3.827554955106474*^9,
+ 3.827554986395269*^9}, {3.827555061348587*^9, 3.827555089773085*^9}, {
+ 3.827555513700951*^9, 3.8275555289410133`*^9}, {3.827558549917939*^9,
+ 3.827558582782239*^9}, {3.827561592644457*^9, 3.8275616094843884`*^9}, {
+ 3.827830458103025*^9, 3.8278304871675167`*^9}, {3.827830599481675*^9,
+ 3.8278306003135023`*^9}, {3.82783063897057*^9, 3.827830646362282*^9}, {
+ 3.827830706235694*^9, 3.827830712059711*^9}, {3.827831315902727*^9,
+ 3.827831321270451*^9}, {3.827833104775069*^9, 3.827833114719193*^9}, {
+ 3.8278331747045517`*^9, 3.827833179136505*^9}, {3.8278334549656887`*^9,
+ 3.827833462445428*^9}, 3.829120829171124*^9, {3.829213838889318*^9,
+ 3.829213883841852*^9}, {3.829214173078923*^9, 3.829214190007135*^9}, {
+ 3.829217677573986*^9, 3.829217686333686*^9}, {3.829217811928056*^9,
+ 3.8292178136720657`*^9}, {3.829218394666704*^9, 3.829218401658337*^9}, {
+ 3.8292187191121473`*^9, 3.829218728096401*^9}, {3.829368271117032*^9,
+ 3.829368275564617*^9}, {3.829368590178836*^9, 3.829368602514616*^9}, {
+ 3.8293691040200243`*^9, 3.829369115755772*^9}, {3.829371124208045*^9,
+ 3.829371128112094*^9}, {3.829371172664732*^9, 3.829371175472876*^9}, {
+ 3.829371420653515*^9, 3.829371423597522*^9}, {3.829384064739922*^9,
+ 3.829384089259829*^9}},
+ CellLabel->
+ "In[500]:=",ExpressionUUID->"a96db868-d41f-433d-88d3-73a2b34157b2"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"sol3", "=",
+ RowBox[{"untilSuccess", "[",
+ RowBox[{"newSol", "[",
+ RowBox[{"eq3", ",", "sol2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], ",",
+ RowBox[{"gC", "[", "3", "]"}]}], "}"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "6"}]]}], "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
+ 3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9,
+ 3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, {
+ 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, {
+ 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9,
+ 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, {
+ 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9,
+ 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, {
+ 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9,
+ 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, {
+ 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9,
+ 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, {
+ 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9,
+ 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, {
+ 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9,
+ 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, {
+ 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9,
+ 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, {
+ 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9,
+ 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9,
+ 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, {
+ 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9,
+ 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, {
+ 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9,
+ 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, {
+ 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9,
+ 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, {
+ 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9,
+ 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, {
+ 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9,
+ 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, {
+ 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9,
+ 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, {
+ 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9,
+ 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9},
+ 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, {
+ 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9,
+ 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, {
+ 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9,
+ 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, {
+ 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9,
+ 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, {
+ 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9,
+ 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, {
+ 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9,
+ 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, {
+ 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9,
+ 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, {
+ 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9,
+ 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, {
+ 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9,
+ 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, {
+ 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9,
+ 3.8260074763785057`*^9}, {3.8260077526573877`*^9,
+ 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, {
+ 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9,
+ 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, {
+ 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9,
+ 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, {
+ 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9,
+ 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, {
+ 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, {
+ 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9,
+ 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, {
+ 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9,
+ 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, {
+ 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9,
+ 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, {
+ 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9,
+ 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, {
+ 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9,
+ 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, {
+ 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9,
+ 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9,
+ 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9,
+ 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9,
+ 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, {
+ 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9,
+ 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9,
+ 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, {
+ 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, {
+ 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9,
+ 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9,
+ 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, {
+ 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9,
+ 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, {
+ 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9,
+ 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, {
+ 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9,
+ 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, {
+ 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9,
+ 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, {
+ 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9,
+ 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, {
+ 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9,
+ 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, {
+ 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9,
+ 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, {
+ 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9,
+ 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9},
+ 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9,
+ 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, {
+ 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9,
+ 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, {
+ 3.829214031268794*^9, 3.829214040157639*^9}, {3.829214194263526*^9,
+ 3.8292142105916843`*^9}, {3.829217690414138*^9, 3.829217702270501*^9}, {
+ 3.8292178172969103`*^9, 3.8292178174562902`*^9}, {3.8292178775777473`*^9,
+ 3.8292178776889153`*^9}, {3.829218414474752*^9, 3.829218438363077*^9}, {
+ 3.829220129337493*^9, 3.8292201294411983`*^9}, {3.8293682811580133`*^9,
+ 3.829368281332857*^9}, {3.829368605771906*^9, 3.829368621818864*^9}, {
+ 3.829369119076646*^9, 3.829369124363988*^9}, {3.829371182626143*^9,
+ 3.8293711843451643`*^9}, {3.829371313731625*^9, 3.829371313827364*^9}, {
+ 3.829371427621697*^9, 3.829371428717615*^9}, {3.829384070852407*^9,
+ 3.829384092643899*^9}},
+ CellLabel->
+ "In[504]:=",ExpressionUUID->"9e3392d7-9445-477b-9e57-3faef08acef1"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]", "1.2495389024403079`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19827861326682916`"}], ",",
+ RowBox[{"B", "\[Rule]", "4.959510311436287`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2259004429102667`"}], ",",
+ RowBox[{"AL", "\[Rule]",
+ RowBox[{"-", "0.07201039184213023`"}]}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{"-", "2.3751818979037567`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.143745471277278`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.1475338318664527`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2404208552928082`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.013220793659631188`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.0016801514390158122`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0003003360422582788`"}]}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.826689120800562*^9, 3.826689127418775*^9}, {
+ 3.826689158488123*^9, 3.8266891737031317`*^9}, {3.826689317590938*^9,
+ 3.826689360645096*^9}, {3.8266895920966187`*^9, 3.82668965774481*^9}, {
+ 3.826689994862856*^9, 3.826690033288772*^9}, {3.8266900773992367`*^9,
+ 3.826690138259676*^9}, {3.826690170487563*^9, 3.826690210884091*^9}, {
+ 3.82669028582425*^9, 3.826690412478512*^9}, {3.826690525277103*^9,
+ 3.826690586804343*^9}, 3.8266911044203787`*^9, {3.8266911415341454`*^9,
+ 3.826691176067152*^9}, {3.8266914431034403`*^9, 3.826691466496176*^9}, {
+ 3.8266915698104963`*^9, 3.826691589183861*^9}, {3.826691629285613*^9,
+ 3.826691658570911*^9}, {3.826691691287863*^9, 3.826691696658971*^9},
+ 3.826692543677533*^9, {3.8267021751874743`*^9, 3.826702188045772*^9}, {
+ 3.826702249172145*^9, 3.8267022876310787`*^9}, {3.826702328696328*^9,
+ 3.826702337613181*^9}, {3.82670240505122*^9, 3.826702415381674*^9}, {
+ 3.826702466382925*^9, 3.8267024746472607`*^9}, {3.82670292325323*^9,
+ 3.826702926250457*^9}, {3.826704726369697*^9, 3.8267049509999313`*^9}, {
+ 3.8273110328413973`*^9, 3.8273110427062273`*^9}, {3.8273130359585447`*^9,
+ 3.827313096509973*^9}, {3.827313127495216*^9, 3.8273131369191723`*^9},
+ 3.82731317007028*^9, 3.8273132039981737`*^9, 3.827313246533884*^9, {
+ 3.8273133462431517`*^9, 3.827313389144965*^9}, {3.827313425515341*^9,
+ 3.8273134583541927`*^9}, 3.827313492781188*^9, {3.82731352923447*^9,
+ 3.8273135589068947`*^9}, {3.827313596780452*^9, 3.827313655707004*^9}, {
+ 3.827313919011878*^9, 3.8273139325541162`*^9}, {3.8273139642216597`*^9,
+ 3.827314074115497*^9}, {3.827314372765233*^9, 3.8273143825934277`*^9}, {
+ 3.827403799553021*^9, 3.8274038250868883`*^9}, {3.827404411304475*^9,
+ 3.827404474434816*^9}, {3.827404520773925*^9, 3.827404582308402*^9}, {
+ 3.827404734048932*^9, 3.827404820482794*^9}, {3.827405568262806*^9,
+ 3.8274056500914383`*^9}, {3.827406440885428*^9, 3.827406445571705*^9},
+ 3.82741006348425*^9, 3.827410107607787*^9, {3.827468049995737*^9,
+ 3.827468095724422*^9}, 3.827480997719429*^9, {3.82748108294648*^9,
+ 3.827481129985794*^9}, 3.827481641182066*^9, {3.8274817411058826`*^9,
+ 3.827481855698565*^9}, 3.827481892268821*^9, {3.827481928398188*^9,
+ 3.827481956595954*^9}, {3.827482424452154*^9, 3.827482440121634*^9}, {
+ 3.827482626074338*^9, 3.827482647145111*^9}, {3.827484842554553*^9,
+ 3.827484874049939*^9}, 3.827484913883271*^9, {3.827484990128724*^9,
+ 3.8274849919736977`*^9}, 3.827554895814118*^9, {3.827554947784121*^9,
+ 3.8275549984120703`*^9}, {3.8275550679769897`*^9, 3.827555094379706*^9}, {
+ 3.8275554797725573`*^9, 3.827555480967787*^9}, {3.827555525888712*^9,
+ 3.827555559767219*^9}, {3.827558622717334*^9, 3.8275586356363983`*^9}, {
+ 3.8275586667285223`*^9, 3.827558741490138*^9}, {3.827561578728423*^9,
+ 3.827561658589188*^9}, 3.82783047330208*^9, {3.827830505564189*^9,
+ 3.827830518175445*^9}, {3.8278306124447412`*^9, 3.8278306293937597`*^9},
+ 3.8278306698240337`*^9, {3.8278309059064503`*^9, 3.8278309322836113`*^9}, {
+ 3.827831366061975*^9, 3.827831374894594*^9}, 3.827832582229473*^9,
+ 3.827832905505087*^9, 3.827833024832057*^9, {3.827833121728074*^9,
+ 3.827833156887409*^9}, {3.827833190486783*^9, 3.827833214597282*^9},
+ 3.827833440181951*^9, {3.827833485349725*^9, 3.827833509120513*^9},
+ 3.827833641521347*^9, 3.8279184071752663`*^9, {3.829120832804307*^9,
+ 3.8291209136945477`*^9}, {3.829121218248872*^9, 3.829121242382848*^9}, {
+ 3.82912136689071*^9, 3.82912138344954*^9}, {3.8291214179310007`*^9,
+ 3.8291214519539347`*^9}, 3.829121487616544*^9, 3.829121528475222*^9, {
+ 3.82912458078371*^9, 3.829124601986802*^9}, {3.8291246559522*^9,
+ 3.829124672481606*^9}, {3.8291247141750517`*^9, 3.829124779311466*^9}, {
+ 3.829211841985059*^9, 3.829211856018559*^9}, {3.829211923636525*^9,
+ 3.829211943366921*^9}, {3.82921204932723*^9, 3.829212097388105*^9}, {
+ 3.829212658917536*^9, 3.829212735633731*^9}, 3.8292138590684853`*^9, {
+ 3.829213900767322*^9, 3.829213987652483*^9}, {3.829214027339926*^9,
+ 3.829214077595415*^9}, 3.829214111976997*^9, {3.829214204875598*^9,
+ 3.829214227775757*^9}, {3.829217692503879*^9, 3.829217736816154*^9}, {
+ 3.829217796040901*^9, 3.8292178004682283`*^9}, {3.829217867884487*^9,
+ 3.829217897395664*^9}, {3.829218433300358*^9, 3.829218438953628*^9},
+ 3.8292187548085403`*^9, {3.829220116358404*^9, 3.829220132324314*^9},
+ 3.8292204523599977`*^9, 3.829362111519082*^9, {3.829363758906279*^9,
+ 3.8293637647806587`*^9}, {3.8293682777061787`*^9, 3.829368281587386*^9},
+ 3.829368613800229*^9, 3.82936892272502*^9, 3.829369131211638*^9,
+ 3.829369455020486*^9, 3.82937130658591*^9, {3.829371412788608*^9,
+ 3.829371429105603*^9}, {3.82938408287558*^9, 3.829384093855629*^9}},
+ CellLabel->
+ "Out[504]=",ExpressionUUID->"ed22ffb0-101c-458f-8b4c-fe95e3b102ba"]
+}, Open ]],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"n4", "=", "2"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"F4", "=",
+ RowBox[{"RF", "[", "n4", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"h4", "=",
+ RowBox[{"h", "[", "5", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"eq4", "=",
+ RowBox[{
+ RowBox[{"eq", "[",
+ RowBox[{"n4", ",", "h4"}], "]"}], "[",
+ RowBox[{"3", ",", "3", ",", "4"}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{
+ 3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
+ 3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9,
+ 3.817564534320574*^9}, {3.81756485534698*^9, 3.817564862343175*^9}, {
+ 3.817564919676697*^9, 3.8175649235785027`*^9}, {3.817565106996109*^9,
+ 3.8175651474217367`*^9}, {3.8175652415905113`*^9, 3.817565250029232*^9}, {
+ 3.8175657444559927`*^9, 3.8175657689660788`*^9}, 3.8175669120549498`*^9, {
+ 3.8175677716518087`*^9, 3.817567773706285*^9}, {3.817579700926876*^9,
+ 3.817579701354711*^9}, {3.8175810533593073`*^9, 3.817581114447541*^9}, {
+ 3.817581149854197*^9, 3.8175811499220247`*^9}, {3.817581265163169*^9,
+ 3.81758126542041*^9}, {3.81758144220247*^9, 3.8175814490334673`*^9}, {
+ 3.8175815152710047`*^9, 3.817581521148234*^9}, {3.817581635837187*^9,
+ 3.817581700879589*^9}, {3.817581767691791*^9, 3.817581768673394*^9}, {
+ 3.8175821842992363`*^9, 3.8175821844066353`*^9}, {3.817582286431714*^9,
+ 3.817582297101211*^9}, {3.817582488847374*^9, 3.817582488974349*^9}, {
+ 3.817582803954041*^9, 3.817582804222094*^9}, {3.817618756754203*^9,
+ 3.817618757439868*^9}, {3.81761900296082*^9, 3.817619003035212*^9}, {
+ 3.8176203963382673`*^9, 3.817620396528458*^9}, {3.817626242723531*^9,
+ 3.817626282042306*^9}, {3.81762924164756*^9, 3.8176292443562737`*^9}, {
+ 3.8176636404765043`*^9, 3.817663648770928*^9}, {3.817666003825204*^9,
+ 3.8176660163975077`*^9}, 3.825758657266858*^9, 3.8257634297123632`*^9, {
+ 3.8257637382216587`*^9, 3.825763741294034*^9}, {3.825764046315646*^9,
+ 3.8257640768120003`*^9}, {3.826007441657895*^9, 3.8260074468257313`*^9},
+ 3.826007758136524*^9, {3.826013359537168*^9, 3.826013366921255*^9}, {
+ 3.826013463378932*^9, 3.826013482235341*^9}, {3.826014234648857*^9,
+ 3.8260142779855223`*^9}, {3.82610306735501*^9, 3.826103074379273*^9}, {
+ 3.826103107756144*^9, 3.826103107819812*^9}, {3.826272369240218*^9,
+ 3.826272391792493*^9}, {3.826272586652137*^9, 3.826272594732195*^9}, {
+ 3.826273088053089*^9, 3.826273089748893*^9}, {3.826273144677765*^9,
+ 3.826273146997635*^9}, {3.8262736335668373`*^9, 3.826273635734462*^9},
+ 3.8266890691074533`*^9, {3.826689155061082*^9, 3.8266891551567373`*^9}, {
+ 3.8266893130797987`*^9, 3.826689323848358*^9}, {3.826689565988503*^9,
+ 3.826689581228674*^9}, {3.826689634565889*^9, 3.826689650102207*^9}, {
+ 3.826689983421033*^9, 3.826689988684514*^9}, {3.826690298234497*^9,
+ 3.826690304258379*^9}, {3.8266903448673897`*^9, 3.826690346835585*^9}, {
+ 3.826690541351234*^9, 3.826690548879322*^9}, 3.8266910071358747`*^9, {
+ 3.82669106486483*^9, 3.826691074849018*^9}, {3.826691445503744*^9,
+ 3.826691458440094*^9}, {3.82669167994809*^9, 3.826691683996052*^9}, {
+ 3.826704702577314*^9, 3.826704712105288*^9}, {3.82670492717354*^9,
+ 3.826704930421282*^9}, {3.827403765410832*^9, 3.827403784866971*^9}, {
+ 3.827404400190401*^9, 3.827404420238784*^9}, {3.8274045097126637`*^9,
+ 3.8274045126565638`*^9}, {3.8274047169724197`*^9, 3.827404723828395*^9}, {
+ 3.827404767149251*^9, 3.827404769613168*^9}, {3.827405559211132*^9,
+ 3.827405561458974*^9}, {3.827406421058803*^9, 3.827406425898838*^9}, {
+ 3.827410007136595*^9, 3.827410024500999*^9}, {3.827468086395525*^9,
+ 3.827468087899349*^9}, {3.8274817111143637`*^9, 3.827481732722485*^9}, {
+ 3.827481932910375*^9, 3.827481942630374*^9}, {3.827484882114504*^9,
+ 3.827484891178834*^9}, {3.82748496838837*^9, 3.827484972428067*^9}, {
+ 3.827554870569126*^9, 3.8275548842255087`*^9}, {3.827554955106474*^9,
+ 3.827554986395269*^9}, {3.827555061348587*^9, 3.827555089773085*^9}, {
+ 3.827555513700951*^9, 3.8275555289410133`*^9}, {3.827558549917939*^9,
+ 3.827558582782239*^9}, {3.827561592644457*^9, 3.8275616094843884`*^9}, {
+ 3.827830458103025*^9, 3.8278304871675167`*^9}, {3.827830599481675*^9,
+ 3.8278306003135023`*^9}, {3.82783063897057*^9, 3.827830646362282*^9}, {
+ 3.827830706235694*^9, 3.827830712059711*^9}, {3.827831315902727*^9,
+ 3.827831321270451*^9}, {3.827833104775069*^9, 3.827833114719193*^9}, {
+ 3.8278331747045517`*^9, 3.827833179136505*^9}, {3.8278334549656887`*^9,
+ 3.827833462445428*^9}, 3.829120829171124*^9, {3.829213838889318*^9,
+ 3.829213883841852*^9}, {3.829214173078923*^9, 3.829214190007135*^9}, {
+ 3.829217677573986*^9, 3.829217686333686*^9}, {3.829217811928056*^9,
+ 3.8292178136720657`*^9}, {3.829218394666704*^9, 3.829218401658337*^9}, {
+ 3.8292188164581223`*^9, 3.82921883122604*^9}, {3.829218950764509*^9,
+ 3.829218957204319*^9}, {3.829220267572093*^9, 3.829220270004106*^9}, {
+ 3.829368356710397*^9, 3.829368359334304*^9}, {3.82936921160571*^9,
+ 3.829369215221573*^9}, {3.829371446030113*^9, 3.8293714614701233`*^9}, {
+ 3.829384111588584*^9, 3.8293841151483583`*^9}},
+ CellLabel->
+ "In[505]:=",ExpressionUUID->"fb46f7c2-5761-4a64-9a5f-872dd3265e1c"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"sol4", "=",
+ RowBox[{"untilSuccess", "[",
+ RowBox[{"newSol", "[",
+ RowBox[{"eq4", ",", "sol3", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], ",",
+ RowBox[{"gC", "[", "5", "]"}]}], "}"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "3"}]]}], "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
+ 3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9,
+ 3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, {
+ 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, {
+ 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9,
+ 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, {
+ 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9,
+ 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, {
+ 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9,
+ 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, {
+ 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9,
+ 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, {
+ 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9,
+ 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, {
+ 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9,
+ 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, {
+ 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9,
+ 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, {
+ 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9,
+ 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9,
+ 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, {
+ 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9,
+ 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, {
+ 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9,
+ 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, {
+ 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9,
+ 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, {
+ 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9,
+ 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, {
+ 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9,
+ 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, {
+ 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9,
+ 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, {
+ 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9,
+ 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9},
+ 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, {
+ 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9,
+ 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, {
+ 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9,
+ 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, {
+ 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9,
+ 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, {
+ 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9,
+ 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, {
+ 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9,
+ 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, {
+ 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9,
+ 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, {
+ 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9,
+ 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, {
+ 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9,
+ 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, {
+ 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9,
+ 3.8260074763785057`*^9}, {3.8260077526573877`*^9,
+ 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, {
+ 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9,
+ 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, {
+ 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9,
+ 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, {
+ 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9,
+ 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, {
+ 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, {
+ 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9,
+ 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, {
+ 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9,
+ 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, {
+ 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9,
+ 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, {
+ 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9,
+ 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, {
+ 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9,
+ 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, {
+ 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9,
+ 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9,
+ 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9,
+ 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9,
+ 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, {
+ 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9,
+ 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9,
+ 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, {
+ 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, {
+ 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9,
+ 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9,
+ 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, {
+ 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9,
+ 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, {
+ 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9,
+ 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, {
+ 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9,
+ 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, {
+ 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9,
+ 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, {
+ 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9,
+ 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, {
+ 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9,
+ 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, {
+ 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9,
+ 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, {
+ 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9,
+ 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9},
+ 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9,
+ 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, {
+ 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9,
+ 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, {
+ 3.829214031268794*^9, 3.829214040157639*^9}, {3.829214194263526*^9,
+ 3.8292142105916843`*^9}, {3.829217690414138*^9, 3.829217702270501*^9}, {
+ 3.8292178172969103`*^9, 3.8292178174562902`*^9}, {3.8292178775777473`*^9,
+ 3.8292178776889153`*^9}, {3.829218414474752*^9, 3.829218438363077*^9}, {
+ 3.829218873266842*^9, 3.8292188874831133`*^9}, {3.829218961781654*^9,
+ 3.829218962396624*^9}, {3.829220227971595*^9, 3.829220228067281*^9}, {
+ 3.829220271868513*^9, 3.8292202885961943`*^9}, {3.829362123773261*^9,
+ 3.82936212387718*^9}, {3.8293623714499807`*^9, 3.8293623718336153`*^9}, {
+ 3.829363771402968*^9, 3.829363771474676*^9}, {3.8293641382745457`*^9,
+ 3.829364145457487*^9}, {3.829368362486923*^9, 3.829368363222292*^9}, {
+ 3.829369220374155*^9, 3.829369223973774*^9}, {3.829371464766535*^9,
+ 3.829371470590396*^9}},
+ CellLabel->
+ "In[509]:=",ExpressionUUID->"3d7346aa-9d8e-46fd-bcb4-ca52fff0d32a"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]", "1.2218378625072182`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.1977099169076331`"}], ",",
+ RowBox[{"B", "\[Rule]", "6.209923198475849`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.1818294842594814`"}], ",",
+ RowBox[{"AL", "\[Rule]",
+ RowBox[{"-", "0.08097254492639104`"}]}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{"-", "2.4609357103817957`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.1600336631533341`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.1539722922915865`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.21887483621800208`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.01985517674309075`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.0037244523499775804`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0011191450016135279`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0002590259844876614`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.00005788205332425629`"}]}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.826689120800562*^9, 3.826689127418775*^9}, {
+ 3.826689158488123*^9, 3.8266891737031317`*^9}, {3.826689317590938*^9,
+ 3.826689360645096*^9}, {3.8266895920966187`*^9, 3.82668965774481*^9}, {
+ 3.826689994862856*^9, 3.826690033288772*^9}, {3.8266900773992367`*^9,
+ 3.826690138259676*^9}, {3.826690170487563*^9, 3.826690210884091*^9}, {
+ 3.82669028582425*^9, 3.826690412478512*^9}, {3.826690525277103*^9,
+ 3.826690586804343*^9}, 3.8266911044203787`*^9, {3.8266911415341454`*^9,
+ 3.826691176067152*^9}, {3.8266914431034403`*^9, 3.826691466496176*^9}, {
+ 3.8266915698104963`*^9, 3.826691589183861*^9}, {3.826691629285613*^9,
+ 3.826691658570911*^9}, {3.826691691287863*^9, 3.826691696658971*^9},
+ 3.826692543677533*^9, {3.8267021751874743`*^9, 3.826702188045772*^9}, {
+ 3.826702249172145*^9, 3.8267022876310787`*^9}, {3.826702328696328*^9,
+ 3.826702337613181*^9}, {3.82670240505122*^9, 3.826702415381674*^9}, {
+ 3.826702466382925*^9, 3.8267024746472607`*^9}, {3.82670292325323*^9,
+ 3.826702926250457*^9}, {3.826704726369697*^9, 3.8267049509999313`*^9}, {
+ 3.8273110328413973`*^9, 3.8273110427062273`*^9}, {3.8273130359585447`*^9,
+ 3.827313096509973*^9}, {3.827313127495216*^9, 3.8273131369191723`*^9},
+ 3.82731317007028*^9, 3.8273132039981737`*^9, 3.827313246533884*^9, {
+ 3.8273133462431517`*^9, 3.827313389144965*^9}, {3.827313425515341*^9,
+ 3.8273134583541927`*^9}, 3.827313492781188*^9, {3.82731352923447*^9,
+ 3.8273135589068947`*^9}, {3.827313596780452*^9, 3.827313655707004*^9}, {
+ 3.827313919011878*^9, 3.8273139325541162`*^9}, {3.8273139642216597`*^9,
+ 3.827314074115497*^9}, {3.827314372765233*^9, 3.8273143825934277`*^9}, {
+ 3.827403799553021*^9, 3.8274038250868883`*^9}, {3.827404411304475*^9,
+ 3.827404474434816*^9}, {3.827404520773925*^9, 3.827404582308402*^9}, {
+ 3.827404734048932*^9, 3.827404820482794*^9}, {3.827405568262806*^9,
+ 3.8274056500914383`*^9}, {3.827406440885428*^9, 3.827406445571705*^9},
+ 3.82741006348425*^9, 3.827410107607787*^9, {3.827468049995737*^9,
+ 3.827468095724422*^9}, 3.827480997719429*^9, {3.82748108294648*^9,
+ 3.827481129985794*^9}, 3.827481641182066*^9, {3.8274817411058826`*^9,
+ 3.827481855698565*^9}, 3.827481892268821*^9, {3.827481928398188*^9,
+ 3.827481956595954*^9}, {3.827482424452154*^9, 3.827482440121634*^9}, {
+ 3.827482626074338*^9, 3.827482647145111*^9}, {3.827484842554553*^9,
+ 3.827484874049939*^9}, 3.827484913883271*^9, {3.827484990128724*^9,
+ 3.8274849919736977`*^9}, 3.827554895814118*^9, {3.827554947784121*^9,
+ 3.8275549984120703`*^9}, {3.8275550679769897`*^9, 3.827555094379706*^9}, {
+ 3.8275554797725573`*^9, 3.827555480967787*^9}, {3.827555525888712*^9,
+ 3.827555559767219*^9}, {3.827558622717334*^9, 3.8275586356363983`*^9}, {
+ 3.8275586667285223`*^9, 3.827558741490138*^9}, {3.827561578728423*^9,
+ 3.827561658589188*^9}, 3.82783047330208*^9, {3.827830505564189*^9,
+ 3.827830518175445*^9}, {3.8278306124447412`*^9, 3.8278306293937597`*^9},
+ 3.8278306698240337`*^9, {3.8278309059064503`*^9, 3.8278309322836113`*^9}, {
+ 3.827831366061975*^9, 3.827831374894594*^9}, 3.827832582229473*^9,
+ 3.827832905505087*^9, 3.827833024832057*^9, {3.827833121728074*^9,
+ 3.827833156887409*^9}, {3.827833190486783*^9, 3.827833214597282*^9},
+ 3.827833440181951*^9, {3.827833485349725*^9, 3.827833509120513*^9},
+ 3.827833641521347*^9, 3.8279184071752663`*^9, {3.829120832804307*^9,
+ 3.8291209136945477`*^9}, {3.829121218248872*^9, 3.829121242382848*^9}, {
+ 3.82912136689071*^9, 3.82912138344954*^9}, {3.8291214179310007`*^9,
+ 3.8291214519539347`*^9}, 3.829121487616544*^9, 3.829121528475222*^9, {
+ 3.82912458078371*^9, 3.829124601986802*^9}, {3.8291246559522*^9,
+ 3.829124672481606*^9}, {3.8291247141750517`*^9, 3.829124779311466*^9}, {
+ 3.829211841985059*^9, 3.829211856018559*^9}, {3.829211923636525*^9,
+ 3.829211943366921*^9}, {3.82921204932723*^9, 3.829212097388105*^9}, {
+ 3.829212658917536*^9, 3.829212735633731*^9}, 3.8292138590684853`*^9, {
+ 3.829213900767322*^9, 3.829213987652483*^9}, {3.829214027339926*^9,
+ 3.829214077595415*^9}, 3.829214111976997*^9, {3.829214204875598*^9,
+ 3.829214227775757*^9}, {3.829217692503879*^9, 3.829217736816154*^9}, {
+ 3.829217796040901*^9, 3.8292178004682283`*^9}, {3.829217867884487*^9,
+ 3.829217897395664*^9}, {3.829218433300358*^9, 3.829218438953628*^9}, {
+ 3.8292188840072823`*^9, 3.829218907333342*^9}, {3.8292189584961233`*^9,
+ 3.8292189826030293`*^9}, 3.829220226230227*^9, {3.829220262467355*^9,
+ 3.82922033935154*^9}, {3.829362116339007*^9, 3.82936212978506*^9},
+ 3.829362175540524*^9, {3.8293624139586573`*^9, 3.829362434833434*^9},
+ 3.829362643826833*^9, {3.829363692975235*^9, 3.829363736509664*^9}, {
+ 3.829363769093174*^9, 3.829363831140403*^9}, {3.8293641300457067`*^9,
+ 3.829364146469141*^9}, 3.829364245028812*^9, 3.8293651378276587`*^9,
+ 3.829368363496665*^9, 3.829369282881318*^9, 3.829369464882949*^9, {
+ 3.829369884948262*^9, 3.829369901796967*^9}, 3.829371470900284*^9,
+ 3.8293841212608337`*^9},
+ CellLabel->
+ "Out[509]=",ExpressionUUID->"1039063c-eea7-4dae-b37a-5b3048f96132"]
+}, Open ]],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"n5", "=", "2"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"F5", "=",
+ RowBox[{"RF", "[", "n5", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"h5", "=",
+ RowBox[{"h", "[", "7", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"eq5", "=",
+ RowBox[{
+ RowBox[{"eq", "[",
+ RowBox[{"n5", ",", "h5"}], "]"}], "[",
+ RowBox[{"4", ",", "4", ",", "4"}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{
+ 3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
+ 3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9,
+ 3.817564534320574*^9}, {3.81756485534698*^9, 3.817564862343175*^9}, {
+ 3.817564919676697*^9, 3.8175649235785027`*^9}, {3.817565106996109*^9,
+ 3.8175651474217367`*^9}, {3.8175652415905113`*^9, 3.817565250029232*^9}, {
+ 3.8175657444559927`*^9, 3.8175657689660788`*^9}, 3.8175669120549498`*^9, {
+ 3.8175677716518087`*^9, 3.817567773706285*^9}, {3.817579700926876*^9,
+ 3.817579701354711*^9}, {3.8175810533593073`*^9, 3.817581114447541*^9}, {
+ 3.817581149854197*^9, 3.8175811499220247`*^9}, {3.817581265163169*^9,
+ 3.81758126542041*^9}, {3.81758144220247*^9, 3.8175814490334673`*^9}, {
+ 3.8175815152710047`*^9, 3.817581521148234*^9}, {3.817581635837187*^9,
+ 3.817581700879589*^9}, {3.817581767691791*^9, 3.817581768673394*^9}, {
+ 3.8175821842992363`*^9, 3.8175821844066353`*^9}, {3.817582286431714*^9,
+ 3.817582297101211*^9}, {3.817582488847374*^9, 3.817582488974349*^9}, {
+ 3.817582803954041*^9, 3.817582804222094*^9}, {3.817618756754203*^9,
+ 3.817618757439868*^9}, {3.81761900296082*^9, 3.817619003035212*^9}, {
+ 3.8176203963382673`*^9, 3.817620396528458*^9}, {3.817626242723531*^9,
+ 3.817626282042306*^9}, {3.81762924164756*^9, 3.8176292443562737`*^9}, {
+ 3.8176636404765043`*^9, 3.817663648770928*^9}, {3.817666003825204*^9,
+ 3.8176660163975077`*^9}, 3.825758657266858*^9, 3.8257634297123632`*^9, {
+ 3.8257637382216587`*^9, 3.825763741294034*^9}, {3.825764046315646*^9,
+ 3.8257640768120003`*^9}, {3.826007441657895*^9, 3.8260074468257313`*^9},
+ 3.826007758136524*^9, {3.826013359537168*^9, 3.826013366921255*^9}, {
+ 3.826013463378932*^9, 3.826013482235341*^9}, {3.826014234648857*^9,
+ 3.8260142779855223`*^9}, {3.82610306735501*^9, 3.826103074379273*^9}, {
+ 3.826103107756144*^9, 3.826103107819812*^9}, {3.826272369240218*^9,
+ 3.826272391792493*^9}, {3.826272586652137*^9, 3.826272594732195*^9}, {
+ 3.826273088053089*^9, 3.826273089748893*^9}, {3.826273144677765*^9,
+ 3.826273146997635*^9}, {3.8262736335668373`*^9, 3.826273635734462*^9},
+ 3.8266890691074533`*^9, {3.826689155061082*^9, 3.8266891551567373`*^9}, {
+ 3.8266893130797987`*^9, 3.826689323848358*^9}, {3.826689565988503*^9,
+ 3.826689581228674*^9}, {3.826689634565889*^9, 3.826689650102207*^9}, {
+ 3.826689983421033*^9, 3.826689988684514*^9}, {3.826690298234497*^9,
+ 3.826690304258379*^9}, {3.8266903448673897`*^9, 3.826690346835585*^9}, {
+ 3.826690541351234*^9, 3.826690548879322*^9}, 3.8266910071358747`*^9, {
+ 3.82669106486483*^9, 3.826691074849018*^9}, {3.826691445503744*^9,
+ 3.826691458440094*^9}, {3.82669167994809*^9, 3.826691683996052*^9}, {
+ 3.826704702577314*^9, 3.826704712105288*^9}, {3.82670492717354*^9,
+ 3.826704930421282*^9}, {3.827403765410832*^9, 3.827403784866971*^9}, {
+ 3.827404400190401*^9, 3.827404420238784*^9}, {3.8274045097126637`*^9,
+ 3.8274045126565638`*^9}, {3.8274047169724197`*^9, 3.827404723828395*^9}, {
+ 3.827404767149251*^9, 3.827404769613168*^9}, {3.827405559211132*^9,
+ 3.827405561458974*^9}, {3.827406421058803*^9, 3.827406425898838*^9}, {
+ 3.827410007136595*^9, 3.827410024500999*^9}, {3.827468086395525*^9,
+ 3.827468087899349*^9}, {3.8274817111143637`*^9, 3.827481732722485*^9}, {
+ 3.827481932910375*^9, 3.827481942630374*^9}, {3.827484882114504*^9,
+ 3.827484891178834*^9}, {3.82748496838837*^9, 3.827484972428067*^9}, {
+ 3.827554870569126*^9, 3.8275548842255087`*^9}, {3.827554955106474*^9,
+ 3.827554986395269*^9}, {3.827555061348587*^9, 3.827555089773085*^9}, {
+ 3.827555513700951*^9, 3.8275555289410133`*^9}, {3.827558549917939*^9,
+ 3.827558582782239*^9}, {3.827561592644457*^9, 3.8275616094843884`*^9}, {
+ 3.827830458103025*^9, 3.8278304871675167`*^9}, {3.827830599481675*^9,
+ 3.8278306003135023`*^9}, {3.82783063897057*^9, 3.827830646362282*^9}, {
+ 3.827830706235694*^9, 3.827830712059711*^9}, {3.827831315902727*^9,
+ 3.827831321270451*^9}, {3.827833104775069*^9, 3.827833114719193*^9}, {
+ 3.8278331747045517`*^9, 3.827833179136505*^9}, {3.8278334549656887`*^9,
+ 3.827833462445428*^9}, 3.829120829171124*^9, {3.829213838889318*^9,
+ 3.829213883841852*^9}, {3.829214173078923*^9, 3.829214190007135*^9}, {
+ 3.829217677573986*^9, 3.829217686333686*^9}, {3.829217811928056*^9,
+ 3.8292178136720657`*^9}, {3.829218394666704*^9, 3.829218401658337*^9}, {
+ 3.8292188164581223`*^9, 3.82921883122604*^9}, {3.829218950764509*^9,
+ 3.829218957204319*^9}, {3.829220267572093*^9, 3.829220270004106*^9}, {
+ 3.82936259901405*^9, 3.829362614606016*^9}, {3.829370367314437*^9,
+ 3.829370369098258*^9}, {3.82937149074282*^9, 3.829371504006997*^9}, {
+ 3.829371588392646*^9, 3.829371592952486*^9}, {3.829384131757078*^9,
+ 3.829384134956586*^9}},
+ CellLabel->
+ "In[510]:=",ExpressionUUID->"1a9cafff-78bf-40d5-9387-97742820a6dc"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"sol5", "=",
+ RowBox[{"untilSuccess", "[",
+ RowBox[{"newSol", "[",
+ RowBox[{"eq5", ",", "sol4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"gC", "[", "6", "]"}], ",",
+ RowBox[{"gC", "[", "7", "]"}]}], "}"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "5"}]]}], "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
+ 3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9,
+ 3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, {
+ 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, {
+ 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9,
+ 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, {
+ 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9,
+ 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, {
+ 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9,
+ 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, {
+ 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9,
+ 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, {
+ 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9,
+ 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, {
+ 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9,
+ 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, {
+ 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9,
+ 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, {
+ 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9,
+ 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9,
+ 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, {
+ 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9,
+ 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, {
+ 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9,
+ 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, {
+ 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9,
+ 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, {
+ 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9,
+ 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, {
+ 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9,
+ 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, {
+ 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9,
+ 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, {
+ 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9,
+ 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9},
+ 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, {
+ 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9,
+ 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, {
+ 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9,
+ 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, {
+ 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9,
+ 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, {
+ 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9,
+ 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, {
+ 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9,
+ 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, {
+ 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9,
+ 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, {
+ 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9,
+ 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, {
+ 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9,
+ 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, {
+ 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9,
+ 3.8260074763785057`*^9}, {3.8260077526573877`*^9,
+ 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, {
+ 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9,
+ 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, {
+ 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9,
+ 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, {
+ 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9,
+ 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, {
+ 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, {
+ 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9,
+ 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, {
+ 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9,
+ 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, {
+ 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9,
+ 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, {
+ 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9,
+ 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, {
+ 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9,
+ 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, {
+ 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9,
+ 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9,
+ 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9,
+ 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9,
+ 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, {
+ 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9,
+ 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9,
+ 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, {
+ 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, {
+ 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9,
+ 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9,
+ 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, {
+ 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9,
+ 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, {
+ 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9,
+ 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, {
+ 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9,
+ 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, {
+ 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9,
+ 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, {
+ 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9,
+ 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, {
+ 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9,
+ 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, {
+ 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9,
+ 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, {
+ 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9,
+ 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9},
+ 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9,
+ 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, {
+ 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9,
+ 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, {
+ 3.829214031268794*^9, 3.829214040157639*^9}, {3.829214194263526*^9,
+ 3.8292142105916843`*^9}, {3.829217690414138*^9, 3.829217702270501*^9}, {
+ 3.8292178172969103`*^9, 3.8292178174562902`*^9}, {3.8292178775777473`*^9,
+ 3.8292178776889153`*^9}, {3.829218414474752*^9, 3.829218438363077*^9}, {
+ 3.829218873266842*^9, 3.8292188874831133`*^9}, {3.829218961781654*^9,
+ 3.829218962396624*^9}, {3.829220227971595*^9, 3.829220228067281*^9}, {
+ 3.829220271868513*^9, 3.8292202885961943`*^9}, {3.829362123773261*^9,
+ 3.82936212387718*^9}, {3.8293623714499807`*^9, 3.8293623718336153`*^9}, {
+ 3.829362619006271*^9, 3.829362682127327*^9}, {3.8293628496104803`*^9,
+ 3.8293628496980753`*^9}, {3.829363086679022*^9, 3.829363087486423*^9}, {
+ 3.829363510502825*^9, 3.829363510582408*^9}, 3.829363644665361*^9, {
+ 3.8293640250715933`*^9, 3.8293640417196207`*^9}, {3.8293641846502438`*^9,
+ 3.8293641904262867`*^9}, {3.8293643116124277`*^9, 3.82936431479661*^9}, {
+ 3.829364353045416*^9, 3.829364357869265*^9}, {3.829365155900394*^9,
+ 3.829365164220447*^9}, {3.829365786400337*^9, 3.829365786447913*^9}, {
+ 3.829366984174124*^9, 3.8293669853979263`*^9}, {3.829370133310355*^9,
+ 3.8293701333579397`*^9}, {3.829370371971438*^9, 3.8293703727303963`*^9}, {
+ 3.829371509215295*^9, 3.829371512599156*^9}, {3.8293715961214314`*^9,
+ 3.8293715962806873`*^9}},
+ CellLabel->
+ "In[514]:=",ExpressionUUID->"7bdef841-d628-418c-9bec-b16ca8655e30"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]", "1.2741917541662682`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.1978618667691149`"}], ",",
+ RowBox[{"B", "\[Rule]", "3.867521978231126`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2057824941372208`"}], ",",
+ RowBox[{"AL", "\[Rule]",
+ RowBox[{"-", "0.05616567648471345`"}]}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{"-", "2.4569558110289114`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.2310861675193883`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.303136231120109`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2281378841956508`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0346170151637822`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.005894187952326445`"}], ",",
+
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0016881694265990727`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0004920035462813361`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.00015007393037945943`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.000035065139175501585`"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
+ RowBox[{"-", "6.170041815485428`*^-6"}]}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.826689120800562*^9, 3.826689127418775*^9}, {
+ 3.826689158488123*^9, 3.8266891737031317`*^9}, {3.826689317590938*^9,
+ 3.826689360645096*^9}, {3.8266895920966187`*^9, 3.82668965774481*^9}, {
+ 3.826689994862856*^9, 3.826690033288772*^9}, {3.8266900773992367`*^9,
+ 3.826690138259676*^9}, {3.826690170487563*^9, 3.826690210884091*^9}, {
+ 3.82669028582425*^9, 3.826690412478512*^9}, {3.826690525277103*^9,
+ 3.826690586804343*^9}, 3.8266911044203787`*^9, {3.8266911415341454`*^9,
+ 3.826691176067152*^9}, {3.8266914431034403`*^9, 3.826691466496176*^9}, {
+ 3.8266915698104963`*^9, 3.826691589183861*^9}, {3.826691629285613*^9,
+ 3.826691658570911*^9}, {3.826691691287863*^9, 3.826691696658971*^9},
+ 3.826692543677533*^9, {3.8267021751874743`*^9, 3.826702188045772*^9}, {
+ 3.826702249172145*^9, 3.8267022876310787`*^9}, {3.826702328696328*^9,
+ 3.826702337613181*^9}, {3.82670240505122*^9, 3.826702415381674*^9}, {
+ 3.826702466382925*^9, 3.8267024746472607`*^9}, {3.82670292325323*^9,
+ 3.826702926250457*^9}, {3.826704726369697*^9, 3.8267049509999313`*^9}, {
+ 3.8273110328413973`*^9, 3.8273110427062273`*^9}, {3.8273130359585447`*^9,
+ 3.827313096509973*^9}, {3.827313127495216*^9, 3.8273131369191723`*^9},
+ 3.82731317007028*^9, 3.8273132039981737`*^9, 3.827313246533884*^9, {
+ 3.8273133462431517`*^9, 3.827313389144965*^9}, {3.827313425515341*^9,
+ 3.8273134583541927`*^9}, 3.827313492781188*^9, {3.82731352923447*^9,
+ 3.8273135589068947`*^9}, {3.827313596780452*^9, 3.827313655707004*^9}, {
+ 3.827313919011878*^9, 3.8273139325541162`*^9}, {3.8273139642216597`*^9,
+ 3.827314074115497*^9}, {3.827314372765233*^9, 3.8273143825934277`*^9}, {
+ 3.827403799553021*^9, 3.8274038250868883`*^9}, {3.827404411304475*^9,
+ 3.827404474434816*^9}, {3.827404520773925*^9, 3.827404582308402*^9}, {
+ 3.827404734048932*^9, 3.827404820482794*^9}, {3.827405568262806*^9,
+ 3.8274056500914383`*^9}, {3.827406440885428*^9, 3.827406445571705*^9},
+ 3.82741006348425*^9, 3.827410107607787*^9, {3.827468049995737*^9,
+ 3.827468095724422*^9}, 3.827480997719429*^9, {3.82748108294648*^9,
+ 3.827481129985794*^9}, 3.827481641182066*^9, {3.8274817411058826`*^9,
+ 3.827481855698565*^9}, 3.827481892268821*^9, {3.827481928398188*^9,
+ 3.827481956595954*^9}, {3.827482424452154*^9, 3.827482440121634*^9}, {
+ 3.827482626074338*^9, 3.827482647145111*^9}, {3.827484842554553*^9,
+ 3.827484874049939*^9}, 3.827484913883271*^9, {3.827484990128724*^9,
+ 3.8274849919736977`*^9}, 3.827554895814118*^9, {3.827554947784121*^9,
+ 3.8275549984120703`*^9}, {3.8275550679769897`*^9, 3.827555094379706*^9}, {
+ 3.8275554797725573`*^9, 3.827555480967787*^9}, {3.827555525888712*^9,
+ 3.827555559767219*^9}, {3.827558622717334*^9, 3.8275586356363983`*^9}, {
+ 3.8275586667285223`*^9, 3.827558741490138*^9}, {3.827561578728423*^9,
+ 3.827561658589188*^9}, 3.82783047330208*^9, {3.827830505564189*^9,
+ 3.827830518175445*^9}, {3.8278306124447412`*^9, 3.8278306293937597`*^9},
+ 3.8278306698240337`*^9, {3.8278309059064503`*^9, 3.8278309322836113`*^9}, {
+ 3.827831366061975*^9, 3.827831374894594*^9}, 3.827832582229473*^9,
+ 3.827832905505087*^9, 3.827833024832057*^9, {3.827833121728074*^9,
+ 3.827833156887409*^9}, {3.827833190486783*^9, 3.827833214597282*^9},
+ 3.827833440181951*^9, {3.827833485349725*^9, 3.827833509120513*^9},
+ 3.827833641521347*^9, 3.8279184071752663`*^9, {3.829120832804307*^9,
+ 3.8291209136945477`*^9}, {3.829121218248872*^9, 3.829121242382848*^9}, {
+ 3.82912136689071*^9, 3.82912138344954*^9}, {3.8291214179310007`*^9,
+ 3.8291214519539347`*^9}, 3.829121487616544*^9, 3.829121528475222*^9, {
+ 3.82912458078371*^9, 3.829124601986802*^9}, {3.8291246559522*^9,
+ 3.829124672481606*^9}, {3.8291247141750517`*^9, 3.829124779311466*^9}, {
+ 3.829211841985059*^9, 3.829211856018559*^9}, {3.829211923636525*^9,
+ 3.829211943366921*^9}, {3.82921204932723*^9, 3.829212097388105*^9}, {
+ 3.829212658917536*^9, 3.829212735633731*^9}, 3.8292138590684853`*^9, {
+ 3.829213900767322*^9, 3.829213987652483*^9}, {3.829214027339926*^9,
+ 3.829214077595415*^9}, 3.829214111976997*^9, {3.829214204875598*^9,
+ 3.829214227775757*^9}, {3.829217692503879*^9, 3.829217736816154*^9}, {
+ 3.829217796040901*^9, 3.8292178004682283`*^9}, {3.829217867884487*^9,
+ 3.829217897395664*^9}, {3.829218433300358*^9, 3.829218438953628*^9}, {
+ 3.8292188840072823`*^9, 3.829218907333342*^9}, {3.8292189584961233`*^9,
+ 3.8292189826030293`*^9}, 3.829220226230227*^9, {3.829220262467355*^9,
+ 3.82922033935154*^9}, {3.829362116339007*^9, 3.82936212978506*^9},
+ 3.829362175540524*^9, {3.8293624139586573`*^9, 3.829362434833434*^9}, {
+ 3.829362632949161*^9, 3.829362688541752*^9}, {3.829362751541298*^9,
+ 3.829362779388083*^9}, {3.829362846262143*^9, 3.829362987368157*^9}, {
+ 3.8293630609116488`*^9, 3.829363093944889*^9}, {3.8293635026728573`*^9,
+ 3.829363533532688*^9}, {3.8293636039801073`*^9, 3.829363688062024*^9}, {
+ 3.8293638578826838`*^9, 3.829363860627307*^9}, 3.829363955566392*^9, {
+ 3.8293643165481358`*^9, 3.829364351378783*^9}, 3.829365105877397*^9,
+ 3.8293651615957108`*^9, 3.8293657839738417`*^9, 3.82936697614613*^9,
+ 3.829367100741529*^9, 3.829369604049017*^9, 3.829369864768076*^9,
+ 3.829370131544271*^9, {3.829370341531361*^9, 3.829370365544216*^9},
+ 3.8293705407458563`*^9, 3.8293715313935137`*^9, 3.829371596888565*^9,
+ 3.829384162968598*^9},
+ CellLabel->
+ "Out[514]=",ExpressionUUID->"b003f586-baf5-42a5-a64c-daf48392cf73"]
+}, Open ]],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"n6", "=", "2"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"F6", "=",
+ RowBox[{"RF", "[", "n5", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"h6", "=",
+ RowBox[{"h", "[", "9", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"eq6", "=",
+ RowBox[{
+ RowBox[{"eq", "[",
+ RowBox[{"n6", ",", "h6"}], "]"}], "[",
+ RowBox[{"6", ",", "4", ",", "4"}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{
+ 3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
+ 3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9,
+ 3.817564534320574*^9}, {3.81756485534698*^9, 3.817564862343175*^9}, {
+ 3.817564919676697*^9, 3.8175649235785027`*^9}, {3.817565106996109*^9,
+ 3.8175651474217367`*^9}, {3.8175652415905113`*^9, 3.817565250029232*^9}, {
+ 3.8175657444559927`*^9, 3.8175657689660788`*^9}, 3.8175669120549498`*^9, {
+ 3.8175677716518087`*^9, 3.817567773706285*^9}, {3.817579700926876*^9,
+ 3.817579701354711*^9}, {3.8175810533593073`*^9, 3.817581114447541*^9}, {
+ 3.817581149854197*^9, 3.8175811499220247`*^9}, {3.817581265163169*^9,
+ 3.81758126542041*^9}, {3.81758144220247*^9, 3.8175814490334673`*^9}, {
+ 3.8175815152710047`*^9, 3.817581521148234*^9}, {3.817581635837187*^9,
+ 3.817581700879589*^9}, {3.817581767691791*^9, 3.817581768673394*^9}, {
+ 3.8175821842992363`*^9, 3.8175821844066353`*^9}, {3.817582286431714*^9,
+ 3.817582297101211*^9}, {3.817582488847374*^9, 3.817582488974349*^9}, {
+ 3.817582803954041*^9, 3.817582804222094*^9}, {3.817618756754203*^9,
+ 3.817618757439868*^9}, {3.81761900296082*^9, 3.817619003035212*^9}, {
+ 3.8176203963382673`*^9, 3.817620396528458*^9}, {3.817626242723531*^9,
+ 3.817626282042306*^9}, {3.81762924164756*^9, 3.8176292443562737`*^9}, {
+ 3.8176636404765043`*^9, 3.817663648770928*^9}, {3.817666003825204*^9,
+ 3.8176660163975077`*^9}, 3.825758657266858*^9, 3.8257634297123632`*^9, {
+ 3.8257637382216587`*^9, 3.825763741294034*^9}, {3.825764046315646*^9,
+ 3.8257640768120003`*^9}, {3.826007441657895*^9, 3.8260074468257313`*^9},
+ 3.826007758136524*^9, {3.826013359537168*^9, 3.826013366921255*^9}, {
+ 3.826013463378932*^9, 3.826013482235341*^9}, {3.826014234648857*^9,
+ 3.8260142779855223`*^9}, {3.82610306735501*^9, 3.826103074379273*^9}, {
+ 3.826103107756144*^9, 3.826103107819812*^9}, {3.826272369240218*^9,
+ 3.826272391792493*^9}, {3.826272586652137*^9, 3.826272594732195*^9}, {
+ 3.826273088053089*^9, 3.826273089748893*^9}, {3.826273144677765*^9,
+ 3.826273146997635*^9}, {3.8262736335668373`*^9, 3.826273635734462*^9},
+ 3.8266890691074533`*^9, {3.826689155061082*^9, 3.8266891551567373`*^9}, {
+ 3.8266893130797987`*^9, 3.826689323848358*^9}, {3.826689565988503*^9,
+ 3.826689581228674*^9}, {3.826689634565889*^9, 3.826689650102207*^9}, {
+ 3.826689983421033*^9, 3.826689988684514*^9}, {3.826690298234497*^9,
+ 3.826690304258379*^9}, {3.8266903448673897`*^9, 3.826690346835585*^9}, {
+ 3.826690541351234*^9, 3.826690548879322*^9}, 3.8266910071358747`*^9, {
+ 3.82669106486483*^9, 3.826691074849018*^9}, {3.826691445503744*^9,
+ 3.826691458440094*^9}, {3.82669167994809*^9, 3.826691683996052*^9}, {
+ 3.826704702577314*^9, 3.826704712105288*^9}, {3.82670492717354*^9,
+ 3.826704930421282*^9}, {3.827403765410832*^9, 3.827403784866971*^9}, {
+ 3.827404400190401*^9, 3.827404420238784*^9}, {3.8274045097126637`*^9,
+ 3.8274045126565638`*^9}, {3.8274047169724197`*^9, 3.827404723828395*^9}, {
+ 3.827404767149251*^9, 3.827404769613168*^9}, {3.827405559211132*^9,
+ 3.827405561458974*^9}, {3.827406421058803*^9, 3.827406425898838*^9}, {
+ 3.827410007136595*^9, 3.827410024500999*^9}, {3.827468086395525*^9,
+ 3.827468087899349*^9}, {3.8274817111143637`*^9, 3.827481732722485*^9}, {
+ 3.827481932910375*^9, 3.827481942630374*^9}, {3.827484882114504*^9,
+ 3.827484891178834*^9}, {3.82748496838837*^9, 3.827484972428067*^9}, {
+ 3.827554870569126*^9, 3.8275548842255087`*^9}, {3.827554955106474*^9,
+ 3.827554986395269*^9}, {3.827555061348587*^9, 3.827555089773085*^9}, {
+ 3.827555513700951*^9, 3.8275555289410133`*^9}, {3.827558549917939*^9,
+ 3.827558582782239*^9}, {3.827561592644457*^9, 3.8275616094843884`*^9}, {
+ 3.827830458103025*^9, 3.8278304871675167`*^9}, {3.827830599481675*^9,
+ 3.8278306003135023`*^9}, {3.82783063897057*^9, 3.827830646362282*^9}, {
+ 3.827830706235694*^9, 3.827830712059711*^9}, {3.827831315902727*^9,
+ 3.827831321270451*^9}, {3.827833104775069*^9, 3.827833114719193*^9}, {
+ 3.8278331747045517`*^9, 3.827833179136505*^9}, {3.8278334549656887`*^9,
+ 3.827833462445428*^9}, 3.829120829171124*^9, {3.829213838889318*^9,
+ 3.829213883841852*^9}, {3.829214173078923*^9, 3.829214190007135*^9}, {
+ 3.829217677573986*^9, 3.829217686333686*^9}, {3.829217811928056*^9,
+ 3.8292178136720657`*^9}, {3.829218394666704*^9, 3.829218401658337*^9}, {
+ 3.8292188164581223`*^9, 3.82921883122604*^9}, {3.829218950764509*^9,
+ 3.829218957204319*^9}, {3.829220267572093*^9, 3.829220270004106*^9}, {
+ 3.82936259901405*^9, 3.829362614606016*^9}, {3.829370367314437*^9,
+ 3.829370369098258*^9}, {3.82937149074282*^9, 3.829371504006997*^9}, {
+ 3.829371588392646*^9, 3.829371592952486*^9}, {3.829371703474627*^9,
+ 3.829371725714978*^9}, {3.8293841834937067`*^9, 3.829384188373666*^9}, {
+ 3.829384287679748*^9, 3.8293842910074463`*^9}, {3.8293843661210957`*^9,
+ 3.829384372016992*^9}, {3.8293844069057617`*^9, 3.829384407617469*^9}, {
+ 3.829384490603231*^9, 3.8293844949630737`*^9}, {3.829384774360268*^9,
+ 3.829384778992144*^9}, {3.829384939363501*^9, 3.829384940539279*^9}, {
+ 3.829385057917753*^9, 3.829385062901247*^9}},
+ CellLabel->
+ "In[552]:=",ExpressionUUID->"53343c2f-4579-48fe-afdc-6555d61fefc7"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"sol6", "=",
+ RowBox[{"untilSuccess", "[",
+ RowBox[{"newSol", "[",
+ RowBox[{"eq6", ",", "sol5", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"gC", "[", "8", "]"}], ",",
+ RowBox[{"gC", "[", "9", "]"}]}], "}"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "6"}]]}], "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
+ 3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9,
+ 3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, {
+ 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, {
+ 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9,
+ 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, {
+ 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9,
+ 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, {
+ 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9,
+ 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, {
+ 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9,
+ 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, {
+ 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9,
+ 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, {
+ 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9,
+ 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, {
+ 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9,
+ 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, {
+ 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9,
+ 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9,
+ 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, {
+ 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9,
+ 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, {
+ 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9,
+ 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, {
+ 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9,
+ 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, {
+ 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9,
+ 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, {
+ 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9,
+ 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, {
+ 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9,
+ 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, {
+ 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9,
+ 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9},
+ 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, {
+ 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9,
+ 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, {
+ 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9,
+ 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, {
+ 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9,
+ 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, {
+ 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9,
+ 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, {
+ 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9,
+ 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, {
+ 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9,
+ 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, {
+ 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9,
+ 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, {
+ 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9,
+ 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, {
+ 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9,
+ 3.8260074763785057`*^9}, {3.8260077526573877`*^9,
+ 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, {
+ 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9,
+ 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, {
+ 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9,
+ 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, {
+ 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9,
+ 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, {
+ 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, {
+ 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9,
+ 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, {
+ 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9,
+ 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, {
+ 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9,
+ 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, {
+ 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9,
+ 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, {
+ 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9,
+ 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, {
+ 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9,
+ 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9,
+ 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9,
+ 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9,
+ 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, {
+ 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9,
+ 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9,
+ 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, {
+ 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, {
+ 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9,
+ 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9,
+ 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, {
+ 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9,
+ 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, {
+ 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9,
+ 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, {
+ 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9,
+ 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, {
+ 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9,
+ 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, {
+ 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9,
+ 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, {
+ 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9,
+ 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, {
+ 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9,
+ 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, {
+ 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9,
+ 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9},
+ 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9,
+ 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, {
+ 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9,
+ 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, {
+ 3.829214031268794*^9, 3.829214040157639*^9}, {3.829214194263526*^9,
+ 3.8292142105916843`*^9}, {3.829217690414138*^9, 3.829217702270501*^9}, {
+ 3.8292178172969103`*^9, 3.8292178174562902`*^9}, {3.8292178775777473`*^9,
+ 3.8292178776889153`*^9}, {3.829218414474752*^9, 3.829218438363077*^9}, {
+ 3.829218873266842*^9, 3.8292188874831133`*^9}, {3.829218961781654*^9,
+ 3.829218962396624*^9}, {3.829220227971595*^9, 3.829220228067281*^9}, {
+ 3.829220271868513*^9, 3.8292202885961943`*^9}, {3.829362123773261*^9,
+ 3.82936212387718*^9}, {3.8293623714499807`*^9, 3.8293623718336153`*^9}, {
+ 3.829362619006271*^9, 3.829362682127327*^9}, {3.8293628496104803`*^9,
+ 3.8293628496980753`*^9}, {3.829363086679022*^9, 3.829363087486423*^9}, {
+ 3.829363510502825*^9, 3.829363510582408*^9}, 3.829363644665361*^9, {
+ 3.8293640250715933`*^9, 3.8293640417196207`*^9}, {3.8293641846502438`*^9,
+ 3.8293641904262867`*^9}, {3.8293643116124277`*^9, 3.82936431479661*^9}, {
+ 3.829364353045416*^9, 3.829364357869265*^9}, {3.829365155900394*^9,
+ 3.829365164220447*^9}, {3.829365786400337*^9, 3.829365786447913*^9}, {
+ 3.829366984174124*^9, 3.8293669853979263`*^9}, {3.829370133310355*^9,
+ 3.8293701333579397`*^9}, {3.829370371971438*^9, 3.8293703727303963`*^9}, {
+ 3.829371509215295*^9, 3.829371512599156*^9}, {3.8293715961214314`*^9,
+ 3.8293715962806873`*^9}, {3.8293717328353024`*^9,
+ 3.8293717472752934`*^9}, {3.82938429566429*^9, 3.8293843002556953`*^9}, {
+ 3.829384375305668*^9, 3.82938437547313*^9}, {3.8293844157069483`*^9,
+ 3.8293844191218843`*^9}, {3.829384497131441*^9, 3.829384504563476*^9}, {
+ 3.829385060734583*^9, 3.829385060885489*^9}},
+ CellLabel->
+ "In[556]:=",ExpressionUUID->"19f0837b-60bb-491b-b21f-34926c9efae8"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3472811325972691`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19807797650657968`"}], ",",
+ RowBox[{"B", "\[Rule]", "2.23322668200401`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.236078744722858`"}], ",",
+ RowBox[{"AL", "\[Rule]",
+ RowBox[{"-", "0.029462277942992048`"}]}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{"-", "2.447352211967789`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.3331281585896657`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.5191887371216257`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.24317380605022798`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.056927965734752964`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.009165951205675834`"}], ",",
+
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.002547124736523627`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.000802479930385378`"}], ",",
+
+ RowBox[{
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0002696977441757554`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00008599878144791655`"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
+ RowBox[{"-", "0.000024209951679442298`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "5.093732871547382`*^-6"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "9", "]"}], "\[Rule]",
+ RowBox[{"-", "6.344035448290512`*^-7"}]}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.826689120800562*^9, 3.826689127418775*^9}, {
+ 3.826689158488123*^9, 3.8266891737031317`*^9}, {3.826689317590938*^9,
+ 3.826689360645096*^9}, {3.8266895920966187`*^9, 3.82668965774481*^9}, {
+ 3.826689994862856*^9, 3.826690033288772*^9}, {3.8266900773992367`*^9,
+ 3.826690138259676*^9}, {3.826690170487563*^9, 3.826690210884091*^9}, {
+ 3.82669028582425*^9, 3.826690412478512*^9}, {3.826690525277103*^9,
+ 3.826690586804343*^9}, 3.8266911044203787`*^9, {3.8266911415341454`*^9,
+ 3.826691176067152*^9}, {3.8266914431034403`*^9, 3.826691466496176*^9}, {
+ 3.8266915698104963`*^9, 3.826691589183861*^9}, {3.826691629285613*^9,
+ 3.826691658570911*^9}, {3.826691691287863*^9, 3.826691696658971*^9},
+ 3.826692543677533*^9, {3.8267021751874743`*^9, 3.826702188045772*^9}, {
+ 3.826702249172145*^9, 3.8267022876310787`*^9}, {3.826702328696328*^9,
+ 3.826702337613181*^9}, {3.82670240505122*^9, 3.826702415381674*^9}, {
+ 3.826702466382925*^9, 3.8267024746472607`*^9}, {3.82670292325323*^9,
+ 3.826702926250457*^9}, {3.826704726369697*^9, 3.8267049509999313`*^9}, {
+ 3.8273110328413973`*^9, 3.8273110427062273`*^9}, {3.8273130359585447`*^9,
+ 3.827313096509973*^9}, {3.827313127495216*^9, 3.8273131369191723`*^9},
+ 3.82731317007028*^9, 3.8273132039981737`*^9, 3.827313246533884*^9, {
+ 3.8273133462431517`*^9, 3.827313389144965*^9}, {3.827313425515341*^9,
+ 3.8273134583541927`*^9}, 3.827313492781188*^9, {3.82731352923447*^9,
+ 3.8273135589068947`*^9}, {3.827313596780452*^9, 3.827313655707004*^9}, {
+ 3.827313919011878*^9, 3.8273139325541162`*^9}, {3.8273139642216597`*^9,
+ 3.827314074115497*^9}, {3.827314372765233*^9, 3.8273143825934277`*^9}, {
+ 3.827403799553021*^9, 3.8274038250868883`*^9}, {3.827404411304475*^9,
+ 3.827404474434816*^9}, {3.827404520773925*^9, 3.827404582308402*^9}, {
+ 3.827404734048932*^9, 3.827404820482794*^9}, {3.827405568262806*^9,
+ 3.8274056500914383`*^9}, {3.827406440885428*^9, 3.827406445571705*^9},
+ 3.82741006348425*^9, 3.827410107607787*^9, {3.827468049995737*^9,
+ 3.827468095724422*^9}, 3.827480997719429*^9, {3.82748108294648*^9,
+ 3.827481129985794*^9}, 3.827481641182066*^9, {3.8274817411058826`*^9,
+ 3.827481855698565*^9}, 3.827481892268821*^9, {3.827481928398188*^9,
+ 3.827481956595954*^9}, {3.827482424452154*^9, 3.827482440121634*^9}, {
+ 3.827482626074338*^9, 3.827482647145111*^9}, {3.827484842554553*^9,
+ 3.827484874049939*^9}, 3.827484913883271*^9, {3.827484990128724*^9,
+ 3.8274849919736977`*^9}, 3.827554895814118*^9, {3.827554947784121*^9,
+ 3.8275549984120703`*^9}, {3.8275550679769897`*^9, 3.827555094379706*^9}, {
+ 3.8275554797725573`*^9, 3.827555480967787*^9}, {3.827555525888712*^9,
+ 3.827555559767219*^9}, {3.827558622717334*^9, 3.8275586356363983`*^9}, {
+ 3.8275586667285223`*^9, 3.827558741490138*^9}, {3.827561578728423*^9,
+ 3.827561658589188*^9}, 3.82783047330208*^9, {3.827830505564189*^9,
+ 3.827830518175445*^9}, {3.8278306124447412`*^9, 3.8278306293937597`*^9},
+ 3.8278306698240337`*^9, {3.8278309059064503`*^9, 3.8278309322836113`*^9}, {
+ 3.827831366061975*^9, 3.827831374894594*^9}, 3.827832582229473*^9,
+ 3.827832905505087*^9, 3.827833024832057*^9, {3.827833121728074*^9,
+ 3.827833156887409*^9}, {3.827833190486783*^9, 3.827833214597282*^9},
+ 3.827833440181951*^9, {3.827833485349725*^9, 3.827833509120513*^9},
+ 3.827833641521347*^9, 3.8279184071752663`*^9, {3.829120832804307*^9,
+ 3.8291209136945477`*^9}, {3.829121218248872*^9, 3.829121242382848*^9}, {
+ 3.82912136689071*^9, 3.82912138344954*^9}, {3.8291214179310007`*^9,
+ 3.8291214519539347`*^9}, 3.829121487616544*^9, 3.829121528475222*^9, {
+ 3.82912458078371*^9, 3.829124601986802*^9}, {3.8291246559522*^9,
+ 3.829124672481606*^9}, {3.8291247141750517`*^9, 3.829124779311466*^9}, {
+ 3.829211841985059*^9, 3.829211856018559*^9}, {3.829211923636525*^9,
+ 3.829211943366921*^9}, {3.82921204932723*^9, 3.829212097388105*^9}, {
+ 3.829212658917536*^9, 3.829212735633731*^9}, 3.8292138590684853`*^9, {
+ 3.829213900767322*^9, 3.829213987652483*^9}, {3.829214027339926*^9,
+ 3.829214077595415*^9}, 3.829214111976997*^9, {3.829214204875598*^9,
+ 3.829214227775757*^9}, {3.829217692503879*^9, 3.829217736816154*^9}, {
+ 3.829217796040901*^9, 3.8292178004682283`*^9}, {3.829217867884487*^9,
+ 3.829217897395664*^9}, {3.829218433300358*^9, 3.829218438953628*^9}, {
+ 3.8292188840072823`*^9, 3.829218907333342*^9}, {3.8292189584961233`*^9,
+ 3.8292189826030293`*^9}, 3.829220226230227*^9, {3.829220262467355*^9,
+ 3.82922033935154*^9}, {3.829362116339007*^9, 3.82936212978506*^9},
+ 3.829362175540524*^9, {3.8293624139586573`*^9, 3.829362434833434*^9}, {
+ 3.829362632949161*^9, 3.829362688541752*^9}, {3.829362751541298*^9,
+ 3.829362779388083*^9}, {3.829362846262143*^9, 3.829362987368157*^9}, {
+ 3.8293630609116488`*^9, 3.829363093944889*^9}, {3.8293635026728573`*^9,
+ 3.829363533532688*^9}, {3.8293636039801073`*^9, 3.829363688062024*^9}, {
+ 3.8293638578826838`*^9, 3.829363860627307*^9}, 3.829363955566392*^9, {
+ 3.8293643165481358`*^9, 3.829364351378783*^9}, 3.829365105877397*^9,
+ 3.8293651615957108`*^9, 3.8293657839738417`*^9, 3.82936697614613*^9,
+ 3.829367100741529*^9, 3.829369604049017*^9, 3.829369864768076*^9,
+ 3.829370131544271*^9, {3.829370341531361*^9, 3.829370365544216*^9},
+ 3.8293705407458563`*^9, 3.8293715313935137`*^9, 3.829371596888565*^9,
+ 3.829371747885508*^9, 3.829384259261759*^9, 3.8293843610462217`*^9, {
+ 3.8293844050271473`*^9, 3.829384422598608*^9}, {3.829384484180114*^9,
+ 3.8293845017131567`*^9}, 3.829384768998616*^9, 3.829384937359973*^9, {
+ 3.82938505652734*^9, 3.829385070983238*^9}},
+ CellLabel->
+ "Out[556]=",ExpressionUUID->"ddc3001a-40be-43b8-8f48-bf2181fa6460"]
+}, Open ]],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"n7", "=", "2"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"F7", "=",
+ RowBox[{"RF", "[", "n7", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"h7", "=",
+ RowBox[{"h", "[", "11", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"eq7", "=",
+ RowBox[{
+ RowBox[{"eq", "[",
+ RowBox[{"n7", ",", "h7"}], "]"}], "[",
+ RowBox[{"6", ",", "6", ",", "4"}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{
+ 3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
+ 3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9,
+ 3.817564534320574*^9}, {3.81756485534698*^9, 3.817564862343175*^9}, {
+ 3.817564919676697*^9, 3.8175649235785027`*^9}, {3.817565106996109*^9,
+ 3.8175651474217367`*^9}, {3.8175652415905113`*^9, 3.817565250029232*^9}, {
+ 3.8175657444559927`*^9, 3.8175657689660788`*^9}, 3.8175669120549498`*^9, {
+ 3.8175677716518087`*^9, 3.817567773706285*^9}, {3.817579700926876*^9,
+ 3.817579701354711*^9}, {3.8175810533593073`*^9, 3.817581114447541*^9}, {
+ 3.817581149854197*^9, 3.8175811499220247`*^9}, {3.817581265163169*^9,
+ 3.81758126542041*^9}, {3.81758144220247*^9, 3.8175814490334673`*^9}, {
+ 3.8175815152710047`*^9, 3.817581521148234*^9}, {3.817581635837187*^9,
+ 3.817581700879589*^9}, {3.817581767691791*^9, 3.817581768673394*^9}, {
+ 3.8175821842992363`*^9, 3.8175821844066353`*^9}, {3.817582286431714*^9,
+ 3.817582297101211*^9}, {3.817582488847374*^9, 3.817582488974349*^9}, {
+ 3.817582803954041*^9, 3.817582804222094*^9}, {3.817618756754203*^9,
+ 3.817618757439868*^9}, {3.81761900296082*^9, 3.817619003035212*^9}, {
+ 3.8176203963382673`*^9, 3.817620396528458*^9}, {3.817626242723531*^9,
+ 3.817626282042306*^9}, {3.81762924164756*^9, 3.8176292443562737`*^9}, {
+ 3.8176636404765043`*^9, 3.817663648770928*^9}, {3.817666003825204*^9,
+ 3.8176660163975077`*^9}, 3.825758657266858*^9, 3.8257634297123632`*^9, {
+ 3.8257637382216587`*^9, 3.825763741294034*^9}, {3.825764046315646*^9,
+ 3.8257640768120003`*^9}, {3.826007441657895*^9, 3.8260074468257313`*^9},
+ 3.826007758136524*^9, {3.826013359537168*^9, 3.826013366921255*^9}, {
+ 3.826013463378932*^9, 3.826013482235341*^9}, {3.826014234648857*^9,
+ 3.8260142779855223`*^9}, {3.82610306735501*^9, 3.826103074379273*^9}, {
+ 3.826103107756144*^9, 3.826103107819812*^9}, {3.826272369240218*^9,
+ 3.826272391792493*^9}, {3.826272586652137*^9, 3.826272594732195*^9}, {
+ 3.826273088053089*^9, 3.826273089748893*^9}, {3.826273144677765*^9,
+ 3.826273146997635*^9}, {3.8262736335668373`*^9, 3.826273635734462*^9},
+ 3.8266890691074533`*^9, {3.826689155061082*^9, 3.8266891551567373`*^9}, {
+ 3.8266893130797987`*^9, 3.826689323848358*^9}, {3.826689565988503*^9,
+ 3.826689581228674*^9}, {3.826689634565889*^9, 3.826689650102207*^9}, {
+ 3.826689983421033*^9, 3.826689988684514*^9}, {3.826690298234497*^9,
+ 3.826690304258379*^9}, {3.8266903448673897`*^9, 3.826690346835585*^9}, {
+ 3.826690541351234*^9, 3.826690548879322*^9}, 3.8266910071358747`*^9, {
+ 3.82669106486483*^9, 3.826691074849018*^9}, {3.826691445503744*^9,
+ 3.826691458440094*^9}, {3.82669167994809*^9, 3.826691683996052*^9}, {
+ 3.826704702577314*^9, 3.826704712105288*^9}, {3.82670492717354*^9,
+ 3.826704930421282*^9}, {3.827403765410832*^9, 3.827403784866971*^9}, {
+ 3.827404400190401*^9, 3.827404420238784*^9}, {3.8274045097126637`*^9,
+ 3.8274045126565638`*^9}, {3.8274047169724197`*^9, 3.827404723828395*^9}, {
+ 3.827404767149251*^9, 3.827404769613168*^9}, {3.827405559211132*^9,
+ 3.827405561458974*^9}, {3.827406421058803*^9, 3.827406425898838*^9}, {
+ 3.827410007136595*^9, 3.827410024500999*^9}, {3.827468086395525*^9,
+ 3.827468087899349*^9}, {3.8274817111143637`*^9, 3.827481732722485*^9}, {
+ 3.827481932910375*^9, 3.827481942630374*^9}, {3.827484882114504*^9,
+ 3.827484891178834*^9}, {3.82748496838837*^9, 3.827484972428067*^9}, {
+ 3.827554870569126*^9, 3.8275548842255087`*^9}, {3.827554955106474*^9,
+ 3.827554986395269*^9}, {3.827555061348587*^9, 3.827555089773085*^9}, {
+ 3.827555513700951*^9, 3.8275555289410133`*^9}, {3.827558549917939*^9,
+ 3.827558582782239*^9}, {3.827561592644457*^9, 3.8275616094843884`*^9}, {
+ 3.827830458103025*^9, 3.8278304871675167`*^9}, {3.827830599481675*^9,
+ 3.8278306003135023`*^9}, {3.82783063897057*^9, 3.827830646362282*^9}, {
+ 3.827830706235694*^9, 3.827830712059711*^9}, {3.827831315902727*^9,
+ 3.827831321270451*^9}, {3.827833104775069*^9, 3.827833114719193*^9}, {
+ 3.8278331747045517`*^9, 3.827833179136505*^9}, {3.8278334549656887`*^9,
+ 3.827833462445428*^9}, 3.829120829171124*^9, {3.829213838889318*^9,
+ 3.829213883841852*^9}, {3.829214173078923*^9, 3.829214190007135*^9}, {
+ 3.829217677573986*^9, 3.829217686333686*^9}, {3.829217811928056*^9,
+ 3.8292178136720657`*^9}, {3.829218394666704*^9, 3.829218401658337*^9}, {
+ 3.8292188164581223`*^9, 3.82921883122604*^9}, {3.829218950764509*^9,
+ 3.829218957204319*^9}, {3.829220267572093*^9, 3.829220270004106*^9}, {
+ 3.82936259901405*^9, 3.829362614606016*^9}, {3.829370367314437*^9,
+ 3.829370369098258*^9}, {3.82937149074282*^9, 3.829371504006997*^9}, {
+ 3.829371588392646*^9, 3.829371592952486*^9}, {3.829371703474627*^9,
+ 3.829371725714978*^9}, {3.8293841834937067`*^9, 3.829384188373666*^9}, {
+ 3.829384287679748*^9, 3.8293842910074463`*^9}, {3.8293843661210957`*^9,
+ 3.829384372016992*^9}, {3.8293844069057617`*^9, 3.829384407617469*^9}, {
+ 3.829384490603231*^9, 3.8293844949630737`*^9}, {3.829384774360268*^9,
+ 3.829384778992144*^9}, {3.829384939363501*^9, 3.829384940539279*^9}, {
+ 3.829385057917753*^9, 3.8293850885740633`*^9}, {3.8293851940558357`*^9,
+ 3.82938520864007*^9}},
+ CellLabel->
+ "In[557]:=",ExpressionUUID->"3c48ca79-1fa5-4b7f-9423-94e659aae362"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"sol7", "=",
+ RowBox[{"untilSuccess", "[",
+ RowBox[{"newSol", "[",
+ RowBox[{"eq7", ",", "sol6", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"gC", "[", "10", "]"}], ",",
+ RowBox[{"gC", "[", "11", "]"}]}], "}"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "6"}]]}], "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
+ 3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9,
+ 3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, {
+ 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, {
+ 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9,
+ 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, {
+ 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9,
+ 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, {
+ 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9,
+ 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, {
+ 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9,
+ 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, {
+ 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9,
+ 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, {
+ 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9,
+ 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, {
+ 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9,
+ 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, {
+ 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9,
+ 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9,
+ 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, {
+ 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9,
+ 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, {
+ 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9,
+ 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, {
+ 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9,
+ 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, {
+ 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9,
+ 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, {
+ 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9,
+ 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, {
+ 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9,
+ 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, {
+ 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9,
+ 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9},
+ 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, {
+ 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9,
+ 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, {
+ 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9,
+ 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, {
+ 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9,
+ 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, {
+ 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9,
+ 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, {
+ 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9,
+ 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, {
+ 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9,
+ 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, {
+ 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9,
+ 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, {
+ 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9,
+ 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, {
+ 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9,
+ 3.8260074763785057`*^9}, {3.8260077526573877`*^9,
+ 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, {
+ 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9,
+ 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, {
+ 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9,
+ 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, {
+ 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9,
+ 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, {
+ 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, {
+ 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9,
+ 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, {
+ 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9,
+ 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, {
+ 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9,
+ 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, {
+ 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9,
+ 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, {
+ 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9,
+ 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, {
+ 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9,
+ 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9,
+ 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9,
+ 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9,
+ 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, {
+ 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9,
+ 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9,
+ 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, {
+ 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, {
+ 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9,
+ 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9,
+ 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, {
+ 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9,
+ 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, {
+ 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9,
+ 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, {
+ 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9,
+ 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, {
+ 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9,
+ 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, {
+ 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9,
+ 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, {
+ 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9,
+ 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, {
+ 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9,
+ 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, {
+ 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9,
+ 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9},
+ 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9,
+ 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, {
+ 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9,
+ 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, {
+ 3.829214031268794*^9, 3.829214040157639*^9}, {3.829214194263526*^9,
+ 3.8292142105916843`*^9}, {3.829217690414138*^9, 3.829217702270501*^9}, {
+ 3.8292178172969103`*^9, 3.8292178174562902`*^9}, {3.8292178775777473`*^9,
+ 3.8292178776889153`*^9}, {3.829218414474752*^9, 3.829218438363077*^9}, {
+ 3.829218873266842*^9, 3.8292188874831133`*^9}, {3.829218961781654*^9,
+ 3.829218962396624*^9}, {3.829220227971595*^9, 3.829220228067281*^9}, {
+ 3.829220271868513*^9, 3.8292202885961943`*^9}, {3.829362123773261*^9,
+ 3.82936212387718*^9}, {3.8293623714499807`*^9, 3.8293623718336153`*^9}, {
+ 3.829362619006271*^9, 3.829362682127327*^9}, {3.8293628496104803`*^9,
+ 3.8293628496980753`*^9}, {3.829363086679022*^9, 3.829363087486423*^9}, {
+ 3.829363510502825*^9, 3.829363510582408*^9}, 3.829363644665361*^9, {
+ 3.8293640250715933`*^9, 3.8293640417196207`*^9}, {3.8293641846502438`*^9,
+ 3.8293641904262867`*^9}, {3.8293643116124277`*^9, 3.82936431479661*^9}, {
+ 3.829364353045416*^9, 3.829364357869265*^9}, {3.829365155900394*^9,
+ 3.829365164220447*^9}, {3.829365786400337*^9, 3.829365786447913*^9}, {
+ 3.829366984174124*^9, 3.8293669853979263`*^9}, {3.829370133310355*^9,
+ 3.8293701333579397`*^9}, {3.829370371971438*^9, 3.8293703727303963`*^9}, {
+ 3.829371509215295*^9, 3.829371512599156*^9}, {3.8293715961214314`*^9,
+ 3.8293715962806873`*^9}, {3.8293717328353024`*^9,
+ 3.8293717472752934`*^9}, {3.82938429566429*^9, 3.8293843002556953`*^9}, {
+ 3.829384375305668*^9, 3.82938437547313*^9}, {3.8293844157069483`*^9,
+ 3.8293844191218843`*^9}, {3.829384497131441*^9, 3.829384504563476*^9}, {
+ 3.829385060734583*^9, 3.829385060885489*^9}, {3.8293852135922403`*^9,
+ 3.82938522271249*^9}},
+ CellLabel->
+ "In[561]:=",ExpressionUUID->"c0c5581e-24f4-4c1d-bac2-acde9933d21a"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]", "1.351642230411236`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19800872248582438`"}], ",",
+ RowBox[{"B", "\[Rule]", "2.157180171127012`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2334913362057771`"}], ",",
+ RowBox[{"AL", "\[Rule]",
+ RowBox[{"-", "0.027817351000617302`"}]}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{"-", "2.45586524110864`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.34609939690211`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.543195733781812`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2418643033635924`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.06017933517998962`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.009778068250160152`"}], ",",
+
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.002743347750530008`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0008864782153465842`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.00031479494244591603`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00011318467067234331`"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
+ RowBox[{"-", "0.00003969871088326897`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.00001253764997929889`"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "9", "]"}], "\[Rule]",
+ RowBox[{"-", "3.3721154678623526`*^-6"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "10", "]"}], "\[Rule]", "6.742632278976753`*^-7"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "11", "]"}], "\[Rule]",
+ RowBox[{"-", "8.123111314240742`*^-8"}]}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.826689120800562*^9, 3.826689127418775*^9}, {
+ 3.826689158488123*^9, 3.8266891737031317`*^9}, {3.826689317590938*^9,
+ 3.826689360645096*^9}, {3.8266895920966187`*^9, 3.82668965774481*^9}, {
+ 3.826689994862856*^9, 3.826690033288772*^9}, {3.8266900773992367`*^9,
+ 3.826690138259676*^9}, {3.826690170487563*^9, 3.826690210884091*^9}, {
+ 3.82669028582425*^9, 3.826690412478512*^9}, {3.826690525277103*^9,
+ 3.826690586804343*^9}, 3.8266911044203787`*^9, {3.8266911415341454`*^9,
+ 3.826691176067152*^9}, {3.8266914431034403`*^9, 3.826691466496176*^9}, {
+ 3.8266915698104963`*^9, 3.826691589183861*^9}, {3.826691629285613*^9,
+ 3.826691658570911*^9}, {3.826691691287863*^9, 3.826691696658971*^9},
+ 3.826692543677533*^9, {3.8267021751874743`*^9, 3.826702188045772*^9}, {
+ 3.826702249172145*^9, 3.8267022876310787`*^9}, {3.826702328696328*^9,
+ 3.826702337613181*^9}, {3.82670240505122*^9, 3.826702415381674*^9}, {
+ 3.826702466382925*^9, 3.8267024746472607`*^9}, {3.82670292325323*^9,
+ 3.826702926250457*^9}, {3.826704726369697*^9, 3.8267049509999313`*^9}, {
+ 3.8273110328413973`*^9, 3.8273110427062273`*^9}, {3.8273130359585447`*^9,
+ 3.827313096509973*^9}, {3.827313127495216*^9, 3.8273131369191723`*^9},
+ 3.82731317007028*^9, 3.8273132039981737`*^9, 3.827313246533884*^9, {
+ 3.8273133462431517`*^9, 3.827313389144965*^9}, {3.827313425515341*^9,
+ 3.8273134583541927`*^9}, 3.827313492781188*^9, {3.82731352923447*^9,
+ 3.8273135589068947`*^9}, {3.827313596780452*^9, 3.827313655707004*^9}, {
+ 3.827313919011878*^9, 3.8273139325541162`*^9}, {3.8273139642216597`*^9,
+ 3.827314074115497*^9}, {3.827314372765233*^9, 3.8273143825934277`*^9}, {
+ 3.827403799553021*^9, 3.8274038250868883`*^9}, {3.827404411304475*^9,
+ 3.827404474434816*^9}, {3.827404520773925*^9, 3.827404582308402*^9}, {
+ 3.827404734048932*^9, 3.827404820482794*^9}, {3.827405568262806*^9,
+ 3.8274056500914383`*^9}, {3.827406440885428*^9, 3.827406445571705*^9},
+ 3.82741006348425*^9, 3.827410107607787*^9, {3.827468049995737*^9,
+ 3.827468095724422*^9}, 3.827480997719429*^9, {3.82748108294648*^9,
+ 3.827481129985794*^9}, 3.827481641182066*^9, {3.8274817411058826`*^9,
+ 3.827481855698565*^9}, 3.827481892268821*^9, {3.827481928398188*^9,
+ 3.827481956595954*^9}, {3.827482424452154*^9, 3.827482440121634*^9}, {
+ 3.827482626074338*^9, 3.827482647145111*^9}, {3.827484842554553*^9,
+ 3.827484874049939*^9}, 3.827484913883271*^9, {3.827484990128724*^9,
+ 3.8274849919736977`*^9}, 3.827554895814118*^9, {3.827554947784121*^9,
+ 3.8275549984120703`*^9}, {3.8275550679769897`*^9, 3.827555094379706*^9}, {
+ 3.8275554797725573`*^9, 3.827555480967787*^9}, {3.827555525888712*^9,
+ 3.827555559767219*^9}, {3.827558622717334*^9, 3.8275586356363983`*^9}, {
+ 3.8275586667285223`*^9, 3.827558741490138*^9}, {3.827561578728423*^9,
+ 3.827561658589188*^9}, 3.82783047330208*^9, {3.827830505564189*^9,
+ 3.827830518175445*^9}, {3.8278306124447412`*^9, 3.8278306293937597`*^9},
+ 3.8278306698240337`*^9, {3.8278309059064503`*^9, 3.8278309322836113`*^9}, {
+ 3.827831366061975*^9, 3.827831374894594*^9}, 3.827832582229473*^9,
+ 3.827832905505087*^9, 3.827833024832057*^9, {3.827833121728074*^9,
+ 3.827833156887409*^9}, {3.827833190486783*^9, 3.827833214597282*^9},
+ 3.827833440181951*^9, {3.827833485349725*^9, 3.827833509120513*^9},
+ 3.827833641521347*^9, 3.8279184071752663`*^9, {3.829120832804307*^9,
+ 3.8291209136945477`*^9}, {3.829121218248872*^9, 3.829121242382848*^9}, {
+ 3.82912136689071*^9, 3.82912138344954*^9}, {3.8291214179310007`*^9,
+ 3.8291214519539347`*^9}, 3.829121487616544*^9, 3.829121528475222*^9, {
+ 3.82912458078371*^9, 3.829124601986802*^9}, {3.8291246559522*^9,
+ 3.829124672481606*^9}, {3.8291247141750517`*^9, 3.829124779311466*^9}, {
+ 3.829211841985059*^9, 3.829211856018559*^9}, {3.829211923636525*^9,
+ 3.829211943366921*^9}, {3.82921204932723*^9, 3.829212097388105*^9}, {
+ 3.829212658917536*^9, 3.829212735633731*^9}, 3.8292138590684853`*^9, {
+ 3.829213900767322*^9, 3.829213987652483*^9}, {3.829214027339926*^9,
+ 3.829214077595415*^9}, 3.829214111976997*^9, {3.829214204875598*^9,
+ 3.829214227775757*^9}, {3.829217692503879*^9, 3.829217736816154*^9}, {
+ 3.829217796040901*^9, 3.8292178004682283`*^9}, {3.829217867884487*^9,
+ 3.829217897395664*^9}, {3.829218433300358*^9, 3.829218438953628*^9}, {
+ 3.8292188840072823`*^9, 3.829218907333342*^9}, {3.8292189584961233`*^9,
+ 3.8292189826030293`*^9}, 3.829220226230227*^9, {3.829220262467355*^9,
+ 3.82922033935154*^9}, {3.829362116339007*^9, 3.82936212978506*^9},
+ 3.829362175540524*^9, {3.8293624139586573`*^9, 3.829362434833434*^9}, {
+ 3.829362632949161*^9, 3.829362688541752*^9}, {3.829362751541298*^9,
+ 3.829362779388083*^9}, {3.829362846262143*^9, 3.829362987368157*^9}, {
+ 3.8293630609116488`*^9, 3.829363093944889*^9}, {3.8293635026728573`*^9,
+ 3.829363533532688*^9}, {3.8293636039801073`*^9, 3.829363688062024*^9}, {
+ 3.8293638578826838`*^9, 3.829363860627307*^9}, 3.829363955566392*^9, {
+ 3.8293643165481358`*^9, 3.829364351378783*^9}, 3.829365105877397*^9,
+ 3.8293651615957108`*^9, 3.8293657839738417`*^9, 3.82936697614613*^9,
+ 3.829367100741529*^9, 3.829369604049017*^9, 3.829369864768076*^9,
+ 3.829370131544271*^9, {3.829370341531361*^9, 3.829370365544216*^9},
+ 3.8293705407458563`*^9, 3.8293715313935137`*^9, 3.829371596888565*^9,
+ 3.829371747885508*^9, 3.829384259261759*^9, 3.8293843610462217`*^9, {
+ 3.8293844050271473`*^9, 3.829384422598608*^9}, {3.829384484180114*^9,
+ 3.8293845017131567`*^9}, 3.829384768998616*^9, 3.829384937359973*^9, {
+ 3.82938505652734*^9, 3.829385070983238*^9}, 3.8293852262706823`*^9},
+ CellLabel->
+ "Out[561]=",ExpressionUUID->"92e95fe7-fa26-4b73-afd5-5c8785f5087c"]
+}, Open ]],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"n8", "=", "2"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"F8", "=",
+ RowBox[{"RF", "[", "n8", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"h8", "=",
+ RowBox[{"h", "[", "13", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"eq8", "=",
+ RowBox[{
+ RowBox[{"eq", "[",
+ RowBox[{"n8", ",", "h8"}], "]"}], "[",
+ RowBox[{"7", ",", "6", ",", "6"}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{
+ 3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
+ 3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9,
+ 3.817564534320574*^9}, {3.81756485534698*^9, 3.817564862343175*^9}, {
+ 3.817564919676697*^9, 3.8175649235785027`*^9}, {3.817565106996109*^9,
+ 3.8175651474217367`*^9}, {3.8175652415905113`*^9, 3.817565250029232*^9}, {
+ 3.8175657444559927`*^9, 3.8175657689660788`*^9}, 3.8175669120549498`*^9, {
+ 3.8175677716518087`*^9, 3.817567773706285*^9}, {3.817579700926876*^9,
+ 3.817579701354711*^9}, {3.8175810533593073`*^9, 3.817581114447541*^9}, {
+ 3.817581149854197*^9, 3.8175811499220247`*^9}, {3.817581265163169*^9,
+ 3.81758126542041*^9}, {3.81758144220247*^9, 3.8175814490334673`*^9}, {
+ 3.8175815152710047`*^9, 3.817581521148234*^9}, {3.817581635837187*^9,
+ 3.817581700879589*^9}, {3.817581767691791*^9, 3.817581768673394*^9}, {
+ 3.8175821842992363`*^9, 3.8175821844066353`*^9}, {3.817582286431714*^9,
+ 3.817582297101211*^9}, {3.817582488847374*^9, 3.817582488974349*^9}, {
+ 3.817582803954041*^9, 3.817582804222094*^9}, {3.817618756754203*^9,
+ 3.817618757439868*^9}, {3.81761900296082*^9, 3.817619003035212*^9}, {
+ 3.8176203963382673`*^9, 3.817620396528458*^9}, {3.817626242723531*^9,
+ 3.817626282042306*^9}, {3.81762924164756*^9, 3.8176292443562737`*^9}, {
+ 3.8176636404765043`*^9, 3.817663648770928*^9}, {3.817666003825204*^9,
+ 3.8176660163975077`*^9}, 3.825758657266858*^9, 3.8257634297123632`*^9, {
+ 3.8257637382216587`*^9, 3.825763741294034*^9}, {3.825764046315646*^9,
+ 3.8257640768120003`*^9}, {3.826007441657895*^9, 3.8260074468257313`*^9},
+ 3.826007758136524*^9, {3.826013359537168*^9, 3.826013366921255*^9}, {
+ 3.826013463378932*^9, 3.826013482235341*^9}, {3.826014234648857*^9,
+ 3.8260142779855223`*^9}, {3.82610306735501*^9, 3.826103074379273*^9}, {
+ 3.826103107756144*^9, 3.826103107819812*^9}, {3.826272369240218*^9,
+ 3.826272391792493*^9}, {3.826272586652137*^9, 3.826272594732195*^9}, {
+ 3.826273088053089*^9, 3.826273089748893*^9}, {3.826273144677765*^9,
+ 3.826273146997635*^9}, {3.8262736335668373`*^9, 3.826273635734462*^9},
+ 3.8266890691074533`*^9, {3.826689155061082*^9, 3.8266891551567373`*^9}, {
+ 3.8266893130797987`*^9, 3.826689323848358*^9}, {3.826689565988503*^9,
+ 3.826689581228674*^9}, {3.826689634565889*^9, 3.826689650102207*^9}, {
+ 3.826689983421033*^9, 3.826689988684514*^9}, {3.826690298234497*^9,
+ 3.826690304258379*^9}, {3.8266903448673897`*^9, 3.826690346835585*^9}, {
+ 3.826690541351234*^9, 3.826690548879322*^9}, 3.8266910071358747`*^9, {
+ 3.82669106486483*^9, 3.826691074849018*^9}, {3.826691445503744*^9,
+ 3.826691458440094*^9}, {3.82669167994809*^9, 3.826691683996052*^9}, {
+ 3.826704702577314*^9, 3.826704712105288*^9}, {3.82670492717354*^9,
+ 3.826704930421282*^9}, {3.827403765410832*^9, 3.827403784866971*^9}, {
+ 3.827404400190401*^9, 3.827404420238784*^9}, {3.8274045097126637`*^9,
+ 3.8274045126565638`*^9}, {3.8274047169724197`*^9, 3.827404723828395*^9}, {
+ 3.827404767149251*^9, 3.827404769613168*^9}, {3.827405559211132*^9,
+ 3.827405561458974*^9}, {3.827406421058803*^9, 3.827406425898838*^9}, {
+ 3.827410007136595*^9, 3.827410024500999*^9}, {3.827468086395525*^9,
+ 3.827468087899349*^9}, {3.8274817111143637`*^9, 3.827481732722485*^9}, {
+ 3.827481932910375*^9, 3.827481942630374*^9}, {3.827484882114504*^9,
+ 3.827484891178834*^9}, {3.82748496838837*^9, 3.827484972428067*^9}, {
+ 3.827554870569126*^9, 3.8275548842255087`*^9}, {3.827554955106474*^9,
+ 3.827554986395269*^9}, {3.827555061348587*^9, 3.827555089773085*^9}, {
+ 3.827555513700951*^9, 3.8275555289410133`*^9}, {3.827558549917939*^9,
+ 3.827558582782239*^9}, {3.827561592644457*^9, 3.8275616094843884`*^9}, {
+ 3.827830458103025*^9, 3.8278304871675167`*^9}, {3.827830599481675*^9,
+ 3.8278306003135023`*^9}, {3.82783063897057*^9, 3.827830646362282*^9}, {
+ 3.827830706235694*^9, 3.827830712059711*^9}, {3.827831315902727*^9,
+ 3.827831321270451*^9}, {3.827833104775069*^9, 3.827833114719193*^9}, {
+ 3.8278331747045517`*^9, 3.827833179136505*^9}, {3.8278334549656887`*^9,
+ 3.827833462445428*^9}, 3.829120829171124*^9, {3.829213838889318*^9,
+ 3.829213883841852*^9}, {3.829214173078923*^9, 3.829214190007135*^9}, {
+ 3.829217677573986*^9, 3.829217686333686*^9}, {3.829217811928056*^9,
+ 3.8292178136720657`*^9}, {3.829218394666704*^9, 3.829218401658337*^9}, {
+ 3.8292188164581223`*^9, 3.82921883122604*^9}, {3.829218950764509*^9,
+ 3.829218957204319*^9}, {3.829220267572093*^9, 3.829220270004106*^9}, {
+ 3.82936259901405*^9, 3.829362614606016*^9}, {3.829370367314437*^9,
+ 3.829370369098258*^9}, {3.82937149074282*^9, 3.829371504006997*^9}, {
+ 3.829371588392646*^9, 3.829371592952486*^9}, {3.829371703474627*^9,
+ 3.829371725714978*^9}, {3.8293841834937067`*^9, 3.829384188373666*^9}, {
+ 3.829384287679748*^9, 3.8293842910074463`*^9}, {3.8293843661210957`*^9,
+ 3.829384372016992*^9}, {3.8293844069057617`*^9, 3.829384407617469*^9}, {
+ 3.829384490603231*^9, 3.8293844949630737`*^9}, {3.829384774360268*^9,
+ 3.829384778992144*^9}, {3.829384939363501*^9, 3.829384940539279*^9}, {
+ 3.829385057917753*^9, 3.8293850885740633`*^9}, {3.8293851940558357`*^9,
+ 3.82938520864007*^9}, {3.829385243712878*^9, 3.829385265113099*^9}, {
+ 3.829385359435005*^9, 3.82938536205903*^9}},
+ CellLabel->
+ "In[568]:=",ExpressionUUID->"89ac8434-0e5c-4a82-ae51-65e191e4c98a"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"sol8", "=",
+ RowBox[{"untilSuccess", "[",
+ RowBox[{"newSol", "[",
+ RowBox[{"eq8", ",", "sol7", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"gC", "[", "12", "]"}], ",",
+ RowBox[{"gC", "[", "13", "]"}]}], "}"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "7"}]]}], "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
+ 3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9,
+ 3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, {
+ 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, {
+ 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9,
+ 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, {
+ 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9,
+ 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, {
+ 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9,
+ 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, {
+ 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9,
+ 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, {
+ 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9,
+ 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, {
+ 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9,
+ 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, {
+ 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9,
+ 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, {
+ 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9,
+ 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9,
+ 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, {
+ 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9,
+ 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, {
+ 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9,
+ 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, {
+ 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9,
+ 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, {
+ 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9,
+ 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, {
+ 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9,
+ 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, {
+ 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9,
+ 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, {
+ 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9,
+ 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9},
+ 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, {
+ 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9,
+ 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, {
+ 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9,
+ 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, {
+ 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9,
+ 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, {
+ 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9,
+ 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, {
+ 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9,
+ 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, {
+ 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9,
+ 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, {
+ 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9,
+ 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, {
+ 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9,
+ 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, {
+ 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9,
+ 3.8260074763785057`*^9}, {3.8260077526573877`*^9,
+ 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, {
+ 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9,
+ 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, {
+ 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9,
+ 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, {
+ 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9,
+ 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, {
+ 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, {
+ 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9,
+ 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, {
+ 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9,
+ 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, {
+ 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9,
+ 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, {
+ 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9,
+ 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, {
+ 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9,
+ 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, {
+ 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9,
+ 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9,
+ 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9,
+ 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9,
+ 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, {
+ 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9,
+ 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9,
+ 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, {
+ 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, {
+ 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9,
+ 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9,
+ 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, {
+ 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9,
+ 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, {
+ 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9,
+ 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, {
+ 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9,
+ 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, {
+ 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9,
+ 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, {
+ 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9,
+ 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, {
+ 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9,
+ 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, {
+ 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9,
+ 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, {
+ 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9,
+ 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9},
+ 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9,
+ 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, {
+ 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9,
+ 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, {
+ 3.829214031268794*^9, 3.829214040157639*^9}, {3.829214194263526*^9,
+ 3.8292142105916843`*^9}, {3.829217690414138*^9, 3.829217702270501*^9}, {
+ 3.8292178172969103`*^9, 3.8292178174562902`*^9}, {3.8292178775777473`*^9,
+ 3.8292178776889153`*^9}, {3.829218414474752*^9, 3.829218438363077*^9}, {
+ 3.829218873266842*^9, 3.8292188874831133`*^9}, {3.829218961781654*^9,
+ 3.829218962396624*^9}, {3.829220227971595*^9, 3.829220228067281*^9}, {
+ 3.829220271868513*^9, 3.8292202885961943`*^9}, {3.829362123773261*^9,
+ 3.82936212387718*^9}, {3.8293623714499807`*^9, 3.8293623718336153`*^9}, {
+ 3.829362619006271*^9, 3.829362682127327*^9}, {3.8293628496104803`*^9,
+ 3.8293628496980753`*^9}, {3.829363086679022*^9, 3.829363087486423*^9}, {
+ 3.829363510502825*^9, 3.829363510582408*^9}, 3.829363644665361*^9, {
+ 3.8293640250715933`*^9, 3.8293640417196207`*^9}, {3.8293641846502438`*^9,
+ 3.8293641904262867`*^9}, {3.8293643116124277`*^9, 3.82936431479661*^9}, {
+ 3.829364353045416*^9, 3.829364357869265*^9}, {3.829365155900394*^9,
+ 3.829365164220447*^9}, {3.829365786400337*^9, 3.829365786447913*^9}, {
+ 3.829366984174124*^9, 3.8293669853979263`*^9}, {3.829370133310355*^9,
+ 3.8293701333579397`*^9}, {3.829370371971438*^9, 3.8293703727303963`*^9}, {
+ 3.829371509215295*^9, 3.829371512599156*^9}, {3.8293715961214314`*^9,
+ 3.8293715962806873`*^9}, {3.8293717328353024`*^9,
+ 3.8293717472752934`*^9}, {3.82938429566429*^9, 3.8293843002556953`*^9}, {
+ 3.829384375305668*^9, 3.82938437547313*^9}, {3.8293844157069483`*^9,
+ 3.8293844191218843`*^9}, {3.829384497131441*^9, 3.829384504563476*^9}, {
+ 3.829385060734583*^9, 3.829385060885489*^9}, {3.8293852135922403`*^9,
+ 3.82938522271249*^9}, {3.829385271354004*^9, 3.829385291377541*^9}, {
+ 3.829385365115407*^9, 3.82938536726711*^9}},
+ CellLabel->
+ "In[572]:=",ExpressionUUID->"a4de7394-b723-4a62-9094-2b462110711f"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3546084587938112`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19786601440386728`"}], ",",
+ RowBox[{"B", "\[Rule]", "2.095288479286716`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2268083584400287`"}], ",",
+ RowBox[{"AL", "\[Rule]",
+ RowBox[{"-", "0.026542558585785282`"}]}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{"-", "2.4720546427586494`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.3626782920524614`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.5719352008237517`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.23834474512267168`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.06453250413597877`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.010676759309601543`"}], ",",
+
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.003045122920500969`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0010143708322702368`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0003806328733853642`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00015237698643949125`"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
+ RowBox[{"-", "0.00006405516850638207`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.0000268011120087839`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "9", "]"}], "\[Rule]",
+ RowBox[{"-", "0.000010682161132023862`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "10", "]"}], "\[Rule]", "3.771629072946834`*^-6"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "11", "]"}], "\[Rule]",
+ RowBox[{"-", "1.1019570973227`*^-6"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "12", "]"}], "\[Rule]", "2.3386531934627988`*^-7"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "13", "]"}], "\[Rule]",
+ RowBox[{"-", "2.7870175470711777`*^-8"}]}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.826689120800562*^9, 3.826689127418775*^9}, {
+ 3.826689158488123*^9, 3.8266891737031317`*^9}, {3.826689317590938*^9,
+ 3.826689360645096*^9}, {3.8266895920966187`*^9, 3.82668965774481*^9}, {
+ 3.826689994862856*^9, 3.826690033288772*^9}, {3.8266900773992367`*^9,
+ 3.826690138259676*^9}, {3.826690170487563*^9, 3.826690210884091*^9}, {
+ 3.82669028582425*^9, 3.826690412478512*^9}, {3.826690525277103*^9,
+ 3.826690586804343*^9}, 3.8266911044203787`*^9, {3.8266911415341454`*^9,
+ 3.826691176067152*^9}, {3.8266914431034403`*^9, 3.826691466496176*^9}, {
+ 3.8266915698104963`*^9, 3.826691589183861*^9}, {3.826691629285613*^9,
+ 3.826691658570911*^9}, {3.826691691287863*^9, 3.826691696658971*^9},
+ 3.826692543677533*^9, {3.8267021751874743`*^9, 3.826702188045772*^9}, {
+ 3.826702249172145*^9, 3.8267022876310787`*^9}, {3.826702328696328*^9,
+ 3.826702337613181*^9}, {3.82670240505122*^9, 3.826702415381674*^9}, {
+ 3.826702466382925*^9, 3.8267024746472607`*^9}, {3.82670292325323*^9,
+ 3.826702926250457*^9}, {3.826704726369697*^9, 3.8267049509999313`*^9}, {
+ 3.8273110328413973`*^9, 3.8273110427062273`*^9}, {3.8273130359585447`*^9,
+ 3.827313096509973*^9}, {3.827313127495216*^9, 3.8273131369191723`*^9},
+ 3.82731317007028*^9, 3.8273132039981737`*^9, 3.827313246533884*^9, {
+ 3.8273133462431517`*^9, 3.827313389144965*^9}, {3.827313425515341*^9,
+ 3.8273134583541927`*^9}, 3.827313492781188*^9, {3.82731352923447*^9,
+ 3.8273135589068947`*^9}, {3.827313596780452*^9, 3.827313655707004*^9}, {
+ 3.827313919011878*^9, 3.8273139325541162`*^9}, {3.8273139642216597`*^9,
+ 3.827314074115497*^9}, {3.827314372765233*^9, 3.8273143825934277`*^9}, {
+ 3.827403799553021*^9, 3.8274038250868883`*^9}, {3.827404411304475*^9,
+ 3.827404474434816*^9}, {3.827404520773925*^9, 3.827404582308402*^9}, {
+ 3.827404734048932*^9, 3.827404820482794*^9}, {3.827405568262806*^9,
+ 3.8274056500914383`*^9}, {3.827406440885428*^9, 3.827406445571705*^9},
+ 3.82741006348425*^9, 3.827410107607787*^9, {3.827468049995737*^9,
+ 3.827468095724422*^9}, 3.827480997719429*^9, {3.82748108294648*^9,
+ 3.827481129985794*^9}, 3.827481641182066*^9, {3.8274817411058826`*^9,
+ 3.827481855698565*^9}, 3.827481892268821*^9, {3.827481928398188*^9,
+ 3.827481956595954*^9}, {3.827482424452154*^9, 3.827482440121634*^9}, {
+ 3.827482626074338*^9, 3.827482647145111*^9}, {3.827484842554553*^9,
+ 3.827484874049939*^9}, 3.827484913883271*^9, {3.827484990128724*^9,
+ 3.8274849919736977`*^9}, 3.827554895814118*^9, {3.827554947784121*^9,
+ 3.8275549984120703`*^9}, {3.8275550679769897`*^9, 3.827555094379706*^9}, {
+ 3.8275554797725573`*^9, 3.827555480967787*^9}, {3.827555525888712*^9,
+ 3.827555559767219*^9}, {3.827558622717334*^9, 3.8275586356363983`*^9}, {
+ 3.8275586667285223`*^9, 3.827558741490138*^9}, {3.827561578728423*^9,
+ 3.827561658589188*^9}, 3.82783047330208*^9, {3.827830505564189*^9,
+ 3.827830518175445*^9}, {3.8278306124447412`*^9, 3.8278306293937597`*^9},
+ 3.8278306698240337`*^9, {3.8278309059064503`*^9, 3.8278309322836113`*^9}, {
+ 3.827831366061975*^9, 3.827831374894594*^9}, 3.827832582229473*^9,
+ 3.827832905505087*^9, 3.827833024832057*^9, {3.827833121728074*^9,
+ 3.827833156887409*^9}, {3.827833190486783*^9, 3.827833214597282*^9},
+ 3.827833440181951*^9, {3.827833485349725*^9, 3.827833509120513*^9},
+ 3.827833641521347*^9, 3.8279184071752663`*^9, {3.829120832804307*^9,
+ 3.8291209136945477`*^9}, {3.829121218248872*^9, 3.829121242382848*^9}, {
+ 3.82912136689071*^9, 3.82912138344954*^9}, {3.8291214179310007`*^9,
+ 3.8291214519539347`*^9}, 3.829121487616544*^9, 3.829121528475222*^9, {
+ 3.82912458078371*^9, 3.829124601986802*^9}, {3.8291246559522*^9,
+ 3.829124672481606*^9}, {3.8291247141750517`*^9, 3.829124779311466*^9}, {
+ 3.829211841985059*^9, 3.829211856018559*^9}, {3.829211923636525*^9,
+ 3.829211943366921*^9}, {3.82921204932723*^9, 3.829212097388105*^9}, {
+ 3.829212658917536*^9, 3.829212735633731*^9}, 3.8292138590684853`*^9, {
+ 3.829213900767322*^9, 3.829213987652483*^9}, {3.829214027339926*^9,
+ 3.829214077595415*^9}, 3.829214111976997*^9, {3.829214204875598*^9,
+ 3.829214227775757*^9}, {3.829217692503879*^9, 3.829217736816154*^9}, {
+ 3.829217796040901*^9, 3.8292178004682283`*^9}, {3.829217867884487*^9,
+ 3.829217897395664*^9}, {3.829218433300358*^9, 3.829218438953628*^9}, {
+ 3.8292188840072823`*^9, 3.829218907333342*^9}, {3.8292189584961233`*^9,
+ 3.8292189826030293`*^9}, 3.829220226230227*^9, {3.829220262467355*^9,
+ 3.82922033935154*^9}, {3.829362116339007*^9, 3.82936212978506*^9},
+ 3.829362175540524*^9, {3.8293624139586573`*^9, 3.829362434833434*^9}, {
+ 3.829362632949161*^9, 3.829362688541752*^9}, {3.829362751541298*^9,
+ 3.829362779388083*^9}, {3.829362846262143*^9, 3.829362987368157*^9}, {
+ 3.8293630609116488`*^9, 3.829363093944889*^9}, {3.8293635026728573`*^9,
+ 3.829363533532688*^9}, {3.8293636039801073`*^9, 3.829363688062024*^9}, {
+ 3.8293638578826838`*^9, 3.829363860627307*^9}, 3.829363955566392*^9, {
+ 3.8293643165481358`*^9, 3.829364351378783*^9}, 3.829365105877397*^9,
+ 3.8293651615957108`*^9, 3.8293657839738417`*^9, 3.82936697614613*^9,
+ 3.829367100741529*^9, 3.829369604049017*^9, 3.829369864768076*^9,
+ 3.829370131544271*^9, {3.829370341531361*^9, 3.829370365544216*^9},
+ 3.8293705407458563`*^9, 3.8293715313935137`*^9, 3.829371596888565*^9,
+ 3.829371747885508*^9, 3.829384259261759*^9, 3.8293843610462217`*^9, {
+ 3.8293844050271473`*^9, 3.829384422598608*^9}, {3.829384484180114*^9,
+ 3.8293845017131567`*^9}, 3.829384768998616*^9, 3.829384937359973*^9, {
+ 3.82938505652734*^9, 3.829385070983238*^9}, 3.8293852262706823`*^9,
+ 3.8293852939285307`*^9, 3.829385356964245*^9, 3.829385399204397*^9},
+ CellLabel->
+ "Out[572]=",ExpressionUUID->"0fc16135-4c02-4160-9972-719eb474dfc8"]
+}, Open ]],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"n9", "=", "2"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"F9", "=",
+ RowBox[{"RF", "[", "n9", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"h9", "=",
+ RowBox[{"h", "[", "15", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"eq9", "=",
+ RowBox[{
+ RowBox[{"eq", "[",
+ RowBox[{"n9", ",", "h9"}], "]"}], "[",
+ RowBox[{"7", ",", "7", ",", "8"}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{
+ 3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
+ 3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9,
+ 3.817564534320574*^9}, {3.81756485534698*^9, 3.817564862343175*^9}, {
+ 3.817564919676697*^9, 3.8175649235785027`*^9}, {3.817565106996109*^9,
+ 3.8175651474217367`*^9}, {3.8175652415905113`*^9, 3.817565250029232*^9}, {
+ 3.8175657444559927`*^9, 3.8175657689660788`*^9}, 3.8175669120549498`*^9, {
+ 3.8175677716518087`*^9, 3.817567773706285*^9}, {3.817579700926876*^9,
+ 3.817579701354711*^9}, {3.8175810533593073`*^9, 3.817581114447541*^9}, {
+ 3.817581149854197*^9, 3.8175811499220247`*^9}, {3.817581265163169*^9,
+ 3.81758126542041*^9}, {3.81758144220247*^9, 3.8175814490334673`*^9}, {
+ 3.8175815152710047`*^9, 3.817581521148234*^9}, {3.817581635837187*^9,
+ 3.817581700879589*^9}, {3.817581767691791*^9, 3.817581768673394*^9}, {
+ 3.8175821842992363`*^9, 3.8175821844066353`*^9}, {3.817582286431714*^9,
+ 3.817582297101211*^9}, {3.817582488847374*^9, 3.817582488974349*^9}, {
+ 3.817582803954041*^9, 3.817582804222094*^9}, {3.817618756754203*^9,
+ 3.817618757439868*^9}, {3.81761900296082*^9, 3.817619003035212*^9}, {
+ 3.8176203963382673`*^9, 3.817620396528458*^9}, {3.817626242723531*^9,
+ 3.817626282042306*^9}, {3.81762924164756*^9, 3.8176292443562737`*^9}, {
+ 3.8176636404765043`*^9, 3.817663648770928*^9}, {3.817666003825204*^9,
+ 3.8176660163975077`*^9}, 3.825758657266858*^9, 3.8257634297123632`*^9, {
+ 3.8257637382216587`*^9, 3.825763741294034*^9}, {3.825764046315646*^9,
+ 3.8257640768120003`*^9}, {3.826007441657895*^9, 3.8260074468257313`*^9},
+ 3.826007758136524*^9, {3.826013359537168*^9, 3.826013366921255*^9}, {
+ 3.826013463378932*^9, 3.826013482235341*^9}, {3.826014234648857*^9,
+ 3.8260142779855223`*^9}, {3.82610306735501*^9, 3.826103074379273*^9}, {
+ 3.826103107756144*^9, 3.826103107819812*^9}, {3.826272369240218*^9,
+ 3.826272391792493*^9}, {3.826272586652137*^9, 3.826272594732195*^9}, {
+ 3.826273088053089*^9, 3.826273089748893*^9}, {3.826273144677765*^9,
+ 3.826273146997635*^9}, {3.8262736335668373`*^9, 3.826273635734462*^9},
+ 3.8266890691074533`*^9, {3.826689155061082*^9, 3.8266891551567373`*^9}, {
+ 3.8266893130797987`*^9, 3.826689323848358*^9}, {3.826689565988503*^9,
+ 3.826689581228674*^9}, {3.826689634565889*^9, 3.826689650102207*^9}, {
+ 3.826689983421033*^9, 3.826689988684514*^9}, {3.826690298234497*^9,
+ 3.826690304258379*^9}, {3.8266903448673897`*^9, 3.826690346835585*^9}, {
+ 3.826690541351234*^9, 3.826690548879322*^9}, 3.8266910071358747`*^9, {
+ 3.82669106486483*^9, 3.826691074849018*^9}, {3.826691445503744*^9,
+ 3.826691458440094*^9}, {3.82669167994809*^9, 3.826691683996052*^9}, {
+ 3.826704702577314*^9, 3.826704712105288*^9}, {3.82670492717354*^9,
+ 3.826704930421282*^9}, {3.827403765410832*^9, 3.827403784866971*^9}, {
+ 3.827404400190401*^9, 3.827404420238784*^9}, {3.8274045097126637`*^9,
+ 3.8274045126565638`*^9}, {3.8274047169724197`*^9, 3.827404723828395*^9}, {
+ 3.827404767149251*^9, 3.827404769613168*^9}, {3.827405559211132*^9,
+ 3.827405561458974*^9}, {3.827406421058803*^9, 3.827406425898838*^9}, {
+ 3.827410007136595*^9, 3.827410024500999*^9}, {3.827468086395525*^9,
+ 3.827468087899349*^9}, {3.8274817111143637`*^9, 3.827481732722485*^9}, {
+ 3.827481932910375*^9, 3.827481942630374*^9}, {3.827484882114504*^9,
+ 3.827484891178834*^9}, {3.82748496838837*^9, 3.827484972428067*^9}, {
+ 3.827554870569126*^9, 3.8275548842255087`*^9}, {3.827554955106474*^9,
+ 3.827554986395269*^9}, {3.827555061348587*^9, 3.827555089773085*^9}, {
+ 3.827555513700951*^9, 3.8275555289410133`*^9}, {3.827558549917939*^9,
+ 3.827558582782239*^9}, {3.827561592644457*^9, 3.8275616094843884`*^9}, {
+ 3.827830458103025*^9, 3.8278304871675167`*^9}, {3.827830599481675*^9,
+ 3.8278306003135023`*^9}, {3.82783063897057*^9, 3.827830646362282*^9}, {
+ 3.827830706235694*^9, 3.827830712059711*^9}, {3.827831315902727*^9,
+ 3.827831321270451*^9}, {3.827833104775069*^9, 3.827833114719193*^9}, {
+ 3.8278331747045517`*^9, 3.827833179136505*^9}, {3.8278334549656887`*^9,
+ 3.827833462445428*^9}, 3.829120829171124*^9, {3.829213838889318*^9,
+ 3.829213883841852*^9}, {3.829214173078923*^9, 3.829214190007135*^9}, {
+ 3.829217677573986*^9, 3.829217686333686*^9}, {3.829217811928056*^9,
+ 3.8292178136720657`*^9}, {3.829218394666704*^9, 3.829218401658337*^9}, {
+ 3.8292188164581223`*^9, 3.82921883122604*^9}, {3.829218950764509*^9,
+ 3.829218957204319*^9}, {3.829220267572093*^9, 3.829220270004106*^9}, {
+ 3.82936259901405*^9, 3.829362614606016*^9}, {3.829370367314437*^9,
+ 3.829370369098258*^9}, {3.82937149074282*^9, 3.829371504006997*^9}, {
+ 3.829371588392646*^9, 3.829371592952486*^9}, {3.829371703474627*^9,
+ 3.829371725714978*^9}, {3.8293841834937067`*^9, 3.829384188373666*^9}, {
+ 3.829384287679748*^9, 3.8293842910074463`*^9}, {3.8293843661210957`*^9,
+ 3.829384372016992*^9}, {3.8293844069057617`*^9, 3.829384407617469*^9}, {
+ 3.829384490603231*^9, 3.8293844949630737`*^9}, {3.829384774360268*^9,
+ 3.829384778992144*^9}, {3.829384939363501*^9, 3.829384940539279*^9}, {
+ 3.829385057917753*^9, 3.8293850885740633`*^9}, {3.8293851940558357`*^9,
+ 3.82938520864007*^9}, {3.829385243712878*^9, 3.829385265113099*^9}, {
+ 3.829385359435005*^9, 3.82938536205903*^9}, {3.8293854930775623`*^9,
+ 3.829385516669804*^9}, {3.829385592767355*^9, 3.829385603743544*^9}, {
+ 3.829385805283429*^9, 3.8293858066272917`*^9}},
+ CellLabel->
+ "In[587]:=",ExpressionUUID->"ec5df7b8-ae45-47d9-baba-654f2daf3d01"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"sol9", "=",
+ RowBox[{"untilSuccess", "[",
+ RowBox[{"newSol", "[",
+ RowBox[{"eq9", ",", "sol8", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"gC", "[", "14", "]"}], ",",
+ RowBox[{"gC", "[", "15", "]"}]}], "}"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "8"}]]}], "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
+ 3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9,
+ 3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, {
+ 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, {
+ 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9,
+ 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, {
+ 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9,
+ 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, {
+ 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9,
+ 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, {
+ 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9,
+ 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, {
+ 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9,
+ 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, {
+ 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9,
+ 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, {
+ 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9,
+ 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, {
+ 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9,
+ 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9,
+ 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, {
+ 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9,
+ 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, {
+ 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9,
+ 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, {
+ 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9,
+ 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, {
+ 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9,
+ 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, {
+ 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9,
+ 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, {
+ 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9,
+ 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, {
+ 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9,
+ 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9},
+ 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, {
+ 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9,
+ 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, {
+ 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9,
+ 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, {
+ 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9,
+ 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, {
+ 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9,
+ 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, {
+ 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9,
+ 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, {
+ 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9,
+ 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, {
+ 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9,
+ 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, {
+ 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9,
+ 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, {
+ 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9,
+ 3.8260074763785057`*^9}, {3.8260077526573877`*^9,
+ 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, {
+ 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9,
+ 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, {
+ 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9,
+ 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, {
+ 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9,
+ 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, {
+ 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, {
+ 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9,
+ 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, {
+ 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9,
+ 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, {
+ 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9,
+ 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, {
+ 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9,
+ 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, {
+ 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9,
+ 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, {
+ 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9,
+ 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9,
+ 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9,
+ 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9,
+ 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, {
+ 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9,
+ 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9,
+ 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, {
+ 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, {
+ 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9,
+ 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9,
+ 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, {
+ 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9,
+ 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, {
+ 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9,
+ 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, {
+ 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9,
+ 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, {
+ 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9,
+ 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, {
+ 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9,
+ 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, {
+ 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9,
+ 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, {
+ 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9,
+ 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, {
+ 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9,
+ 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9},
+ 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9,
+ 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, {
+ 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9,
+ 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, {
+ 3.829214031268794*^9, 3.829214040157639*^9}, {3.829214194263526*^9,
+ 3.8292142105916843`*^9}, {3.829217690414138*^9, 3.829217702270501*^9}, {
+ 3.8292178172969103`*^9, 3.8292178174562902`*^9}, {3.8292178775777473`*^9,
+ 3.8292178776889153`*^9}, {3.829218414474752*^9, 3.829218438363077*^9}, {
+ 3.829218873266842*^9, 3.8292188874831133`*^9}, {3.829218961781654*^9,
+ 3.829218962396624*^9}, {3.829220227971595*^9, 3.829220228067281*^9}, {
+ 3.829220271868513*^9, 3.8292202885961943`*^9}, {3.829362123773261*^9,
+ 3.82936212387718*^9}, {3.8293623714499807`*^9, 3.8293623718336153`*^9}, {
+ 3.829362619006271*^9, 3.829362682127327*^9}, {3.8293628496104803`*^9,
+ 3.8293628496980753`*^9}, {3.829363086679022*^9, 3.829363087486423*^9}, {
+ 3.829363510502825*^9, 3.829363510582408*^9}, 3.829363644665361*^9, {
+ 3.8293640250715933`*^9, 3.8293640417196207`*^9}, {3.8293641846502438`*^9,
+ 3.8293641904262867`*^9}, {3.8293643116124277`*^9, 3.82936431479661*^9}, {
+ 3.829364353045416*^9, 3.829364357869265*^9}, {3.829365155900394*^9,
+ 3.829365164220447*^9}, {3.829365786400337*^9, 3.829365786447913*^9}, {
+ 3.829366984174124*^9, 3.8293669853979263`*^9}, {3.829370133310355*^9,
+ 3.8293701333579397`*^9}, {3.829370371971438*^9, 3.8293703727303963`*^9}, {
+ 3.829371509215295*^9, 3.829371512599156*^9}, {3.8293715961214314`*^9,
+ 3.8293715962806873`*^9}, {3.8293717328353024`*^9,
+ 3.8293717472752934`*^9}, {3.82938429566429*^9, 3.8293843002556953`*^9}, {
+ 3.829384375305668*^9, 3.82938437547313*^9}, {3.8293844157069483`*^9,
+ 3.8293844191218843`*^9}, {3.829384497131441*^9, 3.829384504563476*^9}, {
+ 3.829385060734583*^9, 3.829385060885489*^9}, {3.8293852135922403`*^9,
+ 3.82938522271249*^9}, {3.829385271354004*^9, 3.829385291377541*^9}, {
+ 3.829385365115407*^9, 3.82938536726711*^9}, {3.829385519270269*^9,
+ 3.829385535006233*^9}, 3.82938582505239*^9},
+ CellLabel->
+ "In[592]:=",ExpressionUUID->"c28fec6d-42be-4754-8ff5-9f7327a42e34"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3526077162626147`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19783836349515996`"}], ",",
+ RowBox[{"B", "\[Rule]", "2.1213426806817495`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2250529189611745`"}], ",",
+ RowBox[{"AL", "\[Rule]",
+ RowBox[{"-", "0.02718911041057889`"}]}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{"-", "2.4745533441828296`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.3613962209805202`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.5683771027238316`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2373638947330772`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.06432322907126427`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.010682348700547056`"}], ",",
+
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0030558560464282627`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0010196445270396256`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.00038238826126105646`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00015242875463345539`"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
+ RowBox[{"-", "0.00006414500366630884`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.00002752686326941033`"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "9", "]"}], "\[Rule]",
+ RowBox[{"-", "0.00001186475654665479`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "10", "]"}], "\[Rule]", "4.925463545146756`*^-6"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "11", "]"}], "\[Rule]",
+ RowBox[{"-", "1.9060848161571708`*^-6"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "12", "]"}], "\[Rule]", "6.493009253434803`*^-7"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "13", "]"}], "\[Rule]",
+ RowBox[{"-", "1.840756544512606`*^-7"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "14", "]"}], "\[Rule]", "3.862993710015927`*^-8"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "15", "]"}], "\[Rule]",
+ RowBox[{"-", "4.7301499358110515`*^-9"}]}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.826689120800562*^9, 3.826689127418775*^9}, {
+ 3.826689158488123*^9, 3.8266891737031317`*^9}, {3.826689317590938*^9,
+ 3.826689360645096*^9}, {3.8266895920966187`*^9, 3.82668965774481*^9}, {
+ 3.826689994862856*^9, 3.826690033288772*^9}, {3.8266900773992367`*^9,
+ 3.826690138259676*^9}, {3.826690170487563*^9, 3.826690210884091*^9}, {
+ 3.82669028582425*^9, 3.826690412478512*^9}, {3.826690525277103*^9,
+ 3.826690586804343*^9}, 3.8266911044203787`*^9, {3.8266911415341454`*^9,
+ 3.826691176067152*^9}, {3.8266914431034403`*^9, 3.826691466496176*^9}, {
+ 3.8266915698104963`*^9, 3.826691589183861*^9}, {3.826691629285613*^9,
+ 3.826691658570911*^9}, {3.826691691287863*^9, 3.826691696658971*^9},
+ 3.826692543677533*^9, {3.8267021751874743`*^9, 3.826702188045772*^9}, {
+ 3.826702249172145*^9, 3.8267022876310787`*^9}, {3.826702328696328*^9,
+ 3.826702337613181*^9}, {3.82670240505122*^9, 3.826702415381674*^9}, {
+ 3.826702466382925*^9, 3.8267024746472607`*^9}, {3.82670292325323*^9,
+ 3.826702926250457*^9}, {3.826704726369697*^9, 3.8267049509999313`*^9}, {
+ 3.8273110328413973`*^9, 3.8273110427062273`*^9}, {3.8273130359585447`*^9,
+ 3.827313096509973*^9}, {3.827313127495216*^9, 3.8273131369191723`*^9},
+ 3.82731317007028*^9, 3.8273132039981737`*^9, 3.827313246533884*^9, {
+ 3.8273133462431517`*^9, 3.827313389144965*^9}, {3.827313425515341*^9,
+ 3.8273134583541927`*^9}, 3.827313492781188*^9, {3.82731352923447*^9,
+ 3.8273135589068947`*^9}, {3.827313596780452*^9, 3.827313655707004*^9}, {
+ 3.827313919011878*^9, 3.8273139325541162`*^9}, {3.8273139642216597`*^9,
+ 3.827314074115497*^9}, {3.827314372765233*^9, 3.8273143825934277`*^9}, {
+ 3.827403799553021*^9, 3.8274038250868883`*^9}, {3.827404411304475*^9,
+ 3.827404474434816*^9}, {3.827404520773925*^9, 3.827404582308402*^9}, {
+ 3.827404734048932*^9, 3.827404820482794*^9}, {3.827405568262806*^9,
+ 3.8274056500914383`*^9}, {3.827406440885428*^9, 3.827406445571705*^9},
+ 3.82741006348425*^9, 3.827410107607787*^9, {3.827468049995737*^9,
+ 3.827468095724422*^9}, 3.827480997719429*^9, {3.82748108294648*^9,
+ 3.827481129985794*^9}, 3.827481641182066*^9, {3.8274817411058826`*^9,
+ 3.827481855698565*^9}, 3.827481892268821*^9, {3.827481928398188*^9,
+ 3.827481956595954*^9}, {3.827482424452154*^9, 3.827482440121634*^9}, {
+ 3.827482626074338*^9, 3.827482647145111*^9}, {3.827484842554553*^9,
+ 3.827484874049939*^9}, 3.827484913883271*^9, {3.827484990128724*^9,
+ 3.8274849919736977`*^9}, 3.827554895814118*^9, {3.827554947784121*^9,
+ 3.8275549984120703`*^9}, {3.8275550679769897`*^9, 3.827555094379706*^9}, {
+ 3.8275554797725573`*^9, 3.827555480967787*^9}, {3.827555525888712*^9,
+ 3.827555559767219*^9}, {3.827558622717334*^9, 3.8275586356363983`*^9}, {
+ 3.8275586667285223`*^9, 3.827558741490138*^9}, {3.827561578728423*^9,
+ 3.827561658589188*^9}, 3.82783047330208*^9, {3.827830505564189*^9,
+ 3.827830518175445*^9}, {3.8278306124447412`*^9, 3.8278306293937597`*^9},
+ 3.8278306698240337`*^9, {3.8278309059064503`*^9, 3.8278309322836113`*^9}, {
+ 3.827831366061975*^9, 3.827831374894594*^9}, 3.827832582229473*^9,
+ 3.827832905505087*^9, 3.827833024832057*^9, {3.827833121728074*^9,
+ 3.827833156887409*^9}, {3.827833190486783*^9, 3.827833214597282*^9},
+ 3.827833440181951*^9, {3.827833485349725*^9, 3.827833509120513*^9},
+ 3.827833641521347*^9, 3.8279184071752663`*^9, {3.829120832804307*^9,
+ 3.8291209136945477`*^9}, {3.829121218248872*^9, 3.829121242382848*^9}, {
+ 3.82912136689071*^9, 3.82912138344954*^9}, {3.8291214179310007`*^9,
+ 3.8291214519539347`*^9}, 3.829121487616544*^9, 3.829121528475222*^9, {
+ 3.82912458078371*^9, 3.829124601986802*^9}, {3.8291246559522*^9,
+ 3.829124672481606*^9}, {3.8291247141750517`*^9, 3.829124779311466*^9}, {
+ 3.829211841985059*^9, 3.829211856018559*^9}, {3.829211923636525*^9,
+ 3.829211943366921*^9}, {3.82921204932723*^9, 3.829212097388105*^9}, {
+ 3.829212658917536*^9, 3.829212735633731*^9}, 3.8292138590684853`*^9, {
+ 3.829213900767322*^9, 3.829213987652483*^9}, {3.829214027339926*^9,
+ 3.829214077595415*^9}, 3.829214111976997*^9, {3.829214204875598*^9,
+ 3.829214227775757*^9}, {3.829217692503879*^9, 3.829217736816154*^9}, {
+ 3.829217796040901*^9, 3.8292178004682283`*^9}, {3.829217867884487*^9,
+ 3.829217897395664*^9}, {3.829218433300358*^9, 3.829218438953628*^9}, {
+ 3.8292188840072823`*^9, 3.829218907333342*^9}, {3.8292189584961233`*^9,
+ 3.8292189826030293`*^9}, 3.829220226230227*^9, {3.829220262467355*^9,
+ 3.82922033935154*^9}, {3.829362116339007*^9, 3.82936212978506*^9},
+ 3.829362175540524*^9, {3.8293624139586573`*^9, 3.829362434833434*^9}, {
+ 3.829362632949161*^9, 3.829362688541752*^9}, {3.829362751541298*^9,
+ 3.829362779388083*^9}, {3.829362846262143*^9, 3.829362987368157*^9}, {
+ 3.8293630609116488`*^9, 3.829363093944889*^9}, {3.8293635026728573`*^9,
+ 3.829363533532688*^9}, {3.8293636039801073`*^9, 3.829363688062024*^9}, {
+ 3.8293638578826838`*^9, 3.829363860627307*^9}, 3.829363955566392*^9, {
+ 3.8293643165481358`*^9, 3.829364351378783*^9}, 3.829365105877397*^9,
+ 3.8293651615957108`*^9, 3.8293657839738417`*^9, 3.82936697614613*^9,
+ 3.829367100741529*^9, 3.829369604049017*^9, 3.829369864768076*^9,
+ 3.829370131544271*^9, {3.829370341531361*^9, 3.829370365544216*^9},
+ 3.8293705407458563`*^9, 3.8293715313935137`*^9, 3.829371596888565*^9,
+ 3.829371747885508*^9, 3.829384259261759*^9, 3.8293843610462217`*^9, {
+ 3.8293844050271473`*^9, 3.829384422598608*^9}, {3.829384484180114*^9,
+ 3.8293845017131567`*^9}, 3.829384768998616*^9, 3.829384937359973*^9, {
+ 3.82938505652734*^9, 3.829385070983238*^9}, 3.8293852262706823`*^9,
+ 3.8293852939285307`*^9, 3.829385356964245*^9, 3.829385399204397*^9,
+ 3.829385591344162*^9, 3.8293857935809183`*^9, {3.8293858308579063`*^9,
+ 3.8293858522822742`*^9}},
+ CellLabel->
+ "Out[592]=",ExpressionUUID->"ca90c33c-45bf-492a-8e3d-ef9c067845bd"]
+}, Open ]],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"n10", "=", "2"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"F10", "=",
+ RowBox[{"RF", "[", "n10", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"h10", "=",
+ RowBox[{"h", "[", "17", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"eq10", "=",
+ RowBox[{
+ RowBox[{"eq", "[",
+ RowBox[{"n10", ",", "h10"}], "]"}], "[",
+ RowBox[{"8", ",", "8", ",", "8"}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{
+ 3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
+ 3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9,
+ 3.817564534320574*^9}, {3.81756485534698*^9, 3.817564862343175*^9}, {
+ 3.817564919676697*^9, 3.8175649235785027`*^9}, {3.817565106996109*^9,
+ 3.8175651474217367`*^9}, {3.8175652415905113`*^9, 3.817565250029232*^9}, {
+ 3.8175657444559927`*^9, 3.8175657689660788`*^9}, 3.8175669120549498`*^9, {
+ 3.8175677716518087`*^9, 3.817567773706285*^9}, {3.817579700926876*^9,
+ 3.817579701354711*^9}, {3.8175810533593073`*^9, 3.817581114447541*^9}, {
+ 3.817581149854197*^9, 3.8175811499220247`*^9}, {3.817581265163169*^9,
+ 3.81758126542041*^9}, {3.81758144220247*^9, 3.8175814490334673`*^9}, {
+ 3.8175815152710047`*^9, 3.817581521148234*^9}, {3.817581635837187*^9,
+ 3.817581700879589*^9}, {3.817581767691791*^9, 3.817581768673394*^9}, {
+ 3.8175821842992363`*^9, 3.8175821844066353`*^9}, {3.817582286431714*^9,
+ 3.817582297101211*^9}, {3.817582488847374*^9, 3.817582488974349*^9}, {
+ 3.817582803954041*^9, 3.817582804222094*^9}, {3.817618756754203*^9,
+ 3.817618757439868*^9}, {3.81761900296082*^9, 3.817619003035212*^9}, {
+ 3.8176203963382673`*^9, 3.817620396528458*^9}, {3.817626242723531*^9,
+ 3.817626282042306*^9}, {3.81762924164756*^9, 3.8176292443562737`*^9}, {
+ 3.8176636404765043`*^9, 3.817663648770928*^9}, {3.817666003825204*^9,
+ 3.8176660163975077`*^9}, 3.825758657266858*^9, 3.8257634297123632`*^9, {
+ 3.8257637382216587`*^9, 3.825763741294034*^9}, {3.825764046315646*^9,
+ 3.8257640768120003`*^9}, {3.826007441657895*^9, 3.8260074468257313`*^9},
+ 3.826007758136524*^9, {3.826013359537168*^9, 3.826013366921255*^9}, {
+ 3.826013463378932*^9, 3.826013482235341*^9}, {3.826014234648857*^9,
+ 3.8260142779855223`*^9}, {3.82610306735501*^9, 3.826103074379273*^9}, {
+ 3.826103107756144*^9, 3.826103107819812*^9}, {3.826272369240218*^9,
+ 3.826272391792493*^9}, {3.826272586652137*^9, 3.826272594732195*^9}, {
+ 3.826273088053089*^9, 3.826273089748893*^9}, {3.826273144677765*^9,
+ 3.826273146997635*^9}, {3.8262736335668373`*^9, 3.826273635734462*^9},
+ 3.8266890691074533`*^9, {3.826689155061082*^9, 3.8266891551567373`*^9}, {
+ 3.8266893130797987`*^9, 3.826689323848358*^9}, {3.826689565988503*^9,
+ 3.826689581228674*^9}, {3.826689634565889*^9, 3.826689650102207*^9}, {
+ 3.826689983421033*^9, 3.826689988684514*^9}, {3.826690298234497*^9,
+ 3.826690304258379*^9}, {3.8266903448673897`*^9, 3.826690346835585*^9}, {
+ 3.826690541351234*^9, 3.826690548879322*^9}, 3.8266910071358747`*^9, {
+ 3.82669106486483*^9, 3.826691074849018*^9}, {3.826691445503744*^9,
+ 3.826691458440094*^9}, {3.82669167994809*^9, 3.826691683996052*^9}, {
+ 3.826704702577314*^9, 3.826704712105288*^9}, {3.82670492717354*^9,
+ 3.826704930421282*^9}, {3.827403765410832*^9, 3.827403784866971*^9}, {
+ 3.827404400190401*^9, 3.827404420238784*^9}, {3.8274045097126637`*^9,
+ 3.8274045126565638`*^9}, {3.8274047169724197`*^9, 3.827404723828395*^9}, {
+ 3.827404767149251*^9, 3.827404769613168*^9}, {3.827405559211132*^9,
+ 3.827405561458974*^9}, {3.827406421058803*^9, 3.827406425898838*^9}, {
+ 3.827410007136595*^9, 3.827410024500999*^9}, {3.827468086395525*^9,
+ 3.827468087899349*^9}, {3.8274817111143637`*^9, 3.827481732722485*^9}, {
+ 3.827481932910375*^9, 3.827481942630374*^9}, {3.827484882114504*^9,
+ 3.827484891178834*^9}, {3.82748496838837*^9, 3.827484972428067*^9}, {
+ 3.827554870569126*^9, 3.8275548842255087`*^9}, {3.827554955106474*^9,
+ 3.827554986395269*^9}, {3.827555061348587*^9, 3.827555089773085*^9}, {
+ 3.827555513700951*^9, 3.8275555289410133`*^9}, {3.827558549917939*^9,
+ 3.827558582782239*^9}, {3.827561592644457*^9, 3.8275616094843884`*^9}, {
+ 3.827830458103025*^9, 3.8278304871675167`*^9}, {3.827830599481675*^9,
+ 3.8278306003135023`*^9}, {3.82783063897057*^9, 3.827830646362282*^9}, {
+ 3.827830706235694*^9, 3.827830712059711*^9}, {3.827831315902727*^9,
+ 3.827831321270451*^9}, {3.827833104775069*^9, 3.827833114719193*^9}, {
+ 3.8278331747045517`*^9, 3.827833179136505*^9}, {3.8278334549656887`*^9,
+ 3.827833462445428*^9}, 3.829120829171124*^9, {3.829213838889318*^9,
+ 3.829213883841852*^9}, {3.829214173078923*^9, 3.829214190007135*^9}, {
+ 3.829217677573986*^9, 3.829217686333686*^9}, {3.829217811928056*^9,
+ 3.8292178136720657`*^9}, {3.829218394666704*^9, 3.829218401658337*^9}, {
+ 3.8292188164581223`*^9, 3.82921883122604*^9}, {3.829218950764509*^9,
+ 3.829218957204319*^9}, {3.829220267572093*^9, 3.829220270004106*^9}, {
+ 3.82936259901405*^9, 3.829362614606016*^9}, {3.829370367314437*^9,
+ 3.829370369098258*^9}, {3.82937149074282*^9, 3.829371504006997*^9}, {
+ 3.829371588392646*^9, 3.829371592952486*^9}, {3.829371703474627*^9,
+ 3.829371725714978*^9}, {3.8293841834937067`*^9, 3.829384188373666*^9}, {
+ 3.829384287679748*^9, 3.8293842910074463`*^9}, {3.8293843661210957`*^9,
+ 3.829384372016992*^9}, {3.8293844069057617`*^9, 3.829384407617469*^9}, {
+ 3.829384490603231*^9, 3.8293844949630737`*^9}, {3.829384774360268*^9,
+ 3.829384778992144*^9}, {3.829384939363501*^9, 3.829384940539279*^9}, {
+ 3.829385057917753*^9, 3.8293850885740633`*^9}, {3.8293851940558357`*^9,
+ 3.82938520864007*^9}, {3.829385243712878*^9, 3.829385265113099*^9}, {
+ 3.829385359435005*^9, 3.82938536205903*^9}, {3.8293854930775623`*^9,
+ 3.829385516669804*^9}, {3.829385592767355*^9, 3.829385603743544*^9}, {
+ 3.829385805283429*^9, 3.8293858066272917`*^9}, {3.829385929925768*^9,
+ 3.829385945629863*^9}, {3.829386229987687*^9, 3.829386231523301*^9}, {
+ 3.8293863924382668`*^9, 3.829386395742152*^9}, {3.829386596554088*^9,
+ 3.8293866005139847`*^9}, {3.82938704006633*^9, 3.829387041618104*^9}, {
+ 3.829387225054101*^9, 3.8293872267654343`*^9}, {3.829387522019199*^9,
+ 3.829387528442922*^9}, {3.8293878522727833`*^9, 3.829387875800909*^9}, {
+ 3.829388093445107*^9, 3.8293880963091288`*^9}, {3.829388681984003*^9,
+ 3.8293886861675653`*^9}},
+ CellLabel->
+ "In[678]:=",ExpressionUUID->"454bbf34-d098-476d-8e27-8e882ae07c56"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"sol10", "=",
+ RowBox[{"untilSuccess", "[",
+ RowBox[{"newSol", "[",
+ RowBox[{"eq10", ",", "sol9", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"gC", "[", "16", "]"}], ",",
+ RowBox[{"gC", "[", "17", "]"}]}], "}"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "8"}]]}], "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
+ 3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9,
+ 3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, {
+ 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, {
+ 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9,
+ 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, {
+ 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9,
+ 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, {
+ 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9,
+ 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, {
+ 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9,
+ 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, {
+ 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9,
+ 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, {
+ 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9,
+ 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, {
+ 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9,
+ 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, {
+ 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9,
+ 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9,
+ 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, {
+ 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9,
+ 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, {
+ 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9,
+ 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, {
+ 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9,
+ 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, {
+ 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9,
+ 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, {
+ 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9,
+ 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, {
+ 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9,
+ 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, {
+ 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9,
+ 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9},
+ 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, {
+ 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9,
+ 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, {
+ 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9,
+ 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, {
+ 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9,
+ 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, {
+ 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9,
+ 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, {
+ 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9,
+ 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, {
+ 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9,
+ 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, {
+ 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9,
+ 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, {
+ 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9,
+ 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, {
+ 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9,
+ 3.8260074763785057`*^9}, {3.8260077526573877`*^9,
+ 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, {
+ 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9,
+ 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, {
+ 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9,
+ 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, {
+ 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9,
+ 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, {
+ 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, {
+ 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9,
+ 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, {
+ 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9,
+ 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, {
+ 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9,
+ 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, {
+ 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9,
+ 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, {
+ 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9,
+ 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, {
+ 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9,
+ 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9,
+ 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9,
+ 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9,
+ 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, {
+ 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9,
+ 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9,
+ 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, {
+ 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, {
+ 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9,
+ 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9,
+ 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, {
+ 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9,
+ 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, {
+ 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9,
+ 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, {
+ 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9,
+ 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, {
+ 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9,
+ 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, {
+ 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9,
+ 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, {
+ 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9,
+ 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, {
+ 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9,
+ 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, {
+ 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9,
+ 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9},
+ 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9,
+ 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, {
+ 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9,
+ 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, {
+ 3.829214031268794*^9, 3.829214040157639*^9}, {3.829214194263526*^9,
+ 3.8292142105916843`*^9}, {3.829217690414138*^9, 3.829217702270501*^9}, {
+ 3.8292178172969103`*^9, 3.8292178174562902`*^9}, {3.8292178775777473`*^9,
+ 3.8292178776889153`*^9}, {3.829218414474752*^9, 3.829218438363077*^9}, {
+ 3.829218873266842*^9, 3.8292188874831133`*^9}, {3.829218961781654*^9,
+ 3.829218962396624*^9}, {3.829220227971595*^9, 3.829220228067281*^9}, {
+ 3.829220271868513*^9, 3.8292202885961943`*^9}, {3.829362123773261*^9,
+ 3.82936212387718*^9}, {3.8293623714499807`*^9, 3.8293623718336153`*^9}, {
+ 3.829362619006271*^9, 3.829362682127327*^9}, {3.8293628496104803`*^9,
+ 3.8293628496980753`*^9}, {3.829363086679022*^9, 3.829363087486423*^9}, {
+ 3.829363510502825*^9, 3.829363510582408*^9}, 3.829363644665361*^9, {
+ 3.8293640250715933`*^9, 3.8293640417196207`*^9}, {3.8293641846502438`*^9,
+ 3.8293641904262867`*^9}, {3.8293643116124277`*^9, 3.82936431479661*^9}, {
+ 3.829364353045416*^9, 3.829364357869265*^9}, {3.829365155900394*^9,
+ 3.829365164220447*^9}, {3.829365786400337*^9, 3.829365786447913*^9}, {
+ 3.829366984174124*^9, 3.8293669853979263`*^9}, {3.829370133310355*^9,
+ 3.8293701333579397`*^9}, {3.829370371971438*^9, 3.8293703727303963`*^9}, {
+ 3.829371509215295*^9, 3.829371512599156*^9}, {3.8293715961214314`*^9,
+ 3.8293715962806873`*^9}, {3.8293717328353024`*^9,
+ 3.8293717472752934`*^9}, {3.82938429566429*^9, 3.8293843002556953`*^9}, {
+ 3.829384375305668*^9, 3.82938437547313*^9}, {3.8293844157069483`*^9,
+ 3.8293844191218843`*^9}, {3.829384497131441*^9, 3.829384504563476*^9}, {
+ 3.829385060734583*^9, 3.829385060885489*^9}, {3.8293852135922403`*^9,
+ 3.82938522271249*^9}, {3.829385271354004*^9, 3.829385291377541*^9}, {
+ 3.829385365115407*^9, 3.82938536726711*^9}, {3.829385519270269*^9,
+ 3.829385535006233*^9}, 3.82938582505239*^9, {3.8293859486221867`*^9,
+ 3.8293859623263702`*^9}, {3.829387044634547*^9, 3.8293870467064257`*^9}, {
+ 3.829387533371252*^9, 3.829387535491213*^9}, {3.829387847513393*^9,
+ 3.8293878487206383`*^9}, 3.8293884530521*^9},
+ CellLabel->
+ "In[685]:=",ExpressionUUID->"fdda266d-54c1-43db-b6a7-a3d02502cd24"],
+
+Cell[BoxData["$Aborted"], "Output",
+ CellChangeTimes->{{3.826689120800562*^9, 3.826689127418775*^9}, {
+ 3.826689158488123*^9, 3.8266891737031317`*^9}, {3.826689317590938*^9,
+ 3.826689360645096*^9}, {3.8266895920966187`*^9, 3.82668965774481*^9}, {
+ 3.826689994862856*^9, 3.826690033288772*^9}, {3.8266900773992367`*^9,
+ 3.826690138259676*^9}, {3.826690170487563*^9, 3.826690210884091*^9}, {
+ 3.82669028582425*^9, 3.826690412478512*^9}, {3.826690525277103*^9,
+ 3.826690586804343*^9}, 3.8266911044203787`*^9, {3.8266911415341454`*^9,
+ 3.826691176067152*^9}, {3.8266914431034403`*^9, 3.826691466496176*^9}, {
+ 3.8266915698104963`*^9, 3.826691589183861*^9}, {3.826691629285613*^9,
+ 3.826691658570911*^9}, {3.826691691287863*^9, 3.826691696658971*^9},
+ 3.826692543677533*^9, {3.8267021751874743`*^9, 3.826702188045772*^9}, {
+ 3.826702249172145*^9, 3.8267022876310787`*^9}, {3.826702328696328*^9,
+ 3.826702337613181*^9}, {3.82670240505122*^9, 3.826702415381674*^9}, {
+ 3.826702466382925*^9, 3.8267024746472607`*^9}, {3.82670292325323*^9,
+ 3.826702926250457*^9}, {3.826704726369697*^9, 3.8267049509999313`*^9}, {
+ 3.8273110328413973`*^9, 3.8273110427062273`*^9}, {3.8273130359585447`*^9,
+ 3.827313096509973*^9}, {3.827313127495216*^9, 3.8273131369191723`*^9},
+ 3.82731317007028*^9, 3.8273132039981737`*^9, 3.827313246533884*^9, {
+ 3.8273133462431517`*^9, 3.827313389144965*^9}, {3.827313425515341*^9,
+ 3.8273134583541927`*^9}, 3.827313492781188*^9, {3.82731352923447*^9,
+ 3.8273135589068947`*^9}, {3.827313596780452*^9, 3.827313655707004*^9}, {
+ 3.827313919011878*^9, 3.8273139325541162`*^9}, {3.8273139642216597`*^9,
+ 3.827314074115497*^9}, {3.827314372765233*^9, 3.8273143825934277`*^9}, {
+ 3.827403799553021*^9, 3.8274038250868883`*^9}, {3.827404411304475*^9,
+ 3.827404474434816*^9}, {3.827404520773925*^9, 3.827404582308402*^9}, {
+ 3.827404734048932*^9, 3.827404820482794*^9}, {3.827405568262806*^9,
+ 3.8274056500914383`*^9}, {3.827406440885428*^9, 3.827406445571705*^9},
+ 3.82741006348425*^9, 3.827410107607787*^9, {3.827468049995737*^9,
+ 3.827468095724422*^9}, 3.827480997719429*^9, {3.82748108294648*^9,
+ 3.827481129985794*^9}, 3.827481641182066*^9, {3.8274817411058826`*^9,
+ 3.827481855698565*^9}, 3.827481892268821*^9, {3.827481928398188*^9,
+ 3.827481956595954*^9}, {3.827482424452154*^9, 3.827482440121634*^9}, {
+ 3.827482626074338*^9, 3.827482647145111*^9}, {3.827484842554553*^9,
+ 3.827484874049939*^9}, 3.827484913883271*^9, {3.827484990128724*^9,
+ 3.8274849919736977`*^9}, 3.827554895814118*^9, {3.827554947784121*^9,
+ 3.8275549984120703`*^9}, {3.8275550679769897`*^9, 3.827555094379706*^9}, {
+ 3.8275554797725573`*^9, 3.827555480967787*^9}, {3.827555525888712*^9,
+ 3.827555559767219*^9}, {3.827558622717334*^9, 3.8275586356363983`*^9}, {
+ 3.8275586667285223`*^9, 3.827558741490138*^9}, {3.827561578728423*^9,
+ 3.827561658589188*^9}, 3.82783047330208*^9, {3.827830505564189*^9,
+ 3.827830518175445*^9}, {3.8278306124447412`*^9, 3.8278306293937597`*^9},
+ 3.8278306698240337`*^9, {3.8278309059064503`*^9, 3.8278309322836113`*^9}, {
+ 3.827831366061975*^9, 3.827831374894594*^9}, 3.827832582229473*^9,
+ 3.827832905505087*^9, 3.827833024832057*^9, {3.827833121728074*^9,
+ 3.827833156887409*^9}, {3.827833190486783*^9, 3.827833214597282*^9},
+ 3.827833440181951*^9, {3.827833485349725*^9, 3.827833509120513*^9},
+ 3.827833641521347*^9, 3.8279184071752663`*^9, {3.829120832804307*^9,
+ 3.8291209136945477`*^9}, {3.829121218248872*^9, 3.829121242382848*^9}, {
+ 3.82912136689071*^9, 3.82912138344954*^9}, {3.8291214179310007`*^9,
+ 3.8291214519539347`*^9}, 3.829121487616544*^9, 3.829121528475222*^9, {
+ 3.82912458078371*^9, 3.829124601986802*^9}, {3.8291246559522*^9,
+ 3.829124672481606*^9}, {3.8291247141750517`*^9, 3.829124779311466*^9}, {
+ 3.829211841985059*^9, 3.829211856018559*^9}, {3.829211923636525*^9,
+ 3.829211943366921*^9}, {3.82921204932723*^9, 3.829212097388105*^9}, {
+ 3.829212658917536*^9, 3.829212735633731*^9}, 3.8292138590684853`*^9, {
+ 3.829213900767322*^9, 3.829213987652483*^9}, {3.829214027339926*^9,
+ 3.829214077595415*^9}, 3.829214111976997*^9, {3.829214204875598*^9,
+ 3.829214227775757*^9}, {3.829217692503879*^9, 3.829217736816154*^9}, {
+ 3.829217796040901*^9, 3.8292178004682283`*^9}, {3.829217867884487*^9,
+ 3.829217897395664*^9}, {3.829218433300358*^9, 3.829218438953628*^9}, {
+ 3.8292188840072823`*^9, 3.829218907333342*^9}, {3.8292189584961233`*^9,
+ 3.8292189826030293`*^9}, 3.829220226230227*^9, {3.829220262467355*^9,
+ 3.82922033935154*^9}, {3.829362116339007*^9, 3.82936212978506*^9},
+ 3.829362175540524*^9, {3.8293624139586573`*^9, 3.829362434833434*^9}, {
+ 3.829362632949161*^9, 3.829362688541752*^9}, {3.829362751541298*^9,
+ 3.829362779388083*^9}, {3.829362846262143*^9, 3.829362987368157*^9}, {
+ 3.8293630609116488`*^9, 3.829363093944889*^9}, {3.8293635026728573`*^9,
+ 3.829363533532688*^9}, {3.8293636039801073`*^9, 3.829363688062024*^9}, {
+ 3.8293638578826838`*^9, 3.829363860627307*^9}, 3.829363955566392*^9, {
+ 3.8293643165481358`*^9, 3.829364351378783*^9}, 3.829365105877397*^9,
+ 3.8293651615957108`*^9, 3.8293657839738417`*^9, 3.82936697614613*^9,
+ 3.829367100741529*^9, 3.829369604049017*^9, 3.829369864768076*^9,
+ 3.829370131544271*^9, {3.829370341531361*^9, 3.829370365544216*^9},
+ 3.8293705407458563`*^9, 3.8293715313935137`*^9, 3.829371596888565*^9,
+ 3.829371747885508*^9, 3.829384259261759*^9, 3.8293843610462217`*^9, {
+ 3.8293844050271473`*^9, 3.829384422598608*^9}, {3.829384484180114*^9,
+ 3.8293845017131567`*^9}, 3.829384768998616*^9, 3.829384937359973*^9, {
+ 3.82938505652734*^9, 3.829385070983238*^9}, 3.8293852262706823`*^9,
+ 3.8293852939285307`*^9, 3.829385356964245*^9, 3.829385399204397*^9,
+ 3.829385591344162*^9, 3.8293857935809183`*^9, {3.8293858308579063`*^9,
+ 3.8293858522822742`*^9}, 3.829386223700945*^9, 3.8293863261208687`*^9,
+ 3.8293865942133827`*^9, 3.829386666091152*^9, 3.829387038475026*^9,
+ 3.82938722350168*^9, 3.829387407808085*^9, 3.829387746524623*^9,
+ 3.829388087261599*^9, 3.829388342025654*^9, 3.829388674876423*^9,
+ 3.8293888883326387`*^9},
+ CellLabel->
+ "Out[683]=",ExpressionUUID->"1173f315-2601-4cb1-b1f5-116043873cc4"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[",
+ RowBox[{
+ RowBox[{"Evaluate", "[",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"h6", "[", "\[Theta]", "]"}], "/.", "sol6"}], ",",
+ RowBox[{
+ RowBox[{"h7", "[", "\[Theta]", "]"}], "/.", "sol7"}], ",",
+ RowBox[{
+ RowBox[{"h8", "[", "\[Theta]", "]"}], "/.", "sol8"}], ",",
+ RowBox[{
+ RowBox[{"h9", "[", "\[Theta]", "]"}], "/.", "sol9"}]}], "}"}], "]"}],
+ ",",
+ RowBox[{"{",
+ RowBox[{"\[Theta]", ",", "0", ",", "3"}], "}"}], ",",
+ RowBox[{"PlotRange", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "1"}], ",", "1"}], "}"}]}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.829387411025926*^9, 3.829387463329721*^9}, {
+ 3.829387729448197*^9, 3.829387741072781*^9}, {3.829387793720009*^9,
+ 3.8293878264323473`*^9}, {3.829388357645935*^9, 3.829388366178048*^9},
+ 3.829388419675577*^9},
+ CellLabel->
+ "In[674]:=",ExpressionUUID->"fa8135b4-fdf8-4590-be4e-73b4dd086cab"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {},
+ TagBox[
+ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
+ 1.], LineBox[CompressedData["
+1:eJwtlgk0Vev7x9FgiJRSKN0UR0gSiqavsdJEytRgqpTIFEnpJjclGUPpEoUM
+JbcUcSunNF6RyHA6w96G45x9jmNKUaR+u//677X2+q7P2vt93rW/z/Pu59Hy
+CXI6KCMlJSWm79/6bUvgdceg4PW9/6/nD+guaWRsh0lTqsx7Whv6+UcSGR74
+2l7aEkfr4AObhABGIJTK80x20xozZ3j+Xsaf+Jgx/7EKre/ebO7ZyUjCh35z
+n2U6SQi6cfw/B0YOYurOf6nWysHzhITH2xhlWJ2749n3WWWYMjVUVnSEieAD
+8hEr1ZiwP+MdW+HyBreSru953vgajyIP8m41vcfAePlrVnYDPu32NwqN+IgB
+y/Xraq2bMXNjou9zy3aEhDROeKxqxYyWg+Wr9nAwPEuJ8J3FgmWflXiXPwcL
+W+312JosBE9dsCj0FAdZVSy9jUtYaDJvSy3N4uC//36sn76OhcvXN4RocTm4
+qzF60NGXBdVDusun7ePCMEaslPeIBY0x6i7hwcNnqSodX+dPWLwwoCTWh8T7
+F60v3kexkUBo3UwMIWE70bRPOpaNkez2zIxoEmFYzDNMZOOtuk3crRwSl2bk
+x4RdZyNglsahV2wSPi12elVP2dgz6cDlGL0OLHVWoeZMsHFrZKZj7c0OjK0U
+7FkUwQG7VbJlQ0kH2LbDaxP/5GB6xZuNdfc6YDGw5PFQLAcnjp1GM7MD/U8Y
+54vSOdg8SC3r4nWgTN9Y7fV9DvpFTCUZjU7cbp29tkHMgTnv6Dury52wVtec
+88WVizK9UNXDf3fiQ2th9nxPLrSPH/dMyuuEXQO5bZ0vFzOUzwyzyzvhaL9Z
+51AYFyLLlHlhHzsR35Cwe28KF38XlPsXzu6CRtOXsLrXXPzwH5027WoX/P85
+sirPkIfQqnFn49wuTEROeVZnwgM1WeqGa1EXVHzvz+u14KHlupxpwaMuyBUE
+WM3awMPdRvW961hdKGDxxqRo3z1M1pYGqXdj4bNXdQ4JPDwfi97aktUNg8U2
+i4q76PXqoSNB+d0YkZaeGyTkQWC+/8a0O91IfLXj5jIJD4oRdl+s/+1Gvd3s
+wKtfeXAZls++z+rGUinFUmU5AuLey71JqnxE7j3GzjQg8EPhXIa+Jh8LnPbq
+UkYElPXD8Vqbj7u6BUIjUwKmh13TJkz4cLT6UF28lsAZ/rw1AU58hGgZ+mEb
+gdm8gnj7ZD6yjZ6p/wogwPiRYdpzhQ/xa8eclmACFvMuENE5fIg2+YXlhRHw
+cPdbUXWXj6LWt4q6UQRKWg3ZjHo+2v3CH3yMJ7D+faXeZPkeyHVunFRdSOAw
+8+3bmpgeOE7fpXqLReC7xYxFpvE9KPcLPBrKIRD/0PVUSWoP/L3uLTYnCNwp
+ERim3+hBfySVV9pNoD9tcppfTQ8On6UqLPoJhB223Dd7rAcZIXqnu6RJTOm+
+UHlRWoBjkzIaTSeTuLKvUfmXnAATc6y9z0wl8cjJo1Y0VwBL4/LVEwokxtZG
+6TLNBKi4aZaSNYtE9MyqIb8QAXae0lP3XkxiZsKvzeQJAfKucCNX6pDIm7qx
+YFe0ADbdq8cn6ZJ4Md7qgmQBauw93C7ok5gqGH48+64AVtPmbDQyJnHVa41q
+/EMBntqPRLxaQWIJJybw12MBCrR3/bvTlIT9h5la4joBdlSM+rutIpHwr9F5
+JiVAyOlv22TWkdA0iyBNBwWoruS1uq0nUfZPjfntUXr9XwyvIpBoLNjWmz5V
+iE9/7wlbak3C648MW4XpQkTLxY752JAYvMa9fkZVCCfHhFOptiRUkv0dj2gL
+8VG+3LdtA4l8+QclpIEQZQozGiQbSZieG5NxNhFicNI7xvgmEi6RFytgLYSh
+I7uUdgLX9hdpqHoJoWoj1Vi0nUTAFrXapYeFsNJqPJzsQGK9yUU/22AhlvV+
+O37UkUSXjH/VsWh6/+MsgaITiYdijuelOCECOfU272m+0LxVNj9FCN6xa9PO
+7ySxNG+ZS/MNIULmrGtm7SLx82LuhKhYiEhVl/pjziQ+hMy4JX1fiDDjd7pT
+XOh8uJ/dql4txNmj67sSaA63+jy8/LkQJ1c6fVdwJbFJb3/Wpv/o+D4lR87Q
+rDGzxdqrSYjaFUITMc2Sb7biiE9CVDn847TFjURNR0Vqcif9vP7WyzyaU94y
+LIpEQhgzgi4M0uxz72pHzZAQOVb3Mk3dab8y5eLavgvRenT6SCDNstGRRv3S
+FJ76GF3PpZl9SNw2RYGCpVX1pdc0lzrs+VNThYJ1mhOzm+Y/V9XrmGlQSN2S
+ZzZKs+Mf6xq2LqLw6JWDRGo3iUWyZWEH9Ckovpbp/M1f+xfMj1pBIT5y/8zf
+779tS36RtppCVbjGqd/x/q6R8r9jTeFO1Yd5v/cLKAxRebGZArfYaCiH5vVJ
+XdVsJwpaqp3fjtI84/hO78+7KRSaJi83obl730s5hf0UHhfyM/rp7620M7un
+5U+BHZrAuEFznGGhq8UxCglyKzo20rxbde4vx1MUduLssx7az6UTFwoP/0Uh
+34XxKpLmn/xv26Iv0fG+NvROormp3u/r1TQKJQY6K87R+TqevcX2TT6FCzmZ
+sw/R+d107kkvcYfCvV8zSv+j868RYJg28oCCjOWQ+yKamWuUu3ReUjiqVjhQ
+QdfP5cXRF9fVUxhTZjcP7iBxYNrQcucWCntumb7QolmO03zmHJ+CXvvC2oN0
+fbJrbXSzJRSIaar1J+j6Lb398P2DLxTeT//66ew2EjtOXtHsnixC0Dzrb+Fb
+SGj7yL4aUxShb3j2ZG+6/kfsTwSoqIqgap6rYG1P+62++7GVjgje8rd/9tDn
+KUD6nY+7oQinr6UJi+1IQLRGIcRMhCVZU2u96fPHr9J0v2EnwhoPT+sKKxKG
+bp0jPw+KsJLRuLx7DYlsFfy8dFQE7enLnINXk1BoyJ6iHi5CU6Vj8RdzEpSV
+22yTcyLojEZ+7DIjUWDQaHwoT4Sy2mvyzkYkZgmWWnwpEeHlYqfgLEMSMTfi
+Lc/eFyExUHaUZUDCU3WDQ9YzOr7ctH0WS2h/fz0JaCRECB0fcU1eSOJitUbY
+XoEI0laql5IWkPh27MQpUZ8Isi+iGs/NJ9FKmcRPmhCB5/jxnIsafT6abxet
+midGpZxPYJIy/f8rzOzKdRUjp1ujYPsPAuFeI6KlnmJYGyfOqPlOgK+xa6ja
+Vwz94xoh2qMEnicrS7WEi8G4ayvbNkQgKvK8ply6GMee/uFcLyDweWuYW/AH
+MdwiGF2TGgl4yzZ7TrSL4bURjzrfEfjw3OhQPCnGkVUp+yvfEri7sje8oF+M
+hok7q21r6X6z0CeNpdiLf+dfuTf0kAAx7PDe0r4XN3yi9S9nEkia1744eEcv
+eE3V4QnpdL+y8YjMde+Fp9p87qkUArmXA7R/+vWiImzbkEUcAS/jiycfx/fC
+/h/1nysiCHQH1jJW1vcier9r8ZydBNKv2EcdbOlFl77zVe/tBGxrPjSlc3vh
+Igo9fdOeQIESGTUs6UU/X50hZUnAt3S8+Z6SBPFyp2+bLyVAiUzPGDhIYNqk
+kZAuQyBz5pOW3a4SWJM2nYYTPGyysNGP95Sg4Qkl/2SUh5K4Ha1UkAQPYuvq
+K+l54YhuoEFhigQt/pM5Om089B0oal/YLIGn4iYDqpCeA0n15XOc++DVNRX9
+4GHh/lHTP/b14e/NO56vo+cZB0GLxZKDffBMNVsTs4KHUkmyzerwPnRPvqYk
+1ubB9/sUV4+MPixyixo2leeBrfL5dGFrH54/2j9W0cjFc7u6dytd+sHi5j9x
+2cXF4NuiD/Dox6M4K0urrVws2Brbusm3H7kKyScX2nJx0smS3H28H7JMk2lP
+Tbgw9az8/OeVftwoTjoQqMJF8Yk89Tdt/XDXnWx+r4GDlDsnD7m6DiAxXxyR
+t4aDPdJ29a0eA9ArKfB5uYIDhquy8S7fAbSprbHj6nHwRKZgzDF8AHVyub19
+czmg3BsSN6cNYElUTUrmMBuQW/hwXeMAyiJnfJIvYSOi3Efq8uJBmGttcN6h
+yAZDWW7biaxBGDSnBM1/yELp4NnCuNxBDGaZKlQVsbCiefxXZv4gamK1fTZm
+sYCMgfLqO4PYEq5pbRXDgtu8drXxx4Oo7Px26aYDC/G6hfzT3EHIxt1OV6Ha
+6RzYRv2lOQTZDrfRYuV2VAZH30nKHYLKradqay1aEf948KF7/hDeyEz//Ey/
+FZ5TvWu0i4ZwboBTvnp+K+SyrZr+LRuCvR2fr/irBbvfyIwKng5Bod6rw+Bl
+C35qxlqDOwTJyafdTltbYPfu4qcBtc9Y+fp77updH9Gikya74/JntOaODmta
+N0H7r49L9l0bBp83un369rewcCRNc7O+YIpSzu3rhtXgBceuT0z4irmpxvJr
+JZtRbuGu9Cp1BPpV01N1XWuYc1zefCqOHYVGSt2GMo1GJrqkUmvDviHH883s
+5iUs5rU5h5UYJ75Df49P9CHjTmZMjt8FsyNj+EcQceS8u4B5/X3m66TgcRwR
+n1brMJEw51dbTsoIG8dgPy+9Z7OEmU33iqwT41jetvON0FvCzDphXl0UPY5Z
+28rDOpMlzGuLWHeepYxjckjyq/xeCTPj+NzUz/foeKqxp43y+piJC67scRka
+R92LdJ2z8gNMRfn1mXu/jkNWfnxt7h8DzIThnhaf7+N4apyidN9sgHnprdn2
+IOkf+HRK4lnmPcC8GNpqGTfzBzp/ilSnVA8w/XZ9Wdu24Aek/u8aZP4PDuFk
+xw==
+ "]], LineBox[CompressedData["
+1:eJwB8QIO/SFib1JlAgAAAC4AAAACAAAArXc6bDqt/j8AAAAAAADwv0kIKE7d
+sv4/T9adtPm17788181cEML+P9QVil0P4O6/+Up3IN3F/j9kxD/lgKfuv7a+
+IOSpyf4/Oa5SPa5t7r8vpnNrQ9H+P5evzdUp9u2/InUZenbg/j9liUmIH/fs
+v9/owj1D5P4/UxuE2+qz7L+cXGwBEOj+P+zSslVLb+y/FUS/iKnv/j+HxXs2
+t+HrvwgTZZfc/v4/QCc7Nqe06r/Fhg5bqQL/P65mY8CIZeq/gvq3HnYG/z/i
+UFOg1BTqv/vhCqYPDv8/gFPRppRu6b/usLC0Qh3/P6ZGGp0SDui/qyRaeA8h
+/z8ajnUipLHnv2iYAzzcJP8/mUrOm3BT57/hf1bDdSz/P9QbTEahkea/1E78
+0ag7/z/I6AYBrffkv7rsR+8OWv8/t9Dga4Rk4b82jpyKyF3/PxiSySgd6+C/
+si/xJYJh/z/2FxKumG/gv6lymlz1aP8/ihmKVjbk3r+Y+OzJ23f/P4pZT1H9
+uNq/FJpBZZV7/z/B0Lz1vaLZv5A7lgBPf/8/h41T4suH2L+Hfj83wob/PyY+
++eiPQ9a/dgSSpKiV/z/Ebqkc8H/Rv/Kl5j9imf8/bpVxw1NC0L9uRzvbG53/
+P7RwpnsA/82/ZYrkEY+k/z/w6qAw29PIv1QQN391s/8/mRAZr430u78zHNxZ
+QtH/P1EpClDEzbM/rr0w9fvU/z80LTZqqTS6PypfhZC12P8/fjcws5lawD8i
+oi7HKOD/P6/ZQX5EAsc/EiiBNA/v/z/peTAHbnnSP47J1c/I8v8/IrE0us5I
+1D8Kayprgvb/PyM/QMxIH9Y/Aa7TofX9/z8Pte8k5uHZP/gZkwduBgBAtUon
+YjDg4D+2aj3VSggAQImCQ9aS5eE/dLvnoicKAEAFohu04u7iP/BcPD7hDQBA
+Qp1Wxn0N5T/nn+V0VBUAQNBfWWQPfOk//BkDaFsfAEAAAAAAAADwP002hW0=
+
+ "]]},
+ Annotation[#, "Charting`Private`Tag$5627234#1"]& ],
+ TagBox[
+ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
+ 1.], LineBox[CompressedData["
+1:eJwtlnk41N/7/1GkEIoiKRKlQmUpkaeskZQUUVEqCWXJLoU2VNaU0iKKou0t
+tCintBdF9m3GOgtmhkhiZvq+Pr/r9/rnvh7XOa9zznXfz/t5jrpXwLaDYiIi
+Ir6iIiL/i+Objt7YGhBoxvn/8eyBJUt/aDnCxjvpXzUVq7m9vhe1PCA4lfI5
+gYpDTy0v+GsdhUaC7hR3KsbPGZm/W+sE9uXu+CtPxW+f7PuctZLhKcjftVwz
+GQE5YV+2aN1Ea01p90P1m3h74UL5Zq1HENFb/O/L7EcQlwiexvYlmEL6z/rM
+JbA7ue9MqcsnOD0ZWJDw/SOeRR7suFv7HX6mZ4ocrlWjxd1PLzi8DhFnpBhn
+zH9C3vai91vzJtjZsRfMN2iAXP3B4jW72uARWaouJdsMc86G/u1+bShkVO6N
+Um5GoMSCRcHRbRhwUtvZo9GM2rWNaQ+y22D2bdqB3LXNSL9hE6Te3oY2+q6b
+9fuaoXhoyUqpPe0QvaE6c9rTZsybYD2keXRg4bdLCSlbW6Ch5n//jBcdt5hZ
+T5LDW3GBpn77YhAd2UmGiRUnWzF2vSkrM5aOOVjjwDrXis/Klgl3b9LxO+pI
+gnZWK/xnzzv0oZWO9xdarnk9b8WuKQfS47U7ccWod/XDP624Oya/tfJ2JzwE
+WrmXgtrQ2jC4yeZ+J/xzFoQJItows/ST7dcnnZDLOsHxjG1DxLEY/CSd0Kst
+ey2f0gb7IZZud0cnxvPb85c+aAOXTWTE5nVhTtqcEvW+NqztOPJtQ3oXbtsv
+T1+1rR2PtIMVfa51wbdMoXqnWzsWh4V5Jud24WZflEnE3nbIyZ4caS3uwnHl
+9oJbR9vBNk9VCanrQow9Kzg1qR3X7hT75St0w16i8tifN+3g+/2RkrrSjT+V
+bps+L+lA8PPJHatudaPY+Vz5kE4HWFNFclwLuiF1bv10eYMO1N+QNLjzrBte
+Q4Wrjc078PCH8u71zd0QbIo6tmRnBzz0TR8EKPdgieQ6j8izHXg7EetQn92D
+jANKJzvbqf+Vg8cC8nqQ1vz10b2uDjDW7s+RKurB+f7yE4cZHZAOtx61eNkD
+LcdfY/W8DriMTL/+X3MPouSGZZzFaOgfSB9IVuzFG7Ek0X5NGvgzTmcuU+2F
+fVmdsckyGmSXheLj4l6s2DswdFqXBgMf1wyBfi/61Y3qRNfQcLJXxcR/Wy+k
+e7V1b9vSoNBxJ8kupRdiRs5HQw7RoMXPNOi73Av1q3OzHfxoMFY5R4u92Yur
+rOuaqgE0eLgdXv38YS+sw0o2FYTRcL9Bp1WrqhddL5/mep6hwex7mfbU6X24
+Ea1Q7HGbBh/y+XNFfB9uY4lKQh0Nf43lFhkk9eHdXrN8t0Yakkpco++n9eEF
+7ed1jRYaiu4zdC7l9GHyee/7HBoN3IypGYcr+hC6uf4b2DSE+JjvUZjowyzt
+DbKyAhrEe86VJYoy8H6dUqD3Pxou7/kh+0+SgcpGlwVlonQ82+ZRyZ7LQCMv
+dZeZBB0TpseXEEMGMuWeLf41k45Y+efDh4MYMA+r39q3gA75C//s6REMMM6n
+3HujRkeuhO2d7bEMXM4c1ru0iI53kw0uSGFAusf6o4YWHRKMkXKFhwy82RDX
+0buCjit7TRSTShhYkfDuRJwuHUvb4o/+K2eg4O+A+ZyVdNjVyKv3f2Xg4JJM
+taX6dFx4qXeWsBjYub1HmbOWDlXDcLrBEMXOvGT7dXQ8elyxtvAPg/IZwzk5
+JnT8uLN54JIEE+93qW3XN6NjVorfVt/FTIg7OLtPWNCRN/3pffpyJrJV5HWV
+rOgwOD0htkOfiY33gsR1relwiUwshQUTQ64NzzbY0nF1f8E8xb1MdMU6jUtu
+osN/k1LlCh8mIgq/r/xLsZl+4mGrQCboEduH6Q50dIv5PT8Wy4Rgz3rRNEc6
+SvrbPM8nMDFl3RSHXVvoOPfTYVpeKhObra8ozt9Kx4pcXZefOUzstBxViXOi
+Q5h4S8C+x4RRlMZ2zW101ATJ3RX9jwlrH47oG4pz3eIclF8wsdZGQsPJmY7Q
+Db9GVr5lQuzVotJmijdq78/e+IWJos4/pS7b6ZgnX2+xt5YJx3UmGt8oHhy3
+6g9vYaL9de6E4Q46KjpL01K6mJD40Wt8heLUz1rGBWxqf/PnNC7FXk+udFYM
+M2G3rZ5h6kLlK0syofEvExklQ1viKJ4WG6nHFWXh8ekPc19R3Hqov1F8Bgv7
+HKVMORQ/2LLrhOosFk5KRb9UcKXjxJoqTcN5LNRrfE9dTfHWheurHRaxIHak
+4pUNxYumPQo5sIyFHcskTJ0o/s1dMP/4ahYqpPdKb6P4c2PKu4x1LNxefW65
+HcXXKkT8iixY+LhkzRUjiv3zg2a9s2dBp2/55nkUmyV3v2jdRq1fq75plDqP
+XJjzvl/uLIRVNCS/p7hnz3vJGftZyOJMnXOe4jJrwyfqfiy4Sx2h2VKcoJPv
+anyMhfWrqvomqHy4K879tzWahYi+Tu07FK8QnMv3OcXCtXm+9ywpFvaOb449
+T7HeEs8WKt+1VYd/X8lg4QGvadNBisOub7L6lMeCyUvFCs//1ev0qwFaEQv2
+4YvxnarvPH+djLGnLDhaLeOsppiYyHZrvmchU0HjE43SS7pGbOL6KhZ6l2Rz
+NSk+IDW8ckc9C5O+Cuv2U/qSbPt58nQvC7PXKxu82UzVo9JyyfVBFpSMdGj/
+0+eDwpLvT0dZeLraOe83pV+nqMuqPVPZOJnbHzrFno7FXtM+TEizYdLIPDG5
+kY4xuwj/WYpshCfPvMam+uGasnv5Bk020nNGBQVUv/iLfvNy02FjxUxLiwiq
+n8A2mRFkyEbokpYUM0s6ep+ruuVYszEy69/6h+Z06OzsGhMeZCObbXJvFtWv
+12dBeP4IG6tkb/x+YEzHjOrr4sqhbHiL/DprRvU7a8NOBf3TbEjaOR61NaTj
+zvIfqw7lsiEyUqk6RPnHbMYK49H7bPz8WLzTSoeO+Jwk87j/2Kg96fAlZTkd
+noo2W7LfsDGU6mElvZTK779X/j9obBwTNwzMpvwr8cW8kN0MNiYf3te6T/nb
++LGIaDaHjdUL06c+mk9HA0s/aYqAjaua9/VuKFH98bOwYI1KP0KO+cvLy1H+
+lp/Vfcu1H3sP6UZspvw2dO8Ye4VnP3b4iv+smqChd9724Rfe/RCtWbDGcpyG
+tymyIvWh/aiUnTtfcYSG45FnVSUv9UPn0CK1zSwafjmE7Ays6YeH+tdE6Voa
+9k376Slo6gfTyuDjZDUNNW/1DiXR+xE3zh/u+krDQ6OB0DvcfljcLJfLeE/d
+J2peGc3SA2g9Hbku4RkNtJEt383tBnBNc8urV9k0JKs0aQQ6DcDTVyHt2xXq
+PrL0iLzlNoCK7ek3f2TQcCvdf7Hw8ACaUvnuz87TsHdVYlR50gDI89j54tE0
+9Byt1DKqGsBxwea2K640XLpsd/xg/QA+6EYb/d1Gg1VFTe2l9gGYSeYWbHGk
+4Y4M/fjI4ADa1UzetVnR4P1g8ucTmUG4h9nkBa6igcU2OLl8yyBGOAGa5yVp
+yJJ/Ve/uOoiIB6o00yk0bDS2XJbkOYiVh48k9Qg6cD/BqYEVMAjxcd9S2ZEO
++C45ujw/dRCRx9cr91DvB86Bgia1n4OYLnPONORRB37RlVfO2cGBXErZ0lV2
+HVDb/8dg4R4Opmj3lV636MAWRr3x0oMc0JpX7RaYdODBYIrlulAOVshaDt7Q
+7YD3X3FXj0wOsu2X9uya3YHWWb9i8hs4cBy3D/nS2o631l+/GblwITZvX+Se
+fe0Y+lxQAw8uUofjPH2o99cChzMNG725WB7ioebj1I6obeZ09zAugnZfXmaz
+oR0GnmW/TlzmYudU7eXH1dpxLyJX+VMjF0NxG/S+U+/Y1KKoQ66uPLRbbGLz
+HdqwS9S6qsGDB4yGe26waoOWq+yq7d48GG+ay4s2acMrsTsTW0N5yDDJ2F6n
+3QaWW/VF+wwe9ofUy0hJtAGSaiXrf/BgXiLSd/1VK8KLvUTSNYag8sosFYta
+oSUruTkiewjL9gTI6PxoxoOhuPyEW0NIcbz+/U9lM1b/nPyXlTeExsa7kWVl
+zUAmr/hF0RDMz7Sfkb3ZjJ0qTUqT5UM4+LvaYqV/M5KW5PfGtA+B/i/v8TKJ
+ZnBhdfyU6jD4zukBYyubUBYYW5R8axjHbs1IP7WvAUnlQyVuecOQCqkOh3MD
+PCX2VSwuGEZY7PfAIasGSF7fUPvy0TAsJr5cXrW0Ae6fxP4wXg9DA0eSVnLr
+IVQ9Y4H2YaSdP/djYUQ9rL8ltvCUfkFTu7f5xak61GtmTHNK/4W737mzL0bW
+YvGpuqV7ro5gl4xI983ezzDeSje4lT2KuFUL90s8f4mOwDNmFy/8huwHie2H
+V8eh2NhN5kPaGLLjuu3XMsrJHJdPLffO/MHIwzl6xjeqCbpF0ipDxnHk2LLO
+EssmcnWOj4xWxF84Bz7WDcjvJPE3D58z9J3AD+8Tfs0P+ojFLu9Bx6MTGK13
+HVF810emKO138gmeQKpE9+wdLX3kdNpuleyoCdysyo1uEmeQs6e3PBY5P4FF
+i7YasjwYJNHXsOlb0QTmj31aJyfPJKlGoku8OBPgb5mhNnSMRbaOCM5HD0/A
+xsnGfTKRReSfTAxd+j2BFpl9D0VyWCRde/TlJ8EExBo1rMa/sUjGfKajzsxJ
+VL7s2ZSmwSaXxarDxnUnMfJh7wGFWja58T3rY3LgJA70O8doLxog81+YT8kM
+mYTLohknrIwGyHXqbsuOmMSauvQ6e/sBkh2x9kVB7CTiywe65gQPkKuLmove
+pE6iYL5a3NU3AyQzbG7aryeTOPzr9H95OweJwj5SPV4ySdVXpFPVb5Bc2nRo
+xr/nkyiOnqkTHjNIMtSenZJ6O4mgHYzod7cHSdpXl7DFtZPItJlpdY81SC4u
+uLzLZXgSKQFHP5Uf5RDp6WZZu39P4piY3bHHJzjkwkhfvddfio0SVgYlc8j5
+z4aOAaJ8mDHLvro95JDE4AbzBHk+bBP5QddYHCK5JyYmWZGP3FOcLy1jHJJg
+q/nykjIf+8cf72ifyiXn5ofq31bngznt70xNNS4581FB6+UqPuTWG0VddeaS
+qf+98npjyIeKa/CcT55ccjr7wK2PxtR+TvLqRX5cciqwRKluAx/qdJuYlHgu
+Edu1e0eLNR8i2bONLlzkknjrqel0Oz78Z+xcvjaLS+LmbZcadOKjVV199eUH
+XCIizrf9tYOPn+E5HlZlXBLLyzs97saHhqSe4CrhkpPvRwRTvfh4V9Llol/L
+JcJH2eukvPko1Ge2BrdwyYmrluHyvnwkzHL3curikpijGUOqwXx0ia/K7OZx
+iX3lqg5aKB/l8qNDamNcojSn5sutSD50tkWpTeFzCePw0bK9MXz81XTUPyfK
+IyWvpfPU4/iYFGvUK5LgkXj5opTu03wIPVbMPiLFI1sO2h3PS+CDUTtW81WW
+R+mH6XPgAh9TI02dK2fzSL/02R2aqXwENJlEOc3lked7F1swMviYKWk+P2we
+j5wtqdQtuMLHqEqouK4qj2yX3Kfik82HXmf5n7CFPKK++9807Vt89MjEFDqq
+8wj38Y1Rdi4fJwOjvxYv4pFXU0y7CvP5OPT87t8cDR5Jcm2t9ivkw9WG+X3O
+Yh7ZWRTxcsUjPtibxxvkKdb6N6eA8x81bqWTkkLNH91WmvGolI/ScOuAi9R6
+lfnOsQEv+IiZXEuXpPZLmRj2X/maj8Rz4qb/FvDIbsdUt+E3fOwai2o8Mp9H
+luXq2hS/5yP5nMSIkzKPjP+uWn3sMx8fU2K+3FPkkY92fgsNqviIsGaeDpDn
+kUs3pkv//sHH3lRryzxpHvEaLhgvreNjhe0exQ3TeGSltU1fWBMf0QYxQmsq
+/4Ks3to1bZSewqxGH01wydfB+IpxGjUuPESLGOGSLHP1ohfdfPRzwi7nDHCJ
+AWvPaZN+6vxKfsl8Sg9ipvxAPoePZwoX1y6r4ZKalGt7Xg/zMbbn8ul7H7jE
+b02TEf7y8XpZhl7iIy5Zez5UQ0TAx/HntTG9t7lEgj5b7q2IAMcnpznEX+KS
+3LNb2RaSAgxf3XwpLJxLAlu5DVOkBZBx3x314RCXmOlerHwvK8C1yLpntq5c
+0tLwJdtmrgB3p2Fboz6X5Gv7JExTEaB6t0RKK9VfITESoZ8XCNC10LpbVIZL
+5DQtHe21BHgytO7NvW4OoUV0rZNaJoDvAu3MhVUc8qDq5JIqHQFuh+1WuFfC
+IbYhr0QcDQWo8/lY1RbPIQqf3TkzjQW4/iDtSYwPh3Sr/G35YSqAnIl6xoLN
+HHLineFTJyvqvG8m39rN5hCHufW3Zm0UwOFd+syvo4NE2S/4Qt0mAUT21boZ
+NgySklmPD+5wFuBUR/nvZ+mDZGDfUiU3LwEilKYfbPg3QNz925b7eQvwxdAs
+5EH9APkclowYXwGKXxcLJe8NkLvnR71vBwugWrGlWp/yT4XLBVFPwwTImD7h
+9ktpgMTnuCd/iBKg/Mnt4TmMfuJZ+qaUHS/A9r+XVwdF95Pv5NiXybMCRCab
+/8q07CemX7U6ZM4L8MbTiiWc3k+U6Remrs4QwG/jSkZkGpvUSbo5R+UJwLXr
+7JdPYhGL2dKHLhQI0Cgzba2rJYs8USVRN4uofBcnGWROMMnF1Zq5lU8FUNIv
+VfnpxSS2u4eHZrwXQK9nYpGmMoOUed+ZqvqZqudT5kOJt31kcZCrkl6VAO1L
+bXMSvfuI6NnXcK4XwOf2XjOrwl5S/jgxObtXgI769dX6s3vIspemuQ9ZAhxi
+LAj+kt9Nst7zSsmgABultN5lr+kmoS07OnpGBZA3LL1LtnYRvSmLVqwQF8Kg
+NM2dW0EjN2UaYDZdiHjFm/rVZR1EWinBeauMEKuuXtZdf6+dsFdwo0IUhXib
+H+O1LbyV5Lm8/PJKUwjtc1JjFZUNZNa+Ix3ftYVIMFnReOVUPYn1Uxvu1BFi
+nl7+2THTOrIn9qySuJEQjycWGJdk1ZC5hdsObbYR4pBL0lvtzg+UP4lHe9oL
+keW4ce707koyWvE8OchRiG8lDv/Nu0tIbd2CskwXIc6aGNoe5ReT84L+qTRv
+IY66zthzSjMHG4MufS70FSJOVy7TIvIhpvatvxB+VIjCwi0ppxJLcaIqdbZ8
+mBB/DgSVeXx6i8Bso0VWZ4Rg2b49stilBjqynX1yiUJk1h4wEdn0E/3xifc7
+LgjR55q3sNeuHvt921eGXxIibbFFToh3M1yM41GYJ8SN97SalpROzH64fEp4
+gRDuwZ/QU9KFGrWGj5ZFQogmZN8opHfDTnKpY0exEDWdvVZNNn0wbareLVcp
+hOJddma0Rz/O7L7vLF0rhMj/+4bwf0Dfqy0=
+ "]]},
+ Annotation[#, "Charting`Private`Tag$5627234#2"]& ],
+ TagBox[
+ {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
+ 1.], LineBox[CompressedData["
+1:eJwtl3k8VH/UxylrKhQKKcpahCK0fUglLahfobJrEYqKUlpUEpI9S4RKlkgl
+Kiq3tKAQomwzwxgzd+xLCTN47vO8nvvPeb1f536/95xzz+fc71Vx89l3dJaA
+gMABQQGB/7Xju07dt/Hx3dz7/zbkiIbmD3Ur9Pmum6ihbM0Ay/OOuhO2HzF9
+FkrZoZfmEd7qpxBq++f+Qcpelxtd4qB+BY1xV49IUfZ7xc7u/9QjsbvzgLia
+WiR8Ms5VWaunQft9dG68Sho+RkS83aNegKMe/vLHFhZAWOSMKNeTwB690IzX
+sgQsr7reLLatQKRLSc7g9694feEo7XF9LfqaXu2ui69ByyEv3TPnf+Ia41dU
+/IYGSFvcOfbR9DdSPp2Sf6DdBKnGo4VGh9tQ+eqlvZ9QM0z7zXr2e7VBb3Il
++9f8ZviKLF1+JrANum/NtdbKN6Pe+FdMfgp1f2rl52adZsTe335apb0Nw4x9
+As22zZA9rqEn4diOqPWXhTOzm6EwST6lO9Ew+G7c2mlrC1Yoe+fedGPgo0Jo
+SNmJVkTQVR7cOc3AHcn725mnWzGW+jvpbhADkgqpwzMXWlEpbx76OI0Bccuw
+Gc3wVngvVDj+pZUB3q7Y9/pPWnF49pHY61od2KyW+FuR24rHY9I25Q86MGvR
+bgtztza0NvXt2p7bgY3sMq2ME22YX1xh8e15Bz74330x5tuGgLOX0UB0oOU7
+LSf6aht2DpGrmbQO3GEJT55PbcMAl5g3S6ETH3KTLBc0tcGYdvK7WWwnymxf
+1Rwza0eB1hlZj3udmJCz9ru2ox2q5845Rz7sROz6hH3x1u2Qkrw62lrYCbXL
+MXkPqbpwTaMV/X524ggpcdP1QjvuZRZ6ZckwESaYFnL0WTv4Xv8kJBKZSFiv
+fcJPloYzb3gH9NOZaF//qi9akQZSSCDDLpuJirxV+x+r0NB4X8wg8zUTq63C
+Phfr0PD0h7zDpmYmXESEuvy20eC0dmO+j3wX7N3vNJ84S8PHyaDdjSld8IsK
+qF9SRa2XPzPm86gLx/+0EK01NLCN3TMk8rrQX7jENqaBhrnnt/3ZUtqF8YXL
+zpBtNNiOiqe+aO7CHAcl3c0DNPT0xvZGyrLgNjtx7KY0Hfw5wXdXKrGwzuiQ
+T40sHZIr/fFVlQWxojifeQp0GHjYxU2tZeFRsuP0ueV0XGUpbvDex0KwqLTS
+0Bo6ZGiZ4ZZRLLhf8ksL2EeHOv+uQXcCCxsfL0yzsKXDRPEWPSiNBc9iLWHJ
+Q3Q4HTyx5s1Tyr+qSvCWKx25TTqt6tUsEM/3XVb0pWNz7SstIfFuGKvWlTfe
+psODqKwsu96NUzVpXy++p2PCRGq5QXg3ykf2Zm79QEd4kV1gbkw3jI6MjIt8
+oiMvl60Tn9GN5PRnM36VdAzECcWdKOuGyPelNmMNdPh5mDrKTHZjrs2iYxFs
+OoS7br0KE2TjZ/315naSjgTHH5IzYmyMDv7KVOul4/U+p3LuIjbazYS2ZgzS
+MbnxkgZhyIb+M1lPk3E6gqTfDJ84zcZT7T2fJkQZkI6Y2ckIYONSbg2/VpyB
+hyIWmfuD2GDvjTibKsHAJ16TLaLYMC14LK0syYAIe/StzFM2iiJD6FWyDCS6
+bJANL2LDc3xtncsiBjTbrp+aecvGhfDeocHFDFjWSav0fGODmXn0zZgiAxGl
+uiEEyUazhtTqLBUGlAzPMwyG2FjITjg2vZyBgmdlxk/+sTGRLP7BSpWBH5l7
+euNFOLi27kntb3UGFkR52XiqcjDoUqB1exUDj8Rf5jJWceAU6WGcqc2AQfDk
+rANrOehaKHKoWIcB2wthxdjCwSqD/lpCl4Fk92wFWRfKXxFh5b+WAe9di8u1
+PTh4KhHY6WLAwOa1YSe2+nLAuSctaW7IAHOW15uzQRyoy9vp965joKinzfl2
+KAcOvQkqL4wYuNWwW/RRNAeSPzIenTRmQPvhatuGDA5uxZvs/2bCwHRY+hQ3
+hwPelMMVz/UM1J2Weiz4goPxW2f1BTdQ9T54bbd8CQchSTu8Iin2NxsZ1fvI
+wWnxHK0FGxnYoeWesqOKAz1NJ88IihWkG7e41HPwvtho1RTFfeNbe863cODO
+FvQ8somBso7imKhODp64hquWUxxdqW6SzeVg2ZZ0e7nNDLg9T+woG+bATFZS
+yJVigySx0F8THFi15ag+pFg06ILugCCJZaIb37RQ3Hq855fwHBIyV5LeiYKB
+fOvDV5QWkGhKjNTVpviKUbWaoQKJ7UsH51tQbLNsU83u5ST+23Pb3p7i5aIF
+fkdWkvjdYDDHheK/A0uXXFpDwqf2vYoTxZW/oj7FrSfhWj+euo/ie2UCXnlb
+SPjT31zYRLF31ukFn3aS+HyivngpxZsjmSWt+0gU2ctZj1HxSZ37z3XkEIlS
+QQfzzxR3OX4Wm+NOYqP2+ehQil9tM3yu4kXiptQmA3OKQ3Wy7EzOkgixu6H9
+h6rPIdlFMzaBJKoVlM+nUKw9dSvL4waJPSyutAnF06zxPUG3qXwKXk9WU/Wu
+rz7xNzGOhEOXi64dxedSd22teETCyePxWSvq/e0IftdLzyOh+H74ylvqfSt4
+68SNvSQxKySwZinFxAZJptpnEg2WBasqqX6JXREUtqmaBOuLhNF8io9IDOsd
+aKTq+Uby8k6qv8TaGq4Gs0jMrgp4/pjqx9Zyc43UPmr/zrvJn6l+zX9SVPvy
+D4mfblVFLVQ/772YoNQlxIWIPRnA1mdA1U30y+RcLmTXRynR9RgYswzwXiDL
+Rb7bp97vlB7uyR96a6bGBVPZmh9G6cVb8LvbQR0uDBOOrj9E6QncDXNOG3Kx
+QfpWsjKlN9YbpYMZ27jQiTpZGKXJgI5959j0US4W0k4v/EfpN3UBpm+f5CJ2
+u9z8WErfc2pSheX9uRBMFnJTVWaANLOXWRvMRYsqa76uEgOZq37oH3/IRbL0
+l93tcgxqDmib/MnlormkulOfmi/XM8JNr73gInHat/zKQgacZbdbp3zgYsGP
+Mudpah4pzLzz/kHnwuZ2TWu8GANhJQp+Dmwuaptl72eKMDB+NiCQ20/FM+J6
+P0+IgSZybfjsKS4W6WFvugClj4Yn2UaKPdBb+tJWiZqPIllJzHS7HtxQKnY6
+002Hv8sYV9u5ByYBj9b9ZdLBUtg/XHKsB/U9Gfo+HXR8jJIUaPTvAWtELnxH
+Gx2XLoQoicX3QFlpeUJ0HR0ju/3sfet6YLHC5rFfCR2uog3OU797YH7vb7fH
+KzrqPuoeD2f0oIMmrLv/JR1P1/X6Zw70QDuj8qfkU+p7ouwW1zy3F+Xmd00U
+M+igj1rXmlr2IuS+qfC1YDoiFX+v8N3bCxuBXtHEIOp7ZO50If1gLySUTdwe
+XqIjPdZbdfpEL0o3ecsm+9Hhoh928W14L4LM/m0QOUJH16ly9XXVvXhgbFVC
+M6UjPsHy0tHGXtjvW7Npx0Y6tpbV1ce39yK7IflfthEdmfMYl0b7euH1okTU
+YjUdx/J5Dc/n9eGW1KfDsxXpILkGV1dZ90Ep8I7Y2REakqTfNR6y64Pogtpp
+3X4adpiYrwx37sP83bQ5TA4NuaF7m0ifPijKWjqo0Wjw1Di1Kiu6D+5GiXma
+FTT0H8n+rdzQh1/OfkbKyTSMMOT15A70Y020yt/PBjQou/8zWObYj5Z87gBW
+02DNbjTRPNoPK4VRtecaNOT3RZmv9++HjfGerb4KNBybELZzutsPxsy3eT4z
+7WhdMHI5q6kfcgVRa45WtOPjtm/f19kOoFTEqFqdOl8NVWbXwWkAm+QHGrdZ
+tGPp7ptNO44NgNtcwjiIdlzcZ8o4dG4A86TM/7jotsPA+dXIlYQB+Boqsnvm
+tyMn4KF8xa8BTMvJ2PZ9b0N03sXjdnaDOKRx+HPSpjYcFtxW3eQ0iGH91i9/
+DNqgbiepv//YIKputgtbaLfh3azMSRv/QXwzzNpQq9AG8mDNnZ1xgxh/yjtw
+/F8rIKZctOnHIOYXzhH6VNCK84VuArErhiArstdCTq4V6pJiewJShsC4sNuN
+9rUZ+UPXskLTh1BRO+BXXdqMNQ28maRHQ1Am/B89K2gG7g4WluQNYThXb8++
+hGbYK/5ezHs7hMAyz4diR5sRrpHFutw+BJeGlzVGAs0YwNZLN5SG0TnQIx6v
+8xuvfIPyItOHcd3P9xTLvQnhb4eKDj4axpasb69rDzTBWcS1TDV7GCWC2F5g
+0QSxVLP60oJh6B2Q0dmzqgmHKmb9Y78fxq7cRr74SCOmlW5uQfsw3l55G3Dl
+ciO2fQ9rGVw8AvnxyRjLiJ9oVIsT3Rs7ggJTZ2JpWD1Ub/zUdEwexXRx7Cpo
+VsHEhmGQnvIHctLCpyqT3oLme3PznYi/WLb7QsUn19soNDk470vMGLpqt5qd
+Uyol5GwrWnJu/kOGYLpfr281AaZATLnfOIydNXP2Bf8ikuU85qkHTFDn5bas
+1ZodxJslNrsGAidg6FDQvHhDB9G83Djs1dUJzHK21hOx6iAW64oJW9yagOZT
+Jod7toNIsMjhH0+YQFPWY0/qv4CIDyB7c4smsCNE3WmufScR2erxTWd4AkTm
+vmypMCZR0GEjNvZnAofxqkM+lUnUsI23l41PYEjCiVR+xiTmjoqVWwlMwtOp
+yVajiUnclsgt8ZGchHLCiuF5Kl1E6EZuzgudSZy3Paw89bqLuJ524pah5yS8
+Rl+rvWawiC2Hj/VZnZpEkIWLv/Uoi5i92H2vx5lJaKzozWgS6SaCYxwUUy5O
+Qn8HZ2+OTjcREmz9TOD2JA7Ltq+yvthNhHka/v6eN4kcmw3iNfPZxE6NNRu7
+n03i6QQ7plGZTcxhrX4w/ZLa32z2QMkaNhHuqOml/24SxjtlReVt2USEjeJM
+QvUktmyn/5mVwiai1wlquPVPwjLT6qzhEg5hMzp1O3CYWt8mudx7FYeQfj45
+FP93EjVdy88eX88hYrX+lFZMTWJWTo1wph2HiFvCsdKZz4Pnth7hyUgOsb+l
+6+X2BTy8Pq+7STGVQ8gkdCx2keOhKFU9azCHQ8RLtjJjl/KQ9365Ws5HDpEw
+q+bc+GoebImHqfMHOYQtUdUmvZaHgrOOyUETHGLRpa+mq4x48BHmK0bPJomk
+v8QcJ/CgteWJR6AcSdgXvvM5b86D1EvZZptlJCHvU9IYbcGDc4/QotcaJHGP
+LEz7ZM2DWlC+raYRSRx6/Gw27T/K3/xrm/ZmklB0y/cYs+OByTToKNxKEu1L
+c2skHXhYnrnY+c1Okkhte7xGy4WKz2Og09iGJBySHiZuOcLDP62kk3oHSGLJ
+gXT+YQ8eZu392HvvILVeOtXV35sHt2C9lX6OJHG/NulrpC8P0ckyra9dqPtL
+TGff9aPyuXzypq07tT91lkkJ4FH/06xLDkcpf2T0pQeXeHgZesn+yzGSSAkw
+LskO4iFXdSA24jhJKLh3/H0azEN16XDoU4rv7QldUxTKw62E4IAV/+s31vMp
+jaDyEdIK4lL7JS9vzvsQzYPr6PK0Sep5i+cFkV/jeXiR8+zZXleqnv801GqS
+eCjMN/blUvEuZv5w/ZnKg8fV6wHvqHwSq8+ntWRQ9eX92vRlP0nIvV7Wxsjk
+wTxAS3raiiQSHlQsYufwcCfQaKnrDsof4bO/L5+HjBePPElTkrh7blHMyHMe
+fiTNabpjTBIyrkTNeBEP3EoZmV26JBG/6/icmTc8xJBBxfJqlH+dpIXwex6s
+pVcqjcqTRJzy6xsSH3mIqxYJrptHEgsknD9If+FhyRHVf08ESCL2r8jUoioe
+sv1SbANHOETMN9tzqvU8dI69O9vRwCGkiqcLVzZR+TovED1G9Vt0etagXgsP
+iusadT8VcIgovzGPTZ08nMiTruq6ySHmO6c9Nu/mod3rzcUEHw4Rabmdacml
++i0mz2yG6vc7SxMO2w5T/rSTxj9UOcRc8c1JDn95OC5wpn+FOIeIGO1udJvg
+IS3mKiHexyZuVxpa+QjyESrgrO/6lNLnS1q4vzAfKSLuPmW3KX3ev1kRKM6H
+qSRndrAHmwg702QaKs2HoJVb8hIlNiHmePlypCwfG/Tilrf86SZCLdRK4+X5
+6E64IVn/rZu4tcR/7QMVPnzdNs41P91N3Pwqo16qz8eS28GJtVksQujFO7cP
+hnzUMjKMRH1YRHDKkfSvJnyYXIxavdCQRdzwLVr804wPvsx6tmdpFzHrsMOB
+lm18RLJcs5MuUPNrm1Asw5IPs4kF7xzXdRHXFPZL9O3lQ/epVd3JHCYhIMy3
+GDnAR3bI6bpERyYRNPgoePwgH3l/a5UXSTGJq59Hp4Tc+Fi7Vd/sh3cncflU
+3JDSGT7sSLvjyrM7iJ3l+jS6Px+yUjoLrK0ZxGK5uqr0C3y4c2b3FsbSiaL3
+cx+pXOPDcnfH22FRGtEzN+SAWjQfh2IZZo45LcQbF9Ut7Dg+hmiLsld/aCZC
+ispXZyfyoUm/2ahT/5tQcZgR1Urn4z9hg0/S9CbCPi+gVLuAj3DR+PzytHpC
+fUYuu/8FH5XMUZHDgXXEn33FcQXFfCjGhLZfT68loiaHvfXeU/Ge9H/hVVZF
+fLX0WmZQzUe/9WTX+91lRPx98bl/f/ChxXU99fXhG8JtOHu8+Ccfqj895lyr
+LySmklj1Rm183BrUPPG16R5hQDoGb+jho68qWFT2xkvM2sj35ffzcX/nl4XP
+r5WiLuqe4/thPnoD9fSe/P4AL6Pf6zDBR2bir6LpPZV4GGLD3SI2hfuvt7Gv
+rGuEb+tA0+y5U5D0XCMzcfgXNq++U/5Zcgp+JXelrkY1o6WpKmX7oilskDvn
+OqxCg5SaudVO9SlkGjivbLjSBXpA53qJlVPwulK1479aFvKrr2pU60xhrp27
+moE6GxZ+7wSsDKdwRnJe/s9BElc+Gb7cu3UKnu8N7ccHB5B5KCi8YfsUBP7v
+GsL/AIyU8no=
+ "]]},
+ Annotation[#, "Charting`Private`Tag$5627234#3"]& ],
+ TagBox[
+ {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[
+ 1.], LineBox[CompressedData["
+1:eJwtl3k4lG/Ux6lIlkQUI5UWKYlCpe1rJylLsqRSVISfFhXSoqKQlDVFUYlE
+JWlB9dBCoSwZZMwMZsbM2JdsMxPv877XO/+c63Odc+7rzNnu+9HwPO54ZJqY
+mJituJjY/8rxHQH37Y+f2Nbz//La4RVaNZq7oGUnHPtJyp99bN+bmgegJ+b0
+LJKUA6/NYvw1A2CrbxbtRsor84YX7NO8iByHT8pzSFlVYcPZrRkLNf+Lv5Yu
+j8XxjLM/7DQfgE8ISm9pPEBZTEzJTs0XMLrx8pHj3BeQkDw1k+9LQNta7bWn
+MoHtlw5FvHGuQNIzWTu/qnK8CzlCf1L3C/uDPJ7mJ/zEn71+uqeCfiPwYsrO
+8E31ULC6ebTMuAkL517YxF9FxZyGIwUb3GmIqM3WqBJvhnGvSZeTHw1DoR5n
+Vso244TkwiWnQmmwHLp27vK8ZtRtbIzLS6Xh26LYmwu1mxF/3/KkRisNVaxr
+EbJOzVD2XqEns78V6ysGN7zJbAZFwHvOOEDH1Tp+5nKTP1i62D8nwpOJEssc
+EftIC2IYGg9vnmQiMXOkYnpAC0bTmlKSwpgoVjU/t+BsC76rmkU+ecBEv4Py
+jc3XWuA/l+L9rYUJmWbuIr2sFrhPPxx/ZWUb6h37Vw2yW/BkVMH+88M2cFNF
+EV/209BC7dlhmdOGQMvDI5QjNMx+U2FVmd8GqXf6kv7+NAQHXkA90YbFOUHT
+hedosBngremgt6FS6qVe9R0a+viE3DRKOzpkrIONamnYSP+vyiS+HWHrvXl6
+W1rxYuUpZZ977eiMeUexMGvFsrNnPWIftUPbYPiSg00r5shfGm4paMfD5zea
+HV1bwTe+rXb6N6mXmwoaC2zFvcwCvyylDoQGdi0qz2mFyG9MRuZOBw4vmF94
+VJ6OU++Fe9amd6DHL2/leWU6eDPEMlyyOxDh5HQxSo2OhvtSBpnvOiDtG1V8
+YwUdz2tU921t7gBVxWf9GtBxQH9L3nFVFlSV20U8fzrKBGG2Daks6P9N6Fr6
+mfRXPTV6/DELlfu78lvK6ejc6JUhk8uCXVwdJbqKDtkgi7+mxSy4qmjV1TfQ
+4Tw8K+1VMwtL33BiZbh0dHXHd8cqs7GyM+K6ijQDIunwpFXqbHhHUONdZzMg
+v+oMypexwWnaqhGnyICBj0vCP302dHS3E90UBi6x1Tb7O7JxdWSkwlKbASV6
+ZvT2W2zUR7nbxNswoClKMuAks8FyMk1228WAkdp1RtgD8jyqvoWqIwMH3I6t
+e/+cDcNik6+X3RjIoeq0aFazMZ3uKz/mzcC2X29XzpjFwWiZw8KTVxnwIb5/
+/3SFg6ee5s5JhQxMGM1ZYhDNQf0aL4rLOwaiC11Cc+I40Lw/20GhmIHcnE6d
+xAwOVoeUzD5OMNCXMCPh2CcODn9wSKn5wcBpH+P9SgIOZj35aLuUzoAE6/rb
+KPFOqA3P8PBjMpC8v0Z+SqoTlps+l+e2M/DO8cBn/vxOjO48cku5kwHBlvMr
+CMNOZBvU1Mf0MRCm8H7w2MlORP05dEtqkgGFmCkbZnAnEqwlNahTDDyStMp0
+CutEoJ5X911xJr4Iqc641Ynls5culZVgQrJzuETpeSdORjX2xMswcefgZuXo
+wk5UdrgoasgxoUW7EjBVQsZXv9szezYT22sVNLoqOzEw8OhcmgITMcW61whe
+JzyvSLhrzWdC3TCIaTDQiadhpY+CVJh48fLTxmdjnYit+ylJqDJRk7mzO1GS
+C9+cugXrFzBxcFGSufRsLuyWm1YdUWdi4G7r/UvKXJylj5MLgwnFW372vsu4
+UL+jZ/dtMROPZ73OYWpzUbJhjTVVgwmDcMG0PfpcPHT0s6MvYcI5JOoNTLng
+0DIuU5cxcdcrm6J8kAv96aNmR7WY8N+h8nm1DxcvF9bUW61kYpt+1DHzE1zE
+/fg5umgVEx3T/N4HhnHhlOE08lqbicIumseNSC5yXH2rjq9m4nq97czHt7no
+f1+qs0SHidWP1jjXZ3Bx6bpdrO8aJiaj0v/xn3LhtUQ1UkyXidqTc56Iv+LC
+6pOFxE2SH7ldtlUt4iJUMX36HD0mzpgMDeuVcfF4e39YFMnWK71SrX9wkS8u
+HjpBMkWhwfRgHRfJO9L7PdYy0TNu3hX0hwub3KTWDyR/ansTd6ud1M/Px5x1
+TNz+rmmUzSfjmyiet5dkz/w7bZ8GuTi25qrHPZINUqQiGye4uDi9cX4dyTPD
+QnT7xHmQ3HR56yTJLd5djRLSPIzO2P1LQ5+JPDv3i+qKPByfRfm+meSLG6qX
+G1J48D7wRMuWZPtFW3/aLuGhIOZrryPJS2a+OH14FQ9tsVbK9iSP9C1ccH4d
+D921k2lmJH9vvPUlYRMPZ/VKruiQfO+TmF+uKQ+mop1f5Uj2zzqp+MWGh2N/
+Iz3YZDzbYjuKWhx5kLHZ5viK5Dlndx8a2suDQbrxvdMks/Z/lZL24oEm6WW4
+huS3Fob5Gn48ZM0I0WCQ+YnUyXIxCuShJsZ5XzjJe5XnT9mH8qA8o5a1mOTV
+/65n+VzlIRXFb16T+Z5kj+8Mu8FDfnhXzRaS66qPjdxJIM+PXK/3gazf2bQd
+5hWPeQhsOFd8n6y3dfiHbkYuDxffLm6bIvuB4q+TMPqah9yYrWauJBOb5TuW
+f+Xh67wtRd1kP8UvDYvaWs1DR/uvCk2SD8sM6u1p4MGiZpOMK9l/UrT6S+Fs
+HvwkJbTuk/3a8tlsRVoPD25t8//lryDr8azw1+u/PLwU+U8WazLhcC5ZnTWD
+Dz3mjguvyH5f5jnzm0CWD8ncm6P3lzIxuj3YX1GZj6NfLyeEkfNxT3Vvicly
+PhKejuhqkfPkL17l6abDh1a3nnYvOW/gb5Y+achHmG+SyVNyHtnv1d0yLPhQ
+/r7nnZgaEzqu7aOTR/i4nqRzY5MyE2mKmLzxHx+VvyaaKucyIf0zTUL1DB+2
+6zjBjopM8ExclfTD+dDQMMq3kmciU7tmrfcjPgpsvn39IcXE3M7VRn9z+PBB
+8BWlmUxcyYg2vvyKj1b5+GvO5H7yULa0Sy3lI2XDMvdScn9Rpj741zD4mNwo
+kNAWMBBVRDm9r5MPLy/VCt1xBsYDg0P5vXy8fygs1R5lgMrTj57+j4/ea1td
+Zw0xcLv+WfYGtS6Uigw5e/kMSGaldKS7dIF1UvRvTyMDZw6O8ld7dIF6SDHs
+528G2BSnwaKjXbjHalu0pY6BslvyYg1nuuAtPfBqsoqB8yHX1KUSu8C/yBpQ
+KWNgyPa064naLjjo3vDKyGHg0Mx6j39NXcjbv3M8MouB2jJd72hmFw7qzr7t
+85iB5+u7z2T2kfZreGWy98n7ZrFnQrNsN0ooyWL8Wwwwhu1+GW/vhuH8R0H9
+gQzEqjUtPeHQjWGf2NPjx8n7yuxASLpbNw5Ny/o86sdAerz/sslj3fBnCrf/
+9mLg4NqocyXR3TCppFXK7GaAFfBZc311N+K3pX0J1mUgMXn7+SMN3XhoEfCH
+uooB80+1dYmt3ZAb012kpclAphzz/HBPN6L1TdflLWDgaJ6wPl+uB9dix7es
+m8UAj29wSduuB3HXS1UM2uhIUfjQsNelB6MDnetZLXRYG5mtivbowUdxncPX
+qXTkRDpQecd7YFQ4xHpRSYfvigDtrNs9sGCcwblCOnoPZzctru+BfI1Zhtg1
+OoaYqnrz9vSivGy09+NiOhZ7jRks2t+LItudoasodNh1NhhpHelFWiAQM5eO
+vJ5bZpvO9KLWM9BLV5KOoxMSLgeSenEzO4U33NWKFsWhC1nUXvRqzjY7XdCK
+MovKqvXOfaA6rVhvYdSKge/ZtTjQB6fFNwROa1ux0DaCan20Dwf8Vha7rWzF
+OUdj5t6zfaDFf15qqtoKA4+3QxeT+yCdueG/2HEangY/Uq1o7MOb7i7juW9o
+uJ17ztvFpR9ivKktZctpcBe3qKYe6CfvA6t1s9Vp0HSRX+t0tB+0xj4PByUa
+PkzLFNif6UdVxO0DxdNo4Ln9vGmT0A/f2zml85gtgNTiwq01/fgX4E4dS2pB
+UIGnWPzSAcj6vN/oIPoDTXmpncGpA5DUy4lTyG1G3sDlrMj0AfI9TU3te9CM
+dfXCqZTHA1izx6KYiG8GkvoLinIHkCfHWb3tXDNc1ZpUhCUDMFWSeJ9r3Yzo
+FVnsC60D+Bw1TrdiNaEP5uevqg/CqmPftmD5Jrw9EZYbmz6IzMohYzczKqJL
+BgrdHg/CIya4Tc+QCg/JQ5+WZQ/ijZ7cp3+aVEilmdQVvxjEVQuhTpA0FXsr
+po11fiT140tLeLUNmFSPMEXrIOKSvfd/c2+ARVXUn36VIbBfzPF2P/YbDcsT
+ZjrED6EK5S/zveqw7Opvrf13h6EUkCAi6r7DyJ5pkJ76FzOpTj8K64tBPxGx
+7WbMCM5s+huy8Ug4Cozc5L7FjYLyaV20lFoJMc+54s/TiDG8s312q3yymkCH
+WNzn0+Ow15/TsLm+kbg7z0dOM3gCBsrzHn6xbiPeL7Df0Rc6gfBCoyfG7m1E
+85KNUW8vTWCRwqOMkv/aCBVdKQmr6xM4sNHN/Fl8G5Fs9VTknTyBULtd8w61
+thGJwbzunMIJVH8wim0PaCdiW3wqdQYncNZwHuVXTAfxos1eavTvBArqduxb
++6CD+Nm50fLTOOlfMpx0+WUHITss9XmXmAAasnMCOHUdxA2ZnKLj8gIsMeoI
+z1BmEZFb+E9f6Qhgwg/ij91hEU9N6zpD1gogZ/Tge342i6iwLlpmaijAxi8z
+fpi/YxGSe6Iy6rcIkD5lcWCcyiIi/luZMrxDgKyym7GeCmziyoNj1w19BSjK
+2mb+8SKbMHU/2rMrQIAvjjv1/GLYxHQVLwefUwKE9LCVqu6yifC4fWqp5wT4
+dy74YeJrNmG+yy2s8KIAdqHLRsYINiEh48z5eUUAtWD5O2LVbOJauN1LsRvk
+ecKh7uEONmFpYqtEuSVAj4exT1Mvm5g5aR2inyBAnH/qF4dxNhEZZGp2NFWA
+T98G7IUyHMLaAE8vpQugp6Jlu0SZQ0gNbpa7+1iAzOxfb2vUOUSUr2FTVa4A
+ugEPOnN1OITNinVbOC8FcC0N211nwCGk2WseTr4W4OeKwfO+mzlEZYa2pMp7
+Mj8Myu5TJhwier+W39oPAswskUtjWZL+lOW1NqWkvfmJofc7OIRMk4bh4a8C
+DESs+9pjxyGqExbeu/BdgCuvljmE7OYQMfZqU8nVAuxOSchxdeYQtnIqh/Nr
+BeR3aFNeuCuHkKtU+vGjQYDt92tmjrlxiF/XFNawmgW4WeOhn7OXQ8SazU4Q
+tQowpdNwKpHkXWIy48rtApyOta5/RdrLf5y5X5cjwDb78WUCFw5RGzLjszVf
+gFWm16Yf3cMhbq8XX+HZS9azY31lrwOHsB/+dyN0kIx3w/I7UTs5hEK+YCBx
+RIC0eBfrtdYcot5/bM+LCQEWLGCEtJL/P37l3+KKfwKYddddvbKJQzh2Dixq
+Fxdi6Qm7YMo6DqH4uDdcICHEwai9GqlapL9HF3+utBDnbUomBWT+ExZwd+nM
+FiI8sMJMT5FDOP1hvbZUFEK1bx5VT4JDKCW3qRycJ4T/MQPLoVE20eBIvxBC
+ESLr+dqmY1w2kSjf0hG/UIiFstqnYhrZhFN1o1XeEiEm+r893fWVTShH/c77
+pilEiFb0q8x8NpE87efZ8TVCTJstu4UWziaciR80BX0hSuMbbB75s4n558uN
+tTcIUf5hgXGlI5tIGSGkD0CIyYCyaxIUNuFa8OF4kJkQjYO7KCIBi1A9XtRw
+20qI2wddFCktLOIer+DBFzsh3E7R3t2MZxF7n7ycTt8thEd+z8hnPxah5pnn
+M+oiRP5kYAHDlEWk0Z6sW3lQiIvZAr2rXR3EvpRHd0wPk/nguXtwizuIBXvS
+Re4+QiROk6XzIjuI+79SymNPCKFfGOl+Wp3UFxlPTzpN2us/T+Kx24k08u2Z
+GkzmY/+ahWU57URq8Mai7DAhrB3bbthotxMUr7aR5+FCJH0dS6nhthH3dkau
+K4wUQmp48+ZDD9uIu0uac0tvCzHH75v1DhlyX8mF8coTyfMnLgyxzzKJlLEV
+y3+mCBEXnHfxei2DuFMd9OBPhhAnS6oHhgPoRNLZ+XFD+UIUmc/ZtdWxhVA6
+RPwcLxTiw7d/ltJBf4jEHd7SU++F4K0pv+qc0EwkLH53VaZMCEsjscaDrxoJ
+RRmPUoVvQgSZHlVNLKAS8SOS/+b/EMLE/Fi73rMGIq7S+eyyOiHUmduY50Lr
+iTlvJgtWUYXQ/ZKeHuNUR9xOz+rX+yMEoXGLVruklrh1etRna7sQNX7RWSab
+q4ibC5PdnQeFYBZbl9tKlBKys7al7BsRgv3K1PJmXxERM8xp8Jwg+0NmseO3
+1NfEje+Gu46Li5Br7+taoXOXkH5Njz4jIYKOo/3ukZdHEX0/oiJ0lghKsl/f
+cGrSEXWKahypIEL/ySkHmt47SO2/cCFWWQTWAwvI6xOItFpenKgqwpGL3Na1
+H7/g+oIz+g81SF7F87Y7UY2IciXN4rUiDJ58mSuqa8KMVx88Sw1FaJi1SrnZ
+rwXhqYfTy41EEJrq5QWp0XH1RKHKbxMRztyb+9vKox3T3Pft+WMhQlLs4fd5
+fzpwxWJGPHO7CKmzvTdZHGTjMsVJpsdBBPO05MTzCVyISYishvaI4Em4+zcZ
+k+/6/sfh424i3PvuI84QduHS1+F/MzxF2Gn9bufVtD7M61F3+n1YBLH/+w3g
+fwAoUbQl
+ "]]},
+ Annotation[#, "Charting`Private`Tag$5627234#4"]& ]}, {}},
+ 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]],
+ ImagePadding->All,
+ Method->{
+ "DefaultBoundaryStyle" -> Automatic,
+ "DefaultGraphicsInteraction" -> {
+ "Version" -> 1.2, "TrackMousePosition" -> {True, False},
+ "Effects" -> {
+ "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
+ "Droplines" -> {
+ "freeformCursorMode" -> True,
+ "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" ->
+ AbsolutePointSize[6], "ScalingFunctions" -> None,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ (Identity[#]& )[
+ Part[#, 1]],
+ (Identity[#]& )[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ (Identity[#]& )[
+ Part[#, 1]],
+ (Identity[#]& )[
+ Part[#, 2]]}& )}},
+ PlotRange->{{0., 2.99999993877551}, {-1, 1}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {0, 0}},
+ Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{{3.82938743725876*^9, 3.8293874635329113`*^9}, {
+ 3.829387796683503*^9, 3.829387826873034*^9}, 3.82938836654327*^9,
+ 3.8293884201307364`*^9},
+ CellLabel->
+ "Out[674]=",ExpressionUUID->"b467e01b-245b-47f8-89b6-6454d4ed164e"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Show", "[", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Abs", "[",
+ FractionBox[
+ RowBox[{"gC", "[",
+ RowBox[{"#", "-", "1"}], "]"}],
+ RowBox[{"gC", "[", "#", "]"}]], "]"}], "&"}], "/@",
+ RowBox[{"Range", "[",
+ RowBox[{"1", ",", "15"}], "]"}]}], "/.", "#"}], "&"}], "/@",
+ RowBox[{"{",
+ RowBox[{"sol6", ",", "sol7", ",", "sol8", ",", "sol9"}], "}"}]}], ",",
+
+ RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{"Plot", "[",
+ RowBox[{
+ RowBox[{"Evaluate", "[",
+ RowBox[{
+ RowBox[{"{", "\[Theta]c", "}"}], "/.", "sol9"}], "]"}], ",",
+ RowBox[{"{",
+ RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}],
+ "\[IndentingNewLine]", "]"}]], "Input",
+ CellChangeTimes->{{3.829385413636956*^9, 3.829385466469141*^9}, {
+ 3.829385870628854*^9, 3.829385887229059*^9}, {3.829386670027813*^9,
+ 3.829386823054614*^9}, {3.829387475330055*^9, 3.829387507970875*^9}, {
+ 3.829388346146124*^9, 3.829388346745919*^9}, {3.8293884468691893`*^9,
+ 3.829388447043983*^9}},
+ CellLabel->
+ "In[675]:=",ExpressionUUID->"cc6e347d-f77c-4f26-9e64-3aa0e0a52e0c"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {{}, {},
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+ 0.012833333333333334`], AbsoluteThickness[1.6],
+ LineBox[{{1.6418079793493972`, 11.763581144379215`}, {2.,
+ 6.210808290087934}, {3., 3.5985482274361367`}, {4.,
+ 3.17406659042602}, {5., 2.9754788377555785`}, {6.,
+ 3.1360647166738347`}, {7., 3.5522078931261056`}, {8.,
+ 4.752889931600941}, {9., 8.029168363048726}}]},
+ {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+ 0.012833333333333334`], AbsoluteThickness[1.6],
+ LineBox[{{1.6089177595582125`, 11.763581144379215`}, {2.,
+ 6.1545218994563635`}, {3., 3.564283182207233}, {4.,
+ 3.094658958378856}, {5., 2.816049738470266}, {6.,
+ 2.7812506815274607`}, {7., 2.851091840366157}, {8.,
+ 3.1663598001871267`}, {9., 3.7180369707941057`}, {10.,
+ 5.00118548415649}, {11., 8.300553837242324}}]},
+ {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+ 0.012833333333333334`], AbsoluteThickness[1.6],
+ LineBox[{{1.558911243805771, 11.763581144379215`}, {2.,
+ 6.044203326560438}, {3., 3.506183358879009}, {4., 3.001981941540806}, {
+ 5., 2.6649585550727175`}, {6., 2.4979682449390945`}, {7.,
+ 2.3788398343579304`}, {8., 2.390019059111741}, {9.,
+ 2.508959720560414}, {10., 2.8322406380428387`}, {11.,
+ 3.4226641691499}, {12., 4.711930355484018}, {13.,
+ 8.391239574076035}}]},
+ {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
+ 0.012833333333333334`], AbsoluteThickness[1.6],
+ LineBox[{{1.5591052786169683`, 11.763581144379215`}, {2.,
+ 6.021450045716088}, {3., 3.495697617377222}, {4., 2.996981757260494}, {
+ 5., 2.6665162881229616`}, {6., 2.5086359996877454`}, {7.,
+ 2.3763153156309853`}, {8., 2.330269273273537}, {9.,
+ 2.320052936709552}, {10., 2.40886089967016}, {11.,
+ 2.5840736484522813`}, {12., 2.935595410015551}, {13.,
+ 3.5273590485340454`}, {14., 4.765103654556602}, {15.,
+ 8.1667468525045}}]}}, {{}, {}}}, {{{}, {},
+ TagBox[
+ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6],
+ Opacity[1.], LineBox[CompressedData["
+1:eJxTTMoPSmViYGAwAWIQPbcuic0wZbbdxCVSf92XfLVnv/1I/a38SXsYf+Gp
++YWv5W/C+evWd97O0XsF56fbX5z5pugznJ/3VPPxlnU/4XwuxRb1+xYMDjB+
+n8BprYUJzHB+0u2Q/cxn2OD8wqMtSfnqXHD+xgKeYAlPXjh/YXX2K4NwATi/
+af6fwC9vBOF8hssPHPZUCcP5aiVpFSFaonD+k6/Tw7j3isH5Xk+zaicVSsD5
+fk8maMvJScH5rw4nNZxYKw3n6wlek3WOl4Xzuey/Jt75LAfnu7+N+q4UqgDn
+3ziUwhilowjnb+04EqfwFcFPYy19cO6cEpyfXFS9lWeWMpyvn659zidRBc4/
+L6TDXWqpCufvXtc0W4dZDc6vZtQKOHMXwee6U+WRt0Udzn+6THHK/BoNOH+K
+hiTLzlBNOH/CrLTjiQpacH7UlNhzPM8R/B8uS3/O36cN5z9+6lRxqF0Hzl9k
+ayh9NlEXzl/bWiqYrqsH57eHJnszf0XwTe8sXNl+Vh/On6E5e+1ZbwM4v/5A
+7wzvnQi+r3To0lMqhnC+Y97xaMFOBH++TJLKma8Ivsrh5dP8oo0Q/tM9pHVp
+H4Kf9pnl4kktY0R63PhJobMfwZ9wiaf3yHEEf99ntZ///yP4ADoHmd4=
+ "]]},
+ Annotation[#, "Charting`Private`Tag$5627338#1"]& ]}, {}}},
+ 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., 15.}, {0, 11.763581144379215`}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{{3.829385449084723*^9, 3.829385466721027*^9}, {
+ 3.829385872666394*^9, 3.8293858875966063`*^9}, {3.8293866955384617`*^9,
+ 3.829386755943921*^9}, {3.829386788179057*^9, 3.829386823245887*^9}, {
+ 3.829387490901478*^9, 3.829387508216194*^9}, 3.829388347111274*^9,
+ 3.829388447320428*^9},
+ CellLabel->
+ "Out[675]=",ExpressionUUID->"35fbcaba-895c-43d9-934e-77663d7cb2a6"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListLogPlot", "[",
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Abs", "[", "Gls", "]"}],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"Length", "[", "Gls", "]"}], "]"}], "-", "1"}], ")"}],
+ "!"}], ")"}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{"dFd\[Xi]LowList", "[",
+ RowBox[{"n4", ",", "h4"}], "]"}], "[", "9", "]"}], "]"}], "/.",
+ "sol4"}], "]"}]}], "\[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}},
+ CellLabel->"In[34]:=",ExpressionUUID->"379795e2-1f10-4c9d-aca9-574975c0b53e"],
+
+Cell[BoxData[
+ GraphicsBox[{{{{},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{2., 0.3058939805973312}, {2., 0.3058939805973386}}],
+ LineBox[{{2., 0.3058939805973386}, {2., 0.3058939805973459}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{3., -2.3237415260246084`}, {3., -2.323741525983753}}],
+ LineBox[{{3., -2.323741525983753}, {3., -2.3237415259428977`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{4., -1.4559292669525052`}, {4., -1.4559292643794253`}}],
+ LineBox[{{4., -1.4559292643794253`}, {4., -1.4559292618063453`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{5., 0.49511742142021525`}, {5., 0.4951174360481992}}],
+ LineBox[{{5., 0.4951174360481992}, {5., 0.4951174506761829}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{6., 3.0940399563540724`}, {6., 3.09404001073627}}],
+ LineBox[{{6., 3.09404001073627}, {6., 3.094040065118465}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{7., 6.1624758838184075`}, {7., 6.16247740087889}}],
+ LineBox[{{7., 6.16247740087889}, {7., 6.162478917937071}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{8., 9.602775387951214}, {8., 9.60277640917097}}],
+ LineBox[{{8., 9.60277640917097}, {8., 9.602777430389681}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{9., 13.351873817000742`}, {9., 13.352514637272591`}}],
+ LineBox[{{9., 13.352514637272591`}, {9., 13.35315504715679}}]}},
+ Antialiasing->False]}}, {}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{2., 0.3058939805973386}, {3., -2.323741525983753}, {
+ 4., -1.4559292643794253`}, {5., 0.4951174360481992}, {6.,
+ 3.09404001073627}, {7., 6.16247740087889}, {8., 9.60277640917097}, {9.,
+ 13.352514637272591`}, {10., 17.374061165823296`}, {11.,
+ 21.625033700634212`}, {12., 26.085288777828126`}}]},
+ {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{2., 0.3058939805973415}, {3., -2.323741525983755}, {
+ 4., -1.4559292643794997`}, {5., 0.4951174360481604}, {6.,
+ 3.0940400107360113`}, {7., 6.162477400878739}, {8.,
+ 9.602776409170955}, {9., 13.352514637272805`}, {10.,
+ 17.36780501004729}}]}}, {{}, {}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{0., -4.546909369396598},
+ DisplayFunction->Identity,
+ Frame->{{False, False}, {False, False}},
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->{{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}},
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& )}},
+ PlotRange->{{0., 12.}, {-4.546909369396598, 26.085288777828126`}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->FrontEndValueCache[{Automatic,
+ Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{2.302585092994046,
+ FormBox["10", TraditionalForm], {0.01, 0.}}, {11.512925464970229`,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 4.0943445622221,
+ TemplateBox[{"10", "5"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {20.72326583694641,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 4.248495242049359,
+ TemplateBox[{"10", "9"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {-6.907755278982137,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 4.382026634673881,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.605170185988091,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 4.499809670330265,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.3025850929940455`,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 5.298317366548036,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 5.703782474656201,
+ 4.605170185988092,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 5.991464547107982,
+ 6.907755278982137,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 6.214608098422191,
+ 9.210340371976184,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 6.396929655216146,
+ 13.815510557964274`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 6.551080335043404,
+ 16.11809565095832,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 6.684611727667927,
+ 18.420680743952367`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 6.802394763324311,
+ 23.025850929940457`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 7.600902459542082,
+ 25.328436022934504`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 8.006367567650246,
+ 27.631021115928547`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 8.294049640102028,
+ 29.933606208922594`,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 8.517193191416238,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}}}]]], "Output",
+ CellChangeTimes->{3.8292190385400677`*^9, 3.829219088509445*^9,
+ 3.8292203752304993`*^9, 3.829362528741741*^9},
+ CellLabel->"Out[34]=",ExpressionUUID->"e32fce1f-84cc-4e58-9ec5-270c393270f4"]
+}, Open ]],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"n7", "=", "2"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"F7", "=",
+ RowBox[{"RF", "[", "n5", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"h7", "=",
+ RowBox[{"h", "[", "11", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"eq7", "=",
+ RowBox[{
+ RowBox[{"eq", "[",
+ RowBox[{"n7", ",", "h7"}], "]"}], "[",
+ RowBox[{"10", ",", "10"}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{
+ 3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
+ 3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9,
+ 3.817564534320574*^9}, {3.81756485534698*^9, 3.817564862343175*^9}, {
+ 3.817564919676697*^9, 3.8175649235785027`*^9}, {3.817565106996109*^9,
+ 3.8175651474217367`*^9}, {3.8175652415905113`*^9, 3.817565250029232*^9}, {
+ 3.8175657444559927`*^9, 3.8175657689660788`*^9}, 3.8175669120549498`*^9, {
+ 3.8175677716518087`*^9, 3.817567773706285*^9}, {3.817579700926876*^9,
+ 3.817579701354711*^9}, {3.8175810533593073`*^9, 3.817581114447541*^9}, {
+ 3.817581149854197*^9, 3.8175811499220247`*^9}, {3.817581265163169*^9,
+ 3.81758126542041*^9}, {3.81758144220247*^9, 3.8175814490334673`*^9}, {
+ 3.8175815152710047`*^9, 3.817581521148234*^9}, {3.817581635837187*^9,
+ 3.817581700879589*^9}, {3.817581767691791*^9, 3.817581768673394*^9}, {
+ 3.8175821842992363`*^9, 3.8175821844066353`*^9}, {3.817582286431714*^9,
+ 3.817582297101211*^9}, {3.817582488847374*^9, 3.817582488974349*^9}, {
+ 3.817582803954041*^9, 3.817582804222094*^9}, {3.817618756754203*^9,
+ 3.817618757439868*^9}, {3.81761900296082*^9, 3.817619003035212*^9}, {
+ 3.8176203963382673`*^9, 3.817620396528458*^9}, {3.817626242723531*^9,
+ 3.817626282042306*^9}, {3.81762924164756*^9, 3.8176292443562737`*^9}, {
+ 3.8176636404765043`*^9, 3.817663648770928*^9}, {3.817666003825204*^9,
+ 3.8176660163975077`*^9}, 3.825758657266858*^9, 3.8257634297123632`*^9, {
+ 3.8257637382216587`*^9, 3.825763741294034*^9}, {3.825764046315646*^9,
+ 3.8257640768120003`*^9}, {3.826007441657895*^9, 3.8260074468257313`*^9},
+ 3.826007758136524*^9, {3.826013359537168*^9, 3.826013366921255*^9}, {
+ 3.826013463378932*^9, 3.826013482235341*^9}, {3.826014234648857*^9,
+ 3.8260142779855223`*^9}, {3.82610306735501*^9, 3.826103074379273*^9}, {
+ 3.826103107756144*^9, 3.826103107819812*^9}, {3.826272369240218*^9,
+ 3.826272391792493*^9}, {3.826272586652137*^9, 3.826272594732195*^9}, {
+ 3.826273088053089*^9, 3.826273089748893*^9}, {3.826273144677765*^9,
+ 3.826273146997635*^9}, {3.8262736335668373`*^9, 3.826273635734462*^9},
+ 3.8266890691074533`*^9, {3.826689155061082*^9, 3.8266891551567373`*^9}, {
+ 3.8266893130797987`*^9, 3.826689323848358*^9}, {3.826689565988503*^9,
+ 3.826689581228674*^9}, {3.826689634565889*^9, 3.826689650102207*^9}, {
+ 3.826689983421033*^9, 3.826689988684514*^9}, {3.826690298234497*^9,
+ 3.826690304258379*^9}, {3.8266903448673897`*^9, 3.826690346835585*^9}, {
+ 3.826690541351234*^9, 3.826690548879322*^9}, 3.8266910071358747`*^9, {
+ 3.82669106486483*^9, 3.826691074849018*^9}, {3.826691445503744*^9,
+ 3.826691458440094*^9}, {3.82669167994809*^9, 3.826691683996052*^9}, {
+ 3.826704702577314*^9, 3.826704712105288*^9}, {3.82670492717354*^9,
+ 3.826704930421282*^9}, {3.827403765410832*^9, 3.827403784866971*^9}, {
+ 3.827404400190401*^9, 3.827404420238784*^9}, {3.8274045097126637`*^9,
+ 3.8274045126565638`*^9}, {3.8274047169724197`*^9, 3.827404723828395*^9}, {
+ 3.827404767149251*^9, 3.827404769613168*^9}, {3.827405559211132*^9,
+ 3.827405561458974*^9}, {3.827406421058803*^9, 3.827406425898838*^9}, {
+ 3.827410007136595*^9, 3.827410024500999*^9}, {3.827468086395525*^9,
+ 3.827468087899349*^9}, {3.8274817111143637`*^9, 3.827481732722485*^9}, {
+ 3.827481932910375*^9, 3.827481942630374*^9}, {3.827484882114504*^9,
+ 3.827484891178834*^9}, {3.82748496838837*^9, 3.827484972428067*^9}, {
+ 3.827554870569126*^9, 3.8275548842255087`*^9}, {3.827554955106474*^9,
+ 3.827554986395269*^9}, {3.827555061348587*^9, 3.827555089773085*^9}, {
+ 3.827555513700951*^9, 3.8275555289410133`*^9}, {3.827558549917939*^9,
+ 3.827558582782239*^9}, {3.827561592644457*^9, 3.8275616094843884`*^9}, {
+ 3.827830458103025*^9, 3.8278304871675167`*^9}, {3.827830599481675*^9,
+ 3.8278306003135023`*^9}, {3.82783063897057*^9, 3.827830646362282*^9}, {
+ 3.827830706235694*^9, 3.827830712059711*^9}, {3.827831315902727*^9,
+ 3.827831321270451*^9}, {3.827833104775069*^9, 3.827833114719193*^9}, {
+ 3.8278331747045517`*^9, 3.827833179136505*^9}, {3.8278334549656887`*^9,
+ 3.827833462445428*^9}, 3.829120829171124*^9, {3.829213838889318*^9,
+ 3.829213883841852*^9}, {3.829214173078923*^9, 3.829214190007135*^9}, {
+ 3.829217677573986*^9, 3.829217686333686*^9}, {3.829217811928056*^9,
+ 3.8292178136720657`*^9}, {3.829218394666704*^9, 3.829218401658337*^9}, {
+ 3.8292188164581223`*^9, 3.82921883122604*^9}, {3.829218950764509*^9,
+ 3.829218957204319*^9}, {3.829220267572093*^9, 3.829220270004106*^9}, {
+ 3.82936259901405*^9, 3.829362614606016*^9}, {3.829370367314437*^9,
+ 3.829370369098258*^9}, {3.82937149074282*^9, 3.829371504006997*^9}, {
+ 3.829371588392646*^9, 3.829371592952486*^9}, {3.829371703474627*^9,
+ 3.829371725714978*^9}, {3.829371853413362*^9, 3.829371867509544*^9}},
+ CellLabel->
+ "In[410]:=",ExpressionUUID->"614f63fe-75a0-4c56-b782-48ad98bc3c89"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"sol7", "=",
+ RowBox[{"untilSuccess", "[",
+ RowBox[{"newSol", "[",
+ RowBox[{"eq7", ",", "sol6", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"gC", "[", "10", "]"}], ",",
+ RowBox[{"gC", "[", "11", "]"}]}], "}"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "5"}]]}], "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
+ 3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9,
+ 3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, {
+ 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, {
+ 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9,
+ 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, {
+ 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9,
+ 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, {
+ 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9,
+ 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, {
+ 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9,
+ 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, {
+ 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9,
+ 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, {
+ 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9,
+ 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, {
+ 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9,
+ 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, {
+ 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9,
+ 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9,
+ 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, {
+ 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9,
+ 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, {
+ 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9,
+ 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, {
+ 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9,
+ 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, {
+ 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9,
+ 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, {
+ 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9,
+ 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, {
+ 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9,
+ 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, {
+ 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9,
+ 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9},
+ 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, {
+ 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9,
+ 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, {
+ 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9,
+ 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, {
+ 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9,
+ 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, {
+ 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9,
+ 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, {
+ 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9,
+ 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, {
+ 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9,
+ 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, {
+ 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9,
+ 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, {
+ 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9,
+ 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, {
+ 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9,
+ 3.8260074763785057`*^9}, {3.8260077526573877`*^9,
+ 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, {
+ 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9,
+ 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, {
+ 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9,
+ 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, {
+ 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9,
+ 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, {
+ 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, {
+ 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9,
+ 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, {
+ 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9,
+ 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, {
+ 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9,
+ 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, {
+ 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9,
+ 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, {
+ 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9,
+ 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, {
+ 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9,
+ 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9,
+ 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9,
+ 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9,
+ 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, {
+ 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9,
+ 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9,
+ 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, {
+ 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, {
+ 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9,
+ 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9,
+ 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, {
+ 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9,
+ 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, {
+ 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9,
+ 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, {
+ 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9,
+ 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, {
+ 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9,
+ 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, {
+ 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9,
+ 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, {
+ 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9,
+ 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, {
+ 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9,
+ 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, {
+ 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9,
+ 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9},
+ 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9,
+ 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, {
+ 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9,
+ 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, {
+ 3.829214031268794*^9, 3.829214040157639*^9}, {3.829214194263526*^9,
+ 3.8292142105916843`*^9}, {3.829217690414138*^9, 3.829217702270501*^9}, {
+ 3.8292178172969103`*^9, 3.8292178174562902`*^9}, {3.8292178775777473`*^9,
+ 3.8292178776889153`*^9}, {3.829218414474752*^9, 3.829218438363077*^9}, {
+ 3.829218873266842*^9, 3.8292188874831133`*^9}, {3.829218961781654*^9,
+ 3.829218962396624*^9}, {3.829220227971595*^9, 3.829220228067281*^9}, {
+ 3.829220271868513*^9, 3.8292202885961943`*^9}, {3.829362123773261*^9,
+ 3.82936212387718*^9}, {3.8293623714499807`*^9, 3.8293623718336153`*^9}, {
+ 3.829362619006271*^9, 3.829362682127327*^9}, {3.8293628496104803`*^9,
+ 3.8293628496980753`*^9}, {3.829363086679022*^9, 3.829363087486423*^9}, {
+ 3.829363510502825*^9, 3.829363510582408*^9}, 3.829363644665361*^9, {
+ 3.8293640250715933`*^9, 3.8293640417196207`*^9}, {3.8293641846502438`*^9,
+ 3.8293641904262867`*^9}, {3.8293643116124277`*^9, 3.82936431479661*^9}, {
+ 3.829364353045416*^9, 3.829364357869265*^9}, {3.829365155900394*^9,
+ 3.829365164220447*^9}, {3.829365786400337*^9, 3.829365786447913*^9}, {
+ 3.829366984174124*^9, 3.8293669853979263`*^9}, {3.829370133310355*^9,
+ 3.8293701333579397`*^9}, {3.829370371971438*^9, 3.8293703727303963`*^9}, {
+ 3.829371509215295*^9, 3.829371512599156*^9}, {3.8293715961214314`*^9,
+ 3.8293715962806873`*^9}, {3.8293717328353024`*^9,
+ 3.8293717472752934`*^9}, {3.829371870829671*^9, 3.829371880325823*^9}},
+ CellLabel->
+ "In[414]:=",ExpressionUUID->"b56cc8a2-a504-4115-9171-a6a6d7088e3d"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]", "1.5521790495231729`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19623772153561067`"}], ",",
+ RowBox[{"B", "\[Rule]",
+ RowBox[{"-", "0.10003691748053914`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "0.45192713107153554`"}], ",",
+ RowBox[{"AL", "\[Rule]", "119.99250152180862`"}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{"-", "2.553856045222013`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "13.00194907638342`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "24.939898510150666`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "0.9673620680028738`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.675640915417663`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.055198453614506295`"}], ",",
+
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.0006356258455099872`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
+ RowBox[{"-", "0.004222378086120922`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.00140353522856965`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]",
+ RowBox[{"-", "0.00022282046268782936`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "7", "]"}], "\[Rule]", "0.00007160065056451954`"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "8", "]"}], "\[Rule]",
+ RowBox[{"-", "0.000050121329779590656`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "9", "]"}], "\[Rule]", "0.000018778346853529997`"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "10", "]"}], "\[Rule]",
+ RowBox[{"-", "3.4530609807457337`*^-6"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "11", "]"}], "\[Rule]", "2.5835605219393615`*^-7"}]}],
+ "}"}]], "Output",
+ CellChangeTimes->{{3.826689120800562*^9, 3.826689127418775*^9}, {
+ 3.826689158488123*^9, 3.8266891737031317`*^9}, {3.826689317590938*^9,
+ 3.826689360645096*^9}, {3.8266895920966187`*^9, 3.82668965774481*^9}, {
+ 3.826689994862856*^9, 3.826690033288772*^9}, {3.8266900773992367`*^9,
+ 3.826690138259676*^9}, {3.826690170487563*^9, 3.826690210884091*^9}, {
+ 3.82669028582425*^9, 3.826690412478512*^9}, {3.826690525277103*^9,
+ 3.826690586804343*^9}, 3.8266911044203787`*^9, {3.8266911415341454`*^9,
+ 3.826691176067152*^9}, {3.8266914431034403`*^9, 3.826691466496176*^9}, {
+ 3.8266915698104963`*^9, 3.826691589183861*^9}, {3.826691629285613*^9,
+ 3.826691658570911*^9}, {3.826691691287863*^9, 3.826691696658971*^9},
+ 3.826692543677533*^9, {3.8267021751874743`*^9, 3.826702188045772*^9}, {
+ 3.826702249172145*^9, 3.8267022876310787`*^9}, {3.826702328696328*^9,
+ 3.826702337613181*^9}, {3.82670240505122*^9, 3.826702415381674*^9}, {
+ 3.826702466382925*^9, 3.8267024746472607`*^9}, {3.82670292325323*^9,
+ 3.826702926250457*^9}, {3.826704726369697*^9, 3.8267049509999313`*^9}, {
+ 3.8273110328413973`*^9, 3.8273110427062273`*^9}, {3.8273130359585447`*^9,
+ 3.827313096509973*^9}, {3.827313127495216*^9, 3.8273131369191723`*^9},
+ 3.82731317007028*^9, 3.8273132039981737`*^9, 3.827313246533884*^9, {
+ 3.8273133462431517`*^9, 3.827313389144965*^9}, {3.827313425515341*^9,
+ 3.8273134583541927`*^9}, 3.827313492781188*^9, {3.82731352923447*^9,
+ 3.8273135589068947`*^9}, {3.827313596780452*^9, 3.827313655707004*^9}, {
+ 3.827313919011878*^9, 3.8273139325541162`*^9}, {3.8273139642216597`*^9,
+ 3.827314074115497*^9}, {3.827314372765233*^9, 3.8273143825934277`*^9}, {
+ 3.827403799553021*^9, 3.8274038250868883`*^9}, {3.827404411304475*^9,
+ 3.827404474434816*^9}, {3.827404520773925*^9, 3.827404582308402*^9}, {
+ 3.827404734048932*^9, 3.827404820482794*^9}, {3.827405568262806*^9,
+ 3.8274056500914383`*^9}, {3.827406440885428*^9, 3.827406445571705*^9},
+ 3.82741006348425*^9, 3.827410107607787*^9, {3.827468049995737*^9,
+ 3.827468095724422*^9}, 3.827480997719429*^9, {3.82748108294648*^9,
+ 3.827481129985794*^9}, 3.827481641182066*^9, {3.8274817411058826`*^9,
+ 3.827481855698565*^9}, 3.827481892268821*^9, {3.827481928398188*^9,
+ 3.827481956595954*^9}, {3.827482424452154*^9, 3.827482440121634*^9}, {
+ 3.827482626074338*^9, 3.827482647145111*^9}, {3.827484842554553*^9,
+ 3.827484874049939*^9}, 3.827484913883271*^9, {3.827484990128724*^9,
+ 3.8274849919736977`*^9}, 3.827554895814118*^9, {3.827554947784121*^9,
+ 3.8275549984120703`*^9}, {3.8275550679769897`*^9, 3.827555094379706*^9}, {
+ 3.8275554797725573`*^9, 3.827555480967787*^9}, {3.827555525888712*^9,
+ 3.827555559767219*^9}, {3.827558622717334*^9, 3.8275586356363983`*^9}, {
+ 3.8275586667285223`*^9, 3.827558741490138*^9}, {3.827561578728423*^9,
+ 3.827561658589188*^9}, 3.82783047330208*^9, {3.827830505564189*^9,
+ 3.827830518175445*^9}, {3.8278306124447412`*^9, 3.8278306293937597`*^9},
+ 3.8278306698240337`*^9, {3.8278309059064503`*^9, 3.8278309322836113`*^9}, {
+ 3.827831366061975*^9, 3.827831374894594*^9}, 3.827832582229473*^9,
+ 3.827832905505087*^9, 3.827833024832057*^9, {3.827833121728074*^9,
+ 3.827833156887409*^9}, {3.827833190486783*^9, 3.827833214597282*^9},
+ 3.827833440181951*^9, {3.827833485349725*^9, 3.827833509120513*^9},
+ 3.827833641521347*^9, 3.8279184071752663`*^9, {3.829120832804307*^9,
+ 3.8291209136945477`*^9}, {3.829121218248872*^9, 3.829121242382848*^9}, {
+ 3.82912136689071*^9, 3.82912138344954*^9}, {3.8291214179310007`*^9,
+ 3.8291214519539347`*^9}, 3.829121487616544*^9, 3.829121528475222*^9, {
+ 3.82912458078371*^9, 3.829124601986802*^9}, {3.8291246559522*^9,
+ 3.829124672481606*^9}, {3.8291247141750517`*^9, 3.829124779311466*^9}, {
+ 3.829211841985059*^9, 3.829211856018559*^9}, {3.829211923636525*^9,
+ 3.829211943366921*^9}, {3.82921204932723*^9, 3.829212097388105*^9}, {
+ 3.829212658917536*^9, 3.829212735633731*^9}, 3.8292138590684853`*^9, {
+ 3.829213900767322*^9, 3.829213987652483*^9}, {3.829214027339926*^9,
+ 3.829214077595415*^9}, 3.829214111976997*^9, {3.829214204875598*^9,
+ 3.829214227775757*^9}, {3.829217692503879*^9, 3.829217736816154*^9}, {
+ 3.829217796040901*^9, 3.8292178004682283`*^9}, {3.829217867884487*^9,
+ 3.829217897395664*^9}, {3.829218433300358*^9, 3.829218438953628*^9}, {
+ 3.8292188840072823`*^9, 3.829218907333342*^9}, {3.8292189584961233`*^9,
+ 3.8292189826030293`*^9}, 3.829220226230227*^9, {3.829220262467355*^9,
+ 3.82922033935154*^9}, {3.829362116339007*^9, 3.82936212978506*^9},
+ 3.829362175540524*^9, {3.8293624139586573`*^9, 3.829362434833434*^9}, {
+ 3.829362632949161*^9, 3.829362688541752*^9}, {3.829362751541298*^9,
+ 3.829362779388083*^9}, {3.829362846262143*^9, 3.829362987368157*^9}, {
+ 3.8293630609116488`*^9, 3.829363093944889*^9}, {3.8293635026728573`*^9,
+ 3.829363533532688*^9}, {3.8293636039801073`*^9, 3.829363688062024*^9}, {
+ 3.8293638578826838`*^9, 3.829363860627307*^9}, 3.829363955566392*^9, {
+ 3.8293643165481358`*^9, 3.829364351378783*^9}, 3.829365105877397*^9,
+ 3.8293651615957108`*^9, 3.8293657839738417`*^9, 3.82936697614613*^9,
+ 3.829367100741529*^9, 3.829369604049017*^9, 3.829369864768076*^9,
+ 3.829370131544271*^9, {3.829370341531361*^9, 3.829370365544216*^9},
+ 3.8293705407458563`*^9, 3.8293715313935137`*^9, 3.829371596888565*^9,
+ 3.829371747885508*^9, 3.8293719007993927`*^9},
+ CellLabel->
+ "Out[414]=",ExpressionUUID->"56bd1e88-9615-4515-9caf-f2b140d00ea4"]
+}, Open ]],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"n8", "=", "2"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"F8", "=",
+ RowBox[{"RF", "[", "n8", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"h8", "=",
+ RowBox[{"h", "[", "12", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"eq8", "=",
+ RowBox[{
+ RowBox[{"eq", "[",
+ RowBox[{"n8", ",", "h8"}], "]"}], "[",
+ RowBox[{"11", ",", "10"}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{
+ 3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
+ 3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9,
+ 3.817564534320574*^9}, {3.81756485534698*^9, 3.817564862343175*^9}, {
+ 3.817564919676697*^9, 3.8175649235785027`*^9}, {3.817565106996109*^9,
+ 3.8175651474217367`*^9}, {3.8175652415905113`*^9, 3.817565250029232*^9}, {
+ 3.8175657444559927`*^9, 3.8175657689660788`*^9}, 3.8175669120549498`*^9, {
+ 3.8175677716518087`*^9, 3.817567773706285*^9}, {3.817579700926876*^9,
+ 3.817579701354711*^9}, {3.8175810533593073`*^9, 3.817581114447541*^9}, {
+ 3.817581149854197*^9, 3.8175811499220247`*^9}, {3.817581265163169*^9,
+ 3.81758126542041*^9}, {3.81758144220247*^9, 3.8175814490334673`*^9}, {
+ 3.8175815152710047`*^9, 3.817581521148234*^9}, {3.817581635837187*^9,
+ 3.817581700879589*^9}, {3.817581767691791*^9, 3.817581768673394*^9}, {
+ 3.8175821842992363`*^9, 3.8175821844066353`*^9}, {3.817582286431714*^9,
+ 3.817582297101211*^9}, {3.817582488847374*^9, 3.817582488974349*^9}, {
+ 3.817582803954041*^9, 3.817582804222094*^9}, {3.817618756754203*^9,
+ 3.817618757439868*^9}, {3.81761900296082*^9, 3.817619003035212*^9}, {
+ 3.8176203963382673`*^9, 3.817620396528458*^9}, {3.817626242723531*^9,
+ 3.817626282042306*^9}, {3.81762924164756*^9, 3.8176292443562737`*^9}, {
+ 3.8176636404765043`*^9, 3.817663648770928*^9}, {3.817666003825204*^9,
+ 3.8176660163975077`*^9}, 3.825758657266858*^9, 3.8257634297123632`*^9, {
+ 3.8257637382216587`*^9, 3.825763741294034*^9}, {3.825764046315646*^9,
+ 3.8257640768120003`*^9}, {3.826007441657895*^9, 3.8260074468257313`*^9},
+ 3.826007758136524*^9, {3.826013359537168*^9, 3.826013366921255*^9}, {
+ 3.826013463378932*^9, 3.826013482235341*^9}, {3.826014234648857*^9,
+ 3.8260142779855223`*^9}, {3.82610306735501*^9, 3.826103074379273*^9}, {
+ 3.826103107756144*^9, 3.826103107819812*^9}, {3.826272369240218*^9,
+ 3.826272391792493*^9}, {3.826272586652137*^9, 3.826272594732195*^9}, {
+ 3.826273088053089*^9, 3.826273089748893*^9}, {3.826273144677765*^9,
+ 3.826273146997635*^9}, {3.8262736335668373`*^9, 3.826273635734462*^9},
+ 3.8266890691074533`*^9, {3.826689155061082*^9, 3.8266891551567373`*^9}, {
+ 3.8266893130797987`*^9, 3.826689323848358*^9}, {3.826689565988503*^9,
+ 3.826689581228674*^9}, {3.826689634565889*^9, 3.826689650102207*^9}, {
+ 3.826689983421033*^9, 3.826689988684514*^9}, {3.826690298234497*^9,
+ 3.826690304258379*^9}, {3.8266903448673897`*^9, 3.826690346835585*^9}, {
+ 3.826690541351234*^9, 3.826690548879322*^9}, 3.8266910071358747`*^9, {
+ 3.82669106486483*^9, 3.826691074849018*^9}, {3.826691445503744*^9,
+ 3.826691458440094*^9}, {3.82669167994809*^9, 3.826691683996052*^9}, {
+ 3.826704702577314*^9, 3.826704712105288*^9}, {3.82670492717354*^9,
+ 3.826704930421282*^9}, {3.827403765410832*^9, 3.827403784866971*^9}, {
+ 3.827404400190401*^9, 3.827404420238784*^9}, {3.8274045097126637`*^9,
+ 3.8274045126565638`*^9}, {3.8274047169724197`*^9, 3.827404723828395*^9}, {
+ 3.827404767149251*^9, 3.827404769613168*^9}, {3.827405559211132*^9,
+ 3.827405561458974*^9}, {3.827406421058803*^9, 3.827406425898838*^9}, {
+ 3.827410007136595*^9, 3.827410024500999*^9}, {3.827468086395525*^9,
+ 3.827468087899349*^9}, {3.8274817111143637`*^9, 3.827481732722485*^9}, {
+ 3.827481932910375*^9, 3.827481942630374*^9}, {3.827484882114504*^9,
+ 3.827484891178834*^9}, {3.82748496838837*^9, 3.827484972428067*^9}, {
+ 3.827554870569126*^9, 3.8275548842255087`*^9}, {3.827554955106474*^9,
+ 3.827554986395269*^9}, {3.827555061348587*^9, 3.827555089773085*^9}, {
+ 3.827555513700951*^9, 3.8275555289410133`*^9}, {3.827558549917939*^9,
+ 3.827558582782239*^9}, {3.827561592644457*^9, 3.8275616094843884`*^9}, {
+ 3.827830458103025*^9, 3.8278304871675167`*^9}, {3.827830599481675*^9,
+ 3.8278306003135023`*^9}, {3.82783063897057*^9, 3.827830646362282*^9}, {
+ 3.827830706235694*^9, 3.827830712059711*^9}, {3.827831315902727*^9,
+ 3.827831321270451*^9}, {3.827833104775069*^9, 3.827833114719193*^9}, {
+ 3.8278331747045517`*^9, 3.827833179136505*^9}, {3.8278334549656887`*^9,
+ 3.827833462445428*^9}, 3.829120829171124*^9, {3.829213838889318*^9,
+ 3.829213883841852*^9}, {3.829214173078923*^9, 3.829214190007135*^9}, {
+ 3.829217677573986*^9, 3.829217686333686*^9}, {3.829217811928056*^9,
+ 3.8292178136720657`*^9}, {3.829218394666704*^9, 3.829218401658337*^9}, {
+ 3.8292188164581223`*^9, 3.82921883122604*^9}, {3.829218950764509*^9,
+ 3.829218957204319*^9}, {3.829220267572093*^9, 3.829220270004106*^9}, {
+ 3.82936259901405*^9, 3.829362614606016*^9}, {3.829370367314437*^9,
+ 3.829370369098258*^9}, {3.82937149074282*^9, 3.829371504006997*^9}, {
+ 3.829371588392646*^9, 3.829371592952486*^9}, {3.829371703474627*^9,
+ 3.829371725714978*^9}, {3.829371853413362*^9, 3.829371867509544*^9}, {
+ 3.829371989679867*^9, 3.829372009519981*^9}, {3.829372105178256*^9,
+ 3.829372107817916*^9}},
+ CellLabel->
+ "In[428]:=",ExpressionUUID->"8507c1e3-d3a8-4bd7-b4aa-90d91d45805d"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"sol8", "=",
+ RowBox[{"untilSuccess", "[",
+ RowBox[{"newSol", "[",
+ RowBox[{"eq8", ",", "sol7", ",",
+ RowBox[{"{",
+ RowBox[{"gC", "[", "12", "]"}], "}"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "6"}]]}], "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
+ 3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9,
+ 3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, {
+ 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, {
+ 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9,
+ 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, {
+ 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9,
+ 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, {
+ 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9,
+ 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, {
+ 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9,
+ 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, {
+ 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9,
+ 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, {
+ 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9,
+ 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, {
+ 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9,
+ 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, {
+ 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9,
+ 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9,
+ 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, {
+ 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9,
+ 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, {
+ 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9,
+ 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, {
+ 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9,
+ 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, {
+ 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9,
+ 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, {
+ 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9,
+ 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, {
+ 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9,
+ 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, {
+ 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9,
+ 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9},
+ 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, {
+ 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9,
+ 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, {
+ 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9,
+ 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, {
+ 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9,
+ 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, {
+ 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9,
+ 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, {
+ 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9,
+ 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, {
+ 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9,
+ 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, {
+ 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9,
+ 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, {
+ 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9,
+ 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, {
+ 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9,
+ 3.8260074763785057`*^9}, {3.8260077526573877`*^9,
+ 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, {
+ 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9,
+ 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, {
+ 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9,
+ 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, {
+ 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9,
+ 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, {
+ 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, {
+ 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9,
+ 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, {
+ 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9,
+ 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, {
+ 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9,
+ 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, {
+ 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9,
+ 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, {
+ 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9,
+ 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, {
+ 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9,
+ 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9,
+ 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9,
+ 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9,
+ 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, {
+ 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9,
+ 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9,
+ 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, {
+ 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, {
+ 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9,
+ 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9,
+ 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, {
+ 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9,
+ 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, {
+ 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9,
+ 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, {
+ 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9,
+ 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, {
+ 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9,
+ 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, {
+ 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9,
+ 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, {
+ 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9,
+ 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, {
+ 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9,
+ 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, {
+ 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9,
+ 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9},
+ 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9,
+ 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, {
+ 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9,
+ 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, {
+ 3.829214031268794*^9, 3.829214040157639*^9}, {3.829214194263526*^9,
+ 3.8292142105916843`*^9}, {3.829217690414138*^9, 3.829217702270501*^9}, {
+ 3.8292178172969103`*^9, 3.8292178174562902`*^9}, {3.8292178775777473`*^9,
+ 3.8292178776889153`*^9}, {3.829218414474752*^9, 3.829218438363077*^9}, {
+ 3.829218873266842*^9, 3.8292188874831133`*^9}, {3.829218961781654*^9,
+ 3.829218962396624*^9}, {3.829220227971595*^9, 3.829220228067281*^9}, {
+ 3.829220271868513*^9, 3.8292202885961943`*^9}, {3.829362123773261*^9,
+ 3.82936212387718*^9}, {3.8293623714499807`*^9, 3.8293623718336153`*^9}, {
+ 3.829362619006271*^9, 3.829362682127327*^9}, {3.8293628496104803`*^9,
+ 3.8293628496980753`*^9}, {3.829363086679022*^9, 3.829363087486423*^9}, {
+ 3.829363510502825*^9, 3.829363510582408*^9}, 3.829363644665361*^9, {
+ 3.8293640250715933`*^9, 3.8293640417196207`*^9}, {3.8293641846502438`*^9,
+ 3.8293641904262867`*^9}, {3.8293643116124277`*^9, 3.82936431479661*^9}, {
+ 3.829364353045416*^9, 3.829364357869265*^9}, {3.829365155900394*^9,
+ 3.829365164220447*^9}, {3.829365786400337*^9, 3.829365786447913*^9}, {
+ 3.829366984174124*^9, 3.8293669853979263`*^9}, {3.829370133310355*^9,
+ 3.8293701333579397`*^9}, {3.829370371971438*^9, 3.8293703727303963`*^9}, {
+ 3.829371509215295*^9, 3.829371512599156*^9}, {3.8293715961214314`*^9,
+ 3.8293715962806873`*^9}, {3.8293717328353024`*^9,
+ 3.8293717472752934`*^9}, {3.829371870829671*^9, 3.829371880325823*^9}, {
+ 3.829372014952396*^9, 3.829372026736381*^9}, {3.829372110683309*^9,
+ 3.829372114314004*^9}},
+ CellLabel->
+ "In[432]:=",ExpressionUUID->"de38480a-2d94-4587-b72d-6e029e15ee96"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]", "1.6096050011751715`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19628896462420983`"}], ",",
+ RowBox[{"B", "\[Rule]",
+ RowBox[{"-", "0.08514346612182795`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "0.44506259938932896`"}], ",",
+ RowBox[{"AL", "\[Rule]", "225.52501447482285`"}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{"-", "2.551770953432703`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "20.854960306732682`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "40.50625810461585`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"-", "1.1537514195242216`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.6924984170500136`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.06570747573977391`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0064409635255079966`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
+ RowBox[{"-", "0.002202689118039894`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.0014123725799058283`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0004544184465707788`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "7", "]"}], "\[Rule]", "0.00016716969708970746`"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "8", "]"}], "\[Rule]",
+ RowBox[{"-", "0.00007867733831616048`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "9", "]"}], "\[Rule]", "0.000029128704031167145`"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "10", "]"}], "\[Rule]",
+ RowBox[{"-", "6.8515550079864145`*^-6"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "11", "]"}], "\[Rule]", "9.187515756999576`*^-7"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "12", "]"}], "\[Rule]",
+ RowBox[{"-", "5.4215447759896444`*^-8"}]}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.826689120800562*^9, 3.826689127418775*^9}, {
+ 3.826689158488123*^9, 3.8266891737031317`*^9}, {3.826689317590938*^9,
+ 3.826689360645096*^9}, {3.8266895920966187`*^9, 3.82668965774481*^9}, {
+ 3.826689994862856*^9, 3.826690033288772*^9}, {3.8266900773992367`*^9,
+ 3.826690138259676*^9}, {3.826690170487563*^9, 3.826690210884091*^9}, {
+ 3.82669028582425*^9, 3.826690412478512*^9}, {3.826690525277103*^9,
+ 3.826690586804343*^9}, 3.8266911044203787`*^9, {3.8266911415341454`*^9,
+ 3.826691176067152*^9}, {3.8266914431034403`*^9, 3.826691466496176*^9}, {
+ 3.8266915698104963`*^9, 3.826691589183861*^9}, {3.826691629285613*^9,
+ 3.826691658570911*^9}, {3.826691691287863*^9, 3.826691696658971*^9},
+ 3.826692543677533*^9, {3.8267021751874743`*^9, 3.826702188045772*^9}, {
+ 3.826702249172145*^9, 3.8267022876310787`*^9}, {3.826702328696328*^9,
+ 3.826702337613181*^9}, {3.82670240505122*^9, 3.826702415381674*^9}, {
+ 3.826702466382925*^9, 3.8267024746472607`*^9}, {3.82670292325323*^9,
+ 3.826702926250457*^9}, {3.826704726369697*^9, 3.8267049509999313`*^9}, {
+ 3.8273110328413973`*^9, 3.8273110427062273`*^9}, {3.8273130359585447`*^9,
+ 3.827313096509973*^9}, {3.827313127495216*^9, 3.8273131369191723`*^9},
+ 3.82731317007028*^9, 3.8273132039981737`*^9, 3.827313246533884*^9, {
+ 3.8273133462431517`*^9, 3.827313389144965*^9}, {3.827313425515341*^9,
+ 3.8273134583541927`*^9}, 3.827313492781188*^9, {3.82731352923447*^9,
+ 3.8273135589068947`*^9}, {3.827313596780452*^9, 3.827313655707004*^9}, {
+ 3.827313919011878*^9, 3.8273139325541162`*^9}, {3.8273139642216597`*^9,
+ 3.827314074115497*^9}, {3.827314372765233*^9, 3.8273143825934277`*^9}, {
+ 3.827403799553021*^9, 3.8274038250868883`*^9}, {3.827404411304475*^9,
+ 3.827404474434816*^9}, {3.827404520773925*^9, 3.827404582308402*^9}, {
+ 3.827404734048932*^9, 3.827404820482794*^9}, {3.827405568262806*^9,
+ 3.8274056500914383`*^9}, {3.827406440885428*^9, 3.827406445571705*^9},
+ 3.82741006348425*^9, 3.827410107607787*^9, {3.827468049995737*^9,
+ 3.827468095724422*^9}, 3.827480997719429*^9, {3.82748108294648*^9,
+ 3.827481129985794*^9}, 3.827481641182066*^9, {3.8274817411058826`*^9,
+ 3.827481855698565*^9}, 3.827481892268821*^9, {3.827481928398188*^9,
+ 3.827481956595954*^9}, {3.827482424452154*^9, 3.827482440121634*^9}, {
+ 3.827482626074338*^9, 3.827482647145111*^9}, {3.827484842554553*^9,
+ 3.827484874049939*^9}, 3.827484913883271*^9, {3.827484990128724*^9,
+ 3.8274849919736977`*^9}, 3.827554895814118*^9, {3.827554947784121*^9,
+ 3.8275549984120703`*^9}, {3.8275550679769897`*^9, 3.827555094379706*^9}, {
+ 3.8275554797725573`*^9, 3.827555480967787*^9}, {3.827555525888712*^9,
+ 3.827555559767219*^9}, {3.827558622717334*^9, 3.8275586356363983`*^9}, {
+ 3.8275586667285223`*^9, 3.827558741490138*^9}, {3.827561578728423*^9,
+ 3.827561658589188*^9}, 3.82783047330208*^9, {3.827830505564189*^9,
+ 3.827830518175445*^9}, {3.8278306124447412`*^9, 3.8278306293937597`*^9},
+ 3.8278306698240337`*^9, {3.8278309059064503`*^9, 3.8278309322836113`*^9}, {
+ 3.827831366061975*^9, 3.827831374894594*^9}, 3.827832582229473*^9,
+ 3.827832905505087*^9, 3.827833024832057*^9, {3.827833121728074*^9,
+ 3.827833156887409*^9}, {3.827833190486783*^9, 3.827833214597282*^9},
+ 3.827833440181951*^9, {3.827833485349725*^9, 3.827833509120513*^9},
+ 3.827833641521347*^9, 3.8279184071752663`*^9, {3.829120832804307*^9,
+ 3.8291209136945477`*^9}, {3.829121218248872*^9, 3.829121242382848*^9}, {
+ 3.82912136689071*^9, 3.82912138344954*^9}, {3.8291214179310007`*^9,
+ 3.8291214519539347`*^9}, 3.829121487616544*^9, 3.829121528475222*^9, {
+ 3.82912458078371*^9, 3.829124601986802*^9}, {3.8291246559522*^9,
+ 3.829124672481606*^9}, {3.8291247141750517`*^9, 3.829124779311466*^9}, {
+ 3.829211841985059*^9, 3.829211856018559*^9}, {3.829211923636525*^9,
+ 3.829211943366921*^9}, {3.82921204932723*^9, 3.829212097388105*^9}, {
+ 3.829212658917536*^9, 3.829212735633731*^9}, 3.8292138590684853`*^9, {
+ 3.829213900767322*^9, 3.829213987652483*^9}, {3.829214027339926*^9,
+ 3.829214077595415*^9}, 3.829214111976997*^9, {3.829214204875598*^9,
+ 3.829214227775757*^9}, {3.829217692503879*^9, 3.829217736816154*^9}, {
+ 3.829217796040901*^9, 3.8292178004682283`*^9}, {3.829217867884487*^9,
+ 3.829217897395664*^9}, {3.829218433300358*^9, 3.829218438953628*^9}, {
+ 3.8292188840072823`*^9, 3.829218907333342*^9}, {3.8292189584961233`*^9,
+ 3.8292189826030293`*^9}, 3.829220226230227*^9, {3.829220262467355*^9,
+ 3.82922033935154*^9}, {3.829362116339007*^9, 3.82936212978506*^9},
+ 3.829362175540524*^9, {3.8293624139586573`*^9, 3.829362434833434*^9}, {
+ 3.829362632949161*^9, 3.829362688541752*^9}, {3.829362751541298*^9,
+ 3.829362779388083*^9}, {3.829362846262143*^9, 3.829362987368157*^9}, {
+ 3.8293630609116488`*^9, 3.829363093944889*^9}, {3.8293635026728573`*^9,
+ 3.829363533532688*^9}, {3.8293636039801073`*^9, 3.829363688062024*^9}, {
+ 3.8293638578826838`*^9, 3.829363860627307*^9}, 3.829363955566392*^9, {
+ 3.8293643165481358`*^9, 3.829364351378783*^9}, 3.829365105877397*^9,
+ 3.8293651615957108`*^9, 3.8293657839738417`*^9, 3.82936697614613*^9,
+ 3.829367100741529*^9, 3.829369604049017*^9, 3.829369864768076*^9,
+ 3.829370131544271*^9, {3.829370341531361*^9, 3.829370365544216*^9},
+ 3.8293705407458563`*^9, 3.8293715313935137`*^9, 3.829371596888565*^9,
+ 3.829371747885508*^9, 3.8293719007993927`*^9, {3.829372102491456*^9,
+ 3.829372117687871*^9}},
+ CellLabel->
+ "Out[432]=",ExpressionUUID->"43225297-d195-4377-8f95-86dbf3b45b01"]
+}, Open ]],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"n9", "=", "2"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"F9", "=",
+ RowBox[{"RF", "[", "n9", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"h9", "=",
+ RowBox[{"h", "[", "13", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"eq9", "=",
+ RowBox[{
+ RowBox[{"eq", "[",
+ RowBox[{"n9", ",", "h9"}], "]"}], "[",
+ RowBox[{"11", ",", "12"}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{
+ 3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
+ 3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9,
+ 3.817564534320574*^9}, {3.81756485534698*^9, 3.817564862343175*^9}, {
+ 3.817564919676697*^9, 3.8175649235785027`*^9}, {3.817565106996109*^9,
+ 3.8175651474217367`*^9}, {3.8175652415905113`*^9, 3.817565250029232*^9}, {
+ 3.8175657444559927`*^9, 3.8175657689660788`*^9}, 3.8175669120549498`*^9, {
+ 3.8175677716518087`*^9, 3.817567773706285*^9}, {3.817579700926876*^9,
+ 3.817579701354711*^9}, {3.8175810533593073`*^9, 3.817581114447541*^9}, {
+ 3.817581149854197*^9, 3.8175811499220247`*^9}, {3.817581265163169*^9,
+ 3.81758126542041*^9}, {3.81758144220247*^9, 3.8175814490334673`*^9}, {
+ 3.8175815152710047`*^9, 3.817581521148234*^9}, {3.817581635837187*^9,
+ 3.817581700879589*^9}, {3.817581767691791*^9, 3.817581768673394*^9}, {
+ 3.8175821842992363`*^9, 3.8175821844066353`*^9}, {3.817582286431714*^9,
+ 3.817582297101211*^9}, {3.817582488847374*^9, 3.817582488974349*^9}, {
+ 3.817582803954041*^9, 3.817582804222094*^9}, {3.817618756754203*^9,
+ 3.817618757439868*^9}, {3.81761900296082*^9, 3.817619003035212*^9}, {
+ 3.8176203963382673`*^9, 3.817620396528458*^9}, {3.817626242723531*^9,
+ 3.817626282042306*^9}, {3.81762924164756*^9, 3.8176292443562737`*^9}, {
+ 3.8176636404765043`*^9, 3.817663648770928*^9}, {3.817666003825204*^9,
+ 3.8176660163975077`*^9}, 3.825758657266858*^9, 3.8257634297123632`*^9, {
+ 3.8257637382216587`*^9, 3.825763741294034*^9}, {3.825764046315646*^9,
+ 3.8257640768120003`*^9}, {3.826007441657895*^9, 3.8260074468257313`*^9},
+ 3.826007758136524*^9, {3.826013359537168*^9, 3.826013366921255*^9}, {
+ 3.826013463378932*^9, 3.826013482235341*^9}, {3.826014234648857*^9,
+ 3.8260142779855223`*^9}, {3.82610306735501*^9, 3.826103074379273*^9}, {
+ 3.826103107756144*^9, 3.826103107819812*^9}, {3.826272369240218*^9,
+ 3.826272391792493*^9}, {3.826272586652137*^9, 3.826272594732195*^9}, {
+ 3.826273088053089*^9, 3.826273089748893*^9}, {3.826273144677765*^9,
+ 3.826273146997635*^9}, {3.8262736335668373`*^9, 3.826273635734462*^9},
+ 3.8266890691074533`*^9, {3.826689155061082*^9, 3.8266891551567373`*^9}, {
+ 3.8266893130797987`*^9, 3.826689323848358*^9}, {3.826689565988503*^9,
+ 3.826689581228674*^9}, {3.826689634565889*^9, 3.826689650102207*^9}, {
+ 3.826689983421033*^9, 3.826689988684514*^9}, {3.826690298234497*^9,
+ 3.826690304258379*^9}, {3.8266903448673897`*^9, 3.826690346835585*^9}, {
+ 3.826690541351234*^9, 3.826690548879322*^9}, 3.8266910071358747`*^9, {
+ 3.82669106486483*^9, 3.826691074849018*^9}, {3.826691445503744*^9,
+ 3.826691458440094*^9}, {3.82669167994809*^9, 3.826691683996052*^9}, {
+ 3.826704702577314*^9, 3.826704712105288*^9}, {3.82670492717354*^9,
+ 3.826704930421282*^9}, {3.827403765410832*^9, 3.827403784866971*^9}, {
+ 3.827404400190401*^9, 3.827404420238784*^9}, {3.8274045097126637`*^9,
+ 3.8274045126565638`*^9}, {3.8274047169724197`*^9, 3.827404723828395*^9}, {
+ 3.827404767149251*^9, 3.827404769613168*^9}, {3.827405559211132*^9,
+ 3.827405561458974*^9}, {3.827406421058803*^9, 3.827406425898838*^9}, {
+ 3.827410007136595*^9, 3.827410024500999*^9}, {3.827468086395525*^9,
+ 3.827468087899349*^9}, {3.8274817111143637`*^9, 3.827481732722485*^9}, {
+ 3.827481932910375*^9, 3.827481942630374*^9}, {3.827484882114504*^9,
+ 3.827484891178834*^9}, {3.82748496838837*^9, 3.827484972428067*^9}, {
+ 3.827554870569126*^9, 3.8275548842255087`*^9}, {3.827554955106474*^9,
+ 3.827554986395269*^9}, {3.827555061348587*^9, 3.827555089773085*^9}, {
+ 3.827555513700951*^9, 3.8275555289410133`*^9}, {3.827558549917939*^9,
+ 3.827558582782239*^9}, {3.827561592644457*^9, 3.8275616094843884`*^9}, {
+ 3.827830458103025*^9, 3.8278304871675167`*^9}, {3.827830599481675*^9,
+ 3.8278306003135023`*^9}, {3.82783063897057*^9, 3.827830646362282*^9}, {
+ 3.827830706235694*^9, 3.827830712059711*^9}, {3.827831315902727*^9,
+ 3.827831321270451*^9}, {3.827833104775069*^9, 3.827833114719193*^9}, {
+ 3.8278331747045517`*^9, 3.827833179136505*^9}, {3.8278334549656887`*^9,
+ 3.827833462445428*^9}, 3.829120829171124*^9, {3.829213838889318*^9,
+ 3.829213883841852*^9}, {3.829214173078923*^9, 3.829214190007135*^9}, {
+ 3.829217677573986*^9, 3.829217686333686*^9}, {3.829217811928056*^9,
+ 3.8292178136720657`*^9}, {3.829218394666704*^9, 3.829218401658337*^9}, {
+ 3.8292188164581223`*^9, 3.82921883122604*^9}, {3.829218950764509*^9,
+ 3.829218957204319*^9}, {3.829220267572093*^9, 3.829220270004106*^9}, {
+ 3.82936259901405*^9, 3.829362614606016*^9}, {3.829370367314437*^9,
+ 3.829370369098258*^9}, {3.82937149074282*^9, 3.829371504006997*^9}, {
+ 3.829371588392646*^9, 3.829371592952486*^9}, {3.829371703474627*^9,
+ 3.829371725714978*^9}, {3.829371853413362*^9, 3.829371867509544*^9}, {
+ 3.829371989679867*^9, 3.829372009519981*^9}, {3.829372105178256*^9,
+ 3.829372107817916*^9}, {3.829372212947939*^9, 3.829372229324211*^9}, {
+ 3.829372326422181*^9, 3.8293723312299557`*^9}, {3.829372396871578*^9,
+ 3.829372398863285*^9}, {3.8293724703607264`*^9, 3.829372475128607*^9}, {
+ 3.829372514441317*^9, 3.829372514585251*^9}, {3.829372717965377*^9,
+ 3.8293727180450163`*^9}},
+ CellLabel->
+ "In[456]:=",ExpressionUUID->"2ec9732b-3292-49d0-bac5-10ca2b2e2d27"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"sol9", "=",
+ RowBox[{"untilSuccess", "[",
+ RowBox[{"newSol", "[",
+ RowBox[{"eq9", ",", "sol8", ",",
+ RowBox[{"{",
+ RowBox[{"gC", "[", "13", "]"}], "}"}], ",",
+ SuperscriptBox["10",
+ RowBox[{"-", "7"}]]}], "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
+ 3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9,
+ 3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, {
+ 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, {
+ 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9,
+ 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, {
+ 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9,
+ 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, {
+ 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9,
+ 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, {
+ 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9,
+ 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, {
+ 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9,
+ 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, {
+ 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9,
+ 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, {
+ 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9,
+ 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, {
+ 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9,
+ 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9,
+ 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, {
+ 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9,
+ 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, {
+ 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9,
+ 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, {
+ 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9,
+ 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, {
+ 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9,
+ 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, {
+ 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9,
+ 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, {
+ 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9,
+ 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, {
+ 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9,
+ 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9},
+ 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, {
+ 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9,
+ 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, {
+ 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9,
+ 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, {
+ 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9,
+ 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, {
+ 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9,
+ 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, {
+ 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9,
+ 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, {
+ 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9,
+ 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, {
+ 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9,
+ 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, {
+ 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9,
+ 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, {
+ 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9,
+ 3.8260074763785057`*^9}, {3.8260077526573877`*^9,
+ 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, {
+ 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9,
+ 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, {
+ 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9,
+ 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, {
+ 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9,
+ 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, {
+ 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, {
+ 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9,
+ 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, {
+ 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9,
+ 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, {
+ 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9,
+ 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, {
+ 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9,
+ 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, {
+ 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9,
+ 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, {
+ 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9,
+ 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9,
+ 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9,
+ 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9,
+ 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, {
+ 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9,
+ 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9,
+ 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, {
+ 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, {
+ 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9,
+ 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9,
+ 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, {
+ 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9,
+ 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, {
+ 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9,
+ 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, {
+ 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9,
+ 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, {
+ 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9,
+ 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, {
+ 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9,
+ 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, {
+ 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9,
+ 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, {
+ 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9,
+ 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, {
+ 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9,
+ 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9},
+ 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9,
+ 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, {
+ 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9,
+ 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, {
+ 3.829214031268794*^9, 3.829214040157639*^9}, {3.829214194263526*^9,
+ 3.8292142105916843`*^9}, {3.829217690414138*^9, 3.829217702270501*^9}, {
+ 3.8292178172969103`*^9, 3.8292178174562902`*^9}, {3.8292178775777473`*^9,
+ 3.8292178776889153`*^9}, {3.829218414474752*^9, 3.829218438363077*^9}, {
+ 3.829218873266842*^9, 3.8292188874831133`*^9}, {3.829218961781654*^9,
+ 3.829218962396624*^9}, {3.829220227971595*^9, 3.829220228067281*^9}, {
+ 3.829220271868513*^9, 3.8292202885961943`*^9}, {3.829362123773261*^9,
+ 3.82936212387718*^9}, {3.8293623714499807`*^9, 3.8293623718336153`*^9}, {
+ 3.829362619006271*^9, 3.829362682127327*^9}, {3.8293628496104803`*^9,
+ 3.8293628496980753`*^9}, {3.829363086679022*^9, 3.829363087486423*^9}, {
+ 3.829363510502825*^9, 3.829363510582408*^9}, 3.829363644665361*^9, {
+ 3.8293640250715933`*^9, 3.8293640417196207`*^9}, {3.8293641846502438`*^9,
+ 3.8293641904262867`*^9}, {3.8293643116124277`*^9, 3.82936431479661*^9}, {
+ 3.829364353045416*^9, 3.829364357869265*^9}, {3.829365155900394*^9,
+ 3.829365164220447*^9}, {3.829365786400337*^9, 3.829365786447913*^9}, {
+ 3.829366984174124*^9, 3.8293669853979263`*^9}, {3.829370133310355*^9,
+ 3.8293701333579397`*^9}, {3.829370371971438*^9, 3.8293703727303963`*^9}, {
+ 3.829371509215295*^9, 3.829371512599156*^9}, {3.8293715961214314`*^9,
+ 3.8293715962806873`*^9}, {3.8293717328353024`*^9,
+ 3.8293717472752934`*^9}, {3.829371870829671*^9, 3.829371880325823*^9}, {
+ 3.829372014952396*^9, 3.829372026736381*^9}, {3.829372110683309*^9,
+ 3.829372114314004*^9}, {3.829372234396299*^9, 3.829372248604418*^9}, {
+ 3.829372288109779*^9, 3.829372288957213*^9}, {3.829372336486871*^9,
+ 3.829372336638296*^9}},
+ CellLabel->
+ "In[460]:=",ExpressionUUID->"139619cc-039b-4609-af7c-bff6ef22fb47"],
+
+Cell[BoxData["$Aborted"], "Output",
+ CellChangeTimes->{{3.826689120800562*^9, 3.826689127418775*^9}, {
+ 3.826689158488123*^9, 3.8266891737031317`*^9}, {3.826689317590938*^9,
+ 3.826689360645096*^9}, {3.8266895920966187`*^9, 3.82668965774481*^9}, {
+ 3.826689994862856*^9, 3.826690033288772*^9}, {3.8266900773992367`*^9,
+ 3.826690138259676*^9}, {3.826690170487563*^9, 3.826690210884091*^9}, {
+ 3.82669028582425*^9, 3.826690412478512*^9}, {3.826690525277103*^9,
+ 3.826690586804343*^9}, 3.8266911044203787`*^9, {3.8266911415341454`*^9,
+ 3.826691176067152*^9}, {3.8266914431034403`*^9, 3.826691466496176*^9}, {
+ 3.8266915698104963`*^9, 3.826691589183861*^9}, {3.826691629285613*^9,
+ 3.826691658570911*^9}, {3.826691691287863*^9, 3.826691696658971*^9},
+ 3.826692543677533*^9, {3.8267021751874743`*^9, 3.826702188045772*^9}, {
+ 3.826702249172145*^9, 3.8267022876310787`*^9}, {3.826702328696328*^9,
+ 3.826702337613181*^9}, {3.82670240505122*^9, 3.826702415381674*^9}, {
+ 3.826702466382925*^9, 3.8267024746472607`*^9}, {3.82670292325323*^9,
+ 3.826702926250457*^9}, {3.826704726369697*^9, 3.8267049509999313`*^9}, {
+ 3.8273110328413973`*^9, 3.8273110427062273`*^9}, {3.8273130359585447`*^9,
+ 3.827313096509973*^9}, {3.827313127495216*^9, 3.8273131369191723`*^9},
+ 3.82731317007028*^9, 3.8273132039981737`*^9, 3.827313246533884*^9, {
+ 3.8273133462431517`*^9, 3.827313389144965*^9}, {3.827313425515341*^9,
+ 3.8273134583541927`*^9}, 3.827313492781188*^9, {3.82731352923447*^9,
+ 3.8273135589068947`*^9}, {3.827313596780452*^9, 3.827313655707004*^9}, {
+ 3.827313919011878*^9, 3.8273139325541162`*^9}, {3.8273139642216597`*^9,
+ 3.827314074115497*^9}, {3.827314372765233*^9, 3.8273143825934277`*^9}, {
+ 3.827403799553021*^9, 3.8274038250868883`*^9}, {3.827404411304475*^9,
+ 3.827404474434816*^9}, {3.827404520773925*^9, 3.827404582308402*^9}, {
+ 3.827404734048932*^9, 3.827404820482794*^9}, {3.827405568262806*^9,
+ 3.8274056500914383`*^9}, {3.827406440885428*^9, 3.827406445571705*^9},
+ 3.82741006348425*^9, 3.827410107607787*^9, {3.827468049995737*^9,
+ 3.827468095724422*^9}, 3.827480997719429*^9, {3.82748108294648*^9,
+ 3.827481129985794*^9}, 3.827481641182066*^9, {3.8274817411058826`*^9,
+ 3.827481855698565*^9}, 3.827481892268821*^9, {3.827481928398188*^9,
+ 3.827481956595954*^9}, {3.827482424452154*^9, 3.827482440121634*^9}, {
+ 3.827482626074338*^9, 3.827482647145111*^9}, {3.827484842554553*^9,
+ 3.827484874049939*^9}, 3.827484913883271*^9, {3.827484990128724*^9,
+ 3.8274849919736977`*^9}, 3.827554895814118*^9, {3.827554947784121*^9,
+ 3.8275549984120703`*^9}, {3.8275550679769897`*^9, 3.827555094379706*^9}, {
+ 3.8275554797725573`*^9, 3.827555480967787*^9}, {3.827555525888712*^9,
+ 3.827555559767219*^9}, {3.827558622717334*^9, 3.8275586356363983`*^9}, {
+ 3.8275586667285223`*^9, 3.827558741490138*^9}, {3.827561578728423*^9,
+ 3.827561658589188*^9}, 3.82783047330208*^9, {3.827830505564189*^9,
+ 3.827830518175445*^9}, {3.8278306124447412`*^9, 3.8278306293937597`*^9},
+ 3.8278306698240337`*^9, {3.8278309059064503`*^9, 3.8278309322836113`*^9}, {
+ 3.827831366061975*^9, 3.827831374894594*^9}, 3.827832582229473*^9,
+ 3.827832905505087*^9, 3.827833024832057*^9, {3.827833121728074*^9,
+ 3.827833156887409*^9}, {3.827833190486783*^9, 3.827833214597282*^9},
+ 3.827833440181951*^9, {3.827833485349725*^9, 3.827833509120513*^9},
+ 3.827833641521347*^9, 3.8279184071752663`*^9, {3.829120832804307*^9,
+ 3.8291209136945477`*^9}, {3.829121218248872*^9, 3.829121242382848*^9}, {
+ 3.82912136689071*^9, 3.82912138344954*^9}, {3.8291214179310007`*^9,
+ 3.8291214519539347`*^9}, 3.829121487616544*^9, 3.829121528475222*^9, {
+ 3.82912458078371*^9, 3.829124601986802*^9}, {3.8291246559522*^9,
+ 3.829124672481606*^9}, {3.8291247141750517`*^9, 3.829124779311466*^9}, {
+ 3.829211841985059*^9, 3.829211856018559*^9}, {3.829211923636525*^9,
+ 3.829211943366921*^9}, {3.82921204932723*^9, 3.829212097388105*^9}, {
+ 3.829212658917536*^9, 3.829212735633731*^9}, 3.8292138590684853`*^9, {
+ 3.829213900767322*^9, 3.829213987652483*^9}, {3.829214027339926*^9,
+ 3.829214077595415*^9}, 3.829214111976997*^9, {3.829214204875598*^9,
+ 3.829214227775757*^9}, {3.829217692503879*^9, 3.829217736816154*^9}, {
+ 3.829217796040901*^9, 3.8292178004682283`*^9}, {3.829217867884487*^9,
+ 3.829217897395664*^9}, {3.829218433300358*^9, 3.829218438953628*^9}, {
+ 3.8292188840072823`*^9, 3.829218907333342*^9}, {3.8292189584961233`*^9,
+ 3.8292189826030293`*^9}, 3.829220226230227*^9, {3.829220262467355*^9,
+ 3.82922033935154*^9}, {3.829362116339007*^9, 3.82936212978506*^9},
+ 3.829362175540524*^9, {3.8293624139586573`*^9, 3.829362434833434*^9}, {
+ 3.829362632949161*^9, 3.829362688541752*^9}, {3.829362751541298*^9,
+ 3.829362779388083*^9}, {3.829362846262143*^9, 3.829362987368157*^9}, {
+ 3.8293630609116488`*^9, 3.829363093944889*^9}, {3.8293635026728573`*^9,
+ 3.829363533532688*^9}, {3.8293636039801073`*^9, 3.829363688062024*^9}, {
+ 3.8293638578826838`*^9, 3.829363860627307*^9}, 3.829363955566392*^9, {
+ 3.8293643165481358`*^9, 3.829364351378783*^9}, 3.829365105877397*^9,
+ 3.8293651615957108`*^9, 3.8293657839738417`*^9, 3.82936697614613*^9,
+ 3.829367100741529*^9, 3.829369604049017*^9, 3.829369864768076*^9,
+ 3.829370131544271*^9, {3.829370341531361*^9, 3.829370365544216*^9},
+ 3.8293705407458563`*^9, 3.8293715313935137`*^9, 3.829371596888565*^9,
+ 3.829371747885508*^9, 3.8293719007993927`*^9, {3.829372102491456*^9,
+ 3.829372117687871*^9}, 3.829372275070043*^9, 3.829372319645504*^9,
+ 3.8293723953234377`*^9, 3.829372465335536*^9, 3.829372675375614*^9,
+ 3.829377558480411*^9},
+ CellLabel->
+ "Out[460]=",ExpressionUUID->"afa14344-bd55-431e-aa6c-c70efe6c5a4d"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[", "1", "]"}], "]"}]], "Input",
+ CellLabel->
+ "In[156]:=",ExpressionUUID->"0187bca3-1d0a-4623-aec5-953f437b51fd"],
+
+Cell[BoxData[
+ RowBox[{"-", "1.197733383797993`"}]], "Output",
+ CellChangeTimes->{3.8293671391468163`*^9},
+ CellLabel->
+ "Out[156]=",ExpressionUUID->"598fc733-e306-4afa-b2be-5b73d49e16c2"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"dFd\[Eta]", "[",
+ RowBox[{"n1", ",", "h1"}], "]"}], "[", "0", "]"}], "[", "1", "]"}], "/.",
+ "sol1"}], ")"}]], "Input",
+ CellChangeTimes->{{3.829367184273933*^9, 3.829367212305698*^9}, {
+ 3.829367249915475*^9, 3.829367268795794*^9}, {3.8293673836930037`*^9,
+ 3.8293673843408403`*^9}},
+ CellLabel->
+ "In[175]:=",ExpressionUUID->"73d2b785-99f4-4bfb-b83d-3176ccfa253d"],
+
+Cell[BoxData[
+ RowBox[{"-", "1.1976250426644162`"}]], "Output",
+ CellChangeTimes->{{3.829367204152923*^9, 3.8293672139532557`*^9}, {
+ 3.82936725021669*^9, 3.829367269499428*^9}, 3.829367311917522*^9, {
+ 3.829367380215716*^9, 3.829367384632855*^9}},
+ CellLabel->
+ "Out[175]=",ExpressionUUID->"d9b0e840-276e-4933-8ac7-3b44810cdfd7"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["sol1"], "Input",
+ CellChangeTimes->{{3.8293672144988337`*^9, 3.8293672148336897`*^9}},
+ CellLabel->
+ "In[163]:=",ExpressionUUID->"a3876a42-f9a7-42bf-bb98-8f496b0b9429"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]", "1.1638412667738245`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.23401706377211623`"}], ",",
+ RowBox[{"B", "\[Rule]", "10.381811257667287`"}], ",",
+ RowBox[{"AL", "\[Rule]",
+ RowBox[{"-", "0.0820637977018292`"}]}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{"-", "1.859174420206926`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "0.8296491463701213`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.4752823757530578`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.1952355540144462`"}]}],
+ "}"}]], "Output",
+ CellChangeTimes->{3.829367215093526*^9},
+ CellLabel->
+ "Out[163]=",ExpressionUUID->"25c6c990-0648-4b53-88ec-85fbf153b84d"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"nDers", "=", "3"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"ListLogLogPlot", "[", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Transpose", "@",
+ RowBox[{"Abs", "[",
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"dFd\[Eta]List", "[",
+ RowBox[{"n1", ",", "h1"}], "]"}], "[", "nDers", "]"}], "[",
+ "1", "]"}], "/.", "sol1"}], ")"}], "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"nDers", "+", "1"}], "]"}], "-", "1"}], ")"}], "!"}]}],
+ "-",
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"nDers", "+", "1"}]}], "]"}], "]"}]}], ")"}], "/",
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"nDers", "+", "1"}]}], "]"}], "]"}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"dFd\[Eta]List", "[",
+ RowBox[{"n2", ",", "h2"}], "]"}], "[", "nDers", "]"}], "[",
+ "1", "]"}], "/.", "sol2"}], ")"}], "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"nDers", "+", "1"}], "]"}], "-", "1"}], ")"}], "!"}]}],
+ "-",
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"nDers", "+", "1"}]}], "]"}], "]"}]}], ")"}], "/",
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"nDers", "+", "1"}]}], "]"}], "]"}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"dFd\[Eta]List", "[",
+ RowBox[{"n3", ",", "h3"}], "]"}], "[", "nDers", "]"}], "[",
+ "1", "]"}], "/.", "sol3"}], ")"}], "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"nDers", "+", "1"}], "]"}], "-", "1"}], ")"}], "!"}]}],
+ "-",
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"nDers", "+", "1"}]}], "]"}], "]"}]}], ")"}], "/",
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"nDers", "+", "1"}]}], "]"}], "]"}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"dFd\[Eta]List", "[",
+ RowBox[{"n4", ",", "h4"}], "]"}], "[", "nDers", "]"}], "[",
+ "1", "]"}], "/.", "sol4"}], ")"}], "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"nDers", "+", "1"}], "]"}], "-", "1"}], ")"}], "!"}]}],
+ "-",
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"nDers", "+", "1"}]}], "]"}], "]"}]}], ")"}], "/",
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"nDers", "+", "1"}]}], "]"}], "]"}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"dFd\[Eta]List", "[",
+ RowBox[{"n5", ",", "h5"}], "]"}], "[", "nDers", "]"}], "[",
+ "1", "]"}], "/.", "sol5"}], ")"}], "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"nDers", "+", "1"}], "]"}], "-", "1"}], ")"}], "!"}]}],
+ "-",
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"nDers", "+", "1"}]}], "]"}], "]"}]}], ")"}], "/",
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"nDers", "+", "1"}]}], "]"}], "]"}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"dFd\[Eta]List", "[",
+ RowBox[{"n6", ",", "h6"}], "]"}], "[", "nDers", "]"}], "[",
+ "1", "]"}], "/.", "sol6"}], ")"}], "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"nDers", "+", "1"}], "]"}], "-", "1"}], ")"}], "!"}]}],
+ "-",
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"nDers", "+", "1"}]}], "]"}], "]"}]}], ")"}], "/",
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"nDers", "+", "1"}]}], "]"}], "]"}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"dFd\[Eta]List", "[",
+ RowBox[{"n7", ",", "h7"}], "]"}], "[", "nDers", "]"}], "[",
+ "1", "]"}], "/.", "sol7"}], ")"}], "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"nDers", "+", "1"}], "]"}], "-", "1"}], ")"}], "!"}]}],
+ "-",
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"nDers", "+", "1"}]}], "]"}], "]"}]}], ")"}], "/",
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"nDers", "+", "1"}]}], "]"}], "]"}]}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"dFd\[Eta]List", "[",
+ RowBox[{"n8", ",", "h8"}], "]"}], "[", "nDers", "]"}], "[",
+ "1", "]"}], "/.", "sol8"}], ")"}], "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"nDers", "+", "1"}], "]"}], "-", "1"}], ")"}], "!"}]}],
+ "-",
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"nDers", "+", "1"}]}], "]"}], "]"}]}], ")"}], "/",
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"nDers", "+", "1"}]}], "]"}], "]"}]}]}],
+ "\[IndentingNewLine]", "}"}], "]"}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"Joined", "\[Rule]", "True"}]}], "\[IndentingNewLine]",
+ "]"}]}], "Input",
+ CellChangeTimes->{{3.82921532644421*^9, 3.8292153282278833`*^9}, {
+ 3.829215611882798*^9, 3.829215612104576*^9}, {3.829216583458324*^9,
+ 3.8292165875219193`*^9}, {3.829367110960002*^9, 3.829367143816826*^9}, {
+ 3.829367389989477*^9, 3.829367438205935*^9}, {3.829367503359827*^9,
+ 3.8293675072631483`*^9}, {3.8293696151493797`*^9, 3.829369621293063*^9}, {
+ 3.8293698706586437`*^9, 3.829369870841663*^9}, {3.829369916858549*^9,
+ 3.829370076445613*^9}, {3.829370543238555*^9, 3.8293707088412647`*^9}, {
+ 3.8293711628972483`*^9, 3.8293711629929657`*^9}, {3.8293716073539753`*^9,
+ 3.8293716133695517`*^9}, {3.829371759796569*^9, 3.829371766260796*^9}, {
+ 3.829371914719966*^9, 3.829371954448183*^9}, {3.8293721552687683`*^9,
+ 3.829372165667699*^9}},
+ CellLabel->
+ "In[433]:=",ExpressionUUID->"a8eefdf0-e27a-49c2-a914-30fe2e3be695"],
+
+Cell[BoxData[
+ GraphicsBox[{{}, {{}, {},
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ LineBox[{{0., -7.437943468417862}, {
+ 0.6931471805599453, -7.549824530383977}, {
+ 1.0986122886681098`, -8.508259803904227}, {
+ 1.3862943611198906`, -8.516853568497174}, {
+ 1.6094379124341003`, -9.600034187800858}, {
+ 1.791759469228055, -8.394815858613478}, {
+ 1.9459101490553132`, -8.882036288104693}, {
+ 2.0794415416798357`, -8.483935926134446}}]},
+ {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ LineBox[{{0., -5.450656023030978}, {
+ 0.6931471805599453, -5.512410441507786}, {
+ 1.0986122886681098`, -6.1189056443984615`}, {
+ 1.3862943611198906`, -6.064769017480359}, {
+ 1.6094379124341003`, -6.932721418279691}, {
+ 1.791759469228055, -6.009840984165251}, {
+ 1.9459101490553132`, -6.533694528704457}, {
+ 2.0794415416798357`, -6.420185301067801}}]},
+ {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ LineBox[{{0., -4.8993055054074715`}, {
+ 0.6931471805599453, -4.880447760481651}, {
+ 1.0986122886681098`, -4.912486973997154}, {
+ 1.3862943611198906`, -4.86601799455241}, {
+ 1.6094379124341003`, -5.425867999619909}, {
+ 1.791759469228055, -5.037438467466217}, {
+ 1.9459101490553132`, -5.391744297207206}, {
+ 2.0794415416798357`, -5.520802777153712}}]},
+ {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ LineBox[{{0., -3.47633531039003}, {
+ 0.6931471805599453, -3.657447099742362}, {
+ 1.0986122886681098`, -4.126748554019758}, {
+ 1.3862943611198906`, -5.018241347391184}, {
+ 1.6094379124341003`, -4.02843065731388}, {
+ 1.791759469228055, -3.990765422483528}, {
+ 1.9459101490553132`, -4.628564681515125}, {
+ 2.0794415416798357`, -6.072896211160162}}]}}, {{}, {}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{-0.08754593296134726, -10.079248377132293`},
+ DisplayFunction->Identity,
+ Frame->{{False, False}, {False, False}},
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->{{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Log, Exp}]}, {
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Log, Exp}]}},
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Exp[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Exp[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& )}},
+ PlotRange->{{-0.08754593296134726,
+ 2.0794415416798357`}, {-10.079248377132293`, -3.47633531039003}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->FrontEndValueCache[{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledTicks[{Log, Exp}]}, {{{0.,
+ FormBox["1", TraditionalForm], {0.01, 0.}}, {0.6931471805599453,
+ FormBox["2", TraditionalForm], {0.01, 0.}}, {1.6094379124341003`,
+ FormBox["5", TraditionalForm], {0.01, 0.}}, {0.4054651081081644,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 8.699514748210191,
+ 1.0986122886681098`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 8.85366542803745,
+ 1.3862943611198906`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 8.987196820661973,
+ 1.791759469228055,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 9.104979856318357,
+ 1.9459101490553132`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 9.903487552536127,
+ 2.0794415416798357`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 10.308952660644293`,
+ 2.1972245773362196`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 10.596634733096073`,
+ 2.302585092994046,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 10.819778284410283`,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}}, {{-9.903487552536127,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 11.002099841204238`,
+ TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`",
+ TemplateBox[{"10",
+ RowBox[{"-", "5"}]}, "Superscript", SyntaxForm ->
+ SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01,
+ 0.}}, {-9.210340371976182,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 11.156250521031495`,
+ TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`",
+ TemplateBox[{"10",
+ RowBox[{"-", "4"}]}, "Superscript", SyntaxForm ->
+ SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01,
+ 0.}}, {-7.600902459542082,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 11.289781913656018`,
+ 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.}}, {-5.298317366548036,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 11.407564949312402`,
+ TagBox[
+ InterpretationBox[
+ StyleBox["\"0.005\"", ShowStringCharacters -> False], 0.005,
+ AutoDelete -> True], NumberForm[#, {
+ DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01,
+ 0.}}, {-4.605170185988091,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 11.512925464970229`,
+ TagBox[
+ InterpretationBox[
+ StyleBox["\"0.010\"", ShowStringCharacters -> False], 0.01,
+ AutoDelete -> True], NumberForm[#, {
+ DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01,
+ 0.}}, {-11.512925464970229`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-10.819778284410283`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-10.41431317630212,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-10.126631103850338`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.721165995742174,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.567015315914915,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.433483923290392,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-9.315700887634009,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-8.517193191416238,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-8.111728083308073,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.824046010856292,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.418580902748128,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.264430222920869,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.1308988302963465`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-7.013115794639964,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-6.214608098422191,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.809142990314028,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.521460917862246,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.115995809754082,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.961845129926823,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.8283137373023015`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.710530701645918,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.912023005428146,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.506557897319982,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.2188758248682006`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.995732273553991,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.8134107167600364`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.659260036932778,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.5257286443082556`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.4079456086518722`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.3025850929940455`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.8971199848858813`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.6094379124341003`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.3862943611198906`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
0.}}}}]]], "Output",
CellChangeTimes->{
- 3.829128192696102*^9, 3.8291283114274397`*^9, {3.829128370744546*^9,
- 3.829128445841797*^9}, {3.829128480636278*^9, 3.829128527376986*^9},
- 3.8291285849859743`*^9},
+ 3.829214519210514*^9, 3.829215328499728*^9, 3.8292156168239822`*^9, {
+ 3.829367131484058*^9, 3.829367144316544*^9}, {3.829367386805008*^9,
+ 3.829367390300955*^9}, {3.82936743234107*^9, 3.8293674383630447`*^9}, {
+ 3.829367503857954*^9, 3.82936750753214*^9}, 3.829369621552491*^9,
+ 3.829369871171832*^9, 3.829369905194378*^9, {3.8293699796764927`*^9,
+ 3.82937007743961*^9}, 3.829370555323691*^9, {3.829370631685339*^9,
+ 3.829370665236713*^9}, 3.8293707111183577`*^9, 3.829371113342325*^9,
+ 3.829371163630888*^9, 3.829371437845914*^9, 3.8293714778197527`*^9, {
+ 3.829371603694727*^9, 3.8293716143249617`*^9}, 3.829371767776716*^9, {
+ 3.8293719328817177`*^9, 3.82937195638072*^9}, 3.8293721687419367`*^9},
+ CellLabel->
+ "Out[434]=",ExpressionUUID->"74dd1d49-7e7f-4e72-b8c9-ce6b451108d3"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"dFd\[Eta]List", "[",
+ RowBox[{"n3", ",", "h3"}], "]"}], "[", "7", "]"}], "[", "1", "]"}], "/.",
+ "sol3"}], ")"}]], "Input",
+ CellChangeTimes->{{3.829215147256686*^9, 3.82921515110463*^9}, {
+ 3.829215332404174*^9, 3.8292153358038597`*^9}, {3.829215515647306*^9,
+ 3.829215520503132*^9}},
+ CellLabel->
+ "In[352]:=",ExpressionUUID->"87e7aafd-8c36-4839-935c-cc46bf1f01dd"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "1.2209015136118588`"}], ",",
+ RowBox[{"-", "0.5987606586735434`"}], ",",
+ RowBox[{"-", "1.0261123809938226`"}], ",",
+ RowBox[{"-", "3.3485650758250545`"}], ",",
+ RowBox[{"-", "4.0115086447129125`"}], ",", "19.33543874059086`", ",",
+ "138.82848905796678`", ",", "37.91379970923143`"}], "}"}]], "Output",
+ CellChangeTimes->{3.8292149575807447`*^9, 3.829215028813858*^9,
+ 3.8292150871125193`*^9, 3.829215155180462*^9, 3.82921533986421*^9,
+ 3.829215525899165*^9},
+ CellLabel->
+ "Out[352]=",ExpressionUUID->"fe7c92bd-96d2-4bd2-8311-6587e6a29f3e"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"eqMid", "[",
+ RowBox[{
+ RowBox[{"RF", "[", "n2", "]"}], ",", "h2"}], "]"}], "/@",
+ RowBox[{"Range", "[",
+ RowBox[{"0", ",", "7"}], "]"}]}], "/.", "rules"}], "/.",
+ "sol2"}]], "Input",
+ CellChangeTimes->{{3.829215465142867*^9, 3.829215502374672*^9}, {
+ 3.8292159398227987`*^9, 3.8292159573508472`*^9}, {3.829216783669806*^9,
+ 3.8292167894774714`*^9}},
+ CellLabel->
+ "In[542]:=",ExpressionUUID->"148e9d0d-8b87-4af5-afd5-d33dbd331cbd"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0.000010784388009249524`", ",",
+ RowBox[{"-", "0.00010661150152124765`"}], ",",
+ RowBox[{"-", "0.000010846184182788932`"}], ",", "0.01593614309287794`",
+ ",",
+ RowBox[{"-", "0.08258460482704066`"}], ",",
+ RowBox[{"-", "3.0423976399868593`"}], ",", "16.070692354679068`", ",",
+ "759.4345466390951`"}], "}"}]], "Output",
+ CellChangeTimes->{{3.829215491948945*^9, 3.829215503507619*^9},
+ 3.829215834180406*^9, 3.829215959774035*^9, 3.8292165910875263`*^9,
+ 3.829216789927553*^9},
CellLabel->
- "Out[373]=",ExpressionUUID->"2f12c755-d3dd-40d8-87e9-318ce1ff9f8f"]
+ "Out[542]=",ExpressionUUID->"2cb15991-5446-4550-9d2b-990382cc6e0b"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Limit", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"D", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"RF", "[", "2", "]"}], "[", "\[Theta]", "]"}], ",",
+ "\[Theta]"}], "]"}], "/.", "sol1"}], ",",
+ RowBox[{
+ RowBox[{"\[Theta]", "\[Rule]", "\[Theta]c"}], "/.", "sol1"}]}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.829215987264344*^9, 3.82921603844035*^9}, {
+ 3.829216089897472*^9, 3.8292161069858932`*^9}, {3.829216620546949*^9,
+ 3.8292166243628798`*^9}},
+ CellLabel->
+ "In[519]:=",ExpressionUUID->"8daebff1-3cc2-4bf5-8cc4-604c65c548b0"],
+
+Cell[BoxData["2.4144695252814903`"], "Output",
+ CellChangeTimes->{{3.8292160138328953`*^9, 3.829216038894199*^9}, {
+ 3.82921609030424*^9, 3.829216107215542*^9}, 3.829216244996345*^9,
+ 3.829216578885377*^9, 3.829216628381124*^9},
+ CellLabel->
+ "Out[519]=",ExpressionUUID->"9cd4be6d-9037-487d-805c-0e30c732a88f"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{
+ RowBox[{"dRFc", "[", "2", "]"}], "[", "1", "]"}], "/.", "sol1"}]], "Input",\
+
+ CellChangeTimes->{{3.829216048737444*^9, 3.829216085449163*^9}, {
+ 3.829216631227084*^9, 3.8292166313308983`*^9}},
+ CellLabel->
+ "In[520]:=",ExpressionUUID->"ec87e975-8e91-4764-a5f8-d113176427a6"],
+
+Cell[BoxData["2.4144695252814907`"], "Output",
+ CellChangeTimes->{{3.829216068364731*^9, 3.829216109236269*^9},
+ 3.8292162459587803`*^9, 3.829216579037269*^9, 3.8292166316662893`*^9},
+ CellLabel->
+ "Out[520]=",ExpressionUUID->"682ebcdb-8d48-4545-9fb6-2815a9591a34"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"\[CapitalPhi]s",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"Length", "[", "\[CapitalPhi]s", "]"}], "]"}], "-", "1"}],
+ ")"}], "!"}], ")"}]}], "-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"dFd\[Eta]List", "[",
+ RowBox[{"n3", ",", "h3"}], "]"}], "[", "7", "]"}], "[", "1", "]"}], "/.",
+ "sol3"}], ")"}]}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Abs", "[", "\[CapitalPhi]s", "]"}],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"Length", "[", "\[CapitalPhi]s", "]"}], "]"}], "-", "1"}],
+ ")"}], "!"}], ")"}]}], ")"}]}]], "Input",
+ CellChangeTimes->{{3.829214450084076*^9, 3.829214514093236*^9}, {
+ 3.829214940549594*^9, 3.829214944181127*^9}, {3.8292167996786633`*^9,
+ 3.829216828142495*^9}, {3.829218549909458*^9, 3.829218553196967*^9}},
+ CellLabel->"In[70]:=",ExpressionUUID->"bd4bec0c-34d4-42ea-8210-676c5a4f3b02"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0.000022427084918281432`", ",",
+ RowBox[{"-", "0.00022384751246438126`"}], ",", "0.0006266144920965866`",
+ ",",
+ RowBox[{"-", "0.00015732356146073485`"}], ",",
+ RowBox[{"-", "0.23659270553621922`"}], ",", "0.12306809405513881`", ",",
+ RowBox[{"-", "0.0704318428717379`"}], ",",
+ RowBox[{"-", "0.5904035676162792`"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.829214506256106*^9, 3.8292145142976837`*^9}, {
+ 3.8292149363206987`*^9, 3.829214944670969*^9}, 3.829215097196248*^9, {
+ 3.82921680980542*^9, 3.82921683287387*^9}, {3.829218542135578*^9,
+ 3.829218557577924*^9}, 3.8292205507401657`*^9},
+ CellLabel->"Out[70]=",ExpressionUUID->"6744c9f9-54df-4620-86fe-20c2a1fb0a38"]
}, Open ]],
Cell[BoxData[
@@ -626,21 +6479,20 @@ Cell[BoxData[
3.829124819131159*^9, 3.829124820059058*^9}, {3.829124921933023*^9,
3.829124922484612*^9}, {3.829127342416758*^9, 3.829127346984823*^9}, {
3.829128746146785*^9, 3.8291287511066723`*^9}},
- CellLabel->
- "In[379]:=",ExpressionUUID->"cb5903e7-4ebd-478a-913d-f8dce03353cd"],
+ CellLabel->"In[64]:=",ExpressionUUID->"cb5903e7-4ebd-478a-913d-f8dce03353cd"],
Cell[CellGroupData[{
Cell[BoxData[
- RowBox[{"\[Chi]1", "/.", "sol1"}]], "Input",
- CellChangeTimes->{{3.829128735821224*^9, 3.8291287395622873`*^9}},
- CellLabel->
- "In[381]:=",ExpressionUUID->"7f91ac8c-3dfe-4e6e-876b-c110d899b203"],
+ RowBox[{"\[Chi]1", "/.", "sol2"}]], "Input",
+ CellChangeTimes->{{3.829128735821224*^9, 3.8291287395622873`*^9}, {
+ 3.829212557770432*^9, 3.829212557905909*^9}},
+ CellLabel->"In[66]:=",ExpressionUUID->"7f91ac8c-3dfe-4e6e-876b-c110d899b203"],
-Cell[BoxData["4.1052971990475674`*^12"], "Output",
- CellChangeTimes->{{3.829128742937537*^9, 3.829128770957787*^9}},
- CellLabel->
- "Out[381]=",ExpressionUUID->"f367ab84-740d-4542-aecb-a654187fa9c9"]
+Cell[BoxData["1.0692506221653933`*^29"], "Output",
+ CellChangeTimes->{{3.829128742937537*^9, 3.829128770957787*^9}, {
+ 3.829212555971856*^9, 3.829212562210121*^9}},
+ CellLabel->"Out[66]=",ExpressionUUID->"66d898e0-c199-4cd1-8c92-f951620499ab"]
}, Open ]],
Cell[CellGroupData[{
@@ -652,7 +6504,7 @@ Cell[BoxData[
RowBox[{"Evaluate", "[",
RowBox[{
RowBox[{"(",
- RowBox[{"sol1", "/.",
+ RowBox[{"sol2", "/.",
RowBox[{"Rule", "\[Rule]", "List"}]}], ")"}], "/.",
RowBox[{
RowBox[{"{",
@@ -673,51 +6525,10 @@ Cell[BoxData[
3.829124382571765*^9, 3.829124382651135*^9}, {3.829124440172708*^9,
3.8291244403803043`*^9}, {3.8291244895336113`*^9, 3.8291244896211433`*^9}, {
3.829129140498214*^9, 3.829129140769774*^9}, {3.829130096659424*^9,
- 3.829130097083221*^9}},
- CellLabel->
- "In[386]:=",ExpressionUUID->"d7af33b7-ba2b-49a3-aafc-91ee8eb488da"],
+ 3.829130097083221*^9}, {3.82921256845848*^9, 3.829212568594303*^9}},
+ CellLabel->"In[67]:=",ExpressionUUID->"d7af33b7-ba2b-49a3-aafc-91ee8eb488da"],
-Cell[BoxData[
- TemplateBox[{
- "FindMinimum", "cvmit",
- "\"Failed to converge to the requested accuracy or precision within \\!\\(\
-\\*RowBox[{\\\"100000\\\"}]\\) iterations.\"", 2, 386, 220,
- 31556880007350139193, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.8291290276646347`*^9, 3.829129824808489*^9,
- 3.829131216763627*^9},
- CellLabel->
- "During evaluation of \
-In[386]:=",ExpressionUUID->"cf5c4570-e073-4321-8197-2c932fbcbd12"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{"2.6266686200238496`*^12", ",",
- RowBox[{"{",
- RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.4039993858631266`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.30257181805728073`"}], ",",
- RowBox[{"B", "\[Rule]", "8.166495191068217`"}], ",",
- RowBox[{"AH", "\[Rule]", "1.3566803544766115`"}], ",",
- RowBox[{"AL", "\[Rule]",
- RowBox[{"-", "1.1202460386274`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "0", "]"}], "\[Rule]",
- RowBox[{"-", "0.18500849099492225`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "3.372917079256764`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.6590442577580108`"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "1", "]"}], "\[Rule]", "2.1643517532605405`"}], ",",
-
- RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
- RowBox[{"-", "0.19019134069969548`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.0072413442722081365`"}]}]}], "}"}]}], "}"}]], "Output",
+Cell[BoxData["$Aborted"], "Output",
CellChangeTimes->{{3.8278517363834887`*^9, 3.8278517875362177`*^9}, {
3.8279175132620077`*^9, 3.8279176356372232`*^9}, {3.8279177244545183`*^9,
3.8279177821795588`*^9}, {3.827917985270953*^9, 3.8279180623803253`*^9}, {
@@ -727,9 +6538,8 @@ Cell[BoxData[
3.8291244029163094`*^9}, 3.829124476879519*^9, 3.829124540995426*^9,
3.829124788565325*^9, 3.829125031754052*^9, 3.829127553574327*^9,
3.8291287343930492`*^9, 3.829129027676331*^9, 3.829129824820684*^9,
- 3.829131216774679*^9},
- CellLabel->
- "Out[386]=",ExpressionUUID->"e2f07089-f1f1-4d81-8dde-1f4fc196a236"]
+ 3.829131216774679*^9, 3.829212652544859*^9},
+ CellLabel->"Out[67]=",ExpressionUUID->"76e092cb-b3ca-4ad3-8371-d22bc3bdbfec"]
}, Open ]],
Cell[CellGroupData[{
@@ -63605,8 +69415,8 @@ Cell[BoxData["4.1052971990475674`*^12"], "Output",
}, Open ]]
}, Open ]]
},
-WindowSize->{957, 1062},
-WindowMargins->{{Automatic, 1.5}, {1.5, Automatic}},
+WindowSize->{1917, 1062},
+WindowMargins->{{1.5, Automatic}, {1.5, Automatic}},
FrontEndVersion->"12.2 for Linux x86 (64-bit) (December 12, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"6f6c570c-dfc0-4320-bdc7-0f1de62bb24c"
@@ -63623,395 +69433,507 @@ CellTagsIndex->{}
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 601, 11, 24, "Input",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"],
+Cell[1162, 33, 550, 14, 41, "Input",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"],
+Cell[CellGroupData[{
+Cell[1737, 51, 156, 3, 50, "Section",ExpressionUUID->"bb531fce-8a9d-4a5f-8d6a-ec66b9fbf698"],
+Cell[1896, 56, 6997, 104, 71, "Input",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"],
+Cell[CellGroupData[{
+Cell[8918, 164, 9151, 136, 39, "Input",ExpressionUUID->"3d566693-1b4e-4bc5-b33b-b8036e1e4822"],
+Cell[18072, 302, 3412, 56, 42, "Output",ExpressionUUID->"827b45f8-036a-4707-a544-af07c7899e74"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[21521, 363, 1519, 32, 75, "Input",ExpressionUUID->"ebb4c874-bb28-449d-8bcb-e2e4531ba683"],
+Cell[23043, 397, 7381, 156, 181, "Output",ExpressionUUID->"1960a7a4-3ea5-44a1-b144-07eeafdaa210"]
+}, Open ]],
+Cell[30439, 556, 5749, 87, 71, "Input",ExpressionUUID->"34ec14f2-e69a-4233-afa7-8b9340ca265f"],
+Cell[CellGroupData[{
+Cell[36213, 647, 8953, 127, 24, "Input",ExpressionUUID->"3c891175-2642-465d-b121-e5989a86c957"],
+Cell[45169, 776, 6131, 93, 42, "Output",ExpressionUUID->"fceab09e-fc60-4843-9773-a38dbb6c64e9"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[51337, 874, 1241, 28, 75, "Input",ExpressionUUID->"f64e2eb8-4318-4e8f-af9c-c3c51317913e"],
+Cell[52581, 904, 6873, 149, 181, "Output",ExpressionUUID->"0e0ace01-33a4-48d3-bd55-128f7acfa937"]
+}, Open ]],
+Cell[59469, 1056, 5402, 83, 71, "Input",ExpressionUUID->"a96db868-d41f-433d-88d3-73a2b34157b2"],
+Cell[CellGroupData[{
+Cell[64896, 1143, 8782, 126, 24, "Input",ExpressionUUID->"9e3392d7-9445-477b-9e57-3faef08acef1"],
+Cell[73681, 1271, 6006, 93, 25, "Output",ExpressionUUID->"ed22ffb0-101c-458f-8b4c-fe95e3b102ba"]
+}, Open ]],
+Cell[79702, 1367, 5352, 82, 71, "Input",ExpressionUUID->"fb46f7c2-5761-4a64-9a5f-872dd3265e1c"],
+Cell[CellGroupData[{
+Cell[85079, 1453, 8931, 128, 24, "Input",ExpressionUUID->"3d7346aa-9d8e-46fd-bcb4-ca52fff0d32a"],
+Cell[94013, 1583, 6462, 102, 25, "Output",ExpressionUUID->"1039063c-eea7-4dae-b37a-5b3048f96132"]
+}, Open ]],
+Cell[100490, 1688, 5397, 83, 71, "Input",ExpressionUUID->"1a9cafff-78bf-40d5-9387-97742820a6dc"],
+Cell[CellGroupData[{
+Cell[105912, 1775, 9462, 135, 24, "Input",ExpressionUUID->"7bdef841-d628-418c-9bec-b16ca8655e30"],
+Cell[115377, 1912, 7043, 114, 27, "Output",ExpressionUUID->"b003f586-baf5-42a5-a64c-daf48392cf73"]
+}, Open ]],
+Cell[122435, 2029, 5795, 88, 71, "Input",ExpressionUUID->"53343c2f-4579-48fe-afdc-6555d61fefc7"],
+Cell[CellGroupData[{
+Cell[128255, 2121, 9762, 139, 24, "Input",ExpressionUUID->"19f0837b-60bb-491b-b21f-34926c9efae8"],
+Cell[138020, 2262, 7495, 123, 44, "Output",ExpressionUUID->"ddc3001a-40be-43b8-8f48-bf2181fa6460"]
+}, Open ]],
+Cell[145530, 2388, 5849, 89, 71, "Input",ExpressionUUID->"3c48ca79-1fa5-4b7f-9423-94e659aae362"],
+Cell[CellGroupData[{
+Cell[151404, 2481, 9815, 140, 24, "Input",ExpressionUUID->"c0c5581e-24f4-4c1d-bac2-acde9933d21a"],
+Cell[161222, 2623, 7727, 129, 44, "Output",ExpressionUUID->"92e95fe7-fa26-4b73-afd5-5c8785f5087c"]
+}, Open ]],
+Cell[168964, 2755, 5944, 90, 71, "Input",ExpressionUUID->"89ac8434-0e5c-4a82-ae51-65e191e4c98a"],
Cell[CellGroupData[{
-Cell[1184, 35, 156, 3, 50, "Section",ExpressionUUID->"bb531fce-8a9d-4a5f-8d6a-ec66b9fbf698"],
-Cell[1343, 40, 5952, 89, 55, "Input",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"],
+Cell[174933, 2849, 9910, 141, 24, "Input",ExpressionUUID->"a4de7394-b723-4a62-9094-2b462110711f"],
+Cell[184846, 2992, 8011, 135, 44, "Output",ExpressionUUID->"0fc16135-4c02-4160-9972-719eb474dfc8"]
+}, Open ]],
+Cell[192872, 3130, 6094, 92, 71, "Input",ExpressionUUID->"ec5df7b8-ae45-47d9-baba-654f2daf3d01"],
+Cell[CellGroupData[{
+Cell[198991, 3226, 9981, 142, 24, "Input",ExpressionUUID->"c28fec6d-42be-4754-8ff5-9f7327a42e34"],
+Cell[208975, 3370, 8332, 144, 44, "Output",ExpressionUUID->"ca90c33c-45bf-492a-8e3d-ef9c067845bd"]
+}, Open ]],
+Cell[217322, 3517, 6600, 99, 71, "Input",ExpressionUUID->"454bbf34-d098-476d-8e27-8e882ae07c56"],
+Cell[CellGroupData[{
+Cell[223947, 3620, 10207, 145, 24, "Input",ExpressionUUID->"fdda266d-54c1-43db-b6a7-a3d02502cd24"],
+Cell[234157, 3767, 6322, 87, 25, "Output",ExpressionUUID->"1173f315-2601-4cb1-b1f5-116043873cc4"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[240516, 3859, 989, 26, 22, "Input",ExpressionUUID->"fa8135b4-fdf8-4590-be4e-73b4dd086cab"],
+Cell[241508, 3887, 29684, 514, 180, "Output",ExpressionUUID->"b467e01b-245b-47f8-89b6-6454d4ed164e"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[271229, 4406, 1353, 36, 97, "Input",ExpressionUUID->"cc6e347d-f77c-4f26-9e64-3aa0e0a52e0c"],
+Cell[272585, 4444, 4312, 88, 184, "Output",ExpressionUUID->"35fbcaba-895c-43d9-934e-77663d7cb2a6"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[276934, 4537, 1284, 28, 75, "Input",ExpressionUUID->"379795e2-1f10-4c9d-aca9-574975c0b53e"],
+Cell[278221, 4567, 6221, 139, 181, "Output",ExpressionUUID->"e32fce1f-84cc-4e58-9ec5-270c393270f4"]
+}, Open ]],
+Cell[284457, 4709, 5436, 83, 71, "Input",ExpressionUUID->"614f63fe-75a0-4c56-b782-48ad98bc3c89"],
+Cell[CellGroupData[{
+Cell[289918, 4796, 9564, 136, 24, "Input",ExpressionUUID->"b56cc8a2-a504-4115-9171-a6a6d7088e3d"],
+Cell[299485, 4934, 7487, 126, 92, "Output",ExpressionUUID->"56bd1e88-9615-4515-9caf-f2b140d00ea4"]
+}, Open ]],
+Cell[306987, 5063, 5536, 85, 71, "Input",ExpressionUUID->"8507c1e3-d3a8-4bd7-b4aa-90d91d45805d"],
+Cell[CellGroupData[{
+Cell[312548, 5152, 9601, 136, 24, "Input",ExpressionUUID->"de38480a-2d94-4587-b72d-6e029e15ee96"],
+Cell[322152, 5290, 7667, 130, 92, "Output",ExpressionUUID->"43225297-d195-4377-8f95-86dbf3b45b01"]
+}, Open ]],
+Cell[329834, 5423, 5834, 89, 71, "Input",ExpressionUUID->"2ec9732b-3292-49d0-bac5-10ca2b2e2d27"],
+Cell[CellGroupData[{
+Cell[335693, 5516, 9747, 138, 24, "Input",ExpressionUUID->"139619cc-039b-4609-af7c-bff6ef22fb47"],
+Cell[345443, 5656, 5810, 80, 25, "Output",ExpressionUUID->"afa14344-bd55-431e-aa6c-c70efe6c5a4d"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[351290, 5741, 173, 4, 22, "Input",ExpressionUUID->"0187bca3-1d0a-4623-aec5-953f437b51fd"],
+Cell[351466, 5747, 189, 4, 25, "Output",ExpressionUUID->"598fc733-e306-4afa-b2be-5b73d49e16c2"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[351692, 5756, 458, 12, 22, "Input",ExpressionUUID->"73d2b785-99f4-4bfb-b83d-3176ccfa253d"],
+Cell[352153, 5770, 335, 6, 25, "Output",ExpressionUUID->"d9b0e840-276e-4933-8ac7-3b44810cdfd7"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[352525, 5781, 183, 3, 22, "Input",ExpressionUUID->"a3876a42-f9a7-42bf-bb98-8f496b0b9429"],
+Cell[352711, 5786, 793, 19, 42, "Output",ExpressionUUID->"25c6c990-0648-4b53-88ec-85fbf153b84d"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[353541, 5810, 8397, 231, 373, "Input",ExpressionUUID->"a8eefdf0-e27a-49c2-a914-30fe2e3be695"],
+Cell[361941, 6043, 10866, 253, 170, "Output",ExpressionUUID->"74dd1d49-7e7f-4e72-b8c9-ce6b451108d3"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[372844, 6301, 459, 12, 24, "Input",ExpressionUUID->"87e7aafd-8c36-4839-935c-cc46bf1f01dd"],
+Cell[373306, 6315, 618, 13, 25, "Output",ExpressionUUID->"fe7c92bd-96d2-4bd2-8311-6587e6a29f3e"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[373961, 6333, 517, 14, 22, "Input",ExpressionUUID->"148e9d0d-8b87-4af5-afd5-d33dbd331cbd"],
+Cell[374481, 6349, 623, 13, 25, "Output",ExpressionUUID->"2cb15991-5446-4550-9d2b-990382cc6e0b"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[375141, 6367, 579, 16, 22, "Input",ExpressionUUID->"8daebff1-3cc2-4bf5-8cc4-604c65c548b0"],
+Cell[375723, 6385, 316, 5, 25, "Output",ExpressionUUID->"9cd4be6d-9037-487d-805c-0e30c732a88f"]
+}, Open ]],
Cell[CellGroupData[{
-Cell[7320, 133, 7819, 117, 22, "Input",ExpressionUUID->"3d566693-1b4e-4bc5-b33b-b8036e1e4822"],
-Cell[15142, 252, 2178, 42, 42, "Output",ExpressionUUID->"be0089f1-72a3-41ac-aaa8-4e24df0a52e9"]
+Cell[376076, 6395, 315, 8, 22, "Input",ExpressionUUID->"ec87e975-8e91-4764-a5f8-d113176427a6"],
+Cell[376394, 6405, 269, 4, 25, "Output",ExpressionUUID->"682ebcdb-8d48-4545-9fb6-2815a9591a34"]
}, Open ]],
Cell[CellGroupData[{
-Cell[17357, 299, 999, 25, 71, "Input",ExpressionUUID->"ebb4c874-bb28-449d-8bcb-e2e4531ba683"],
-Cell[18359, 326, 11957, 282, 183, "Output",ExpressionUUID->"2f12c755-d3dd-40d8-87e9-318ce1ff9f8f"]
+Cell[376700, 6414, 1119, 32, 40, "Input",ExpressionUUID->"bd4bec0c-34d4-42ea-8210-676c5a4f3b02"],
+Cell[377822, 6448, 737, 13, 42, "Output",ExpressionUUID->"6744c9f9-54df-4620-86fe-20c2a1fb0a38"]
}, Open ]],
-Cell[30331, 611, 1037, 18, 22, "Input",ExpressionUUID->"cb5903e7-4ebd-478a-913d-f8dce03353cd"],
+Cell[378574, 6464, 1033, 17, 22, "Input",ExpressionUUID->"cb5903e7-4ebd-478a-913d-f8dce03353cd"],
Cell[CellGroupData[{
-Cell[31393, 633, 210, 4, 22, "Input",ExpressionUUID->"7f91ac8c-3dfe-4e6e-876b-c110d899b203"],
-Cell[31606, 639, 199, 3, 25, "Output",ExpressionUUID->"f367ab84-740d-4542-aecb-a654187fa9c9"]
+Cell[379632, 6485, 255, 4, 22, "Input",ExpressionUUID->"7f91ac8c-3dfe-4e6e-876b-c110d899b203"],
+Cell[379890, 6491, 244, 3, 25, "Output",ExpressionUUID->"66d898e0-c199-4cd1-8c92-f951620499ab"]
}, Open ]],
Cell[CellGroupData[{
-Cell[31842, 647, 1365, 30, 24, "Input",ExpressionUUID->"d7af33b7-ba2b-49a3-aafc-91ee8eb488da"],
-Cell[33210, 679, 468, 11, 18, "Message",ExpressionUUID->"cf5c4570-e073-4321-8197-2c932fbcbd12"],
-Cell[33681, 692, 1884, 39, 44, "Output",ExpressionUUID->"e2f07089-f1f1-4d81-8dde-1f4fc196a236"]
+Cell[380171, 6499, 1406, 29, 75, "Input",ExpressionUUID->"d7af33b7-ba2b-49a3-aafc-91ee8eb488da"],
+Cell[381580, 6530, 823, 11, 25, "Output",ExpressionUUID->"76e092cb-b3ca-4ad3-8371-d22bc3bdbfec"]
}, Open ]],
Cell[CellGroupData[{
-Cell[35602, 736, 1182, 28, 71, "Input",ExpressionUUID->"ba65a569-6e06-47f2-aa64-ce40ed720e16"],
-Cell[36787, 766, 11988, 282, 183, "Output",ExpressionUUID->"49a28651-b01d-4119-8b17-5cececd6f4d8"]
+Cell[382440, 6546, 1182, 28, 71, "Input",ExpressionUUID->"ba65a569-6e06-47f2-aa64-ce40ed720e16"],
+Cell[383625, 6576, 11988, 282, 183, "Output",ExpressionUUID->"49a28651-b01d-4119-8b17-5cececd6f4d8"]
}, Open ]],
-Cell[48790, 1051, 1095, 20, 22, "Input",ExpressionUUID->"f53418ef-e0c9-44a5-92b0-cb484b4f96c8"],
+Cell[395628, 6861, 1095, 20, 22, "Input",ExpressionUUID->"f53418ef-e0c9-44a5-92b0-cb484b4f96c8"],
Cell[CellGroupData[{
-Cell[49910, 1075, 1989, 47, 75, "Input",ExpressionUUID->"a30a4640-3744-4c0b-9800-1073a0fa0d50"],
-Cell[51902, 1124, 261, 5, 25, "Output",ExpressionUUID->"a91af46f-115e-4b5b-a963-4e64b27789f9"]
+Cell[396748, 6885, 1989, 47, 75, "Input",ExpressionUUID->"a30a4640-3744-4c0b-9800-1073a0fa0d50"],
+Cell[398740, 6934, 261, 5, 25, "Output",ExpressionUUID->"a91af46f-115e-4b5b-a963-4e64b27789f9"]
}, Open ]],
Cell[CellGroupData[{
-Cell[52200, 1134, 3516, 71, 75, "Input",ExpressionUUID->"6c557c5e-e6b4-4351-9c51-9653ebaa3755"],
-Cell[55719, 1207, 2601, 36, 25, "Output",ExpressionUUID->"d46b93fb-0f62-45fa-a6de-37bde5cbd060"]
+Cell[399038, 6944, 3516, 71, 157, "Input",ExpressionUUID->"6c557c5e-e6b4-4351-9c51-9653ebaa3755"],
+Cell[402557, 7017, 2601, 36, 25, "Output",ExpressionUUID->"d46b93fb-0f62-45fa-a6de-37bde5cbd060"]
}, Open ]],
Cell[CellGroupData[{
-Cell[58357, 1248, 1025, 28, 37, "Input",ExpressionUUID->"b157e171-c7d5-47f2-b745-8f2e8fa0198c"],
-Cell[59385, 1278, 538, 12, 25, "Output",ExpressionUUID->"5a0db3ec-ac1c-432f-adee-e6747b4db94f"]
+Cell[405195, 7058, 1025, 28, 37, "Input",ExpressionUUID->"b157e171-c7d5-47f2-b745-8f2e8fa0198c"],
+Cell[406223, 7088, 538, 12, 25, "Output",ExpressionUUID->"5a0db3ec-ac1c-432f-adee-e6747b4db94f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[59960, 1295, 940, 24, 24, "Input",ExpressionUUID->"bdb84812-f388-49c2-8ac6-3080c735f5e5"],
-Cell[60903, 1321, 2600, 82, 44, "Output",ExpressionUUID->"b941a263-57d9-4309-b289-83857d3df95f"]
+Cell[406798, 7105, 940, 24, 24, "Input",ExpressionUUID->"bdb84812-f388-49c2-8ac6-3080c735f5e5"],
+Cell[407741, 7131, 2600, 82, 44, "Output",ExpressionUUID->"b941a263-57d9-4309-b289-83857d3df95f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[63540, 1408, 312, 7, 22, "Input",ExpressionUUID->"7fec8d25-6d0b-475e-a3c6-8b90b79f873e"],
-Cell[63855, 1417, 210, 4, 25, "Output",ExpressionUUID->"48c117a8-371e-45ba-aa5f-facdd5f694ec"]
+Cell[410378, 7218, 312, 7, 22, "Input",ExpressionUUID->"7fec8d25-6d0b-475e-a3c6-8b90b79f873e"],
+Cell[410693, 7227, 210, 4, 25, "Output",ExpressionUUID->"48c117a8-371e-45ba-aa5f-facdd5f694ec"]
}, Open ]],
Cell[CellGroupData[{
-Cell[64102, 1426, 624, 18, 39, "Input",ExpressionUUID->"feb6f5a0-8271-4175-8fd5-743c24ab49d2"],
-Cell[64729, 1446, 632, 12, 25, "Output",ExpressionUUID->"b00b9646-7ea6-4e6c-895b-add09ba6b344"]
+Cell[410940, 7236, 624, 18, 39, "Input",ExpressionUUID->"feb6f5a0-8271-4175-8fd5-743c24ab49d2"],
+Cell[411567, 7256, 632, 12, 25, "Output",ExpressionUUID->"b00b9646-7ea6-4e6c-895b-add09ba6b344"]
}, Open ]],
Cell[CellGroupData[{
-Cell[65398, 1463, 1364, 36, 58, "Input",ExpressionUUID->"5553a701-d8ac-42d8-bf96-f61247fd91d5"],
-Cell[66765, 1501, 24078, 497, 171, "Output",ExpressionUUID->"ff2eefd5-74bd-4633-a9f6-bb1945c40989"]
+Cell[412236, 7273, 1364, 36, 58, "Input",ExpressionUUID->"5553a701-d8ac-42d8-bf96-f61247fd91d5"],
+Cell[413603, 7311, 24078, 497, 171, "Output",ExpressionUUID->"ff2eefd5-74bd-4633-a9f6-bb1945c40989"]
}, Open ]],
-Cell[90858, 2001, 4656, 71, 55, "Input",ExpressionUUID->"4dc1af41-4bef-447e-a233-c8c033887359"],
+Cell[437696, 7811, 4656, 71, 55, "Input",ExpressionUUID->"4dc1af41-4bef-447e-a233-c8c033887359"],
Cell[CellGroupData[{
-Cell[95539, 2076, 7928, 115, 22, "Input",ExpressionUUID->"e74b775a-c745-4f15-9b63-7bb00af5a487"],
-Cell[103470, 2193, 440, 10, 18, "Message",ExpressionUUID->"05b00b91-b292-4f86-8ac1-2cad1d50f51c"],
-Cell[103913, 2205, 5412, 91, 42, "Output",ExpressionUUID->"54c0d651-a676-4819-8283-9d2b33e602fc"]
+Cell[442377, 7886, 7928, 115, 22, "Input",ExpressionUUID->"e74b775a-c745-4f15-9b63-7bb00af5a487"],
+Cell[450308, 8003, 440, 10, 18, "Message",ExpressionUUID->"05b00b91-b292-4f86-8ac1-2cad1d50f51c"],
+Cell[450751, 8015, 5412, 91, 42, "Output",ExpressionUUID->"54c0d651-a676-4819-8283-9d2b33e602fc"]
}, Open ]],
Cell[CellGroupData[{
-Cell[109362, 2301, 1935, 37, 71, "Input",ExpressionUUID->"fb42dfa6-f948-472b-87e8-e4cb6e90ba26"],
-Cell[111300, 2340, 18227, 329, 137, "Output",ExpressionUUID->"21f29296-03a7-4cc8-b760-b71dfa22b325"]
+Cell[456200, 8111, 1935, 37, 71, "Input",ExpressionUUID->"fb42dfa6-f948-472b-87e8-e4cb6e90ba26"],
+Cell[458138, 8150, 18227, 329, 137, "Output",ExpressionUUID->"21f29296-03a7-4cc8-b760-b71dfa22b325"]
}, Open ]],
Cell[CellGroupData[{
-Cell[129564, 2674, 1636, 43, 41, "Input",ExpressionUUID->"a60f4b40-cbec-4d33-97f5-65de16370f80"],
-Cell[131203, 2719, 221293, 3642, 180, "Output",ExpressionUUID->"820bd75e-ec9c-4db8-b5e7-96cfd532640b"]
+Cell[476402, 8484, 1636, 43, 41, "Input",ExpressionUUID->"a60f4b40-cbec-4d33-97f5-65de16370f80"],
+Cell[478041, 8529, 221293, 3642, 180, "Output",ExpressionUUID->"820bd75e-ec9c-4db8-b5e7-96cfd532640b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[352533, 6366, 1661, 43, 41, "Input",ExpressionUUID->"49d01b4e-c864-4298-94b7-ace002b965d8"],
-Cell[354197, 6411, 221490, 3645, 180, "Output",ExpressionUUID->"3156e626-6fd1-4878-b776-44c6cf7fef12"]
+Cell[699371, 12176, 1661, 43, 41, "Input",ExpressionUUID->"49d01b4e-c864-4298-94b7-ace002b965d8"],
+Cell[701035, 12221, 221490, 3645, 180, "Output",ExpressionUUID->"3156e626-6fd1-4878-b776-44c6cf7fef12"]
}, Open ]],
Cell[CellGroupData[{
-Cell[575724, 10061, 718, 19, 39, "Input",ExpressionUUID->"4cefebbf-3ee0-49eb-85d3-1f8acdd03d03"],
-Cell[576445, 10082, 689, 13, 27, "Output",ExpressionUUID->"5fad1eab-bed9-4cd3-a21b-8c8758b922eb"]
+Cell[922562, 15871, 718, 19, 39, "Input",ExpressionUUID->"4cefebbf-3ee0-49eb-85d3-1f8acdd03d03"],
+Cell[923283, 15892, 689, 13, 27, "Output",ExpressionUUID->"5fad1eab-bed9-4cd3-a21b-8c8758b922eb"]
}, Open ]],
Cell[CellGroupData[{
-Cell[577171, 10100, 3389, 70, 75, "Input",ExpressionUUID->"82d96d28-401c-43fa-8337-b55bfd500552"],
-Cell[580563, 10172, 12735, 275, 138, "Output",ExpressionUUID->"1ab9ef64-9a55-4344-9cb3-5443ea2b020c"]
+Cell[924009, 15910, 3389, 70, 75, "Input",ExpressionUUID->"82d96d28-401c-43fa-8337-b55bfd500552"],
+Cell[927401, 15982, 12735, 275, 138, "Output",ExpressionUUID->"1ab9ef64-9a55-4344-9cb3-5443ea2b020c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[593335, 10452, 1135, 27, 57, "Input",ExpressionUUID->"b2167779-1e8f-4690-a7d9-fe7d464a4815"],
-Cell[594473, 10481, 7683, 188, 181, "Output",ExpressionUUID->"ead509b6-b153-4829-be33-8ff5a6efcada"]
+Cell[940173, 16262, 1135, 27, 57, "Input",ExpressionUUID->"b2167779-1e8f-4690-a7d9-fe7d464a4815"],
+Cell[941311, 16291, 7683, 188, 181, "Output",ExpressionUUID->"ead509b6-b153-4829-be33-8ff5a6efcada"]
}, Open ]],
-Cell[602171, 10672, 3769, 58, 55, "Input",ExpressionUUID->"172fdee0-af8e-4049-9dda-cfec26fad09c"],
+Cell[949009, 16482, 3769, 58, 55, "Input",ExpressionUUID->"172fdee0-af8e-4049-9dda-cfec26fad09c"],
Cell[CellGroupData[{
-Cell[605965, 10734, 6700, 99, 24, "Input",ExpressionUUID->"0ea1b44d-26c0-49ba-8c54-6d51b749dcee"],
-Cell[612668, 10835, 558, 12, 18, "Message",ExpressionUUID->"1820350f-3096-4479-969b-2dda88e43862"],
-Cell[613229, 10849, 5206, 95, 92, "Output",ExpressionUUID->"58f08fd4-743e-4318-9e82-7ecda92ce1db"]
+Cell[952803, 16544, 6700, 99, 24, "Input",ExpressionUUID->"0ea1b44d-26c0-49ba-8c54-6d51b749dcee"],
+Cell[959506, 16645, 558, 12, 18, "Message",ExpressionUUID->"1820350f-3096-4479-969b-2dda88e43862"],
+Cell[960067, 16659, 5206, 95, 60, "Output",ExpressionUUID->"58f08fd4-743e-4318-9e82-7ecda92ce1db"]
}, Open ]],
Cell[CellGroupData[{
-Cell[618472, 10949, 1747, 35, 71, "Input",ExpressionUUID->"324ac29a-a49d-4e6b-a8d8-b259afcd34c7"],
-Cell[620222, 10986, 17065, 313, 138, "Output",ExpressionUUID->"464153b0-04b0-46cf-82d1-649dc2c2d6a0"]
+Cell[965310, 16759, 1747, 35, 71, "Input",ExpressionUUID->"324ac29a-a49d-4e6b-a8d8-b259afcd34c7"],
+Cell[967060, 16796, 17065, 313, 138, "Output",ExpressionUUID->"464153b0-04b0-46cf-82d1-649dc2c2d6a0"]
}, Open ]],
Cell[CellGroupData[{
-Cell[637324, 11304, 1075, 29, 59, "Input",ExpressionUUID->"288a2ff7-5161-4fe5-8f43-122ba3a5d3f2"],
-Cell[638402, 11335, 1686, 44, 184, "Output",ExpressionUUID->"d5da57e7-0428-4391-af81-4f874cd963e4"]
+Cell[984162, 17114, 1075, 29, 59, "Input",ExpressionUUID->"288a2ff7-5161-4fe5-8f43-122ba3a5d3f2"],
+Cell[985240, 17145, 1686, 44, 184, "Output",ExpressionUUID->"d5da57e7-0428-4391-af81-4f874cd963e4"]
}, Open ]],
Cell[CellGroupData[{
-Cell[640125, 11384, 2704, 59, 141, "Input",ExpressionUUID->"d85908e0-a479-4a49-999f-e6e49522af2d"],
-Cell[642832, 11445, 12141, 271, 180, "Output",ExpressionUUID->"2f30870a-4c21-432a-b77d-85d6f131265e"]
+Cell[986963, 17194, 2704, 59, 75, "Input",ExpressionUUID->"d85908e0-a479-4a49-999f-e6e49522af2d"],
+Cell[989670, 17255, 12141, 271, 180, "Output",ExpressionUUID->"2f30870a-4c21-432a-b77d-85d6f131265e"]
}, Open ]],
-Cell[654988, 11719, 3491, 55, 55, "Input",ExpressionUUID->"4fbf2b0a-5252-416a-b90a-a12f6d946efe"],
+Cell[1001826, 17529, 3491, 55, 55, "Input",ExpressionUUID->"4fbf2b0a-5252-416a-b90a-a12f6d946efe"],
Cell[CellGroupData[{
-Cell[658504, 11778, 6511, 94, 22, "Input",ExpressionUUID->"5ac27342-feda-4aa6-9098-1d0e7b78fae8"],
-Cell[665018, 11874, 5770, 96, 42, "Output",ExpressionUUID->"b47243ad-5432-4eb5-bbf7-870353157603"]
+Cell[1005342, 17588, 6511, 94, 22, "Input",ExpressionUUID->"5ac27342-feda-4aa6-9098-1d0e7b78fae8"],
+Cell[1011856, 17684, 5770, 96, 42, "Output",ExpressionUUID->"b47243ad-5432-4eb5-bbf7-870353157603"]
}, Open ]],
Cell[CellGroupData[{
-Cell[670825, 11975, 1791, 35, 71, "Input",ExpressionUUID->"63fcec7c-aaff-46be-90dc-231bca0993d9"],
-Cell[672619, 12012, 17336, 318, 138, "Output",ExpressionUUID->"547073ca-2de1-44b5-8139-682a4eb761c9"]
+Cell[1017663, 17785, 1791, 35, 71, "Input",ExpressionUUID->"63fcec7c-aaff-46be-90dc-231bca0993d9"],
+Cell[1019457, 17822, 17336, 318, 138, "Output",ExpressionUUID->"547073ca-2de1-44b5-8139-682a4eb761c9"]
}, Open ]],
Cell[CellGroupData[{
-Cell[689992, 12335, 2079, 54, 75, "Input",ExpressionUUID->"8f2cfc94-a67c-484e-bbeb-610484e18a97"],
-Cell[692074, 12391, 16732, 375, 138, "Output",ExpressionUUID->"453285de-e47a-4bcc-96d7-ec76dfc88820"]
+Cell[1036830, 18145, 2079, 54, 75, "Input",ExpressionUUID->"8f2cfc94-a67c-484e-bbeb-610484e18a97"],
+Cell[1038912, 18201, 16732, 375, 138, "Output",ExpressionUUID->"453285de-e47a-4bcc-96d7-ec76dfc88820"]
}, Open ]],
-Cell[708821, 12769, 3360, 53, 55, "Input",ExpressionUUID->"59993536-91f3-449a-9e8c-58cd1f6ec74c"],
+Cell[1055659, 18579, 3360, 53, 55, "Input",ExpressionUUID->"59993536-91f3-449a-9e8c-58cd1f6ec74c"],
Cell[CellGroupData[{
-Cell[712206, 12826, 6459, 92, 22, "Input",ExpressionUUID->"ab599d2d-27ef-4491-b1cb-534f98403e59"],
-Cell[718668, 12920, 1955, 31, 29, "Message",ExpressionUUID->"f4cd9634-0e29-4718-97b8-490c5f242f4a"],
-Cell[720626, 12953, 5268, 92, 42, "Output",ExpressionUUID->"80e0c922-0db4-48ee-96b6-33400b7fa9d7"]
+Cell[1059044, 18636, 6459, 92, 22, "Input",ExpressionUUID->"ab599d2d-27ef-4491-b1cb-534f98403e59"],
+Cell[1065506, 18730, 1955, 31, 29, "Message",ExpressionUUID->"f4cd9634-0e29-4718-97b8-490c5f242f4a"],
+Cell[1067464, 18763, 5268, 92, 42, "Output",ExpressionUUID->"80e0c922-0db4-48ee-96b6-33400b7fa9d7"]
}, Open ]],
Cell[CellGroupData[{
-Cell[725931, 13050, 1882, 39, 71, "Input",ExpressionUUID->"f9bd15f0-d859-4863-9fe9-3ad2883e76d2"],
-Cell[727816, 13091, 9557, 188, 138, "Output",ExpressionUUID->"27a9c152-8a0d-4899-aa74-6a603c9665b9"]
+Cell[1072769, 18860, 1882, 39, 71, "Input",ExpressionUUID->"f9bd15f0-d859-4863-9fe9-3ad2883e76d2"],
+Cell[1074654, 18901, 9557, 188, 138, "Output",ExpressionUUID->"27a9c152-8a0d-4899-aa74-6a603c9665b9"]
}, Open ]],
-Cell[737388, 13282, 2869, 47, 55, "Input",ExpressionUUID->"1282028e-7a8e-46e3-bc91-b35b1d1604ed"],
+Cell[1084226, 19092, 2869, 47, 55, "Input",ExpressionUUID->"1282028e-7a8e-46e3-bc91-b35b1d1604ed"],
Cell[CellGroupData[{
-Cell[740282, 13333, 5473, 80, 22, "Input",ExpressionUUID->"83c6d43c-fed0-4989-a06f-986a75bf7651"],
-Cell[745758, 13415, 497, 11, 18, "Message",ExpressionUUID->"cf50225b-a0ef-4626-94a0-0803782ba72f"],
-Cell[746258, 13428, 10419, 251, 79, "Output",ExpressionUUID->"e4dd84aa-35ca-4c06-b076-812cdad95551"]
+Cell[1087120, 19143, 5473, 80, 22, "Input",ExpressionUUID->"83c6d43c-fed0-4989-a06f-986a75bf7651"],
+Cell[1092596, 19225, 497, 11, 18, "Message",ExpressionUUID->"cf50225b-a0ef-4626-94a0-0803782ba72f"],
+Cell[1093096, 19238, 10419, 251, 79, "Output",ExpressionUUID->"e4dd84aa-35ca-4c06-b076-812cdad95551"]
}, Open ]],
Cell[CellGroupData[{
-Cell[756714, 13684, 1852, 38, 71, "Input",ExpressionUUID->"9903c113-3088-4e43-884e-783e3462a3bd"],
-Cell[758569, 13724, 17127, 315, 136, "Output",ExpressionUUID->"ace4a267-d48c-4a17-8b21-0b8791f1d4a8"]
+Cell[1103552, 19494, 1852, 38, 71, "Input",ExpressionUUID->"9903c113-3088-4e43-884e-783e3462a3bd"],
+Cell[1105407, 19534, 17127, 315, 136, "Output",ExpressionUUID->"ace4a267-d48c-4a17-8b21-0b8791f1d4a8"]
}, Open ]],
Cell[CellGroupData[{
-Cell[775733, 14044, 482, 11, 22, "Input",ExpressionUUID->"85ae5ebd-4d7b-469b-b177-bd88ef9a9e54"],
-Cell[776218, 14057, 9927, 243, 178, "Output",ExpressionUUID->"392555db-33d5-4e50-8a31-e2a3a67d3a75"]
+Cell[1122571, 19854, 482, 11, 22, "Input",ExpressionUUID->"85ae5ebd-4d7b-469b-b177-bd88ef9a9e54"],
+Cell[1123056, 19867, 9927, 243, 178, "Output",ExpressionUUID->"392555db-33d5-4e50-8a31-e2a3a67d3a75"]
}, Open ]],
-Cell[786160, 14303, 2967, 48, 55, "Input",ExpressionUUID->"d0ac4c0e-3fde-4f39-860c-119c61865e94"],
+Cell[1132998, 20113, 2967, 48, 55, "Input",ExpressionUUID->"d0ac4c0e-3fde-4f39-860c-119c61865e94"],
Cell[CellGroupData[{
-Cell[789152, 14355, 5720, 84, 24, "Input",ExpressionUUID->"31b6196c-dff7-4ae3-ba24-930461af4520"],
-Cell[794875, 14441, 771, 15, 29, "Message",ExpressionUUID->"7df3f521-17b3-470c-a210-7a61feecd5cb"],
-Cell[795649, 14458, 4257, 83, 60, "Output",ExpressionUUID->"ea8fe62a-dd49-4054-b383-0738f0b8f82f"]
+Cell[1135990, 20165, 5720, 84, 24, "Input",ExpressionUUID->"31b6196c-dff7-4ae3-ba24-930461af4520"],
+Cell[1141713, 20251, 771, 15, 29, "Message",ExpressionUUID->"7df3f521-17b3-470c-a210-7a61feecd5cb"],
+Cell[1142487, 20268, 4257, 83, 60, "Output",ExpressionUUID->"ea8fe62a-dd49-4054-b383-0738f0b8f82f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[799943, 14546, 1796, 36, 71, "Input",ExpressionUUID->"c89d4fc8-2254-4238-b27d-107fefc31da5"],
-Cell[801742, 14584, 17264, 316, 136, "Output",ExpressionUUID->"d1455115-bd06-4d75-a8b5-99c39d1e90d7"]
+Cell[1146781, 20356, 1796, 36, 71, "Input",ExpressionUUID->"c89d4fc8-2254-4238-b27d-107fefc31da5"],
+Cell[1148580, 20394, 17264, 316, 136, "Output",ExpressionUUID->"d1455115-bd06-4d75-a8b5-99c39d1e90d7"]
}, Open ]],
Cell[CellGroupData[{
-Cell[819043, 14905, 874, 23, 22, "Input",ExpressionUUID->"d7824482-d74e-4fac-8224-3728d7d92b24"],
-Cell[819920, 14930, 3739, 89, 178, "Output",ExpressionUUID->"ad65c8a7-66e9-4c1e-b599-35bacb78e113"]
+Cell[1165881, 20715, 874, 23, 22, "Input",ExpressionUUID->"d7824482-d74e-4fac-8224-3728d7d92b24"],
+Cell[1166758, 20740, 3739, 89, 178, "Output",ExpressionUUID->"ad65c8a7-66e9-4c1e-b599-35bacb78e113"]
}, Open ]],
Cell[CellGroupData[{
-Cell[823696, 15024, 549, 15, 22, "Input",ExpressionUUID->"93164c6e-f8e2-4fb1-ab0b-a65d379b88ef"],
-Cell[824248, 15041, 234, 5, 25, "Output",ExpressionUUID->"db3875cf-f19f-4e24-a7e4-c4017292b8fe"]
+Cell[1170534, 20834, 549, 15, 22, "Input",ExpressionUUID->"93164c6e-f8e2-4fb1-ab0b-a65d379b88ef"],
+Cell[1171086, 20851, 234, 5, 25, "Output",ExpressionUUID->"db3875cf-f19f-4e24-a7e4-c4017292b8fe"]
}, Open ]],
Cell[CellGroupData[{
-Cell[824519, 15051, 262, 6, 22, "Input",ExpressionUUID->"40b90456-e65f-4936-94f0-aa9e157985d1"],
-Cell[824784, 15059, 1039, 29, 51, "Output",ExpressionUUID->"e84b103a-4734-481c-bc68-32680f2490ae"]
+Cell[1171357, 20861, 262, 6, 22, "Input",ExpressionUUID->"40b90456-e65f-4936-94f0-aa9e157985d1"],
+Cell[1171622, 20869, 1039, 29, 51, "Output",ExpressionUUID->"e84b103a-4734-481c-bc68-32680f2490ae"]
}, Open ]],
Cell[CellGroupData[{
-Cell[825860, 15093, 1085, 28, 24, "Input",ExpressionUUID->"802f97e2-70b5-4c0e-b977-f8a2e505bb60"],
-Cell[826948, 15123, 74312, 1240, 77, "Output",ExpressionUUID->"13540836-8492-44db-8f61-825c10092a3b"]
+Cell[1172698, 20903, 1085, 28, 24, "Input",ExpressionUUID->"802f97e2-70b5-4c0e-b977-f8a2e505bb60"],
+Cell[1173786, 20933, 74312, 1240, 77, "Output",ExpressionUUID->"13540836-8492-44db-8f61-825c10092a3b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[901297, 16368, 1597, 44, 40, "Input",ExpressionUUID->"9510d7f0-79c6-409e-9c06-caac79aa83b9"],
-Cell[902897, 16414, 487, 11, 18, "Message",ExpressionUUID->"b9cd98f1-c229-4f5b-95ec-13d954ebd59a"],
-Cell[903387, 16427, 490, 11, 18, "Message",ExpressionUUID->"ea96e00a-9fe6-4d33-80b4-d0a9eed78731"],
-Cell[903880, 16440, 488, 11, 18, "Message",ExpressionUUID->"a31115cb-de8f-481d-994b-5bc9a83710b8"],
-Cell[904371, 16453, 457, 10, 18, "Message",ExpressionUUID->"667a685e-0e76-4db4-8986-9eaad489f3e3"]
+Cell[1248135, 22178, 1597, 44, 40, "Input",ExpressionUUID->"9510d7f0-79c6-409e-9c06-caac79aa83b9"],
+Cell[1249735, 22224, 487, 11, 18, "Message",ExpressionUUID->"b9cd98f1-c229-4f5b-95ec-13d954ebd59a"],
+Cell[1250225, 22237, 490, 11, 18, "Message",ExpressionUUID->"ea96e00a-9fe6-4d33-80b4-d0a9eed78731"],
+Cell[1250718, 22250, 488, 11, 18, "Message",ExpressionUUID->"a31115cb-de8f-481d-994b-5bc9a83710b8"],
+Cell[1251209, 22263, 457, 10, 18, "Message",ExpressionUUID->"667a685e-0e76-4db4-8986-9eaad489f3e3"]
}, Open ]],
Cell[CellGroupData[{
-Cell[904865, 16468, 1243, 25, 24, "Input",ExpressionUUID->"4c6fe8ab-4f6a-4b57-92a5-c94e403d041d"],
-Cell[906111, 16495, 257598, 4238, 182, "Output",ExpressionUUID->"11addea4-5f17-44f9-80f6-b7d15dd56efa"]
+Cell[1251703, 22278, 1243, 25, 24, "Input",ExpressionUUID->"4c6fe8ab-4f6a-4b57-92a5-c94e403d041d"],
+Cell[1252949, 22305, 257598, 4238, 182, "Output",ExpressionUUID->"11addea4-5f17-44f9-80f6-b7d15dd56efa"]
}, Open ]],
-Cell[1163724, 20736, 2861, 70, 75, "Input",ExpressionUUID->"bc84d748-2ae9-4f3e-87ec-0fa12dfd6954"],
+Cell[1510562, 26546, 2861, 70, 75, "Input",ExpressionUUID->"bc84d748-2ae9-4f3e-87ec-0fa12dfd6954"],
Cell[CellGroupData[{
-Cell[1166610, 20810, 4876, 115, 92, "Input",ExpressionUUID->"c099f9b5-a706-4293-9c42-f007146a13f7"],
-Cell[1171489, 20927, 372, 9, 32, "Message",ExpressionUUID->"94a73904-550c-43cf-8d0b-35b5cbc01228"],
-Cell[1171864, 20938, 414, 10, 19, "Message",ExpressionUUID->"3f893d05-e641-4bf4-9ea5-bcabdc4d6a95"],
-Cell[1172281, 20950, 374, 9, 32, "Message",ExpressionUUID->"53b27a41-4cd2-4652-a104-35161ad96bf2"],
-Cell[1172658, 20961, 372, 9, 32, "Message",ExpressionUUID->"413977e9-0c84-449f-b053-9df53b50e738"],
-Cell[1173033, 20972, 449, 10, 18, "Message",ExpressionUUID->"d499cd59-07fb-492e-b9f7-1ddddfebb272"],
-Cell[1173485, 20984, 412, 10, 19, "Message",ExpressionUUID->"395175e1-6469-49cf-a376-9be005af7add"],
-Cell[1173900, 20996, 412, 10, 19, "Message",ExpressionUUID->"8f65301b-fe48-42b3-9924-e0e8e3bea608"],
-Cell[1174315, 21008, 454, 10, 18, "Message",ExpressionUUID->"6d1c81df-b866-4446-8abe-657a6a8d929f"]
+Cell[1513448, 26620, 4876, 115, 92, "Input",ExpressionUUID->"c099f9b5-a706-4293-9c42-f007146a13f7"],
+Cell[1518327, 26737, 372, 9, 32, "Message",ExpressionUUID->"94a73904-550c-43cf-8d0b-35b5cbc01228"],
+Cell[1518702, 26748, 414, 10, 19, "Message",ExpressionUUID->"3f893d05-e641-4bf4-9ea5-bcabdc4d6a95"],
+Cell[1519119, 26760, 374, 9, 32, "Message",ExpressionUUID->"53b27a41-4cd2-4652-a104-35161ad96bf2"],
+Cell[1519496, 26771, 372, 9, 32, "Message",ExpressionUUID->"413977e9-0c84-449f-b053-9df53b50e738"],
+Cell[1519871, 26782, 449, 10, 18, "Message",ExpressionUUID->"d499cd59-07fb-492e-b9f7-1ddddfebb272"],
+Cell[1520323, 26794, 412, 10, 19, "Message",ExpressionUUID->"395175e1-6469-49cf-a376-9be005af7add"],
+Cell[1520738, 26806, 412, 10, 19, "Message",ExpressionUUID->"8f65301b-fe48-42b3-9924-e0e8e3bea608"],
+Cell[1521153, 26818, 454, 10, 18, "Message",ExpressionUUID->"6d1c81df-b866-4446-8abe-657a6a8d929f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1174806, 21023, 390, 10, 22, "Input",ExpressionUUID->"a66d45ff-8000-4c96-bcb2-2bc7343fd5de"],
-Cell[1175199, 21035, 230, 4, 305, "Output",ExpressionUUID->"5364b922-5bbc-4121-ab23-dc5bb4bec4cb"]
+Cell[1521644, 26833, 390, 10, 22, "Input",ExpressionUUID->"a66d45ff-8000-4c96-bcb2-2bc7343fd5de"],
+Cell[1522037, 26845, 230, 4, 305, "Output",ExpressionUUID->"5364b922-5bbc-4121-ab23-dc5bb4bec4cb"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1175466, 21044, 2250, 58, 76, "Input",ExpressionUUID->"8e0288f2-5922-4dde-923e-8106073adf6c"],
-Cell[1177719, 21104, 1066745, 23056, 352, "Output",ExpressionUUID->"c6c9c8e8-7cb0-4ad0-a6c6-fb0a70db55da"]
+Cell[1522304, 26854, 2250, 58, 76, "Input",ExpressionUUID->"8e0288f2-5922-4dde-923e-8106073adf6c"],
+Cell[1524557, 26914, 1066745, 23056, 352, "Output",ExpressionUUID->"c6c9c8e8-7cb0-4ad0-a6c6-fb0a70db55da"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2244501, 44165, 1775, 44, 24, "Input",ExpressionUUID->"4355674b-0fd6-4516-8896-cd33a8476ab5"],
-Cell[2246279, 44211, 376, 5, 25, "Output",ExpressionUUID->"b8a18520-7b45-49b0-af16-64f6d0a9c819"]
+Cell[2591339, 49975, 1775, 44, 24, "Input",ExpressionUUID->"4355674b-0fd6-4516-8896-cd33a8476ab5"],
+Cell[2593117, 50021, 376, 5, 25, "Output",ExpressionUUID->"b8a18520-7b45-49b0-af16-64f6d0a9c819"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2246692, 44221, 427, 10, 24, "Input",ExpressionUUID->"ee6beea5-4d88-4650-837d-58c8d3c6363b"],
-Cell[2247122, 44233, 18847, 324, 179, "Output",ExpressionUUID->"a27bcc82-f8f9-42d8-854c-a204a73d483f"]
+Cell[2593530, 50031, 427, 10, 24, "Input",ExpressionUUID->"ee6beea5-4d88-4650-837d-58c8d3c6363b"],
+Cell[2593960, 50043, 18847, 324, 179, "Output",ExpressionUUID->"a27bcc82-f8f9-42d8-854c-a204a73d483f"]
}, Open ]],
-Cell[2265984, 44560, 3136, 79, 75, "Input",ExpressionUUID->"5894652c-ea9c-458f-866d-b40d1a5efb75"],
+Cell[2612822, 50370, 3136, 79, 75, "Input",ExpressionUUID->"5894652c-ea9c-458f-866d-b40d1a5efb75"],
Cell[CellGroupData[{
-Cell[2269145, 44643, 592, 13, 24, "Input",ExpressionUUID->"3fee7ec2-e0c4-4420-8192-c46efe85e265"],
-Cell[2269740, 44658, 5889, 112, 178, "Output",ExpressionUUID->"2bfc8e2b-006d-4096-8c4b-8422da967dcb"]
+Cell[2615983, 50453, 592, 13, 24, "Input",ExpressionUUID->"3fee7ec2-e0c4-4420-8192-c46efe85e265"],
+Cell[2616578, 50468, 5889, 112, 178, "Output",ExpressionUUID->"2bfc8e2b-006d-4096-8c4b-8422da967dcb"]
}, Open ]],
-Cell[2275644, 44773, 4130, 102, 109, "Input",ExpressionUUID->"16683f20-3a25-47da-8c9c-58bfb1a56ae7"],
+Cell[2622482, 50583, 4130, 102, 109, "Input",ExpressionUUID->"16683f20-3a25-47da-8c9c-58bfb1a56ae7"],
Cell[CellGroupData[{
-Cell[2279799, 44879, 1495, 23, 24, "Input",ExpressionUUID->"0c28b27c-3e81-49ce-9293-512f19f95aeb"],
-Cell[2281297, 44904, 6141, 116, 180, "Output",ExpressionUUID->"a225487e-1b09-4625-b1b4-0393225de258"]
+Cell[2626637, 50689, 1495, 23, 24, "Input",ExpressionUUID->"0c28b27c-3e81-49ce-9293-512f19f95aeb"],
+Cell[2628135, 50714, 6141, 116, 180, "Output",ExpressionUUID->"a225487e-1b09-4625-b1b4-0393225de258"]
}, Open ]],
-Cell[2287453, 45023, 2010, 35, 55, "Input",ExpressionUUID->"78606265-f50f-49dc-888d-33550f059b83"],
+Cell[2634291, 50833, 2010, 35, 55, "Input",ExpressionUUID->"78606265-f50f-49dc-888d-33550f059b83"],
Cell[CellGroupData[{
-Cell[2289488, 45062, 4151, 62, 22, "Input",ExpressionUUID->"396a3ca5-637b-4194-943d-7ec379bcf47e"],
-Cell[2293642, 45126, 2707, 49, 25, "Output",ExpressionUUID->"032de8e5-e62b-4c2c-a2db-afe60e4c0f47"]
+Cell[2636326, 50872, 4151, 62, 22, "Input",ExpressionUUID->"396a3ca5-637b-4194-943d-7ec379bcf47e"],
+Cell[2640480, 50936, 2707, 49, 25, "Output",ExpressionUUID->"032de8e5-e62b-4c2c-a2db-afe60e4c0f47"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2296386, 45180, 1600, 34, 71, "Input",ExpressionUUID->"050da7fc-1308-4d49-81b4-1f4efc54c09a"],
-Cell[2297989, 45216, 17028, 313, 136, "Output",ExpressionUUID->"5c8a355d-e522-4c74-8a53-b7d46e9c333f"]
+Cell[2643224, 50990, 1600, 34, 71, "Input",ExpressionUUID->"050da7fc-1308-4d49-81b4-1f4efc54c09a"],
+Cell[2644827, 51026, 17028, 313, 136, "Output",ExpressionUUID->"5c8a355d-e522-4c74-8a53-b7d46e9c333f"]
}, Open ]],
-Cell[2315032, 45532, 2110, 37, 55, "Input",ExpressionUUID->"37ec5e26-c9a1-4c3e-b046-f5bdcb69b8db"],
+Cell[2661870, 51342, 2110, 37, 55, "Input",ExpressionUUID->"37ec5e26-c9a1-4c3e-b046-f5bdcb69b8db"],
Cell[CellGroupData[{
-Cell[2317167, 45573, 4183, 60, 22, "Input",ExpressionUUID->"aafc8bea-bd59-4ab7-b436-168abec75b4d"],
-Cell[2321353, 45635, 2082, 30, 25, "Output",ExpressionUUID->"823a15e6-d4d4-45cf-b711-54e7c88841d0"]
+Cell[2664005, 51383, 4183, 60, 22, "Input",ExpressionUUID->"aafc8bea-bd59-4ab7-b436-168abec75b4d"],
+Cell[2668191, 51445, 2082, 30, 25, "Output",ExpressionUUID->"823a15e6-d4d4-45cf-b711-54e7c88841d0"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2323472, 45670, 1650, 35, 71, "Input",ExpressionUUID->"d90b515e-65bf-42c5-a9d8-7ebc27861a0a"],
-Cell[2325125, 45707, 20490, 372, 135, "Output",ExpressionUUID->"674ddf51-ef87-4ea3-981c-9bca8b07e0de"]
+Cell[2670310, 51480, 1650, 35, 71, "Input",ExpressionUUID->"d90b515e-65bf-42c5-a9d8-7ebc27861a0a"],
+Cell[2671963, 51517, 20490, 372, 135, "Output",ExpressionUUID->"674ddf51-ef87-4ea3-981c-9bca8b07e0de"]
}, Open ]],
-Cell[2345630, 46082, 2205, 38, 55, "Input",ExpressionUUID->"74c29eca-8a3c-482d-b962-b5a7bc6eeeb5"],
+Cell[2692468, 51892, 2205, 38, 55, "Input",ExpressionUUID->"74c29eca-8a3c-482d-b962-b5a7bc6eeeb5"],
Cell[CellGroupData[{
-Cell[2347860, 46124, 6088, 119, 41, "Input",ExpressionUUID->"4f2555c0-0b0b-46e3-953c-b99c2d8ef953"],
-Cell[2353951, 46245, 3154, 60, 27, "Output",ExpressionUUID->"7ba637ff-c37f-4ab3-8f3f-c3a013477573"]
+Cell[2694698, 51934, 6088, 119, 41, "Input",ExpressionUUID->"4f2555c0-0b0b-46e3-953c-b99c2d8ef953"],
+Cell[2700789, 52055, 3154, 60, 27, "Output",ExpressionUUID->"7ba637ff-c37f-4ab3-8f3f-c3a013477573"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2357142, 46310, 1700, 36, 71, "Input",ExpressionUUID->"11bfaed8-b616-4bdb-acee-d6f652a0a4e6"],
-Cell[2358845, 46348, 16873, 311, 136, "Output",ExpressionUUID->"9d9174e8-24e3-40da-860e-87b1062d7e14"]
+Cell[2703980, 52120, 1700, 36, 71, "Input",ExpressionUUID->"11bfaed8-b616-4bdb-acee-d6f652a0a4e6"],
+Cell[2705683, 52158, 16873, 311, 136, "Output",ExpressionUUID->"9d9174e8-24e3-40da-860e-87b1062d7e14"]
}, Open ]],
-Cell[2375733, 46662, 2257, 39, 55, "Input",ExpressionUUID->"da646d41-2935-4f0b-94a9-796be9875f10"],
+Cell[2722571, 52472, 2257, 39, 55, "Input",ExpressionUUID->"da646d41-2935-4f0b-94a9-796be9875f10"],
Cell[CellGroupData[{
-Cell[2378015, 46705, 6220, 122, 41, "Input",ExpressionUUID->"bd584363-7bad-4830-803a-025a2ac0e9a6"],
-Cell[2384238, 46829, 3291, 62, 27, "Output",ExpressionUUID->"83698929-f178-4c4d-9569-7a23e1e9c919"]
+Cell[2724853, 52515, 6220, 122, 41, "Input",ExpressionUUID->"bd584363-7bad-4830-803a-025a2ac0e9a6"],
+Cell[2731076, 52639, 3291, 62, 27, "Output",ExpressionUUID->"83698929-f178-4c4d-9569-7a23e1e9c919"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2387566, 46896, 1746, 36, 71, "Input",ExpressionUUID->"f7b18b38-4aa7-4d26-8653-c5282fb8bc07"],
-Cell[2389315, 46934, 17143, 317, 136, "Output",ExpressionUUID->"aeb5446a-db30-4b37-a075-fd0875fea03f"]
+Cell[2734404, 52706, 1746, 36, 71, "Input",ExpressionUUID->"f7b18b38-4aa7-4d26-8653-c5282fb8bc07"],
+Cell[2736153, 52744, 17143, 317, 136, "Output",ExpressionUUID->"aeb5446a-db30-4b37-a075-fd0875fea03f"]
}, Open ]],
-Cell[2406473, 47254, 2305, 39, 55, "Input",ExpressionUUID->"6dd58649-2ccd-4fad-b61e-e6b84d8dc37c"],
+Cell[2753311, 53064, 2305, 39, 55, "Input",ExpressionUUID->"6dd58649-2ccd-4fad-b61e-e6b84d8dc37c"],
Cell[CellGroupData[{
-Cell[2408803, 47297, 6753, 136, 41, "Input",ExpressionUUID->"47d19cd0-5c7e-4d2e-8522-f7af9f76b03d"],
-Cell[2415559, 47435, 3674, 69, 44, "Output",ExpressionUUID->"e4c2258c-d675-43b1-8eb8-1a175227c843"]
+Cell[2755641, 53107, 6753, 136, 41, "Input",ExpressionUUID->"47d19cd0-5c7e-4d2e-8522-f7af9f76b03d"],
+Cell[2762397, 53245, 3674, 69, 44, "Output",ExpressionUUID->"e4c2258c-d675-43b1-8eb8-1a175227c843"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2419270, 47509, 1798, 37, 71, "Input",ExpressionUUID->"e5291fe9-0a5c-4396-ac44-47a5f71d5568"],
-Cell[2421071, 47548, 17131, 315, 134, "Output",ExpressionUUID->"f761d7d5-04c8-40b2-a937-6fac9575aeda"]
+Cell[2766108, 53319, 1798, 37, 71, "Input",ExpressionUUID->"e5291fe9-0a5c-4396-ac44-47a5f71d5568"],
+Cell[2767909, 53358, 17131, 315, 134, "Output",ExpressionUUID->"f761d7d5-04c8-40b2-a937-6fac9575aeda"]
}, Open ]],
-Cell[2438217, 47866, 2356, 40, 55, "Input",ExpressionUUID->"034d75ed-4e94-4dfa-b0b5-fb25cd2d30d3"],
+Cell[2785055, 53676, 2356, 40, 55, "Input",ExpressionUUID->"034d75ed-4e94-4dfa-b0b5-fb25cd2d30d3"],
Cell[CellGroupData[{
-Cell[2440598, 47910, 6967, 140, 41, "Input",ExpressionUUID->"939e0991-1a33-48bb-8325-c6afb708b1bf"],
-Cell[2447568, 48052, 3893, 74, 42, "Output",ExpressionUUID->"07c46e6f-b409-4e46-91c4-1f8deedd3b7c"]
+Cell[2787436, 53720, 6967, 140, 41, "Input",ExpressionUUID->"939e0991-1a33-48bb-8325-c6afb708b1bf"],
+Cell[2794406, 53862, 3893, 74, 42, "Output",ExpressionUUID->"07c46e6f-b409-4e46-91c4-1f8deedd3b7c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2451498, 48131, 1848, 38, 71, "Input",ExpressionUUID->"41fa3464-11f7-47db-b9f4-c04a234b3967"],
-Cell[2453349, 48171, 17640, 324, 136, "Output",ExpressionUUID->"e6ece27a-240d-4388-ae6d-863762fb16fc"]
+Cell[2798336, 53941, 1848, 38, 71, "Input",ExpressionUUID->"41fa3464-11f7-47db-b9f4-c04a234b3967"],
+Cell[2800187, 53981, 17640, 324, 136, "Output",ExpressionUUID->"e6ece27a-240d-4388-ae6d-863762fb16fc"]
}, Open ]],
-Cell[2471004, 48498, 2409, 41, 55, "Input",ExpressionUUID->"5f4959b4-0631-460c-894f-e078cc08f6c0"],
+Cell[2817842, 54308, 2409, 41, 55, "Input",ExpressionUUID->"5f4959b4-0631-460c-894f-e078cc08f6c0"],
Cell[CellGroupData[{
-Cell[2473438, 48543, 7710, 160, 57, "Input",ExpressionUUID->"42dd11c3-40d8-4229-9f2b-ea33c98a4a3d"],
-Cell[2481151, 48705, 2581, 37, 25, "Output",ExpressionUUID->"d656f635-4cba-4947-8345-8861516ad400"]
+Cell[2820276, 54353, 7710, 160, 57, "Input",ExpressionUUID->"42dd11c3-40d8-4229-9f2b-ea33c98a4a3d"],
+Cell[2827989, 54515, 2581, 37, 25, "Output",ExpressionUUID->"d656f635-4cba-4947-8345-8861516ad400"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2483769, 48747, 1894, 38, 71, "Input",ExpressionUUID->"3b92c534-fe03-4b93-bce9-3935e73cd50a"],
-Cell[2485666, 48787, 16747, 309, 133, "Output",ExpressionUUID->"047cfbb9-7bc7-4793-b25b-33d1e4b54f0f"]
+Cell[2830607, 54557, 1894, 38, 71, "Input",ExpressionUUID->"3b92c534-fe03-4b93-bce9-3935e73cd50a"],
+Cell[2832504, 54597, 16747, 309, 133, "Output",ExpressionUUID->"047cfbb9-7bc7-4793-b25b-33d1e4b54f0f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2502450, 49101, 433, 11, 22, "Input",ExpressionUUID->"a88f2391-1bc9-4d7a-b773-d4641b529a92"],
-Cell[2502886, 49114, 6817, 169, 177, "Output",ExpressionUUID->"900bc96d-749d-4402-b6fc-1bde2c834df4"]
+Cell[2849288, 54911, 433, 11, 22, "Input",ExpressionUUID->"a88f2391-1bc9-4d7a-b773-d4641b529a92"],
+Cell[2849724, 54924, 6817, 169, 177, "Output",ExpressionUUID->"900bc96d-749d-4402-b6fc-1bde2c834df4"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2509740, 49288, 1672, 45, 40, "Input",ExpressionUUID->"c2d3e68e-6754-4848-ad45-4d3a81a85373"],
-Cell[2511415, 49335, 511, 11, 18, "Message",ExpressionUUID->"7042c19d-9eb1-4c6c-b9ba-e11ecd2dad61"],
-Cell[2511929, 49348, 511, 11, 18, "Message",ExpressionUUID->"e96fc95a-7476-4cfa-9b6e-023e5f08ec84"],
-Cell[2512443, 49361, 513, 11, 18, "Message",ExpressionUUID->"697e339d-fa4d-4453-8541-d603f6be5ebf"],
-Cell[2512959, 49374, 478, 10, 18, "Message",ExpressionUUID->"a383bd1a-c1d9-49e6-a3ce-876ea12c3de9"]
+Cell[2856578, 55098, 1672, 45, 40, "Input",ExpressionUUID->"c2d3e68e-6754-4848-ad45-4d3a81a85373"],
+Cell[2858253, 55145, 511, 11, 18, "Message",ExpressionUUID->"7042c19d-9eb1-4c6c-b9ba-e11ecd2dad61"],
+Cell[2858767, 55158, 511, 11, 18, "Message",ExpressionUUID->"e96fc95a-7476-4cfa-9b6e-023e5f08ec84"],
+Cell[2859281, 55171, 513, 11, 18, "Message",ExpressionUUID->"697e339d-fa4d-4453-8541-d603f6be5ebf"],
+Cell[2859797, 55184, 478, 10, 18, "Message",ExpressionUUID->"a383bd1a-c1d9-49e6-a3ce-876ea12c3de9"]
}, Open ]],
-Cell[2513452, 49387, 3187, 80, 41, "Input",ExpressionUUID->"7baff68f-40db-4778-a165-a239cf88cc8b"],
-Cell[2516642, 49469, 4180, 103, 75, "Input",ExpressionUUID->"54ea4ab2-b182-41d0-bc24-6dda493e24b7"],
-Cell[2520825, 49574, 5400, 131, 109, "Input",ExpressionUUID->"b233f772-ebe4-4d6e-82dc-3e50dc9f4a60"],
+Cell[2860290, 55197, 3187, 80, 41, "Input",ExpressionUUID->"7baff68f-40db-4778-a165-a239cf88cc8b"],
+Cell[2863480, 55279, 4180, 103, 75, "Input",ExpressionUUID->"54ea4ab2-b182-41d0-bc24-6dda493e24b7"],
+Cell[2867663, 55384, 5400, 131, 109, "Input",ExpressionUUID->"b233f772-ebe4-4d6e-82dc-3e50dc9f4a60"],
Cell[CellGroupData[{
-Cell[2526250, 49709, 1359, 27, 24, "Input",ExpressionUUID->"326e1381-0fb5-48b8-8b67-86eb59a8de43"],
-Cell[2527612, 49738, 488773, 8032, 182, "Output",ExpressionUUID->"ffcf6638-e41b-4dc3-a888-cbc1ddb5bd70"]
+Cell[2873088, 55519, 1359, 27, 24, "Input",ExpressionUUID->"326e1381-0fb5-48b8-8b67-86eb59a8de43"],
+Cell[2874450, 55548, 488773, 8032, 182, "Output",ExpressionUUID->"ffcf6638-e41b-4dc3-a888-cbc1ddb5bd70"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3016422, 57775, 663, 15, 24, "Input",ExpressionUUID->"a93f2c6c-20d9-4e76-bf4e-d83eb645bfe2"],
-Cell[3017088, 57792, 10088, 182, 178, "Output",ExpressionUUID->"e009ecd9-f064-498f-9713-a517c7738512"]
+Cell[3363260, 63585, 663, 15, 24, "Input",ExpressionUUID->"a93f2c6c-20d9-4e76-bf4e-d83eb645bfe2"],
+Cell[3363926, 63602, 10088, 182, 178, "Output",ExpressionUUID->"e009ecd9-f064-498f-9713-a517c7738512"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3027213, 57979, 1607, 25, 24, "Input",ExpressionUUID->"355b7a05-dc53-48b3-a074-381cbbaeac81"],
-Cell[3028823, 58006, 27041, 593, 178, "Output",ExpressionUUID->"c021a3f3-a988-4ee0-849b-500241e51534"]
+Cell[3374051, 63789, 1607, 25, 24, "Input",ExpressionUUID->"355b7a05-dc53-48b3-a074-381cbbaeac81"],
+Cell[3375661, 63816, 27041, 593, 178, "Output",ExpressionUUID->"c021a3f3-a988-4ee0-849b-500241e51534"]
}, Open ]],
-Cell[3055879, 58602, 1994, 35, 55, "Input",ExpressionUUID->"a727ff31-abf9-4fbc-b1ba-5e10e05cc6ba"],
+Cell[3402717, 64412, 1994, 35, 55, "Input",ExpressionUUID->"a727ff31-abf9-4fbc-b1ba-5e10e05cc6ba"],
Cell[CellGroupData[{
-Cell[3057898, 58641, 6104, 123, 105, "Input",ExpressionUUID->"e698d719-72a9-4ac8-adc0-f3dc6de33b29"],
-Cell[3064005, 58766, 599, 12, 29, "Message",ExpressionUUID->"66d8969a-eb54-4408-9ca1-e26797128b2e"],
-Cell[3064607, 58780, 3201, 61, 60, "Output",ExpressionUUID->"c2ede9a0-b94f-4b1e-a656-779f19255c39"]
+Cell[3404736, 64451, 6104, 123, 105, "Input",ExpressionUUID->"e698d719-72a9-4ac8-adc0-f3dc6de33b29"],
+Cell[3410843, 64576, 599, 12, 29, "Message",ExpressionUUID->"66d8969a-eb54-4408-9ca1-e26797128b2e"],
+Cell[3411445, 64590, 3201, 61, 60, "Output",ExpressionUUID->"c2ede9a0-b94f-4b1e-a656-779f19255c39"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3067845, 58846, 1705, 36, 71, "Input",ExpressionUUID->"cf4b5c4b-339f-4dee-887e-9827e8e84f6a"],
-Cell[3069553, 58884, 18192, 331, 135, "Output",ExpressionUUID->"59a5f5ab-6f64-4857-9cc3-85e34ce96d47"]
+Cell[3414683, 64656, 1705, 36, 71, "Input",ExpressionUUID->"cf4b5c4b-339f-4dee-887e-9827e8e84f6a"],
+Cell[3416391, 64694, 18192, 331, 135, "Output",ExpressionUUID->"59a5f5ab-6f64-4857-9cc3-85e34ce96d47"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3087782, 59220, 336, 9, 22, "Input",ExpressionUUID->"284ac71a-7465-46b2-a883-7d04bfed7c1a"],
-Cell[3088121, 59231, 5691, 143, 177, "Output",ExpressionUUID->"8b218d9d-8ae6-4b3f-a0aa-21817c81ea81"]
+Cell[3434620, 65030, 336, 9, 22, "Input",ExpressionUUID->"284ac71a-7465-46b2-a883-7d04bfed7c1a"],
+Cell[3434959, 65041, 5691, 143, 177, "Output",ExpressionUUID->"8b218d9d-8ae6-4b3f-a0aa-21817c81ea81"]
}, Open ]],
-Cell[3093827, 59377, 2089, 36, 55, "Input",ExpressionUUID->"7b4489a6-2b9b-4fa0-b010-a2b21dfcde45"],
+Cell[3440665, 65187, 2089, 36, 55, "Input",ExpressionUUID->"7b4489a6-2b9b-4fa0-b010-a2b21dfcde45"],
Cell[CellGroupData[{
-Cell[3095941, 59417, 6598, 135, 41, "Input",ExpressionUUID->"3bcb2734-3eb2-49b0-9f9e-04e4c7a4fa3a"],
-Cell[3102542, 59554, 3462, 68, 44, "Output",ExpressionUUID->"babae66a-342f-4778-9bda-49d5d95c0e25"]
+Cell[3442779, 65227, 6598, 135, 41, "Input",ExpressionUUID->"3bcb2734-3eb2-49b0-9f9e-04e4c7a4fa3a"],
+Cell[3449380, 65364, 3462, 68, 44, "Output",ExpressionUUID->"babae66a-342f-4778-9bda-49d5d95c0e25"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3106041, 59627, 1755, 37, 71, "Input",ExpressionUUID->"0e6a979b-40f1-49c5-87f2-c038673fb15e"],
-Cell[3107799, 59666, 17980, 327, 135, "Output",ExpressionUUID->"067ae380-8bbe-4d24-910a-2d72ea259077"]
+Cell[3452879, 65437, 1755, 37, 71, "Input",ExpressionUUID->"0e6a979b-40f1-49c5-87f2-c038673fb15e"],
+Cell[3454637, 65476, 17980, 327, 135, "Output",ExpressionUUID->"067ae380-8bbe-4d24-910a-2d72ea259077"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3125816, 59998, 384, 10, 22, "Input",ExpressionUUID->"a0ce8c43-76ba-466b-b075-393a38369f3e"],
-Cell[3126203, 60010, 5952, 149, 177, "Output",ExpressionUUID->"efcd0ede-5fe0-410c-85a7-f2cb4a37d0c4"]
+Cell[3472654, 65808, 384, 10, 22, "Input",ExpressionUUID->"a0ce8c43-76ba-466b-b075-393a38369f3e"],
+Cell[3473041, 65820, 5952, 149, 177, "Output",ExpressionUUID->"efcd0ede-5fe0-410c-85a7-f2cb4a37d0c4"]
}, Open ]],
-Cell[3132170, 60162, 2143, 37, 55, "Input",ExpressionUUID->"64ac9234-6e5e-4a0a-889d-9a4d2d9e49eb"],
+Cell[3479008, 65972, 2143, 37, 55, "Input",ExpressionUUID->"64ac9234-6e5e-4a0a-889d-9a4d2d9e49eb"],
Cell[CellGroupData[{
-Cell[3134338, 60203, 7704, 168, 57, "Input",ExpressionUUID->"d5ce1c93-2d50-4d5c-a1f8-53932ea334e0"],
-Cell[3142045, 60373, 3873, 76, 44, "Output",ExpressionUUID->"55d1b86b-6c0e-4346-b514-6a32ca6f4162"]
+Cell[3481176, 66013, 7704, 168, 57, "Input",ExpressionUUID->"d5ce1c93-2d50-4d5c-a1f8-53932ea334e0"],
+Cell[3488883, 66183, 3873, 76, 44, "Output",ExpressionUUID->"55d1b86b-6c0e-4346-b514-6a32ca6f4162"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3145955, 60454, 1805, 38, 71, "Input",ExpressionUUID->"4639fe6e-d305-44c1-81c3-afb4e380c88d"],
-Cell[3147763, 60494, 17885, 326, 136, "Output",ExpressionUUID->"ee73d4b7-147b-4902-9021-472fa1cbd2dd"]
+Cell[3492793, 66264, 1805, 38, 71, "Input",ExpressionUUID->"4639fe6e-d305-44c1-81c3-afb4e380c88d"],
+Cell[3494601, 66304, 17885, 326, 136, "Output",ExpressionUUID->"ee73d4b7-147b-4902-9021-472fa1cbd2dd"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3165685, 60825, 434, 11, 22, "Input",ExpressionUUID->"487c1f18-3c65-4275-b382-bd34678bb77b"],
-Cell[3166122, 60838, 5661, 140, 180, "Output",ExpressionUUID->"98313969-c467-4d0e-84c2-9301e7354fd8"]
+Cell[3512523, 66635, 434, 11, 22, "Input",ExpressionUUID->"487c1f18-3c65-4275-b382-bd34678bb77b"],
+Cell[3512960, 66648, 5661, 140, 180, "Output",ExpressionUUID->"98313969-c467-4d0e-84c2-9301e7354fd8"]
}, Open ]],
-Cell[3171798, 60981, 2143, 37, 55, "Input",ExpressionUUID->"f984095d-d7b8-42c0-84b6-f249f7191889"],
+Cell[3518636, 66791, 2143, 37, 55, "Input",ExpressionUUID->"f984095d-d7b8-42c0-84b6-f249f7191889"],
Cell[CellGroupData[{
-Cell[3173966, 61022, 7833, 169, 57, "Input",ExpressionUUID->"eb772438-6d55-4597-94c4-e8e4c8a28dea"],
-Cell[3181802, 61193, 2018, 33, 19, "Message",ExpressionUUID->"15e11a28-3910-4175-baec-32f60966f167"],
-Cell[3183823, 61228, 4286, 85, 44, "Output",ExpressionUUID->"dc1d0e6d-dbfc-4101-8f2b-a45c3ce40dc1"]
+Cell[3520804, 66832, 7833, 169, 57, "Input",ExpressionUUID->"eb772438-6d55-4597-94c4-e8e4c8a28dea"],
+Cell[3528640, 67003, 2018, 33, 19, "Message",ExpressionUUID->"15e11a28-3910-4175-baec-32f60966f167"],
+Cell[3530661, 67038, 4286, 85, 44, "Output",ExpressionUUID->"dc1d0e6d-dbfc-4101-8f2b-a45c3ce40dc1"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3188146, 61318, 1853, 38, 71, "Input",ExpressionUUID->"6f764f4a-8e60-4ade-81f6-342ce8502e9b"],
-Cell[3190002, 61358, 17826, 324, 138, "Output",ExpressionUUID->"073b197f-bc4b-40a2-a232-0cc8f06d961e"]
+Cell[3534984, 67128, 1853, 38, 71, "Input",ExpressionUUID->"6f764f4a-8e60-4ade-81f6-342ce8502e9b"],
+Cell[3536840, 67168, 17826, 324, 138, "Output",ExpressionUUID->"073b197f-bc4b-40a2-a232-0cc8f06d961e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3207865, 61687, 480, 11, 22, "Input",ExpressionUUID->"afe99e33-748e-47f2-ba2a-c0c57008e3ff"],
-Cell[3208348, 61700, 7596, 187, 177, "Output",ExpressionUUID->"76d79e7a-9d2d-45b3-bb8a-8f918994420a"]
+Cell[3554703, 67497, 480, 11, 22, "Input",ExpressionUUID->"afe99e33-748e-47f2-ba2a-c0c57008e3ff"],
+Cell[3555186, 67510, 7596, 187, 177, "Output",ExpressionUUID->"76d79e7a-9d2d-45b3-bb8a-8f918994420a"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
-Cell[3215993, 61893, 165, 3, 50, "Section",ExpressionUUID->"747c9bc3-63ef-45c3-af83-bc456177b1c8"],
-Cell[3216161, 61898, 800, 21, 40, "Input",ExpressionUUID->"ebc19a92-5a4d-4254-8fad-8cadbfa1bd32"],
+Cell[3562831, 67703, 165, 3, 50, "Section",ExpressionUUID->"747c9bc3-63ef-45c3-af83-bc456177b1c8"],
+Cell[3562999, 67708, 800, 21, 40, "Input",ExpressionUUID->"ebc19a92-5a4d-4254-8fad-8cadbfa1bd32"],
Cell[CellGroupData[{
-Cell[3216986, 61923, 886, 24, 24, "Input",ExpressionUUID->"f224ec13-7431-41d4-919e-0ad10e8ff5b2"],
-Cell[3217875, 61949, 299, 6, 25, "Output",ExpressionUUID->"5043975f-bf54-4984-bf97-09e0c59f4acf"]
+Cell[3563824, 67733, 886, 24, 24, "Input",ExpressionUUID->"f224ec13-7431-41d4-919e-0ad10e8ff5b2"],
+Cell[3564713, 67759, 299, 6, 25, "Output",ExpressionUUID->"5043975f-bf54-4984-bf97-09e0c59f4acf"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3218211, 61960, 1529, 43, 24, "Input",ExpressionUUID->"bdb2aaf8-6c60-4fd6-b0aa-d74503ebfe5d"],
-Cell[3219743, 62005, 216, 4, 39, "Output",ExpressionUUID->"672f3cb6-b559-424b-b6e9-dff18bdab931"]
+Cell[3565049, 67770, 1529, 43, 24, "Input",ExpressionUUID->"bdb2aaf8-6c60-4fd6-b0aa-d74503ebfe5d"],
+Cell[3566581, 67815, 216, 4, 39, "Output",ExpressionUUID->"672f3cb6-b559-424b-b6e9-dff18bdab931"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3219996, 62014, 2328, 62, 24, "Input",ExpressionUUID->"9581e610-c27e-4ccd-9de0-7344556f685a"],
-Cell[3222327, 62078, 584, 12, 18, "Message",ExpressionUUID->"926f5636-f494-4b80-9e0f-998a05d07881"],
-Cell[3222914, 62092, 420, 8, 25, "Output",ExpressionUUID->"3c60fc73-ad7e-4b33-a3eb-fdc35776a150"]
+Cell[3566834, 67824, 2328, 62, 24, "Input",ExpressionUUID->"9581e610-c27e-4ccd-9de0-7344556f685a"],
+Cell[3569165, 67888, 584, 12, 18, "Message",ExpressionUUID->"926f5636-f494-4b80-9e0f-998a05d07881"],
+Cell[3569752, 67902, 420, 8, 25, "Output",ExpressionUUID->"3c60fc73-ad7e-4b33-a3eb-fdc35776a150"]
}, Open ]],
-Cell[3223349, 62103, 1234, 32, 24, "Input",ExpressionUUID->"3a793a2c-1a2c-433a-873f-55e7861acacf"],
+Cell[3570187, 67913, 1234, 32, 24, "Input",ExpressionUUID->"3a793a2c-1a2c-433a-873f-55e7861acacf"],
Cell[CellGroupData[{
-Cell[3224608, 62139, 379, 9, 24, "Input",ExpressionUUID->"6a4616ab-41e4-44cc-8806-ee9851e65934"],
-Cell[3224990, 62150, 21750, 374, 177, "Output",ExpressionUUID->"7ae541cc-49f0-4346-9e8f-3995505a8e9f"]
+Cell[3571446, 67949, 379, 9, 24, "Input",ExpressionUUID->"6a4616ab-41e4-44cc-8806-ee9851e65934"],
+Cell[3571828, 67960, 21750, 374, 177, "Output",ExpressionUUID->"7ae541cc-49f0-4346-9e8f-3995505a8e9f"]
}, Open ]],
-Cell[3246755, 62527, 2535, 66, 24, "Input",ExpressionUUID->"02eee1a8-8fdf-4ef6-8fa3-737b3067106e"],
+Cell[3593593, 68337, 2535, 66, 24, "Input",ExpressionUUID->"02eee1a8-8fdf-4ef6-8fa3-737b3067106e"],
Cell[CellGroupData[{
-Cell[3249315, 62597, 491, 10, 24, "Input",ExpressionUUID->"8858ddfc-1e71-4778-a0b8-512abba3d901"],
-Cell[3249809, 62609, 22737, 390, 179, "Output",ExpressionUUID->"3a7e88f8-603a-4c66-8a1b-065c43aff3cd"]
+Cell[3596153, 68407, 491, 10, 24, "Input",ExpressionUUID->"8858ddfc-1e71-4778-a0b8-512abba3d901"],
+Cell[3596647, 68419, 22737, 390, 179, "Output",ExpressionUUID->"3a7e88f8-603a-4c66-8a1b-065c43aff3cd"]
}, Open ]],
-Cell[3272561, 63002, 3849, 95, 75, "Input",ExpressionUUID->"954f68de-17bb-4b28-b089-18f4c1840d53"],
+Cell[3619399, 68812, 3849, 95, 75, "Input",ExpressionUUID->"954f68de-17bb-4b28-b089-18f4c1840d53"],
Cell[CellGroupData[{
-Cell[3276435, 63101, 448, 10, 24, "Input",ExpressionUUID->"fd8d9fbd-6567-43cc-a4dc-4c986b02e466"],
-Cell[3276886, 63113, 26854, 485, 178, "Output",ExpressionUUID->"b7f39439-0c1d-40f8-af40-5fed6fd931de"],
-Cell[3303743, 63600, 175, 3, 25, "Output",ExpressionUUID->"2b7f8ec2-0126-4787-92e3-a6d9dd600de2"]
+Cell[3623273, 68911, 448, 10, 24, "Input",ExpressionUUID->"fd8d9fbd-6567-43cc-a4dc-4c986b02e466"],
+Cell[3623724, 68923, 26854, 485, 178, "Output",ExpressionUUID->"b7f39439-0c1d-40f8-af40-5fed6fd931de"],
+Cell[3650581, 69410, 175, 3, 25, "Output",ExpressionUUID->"2b7f8ec2-0126-4787-92e3-a6d9dd600de2"]
}, Open ]]
}, Open ]]
}
diff --git a/schofield.wl b/schofield.wl
index 7f6bed8..c4ebc32 100644
--- a/schofield.wl
+++ b/schofield.wl
@@ -30,18 +30,12 @@ $Assumptions = {θc > 0, θc > 1, gC[_] ∈ Reals, B > 0, γ > 0, ξ0 > 0}
}
]
-OverBar[s] := 1.357838341706595496
-
Δ[D_:2] := β[D] δ[D]
-t[θ_] := ((θ)^2 - 1)
-(*
-hBasis = Orthogonalize[x^# & /@ Range[0, 20], Function[{f, g}, Integrate[f g (1 - x^2)^2, {x, -1, 1}]]]
+OverBar[s] := 1.357838341706595496
-h[n_][θ_] := (1 - (θ/θc)^2) Sum[gC[i] hBasis[[2 * i + 2]], {i, 0, n}] /. x -> θ / θc
+t[θ_] := ((θ)^2 - 1)
h[n_][θ_] := (1 - (θ/θc)^2) Sum[gC[i]LegendreP[(2 * i + 1), θ/θc], {i, 0, n}]
-*)
-h[n_][θ_] := (1 - (θ/θc)^2) Sum[gC[i]θ^(2 * i + 1), {i, 0, n}]
RFLow[B_, θc_][θ_] := (1/\[Pi])(2 E^(1/(
B \[Theta]c)) \[Theta]c ExpIntegralEi[-(1/(B \[Theta]c))] +
@@ -52,19 +46,24 @@ ExpIntegralEi[1/(B \[Theta] - B \[Theta]c)] -
B \[Theta] + B \[Theta]c))])
RFHigh[ξ0_][ξ_] := (ξ^2+ξ0^2)^(5/6)
-RF[n_][θ_] := AL RFLow[B, θc][θ] + AH RFHigh[θ0][θ] + Sum[A[i] θ^(2 i), {i, 0, n}]
+RF[n_][θ_] := AL RFLow[B, θc][θ] + AH RFHigh[θ0][θ] + Sum[A[i] LegendreP[(2 i), θ/θc] , {i, 0, n}]
RFReg[n_][θ_] := AL (1/\[Pi])(2 E^(1/(
B \[Theta]c)) \[Theta]c ExpIntegralEi[-(1/(B \[Theta]c))] -
E^(1/(B \[Theta] +
B \[Theta]c)) (\[Theta] + \[Theta]c) ExpIntegralEi[-(1/(
- B \[Theta] + B \[Theta]c))]) + AH RFHigh[θ0][θ] + Sum[A[i] LegendreP[2i, θ], {i, 0, n}]
+ B \[Theta] + B \[Theta]c))]) + AH RFHigh[θ0][θ] + Sum[A[i] LegendreP[(2 i), θ/θc], {i, 0, n}]
dRFc[n_][m_] := Piecewise[{{AL m! Gamma[m - 1] B^(m - 1) / π, m>1}, {0, True}}] + D[RFReg[n][θ], {θ, m}] /. θ -> θc
RFC[n_][θ_] := RF[n][θ] + AL I Sign[Im[θ]] ((θ-θc)Exp[-1/(B(θ-θc))]-(-θ-θc)Exp[-1/(B(-θ-θc))])
ddξ[h_][f_] := D[f, θ] / D[h[θ] / RealAbs[t[θ]]^Δ[2], θ]
+ddη[h_][f_] := D[f, θ] / D[t[θ] / h[θ]^(1 / Δ[2]), θ]
dFdξLow[n_, h_][m_] := Module[{ff, hh}, Nest[ddξ[hh], ff[θ] / t[θ]^2 - Log[t[θ]^2] / (8 π), m] /. θ -> θc /. Map[Derivative[#][ff][θc] -> dRFc[n][#] &, Range[0, m]] /. hh -> h]
dFdξHigh[n_, h_][m_] := Module[{ff, hh}, Nest[ddξ[hh], ff[θ] / t[θ]^2 - Log[t[θ]^2] / (8 π), m] /. θ -> 0 /. Map[Derivative[#][ff][0] -> eqHighRHS[RF[n]][#] &, Range[0, m]] /. hh -> h]
+dFdη[n_, h_][m_][tt_] := Module[{ff, hh}, Nest[ddη[hh], h[θ]^(-2 / Δ[]) (ff[θ] - t[θ]^2 Log[hh[θ]^2] / (8 π Δ[])), m] /. θ -> tt /. Map[Derivative[#][ff][tt] -> Derivative[#][RF[n]][tt] &, Range[0, m]] /. hh -> h]
+dFdξLowList[n_, h_][m_] := Module[{ff, hh}, NestList[ddξ[hh], ff[θ] / t[θ]^2 - Log[t[θ]^2] / (8 π), m] /. θ -> θc /. Map[Derivative[#][ff][θc] -> dRFc[n][#] &, Range[0, m]] /. Map[Derivative[#][hh][θc] -> Derivative[#][h][θc] &, Range[0, m]]]
+dFdξHighList[n_, h_][m_] := Module[{ff, hh}, NestList[ddξ[hh], ff[θ] / t[θ]^2 - Log[t[θ]^2] / (8 π), m] /. θ -> 0 /. Map[Derivative[#][ff][0] -> eqHighRHS[RF[n]][#] &, Range[0, m]] /. hh -> h]
+dFdηList[n_, h_][m_][tt_] := Module[{ff, hh}, NestList[ddη[hh], h[θ]^(-2 / Δ[2]) (ff[θ] - t[θ]^2 Log[hh[θ]^2] / (8 π Δ[2])), m] /. θ -> tt /. Map[Derivative[#][ff][tt] -> Derivative[#][RF[n]][tt] &, Range[0, m]] /. hh -> h]
ruleB[g_] := B - (2 * OverBar[s] / π) * (- g'[θc] / t[θc]^Δ[2])
ruleθ0[g_] := Simplify[g[I θ0]/(-t[I θ0])^Δ[2]/I] - 0.18930
@@ -99,7 +98,10 @@ eqMid[F_, h_][m_] := D[
-2.639978 10^-4,
-5.140526 10^-4,
2.08856 10^-4,
- -4.4819 10^-5
+ -4.4819 10^-5,
+ 3.16 10^-7,
+ 4.31 10^-6,
+ -1.99 10^-6
}
Gls = {
@@ -139,13 +141,14 @@ dRule[sym_][f_, i_] := Derivative[i[[1]] - 1][sym][0] -> f (i[[1]] - 1)!
GlRules = MapIndexed[dRule[Gl], Gls];
GhRules = MapIndexed[dRule[Gh], Ghs];
+ClearAll[gC]
rules := Join[ΦRules, GlRules, GhRules]
(*ξ0 := 0.18930*)
(*gC[0] := 1*)
tC[0] := 1
-gC[0] := 1
+(*gC[0] := 1*)
-eq[n_, g_][m_] := Flatten[Join[{ruleB[g], ruleθ0[g]},{eqLow[n, g][#](*, eqMid[F, g][#]*)} & /@ Range[0, m], eqHigh[n, g] /@ Range[0, m, 2]]] //. rules /. Around[x_, _] :> x
+eq[n_, g_][m_, p_, q_] := Flatten[Join[{ruleB[g], ruleθ0[g], g'[0] - 1}, eqLow[n, g][#] & /@ Range[0, m],eqMid[RF[n], g][#] & /@ Range[0, p], eqHigh[n, g] /@ Range[0, q, 2]]] //. rules /. Around[x_, _] :> x
(* *)
chiSquaredLow[n_, g_][m_] := Total[(((#[[1]] /. rules)["Value"] - #[[2]])^2 / (#[[1]] /. rules)["Uncertainty"]^2)& /@ ({Gls[[#+1]], dFdξLow[n, g][#] / #!} & /@ Range[0, m])]