From b59fef3c0518a9c1b20801116b7c7c9fb4167569 Mon Sep 17 00:00:00 2001 From: Jaron Kent-Dobias Date: Fri, 7 May 2021 17:11:59 +0200 Subject: Much work. --- new_schofield.nb | 6974 ++++++++++++++++++++++++++++++++++++++++++++++++++---- schofield.wl | 29 +- 2 files changed, 6464 insertions(+), 539 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[{ @@ -39,17 +55,20 @@ Cell["Definitions", "Section", 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,542 @@ Cell[BoxData[ RowBox[{"ListLogPlot", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ - RowBox[{"Abs", "@", "Gls"}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Abs", "[", "Gls", "]"}], + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Range", "[", + RowBox[{"Length", "[", "Gls", "]"}], "]"}], "-", "1"}], ")"}], + "!"}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"Chop", "[", RowBox[{ - RowBox[{"Abs", "@", + 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}, {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[{{{{}, + {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.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.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.}}, {-4.605170185988091, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-2.3025850929940455`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0., + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 4.605170185988092, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 6.907755278982137, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 9.210340371976184, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 13.815510557964274`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 16.11809565095832, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 18.420680743952367`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 23.025850929940457`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 25.328436022934504`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 27.631021115928547`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 29.933606208922594`, + 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.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[{ - 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[{"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}},ExpressionUUID->"ebb4c874-bb28-449d-8bcb-\ -e2e4531ba683"], + 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[{{{{}, @@ -333,58 +911,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.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.1735057771158415`}, + AxesOrigin->{0., -4.546909369396598}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -405,7 +981,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,20 +989,5260 @@ 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.}}, {-4.605170185988091, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-2.3025850929940455`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0., + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 4.605170185988092, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 6.907755278982137, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 9.210340371976184, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 13.815510557964274`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 16.11809565095832, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 18.420680743952367`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 23.025850929940457`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 25.328436022934504`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 27.631021115928547`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 29.933606208922594`, + 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.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[{"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.}}, {-4.605170185988091, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-2.3025850929940455`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0., + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 4.605170185988092, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 6.907755278982137, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 9.210340371976184, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 13.815510557964274`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 16.11809565095832, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 18.420680743952367`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 23.025850929940457`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 25.328436022934504`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 27.631021115928547`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 29.933606208922594`, + FormBox[ + 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.}}, { + 1.0986122886681098`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 1.3862943611198906`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 1.791759469228055, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 1.9459101490553132`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.0794415416798357`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.1972245773362196`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.302585092994046, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}}, {{-9.903487552536127, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", + TemplateBox[{"10", + RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-9.210340371976182, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", + TemplateBox[{"10", + RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-7.600902459542082, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", + TemplateBox[{"10", + RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-6.907755278982137, + FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-5.298317366548036, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"0.005\"", ShowStringCharacters -> False], 0.005, + AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, + 0.}}, {-4.605170185988091, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"0.010\"", ShowStringCharacters -> False], 0.01, + AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, + 0.}}, {-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, @@ -453,160 +6269,197 @@ Cell[BoxData[ 0.}}, {-2.4079456086518722`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-1.6094379124341003`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-1.2039728043259361`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-0.916290731874155, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-0.6931471805599453, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-0.5108256237659907, + 0.}}, {-2.3025850929940455`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-0.35667494393873245`, + 0.}}, {-1.8971199848858813`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-0.2231435513142097, + 0.}}, {-1.6094379124341003`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-0.10536051565782628`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 0.6931471805599453, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 1.0986122886681098`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 1.3862943611198906`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 1.6094379124341003`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 1.791759469228055, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 1.9459101490553132`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 2.0794415416798357`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 2.1972245773362196`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 2.995732273553991, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 3.4011973816621555`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 3.6888794541139363`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 3.912023005428146, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 4.0943445622221, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 4.248495242049359, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 4.382026634673881, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 4.499809670330265, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 5.298317366548036, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 5.703782474656201, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 5.991464547107982, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 6.214608098422191, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 6.396929655216146, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 6.551080335043404, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 6.684611727667927, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 6.802394763324311, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 7.600902459542082, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 8.006367567650246, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 8.294049640102028, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 8.517193191416238, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 8.699514748210191, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 8.85366542803745, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 8.987196820661973, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 9.104979856318357, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 9.903487552536127, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 10.308952660644293`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 10.596634733096073`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 10.819778284410283`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 11.002099841204238`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 11.156250521031495`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 11.289781913656018`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 11.407564949312402`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 11.512925464970229`, + 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[373]=",ExpressionUUID->"2f12c755-d3dd-40d8-87e9-318ce1ff9f8f"] + "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[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[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[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[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])] -- cgit v1.2.3-54-g00ecf