summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--new_schofield.nb8374
-rw-r--r--schofield-mult.wl176
-rw-r--r--schofield.wl18
3 files changed, 6653 insertions, 1915 deletions
diff --git a/new_schofield.nb b/new_schofield.nb
index 024616c..554243e 100644
--- a/new_schofield.nb
+++ b/new_schofield.nb
@@ -10,10 +10,10 @@
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
-NotebookDataLength[ 14865494, 283405]
-NotebookOptionsPosition[ 14727312, 281253]
-NotebookOutlinePosition[ 14727704, 281269]
-CellTagsIndexPosition[ 14727661, 281266]
+NotebookDataLength[ 15107921, 287965]
+NotebookOptionsPosition[ 14965931, 285751]
+NotebookOutlinePosition[ 14966330, 285767]
+CellTagsIndexPosition[ 14966287, 285764]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
@@ -27,8 +27,12 @@ Cell[BoxData[
3.817625112168749*^9}, {3.8176254615736647`*^9, 3.817625462650483*^9},
3.827832304560932*^9, {3.8278486734515533`*^9, 3.827848673995721*^9}, {
3.8278488730224733`*^9, 3.827848876357965*^9}, {3.827916449928692*^9,
- 3.827916450999913*^9}},
- CellLabel->"In[1]:=",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"],
+ 3.827916450999913*^9}, {3.839304619292111*^9, 3.839304619735818*^9}, {
+ 3.839409661432328*^9, 3.839409662064075*^9}, {3.839479110706854*^9,
+ 3.839479110850239*^9}, {3.839569665835891*^9, 3.839569666219857*^9}, {
+ 3.83957102205329*^9, 3.8395710222207737`*^9}},
+ CellLabel->
+ "In[1560]:=",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"],
Cell[BoxData[{
RowBox[{
@@ -43,7 +47,8 @@ Cell[BoxData[{
RowBox[{"untilSuccess", "[", "e", "]"}]}], "]"}], "]"}]}]}], "Input",
CellChangeTimes->{{3.829364059865052*^9, 3.829364117072966*^9}, {
3.82936416412193*^9, 3.829364169770522*^9}},
- CellLabel->"In[2]:=",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"],
+ CellLabel->
+ "In[1561]:=",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"],
Cell[CellGroupData[{
@@ -70,7 +75,7 @@ Cell[BoxData[{
RowBox[{"eq", "[",
RowBox[{"n1", ",",
RowBox[{"hf", "[", "0", "]"}]}], "]"}], "[",
- RowBox[{"2", ",", "0", ",", "2"}], "]"}]}], ";"}]}], "Input",
+ RowBox[{"0", ",", "0", ",", "2"}], "]"}]}], ";"}]}], "Input",
CellChangeTimes->{
3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9,
@@ -163,8 +168,13 @@ Cell[BoxData[{
3.831201219598433*^9}, {3.831201269855505*^9, 3.831201269951212*^9}, {
3.831201343496719*^9, 3.831201345992399*^9}, {3.831201382497376*^9,
3.8312013843694277`*^9}, {3.831201839593772*^9, 3.831201840345537*^9}, {
- 3.836551505986561*^9, 3.836551553210888*^9}},
- CellLabel->"In[4]:=",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"],
+ 3.836551505986561*^9, 3.836551553210888*^9}, {3.838872872776622*^9,
+ 3.838872925753418*^9}, {3.838873001138908*^9, 3.838873030683112*^9}, {
+ 3.8395714128286257`*^9, 3.8395714144840813`*^9}, {3.839571500717866*^9,
+ 3.8395715207340527`*^9}, {3.839586725884726*^9, 3.839586771917491*^9}, {
+ 3.839586807646269*^9, 3.839586821142334*^9}},
+ CellLabel->
+ "In[1537]:=",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"],
Cell[CellGroupData[{
@@ -306,36 +316,457 @@ Cell[BoxData[
3.829383953946238*^9, 3.829383963449841*^9}, {3.8293840392038937`*^9,
3.829384039371208*^9}, {3.83120122605519*^9, 3.831201283487536*^9}, {
3.8312013478177147`*^9, 3.831201347992716*^9}, {3.831201386770515*^9,
- 3.831201386889453*^9}, {3.836551529955161*^9, 3.836551558467079*^9}},
- CellLabel->"In[8]:=",ExpressionUUID->"3d566693-1b4e-4bc5-b33b-b8036e1e4822"],
+ 3.831201386889453*^9}, {3.836551529955161*^9, 3.836551558467079*^9}, {
+ 3.838872884121388*^9, 3.838872929065737*^9}, {3.8388730108041563`*^9,
+ 3.8388730355875397`*^9}, {3.8395714197011833`*^9, 3.839571422012391*^9}, {
+ 3.839571523766765*^9, 3.839571525262039*^9}, {3.839571605279953*^9,
+ 3.8395716073596277`*^9}, {3.8395867282773533`*^9,
+ 3.8395867762860003`*^9}, {3.839586811206747*^9, 3.839586812070366*^9}},
+ CellLabel->
+ "In[1541]:=",ExpressionUUID->"3d566693-1b4e-4bc5-b33b-b8036e1e4822"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.1942649631944726`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.1980115286480414`"}], ",",
- RowBox[{"B", "\[Rule]", "8.552666400490907`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]",
+ RowBox[{"1.1708170762466188`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]",
+ RowBox[{"0.19777736553091452`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"B", "\[Rule]",
+ RowBox[{"11.106915658977105`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.1942649631944726`"}], ",",
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.1708170762466188`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{"AL", "\[Rule]",
- RowBox[{"-", "0.09823515561348853`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "0.14755818877305205`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.3836528485085036`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "2.4128951007330666`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.0766637996073496`"}], ",",
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.0689492646159182`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.003810087976741`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"1.9787764780403239`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.22823495175052633`"}]}],
- "}"}]], "Output",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"0.21982175418694402`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}]}], "}"}]], "Output",
CellChangeTimes->{{3.831201129036186*^9, 3.831201143759201*^9}, {
3.831201214369443*^9, 3.831201291851005*^9}, 3.8312013416815777`*^9, {
3.8312013813648233`*^9, 3.831201387260991*^9}, 3.8312018415787563`*^9,
3.832134235747699*^9, 3.83213451963468*^9, {3.836461610502349*^9,
3.836461634314517*^9}, 3.836551535373721*^9, 3.8365515859014997`*^9,
3.836551635453539*^9, 3.8366278393694887`*^9, 3.836641958050981*^9, {
- 3.837592518736714*^9, 3.837592520533122*^9}, 3.838198363413417*^9},
- CellLabel->"Out[8]=",ExpressionUUID->"48c43e93-9be6-49d9-8ecf-8d376713aeb6"]
+ 3.837592518736714*^9, 3.837592520533122*^9}, 3.838198363413417*^9,
+ 3.838872162795432*^9, {3.8388728872642727`*^9, 3.838872935214916*^9}, {
+ 3.838873007581262*^9, 3.838873035814711*^9}, 3.8395713679404173`*^9, {
+ 3.8395714165484343`*^9, 3.839571423620078*^9}, {3.839571502680575*^9,
+ 3.839571525417329*^9}, 3.839571609955872*^9, {3.839586718865074*^9,
+ 3.8395867746714163`*^9}, {3.839586805667245*^9, 3.839586822401829*^9}},
+ CellLabel->
+ "Out[1541]=",ExpressionUUID->"86062308-fdba-4d87-8210-7ea083d14ee1"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"mt", "=", "7"}], ";",
+ RowBox[{"ListLogPlot", "[",
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Abs", "[", "Gls", "]"}], ",", "\[IndentingNewLine]",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"dFd\[Xi]LowList", "[",
+ RowBox[{"n1", ",",
+ RowBox[{"hf", "[", "0", "]"}]}], "]"}], "[", "5", "]"}], "/",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"0", ",", "5"}], "]"}], "!"}], ")"}]}], "]"}], "/.",
+ RowBox[{"sol", "[", "0", "]"}]}], "]"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"m", "\[Function]",
+ RowBox[{
+ FractionBox["1", "\[Pi]"],
+ FractionBox[
+ OverscriptBox["s", "_"],
+ RowBox[{"2", "\[Pi]"}]],
+ SuperscriptBox[
+ RowBox[{"(",
+ FractionBox[
+ RowBox[{"2",
+ OverscriptBox["s", "_"]}], "\[Pi]"], ")"}],
+ RowBox[{"(",
+ RowBox[{"m", "-", "1"}], ")"}]],
+ RowBox[{"Gamma", "[",
+ RowBox[{"m", "-", "1"}], "]"}]}]}], ")"}], "/@",
+ RowBox[{"Range", "[",
+ RowBox[{"0", ",", "12"}], "]"}]}]}], "\[IndentingNewLine]", "}"}],
+ "]"}]}]], "Input",
+ CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, {
+ 3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9,
+ 3.829128493270048*^9}, {3.8291285364471493`*^9, 3.8291285366627502`*^9}, {
+ 3.829128816403723*^9, 3.829128817219697*^9}, {3.829212218892186*^9,
+ 3.829212225564254*^9}, {3.8292122694048777`*^9, 3.829212364606584*^9}, {
+ 3.829212422415756*^9, 3.8292124291194887`*^9}, {3.8292138886103983`*^9,
+ 3.829213892914075*^9}, {3.829214258440802*^9, 3.829214267624782*^9}, {
+ 3.829218996805491*^9, 3.829219001117147*^9}, {3.8371574167259398`*^9,
+ 3.83715742501366*^9}, {3.838872732879181*^9, 3.8388727537664413`*^9}, {
+ 3.838873204703073*^9, 3.8388732099027357`*^9}, {3.838873255752236*^9,
+ 3.8388732834641113`*^9}, {3.8388734328271227`*^9, 3.8388734358267*^9}, {
+ 3.838874157024147*^9, 3.8388741604719753`*^9}, {3.839307790346795*^9,
+ 3.839307797698661*^9}, {3.8393093420874243`*^9, 3.839309343767222*^9}, {
+ 3.83940985668435*^9, 3.8394098593718357`*^9}, {3.839479308878851*^9,
+ 3.8394793092698917`*^9}, {3.839479351678846*^9, 3.839479359894719*^9}, {
+ 3.839484132822569*^9, 3.83948413582975*^9}, {3.839484417835371*^9,
+ 3.839484422402855*^9}, {3.8394844606917543`*^9, 3.8394845443653107`*^9}, {
+ 3.839485068790997*^9, 3.839485069686892*^9}, {3.839485153592383*^9,
+ 3.839485166081131*^9}, {3.8394852464151793`*^9, 3.8394852711790447`*^9}, {
+ 3.839485306757688*^9, 3.8394853151639977`*^9}, {3.8394853654853773`*^9,
+ 3.839485432894374*^9}, 3.839485523256114*^9, {3.839485578601307*^9,
+ 3.839485649138336*^9}, {3.8394857007256727`*^9, 3.839485723219755*^9}, {
+ 3.839485936266061*^9, 3.839486030177397*^9}, {3.839486075309197*^9,
+ 3.839486142116439*^9}, {3.839486179828413*^9, 3.839486218245903*^9}, {
+ 3.83948626754249*^9, 3.8394862713893957`*^9}, {3.8394864169524717`*^9,
+ 3.8394864816965714`*^9}, {3.839486986826584*^9, 3.8394869896504993`*^9}, {
+ 3.8394870445001507`*^9, 3.839487076477178*^9}, {3.839487130772867*^9,
+ 3.839487144740963*^9}, {3.8394876124142523`*^9, 3.83948761275005*^9}, {
+ 3.839487645182592*^9, 3.839487645638852*^9}, {3.839488048646216*^9,
+ 3.839488090182976*^9}, {3.839488424581703*^9, 3.8394884272211113`*^9}, {
+ 3.8394892409164047`*^9, 3.839489242332054*^9}, {3.839489275213091*^9,
+ 3.839489292188744*^9}, {3.839489492289144*^9, 3.839489571665984*^9}, {
+ 3.8394896094678373`*^9, 3.839489713796721*^9}, {3.839489762837819*^9,
+ 3.839489797445959*^9}, {3.839489857544436*^9, 3.839489893848106*^9}, {
+ 3.8394903055442333`*^9, 3.839490366136724*^9}, {3.839490881170803*^9,
+ 3.8394908814338083`*^9}, {3.839490914539504*^9, 3.839490928595656*^9}, {
+ 3.839492144689028*^9, 3.839492147329255*^9}, {3.839493141315516*^9,
+ 3.8394931647319393`*^9}, {3.839493641949576*^9, 3.83949364210872*^9}, {
+ 3.839494014823594*^9, 3.839494050556492*^9}, {3.8394955822727327`*^9,
+ 3.8394956194090643`*^9}, {3.839495922911708*^9, 3.839495935527544*^9}, {
+ 3.839496282949663*^9, 3.8394963032934713`*^9}, {3.839571464085573*^9,
+ 3.839571490821789*^9}},
+ CellLabel->
+ "In[1542]:=",ExpressionUUID->"3b9512c4-4741-4838-844f-dc1843a98be2"],
+
+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., -3.0168887065845538`}, {3., -3.0168887065436985`}}],
+ LineBox[{{3., -3.0168887065436985`}, {3., -3.016888706502843}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{4., -3.24768873618056}, {4., -3.2476887336074802`}}],
+ LineBox[{{4., -3.2476887336074802`}, {4., -3.2476887310344003`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{5., -2.6829364089277306`}, {5., -2.6829363942997464`}}],
+ LineBox[{{5., -2.6829363942997464`}, {5., -2.6829363796717627`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{6., -1.6934517864279734`}, {6., -1.6934517320457758`}}],
+ LineBox[{{6., -1.6934517320457758`}, {6., -1.693451677663581}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{7., -0.4167753281916941}, {7., -0.41677381113121115`}}],
+ LineBox[{{7., -0.41677381113121115`}, {7., -0.4167722940730296}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{8., 1.077614026885801}, {8., 1.077615048105556}}],
+ LineBox[{{8., 1.077615048105556}, {8., 1.0776160693242682`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{9., 2.747270914255491}, {9., 2.7479117345273405`}}],
+ LineBox[{{9., 2.7479117345273405`}, {9., 2.7485521444115397`}}]}},
+ Antialiasing->False]}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{2., 0.3058939805973459},
+ Offset[{3, 0}, {2., 0.3058939805973459}]}, {{2.,
+ 0.3058939805973459},
+ Offset[{-3, 0}, {2., 0.3058939805973459}]}, {{2.,
+ 0.3058939805973312}, Offset[{3, 0}, {2., 0.3058939805973312}]}, {{
+ 2., 0.3058939805973312},
+ Offset[{-3, 0}, {2., 0.3058939805973312}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{3., -3.016888706502843},
+ Offset[{3, 0}, {3., -3.016888706502843}]}, {{
+ 3., -3.016888706502843},
+ Offset[{-3, 0}, {3., -3.016888706502843}]}, {{
+ 3., -3.0168887065845538`},
+ Offset[{3, 0}, {3., -3.0168887065845538`}]}, {{
+ 3., -3.0168887065845538`},
+ Offset[{-3, 0}, {3., -3.0168887065845538`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{4., -3.2476887310344003`},
+ Offset[{3, 0}, {4., -3.2476887310344003`}]}, {{
+ 4., -3.2476887310344003`},
+ Offset[{-3, 0}, {4., -3.2476887310344003`}]}, {{
+ 4., -3.24768873618056},
+ Offset[{3, 0}, {4., -3.24768873618056}]}, {{
+ 4., -3.24768873618056},
+ Offset[{-3, 0}, {4., -3.24768873618056}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{5., -2.6829363796717627`},
+ Offset[{3, 0}, {5., -2.6829363796717627`}]}, {{
+ 5., -2.6829363796717627`},
+ Offset[{-3, 0}, {5., -2.6829363796717627`}]}, {{
+ 5., -2.6829364089277306`},
+ Offset[{3, 0}, {5., -2.6829364089277306`}]}, {{
+ 5., -2.6829364089277306`},
+ Offset[{-3, 0}, {5., -2.6829364089277306`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{6., -1.693451677663581},
+ Offset[{3, 0}, {6., -1.693451677663581}]}, {{
+ 6., -1.693451677663581},
+ Offset[{-3, 0}, {6., -1.693451677663581}]}, {{
+ 6., -1.6934517864279734`},
+ Offset[{3, 0}, {6., -1.6934517864279734`}]}, {{
+ 6., -1.6934517864279734`},
+ Offset[{-3, 0}, {6., -1.6934517864279734`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{7., -0.4167722940730296},
+ Offset[{3, 0}, {7., -0.4167722940730296}]}, {{
+ 7., -0.4167722940730296},
+ Offset[{-3, 0}, {7., -0.4167722940730296}]}, {{
+ 7., -0.4167753281916941},
+ Offset[{3, 0}, {7., -0.4167753281916941}]}, {{
+ 7., -0.4167753281916941},
+ Offset[{-3, 0}, {7., -0.4167753281916941}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{8., 1.0776160693242682`},
+ Offset[{3, 0}, {8., 1.0776160693242682`}]}, {{8.,
+ 1.0776160693242682`},
+ Offset[{-3, 0}, {8., 1.0776160693242682`}]}, {{8.,
+ 1.077614026885801}, Offset[{3, 0}, {8., 1.077614026885801}]}, {{
+ 8., 1.077614026885801},
+ Offset[{-3, 0}, {8., 1.077614026885801}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{9., 2.7485521444115397`},
+ Offset[{3, 0}, {9., 2.7485521444115397`}]}, {{9.,
+ 2.7485521444115397`},
+ Offset[{-3, 0}, {9., 2.7485521444115397`}]}, {{9.,
+ 2.747270914255491}, Offset[{3, 0}, {9., 2.747270914255491}]}, {{
+ 9., 2.747270914255491},
+ Offset[{-3, 0}, {9., 2.747270914255491}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]}}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798], 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}, {13., 10.749355820113736`}, {14.,
+ 13.008074231002201`}, {15., 15.354526006101828`}}]},
+ {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{2., 0.30413553038539803`}, {3., -2.94638927949726}, {
+ 4., -3.082031525120388}, {5., -2.472652060045579}, {
+ 6., -1.4843479514635047`}}]},
+ {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{3., -2.8224016963535234`}, {4., -2.96809042104564}, {
+ 5., -2.4206319651778108`}, {6., -1.4677084012018176`}, {
+ 7., -0.22710276477404337`}, {8., 1.2366464229679408`}, {9.,
+ 2.882717167503879}, {10., 4.682938591867076}, {11.,
+ 6.616691408854796}, {12., 8.668227261498899}, {13.,
+ 10.825123629800828`}}]}}, {{}, {}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{0., -4.703417607888443},
+ DisplayFunction->Identity,
+ Frame->{{False, False}, {False, False}},
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->{{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}},
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ ImageSize->{943.9999999999995, Automatic},
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& )}},
+ PlotRange->{{0., 15.}, {-4.703417607888443, 15.354526006101828`}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->FrontEndValueCache[{Automatic,
+ Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-4.605170185988091,
+ FormBox[
+ TagBox[
+ InterpretationBox[
+ StyleBox["\"0.01\"", ShowStringCharacters -> False], 0.01,
+ AutoDelete -> True], NumberForm[#, {
+ DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, {
+ 2.302585092994046,
+ FormBox["10", TraditionalForm], {0.01, 0.}}, {9.210340371976184,
+ FormBox[
+ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {16.11809565095832,
+ FormBox[
+ TemplateBox[{"10", "7"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {-2.3025850929940455`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.605170185988092,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.907755278982137,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 11.512925464970229`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 13.815510557964274`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 16.811242831518264`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 17.216707939626428`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 17.50439001207821,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 17.72753356339242,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 17.909855120186375`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 18.064005800013632`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 18.197537192638155`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 18.31532022829454,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 18.420680743952367`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}}}]]], "Output",
+ CellChangeTimes->{{3.8394864302572823`*^9, 3.839486485737481*^9}, {
+ 3.8394868108920527`*^9, 3.839486833544271*^9}, {3.839486968169405*^9,
+ 3.839486994739235*^9}, {3.839487050609737*^9, 3.839487081545911*^9}, {
+ 3.839487139032605*^9, 3.839487149734391*^9}, 3.8394880559648848`*^9,
+ 3.839488095210012*^9, 3.839488432022138*^9, 3.839488966485567*^9,
+ 3.839489132907782*^9, 3.8394891742679043`*^9, {3.83948923216856*^9,
+ 3.839489247298073*^9}, {3.8394892811100388`*^9, 3.839489297255623*^9}, {
+ 3.839489518429874*^9, 3.839489576749642*^9}, 3.839489614460577*^9, {
+ 3.839489646744204*^9, 3.839489717916*^9}, {3.839489779953936*^9,
+ 3.839489797877178*^9}, {3.839489858269053*^9, 3.839489894400456*^9},
+ 3.83948999298129*^9, 3.839490039302783*^9, 3.839490198501548*^9, {
+ 3.8394903145949183`*^9, 3.839490366668486*^9}, 3.839490410230691*^9,
+ 3.83949068744411*^9, 3.839490882032105*^9, {3.839490915087521*^9,
+ 3.8394909440773563`*^9}, {3.839491208442045*^9, 3.839491227913024*^9},
+ 3.839491282583577*^9, 3.83949138318426*^9, 3.839491847872534*^9,
+ 3.839491922779976*^9, {3.83949214072232*^9, 3.839492147793445*^9},
+ 3.839492703416108*^9, {3.8394930877867403`*^9, 3.839493111348575*^9},
+ 3.839493159337824*^9, 3.839493260745894*^9, 3.8394938495813704`*^9, {
+ 3.839494015878335*^9, 3.839494051166876*^9}, 3.839494155707307*^9, {
+ 3.839494232008819*^9, 3.8394942817479143`*^9}, {3.8394955838062563`*^9,
+ 3.839495620912838*^9}, {3.839495892980287*^9, 3.839495961352178*^9},
+ 3.839495996781355*^9, 3.8394960290995007`*^9, {3.8394961117034683`*^9,
+ 3.839496132210868*^9}, {3.839496233750821*^9, 3.839496247464304*^9}, {
+ 3.839496287823802*^9, 3.839496304224265*^9}, 3.83949641106695*^9,
+ 3.839496651844782*^9, 3.839569714442939*^9, 3.839570692350816*^9,
+ 3.839571037545631*^9, 3.8395710776956797`*^9, 3.8395711376334047`*^9,
+ 3.839571186222416*^9, 3.839571351854351*^9, {3.839571465274334*^9,
+ 3.839571526181179*^9}, 3.8395716114347467`*^9, 3.839586823831606*^9},
+ CellLabel->
+ "Out[1542]=",ExpressionUUID->"2720c35a-79b8-423b-a048-5c7e2711f16a"]
}, Open ]],
Cell[BoxData[{
@@ -355,7 +786,7 @@ Cell[BoxData[{
RowBox[{"eq", "[",
RowBox[{"n2", ",",
RowBox[{"hf", "[", "1", "]"}]}], "]"}], "[",
- RowBox[{"2", ",", "1", ",", "2"}], "]"}]}], ";"}]}], "Input",
+ RowBox[{"1", ",", "0", ",", "2"}], "]"}]}], ";"}]}], "Input",
CellChangeTimes->{
3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9,
@@ -428,8 +859,10 @@ Cell[BoxData[{
3.829371075543243*^9, 3.829371092567361*^9}, {3.829371139368414*^9,
3.8293711438322983`*^9}, {3.8293839400973167`*^9, 3.829383946329383*^9}, {
3.831201408297876*^9, 3.831201409905801*^9}, {3.8312015346838837`*^9,
- 3.831201554868269*^9}, {3.836551622700054*^9, 3.836551650892652*^9}},
- CellLabel->"In[9]:=",ExpressionUUID->"34ec14f2-e69a-4233-afa7-8b9340ca265f"],
+ 3.831201554868269*^9}, {3.836551622700054*^9, 3.836551650892652*^9}, {
+ 3.839586842270893*^9, 3.8395868436787453`*^9}},
+ CellLabel->
+ "In[1543]:=",ExpressionUUID->"34ec14f2-e69a-4233-afa7-8b9340ca265f"],
Cell[CellGroupData[{
@@ -565,35 +998,58 @@ Cell[BoxData[
3.8312014148739243`*^9}, {3.8312015445811357`*^9, 3.831201544772146*^9}, {
3.836541609644332*^9, 3.83654161072397*^9}, {3.8365483271843863`*^9,
3.836548327319232*^9}, {3.8365516530294657`*^9, 3.836551662332802*^9}},
- CellLabel->"In[13]:=",ExpressionUUID->"3c891175-2642-465d-b121-e5989a86c957"],
+ CellLabel->
+ "In[1547]:=",ExpressionUUID->"3c891175-2642-465d-b121-e5989a86c957"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.1902176442725525`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19797673724689807`"}], ",",
- RowBox[{"B", "\[Rule]", "8.934974747350603`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]",
+ RowBox[{"1.1941117484135746`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]",
+ RowBox[{"0.19794336630073606`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"B", "\[Rule]",
+ RowBox[{"8.470679795502464`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.1907835701436698`"}], ",",
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.1861018828763243`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{"AL", "\[Rule]",
- RowBox[{"-", "0.10022764362326456`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "0.12848698513733844`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.387596334642811`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "2.4062846152865958`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.0738334869702502`"}], ",",
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.094106826984082`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.996632476955187`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"2.033357316093315`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.22679429077442959`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"0.22492869610425373`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "1", "]"}], "\[Rule]", "0.0003772839140780935`"}]}],
- "}"}]], "Output",
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.005339910358166831`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}]}], "}"}]], "Output",
CellChangeTimes->{{3.831201531251534*^9, 3.831201557909854*^9},
3.831201846598737*^9, 3.832134247863928*^9, 3.832134526984372*^9,
3.836461704327965*^9, 3.8365415922350397`*^9, 3.836541747183559*^9,
3.836548329685831*^9, 3.836551666454719*^9, 3.8366278490239697`*^9,
- 3.836641958593976*^9, 3.837592521668591*^9, 3.838198367017674*^9},
- CellLabel->"Out[13]=",ExpressionUUID->"e5ca8ddf-7560-4d72-a8b2-b9a3fe1dea00"]
+ 3.836641958593976*^9, 3.837592521668591*^9, 3.838198367017674*^9,
+ 3.8395868445584593`*^9},
+ CellLabel->
+ "Out[1547]=",ExpressionUUID->"38fb3ec6-64aa-4b63-b20b-7d35d2e4572a"]
}, Open ]],
Cell[BoxData[{
@@ -605,7 +1061,7 @@ Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"hf", "[", "2", "]"}], "=",
- RowBox[{"h", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"h", "[", "2", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"eqf", "[", "2", "]"}], "=",
@@ -613,7 +1069,7 @@ Cell[BoxData[{
RowBox[{"eq", "[",
RowBox[{"n3", ",",
RowBox[{"hf", "[", "2", "]"}]}], "]"}], "[",
- RowBox[{"3", ",", "2", ",", "2"}], "]"}]}], ";"}]}], "Input",
+ RowBox[{"1", ",", "1", ",", "2"}], "]"}]}], ";"}]}], "Input",
CellChangeTimes->{
3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9,
@@ -689,8 +1145,10 @@ Cell[BoxData[{
3.8365422625200453`*^9}, {3.836542741616721*^9, 3.836542747769011*^9}, {
3.836547297788639*^9, 3.836547311684668*^9}, {3.836548378504426*^9,
3.8365483800242023`*^9}, {3.836548464833989*^9, 3.836548465929813*^9}, {
- 3.836551683949415*^9, 3.836551690629445*^9}},
- CellLabel->"In[14]:=",ExpressionUUID->"a96db868-d41f-433d-88d3-73a2b34157b2"],
+ 3.836551683949415*^9, 3.836551690629445*^9}, {3.839586853238961*^9,
+ 3.839586857311055*^9}},
+ CellLabel->
+ "In[1548]:=",ExpressionUUID->"a96db868-d41f-433d-88d3-73a2b34157b2"],
Cell[CellGroupData[{
@@ -703,9 +1161,7 @@ Cell[BoxData[
RowBox[{"eqf", "[", "2", "]"}], ",",
RowBox[{"sol", "[", "1", "]"}], ",",
RowBox[{"{",
- RowBox[{
- RowBox[{"gC", "[", "2", "]"}], ",",
- RowBox[{"gC", "[", "3", "]"}]}], "}"}], ",",
+ RowBox[{"gC", "[", "2", "]"}], "}"}], ",",
SuperscriptBox["10",
RowBox[{"-", "3"}]]}], "]"}], "]"}]}]], "Input",
CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
@@ -829,35 +1285,12 @@ Cell[BoxData[
3.836542449395748*^9, 3.836542456563652*^9}, {3.836542750465392*^9,
3.8365427579611998`*^9}, {3.836543802716442*^9, 3.836543803500246*^9}, {
3.836547320637845*^9, 3.836547320828953*^9}, {3.836548384808692*^9,
- 3.8365483874163733`*^9}, {3.836551696134123*^9, 3.836551704557619*^9}},
- CellLabel->"In[18]:=",ExpressionUUID->"9e3392d7-9445-477b-9e57-3faef08acef1"],
+ 3.8365483874163733`*^9}, {3.836551696134123*^9, 3.836551704557619*^9}, {
+ 3.8395868607840633`*^9, 3.839586860935145*^9}},
+ CellLabel->
+ "In[1553]:=",ExpressionUUID->"9e3392d7-9445-477b-9e57-3faef08acef1"],
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.2495389024498578`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.1982786132668952`"}], ",",
- RowBox[{"B", "\[Rule]", "4.959510311026314`"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2259004429173481`"}], ",",
- RowBox[{"AL", "\[Rule]",
- RowBox[{"-", "0.07201039183790162`"}]}], ",",
- RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.375181897897184`"}]}], ",",
- RowBox[{
- RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.143745471285811`"}], ",",
- RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.147533831886609`"}], ",",
- RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.24042085529598398`"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.013220793661126613`"}]}], ",",
- RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.0016801514391329105`"}], ",",
- RowBox[{
- RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.0003003360422608666`"}]}]}], "}"}]], "Output",
+Cell[BoxData["$Aborted"], "Output",
CellChangeTimes->{
3.831201605199861*^9, 3.831201825134141*^9, {3.8312018720267353`*^9,
3.831201915036397*^9}, 3.832134253764925*^9, 3.832134528590658*^9,
@@ -867,8 +1300,10 @@ Cell[BoxData[
3.836547292068849*^9, 3.836547323705811*^9, {3.8365483617910433`*^9,
3.836548382646338*^9}, {3.8365484624351997`*^9, 3.8365484857536917`*^9},
3.836551718967617*^9, 3.836627850466782*^9, 3.836641959696512*^9,
- 3.837592522643034*^9, 3.838198376845046*^9},
- CellLabel->"Out[18]=",ExpressionUUID->"dba58c9c-15d7-4d8c-8b80-bcf89e29e3f0"]
+ 3.837592522643034*^9, 3.838198376845046*^9, {3.839586860011909*^9,
+ 3.839586877571704*^9}},
+ CellLabel->
+ "Out[1553]=",ExpressionUUID->"6c61aadd-c965-4458-a165-ef7680648fc1"]
}, Open ]],
Cell[BoxData[{
@@ -73206,7 +73641,7 @@ Cell[BoxData[
CellLabel->
"Out[223]=",ExpressionUUID->"76d79e7a-9d2d-45b3-bb8a-8f918994420a"]
}, Open ]]
-}, Open ]],
+}, Closed]],
Cell[CellGroupData[{
@@ -142810,14 +143245,14 @@ Cell[BoxData[{
RowBox[{"RF", "[", "n1", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"h1", "=",
- RowBox[{"h", "[", "0", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"h", "[", "1", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"eq1", "=",
RowBox[{
RowBox[{"eq", "[",
RowBox[{"n1", ",", "h1"}], "]"}], "[",
RowBox[{"2", ",",
- RowBox[{"-", "1"}], ",", "4"}], "]"}]}], ";"}]}], "Input",
+ RowBox[{"-", "1"}], ",", "2"}], "]"}]}], ";"}]}], "Input",
CellChangeTimes->{
3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9,
@@ -142912,8 +143347,64 @@ Cell[BoxData[{
3.8312013843694277`*^9}, {3.831201839593772*^9, 3.831201840345537*^9}, {
3.832238415014223*^9, 3.83223842856619*^9}, {3.837157389997303*^9,
3.837157394005158*^9}, {3.83715748549527*^9, 3.837157493567325*^9}, {
- 3.837157574888815*^9, 3.837157594713109*^9}},
- CellLabel->"In[45]:=",ExpressionUUID->"44d0809b-89a2-459b-b7db-1490e06098cb"],
+ 3.837157574888815*^9, 3.837157594713109*^9}, {3.838872670109068*^9,
+ 3.838872700869372*^9}, {3.8388727657507763`*^9, 3.838872831255864*^9}, {
+ 3.8388730517880287`*^9, 3.838873054155924*^9}, {3.8388730848285017`*^9,
+ 3.838873093060574*^9}, {3.838873168181962*^9, 3.838873173437954*^9}, {
+ 3.838873518708441*^9, 3.838873526780451*^9}, {3.838874010981236*^9,
+ 3.838874013893318*^9}, {3.838874055558247*^9, 3.8388740584461927`*^9},
+ 3.8393077838823223`*^9, {3.8393078815243263`*^9, 3.8393078857562513`*^9}, {
+ 3.8393080998401537`*^9, 3.839308101888146*^9}, {3.839308438790889*^9,
+ 3.839308439966342*^9}, {3.839308874326486*^9, 3.839308886966936*^9}, {
+ 3.83930892488736*^9, 3.8393089299035673`*^9}, 3.839309058890212*^9, {
+ 3.839309211461255*^9, 3.839309213428712*^9}, {3.83930925306157*^9,
+ 3.839309256869462*^9}, {3.839309308238777*^9, 3.839309315942576*^9}, {
+ 3.839309437897161*^9, 3.839309438832713*^9}, 3.8393095064659843`*^9, {
+ 3.839309589875602*^9, 3.8393096363408937`*^9}, {3.839314044749199*^9,
+ 3.839314050389189*^9}, {3.839407237037492*^9, 3.8394072677578077`*^9}, {
+ 3.8394073145743637`*^9, 3.8394073193186274`*^9}, 3.839407363855632*^9, {
+ 3.839407634027954*^9, 3.839407654396021*^9}, {3.839407726557692*^9,
+ 3.8394077300852137`*^9}, {3.839409688240843*^9, 3.839409698504875*^9}, {
+ 3.83940975803386*^9, 3.839409759841908*^9}, {3.83940999489408*^9,
+ 3.8394099967662697`*^9}, {3.839410109104104*^9, 3.839410109824209*^9}, {
+ 3.839410407029776*^9, 3.839410410541768*^9}, {3.839479153491171*^9,
+ 3.8394791735235977`*^9}, 3.839479230652454*^9, {3.839484046091927*^9,
+ 3.83948405728428*^9}, 3.839489720964148*^9, {3.839489917775712*^9,
+ 3.839489925103777*^9}, {3.839489963896411*^9, 3.839489983304944*^9}, {
+ 3.839490037337989*^9, 3.839490038001762*^9}, {3.839490405881094*^9,
+ 3.83949040847258*^9}, {3.839490611148225*^9, 3.839490684573902*^9}, {
+ 3.8394908008879347`*^9, 3.839490801015793*^9}, 3.839490858993033*^9,
+ 3.839490942666664*^9, {3.839491206839305*^9, 3.839491226464217*^9},
+ 3.839491379714602*^9, 3.8394918338348503`*^9, {3.839492700530912*^9,
+ 3.839492700578795*^9}, {3.8394930588814287`*^9, 3.8394930968098793`*^9}, {
+ 3.83949414382955*^9, 3.839494148749523*^9}, {3.839494221422964*^9,
+ 3.839494277719782*^9}, {3.8394958808612013`*^9, 3.83949591348577*^9}, {
+ 3.839495950206264*^9, 3.83949595450244*^9}, {3.839496003743476*^9,
+ 3.839496014391261*^9}, {3.839496060000271*^9, 3.839496060952046*^9}, {
+ 3.83949611712959*^9, 3.8394961239295*^9}, {3.839496220419277*^9,
+ 3.839496224195364*^9}, {3.839569710260923*^9, 3.839569729341131*^9}, {
+ 3.8395703825370693`*^9, 3.839570384177005*^9}, {3.839570715023327*^9,
+ 3.8395707169032516`*^9}, {3.839571033461239*^9, 3.8395710465093613`*^9}, {
+ 3.839571131182846*^9, 3.839571153375367*^9}, {3.839571210248404*^9,
+ 3.839571211504149*^9}, {3.8395713434270153`*^9, 3.839571346618925*^9}, {
+ 3.839571621160063*^9, 3.839571624936078*^9}, 3.8395716915694113`*^9, {
+ 3.839571741746264*^9, 3.8395717424658318`*^9}, {3.8395719315818157`*^9,
+ 3.839571931933683*^9}, {3.839572226531189*^9, 3.839572227555024*^9},
+ 3.83957309817096*^9, {3.839573224301415*^9, 3.8395732270615377`*^9},
+ 3.839574185095231*^9, {3.8395800103628674`*^9, 3.8395800190588512`*^9}, {
+ 3.839580226166556*^9, 3.839580230374578*^9}, {3.839580328440292*^9,
+ 3.839580329512352*^9}, 3.839581977430653*^9, {3.8395820180717487`*^9,
+ 3.8395820326558313`*^9}, {3.839582063617322*^9, 3.8395821039051523`*^9}, {
+ 3.839582522344863*^9, 3.839582550441182*^9}, {3.8395827654210253`*^9,
+ 3.839582765517136*^9}, {3.839583090667101*^9, 3.839583093467299*^9}, {
+ 3.839583134531972*^9, 3.83958313730801*^9}, {3.839584290096545*^9,
+ 3.8395842907762213`*^9}, {3.839584375657987*^9, 3.839584376794078*^9}, {
+ 3.8395844349949903`*^9, 3.839584436986897*^9}, {3.839584613646145*^9,
+ 3.839584618686172*^9}, {3.839584666071041*^9, 3.839584670039033*^9}, {
+ 3.839584770368978*^9, 3.839584771385304*^9}, {3.839584854322876*^9,
+ 3.839584855826659*^9}, {3.839585073062356*^9, 3.839585074190363*^9}},
+ CellLabel->
+ "In[1568]:=",ExpressionUUID->"44d0809b-89a2-459b-b7db-1490e06098cb"],
Cell[CellGroupData[{
@@ -142924,7 +143415,7 @@ Cell[BoxData[
RowBox[{"eq1", ",",
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]",
+ RowBox[{"\[Theta]c", "->",
RowBox[{"1", "+",
RowBox[{"RandomReal", "[", "]"}]}]}], ",",
RowBox[{"\[Theta]0", "\[Rule]", "0.2"}], ",",
@@ -142936,7 +143427,8 @@ Cell[BoxData[
RowBox[{"AL", ",", "AH", ",",
RowBox[{"A", "[", "0", "]"}], ",",
RowBox[{"A", "[", "1", "]"}], ",",
- RowBox[{"A", "[", "2", "]"}]}], "}"}], ",", "1"}], "]"}],
+ RowBox[{"A", "[", "2", "]"}], ",",
+ RowBox[{"gC", "[", "1", "]"}]}], "}"}], ",", "1"}], "]"}],
"]"}]}]], "Input",
CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9,
@@ -143054,124 +143546,346 @@ Cell[BoxData[
3.829384039371208*^9}, {3.83120122605519*^9, 3.831201283487536*^9}, {
3.8312013478177147`*^9, 3.831201347992716*^9}, {3.831201386770515*^9,
3.831201386889453*^9}, {3.837157396813609*^9, 3.837157396997427*^9}, {
- 3.837157496903661*^9, 3.837157498991357*^9}},
- CellLabel->"In[50]:=",ExpressionUUID->"7f8997a7-96bf-44a6-8b35-7fbefe7bc627"],
+ 3.837157496903661*^9, 3.837157498991357*^9}, {3.838872706533742*^9,
+ 3.838872708877743*^9}, {3.838872773231937*^9, 3.838872773390835*^9}, {
+ 3.8388728096324997`*^9, 3.8388728249196873`*^9}, {3.838873058044034*^9,
+ 3.8388730595720263`*^9}, {3.838873097564664*^9, 3.8388730989405413`*^9}, {
+ 3.838873170518545*^9, 3.838873175622162*^9}, {3.83887352173355*^9,
+ 3.8388735219085083`*^9}, {3.838874030261998*^9, 3.8388740322697363`*^9}, {
+ 3.8388740623268957`*^9, 3.8388740624942904`*^9}, {3.839307777402863*^9,
+ 3.8393077775703077`*^9}, {3.8393078877970057`*^9, 3.839307889724352*^9}, {
+ 3.839308877631592*^9, 3.839308878246537*^9}, {3.839308921655695*^9,
+ 3.8393089222793922`*^9}, {3.839309012713147*^9, 3.8393090537136173`*^9}, {
+ 3.839309216557613*^9, 3.839309217228821*^9}, {3.839309259958091*^9,
+ 3.8393092762297688`*^9}, {3.839309496787134*^9, 3.839309504522151*^9}, {
+ 3.839309611252572*^9, 3.839309639508462*^9}, {3.839314052870449*^9,
+ 3.8393140530452833`*^9}, {3.839407245254004*^9, 3.8394072737660847`*^9}, {
+ 3.8394073216711807`*^9, 3.83940732277472*^9}, {3.839407360344244*^9,
+ 3.8394073604953413`*^9}, {3.839407637652954*^9, 3.839407651444026*^9}, {
+ 3.839407736334507*^9, 3.839407736501541*^9}, {3.8394097015851803`*^9,
+ 3.839409702776951*^9}, {3.839409762370438*^9, 3.839409763041967*^9}, {
+ 3.839409999046488*^9, 3.839410001606351*^9}, {3.8394101123372726`*^9,
+ 3.8394101124804783`*^9}, {3.839410412982819*^9, 3.8394104133739223`*^9}, {
+ 3.839479147666851*^9, 3.8394791797395153`*^9}, {3.8394840633738213`*^9,
+ 3.839484063540317*^9}, {3.83948974795746*^9, 3.839489753364628*^9}, {
+ 3.8394898544395037`*^9, 3.839489854718527*^9}, {3.8394899888894787`*^9,
+ 3.839489989897036*^9}, {3.839490806320759*^9, 3.839490825416329*^9}, {
+ 3.8394908606973963`*^9, 3.839490869425027*^9}, 3.839490911458921*^9, {
+ 3.839491908342813*^9, 3.839491912820413*^9}, {3.839492132024316*^9,
+ 3.839492132056151*^9}, {3.839494223744257*^9, 3.839494223902832*^9}, {
+ 3.839495902142408*^9, 3.839495907853694*^9}, {3.8394959569270773`*^9,
+ 3.839495958342531*^9}, {3.839496017545046*^9, 3.839496017711686*^9}, {
+ 3.8394960628250227`*^9, 3.839496077328691*^9}, {3.83949612712246*^9,
+ 3.839496130041699*^9}, {3.839496226884532*^9, 3.8394962270113497`*^9}, {
+ 3.839569677220039*^9, 3.839569677564253*^9}, {3.839570388657853*^9,
+ 3.8395703892813663`*^9}, {3.839570712432146*^9, 3.8395707261994467`*^9}, {
+ 3.839571025533676*^9, 3.839571030989087*^9}, {3.839571075294161*^9,
+ 3.8395710761017723`*^9}, {3.839571133319908*^9, 3.839571158487472*^9}, {
+ 3.839571216784864*^9, 3.839571218504352*^9}, {3.839571333523497*^9,
+ 3.8395713499467373`*^9}, {3.839571628432691*^9, 3.83957164137634*^9}, {
+ 3.839571804483577*^9, 3.839571805475205*^9}, {3.83957223102752*^9,
+ 3.8395722319073067`*^9}, {3.839573104108286*^9, 3.839573104259301*^9}, {
+ 3.8395732295822897`*^9, 3.839573230125663*^9}, {3.839580022067048*^9,
+ 3.8395800230828867`*^9}, {3.839580234279642*^9, 3.839580234454647*^9}, {
+ 3.83958033120109*^9, 3.8395803325685577`*^9}, {3.839581982128022*^9,
+ 3.839581982271106*^9}, {3.839582037000985*^9, 3.8395820371519203`*^9}, {
+ 3.839582067457095*^9, 3.8395820701045923`*^9}, {3.839582534801693*^9,
+ 3.839582552265476*^9}, {3.839583098108397*^9, 3.839583100251552*^9}, {
+ 3.839583142148885*^9, 3.839583150796316*^9}, {3.839584297041738*^9,
+ 3.839584297368657*^9}, {3.839584379298683*^9, 3.839584382114108*^9}, {
+ 3.8395844391560583`*^9, 3.83958443929904*^9}, {3.839584622055422*^9,
+ 3.839584622174389*^9}, {3.8395846748082447`*^9, 3.8395846756309958`*^9}, {
+ 3.839584783033971*^9, 3.839584784257432*^9}, {3.83958483924335*^9,
+ 3.839584874155075*^9}, {3.83958507687965*^9, 3.839585077062812*^9}},
+ CellLabel->
+ "In[1572]:=",ExpressionUUID->"7f8997a7-96bf-44a6-8b35-7fbefe7bc627"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.1451919737550051`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.1975069047289378`"}], ",",
- RowBox[{"B", "\[Rule]", "15.403405126743202`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]",
+ RowBox[{"1.218409713805992`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]",
+ RowBox[{"0.19811680464362152`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"B", "\[Rule]",
+ RowBox[{"6.582355448009018`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.1451919737550051`"}], ",",
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.202734258255401`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{"AL", "\[Rule]",
- RowBox[{"-", "0.12736241048546923`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "0.11056705923053134`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.4579986331826196`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "2.399385107726623`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.0571553126091837`"}], ",",
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.1209188239642334`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.9407019021200536`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"2.0916099916405115`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.20757863706192559`"}]}],
- "}"}]], "Output",
- CellChangeTimes->{{3.831201129036186*^9, 3.831201143759201*^9}, {
- 3.831201214369443*^9, 3.831201291851005*^9}, 3.8312013416815777`*^9, {
- 3.8312013813648233`*^9, 3.831201387260991*^9}, 3.8312018415787563`*^9,
- 3.832134235747699*^9, 3.83213451963468*^9, 3.8322384306385603`*^9,
- 3.837157397318159*^9, {3.837157445652166*^9, 3.837157512904951*^9}, {
- 3.837157563907043*^9, 3.837157596330862*^9}},
- CellLabel->"Out[50]=",ExpressionUUID->"ad1175d6-066f-437a-a1e6-286df1581107"]
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"0.23049168496933636`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.010450303700394025`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.8394919130358067`*^9, 3.8394919341902523`*^9},
+ 3.83949213258759*^9, 3.839492701167582*^9, {3.839493080664269*^9,
+ 3.839493109080262*^9}, {3.839494149569553*^9, 3.839494153559662*^9}, {
+ 3.83949421311337*^9, 3.839494278756234*^9}, {3.839495890200734*^9,
+ 3.839495914064736*^9}, 3.839495958517397*^9, {3.839495995280263*^9,
+ 3.8394960262774897`*^9}, {3.839496065421742*^9, 3.839496097747562*^9},
+ 3.839496130287999*^9, 3.8394961961726627`*^9, {3.83949622813761*^9,
+ 3.839496245583247*^9}, {3.839496364369491*^9, 3.83949640961541*^9},
+ 3.839496650754993*^9, 3.8395697119834137`*^9, 3.839570372219099*^9,
+ 3.8395706784371157`*^9, 3.839570719308796*^9, {3.8395709904080057`*^9,
+ 3.839571042867586*^9}, 3.839571076395097*^9, {3.839571136145239*^9,
+ 3.839571179289919*^9}, 3.839571229958015*^9, 3.839571316951174*^9,
+ 3.83957135015889*^9, {3.839571630499785*^9, 3.839571641587707*^9},
+ 3.83957169325782*^9, {3.839571802047394*^9, 3.839571831457892*^9},
+ 3.8395718987910433`*^9, 3.8395719336452217`*^9, {3.839571973845498*^9,
+ 3.839572027302631*^9}, {3.839572139469193*^9, 3.8395721903387833`*^9},
+ 3.8395722322475853`*^9, {3.8395722727644587`*^9, 3.839572338931233*^9}, {
+ 3.839572566897319*^9, 3.839572608570137*^9}, {3.8395728244660883`*^9,
+ 3.839572864666128*^9}, {3.839572959147483*^9, 3.839573080831299*^9}, {
+ 3.839573119520829*^9, 3.839573164722542*^9}, {3.83957320829221*^9,
+ 3.8395732303638887`*^9}, {3.839574167226839*^9, 3.839574187082116*^9}, {
+ 3.8395743545193777`*^9, 3.8395743584745703`*^9}, 3.8395776838230877`*^9, {
+ 3.8395778723307333`*^9, 3.839577936895052*^9}, {3.8395796190717087`*^9,
+ 3.8395796368505993`*^9}, 3.83958016982135*^9, {3.839580238197109*^9,
+ 3.8395802760247583`*^9}, {3.839580325219637*^9, 3.839580336452649*^9},
+ 3.839581553793174*^9, {3.83958160158569*^9, 3.839581610842815*^9}, {
+ 3.8395819834855843`*^9, 3.839582104550893*^9}, {3.839582539168833*^9,
+ 3.839582555666012*^9}, 3.839582766267028*^9, {3.839583095235548*^9,
+ 3.839583180465105*^9}, {3.839584186474066*^9, 3.839584224333396*^9}, {
+ 3.839584293420816*^9, 3.839584481994665*^9}, {3.839584567646343*^9,
+ 3.839584702280164*^9}, {3.839584755089984*^9, 3.8395849842627697`*^9}, {
+ 3.839585064774022*^9, 3.839585077284203*^9}, {3.839587837118126*^9,
+ 3.839587847702281*^9}},
+ CellLabel->
+ "Out[1572]=",ExpressionUUID->"58928da3-ed8b-4988-a00a-29a071e28cb1"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
- RowBox[{"ListLogPlot", "[",
- RowBox[{"{", "\[IndentingNewLine]",
- RowBox[{
+ RowBox[{
+ RowBox[{"mt", "=", "8"}], ";",
+ RowBox[{"ListLogPlot", "[",
+ RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
- RowBox[{"Abs", "[", "Gls", "]"}],
- RowBox[{"(",
+ RowBox[{"Abs", "[", "Gls", "]"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"m", "\[Function]",
+ RowBox[{
+ FractionBox["1", "\[Pi]"],
+ FractionBox[
+ OverscriptBox["s", "_"],
+ RowBox[{"2", "\[Pi]"}]],
+ SuperscriptBox[
+ RowBox[{"(",
+ FractionBox[
+ RowBox[{"2",
+ OverscriptBox["s", "_"]}], "\[Pi]"], ")"}],
+ RowBox[{"(",
+ RowBox[{"m", "-", "1"}], ")"}]],
+ RowBox[{"Gamma", "[",
+ RowBox[{"m", "-", "1"}], "]"}]}]}], ")"}], "/@",
+ RowBox[{"Range", "[",
+ RowBox[{"0", ",", "12"}], "]"}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"Chop", "[",
RowBox[{
- RowBox[{"(",
+ RowBox[{"Abs", "[",
RowBox[{
- RowBox[{"Range", "[",
- RowBox[{"Length", "[", "Gls", "]"}], "]"}], "-", "1"}], ")"}],
- "!"}], ")"}]}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"dFd\[Xi]LowList", "[",
+ RowBox[{"n1", ",", "h1"}], "]"}], "[", "8", "]"}], "/",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"0", ",", "8"}], "]"}], "!"}], ")"}]}], "]"}], "/.",
+ "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.829212422415756*^9, 3.8292124291194887`*^9}, {3.8292138886103983`*^9,
+ 3.829213892914075*^9}, {3.829214258440802*^9, 3.829214267624782*^9}, {
+ 3.829218996805491*^9, 3.829219001117147*^9}, {3.8371574167259398`*^9,
+ 3.83715742501366*^9}, {3.838872732879181*^9, 3.8388727537664413`*^9}, {
+ 3.838873204703073*^9, 3.8388732099027357`*^9}, {3.838873255752236*^9,
+ 3.8388732834641113`*^9}, {3.8388734328271227`*^9, 3.8388734358267*^9}, {
+ 3.838874157024147*^9, 3.8388741604719753`*^9}, {3.839307790346795*^9,
+ 3.839307797698661*^9}, {3.8393093420874243`*^9, 3.839309343767222*^9}, {
+ 3.83940985668435*^9, 3.8394098593718357`*^9}, {3.839479308878851*^9,
+ 3.8394793092698917`*^9}, {3.839479351678846*^9, 3.839479359894719*^9}, {
+ 3.839484132822569*^9, 3.83948413582975*^9}, {3.839484417835371*^9,
+ 3.839484422402855*^9}, {3.8394844606917543`*^9, 3.8394845443653107`*^9}, {
+ 3.839485068790997*^9, 3.839485069686892*^9}, {3.839485153592383*^9,
+ 3.839485166081131*^9}, {3.8394852464151793`*^9, 3.8394852711790447`*^9}, {
+ 3.839485306757688*^9, 3.8394853151639977`*^9}, {3.8394853654853773`*^9,
+ 3.839485432894374*^9}, 3.839485523256114*^9, {3.839485578601307*^9,
+ 3.839485649138336*^9}, {3.8394857007256727`*^9, 3.839485723219755*^9}, {
+ 3.839485936266061*^9, 3.839486030177397*^9}, {3.839486075309197*^9,
+ 3.839486142116439*^9}, {3.839486179828413*^9, 3.839486218245903*^9}, {
+ 3.83948626754249*^9, 3.8394862713893957`*^9}, {3.8394864169524717`*^9,
+ 3.8394864816965714`*^9}, {3.839486986826584*^9, 3.8394869896504993`*^9}, {
+ 3.8394870445001507`*^9, 3.839487076477178*^9}, {3.839487130772867*^9,
+ 3.839487144740963*^9}, {3.8394876124142523`*^9, 3.83948761275005*^9}, {
+ 3.839487645182592*^9, 3.839487645638852*^9}, {3.839488048646216*^9,
+ 3.839488090182976*^9}, {3.839488424581703*^9, 3.8394884272211113`*^9}, {
+ 3.8394892409164047`*^9, 3.839489242332054*^9}, {3.839489275213091*^9,
+ 3.839489292188744*^9}, {3.839489492289144*^9, 3.839489571665984*^9}, {
+ 3.8394896094678373`*^9, 3.839489713796721*^9}, {3.839489762837819*^9,
+ 3.839489797445959*^9}, {3.839489857544436*^9, 3.839489893848106*^9}, {
+ 3.8394903055442333`*^9, 3.839490366136724*^9}, {3.839490881170803*^9,
+ 3.8394908814338083`*^9}, {3.839490914539504*^9, 3.839490928595656*^9}, {
+ 3.839492144689028*^9, 3.839492147329255*^9}, {3.839493141315516*^9,
+ 3.8394931647319393`*^9}, {3.839493641949576*^9, 3.83949364210872*^9}, {
+ 3.839494014823594*^9, 3.839494050556492*^9}, {3.8394955822727327`*^9,
+ 3.8394956194090643`*^9}, {3.839495922911708*^9, 3.839495935527544*^9}, {
+ 3.839496282949663*^9, 3.8394963032934713`*^9}, {3.839572033112393*^9,
+ 3.8395720353280907`*^9}, {3.839572166843008*^9, 3.839572169346869*^9}, {
+ 3.839586112218432*^9, 3.8395861234262123`*^9}, {3.839586281734277*^9,
+ 3.8395862878848553`*^9}, {3.839586416192438*^9, 3.839586419599288*^9}},
+ CellLabel->
+ "In[1559]:=",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"],
+
+Cell[BoxData["$Aborted"], "Output",
+ CellChangeTimes->{{3.8394864302572823`*^9, 3.839486485737481*^9}, {
+ 3.8394868108920527`*^9, 3.839486833544271*^9}, {3.839486968169405*^9,
+ 3.839486994739235*^9}, {3.839487050609737*^9, 3.839487081545911*^9}, {
+ 3.839487139032605*^9, 3.839487149734391*^9}, 3.8394880559648848`*^9,
+ 3.839488095210012*^9, 3.839488432022138*^9, 3.839488966485567*^9,
+ 3.839489132907782*^9, 3.8394891742679043`*^9, {3.83948923216856*^9,
+ 3.839489247298073*^9}, {3.8394892811100388`*^9, 3.839489297255623*^9}, {
+ 3.839489518429874*^9, 3.839489576749642*^9}, 3.839489614460577*^9, {
+ 3.839489646744204*^9, 3.839489717916*^9}, {3.839489779953936*^9,
+ 3.839489797877178*^9}, {3.839489858269053*^9, 3.839489894400456*^9},
+ 3.83948999298129*^9, 3.839490039302783*^9, 3.839490198501548*^9, {
+ 3.8394903145949183`*^9, 3.839490366668486*^9}, 3.839490410230691*^9,
+ 3.83949068744411*^9, 3.839490882032105*^9, {3.839490915087521*^9,
+ 3.8394909440773563`*^9}, {3.839491208442045*^9, 3.839491227913024*^9},
+ 3.839491282583577*^9, 3.83949138318426*^9, 3.839491847872534*^9,
+ 3.839491922779976*^9, {3.83949214072232*^9, 3.839492147793445*^9},
+ 3.839492703416108*^9, {3.8394930877867403`*^9, 3.839493111348575*^9},
+ 3.839493159337824*^9, 3.839493260745894*^9, 3.8394938495813704`*^9, {
+ 3.839494015878335*^9, 3.839494051166876*^9}, 3.839494155707307*^9, {
+ 3.839494232008819*^9, 3.8394942817479143`*^9}, {3.8394955838062563`*^9,
+ 3.839495620912838*^9}, {3.839495892980287*^9, 3.839495961352178*^9},
+ 3.839495996781355*^9, 3.8394960290995007`*^9, {3.8394961117034683`*^9,
+ 3.839496132210868*^9}, {3.839496233750821*^9, 3.839496247464304*^9}, {
+ 3.839496287823802*^9, 3.839496304224265*^9}, 3.83949641106695*^9,
+ 3.839496651844782*^9, 3.839569714442939*^9, 3.839570692350816*^9,
+ 3.839571037545631*^9, 3.8395710776956797`*^9, 3.8395711376334047`*^9,
+ 3.839571186222416*^9, 3.839571351854351*^9, 3.8395716431049433`*^9,
+ 3.8395716961263447`*^9, 3.8395719356619263`*^9, 3.839571975466508*^9, {
+ 3.8395720292576017`*^9, 3.839572038127006*^9}, {3.83957217256413*^9,
+ 3.83957219391011*^9}, 3.839572236054682*^9, {3.839572276306333*^9,
+ 3.839572287892969*^9}, 3.839572342583872*^9, 3.839572572560753*^9,
+ 3.839572613884104*^9, {3.839572830197351*^9, 3.839572867853582*^9}, {
+ 3.839572962859436*^9, 3.839572978399377*^9}, 3.839573191565909*^9,
+ 3.83957323416776*^9, 3.839574190974876*^9, {3.839574358418882*^9,
+ 3.839574363836178*^9}, 3.839577688193771*^9, {3.839577931409347*^9,
+ 3.839577940725779*^9}, {3.839579623692398*^9, 3.839579641583359*^9},
+ 3.839580176251998*^9, {3.839580243310802*^9, 3.839580260058309*^9},
+ 3.83958034038577*^9, 3.839581557584*^9, {3.83958160487352*^9,
+ 3.839581615679512*^9}, 3.839581993151758*^9, 3.839582040886951*^9,
+ 3.839582108820992*^9, 3.839582559973913*^9, 3.839582771424386*^9, {
+ 3.839583107834976*^9, 3.839583154778919*^9}, {3.8395842000019083`*^9,
+ 3.839584229236342*^9}, 3.839584319284484*^9, 3.8395843940434847`*^9,
+ 3.839584572371277*^9, 3.839584947067206*^9, 3.839585081305537*^9,
+ 3.839586137503179*^9, 3.8395862976249247`*^9, 3.839586429104487*^9,
+ 3.839587842464167*^9},
+ CellLabel->
+ "Out[1559]=",ExpressionUUID->"d40c8cba-9dcd-4de5-b829-4bdbb2e41c38"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListLogPlot", "[",
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Abs", "[", "Ghs", "]"}], ",", "\[IndentingNewLine]",
RowBox[{"Chop", "[",
RowBox[{
RowBox[{"Abs", "[",
RowBox[{
- RowBox[{"dFd\[Xi]LowList", "[",
- RowBox[{"n1", ",", "h1"}], "]"}], "[", "6", "]"}], "]"}], "/.",
+ RowBox[{
+ RowBox[{"dFd\[Xi]HighList", "[",
+ RowBox[{"n1", ",", "h1"}], "]"}], "[", "6", "]"}], "/",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"0", ",", "6"}], "]"}], "!"}], ")"}]}], "]"}], "/.",
"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.829212422415756*^9, 3.8292124291194887`*^9}, {3.8292138886103983`*^9,
- 3.829213892914075*^9}, {3.829214258440802*^9, 3.829214267624782*^9}, {
- 3.829218996805491*^9, 3.829219001117147*^9}, {3.8371574167259398`*^9,
- 3.83715742501366*^9}},
- CellLabel->"In[51]:=",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"],
+ CellChangeTimes->CompressedData["
+1:eJwdxTtIAnEAB+AjUBeTMjLUpXRwlx4mUt4QBGlROBRUkFRgkA5JQe+HqERC
+cHhgaWgpFTYEDU1RmDVIWVik2GAR2aCbDQ5l/X83fHxNZtvARBVFUVICO6SL
+lgVXkVYbrmexwVqzijWvSm67dJnFuvBRBAv7RFGsb6nnNhSESRwTqLgTW8Ou
+MHlUpHbj2PeJBystjA+/Ge+DOJs6CGGzu24wQpbpA9zV8l4nbqvMuLD31vdy
+SI5eKtM4r23g3bFF+svWyMd6hZ+p3SnSp04Ni5kVNolbP3QPuF9cfsZU1prB
+iTlZAZvs89yPN8EuMXmK5+3BZc+ZCXePrA3hq18tP09WjEkE+Dg5HcfNpT1u
++fhSWrJbpH+2eRkc2DDG2snilC2O9ZuVUCfZcaHax+vnn7lJ8hNTeMeKUscf
+9uf83P8L2dLE
+ "],
+ CellLabel->
+ "In[1369]:=",ExpressionUUID->"4526b490-c1a8-45bd-8589-5027a1310d64"],
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`}}]}},
+ LineBox[{{3., 0.6126028894836498}, {3., 0.6126028894890692}}],
+ LineBox[{{3., 0.6126028894890692}, {3., 0.6126028894944886}}]}},
Antialiasing->False]},
{RGBColor[0.368417, 0.506779, 0.709798],
StyleBox[{{}, {
- LineBox[{{5., 0.49511742142021525`}, {5., 0.4951174360481992}}],
- LineBox[{{5., 0.4951174360481992}, {5., 0.4951174506761829}}]}},
+ LineBox[{{5., 2.120308945253084}, {5., 2.1203089452650836`}}],
+ LineBox[{{5., 2.1203089452650836`}, {5., 2.120308945277083}}]}},
Antialiasing->False]},
{RGBColor[0.368417, 0.506779, 0.709798],
StyleBox[{{}, {
- LineBox[{{6., 3.0940399563540724`}, {6., 3.09404001073627}}],
- LineBox[{{6., 3.09404001073627}, {6., 3.094040065118465}}]}},
+ LineBox[{{7., 4.555653838211157}, {7., 4.555653943287428}}],
+ LineBox[{{7., 4.555653943287428}, {7., 4.555654048363689}}]}},
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}}]}},
+ LineBox[{{9., 7.284539665889405}, {9., 7.28456024759707}}],
+ LineBox[{{9., 7.28456024759707}, {9., 7.284580828881137}}]}},
Antialiasing->False]},
{RGBColor[0.368417, 0.506779, 0.709798],
StyleBox[{{}, {
- LineBox[{{9., 13.351873817000742`}, {9., 13.352514637272591`}}],
- LineBox[{{9., 13.352514637272591`}, {9., 13.35315504715679}}]}},
+ LineBox[{{11., 10.161573447047902`}, {11., 10.161650696951378`}}],
+ LineBox[{{11., 10.161650696951378`}, {11., 10.161727940887767`}}]}},
Antialiasing->False]}}, {
{RGBColor[0.368417, 0.506779, 0.709798],
StyleBox[{
GeometricTransformationBox[
LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
GeometricTransformationBox[
- LineBox[{{{2., 0.3058939805973459},
- Offset[{3, 0}, {2., 0.3058939805973459}]}, {{2.,
- 0.3058939805973459},
- Offset[{-3, 0}, {2., 0.3058939805973459}]}, {{2.,
- 0.3058939805973312}, Offset[{3, 0}, {2., 0.3058939805973312}]}, {{
- 2., 0.3058939805973312},
- Offset[{-3, 0}, {2., 0.3058939805973312}]}}], {{{1., 0.}, {0.,
+ LineBox[{{{3., 0.6126028894944886},
+ Offset[{3, 0}, {3., 0.6126028894944886}]}, {{3.,
+ 0.6126028894944886},
+ Offset[{-3, 0}, {3., 0.6126028894944886}]}, {{3.,
+ 0.6126028894836498}, Offset[{3, 0}, {3., 0.6126028894836498}]}, {{
+ 3., 0.6126028894836498},
+ Offset[{-3, 0}, {3., 0.6126028894836498}]}}], {{{1., 0.}, {0.,
1.}}, {0., 0.}}]},
Antialiasing->False]},
{RGBColor[0.368417, 0.506779, 0.709798],
@@ -143179,14 +143893,13 @@ Cell[BoxData[
GeometricTransformationBox[
LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
GeometricTransformationBox[
- LineBox[{{{3., -2.3237415259428977`},
- Offset[{3, 0}, {3., -2.3237415259428977`}]}, {{
- 3., -2.3237415259428977`},
- Offset[{-3, 0}, {3., -2.3237415259428977`}]}, {{
- 3., -2.3237415260246084`},
- Offset[{3, 0}, {3., -2.3237415260246084`}]}, {{
- 3., -2.3237415260246084`},
- Offset[{-3, 0}, {3., -2.3237415260246084`}]}}], {{{1., 0.}, {0.,
+ LineBox[{{{5., 2.120308945277083},
+ Offset[{3, 0}, {5., 2.120308945277083}]}, {{5.,
+ 2.120308945277083}, Offset[{-3, 0}, {5., 2.120308945277083}]}, {{
+ 5., 2.120308945253084},
+ Offset[{3, 0}, {5., 2.120308945253084}]}, {{5.,
+ 2.120308945253084},
+ Offset[{-3, 0}, {5., 2.120308945253084}]}}], {{{1., 0.}, {0.,
1.}}, {0., 0.}}]},
Antialiasing->False]},
{RGBColor[0.368417, 0.506779, 0.709798],
@@ -143194,14 +143907,13 @@ Cell[BoxData[
GeometricTransformationBox[
LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
GeometricTransformationBox[
- LineBox[{{{4., -1.4559292618063453`},
- Offset[{3, 0}, {4., -1.4559292618063453`}]}, {{
- 4., -1.4559292618063453`},
- Offset[{-3, 0}, {4., -1.4559292618063453`}]}, {{
- 4., -1.4559292669525052`},
- Offset[{3, 0}, {4., -1.4559292669525052`}]}, {{
- 4., -1.4559292669525052`},
- Offset[{-3, 0}, {4., -1.4559292669525052`}]}}], {{{1., 0.}, {0.,
+ LineBox[{{{7., 4.555654048363689},
+ Offset[{3, 0}, {7., 4.555654048363689}]}, {{7.,
+ 4.555654048363689}, Offset[{-3, 0}, {7., 4.555654048363689}]}, {{
+ 7., 4.555653838211157},
+ Offset[{3, 0}, {7., 4.555653838211157}]}, {{7.,
+ 4.555653838211157},
+ Offset[{-3, 0}, {7., 4.555653838211157}]}}], {{{1., 0.}, {0.,
1.}}, {0., 0.}}]},
Antialiasing->False]},
{RGBColor[0.368417, 0.506779, 0.709798],
@@ -143209,14 +143921,13 @@ Cell[BoxData[
GeometricTransformationBox[
LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
GeometricTransformationBox[
- LineBox[{{{5., 0.4951174506761829},
- Offset[{3, 0}, {5., 0.4951174506761829}]}, {{5.,
- 0.4951174506761829},
- Offset[{-3, 0}, {5., 0.4951174506761829}]}, {{5.,
- 0.49511742142021525`},
- Offset[{3, 0}, {5., 0.49511742142021525`}]}, {{5.,
- 0.49511742142021525`},
- Offset[{-3, 0}, {5., 0.49511742142021525`}]}}], {{{1., 0.}, {0.,
+ LineBox[{{{9., 7.284580828881137},
+ Offset[{3, 0}, {9., 7.284580828881137}]}, {{9.,
+ 7.284580828881137}, Offset[{-3, 0}, {9., 7.284580828881137}]}, {{
+ 9., 7.284539665889405},
+ Offset[{3, 0}, {9., 7.284539665889405}]}, {{9.,
+ 7.284539665889405},
+ Offset[{-3, 0}, {9., 7.284539665889405}]}}], {{{1., 0.}, {0.,
1.}}, {0., 0.}}]},
Antialiasing->False]},
{RGBColor[0.368417, 0.506779, 0.709798],
@@ -143224,73 +143935,30 @@ Cell[BoxData[
GeometricTransformationBox[
LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
GeometricTransformationBox[
- LineBox[{{{6., 3.094040065118465},
- Offset[{3, 0}, {6., 3.094040065118465}]}, {{6.,
- 3.094040065118465}, Offset[{-3, 0}, {6., 3.094040065118465}]}, {{
- 6., 3.0940399563540724`},
- Offset[{3, 0}, {6., 3.0940399563540724`}]}, {{6.,
- 3.0940399563540724`},
- Offset[{-3, 0}, {6., 3.0940399563540724`}]}}], {{{1., 0.}, {0.,
- 1.}}, {0., 0.}}]},
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{
- GeometricTransformationBox[
- LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
- GeometricTransformationBox[
- LineBox[{{{7., 6.162478917937071},
- Offset[{3, 0}, {7., 6.162478917937071}]}, {{7.,
- 6.162478917937071}, Offset[{-3, 0}, {7., 6.162478917937071}]}, {{
- 7., 6.1624758838184075`},
- Offset[{3, 0}, {7., 6.1624758838184075`}]}, {{7.,
- 6.1624758838184075`},
- Offset[{-3, 0}, {7., 6.1624758838184075`}]}}], {{{1., 0.}, {0.,
- 1.}}, {0., 0.}}]},
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{
- GeometricTransformationBox[
- LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
- GeometricTransformationBox[
- LineBox[{{{8., 9.602777430389681},
- Offset[{3, 0}, {8., 9.602777430389681}]}, {{8.,
- 9.602777430389681}, Offset[{-3, 0}, {8., 9.602777430389681}]}, {{
- 8., 9.602775387951214},
- Offset[{3, 0}, {8., 9.602775387951214}]}, {{8.,
- 9.602775387951214},
- Offset[{-3, 0}, {8., 9.602775387951214}]}}], {{{1., 0.}, {0.,
- 1.}}, {0., 0.}}]},
- Antialiasing->False]},
- {RGBColor[0.368417, 0.506779, 0.709798],
- StyleBox[{
- GeometricTransformationBox[
- LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
- GeometricTransformationBox[
- LineBox[{{{9., 13.35315504715679},
- Offset[{3, 0}, {9., 13.35315504715679}]}, {{9.,
- 13.35315504715679}, Offset[{-3, 0}, {9., 13.35315504715679}]}, {{
- 9., 13.351873817000742`},
- Offset[{3, 0}, {9., 13.351873817000742`}]}, {{9.,
- 13.351873817000742`},
- Offset[{-3, 0}, {9., 13.351873817000742`}]}}], {{{1., 0.}, {0.,
+ LineBox[{{{11., 10.161727940887767`},
+ Offset[{3, 0}, {11., 10.161727940887767`}]}, {{11.,
+ 10.161727940887767`},
+ Offset[{-3, 0}, {11., 10.161727940887767`}]}, {{11.,
+ 10.161573447047902`},
+ Offset[{3, 0}, {11., 10.161573447047902`}]}, {{11.,
+ 10.161573447047902`},
+ Offset[{-3, 0}, {11., 10.161573447047902`}]}}], {{{1., 0.}, {0.,
1.}}, {0., 0.}}]},
Antialiasing->False]}}}, {
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
- PointBox[{{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`}}]},
+ PointBox[{{3., 0.6126028894890692}, {5., 2.1203089452650836`}, {7.,
+ 4.555653943287428}, {9., 7.28456024759707}, {11.,
+ 10.161650696951378`}, {13., 13.126355398673866`}, {15.,
+ 16.1573163641116}}]},
{RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
- PointBox[{{2., 0.3058939805973384}, {3., -2.323741525983761}, {
- 4., -1.4534223198158929`}, {5., 0.4814093226911183}, {6.,
- 3.0499508919717107`}, {7., 6.085015475844077}}]}}, {{}, {}}},
+ PointBox[{{3., 0.6126028894890689}, {5., 2.117183143107783}, {7.,
+ 4.543782542798479}}]}}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
- AxesOrigin->{0., -4.546909369396598},
+ AxesOrigin->{0., -0.6038591566192546},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
@@ -143311,7 +143979,7 @@ Cell[BoxData[
Part[#, 1]],
Exp[
Part[#, 2]]}& )}},
- PlotRange->{{0., 12.}, {-4.546909369396598, 26.085288777828126`}},
+ PlotRange->{{0., 15.}, {-0.6038591566192546, 16.1573163641116}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
@@ -143319,34 +143987,21 @@ Cell[BoxData[
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`,
+ Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{0.,
+ FormBox["1", TraditionalForm], {0.01, 0.}}, {4.605170185988092,
+ FormBox["100", TraditionalForm], {0.01, 0.}}, {9.210340371976184,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.,
+ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {13.815510557964274`,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 4.605170185988092,
+ TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {2.302585092994046,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
6.907755278982137,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 9.210340371976184,
- FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 13.815510557964274`,
+ 11.512925464970229`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
16.11809565095832,
@@ -143355,23 +144010,34 @@ Cell[BoxData[
18.420680743952367`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 23.025850929940457`,
- FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 25.328436022934504`,
+ 18.82614585206053,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 27.631021115928547`,
+ 19.11382792451231,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 29.933606208922594`,
+ 19.33697147582652,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
0.}}}}]]], "Output",
- CellChangeTimes->{3.8292190385400677`*^9, 3.829219088509445*^9,
- 3.8292203752304993`*^9, 3.829362528741741*^9, 3.8371574259776793`*^9,
- 3.837157475578351*^9, 3.8371575976446037`*^9},
- CellLabel->"Out[51]=",ExpressionUUID->"51429ceb-340b-429a-83f2-761de0fe44e5"]
+ CellChangeTimes->{
+ 3.838874306626349*^9, 3.839307833176208*^9, 3.839307921759116*^9,
+ 3.839308193555499*^9, 3.839308834719912*^9, 3.839309349421612*^9,
+ 3.839309444930846*^9, 3.839309730941094*^9, {3.839407372958536*^9,
+ 3.839407397557301*^9}, 3.839407510770228*^9, 3.839407742714376*^9, {
+ 3.839409814421706*^9, 3.839409838831974*^9}, {3.839479315138771*^9,
+ 3.839479334135446*^9}, 3.839479510808988*^9, {3.839484106013053*^9,
+ 3.839484114192507*^9}, {3.839491333368382*^9, 3.839491352564785*^9},
+ 3.839496421250053*^9, 3.839570701004363*^9, {3.839571053062819*^9,
+ 3.839571081095027*^9}, 3.839571649226528*^9, {3.839571701597974*^9,
+ 3.839571713955307*^9}, 3.839571774098215*^9, {3.839571960213578*^9,
+ 3.839571965825536*^9}, 3.8395722401143827`*^9, 3.8395726306465683`*^9,
+ 3.8395726971767397`*^9, 3.839573200774227*^9, 3.839573241041375*^9,
+ 3.8395779411886873`*^9, 3.839579644519557*^9, 3.839582112961179*^9,
+ 3.839582561195066*^9, 3.839582772446342*^9, 3.839584240530417*^9,
+ 3.839585089073605*^9},
+ CellLabel->
+ "Out[1369]=",ExpressionUUID->"ed25a474-d44c-4da5-bc09-2c8814588e50"]
}, Open ]],
Cell[BoxData[{
@@ -143382,13 +144048,13 @@ Cell[BoxData[{
RowBox[{"RF", "[", "n2", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"h2", "=",
- RowBox[{"h", "[", "1", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"h", "[", "4", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"eq2", "=",
RowBox[{
RowBox[{"eq", "[",
RowBox[{"n2", ",", "h2"}], "]"}], "[",
- RowBox[{"3", ",",
+ RowBox[{"4", ",",
RowBox[{"-", "1"}], ",", "4"}], "]"}]}], ";"}]}], "Input",
CellChangeTimes->{
3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
@@ -143464,8 +144130,27 @@ Cell[BoxData[{
3.831201408297876*^9, 3.831201409905801*^9}, {3.8312015346838837`*^9,
3.831201554868269*^9}, {3.832238448486864*^9, 3.832238454774919*^9}, {
3.832238494591732*^9, 3.832238495871544*^9}, {3.837157622241745*^9,
- 3.8371576301456223`*^9}},
- CellLabel->"In[52]:=",ExpressionUUID->"e7c0d5af-f100-43a1-9e9f-22ed56c1c22c"],
+ 3.8371576301456223`*^9}, {3.838873189558391*^9, 3.838873189646309*^9}, {
+ 3.838874086798986*^9, 3.8388741422474823`*^9}, 3.839308214050137*^9, {
+ 3.8393093638713923`*^9, 3.83930936396739*^9}, {3.839309744886526*^9,
+ 3.8393097450463467`*^9}, {3.839407454688723*^9, 3.8394074600088387`*^9}, {
+ 3.839407577530896*^9, 3.839407578674554*^9}, {3.839407748693316*^9,
+ 3.839407752805767*^9}, {3.839407974881893*^9, 3.839407977433795*^9}, {
+ 3.839491236760191*^9, 3.839491250119989*^9}, {3.8394927110267878`*^9,
+ 3.839492750275613*^9}, {3.839496444479315*^9, 3.839496472440023*^9}, {
+ 3.8394965527692013`*^9, 3.839496561585268*^9}, {3.8394971452203217`*^9,
+ 3.839497148148279*^9}, {3.83949779015215*^9, 3.839497791752367*^9}, {
+ 3.839572059664007*^9, 3.8395720798002987`*^9}, {3.839573255133895*^9,
+ 3.839573261982102*^9}, {3.839577964764845*^9, 3.839577994997319*^9}, {
+ 3.839580035507483*^9, 3.839580036890873*^9}, {3.839582121617597*^9,
+ 3.8395821216893263`*^9}, {3.8395825667061577`*^9,
+ 3.8395825700335617`*^9}, {3.839582781293694*^9, 3.839582781365535*^9}, {
+ 3.83958509601517*^9, 3.839585096886921*^9}, {3.839585178360592*^9,
+ 3.8395851827285233`*^9}, {3.839585369860046*^9, 3.839585373235799*^9}, {
+ 3.839585456421585*^9, 3.839585459453616*^9}, {3.839587979372076*^9,
+ 3.839587981980048*^9}, {3.839588017140687*^9, 3.839588023684884*^9}},
+ CellLabel->
+ "In[1592]:=",ExpressionUUID->"e7c0d5af-f100-43a1-9e9f-22ed56c1c22c"],
Cell[CellGroupData[{
@@ -143475,9 +144160,12 @@ Cell[BoxData[
RowBox[{"newSol", "[",
RowBox[{"eq2", ",", "sol1", ",",
RowBox[{"{",
- RowBox[{"gC", "[", "1", "]"}], "}"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], ",",
+ RowBox[{"gC", "[", "3", "]"}], ",",
+ RowBox[{"gC", "[", "4", "]"}]}], "}"}], ",",
SuperscriptBox["10",
- RowBox[{"-", "1"}]]}], "]"}], "]"}]}]], "Input",
+ 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}, {
@@ -143595,34 +144283,632 @@ Cell[BoxData[
3.829369079419671*^9, 3.829369080659419*^9}, {3.82937076952973*^9,
3.829370770201521*^9}, {3.829371098735732*^9, 3.829371101471711*^9}, {
3.829371152593144*^9, 3.8293711527685347`*^9}, {3.831201413684575*^9,
- 3.8312014148739243`*^9}, {3.8312015445811357`*^9, 3.831201544772146*^9}},
- CellLabel->"In[56]:=",ExpressionUUID->"2da0f401-c881-42a0-b59b-1f8300174369"],
+ 3.8312014148739243`*^9}, {3.8312015445811357`*^9, 3.831201544772146*^9}, {
+ 3.838873199054694*^9, 3.8388732009024963`*^9}, {3.838874099439412*^9,
+ 3.838874101246911*^9}, {3.838874145544731*^9, 3.8388741456877937`*^9}, {
+ 3.83930936544799*^9, 3.8393093723196287`*^9}, {3.83930975281593*^9,
+ 3.839309753150526*^9}, {3.8394074758177233`*^9, 3.8394074782411823`*^9}, {
+ 3.839407520003084*^9, 3.8394075330261583`*^9}, {3.839407580635974*^9,
+ 3.8394075807947617`*^9}, {3.83940775921416*^9, 3.83940775926975*^9}, {
+ 3.839407979611326*^9, 3.839407980609909*^9}, {3.839491241031789*^9,
+ 3.8394912529120827`*^9}, {3.839496479704753*^9, 3.8394964996244917`*^9}, {
+ 3.8394965644502497`*^9, 3.839496565929781*^9}, {3.8394971048685093`*^9,
+ 3.839497163428607*^9}, {3.839497794809564*^9, 3.8394977953601847`*^9}, {
+ 3.839572073665447*^9, 3.83957207588835*^9}, {3.839577997206327*^9,
+ 3.839577997365345*^9}, 3.839580038539879*^9, {3.839585185953146*^9,
+ 3.8395851869286613`*^9}, {3.839585378180799*^9, 3.839585381292255*^9}, {
+ 3.839585462342166*^9, 3.839585463421628*^9}, {3.8395879873091927`*^9,
+ 3.839588030868886*^9}},
+ CellLabel->
+ "In[1596]:=",ExpressionUUID->"2da0f401-c881-42a0-b59b-1f8300174369"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.140845513482169`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19746926113521202`"}], ",",
- RowBox[{"B", "\[Rule]", "16.393751177401118`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]",
+ RowBox[{"1.2956453320413273`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]",
+ RowBox[{"0.19851656164744122`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"B", "\[Rule]",
+ RowBox[{"3.3652733136985544`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.1418878210051213`"}], ",",
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.2454285886923262`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{"AL", "\[Rule]",
- RowBox[{"-", "0.12940215541369193`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "0.0638435973450265`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.4608907356655503`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "2.383574673197832`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.05312377057795`"}], ",",
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.213990850412119`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.931491249427599`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"2.2921910300568316`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2064255192939165`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"0.24834250474745867`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "1", "]"}], "\[Rule]", "0.0006948716819683702`"}]}],
- "}"}]], "Output",
- CellChangeTimes->{{3.831201531251534*^9, 3.831201557909854*^9},
- 3.831201846598737*^9, 3.832134247863928*^9, 3.832134526984372*^9,
- 3.8322384633155746`*^9, 3.832238496823073*^9, 3.837157633743423*^9},
- CellLabel->"Out[56]=",ExpressionUUID->"31b99911-669c-467a-95fa-6f42941d888b"]
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.029416208169096254`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"0.0035979310063700668`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"0.000020750150548525082`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.0002471816481572939`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.839407570311549*^9, 3.839407604749055*^9},
+ 3.8394077545742292`*^9, 3.8394078285197783`*^9, 3.839409682949657*^9, {
+ 3.839491253126171*^9, 3.8394912898935223`*^9}, {3.839492736929716*^9,
+ 3.839492750993004*^9}, {3.839496476183217*^9, 3.839496488666973*^9},
+ 3.839496551041333*^9, 3.839496636554003*^9, 3.8394967111049128`*^9, {
+ 3.839497107879695*^9, 3.839497158762897*^9}, 3.839497319818717*^9,
+ 3.839498179726663*^9, {3.839572069287546*^9, 3.839572080700838*^9},
+ 3.83957326486565*^9, {3.839577970394766*^9, 3.839577998249591*^9},
+ 3.839579648208268*^9, 3.839580346063476*^9, 3.839581559120728*^9,
+ 3.839581617580515*^9, 3.8395821223970118`*^9, 3.839582571038711*^9, {
+ 3.839582778183103*^9, 3.8395827819717617`*^9}, 3.839584277060437*^9, {
+ 3.839585167966071*^9, 3.8395851873511744`*^9}, 3.8395853757897243`*^9, {
+ 3.839585454186343*^9, 3.839585463718789*^9}, {3.839588010617137*^9,
+ 3.8395880310940647`*^9}},
+ CellLabel->
+ "Out[1596]=",ExpressionUUID->"0f7a8640-cd33-4720-bc92-4ca2b7dadb69"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListLogPlot", "[",
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Abs", "[", "Gls", "]"}], ",", "\[IndentingNewLine]",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"dFd\[Xi]LowList", "[",
+ RowBox[{"n2", ",", "h2"}], "]"}], "[", "8", "]"}], "/",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"0", ",", "8"}], "]"}], "!"}], ")"}]}], "]"}], "/.",
+ "sol2"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input",
+ CellChangeTimes->CompressedData["
+1:eJxTTMoPSmViYGCQAGIQ3SJZk1nd/sbRyOdwGYj2yRNoANEWt5XBdIlk3TQQ
+bbNkxVIQzePPtxpEO5iKgmmf1zznQPQhdnUwfaonpn0JkI7jM+oA0Ye+rOkF
+0cqZk2eC6Ae+ZxeA6FuXFi8E0UkdwhFLgbSUw1wwzSvt1waizf8Vt4Poqcdm
+XlsOpFfvV74Oop9ZibOemfbG8Xm+AhuIdlCaM1lw1hvHDW0W00D05Ppp50C0
+2WOb8yA6UOjHFRDNcCvvBog+VS71GkSHlFSB6QtHF7gKAekcKX43EP1J4jTj
+MyCdF72NCUTrnTl0GESL9v4A0x2n5m0Xm/3G0bmxaCeIfuS3eo49kNZYcA5M
+z0/3508H0h4PIsG01M2li0B0zU7uxSBaRvN/dQ6QFtxZXgOiAV7GxqE=
+ "],
+ CellLabel->
+ "In[1385]:=",ExpressionUUID->"2a486edd-4670-4151-a779-64266251c8bd"],
+
+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., -3.0168887065845538`}, {3., -3.0168887065436985`}}],
+ LineBox[{{3., -3.0168887065436985`}, {3., -3.016888706502843}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{4., -3.24768873618056}, {4., -3.2476887336074802`}}],
+ LineBox[{{4., -3.2476887336074802`}, {4., -3.2476887310344003`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{5., -2.6829364089277306`}, {5., -2.6829363942997464`}}],
+ LineBox[{{5., -2.6829363942997464`}, {5., -2.6829363796717627`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{6., -1.6934517864279734`}, {6., -1.6934517320457758`}}],
+ LineBox[{{6., -1.6934517320457758`}, {6., -1.693451677663581}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{7., -0.4167753281916941}, {7., -0.41677381113121115`}}],
+ LineBox[{{7., -0.41677381113121115`}, {7., -0.4167722940730296}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{8., 1.077614026885801}, {8., 1.077615048105556}}],
+ LineBox[{{8., 1.077615048105556}, {8., 1.0776160693242682`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{9., 2.747270914255491}, {9., 2.7479117345273405`}}],
+ LineBox[{{9., 2.7479117345273405`}, {9., 2.7485521444115397`}}]}},
+ Antialiasing->False]}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{2., 0.3058939805973459},
+ Offset[{3, 0}, {2., 0.3058939805973459}]}, {{2.,
+ 0.3058939805973459},
+ Offset[{-3, 0}, {2., 0.3058939805973459}]}, {{2.,
+ 0.3058939805973312}, Offset[{3, 0}, {2., 0.3058939805973312}]}, {{
+ 2., 0.3058939805973312},
+ Offset[{-3, 0}, {2., 0.3058939805973312}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{3., -3.016888706502843},
+ Offset[{3, 0}, {3., -3.016888706502843}]}, {{
+ 3., -3.016888706502843},
+ Offset[{-3, 0}, {3., -3.016888706502843}]}, {{
+ 3., -3.0168887065845538`},
+ Offset[{3, 0}, {3., -3.0168887065845538`}]}, {{
+ 3., -3.0168887065845538`},
+ Offset[{-3, 0}, {3., -3.0168887065845538`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{4., -3.2476887310344003`},
+ Offset[{3, 0}, {4., -3.2476887310344003`}]}, {{
+ 4., -3.2476887310344003`},
+ Offset[{-3, 0}, {4., -3.2476887310344003`}]}, {{
+ 4., -3.24768873618056},
+ Offset[{3, 0}, {4., -3.24768873618056}]}, {{
+ 4., -3.24768873618056},
+ Offset[{-3, 0}, {4., -3.24768873618056}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{5., -2.6829363796717627`},
+ Offset[{3, 0}, {5., -2.6829363796717627`}]}, {{
+ 5., -2.6829363796717627`},
+ Offset[{-3, 0}, {5., -2.6829363796717627`}]}, {{
+ 5., -2.6829364089277306`},
+ Offset[{3, 0}, {5., -2.6829364089277306`}]}, {{
+ 5., -2.6829364089277306`},
+ Offset[{-3, 0}, {5., -2.6829364089277306`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{6., -1.693451677663581},
+ Offset[{3, 0}, {6., -1.693451677663581}]}, {{
+ 6., -1.693451677663581},
+ Offset[{-3, 0}, {6., -1.693451677663581}]}, {{
+ 6., -1.6934517864279734`},
+ Offset[{3, 0}, {6., -1.6934517864279734`}]}, {{
+ 6., -1.6934517864279734`},
+ Offset[{-3, 0}, {6., -1.6934517864279734`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{7., -0.4167722940730296},
+ Offset[{3, 0}, {7., -0.4167722940730296}]}, {{
+ 7., -0.4167722940730296},
+ Offset[{-3, 0}, {7., -0.4167722940730296}]}, {{
+ 7., -0.4167753281916941},
+ Offset[{3, 0}, {7., -0.4167753281916941}]}, {{
+ 7., -0.4167753281916941},
+ Offset[{-3, 0}, {7., -0.4167753281916941}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{8., 1.0776160693242682`},
+ Offset[{3, 0}, {8., 1.0776160693242682`}]}, {{8.,
+ 1.0776160693242682`},
+ Offset[{-3, 0}, {8., 1.0776160693242682`}]}, {{8.,
+ 1.077614026885801}, Offset[{3, 0}, {8., 1.077614026885801}]}, {{
+ 8., 1.077614026885801},
+ Offset[{-3, 0}, {8., 1.077614026885801}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{9., 2.7485521444115397`},
+ Offset[{3, 0}, {9., 2.7485521444115397`}]}, {{9.,
+ 2.7485521444115397`},
+ Offset[{-3, 0}, {9., 2.7485521444115397`}]}, {{9.,
+ 2.747270914255491}, Offset[{3, 0}, {9., 2.747270914255491}]}, {{
+ 9., 2.747270914255491},
+ Offset[{-3, 0}, {9., 2.747270914255491}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]}}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798], 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}, {13., 10.749355820113736`}, {14.,
+ 13.008074231002201`}, {15., 15.354526006101828`}}]},
+ {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{2., 0.30589398059733724`}, {3., -3.0168887065436607`}, {
+ 4., -3.2476887336073994`}, {5., -2.72442785826888}, {
+ 6., -1.7865877768517808`}, {7., -0.5112062680886028}, {8.,
+ 1.0422278113303158`}, {9., 2.792558898830852}}]}}, {{}, {}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{0., -4.703417607888443},
+ DisplayFunction->Identity,
+ Frame->{{False, False}, {False, False}},
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->{{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}},
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ ImageSize->{681.9999999999993, Automatic},
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& )}},
+ PlotRange->{{0., 15.}, {-4.703417607888443, 15.354526006101828`}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->FrontEndValueCache[{Automatic,
+ Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-4.605170185988091,
+ FormBox[
+ TagBox[
+ InterpretationBox[
+ StyleBox["\"0.01\"", ShowStringCharacters -> False], 0.01,
+ AutoDelete -> True], NumberForm[#, {
+ DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, {
+ 2.302585092994046,
+ FormBox["10", TraditionalForm], {0.01, 0.}}, {9.210340371976184,
+ FormBox[
+ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {16.11809565095832,
+ FormBox[
+ TemplateBox[{"10", "7"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {-2.3025850929940455`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.605170185988092,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.907755278982137,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 11.512925464970229`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 13.815510557964274`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 16.811242831518264`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 17.216707939626428`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 17.50439001207821,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 17.72753356339242,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 17.909855120186375`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 18.064005800013632`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 18.197537192638155`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 18.31532022829454,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 18.420680743952367`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}}}]]], "Output",
+ CellChangeTimes->{
+ 3.8292190385400677`*^9, 3.829219088509445*^9, 3.8292203752304993`*^9,
+ 3.829362528741741*^9, 3.8371574259776793`*^9, 3.837157475578351*^9,
+ 3.8371575976446037`*^9, {3.838872685545763*^9, 3.8388727104012403`*^9}, {
+ 3.838872745856311*^9, 3.838872775031664*^9}, {3.838873060895833*^9,
+ 3.838873069442831*^9}, {3.838873177933014*^9, 3.838873210508173*^9}, {
+ 3.83887325980634*^9, 3.8388732925068274`*^9}, 3.838873443902339*^9, {
+ 3.838874046192869*^9, 3.838874073676612*^9}, 3.838874169904831*^9,
+ 3.839307798861899*^9, 3.839307856791636*^9, {3.8393079205881367`*^9,
+ 3.8393079408915873`*^9}, 3.839308192209601*^9, 3.839308834395816*^9, {
+ 3.839309324200686*^9, 3.839309344536544*^9}, 3.839309443330439*^9, {
+ 3.839309719773855*^9, 3.839309728826005*^9}, {3.8394073695151653`*^9,
+ 3.8394073949048223`*^9}, {3.8394075851251593`*^9, 3.839407605331163*^9},
+ 3.839407961362918*^9, {3.83949129705267*^9, 3.83949130315024*^9}, {
+ 3.839492738397423*^9, 3.8394927517045918`*^9}, {3.839572086066931*^9,
+ 3.839572091490473*^9}, {3.839573266400237*^9, 3.83957327482544*^9}, {
+ 3.839577973668317*^9, 3.839578000981019*^9}, 3.839579657776132*^9,
+ 3.839580349011681*^9, 3.83958156164821*^9, 3.839582125022724*^9,
+ 3.839582574200389*^9, 3.839582784420836*^9, 3.8395832136858463`*^9,
+ 3.8395852001008587`*^9},
+ CellLabel->
+ "Out[1385]=",ExpressionUUID->"22b74791-1694-4234-92de-ac115acbb5cd"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListLogPlot", "[",
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Abs", "[", "Ghs", "]"}], ",", "\[IndentingNewLine]",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"dFd\[Xi]HighList", "[",
+ RowBox[{"n2", ",", "h2"}], "]"}], "[", "6", "]"}], "/",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"0", ",", "6"}], "]"}], "!"}], ")"}]}], "]"}], "/.",
+ "sol2"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input",
+ CellChangeTimes->CompressedData["
+1:eJxTTMoPSmViYGAQBWIQ3SJZk1nd/sbRyOdwGYj2yRNoANEWt5XBdIlk3TQQ
+bbNkxVIQzePPtxpEO5iKgmmf1zznQPQhdnUwfaonpn0JkI7jM+oA0Ye+rOkF
+0cqZk2eC6Ae+ZxeA6FuXFi8E0UkdwhFLgbSUw1wwzSvt1waizf8Vt4Poqcdm
+XlsOpFfvV74Oop9ZibOemfbG8Xm+AhuIdlCaM1lw1hvHDW0W00D05Ppp50C0
+2WOb8yA6UOjHFRDNcCvvBog+VS71GkSHlFSB6QtHF7gKAeks1qneIPpH7+YQ
+EO0R2xgJog/8tWJ7BqSVEsXYQfTKc7lHQLTJ53lg+siR2h1is984Jm//sBNE
+AwAmQa7s
+ "],
+ CellLabel->
+ "In[1386]:=",ExpressionUUID->"a318a711-91bb-47c4-8014-864dd12cb3d9"],
+
+Cell[BoxData[
+ GraphicsBox[{{{
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{3., 0.6126028894836498}, {3., 0.6126028894890692}}],
+ LineBox[{{3., 0.6126028894890692}, {3., 0.6126028894944886}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{5., 2.120308945253084}, {5., 2.1203089452650836`}}],
+ LineBox[{{5., 2.1203089452650836`}, {5., 2.120308945277083}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{7., 4.555653838211157}, {7., 4.555653943287428}}],
+ LineBox[{{7., 4.555653943287428}, {7., 4.555654048363689}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{9., 7.284539665889405}, {9., 7.28456024759707}}],
+ LineBox[{{9., 7.28456024759707}, {9., 7.284580828881137}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{11., 10.161573447047902`}, {11., 10.161650696951378`}}],
+ LineBox[{{11., 10.161650696951378`}, {11., 10.161727940887767`}}]}},
+ Antialiasing->False]}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{3., 0.6126028894944886},
+ Offset[{3, 0}, {3., 0.6126028894944886}]}, {{3.,
+ 0.6126028894944886},
+ Offset[{-3, 0}, {3., 0.6126028894944886}]}, {{3.,
+ 0.6126028894836498}, Offset[{3, 0}, {3., 0.6126028894836498}]}, {{
+ 3., 0.6126028894836498},
+ Offset[{-3, 0}, {3., 0.6126028894836498}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{5., 2.120308945277083},
+ Offset[{3, 0}, {5., 2.120308945277083}]}, {{5.,
+ 2.120308945277083}, Offset[{-3, 0}, {5., 2.120308945277083}]}, {{
+ 5., 2.120308945253084},
+ Offset[{3, 0}, {5., 2.120308945253084}]}, {{5.,
+ 2.120308945253084},
+ Offset[{-3, 0}, {5., 2.120308945253084}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{7., 4.555654048363689},
+ Offset[{3, 0}, {7., 4.555654048363689}]}, {{7.,
+ 4.555654048363689}, Offset[{-3, 0}, {7., 4.555654048363689}]}, {{
+ 7., 4.555653838211157},
+ Offset[{3, 0}, {7., 4.555653838211157}]}, {{7.,
+ 4.555653838211157},
+ Offset[{-3, 0}, {7., 4.555653838211157}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{9., 7.284580828881137},
+ Offset[{3, 0}, {9., 7.284580828881137}]}, {{9.,
+ 7.284580828881137}, Offset[{-3, 0}, {9., 7.284580828881137}]}, {{
+ 9., 7.284539665889405},
+ Offset[{3, 0}, {9., 7.284539665889405}]}, {{9.,
+ 7.284539665889405},
+ Offset[{-3, 0}, {9., 7.284539665889405}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{11., 10.161727940887767`},
+ Offset[{3, 0}, {11., 10.161727940887767`}]}, {{11.,
+ 10.161727940887767`},
+ Offset[{-3, 0}, {11., 10.161727940887767`}]}, {{11.,
+ 10.161573447047902`},
+ Offset[{3, 0}, {11., 10.161573447047902`}]}, {{11.,
+ 10.161573447047902`},
+ Offset[{-3, 0}, {11., 10.161573447047902`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]}}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{3., 0.6126028894890692}, {5., 2.1203089452650836`}, {7.,
+ 4.555653943287428}, {9., 7.28456024759707}, {11.,
+ 10.161650696951378`}, {13., 13.126355398673866`}, {15.,
+ 16.1573163641116}}]},
+ {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{3., 0.6126028894890694}, {5., 2.1203089452650836`}, {7.,
+ 4.548032035480569}}]}}, {{}, {}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{0., -0.6038591566192546},
+ DisplayFunction->Identity,
+ Frame->{{False, False}, {False, False}},
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->{{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}},
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& )}},
+ PlotRange->{{0., 15.}, {-0.6038591566192546, 16.1573163641116}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->FrontEndValueCache[{Automatic,
+ Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{0.,
+ FormBox["1", TraditionalForm], {0.01, 0.}}, {4.605170185988092,
+ FormBox["100", TraditionalForm], {0.01, 0.}}, {9.210340371976184,
+ FormBox[
+ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {13.815510557964274`,
+ FormBox[
+ TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {2.302585092994046,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.907755278982137,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 11.512925464970229`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 16.11809565095832,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 18.420680743952367`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 18.82614585206053,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 19.11382792451231,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 19.33697147582652,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}}}]]], "Output",
+ CellChangeTimes->{
+ 3.838874306626349*^9, 3.839307833176208*^9, 3.839307921759116*^9,
+ 3.839308193555499*^9, 3.839308834719912*^9, 3.839309349421612*^9,
+ 3.839309444930846*^9, 3.839309730941094*^9, {3.839407372958536*^9,
+ 3.839407397557301*^9}, 3.839407510770228*^9, 3.839407588633622*^9,
+ 3.839572101057207*^9, 3.839573281468943*^9, 3.8395780033728247`*^9,
+ 3.839579657993853*^9, 3.839582126122033*^9, 3.839582576361436*^9,
+ 3.8395827867304363`*^9, 3.839585272142757*^9},
+ CellLabel->
+ "Out[1386]=",ExpressionUUID->"f9f49c65-80e7-4fbd-ac29-6953f05bb9d7"]
}, Open ]],
Cell[BoxData[{
@@ -143633,7 +144919,7 @@ Cell[BoxData[{
RowBox[{"RF", "[", "n3", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"h3", "=",
- RowBox[{"h", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"h", "[", "5", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"eq3", "=",
RowBox[{
@@ -143713,8 +144999,15 @@ Cell[BoxData[{
3.8312015948291616`*^9, 3.831201598549038*^9}, {3.831201818353256*^9,
3.831201820017289*^9}, {3.8312018555459843`*^9, 3.831201914138874*^9}, {
3.8322384727513437`*^9, 3.832238476815104*^9}, {3.83715764073805*^9,
- 3.837157644114128*^9}, {3.837157771404172*^9, 3.8371577736922073`*^9}},
- CellLabel->"In[63]:=",ExpressionUUID->"73e91892-d41c-4d88-b25a-4eb12d081073"],
+ 3.837157644114128*^9}, {3.837157771404172*^9, 3.8371577736922073`*^9},
+ 3.8388732416952*^9, {3.839578040990251*^9, 3.8395780450140142`*^9},
+ 3.839582129914302*^9, {3.839582580602171*^9, 3.83958258280977*^9}, {
+ 3.8395827911257467`*^9, 3.839582791237772*^9}, {3.839583003721686*^9,
+ 3.8395830043374166`*^9}, {3.839585279498378*^9, 3.8395852923705273`*^9}, {
+ 3.839585466853951*^9, 3.839585474573823*^9}, {3.839588120582615*^9,
+ 3.8395881249346313`*^9}, {3.8395884394364033`*^9, 3.839588443652686*^9}},
+ CellLabel->
+ "In[1618]:=",ExpressionUUID->"73e91892-d41c-4d88-b25a-4eb12d081073"],
Cell[CellGroupData[{
@@ -143724,11 +145017,9 @@ Cell[BoxData[
RowBox[{"newSol", "[",
RowBox[{"eq3", ",", "sol2", ",",
RowBox[{"{",
- RowBox[{
- RowBox[{"gC", "[", "2", "]"}], ",",
- RowBox[{"gC", "[", "3", "]"}]}], "}"}], ",",
+ RowBox[{"gC", "[", "5", "]"}], "}"}], ",",
SuperscriptBox["10",
- RowBox[{"-", "1"}]]}], "]"}], "]"}]}]], "Input",
+ RowBox[{"-", "4"}]]}], "]"}], "]"}]}]], "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}, {
@@ -143844,42 +145135,624 @@ Cell[BoxData[
3.829371427621697*^9, 3.829371428717615*^9}, {3.829384070852407*^9,
3.829384092643899*^9}, {3.829643418496428*^9, 3.8296434455842133`*^9}, {
3.829643520753277*^9, 3.829643521713008*^9}, {3.8371576505071573`*^9,
- 3.837157650665916*^9}, {3.837157776052775*^9, 3.837157777100462*^9}},
- CellLabel->"In[67]:=",ExpressionUUID->"c43246d1-e2a0-4f05-93de-2eea9f4af4d5"],
+ 3.837157650665916*^9}, {3.837157776052775*^9, 3.837157777100462*^9}, {
+ 3.8388732506235867`*^9, 3.8388732521915503`*^9}, {3.839578050294734*^9,
+ 3.839578051038322*^9}, {3.8395825963064623`*^9, 3.83958259649821*^9}, {
+ 3.8395830693390427`*^9, 3.839583069426901*^9}, {3.8395852963389807`*^9,
+ 3.839585296426599*^9}, {3.83958547866232*^9, 3.8395854803577147`*^9}, {
+ 3.839588131279149*^9, 3.839588136006947*^9}, {3.839588173951844*^9,
+ 3.839588173999587*^9}, {3.839588447469577*^9, 3.839588447644541*^9}},
+ CellLabel->
+ "In[1622]:=",ExpressionUUID->"c43246d1-e2a0-4f05-93de-2eea9f4af4d5"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.2720008097699664`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.1982110305877397`"}], ",",
- RowBox[{"B", "\[Rule]", "4.016997576101916`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]",
+ RowBox[{"1.4905762581255386`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]",
+ RowBox[{"0.19897268489174927`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"B", "\[Rule]",
+ RowBox[{"0.9803593346430673`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2222584375513665`"}], ",",
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.3147514952827049`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{"AL", "\[Rule]",
- RowBox[{"-", "0.060464157125000265`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "0.007910007411231868`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.4146073690672796`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "2.366110804332936`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.200149897285479`"}], ",",
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.4984372635758567`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.2525345528902414`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"2.8999320544539224`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2368516740164763`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"0.2986275644317083`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.02699271157154355`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "0.09497027806489902`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.004134820819507786`"}], ",",
-
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"0.013386997849367158`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.0006859500912947861`"}]}]}], "}"}]], "Output",
+ RowBox[{
+ RowBox[{"-", "0.0030764540638136763`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
+ RowBox[{"0.0005659937096700002`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.00005397291532500592`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}]}], "}"}]], "Output",
CellChangeTimes->{
3.831201605199861*^9, 3.831201825134141*^9, {3.8312018720267353`*^9,
3.831201915036397*^9}, 3.832134253764925*^9, 3.832134528590658*^9, {
3.8322384926311703`*^9, 3.83223850323409*^9}, 3.837157647362878*^9,
- 3.837157742587923*^9, 3.8371577779839277`*^9},
- CellLabel->"Out[67]=",ExpressionUUID->"7a307645-94b4-4ae2-b68d-218545d35407"]
+ 3.837157742587923*^9, 3.8371577779839277`*^9, 3.838873252487184*^9,
+ 3.839578056652884*^9, 3.8395796666883802`*^9, 3.8395803511865263`*^9,
+ 3.839581563336719*^9, 3.839581620994813*^9, 3.8395821350745487`*^9,
+ 3.839582593114229*^9, 3.8395827407540617`*^9, {3.83958306555308*^9,
+ 3.839583084195985*^9}, {3.839585293521529*^9, 3.839585296700117*^9}, {
+ 3.839585480885418*^9, 3.8395854985146217`*^9}, {3.839588154524723*^9,
+ 3.839588172244381*^9}, {3.839588425469323*^9, 3.839588447864441*^9}},
+ CellLabel->
+ "Out[1622]=",ExpressionUUID->"2072e4dc-437d-41fc-8919-b790113d6020"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListLogPlot", "[",
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Abs", "[", "Gls", "]"}], ",", "\[IndentingNewLine]",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"dFd\[Xi]LowList", "[",
+ RowBox[{"n3", ",", "h3"}], "]"}], "[", "7", "]"}], "/",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"0", ",", "7"}], "]"}], "!"}], ")"}]}], "]"}], "/.",
+ "sol3"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input",
+ CellChangeTimes->CompressedData["
+1:eJxTTMoPSmViYGCQAGIQ3SJZk1nd/sbRyOdwGYj2yRNoANEWt5XBdIlk3TQQ
+bbNkxVIQzePPtxpEO5iKgmmf1zznQPQhdnUwfaonpn0JkI7jM+oA0Ye+rOkF
+0cqZk2eC6Ae+ZxeA6FuXFi8E0UkdwhFLgbSUw1wwzSvt1waizf8Vt4Poqcdm
+XlsOpFfvV74Oop9ZibOemfbG8Xm+AhuIdlCaM1lw1hvHDW0W00D05Ppp50C0
+2WOb8yA6UOjHFRDNcCvvBog+VS71GkSHlFSB6QtHF7gKAekcKX43EP1J4jTj
+MyCdF72NCUTrnTl0GESL9v4A0x2n5m0Xm/3G0bmxaCeIfuS3eo49kNZYcA5M
+z0/3508H0h4PIsG01M2li0B0zU7uxSB688wNvzKBtJCj+G8QDQBtssd6
+ "],
+ CellLabel->
+ "In[1423]:=",ExpressionUUID->"4cd96397-693d-43ed-8acc-b34129ee201b"],
+
+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., -3.0168887065845538`}, {3., -3.0168887065436985`}}],
+ LineBox[{{3., -3.0168887065436985`}, {3., -3.016888706502843}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{4., -3.24768873618056}, {4., -3.2476887336074802`}}],
+ LineBox[{{4., -3.2476887336074802`}, {4., -3.2476887310344003`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{5., -2.6829364089277306`}, {5., -2.6829363942997464`}}],
+ LineBox[{{5., -2.6829363942997464`}, {5., -2.6829363796717627`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{6., -1.6934517864279734`}, {6., -1.6934517320457758`}}],
+ LineBox[{{6., -1.6934517320457758`}, {6., -1.693451677663581}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{7., -0.4167753281916941}, {7., -0.41677381113121115`}}],
+ LineBox[{{7., -0.41677381113121115`}, {7., -0.4167722940730296}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{8., 1.077614026885801}, {8., 1.077615048105556}}],
+ LineBox[{{8., 1.077615048105556}, {8., 1.0776160693242682`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{9., 2.747270914255491}, {9., 2.7479117345273405`}}],
+ LineBox[{{9., 2.7479117345273405`}, {9., 2.7485521444115397`}}]}},
+ Antialiasing->False]}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{2., 0.3058939805973459},
+ Offset[{3, 0}, {2., 0.3058939805973459}]}, {{2.,
+ 0.3058939805973459},
+ Offset[{-3, 0}, {2., 0.3058939805973459}]}, {{2.,
+ 0.3058939805973312}, Offset[{3, 0}, {2., 0.3058939805973312}]}, {{
+ 2., 0.3058939805973312},
+ Offset[{-3, 0}, {2., 0.3058939805973312}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{3., -3.016888706502843},
+ Offset[{3, 0}, {3., -3.016888706502843}]}, {{
+ 3., -3.016888706502843},
+ Offset[{-3, 0}, {3., -3.016888706502843}]}, {{
+ 3., -3.0168887065845538`},
+ Offset[{3, 0}, {3., -3.0168887065845538`}]}, {{
+ 3., -3.0168887065845538`},
+ Offset[{-3, 0}, {3., -3.0168887065845538`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{4., -3.2476887310344003`},
+ Offset[{3, 0}, {4., -3.2476887310344003`}]}, {{
+ 4., -3.2476887310344003`},
+ Offset[{-3, 0}, {4., -3.2476887310344003`}]}, {{
+ 4., -3.24768873618056},
+ Offset[{3, 0}, {4., -3.24768873618056}]}, {{
+ 4., -3.24768873618056},
+ Offset[{-3, 0}, {4., -3.24768873618056}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{5., -2.6829363796717627`},
+ Offset[{3, 0}, {5., -2.6829363796717627`}]}, {{
+ 5., -2.6829363796717627`},
+ Offset[{-3, 0}, {5., -2.6829363796717627`}]}, {{
+ 5., -2.6829364089277306`},
+ Offset[{3, 0}, {5., -2.6829364089277306`}]}, {{
+ 5., -2.6829364089277306`},
+ Offset[{-3, 0}, {5., -2.6829364089277306`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{6., -1.693451677663581},
+ Offset[{3, 0}, {6., -1.693451677663581}]}, {{
+ 6., -1.693451677663581},
+ Offset[{-3, 0}, {6., -1.693451677663581}]}, {{
+ 6., -1.6934517864279734`},
+ Offset[{3, 0}, {6., -1.6934517864279734`}]}, {{
+ 6., -1.6934517864279734`},
+ Offset[{-3, 0}, {6., -1.6934517864279734`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{7., -0.4167722940730296},
+ Offset[{3, 0}, {7., -0.4167722940730296}]}, {{
+ 7., -0.4167722940730296},
+ Offset[{-3, 0}, {7., -0.4167722940730296}]}, {{
+ 7., -0.4167753281916941},
+ Offset[{3, 0}, {7., -0.4167753281916941}]}, {{
+ 7., -0.4167753281916941},
+ Offset[{-3, 0}, {7., -0.4167753281916941}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{8., 1.0776160693242682`},
+ Offset[{3, 0}, {8., 1.0776160693242682`}]}, {{8.,
+ 1.0776160693242682`},
+ Offset[{-3, 0}, {8., 1.0776160693242682`}]}, {{8.,
+ 1.077614026885801}, Offset[{3, 0}, {8., 1.077614026885801}]}, {{
+ 8., 1.077614026885801},
+ Offset[{-3, 0}, {8., 1.077614026885801}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{9., 2.7485521444115397`},
+ Offset[{3, 0}, {9., 2.7485521444115397`}]}, {{9.,
+ 2.7485521444115397`},
+ Offset[{-3, 0}, {9., 2.7485521444115397`}]}, {{9.,
+ 2.747270914255491}, Offset[{3, 0}, {9., 2.747270914255491}]}, {{
+ 9., 2.747270914255491},
+ Offset[{-3, 0}, {9., 2.747270914255491}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]}}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798], 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}, {13., 10.749355820113736`}, {14.,
+ 13.008074231002201`}, {15., 15.354526006101828`}}]},
+ {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{2., 0.3058939805973376}, {3., -3.016888706543799}, {
+ 4., -3.2476887336077676`}, {5., -2.6829363943001363`}, {
+ 6., -1.6934517320456646`}, {7., -0.4597115332504871}, {8.,
+ 0.8919941043205903}}]}}, {{}, {}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{0., -4.703417607888443},
+ DisplayFunction->Identity,
+ Frame->{{False, False}, {False, False}},
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->{{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}},
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ ImageSize->{561.9999999999982, Automatic},
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& )}},
+ PlotRange->{{0., 15.}, {-4.703417607888443, 15.354526006101828`}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->FrontEndValueCache[{Automatic,
+ Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-4.605170185988091,
+ FormBox[
+ TagBox[
+ InterpretationBox[
+ StyleBox["\"0.01\"", ShowStringCharacters -> False], 0.01,
+ AutoDelete -> True], NumberForm[#, {
+ DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, {
+ 2.302585092994046,
+ FormBox["10", TraditionalForm], {0.01, 0.}}, {9.210340371976184,
+ FormBox[
+ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {16.11809565095832,
+ FormBox[
+ TemplateBox[{"10", "7"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {-2.3025850929940455`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.605170185988092,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.907755278982137,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 11.512925464970229`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 13.815510557964274`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 16.811242831518264`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 17.216707939626428`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 17.50439001207821,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 17.72753356339242,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 17.909855120186375`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 18.064005800013632`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 18.197537192638155`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 18.31532022829454,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 18.420680743952367`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}}}]]], "Output",
+ CellChangeTimes->{
+ 3.8292190385400677`*^9, 3.829219088509445*^9, 3.8292203752304993`*^9,
+ 3.829362528741741*^9, 3.8371574259776793`*^9, 3.837157475578351*^9,
+ 3.8371575976446037`*^9, {3.838872685545763*^9, 3.8388727104012403`*^9}, {
+ 3.838872745856311*^9, 3.838872775031664*^9}, {3.838873060895833*^9,
+ 3.838873069442831*^9}, {3.838873177933014*^9, 3.838873210508173*^9}, {
+ 3.83887325980634*^9, 3.8388732925068274`*^9}, 3.838873443902339*^9, {
+ 3.838874046192869*^9, 3.838874073676612*^9}, 3.838874169904831*^9,
+ 3.839307798861899*^9, 3.839307856791636*^9, {3.8393079205881367`*^9,
+ 3.8393079408915873`*^9}, 3.839308192209601*^9, 3.839308834395816*^9, {
+ 3.839309324200686*^9, 3.839309344536544*^9}, 3.839309443330439*^9, {
+ 3.839309719773855*^9, 3.839309728826005*^9}, {3.8394073695151653`*^9,
+ 3.8394073949048223`*^9}, {3.8394075851251593`*^9, 3.839407605331163*^9},
+ 3.839407961362918*^9, {3.83949129705267*^9, 3.83949130315024*^9}, {
+ 3.839492738397423*^9, 3.8394927517045918`*^9}, {3.839572086066931*^9,
+ 3.839572091490473*^9}, {3.839573266400237*^9, 3.83957327482544*^9}, {
+ 3.839577973668317*^9, 3.839578000981019*^9}, 3.8395780750955753`*^9,
+ 3.839579671648541*^9, 3.839580354206628*^9, 3.8395821383666143`*^9,
+ 3.839585300987071*^9, 3.839585487332239*^9},
+ CellLabel->
+ "Out[1423]=",ExpressionUUID->"3682fbe2-8a6b-4498-bc32-b7486003b238"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListLogPlot", "[",
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Abs", "[", "Ghs", "]"}], ",", "\[IndentingNewLine]",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"dFd\[Xi]HighList", "[",
+ RowBox[{"n3", ",", "h3"}], "]"}], "[", "6", "]"}], "/",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"0", ",", "6"}], "]"}], "!"}], ")"}]}], "]"}], "/.",
+ "sol3"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input",
+ CellChangeTimes->CompressedData["
+1:eJxTTMoPSmViYGAQA2IQ3SJZk1nd/sbRyOdwGYj2yRNoANEWt5XBdIlk3TQQ
+bbNkxVIQzePPtxpEO5iKgmmf1zznQPQhdnUwfaonpn0JkI7jM+oA0Ye+rOkF
+0cqZk2eC6Ae+ZxeA6FuXFi8E0UkdwhFLgbSUw1wwzSvt1waizf8Vt4Poqcdm
+XlsOpFfvV74Oop9ZibOemfbG8Xm+AhuIdlCaM1lw1hvHDW0W00D05Ppp50C0
+2WOb8yA6UOjHFRDNcCvvBog+VS71GkSHlFSB6QtHF7gKAeks1qneIPpH7+YQ
+EO0R2xgJog/8tWJ7BqSVEsXYQfTKc7lHQLTJ53lg+siR2h1is984Jm//sBNE
+RxR0/s4E0iltb8E0AGU+uG0=
+ "],
+ CellLabel->
+ "In[1427]:=",ExpressionUUID->"db8d22b0-776f-49b6-b6f5-254792ce66a4"],
+
+Cell[BoxData[
+ GraphicsBox[{{{
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{3., 0.6126028894836498}, {3., 0.6126028894890692}}],
+ LineBox[{{3., 0.6126028894890692}, {3., 0.6126028894944886}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{5., 2.120308945253084}, {5., 2.1203089452650836`}}],
+ LineBox[{{5., 2.1203089452650836`}, {5., 2.120308945277083}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{7., 4.555653838211157}, {7., 4.555653943287428}}],
+ LineBox[{{7., 4.555653943287428}, {7., 4.555654048363689}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{9., 7.284539665889405}, {9., 7.28456024759707}}],
+ LineBox[{{9., 7.28456024759707}, {9., 7.284580828881137}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{11., 10.161573447047902`}, {11., 10.161650696951378`}}],
+ LineBox[{{11., 10.161650696951378`}, {11., 10.161727940887767`}}]}},
+ Antialiasing->False]}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{3., 0.6126028894944886},
+ Offset[{3, 0}, {3., 0.6126028894944886}]}, {{3.,
+ 0.6126028894944886},
+ Offset[{-3, 0}, {3., 0.6126028894944886}]}, {{3.,
+ 0.6126028894836498}, Offset[{3, 0}, {3., 0.6126028894836498}]}, {{
+ 3., 0.6126028894836498},
+ Offset[{-3, 0}, {3., 0.6126028894836498}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{5., 2.120308945277083},
+ Offset[{3, 0}, {5., 2.120308945277083}]}, {{5.,
+ 2.120308945277083}, Offset[{-3, 0}, {5., 2.120308945277083}]}, {{
+ 5., 2.120308945253084},
+ Offset[{3, 0}, {5., 2.120308945253084}]}, {{5.,
+ 2.120308945253084},
+ Offset[{-3, 0}, {5., 2.120308945253084}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{7., 4.555654048363689},
+ Offset[{3, 0}, {7., 4.555654048363689}]}, {{7.,
+ 4.555654048363689}, Offset[{-3, 0}, {7., 4.555654048363689}]}, {{
+ 7., 4.555653838211157},
+ Offset[{3, 0}, {7., 4.555653838211157}]}, {{7.,
+ 4.555653838211157},
+ Offset[{-3, 0}, {7., 4.555653838211157}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{9., 7.284580828881137},
+ Offset[{3, 0}, {9., 7.284580828881137}]}, {{9.,
+ 7.284580828881137}, Offset[{-3, 0}, {9., 7.284580828881137}]}, {{
+ 9., 7.284539665889405},
+ Offset[{3, 0}, {9., 7.284539665889405}]}, {{9.,
+ 7.284539665889405},
+ Offset[{-3, 0}, {9., 7.284539665889405}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{11., 10.161727940887767`},
+ Offset[{3, 0}, {11., 10.161727940887767`}]}, {{11.,
+ 10.161727940887767`},
+ Offset[{-3, 0}, {11., 10.161727940887767`}]}, {{11.,
+ 10.161573447047902`},
+ Offset[{3, 0}, {11., 10.161573447047902`}]}, {{11.,
+ 10.161573447047902`},
+ Offset[{-3, 0}, {11., 10.161573447047902`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]}}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{3., 0.6126028894890692}, {5., 2.1203089452650836`}, {7.,
+ 4.555653943287428}, {9., 7.28456024759707}, {11.,
+ 10.161650696951378`}, {13., 13.126355398673866`}, {15.,
+ 16.1573163641116}}]},
+ {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{3., 0.612602889489069}, {5., 2.120308945265083}, {7.,
+ 4.548908179241185}}]}}, {{}, {}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{0., -0.6038591566192546},
+ DisplayFunction->Identity,
+ Frame->{{False, False}, {False, False}},
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->{{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}},
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& )}},
+ PlotRange->{{0., 15.}, {-0.6038591566192546, 16.1573163641116}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->FrontEndValueCache[{Automatic,
+ Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{0.,
+ FormBox["1", TraditionalForm], {0.01, 0.}}, {4.605170185988092,
+ FormBox["100", TraditionalForm], {0.01, 0.}}, {9.210340371976184,
+ FormBox[
+ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {13.815510557964274`,
+ FormBox[
+ TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {2.302585092994046,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.907755278982137,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 11.512925464970229`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 16.11809565095832,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 18.420680743952367`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 18.82614585206053,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 19.11382792451231,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 19.33697147582652,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}}}]]], "Output",
+ CellChangeTimes->{
+ 3.838874306626349*^9, 3.839307833176208*^9, 3.839307921759116*^9,
+ 3.839308193555499*^9, 3.839308834719912*^9, 3.839309349421612*^9,
+ 3.839309444930846*^9, 3.839309730941094*^9, {3.839407372958536*^9,
+ 3.839407397557301*^9}, 3.839407510770228*^9, 3.839407588633622*^9,
+ 3.839572101057207*^9, 3.839573281468943*^9, 3.8395780033728247`*^9,
+ 3.83957808083144*^9, 3.839580354441217*^9, 3.8395821400396338`*^9,
+ 3.8395855046873217`*^9},
+ CellLabel->
+ "Out[1427]=",ExpressionUUID->"a5842129-e0b0-4e50-9673-1e6c6178cfd7"]
}, Open ]],
Cell[BoxData[{
@@ -143890,13 +145763,13 @@ Cell[BoxData[{
RowBox[{"RF", "[", "n4", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"h4", "=",
- RowBox[{"h", "[", "5", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"h", "[", "6", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"eq4", "=",
RowBox[{
RowBox[{"eq", "[",
RowBox[{"n4", ",", "h4"}], "]"}], "[",
- RowBox[{"6", ",",
+ RowBox[{"5", ",",
RowBox[{"-", "1"}], ",", "6"}], "]"}]}], ";"}]}], "Input",
CellChangeTimes->{
3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
@@ -143970,9 +145843,14 @@ Cell[BoxData[{
3.831201738631875*^9, 3.831201753039893*^9}, {3.831201880722458*^9,
3.831201884058301*^9}, {3.832238507248076*^9, 3.83223851592785*^9}, {
3.8371586330843983`*^9, 3.8371586344921923`*^9}, {3.837158705126696*^9,
- 3.837158707621519*^9}, {3.837158876944686*^9, 3.837158881896706*^9}},
+ 3.837158707621519*^9}, {3.837158876944686*^9, 3.837158881896706*^9}, {
+ 3.8395780863270597`*^9, 3.8395780914950943`*^9}, {3.839580357024804*^9,
+ 3.839580359592784*^9}, {3.8395821444102182`*^9, 3.839582145937922*^9}, {
+ 3.8395855125185328`*^9, 3.839585518158437*^9}, {3.839585690929813*^9,
+ 3.8395856934337883`*^9}, {3.839588451956794*^9, 3.839588454140823*^9}, {
+ 3.839588505830009*^9, 3.839588512461832*^9}},
CellLabel->
- "In[141]:=",ExpressionUUID->"6ece7e92-ba33-4e18-ba61-6c6859c6e44a"],
+ "In[1628]:=",ExpressionUUID->"6ece7e92-ba33-4e18-ba61-6c6859c6e44a"],
Cell[CellGroupData[{
@@ -143982,9 +145860,7 @@ Cell[BoxData[
RowBox[{"newSol", "[",
RowBox[{"eq4", ",", "sol3", ",",
RowBox[{"{",
- RowBox[{
- RowBox[{"gC", "[", "4", "]"}], ",",
- RowBox[{"gC", "[", "5", "]"}]}], "}"}], ",",
+ RowBox[{"gC", "[", "6", "]"}], "}"}], ",",
SuperscriptBox["10",
RowBox[{"-", "3"}]]}], "]"}], "]"}]}]], "Input",
CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
@@ -144104,50 +145980,622 @@ Cell[BoxData[
3.829369220374155*^9, 3.829369223973774*^9}, {3.829371464766535*^9,
3.829371470590396*^9}, {3.837158639405349*^9, 3.8371586449404097`*^9}, {
3.837158713174018*^9, 3.8371587149896727`*^9}, {3.83715888899361*^9,
- 3.837158889144862*^9}},
+ 3.837158889144862*^9}, {3.839578095583292*^9, 3.839578095743002*^9}, {
+ 3.839585522071169*^9, 3.83958552438277*^9}, {3.839585695242898*^9,
+ 3.839585695377915*^9}, {3.839588456781445*^9, 3.839588459813054*^9}, {
+ 3.8395885140471077`*^9, 3.839588514214052*^9}},
CellLabel->
- "In[146]:=",ExpressionUUID->"cbceac67-aab3-4aaa-a9f5-f7f5baab9926"],
+ "In[1632]:=",ExpressionUUID->"cbceac67-aab3-4aaa-a9f5-f7f5baab9926"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.2822573716408856`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.1978023212820995`"}], ",",
- RowBox[{"B", "\[Rule]", "3.601710270257921`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]",
+ RowBox[{"1.251712287272746`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]",
+ RowBox[{"0.1985983736249741`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"B", "\[Rule]",
+ RowBox[{"4.862189567510469`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2045987540501706`"}], ",",
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.221595001182925`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{"AL", "\[Rule]",
- RowBox[{"-", "0.053028967900489374`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "0.0902015937722895`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.4668284316203724`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "2.3775639447648187`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.2494549322754571`"}], ",",
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.150755919956856`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.338124935270859`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"2.1610631808039797`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.22735323594924617`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"0.241343264160074`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.03846615024857917`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "0.008241650211529521`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.006753974153690354`"}], ",",
-
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"0.005948523721895485`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.0023266199180811027`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "0.006691095693530038`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0007456517123750281`"}], ",",
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.000012618799833058402`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0001371271011191293`"}]}]}], "}"}]], "Output",
+ RowBox[{"0.002172963721195793`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.0007236226632518605`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}]}], "}"}]], "Output",
CellChangeTimes->{
3.831201716508473*^9, 3.831201757459434*^9, 3.831201885848399*^9,
3.831201919660265*^9, 3.8321342586069803`*^9, 3.832134529718623*^9,
3.832238519481044*^9, 3.837157794236321*^9, 3.8371586488269167`*^9, {
3.8371587025371237`*^9, 3.837158717363809*^9}, {3.837158887227882*^9,
- 3.837158889454507*^9}},
+ 3.837158889454507*^9}, 3.839578095938087*^9, 3.839579674263623*^9,
+ 3.839580360197733*^9, 3.839581565802565*^9, 3.8395816240093718`*^9,
+ 3.839582147420669*^9, {3.839585689118682*^9, 3.8395856966385927`*^9}, {
+ 3.839588503750243*^9, 3.8395885153546467`*^9}},
+ CellLabel->
+ "Out[1632]=",ExpressionUUID->"44c6a91f-434c-4a6d-a06e-a3fd8e9e453f"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListLogPlot", "[",
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Abs", "[", "Gls", "]"}], ",", "\[IndentingNewLine]",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"dFd\[Xi]LowList", "[",
+ RowBox[{"n4", ",", "h4"}], "]"}], "[", "7", "]"}], "/",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"0", ",", "7"}], "]"}], "!"}], ")"}]}], "]"}], "/.",
+ "sol4"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input",
+ CellChangeTimes->CompressedData["
+1:eJxTTMoPSmViYGCQBGIQ3SJZk1nd/sbRyOdwGYj2yRNoANEWt5XBdIlk3TQQ
+bbNkxVIQzePPtxpEO5iKgmmf1zznQPQhdnUwfaonpn0JkI7jM+oA0Ye+rOkF
+0cqZk2eC6Ae+ZxeA6FuXFi8E0UkdwhFLgbSUw1wwzSvt1waizf8Vt4Poqcdm
+XlsOpFfvV74Oop9ZibOemfbG8Xm+AhuIdlCaM1lw1hvHDW0W00D05Ppp50C0
+2WOb8yA6UOjHFRDNcCvvBog+VS71GkSHlFSB6QtHF7gKAekcKX43EP1J4jTj
+MyCdF72NCUTrnTl0GESL9v4A0x2n5m0Xm/3G0bmxaCeIfuS3eo49kNZYcA5M
+z0/3508H0h4PIsG01M2li0B0zU7uxSB688wNvzKBtJCj+G8Qfas5jCELSDvO
+3gWmASkDzyg=
+ "],
+ CellLabel->
+ "In[1059]:=",ExpressionUUID->"8255599c-6be2-4063-b6c3-a1d598b1eec1"],
+
+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., -3.0168887065845538`}, {3., -3.0168887065436985`}}],
+ LineBox[{{3., -3.0168887065436985`}, {3., -3.016888706502843}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{4., -3.24768873618056}, {4., -3.2476887336074802`}}],
+ LineBox[{{4., -3.2476887336074802`}, {4., -3.2476887310344003`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{5., -2.6829364089277306`}, {5., -2.6829363942997464`}}],
+ LineBox[{{5., -2.6829363942997464`}, {5., -2.6829363796717627`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{6., -1.6934517864279734`}, {6., -1.6934517320457758`}}],
+ LineBox[{{6., -1.6934517320457758`}, {6., -1.693451677663581}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{7., -0.4167753281916941}, {7., -0.41677381113121115`}}],
+ LineBox[{{7., -0.41677381113121115`}, {7., -0.4167722940730296}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{8., 1.077614026885801}, {8., 1.077615048105556}}],
+ LineBox[{{8., 1.077615048105556}, {8., 1.0776160693242682`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{9., 2.747270914255491}, {9., 2.7479117345273405`}}],
+ LineBox[{{9., 2.7479117345273405`}, {9., 2.7485521444115397`}}]}},
+ Antialiasing->False]}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{2., 0.3058939805973459},
+ Offset[{3, 0}, {2., 0.3058939805973459}]}, {{2.,
+ 0.3058939805973459},
+ Offset[{-3, 0}, {2., 0.3058939805973459}]}, {{2.,
+ 0.3058939805973312}, Offset[{3, 0}, {2., 0.3058939805973312}]}, {{
+ 2., 0.3058939805973312},
+ Offset[{-3, 0}, {2., 0.3058939805973312}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{3., -3.016888706502843},
+ Offset[{3, 0}, {3., -3.016888706502843}]}, {{
+ 3., -3.016888706502843},
+ Offset[{-3, 0}, {3., -3.016888706502843}]}, {{
+ 3., -3.0168887065845538`},
+ Offset[{3, 0}, {3., -3.0168887065845538`}]}, {{
+ 3., -3.0168887065845538`},
+ Offset[{-3, 0}, {3., -3.0168887065845538`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{4., -3.2476887310344003`},
+ Offset[{3, 0}, {4., -3.2476887310344003`}]}, {{
+ 4., -3.2476887310344003`},
+ Offset[{-3, 0}, {4., -3.2476887310344003`}]}, {{
+ 4., -3.24768873618056},
+ Offset[{3, 0}, {4., -3.24768873618056}]}, {{
+ 4., -3.24768873618056},
+ Offset[{-3, 0}, {4., -3.24768873618056}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{5., -2.6829363796717627`},
+ Offset[{3, 0}, {5., -2.6829363796717627`}]}, {{
+ 5., -2.6829363796717627`},
+ Offset[{-3, 0}, {5., -2.6829363796717627`}]}, {{
+ 5., -2.6829364089277306`},
+ Offset[{3, 0}, {5., -2.6829364089277306`}]}, {{
+ 5., -2.6829364089277306`},
+ Offset[{-3, 0}, {5., -2.6829364089277306`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{6., -1.693451677663581},
+ Offset[{3, 0}, {6., -1.693451677663581}]}, {{
+ 6., -1.693451677663581},
+ Offset[{-3, 0}, {6., -1.693451677663581}]}, {{
+ 6., -1.6934517864279734`},
+ Offset[{3, 0}, {6., -1.6934517864279734`}]}, {{
+ 6., -1.6934517864279734`},
+ Offset[{-3, 0}, {6., -1.6934517864279734`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{7., -0.4167722940730296},
+ Offset[{3, 0}, {7., -0.4167722940730296}]}, {{
+ 7., -0.4167722940730296},
+ Offset[{-3, 0}, {7., -0.4167722940730296}]}, {{
+ 7., -0.4167753281916941},
+ Offset[{3, 0}, {7., -0.4167753281916941}]}, {{
+ 7., -0.4167753281916941},
+ Offset[{-3, 0}, {7., -0.4167753281916941}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{8., 1.0776160693242682`},
+ Offset[{3, 0}, {8., 1.0776160693242682`}]}, {{8.,
+ 1.0776160693242682`},
+ Offset[{-3, 0}, {8., 1.0776160693242682`}]}, {{8.,
+ 1.077614026885801}, Offset[{3, 0}, {8., 1.077614026885801}]}, {{
+ 8., 1.077614026885801},
+ Offset[{-3, 0}, {8., 1.077614026885801}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{9., 2.7485521444115397`},
+ Offset[{3, 0}, {9., 2.7485521444115397`}]}, {{9.,
+ 2.7485521444115397`},
+ Offset[{-3, 0}, {9., 2.7485521444115397`}]}, {{9.,
+ 2.747270914255491}, Offset[{3, 0}, {9., 2.747270914255491}]}, {{
+ 9., 2.747270914255491},
+ Offset[{-3, 0}, {9., 2.747270914255491}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]}}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798], 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}, {13., 10.749355820113736`}, {14.,
+ 13.008074231002201`}, {15., 15.354526006101828`}}]},
+ {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{2., 0.3058939805973379}, {3., -3.0168887065436887`}, {
+ 4., -3.2476887336074722`}, {5., -2.6829363942997575`}, {
+ 6., -1.6934517320457958`}, {7., -0.42566320400546737`}, {8.,
+ 1.05168281877618}}]}}, {{}, {}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{0., -4.703417607888443},
+ DisplayFunction->Identity,
+ Frame->{{False, False}, {False, False}},
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->{{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}},
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& )}},
+ PlotRange->{{0., 15.}, {-4.703417607888443, 15.354526006101828`}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->FrontEndValueCache[{Automatic,
+ Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-4.605170185988091,
+ FormBox[
+ TagBox[
+ InterpretationBox[
+ StyleBox["\"0.01\"", ShowStringCharacters -> False], 0.01,
+ AutoDelete -> True], NumberForm[#, {
+ DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, {
+ 2.302585092994046,
+ FormBox["10", TraditionalForm], {0.01, 0.}}, {9.210340371976184,
+ FormBox[
+ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {16.11809565095832,
+ FormBox[
+ TemplateBox[{"10", "7"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {-2.3025850929940455`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.605170185988092,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.907755278982137,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 11.512925464970229`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 13.815510557964274`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 16.811242831518264`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 17.216707939626428`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 17.50439001207821,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 17.72753356339242,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 17.909855120186375`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 18.064005800013632`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 18.197537192638155`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 18.31532022829454,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 18.420680743952367`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}}}]]], "Output",
+ CellChangeTimes->{
+ 3.8292190385400677`*^9, 3.829219088509445*^9, 3.8292203752304993`*^9,
+ 3.829362528741741*^9, 3.8371574259776793`*^9, 3.837157475578351*^9,
+ 3.8371575976446037`*^9, {3.838872685545763*^9, 3.8388727104012403`*^9}, {
+ 3.838872745856311*^9, 3.838872775031664*^9}, {3.838873060895833*^9,
+ 3.838873069442831*^9}, {3.838873177933014*^9, 3.838873210508173*^9}, {
+ 3.83887325980634*^9, 3.8388732925068274`*^9}, 3.838873443902339*^9, {
+ 3.838874046192869*^9, 3.838874073676612*^9}, 3.838874169904831*^9,
+ 3.839307798861899*^9, 3.839307856791636*^9, {3.8393079205881367`*^9,
+ 3.8393079408915873`*^9}, 3.839308192209601*^9, 3.839308834395816*^9, {
+ 3.839309324200686*^9, 3.839309344536544*^9}, 3.839309443330439*^9, {
+ 3.839309719773855*^9, 3.839309728826005*^9}, {3.8394073695151653`*^9,
+ 3.8394073949048223`*^9}, {3.8394075851251593`*^9, 3.839407605331163*^9},
+ 3.839407961362918*^9, {3.83949129705267*^9, 3.83949130315024*^9}, {
+ 3.839492738397423*^9, 3.8394927517045918`*^9}, {3.839572086066931*^9,
+ 3.839572091490473*^9}, {3.839573266400237*^9, 3.83957327482544*^9}, {
+ 3.839577973668317*^9, 3.839578000981019*^9}, 3.8395780750955753`*^9,
+ 3.83957812867066*^9, 3.839580362805138*^9, 3.839582150883418*^9},
+ CellLabel->
+ "Out[1059]=",ExpressionUUID->"66c85193-7ce6-452f-a7d6-37d03a2ac870"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListLogPlot", "[",
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Abs", "[", "Ghs", "]"}], ",", "\[IndentingNewLine]",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"dFd\[Xi]HighList", "[",
+ RowBox[{"n4", ",", "h4"}], "]"}], "[", "6", "]"}], "/",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"0", ",", "6"}], "]"}], "!"}], ")"}]}], "]"}], "/.",
+ "sol4"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input",
+ CellChangeTimes->CompressedData["
+1:eJxTTMoPSmViYGAQB2IQ3SJZk1nd/sbRyOdwGYj2yRNoANEWt5XBdIlk3TQQ
+bbNkxVIQzePPtxpEO5iKgmmf1zznQPQhdnUwfaonpn0JkI7jM+oA0Ye+rOkF
+0cqZk2eC6Ae+ZxeA6FuXFi8E0UkdwhFLgbSUw1wwzSvt1waizf8Vt4Poqcdm
+XlsOpFfvV74Oop9ZibOemfbG8Xm+AhuIdlCaM1lw1hvHDW0W00D05Ppp50C0
+2WOb8yA6UOjHFRDNcCvvBog+VS71GkSHlFSB6QtHF7gKAeks1qneIPpH7+YQ
+EO0R2xgJog/8tWJ7BqSVEsXYQfTKc7lHQLTJ53lg+siR2h1is984Jm//sBNE
+RxR0/s4E0iltb8G00klGxiwgnZMbC6YBIX6+9g==
+ "],
+ CellLabel->
+ "In[1060]:=",ExpressionUUID->"00c306e0-bd98-42aa-94c0-00a3a2e2f888"],
+
+Cell[BoxData[
+ GraphicsBox[{{{
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{3., 0.6126028894836498}, {3., 0.6126028894890692}}],
+ LineBox[{{3., 0.6126028894890692}, {3., 0.6126028894944886}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{5., 2.120308945253084}, {5., 2.1203089452650836`}}],
+ LineBox[{{5., 2.1203089452650836`}, {5., 2.120308945277083}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{7., 4.555653838211157}, {7., 4.555653943287428}}],
+ LineBox[{{7., 4.555653943287428}, {7., 4.555654048363689}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{9., 7.284539665889405}, {9., 7.28456024759707}}],
+ LineBox[{{9., 7.28456024759707}, {9., 7.284580828881137}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{11., 10.161573447047902`}, {11., 10.161650696951378`}}],
+ LineBox[{{11., 10.161650696951378`}, {11., 10.161727940887767`}}]}},
+ Antialiasing->False]}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{3., 0.6126028894944886},
+ Offset[{3, 0}, {3., 0.6126028894944886}]}, {{3.,
+ 0.6126028894944886},
+ Offset[{-3, 0}, {3., 0.6126028894944886}]}, {{3.,
+ 0.6126028894836498}, Offset[{3, 0}, {3., 0.6126028894836498}]}, {{
+ 3., 0.6126028894836498},
+ Offset[{-3, 0}, {3., 0.6126028894836498}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{5., 2.120308945277083},
+ Offset[{3, 0}, {5., 2.120308945277083}]}, {{5.,
+ 2.120308945277083}, Offset[{-3, 0}, {5., 2.120308945277083}]}, {{
+ 5., 2.120308945253084},
+ Offset[{3, 0}, {5., 2.120308945253084}]}, {{5.,
+ 2.120308945253084},
+ Offset[{-3, 0}, {5., 2.120308945253084}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{7., 4.555654048363689},
+ Offset[{3, 0}, {7., 4.555654048363689}]}, {{7.,
+ 4.555654048363689}, Offset[{-3, 0}, {7., 4.555654048363689}]}, {{
+ 7., 4.555653838211157},
+ Offset[{3, 0}, {7., 4.555653838211157}]}, {{7.,
+ 4.555653838211157},
+ Offset[{-3, 0}, {7., 4.555653838211157}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{9., 7.284580828881137},
+ Offset[{3, 0}, {9., 7.284580828881137}]}, {{9.,
+ 7.284580828881137}, Offset[{-3, 0}, {9., 7.284580828881137}]}, {{
+ 9., 7.284539665889405},
+ Offset[{3, 0}, {9., 7.284539665889405}]}, {{9.,
+ 7.284539665889405},
+ Offset[{-3, 0}, {9., 7.284539665889405}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{11., 10.161727940887767`},
+ Offset[{3, 0}, {11., 10.161727940887767`}]}, {{11.,
+ 10.161727940887767`},
+ Offset[{-3, 0}, {11., 10.161727940887767`}]}, {{11.,
+ 10.161573447047902`},
+ Offset[{3, 0}, {11., 10.161573447047902`}]}, {{11.,
+ 10.161573447047902`},
+ Offset[{-3, 0}, {11., 10.161573447047902`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]}}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{3., 0.6126028894890692}, {5., 2.1203089452650836`}, {7.,
+ 4.555653943287428}, {9., 7.28456024759707}, {11.,
+ 10.161650696951378`}, {13., 13.126355398673866`}, {15.,
+ 16.1573163641116}}]},
+ {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{3., 0.6126028894890687}, {5., 2.120308945265084}, {7.,
+ 4.532700651920805}}]}}, {{}, {}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{0., -0.6038591566192546},
+ DisplayFunction->Identity,
+ Frame->{{False, False}, {False, False}},
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->{{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}},
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& )}},
+ PlotRange->{{0., 15.}, {-0.6038591566192546, 16.1573163641116}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->FrontEndValueCache[{Automatic,
+ Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{0.,
+ FormBox["1", TraditionalForm], {0.01, 0.}}, {4.605170185988092,
+ FormBox["100", TraditionalForm], {0.01, 0.}}, {9.210340371976184,
+ FormBox[
+ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {13.815510557964274`,
+ FormBox[
+ TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {2.302585092994046,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.907755278982137,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 11.512925464970229`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 16.11809565095832,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 18.420680743952367`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 18.82614585206053,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 19.11382792451231,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 19.33697147582652,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}}}]]], "Output",
+ CellChangeTimes->{
+ 3.838874306626349*^9, 3.839307833176208*^9, 3.839307921759116*^9,
+ 3.839308193555499*^9, 3.839308834719912*^9, 3.839309349421612*^9,
+ 3.839309444930846*^9, 3.839309730941094*^9, {3.839407372958536*^9,
+ 3.839407397557301*^9}, 3.839407510770228*^9, 3.839407588633622*^9,
+ 3.839572101057207*^9, 3.839573281468943*^9, 3.8395780033728247`*^9,
+ 3.83957808083144*^9, 3.839578124886072*^9, 3.8395821529901447`*^9},
CellLabel->
- "Out[146]=",ExpressionUUID->"50cf7d21-280d-4d16-926a-88982ebe8032"]
+ "Out[1060]=",ExpressionUUID->"1dfd8e0b-f69f-428d-b79d-737675046a07"]
}, Open ]],
Cell[BoxData[{
@@ -144164,8 +146612,8 @@ Cell[BoxData[{
RowBox[{
RowBox[{"eq", "[",
RowBox[{"n5", ",", "h5"}], "]"}], "[",
- RowBox[{"7", ",",
- RowBox[{"-", "1"}], ",", "8"}], "]"}]}], ";"}]}], "Input",
+ RowBox[{"6", ",",
+ RowBox[{"-", "1"}], ",", "6"}], "]"}]}], ";"}]}], "Input",
CellChangeTimes->{
3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9,
@@ -144239,9 +146687,12 @@ Cell[BoxData[{
3.82964875577597*^9}, {3.832238538376542*^9, 3.832238542736395*^9}, {
3.832238585617372*^9, 3.832238587049314*^9}, {3.8322400103466587`*^9,
3.8322400119944344`*^9}, {3.837157842677803*^9, 3.837157844413507*^9}, {
- 3.8371578889906282`*^9, 3.8371578927905197`*^9}},
+ 3.8371578889906282`*^9, 3.8371578927905197`*^9}, {3.839578218705614*^9,
+ 3.839578222289351*^9}, 3.839582156882148*^9, {3.839585843636495*^9,
+ 3.8395858505565023`*^9}, {3.839585982727297*^9, 3.839585985999035*^9}, {
+ 3.839588518253931*^9, 3.839588520006205*^9}},
CellLabel->
- "In[103]:=",ExpressionUUID->"3fa9a0f5-416d-499e-8ee4-0612021a0c5d"],
+ "In[1633]:=",ExpressionUUID->"3fa9a0f5-416d-499e-8ee4-0612021a0c5d"],
Cell[CellGroupData[{
@@ -144251,9 +146702,7 @@ Cell[BoxData[
RowBox[{"newSol", "[",
RowBox[{"eq5", ",", "sol4", ",",
RowBox[{"{",
- RowBox[{
- RowBox[{"gC", "[", "6", "]"}], ",",
- RowBox[{"gC", "[", "7", "]"}]}], "}"}], ",",
+ RowBox[{"gC", "[", "7", "]"}], "}"}], ",",
SuperscriptBox["10",
RowBox[{"-", "5"}]]}], "]"}], "]"}]}]], "Input",
CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
@@ -144378,54 +146827,93 @@ Cell[BoxData[
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.8293715962806873`*^9}, {3.8395782253135643`*^9, 3.839578227601432*^9},
+ 3.839585853013666*^9, {3.839585988151574*^9, 3.83958598983146*^9}, {
+ 3.839588523150997*^9, 3.839588523318058*^9}},
CellLabel->
- "In[107]:=",ExpressionUUID->"fd324373-7122-4ced-93a7-9b97bec2edf8"],
+ "In[1637]:=",ExpressionUUID->"fd324373-7122-4ced-93a7-9b97bec2edf8"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.2955488103561648`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19770447298203608`"}], ",",
- RowBox[{"B", "\[Rule]", "3.217677913764206`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]",
+ RowBox[{"1.3490290462137948`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]",
+ RowBox[{"0.1988837260162814`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"B", "\[Rule]",
+ RowBox[{"2.300710468375314`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2047627106909433`"}], ",",
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.2713000953680442`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{"AL", "\[Rule]",
- RowBox[{"-", "0.04723689920343772`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "0.041205359411935163`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.47945531505407`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "2.366828956471559`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.277623268248335`"}], ",",
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.27800560301458`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.3925318151030015`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"2.4330334155211775`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2266752704573209`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"0.2637247892036857`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.04587933651739058`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "0.03725349700008989`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.007627553698680966`"}], ",",
-
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"0.005862069676861392`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.0019107852917523381`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "0.005002201161501416`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0006909824998191353`"}], ",",
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
+ RowBox[{"0.0023926337843710637`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0004261800596479301`"}]}], ",",
+ RowBox[{"0.00047857349217552103`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.0001797177111597056`"}], ",",
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.0010482124577833923`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
- RowBox[{"-", "0.000033225703179822145`"}]}]}], "}"}]], "Output",
+ RowBox[{"0.00044045199814491195`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "8", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.00006579465868858247`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}]}], "}"}]], "Output",
CellChangeTimes->{
3.8312017937516117`*^9, 3.831201924167*^9, {3.8321345162760487`*^9,
3.832134531636681*^9}, 3.832238544645008*^9, 3.832238588269479*^9,
3.8322400135832853`*^9, 3.837157802295458*^9, 3.837157845719727*^9,
- 3.837157895134038*^9},
+ 3.837157895134038*^9, 3.839578227872924*^9, 3.839579680841489*^9,
+ 3.839581568548936*^9, 3.839581626604529*^9, 3.8395821584473467`*^9, {
+ 3.8395859802077627`*^9, 3.839585990249378*^9}},
CellLabel->
- "Out[107]=",ExpressionUUID->"2dc95c84-6c8c-415e-a8ad-1a6cbb15be50"]
+ "Out[1460]=",ExpressionUUID->"95989179-83e4-4b06-bbc6-f63774d14859"]
}, Open ]],
Cell[BoxData[{
@@ -144436,13 +146924,13 @@ Cell[BoxData[{
RowBox[{"RF", "[", "n5", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"h6", "=",
- RowBox[{"h", "[", "9", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"h", "[", "10", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"eq6", "=",
RowBox[{
RowBox[{"eq", "[",
RowBox[{"n6", ",", "h6"}], "]"}], "[",
- RowBox[{"9", ",",
+ RowBox[{"8", ",",
RowBox[{"-", "1"}], ",", "8"}], "]"}]}], ";"}]}], "Input",
CellChangeTimes->{
3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
@@ -144524,9 +147012,11 @@ Cell[BoxData[{
3.832134539757575*^9, 3.832134540628755*^9}, {3.832134624878316*^9,
3.8321346257503223`*^9}, {3.8322385544888363`*^9, 3.832238559776641*^9}, {
3.832240032307065*^9, 3.832240052203109*^9}, {3.83715782467747*^9,
- 3.837157886518509*^9}},
+ 3.837157886518509*^9}, {3.839578233313818*^9, 3.839578239633697*^9},
+ 3.839580561260317*^9, 3.839582162618252*^9, {3.839586049920573*^9,
+ 3.839586073080497*^9}},
CellLabel->
- "In[108]:=",ExpressionUUID->"6bc0aefc-3faf-4b89-a295-e9f8f5ea8d73"],
+ "In[1479]:=",ExpressionUUID->"6bc0aefc-3faf-4b89-a295-e9f8f5ea8d73"],
Cell[CellGroupData[{
@@ -144537,8 +147027,8 @@ Cell[BoxData[
RowBox[{"eq6", ",", "sol5", ",",
RowBox[{"{",
RowBox[{
- RowBox[{"gC", "[", "8", "]"}], ",",
- RowBox[{"gC", "[", "9", "]"}]}], "}"}], ",",
+ RowBox[{"gC", "[", "9", "]"}], ",",
+ RowBox[{"gC", "[", "10", "]"}]}], "}"}], ",",
SuperscriptBox["10",
RowBox[{"-", "6"}]]}], "]"}], "]"}]}]], "Input",
CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
@@ -144669,525 +147159,2533 @@ Cell[BoxData[
3.8293844191218843`*^9}, {3.829384497131441*^9, 3.829384504563476*^9}, {
3.829385060734583*^9, 3.829385060885489*^9}, {3.8296438520635138`*^9,
3.829643862599914*^9}, {3.829643945249604*^9, 3.829643945408759*^9}, {
- 3.829648845266128*^9, 3.8296488464014387`*^9}},
+ 3.829648845266128*^9, 3.8296488464014387`*^9}, {3.8395782427943907`*^9,
+ 3.839578243417781*^9}, {3.839586060553504*^9, 3.839586076552981*^9}},
CellLabel->
- "In[112]:=",ExpressionUUID->"709dfa2a-a119-470b-b512-07e290781fa2"],
+ "In[1483]:=",ExpressionUUID->"709dfa2a-a119-470b-b512-07e290781fa2"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.421387017137544`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.1980328032488499`"}], ",",
- RowBox[{"B", "\[Rule]", "1.3705075243785367`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]",
+ RowBox[{"1.330623097325425`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]",
+ RowBox[{"0.19900051449130643`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"B", "\[Rule]",
+ RowBox[{"2.6268832038037813`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2475951226368918`"}], ",",
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.2827880826644837`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{"AL", "\[Rule]",
- RowBox[{"-", "0.015075258122406822`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "0.0494157933026442`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.4637226460767465`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "2.359332439860379`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.4647830727186186`"}], ",",
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.2462266980997034`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.7879090113954383`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"2.368642611093603`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.25315792070786564`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"0.26167682114698426`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.08875649108638753`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "0.050778243122944336`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.01418323166332411`"}], ",",
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.0017066392732906276`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.003697795861281338`"}]}], ",",
+ RowBox[{"0.01864222959178471`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0011517067247122728`"}], ",",
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.006363160330718347`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0005753623251651285`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "0.007442260480223989`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.000339885031729786`"}], ",",
-
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]",
+ RowBox[{"0.0062506461973811135`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
- RowBox[{"-", "0.00014458733346533328`"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "0.00023067430019106842`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.00003545865315662562`"}],
- ",",
+ RowBox[{"gC", "[", "8", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.0015311813382150451`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
RowBox[{"gC", "[", "9", "]"}], "\[Rule]",
- RowBox[{"-", "3.81142861695225`*^-6"}]}]}], "}"}]], "Output",
+ RowBox[{"0.0006862310520222784`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "10", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.00009867912339734079`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}]}], "}"}]], "Output",
CellChangeTimes->{{3.831201988901425*^9, 3.831202006900687*^9},
3.8321345381557093`*^9, {3.832134623087185*^9, 3.832134627409769*^9}, {
3.832238562216049*^9, 3.832238590863693*^9}, {3.832240018681553*^9,
- 3.8322400546514*^9}, {3.837157820823324*^9, 3.837157897638482*^9}},
+ 3.8322400546514*^9}, {3.837157820823324*^9, 3.837157897638482*^9},
+ 3.839578243722734*^9, 3.8395783087434597`*^9, 3.839579682336094*^9,
+ 3.839580474560833*^9, 3.839581569164282*^9, 3.839581628706615*^9,
+ 3.8395821641264963`*^9, {3.839586068906486*^9, 3.839586077020977*^9}},
CellLabel->
- "Out[112]=",ExpressionUUID->"08f8436b-17f2-4708-841b-3d0078af1679"]
+ "Out[1483]=",ExpressionUUID->"430f202d-a22f-4c74-b7a9-14e5db7b3254"]
}, Open ]],
-Cell[CellGroupData[{
-
Cell[BoxData[{
RowBox[{
- RowBox[{"ntest", "=", "4"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"n7", "=", "2"}], ";"}], "\[IndentingNewLine]",
RowBox[{
- RowBox[{"our\[CapitalPhi]1", "=",
+ RowBox[{"F7", "=",
+ RowBox[{"RF", "[", "n7", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"h7", "=",
+ RowBox[{"h", "[", "7", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"eq7", "=",
RowBox[{
+ RowBox[{"eq", "[",
+ RowBox[{"n7", ",", "h7"}], "]"}], "[",
+ RowBox[{"6", ",",
+ RowBox[{"-", "1"}], ",", "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.829385062901247*^9}, {3.829643717628685*^9,
+ 3.8296437212686253`*^9}, {3.829643799166234*^9, 3.829643799917945*^9}, {
+ 3.829643841184095*^9, 3.829643848702908*^9}, {3.829643933608774*^9,
+ 3.829643943048661*^9}, {3.8296487105672007`*^9, 3.829648731287354*^9}, {
+ 3.829648830105295*^9, 3.829648830809145*^9}, {3.831201931387443*^9,
+ 3.8312019323632183`*^9}, {3.831201994316557*^9, 3.8312020039804773`*^9}, {
+ 3.832134539757575*^9, 3.832134540628755*^9}, {3.832134624878316*^9,
+ 3.8321346257503223`*^9}, {3.8322385544888363`*^9, 3.832238559776641*^9}, {
+ 3.832240032307065*^9, 3.832240052203109*^9}, {3.83715782467747*^9,
+ 3.837157886518509*^9}, {3.839578233313818*^9, 3.839578280378607*^9},
+ 3.839580364537093*^9, {3.839580401713662*^9, 3.8395804018017673`*^9}, {
+ 3.839580563524625*^9, 3.8395805661009207`*^9}},
+ CellLabel->
+ "In[954]:=",ExpressionUUID->"a19c8140-2cf0-4d2d-9cad-84c0b8ad1368"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"sol7", "=",
+ RowBox[{"untilSuccess", "[",
+ RowBox[{"newSol", "[",
+ RowBox[{"eq7", ",", "sol6", ",",
+ RowBox[{"{",
+ RowBox[{"gC", "[", "7", "]"}], "}"}], ",",
+ SuperscriptBox["10", "0"]}], "]"}], "]"}]}]], "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.8296438520635138`*^9,
+ 3.829643862599914*^9}, {3.829643945249604*^9, 3.829643945408759*^9}, {
+ 3.829648845266128*^9, 3.8296488464014387`*^9}, {3.8395782427943907`*^9,
+ 3.839578243417781*^9}, {3.839578283394557*^9, 3.8395783111551123`*^9}, {
+ 3.839580366169866*^9, 3.8395803682329617`*^9}, {3.839580483195796*^9,
+ 3.8395804835233192`*^9}, {3.839580568653747*^9, 3.839580569700735*^9}},
+ CellLabel->
+ "In[958]:=",ExpressionUUID->"1d03628f-4d0b-4025-b291-423da0445916"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]",
+ RowBox[{"1.1929520810258671`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]",
+ RowBox[{"0.19837699695211558`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"B", "\[Rule]",
+ RowBox[{"8.675089579621723`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.18703708824837`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"AL", "\[Rule]",
RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"dFd\[Eta]List", "[",
- RowBox[{"2", ",", "h1"}], "]"}], "[", "ntest", "]"}], "[", "1", "]"}],
- "/",
- RowBox[{
- RowBox[{"Range", "[",
- RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "/.", "sol1"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"our\[CapitalPhi]2", "=",
+ RowBox[{"-", "0.11376403269485967`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "2.385954546284685`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.078424459724399`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"2.0062764506763093`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"0.22855864925309669`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"0.006606372548965595`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"0.006233059922229101`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"dFd\[Eta]List", "[",
- RowBox[{"2", ",", "h2"}], "]"}], "[", "ntest", "]"}], "[", "1", "]"}],
- "/",
- RowBox[{
- RowBox[{"Range", "[",
- RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "/.", "sol2"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"our\[CapitalPhi]3", "=",
+ RowBox[{"-", "0.007314567466192822`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"dFd\[Eta]List", "[",
- RowBox[{"2", ",", "h3"}], "]"}], "[", "ntest", "]"}], "[", "1", "]"}],
- "/",
- RowBox[{
- RowBox[{"Range", "[",
- RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "/.", "sol3"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"our\[CapitalPhi]4", "=",
+ RowBox[{"-", "0.0014193850494051388`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"0.0028764983208959456`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]",
RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"dFd\[Eta]List", "[",
- RowBox[{"2", ",", "h4"}], "]"}], "[", "ntest", "]"}], "[", "1", "]"}],
- "/",
- RowBox[{
- RowBox[{"Range", "[",
- RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "/.", "sol4"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"our\[CapitalPhi]5", "=",
+ RowBox[{"-", "0.0004160249149700269`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
+ RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"dFd\[Eta]List", "[",
- RowBox[{"2", ",", "h5"}], "]"}], "[", "ntest", "]"}], "[", "1", "]"}],
- "/",
- RowBox[{
- RowBox[{"Range", "[",
- RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "/.", "sol5"}]}],
- ";"}], "\[IndentingNewLine]",
+ RowBox[{"-", "0.00020266080935382836`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.831201988901425*^9, 3.831202006900687*^9},
+ 3.8321345381557093`*^9, {3.832134623087185*^9, 3.832134627409769*^9}, {
+ 3.832238562216049*^9, 3.832238590863693*^9}, {3.832240018681553*^9,
+ 3.8322400546514*^9}, {3.837157820823324*^9, 3.837157897638482*^9},
+ 3.839578243722734*^9, {3.839578290115109*^9, 3.8395783114648533`*^9},
+ 3.839579683271669*^9, {3.839580374663414*^9, 3.839580383602212*^9}, {
+ 3.8395804720431957`*^9, 3.839580484315778*^9}, {3.8395805748898563`*^9,
+ 3.8395805782906723`*^9}, 3.839581571273641*^9, 3.839581633925653*^9},
+ CellLabel->
+ "Out[958]=",ExpressionUUID->"badbea9c-1d99-4e0a-821b-9d450c6355c1"]
+}, Open ]],
+
+Cell[BoxData[{
RowBox[{
- RowBox[{"our\[CapitalPhi]6", "=",
+ RowBox[{"n8", "=", "2"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"F8", "=",
+ RowBox[{"RF", "[", "n8", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"h8", "=",
+ RowBox[{"h", "[", "8", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"eq8", "=",
+ RowBox[{
+ RowBox[{"eq", "[",
+ RowBox[{"n8", ",", "h8"}], "]"}], "[",
+ RowBox[{"7", ",",
+ RowBox[{"-", "1"}], ",", "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.829385062901247*^9}, {3.829643717628685*^9,
+ 3.8296437212686253`*^9}, {3.829643799166234*^9, 3.829643799917945*^9}, {
+ 3.829643841184095*^9, 3.829643848702908*^9}, {3.829643933608774*^9,
+ 3.829643943048661*^9}, {3.8296487105672007`*^9, 3.829648731287354*^9}, {
+ 3.829648830105295*^9, 3.829648830809145*^9}, {3.831201931387443*^9,
+ 3.8312019323632183`*^9}, {3.831201994316557*^9, 3.8312020039804773`*^9}, {
+ 3.832134539757575*^9, 3.832134540628755*^9}, {3.832134624878316*^9,
+ 3.8321346257503223`*^9}, {3.8322385544888363`*^9, 3.832238559776641*^9}, {
+ 3.832240032307065*^9, 3.832240052203109*^9}, {3.83715782467747*^9,
+ 3.837157886518509*^9}, {3.839578233313818*^9, 3.839578280378607*^9}, {
+ 3.8395784470056753`*^9, 3.83957845669372*^9}},
+ CellLabel->
+ "In[959]:=",ExpressionUUID->"89ac841c-bcba-48b4-ada1-f3f8e6567526"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"sol8", "=",
+ RowBox[{"untilSuccess", "[",
+ RowBox[{"newSol", "[",
+ RowBox[{"eq8", ",", "sol7", ",",
+ RowBox[{"{",
+ RowBox[{"gC", "[", "8", "]"}], "}"}], ",",
+ 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.8296438520635138`*^9,
+ 3.829643862599914*^9}, {3.829643945249604*^9, 3.829643945408759*^9}, {
+ 3.829648845266128*^9, 3.8296488464014387`*^9}, {3.8395782427943907`*^9,
+ 3.839578243417781*^9}, {3.839578283394557*^9, 3.8395783111551123`*^9}, {
+ 3.8395784617657757`*^9, 3.839578469541924*^9}},
+ CellLabel->
+ "In[963]:=",ExpressionUUID->"bbafde02-1f7a-4482-ba2e-eef49c1d4dfd"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]",
+ RowBox[{"1.1963728976466657`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]",
+ RowBox[{"0.1987267891014266`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"B", "\[Rule]",
+ RowBox[{"8.424132938858428`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.2400870404034294`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"AL", "\[Rule]",
RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"dFd\[Eta]List", "[",
- RowBox[{"2", ",", "h6"}], "]"}], "[", "ntest", "]"}], "[", "1", "]"}],
- "/",
- RowBox[{
- RowBox[{"Range", "[",
- RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "/.", "sol6"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"our\[CapitalPhi]7", "=",
+ RowBox[{"-", "0.11613423467747785`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "2.3662733761282766`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.071564662906125`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"1.9977271592623083`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"0.2331630231515097`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"dFd\[Eta]List", "[",
- RowBox[{"2", ",", "h7"}], "]"}], "[", "ntest", "]"}], "[", "1", "]"}],
- "/",
- RowBox[{
- RowBox[{"Range", "[",
- RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "/.", "sol7"}]}],
- ";"}]}], "Input",
- CellChangeTimes->{{3.8322388835042*^9, 3.832238885982521*^9}, {
- 3.832238918751101*^9, 3.832238980544174*^9}, {3.832239034801425*^9,
- 3.8322390392969837`*^9}, {3.832239749854486*^9, 3.832239844064394*^9}, {
- 3.832240962876375*^9, 3.832240972475827*^9}},
+ RowBox[{"-", "0.03523485975394946`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.035957434427939645`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"0.044211266678189254`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
+ RowBox[{"0.007532747685061096`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.021874426843497326`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]",
+ RowBox[{"0.002915818968056421`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
+ RowBox[{"0.004420543144123236`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "8", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.0014520758647002259`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.831201988901425*^9, 3.831202006900687*^9},
+ 3.8321345381557093`*^9, {3.832134623087185*^9, 3.832134627409769*^9}, {
+ 3.832238562216049*^9, 3.832238590863693*^9}, {3.832240018681553*^9,
+ 3.8322400546514*^9}, {3.837157820823324*^9, 3.837157897638482*^9},
+ 3.839578243722734*^9, {3.839578290115109*^9, 3.8395783114648533`*^9},
+ 3.839578471358047*^9, 3.839579695526607*^9, 3.839581572969627*^9,
+ 3.8395816354314737`*^9},
+ CellLabel->
+ "Out[963]=",ExpressionUUID->"78f61448-b3df-4bad-8d36-f7a4eef7bd3c"]
+}, Open ]],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"n9", "=", "2"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"F9", "=",
+ RowBox[{"RF", "[", "n9", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"h9", "=",
+ RowBox[{"h", "[", "9", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"eq9", "=",
+ RowBox[{
+ RowBox[{"eq", "[",
+ RowBox[{"n9", ",", "h9"}], "]"}], "[",
+ RowBox[{"7", ",",
+ RowBox[{"-", "1"}], ",", "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.829385062901247*^9}, {3.829643717628685*^9,
+ 3.8296437212686253`*^9}, {3.829643799166234*^9, 3.829643799917945*^9}, {
+ 3.829643841184095*^9, 3.829643848702908*^9}, {3.829643933608774*^9,
+ 3.829643943048661*^9}, {3.8296487105672007`*^9, 3.829648731287354*^9}, {
+ 3.829648830105295*^9, 3.829648830809145*^9}, {3.831201931387443*^9,
+ 3.8312019323632183`*^9}, {3.831201994316557*^9, 3.8312020039804773`*^9}, {
+ 3.832134539757575*^9, 3.832134540628755*^9}, {3.832134624878316*^9,
+ 3.8321346257503223`*^9}, {3.8322385544888363`*^9, 3.832238559776641*^9}, {
+ 3.832240032307065*^9, 3.832240052203109*^9}, {3.83715782467747*^9,
+ 3.837157886518509*^9}, {3.839578233313818*^9, 3.839578280378607*^9}, {
+ 3.8395784470056753`*^9, 3.83957845669372*^9}, {3.8395788078841267`*^9,
+ 3.8395788166123133`*^9}, {3.839579435671907*^9, 3.839579437839875*^9}, {
+ 3.839580668998816*^9, 3.839580672390868*^9}, {3.839580733288005*^9,
+ 3.839580735615902*^9}},
CellLabel->
- "In[113]:=",ExpressionUUID->"78c2af13-19a3-442b-beb9-26b0e57e5cf9"],
+ "In[964]:=",ExpressionUUID->"7ff78c11-7d73-4b16-b799-48cf4a2f6f7f"],
+
+Cell[CellGroupData[{
Cell[BoxData[
- TemplateBox[{
- "ReplaceAll", "reps",
- "\"\\!\\(\\*RowBox[{\\\"{\\\", \\\"sol7\\\", \\\"}\\\"}]\\) is neither a \
-list of replacement rules nor a valid dispatch table, and so cannot be used \
-for replacing.\"", 2, 120, 2, 31609552877375939013, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.837157907401561*^9},
+ RowBox[{"sol9", "=",
+ RowBox[{"untilSuccess", "[",
+ RowBox[{"newSol", "[",
+ RowBox[{"eq9", ",", "sol8", ",",
+ RowBox[{"{",
+ 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}, {3.8296438520635138`*^9,
+ 3.829643862599914*^9}, {3.829643945249604*^9, 3.829643945408759*^9}, {
+ 3.829648845266128*^9, 3.8296488464014387`*^9}, {3.8395782427943907`*^9,
+ 3.839578243417781*^9}, {3.839578283394557*^9, 3.8395783111551123`*^9}, {
+ 3.8395784617657757`*^9, 3.839578469541924*^9}, {3.8395788207886047`*^9,
+ 3.839578827356454*^9}},
CellLabel->
- "During evaluation of \
-In[113]:=",ExpressionUUID->"b9abe59e-3a2a-46fa-9753-e5f910ad1c51"]
-}, Open ]],
+ "In[968]:=",ExpressionUUID->"91a9357e-cd65-4b22-8a77-0d13dcf9b3fb"],
Cell[BoxData[
- RowBox[{
- RowBox[{"test", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]",
+ RowBox[{"1.1956355979945348`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]",
+ RowBox[{"0.19856812001510718`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"B", "\[Rule]",
+ RowBox[{"8.45912058271764`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
RowBox[{
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.2253156299316397`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"AL", "\[Rule]",
RowBox[{
- RowBox[{
- RowBox[{"(",
- RowBox[{
- RowBox[{"\[CapitalPhi]s", "[",
- RowBox[{"[",
- RowBox[{";;",
- RowBox[{"ntest", "+", "1"}]}], "]"}], "]"}], "-", "#"}], ")"}],
- "/",
- RowBox[{"\[CapitalPhi]s", "[",
- RowBox[{"[",
- RowBox[{";;",
- RowBox[{"ntest", "+", "1"}]}], "]"}], "]"}]}], "&"}], "/@",
- RowBox[{"{",
- RowBox[{
- "our\[CapitalPhi]1", ",", "our\[CapitalPhi]2", ",", "our\[CapitalPhi]3",
- ",", "our\[CapitalPhi]4", ",", "our\[CapitalPhi]5", ",",
- "our\[CapitalPhi]6", ",", "our\[CapitalPhi]7"}], "}"}]}]}],
- ";"}]], "Input",
- CellChangeTimes->{{3.832239058956472*^9, 3.8322390721536207`*^9}, {
- 3.832239165331757*^9, 3.832239174143079*^9}, {3.832239852272251*^9,
- 3.832239898744541*^9}, {3.8322409757877417`*^9, 3.832240978267666*^9}},
+ RowBox[{"-", "0.11567297048463196`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "2.375274149535707`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.0759077223885765`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"2.004170993273349`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"0.23122737823051095`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.02308887293127201`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.028152391718527632`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"0.02841049424122317`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
+ RowBox[{"0.009694496029059974`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.015064477770822714`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.0003906999579794114`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
+ RowBox[{"0.003682419549092511`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "8", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.0005758560338893155`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "9", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.00017637446458416734`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.831201988901425*^9, 3.831202006900687*^9},
+ 3.8321345381557093`*^9, {3.832134623087185*^9, 3.832134627409769*^9}, {
+ 3.832238562216049*^9, 3.832238590863693*^9}, {3.832240018681553*^9,
+ 3.8322400546514*^9}, {3.837157820823324*^9, 3.837157897638482*^9},
+ 3.839578243722734*^9, {3.839578290115109*^9, 3.8395783114648533`*^9},
+ 3.839578471358047*^9, {3.839578828205875*^9, 3.83957887395286*^9},
+ 3.8395789331928673`*^9, 3.839578963292366*^9, 3.839579063511548*^9, {
+ 3.839579433773251*^9, 3.839579440034185*^9}, 3.839579704980287*^9, {
+ 3.839580729869828*^9, 3.839580736740423*^9}, 3.839581575069989*^9,
+ 3.8395816384346037`*^9},
+ CellLabel->
+ "Out[968]=",ExpressionUUID->"475dfbeb-13d5-463e-ae32-778da6adbfeb"]
+}, Open ]],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"n10", "=", "2"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"F10", "=",
+ RowBox[{"RF", "[", "n10", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"h10", "=",
+ RowBox[{"h", "[", "10", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"eq10", "=",
+ RowBox[{
+ RowBox[{"eq", "[",
+ RowBox[{"n10", ",", "h10"}], "]"}], "[",
+ RowBox[{"8", ",",
+ RowBox[{"-", "1"}], ",", "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.829385062901247*^9}, {3.829643717628685*^9,
+ 3.8296437212686253`*^9}, {3.829643799166234*^9, 3.829643799917945*^9}, {
+ 3.829643841184095*^9, 3.829643848702908*^9}, {3.829643933608774*^9,
+ 3.829643943048661*^9}, {3.8296487105672007`*^9, 3.829648731287354*^9}, {
+ 3.829648830105295*^9, 3.829648830809145*^9}, {3.831201931387443*^9,
+ 3.8312019323632183`*^9}, {3.831201994316557*^9, 3.8312020039804773`*^9}, {
+ 3.832134539757575*^9, 3.832134540628755*^9}, {3.832134624878316*^9,
+ 3.8321346257503223`*^9}, {3.8322385544888363`*^9, 3.832238559776641*^9}, {
+ 3.832240032307065*^9, 3.832240052203109*^9}, {3.83715782467747*^9,
+ 3.837157886518509*^9}, {3.839578233313818*^9, 3.839578280378607*^9}, {
+ 3.8395784470056753`*^9, 3.83957845669372*^9}, {3.839579444272045*^9,
+ 3.839579461352152*^9}, {3.839581177975768*^9, 3.839581180600107*^9}, {
+ 3.839581579735758*^9, 3.839581582663536*^9}},
CellLabel->
- "In[121]:=",ExpressionUUID->"734dcd5d-62a6-4b97-abde-704167fb7071"],
+ "In[969]:=",ExpressionUUID->"24aac548-eb1c-4513-936d-7978b92c926b"],
Cell[CellGroupData[{
Cell[BoxData[
- RowBox[{"ListLogLogPlot", "[",
+ RowBox[{"sol10", "=",
+ RowBox[{"untilSuccess", "[",
+ RowBox[{"newSol", "[",
+ RowBox[{"eq10", ",", "sol9", ",",
+ RowBox[{"{",
+ RowBox[{"gC", "[", "10", "]"}], "}"}], ",",
+ 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.8296438520635138`*^9,
+ 3.829643862599914*^9}, {3.829643945249604*^9, 3.829643945408759*^9}, {
+ 3.829648845266128*^9, 3.8296488464014387`*^9}, {3.8395782427943907`*^9,
+ 3.839578243417781*^9}, {3.839578283394557*^9, 3.8395783111551123`*^9}, {
+ 3.8395784617657757`*^9, 3.839578469541924*^9}, {3.839579464144208*^9,
+ 3.8395794714566097`*^9}, {3.83957982287923*^9, 3.8395798256468697`*^9}, {
+ 3.839580584469479*^9, 3.839580613581636*^9}, {3.8395806623029118`*^9,
+ 3.839580662422579*^9}, {3.839580751472431*^9, 3.839580758848147*^9}, {
+ 3.8395809515081177`*^9, 3.839580952619824*^9}, {3.839581017285594*^9,
+ 3.83958101806114*^9}, {3.8395811833445473`*^9, 3.839581193256229*^9}, {
+ 3.839581584816506*^9, 3.8395815849756393`*^9}},
+ CellLabel->
+ "In[973]:=",ExpressionUUID->"ff16e4b8-b15e-45f3-8c5f-f73bc188d8ed"],
+
+Cell[BoxData[
+ RowBox[{"{",
RowBox[{
- RowBox[{"Abs", "@",
+ RowBox[{"\[Theta]c", "\[Rule]",
+ RowBox[{"1.1979409662477998`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]",
+ RowBox[{"0.19877890288738448`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"B", "\[Rule]",
+ RowBox[{"8.292607740228739`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.0679293112470034`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"AL", "\[Rule]",
RowBox[{
- RowBox[{"Transpose", "[", "test", "]"}], "[",
- RowBox[{"[", "1", "]"}], "]"}]}], ",",
- RowBox[{"Joined", "->", "True"}]}], "]"}]], "Input",
- CellChangeTimes->{{3.832239893402195*^9, 3.832239920192848*^9}, {
- 3.832239998082823*^9, 3.8322399985463333`*^9}, {3.832241054717428*^9,
- 3.832241055445216*^9}},
+ RowBox[{"-", "0.11729151223633591`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "2.3626318244396582`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"1.071624601064026`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"1.9989770702327418`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"0.2341989282938216`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"0.13255910454942618`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"0.15419329597872777`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.16839201608322873`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.06316044817916865`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"0.10711528384747875`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]",
+ RowBox[{"0.0025125586122213867`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.035806026645003285`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "8", "]"}], "\[Rule]",
+ RowBox[{"0.006374050031176747`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "9", "]"}], "\[Rule]",
+ RowBox[{"0.005178873065426488`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "10", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "0.001655337349603191`"}], "+",
+ RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.831201988901425*^9, 3.831202006900687*^9},
+ 3.8321345381557093`*^9, {3.832134623087185*^9, 3.832134627409769*^9}, {
+ 3.832238562216049*^9, 3.832238590863693*^9}, {3.832240018681553*^9,
+ 3.8322400546514*^9}, {3.837157820823324*^9, 3.837157897638482*^9},
+ 3.839578243722734*^9, {3.839578290115109*^9, 3.8395783114648533`*^9},
+ 3.839578471358047*^9, 3.839579472959687*^9, {3.8395797383597527`*^9,
+ 3.839579756206666*^9}, 3.8395798206999903`*^9, 3.8395799987506657`*^9, {
+ 3.839580585595392*^9, 3.839580604326168*^9}, {3.839580660110716*^9,
+ 3.839580666868223*^9}, {3.8395807496409683`*^9, 3.839580760863625*^9},
+ 3.839580947213052*^9, {3.839581014782826*^9, 3.839581022813905*^9}, {
+ 3.839581147998137*^9, 3.839581197154702*^9}, 3.839581370899843*^9,
+ 3.83958153469221*^9, 3.839581596463614*^9, 3.839581644511326*^9},
+ CellLabel->
+ "Out[973]=",ExpressionUUID->"1094f3c8-f423-4ec0-9978-75688034b462"]
+}, Open ]],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"n11", "=", "2"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"F11", "=",
+ RowBox[{"RF", "[", "n11", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"h11", "=",
+ RowBox[{"h", "[", "11", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"eq11", "=",
+ RowBox[{
+ RowBox[{"eq", "[",
+ RowBox[{"n11", ",", "h11"}], "]"}], "[",
+ RowBox[{"9", ",",
+ RowBox[{"-", "1"}], ",", "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.829385062901247*^9}, {3.829643717628685*^9,
+ 3.8296437212686253`*^9}, {3.829643799166234*^9, 3.829643799917945*^9}, {
+ 3.829643841184095*^9, 3.829643848702908*^9}, {3.829643933608774*^9,
+ 3.829643943048661*^9}, {3.8296487105672007`*^9, 3.829648731287354*^9}, {
+ 3.829648830105295*^9, 3.829648830809145*^9}, {3.831201931387443*^9,
+ 3.8312019323632183`*^9}, {3.831201994316557*^9, 3.8312020039804773`*^9}, {
+ 3.832134539757575*^9, 3.832134540628755*^9}, {3.832134624878316*^9,
+ 3.8321346257503223`*^9}, {3.8322385544888363`*^9, 3.832238559776641*^9}, {
+ 3.832240032307065*^9, 3.832240052203109*^9}, {3.83715782467747*^9,
+ 3.837157886518509*^9}, {3.839578233313818*^9, 3.839578280378607*^9}, {
+ 3.8395784470056753`*^9, 3.83957845669372*^9}, {3.839579444272045*^9,
+ 3.839579461352152*^9}, {3.839581177975768*^9, 3.839581180600107*^9}, {
+ 3.839581579735758*^9, 3.839581582663536*^9}, {3.839581653136841*^9,
+ 3.839581660312875*^9}},
CellLabel->
- "In[122]:=",ExpressionUUID->"075439f9-05f4-4790-857a-2c876562ceb2"],
+ "In[974]:=",ExpressionUUID->"388da309-89f7-4dd9-af7d-26bd2ea56024"],
+
+Cell[CellGroupData[{
Cell[BoxData[
- TemplateBox[{
- "ReplaceAll", "reps",
- "\"\\!\\(\\*RowBox[{\\\"{\\\", \\\"sol7\\\", \\\"}\\\"}]\\) is neither a \
-list of replacement rules nor a valid dispatch table, and so cannot be used \
-for replacing.\"", 2, 122, 3, 31609552877375939013, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.837157910262334*^9},
+ RowBox[{"sol11", "=",
+ RowBox[{"untilSuccess", "[",
+ RowBox[{"newSol", "[",
+ RowBox[{"eq11", ",", "sol10", ",",
+ RowBox[{"{",
+ RowBox[{"gC", "[", "11", "]"}], "}"}], ",",
+ 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.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.8296438520635138`*^9,
+ 3.829643862599914*^9}, {3.829643945249604*^9, 3.829643945408759*^9}, {
+ 3.829648845266128*^9, 3.8296488464014387`*^9}, {3.8395782427943907`*^9,
+ 3.839578243417781*^9}, {3.839578283394557*^9, 3.8395783111551123`*^9}, {
+ 3.8395784617657757`*^9, 3.839578469541924*^9}, {3.839579464144208*^9,
+ 3.8395794714566097`*^9}, {3.83957982287923*^9, 3.8395798256468697`*^9}, {
+ 3.839580584469479*^9, 3.839580613581636*^9}, {3.8395806623029118`*^9,
+ 3.839580662422579*^9}, {3.839580751472431*^9, 3.839580758848147*^9}, {
+ 3.8395809515081177`*^9, 3.839580952619824*^9}, {3.839581017285594*^9,
+ 3.83958101806114*^9}, {3.8395811833445473`*^9, 3.839581193256229*^9}, {
+ 3.839581584816506*^9, 3.8395815849756393`*^9}, {3.839581667650786*^9,
+ 3.8395816733771276`*^9}, {3.839581882189183*^9, 3.839581884029025*^9}},
CellLabel->
- "During evaluation of \
-In[122]:=",ExpressionUUID->"0576a882-cda1-411a-8fe5-11d8dc16e7ab"],
+ "In[994]:=",ExpressionUUID->"5de997b2-7996-4c75-b3fa-d2e9040e6084"],
+
+Cell[BoxData["$Aborted"], "Output",
+ CellChangeTimes->{{3.831201988901425*^9, 3.831202006900687*^9},
+ 3.8321345381557093`*^9, {3.832134623087185*^9, 3.832134627409769*^9}, {
+ 3.832238562216049*^9, 3.832238590863693*^9}, {3.832240018681553*^9,
+ 3.8322400546514*^9}, {3.837157820823324*^9, 3.837157897638482*^9},
+ 3.839578243722734*^9, {3.839578290115109*^9, 3.8395783114648533`*^9},
+ 3.839578471358047*^9, 3.839579472959687*^9, {3.8395797383597527`*^9,
+ 3.839579756206666*^9}, 3.8395798206999903`*^9, 3.8395799987506657`*^9, {
+ 3.839580585595392*^9, 3.839580604326168*^9}, {3.839580660110716*^9,
+ 3.839580666868223*^9}, {3.8395807496409683`*^9, 3.839580760863625*^9},
+ 3.839580947213052*^9, {3.839581014782826*^9, 3.839581022813905*^9}, {
+ 3.839581147998137*^9, 3.839581197154702*^9}, 3.839581370899843*^9,
+ 3.83958153469221*^9, 3.839581596463614*^9, 3.839581644511326*^9, {
+ 3.839581870551455*^9, 3.839581891381443*^9}, 3.83958195039749*^9},
+ CellLabel->
+ "Out[994]=",ExpressionUUID->"03372973-e118-4a6b-95c6-7dcb1fb4a3ef"]
+}, Open ]],
+
+Cell[CellGroupData[{
Cell[BoxData[
- TemplateBox[{
- "ReplaceAll", "reps",
- "\"\\!\\(\\*RowBox[{\\\"{\\\", \\\"sol7\\\", \\\"}\\\"}]\\) is neither a \
-list of replacement rules nor a valid dispatch table, and so cannot be used \
-for replacing.\"", 2, 122, 4, 31609552877375939013, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.83715791033757*^9},
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[Theta]c", "/.", "#"}], "&"}], "/@",
+ RowBox[{"{",
+ RowBox[{
+ "sol1", ",", "sol2", ",", "sol3", ",", "sol4", ",", "sol5", ",", "sol6",
+ ",", "sol7", ",", "sol8", ",", "sol9"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.839581374725718*^9, 3.839581402892148*^9}},
CellLabel->
- "During evaluation of \
-In[122]:=",ExpressionUUID->"d1f6865f-79aa-4b3c-a188-32bd0326112a"],
+ "In[864]:=",ExpressionUUID->"18aa91e1-03a1-48da-bed8-3d6a7a4ae626"],
Cell[BoxData[
- TemplateBox[{
- "ReplaceAll", "reps",
- "\"\\!\\(\\*RowBox[{\\\"{\\\", \\\"sol7\\\", \\\"}\\\"}]\\) is neither a \
-list of replacement rules nor a valid dispatch table, and so cannot be used \
-for replacing.\"", 2, 122, 5, 31609552877375939013, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.83715791040069*^9},
+ GraphicsBox[{{},
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{1., 1.1844055690898234`}, {2., 1.1819352740900495`}, {3.,
+ 1.1853317350263226`}, {4., 1.1875089279471813`}, {5.,
+ 1.1894533073718994`}, {6., 1.1943103180127839`}, {7.,
+ 1.1929520810258658`}, {8., 1.196372897646665}, {9.,
+ 1.1956355979945312`}}]}, {{}, {}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{0., 1.18113318389246},
+ 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., 9.}, {1.18113318389246, 1.196372897646665}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.05],
+ Scaled[0.05]}},
+ Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{3.8395814031089983`*^9},
CellLabel->
- "During evaluation of \
-In[122]:=",ExpressionUUID->"94ee616b-d4f1-41e8-bc11-0d637cde8b16"],
+ "Out[864]=",ExpressionUUID->"fa7fd377-360b-4502-a977-985fa8362db0"]
+}, Open ]],
+
+Cell[CellGroupData[{
Cell[BoxData[
- TemplateBox[{
- "General", "stop",
- "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"ReplaceAll\\\", \
-\\\"::\\\", \\\"reps\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \
-this calculation.\"", 2, 122, 6, 31609552877375939013, "Local"},
- "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.837157910449336*^9},
+ RowBox[{"ListLogPlot", "[",
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Abs", "[", "Gls", "]"}], ",", "\[IndentingNewLine]",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"dFd\[Xi]LowList", "[",
+ RowBox[{"n7", ",", "h7"}], "]"}], "[", "8", "]"}], "/",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"0", ",", "8"}], "]"}], "!"}], ")"}]}], "]"}], "/.",
+ "sol7"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input",
+ CellChangeTimes->CompressedData["
+1:eJwdxU0og2EAB/CXwgEb08xeI+zg46AQlhZ7E0kzWYh8pJU0NIUolo9o24Ec
+xmo+52OoOShFXNSGw8xIwuYiag7bSdKi5Pk/h1+/TM2AujuSYRgJgWfFeu24
+McQVKl0jWKlLmMKyFyl9WDxhwfKdfTuOq+c5sKJYSFcG47zYGZNNd8+1G3fI
+nbxCE3Z+HcxjqdZsxa91Nzbsv9/exBpTUoudzCrW6PGpKgMu/Rsy4qUr6+Me
+2XEufcKBMlGUxxLiPgYyorEia9WcuBziDg0yCzZPWry45F1+ixsE4QfM+HXP
+2D3KBnHj8Bj97tJWJSD3s/xq/JlyHREg69qOI3G+x+nCwvkw3eReP0leCXGV
+04On+E3lWK0g59i89I2een4Puea1lc767FtYfxq7jY+shz9asoAT/WL/TDPT
+S+ZWzugX6iIJzkvrSse1uwvluKlDpcC/367cPvJigS8P/wMYxOYl
+ "],
CellLabel->
- "During evaluation of \
-In[122]:=",ExpressionUUID->"76660a41-dc69-4c34-aaa5-3d9d86c69dae"],
+ "In[786]:=",ExpressionUUID->"0c2ba5ff-361b-45fc-864f-677bddbf18a4"],
Cell[BoxData[
- GraphicsBox[{{}, {{}, {},
+ 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., -3.0168887065845538`}, {3., -3.0168887065436985`}}],
+ LineBox[{{3., -3.0168887065436985`}, {3., -3.016888706502843}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{4., -3.24768873618056}, {4., -3.2476887336074802`}}],
+ LineBox[{{4., -3.2476887336074802`}, {4., -3.2476887310344003`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{5., -2.6829364089277306`}, {5., -2.6829363942997464`}}],
+ LineBox[{{5., -2.6829363942997464`}, {5., -2.6829363796717627`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{6., -1.6934517864279734`}, {6., -1.6934517320457758`}}],
+ LineBox[{{6., -1.6934517320457758`}, {6., -1.693451677663581}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{7., -0.4167753281916941}, {7., -0.41677381113121115`}}],
+ LineBox[{{7., -0.41677381113121115`}, {7., -0.4167722940730296}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{8., 1.077614026885801}, {8., 1.077615048105556}}],
+ LineBox[{{8., 1.077615048105556}, {8., 1.0776160693242682`}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{9., 2.747270914255491}, {9., 2.7479117345273405`}}],
+ LineBox[{{9., 2.7479117345273405`}, {9., 2.7485521444115397`}}]}},
+ Antialiasing->False]}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{2., 0.3058939805973459},
+ Offset[{3, 0}, {2., 0.3058939805973459}]}, {{2.,
+ 0.3058939805973459},
+ Offset[{-3, 0}, {2., 0.3058939805973459}]}, {{2.,
+ 0.3058939805973312}, Offset[{3, 0}, {2., 0.3058939805973312}]}, {{
+ 2., 0.3058939805973312},
+ Offset[{-3, 0}, {2., 0.3058939805973312}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{3., -3.016888706502843},
+ Offset[{3, 0}, {3., -3.016888706502843}]}, {{
+ 3., -3.016888706502843},
+ Offset[{-3, 0}, {3., -3.016888706502843}]}, {{
+ 3., -3.0168887065845538`},
+ Offset[{3, 0}, {3., -3.0168887065845538`}]}, {{
+ 3., -3.0168887065845538`},
+ Offset[{-3, 0}, {3., -3.0168887065845538`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{4., -3.2476887310344003`},
+ Offset[{3, 0}, {4., -3.2476887310344003`}]}, {{
+ 4., -3.2476887310344003`},
+ Offset[{-3, 0}, {4., -3.2476887310344003`}]}, {{
+ 4., -3.24768873618056},
+ Offset[{3, 0}, {4., -3.24768873618056}]}, {{
+ 4., -3.24768873618056},
+ Offset[{-3, 0}, {4., -3.24768873618056}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{5., -2.6829363796717627`},
+ Offset[{3, 0}, {5., -2.6829363796717627`}]}, {{
+ 5., -2.6829363796717627`},
+ Offset[{-3, 0}, {5., -2.6829363796717627`}]}, {{
+ 5., -2.6829364089277306`},
+ Offset[{3, 0}, {5., -2.6829364089277306`}]}, {{
+ 5., -2.6829364089277306`},
+ Offset[{-3, 0}, {5., -2.6829364089277306`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{6., -1.693451677663581},
+ Offset[{3, 0}, {6., -1.693451677663581}]}, {{
+ 6., -1.693451677663581},
+ Offset[{-3, 0}, {6., -1.693451677663581}]}, {{
+ 6., -1.6934517864279734`},
+ Offset[{3, 0}, {6., -1.6934517864279734`}]}, {{
+ 6., -1.6934517864279734`},
+ Offset[{-3, 0}, {6., -1.6934517864279734`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{7., -0.4167722940730296},
+ Offset[{3, 0}, {7., -0.4167722940730296}]}, {{
+ 7., -0.4167722940730296},
+ Offset[{-3, 0}, {7., -0.4167722940730296}]}, {{
+ 7., -0.4167753281916941},
+ Offset[{3, 0}, {7., -0.4167753281916941}]}, {{
+ 7., -0.4167753281916941},
+ Offset[{-3, 0}, {7., -0.4167753281916941}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{8., 1.0776160693242682`},
+ Offset[{3, 0}, {8., 1.0776160693242682`}]}, {{8.,
+ 1.0776160693242682`},
+ Offset[{-3, 0}, {8., 1.0776160693242682`}]}, {{8.,
+ 1.077614026885801}, Offset[{3, 0}, {8., 1.077614026885801}]}, {{
+ 8., 1.077614026885801},
+ Offset[{-3, 0}, {8., 1.077614026885801}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{9., 2.7485521444115397`},
+ Offset[{3, 0}, {9., 2.7485521444115397`}]}, {{9.,
+ 2.7485521444115397`},
+ Offset[{-3, 0}, {9., 2.7485521444115397`}]}, {{9.,
+ 2.747270914255491}, Offset[{3, 0}, {9., 2.747270914255491}]}, {{
+ 9., 2.747270914255491},
+ Offset[{-3, 0}, {9., 2.747270914255491}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]}}}, {
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
- LineBox[{{0., -7.437943468416917}, {
- 0.6931471805599453, -7.549824530393841}, {
- 1.0986122886681098`, -8.50825980390974}, {
- 1.3862943611198906`, -8.516853568524972}, {
- 1.6094379124341003`, -8.485277856518412}, {
- 1.791759469228055, -8.394815858607737}}]}}, {{}, {}}},
+ 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}, {13., 10.749355820113736`}, {14.,
+ 13.008074231002201`}, {15., 15.354526006101828`}}]},
+ {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{2., 0.3058939805973397}, {3., -3.016888706543696}, {
+ 4., -3.2476887336074602`}, {5., -2.6829363942997055`}, {
+ 6., -1.6934517320457492`}, {7., -0.41677381113119344`}, {8.,
+ 1.072225790757314}, {9., 2.732155748142148}}]}}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
- AxesOrigin->{-0.07543431793191033, -8.60128440670547},
+ AxesOrigin->{0., -4.703417607888443},
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}]}},
+ Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
Method->{
"OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
- Exp[
+ Identity[
Part[#, 1]],
Exp[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
- Exp[
+ Identity[
Part[#, 1]],
Exp[
Part[#, 2]]}& )}},
- PlotRange->NCache[{{-0.07543431793191033,
- Log[
- 6]}, {-8.60128440670547, -7.437943468416917}}, {{-0.07543431793191033,
- 1.791759469228055}, {-8.60128440670547, -7.437943468416917}}],
+ PlotRange->{{0., 15.}, {-4.703417607888443, 15.354526006101828`}},
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.0986122886681098`,
- FormBox["3", TraditionalForm], {0.01, 0.}}, {1.3862943611198906`,
- FormBox["4", TraditionalForm], {0.01, 0.}}, {1.6094379124341003`,
- FormBox["5", TraditionalForm], {0.01, 0.}}, {1.791759469228055,
- FormBox["6", TraditionalForm], {0.01, 0.}}, {-1.6094379124341003`,
- FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-0.916290731874155,
+ Ticks->FrontEndValueCache[{Automatic,
+ Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-4.605170185988091,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-0.5108256237659907,
+ TagBox[
+ InterpretationBox[
+ StyleBox["\"0.01\"", ShowStringCharacters -> False], 0.01,
+ AutoDelete -> True], NumberForm[#, {
+ DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, {
+ 2.302585092994046,
+ FormBox["10", TraditionalForm], {0.01, 0.}}, {9.210340371976184,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-0.2231435513142097,
+ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {16.11809565095832,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 0.1823215567939546,
+ TemplateBox[{"10", "7"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {-2.3025850929940455`,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 0.3364722366212129,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0.,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 0.47000362924573563`,
+ 4.605170185988092,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 0.5877866649021191,
+ 6.907755278982137,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 0.7884573603642703,
+ 11.512925464970229`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 0.8754687373538999,
+ 13.815510557964274`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 0.9555114450274363,
+ 16.811242831518264`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 1.0296194171811581`,
+ 17.216707939626428`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 1.1631508098056809`,
+ 17.50439001207821,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 1.2237754316221157`,
+ 17.72753356339242,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 1.2809338454620642`,
+ 17.909855120186375`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 1.33500106673234,
+ 18.064005800013632`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 1.4350845252893227`,
+ 18.197537192638155`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 1.4816045409242156`,
+ 18.31532022829454,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 1.5260563034950492`,
+ 18.420680743952367`,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 1.5686159179138452`,
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}}}]]], "Output",
+ CellChangeTimes->{
+ 3.8292190385400677`*^9, 3.829219088509445*^9, 3.8292203752304993`*^9,
+ 3.829362528741741*^9, 3.8371574259776793`*^9, 3.837157475578351*^9,
+ 3.8371575976446037`*^9, {3.838872685545763*^9, 3.8388727104012403`*^9}, {
+ 3.838872745856311*^9, 3.838872775031664*^9}, {3.838873060895833*^9,
+ 3.838873069442831*^9}, {3.838873177933014*^9, 3.838873210508173*^9}, {
+ 3.83887325980634*^9, 3.8388732925068274`*^9}, 3.838873443902339*^9, {
+ 3.838874046192869*^9, 3.838874073676612*^9}, 3.838874169904831*^9,
+ 3.839307798861899*^9, 3.839307856791636*^9, {3.8393079205881367`*^9,
+ 3.8393079408915873`*^9}, 3.839308192209601*^9, 3.839308834395816*^9, {
+ 3.839309324200686*^9, 3.839309344536544*^9}, 3.839309443330439*^9, {
+ 3.839309719773855*^9, 3.839309728826005*^9}, {3.8394073695151653`*^9,
+ 3.8394073949048223`*^9}, {3.8394075851251593`*^9, 3.839407605331163*^9},
+ 3.839407961362918*^9, {3.83949129705267*^9, 3.83949130315024*^9}, {
+ 3.839492738397423*^9, 3.8394927517045918`*^9}, {3.839572086066931*^9,
+ 3.839572091490473*^9}, {3.839573266400237*^9, 3.83957327482544*^9}, {
+ 3.839577973668317*^9, 3.839578000981019*^9}, 3.8395780750955753`*^9,
+ 3.83957812867066*^9, {3.839578348261548*^9, 3.839578357584875*^9},
+ 3.839578637970869*^9, 3.839580513893373*^9},
+ CellLabel->
+ "Out[786]=",ExpressionUUID->"c82e8bc4-7571-43a3-9234-476a09bdb686"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListLogPlot", "[",
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Abs", "[", "Ghs", "]"}], ",", "\[IndentingNewLine]",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"dFd\[Xi]HighList", "[",
+ RowBox[{"n8", ",", "h8"}], "]"}], "[", "8", "]"}], "/",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"0", ",", "8"}], "]"}], "!"}], ")"}]}], "]"}], "/.",
+ "sol8"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input",
+ CellChangeTimes->CompressedData["
+1:eJxTTMoPSmViYGCQAGIQ3SJZk1nd/sbRyOdwGYj2yRNoANEWt5XBdIlk3TQQ
+bbNkxVIQzePPtxpEO5iKgmmf1zznQPQhdnUwfaonpn0JkI7jM+oA0Ye+rOkF
+0cqZk2eC6Ae+ZxeA6FuXFi8E0UkdwhFLgbSUw1wwzSvt1waizf8Vt4Poqcdm
+XlsOpFfvV74Oop9ZibOemfbG8Xm+AhuIdlCaM1lw1hvHDW0W00D05Ppp50C0
+2WOb8yA6UOjHFRDNcCvvBog+VS71GkSHlFSB6QtHF7gKAeks1qneIPpH7+YQ
+EO0R2xgJog/8tWJ7BqSVEsXYQfTKc7lHQLTJ53lg+siR2h1is984Jm//sBNE
+RxR0/s4E0iltb8G00klGxiwgnZMbC6Y3nNFyBtHlXqYuIBoAVMXGfg==
+ "],
+ CellLabel->
+ "In[587]:=",ExpressionUUID->"a040d774-1dc7-4385-9ead-c8dc5c641e12"],
+
+Cell[BoxData[
+ GraphicsBox[{{{
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{3., 0.6126028894836498}, {3., 0.6126028894890692}}],
+ LineBox[{{3., 0.6126028894890692}, {3., 0.6126028894944886}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{5., 2.120308945253084}, {5., 2.1203089452650836`}}],
+ LineBox[{{5., 2.1203089452650836`}, {5., 2.120308945277083}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{7., 4.555653838211157}, {7., 4.555653943287428}}],
+ LineBox[{{7., 4.555653943287428}, {7., 4.555654048363689}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{9., 7.284539665889405}, {9., 7.28456024759707}}],
+ LineBox[{{9., 7.28456024759707}, {9., 7.284580828881137}}]}},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{{}, {
+ LineBox[{{11., 10.161573447047902`}, {11., 10.161650696951378`}}],
+ LineBox[{{11., 10.161650696951378`}, {11., 10.161727940887767`}}]}},
+ Antialiasing->False]}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{3., 0.6126028894944886},
+ Offset[{3, 0}, {3., 0.6126028894944886}]}, {{3.,
+ 0.6126028894944886},
+ Offset[{-3, 0}, {3., 0.6126028894944886}]}, {{3.,
+ 0.6126028894836498}, Offset[{3, 0}, {3., 0.6126028894836498}]}, {{
+ 3., 0.6126028894836498},
+ Offset[{-3, 0}, {3., 0.6126028894836498}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{5., 2.120308945277083},
+ Offset[{3, 0}, {5., 2.120308945277083}]}, {{5.,
+ 2.120308945277083}, Offset[{-3, 0}, {5., 2.120308945277083}]}, {{
+ 5., 2.120308945253084},
+ Offset[{3, 0}, {5., 2.120308945253084}]}, {{5.,
+ 2.120308945253084},
+ Offset[{-3, 0}, {5., 2.120308945253084}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{7., 4.555654048363689},
+ Offset[{3, 0}, {7., 4.555654048363689}]}, {{7.,
+ 4.555654048363689}, Offset[{-3, 0}, {7., 4.555654048363689}]}, {{
+ 7., 4.555653838211157},
+ Offset[{3, 0}, {7., 4.555653838211157}]}, {{7.,
+ 4.555653838211157},
+ Offset[{-3, 0}, {7., 4.555653838211157}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{9., 7.284580828881137},
+ Offset[{3, 0}, {9., 7.284580828881137}]}, {{9.,
+ 7.284580828881137}, Offset[{-3, 0}, {9., 7.284580828881137}]}, {{
+ 9., 7.284539665889405},
+ Offset[{3, 0}, {9., 7.284539665889405}]}, {{9.,
+ 7.284539665889405},
+ Offset[{-3, 0}, {9., 7.284539665889405}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]},
+ {RGBColor[0.368417, 0.506779, 0.709798],
+ StyleBox[{
+ GeometricTransformationBox[
+ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}],
+ GeometricTransformationBox[
+ LineBox[{{{11., 10.161727940887767`},
+ Offset[{3, 0}, {11., 10.161727940887767`}]}, {{11.,
+ 10.161727940887767`},
+ Offset[{-3, 0}, {11., 10.161727940887767`}]}, {{11.,
+ 10.161573447047902`},
+ Offset[{3, 0}, {11., 10.161573447047902`}]}, {{11.,
+ 10.161573447047902`},
+ Offset[{-3, 0}, {11., 10.161573447047902`}]}}], {{{1., 0.}, {0.,
+ 1.}}, {0., 0.}}]},
+ Antialiasing->False]}}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{3., 0.6126028894890692}, {5., 2.1203089452650836`}, {7.,
+ 4.555653943287428}, {9., 7.28456024759707}, {11.,
+ 10.161650696951378`}, {13., 13.126355398673866`}, {15.,
+ 16.1573163641116}}]},
+ {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ PointBox[{{3., 0.6126028894890693}, {5., 2.1203089452650836`}, {7.,
+ 4.555653943287428}, {9., 7.291456144696723}}]}}, {{}, {}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{0., -0.6038591566192546},
+ DisplayFunction->Identity,
+ Frame->{{False, False}, {False, False}},
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->{{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}},
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& )}},
+ PlotRange->{{0., 15.}, {-0.6038591566192546, 16.1573163641116}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->FrontEndValueCache[{Automatic,
+ Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{0.,
+ FormBox["1", TraditionalForm], {0.01, 0.}}, {4.605170185988092,
+ FormBox["100", TraditionalForm], {0.01, 0.}}, {9.210340371976184,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 1.6486586255873816`,
+ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {13.815510557964274`,
FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 1.6863989535702288`,
+ TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> SuperscriptBox],
+ TraditionalForm], {0.01, 0.}}, {2.302585092994046,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 1.7227665977411035`,
+ 6.907755278982137,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 1.7578579175523736`,
+ 11.512925464970229`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 1.824549292051046,
+ 16.11809565095832,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 1.8562979903656263`,
+ 18.420680743952367`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 1.8870696490323797`,
+ 18.82614585206053,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 1.916922612182061,
+ 19.11382792451231,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
- 1.9459101490553132`,
+ 19.33697147582652,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}}, {{-8.517193191416238,
+ 0.}}}}]]], "Output",
+ CellChangeTimes->{
+ 3.838874306626349*^9, 3.839307833176208*^9, 3.839307921759116*^9,
+ 3.839308193555499*^9, 3.839308834719912*^9, 3.839309349421612*^9,
+ 3.839309444930846*^9, 3.839309730941094*^9, {3.839407372958536*^9,
+ 3.839407397557301*^9}, 3.839407510770228*^9, 3.839407588633622*^9,
+ 3.839572101057207*^9, 3.839573281468943*^9, 3.8395780033728247`*^9,
+ 3.83957808083144*^9, 3.839578124886072*^9, 3.839578765350711*^9},
+ CellLabel->
+ "Out[587]=",ExpressionUUID->"c82435a1-e076-481e-885a-816900db5198"]
+}, Open ]],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"ntest", "=", "4"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"our\[CapitalPhi]1", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"dFd\[Eta]List", "[",
+ RowBox[{"n1", ",", "h1"}], "]"}], "[", "ntest", "]"}], "[", "1",
+ "]"}], "/",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "/.", "sol1"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"our\[CapitalPhi]2", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"dFd\[Eta]List", "[",
+ RowBox[{"n2", ",", "h2"}], "]"}], "[", "ntest", "]"}], "[", "1",
+ "]"}], "/",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "/.", "sol2"}]}],
+ ";"}]}], "Input",
+ CellChangeTimes->{{3.8322388835042*^9, 3.832238885982521*^9}, {
+ 3.832238918751101*^9, 3.832238980544174*^9}, {3.832239034801425*^9,
+ 3.8322390392969837`*^9}, {3.832239749854486*^9, 3.832239844064394*^9}, {
+ 3.832240962876375*^9, 3.832240972475827*^9}, {3.8395784873824053`*^9,
+ 3.83957849607055*^9}, {3.83957950080114*^9, 3.839579518425556*^9}, {
+ 3.83958804978193*^9, 3.839588073901841*^9}},
+ CellLabel->
+ "In[1602]:=",ExpressionUUID->"78c2af13-19a3-442b-beb9-26b0e57e5cf9"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"test", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"ntest", "+", "1"}]}], "]"}], "]"}], "-", "#"}], ")"}],
+ "/",
+ RowBox[{"\[CapitalPhi]s", "[",
+ RowBox[{"[",
+ RowBox[{";;",
+ RowBox[{"ntest", "+", "1"}]}], "]"}], "]"}]}], "&"}], "/@",
+ RowBox[{"{",
+ RowBox[{"our\[CapitalPhi]1", ",", "our\[CapitalPhi]2"}], "}"}]}]}],
+ ";"}]], "Input",
+ CellChangeTimes->{{3.832239058956472*^9, 3.8322390721536207`*^9}, {
+ 3.832239165331757*^9, 3.832239174143079*^9}, {3.832239852272251*^9,
+ 3.832239898744541*^9}, {3.8322409757877417`*^9, 3.832240978267666*^9}, {
+ 3.839578500982512*^9, 3.83957850676663*^9}, {3.839579522361445*^9,
+ 3.83957952817773*^9}, {3.839588055117774*^9, 3.8395880552773438`*^9}},
+ CellLabel->
+ "In[1605]:=",ExpressionUUID->"734dcd5d-62a6-4b97-abde-704167fb7071"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListLogPlot", "[",
+ RowBox[{
+ RowBox[{"Abs", "@",
+ RowBox[{
+ RowBox[{"Transpose", "[", "test", "]"}], "[",
+ RowBox[{"[", "1", "]"}], "]"}]}], ",",
+ RowBox[{"Joined", "->", "True"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.832239893402195*^9, 3.832239920192848*^9}, {
+ 3.832239998082823*^9, 3.8322399985463333`*^9}, {3.832241054717428*^9,
+ 3.832241055445216*^9}, {3.8395783785246964`*^9, 3.839578379276371*^9}, {
+ 3.8395784124377623`*^9, 3.839578416861054*^9}, {3.839588109559115*^9,
+ 3.8395881107265377`*^9}},
+ CellLabel->
+ "In[1609]:=",ExpressionUUID->"075439f9-05f4-4790-857a-2c876562ceb2"],
+
+Cell[BoxData[
+ GraphicsBox[{{}, {{}, {},
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ LineBox[{{1., -6.60303098659917}, {2., -7.202406086073698}}]}}, {{}, {}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{0., -7.249310589079174},
+ DisplayFunction->Identity,
+ Frame->{{False, False}, {False, False}},
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->{{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}},
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ ImageSize->{509.99999999999955`, Automatic},
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& )}},
+ PlotRange->{{0., 2}, {-7.249310589079174, -6.60303098659917}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->FrontEndValueCache[{Automatic,
+ Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-7.1308988302963465`,
FormBox[
- TemplateBox[{"\[Times]", "\"\[Times]\"", "2.`",
+ TemplateBox[{"\[Times]", "\"\[Times]\"", "8.`",
TemplateBox[{"10",
RowBox[{"-", "4"}]}, "Superscript", SyntaxForm ->
SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01,
- 0.}}, {-8.111728083308073,
+ 0.}}, {-6.907755278982137,
FormBox[
- TemplateBox[{"\[Times]", "\"\[Times]\"", "3.`",
- TemplateBox[{"10",
- RowBox[{"-", "4"}]}, "Superscript", SyntaxForm ->
- SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01,
- 0.}}, {-7.824046010856292,
+ TagBox[
+ InterpretationBox[
+ StyleBox["\"0.0010\"", ShowStringCharacters -> False], 0.001,
+ AutoDelete -> True], NumberForm[#, {
+ DirectedInfinity[1], 4}]& ], TraditionalForm], {0.01,
+ 0.}}, {-6.725433722188183,
FormBox[
- TemplateBox[{"\[Times]", "\"\[Times]\"", "4.`",
- TemplateBox[{"10",
- RowBox[{"-", "4"}]}, "Superscript", SyntaxForm ->
- SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01,
- 0.}}, {-7.600902459542082,
+ TagBox[
+ InterpretationBox[
+ StyleBox["\"0.0012\"", ShowStringCharacters -> False], 0.0012,
+ AutoDelete -> True], NumberForm[#, {
+ DirectedInfinity[1], 4}]& ], TraditionalForm], {0.01,
+ 0.}}, {-6.571283042360924,
FormBox[
- TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`",
- TemplateBox[{"10",
- RowBox[{"-", "4"}]}, "Superscript", SyntaxForm ->
- SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01,
+ TagBox[
+ InterpretationBox[
+ StyleBox["\"0.0014\"", ShowStringCharacters -> False], 0.0014,
+ AutoDelete -> True], NumberForm[#, {
+ DirectedInfinity[1], 4}]& ], TraditionalForm], {0.01,
0.}}, {-7.418580902748128,
FormBox[
- TemplateBox[{"\[Times]", "\"\[Times]\"", "6.`",
- TemplateBox[{"10",
- RowBox[{"-", "4"}]}, "Superscript", SyntaxForm ->
- SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01,
- 0.}}, {-9.210340371976182,
- FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-9.028018815182229,
- FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-8.87386813535497,
- FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-8.740336742730447,
- FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-8.622553707074063,
- FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-8.421883011611913,
- FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-8.334871634622283,
- FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-8.254828926948747,
- FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-8.180720954795024,
- FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-8.047189562170502,
+ 0.}}, {-7.338538195074591,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-7.986564940354067,
+ 0.}}, {-7.264430222920869,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-7.929406526514119,
+ 0.}}, {-7.195437351433918,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-7.875339305243843,
+ 0.}}, {-7.070274208479912,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-7.77525584668686,
+ 0.}}, {-7.013115794639964,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-7.728735831051967,
+ 0.}}, {-6.959048573369688,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-7.6842840684811335`,
+ 0.}}, {-6.8589651148127055`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-7.641724454062337,
+ 0.}}, {-6.812445099177812,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-7.5616817463888015`,
+ 0.}}, {-6.767993336606978,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-7.523941418405954,
+ 0.}}, {-6.684611727667927,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-7.487573774235079,
+ 0.}}, {-6.645391014514646,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-7.4524824544238095`,
+ 0.}}, {-6.607650686531799,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-7.385791079925137,
+ 0.}}, {-6.536191722549654,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-7.354042381610556,
+ 0.}}, {-6.502290170873972,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-7.3232707229438025`,
+ 0.}}, {-6.469500348050982,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-7.293417759794122,
- FormBox[
- TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
- 0.}}, {-7.264430222920869,
+ 0.}}, {-6.437751649736401,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
0.}}}}]]], "Output",
CellChangeTimes->{{3.832239903804017*^9, 3.832239920412857*^9}, {
3.832239998691607*^9, 3.832240059049746*^9}, {3.8322410458066597`*^9,
- 3.832241055601955*^9}, 3.837157910503243*^9},
+ 3.832241055601955*^9}, 3.837157910503243*^9, 3.839578316453404*^9,
+ 3.839578379494871*^9, {3.839578413476359*^9, 3.839578417043734*^9},
+ 3.839578507781254*^9, 3.839579529893626*^9, 3.839580526694091*^9,
+ 3.839580609623364*^9, 3.839581130179451*^9, 3.8395819023237257`*^9,
+ 3.83958217847613*^9, 3.839585321441502*^9, 3.839585715092175*^9,
+ 3.839586006674038*^9, 3.839586093327594*^9, 3.8395878655963697`*^9, {
+ 3.839588056051696*^9, 3.839588076066236*^9}, 3.839588110889903*^9},
CellLabel->
- "Out[122]=",ExpressionUUID->"9fd7e7b1-d507-4d93-8f71-aa0ccaa3be9c"]
+ "Out[1609]=",ExpressionUUID->"d48de788-35b4-47f7-9593-275f94f5ff9d"]
}, Open ]],
Cell[BoxData[{
@@ -211204,7 +215702,7 @@ Cell[BoxData[
CellLabel->
"Out[223]=",ExpressionUUID->"81535f12-c8a1-434a-ba4b-26c9a1782598"]
}, Open ]]
-}, Closed]],
+}, Open ]],
Cell[CellGroupData[{
@@ -281251,8 +285749,8 @@ Cell[BoxData["4.1052971990475674`*^12"], "Output",
}, Open ]]
}, Closed]]
},
-WindowSize->{957, 1062},
-WindowMargins->{{Automatic, 1.5}, {1.5, Automatic}},
+WindowSize->{635.25, 1060.5},
+WindowMargins->{{2.25, Automatic}, {2.25, Automatic}},
FrontEndVersion->"12.3 for Linux x86 (64-bit) (May 11, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"6f6c570c-dfc0-4320-bdc7-0f1de62bb24c"
@@ -281268,2143 +285766,2205 @@ CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
-Cell[558, 20, 596, 10, 24, "Input",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"],
-Cell[1157, 32, 545, 13, 41, "Input",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"],
+Cell[558, 20, 845, 14, 24, "Input",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"],
+Cell[1406, 36, 551, 14, 41, "Input",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"],
Cell[CellGroupData[{
-Cell[1727, 49, 207, 4, 50, "Section",ExpressionUUID->"bb531fce-8a9d-4a5f-8d6a-ec66b9fbf698"],
-Cell[1937, 55, 7430, 111, 71, "Input",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"],
+Cell[1982, 54, 207, 4, 50, "Section",ExpressionUUID->"bb531fce-8a9d-4a5f-8d6a-ec66b9fbf698"],
+Cell[2192, 60, 7734, 116, 71, "Input",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"],
Cell[CellGroupData[{
-Cell[9392, 170, 9397, 139, 22, "Input",ExpressionUUID->"3d566693-1b4e-4bc5-b33b-b8036e1e4822"],
-Cell[18792, 311, 1338, 26, 25, "Output",ExpressionUUID->"48c43e93-9be6-49d9-8ecf-8d376713aeb6"]
+Cell[9951, 180, 9757, 145, 55, "Input",ExpressionUUID->"3d566693-1b4e-4bc5-b33b-b8036e1e4822"],
+Cell[19711, 327, 2441, 49, 58, "Output",ExpressionUUID->"86062308-fdba-4d87-8210-7ea083d14ee1"]
}, Open ]],
-Cell[20145, 340, 5982, 91, 71, "Input",ExpressionUUID->"34ec14f2-e69a-4233-afa7-8b9340ca265f"],
Cell[CellGroupData[{
-Cell[26152, 435, 9286, 132, 24, "Input",ExpressionUUID->"3c891175-2642-465d-b121-e5989a86c957"],
-Cell[35441, 569, 1278, 26, 42, "Output",ExpressionUUID->"e5ca8ddf-7560-4d72-a8b2-b9a3fe1dea00"]
+Cell[22189, 381, 4513, 83, 115, "Input",ExpressionUUID->"3b9512c4-4741-4838-844f-dc1843a98be2"],
+Cell[26705, 466, 14373, 302, 450, "Output",ExpressionUUID->"2720c35a-79b8-423b-a048-5c7e2711f16a"]
}, Open ]],
-Cell[36734, 598, 6176, 94, 71, "Input",ExpressionUUID->"a96db868-d41f-433d-88d3-73a2b34157b2"],
+Cell[41093, 771, 6040, 93, 71, "Input",ExpressionUUID->"34ec14f2-e69a-4233-afa7-8b9340ca265f"],
Cell[CellGroupData[{
-Cell[42935, 696, 9503, 136, 24, "Input",ExpressionUUID->"9e3392d7-9445-477b-9e57-3faef08acef1"],
-Cell[52441, 834, 1792, 36, 42, "Output",ExpressionUUID->"dba58c9c-15d7-4d8c-8b80-bcf89e29e3f0"]
+Cell[47158, 868, 9291, 133, 24, "Input",ExpressionUUID->"3c891175-2642-465d-b121-e5989a86c957"],
+Cell[56452, 1003, 2120, 48, 58, "Output",ExpressionUUID->"38fb3ec6-64aa-4b63-b20b-7d35d2e4572a"]
}, Open ]],
-Cell[54248, 873, 5830, 89, 71, "Input",ExpressionUUID->"fb46f7c2-5761-4a64-9a5f-872dd3265e1c"],
+Cell[58587, 1054, 6231, 96, 71, "Input",ExpressionUUID->"a96db868-d41f-433d-88d3-73a2b34157b2"],
Cell[CellGroupData[{
-Cell[60103, 966, 9063, 130, 24, "Input",ExpressionUUID->"3d7346aa-9d8e-46fd-bcb4-ca52fff0d32a"],
-Cell[69169, 1098, 1700, 37, 42, "Output",ExpressionUUID->"d3885981-ee95-4189-85fb-672f5e65f744"]
+Cell[64843, 1154, 9498, 136, 24, "Input",ExpressionUUID->"9e3392d7-9445-477b-9e57-3faef08acef1"],
+Cell[74344, 1292, 815, 13, 25, "Output",ExpressionUUID->"6c61aadd-c965-4458-a165-ef7680648fc1"]
}, Open ]],
-Cell[70884, 1138, 5821, 89, 71, "Input",ExpressionUUID->"1a9cafff-78bf-40d5-9387-97742820a6dc"],
+Cell[75174, 1308, 5830, 89, 71, "Input",ExpressionUUID->"fb46f7c2-5761-4a64-9a5f-872dd3265e1c"],
Cell[CellGroupData[{
-Cell[76730, 1231, 9594, 137, 24, "Input",ExpressionUUID->"7bdef841-d628-418c-9bec-b16ca8655e30"],
-Cell[86327, 1370, 1846, 43, 44, "Output",ExpressionUUID->"1db50035-262f-41c8-897c-83b291232a25"]
+Cell[81029, 1401, 9063, 130, 24, "Input",ExpressionUUID->"3d7346aa-9d8e-46fd-bcb4-ca52fff0d32a"],
+Cell[90095, 1533, 1700, 37, 58, "Output",ExpressionUUID->"d3885981-ee95-4189-85fb-672f5e65f744"]
}, Open ]],
-Cell[88188, 1416, 6426, 97, 71, "Input",ExpressionUUID->"53343c2f-4579-48fe-afdc-6555d61fefc7"],
+Cell[91810, 1573, 5821, 89, 71, "Input",ExpressionUUID->"1a9cafff-78bf-40d5-9387-97742820a6dc"],
Cell[CellGroupData[{
-Cell[94639, 1517, 10050, 144, 24, "Input",ExpressionUUID->"19f0837b-60bb-491b-b21f-34926c9efae8"],
-Cell[104692, 1663, 2075, 47, 60, "Output",ExpressionUUID->"1588dece-8475-4068-8ebd-5f1063867c03"]
+Cell[97656, 1666, 9594, 137, 24, "Input",ExpressionUUID->"7bdef841-d628-418c-9bec-b16ca8655e30"],
+Cell[107253, 1805, 1846, 43, 76, "Output",ExpressionUUID->"1db50035-262f-41c8-897c-83b291232a25"]
}, Open ]],
-Cell[106782, 1713, 6179, 94, 71, "Input",ExpressionUUID->"3c48ca79-1fa5-4b7f-9423-94e659aae362"],
+Cell[109114, 1851, 6426, 97, 71, "Input",ExpressionUUID->"53343c2f-4579-48fe-afdc-6555d61fefc7"],
Cell[CellGroupData[{
-Cell[112986, 1811, 10046, 144, 24, "Input",ExpressionUUID->"c0c5581e-24f4-4c1d-bac2-acde9933d21a"],
-Cell[123035, 1957, 2245, 54, 60, "Output",ExpressionUUID->"730ed06e-f4a9-43d9-985a-dd73afa5028a"]
+Cell[115565, 1952, 10050, 144, 24, "Input",ExpressionUUID->"19f0837b-60bb-491b-b21f-34926c9efae8"],
+Cell[125618, 2098, 2075, 47, 76, "Output",ExpressionUUID->"1588dece-8475-4068-8ebd-5f1063867c03"]
}, Open ]],
-Cell[125295, 2014, 6797, 103, 71, "Input",ExpressionUUID->"89ac8434-0e5c-4a82-ae51-65e191e4c98a"],
+Cell[127708, 2148, 6179, 94, 71, "Input",ExpressionUUID->"3c48ca79-1fa5-4b7f-9423-94e659aae362"],
Cell[CellGroupData[{
-Cell[132117, 2121, 10048, 144, 24, "Input",ExpressionUUID->"a4de7394-b723-4a62-9094-2b462110711f"],
-Cell[142168, 2267, 2424, 59, 60, "Output",ExpressionUUID->"e3a248c2-6739-443e-a469-171bafbb4a39"]
+Cell[133912, 2246, 10046, 144, 24, "Input",ExpressionUUID->"c0c5581e-24f4-4c1d-bac2-acde9933d21a"],
+Cell[143961, 2392, 2245, 54, 92, "Output",ExpressionUUID->"730ed06e-f4a9-43d9-985a-dd73afa5028a"]
}, Open ]],
-Cell[144607, 2329, 7927, 118, 71, "Input",ExpressionUUID->"ec5df7b8-ae45-47d9-baba-654f2daf3d01"],
+Cell[146221, 2449, 6797, 103, 71, "Input",ExpressionUUID->"89ac8434-0e5c-4a82-ae51-65e191e4c98a"],
Cell[CellGroupData[{
-Cell[152559, 2451, 10310, 147, 24, "Input",ExpressionUUID->"c28fec6d-42be-4754-8ff5-9f7327a42e34"],
-Cell[162872, 2600, 3309, 75, 76, "Output",ExpressionUUID->"2f826db1-6725-439c-8bf9-7196d08ae46b"]
+Cell[153043, 2556, 10048, 144, 24, "Input",ExpressionUUID->"a4de7394-b723-4a62-9094-2b462110711f"],
+Cell[163094, 2702, 2424, 59, 92, "Output",ExpressionUUID->"e3a248c2-6739-443e-a469-171bafbb4a39"]
}, Open ]],
-Cell[166196, 2678, 7623, 113, 71, "Input",ExpressionUUID->"454bbf34-d098-476d-8e27-8e882ae07c56"],
+Cell[165533, 2764, 7927, 118, 71, "Input",ExpressionUUID->"ec5df7b8-ae45-47d9-baba-654f2daf3d01"],
Cell[CellGroupData[{
-Cell[173844, 2795, 12166, 172, 24, "Input",ExpressionUUID->"fdda266d-54c1-43db-b6a7-a3d02502cd24"],
-Cell[186013, 2969, 619, 12, 34, "Message",ExpressionUUID->"b4090613-0332-49f1-a196-74002379eeeb"],
-Cell[186635, 2983, 4332, 93, 76, "Output",ExpressionUUID->"1249aaa6-7d54-428c-8361-a89fa22f87ac"]
+Cell[173485, 2886, 10310, 147, 24, "Input",ExpressionUUID->"c28fec6d-42be-4754-8ff5-9f7327a42e34"],
+Cell[183798, 3035, 3309, 75, 108, "Output",ExpressionUUID->"2f826db1-6725-439c-8bf9-7196d08ae46b"]
}, Open ]],
-Cell[190982, 3079, 1152, 30, 24, "Input",ExpressionUUID->"7669b7fe-6525-47ea-bd17-bc39d72d2039"],
+Cell[187122, 3113, 7623, 113, 71, "Input",ExpressionUUID->"454bbf34-d098-476d-8e27-8e882ae07c56"],
Cell[CellGroupData[{
-Cell[192159, 3113, 965, 15, 24, "Input",ExpressionUUID->"0d0e5cda-a6fc-4708-80da-b887f6838668"],
-Cell[193127, 3130, 14028, 314, 407, "Output",ExpressionUUID->"1661a955-9e84-44df-abe5-8a178d2f912d"]
+Cell[194770, 3230, 12166, 172, 24, "Input",ExpressionUUID->"fdda266d-54c1-43db-b6a7-a3d02502cd24"],
+Cell[206939, 3404, 619, 12, 34, "Message",ExpressionUUID->"b4090613-0332-49f1-a196-74002379eeeb"],
+Cell[207561, 3418, 4332, 93, 124, "Output",ExpressionUUID->"1249aaa6-7d54-428c-8361-a89fa22f87ac"]
}, Open ]],
+Cell[211908, 3514, 1152, 30, 56, "Input",ExpressionUUID->"7669b7fe-6525-47ea-bd17-bc39d72d2039"],
Cell[CellGroupData[{
-Cell[207192, 3449, 1676, 45, 39, "Input",ExpressionUUID->"9112def6-5ff6-4224-8356-f50fa415d2f3"],
-Cell[208871, 3496, 420, 10, 32, "Message",ExpressionUUID->"311d3fb6-3107-4bba-ae21-2a9d8e2be9ff"],
-Cell[209294, 3508, 454, 11, 22, "Message",ExpressionUUID->"382c6f48-8be5-4040-8352-c107dd4acfcb"],
-Cell[209751, 3521, 420, 10, 32, "Message",ExpressionUUID->"db776803-ed60-4310-a108-852c80375404"],
-Cell[210174, 3533, 455, 11, 22, "Message",ExpressionUUID->"c054e628-2d2f-4c9d-b97f-3211d4a28e43"],
-Cell[210632, 3546, 418, 10, 32, "Message",ExpressionUUID->"be1896cd-ee42-475f-8df0-db9105e2a00f"],
-Cell[211053, 3558, 500, 11, 22, "Message",ExpressionUUID->"1c3e5739-b049-43f2-a094-b9e364dedc14"],
-Cell[211556, 3571, 455, 11, 22, "Message",ExpressionUUID->"8781108e-dab4-4d69-bb59-846e2cf30536"],
-Cell[212014, 3584, 506, 11, 22, "Message",ExpressionUUID->"b4b28af2-b0fd-4fee-8ea1-a1b8599ad243"]
+Cell[213085, 3548, 965, 15, 24, "Input",ExpressionUUID->"0d0e5cda-a6fc-4708-80da-b887f6838668"],
+Cell[214053, 3565, 14028, 314, 407, "Output",ExpressionUUID->"1661a955-9e84-44df-abe5-8a178d2f912d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[212557, 3600, 438, 10, 24, "Input",ExpressionUUID->"0b79b970-7045-4be7-b49f-562e6773070c"],
-Cell[212998, 3612, 6128, 128, 371, "Output",ExpressionUUID->"a1b2e831-9c0c-4c48-9c35-6781403e92e0"]
+Cell[228118, 3884, 1676, 45, 89, "Input",ExpressionUUID->"9112def6-5ff6-4224-8356-f50fa415d2f3"],
+Cell[229797, 3931, 420, 10, 32, "Message",ExpressionUUID->"311d3fb6-3107-4bba-ae21-2a9d8e2be9ff"],
+Cell[230220, 3943, 454, 11, 22, "Message",ExpressionUUID->"382c6f48-8be5-4040-8352-c107dd4acfcb"],
+Cell[230677, 3956, 420, 10, 32, "Message",ExpressionUUID->"db776803-ed60-4310-a108-852c80375404"],
+Cell[231100, 3968, 455, 11, 22, "Message",ExpressionUUID->"c054e628-2d2f-4c9d-b97f-3211d4a28e43"],
+Cell[231558, 3981, 418, 10, 32, "Message",ExpressionUUID->"be1896cd-ee42-475f-8df0-db9105e2a00f"],
+Cell[231979, 3993, 500, 11, 22, "Message",ExpressionUUID->"1c3e5739-b049-43f2-a094-b9e364dedc14"],
+Cell[232482, 4006, 455, 11, 22, "Message",ExpressionUUID->"8781108e-dab4-4d69-bb59-846e2cf30536"],
+Cell[232940, 4019, 506, 11, 22, "Message",ExpressionUUID->"b4b28af2-b0fd-4fee-8ea1-a1b8599ad243"]
}, Open ]],
Cell[CellGroupData[{
-Cell[219163, 3745, 1430, 28, 22, "Input",ExpressionUUID->"71c1d9b7-0cf0-408f-a132-11f858bc49f0"],
-Cell[220596, 3775, 57150, 1057, 481, "Output",ExpressionUUID->"5e583bca-872b-4fe1-bd8e-e1bcce981a2c"]
+Cell[233483, 4035, 438, 10, 24, "Input",ExpressionUUID->"0b79b970-7045-4be7-b49f-562e6773070c"],
+Cell[233924, 4047, 6128, 128, 371, "Output",ExpressionUUID->"a1b2e831-9c0c-4c48-9c35-6781403e92e0"]
}, Open ]],
Cell[CellGroupData[{
-Cell[277783, 4837, 1914, 42, 22, "Input",ExpressionUUID->"7b03bcdf-5941-4689-8045-07928a4af682"],
-Cell[279700, 4881, 44198, 852, 481, "Output",ExpressionUUID->"d7ee8225-65ff-4705-be5c-8b8dbe6fa41b"]
+Cell[240089, 4180, 1430, 28, 22, "Input",ExpressionUUID->"71c1d9b7-0cf0-408f-a132-11f858bc49f0"],
+Cell[241522, 4210, 57150, 1057, 481, "Output",ExpressionUUID->"5e583bca-872b-4fe1-bd8e-e1bcce981a2c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[323935, 5738, 1241, 24, 22, "Input",ExpressionUUID->"fa8135b4-fdf8-4590-be4e-73b4dd086cab"],
-Cell[325179, 5764, 39287, 677, 414, "Output",ExpressionUUID->"04ca030c-e442-4c61-8c4a-d152e5c203ae"]
+Cell[298709, 5272, 1914, 42, 39, "Input",ExpressionUUID->"7b03bcdf-5941-4689-8045-07928a4af682"],
+Cell[300626, 5316, 44198, 852, 481, "Output",ExpressionUUID->"d7ee8225-65ff-4705-be5c-8b8dbe6fa41b"]
}, Open ]],
-Cell[364481, 6444, 507, 15, 22, "Input",ExpressionUUID->"29cea7b5-4fca-4cb4-8837-f04711b34c21"],
Cell[CellGroupData[{
-Cell[365013, 6463, 2233, 57, 41, "Input",ExpressionUUID->"53b7755a-6f34-4db5-8104-878ea3587d8e"],
-Cell[367249, 6522, 19843, 349, 387, "Output",ExpressionUUID->"616ea1b5-1320-415b-a819-c2f94d93d7ea"]
+Cell[344861, 6173, 1241, 24, 22, "Input",ExpressionUUID->"fa8135b4-fdf8-4590-be4e-73b4dd086cab"],
+Cell[346105, 6199, 39287, 677, 414, "Output",ExpressionUUID->"04ca030c-e442-4c61-8c4a-d152e5c203ae"]
}, Open ]],
+Cell[385407, 6879, 507, 15, 22, "Input",ExpressionUUID->"29cea7b5-4fca-4cb4-8837-f04711b34c21"],
Cell[CellGroupData[{
-Cell[387129, 6876, 444, 12, 22, "Input",ExpressionUUID->"76c95b5f-6514-4856-b4c5-cd646cd37488"],
-Cell[387576, 6890, 383, 9, 25, "Output",ExpressionUUID->"74073881-f4b4-4f07-8f9a-cd7d59bc3693"]
+Cell[385939, 6898, 2233, 57, 93, "Input",ExpressionUUID->"53b7755a-6f34-4db5-8104-878ea3587d8e"],
+Cell[388175, 6957, 19843, 349, 387, "Output",ExpressionUUID->"616ea1b5-1320-415b-a819-c2f94d93d7ea"]
}, Open ]],
Cell[CellGroupData[{
-Cell[387996, 6904, 941, 26, 22, "Input",ExpressionUUID->"02a5f468-5569-4ef4-9ad7-428f9cf2d754"],
-Cell[388940, 6932, 663, 15, 27, "Output",ExpressionUUID->"724a73d3-c790-4baa-985a-a709e0354abe"]
+Cell[408055, 7311, 444, 12, 22, "Input",ExpressionUUID->"76c95b5f-6514-4856-b4c5-cd646cd37488"],
+Cell[408502, 7325, 383, 9, 25, "Output",ExpressionUUID->"74073881-f4b4-4f07-8f9a-cd7d59bc3693"]
}, Open ]],
Cell[CellGroupData[{
-Cell[389640, 6952, 797, 23, 24, "Input",ExpressionUUID->"7273c588-8e35-4fbd-8ebc-898cedb2387b"],
-Cell[390440, 6977, 599, 13, 27, "Output",ExpressionUUID->"6bcb7016-9e42-477f-b8aa-2bf28ae5ec18"]
+Cell[408922, 7339, 941, 26, 22, "Input",ExpressionUUID->"02a5f468-5569-4ef4-9ad7-428f9cf2d754"],
+Cell[409866, 7367, 663, 15, 44, "Output",ExpressionUUID->"724a73d3-c790-4baa-985a-a709e0354abe"]
}, Open ]],
Cell[CellGroupData[{
-Cell[391076, 6995, 340, 9, 22, "Input",ExpressionUUID->"4696ee08-41ed-480a-83d4-b7dcd649182e"],
-Cell[391419, 7006, 328, 8, 25, "Output",ExpressionUUID->"581be5fa-833d-44bd-98d5-dde94e4dd98c"]
+Cell[410566, 7387, 797, 23, 24, "Input",ExpressionUUID->"7273c588-8e35-4fbd-8ebc-898cedb2387b"],
+Cell[411366, 7412, 599, 13, 44, "Output",ExpressionUUID->"6bcb7016-9e42-477f-b8aa-2bf28ae5ec18"]
}, Open ]],
Cell[CellGroupData[{
-Cell[391784, 7019, 2122, 56, 41, "Input",ExpressionUUID->"73fa0a9d-2aa5-49d6-b995-2f0dc2997c86"],
-Cell[393909, 7077, 64213, 1083, 585, "Output",ExpressionUUID->"596e78c8-422c-425b-b6d3-1d4f2a3368df"]
+Cell[412002, 7430, 340, 9, 22, "Input",ExpressionUUID->"4696ee08-41ed-480a-83d4-b7dcd649182e"],
+Cell[412345, 7441, 328, 8, 25, "Output",ExpressionUUID->"581be5fa-833d-44bd-98d5-dde94e4dd98c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[458159, 8165, 3980, 98, 93, "Input",ExpressionUUID->"d049de83-a67f-4f70-9161-28ea593a16b8"],
-Cell[462142, 8265, 42720, 721, 396, "Output",ExpressionUUID->"97929a1a-4107-4c3b-91b5-b4aea31a6a12"]
+Cell[412710, 7454, 2122, 56, 93, "Input",ExpressionUUID->"73fa0a9d-2aa5-49d6-b995-2f0dc2997c86"],
+Cell[414835, 7512, 64213, 1083, 585, "Output",ExpressionUUID->"596e78c8-422c-425b-b6d3-1d4f2a3368df"]
}, Open ]],
Cell[CellGroupData[{
-Cell[504899, 8991, 2118, 46, 24, "Input",ExpressionUUID->"ff8b8a76-8ef5-4079-b3c2-caca5f90a239"],
-Cell[507020, 9039, 33581, 577, 368, "Output",ExpressionUUID->"ceca4cf7-358a-4475-9d74-be5382099c4a"]
+Cell[479085, 8600, 3980, 98, 110, "Input",ExpressionUUID->"d049de83-a67f-4f70-9161-28ea593a16b8"],
+Cell[483068, 8700, 42720, 721, 396, "Output",ExpressionUUID->"97929a1a-4107-4c3b-91b5-b4aea31a6a12"]
}, Open ]],
Cell[CellGroupData[{
-Cell[540638, 9621, 883, 24, 38, "Input",ExpressionUUID->"84fba399-0d44-478f-82db-cf6e8f6da218"],
-Cell[541524, 9647, 1297, 32, 35, "Output",ExpressionUUID->"fc27ce97-44b5-4fd9-9fc6-8e3a80767ebc"]
+Cell[525825, 9426, 2118, 46, 59, "Input",ExpressionUUID->"ff8b8a76-8ef5-4079-b3c2-caca5f90a239"],
+Cell[527946, 9474, 33581, 577, 368, "Output",ExpressionUUID->"ceca4cf7-358a-4475-9d74-be5382099c4a"]
}, Open ]],
Cell[CellGroupData[{
-Cell[542858, 9684, 1030, 30, 40, "Input",ExpressionUUID->"5e586711-0483-46d1-bccb-b6897d71c1e8"],
-Cell[543891, 9716, 1137, 23, 122, "Output",ExpressionUUID->"2fa1caa4-ef1f-4ffd-8afc-94b16ed218ad"]
+Cell[561564, 10056, 883, 24, 38, "Input",ExpressionUUID->"84fba399-0d44-478f-82db-cf6e8f6da218"],
+Cell[562450, 10082, 1297, 32, 35, "Output",ExpressionUUID->"fc27ce97-44b5-4fd9-9fc6-8e3a80767ebc"]
}, Open ]],
Cell[CellGroupData[{
-Cell[545065, 9744, 201, 3, 22, "Input",ExpressionUUID->"0bf0ad7a-0c38-45b3-944f-2cd642717885"],
-Cell[545269, 9749, 2450, 62, 76, "Output",ExpressionUUID->"cb46a863-90ee-473f-82db-5dc2a45b693e"]
+Cell[563784, 10119, 1030, 30, 57, "Input",ExpressionUUID->"5e586711-0483-46d1-bccb-b6897d71c1e8"],
+Cell[564817, 10151, 1137, 23, 169, "Output",ExpressionUUID->"2fa1caa4-ef1f-4ffd-8afc-94b16ed218ad"]
}, Open ]],
Cell[CellGroupData[{
-Cell[547756, 9816, 1854, 45, 99, "Input",ExpressionUUID->"f15d8a52-1992-4696-8ead-3c4153434e55"],
-Cell[549613, 9863, 6148, 119, 449, "Output",ExpressionUUID->"7c16b4f6-053a-49c7-adfb-2ff4cd3d1825"]
+Cell[565991, 10179, 201, 3, 22, "Input",ExpressionUUID->"0bf0ad7a-0c38-45b3-944f-2cd642717885"],
+Cell[566195, 10184, 2450, 62, 108, "Output",ExpressionUUID->"cb46a863-90ee-473f-82db-5dc2a45b693e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[555798, 9987, 466, 10, 22, "Input",ExpressionUUID->"f9fe281b-b610-448a-b868-789cd1438874"],
-Cell[556267, 9999, 1717, 42, 271, "Output",ExpressionUUID->"cd6820b3-ec18-4309-a325-d9260e362bf3"]
+Cell[568682, 10251, 1854, 45, 119, "Input",ExpressionUUID->"f15d8a52-1992-4696-8ead-3c4153434e55"],
+Cell[570539, 10298, 6148, 119, 449, "Output",ExpressionUUID->"7c16b4f6-053a-49c7-adfb-2ff4cd3d1825"]
}, Open ]],
Cell[CellGroupData[{
-Cell[558021, 10046, 1284, 28, 75, "Input",ExpressionUUID->"379795e2-1f10-4c9d-aca9-574975c0b53e"],
-Cell[559308, 10076, 6221, 139, 181, "Output",ExpressionUUID->"e32fce1f-84cc-4e58-9ec5-270c393270f4"]
+Cell[576724, 10422, 466, 10, 22, "Input",ExpressionUUID->"f9fe281b-b610-448a-b868-789cd1438874"],
+Cell[577193, 10434, 1717, 42, 271, "Output",ExpressionUUID->"cd6820b3-ec18-4309-a325-d9260e362bf3"]
}, Open ]],
-Cell[565544, 10218, 5436, 83, 71, "Input",ExpressionUUID->"614f63fe-75a0-4c56-b782-48ad98bc3c89"],
Cell[CellGroupData[{
-Cell[571005, 10305, 9564, 136, 24, "Input",ExpressionUUID->"b56cc8a2-a504-4115-9171-a6a6d7088e3d"],
-Cell[580572, 10443, 7487, 126, 60, "Output",ExpressionUUID->"56bd1e88-9615-4515-9caf-f2b140d00ea4"]
+Cell[578947, 10481, 1284, 28, 75, "Input",ExpressionUUID->"379795e2-1f10-4c9d-aca9-574975c0b53e"],
+Cell[580234, 10511, 6221, 139, 181, "Output",ExpressionUUID->"e32fce1f-84cc-4e58-9ec5-270c393270f4"]
}, Open ]],
-Cell[588074, 10572, 5536, 85, 71, "Input",ExpressionUUID->"8507c1e3-d3a8-4bd7-b4aa-90d91d45805d"],
+Cell[586470, 10653, 5436, 83, 71, "Input",ExpressionUUID->"614f63fe-75a0-4c56-b782-48ad98bc3c89"],
Cell[CellGroupData[{
-Cell[593635, 10661, 9601, 136, 24, "Input",ExpressionUUID->"de38480a-2d94-4587-b72d-6e029e15ee96"],
-Cell[603239, 10799, 7667, 130, 60, "Output",ExpressionUUID->"43225297-d195-4377-8f95-86dbf3b45b01"]
+Cell[591931, 10740, 9564, 136, 24, "Input",ExpressionUUID->"b56cc8a2-a504-4115-9171-a6a6d7088e3d"],
+Cell[601498, 10878, 7487, 126, 60, "Output",ExpressionUUID->"56bd1e88-9615-4515-9caf-f2b140d00ea4"]
}, Open ]],
-Cell[610921, 10932, 5834, 89, 71, "Input",ExpressionUUID->"2ec9732b-3292-49d0-bac5-10ca2b2e2d27"],
+Cell[609000, 11007, 5536, 85, 71, "Input",ExpressionUUID->"8507c1e3-d3a8-4bd7-b4aa-90d91d45805d"],
Cell[CellGroupData[{
-Cell[616780, 11025, 9747, 138, 24, "Input",ExpressionUUID->"139619cc-039b-4609-af7c-bff6ef22fb47"],
-Cell[626530, 11165, 5810, 80, 25, "Output",ExpressionUUID->"afa14344-bd55-431e-aa6c-c70efe6c5a4d"]
+Cell[614561, 11096, 9601, 136, 24, "Input",ExpressionUUID->"de38480a-2d94-4587-b72d-6e029e15ee96"],
+Cell[624165, 11234, 7667, 130, 60, "Output",ExpressionUUID->"43225297-d195-4377-8f95-86dbf3b45b01"]
}, Open ]],
+Cell[631847, 11367, 5834, 89, 71, "Input",ExpressionUUID->"2ec9732b-3292-49d0-bac5-10ca2b2e2d27"],
Cell[CellGroupData[{
-Cell[632377, 11250, 173, 4, 22, "Input",ExpressionUUID->"0187bca3-1d0a-4623-aec5-953f437b51fd"],
-Cell[632553, 11256, 189, 4, 25, "Output",ExpressionUUID->"598fc733-e306-4afa-b2be-5b73d49e16c2"]
+Cell[637706, 11460, 9747, 138, 24, "Input",ExpressionUUID->"139619cc-039b-4609-af7c-bff6ef22fb47"],
+Cell[647456, 11600, 5810, 80, 25, "Output",ExpressionUUID->"afa14344-bd55-431e-aa6c-c70efe6c5a4d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[632779, 11265, 458, 12, 22, "Input",ExpressionUUID->"73d2b785-99f4-4bfb-b83d-3176ccfa253d"],
-Cell[633240, 11279, 335, 6, 25, "Output",ExpressionUUID->"d9b0e840-276e-4933-8ac7-3b44810cdfd7"]
+Cell[653303, 11685, 173, 4, 22, "Input",ExpressionUUID->"0187bca3-1d0a-4623-aec5-953f437b51fd"],
+Cell[653479, 11691, 189, 4, 25, "Output",ExpressionUUID->"598fc733-e306-4afa-b2be-5b73d49e16c2"]
}, Open ]],
Cell[CellGroupData[{
-Cell[633612, 11290, 183, 3, 22, "Input",ExpressionUUID->"a3876a42-f9a7-42bf-bb98-8f496b0b9429"],
-Cell[633798, 11295, 793, 19, 25, "Output",ExpressionUUID->"25c6c990-0648-4b53-88ec-85fbf153b84d"]
+Cell[653705, 11700, 458, 12, 22, "Input",ExpressionUUID->"73d2b785-99f4-4bfb-b83d-3176ccfa253d"],
+Cell[654166, 11714, 335, 6, 25, "Output",ExpressionUUID->"d9b0e840-276e-4933-8ac7-3b44810cdfd7"]
}, Open ]],
Cell[CellGroupData[{
-Cell[634628, 11319, 8397, 231, 246, "Input",ExpressionUUID->"a8eefdf0-e27a-49c2-a914-30fe2e3be695"],
-Cell[643028, 11552, 10866, 253, 170, "Output",ExpressionUUID->"74dd1d49-7e7f-4e72-b8c9-ce6b451108d3"]
+Cell[654538, 11725, 183, 3, 22, "Input",ExpressionUUID->"a3876a42-f9a7-42bf-bb98-8f496b0b9429"],
+Cell[654724, 11730, 793, 19, 25, "Output",ExpressionUUID->"25c6c990-0648-4b53-88ec-85fbf153b84d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[653931, 11810, 459, 12, 24, "Input",ExpressionUUID->"87e7aafd-8c36-4839-935c-cc46bf1f01dd"],
-Cell[654393, 11824, 618, 13, 25, "Output",ExpressionUUID->"fe7c92bd-96d2-4bd2-8311-6587e6a29f3e"]
+Cell[655554, 11754, 8397, 231, 246, "Input",ExpressionUUID->"a8eefdf0-e27a-49c2-a914-30fe2e3be695"],
+Cell[663954, 11987, 10866, 253, 170, "Output",ExpressionUUID->"74dd1d49-7e7f-4e72-b8c9-ce6b451108d3"]
}, Open ]],
Cell[CellGroupData[{
-Cell[655048, 11842, 517, 14, 22, "Input",ExpressionUUID->"148e9d0d-8b87-4af5-afd5-d33dbd331cbd"],
-Cell[655568, 11858, 623, 13, 25, "Output",ExpressionUUID->"2cb15991-5446-4550-9d2b-990382cc6e0b"]
+Cell[674857, 12245, 459, 12, 24, "Input",ExpressionUUID->"87e7aafd-8c36-4839-935c-cc46bf1f01dd"],
+Cell[675319, 12259, 618, 13, 25, "Output",ExpressionUUID->"fe7c92bd-96d2-4bd2-8311-6587e6a29f3e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[656228, 11876, 579, 16, 22, "Input",ExpressionUUID->"8daebff1-3cc2-4bf5-8cc4-604c65c548b0"],
-Cell[656810, 11894, 316, 5, 25, "Output",ExpressionUUID->"9cd4be6d-9037-487d-805c-0e30c732a88f"]
+Cell[675974, 12277, 517, 14, 22, "Input",ExpressionUUID->"148e9d0d-8b87-4af5-afd5-d33dbd331cbd"],
+Cell[676494, 12293, 623, 13, 25, "Output",ExpressionUUID->"2cb15991-5446-4550-9d2b-990382cc6e0b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[657163, 11904, 315, 8, 22, "Input",ExpressionUUID->"ec87e975-8e91-4764-a5f8-d113176427a6"],
-Cell[657481, 11914, 269, 4, 25, "Output",ExpressionUUID->"682ebcdb-8d48-4545-9fb6-2815a9591a34"]
+Cell[677154, 12311, 579, 16, 22, "Input",ExpressionUUID->"8daebff1-3cc2-4bf5-8cc4-604c65c548b0"],
+Cell[677736, 12329, 316, 5, 25, "Output",ExpressionUUID->"9cd4be6d-9037-487d-805c-0e30c732a88f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[657787, 11923, 1119, 32, 24, "Input",ExpressionUUID->"bd4bec0c-34d4-42ea-8210-676c5a4f3b02"],
-Cell[658909, 11957, 737, 13, 25, "Output",ExpressionUUID->"6744c9f9-54df-4620-86fe-20c2a1fb0a38"]
+Cell[678089, 12339, 315, 8, 22, "Input",ExpressionUUID->"ec87e975-8e91-4764-a5f8-d113176427a6"],
+Cell[678407, 12349, 269, 4, 25, "Output",ExpressionUUID->"682ebcdb-8d48-4545-9fb6-2815a9591a34"]
}, Open ]],
-Cell[659661, 11973, 1033, 17, 22, "Input",ExpressionUUID->"cb5903e7-4ebd-478a-913d-f8dce03353cd"],
Cell[CellGroupData[{
-Cell[660719, 11994, 255, 4, 22, "Input",ExpressionUUID->"7f91ac8c-3dfe-4e6e-876b-c110d899b203"],
-Cell[660977, 12000, 244, 3, 25, "Output",ExpressionUUID->"66d898e0-c199-4cd1-8c92-f951620499ab"]
+Cell[678713, 12358, 1119, 32, 24, "Input",ExpressionUUID->"bd4bec0c-34d4-42ea-8210-676c5a4f3b02"],
+Cell[679835, 12392, 737, 13, 25, "Output",ExpressionUUID->"6744c9f9-54df-4620-86fe-20c2a1fb0a38"]
}, Open ]],
+Cell[680587, 12408, 1033, 17, 22, "Input",ExpressionUUID->"cb5903e7-4ebd-478a-913d-f8dce03353cd"],
Cell[CellGroupData[{
-Cell[661258, 12008, 1406, 29, 24, "Input",ExpressionUUID->"d7af33b7-ba2b-49a3-aafc-91ee8eb488da"],
-Cell[662667, 12039, 823, 11, 25, "Output",ExpressionUUID->"76e092cb-b3ca-4ad3-8371-d22bc3bdbfec"]
+Cell[681645, 12429, 255, 4, 22, "Input",ExpressionUUID->"7f91ac8c-3dfe-4e6e-876b-c110d899b203"],
+Cell[681903, 12435, 244, 3, 25, "Output",ExpressionUUID->"66d898e0-c199-4cd1-8c92-f951620499ab"]
}, Open ]],
Cell[CellGroupData[{
-Cell[663527, 12055, 1182, 28, 71, "Input",ExpressionUUID->"ba65a569-6e06-47f2-aa64-ce40ed720e16"],
-Cell[664712, 12085, 11988, 282, 183, "Output",ExpressionUUID->"49a28651-b01d-4119-8b17-5cececd6f4d8"]
+Cell[682184, 12443, 1406, 29, 24, "Input",ExpressionUUID->"d7af33b7-ba2b-49a3-aafc-91ee8eb488da"],
+Cell[683593, 12474, 823, 11, 25, "Output",ExpressionUUID->"76e092cb-b3ca-4ad3-8371-d22bc3bdbfec"]
}, Open ]],
-Cell[676715, 12370, 1095, 20, 22, "Input",ExpressionUUID->"f53418ef-e0c9-44a5-92b0-cb484b4f96c8"],
Cell[CellGroupData[{
-Cell[677835, 12394, 1989, 47, 75, "Input",ExpressionUUID->"a30a4640-3744-4c0b-9800-1073a0fa0d50"],
-Cell[679827, 12443, 261, 5, 25, "Output",ExpressionUUID->"a91af46f-115e-4b5b-a963-4e64b27789f9"]
+Cell[684453, 12490, 1182, 28, 71, "Input",ExpressionUUID->"ba65a569-6e06-47f2-aa64-ce40ed720e16"],
+Cell[685638, 12520, 11988, 282, 183, "Output",ExpressionUUID->"49a28651-b01d-4119-8b17-5cececd6f4d8"]
}, Open ]],
+Cell[697641, 12805, 1095, 20, 22, "Input",ExpressionUUID->"f53418ef-e0c9-44a5-92b0-cb484b4f96c8"],
Cell[CellGroupData[{
-Cell[680125, 12453, 3516, 71, 75, "Input",ExpressionUUID->"6c557c5e-e6b4-4351-9c51-9653ebaa3755"],
-Cell[683644, 12526, 2601, 36, 25, "Output",ExpressionUUID->"d46b93fb-0f62-45fa-a6de-37bde5cbd060"]
+Cell[698761, 12829, 1989, 47, 75, "Input",ExpressionUUID->"a30a4640-3744-4c0b-9800-1073a0fa0d50"],
+Cell[700753, 12878, 261, 5, 25, "Output",ExpressionUUID->"a91af46f-115e-4b5b-a963-4e64b27789f9"]
}, Open ]],
Cell[CellGroupData[{
-Cell[686282, 12567, 1025, 28, 37, "Input",ExpressionUUID->"b157e171-c7d5-47f2-b745-8f2e8fa0198c"],
-Cell[687310, 12597, 538, 12, 25, "Output",ExpressionUUID->"5a0db3ec-ac1c-432f-adee-e6747b4db94f"]
+Cell[701051, 12888, 3516, 71, 75, "Input",ExpressionUUID->"6c557c5e-e6b4-4351-9c51-9653ebaa3755"],
+Cell[704570, 12961, 2601, 36, 25, "Output",ExpressionUUID->"d46b93fb-0f62-45fa-a6de-37bde5cbd060"]
}, Open ]],
Cell[CellGroupData[{
-Cell[687885, 12614, 940, 24, 24, "Input",ExpressionUUID->"bdb84812-f388-49c2-8ac6-3080c735f5e5"],
-Cell[688828, 12640, 2600, 82, 44, "Output",ExpressionUUID->"b941a263-57d9-4309-b289-83857d3df95f"]
+Cell[707208, 13002, 1025, 28, 37, "Input",ExpressionUUID->"b157e171-c7d5-47f2-b745-8f2e8fa0198c"],
+Cell[708236, 13032, 538, 12, 25, "Output",ExpressionUUID->"5a0db3ec-ac1c-432f-adee-e6747b4db94f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[691465, 12727, 312, 7, 22, "Input",ExpressionUUID->"7fec8d25-6d0b-475e-a3c6-8b90b79f873e"],
-Cell[691780, 12736, 210, 4, 25, "Output",ExpressionUUID->"48c117a8-371e-45ba-aa5f-facdd5f694ec"]
+Cell[708811, 13049, 940, 24, 24, "Input",ExpressionUUID->"bdb84812-f388-49c2-8ac6-3080c735f5e5"],
+Cell[709754, 13075, 2600, 82, 44, "Output",ExpressionUUID->"b941a263-57d9-4309-b289-83857d3df95f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[692027, 12745, 624, 18, 39, "Input",ExpressionUUID->"feb6f5a0-8271-4175-8fd5-743c24ab49d2"],
-Cell[692654, 12765, 632, 12, 25, "Output",ExpressionUUID->"b00b9646-7ea6-4e6c-895b-add09ba6b344"]
+Cell[712391, 13162, 312, 7, 22, "Input",ExpressionUUID->"7fec8d25-6d0b-475e-a3c6-8b90b79f873e"],
+Cell[712706, 13171, 210, 4, 25, "Output",ExpressionUUID->"48c117a8-371e-45ba-aa5f-facdd5f694ec"]
}, Open ]],
Cell[CellGroupData[{
-Cell[693323, 12782, 1364, 36, 58, "Input",ExpressionUUID->"5553a701-d8ac-42d8-bf96-f61247fd91d5"],
-Cell[694690, 12820, 24078, 497, 171, "Output",ExpressionUUID->"ff2eefd5-74bd-4633-a9f6-bb1945c40989"]
+Cell[712953, 13180, 624, 18, 39, "Input",ExpressionUUID->"feb6f5a0-8271-4175-8fd5-743c24ab49d2"],
+Cell[713580, 13200, 632, 12, 25, "Output",ExpressionUUID->"b00b9646-7ea6-4e6c-895b-add09ba6b344"]
}, Open ]],
-Cell[718783, 13320, 4656, 71, 55, "Input",ExpressionUUID->"4dc1af41-4bef-447e-a233-c8c033887359"],
Cell[CellGroupData[{
-Cell[723464, 13395, 7928, 115, 22, "Input",ExpressionUUID->"e74b775a-c745-4f15-9b63-7bb00af5a487"],
-Cell[731395, 13512, 440, 10, 22, "Message",ExpressionUUID->"05b00b91-b292-4f86-8ac1-2cad1d50f51c"],
-Cell[731838, 13524, 5412, 91, 42, "Output",ExpressionUUID->"54c0d651-a676-4819-8283-9d2b33e602fc"]
+Cell[714249, 13217, 1364, 36, 58, "Input",ExpressionUUID->"5553a701-d8ac-42d8-bf96-f61247fd91d5"],
+Cell[715616, 13255, 24078, 497, 171, "Output",ExpressionUUID->"ff2eefd5-74bd-4633-a9f6-bb1945c40989"]
}, Open ]],
+Cell[739709, 13755, 4656, 71, 55, "Input",ExpressionUUID->"4dc1af41-4bef-447e-a233-c8c033887359"],
Cell[CellGroupData[{
-Cell[737287, 13620, 1935, 37, 71, "Input",ExpressionUUID->"fb42dfa6-f948-472b-87e8-e4cb6e90ba26"],
-Cell[739225, 13659, 18227, 329, 137, "Output",ExpressionUUID->"21f29296-03a7-4cc8-b760-b71dfa22b325"]
+Cell[744390, 13830, 7928, 115, 22, "Input",ExpressionUUID->"e74b775a-c745-4f15-9b63-7bb00af5a487"],
+Cell[752321, 13947, 440, 10, 22, "Message",ExpressionUUID->"05b00b91-b292-4f86-8ac1-2cad1d50f51c"],
+Cell[752764, 13959, 5412, 91, 42, "Output",ExpressionUUID->"54c0d651-a676-4819-8283-9d2b33e602fc"]
}, Open ]],
Cell[CellGroupData[{
-Cell[757489, 13993, 1636, 43, 41, "Input",ExpressionUUID->"a60f4b40-cbec-4d33-97f5-65de16370f80"],
-Cell[759128, 14038, 221293, 3642, 180, "Output",ExpressionUUID->"820bd75e-ec9c-4db8-b5e7-96cfd532640b"]
+Cell[758213, 14055, 1935, 37, 71, "Input",ExpressionUUID->"fb42dfa6-f948-472b-87e8-e4cb6e90ba26"],
+Cell[760151, 14094, 18227, 329, 137, "Output",ExpressionUUID->"21f29296-03a7-4cc8-b760-b71dfa22b325"]
}, Open ]],
Cell[CellGroupData[{
-Cell[980458, 17685, 1661, 43, 41, "Input",ExpressionUUID->"49d01b4e-c864-4298-94b7-ace002b965d8"],
-Cell[982122, 17730, 221490, 3645, 180, "Output",ExpressionUUID->"3156e626-6fd1-4878-b776-44c6cf7fef12"]
+Cell[778415, 14428, 1636, 43, 41, "Input",ExpressionUUID->"a60f4b40-cbec-4d33-97f5-65de16370f80"],
+Cell[780054, 14473, 221293, 3642, 180, "Output",ExpressionUUID->"820bd75e-ec9c-4db8-b5e7-96cfd532640b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1203649, 21380, 718, 19, 39, "Input",ExpressionUUID->"4cefebbf-3ee0-49eb-85d3-1f8acdd03d03"],
-Cell[1204370, 21401, 689, 13, 27, "Output",ExpressionUUID->"5fad1eab-bed9-4cd3-a21b-8c8758b922eb"]
+Cell[1001384, 18120, 1661, 43, 41, "Input",ExpressionUUID->"49d01b4e-c864-4298-94b7-ace002b965d8"],
+Cell[1003048, 18165, 221490, 3645, 180, "Output",ExpressionUUID->"3156e626-6fd1-4878-b776-44c6cf7fef12"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1205096, 21419, 3389, 70, 75, "Input",ExpressionUUID->"82d96d28-401c-43fa-8337-b55bfd500552"],
-Cell[1208488, 21491, 12735, 275, 138, "Output",ExpressionUUID->"1ab9ef64-9a55-4344-9cb3-5443ea2b020c"]
+Cell[1224575, 21815, 718, 19, 39, "Input",ExpressionUUID->"4cefebbf-3ee0-49eb-85d3-1f8acdd03d03"],
+Cell[1225296, 21836, 689, 13, 27, "Output",ExpressionUUID->"5fad1eab-bed9-4cd3-a21b-8c8758b922eb"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1221260, 21771, 1135, 27, 57, "Input",ExpressionUUID->"b2167779-1e8f-4690-a7d9-fe7d464a4815"],
-Cell[1222398, 21800, 7683, 188, 181, "Output",ExpressionUUID->"ead509b6-b153-4829-be33-8ff5a6efcada"]
+Cell[1226022, 21854, 3389, 70, 75, "Input",ExpressionUUID->"82d96d28-401c-43fa-8337-b55bfd500552"],
+Cell[1229414, 21926, 12735, 275, 138, "Output",ExpressionUUID->"1ab9ef64-9a55-4344-9cb3-5443ea2b020c"]
}, Open ]],
-Cell[1230096, 21991, 3769, 58, 55, "Input",ExpressionUUID->"172fdee0-af8e-4049-9dda-cfec26fad09c"],
Cell[CellGroupData[{
-Cell[1233890, 22053, 6700, 99, 24, "Input",ExpressionUUID->"0ea1b44d-26c0-49ba-8c54-6d51b749dcee"],
-Cell[1240593, 22154, 558, 12, 22, "Message",ExpressionUUID->"1820350f-3096-4479-969b-2dda88e43862"],
-Cell[1241154, 22168, 5206, 95, 60, "Output",ExpressionUUID->"58f08fd4-743e-4318-9e82-7ecda92ce1db"]
+Cell[1242186, 22206, 1135, 27, 57, "Input",ExpressionUUID->"b2167779-1e8f-4690-a7d9-fe7d464a4815"],
+Cell[1243324, 22235, 7683, 188, 181, "Output",ExpressionUUID->"ead509b6-b153-4829-be33-8ff5a6efcada"]
}, Open ]],
+Cell[1251022, 22426, 3769, 58, 55, "Input",ExpressionUUID->"172fdee0-af8e-4049-9dda-cfec26fad09c"],
Cell[CellGroupData[{
-Cell[1246397, 22268, 1747, 35, 71, "Input",ExpressionUUID->"324ac29a-a49d-4e6b-a8d8-b259afcd34c7"],
-Cell[1248147, 22305, 17065, 313, 138, "Output",ExpressionUUID->"464153b0-04b0-46cf-82d1-649dc2c2d6a0"]
+Cell[1254816, 22488, 6700, 99, 24, "Input",ExpressionUUID->"0ea1b44d-26c0-49ba-8c54-6d51b749dcee"],
+Cell[1261519, 22589, 558, 12, 22, "Message",ExpressionUUID->"1820350f-3096-4479-969b-2dda88e43862"],
+Cell[1262080, 22603, 5206, 95, 60, "Output",ExpressionUUID->"58f08fd4-743e-4318-9e82-7ecda92ce1db"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1265249, 22623, 1075, 29, 59, "Input",ExpressionUUID->"288a2ff7-5161-4fe5-8f43-122ba3a5d3f2"],
-Cell[1266327, 22654, 1686, 44, 184, "Output",ExpressionUUID->"d5da57e7-0428-4391-af81-4f874cd963e4"]
+Cell[1267323, 22703, 1747, 35, 71, "Input",ExpressionUUID->"324ac29a-a49d-4e6b-a8d8-b259afcd34c7"],
+Cell[1269073, 22740, 17065, 313, 138, "Output",ExpressionUUID->"464153b0-04b0-46cf-82d1-649dc2c2d6a0"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1268050, 22703, 2704, 59, 75, "Input",ExpressionUUID->"d85908e0-a479-4a49-999f-e6e49522af2d"],
-Cell[1270757, 22764, 12141, 271, 180, "Output",ExpressionUUID->"2f30870a-4c21-432a-b77d-85d6f131265e"]
+Cell[1286175, 23058, 1075, 29, 59, "Input",ExpressionUUID->"288a2ff7-5161-4fe5-8f43-122ba3a5d3f2"],
+Cell[1287253, 23089, 1686, 44, 184, "Output",ExpressionUUID->"d5da57e7-0428-4391-af81-4f874cd963e4"]
}, Open ]],
-Cell[1282913, 23038, 3491, 55, 55, "Input",ExpressionUUID->"4fbf2b0a-5252-416a-b90a-a12f6d946efe"],
Cell[CellGroupData[{
-Cell[1286429, 23097, 6511, 94, 22, "Input",ExpressionUUID->"5ac27342-feda-4aa6-9098-1d0e7b78fae8"],
-Cell[1292943, 23193, 5770, 96, 42, "Output",ExpressionUUID->"b47243ad-5432-4eb5-bbf7-870353157603"]
+Cell[1288976, 23138, 2704, 59, 75, "Input",ExpressionUUID->"d85908e0-a479-4a49-999f-e6e49522af2d"],
+Cell[1291683, 23199, 12141, 271, 180, "Output",ExpressionUUID->"2f30870a-4c21-432a-b77d-85d6f131265e"]
}, Open ]],
+Cell[1303839, 23473, 3491, 55, 55, "Input",ExpressionUUID->"4fbf2b0a-5252-416a-b90a-a12f6d946efe"],
Cell[CellGroupData[{
-Cell[1298750, 23294, 1791, 35, 71, "Input",ExpressionUUID->"63fcec7c-aaff-46be-90dc-231bca0993d9"],
-Cell[1300544, 23331, 17336, 318, 138, "Output",ExpressionUUID->"547073ca-2de1-44b5-8139-682a4eb761c9"]
+Cell[1307355, 23532, 6511, 94, 22, "Input",ExpressionUUID->"5ac27342-feda-4aa6-9098-1d0e7b78fae8"],
+Cell[1313869, 23628, 5770, 96, 42, "Output",ExpressionUUID->"b47243ad-5432-4eb5-bbf7-870353157603"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1317917, 23654, 2079, 54, 141, "Input",ExpressionUUID->"8f2cfc94-a67c-484e-bbeb-610484e18a97"],
-Cell[1319999, 23710, 16732, 375, 138, "Output",ExpressionUUID->"453285de-e47a-4bcc-96d7-ec76dfc88820"]
+Cell[1319676, 23729, 1791, 35, 71, "Input",ExpressionUUID->"63fcec7c-aaff-46be-90dc-231bca0993d9"],
+Cell[1321470, 23766, 17336, 318, 138, "Output",ExpressionUUID->"547073ca-2de1-44b5-8139-682a4eb761c9"]
}, Open ]],
-Cell[1336746, 24088, 3360, 53, 55, "Input",ExpressionUUID->"59993536-91f3-449a-9e8c-58cd1f6ec74c"],
Cell[CellGroupData[{
-Cell[1340131, 24145, 6459, 92, 22, "Input",ExpressionUUID->"ab599d2d-27ef-4491-b1cb-534f98403e59"],
-Cell[1346593, 24239, 1955, 31, 46, "Message",ExpressionUUID->"f4cd9634-0e29-4718-97b8-490c5f242f4a"],
-Cell[1348551, 24272, 5268, 92, 58, "Output",ExpressionUUID->"80e0c922-0db4-48ee-96b6-33400b7fa9d7"]
+Cell[1338843, 24089, 2079, 54, 141, "Input",ExpressionUUID->"8f2cfc94-a67c-484e-bbeb-610484e18a97"],
+Cell[1340925, 24145, 16732, 375, 138, "Output",ExpressionUUID->"453285de-e47a-4bcc-96d7-ec76dfc88820"]
}, Open ]],
+Cell[1357672, 24523, 3360, 53, 55, "Input",ExpressionUUID->"59993536-91f3-449a-9e8c-58cd1f6ec74c"],
Cell[CellGroupData[{
-Cell[1353856, 24369, 1882, 39, 71, "Input",ExpressionUUID->"f9bd15f0-d859-4863-9fe9-3ad2883e76d2"],
-Cell[1355741, 24410, 9557, 188, 138, "Output",ExpressionUUID->"27a9c152-8a0d-4899-aa74-6a603c9665b9"]
+Cell[1361057, 24580, 6459, 92, 22, "Input",ExpressionUUID->"ab599d2d-27ef-4491-b1cb-534f98403e59"],
+Cell[1367519, 24674, 1955, 31, 46, "Message",ExpressionUUID->"f4cd9634-0e29-4718-97b8-490c5f242f4a"],
+Cell[1369477, 24707, 5268, 92, 58, "Output",ExpressionUUID->"80e0c922-0db4-48ee-96b6-33400b7fa9d7"]
}, Open ]],
-Cell[1365313, 24601, 2869, 47, 55, "Input",ExpressionUUID->"1282028e-7a8e-46e3-bc91-b35b1d1604ed"],
Cell[CellGroupData[{
-Cell[1368207, 24652, 5473, 80, 22, "Input",ExpressionUUID->"83c6d43c-fed0-4989-a06f-986a75bf7651"],
-Cell[1373683, 24734, 497, 11, 22, "Message",ExpressionUUID->"cf50225b-a0ef-4626-94a0-0803782ba72f"],
-Cell[1374183, 24747, 10419, 251, 79, "Output",ExpressionUUID->"e4dd84aa-35ca-4c06-b076-812cdad95551"]
+Cell[1374782, 24804, 1882, 39, 71, "Input",ExpressionUUID->"f9bd15f0-d859-4863-9fe9-3ad2883e76d2"],
+Cell[1376667, 24845, 9557, 188, 138, "Output",ExpressionUUID->"27a9c152-8a0d-4899-aa74-6a603c9665b9"]
}, Open ]],
+Cell[1386239, 25036, 2869, 47, 55, "Input",ExpressionUUID->"1282028e-7a8e-46e3-bc91-b35b1d1604ed"],
Cell[CellGroupData[{
-Cell[1384639, 25003, 1852, 38, 71, "Input",ExpressionUUID->"9903c113-3088-4e43-884e-783e3462a3bd"],
-Cell[1386494, 25043, 17127, 315, 136, "Output",ExpressionUUID->"ace4a267-d48c-4a17-8b21-0b8791f1d4a8"]
+Cell[1389133, 25087, 5473, 80, 22, "Input",ExpressionUUID->"83c6d43c-fed0-4989-a06f-986a75bf7651"],
+Cell[1394609, 25169, 497, 11, 22, "Message",ExpressionUUID->"cf50225b-a0ef-4626-94a0-0803782ba72f"],
+Cell[1395109, 25182, 10419, 251, 79, "Output",ExpressionUUID->"e4dd84aa-35ca-4c06-b076-812cdad95551"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1403658, 25363, 482, 11, 22, "Input",ExpressionUUID->"85ae5ebd-4d7b-469b-b177-bd88ef9a9e54"],
-Cell[1404143, 25376, 9927, 243, 178, "Output",ExpressionUUID->"392555db-33d5-4e50-8a31-e2a3a67d3a75"]
+Cell[1405565, 25438, 1852, 38, 71, "Input",ExpressionUUID->"9903c113-3088-4e43-884e-783e3462a3bd"],
+Cell[1407420, 25478, 17127, 315, 136, "Output",ExpressionUUID->"ace4a267-d48c-4a17-8b21-0b8791f1d4a8"]
}, Open ]],
-Cell[1414085, 25622, 2967, 48, 55, "Input",ExpressionUUID->"d0ac4c0e-3fde-4f39-860c-119c61865e94"],
Cell[CellGroupData[{
-Cell[1417077, 25674, 5720, 84, 24, "Input",ExpressionUUID->"31b6196c-dff7-4ae3-ba24-930461af4520"],
-Cell[1422800, 25760, 771, 15, 34, "Message",ExpressionUUID->"7df3f521-17b3-470c-a210-7a61feecd5cb"],
-Cell[1423574, 25777, 4257, 83, 76, "Output",ExpressionUUID->"ea8fe62a-dd49-4054-b383-0738f0b8f82f"]
+Cell[1424584, 25798, 482, 11, 22, "Input",ExpressionUUID->"85ae5ebd-4d7b-469b-b177-bd88ef9a9e54"],
+Cell[1425069, 25811, 9927, 243, 178, "Output",ExpressionUUID->"392555db-33d5-4e50-8a31-e2a3a67d3a75"]
}, Open ]],
+Cell[1435011, 26057, 2967, 48, 55, "Input",ExpressionUUID->"d0ac4c0e-3fde-4f39-860c-119c61865e94"],
Cell[CellGroupData[{
-Cell[1427868, 25865, 1796, 36, 71, "Input",ExpressionUUID->"c89d4fc8-2254-4238-b27d-107fefc31da5"],
-Cell[1429667, 25903, 17264, 316, 136, "Output",ExpressionUUID->"d1455115-bd06-4d75-a8b5-99c39d1e90d7"]
+Cell[1438003, 26109, 5720, 84, 24, "Input",ExpressionUUID->"31b6196c-dff7-4ae3-ba24-930461af4520"],
+Cell[1443726, 26195, 771, 15, 34, "Message",ExpressionUUID->"7df3f521-17b3-470c-a210-7a61feecd5cb"],
+Cell[1444500, 26212, 4257, 83, 76, "Output",ExpressionUUID->"ea8fe62a-dd49-4054-b383-0738f0b8f82f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1446968, 26224, 874, 23, 55, "Input",ExpressionUUID->"d7824482-d74e-4fac-8224-3728d7d92b24"],
-Cell[1447845, 26249, 3739, 89, 178, "Output",ExpressionUUID->"ad65c8a7-66e9-4c1e-b599-35bacb78e113"]
+Cell[1448794, 26300, 1796, 36, 71, "Input",ExpressionUUID->"c89d4fc8-2254-4238-b27d-107fefc31da5"],
+Cell[1450593, 26338, 17264, 316, 136, "Output",ExpressionUUID->"d1455115-bd06-4d75-a8b5-99c39d1e90d7"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1451621, 26343, 549, 15, 22, "Input",ExpressionUUID->"93164c6e-f8e2-4fb1-ab0b-a65d379b88ef"],
-Cell[1452173, 26360, 234, 5, 25, "Output",ExpressionUUID->"db3875cf-f19f-4e24-a7e4-c4017292b8fe"]
+Cell[1467894, 26659, 874, 23, 55, "Input",ExpressionUUID->"d7824482-d74e-4fac-8224-3728d7d92b24"],
+Cell[1468771, 26684, 3739, 89, 178, "Output",ExpressionUUID->"ad65c8a7-66e9-4c1e-b599-35bacb78e113"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1452444, 26370, 262, 6, 22, "Input",ExpressionUUID->"40b90456-e65f-4936-94f0-aa9e157985d1"],
-Cell[1452709, 26378, 1039, 29, 51, "Output",ExpressionUUID->"e84b103a-4734-481c-bc68-32680f2490ae"]
+Cell[1472547, 26778, 549, 15, 22, "Input",ExpressionUUID->"93164c6e-f8e2-4fb1-ab0b-a65d379b88ef"],
+Cell[1473099, 26795, 234, 5, 25, "Output",ExpressionUUID->"db3875cf-f19f-4e24-a7e4-c4017292b8fe"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1453785, 26412, 1085, 28, 59, "Input",ExpressionUUID->"802f97e2-70b5-4c0e-b977-f8a2e505bb60"],
-Cell[1454873, 26442, 74312, 1240, 77, "Output",ExpressionUUID->"13540836-8492-44db-8f61-825c10092a3b"]
+Cell[1473370, 26805, 262, 6, 22, "Input",ExpressionUUID->"40b90456-e65f-4936-94f0-aa9e157985d1"],
+Cell[1473635, 26813, 1039, 29, 51, "Output",ExpressionUUID->"e84b103a-4734-481c-bc68-32680f2490ae"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1529222, 27687, 1597, 44, 63, "Input",ExpressionUUID->"9510d7f0-79c6-409e-9c06-caac79aa83b9"],
-Cell[1530822, 27733, 487, 11, 22, "Message",ExpressionUUID->"b9cd98f1-c229-4f5b-95ec-13d954ebd59a"],
-Cell[1531312, 27746, 490, 11, 22, "Message",ExpressionUUID->"ea96e00a-9fe6-4d33-80b4-d0a9eed78731"],
-Cell[1531805, 27759, 488, 11, 22, "Message",ExpressionUUID->"a31115cb-de8f-481d-994b-5bc9a83710b8"],
-Cell[1532296, 27772, 457, 10, 22, "Message",ExpressionUUID->"667a685e-0e76-4db4-8986-9eaad489f3e3"]
+Cell[1474711, 26847, 1085, 28, 59, "Input",ExpressionUUID->"802f97e2-70b5-4c0e-b977-f8a2e505bb60"],
+Cell[1475799, 26877, 74312, 1240, 77, "Output",ExpressionUUID->"13540836-8492-44db-8f61-825c10092a3b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1532790, 27787, 1243, 25, 24, "Input",ExpressionUUID->"4c6fe8ab-4f6a-4b57-92a5-c94e403d041d"],
-Cell[1534036, 27814, 257598, 4238, 182, "Output",ExpressionUUID->"11addea4-5f17-44f9-80f6-b7d15dd56efa"]
+Cell[1550148, 28122, 1597, 44, 63, "Input",ExpressionUUID->"9510d7f0-79c6-409e-9c06-caac79aa83b9"],
+Cell[1551748, 28168, 487, 11, 22, "Message",ExpressionUUID->"b9cd98f1-c229-4f5b-95ec-13d954ebd59a"],
+Cell[1552238, 28181, 490, 11, 22, "Message",ExpressionUUID->"ea96e00a-9fe6-4d33-80b4-d0a9eed78731"],
+Cell[1552731, 28194, 488, 11, 22, "Message",ExpressionUUID->"a31115cb-de8f-481d-994b-5bc9a83710b8"],
+Cell[1553222, 28207, 457, 10, 22, "Message",ExpressionUUID->"667a685e-0e76-4db4-8986-9eaad489f3e3"]
}, Open ]],
-Cell[1791649, 32055, 2861, 70, 109, "Input",ExpressionUUID->"bc84d748-2ae9-4f3e-87ec-0fa12dfd6954"],
Cell[CellGroupData[{
-Cell[1794535, 32129, 4876, 115, 126, "Input",ExpressionUUID->"c099f9b5-a706-4293-9c42-f007146a13f7"],
-Cell[1799414, 32246, 372, 9, 32, "Message",ExpressionUUID->"94a73904-550c-43cf-8d0b-35b5cbc01228"],
-Cell[1799789, 32257, 414, 10, 22, "Message",ExpressionUUID->"3f893d05-e641-4bf4-9ea5-bcabdc4d6a95"],
-Cell[1800206, 32269, 374, 9, 32, "Message",ExpressionUUID->"53b27a41-4cd2-4652-a104-35161ad96bf2"],
-Cell[1800583, 32280, 372, 9, 32, "Message",ExpressionUUID->"413977e9-0c84-449f-b053-9df53b50e738"],
-Cell[1800958, 32291, 449, 10, 22, "Message",ExpressionUUID->"d499cd59-07fb-492e-b9f7-1ddddfebb272"],
-Cell[1801410, 32303, 412, 10, 22, "Message",ExpressionUUID->"395175e1-6469-49cf-a376-9be005af7add"],
-Cell[1801825, 32315, 412, 10, 22, "Message",ExpressionUUID->"8f65301b-fe48-42b3-9924-e0e8e3bea608"],
-Cell[1802240, 32327, 454, 10, 22, "Message",ExpressionUUID->"6d1c81df-b866-4446-8abe-657a6a8d929f"]
+Cell[1553716, 28222, 1243, 25, 24, "Input",ExpressionUUID->"4c6fe8ab-4f6a-4b57-92a5-c94e403d041d"],
+Cell[1554962, 28249, 257598, 4238, 182, "Output",ExpressionUUID->"11addea4-5f17-44f9-80f6-b7d15dd56efa"]
}, Open ]],
+Cell[1812575, 32490, 2861, 70, 109, "Input",ExpressionUUID->"bc84d748-2ae9-4f3e-87ec-0fa12dfd6954"],
Cell[CellGroupData[{
-Cell[1802731, 32342, 390, 10, 22, "Input",ExpressionUUID->"a66d45ff-8000-4c96-bcb2-2bc7343fd5de"],
-Cell[1803124, 32354, 230, 4, 305, "Output",ExpressionUUID->"5364b922-5bbc-4121-ab23-dc5bb4bec4cb"]
+Cell[1815461, 32564, 4876, 115, 126, "Input",ExpressionUUID->"c099f9b5-a706-4293-9c42-f007146a13f7"],
+Cell[1820340, 32681, 372, 9, 32, "Message",ExpressionUUID->"94a73904-550c-43cf-8d0b-35b5cbc01228"],
+Cell[1820715, 32692, 414, 10, 22, "Message",ExpressionUUID->"3f893d05-e641-4bf4-9ea5-bcabdc4d6a95"],
+Cell[1821132, 32704, 374, 9, 32, "Message",ExpressionUUID->"53b27a41-4cd2-4652-a104-35161ad96bf2"],
+Cell[1821509, 32715, 372, 9, 32, "Message",ExpressionUUID->"413977e9-0c84-449f-b053-9df53b50e738"],
+Cell[1821884, 32726, 449, 10, 22, "Message",ExpressionUUID->"d499cd59-07fb-492e-b9f7-1ddddfebb272"],
+Cell[1822336, 32738, 412, 10, 22, "Message",ExpressionUUID->"395175e1-6469-49cf-a376-9be005af7add"],
+Cell[1822751, 32750, 412, 10, 22, "Message",ExpressionUUID->"8f65301b-fe48-42b3-9924-e0e8e3bea608"],
+Cell[1823166, 32762, 454, 10, 22, "Message",ExpressionUUID->"6d1c81df-b866-4446-8abe-657a6a8d929f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1803391, 32363, 2250, 58, 76, "Input",ExpressionUUID->"8e0288f2-5922-4dde-923e-8106073adf6c"],
-Cell[1805644, 32423, 1066745, 23056, 352, "Output",ExpressionUUID->"c6c9c8e8-7cb0-4ad0-a6c6-fb0a70db55da"]
+Cell[1823657, 32777, 390, 10, 22, "Input",ExpressionUUID->"a66d45ff-8000-4c96-bcb2-2bc7343fd5de"],
+Cell[1824050, 32789, 230, 4, 305, "Output",ExpressionUUID->"5364b922-5bbc-4121-ab23-dc5bb4bec4cb"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2872426, 55484, 1775, 44, 24, "Input",ExpressionUUID->"4355674b-0fd6-4516-8896-cd33a8476ab5"],
-Cell[2874204, 55530, 376, 5, 25, "Output",ExpressionUUID->"b8a18520-7b45-49b0-af16-64f6d0a9c819"]
+Cell[1824317, 32798, 2250, 58, 76, "Input",ExpressionUUID->"8e0288f2-5922-4dde-923e-8106073adf6c"],
+Cell[1826570, 32858, 1066745, 23056, 352, "Output",ExpressionUUID->"c6c9c8e8-7cb0-4ad0-a6c6-fb0a70db55da"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2874617, 55540, 427, 10, 24, "Input",ExpressionUUID->"ee6beea5-4d88-4650-837d-58c8d3c6363b"],
-Cell[2875047, 55552, 18847, 324, 179, "Output",ExpressionUUID->"a27bcc82-f8f9-42d8-854c-a204a73d483f"]
+Cell[2893352, 55919, 1775, 44, 24, "Input",ExpressionUUID->"4355674b-0fd6-4516-8896-cd33a8476ab5"],
+Cell[2895130, 55965, 376, 5, 25, "Output",ExpressionUUID->"b8a18520-7b45-49b0-af16-64f6d0a9c819"]
}, Open ]],
-Cell[2893909, 55879, 3136, 79, 75, "Input",ExpressionUUID->"5894652c-ea9c-458f-866d-b40d1a5efb75"],
Cell[CellGroupData[{
-Cell[2897070, 55962, 592, 13, 24, "Input",ExpressionUUID->"3fee7ec2-e0c4-4420-8192-c46efe85e265"],
-Cell[2897665, 55977, 5889, 112, 178, "Output",ExpressionUUID->"2bfc8e2b-006d-4096-8c4b-8422da967dcb"]
+Cell[2895543, 55975, 427, 10, 24, "Input",ExpressionUUID->"ee6beea5-4d88-4650-837d-58c8d3c6363b"],
+Cell[2895973, 55987, 18847, 324, 179, "Output",ExpressionUUID->"a27bcc82-f8f9-42d8-854c-a204a73d483f"]
}, Open ]],
-Cell[2903569, 56092, 4130, 102, 109, "Input",ExpressionUUID->"16683f20-3a25-47da-8c9c-58bfb1a56ae7"],
+Cell[2914835, 56314, 3136, 79, 75, "Input",ExpressionUUID->"5894652c-ea9c-458f-866d-b40d1a5efb75"],
Cell[CellGroupData[{
-Cell[2907724, 56198, 1495, 23, 24, "Input",ExpressionUUID->"0c28b27c-3e81-49ce-9293-512f19f95aeb"],
-Cell[2909222, 56223, 6141, 116, 180, "Output",ExpressionUUID->"a225487e-1b09-4625-b1b4-0393225de258"]
+Cell[2917996, 56397, 592, 13, 24, "Input",ExpressionUUID->"3fee7ec2-e0c4-4420-8192-c46efe85e265"],
+Cell[2918591, 56412, 5889, 112, 178, "Output",ExpressionUUID->"2bfc8e2b-006d-4096-8c4b-8422da967dcb"]
}, Open ]],
-Cell[2915378, 56342, 2010, 35, 55, "Input",ExpressionUUID->"78606265-f50f-49dc-888d-33550f059b83"],
+Cell[2924495, 56527, 4130, 102, 109, "Input",ExpressionUUID->"16683f20-3a25-47da-8c9c-58bfb1a56ae7"],
Cell[CellGroupData[{
-Cell[2917413, 56381, 4151, 62, 22, "Input",ExpressionUUID->"396a3ca5-637b-4194-943d-7ec379bcf47e"],
-Cell[2921567, 56445, 2707, 49, 25, "Output",ExpressionUUID->"032de8e5-e62b-4c2c-a2db-afe60e4c0f47"]
+Cell[2928650, 56633, 1495, 23, 24, "Input",ExpressionUUID->"0c28b27c-3e81-49ce-9293-512f19f95aeb"],
+Cell[2930148, 56658, 6141, 116, 180, "Output",ExpressionUUID->"a225487e-1b09-4625-b1b4-0393225de258"]
}, Open ]],
+Cell[2936304, 56777, 2010, 35, 55, "Input",ExpressionUUID->"78606265-f50f-49dc-888d-33550f059b83"],
Cell[CellGroupData[{
-Cell[2924311, 56499, 1600, 34, 71, "Input",ExpressionUUID->"050da7fc-1308-4d49-81b4-1f4efc54c09a"],
-Cell[2925914, 56535, 17028, 313, 136, "Output",ExpressionUUID->"5c8a355d-e522-4c74-8a53-b7d46e9c333f"]
+Cell[2938339, 56816, 4151, 62, 22, "Input",ExpressionUUID->"396a3ca5-637b-4194-943d-7ec379bcf47e"],
+Cell[2942493, 56880, 2707, 49, 25, "Output",ExpressionUUID->"032de8e5-e62b-4c2c-a2db-afe60e4c0f47"]
}, Open ]],
-Cell[2942957, 56851, 2110, 37, 55, "Input",ExpressionUUID->"37ec5e26-c9a1-4c3e-b046-f5bdcb69b8db"],
Cell[CellGroupData[{
-Cell[2945092, 56892, 4183, 60, 22, "Input",ExpressionUUID->"aafc8bea-bd59-4ab7-b436-168abec75b4d"],
-Cell[2949278, 56954, 2082, 30, 25, "Output",ExpressionUUID->"823a15e6-d4d4-45cf-b711-54e7c88841d0"]
+Cell[2945237, 56934, 1600, 34, 71, "Input",ExpressionUUID->"050da7fc-1308-4d49-81b4-1f4efc54c09a"],
+Cell[2946840, 56970, 17028, 313, 136, "Output",ExpressionUUID->"5c8a355d-e522-4c74-8a53-b7d46e9c333f"]
}, Open ]],
+Cell[2963883, 57286, 2110, 37, 55, "Input",ExpressionUUID->"37ec5e26-c9a1-4c3e-b046-f5bdcb69b8db"],
Cell[CellGroupData[{
-Cell[2951397, 56989, 1650, 35, 71, "Input",ExpressionUUID->"d90b515e-65bf-42c5-a9d8-7ebc27861a0a"],
-Cell[2953050, 57026, 20490, 372, 135, "Output",ExpressionUUID->"674ddf51-ef87-4ea3-981c-9bca8b07e0de"]
+Cell[2966018, 57327, 4183, 60, 22, "Input",ExpressionUUID->"aafc8bea-bd59-4ab7-b436-168abec75b4d"],
+Cell[2970204, 57389, 2082, 30, 25, "Output",ExpressionUUID->"823a15e6-d4d4-45cf-b711-54e7c88841d0"]
}, Open ]],
-Cell[2973555, 57401, 2205, 38, 55, "Input",ExpressionUUID->"74c29eca-8a3c-482d-b962-b5a7bc6eeeb5"],
Cell[CellGroupData[{
-Cell[2975785, 57443, 6088, 119, 57, "Input",ExpressionUUID->"4f2555c0-0b0b-46e3-953c-b99c2d8ef953"],
-Cell[2981876, 57564, 3154, 60, 44, "Output",ExpressionUUID->"7ba637ff-c37f-4ab3-8f3f-c3a013477573"]
+Cell[2972323, 57424, 1650, 35, 71, "Input",ExpressionUUID->"d90b515e-65bf-42c5-a9d8-7ebc27861a0a"],
+Cell[2973976, 57461, 20490, 372, 135, "Output",ExpressionUUID->"674ddf51-ef87-4ea3-981c-9bca8b07e0de"]
}, Open ]],
+Cell[2994481, 57836, 2205, 38, 55, "Input",ExpressionUUID->"74c29eca-8a3c-482d-b962-b5a7bc6eeeb5"],
Cell[CellGroupData[{
-Cell[2985067, 57629, 1700, 36, 71, "Input",ExpressionUUID->"11bfaed8-b616-4bdb-acee-d6f652a0a4e6"],
-Cell[2986770, 57667, 16873, 311, 136, "Output",ExpressionUUID->"9d9174e8-24e3-40da-860e-87b1062d7e14"]
+Cell[2996711, 57878, 6088, 119, 57, "Input",ExpressionUUID->"4f2555c0-0b0b-46e3-953c-b99c2d8ef953"],
+Cell[3002802, 57999, 3154, 60, 44, "Output",ExpressionUUID->"7ba637ff-c37f-4ab3-8f3f-c3a013477573"]
}, Open ]],
-Cell[3003658, 57981, 2257, 39, 55, "Input",ExpressionUUID->"da646d41-2935-4f0b-94a9-796be9875f10"],
Cell[CellGroupData[{
-Cell[3005940, 58024, 6220, 122, 57, "Input",ExpressionUUID->"bd584363-7bad-4830-803a-025a2ac0e9a6"],
-Cell[3012163, 58148, 3291, 62, 44, "Output",ExpressionUUID->"83698929-f178-4c4d-9569-7a23e1e9c919"]
+Cell[3005993, 58064, 1700, 36, 71, "Input",ExpressionUUID->"11bfaed8-b616-4bdb-acee-d6f652a0a4e6"],
+Cell[3007696, 58102, 16873, 311, 136, "Output",ExpressionUUID->"9d9174e8-24e3-40da-860e-87b1062d7e14"]
}, Open ]],
+Cell[3024584, 58416, 2257, 39, 55, "Input",ExpressionUUID->"da646d41-2935-4f0b-94a9-796be9875f10"],
Cell[CellGroupData[{
-Cell[3015491, 58215, 1746, 36, 71, "Input",ExpressionUUID->"f7b18b38-4aa7-4d26-8653-c5282fb8bc07"],
-Cell[3017240, 58253, 17143, 317, 136, "Output",ExpressionUUID->"aeb5446a-db30-4b37-a075-fd0875fea03f"]
+Cell[3026866, 58459, 6220, 122, 57, "Input",ExpressionUUID->"bd584363-7bad-4830-803a-025a2ac0e9a6"],
+Cell[3033089, 58583, 3291, 62, 44, "Output",ExpressionUUID->"83698929-f178-4c4d-9569-7a23e1e9c919"]
}, Open ]],
-Cell[3034398, 58573, 2305, 39, 55, "Input",ExpressionUUID->"6dd58649-2ccd-4fad-b61e-e6b84d8dc37c"],
Cell[CellGroupData[{
-Cell[3036728, 58616, 6753, 136, 57, "Input",ExpressionUUID->"47d19cd0-5c7e-4d2e-8522-f7af9f76b03d"],
-Cell[3043484, 58754, 3674, 69, 44, "Output",ExpressionUUID->"e4c2258c-d675-43b1-8eb8-1a175227c843"]
+Cell[3036417, 58650, 1746, 36, 71, "Input",ExpressionUUID->"f7b18b38-4aa7-4d26-8653-c5282fb8bc07"],
+Cell[3038166, 58688, 17143, 317, 136, "Output",ExpressionUUID->"aeb5446a-db30-4b37-a075-fd0875fea03f"]
}, Open ]],
+Cell[3055324, 59008, 2305, 39, 55, "Input",ExpressionUUID->"6dd58649-2ccd-4fad-b61e-e6b84d8dc37c"],
Cell[CellGroupData[{
-Cell[3047195, 58828, 1798, 37, 71, "Input",ExpressionUUID->"e5291fe9-0a5c-4396-ac44-47a5f71d5568"],
-Cell[3048996, 58867, 17131, 315, 134, "Output",ExpressionUUID->"f761d7d5-04c8-40b2-a937-6fac9575aeda"]
+Cell[3057654, 59051, 6753, 136, 57, "Input",ExpressionUUID->"47d19cd0-5c7e-4d2e-8522-f7af9f76b03d"],
+Cell[3064410, 59189, 3674, 69, 44, "Output",ExpressionUUID->"e4c2258c-d675-43b1-8eb8-1a175227c843"]
}, Open ]],
-Cell[3066142, 59185, 2356, 40, 55, "Input",ExpressionUUID->"034d75ed-4e94-4dfa-b0b5-fb25cd2d30d3"],
Cell[CellGroupData[{
-Cell[3068523, 59229, 6967, 140, 73, "Input",ExpressionUUID->"939e0991-1a33-48bb-8325-c6afb708b1bf"],
-Cell[3075493, 59371, 3893, 74, 42, "Output",ExpressionUUID->"07c46e6f-b409-4e46-91c4-1f8deedd3b7c"]
+Cell[3068121, 59263, 1798, 37, 71, "Input",ExpressionUUID->"e5291fe9-0a5c-4396-ac44-47a5f71d5568"],
+Cell[3069922, 59302, 17131, 315, 134, "Output",ExpressionUUID->"f761d7d5-04c8-40b2-a937-6fac9575aeda"]
}, Open ]],
+Cell[3087068, 59620, 2356, 40, 55, "Input",ExpressionUUID->"034d75ed-4e94-4dfa-b0b5-fb25cd2d30d3"],
Cell[CellGroupData[{
-Cell[3079423, 59450, 1848, 38, 71, "Input",ExpressionUUID->"41fa3464-11f7-47db-b9f4-c04a234b3967"],
-Cell[3081274, 59490, 17640, 324, 136, "Output",ExpressionUUID->"e6ece27a-240d-4388-ae6d-863762fb16fc"]
+Cell[3089449, 59664, 6967, 140, 73, "Input",ExpressionUUID->"939e0991-1a33-48bb-8325-c6afb708b1bf"],
+Cell[3096419, 59806, 3893, 74, 42, "Output",ExpressionUUID->"07c46e6f-b409-4e46-91c4-1f8deedd3b7c"]
}, Open ]],
-Cell[3098929, 59817, 2409, 41, 55, "Input",ExpressionUUID->"5f4959b4-0631-460c-894f-e078cc08f6c0"],
Cell[CellGroupData[{
-Cell[3101363, 59862, 7710, 160, 89, "Input",ExpressionUUID->"42dd11c3-40d8-4229-9f2b-ea33c98a4a3d"],
-Cell[3109076, 60024, 2581, 37, 25, "Output",ExpressionUUID->"d656f635-4cba-4947-8345-8861516ad400"]
+Cell[3100349, 59885, 1848, 38, 71, "Input",ExpressionUUID->"41fa3464-11f7-47db-b9f4-c04a234b3967"],
+Cell[3102200, 59925, 17640, 324, 136, "Output",ExpressionUUID->"e6ece27a-240d-4388-ae6d-863762fb16fc"]
}, Open ]],
+Cell[3119855, 60252, 2409, 41, 55, "Input",ExpressionUUID->"5f4959b4-0631-460c-894f-e078cc08f6c0"],
Cell[CellGroupData[{
-Cell[3111694, 60066, 1894, 38, 71, "Input",ExpressionUUID->"3b92c534-fe03-4b93-bce9-3935e73cd50a"],
-Cell[3113591, 60106, 16747, 309, 133, "Output",ExpressionUUID->"047cfbb9-7bc7-4793-b25b-33d1e4b54f0f"]
+Cell[3122289, 60297, 7710, 160, 89, "Input",ExpressionUUID->"42dd11c3-40d8-4229-9f2b-ea33c98a4a3d"],
+Cell[3130002, 60459, 2581, 37, 25, "Output",ExpressionUUID->"d656f635-4cba-4947-8345-8861516ad400"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3130375, 60420, 433, 11, 22, "Input",ExpressionUUID->"a88f2391-1bc9-4d7a-b773-d4641b529a92"],
-Cell[3130811, 60433, 6817, 169, 177, "Output",ExpressionUUID->"900bc96d-749d-4402-b6fc-1bde2c834df4"]
+Cell[3132620, 60501, 1894, 38, 71, "Input",ExpressionUUID->"3b92c534-fe03-4b93-bce9-3935e73cd50a"],
+Cell[3134517, 60541, 16747, 309, 133, "Output",ExpressionUUID->"047cfbb9-7bc7-4793-b25b-33d1e4b54f0f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3137665, 60607, 1672, 45, 63, "Input",ExpressionUUID->"c2d3e68e-6754-4848-ad45-4d3a81a85373"],
-Cell[3139340, 60654, 511, 11, 22, "Message",ExpressionUUID->"7042c19d-9eb1-4c6c-b9ba-e11ecd2dad61"],
-Cell[3139854, 60667, 511, 11, 22, "Message",ExpressionUUID->"e96fc95a-7476-4cfa-9b6e-023e5f08ec84"],
-Cell[3140368, 60680, 513, 11, 22, "Message",ExpressionUUID->"697e339d-fa4d-4453-8541-d603f6be5ebf"],
-Cell[3140884, 60693, 478, 10, 22, "Message",ExpressionUUID->"a383bd1a-c1d9-49e6-a3ce-876ea12c3de9"]
+Cell[3151301, 60855, 433, 11, 22, "Input",ExpressionUUID->"a88f2391-1bc9-4d7a-b773-d4641b529a92"],
+Cell[3151737, 60868, 6817, 169, 177, "Output",ExpressionUUID->"900bc96d-749d-4402-b6fc-1bde2c834df4"]
}, Open ]],
-Cell[3141377, 60706, 3187, 80, 75, "Input",ExpressionUUID->"7baff68f-40db-4778-a165-a239cf88cc8b"],
-Cell[3144567, 60788, 4180, 103, 109, "Input",ExpressionUUID->"54ea4ab2-b182-41d0-bc24-6dda493e24b7"],
-Cell[3148750, 60893, 5400, 131, 126, "Input",ExpressionUUID->"b233f772-ebe4-4d6e-82dc-3e50dc9f4a60"],
Cell[CellGroupData[{
-Cell[3154175, 61028, 1359, 27, 24, "Input",ExpressionUUID->"326e1381-0fb5-48b8-8b67-86eb59a8de43"],
-Cell[3155537, 61057, 488773, 8032, 182, "Output",ExpressionUUID->"ffcf6638-e41b-4dc3-a888-cbc1ddb5bd70"]
+Cell[3158591, 61042, 1672, 45, 63, "Input",ExpressionUUID->"c2d3e68e-6754-4848-ad45-4d3a81a85373"],
+Cell[3160266, 61089, 511, 11, 22, "Message",ExpressionUUID->"7042c19d-9eb1-4c6c-b9ba-e11ecd2dad61"],
+Cell[3160780, 61102, 511, 11, 22, "Message",ExpressionUUID->"e96fc95a-7476-4cfa-9b6e-023e5f08ec84"],
+Cell[3161294, 61115, 513, 11, 22, "Message",ExpressionUUID->"697e339d-fa4d-4453-8541-d603f6be5ebf"],
+Cell[3161810, 61128, 478, 10, 22, "Message",ExpressionUUID->"a383bd1a-c1d9-49e6-a3ce-876ea12c3de9"]
}, Open ]],
+Cell[3162303, 61141, 3187, 80, 75, "Input",ExpressionUUID->"7baff68f-40db-4778-a165-a239cf88cc8b"],
+Cell[3165493, 61223, 4180, 103, 109, "Input",ExpressionUUID->"54ea4ab2-b182-41d0-bc24-6dda493e24b7"],
+Cell[3169676, 61328, 5400, 131, 126, "Input",ExpressionUUID->"b233f772-ebe4-4d6e-82dc-3e50dc9f4a60"],
Cell[CellGroupData[{
-Cell[3644347, 69094, 663, 15, 24, "Input",ExpressionUUID->"a93f2c6c-20d9-4e76-bf4e-d83eb645bfe2"],
-Cell[3645013, 69111, 10088, 182, 178, "Output",ExpressionUUID->"e009ecd9-f064-498f-9713-a517c7738512"]
+Cell[3175101, 61463, 1359, 27, 24, "Input",ExpressionUUID->"326e1381-0fb5-48b8-8b67-86eb59a8de43"],
+Cell[3176463, 61492, 488773, 8032, 182, "Output",ExpressionUUID->"ffcf6638-e41b-4dc3-a888-cbc1ddb5bd70"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3655138, 69298, 1607, 25, 24, "Input",ExpressionUUID->"355b7a05-dc53-48b3-a074-381cbbaeac81"],
-Cell[3656748, 69325, 27041, 593, 179, "Output",ExpressionUUID->"c021a3f3-a988-4ee0-849b-500241e51534"]
+Cell[3665273, 69529, 663, 15, 24, "Input",ExpressionUUID->"a93f2c6c-20d9-4e76-bf4e-d83eb645bfe2"],
+Cell[3665939, 69546, 10088, 182, 178, "Output",ExpressionUUID->"e009ecd9-f064-498f-9713-a517c7738512"]
}, Open ]],
-Cell[3683804, 69921, 1994, 35, 55, "Input",ExpressionUUID->"a727ff31-abf9-4fbc-b1ba-5e10e05cc6ba"],
Cell[CellGroupData[{
-Cell[3685823, 69960, 6104, 123, 57, "Input",ExpressionUUID->"e698d719-72a9-4ac8-adc0-f3dc6de33b29"],
-Cell[3691930, 70085, 599, 12, 34, "Message",ExpressionUUID->"66d8969a-eb54-4408-9ca1-e26797128b2e"],
-Cell[3692532, 70099, 3201, 61, 44, "Output",ExpressionUUID->"c2ede9a0-b94f-4b1e-a656-779f19255c39"]
+Cell[3676064, 69733, 1607, 25, 24, "Input",ExpressionUUID->"355b7a05-dc53-48b3-a074-381cbbaeac81"],
+Cell[3677674, 69760, 27041, 593, 179, "Output",ExpressionUUID->"c021a3f3-a988-4ee0-849b-500241e51534"]
}, Open ]],
+Cell[3704730, 70356, 1994, 35, 55, "Input",ExpressionUUID->"a727ff31-abf9-4fbc-b1ba-5e10e05cc6ba"],
Cell[CellGroupData[{
-Cell[3695770, 70165, 1705, 36, 71, "Input",ExpressionUUID->"cf4b5c4b-339f-4dee-887e-9827e8e84f6a"],
-Cell[3697478, 70203, 18192, 331, 135, "Output",ExpressionUUID->"59a5f5ab-6f64-4857-9cc3-85e34ce96d47"]
+Cell[3706749, 70395, 6104, 123, 57, "Input",ExpressionUUID->"e698d719-72a9-4ac8-adc0-f3dc6de33b29"],
+Cell[3712856, 70520, 599, 12, 34, "Message",ExpressionUUID->"66d8969a-eb54-4408-9ca1-e26797128b2e"],
+Cell[3713458, 70534, 3201, 61, 44, "Output",ExpressionUUID->"c2ede9a0-b94f-4b1e-a656-779f19255c39"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3715707, 70539, 336, 9, 22, "Input",ExpressionUUID->"284ac71a-7465-46b2-a883-7d04bfed7c1a"],
-Cell[3716046, 70550, 5691, 143, 177, "Output",ExpressionUUID->"8b218d9d-8ae6-4b3f-a0aa-21817c81ea81"]
+Cell[3716696, 70600, 1705, 36, 71, "Input",ExpressionUUID->"cf4b5c4b-339f-4dee-887e-9827e8e84f6a"],
+Cell[3718404, 70638, 18192, 331, 135, "Output",ExpressionUUID->"59a5f5ab-6f64-4857-9cc3-85e34ce96d47"]
}, Open ]],
-Cell[3721752, 70696, 2089, 36, 55, "Input",ExpressionUUID->"7b4489a6-2b9b-4fa0-b010-a2b21dfcde45"],
Cell[CellGroupData[{
-Cell[3723866, 70736, 6598, 135, 57, "Input",ExpressionUUID->"3bcb2734-3eb2-49b0-9f9e-04e4c7a4fa3a"],
-Cell[3730467, 70873, 3462, 68, 44, "Output",ExpressionUUID->"babae66a-342f-4778-9bda-49d5d95c0e25"]
+Cell[3736633, 70974, 336, 9, 22, "Input",ExpressionUUID->"284ac71a-7465-46b2-a883-7d04bfed7c1a"],
+Cell[3736972, 70985, 5691, 143, 177, "Output",ExpressionUUID->"8b218d9d-8ae6-4b3f-a0aa-21817c81ea81"]
}, Open ]],
+Cell[3742678, 71131, 2089, 36, 55, "Input",ExpressionUUID->"7b4489a6-2b9b-4fa0-b010-a2b21dfcde45"],
Cell[CellGroupData[{
-Cell[3733966, 70946, 1755, 37, 71, "Input",ExpressionUUID->"0e6a979b-40f1-49c5-87f2-c038673fb15e"],
-Cell[3735724, 70985, 17980, 327, 135, "Output",ExpressionUUID->"067ae380-8bbe-4d24-910a-2d72ea259077"]
+Cell[3744792, 71171, 6598, 135, 57, "Input",ExpressionUUID->"3bcb2734-3eb2-49b0-9f9e-04e4c7a4fa3a"],
+Cell[3751393, 71308, 3462, 68, 44, "Output",ExpressionUUID->"babae66a-342f-4778-9bda-49d5d95c0e25"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3753741, 71317, 384, 10, 22, "Input",ExpressionUUID->"a0ce8c43-76ba-466b-b075-393a38369f3e"],
-Cell[3754128, 71329, 5952, 149, 177, "Output",ExpressionUUID->"efcd0ede-5fe0-410c-85a7-f2cb4a37d0c4"]
+Cell[3754892, 71381, 1755, 37, 71, "Input",ExpressionUUID->"0e6a979b-40f1-49c5-87f2-c038673fb15e"],
+Cell[3756650, 71420, 17980, 327, 135, "Output",ExpressionUUID->"067ae380-8bbe-4d24-910a-2d72ea259077"]
}, Open ]],
-Cell[3760095, 71481, 2143, 37, 55, "Input",ExpressionUUID->"64ac9234-6e5e-4a0a-889d-9a4d2d9e49eb"],
Cell[CellGroupData[{
-Cell[3762263, 71522, 7704, 168, 73, "Input",ExpressionUUID->"d5ce1c93-2d50-4d5c-a1f8-53932ea334e0"],
-Cell[3769970, 71692, 3873, 76, 60, "Output",ExpressionUUID->"55d1b86b-6c0e-4346-b514-6a32ca6f4162"]
+Cell[3774667, 71752, 384, 10, 22, "Input",ExpressionUUID->"a0ce8c43-76ba-466b-b075-393a38369f3e"],
+Cell[3775054, 71764, 5952, 149, 177, "Output",ExpressionUUID->"efcd0ede-5fe0-410c-85a7-f2cb4a37d0c4"]
}, Open ]],
+Cell[3781021, 71916, 2143, 37, 55, "Input",ExpressionUUID->"64ac9234-6e5e-4a0a-889d-9a4d2d9e49eb"],
Cell[CellGroupData[{
-Cell[3773880, 71773, 1805, 38, 71, "Input",ExpressionUUID->"4639fe6e-d305-44c1-81c3-afb4e380c88d"],
-Cell[3775688, 71813, 17885, 326, 136, "Output",ExpressionUUID->"ee73d4b7-147b-4902-9021-472fa1cbd2dd"]
+Cell[3783189, 71957, 7704, 168, 73, "Input",ExpressionUUID->"d5ce1c93-2d50-4d5c-a1f8-53932ea334e0"],
+Cell[3790896, 72127, 3873, 76, 60, "Output",ExpressionUUID->"55d1b86b-6c0e-4346-b514-6a32ca6f4162"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3793610, 72144, 434, 11, 22, "Input",ExpressionUUID->"487c1f18-3c65-4275-b382-bd34678bb77b"],
-Cell[3794047, 72157, 5661, 140, 180, "Output",ExpressionUUID->"98313969-c467-4d0e-84c2-9301e7354fd8"]
+Cell[3794806, 72208, 1805, 38, 71, "Input",ExpressionUUID->"4639fe6e-d305-44c1-81c3-afb4e380c88d"],
+Cell[3796614, 72248, 17885, 326, 136, "Output",ExpressionUUID->"ee73d4b7-147b-4902-9021-472fa1cbd2dd"]
}, Open ]],
-Cell[3799723, 72300, 2143, 37, 55, "Input",ExpressionUUID->"f984095d-d7b8-42c0-84b6-f249f7191889"],
Cell[CellGroupData[{
-Cell[3801891, 72341, 7833, 169, 89, "Input",ExpressionUUID->"eb772438-6d55-4597-94c4-e8e4c8a28dea"],
-Cell[3809727, 72512, 2018, 33, 37, "Message",ExpressionUUID->"15e11a28-3910-4175-baec-32f60966f167"],
-Cell[3811748, 72547, 4286, 85, 60, "Output",ExpressionUUID->"dc1d0e6d-dbfc-4101-8f2b-a45c3ce40dc1"]
+Cell[3814536, 72579, 434, 11, 22, "Input",ExpressionUUID->"487c1f18-3c65-4275-b382-bd34678bb77b"],
+Cell[3814973, 72592, 5661, 140, 180, "Output",ExpressionUUID->"98313969-c467-4d0e-84c2-9301e7354fd8"]
}, Open ]],
+Cell[3820649, 72735, 2143, 37, 55, "Input",ExpressionUUID->"f984095d-d7b8-42c0-84b6-f249f7191889"],
Cell[CellGroupData[{
-Cell[3816071, 72637, 1853, 38, 71, "Input",ExpressionUUID->"6f764f4a-8e60-4ade-81f6-342ce8502e9b"],
-Cell[3817927, 72677, 17826, 324, 138, "Output",ExpressionUUID->"073b197f-bc4b-40a2-a232-0cc8f06d961e"]
+Cell[3822817, 72776, 7833, 169, 89, "Input",ExpressionUUID->"eb772438-6d55-4597-94c4-e8e4c8a28dea"],
+Cell[3830653, 72947, 2018, 33, 37, "Message",ExpressionUUID->"15e11a28-3910-4175-baec-32f60966f167"],
+Cell[3832674, 72982, 4286, 85, 60, "Output",ExpressionUUID->"dc1d0e6d-dbfc-4101-8f2b-a45c3ce40dc1"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3835790, 73006, 480, 11, 22, "Input",ExpressionUUID->"afe99e33-748e-47f2-ba2a-c0c57008e3ff"],
-Cell[3836273, 73019, 7596, 187, 177, "Output",ExpressionUUID->"76d79e7a-9d2d-45b3-bb8a-8f918994420a"]
-}, Open ]]
+Cell[3836997, 73072, 1853, 38, 71, "Input",ExpressionUUID->"6f764f4a-8e60-4ade-81f6-342ce8502e9b"],
+Cell[3838853, 73112, 17826, 324, 138, "Output",ExpressionUUID->"073b197f-bc4b-40a2-a232-0cc8f06d961e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3843918, 73212, 418, 11, 40, "Section",ExpressionUUID->"c1a07f43-bf98-4ded-8fe2-acd38d81a62a"],
-Cell[3844339, 73225, 557, 10, 22, "Input",ExpressionUUID->"9814740b-6ceb-49dd-a8e7-470aa128f596"],
-Cell[3844899, 73237, 7556, 114, 71, "Input",ExpressionUUID->"e5da5cdc-dea4-468f-9f80-7bcb8f7055ed"],
+Cell[3856716, 73441, 480, 11, 22, "Input",ExpressionUUID->"afe99e33-748e-47f2-ba2a-c0c57008e3ff"],
+Cell[3857199, 73454, 7596, 187, 177, "Output",ExpressionUUID->"76d79e7a-9d2d-45b3-bb8a-8f918994420a"]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[3864844, 73647, 418, 11, 40, "Section",ExpressionUUID->"c1a07f43-bf98-4ded-8fe2-acd38d81a62a"],
+Cell[3865265, 73660, 557, 10, 22, "Input",ExpressionUUID->"9814740b-6ceb-49dd-a8e7-470aa128f596"],
+Cell[3865825, 73672, 7556, 114, 71, "Input",ExpressionUUID->"e5da5cdc-dea4-468f-9f80-7bcb8f7055ed"],
Cell[CellGroupData[{
-Cell[3852480, 73355, 9445, 139, 22, "Input",ExpressionUUID->"61971941-a9ac-455d-84ae-8db30be2e665"],
-Cell[3861928, 73496, 1547, 30, 25, "Output",ExpressionUUID->"d79a197b-d3c2-420f-8a75-43a5a1f3eb88"]
+Cell[3873406, 73790, 9445, 139, 22, "Input",ExpressionUUID->"61971941-a9ac-455d-84ae-8db30be2e665"],
+Cell[3882854, 73931, 1547, 30, 25, "Output",ExpressionUUID->"d79a197b-d3c2-420f-8a75-43a5a1f3eb88"]
}, Open ]],
-Cell[3863490, 73529, 6133, 94, 71, "Input",ExpressionUUID->"7251e138-0073-4aed-93ec-409e542ba595"],
+Cell[3884416, 73964, 6133, 94, 71, "Input",ExpressionUUID->"7251e138-0073-4aed-93ec-409e542ba595"],
Cell[CellGroupData[{
-Cell[3869648, 73627, 9617, 140, 24, "Input",ExpressionUUID->"83870e45-e831-43bd-830f-3bbd0bc4cf26"],
-Cell[3879268, 73769, 1710, 36, 25, "Output",ExpressionUUID->"608e5f38-8dc5-4659-9821-1c08ee7937a3"]
+Cell[3890574, 74062, 9617, 140, 24, "Input",ExpressionUUID->"83870e45-e831-43bd-830f-3bbd0bc4cf26"],
+Cell[3900194, 74204, 1710, 36, 25, "Output",ExpressionUUID->"608e5f38-8dc5-4659-9821-1c08ee7937a3"]
}, Open ]],
-Cell[3880993, 73808, 6382, 98, 71, "Input",ExpressionUUID->"2b68538e-eb4e-4fc5-8598-9d7f4cf47a71"],
+Cell[3901919, 74243, 6382, 98, 71, "Input",ExpressionUUID->"2b68538e-eb4e-4fc5-8598-9d7f4cf47a71"],
Cell[CellGroupData[{
-Cell[3887400, 73910, 9726, 141, 24, "Input",ExpressionUUID->"f2eb7ff1-b83a-4711-baeb-03d638af762f"],
-Cell[3897129, 74053, 2245, 46, 25, "Output",ExpressionUUID->"8d8581e1-e769-405e-8440-00d9ea8a80b7"]
+Cell[3908326, 74345, 9726, 141, 24, "Input",ExpressionUUID->"f2eb7ff1-b83a-4711-baeb-03d638af762f"],
+Cell[3918055, 74488, 2245, 46, 25, "Output",ExpressionUUID->"8d8581e1-e769-405e-8440-00d9ea8a80b7"]
}, Open ]],
-Cell[3899389, 74102, 5984, 92, 71, "Input",ExpressionUUID->"ff1cfdef-3775-4671-b5a8-7f84d899bb44"],
+Cell[3920315, 74537, 5984, 92, 71, "Input",ExpressionUUID->"ff1cfdef-3775-4671-b5a8-7f84d899bb44"],
Cell[CellGroupData[{
-Cell[3905398, 74198, 9285, 135, 24, "Input",ExpressionUUID->"4ac9a3d8-7344-4b36-86cc-927251f84ae6"],
-Cell[3914686, 74335, 2050, 47, 25, "Output",ExpressionUUID->"4020c1a4-5f22-47ef-9d1f-adef13840e75"]
+Cell[3926324, 74633, 9285, 135, 24, "Input",ExpressionUUID->"4ac9a3d8-7344-4b36-86cc-927251f84ae6"],
+Cell[3935612, 74770, 2050, 47, 25, "Output",ExpressionUUID->"4020c1a4-5f22-47ef-9d1f-adef13840e75"]
}, Open ]],
-Cell[3916751, 74385, 5931, 92, 71, "Input",ExpressionUUID->"be587998-8957-48f9-8d89-e1f575b484d9"],
+Cell[3937677, 74820, 5931, 92, 71, "Input",ExpressionUUID->"be587998-8957-48f9-8d89-e1f575b484d9"],
Cell[CellGroupData[{
-Cell[3922707, 74481, 9772, 142, 24, "Input",ExpressionUUID->"30f0ed04-9858-4017-8217-985c3efc1c9b"],
-Cell[3932482, 74625, 1787, 44, 25, "Output",ExpressionUUID->"c81e0168-c726-4188-a9c4-724e6bccc499"]
+Cell[3943633, 74916, 9772, 142, 24, "Input",ExpressionUUID->"30f0ed04-9858-4017-8217-985c3efc1c9b"],
+Cell[3953408, 75060, 1787, 44, 25, "Output",ExpressionUUID->"c81e0168-c726-4188-a9c4-724e6bccc499"]
}, Open ]],
-Cell[3934284, 74672, 6482, 99, 71, "Input",ExpressionUUID->"689e18ed-1ec8-498a-ad1b-507e0dd03bae"],
+Cell[3955210, 75107, 6482, 99, 71, "Input",ExpressionUUID->"689e18ed-1ec8-498a-ad1b-507e0dd03bae"],
Cell[CellGroupData[{
-Cell[3940791, 74775, 10149, 147, 24, "Input",ExpressionUUID->"d483d5c3-c5f0-4bc3-b35a-ee3705301f57"],
-Cell[3950943, 74924, 2092, 49, 27, "Output",ExpressionUUID->"972e9daa-b8c0-48ea-94a6-5c1206f9ded8"]
+Cell[3961717, 75210, 10149, 147, 24, "Input",ExpressionUUID->"d483d5c3-c5f0-4bc3-b35a-ee3705301f57"],
+Cell[3971869, 75359, 2092, 49, 27, "Output",ExpressionUUID->"972e9daa-b8c0-48ea-94a6-5c1206f9ded8"]
}, Open ]],
-Cell[3953050, 74976, 6235, 96, 71, "Input",ExpressionUUID->"4908c8f4-c01f-434c-9530-5ff19546ec45"],
+Cell[3973976, 75411, 6235, 96, 71, "Input",ExpressionUUID->"4908c8f4-c01f-434c-9530-5ff19546ec45"],
Cell[CellGroupData[{
-Cell[3959310, 75076, 10145, 147, 24, "Input",ExpressionUUID->"c63ac5aa-bc1a-4703-8f86-c784cca22af9"],
-Cell[3969458, 75225, 2274, 54, 44, "Output",ExpressionUUID->"8cee96ed-e342-42b4-9a7c-986d1e772ed3"]
+Cell[3980236, 75511, 10145, 147, 24, "Input",ExpressionUUID->"c63ac5aa-bc1a-4703-8f86-c784cca22af9"],
+Cell[3990384, 75660, 2274, 54, 44, "Output",ExpressionUUID->"8cee96ed-e342-42b4-9a7c-986d1e772ed3"]
}, Open ]],
-Cell[3971747, 75282, 6849, 104, 71, "Input",ExpressionUUID->"6dc40e0e-abcd-407f-bbc6-3e7148e2aec4"],
+Cell[3992673, 75717, 6849, 104, 71, "Input",ExpressionUUID->"6dc40e0e-abcd-407f-bbc6-3e7148e2aec4"],
Cell[CellGroupData[{
-Cell[3978621, 75390, 10147, 147, 24, "Input",ExpressionUUID->"616ce136-6737-40e5-8029-31272add86f8"],
-Cell[3988771, 75539, 2410, 60, 44, "Output",ExpressionUUID->"9d4cc682-8c95-449b-9ae1-a07d60f17b16"]
+Cell[3999547, 75825, 10147, 147, 24, "Input",ExpressionUUID->"616ce136-6737-40e5-8029-31272add86f8"],
+Cell[4009697, 75974, 2410, 60, 44, "Output",ExpressionUUID->"9d4cc682-8c95-449b-9ae1-a07d60f17b16"]
}, Open ]],
-Cell[3991196, 75602, 7981, 119, 71, "Input",ExpressionUUID->"0359663b-ea4b-4f2b-b953-154950f875db"],
+Cell[4012122, 76037, 7981, 119, 71, "Input",ExpressionUUID->"0359663b-ea4b-4f2b-b953-154950f875db"],
Cell[CellGroupData[{
-Cell[3999202, 75725, 10415, 151, 24, "Input",ExpressionUUID->"ec848311-8958-4766-9a5d-9be5abcc44cb"],
-Cell[4009620, 75878, 3299, 75, 44, "Output",ExpressionUUID->"51334039-280f-48e2-b328-4297f777c9de"]
+Cell[4020128, 76160, 10415, 151, 24, "Input",ExpressionUUID->"ec848311-8958-4766-9a5d-9be5abcc44cb"],
+Cell[4030546, 76313, 3299, 75, 44, "Output",ExpressionUUID->"51334039-280f-48e2-b328-4297f777c9de"]
}, Open ]],
-Cell[4012934, 75956, 7623, 113, 71, "Input",ExpressionUUID->"49fccc0f-c05a-483f-ad54-254b7500e1ec"],
+Cell[4033860, 76391, 7623, 113, 71, "Input",ExpressionUUID->"49fccc0f-c05a-483f-ad54-254b7500e1ec"],
Cell[CellGroupData[{
-Cell[4020582, 76073, 12166, 172, 24, "Input",ExpressionUUID->"3400ca05-e157-461b-96a6-83634df1cc38"],
-Cell[4032751, 76247, 619, 12, 22, "Message",ExpressionUUID->"4717bc47-0f9e-459c-a089-7072d9d8546f"],
-Cell[4033373, 76261, 4332, 93, 44, "Output",ExpressionUUID->"9e06fa9c-619d-48be-8bd4-a62423b68459"]
+Cell[4041508, 76508, 12166, 172, 24, "Input",ExpressionUUID->"3400ca05-e157-461b-96a6-83634df1cc38"],
+Cell[4053677, 76682, 619, 12, 22, "Message",ExpressionUUID->"4717bc47-0f9e-459c-a089-7072d9d8546f"],
+Cell[4054299, 76696, 4332, 93, 44, "Output",ExpressionUUID->"9e06fa9c-619d-48be-8bd4-a62423b68459"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4037742, 76359, 996, 26, 24, "Input",ExpressionUUID->"7336ac6b-83d1-49ff-a184-4670f1967f5f"],
-Cell[4038741, 76387, 1400, 38, 25, "Output",ExpressionUUID->"a267ea60-447c-4dcc-ab03-202e34d3e02b"]
+Cell[4058668, 76794, 996, 26, 24, "Input",ExpressionUUID->"7336ac6b-83d1-49ff-a184-4670f1967f5f"],
+Cell[4059667, 76822, 1400, 38, 25, "Output",ExpressionUUID->"a267ea60-447c-4dcc-ab03-202e34d3e02b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4040178, 76430, 1244, 30, 24, "Input",ExpressionUUID->"15ada2d4-3591-4b28-a4a0-0c24a32c8424"],
-Cell[4041425, 76462, 1620, 40, 25, "Output",ExpressionUUID->"769cfb1a-0cd6-4aa9-816e-ac5e5367d434"]
+Cell[4061104, 76865, 1244, 30, 24, "Input",ExpressionUUID->"15ada2d4-3591-4b28-a4a0-0c24a32c8424"],
+Cell[4062351, 76897, 1620, 40, 25, "Output",ExpressionUUID->"769cfb1a-0cd6-4aa9-816e-ac5e5367d434"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4043082, 76507, 1196, 29, 24, "Input",ExpressionUUID->"49c36534-7e17-40fd-b17b-6c24396cf79b"],
-Cell[4044281, 76538, 1610, 40, 25, "Output",ExpressionUUID->"3eb32547-a996-48e0-bbf9-9f8a2877f2f6"]
+Cell[4064008, 76942, 1196, 29, 24, "Input",ExpressionUUID->"49c36534-7e17-40fd-b17b-6c24396cf79b"],
+Cell[4065207, 76973, 1610, 40, 25, "Output",ExpressionUUID->"3eb32547-a996-48e0-bbf9-9f8a2877f2f6"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4045928, 76583, 1138, 28, 24, "Input",ExpressionUUID->"1b662f6f-7fb0-44b3-98b2-fcd0cb6cab57"],
-Cell[4047069, 76613, 1574, 39, 25, "Output",ExpressionUUID->"1581c58d-9a8e-473e-b952-16b423bd8281"]
+Cell[4066854, 77018, 1138, 28, 24, "Input",ExpressionUUID->"1b662f6f-7fb0-44b3-98b2-fcd0cb6cab57"],
+Cell[4067995, 77048, 1574, 39, 25, "Output",ExpressionUUID->"1581c58d-9a8e-473e-b952-16b423bd8281"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4048680, 76657, 1194, 29, 24, "Input",ExpressionUUID->"11f063b7-0e7a-4b08-8d80-05ffaf815f0e"],
-Cell[4049877, 76688, 1957, 48, 25, "Output",ExpressionUUID->"59d2c040-d7ec-47c4-8ccb-8dc4f6bdfd9c"]
+Cell[4069606, 77092, 1194, 29, 24, "Input",ExpressionUUID->"11f063b7-0e7a-4b08-8d80-05ffaf815f0e"],
+Cell[4070803, 77123, 1957, 48, 25, "Output",ExpressionUUID->"59d2c040-d7ec-47c4-8ccb-8dc4f6bdfd9c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4051871, 76741, 1114, 19, 24, "Input",ExpressionUUID->"73f3d0d8-55bd-4b87-9313-593ad5301d2f"],
-Cell[4052988, 76762, 13253, 302, 177, "Output",ExpressionUUID->"88cd5860-1a82-4fe9-9019-187e9a6284bc"]
+Cell[4072797, 77176, 1114, 19, 24, "Input",ExpressionUUID->"73f3d0d8-55bd-4b87-9313-593ad5301d2f"],
+Cell[4073914, 77197, 13253, 302, 177, "Output",ExpressionUUID->"88cd5860-1a82-4fe9-9019-187e9a6284bc"]
}, Open ]],
-Cell[4066256, 77067, 519, 16, 22, "Input",ExpressionUUID->"a5dcf275-1d4e-4c96-a79c-53a3afcdb89b"],
+Cell[4087182, 77502, 519, 16, 22, "Input",ExpressionUUID->"a5dcf275-1d4e-4c96-a79c-53a3afcdb89b"],
Cell[CellGroupData[{
-Cell[4066800, 77087, 535, 16, 24, "Input",ExpressionUUID->"d831d23a-4316-405f-82be-49802e861f83"],
-Cell[4067338, 77105, 535, 17, 40, "Output",ExpressionUUID->"80e78af9-9b53-4cc1-b28d-62d39e95442d"]
+Cell[4087726, 77522, 535, 16, 24, "Input",ExpressionUUID->"d831d23a-4316-405f-82be-49802e861f83"],
+Cell[4088264, 77540, 535, 17, 40, "Output",ExpressionUUID->"80e78af9-9b53-4cc1-b28d-62d39e95442d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4067910, 77127, 230, 5, 22, "Input",ExpressionUUID->"b077fbbc-1b67-46ce-928c-cb9cb93feb84"],
-Cell[4068143, 77134, 193, 5, 39, "Output",ExpressionUUID->"fe7374a3-2e61-4f7f-bfa8-7f2610ce7280"]
+Cell[4088836, 77562, 230, 5, 22, "Input",ExpressionUUID->"b077fbbc-1b67-46ce-928c-cb9cb93feb84"],
+Cell[4089069, 77569, 193, 5, 39, "Output",ExpressionUUID->"fe7374a3-2e61-4f7f-bfa8-7f2610ce7280"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4068373, 77144, 1373, 33, 24, "Input",ExpressionUUID->"7ad3e447-b82f-4f7c-bc15-cc792a2f0f08"],
-Cell[4069749, 77179, 1471, 47, 41, "Output",ExpressionUUID->"18e6e545-3d72-4cad-bb2d-62756bb962d5"]
+Cell[4089299, 77579, 1373, 33, 24, "Input",ExpressionUUID->"7ad3e447-b82f-4f7c-bc15-cc792a2f0f08"],
+Cell[4090675, 77614, 1471, 47, 41, "Output",ExpressionUUID->"18e6e545-3d72-4cad-bb2d-62756bb962d5"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4071257, 77231, 927, 24, 22, "Input",ExpressionUUID->"e5a7c569-4ce5-4d3c-98f3-9160229fa5f0"],
-Cell[4072187, 77257, 2498, 71, 41, "Output",ExpressionUUID->"f01cccdd-cd51-4883-b237-195d686deb4a"]
+Cell[4092183, 77666, 927, 24, 22, "Input",ExpressionUUID->"e5a7c569-4ce5-4d3c-98f3-9160229fa5f0"],
+Cell[4093113, 77692, 2498, 71, 41, "Output",ExpressionUUID->"f01cccdd-cd51-4883-b237-195d686deb4a"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4074722, 77333, 728, 20, 24, "Input",ExpressionUUID->"667660ba-66f5-4b76-8eaf-75601abced2b"],
-Cell[4075453, 77355, 255, 4, 25, "Output",ExpressionUUID->"2988841f-72ad-4f38-8e0d-50ce0c5e4c4a"]
+Cell[4095648, 77768, 728, 20, 24, "Input",ExpressionUUID->"667660ba-66f5-4b76-8eaf-75601abced2b"],
+Cell[4096379, 77790, 255, 4, 25, "Output",ExpressionUUID->"2988841f-72ad-4f38-8e0d-50ce0c5e4c4a"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4075745, 77364, 572, 11, 22, "Input",ExpressionUUID->"a8889652-7842-41cf-8091-72987781207f"],
-Cell[4076320, 77377, 5386, 107, 175, "Output",ExpressionUUID->"c9889d41-efaa-48df-8497-e0395247ab18"]
+Cell[4096671, 77799, 572, 11, 22, "Input",ExpressionUUID->"a8889652-7842-41cf-8091-72987781207f"],
+Cell[4097246, 77812, 5386, 107, 175, "Output",ExpressionUUID->"c9889d41-efaa-48df-8497-e0395247ab18"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4081743, 77489, 264, 6, 23, "Input",ExpressionUUID->"f492346f-039d-454e-b401-4478d7324c1e"],
-Cell[4082010, 77497, 246, 4, 25, "Output",ExpressionUUID->"8116d71c-2d49-4040-aba8-7a291ab11d2b"]
+Cell[4102669, 77924, 264, 6, 23, "Input",ExpressionUUID->"f492346f-039d-454e-b401-4478d7324c1e"],
+Cell[4102936, 77932, 246, 4, 25, "Output",ExpressionUUID->"8116d71c-2d49-4040-aba8-7a291ab11d2b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4082293, 77506, 314, 7, 25, "Input",ExpressionUUID->"8a8852a1-d6eb-4f81-aae0-a33a01326f50"],
-Cell[4082610, 77515, 274, 5, 25, "Output",ExpressionUUID->"d72a90fc-a009-4c0c-949a-963bb5b65ef4"]
+Cell[4103219, 77941, 314, 7, 25, "Input",ExpressionUUID->"8a8852a1-d6eb-4f81-aae0-a33a01326f50"],
+Cell[4103536, 77950, 274, 5, 25, "Output",ExpressionUUID->"d72a90fc-a009-4c0c-949a-963bb5b65ef4"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4082921, 77525, 234, 5, 22, "Input",ExpressionUUID->"f758c571-4941-4819-b8ff-bda876db06de"],
-Cell[4083158, 77532, 475, 15, 39, "Output",ExpressionUUID->"5a0a399e-f5ce-43d7-878e-195ab44a54cc"]
+Cell[4103847, 77960, 234, 5, 22, "Input",ExpressionUUID->"f758c571-4941-4819-b8ff-bda876db06de"],
+Cell[4104084, 77967, 475, 15, 39, "Output",ExpressionUUID->"5a0a399e-f5ce-43d7-878e-195ab44a54cc"]
}, Open ]],
-Cell[4083648, 77550, 1170, 29, 24, "Input",ExpressionUUID->"b3d86629-c3a8-4e5c-8968-6735fe772663"],
+Cell[4104574, 77985, 1170, 29, 24, "Input",ExpressionUUID->"b3d86629-c3a8-4e5c-8968-6735fe772663"],
Cell[CellGroupData[{
-Cell[4084843, 77583, 601, 16, 25, "Input",ExpressionUUID->"a06dd50c-b2a6-48cd-a550-24e88107ce4e"],
-Cell[4085447, 77601, 453, 10, 22, "Message",ExpressionUUID->"231f26c8-d164-4ed2-9d95-3ae6b9e7db4a"],
-Cell[4085903, 77613, 453, 10, 22, "Message",ExpressionUUID->"9234dcc5-0207-4b2e-8051-0501c80d8d9f"],
-Cell[4086359, 77625, 451, 10, 22, "Message",ExpressionUUID->"d1fb6878-82d5-4bae-8198-ca5be20a90a5"],
-Cell[4086813, 77637, 457, 10, 22, "Message",ExpressionUUID->"14e79556-c616-4367-a2e8-6eb65243108f"],
-Cell[4087273, 77649, 21323, 381, 168, "Output",ExpressionUUID->"79b3a56a-fb4e-43df-a5e7-cc282c5e91e5"]
+Cell[4105769, 78018, 601, 16, 25, "Input",ExpressionUUID->"a06dd50c-b2a6-48cd-a550-24e88107ce4e"],
+Cell[4106373, 78036, 453, 10, 22, "Message",ExpressionUUID->"231f26c8-d164-4ed2-9d95-3ae6b9e7db4a"],
+Cell[4106829, 78048, 453, 10, 22, "Message",ExpressionUUID->"9234dcc5-0207-4b2e-8051-0501c80d8d9f"],
+Cell[4107285, 78060, 451, 10, 22, "Message",ExpressionUUID->"d1fb6878-82d5-4bae-8198-ca5be20a90a5"],
+Cell[4107739, 78072, 457, 10, 22, "Message",ExpressionUUID->"14e79556-c616-4367-a2e8-6eb65243108f"],
+Cell[4108199, 78084, 21323, 381, 168, "Output",ExpressionUUID->"79b3a56a-fb4e-43df-a5e7-cc282c5e91e5"]
}, Open ]],
-Cell[4108611, 78033, 290, 8, 22, "Input",ExpressionUUID->"16011121-ccb9-4633-8c80-193152571641"],
-Cell[4108904, 78043, 7335, 108, 71, "Input",ExpressionUUID->"dd17419e-1a61-45a6-bc6e-4fc73cef39c7"],
+Cell[4129537, 78468, 290, 8, 22, "Input",ExpressionUUID->"16011121-ccb9-4633-8c80-193152571641"],
+Cell[4129830, 78478, 7335, 108, 71, "Input",ExpressionUUID->"dd17419e-1a61-45a6-bc6e-4fc73cef39c7"],
Cell[CellGroupData[{
-Cell[4116264, 78155, 11347, 158, 24, "Input",ExpressionUUID->"26c43faf-69ad-4747-a4c2-02faedeae0ba"],
-Cell[4127614, 78315, 811, 15, 22, "Message",ExpressionUUID->"f4aabacf-847b-4f9a-989e-275f0207bfac"],
-Cell[4128428, 78332, 3063, 76, 44, "Output",ExpressionUUID->"54f52e14-1cc2-4199-81ae-b38e003ee6a7"]
+Cell[4137190, 78590, 11347, 158, 24, "Input",ExpressionUUID->"26c43faf-69ad-4747-a4c2-02faedeae0ba"],
+Cell[4148540, 78750, 811, 15, 22, "Message",ExpressionUUID->"f4aabacf-847b-4f9a-989e-275f0207bfac"],
+Cell[4149354, 78767, 3063, 76, 44, "Output",ExpressionUUID->"54f52e14-1cc2-4199-81ae-b38e003ee6a7"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4131528, 78413, 1145, 24, 22, "Input",ExpressionUUID->"0e67ed2d-901e-4ad6-bc18-0187d868db2a"],
-Cell[4132676, 78439, 30127, 520, 412, "Output",ExpressionUUID->"bb3e229d-42a2-4f31-ba52-03d502114257"]
+Cell[4152454, 78848, 1145, 24, 22, "Input",ExpressionUUID->"0e67ed2d-901e-4ad6-bc18-0187d868db2a"],
+Cell[4153602, 78874, 30127, 520, 412, "Output",ExpressionUUID->"bb3e229d-42a2-4f31-ba52-03d502114257"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4162840, 78964, 1992, 47, 97, "Input",ExpressionUUID->"f953e6b7-d6db-4adc-ae62-1eaf92d1b68b"],
-Cell[4164835, 79013, 9944, 189, 428, "Output",ExpressionUUID->"52df7986-73ef-4731-a037-32f90ae8c2ca"]
+Cell[4183766, 79399, 1992, 47, 97, "Input",ExpressionUUID->"f953e6b7-d6db-4adc-ae62-1eaf92d1b68b"],
+Cell[4185761, 79448, 9944, 189, 428, "Output",ExpressionUUID->"52df7986-73ef-4731-a037-32f90ae8c2ca"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4174816, 79207, 883, 24, 38, "Input",ExpressionUUID->"49320ca4-5c8c-4b1e-98f4-0fce9d6f767d"],
-Cell[4175702, 79233, 1297, 32, 35, "Output",ExpressionUUID->"a5bcadc6-2050-4678-82db-1cc984ce4cf8"]
+Cell[4195742, 79642, 883, 24, 38, "Input",ExpressionUUID->"49320ca4-5c8c-4b1e-98f4-0fce9d6f767d"],
+Cell[4196628, 79668, 1297, 32, 35, "Output",ExpressionUUID->"a5bcadc6-2050-4678-82db-1cc984ce4cf8"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4177036, 79270, 1030, 30, 24, "Input",ExpressionUUID->"23c90a2a-3181-4507-b03d-1c6a524d318f"],
-Cell[4178069, 79302, 1137, 23, 58, "Output",ExpressionUUID->"804ea812-1e08-451e-b89b-85e21b7a900b"]
+Cell[4197962, 79705, 1030, 30, 24, "Input",ExpressionUUID->"23c90a2a-3181-4507-b03d-1c6a524d318f"],
+Cell[4198995, 79737, 1137, 23, 58, "Output",ExpressionUUID->"804ea812-1e08-451e-b89b-85e21b7a900b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4179243, 79330, 201, 3, 22, "Input",ExpressionUUID->"411d79ae-3a60-45b7-ad34-0402223bc804"],
-Cell[4179447, 79335, 2450, 62, 44, "Output",ExpressionUUID->"d0487fb6-cc6f-4a82-b7e9-c88e89124f26"]
+Cell[4200169, 79765, 201, 3, 22, "Input",ExpressionUUID->"411d79ae-3a60-45b7-ad34-0402223bc804"],
+Cell[4200373, 79770, 2450, 62, 44, "Output",ExpressionUUID->"d0487fb6-cc6f-4a82-b7e9-c88e89124f26"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4181934, 79402, 1854, 45, 99, "Input",ExpressionUUID->"f3f929dc-63b9-41e4-a7fa-bfc6233c0667"],
-Cell[4183791, 79449, 6148, 119, 449, "Output",ExpressionUUID->"849e1d2a-9c50-44de-89d5-857702cb5fd5"]
+Cell[4202860, 79837, 1854, 45, 99, "Input",ExpressionUUID->"f3f929dc-63b9-41e4-a7fa-bfc6233c0667"],
+Cell[4204717, 79884, 6148, 119, 449, "Output",ExpressionUUID->"849e1d2a-9c50-44de-89d5-857702cb5fd5"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4189976, 79573, 466, 10, 22, "Input",ExpressionUUID->"a0caebd2-23a7-4511-9498-0c1a2e9cfe53"],
-Cell[4190445, 79585, 1717, 42, 271, "Output",ExpressionUUID->"7be21de8-007c-4120-a339-1f3ac51c3e60"]
+Cell[4210902, 80008, 466, 10, 22, "Input",ExpressionUUID->"a0caebd2-23a7-4511-9498-0c1a2e9cfe53"],
+Cell[4211371, 80020, 1717, 42, 271, "Output",ExpressionUUID->"7be21de8-007c-4120-a339-1f3ac51c3e60"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4192199, 79632, 1284, 28, 75, "Input",ExpressionUUID->"6fcf53ff-126b-4b26-a83b-148e00bf6b1b"],
-Cell[4193486, 79662, 6221, 139, 181, "Output",ExpressionUUID->"c786cfbb-e4b0-428c-b40c-df3c0c0def56"]
+Cell[4213125, 80067, 1284, 28, 75, "Input",ExpressionUUID->"6fcf53ff-126b-4b26-a83b-148e00bf6b1b"],
+Cell[4214412, 80097, 6221, 139, 181, "Output",ExpressionUUID->"c786cfbb-e4b0-428c-b40c-df3c0c0def56"]
}, Open ]],
-Cell[4199722, 79804, 5436, 83, 71, "Input",ExpressionUUID->"9f042e79-5a77-40a7-a4d2-a6d243e6aed3"],
+Cell[4220648, 80239, 5436, 83, 71, "Input",ExpressionUUID->"9f042e79-5a77-40a7-a4d2-a6d243e6aed3"],
Cell[CellGroupData[{
-Cell[4205183, 79891, 9564, 136, 24, "Input",ExpressionUUID->"9dd5f638-04be-4ab9-8e9e-a36242ce03fc"],
-Cell[4214750, 80029, 7487, 126, 44, "Output",ExpressionUUID->"9e62f072-c037-4c2b-a694-0a0eb1b1e9ea"]
+Cell[4226109, 80326, 9564, 136, 24, "Input",ExpressionUUID->"9dd5f638-04be-4ab9-8e9e-a36242ce03fc"],
+Cell[4235676, 80464, 7487, 126, 44, "Output",ExpressionUUID->"9e62f072-c037-4c2b-a694-0a0eb1b1e9ea"]
}, Open ]],
-Cell[4222252, 80158, 5536, 85, 71, "Input",ExpressionUUID->"b83dae54-967b-45b1-81ce-458e168a8389"],
+Cell[4243178, 80593, 5536, 85, 71, "Input",ExpressionUUID->"b83dae54-967b-45b1-81ce-458e168a8389"],
Cell[CellGroupData[{
-Cell[4227813, 80247, 9601, 136, 24, "Input",ExpressionUUID->"9835d85f-5114-4265-bc49-5f2e4c050b32"],
-Cell[4237417, 80385, 7667, 130, 44, "Output",ExpressionUUID->"ebe14f51-7209-4e07-91c9-c24982da80ea"]
+Cell[4248739, 80682, 9601, 136, 24, "Input",ExpressionUUID->"9835d85f-5114-4265-bc49-5f2e4c050b32"],
+Cell[4258343, 80820, 7667, 130, 44, "Output",ExpressionUUID->"ebe14f51-7209-4e07-91c9-c24982da80ea"]
}, Open ]],
-Cell[4245099, 80518, 5834, 89, 71, "Input",ExpressionUUID->"047dad42-d9f8-4bb8-a64f-7e04a9585915"],
+Cell[4266025, 80953, 5834, 89, 71, "Input",ExpressionUUID->"047dad42-d9f8-4bb8-a64f-7e04a9585915"],
Cell[CellGroupData[{
-Cell[4250958, 80611, 9747, 138, 24, "Input",ExpressionUUID->"890d932c-2ab7-4f89-a1ee-76f76a9c3c67"],
-Cell[4260708, 80751, 5810, 80, 25, "Output",ExpressionUUID->"e07ab9be-41a7-41c9-ae59-4c3f17b35525"]
+Cell[4271884, 81046, 9747, 138, 24, "Input",ExpressionUUID->"890d932c-2ab7-4f89-a1ee-76f76a9c3c67"],
+Cell[4281634, 81186, 5810, 80, 25, "Output",ExpressionUUID->"e07ab9be-41a7-41c9-ae59-4c3f17b35525"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4266555, 80836, 173, 4, 22, "Input",ExpressionUUID->"2af0cd55-f1de-4186-b4d2-7e0ee2fcbb90"],
-Cell[4266731, 80842, 189, 4, 25, "Output",ExpressionUUID->"22f7b89c-ce93-4b4d-9c59-f15ec7f6da73"]
+Cell[4287481, 81271, 173, 4, 22, "Input",ExpressionUUID->"2af0cd55-f1de-4186-b4d2-7e0ee2fcbb90"],
+Cell[4287657, 81277, 189, 4, 25, "Output",ExpressionUUID->"22f7b89c-ce93-4b4d-9c59-f15ec7f6da73"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4266957, 80851, 458, 12, 22, "Input",ExpressionUUID->"6029f4f2-49f1-4154-aecc-06d866e07507"],
-Cell[4267418, 80865, 335, 6, 25, "Output",ExpressionUUID->"15242adf-c742-46be-bda8-6054e9f087b3"]
+Cell[4287883, 81286, 458, 12, 22, "Input",ExpressionUUID->"6029f4f2-49f1-4154-aecc-06d866e07507"],
+Cell[4288344, 81300, 335, 6, 25, "Output",ExpressionUUID->"15242adf-c742-46be-bda8-6054e9f087b3"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4267790, 80876, 183, 3, 22, "Input",ExpressionUUID->"a4dbeef0-fcd6-4246-a096-026cd5c8fe7d"],
-Cell[4267976, 80881, 793, 19, 25, "Output",ExpressionUUID->"e5f37624-2f5e-4013-ae6b-6268f8ff6713"]
+Cell[4288716, 81311, 183, 3, 22, "Input",ExpressionUUID->"a4dbeef0-fcd6-4246-a096-026cd5c8fe7d"],
+Cell[4288902, 81316, 793, 19, 25, "Output",ExpressionUUID->"e5f37624-2f5e-4013-ae6b-6268f8ff6713"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4268806, 80905, 8397, 231, 246, "Input",ExpressionUUID->"115752ea-f3aa-4038-a6aa-91c3f57bfac5"],
-Cell[4277206, 81138, 10866, 253, 170, "Output",ExpressionUUID->"ffa200df-716b-49a6-86be-94fa59dec869"]
+Cell[4289732, 81340, 8397, 231, 246, "Input",ExpressionUUID->"115752ea-f3aa-4038-a6aa-91c3f57bfac5"],
+Cell[4298132, 81573, 10866, 253, 170, "Output",ExpressionUUID->"ffa200df-716b-49a6-86be-94fa59dec869"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4288109, 81396, 459, 12, 24, "Input",ExpressionUUID->"8fffab93-64df-4b6d-9647-f5f8bb98486e"],
-Cell[4288571, 81410, 618, 13, 25, "Output",ExpressionUUID->"20eb8865-5dd8-4dcd-ab85-d54dfd719358"]
+Cell[4309035, 81831, 459, 12, 24, "Input",ExpressionUUID->"8fffab93-64df-4b6d-9647-f5f8bb98486e"],
+Cell[4309497, 81845, 618, 13, 25, "Output",ExpressionUUID->"20eb8865-5dd8-4dcd-ab85-d54dfd719358"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4289226, 81428, 517, 14, 22, "Input",ExpressionUUID->"7c14b679-0a0b-4d2d-86fd-db7da5a08f8d"],
-Cell[4289746, 81444, 623, 13, 25, "Output",ExpressionUUID->"c86e3d74-dfee-43a3-b88b-5f71c70d4a28"]
+Cell[4310152, 81863, 517, 14, 22, "Input",ExpressionUUID->"7c14b679-0a0b-4d2d-86fd-db7da5a08f8d"],
+Cell[4310672, 81879, 623, 13, 25, "Output",ExpressionUUID->"c86e3d74-dfee-43a3-b88b-5f71c70d4a28"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4290406, 81462, 579, 16, 22, "Input",ExpressionUUID->"17e630bf-a8b6-4486-96e6-7f607c98ab57"],
-Cell[4290988, 81480, 316, 5, 25, "Output",ExpressionUUID->"34cf2491-74b3-42e9-9f31-17cb7bbb6838"]
+Cell[4311332, 81897, 579, 16, 22, "Input",ExpressionUUID->"17e630bf-a8b6-4486-96e6-7f607c98ab57"],
+Cell[4311914, 81915, 316, 5, 25, "Output",ExpressionUUID->"34cf2491-74b3-42e9-9f31-17cb7bbb6838"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4291341, 81490, 315, 8, 22, "Input",ExpressionUUID->"0598b222-62c5-416e-b305-746b40dd9bc3"],
-Cell[4291659, 81500, 269, 4, 25, "Output",ExpressionUUID->"c0cfe5fe-aabf-43c5-8e4a-26fc7484f455"]
+Cell[4312267, 81925, 315, 8, 22, "Input",ExpressionUUID->"0598b222-62c5-416e-b305-746b40dd9bc3"],
+Cell[4312585, 81935, 269, 4, 25, "Output",ExpressionUUID->"c0cfe5fe-aabf-43c5-8e4a-26fc7484f455"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4291965, 81509, 1119, 32, 24, "Input",ExpressionUUID->"5af9d17e-db82-48f8-90e9-228210a09ed5"],
-Cell[4293087, 81543, 737, 13, 25, "Output",ExpressionUUID->"9be1c398-b71f-4b8e-86ff-b57730c34ab5"]
+Cell[4312891, 81944, 1119, 32, 24, "Input",ExpressionUUID->"5af9d17e-db82-48f8-90e9-228210a09ed5"],
+Cell[4314013, 81978, 737, 13, 25, "Output",ExpressionUUID->"9be1c398-b71f-4b8e-86ff-b57730c34ab5"]
}, Open ]],
-Cell[4293839, 81559, 1033, 17, 22, "Input",ExpressionUUID->"b7b83165-8b6f-4f90-a072-18689e4da274"],
+Cell[4314765, 81994, 1033, 17, 22, "Input",ExpressionUUID->"b7b83165-8b6f-4f90-a072-18689e4da274"],
Cell[CellGroupData[{
-Cell[4294897, 81580, 255, 4, 22, "Input",ExpressionUUID->"6897f3b9-582a-494f-bdf5-c17bb76e55eb"],
-Cell[4295155, 81586, 244, 3, 25, "Output",ExpressionUUID->"af3bc580-2a55-4a7d-ac98-b39a4d20796c"]
+Cell[4315823, 82015, 255, 4, 22, "Input",ExpressionUUID->"6897f3b9-582a-494f-bdf5-c17bb76e55eb"],
+Cell[4316081, 82021, 244, 3, 25, "Output",ExpressionUUID->"af3bc580-2a55-4a7d-ac98-b39a4d20796c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4295436, 81594, 1406, 29, 24, "Input",ExpressionUUID->"934c6620-7229-4e4b-b2ba-810eea6190fc"],
-Cell[4296845, 81625, 823, 11, 25, "Output",ExpressionUUID->"97e63d9c-91b3-4669-accb-83df4a801f84"]
+Cell[4316362, 82029, 1406, 29, 24, "Input",ExpressionUUID->"934c6620-7229-4e4b-b2ba-810eea6190fc"],
+Cell[4317771, 82060, 823, 11, 25, "Output",ExpressionUUID->"97e63d9c-91b3-4669-accb-83df4a801f84"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4297705, 81641, 1182, 28, 71, "Input",ExpressionUUID->"3a1ee666-d77d-4248-b833-dd1b09c23d24"],
-Cell[4298890, 81671, 11988, 282, 183, "Output",ExpressionUUID->"058dec63-327d-4cf0-b0a1-cdf5c026a84b"]
+Cell[4318631, 82076, 1182, 28, 71, "Input",ExpressionUUID->"3a1ee666-d77d-4248-b833-dd1b09c23d24"],
+Cell[4319816, 82106, 11988, 282, 183, "Output",ExpressionUUID->"058dec63-327d-4cf0-b0a1-cdf5c026a84b"]
}, Open ]],
-Cell[4310893, 81956, 1095, 20, 22, "Input",ExpressionUUID->"f4bc065b-3d70-4f1f-bbed-9d1c17b3fc3d"],
+Cell[4331819, 82391, 1095, 20, 22, "Input",ExpressionUUID->"f4bc065b-3d70-4f1f-bbed-9d1c17b3fc3d"],
Cell[CellGroupData[{
-Cell[4312013, 81980, 1989, 47, 24, "Input",ExpressionUUID->"d1ee4b7a-f19c-4764-a00e-c0443a4a655f"],
-Cell[4314005, 82029, 261, 5, 25, "Output",ExpressionUUID->"1538c9df-d831-46f1-8713-7331dbb17ad5"]
+Cell[4332939, 82415, 1989, 47, 24, "Input",ExpressionUUID->"d1ee4b7a-f19c-4764-a00e-c0443a4a655f"],
+Cell[4334931, 82464, 261, 5, 25, "Output",ExpressionUUID->"1538c9df-d831-46f1-8713-7331dbb17ad5"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4314303, 82039, 3516, 71, 75, "Input",ExpressionUUID->"cb621e05-0372-4be4-8a7f-fa6af95394ed"],
-Cell[4317822, 82112, 2601, 36, 25, "Output",ExpressionUUID->"11752d12-3b73-4277-a911-0c1d26651286"]
+Cell[4335229, 82474, 3516, 71, 75, "Input",ExpressionUUID->"cb621e05-0372-4be4-8a7f-fa6af95394ed"],
+Cell[4338748, 82547, 2601, 36, 25, "Output",ExpressionUUID->"11752d12-3b73-4277-a911-0c1d26651286"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4320460, 82153, 1025, 28, 37, "Input",ExpressionUUID->"18d44a4a-c7fc-4ae5-848b-d13406c29337"],
-Cell[4321488, 82183, 538, 12, 25, "Output",ExpressionUUID->"99c9c147-0bc3-4778-9545-e9c45fe0ac14"]
+Cell[4341386, 82588, 1025, 28, 37, "Input",ExpressionUUID->"18d44a4a-c7fc-4ae5-848b-d13406c29337"],
+Cell[4342414, 82618, 538, 12, 25, "Output",ExpressionUUID->"99c9c147-0bc3-4778-9545-e9c45fe0ac14"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4322063, 82200, 940, 24, 24, "Input",ExpressionUUID->"e3524918-77d8-4a79-be8a-6de43155ca32"],
-Cell[4323006, 82226, 2600, 82, 27, "Output",ExpressionUUID->"a9939342-ed73-4ec4-91fc-0ea9e8060540"]
+Cell[4342989, 82635, 940, 24, 24, "Input",ExpressionUUID->"e3524918-77d8-4a79-be8a-6de43155ca32"],
+Cell[4343932, 82661, 2600, 82, 27, "Output",ExpressionUUID->"a9939342-ed73-4ec4-91fc-0ea9e8060540"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4325643, 82313, 312, 7, 22, "Input",ExpressionUUID->"5fd94adc-3ec9-44a6-9da8-ece1fda82850"],
-Cell[4325958, 82322, 210, 4, 25, "Output",ExpressionUUID->"4a09183b-1d26-4467-8906-95ef0ab9c6c8"]
+Cell[4346569, 82748, 312, 7, 22, "Input",ExpressionUUID->"5fd94adc-3ec9-44a6-9da8-ece1fda82850"],
+Cell[4346884, 82757, 210, 4, 25, "Output",ExpressionUUID->"4a09183b-1d26-4467-8906-95ef0ab9c6c8"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4326205, 82331, 624, 18, 39, "Input",ExpressionUUID->"73c66fd5-052d-458a-84d0-ede60e041f24"],
-Cell[4326832, 82351, 632, 12, 25, "Output",ExpressionUUID->"c0c4b728-d1d8-42c2-a3f1-8b215d3c5a43"]
+Cell[4347131, 82766, 624, 18, 39, "Input",ExpressionUUID->"73c66fd5-052d-458a-84d0-ede60e041f24"],
+Cell[4347758, 82786, 632, 12, 25, "Output",ExpressionUUID->"c0c4b728-d1d8-42c2-a3f1-8b215d3c5a43"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4327501, 82368, 1364, 36, 58, "Input",ExpressionUUID->"7a26d6af-0aab-455f-91db-5512571172b3"],
-Cell[4328868, 82406, 24078, 497, 171, "Output",ExpressionUUID->"1b652f9e-f35c-42cd-a7e0-f01c8229e46b"]
+Cell[4348427, 82803, 1364, 36, 58, "Input",ExpressionUUID->"7a26d6af-0aab-455f-91db-5512571172b3"],
+Cell[4349794, 82841, 24078, 497, 171, "Output",ExpressionUUID->"1b652f9e-f35c-42cd-a7e0-f01c8229e46b"]
}, Open ]],
-Cell[4352961, 82906, 4656, 71, 55, "Input",ExpressionUUID->"3d32eb0d-fb5d-46ba-bbff-a17aec10d743"],
+Cell[4373887, 83341, 4656, 71, 55, "Input",ExpressionUUID->"3d32eb0d-fb5d-46ba-bbff-a17aec10d743"],
Cell[CellGroupData[{
-Cell[4357642, 82981, 7928, 115, 22, "Input",ExpressionUUID->"40615a3b-3bf4-41cf-af74-188977e3a07e"],
-Cell[4365573, 83098, 440, 10, 22, "Message",ExpressionUUID->"1cd1ee4c-be11-4530-bf3b-f6416b08a0ff"],
-Cell[4366016, 83110, 5412, 91, 25, "Output",ExpressionUUID->"7acf39dc-8aed-44fe-8bb0-bb9436fd9010"]
+Cell[4378568, 83416, 7928, 115, 22, "Input",ExpressionUUID->"40615a3b-3bf4-41cf-af74-188977e3a07e"],
+Cell[4386499, 83533, 440, 10, 22, "Message",ExpressionUUID->"1cd1ee4c-be11-4530-bf3b-f6416b08a0ff"],
+Cell[4386942, 83545, 5412, 91, 25, "Output",ExpressionUUID->"7acf39dc-8aed-44fe-8bb0-bb9436fd9010"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4371465, 83206, 1935, 37, 71, "Input",ExpressionUUID->"bf8968d9-19d7-4017-b5b9-14c165d48e1d"],
-Cell[4373403, 83245, 18227, 329, 137, "Output",ExpressionUUID->"f716e403-3b85-4db1-bcc7-65265fa14b70"]
+Cell[4392391, 83641, 1935, 37, 71, "Input",ExpressionUUID->"bf8968d9-19d7-4017-b5b9-14c165d48e1d"],
+Cell[4394329, 83680, 18227, 329, 137, "Output",ExpressionUUID->"f716e403-3b85-4db1-bcc7-65265fa14b70"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4391667, 83579, 1636, 43, 41, "Input",ExpressionUUID->"a73f44d7-19db-4443-8971-77a7d3cbc4ac"],
-Cell[4393306, 83624, 221293, 3642, 180, "Output",ExpressionUUID->"2da9ed36-c74b-4b4e-987d-951628f83457"]
+Cell[4412593, 84014, 1636, 43, 41, "Input",ExpressionUUID->"a73f44d7-19db-4443-8971-77a7d3cbc4ac"],
+Cell[4414232, 84059, 221293, 3642, 180, "Output",ExpressionUUID->"2da9ed36-c74b-4b4e-987d-951628f83457"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4614636, 87271, 1661, 43, 41, "Input",ExpressionUUID->"0cce5618-8a99-44e7-86b5-68e7bc48ef0b"],
-Cell[4616300, 87316, 221490, 3645, 180, "Output",ExpressionUUID->"1b6560cd-6b3d-4bab-919b-dc6e68e7c444"]
+Cell[4635562, 87706, 1661, 43, 41, "Input",ExpressionUUID->"0cce5618-8a99-44e7-86b5-68e7bc48ef0b"],
+Cell[4637226, 87751, 221490, 3645, 180, "Output",ExpressionUUID->"1b6560cd-6b3d-4bab-919b-dc6e68e7c444"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4837827, 90966, 718, 19, 39, "Input",ExpressionUUID->"8485951e-7fc8-43ed-8ba0-ef1e6d664951"],
-Cell[4838548, 90987, 689, 13, 27, "Output",ExpressionUUID->"e2c67870-453b-427a-95e8-cab50a430376"]
+Cell[4858753, 91401, 718, 19, 39, "Input",ExpressionUUID->"8485951e-7fc8-43ed-8ba0-ef1e6d664951"],
+Cell[4859474, 91422, 689, 13, 27, "Output",ExpressionUUID->"e2c67870-453b-427a-95e8-cab50a430376"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4839274, 91005, 3389, 70, 75, "Input",ExpressionUUID->"f8206946-5423-4615-81a4-c230b5e80d65"],
-Cell[4842666, 91077, 12735, 275, 138, "Output",ExpressionUUID->"985cd9bf-505a-4fe6-988b-e983fb70bc8a"]
+Cell[4860200, 91440, 3389, 70, 75, "Input",ExpressionUUID->"f8206946-5423-4615-81a4-c230b5e80d65"],
+Cell[4863592, 91512, 12735, 275, 138, "Output",ExpressionUUID->"985cd9bf-505a-4fe6-988b-e983fb70bc8a"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4855438, 91357, 1135, 27, 57, "Input",ExpressionUUID->"8088e833-ee02-4258-9f96-8c0e92981bf8"],
-Cell[4856576, 91386, 7683, 188, 181, "Output",ExpressionUUID->"93cd739f-29d0-4b70-aac3-bf2a78f628b7"]
+Cell[4876364, 91792, 1135, 27, 57, "Input",ExpressionUUID->"8088e833-ee02-4258-9f96-8c0e92981bf8"],
+Cell[4877502, 91821, 7683, 188, 181, "Output",ExpressionUUID->"93cd739f-29d0-4b70-aac3-bf2a78f628b7"]
}, Open ]],
-Cell[4864274, 91577, 3769, 58, 55, "Input",ExpressionUUID->"bd576e58-f517-4aa4-afda-31a30b3f37f2"],
+Cell[4885200, 92012, 3769, 58, 55, "Input",ExpressionUUID->"bd576e58-f517-4aa4-afda-31a30b3f37f2"],
Cell[CellGroupData[{
-Cell[4868068, 91639, 6700, 99, 24, "Input",ExpressionUUID->"ceb62266-9f07-4658-a4d7-321e2989a78e"],
-Cell[4874771, 91740, 558, 12, 22, "Message",ExpressionUUID->"5c805d43-a6a3-4259-8167-9ed7a83569c3"],
-Cell[4875332, 91754, 5206, 95, 60, "Output",ExpressionUUID->"ca8008f0-9c0b-428c-bd51-8cef3103b4c4"]
+Cell[4888994, 92074, 6700, 99, 24, "Input",ExpressionUUID->"ceb62266-9f07-4658-a4d7-321e2989a78e"],
+Cell[4895697, 92175, 558, 12, 22, "Message",ExpressionUUID->"5c805d43-a6a3-4259-8167-9ed7a83569c3"],
+Cell[4896258, 92189, 5206, 95, 60, "Output",ExpressionUUID->"ca8008f0-9c0b-428c-bd51-8cef3103b4c4"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4880575, 91854, 1747, 35, 71, "Input",ExpressionUUID->"ce2413ff-e1c9-412f-8c1c-20f5155a8e4e"],
-Cell[4882325, 91891, 17065, 313, 138, "Output",ExpressionUUID->"970b6b46-2fe0-42a5-8a2d-e2d76a8db9e5"]
+Cell[4901501, 92289, 1747, 35, 71, "Input",ExpressionUUID->"ce2413ff-e1c9-412f-8c1c-20f5155a8e4e"],
+Cell[4903251, 92326, 17065, 313, 138, "Output",ExpressionUUID->"970b6b46-2fe0-42a5-8a2d-e2d76a8db9e5"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4899427, 92209, 1075, 29, 59, "Input",ExpressionUUID->"a2b6993a-026b-4527-b432-66adf3e82a38"],
-Cell[4900505, 92240, 1686, 44, 184, "Output",ExpressionUUID->"bf2495ed-92b4-47e0-8f49-b2172527f2d1"]
+Cell[4920353, 92644, 1075, 29, 59, "Input",ExpressionUUID->"a2b6993a-026b-4527-b432-66adf3e82a38"],
+Cell[4921431, 92675, 1686, 44, 184, "Output",ExpressionUUID->"bf2495ed-92b4-47e0-8f49-b2172527f2d1"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4902228, 92289, 2704, 59, 75, "Input",ExpressionUUID->"3dce5e91-87e2-45b3-8a1a-d6f943dd975c"],
-Cell[4904935, 92350, 12141, 271, 180, "Output",ExpressionUUID->"69a06601-7d40-4a49-9c86-e61321248df8"]
+Cell[4923154, 92724, 2704, 59, 75, "Input",ExpressionUUID->"3dce5e91-87e2-45b3-8a1a-d6f943dd975c"],
+Cell[4925861, 92785, 12141, 271, 180, "Output",ExpressionUUID->"69a06601-7d40-4a49-9c86-e61321248df8"]
}, Open ]],
-Cell[4917091, 92624, 3491, 55, 55, "Input",ExpressionUUID->"8e15ee6e-f796-4feb-a19d-45aa418925bc"],
+Cell[4938017, 93059, 3491, 55, 55, "Input",ExpressionUUID->"8e15ee6e-f796-4feb-a19d-45aa418925bc"],
Cell[CellGroupData[{
-Cell[4920607, 92683, 6511, 94, 22, "Input",ExpressionUUID->"01559a7f-0832-4186-9a48-6dc2654c35f7"],
-Cell[4927121, 92779, 5770, 96, 42, "Output",ExpressionUUID->"c8019c92-12bd-4aec-9d81-dd12103214c5"]
+Cell[4941533, 93118, 6511, 94, 22, "Input",ExpressionUUID->"01559a7f-0832-4186-9a48-6dc2654c35f7"],
+Cell[4948047, 93214, 5770, 96, 42, "Output",ExpressionUUID->"c8019c92-12bd-4aec-9d81-dd12103214c5"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4932928, 92880, 1791, 35, 71, "Input",ExpressionUUID->"64934bdb-d7a0-4854-b9ce-237aaf977e8a"],
-Cell[4934722, 92917, 17336, 318, 138, "Output",ExpressionUUID->"838b5db2-c5d6-4d60-a8cd-e5d80ea3cacb"]
+Cell[4953854, 93315, 1791, 35, 71, "Input",ExpressionUUID->"64934bdb-d7a0-4854-b9ce-237aaf977e8a"],
+Cell[4955648, 93352, 17336, 318, 138, "Output",ExpressionUUID->"838b5db2-c5d6-4d60-a8cd-e5d80ea3cacb"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4952095, 93240, 2079, 54, 141, "Input",ExpressionUUID->"c75788e5-2d5f-4b60-a9a3-c8ab1e900ca6"],
-Cell[4954177, 93296, 16732, 375, 138, "Output",ExpressionUUID->"b026bd64-4322-4d3d-bd25-24c6f375d92e"]
+Cell[4973021, 93675, 2079, 54, 141, "Input",ExpressionUUID->"c75788e5-2d5f-4b60-a9a3-c8ab1e900ca6"],
+Cell[4975103, 93731, 16732, 375, 138, "Output",ExpressionUUID->"b026bd64-4322-4d3d-bd25-24c6f375d92e"]
}, Open ]],
-Cell[4970924, 93674, 3360, 53, 55, "Input",ExpressionUUID->"8712ec7d-4853-4834-9148-2e0b87e145f3"],
+Cell[4991850, 94109, 3360, 53, 55, "Input",ExpressionUUID->"8712ec7d-4853-4834-9148-2e0b87e145f3"],
Cell[CellGroupData[{
-Cell[4974309, 93731, 6459, 92, 22, "Input",ExpressionUUID->"357d2920-878c-453b-80a5-70ba292a5ae8"],
-Cell[4980771, 93825, 1955, 31, 46, "Message",ExpressionUUID->"47f7f2c3-b7e2-4a94-b6cf-25d9f0fa600f"],
-Cell[4982729, 93858, 5268, 92, 58, "Output",ExpressionUUID->"9a6912d5-608a-4795-8a0e-d54603e47fad"]
+Cell[4995235, 94166, 6459, 92, 22, "Input",ExpressionUUID->"357d2920-878c-453b-80a5-70ba292a5ae8"],
+Cell[5001697, 94260, 1955, 31, 46, "Message",ExpressionUUID->"47f7f2c3-b7e2-4a94-b6cf-25d9f0fa600f"],
+Cell[5003655, 94293, 5268, 92, 58, "Output",ExpressionUUID->"9a6912d5-608a-4795-8a0e-d54603e47fad"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4988034, 93955, 1882, 39, 71, "Input",ExpressionUUID->"5f25fdb0-021a-4328-9d95-e2f4257a4ed7"],
-Cell[4989919, 93996, 9557, 188, 138, "Output",ExpressionUUID->"bf5ad568-a673-4464-9f2c-8e5d79bac130"]
+Cell[5008960, 94390, 1882, 39, 71, "Input",ExpressionUUID->"5f25fdb0-021a-4328-9d95-e2f4257a4ed7"],
+Cell[5010845, 94431, 9557, 188, 138, "Output",ExpressionUUID->"bf5ad568-a673-4464-9f2c-8e5d79bac130"]
}, Open ]],
-Cell[4999491, 94187, 2869, 47, 55, "Input",ExpressionUUID->"52fb4777-4c7f-45e8-ac9f-46d51d41be30"],
+Cell[5020417, 94622, 2869, 47, 55, "Input",ExpressionUUID->"52fb4777-4c7f-45e8-ac9f-46d51d41be30"],
Cell[CellGroupData[{
-Cell[5002385, 94238, 5473, 80, 22, "Input",ExpressionUUID->"0d730e0c-0cc6-4c7f-8384-7f3287a69ea5"],
-Cell[5007861, 94320, 497, 11, 22, "Message",ExpressionUUID->"e6302471-fb4c-458d-8ff0-f2052addc5e7"],
-Cell[5008361, 94333, 10419, 251, 79, "Output",ExpressionUUID->"795c441e-9e36-4982-b06f-02572be8c468"]
+Cell[5023311, 94673, 5473, 80, 22, "Input",ExpressionUUID->"0d730e0c-0cc6-4c7f-8384-7f3287a69ea5"],
+Cell[5028787, 94755, 497, 11, 22, "Message",ExpressionUUID->"e6302471-fb4c-458d-8ff0-f2052addc5e7"],
+Cell[5029287, 94768, 10419, 251, 79, "Output",ExpressionUUID->"795c441e-9e36-4982-b06f-02572be8c468"]
}, Open ]],
Cell[CellGroupData[{
-Cell[5018817, 94589, 1852, 38, 71, "Input",ExpressionUUID->"19ffcc93-81a4-4442-9f7d-bb0a91076a83"],
-Cell[5020672, 94629, 17127, 315, 136, "Output",ExpressionUUID->"7c3bf3fe-4257-44f9-b31f-df5fc8e0a8f6"]
+Cell[5039743, 95024, 1852, 38, 71, "Input",ExpressionUUID->"19ffcc93-81a4-4442-9f7d-bb0a91076a83"],
+Cell[5041598, 95064, 17127, 315, 136, "Output",ExpressionUUID->"7c3bf3fe-4257-44f9-b31f-df5fc8e0a8f6"]
}, Open ]],
Cell[CellGroupData[{
-Cell[5037836, 94949, 482, 11, 22, "Input",ExpressionUUID->"d27188da-dbec-4862-897d-c79d508f5a06"],
-Cell[5038321, 94962, 9927, 243, 178, "Output",ExpressionUUID->"d3aaacc3-94cd-4f94-b8d3-6f97ce80a7dd"]
+Cell[5058762, 95384, 482, 11, 22, "Input",ExpressionUUID->"d27188da-dbec-4862-897d-c79d508f5a06"],
+Cell[5059247, 95397, 9927, 243, 178, "Output",ExpressionUUID->"d3aaacc3-94cd-4f94-b8d3-6f97ce80a7dd"]
}, Open ]],
-Cell[5048263, 95208, 2967, 48, 55, "Input",ExpressionUUID->"a7c34ad4-8a20-4d4c-a312-b4abf43e7b84"],
+Cell[5069189, 95643, 2967, 48, 55, "Input",ExpressionUUID->"a7c34ad4-8a20-4d4c-a312-b4abf43e7b84"],
Cell[CellGroupData[{
-Cell[5051255, 95260, 5720, 84, 24, "Input",ExpressionUUID->"f952decb-8392-4bd9-9ca8-68fa98ba4ea0"],
-Cell[5056978, 95346, 771, 15, 34, "Message",ExpressionUUID->"3f58991c-8f32-42f0-910b-caff5ed428b4"],
-Cell[5057752, 95363, 4257, 83, 76, "Output",ExpressionUUID->"58221ff1-4525-46a7-bdae-792c93f49938"]
+Cell[5072181, 95695, 5720, 84, 24, "Input",ExpressionUUID->"f952decb-8392-4bd9-9ca8-68fa98ba4ea0"],
+Cell[5077904, 95781, 771, 15, 34, "Message",ExpressionUUID->"3f58991c-8f32-42f0-910b-caff5ed428b4"],
+Cell[5078678, 95798, 4257, 83, 76, "Output",ExpressionUUID->"58221ff1-4525-46a7-bdae-792c93f49938"]
}, Open ]],
Cell[CellGroupData[{
-Cell[5062046, 95451, 1796, 36, 71, "Input",ExpressionUUID->"438a08cf-d91e-4ffb-89f2-a823831c337f"],
-Cell[5063845, 95489, 17264, 316, 136, "Output",ExpressionUUID->"31bd7638-0b3f-414d-858a-3740b7c9aa3d"]
+Cell[5082972, 95886, 1796, 36, 71, "Input",ExpressionUUID->"438a08cf-d91e-4ffb-89f2-a823831c337f"],
+Cell[5084771, 95924, 17264, 316, 136, "Output",ExpressionUUID->"31bd7638-0b3f-414d-858a-3740b7c9aa3d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[5081146, 95810, 874, 23, 55, "Input",ExpressionUUID->"3ca9ff01-d810-4f3b-a0e5-4853c773e631"],
-Cell[5082023, 95835, 3739, 89, 178, "Output",ExpressionUUID->"bf148fd8-9693-4be5-8c41-6d1aeb3bcdce"]
+Cell[5102072, 96245, 874, 23, 55, "Input",ExpressionUUID->"3ca9ff01-d810-4f3b-a0e5-4853c773e631"],
+Cell[5102949, 96270, 3739, 89, 178, "Output",ExpressionUUID->"bf148fd8-9693-4be5-8c41-6d1aeb3bcdce"]
}, Open ]],
Cell[CellGroupData[{
-Cell[5085799, 95929, 549, 15, 22, "Input",ExpressionUUID->"5676beb4-7e67-4262-a1a9-8649d66fc608"],
-Cell[5086351, 95946, 234, 5, 25, "Output",ExpressionUUID->"4fbceaf0-ac98-4d89-a81b-49f54b7e80b3"]
+Cell[5106725, 96364, 549, 15, 22, "Input",ExpressionUUID->"5676beb4-7e67-4262-a1a9-8649d66fc608"],
+Cell[5107277, 96381, 234, 5, 25, "Output",ExpressionUUID->"4fbceaf0-ac98-4d89-a81b-49f54b7e80b3"]
}, Open ]],
Cell[CellGroupData[{
-Cell[5086622, 95956, 262, 6, 22, "Input",ExpressionUUID->"a47e563a-1a70-40e7-b94e-e6dec72f2217"],
-Cell[5086887, 95964, 1039, 29, 51, "Output",ExpressionUUID->"75bbd4ee-6c89-47ad-8378-521f9f78d95c"]
+Cell[5107548, 96391, 262, 6, 22, "Input",ExpressionUUID->"a47e563a-1a70-40e7-b94e-e6dec72f2217"],
+Cell[5107813, 96399, 1039, 29, 51, "Output",ExpressionUUID->"75bbd4ee-6c89-47ad-8378-521f9f78d95c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[5087963, 95998, 1085, 28, 59, "Input",ExpressionUUID->"db5b7fcd-757d-45ac-b959-eb92b6428ee8"],
-Cell[5089051, 96028, 74312, 1240, 77, "Output",ExpressionUUID->"66904aad-235c-4592-a25c-527242bad8da"]
+Cell[5108889, 96433, 1085, 28, 59, "Input",ExpressionUUID->"db5b7fcd-757d-45ac-b959-eb92b6428ee8"],
+Cell[5109977, 96463, 74312, 1240, 77, "Output",ExpressionUUID->"66904aad-235c-4592-a25c-527242bad8da"]
}, Open ]],
Cell[CellGroupData[{
-Cell[5163400, 97273, 1597, 44, 63, "Input",ExpressionUUID->"4f34a001-11c8-46a5-bab7-43816510fc29"],
-Cell[5165000, 97319, 487, 11, 22, "Message",ExpressionUUID->"8c252e0f-ebf9-40a0-a65e-5752171a35d8"],
-Cell[5165490, 97332, 490, 11, 22, "Message",ExpressionUUID->"a000d915-f8c7-4ce4-a811-545a415e24fc"],
-Cell[5165983, 97345, 488, 11, 22, "Message",ExpressionUUID->"7dde968f-6bef-4b0b-81b3-e52e357f62e2"],
-Cell[5166474, 97358, 457, 10, 22, "Message",ExpressionUUID->"5f0d7aa7-3d28-4e00-82d5-76ffcee4bd01"]
+Cell[5184326, 97708, 1597, 44, 63, "Input",ExpressionUUID->"4f34a001-11c8-46a5-bab7-43816510fc29"],
+Cell[5185926, 97754, 487, 11, 22, "Message",ExpressionUUID->"8c252e0f-ebf9-40a0-a65e-5752171a35d8"],
+Cell[5186416, 97767, 490, 11, 22, "Message",ExpressionUUID->"a000d915-f8c7-4ce4-a811-545a415e24fc"],
+Cell[5186909, 97780, 488, 11, 22, "Message",ExpressionUUID->"7dde968f-6bef-4b0b-81b3-e52e357f62e2"],
+Cell[5187400, 97793, 457, 10, 22, "Message",ExpressionUUID->"5f0d7aa7-3d28-4e00-82d5-76ffcee4bd01"]
}, Open ]],
Cell[CellGroupData[{
-Cell[5166968, 97373, 1243, 25, 24, "Input",ExpressionUUID->"dee3cd3e-84f4-4b73-b470-f1b7c0baa7b5"],
-Cell[5168214, 97400, 257598, 4238, 182, "Output",ExpressionUUID->"18c3e4eb-9e95-422a-b0da-36edbb287ee5"]
+Cell[5187894, 97808, 1243, 25, 24, "Input",ExpressionUUID->"dee3cd3e-84f4-4b73-b470-f1b7c0baa7b5"],
+Cell[5189140, 97835, 257598, 4238, 182, "Output",ExpressionUUID->"18c3e4eb-9e95-422a-b0da-36edbb287ee5"]
}, Open ]],
-Cell[5425827, 101641, 2861, 70, 109, "Input",ExpressionUUID->"c9f0635b-0df0-48ed-8c29-17f301861517"],
+Cell[5446753, 102076, 2861, 70, 109, "Input",ExpressionUUID->"c9f0635b-0df0-48ed-8c29-17f301861517"],
Cell[CellGroupData[{
-Cell[5428713, 101715, 4876, 115, 126, "Input",ExpressionUUID->"437d5765-89f4-444f-abba-e04ffe26d7c9"],
-Cell[5433592, 101832, 372, 9, 32, "Message",ExpressionUUID->"4c823020-6c4e-407e-8fb9-5a5ec9a49385"],
-Cell[5433967, 101843, 414, 10, 22, "Message",ExpressionUUID->"0f4aaf4c-9dbc-427f-9089-e02cb3abcf77"],
-Cell[5434384, 101855, 374, 9, 32, "Message",ExpressionUUID->"8c578de3-6085-49cf-8cf6-84361c2d8524"],
-Cell[5434761, 101866, 372, 9, 32, "Message",ExpressionUUID->"42ea315f-3868-4b6f-b2f8-24cbc5f4dc34"],
-Cell[5435136, 101877, 449, 10, 22, "Message",ExpressionUUID->"2ab5fd83-7455-458e-b91b-0d9ee7745efa"],
-Cell[5435588, 101889, 412, 10, 22, "Message",ExpressionUUID->"3d85a17e-b682-4c90-bcb8-f3301535254d"],
-Cell[5436003, 101901, 412, 10, 22, "Message",ExpressionUUID->"55552e47-2019-4e0e-94ac-22ab0b441801"],
-Cell[5436418, 101913, 454, 10, 22, "Message",ExpressionUUID->"760654c4-f428-4c74-891f-ff2a37b6b853"]
+Cell[5449639, 102150, 4876, 115, 126, "Input",ExpressionUUID->"437d5765-89f4-444f-abba-e04ffe26d7c9"],
+Cell[5454518, 102267, 372, 9, 32, "Message",ExpressionUUID->"4c823020-6c4e-407e-8fb9-5a5ec9a49385"],
+Cell[5454893, 102278, 414, 10, 22, "Message",ExpressionUUID->"0f4aaf4c-9dbc-427f-9089-e02cb3abcf77"],
+Cell[5455310, 102290, 374, 9, 32, "Message",ExpressionUUID->"8c578de3-6085-49cf-8cf6-84361c2d8524"],
+Cell[5455687, 102301, 372, 9, 32, "Message",ExpressionUUID->"42ea315f-3868-4b6f-b2f8-24cbc5f4dc34"],
+Cell[5456062, 102312, 449, 10, 22, "Message",ExpressionUUID->"2ab5fd83-7455-458e-b91b-0d9ee7745efa"],
+Cell[5456514, 102324, 412, 10, 22, "Message",ExpressionUUID->"3d85a17e-b682-4c90-bcb8-f3301535254d"],
+Cell[5456929, 102336, 412, 10, 22, "Message",ExpressionUUID->"55552e47-2019-4e0e-94ac-22ab0b441801"],
+Cell[5457344, 102348, 454, 10, 22, "Message",ExpressionUUID->"760654c4-f428-4c74-891f-ff2a37b6b853"]
}, Open ]],
Cell[CellGroupData[{
-Cell[5436909, 101928, 390, 10, 22, "Input",ExpressionUUID->"cf8328a2-2e41-4543-bbcc-55e75f60d95a"],
-Cell[5437302, 101940, 230, 4, 305, "Output",ExpressionUUID->"5407ac23-3194-49ee-8010-3f88ab93d531"]
+Cell[5457835, 102363, 390, 10, 22, "Input",ExpressionUUID->"cf8328a2-2e41-4543-bbcc-55e75f60d95a"],
+Cell[5458228, 102375, 230, 4, 305, "Output",ExpressionUUID->"5407ac23-3194-49ee-8010-3f88ab93d531"]
}, Open ]],
Cell[CellGroupData[{
-Cell[5437569, 101949, 2250, 58, 76, "Input",ExpressionUUID->"86ced1f4-0a54-4999-959e-d79bc814f759"],
-Cell[5439822, 102009, 1066745, 23056, 352, "Output",ExpressionUUID->"93bab345-098c-4ca7-852a-335a5cd0dcf6"]
+Cell[5458495, 102384, 2250, 58, 76, "Input",ExpressionUUID->"86ced1f4-0a54-4999-959e-d79bc814f759"],
+Cell[5460748, 102444, 1066745, 23056, 352, "Output",ExpressionUUID->"93bab345-098c-4ca7-852a-335a5cd0dcf6"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6506604, 125070, 1775, 44, 24, "Input",ExpressionUUID->"856a5f4c-223c-4aea-beeb-3fbd1534589f"],
-Cell[6508382, 125116, 376, 5, 25, "Output",ExpressionUUID->"e28c565e-2a35-4030-81ec-c70369667adb"]
+Cell[6527530, 125505, 1775, 44, 24, "Input",ExpressionUUID->"856a5f4c-223c-4aea-beeb-3fbd1534589f"],
+Cell[6529308, 125551, 376, 5, 25, "Output",ExpressionUUID->"e28c565e-2a35-4030-81ec-c70369667adb"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6508795, 125126, 427, 10, 24, "Input",ExpressionUUID->"a052bc09-b1cf-4937-8c90-bdb0978ae5fb"],
-Cell[6509225, 125138, 18847, 324, 179, "Output",ExpressionUUID->"27ad9b7a-bb2e-42b7-9b85-f4860d194c8a"]
+Cell[6529721, 125561, 427, 10, 24, "Input",ExpressionUUID->"a052bc09-b1cf-4937-8c90-bdb0978ae5fb"],
+Cell[6530151, 125573, 18847, 324, 179, "Output",ExpressionUUID->"27ad9b7a-bb2e-42b7-9b85-f4860d194c8a"]
}, Open ]],
-Cell[6528087, 125465, 3136, 79, 75, "Input",ExpressionUUID->"bc95d58f-92c7-4786-bf70-93a6a30e7d08"],
+Cell[6549013, 125900, 3136, 79, 75, "Input",ExpressionUUID->"bc95d58f-92c7-4786-bf70-93a6a30e7d08"],
Cell[CellGroupData[{
-Cell[6531248, 125548, 592, 13, 24, "Input",ExpressionUUID->"b99c27c3-28f4-463a-bbd4-0d707f24ede5"],
-Cell[6531843, 125563, 5889, 112, 178, "Output",ExpressionUUID->"dbb1ea27-23d8-498f-9931-237735b90888"]
+Cell[6552174, 125983, 592, 13, 24, "Input",ExpressionUUID->"b99c27c3-28f4-463a-bbd4-0d707f24ede5"],
+Cell[6552769, 125998, 5889, 112, 178, "Output",ExpressionUUID->"dbb1ea27-23d8-498f-9931-237735b90888"]
}, Open ]],
-Cell[6537747, 125678, 4130, 102, 109, "Input",ExpressionUUID->"e125971c-79d1-4a87-ab30-82edcc7a11b6"],
+Cell[6558673, 126113, 4130, 102, 109, "Input",ExpressionUUID->"e125971c-79d1-4a87-ab30-82edcc7a11b6"],
Cell[CellGroupData[{
-Cell[6541902, 125784, 1495, 23, 24, "Input",ExpressionUUID->"da2bc76c-d02b-4910-a9ef-13df31a8a85d"],
-Cell[6543400, 125809, 6141, 116, 180, "Output",ExpressionUUID->"3379bb53-2814-44a6-8d6d-c6bf9ff90130"]
+Cell[6562828, 126219, 1495, 23, 24, "Input",ExpressionUUID->"da2bc76c-d02b-4910-a9ef-13df31a8a85d"],
+Cell[6564326, 126244, 6141, 116, 180, "Output",ExpressionUUID->"3379bb53-2814-44a6-8d6d-c6bf9ff90130"]
}, Open ]],
-Cell[6549556, 125928, 2010, 35, 55, "Input",ExpressionUUID->"0ff99b46-5b6d-4857-b18e-faa48625e0b2"],
+Cell[6570482, 126363, 2010, 35, 55, "Input",ExpressionUUID->"0ff99b46-5b6d-4857-b18e-faa48625e0b2"],
Cell[CellGroupData[{
-Cell[6551591, 125967, 4151, 62, 22, "Input",ExpressionUUID->"70a7e635-ea68-4ab2-b208-3f27f1f18773"],
-Cell[6555745, 126031, 2707, 49, 25, "Output",ExpressionUUID->"ff4ef488-7509-4a22-b38b-3e5ee979dfec"]
+Cell[6572517, 126402, 4151, 62, 22, "Input",ExpressionUUID->"70a7e635-ea68-4ab2-b208-3f27f1f18773"],
+Cell[6576671, 126466, 2707, 49, 25, "Output",ExpressionUUID->"ff4ef488-7509-4a22-b38b-3e5ee979dfec"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6558489, 126085, 1600, 34, 71, "Input",ExpressionUUID->"e7efdffa-c82b-4b24-afeb-7b606e3a56b6"],
-Cell[6560092, 126121, 17028, 313, 136, "Output",ExpressionUUID->"ea054bf8-969f-415b-abfb-ad7f9b45bd69"]
+Cell[6579415, 126520, 1600, 34, 71, "Input",ExpressionUUID->"e7efdffa-c82b-4b24-afeb-7b606e3a56b6"],
+Cell[6581018, 126556, 17028, 313, 136, "Output",ExpressionUUID->"ea054bf8-969f-415b-abfb-ad7f9b45bd69"]
}, Open ]],
-Cell[6577135, 126437, 2110, 37, 55, "Input",ExpressionUUID->"376c00c5-9f33-4e41-9b82-73d25dddfb86"],
+Cell[6598061, 126872, 2110, 37, 55, "Input",ExpressionUUID->"376c00c5-9f33-4e41-9b82-73d25dddfb86"],
Cell[CellGroupData[{
-Cell[6579270, 126478, 4183, 60, 22, "Input",ExpressionUUID->"51dc3d02-9fb1-45c0-a232-766e908af724"],
-Cell[6583456, 126540, 2082, 30, 25, "Output",ExpressionUUID->"37d0c2a2-52d2-4d89-8972-8e422f0e5216"]
+Cell[6600196, 126913, 4183, 60, 22, "Input",ExpressionUUID->"51dc3d02-9fb1-45c0-a232-766e908af724"],
+Cell[6604382, 126975, 2082, 30, 25, "Output",ExpressionUUID->"37d0c2a2-52d2-4d89-8972-8e422f0e5216"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6585575, 126575, 1650, 35, 71, "Input",ExpressionUUID->"b0ed41fc-0793-4607-b285-69dc836fbc46"],
-Cell[6587228, 126612, 20490, 372, 135, "Output",ExpressionUUID->"1a124bff-ae77-4eae-9842-4ec08b7c4be7"]
+Cell[6606501, 127010, 1650, 35, 71, "Input",ExpressionUUID->"b0ed41fc-0793-4607-b285-69dc836fbc46"],
+Cell[6608154, 127047, 20490, 372, 135, "Output",ExpressionUUID->"1a124bff-ae77-4eae-9842-4ec08b7c4be7"]
}, Open ]],
-Cell[6607733, 126987, 2205, 38, 55, "Input",ExpressionUUID->"ce3d50ae-7830-43f7-9e8b-ff1617bdfce1"],
+Cell[6628659, 127422, 2205, 38, 55, "Input",ExpressionUUID->"ce3d50ae-7830-43f7-9e8b-ff1617bdfce1"],
Cell[CellGroupData[{
-Cell[6609963, 127029, 6088, 119, 57, "Input",ExpressionUUID->"1d5c2fc0-e8df-4896-8045-0fde59533d77"],
-Cell[6616054, 127150, 3154, 60, 44, "Output",ExpressionUUID->"2c63f7bd-1cf3-4607-b707-7a6b95e64ad2"]
+Cell[6630889, 127464, 6088, 119, 57, "Input",ExpressionUUID->"1d5c2fc0-e8df-4896-8045-0fde59533d77"],
+Cell[6636980, 127585, 3154, 60, 44, "Output",ExpressionUUID->"2c63f7bd-1cf3-4607-b707-7a6b95e64ad2"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6619245, 127215, 1700, 36, 71, "Input",ExpressionUUID->"e9f77ee6-ddde-4089-a778-5ece4a57f773"],
-Cell[6620948, 127253, 16873, 311, 136, "Output",ExpressionUUID->"a47f9b99-a5ed-4171-b8a9-afdc15370d19"]
+Cell[6640171, 127650, 1700, 36, 71, "Input",ExpressionUUID->"e9f77ee6-ddde-4089-a778-5ece4a57f773"],
+Cell[6641874, 127688, 16873, 311, 136, "Output",ExpressionUUID->"a47f9b99-a5ed-4171-b8a9-afdc15370d19"]
}, Open ]],
-Cell[6637836, 127567, 2257, 39, 55, "Input",ExpressionUUID->"c66d9b43-8912-4776-8df9-4b82e92385a2"],
+Cell[6658762, 128002, 2257, 39, 55, "Input",ExpressionUUID->"c66d9b43-8912-4776-8df9-4b82e92385a2"],
Cell[CellGroupData[{
-Cell[6640118, 127610, 6220, 122, 57, "Input",ExpressionUUID->"d3511a9b-2734-4512-8448-59796db57c80"],
-Cell[6646341, 127734, 3291, 62, 44, "Output",ExpressionUUID->"02bbcf9e-2ac0-4d1f-8fa5-b00695e27836"]
+Cell[6661044, 128045, 6220, 122, 57, "Input",ExpressionUUID->"d3511a9b-2734-4512-8448-59796db57c80"],
+Cell[6667267, 128169, 3291, 62, 44, "Output",ExpressionUUID->"02bbcf9e-2ac0-4d1f-8fa5-b00695e27836"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6649669, 127801, 1746, 36, 71, "Input",ExpressionUUID->"59b991fc-3c45-48aa-9268-cff7572aa8c6"],
-Cell[6651418, 127839, 17143, 317, 136, "Output",ExpressionUUID->"b20c1ede-027a-4011-ba6a-a217ceecc8e8"]
+Cell[6670595, 128236, 1746, 36, 71, "Input",ExpressionUUID->"59b991fc-3c45-48aa-9268-cff7572aa8c6"],
+Cell[6672344, 128274, 17143, 317, 136, "Output",ExpressionUUID->"b20c1ede-027a-4011-ba6a-a217ceecc8e8"]
}, Open ]],
-Cell[6668576, 128159, 2305, 39, 55, "Input",ExpressionUUID->"3597eaa7-3139-4518-bbfe-df34271dde2a"],
+Cell[6689502, 128594, 2305, 39, 55, "Input",ExpressionUUID->"3597eaa7-3139-4518-bbfe-df34271dde2a"],
Cell[CellGroupData[{
-Cell[6670906, 128202, 6753, 136, 57, "Input",ExpressionUUID->"77c87cdf-033d-4185-b49d-b5d681d7f0f9"],
-Cell[6677662, 128340, 3674, 69, 44, "Output",ExpressionUUID->"78a71b8d-3942-4850-b5d4-5a45d3517416"]
+Cell[6691832, 128637, 6753, 136, 57, "Input",ExpressionUUID->"77c87cdf-033d-4185-b49d-b5d681d7f0f9"],
+Cell[6698588, 128775, 3674, 69, 44, "Output",ExpressionUUID->"78a71b8d-3942-4850-b5d4-5a45d3517416"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6681373, 128414, 1798, 37, 71, "Input",ExpressionUUID->"b37e4fd1-1edc-4db8-a29a-c5c0b1ee2464"],
-Cell[6683174, 128453, 17131, 315, 134, "Output",ExpressionUUID->"951d7a74-9aa0-40b2-8c7e-afd33547bd6f"]
+Cell[6702299, 128849, 1798, 37, 71, "Input",ExpressionUUID->"b37e4fd1-1edc-4db8-a29a-c5c0b1ee2464"],
+Cell[6704100, 128888, 17131, 315, 134, "Output",ExpressionUUID->"951d7a74-9aa0-40b2-8c7e-afd33547bd6f"]
}, Open ]],
-Cell[6700320, 128771, 2356, 40, 55, "Input",ExpressionUUID->"fc9769af-3482-4891-854c-c4f69b3e7ab2"],
+Cell[6721246, 129206, 2356, 40, 55, "Input",ExpressionUUID->"fc9769af-3482-4891-854c-c4f69b3e7ab2"],
Cell[CellGroupData[{
-Cell[6702701, 128815, 6967, 140, 73, "Input",ExpressionUUID->"b726930b-8825-4fc1-bdd4-f13327dfafcc"],
-Cell[6709671, 128957, 3893, 74, 42, "Output",ExpressionUUID->"dcc85e39-87fd-4c7a-adc2-f6dbe9ac4f86"]
+Cell[6723627, 129250, 6967, 140, 73, "Input",ExpressionUUID->"b726930b-8825-4fc1-bdd4-f13327dfafcc"],
+Cell[6730597, 129392, 3893, 74, 42, "Output",ExpressionUUID->"dcc85e39-87fd-4c7a-adc2-f6dbe9ac4f86"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6713601, 129036, 1848, 38, 71, "Input",ExpressionUUID->"3d6268b9-9dcd-4abd-a190-2d411c0f9ac5"],
-Cell[6715452, 129076, 17640, 324, 136, "Output",ExpressionUUID->"b95a5d46-00d9-454a-bdbb-7b373fb54a04"]
+Cell[6734527, 129471, 1848, 38, 71, "Input",ExpressionUUID->"3d6268b9-9dcd-4abd-a190-2d411c0f9ac5"],
+Cell[6736378, 129511, 17640, 324, 136, "Output",ExpressionUUID->"b95a5d46-00d9-454a-bdbb-7b373fb54a04"]
}, Open ]],
-Cell[6733107, 129403, 2409, 41, 55, "Input",ExpressionUUID->"75d213ac-5b7e-4a17-b0e6-82481e033952"],
+Cell[6754033, 129838, 2409, 41, 55, "Input",ExpressionUUID->"75d213ac-5b7e-4a17-b0e6-82481e033952"],
Cell[CellGroupData[{
-Cell[6735541, 129448, 7710, 160, 89, "Input",ExpressionUUID->"402a64a2-7215-43ff-afb2-5ffdb07699eb"],
-Cell[6743254, 129610, 2581, 37, 25, "Output",ExpressionUUID->"84187abd-3a8b-42cd-8388-c4431767b6fc"]
+Cell[6756467, 129883, 7710, 160, 89, "Input",ExpressionUUID->"402a64a2-7215-43ff-afb2-5ffdb07699eb"],
+Cell[6764180, 130045, 2581, 37, 25, "Output",ExpressionUUID->"84187abd-3a8b-42cd-8388-c4431767b6fc"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6745872, 129652, 1894, 38, 71, "Input",ExpressionUUID->"855b658f-9a32-44de-bcab-f191fa636709"],
-Cell[6747769, 129692, 16747, 309, 133, "Output",ExpressionUUID->"c2f9aac7-afc1-4b9d-9453-1a00347fcbe9"]
+Cell[6766798, 130087, 1894, 38, 71, "Input",ExpressionUUID->"855b658f-9a32-44de-bcab-f191fa636709"],
+Cell[6768695, 130127, 16747, 309, 133, "Output",ExpressionUUID->"c2f9aac7-afc1-4b9d-9453-1a00347fcbe9"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6764553, 130006, 433, 11, 22, "Input",ExpressionUUID->"72c66ca0-a15a-4276-8266-9702097608f9"],
-Cell[6764989, 130019, 6817, 169, 177, "Output",ExpressionUUID->"c22b79eb-939c-44d3-832b-d02d2b74f6d7"]
+Cell[6785479, 130441, 433, 11, 22, "Input",ExpressionUUID->"72c66ca0-a15a-4276-8266-9702097608f9"],
+Cell[6785915, 130454, 6817, 169, 177, "Output",ExpressionUUID->"c22b79eb-939c-44d3-832b-d02d2b74f6d7"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6771843, 130193, 1672, 45, 63, "Input",ExpressionUUID->"fe1d3062-e3cb-440f-8b39-b4206ce88f50"],
-Cell[6773518, 130240, 511, 11, 22, "Message",ExpressionUUID->"a8cdbd70-b1ae-4bac-b3e9-4a3a33f415b4"],
-Cell[6774032, 130253, 511, 11, 22, "Message",ExpressionUUID->"3a00a43c-0975-4a69-8a45-f6d37256351e"],
-Cell[6774546, 130266, 513, 11, 22, "Message",ExpressionUUID->"490c70b7-6d80-4544-ad78-0bdf86f8cf57"],
-Cell[6775062, 130279, 478, 10, 22, "Message",ExpressionUUID->"a33d77be-ae6e-4ad0-bc43-7822886c2702"]
+Cell[6792769, 130628, 1672, 45, 63, "Input",ExpressionUUID->"fe1d3062-e3cb-440f-8b39-b4206ce88f50"],
+Cell[6794444, 130675, 511, 11, 22, "Message",ExpressionUUID->"a8cdbd70-b1ae-4bac-b3e9-4a3a33f415b4"],
+Cell[6794958, 130688, 511, 11, 22, "Message",ExpressionUUID->"3a00a43c-0975-4a69-8a45-f6d37256351e"],
+Cell[6795472, 130701, 513, 11, 22, "Message",ExpressionUUID->"490c70b7-6d80-4544-ad78-0bdf86f8cf57"],
+Cell[6795988, 130714, 478, 10, 22, "Message",ExpressionUUID->"a33d77be-ae6e-4ad0-bc43-7822886c2702"]
}, Open ]],
-Cell[6775555, 130292, 3187, 80, 75, "Input",ExpressionUUID->"4a1ef349-9985-4fd3-a4ef-904651cf68ac"],
-Cell[6778745, 130374, 4180, 103, 109, "Input",ExpressionUUID->"50c02bdb-5ed2-40ab-ba77-b26952532ed9"],
-Cell[6782928, 130479, 5400, 131, 126, "Input",ExpressionUUID->"3f2d1ac4-1ccc-46f3-b1c3-9e780be42bfd"],
+Cell[6796481, 130727, 3187, 80, 75, "Input",ExpressionUUID->"4a1ef349-9985-4fd3-a4ef-904651cf68ac"],
+Cell[6799671, 130809, 4180, 103, 109, "Input",ExpressionUUID->"50c02bdb-5ed2-40ab-ba77-b26952532ed9"],
+Cell[6803854, 130914, 5400, 131, 126, "Input",ExpressionUUID->"3f2d1ac4-1ccc-46f3-b1c3-9e780be42bfd"],
Cell[CellGroupData[{
-Cell[6788353, 130614, 1359, 27, 24, "Input",ExpressionUUID->"7fb890bc-1064-4d99-b6f5-6ecab88b82da"],
-Cell[6789715, 130643, 488773, 8032, 182, "Output",ExpressionUUID->"f209a90a-6414-4c82-b1ac-a415e04bb40b"]
+Cell[6809279, 131049, 1359, 27, 24, "Input",ExpressionUUID->"7fb890bc-1064-4d99-b6f5-6ecab88b82da"],
+Cell[6810641, 131078, 488773, 8032, 182, "Output",ExpressionUUID->"f209a90a-6414-4c82-b1ac-a415e04bb40b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7278525, 138680, 663, 15, 24, "Input",ExpressionUUID->"2241f538-313e-49d3-adfa-ce7a1941836a"],
-Cell[7279191, 138697, 10088, 182, 178, "Output",ExpressionUUID->"e60c6984-4395-45c5-bdea-cc5d8603b5ea"]
+Cell[7299451, 139115, 663, 15, 24, "Input",ExpressionUUID->"2241f538-313e-49d3-adfa-ce7a1941836a"],
+Cell[7300117, 139132, 10088, 182, 178, "Output",ExpressionUUID->"e60c6984-4395-45c5-bdea-cc5d8603b5ea"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7289316, 138884, 1607, 25, 24, "Input",ExpressionUUID->"72447e76-665c-4e50-939a-7de5c0764602"],
-Cell[7290926, 138911, 27041, 593, 179, "Output",ExpressionUUID->"c1192d4e-ddba-4b86-80cd-25d21e620f98"]
+Cell[7310242, 139319, 1607, 25, 24, "Input",ExpressionUUID->"72447e76-665c-4e50-939a-7de5c0764602"],
+Cell[7311852, 139346, 27041, 593, 179, "Output",ExpressionUUID->"c1192d4e-ddba-4b86-80cd-25d21e620f98"]
}, Open ]],
-Cell[7317982, 139507, 1994, 35, 55, "Input",ExpressionUUID->"cebc93a0-79b0-4da8-98e0-dac61dd498b9"],
+Cell[7338908, 139942, 1994, 35, 55, "Input",ExpressionUUID->"cebc93a0-79b0-4da8-98e0-dac61dd498b9"],
Cell[CellGroupData[{
-Cell[7320001, 139546, 6104, 123, 57, "Input",ExpressionUUID->"599c1193-9a9a-4e09-bef2-d12c1f4a1969"],
-Cell[7326108, 139671, 599, 12, 34, "Message",ExpressionUUID->"11e2554d-75ea-4c0a-9448-8bfb332a62f3"],
-Cell[7326710, 139685, 3201, 61, 44, "Output",ExpressionUUID->"6b1f6bb2-0a9c-4b87-aa00-e784a50c66dc"]
+Cell[7340927, 139981, 6104, 123, 57, "Input",ExpressionUUID->"599c1193-9a9a-4e09-bef2-d12c1f4a1969"],
+Cell[7347034, 140106, 599, 12, 34, "Message",ExpressionUUID->"11e2554d-75ea-4c0a-9448-8bfb332a62f3"],
+Cell[7347636, 140120, 3201, 61, 44, "Output",ExpressionUUID->"6b1f6bb2-0a9c-4b87-aa00-e784a50c66dc"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7329948, 139751, 1705, 36, 71, "Input",ExpressionUUID->"61a36220-5b85-4beb-bbe5-4d4a78e82a94"],
-Cell[7331656, 139789, 18192, 331, 135, "Output",ExpressionUUID->"b177731d-7523-4738-97e5-0fab244202d6"]
+Cell[7350874, 140186, 1705, 36, 71, "Input",ExpressionUUID->"61a36220-5b85-4beb-bbe5-4d4a78e82a94"],
+Cell[7352582, 140224, 18192, 331, 135, "Output",ExpressionUUID->"b177731d-7523-4738-97e5-0fab244202d6"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7349885, 140125, 336, 9, 22, "Input",ExpressionUUID->"bfc95959-ad22-467f-8b96-2c1c826f5655"],
-Cell[7350224, 140136, 5691, 143, 177, "Output",ExpressionUUID->"4bc2cbcd-5582-4860-bb36-8c588aa6b1b0"]
+Cell[7370811, 140560, 336, 9, 22, "Input",ExpressionUUID->"bfc95959-ad22-467f-8b96-2c1c826f5655"],
+Cell[7371150, 140571, 5691, 143, 177, "Output",ExpressionUUID->"4bc2cbcd-5582-4860-bb36-8c588aa6b1b0"]
}, Open ]],
-Cell[7355930, 140282, 2089, 36, 55, "Input",ExpressionUUID->"4e2d6149-b3b3-4123-babc-92a2df998316"],
+Cell[7376856, 140717, 2089, 36, 55, "Input",ExpressionUUID->"4e2d6149-b3b3-4123-babc-92a2df998316"],
Cell[CellGroupData[{
-Cell[7358044, 140322, 6598, 135, 57, "Input",ExpressionUUID->"d4b73ce5-7524-4652-9579-36229cebbccf"],
-Cell[7364645, 140459, 3462, 68, 44, "Output",ExpressionUUID->"25f27aca-d25c-4d15-ab55-cf857b68dcb2"]
+Cell[7378970, 140757, 6598, 135, 57, "Input",ExpressionUUID->"d4b73ce5-7524-4652-9579-36229cebbccf"],
+Cell[7385571, 140894, 3462, 68, 44, "Output",ExpressionUUID->"25f27aca-d25c-4d15-ab55-cf857b68dcb2"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7368144, 140532, 1755, 37, 71, "Input",ExpressionUUID->"4b312d26-e716-4e13-99c6-2e39cc88c447"],
-Cell[7369902, 140571, 17980, 327, 135, "Output",ExpressionUUID->"ad045ca4-bf3e-45f2-be6a-188c8fb39746"]
+Cell[7389070, 140967, 1755, 37, 71, "Input",ExpressionUUID->"4b312d26-e716-4e13-99c6-2e39cc88c447"],
+Cell[7390828, 141006, 17980, 327, 135, "Output",ExpressionUUID->"ad045ca4-bf3e-45f2-be6a-188c8fb39746"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7387919, 140903, 384, 10, 22, "Input",ExpressionUUID->"ff569190-822f-433e-ac6c-14b1dcd96ed9"],
-Cell[7388306, 140915, 5952, 149, 177, "Output",ExpressionUUID->"436b5bb4-ba6b-46e9-ab6e-3829cbc4f6f8"]
+Cell[7408845, 141338, 384, 10, 22, "Input",ExpressionUUID->"ff569190-822f-433e-ac6c-14b1dcd96ed9"],
+Cell[7409232, 141350, 5952, 149, 177, "Output",ExpressionUUID->"436b5bb4-ba6b-46e9-ab6e-3829cbc4f6f8"]
}, Open ]],
-Cell[7394273, 141067, 2143, 37, 55, "Input",ExpressionUUID->"fe675aeb-309d-4146-9e6b-7ccf11b6980f"],
+Cell[7415199, 141502, 2143, 37, 55, "Input",ExpressionUUID->"fe675aeb-309d-4146-9e6b-7ccf11b6980f"],
Cell[CellGroupData[{
-Cell[7396441, 141108, 7704, 168, 41, "Input",ExpressionUUID->"955fd7fe-8805-4dc6-bcd9-f0b6fe561e94"],
-Cell[7404148, 141278, 3873, 76, 44, "Output",ExpressionUUID->"1f525144-95cc-4f1d-a2b1-7ed52efe7b5e"]
+Cell[7417367, 141543, 7704, 168, 41, "Input",ExpressionUUID->"955fd7fe-8805-4dc6-bcd9-f0b6fe561e94"],
+Cell[7425074, 141713, 3873, 76, 44, "Output",ExpressionUUID->"1f525144-95cc-4f1d-a2b1-7ed52efe7b5e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7408058, 141359, 1805, 38, 71, "Input",ExpressionUUID->"59ee4596-58f4-4760-9707-1639a55478ef"],
-Cell[7409866, 141399, 17885, 326, 136, "Output",ExpressionUUID->"bcf0ddd6-91b4-474e-8418-aafc45056303"]
+Cell[7428984, 141794, 1805, 38, 71, "Input",ExpressionUUID->"59ee4596-58f4-4760-9707-1639a55478ef"],
+Cell[7430792, 141834, 17885, 326, 136, "Output",ExpressionUUID->"bcf0ddd6-91b4-474e-8418-aafc45056303"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7427788, 141730, 434, 11, 22, "Input",ExpressionUUID->"bf8f6059-088d-4951-bbb6-e2c25b6a202b"],
-Cell[7428225, 141743, 5661, 140, 180, "Output",ExpressionUUID->"baf431bc-0457-4cd5-b76b-e8aeacd57202"]
+Cell[7448714, 142165, 434, 11, 22, "Input",ExpressionUUID->"bf8f6059-088d-4951-bbb6-e2c25b6a202b"],
+Cell[7449151, 142178, 5661, 140, 180, "Output",ExpressionUUID->"baf431bc-0457-4cd5-b76b-e8aeacd57202"]
}, Open ]],
-Cell[7433901, 141886, 2143, 37, 55, "Input",ExpressionUUID->"21502648-5bb8-4309-888f-8d4797b6965f"],
+Cell[7454827, 142321, 2143, 37, 55, "Input",ExpressionUUID->"21502648-5bb8-4309-888f-8d4797b6965f"],
Cell[CellGroupData[{
-Cell[7436069, 141927, 7833, 169, 41, "Input",ExpressionUUID->"25c31f45-9b44-4e7a-a888-7c4634fb8ae8"],
-Cell[7443905, 142098, 2018, 33, 22, "Message",ExpressionUUID->"c514ee03-eba1-48e4-af1e-0991d7159e99"],
-Cell[7445926, 142133, 4286, 85, 44, "Output",ExpressionUUID->"8d39b42e-cf19-4334-a472-16b27afd3f8e"]
+Cell[7456995, 142362, 7833, 169, 41, "Input",ExpressionUUID->"25c31f45-9b44-4e7a-a888-7c4634fb8ae8"],
+Cell[7464831, 142533, 2018, 33, 22, "Message",ExpressionUUID->"c514ee03-eba1-48e4-af1e-0991d7159e99"],
+Cell[7466852, 142568, 4286, 85, 44, "Output",ExpressionUUID->"8d39b42e-cf19-4334-a472-16b27afd3f8e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7450249, 142223, 1853, 38, 71, "Input",ExpressionUUID->"15b1dea7-4387-4196-86ca-e5029d19055e"],
-Cell[7452105, 142263, 17826, 324, 138, "Output",ExpressionUUID->"71a0bd1f-9ee3-45c1-8043-10fc45b089f2"]
+Cell[7471175, 142658, 1853, 38, 71, "Input",ExpressionUUID->"15b1dea7-4387-4196-86ca-e5029d19055e"],
+Cell[7473031, 142698, 17826, 324, 138, "Output",ExpressionUUID->"71a0bd1f-9ee3-45c1-8043-10fc45b089f2"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7469968, 142592, 480, 11, 22, "Input",ExpressionUUID->"ea7e7eb2-0ae4-48e4-9de2-2070d9c80ef7"],
-Cell[7470451, 142605, 7596, 187, 177, "Output",ExpressionUUID->"a52313f1-4c10-40c6-b4b1-90cde6f32b05"]
+Cell[7490894, 143027, 480, 11, 22, "Input",ExpressionUUID->"ea7e7eb2-0ae4-48e4-9de2-2070d9c80ef7"],
+Cell[7491377, 143040, 7596, 187, 177, "Output",ExpressionUUID->"a52313f1-4c10-40c6-b4b1-90cde6f32b05"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
-Cell[7478096, 142798, 203, 4, 40, "Section",ExpressionUUID->"5d9c76ab-41db-4d8f-b32b-3ceed5a29b07"],
-Cell[7478302, 142804, 7506, 111, 71, "Input",ExpressionUUID->"44d0809b-89a2-459b-b7db-1490e06098cb"],
+Cell[7499022, 143233, 203, 4, 40, "Section",ExpressionUUID->"5d9c76ab-41db-4d8f-b32b-3ceed5a29b07"],
+Cell[7499228, 143239, 11597, 167, 71, "Input",ExpressionUUID->"44d0809b-89a2-459b-b7db-1490e06098cb"],
+Cell[CellGroupData[{
+Cell[7510850, 143410, 13180, 190, 39, "Input",ExpressionUUID->"7f8997a7-96bf-44a6-8b35-7fbefe7bc627"],
+Cell[7524033, 143602, 4112, 75, 58, "Output",ExpressionUUID->"58928da3-ed8b-4988-a00a-29a071e28cb1"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[7528182, 143682, 4645, 83, 115, "Input",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"],
+Cell[7532830, 143767, 3316, 47, 25, "Output",ExpressionUUID->"d40c8cba-9dcd-4de5-b829-4bdbb2e41c38"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[7536183, 143819, 1156, 28, 75, "Input",ExpressionUUID->"4526b490-c1a8-45bd-8589-5027a1310d64"],
+Cell[7537342, 143849, 8736, 190, 181, "Output",ExpressionUUID->"ed25a474-d44c-4da5-bc09-2c8814588e50"]
+}, Open ]],
+Cell[7546093, 144042, 7378, 110, 71, "Input",ExpressionUUID->"e7c0d5af-f100-43a1-9e9f-22ed56c1c22c"],
+Cell[CellGroupData[{
+Cell[7553496, 144156, 10231, 146, 24, "Input",ExpressionUUID->"2da0f401-c881-42a0-b59b-1f8300174369"],
+Cell[7563730, 144304, 3245, 69, 74, "Output",ExpressionUUID->"0f7a8640-cd33-4720-bc92-4ca2b7dadb69"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[7567012, 144378, 1138, 27, 75, "Input",ExpressionUUID->"2a486edd-4670-4151-a779-64266251c8bd"],
+Cell[7568153, 144407, 13338, 287, 330, "Output",ExpressionUUID->"22b74791-1694-4234-92de-ac115acbb5cd"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[7581528, 144699, 1091, 27, 75, "Input",ExpressionUUID->"a318a711-91bb-47c4-8014-864dd12cb3d9"],
+Cell[7582622, 144728, 8182, 182, 181, "Output",ExpressionUUID->"f9f49c65-80e7-4fbd-ac29-6953f05bb9d7"]
+}, Open ]],
+Cell[7590819, 144913, 6360, 96, 71, "Input",ExpressionUUID->"73e91892-d41c-4d88-b25a-4eb12d081073"],
+Cell[CellGroupData[{
+Cell[7597204, 145013, 9365, 132, 24, "Input",ExpressionUUID->"c43246d1-e2a0-4f05-93de-2eea9f4af4d5"],
+Cell[7606572, 145147, 3200, 71, 74, "Output",ExpressionUUID->"2072e4dc-437d-41fc-8919-b790113d6020"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[7609809, 145223, 1138, 27, 75, "Input",ExpressionUUID->"4cd96397-693d-43ed-8acc-b34129ee201b"],
+Cell[7610950, 145252, 13264, 286, 275, "Output",ExpressionUUID->"3682fbe2-8a6b-4498-bc32-b7486003b238"]
+}, Open ]],
Cell[CellGroupData[{
-Cell[7485833, 142919, 9390, 138, 22, "Input",ExpressionUUID->"7f8997a7-96bf-44a6-8b35-7fbefe7bc627"],
-Cell[7495226, 143059, 1247, 25, 25, "Output",ExpressionUUID->"ad1175d6-066f-437a-a1e6-286df1581107"]
+Cell[7624251, 145543, 1107, 27, 75, "Input",ExpressionUUID->"db8d22b0-776f-49b6-b6f5-254792ce66a4"],
+Cell[7625361, 145572, 8158, 182, 181, "Output",ExpressionUUID->"a5842129-e0b0-4e50-9673-1e6c6178cfd7"]
}, Open ]],
+Cell[7633534, 145757, 6267, 95, 71, "Input",ExpressionUUID->"6ece7e92-ba33-4e18-ba61-6c6859c6e44a"],
Cell[CellGroupData[{
-Cell[7496510, 143089, 1334, 29, 75, "Input",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"],
-Cell[7497847, 143120, 11483, 253, 181, "Output",ExpressionUUID->"51429ceb-340b-429a-83f2-761de0fe44e5"]
+Cell[7639826, 145856, 9262, 131, 24, "Input",ExpressionUUID->"cbceac67-aab3-4aaa-a9f5-f7f5baab9926"],
+Cell[7649091, 145989, 3201, 74, 90, "Output",ExpressionUUID->"44c6a91f-434c-4a6d-a06e-a3fd8e9e453f"]
}, Open ]],
-Cell[7509345, 143376, 6016, 91, 71, "Input",ExpressionUUID->"e7c0d5af-f100-43a1-9e9f-22ed56c1c22c"],
Cell[CellGroupData[{
-Cell[7515386, 143471, 9049, 127, 24, "Input",ExpressionUUID->"2da0f401-c881-42a0-b59b-1f8300174369"],
-Cell[7524438, 143600, 1134, 24, 25, "Output",ExpressionUUID->"31b99911-669c-467a-95fa-6f42941d888b"]
+Cell[7652329, 146068, 1155, 28, 75, "Input",ExpressionUUID->"8255599c-6be2-4063-b6c3-a1d598b1eec1"],
+Cell[7653487, 146098, 13170, 284, 183, "Output",ExpressionUUID->"66c85193-7ce6-452f-a7d6-37d03a2ac870"]
}, Open ]],
-Cell[7525587, 143627, 5910, 89, 71, "Input",ExpressionUUID->"73e91892-d41c-4d88-b25a-4eb12d081073"],
Cell[CellGroupData[{
-Cell[7531522, 143720, 8974, 127, 24, "Input",ExpressionUUID->"c43246d1-e2a0-4f05-93de-2eea9f4af4d5"],
-Cell[7540499, 143849, 1436, 32, 25, "Output",ExpressionUUID->"7a307645-94b4-4ae2-b68d-218545d35407"]
+Cell[7666694, 146387, 1123, 27, 75, "Input",ExpressionUUID->"00c306e0-bd98-42aa-94c0-00a3a2e2f888"],
+Cell[7667820, 146416, 8131, 181, 181, "Output",ExpressionUUID->"1dfd8e0b-f69f-428d-b79d-737675046a07"]
}, Open ]],
-Cell[7541950, 143884, 5914, 90, 71, "Input",ExpressionUUID->"6ece7e92-ba33-4e18-ba61-6c6859c6e44a"],
+Cell[7675966, 146600, 6182, 94, 71, "Input",ExpressionUUID->"3fa9a0f5-416d-499e-8ee4-0612021a0c5d"],
Cell[CellGroupData[{
-Cell[7547889, 143978, 9080, 130, 24, "Input",ExpressionUUID->"cbceac67-aab3-4aaa-a9f5-f7f5baab9926"],
-Cell[7556972, 144110, 1694, 39, 25, "Output",ExpressionUUID->"50cf7d21-280d-4d16-926a-88982ebe8032"]
+Cell[7682173, 146698, 9570, 135, 24, "Input",ExpressionUUID->"fd324373-7122-4ced-93a7-9b97bec2edf8"],
+Cell[7691746, 146835, 3410, 80, 90, "Output",ExpressionUUID->"95989179-83e4-4b06-bbc6-f63774d14859"]
}, Open ]],
-Cell[7558681, 144152, 5961, 91, 71, "Input",ExpressionUUID->"3fa9a0f5-416d-499e-8ee4-0612021a0c5d"],
+Cell[7695171, 146918, 6607, 100, 71, "Input",ExpressionUUID->"6bc0aefc-3faf-4b89-a295-e9f8f5ea8d73"],
Cell[CellGroupData[{
-Cell[7564667, 144247, 9462, 135, 24, "Input",ExpressionUUID->"fd324373-7122-4ced-93a7-9b97bec2edf8"],
-Cell[7574132, 144384, 1822, 43, 25, "Output",ExpressionUUID->"2dc95c84-6c8c-415e-a8ad-1a6cbb15be50"]
+Cell[7701803, 147022, 10012, 142, 24, "Input",ExpressionUUID->"709dfa2a-a119-470b-b512-07e290781fa2"],
+Cell[7711818, 147166, 3839, 91, 106, "Output",ExpressionUUID->"430f202d-a22f-4c74-b7a9-14e5db7b3254"]
}, Open ]],
-Cell[7575969, 144430, 6461, 98, 71, "Input",ExpressionUUID->"6bc0aefc-3faf-4b89-a295-e9f8f5ea8d73"],
+Cell[7715672, 147260, 6633, 100, 71, "Input",ExpressionUUID->"a19c8140-2cf0-4d2d-9cad-84c0b8ad1368"],
Cell[CellGroupData[{
-Cell[7582455, 144532, 9912, 141, 24, "Input",ExpressionUUID->"709dfa2a-a119-470b-b512-07e290781fa2"],
-Cell[7592370, 144675, 2054, 48, 27, "Output",ExpressionUUID->"08f8436b-17f2-4708-841b-3d0078af1679"]
+Cell[7722330, 147364, 10078, 141, 24, "Input",ExpressionUUID->"1d03628f-4d0b-4025-b291-423da0445916"],
+Cell[7732411, 147507, 3383, 77, 90, "Output",ExpressionUUID->"badbea9c-1d99-4e0a-821b-9d450c6355c1"]
}, Open ]],
+Cell[7735809, 147587, 6558, 99, 71, "Input",ExpressionUUID->"89ac841c-bcba-48b4-ada1-f3f8e6567526"],
Cell[CellGroupData[{
-Cell[7594461, 144728, 3054, 99, 141, "Input",ExpressionUUID->"78c2af13-19a3-442b-beb9-26b0e57e5cf9"],
-Cell[7597518, 144829, 460, 10, 22, "Message",ExpressionUUID->"b9abe59e-3a2a-46fa-9753-e5f910ad1c51"]
+Cell[7742392, 147690, 10002, 141, 24, "Input",ExpressionUUID->"bbafde02-1f7a-4482-ba2e-eef49c1d4dfd"],
+Cell[7752397, 147833, 3431, 80, 90, "Output",ExpressionUUID->"78f61448-b3df-4bad-8d36-f7a4eef7bd3c"]
}, Open ]],
-Cell[7597993, 144842, 1008, 27, 39, "Input",ExpressionUUID->"734dcd5d-62a6-4b97-abde-704167fb7071"],
+Cell[7755843, 147916, 6758, 102, 71, "Input",ExpressionUUID->"7ff78c11-7d73-4b16-b799-48cf4a2f6f7f"],
Cell[CellGroupData[{
-Cell[7599026, 144873, 496, 12, 24, "Input",ExpressionUUID->"075439f9-05f4-4790-857a-2c876562ceb2"],
-Cell[7599525, 144887, 460, 10, 22, "Message",ExpressionUUID->"0576a882-cda1-411a-8fe5-11d8dc16e7ab"],
-Cell[7599988, 144899, 459, 10, 22, "Message",ExpressionUUID->"d1f6865f-79aa-4b3c-a188-32bd0326112a"],
-Cell[7600450, 144911, 459, 10, 22, "Message",ExpressionUUID->"94ee616b-d4f1-41e8-bc11-0d637cde8b16"],
-Cell[7600912, 144923, 456, 10, 22, "Message",ExpressionUUID->"76660a41-dc69-4c34-aaa5-3d9d86c69dae"],
-Cell[7601371, 144935, 10470, 254, 171, "Output",ExpressionUUID->"9fd7e7b1-d507-4d93-8f71-aa0ccaa3be9c"]
+Cell[7762626, 148022, 10054, 142, 24, "Input",ExpressionUUID->"91a9357e-cd65-4b22-8a77-0d13dcf9b3fb"],
+Cell[7772683, 148166, 3828, 89, 106, "Output",ExpressionUUID->"475dfbeb-13d5-463e-ae32-778da6adbfeb"]
}, Open ]],
-Cell[7611856, 145192, 6112, 93, 71, "Input",ExpressionUUID->"4c9212b3-67d7-472d-8053-a6719a4b6968"],
+Cell[7776526, 148258, 6712, 101, 71, "Input",ExpressionUUID->"24aac548-eb1c-4513-936d-7978b92c926b"],
Cell[CellGroupData[{
-Cell[7617993, 145289, 9960, 142, 24, "Input",ExpressionUUID->"4da22fc0-9ded-4775-8bdf-688f73c07634"],
-Cell[7627956, 145433, 354, 6, 25, "Output",ExpressionUUID->"7ae5d432-85f2-4be3-bf47-748a047d213e"]
+Cell[7783263, 148363, 10453, 147, 24, "Input",ExpressionUUID->"ff16e4b8-b15e-45f3-8c5f-f73bc188d8ed"],
+Cell[7793719, 148512, 4192, 93, 106, "Output",ExpressionUUID->"1094f3c8-f423-4ec0-9978-75688034b462"]
}, Open ]],
-Cell[7628325, 145442, 6655, 99, 71, "Input",ExpressionUUID->"53e62926-2399-4d89-a1a5-1a9de88f1de1"],
+Cell[7797926, 148608, 6762, 102, 71, "Input",ExpressionUUID->"388da309-89f7-4dd9-af7d-26bd2ea56024"],
Cell[CellGroupData[{
-Cell[7635005, 145545, 9906, 140, 24, "Input",ExpressionUUID->"d7a1b84b-a0ad-4cd8-903b-555055205b7f"],
-Cell[7644914, 145687, 2252, 55, 92, "Output",ExpressionUUID->"57ea2507-7842-4828-ae09-5afcd18018ef"]
+Cell[7804713, 148714, 10552, 148, 24, "Input",ExpressionUUID->"5de997b2-7996-4c75-b3fa-d2e9040e6084"],
+Cell[7815268, 148864, 1056, 15, 25, "Output",ExpressionUUID->"03372973-e118-4a6b-95c6-7dcb1fb4a3ef"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7647203, 145747, 526, 14, 22, "Input",ExpressionUUID->"36165250-3b0d-43e7-a7bb-de8bf7b98728"],
-Cell[7647732, 145763, 720, 14, 25, "Output",ExpressionUUID->"b5989670-6524-408b-9128-911314e751a7"]
+Cell[7816361, 148884, 444, 11, 22, "Input",ExpressionUUID->"18aa91e1-03a1-48da-bed8-3d6a7a4ae626"],
+Cell[7816808, 148897, 1547, 41, 172, "Output",ExpressionUUID->"fa7fd377-360b-4502-a977-985fa8362db0"]
}, Open ]],
-Cell[7648467, 145780, 7687, 113, 71, "Input",ExpressionUUID->"3f1dca6c-8ee4-4a6d-bfd4-139952b6134e"],
Cell[CellGroupData[{
-Cell[7656179, 145897, 10180, 145, 24, "Input",ExpressionUUID->"4d5e8eae-9598-4ba9-97b9-820721b9cf2c"],
-Cell[7666362, 146044, 3081, 72, 76, "Output",ExpressionUUID->"e528eced-04f2-4168-85ee-b92cc07d3a4a"]
+Cell[7818392, 148943, 1194, 28, 75, "Input",ExpressionUUID->"0c2ba5ff-361b-45fc-864f-677bddbf18a4"],
+Cell[7819589, 148973, 13243, 285, 183, "Output",ExpressionUUID->"c82e8bc4-7571-43a3-9234-476a09bdb686"]
}, Open ]],
-Cell[7669458, 146119, 7442, 110, 71, "Input",ExpressionUUID->"058d944c-17d2-44c4-a094-d49c5ebc4b30"],
Cell[CellGroupData[{
-Cell[7676925, 146233, 11278, 159, 24, "Input",ExpressionUUID->"d3519241-4ab5-4155-9d60-b261c692c1c1"],
-Cell[7688206, 146394, 814, 12, 25, "Output",ExpressionUUID->"c696dbfc-9a83-45ed-b662-b4e3824d4d3a"]
+Cell[7832869, 149263, 1138, 27, 75, "Input",ExpressionUUID->"a040d774-1dc7-4385-9ead-c8dc5c641e12"],
+Cell[7834010, 149292, 8155, 181, 181, "Output",ExpressionUUID->"c82435a1-e076-481e-885a-816900db5198"]
}, Open ]],
-Cell[7689035, 146409, 156, 3, 22, "Input",ExpressionUUID->"c64829f7-13ca-41be-b90d-b02b0be6aef7"],
-Cell[7689194, 146414, 2755, 70, 105, "Input",ExpressionUUID->"b80f96d6-6a42-4eb5-bf49-722ec664dd25"],
-Cell[7691952, 146486, 7335, 108, 71, "Input",ExpressionUUID->"948a7964-c664-45bb-ab96-2401383cc094"],
+Cell[7842180, 149476, 1317, 36, 57, "Input",ExpressionUUID->"78c2af13-19a3-442b-beb9-26b0e57e5cf9"],
+Cell[7843500, 149514, 1003, 26, 22, "Input",ExpressionUUID->"734dcd5d-62a6-4b97-abde-704167fb7071"],
Cell[CellGroupData[{
-Cell[7699312, 146598, 11347, 158, 24, "Input",ExpressionUUID->"f0d582ea-c723-428e-9a1b-da3da4addd8f"],
-Cell[7710662, 146758, 811, 15, 34, "Message",ExpressionUUID->"2c34ff2e-d0de-42c1-97ce-5ec9f8f5b795"],
-Cell[7711476, 146775, 3063, 76, 76, "Output",ExpressionUUID->"d46a2655-d289-479c-9592-35e50aabe831"]
+Cell[7844528, 149544, 644, 14, 24, "Input",ExpressionUUID->"075439f9-05f4-4790-857a-2c876562ceb2"],
+Cell[7845175, 149560, 5285, 127, 243, "Output",ExpressionUUID->"d48de788-35b4-47f7-9593-275f94f5ff9d"]
}, Open ]],
+Cell[7850475, 149690, 6112, 93, 71, "Input",ExpressionUUID->"4c9212b3-67d7-472d-8053-a6719a4b6968"],
Cell[CellGroupData[{
-Cell[7714576, 146856, 1119, 27, 22, "Input",ExpressionUUID->"3c4a1b69-e1ff-4cc9-9eaf-7e24b6138668"],
-Cell[7715698, 146885, 36828, 630, 421, "Output",ExpressionUUID->"9cc868e2-bd8c-4e98-a54f-a01b805fe1c6"]
+Cell[7856612, 149787, 9960, 142, 24, "Input",ExpressionUUID->"4da22fc0-9ded-4775-8bdf-688f73c07634"],
+Cell[7866575, 149931, 354, 6, 25, "Output",ExpressionUUID->"7ae5d432-85f2-4be3-bf47-748a047d213e"]
}, Open ]],
+Cell[7866944, 149940, 6655, 99, 71, "Input",ExpressionUUID->"53e62926-2399-4d89-a1a5-1a9de88f1de1"],
Cell[CellGroupData[{
-Cell[7752563, 147520, 1992, 47, 97, "Input",ExpressionUUID->"2013220e-65d7-4711-8f02-e8f52d80b46d"],
-Cell[7754558, 147569, 9917, 188, 428, "Output",ExpressionUUID->"898e5549-2826-4078-b4cd-9d551732769a"]
+Cell[7873624, 150043, 9906, 140, 24, "Input",ExpressionUUID->"d7a1b84b-a0ad-4cd8-903b-555055205b7f"],
+Cell[7883533, 150185, 2252, 55, 92, "Output",ExpressionUUID->"57ea2507-7842-4828-ae09-5afcd18018ef"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7764512, 147762, 692, 20, 38, "Input",ExpressionUUID->"e4cb6dcf-d649-4de9-a097-73373ea68146"],
-Cell[7765207, 147784, 1193, 32, 35, "Output",ExpressionUUID->"81df3d82-076a-4d70-8964-0b4744e17318"]
+Cell[7885822, 150245, 526, 14, 22, "Input",ExpressionUUID->"36165250-3b0d-43e7-a7bb-de8bf7b98728"],
+Cell[7886351, 150261, 720, 14, 25, "Output",ExpressionUUID->"b5989670-6524-408b-9128-911314e751a7"]
}, Open ]],
+Cell[7887086, 150278, 7687, 113, 71, "Input",ExpressionUUID->"3f1dca6c-8ee4-4a6d-bfd4-139952b6134e"],
Cell[CellGroupData[{
-Cell[7766437, 147821, 1552, 39, 119, "Input",ExpressionUUID->"dd68a063-22e7-439e-adea-6af0bc3682b7"],
-Cell[7767992, 147862, 6302, 119, 387, "Output",ExpressionUUID->"0944fabd-5c4c-4f1d-8aa6-bbce6f848a27"]
+Cell[7894798, 150395, 10180, 145, 24, "Input",ExpressionUUID->"4d5e8eae-9598-4ba9-97b9-820721b9cf2c"],
+Cell[7904981, 150542, 3081, 72, 108, "Output",ExpressionUUID->"e528eced-04f2-4168-85ee-b92cc07d3a4a"]
}, Open ]],
+Cell[7908077, 150617, 7442, 110, 71, "Input",ExpressionUUID->"058d944c-17d2-44c4-a094-d49c5ebc4b30"],
Cell[CellGroupData[{
-Cell[7774331, 147986, 558, 12, 22, "Input",ExpressionUUID->"bb62dac0-55ce-4eb0-b9f1-470897d67dfe"],
-Cell[7774892, 148000, 1517, 39, 275, "Output",ExpressionUUID->"2c92ad09-18a3-4f8d-837d-f9aeee72e78b"]
+Cell[7915544, 150731, 11278, 159, 24, "Input",ExpressionUUID->"d3519241-4ab5-4155-9d60-b261c692c1c1"],
+Cell[7926825, 150892, 814, 12, 25, "Output",ExpressionUUID->"c696dbfc-9a83-45ed-b662-b4e3824d4d3a"]
}, Open ]],
+Cell[7927654, 150907, 156, 3, 22, "Input",ExpressionUUID->"c64829f7-13ca-41be-b90d-b02b0be6aef7"],
+Cell[7927813, 150912, 2755, 70, 185, "Input",ExpressionUUID->"b80f96d6-6a42-4eb5-bf49-722ec664dd25"],
+Cell[7930571, 150984, 7335, 108, 71, "Input",ExpressionUUID->"948a7964-c664-45bb-ab96-2401383cc094"],
Cell[CellGroupData[{
-Cell[7776446, 148044, 1284, 28, 75, "Input",ExpressionUUID->"220c4df0-bee1-4228-b3e2-e1b0766134a3"],
-Cell[7777733, 148074, 6221, 139, 181, "Output",ExpressionUUID->"b948047e-c6cf-42f2-98b9-e19483d53354"]
+Cell[7937931, 151096, 11347, 158, 24, "Input",ExpressionUUID->"f0d582ea-c723-428e-9a1b-da3da4addd8f"],
+Cell[7949281, 151256, 811, 15, 34, "Message",ExpressionUUID->"2c34ff2e-d0de-42c1-97ce-5ec9f8f5b795"],
+Cell[7950095, 151273, 3063, 76, 108, "Output",ExpressionUUID->"d46a2655-d289-479c-9592-35e50aabe831"]
}, Open ]],
-Cell[7783969, 148216, 5436, 83, 71, "Input",ExpressionUUID->"6f0e01cf-f96f-4c8a-99a0-f3333c060add"],
Cell[CellGroupData[{
-Cell[7789430, 148303, 9564, 136, 24, "Input",ExpressionUUID->"6a312381-96fc-406f-a1fd-0e852d5ab509"],
-Cell[7798997, 148441, 7487, 126, 60, "Output",ExpressionUUID->"dda0c899-e82a-4b84-9a16-46c6506c9d35"]
+Cell[7953195, 151354, 1119, 27, 39, "Input",ExpressionUUID->"3c4a1b69-e1ff-4cc9-9eaf-7e24b6138668"],
+Cell[7954317, 151383, 36828, 630, 421, "Output",ExpressionUUID->"9cc868e2-bd8c-4e98-a54f-a01b805fe1c6"]
}, Open ]],
-Cell[7806499, 148570, 5536, 85, 71, "Input",ExpressionUUID->"0c9a24df-e68c-461a-ba70-0bac82c00f0f"],
Cell[CellGroupData[{
-Cell[7812060, 148659, 9601, 136, 24, "Input",ExpressionUUID->"209b61e6-ea35-45fb-a7ee-ff8641f61cee"],
-Cell[7821664, 148797, 7667, 130, 60, "Output",ExpressionUUID->"0d97663f-3bc4-425b-a7c0-f3432eb1fcd6"]
+Cell[7991182, 152018, 1992, 47, 118, "Input",ExpressionUUID->"2013220e-65d7-4711-8f02-e8f52d80b46d"],
+Cell[7993177, 152067, 9917, 188, 428, "Output",ExpressionUUID->"898e5549-2826-4078-b4cd-9d551732769a"]
}, Open ]],
-Cell[7829346, 148930, 5834, 89, 71, "Input",ExpressionUUID->"450017d5-3e88-4e32-bd3d-dfd0d7644959"],
Cell[CellGroupData[{
-Cell[7835205, 149023, 9747, 138, 24, "Input",ExpressionUUID->"e297d766-a8fa-4de3-b30a-9a3f30e2c1f8"],
-Cell[7844955, 149163, 5810, 80, 25, "Output",ExpressionUUID->"f2429b01-7984-4070-aaee-10231365b720"]
+Cell[8003131, 152260, 692, 20, 38, "Input",ExpressionUUID->"e4cb6dcf-d649-4de9-a097-73373ea68146"],
+Cell[8003826, 152282, 1193, 32, 35, "Output",ExpressionUUID->"81df3d82-076a-4d70-8964-0b4744e17318"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7850802, 149248, 173, 4, 22, "Input",ExpressionUUID->"8d3f801c-2293-4ca2-84e7-5a8683b7eaf1"],
-Cell[7850978, 149254, 189, 4, 25, "Output",ExpressionUUID->"f32370b2-29b4-4a67-b7a5-6cd72b79acb9"]
+Cell[8005056, 152319, 1552, 39, 119, "Input",ExpressionUUID->"dd68a063-22e7-439e-adea-6af0bc3682b7"],
+Cell[8006611, 152360, 6302, 119, 387, "Output",ExpressionUUID->"0944fabd-5c4c-4f1d-8aa6-bbce6f848a27"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7851204, 149263, 458, 12, 22, "Input",ExpressionUUID->"239ef493-7cc7-47b1-81a8-94f331e00ce1"],
-Cell[7851665, 149277, 335, 6, 25, "Output",ExpressionUUID->"15ee4c9a-c829-445a-b182-767e4df814ff"]
+Cell[8012950, 152484, 558, 12, 22, "Input",ExpressionUUID->"bb62dac0-55ce-4eb0-b9f1-470897d67dfe"],
+Cell[8013511, 152498, 1517, 39, 275, "Output",ExpressionUUID->"2c92ad09-18a3-4f8d-837d-f9aeee72e78b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7852037, 149288, 183, 3, 22, "Input",ExpressionUUID->"b20c0eee-a200-4247-b652-5ba1650e9b5f"],
-Cell[7852223, 149293, 793, 19, 25, "Output",ExpressionUUID->"5f96eb98-50fe-43bb-9a73-854740c7372f"]
+Cell[8015065, 152542, 1284, 28, 75, "Input",ExpressionUUID->"220c4df0-bee1-4228-b3e2-e1b0766134a3"],
+Cell[8016352, 152572, 6221, 139, 181, "Output",ExpressionUUID->"b948047e-c6cf-42f2-98b9-e19483d53354"]
}, Open ]],
+Cell[8022588, 152714, 5436, 83, 71, "Input",ExpressionUUID->"6f0e01cf-f96f-4c8a-99a0-f3333c060add"],
Cell[CellGroupData[{
-Cell[7853053, 149317, 8397, 231, 246, "Input",ExpressionUUID->"3e302e31-0839-4a7a-911f-ef7959a97430"],
-Cell[7861453, 149550, 10866, 253, 170, "Output",ExpressionUUID->"40a49cc7-e27b-498b-9d75-a82273bcd8a7"]
+Cell[8028049, 152801, 9564, 136, 24, "Input",ExpressionUUID->"6a312381-96fc-406f-a1fd-0e852d5ab509"],
+Cell[8037616, 152939, 7487, 126, 92, "Output",ExpressionUUID->"dda0c899-e82a-4b84-9a16-46c6506c9d35"]
}, Open ]],
+Cell[8045118, 153068, 5536, 85, 71, "Input",ExpressionUUID->"0c9a24df-e68c-461a-ba70-0bac82c00f0f"],
Cell[CellGroupData[{
-Cell[7872356, 149808, 459, 12, 24, "Input",ExpressionUUID->"6deee041-d448-439c-87cd-9df997417af7"],
-Cell[7872818, 149822, 618, 13, 25, "Output",ExpressionUUID->"7ca09e9d-964f-40c8-bceb-b721d07455d7"]
+Cell[8050679, 153157, 9601, 136, 24, "Input",ExpressionUUID->"209b61e6-ea35-45fb-a7ee-ff8641f61cee"],
+Cell[8060283, 153295, 7667, 130, 92, "Output",ExpressionUUID->"0d97663f-3bc4-425b-a7c0-f3432eb1fcd6"]
}, Open ]],
+Cell[8067965, 153428, 5834, 89, 71, "Input",ExpressionUUID->"450017d5-3e88-4e32-bd3d-dfd0d7644959"],
Cell[CellGroupData[{
-Cell[7873473, 149840, 517, 14, 22, "Input",ExpressionUUID->"99574bb0-c58e-4d9b-991d-de0538a79ce2"],
-Cell[7873993, 149856, 623, 13, 25, "Output",ExpressionUUID->"4286d6ad-13e2-4c9f-a802-01f8b5be79a5"]
+Cell[8073824, 153521, 9747, 138, 24, "Input",ExpressionUUID->"e297d766-a8fa-4de3-b30a-9a3f30e2c1f8"],
+Cell[8083574, 153661, 5810, 80, 25, "Output",ExpressionUUID->"f2429b01-7984-4070-aaee-10231365b720"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7874653, 149874, 579, 16, 22, "Input",ExpressionUUID->"9a24f42c-93c4-41df-8879-8354b7f36469"],
-Cell[7875235, 149892, 316, 5, 25, "Output",ExpressionUUID->"39eb5162-da89-40a5-8bff-ab21a0a6b4ff"]
+Cell[8089421, 153746, 173, 4, 22, "Input",ExpressionUUID->"8d3f801c-2293-4ca2-84e7-5a8683b7eaf1"],
+Cell[8089597, 153752, 189, 4, 25, "Output",ExpressionUUID->"f32370b2-29b4-4a67-b7a5-6cd72b79acb9"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7875588, 149902, 315, 8, 22, "Input",ExpressionUUID->"73e6bc7f-3afd-45d8-90d6-30e29942196b"],
-Cell[7875906, 149912, 269, 4, 25, "Output",ExpressionUUID->"6da5446d-49fe-42de-8af9-2e5e0b368c4e"]
+Cell[8089823, 153761, 458, 12, 22, "Input",ExpressionUUID->"239ef493-7cc7-47b1-81a8-94f331e00ce1"],
+Cell[8090284, 153775, 335, 6, 25, "Output",ExpressionUUID->"15ee4c9a-c829-445a-b182-767e4df814ff"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7876212, 149921, 1119, 32, 40, "Input",ExpressionUUID->"8c2764e5-f190-4d3c-b052-79717cc35a48"],
-Cell[7877334, 149955, 737, 13, 42, "Output",ExpressionUUID->"ef502a42-c8ae-45d1-bab3-7517f089824f"]
+Cell[8090656, 153786, 183, 3, 22, "Input",ExpressionUUID->"b20c0eee-a200-4247-b652-5ba1650e9b5f"],
+Cell[8090842, 153791, 793, 19, 42, "Output",ExpressionUUID->"5f96eb98-50fe-43bb-9a73-854740c7372f"]
}, Open ]],
-Cell[7878086, 149971, 1033, 17, 22, "Input",ExpressionUUID->"18b2f6d3-0d19-4706-831e-f2fcc505b53f"],
Cell[CellGroupData[{
-Cell[7879144, 149992, 255, 4, 22, "Input",ExpressionUUID->"00eeff7d-2516-4f30-a51c-9ec970fb3742"],
-Cell[7879402, 149998, 244, 3, 25, "Output",ExpressionUUID->"ccf1409f-a14b-44eb-bf46-26eb9198a2e8"]
+Cell[8091672, 153815, 8397, 231, 373, "Input",ExpressionUUID->"3e302e31-0839-4a7a-911f-ef7959a97430"],
+Cell[8100072, 154048, 10866, 253, 170, "Output",ExpressionUUID->"40a49cc7-e27b-498b-9d75-a82273bcd8a7"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7879683, 150006, 1406, 29, 75, "Input",ExpressionUUID->"e6713a47-0d38-4adf-843b-ed15e3c46c4e"],
-Cell[7881092, 150037, 823, 11, 25, "Output",ExpressionUUID->"611e7a6b-12f8-4502-81ca-f88453f7d81d"]
+Cell[8110975, 154306, 459, 12, 24, "Input",ExpressionUUID->"6deee041-d448-439c-87cd-9df997417af7"],
+Cell[8111437, 154320, 618, 13, 25, "Output",ExpressionUUID->"7ca09e9d-964f-40c8-bceb-b721d07455d7"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7881952, 150053, 1182, 28, 71, "Input",ExpressionUUID->"fe20d7b4-7ac7-4f3c-965a-a64f2c290b79"],
-Cell[7883137, 150083, 11988, 282, 183, "Output",ExpressionUUID->"654cf4f1-b6c1-4354-84c0-60826f56d62e"]
+Cell[8112092, 154338, 517, 14, 22, "Input",ExpressionUUID->"99574bb0-c58e-4d9b-991d-de0538a79ce2"],
+Cell[8112612, 154354, 623, 13, 42, "Output",ExpressionUUID->"4286d6ad-13e2-4c9f-a802-01f8b5be79a5"]
}, Open ]],
-Cell[7895140, 150368, 1095, 20, 22, "Input",ExpressionUUID->"9c2f3df4-6178-4694-993b-bda1ee283ce0"],
Cell[CellGroupData[{
-Cell[7896260, 150392, 1989, 47, 75, "Input",ExpressionUUID->"c86851c1-cf2b-41e6-a0f0-e785148a7384"],
-Cell[7898252, 150441, 261, 5, 25, "Output",ExpressionUUID->"e0d97b17-168d-4d7b-b22e-edf82ae92052"]
+Cell[8113272, 154372, 579, 16, 22, "Input",ExpressionUUID->"9a24f42c-93c4-41df-8879-8354b7f36469"],
+Cell[8113854, 154390, 316, 5, 25, "Output",ExpressionUUID->"39eb5162-da89-40a5-8bff-ab21a0a6b4ff"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7898550, 150451, 3516, 71, 157, "Input",ExpressionUUID->"a628642f-9345-446c-9af5-bd9f8be7795e"],
-Cell[7902069, 150524, 2601, 36, 25, "Output",ExpressionUUID->"3faad427-2602-4847-8767-c30225439c4d"]
+Cell[8114207, 154400, 315, 8, 22, "Input",ExpressionUUID->"73e6bc7f-3afd-45d8-90d6-30e29942196b"],
+Cell[8114525, 154410, 269, 4, 25, "Output",ExpressionUUID->"6da5446d-49fe-42de-8af9-2e5e0b368c4e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7904707, 150565, 1025, 28, 58, "Input",ExpressionUUID->"83bf7d3c-fe44-4a49-91b0-3b230822412d"],
-Cell[7905735, 150595, 538, 12, 25, "Output",ExpressionUUID->"049539cd-508e-4808-998b-7255f22297e0"]
+Cell[8114831, 154419, 1119, 32, 40, "Input",ExpressionUUID->"8c2764e5-f190-4d3c-b052-79717cc35a48"],
+Cell[8115953, 154453, 737, 13, 42, "Output",ExpressionUUID->"ef502a42-c8ae-45d1-bab3-7517f089824f"]
}, Open ]],
+Cell[8116705, 154469, 1033, 17, 22, "Input",ExpressionUUID->"18b2f6d3-0d19-4706-831e-f2fcc505b53f"],
Cell[CellGroupData[{
-Cell[7906310, 150612, 940, 24, 41, "Input",ExpressionUUID->"737114e7-27bf-44e9-90d0-f3e220e1fbe9"],
-Cell[7907253, 150638, 2600, 82, 60, "Output",ExpressionUUID->"bfe13574-c198-44c2-a82a-7a68ac6594b1"]
+Cell[8117763, 154490, 255, 4, 22, "Input",ExpressionUUID->"00eeff7d-2516-4f30-a51c-9ec970fb3742"],
+Cell[8118021, 154496, 244, 3, 25, "Output",ExpressionUUID->"ccf1409f-a14b-44eb-bf46-26eb9198a2e8"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7909890, 150725, 312, 7, 22, "Input",ExpressionUUID->"00c11329-3fd1-410c-9023-c4475a374c1c"],
-Cell[7910205, 150734, 210, 4, 25, "Output",ExpressionUUID->"7bb2f702-f67a-409b-9ff6-e4dfb82006a5"]
+Cell[8118302, 154504, 1406, 29, 75, "Input",ExpressionUUID->"e6713a47-0d38-4adf-843b-ed15e3c46c4e"],
+Cell[8119711, 154535, 823, 11, 25, "Output",ExpressionUUID->"611e7a6b-12f8-4502-81ca-f88453f7d81d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7910452, 150743, 624, 18, 39, "Input",ExpressionUUID->"5d1b0a3d-de27-482a-bae3-c23bae163f5a"],
-Cell[7911079, 150763, 632, 12, 42, "Output",ExpressionUUID->"a6f1a8a6-2049-4a79-91ac-9abd4b607c36"]
+Cell[8120571, 154551, 1182, 28, 71, "Input",ExpressionUUID->"fe20d7b4-7ac7-4f3c-965a-a64f2c290b79"],
+Cell[8121756, 154581, 11988, 282, 183, "Output",ExpressionUUID->"654cf4f1-b6c1-4354-84c0-60826f56d62e"]
}, Open ]],
+Cell[8133759, 154866, 1095, 20, 22, "Input",ExpressionUUID->"9c2f3df4-6178-4694-993b-bda1ee283ce0"],
Cell[CellGroupData[{
-Cell[7911748, 150780, 1364, 36, 76, "Input",ExpressionUUID->"f6133534-d260-4c20-9384-1504d38050b5"],
-Cell[7913115, 150818, 24078, 497, 171, "Output",ExpressionUUID->"ae94140a-a048-4e2f-ab64-bb4bbb28ced1"]
+Cell[8134879, 154890, 1989, 47, 75, "Input",ExpressionUUID->"c86851c1-cf2b-41e6-a0f0-e785148a7384"],
+Cell[8136871, 154939, 261, 5, 25, "Output",ExpressionUUID->"e0d97b17-168d-4d7b-b22e-edf82ae92052"]
}, Open ]],
-Cell[7937208, 151318, 4656, 71, 55, "Input",ExpressionUUID->"3449f203-04a7-4ee2-976c-6c588cac8b8c"],
Cell[CellGroupData[{
-Cell[7941889, 151393, 7928, 115, 22, "Input",ExpressionUUID->"8a565b8f-7303-4318-a332-ad1e6cc11f57"],
-Cell[7949820, 151510, 440, 10, 22, "Message",ExpressionUUID->"60276545-3db0-456d-ae55-b68487ca8c38"],
-Cell[7950263, 151522, 5412, 91, 74, "Output",ExpressionUUID->"71ef8082-2ad9-4072-9555-3b534a868061"]
+Cell[8137169, 154949, 3516, 71, 157, "Input",ExpressionUUID->"a628642f-9345-446c-9af5-bd9f8be7795e"],
+Cell[8140688, 155022, 2601, 36, 25, "Output",ExpressionUUID->"3faad427-2602-4847-8767-c30225439c4d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7955712, 151618, 1935, 37, 71, "Input",ExpressionUUID->"931220ee-0e2c-4f75-bb54-332cf08adc26"],
-Cell[7957650, 151657, 18227, 329, 137, "Output",ExpressionUUID->"76515291-b1a5-4c25-9f97-9ab33d68ca06"]
+Cell[8143326, 155063, 1025, 28, 58, "Input",ExpressionUUID->"83bf7d3c-fe44-4a49-91b0-3b230822412d"],
+Cell[8144354, 155093, 538, 12, 25, "Output",ExpressionUUID->"049539cd-508e-4808-998b-7255f22297e0"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7975914, 151991, 1636, 43, 58, "Input",ExpressionUUID->"60091d62-df15-4dc3-84fc-ce944ef9bf9a"],
-Cell[7977553, 152036, 221293, 3642, 180, "Output",ExpressionUUID->"2aa49536-d57a-45f7-be94-d293282e519c"]
+Cell[8144929, 155110, 940, 24, 41, "Input",ExpressionUUID->"737114e7-27bf-44e9-90d0-f3e220e1fbe9"],
+Cell[8145872, 155136, 2600, 82, 60, "Output",ExpressionUUID->"bfe13574-c198-44c2-a82a-7a68ac6594b1"]
}, Open ]],
Cell[CellGroupData[{
-Cell[8198883, 155683, 1661, 43, 58, "Input",ExpressionUUID->"450ea135-d1f8-46af-bbce-2567632c716d"],
-Cell[8200547, 155728, 221490, 3645, 180, "Output",ExpressionUUID->"a4b3b783-b1f7-4ea2-a67e-0c6931c0bfbf"]
+Cell[8148509, 155223, 312, 7, 22, "Input",ExpressionUUID->"00c11329-3fd1-410c-9023-c4475a374c1c"],
+Cell[8148824, 155232, 210, 4, 25, "Output",ExpressionUUID->"7bb2f702-f67a-409b-9ff6-e4dfb82006a5"]
}, Open ]],
Cell[CellGroupData[{
-Cell[8422074, 159378, 718, 19, 39, "Input",ExpressionUUID->"e6be9a58-00ef-4cc4-9f98-b244abdb64a9"],
-Cell[8422795, 159399, 689, 13, 44, "Output",ExpressionUUID->"5dac9722-8d43-456a-b7f8-6fb8a2409567"]
+Cell[8149071, 155241, 624, 18, 39, "Input",ExpressionUUID->"5d1b0a3d-de27-482a-bae3-c23bae163f5a"],
+Cell[8149698, 155261, 632, 12, 42, "Output",ExpressionUUID->"a6f1a8a6-2049-4a79-91ac-9abd4b607c36"]
}, Open ]],
Cell[CellGroupData[{
-Cell[8423521, 159417, 3389, 70, 141, "Input",ExpressionUUID->"51ec65c5-a0e6-4978-a6f1-be5685a51a29"],
-Cell[8426913, 159489, 12735, 275, 138, "Output",ExpressionUUID->"cffe87cf-9e79-490f-bdd3-c4f96ce4a779"]
+Cell[8150367, 155278, 1364, 36, 76, "Input",ExpressionUUID->"f6133534-d260-4c20-9384-1504d38050b5"],
+Cell[8151734, 155316, 24078, 497, 171, "Output",ExpressionUUID->"ae94140a-a048-4e2f-ab64-bb4bbb28ced1"]
}, Open ]],
+Cell[8175827, 155816, 4656, 71, 55, "Input",ExpressionUUID->"3449f203-04a7-4ee2-976c-6c588cac8b8c"],
Cell[CellGroupData[{
-Cell[8439685, 159769, 1135, 27, 73, "Input",ExpressionUUID->"1df50e30-664e-48e3-9859-86c2671ecf4b"],
-Cell[8440823, 159798, 7683, 188, 181, "Output",ExpressionUUID->"8dce01cb-6835-415b-8420-582e04b50ae1"]
+Cell[8180508, 155891, 7928, 115, 22, "Input",ExpressionUUID->"8a565b8f-7303-4318-a332-ad1e6cc11f57"],
+Cell[8188439, 156008, 440, 10, 22, "Message",ExpressionUUID->"60276545-3db0-456d-ae55-b68487ca8c38"],
+Cell[8188882, 156020, 5412, 91, 74, "Output",ExpressionUUID->"71ef8082-2ad9-4072-9555-3b534a868061"]
}, Open ]],
-Cell[8448521, 159989, 3769, 58, 55, "Input",ExpressionUUID->"96edcc0a-bb4d-4e36-be9f-ce6a8a0d98be"],
Cell[CellGroupData[{
-Cell[8452315, 160051, 6700, 99, 24, "Input",ExpressionUUID->"4a8baa30-33ff-46db-9ac4-7fd988d3cfde"],
-Cell[8459018, 160152, 558, 12, 22, "Message",ExpressionUUID->"28f96585-e12b-4a24-8c48-750f18f8071e"],
-Cell[8459579, 160166, 5206, 95, 92, "Output",ExpressionUUID->"7ec5973e-217a-4934-9c67-94501f20e071"]
+Cell[8194331, 156116, 1935, 37, 71, "Input",ExpressionUUID->"931220ee-0e2c-4f75-bb54-332cf08adc26"],
+Cell[8196269, 156155, 18227, 329, 137, "Output",ExpressionUUID->"76515291-b1a5-4c25-9f97-9ab33d68ca06"]
}, Open ]],
Cell[CellGroupData[{
-Cell[8464822, 160266, 1747, 35, 71, "Input",ExpressionUUID->"e9352cf8-02f1-478b-8280-4509621bf9c3"],
-Cell[8466572, 160303, 17065, 313, 138, "Output",ExpressionUUID->"5e62b330-364e-4d8a-8f23-180a2304812a"]
+Cell[8214533, 156489, 1636, 43, 58, "Input",ExpressionUUID->"60091d62-df15-4dc3-84fc-ce944ef9bf9a"],
+Cell[8216172, 156534, 221293, 3642, 180, "Output",ExpressionUUID->"2aa49536-d57a-45f7-be94-d293282e519c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[8483674, 160621, 1075, 29, 59, "Input",ExpressionUUID->"0a27f704-930f-4a1b-bf73-10e745ca5c38"],
-Cell[8484752, 160652, 1686, 44, 184, "Output",ExpressionUUID->"0e911c57-92d6-4211-b513-7b06f78d0f94"]
+Cell[8437502, 160181, 1661, 43, 58, "Input",ExpressionUUID->"450ea135-d1f8-46af-bbce-2567632c716d"],
+Cell[8439166, 160226, 221490, 3645, 180, "Output",ExpressionUUID->"a4b3b783-b1f7-4ea2-a67e-0c6931c0bfbf"]
}, Open ]],
Cell[CellGroupData[{
-Cell[8486475, 160701, 2704, 59, 75, "Input",ExpressionUUID->"0d0ac8b8-8b41-4baf-98d6-ab5c2fbbd568"],
-Cell[8489182, 160762, 12141, 271, 180, "Output",ExpressionUUID->"e860e315-d3af-419a-a95f-08d7aac8e9da"]
+Cell[8660693, 163876, 718, 19, 39, "Input",ExpressionUUID->"e6be9a58-00ef-4cc4-9f98-b244abdb64a9"],
+Cell[8661414, 163897, 689, 13, 44, "Output",ExpressionUUID->"5dac9722-8d43-456a-b7f8-6fb8a2409567"]
}, Open ]],
-Cell[8501338, 161036, 3491, 55, 55, "Input",ExpressionUUID->"95e7b2ca-f79f-42f7-a4d6-b9999aaaebbf"],
Cell[CellGroupData[{
-Cell[8504854, 161095, 6511, 94, 22, "Input",ExpressionUUID->"b06f22eb-d540-4a76-85e3-72d785ad1b70"],
-Cell[8511368, 161191, 5770, 96, 42, "Output",ExpressionUUID->"46b348e3-bd8e-4c18-9375-32bbcccbec33"]
+Cell[8662140, 163915, 3389, 70, 141, "Input",ExpressionUUID->"51ec65c5-a0e6-4978-a6f1-be5685a51a29"],
+Cell[8665532, 163987, 12735, 275, 138, "Output",ExpressionUUID->"cffe87cf-9e79-490f-bdd3-c4f96ce4a779"]
}, Open ]],
Cell[CellGroupData[{
-Cell[8517175, 161292, 1791, 35, 71, "Input",ExpressionUUID->"addaa5fb-500f-4ed8-a5f7-6fd64ad3eaa6"],
-Cell[8518969, 161329, 17336, 318, 138, "Output",ExpressionUUID->"dab5a296-dac7-42c3-83dc-f259ba6d8925"]
+Cell[8678304, 164267, 1135, 27, 73, "Input",ExpressionUUID->"1df50e30-664e-48e3-9859-86c2671ecf4b"],
+Cell[8679442, 164296, 7683, 188, 181, "Output",ExpressionUUID->"8dce01cb-6835-415b-8420-582e04b50ae1"]
}, Open ]],
+Cell[8687140, 164487, 3769, 58, 55, "Input",ExpressionUUID->"96edcc0a-bb4d-4e36-be9f-ce6a8a0d98be"],
Cell[CellGroupData[{
-Cell[8536342, 161652, 2079, 54, 75, "Input",ExpressionUUID->"d36b355d-67fb-4c2e-838b-03fe471dc611"],
-Cell[8538424, 161708, 16732, 375, 138, "Output",ExpressionUUID->"7b83e30f-16ba-4710-9392-892c46b5d312"]
+Cell[8690934, 164549, 6700, 99, 24, "Input",ExpressionUUID->"4a8baa30-33ff-46db-9ac4-7fd988d3cfde"],
+Cell[8697637, 164650, 558, 12, 22, "Message",ExpressionUUID->"28f96585-e12b-4a24-8c48-750f18f8071e"],
+Cell[8698198, 164664, 5206, 95, 92, "Output",ExpressionUUID->"7ec5973e-217a-4934-9c67-94501f20e071"]
}, Open ]],
-Cell[8555171, 162086, 3360, 53, 55, "Input",ExpressionUUID->"c82c5d89-ecae-4e05-930f-c26cc54103a7"],
Cell[CellGroupData[{
-Cell[8558556, 162143, 6459, 92, 22, "Input",ExpressionUUID->"290e904f-7c29-43f1-8bd5-c9be3d1bef02"],
-Cell[8565018, 162237, 1955, 31, 46, "Message",ExpressionUUID->"54c445a3-7d1c-40ef-870f-ec5a37efb826"],
-Cell[8566976, 162270, 5268, 92, 58, "Output",ExpressionUUID->"67e4a52e-0a2c-4bbb-b96c-829e61f321c4"]
+Cell[8703441, 164764, 1747, 35, 71, "Input",ExpressionUUID->"e9352cf8-02f1-478b-8280-4509621bf9c3"],
+Cell[8705191, 164801, 17065, 313, 138, "Output",ExpressionUUID->"5e62b330-364e-4d8a-8f23-180a2304812a"]
}, Open ]],
Cell[CellGroupData[{
-Cell[8572281, 162367, 1882, 39, 71, "Input",ExpressionUUID->"d5e39058-5f9e-47c6-946f-532c8ed529f6"],
-Cell[8574166, 162408, 9557, 188, 138, "Output",ExpressionUUID->"e645c593-9553-43d8-b4f5-be8c82e277ad"]
+Cell[8722293, 165119, 1075, 29, 59, "Input",ExpressionUUID->"0a27f704-930f-4a1b-bf73-10e745ca5c38"],
+Cell[8723371, 165150, 1686, 44, 184, "Output",ExpressionUUID->"0e911c57-92d6-4211-b513-7b06f78d0f94"]
}, Open ]],
-Cell[8583738, 162599, 2869, 47, 55, "Input",ExpressionUUID->"f961015d-b6cb-47e5-9e1a-587921f3fc25"],
Cell[CellGroupData[{
-Cell[8586632, 162650, 5473, 80, 22, "Input",ExpressionUUID->"b0341393-a02b-4e09-8998-73efab4bb17b"],
-Cell[8592108, 162732, 497, 11, 22, "Message",ExpressionUUID->"6bf66ca0-e854-42d9-a6e5-6c371f075fd1"],
-Cell[8592608, 162745, 10419, 251, 79, "Output",ExpressionUUID->"f3fcddf9-a725-4739-93f0-1701965c61c6"]
+Cell[8725094, 165199, 2704, 59, 75, "Input",ExpressionUUID->"0d0ac8b8-8b41-4baf-98d6-ab5c2fbbd568"],
+Cell[8727801, 165260, 12141, 271, 180, "Output",ExpressionUUID->"e860e315-d3af-419a-a95f-08d7aac8e9da"]
}, Open ]],
+Cell[8739957, 165534, 3491, 55, 55, "Input",ExpressionUUID->"95e7b2ca-f79f-42f7-a4d6-b9999aaaebbf"],
Cell[CellGroupData[{
-Cell[8603064, 163001, 1852, 38, 71, "Input",ExpressionUUID->"d47e2a5d-4016-4693-a6ce-5324eab8db08"],
-Cell[8604919, 163041, 17127, 315, 136, "Output",ExpressionUUID->"bff3b92b-b815-4ac0-a4e4-2c9f9d9f5abb"]
+Cell[8743473, 165593, 6511, 94, 22, "Input",ExpressionUUID->"b06f22eb-d540-4a76-85e3-72d785ad1b70"],
+Cell[8749987, 165689, 5770, 96, 42, "Output",ExpressionUUID->"46b348e3-bd8e-4c18-9375-32bbcccbec33"]
}, Open ]],
Cell[CellGroupData[{
-Cell[8622083, 163361, 482, 11, 22, "Input",ExpressionUUID->"33e14fd0-f4a2-4619-9046-e5d0a24c5515"],
-Cell[8622568, 163374, 9927, 243, 178, "Output",ExpressionUUID->"0487d3ef-3258-426a-b0d1-5b48a90b960f"]
+Cell[8755794, 165790, 1791, 35, 71, "Input",ExpressionUUID->"addaa5fb-500f-4ed8-a5f7-6fd64ad3eaa6"],
+Cell[8757588, 165827, 17336, 318, 138, "Output",ExpressionUUID->"dab5a296-dac7-42c3-83dc-f259ba6d8925"]
}, Open ]],
-Cell[8632510, 163620, 2967, 48, 55, "Input",ExpressionUUID->"fa6a2ed9-7736-4734-8d89-947640bdc4df"],
Cell[CellGroupData[{
-Cell[8635502, 163672, 5720, 84, 24, "Input",ExpressionUUID->"b6ce76a3-8eb8-4131-a4d1-f97747ad0a43"],
-Cell[8641225, 163758, 771, 15, 34, "Message",ExpressionUUID->"9726d445-7313-413a-b996-e5e5833bfc27"],
-Cell[8641999, 163775, 4257, 83, 60, "Output",ExpressionUUID->"0a3d0d0f-5572-4382-8897-9eb6a8ad8875"]
+Cell[8774961, 166150, 2079, 54, 75, "Input",ExpressionUUID->"d36b355d-67fb-4c2e-838b-03fe471dc611"],
+Cell[8777043, 166206, 16732, 375, 138, "Output",ExpressionUUID->"7b83e30f-16ba-4710-9392-892c46b5d312"]
}, Open ]],
+Cell[8793790, 166584, 3360, 53, 55, "Input",ExpressionUUID->"c82c5d89-ecae-4e05-930f-c26cc54103a7"],
Cell[CellGroupData[{
-Cell[8646293, 163863, 1796, 36, 71, "Input",ExpressionUUID->"f3aa018e-5bd8-4d90-b041-b8e238ccecf2"],
-Cell[8648092, 163901, 17264, 316, 136, "Output",ExpressionUUID->"3fa1f8ac-f980-461c-8d8c-ef235c92c093"]
+Cell[8797175, 166641, 6459, 92, 22, "Input",ExpressionUUID->"290e904f-7c29-43f1-8bd5-c9be3d1bef02"],
+Cell[8803637, 166735, 1955, 31, 46, "Message",ExpressionUUID->"54c445a3-7d1c-40ef-870f-ec5a37efb826"],
+Cell[8805595, 166768, 5268, 92, 58, "Output",ExpressionUUID->"67e4a52e-0a2c-4bbb-b96c-829e61f321c4"]
}, Open ]],
Cell[CellGroupData[{
-Cell[8665393, 164222, 874, 23, 22, "Input",ExpressionUUID->"0b2df119-bcef-4653-a833-253e2a81e50c"],
-Cell[8666270, 164247, 3739, 89, 178, "Output",ExpressionUUID->"c475e4a0-6cfe-4be2-a1e1-19e2f45f524c"]
+Cell[8810900, 166865, 1882, 39, 71, "Input",ExpressionUUID->"d5e39058-5f9e-47c6-946f-532c8ed529f6"],
+Cell[8812785, 166906, 9557, 188, 138, "Output",ExpressionUUID->"e645c593-9553-43d8-b4f5-be8c82e277ad"]
}, Open ]],
+Cell[8822357, 167097, 2869, 47, 55, "Input",ExpressionUUID->"f961015d-b6cb-47e5-9e1a-587921f3fc25"],
Cell[CellGroupData[{
-Cell[8670046, 164341, 549, 15, 22, "Input",ExpressionUUID->"1f5c6902-7eed-4c8b-8e0a-99a9b170e1ca"],
-Cell[8670598, 164358, 234, 5, 25, "Output",ExpressionUUID->"51a1aad9-05b0-462a-891d-22d8f6a6b9c1"]
+Cell[8825251, 167148, 5473, 80, 22, "Input",ExpressionUUID->"b0341393-a02b-4e09-8998-73efab4bb17b"],
+Cell[8830727, 167230, 497, 11, 22, "Message",ExpressionUUID->"6bf66ca0-e854-42d9-a6e5-6c371f075fd1"],
+Cell[8831227, 167243, 10419, 251, 79, "Output",ExpressionUUID->"f3fcddf9-a725-4739-93f0-1701965c61c6"]
}, Open ]],
Cell[CellGroupData[{
-Cell[8670869, 164368, 262, 6, 22, "Input",ExpressionUUID->"e16359b5-e4d6-4bb7-86eb-f63803ad6855"],
-Cell[8671134, 164376, 1039, 29, 51, "Output",ExpressionUUID->"5de69e48-41bd-45f3-a994-7e676e47e408"]
+Cell[8841683, 167499, 1852, 38, 71, "Input",ExpressionUUID->"d47e2a5d-4016-4693-a6ce-5324eab8db08"],
+Cell[8843538, 167539, 17127, 315, 136, "Output",ExpressionUUID->"bff3b92b-b815-4ac0-a4e4-2c9f9d9f5abb"]
}, Open ]],
Cell[CellGroupData[{
-Cell[8672210, 164410, 1085, 28, 24, "Input",ExpressionUUID->"95054690-5631-4591-bd21-220db7338a94"],
-Cell[8673298, 164440, 74312, 1240, 77, "Output",ExpressionUUID->"1831476b-e621-49f5-905a-8c35a3a8d0c4"]
+Cell[8860702, 167859, 482, 11, 22, "Input",ExpressionUUID->"33e14fd0-f4a2-4619-9046-e5d0a24c5515"],
+Cell[8861187, 167872, 9927, 243, 178, "Output",ExpressionUUID->"0487d3ef-3258-426a-b0d1-5b48a90b960f"]
}, Open ]],
+Cell[8871129, 168118, 2967, 48, 55, "Input",ExpressionUUID->"fa6a2ed9-7736-4734-8d89-947640bdc4df"],
Cell[CellGroupData[{
-Cell[8747647, 165685, 1597, 44, 40, "Input",ExpressionUUID->"342ac8ee-ab8e-4ae6-bb1c-86464af5e526"],
-Cell[8749247, 165731, 487, 11, 22, "Message",ExpressionUUID->"aa233660-6314-440b-a55e-4be02e56a457"],
-Cell[8749737, 165744, 490, 11, 22, "Message",ExpressionUUID->"8cb1e3ab-1e3f-4b77-b899-3805356aedb6"],
-Cell[8750230, 165757, 488, 11, 22, "Message",ExpressionUUID->"680d170d-a28d-4f1f-ae74-aad91fb95e48"],
-Cell[8750721, 165770, 457, 10, 22, "Message",ExpressionUUID->"58554aee-0abc-4545-9de7-f32a62d9fbde"]
+Cell[8874121, 168170, 5720, 84, 24, "Input",ExpressionUUID->"b6ce76a3-8eb8-4131-a4d1-f97747ad0a43"],
+Cell[8879844, 168256, 771, 15, 34, "Message",ExpressionUUID->"9726d445-7313-413a-b996-e5e5833bfc27"],
+Cell[8880618, 168273, 4257, 83, 60, "Output",ExpressionUUID->"0a3d0d0f-5572-4382-8897-9eb6a8ad8875"]
}, Open ]],
Cell[CellGroupData[{
-Cell[8751215, 165785, 1243, 25, 24, "Input",ExpressionUUID->"50e71e0c-5917-461a-a368-516214da0cbe"],
-Cell[8752461, 165812, 257598, 4238, 182, "Output",ExpressionUUID->"922be907-db35-4063-bac4-a9e321cb3961"]
+Cell[8884912, 168361, 1796, 36, 71, "Input",ExpressionUUID->"f3aa018e-5bd8-4d90-b041-b8e238ccecf2"],
+Cell[8886711, 168399, 17264, 316, 136, "Output",ExpressionUUID->"3fa1f8ac-f980-461c-8d8c-ef235c92c093"]
}, Open ]],
-Cell[9010074, 170053, 2861, 70, 109, "Input",ExpressionUUID->"77b309c5-73e7-45d2-91cc-18b17ef11474"],
Cell[CellGroupData[{
-Cell[9012960, 170127, 4876, 115, 126, "Input",ExpressionUUID->"4a2b2cef-4c8a-419d-af13-1402f00c00ac"],
-Cell[9017839, 170244, 372, 9, 32, "Message",ExpressionUUID->"915b4994-47ee-4f92-a180-66582fad2eee"],
-Cell[9018214, 170255, 414, 10, 22, "Message",ExpressionUUID->"d99a257a-bebb-423f-b4c7-c1daf92c9d89"],
-Cell[9018631, 170267, 374, 9, 32, "Message",ExpressionUUID->"3935845a-b829-45bb-8c68-b38f6c89200d"],
-Cell[9019008, 170278, 372, 9, 32, "Message",ExpressionUUID->"2cd99774-06cd-4554-9019-8374804b72cc"],
-Cell[9019383, 170289, 449, 10, 22, "Message",ExpressionUUID->"a63719b3-c483-4dcc-bf9d-07e3ec86a01a"],
-Cell[9019835, 170301, 412, 10, 22, "Message",ExpressionUUID->"b75c5dbc-0033-4ee6-9b1f-38ed8cbfa052"],
-Cell[9020250, 170313, 412, 10, 22, "Message",ExpressionUUID->"a8b8b506-1639-4e24-a563-d4136102a4f5"],
-Cell[9020665, 170325, 454, 10, 22, "Message",ExpressionUUID->"511b399f-cdfc-483b-8b33-e482ad95258c"]
+Cell[8904012, 168720, 874, 23, 22, "Input",ExpressionUUID->"0b2df119-bcef-4653-a833-253e2a81e50c"],
+Cell[8904889, 168745, 3739, 89, 178, "Output",ExpressionUUID->"c475e4a0-6cfe-4be2-a1e1-19e2f45f524c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[9021156, 170340, 390, 10, 22, "Input",ExpressionUUID->"ca2c6c9e-8737-4ee8-bc57-68cf26050e9d"],
-Cell[9021549, 170352, 230, 4, 305, "Output",ExpressionUUID->"fe2c0268-4ac2-4856-a458-2b2ecc705830"]
+Cell[8908665, 168839, 549, 15, 22, "Input",ExpressionUUID->"1f5c6902-7eed-4c8b-8e0a-99a9b170e1ca"],
+Cell[8909217, 168856, 234, 5, 25, "Output",ExpressionUUID->"51a1aad9-05b0-462a-891d-22d8f6a6b9c1"]
}, Open ]],
Cell[CellGroupData[{
-Cell[9021816, 170361, 2250, 58, 110, "Input",ExpressionUUID->"f06eadd6-9832-4fdb-a4a4-ddef5420835b"],
-Cell[9024069, 170421, 1066745, 23056, 352, "Output",ExpressionUUID->"1d761a77-84b9-4526-a4c5-285e258e2bbb"]
+Cell[8909488, 168866, 262, 6, 22, "Input",ExpressionUUID->"e16359b5-e4d6-4bb7-86eb-f63803ad6855"],
+Cell[8909753, 168874, 1039, 29, 51, "Output",ExpressionUUID->"5de69e48-41bd-45f3-a994-7e676e47e408"]
}, Open ]],
Cell[CellGroupData[{
-Cell[10090851, 193482, 1775, 44, 76, "Input",ExpressionUUID->"d0ec6400-bd88-4968-bb4c-932738b078cc"],
-Cell[10092629, 193528, 376, 5, 25, "Output",ExpressionUUID->"0ee29a54-e906-4ca9-a541-24486af817b5"]
+Cell[8910829, 168908, 1085, 28, 24, "Input",ExpressionUUID->"95054690-5631-4591-bd21-220db7338a94"],
+Cell[8911917, 168938, 74312, 1240, 77, "Output",ExpressionUUID->"1831476b-e621-49f5-905a-8c35a3a8d0c4"]
}, Open ]],
Cell[CellGroupData[{
-Cell[10093042, 193538, 427, 10, 24, "Input",ExpressionUUID->"3004893a-2ce3-4cf0-a994-6b9e5ec6dd27"],
-Cell[10093472, 193550, 18847, 324, 179, "Output",ExpressionUUID->"0d2866ec-70a4-4878-a33d-28a2dba484c8"]
+Cell[8986266, 170183, 1597, 44, 40, "Input",ExpressionUUID->"342ac8ee-ab8e-4ae6-bb1c-86464af5e526"],
+Cell[8987866, 170229, 487, 11, 22, "Message",ExpressionUUID->"aa233660-6314-440b-a55e-4be02e56a457"],
+Cell[8988356, 170242, 490, 11, 22, "Message",ExpressionUUID->"8cb1e3ab-1e3f-4b77-b899-3805356aedb6"],
+Cell[8988849, 170255, 488, 11, 22, "Message",ExpressionUUID->"680d170d-a28d-4f1f-ae74-aad91fb95e48"],
+Cell[8989340, 170268, 457, 10, 22, "Message",ExpressionUUID->"58554aee-0abc-4545-9de7-f32a62d9fbde"]
}, Open ]],
-Cell[10112334, 193877, 3136, 79, 109, "Input",ExpressionUUID->"5b87b5dc-8fd3-4849-af80-c87990bf73b7"],
Cell[CellGroupData[{
-Cell[10115495, 193960, 592, 13, 24, "Input",ExpressionUUID->"203e9732-0b55-4dd6-88d1-9480143c447c"],
-Cell[10116090, 193975, 5889, 112, 178, "Output",ExpressionUUID->"7a2195a3-9e80-4524-9b78-c55a14f79103"]
+Cell[8989834, 170283, 1243, 25, 24, "Input",ExpressionUUID->"50e71e0c-5917-461a-a368-516214da0cbe"],
+Cell[8991080, 170310, 257598, 4238, 182, "Output",ExpressionUUID->"922be907-db35-4063-bac4-a9e321cb3961"]
}, Open ]],
-Cell[10121994, 194090, 4130, 102, 144, "Input",ExpressionUUID->"acac5450-9d65-40ea-ad69-d3970fa2a02c"],
+Cell[9248693, 174551, 2861, 70, 109, "Input",ExpressionUUID->"77b309c5-73e7-45d2-91cc-18b17ef11474"],
Cell[CellGroupData[{
-Cell[10126149, 194196, 1495, 23, 24, "Input",ExpressionUUID->"9fc37513-3235-4c11-a880-809c13cac9b2"],
-Cell[10127647, 194221, 6141, 116, 180, "Output",ExpressionUUID->"2ae469a5-8acb-47e9-be40-ccbabeb59058"]
+Cell[9251579, 174625, 4876, 115, 126, "Input",ExpressionUUID->"4a2b2cef-4c8a-419d-af13-1402f00c00ac"],
+Cell[9256458, 174742, 372, 9, 32, "Message",ExpressionUUID->"915b4994-47ee-4f92-a180-66582fad2eee"],
+Cell[9256833, 174753, 414, 10, 22, "Message",ExpressionUUID->"d99a257a-bebb-423f-b4c7-c1daf92c9d89"],
+Cell[9257250, 174765, 374, 9, 32, "Message",ExpressionUUID->"3935845a-b829-45bb-8c68-b38f6c89200d"],
+Cell[9257627, 174776, 372, 9, 32, "Message",ExpressionUUID->"2cd99774-06cd-4554-9019-8374804b72cc"],
+Cell[9258002, 174787, 449, 10, 22, "Message",ExpressionUUID->"a63719b3-c483-4dcc-bf9d-07e3ec86a01a"],
+Cell[9258454, 174799, 412, 10, 22, "Message",ExpressionUUID->"b75c5dbc-0033-4ee6-9b1f-38ed8cbfa052"],
+Cell[9258869, 174811, 412, 10, 22, "Message",ExpressionUUID->"a8b8b506-1639-4e24-a563-d4136102a4f5"],
+Cell[9259284, 174823, 454, 10, 22, "Message",ExpressionUUID->"511b399f-cdfc-483b-8b33-e482ad95258c"]
}, Open ]],
-Cell[10133803, 194340, 2010, 35, 55, "Input",ExpressionUUID->"9b0fa418-a20d-4aa7-8c89-b5dba5303662"],
Cell[CellGroupData[{
-Cell[10135838, 194379, 4151, 62, 22, "Input",ExpressionUUID->"c30a0fd5-d5ad-42aa-a369-cd6ee9c6447b"],
-Cell[10139992, 194443, 2707, 49, 25, "Output",ExpressionUUID->"1a596d77-fa5e-419e-a1d4-eb1eacb16f94"]
+Cell[9259775, 174838, 390, 10, 22, "Input",ExpressionUUID->"ca2c6c9e-8737-4ee8-bc57-68cf26050e9d"],
+Cell[9260168, 174850, 230, 4, 305, "Output",ExpressionUUID->"fe2c0268-4ac2-4856-a458-2b2ecc705830"]
}, Open ]],
Cell[CellGroupData[{
-Cell[10142736, 194497, 1600, 34, 71, "Input",ExpressionUUID->"edefa71e-37aa-4faf-b294-4eda82e4f408"],
-Cell[10144339, 194533, 17028, 313, 136, "Output",ExpressionUUID->"87662f50-8c48-4cf2-9344-41968f5ed6c7"]
+Cell[9260435, 174859, 2250, 58, 110, "Input",ExpressionUUID->"f06eadd6-9832-4fdb-a4a4-ddef5420835b"],
+Cell[9262688, 174919, 1066745, 23056, 352, "Output",ExpressionUUID->"1d761a77-84b9-4526-a4c5-285e258e2bbb"]
}, Open ]],
-Cell[10161382, 194849, 2110, 37, 55, "Input",ExpressionUUID->"c7666df1-5f3b-4148-9996-beab66dbc9dd"],
Cell[CellGroupData[{
-Cell[10163517, 194890, 4183, 60, 22, "Input",ExpressionUUID->"bb42954c-7615-4d48-b8a6-b6cd5568c377"],
-Cell[10167703, 194952, 2082, 30, 25, "Output",ExpressionUUID->"24d6f85c-1532-4489-bdd0-8641e11ac8c8"]
+Cell[10329470, 197980, 1775, 44, 76, "Input",ExpressionUUID->"d0ec6400-bd88-4968-bb4c-932738b078cc"],
+Cell[10331248, 198026, 376, 5, 25, "Output",ExpressionUUID->"0ee29a54-e906-4ca9-a541-24486af817b5"]
}, Open ]],
Cell[CellGroupData[{
-Cell[10169822, 194987, 1650, 35, 71, "Input",ExpressionUUID->"d33a65e9-a5e1-45ac-b6fc-ad1416742945"],
-Cell[10171475, 195024, 20490, 372, 135, "Output",ExpressionUUID->"27b3abc6-4965-4474-a985-897e37937511"]
+Cell[10331661, 198036, 427, 10, 24, "Input",ExpressionUUID->"3004893a-2ce3-4cf0-a994-6b9e5ec6dd27"],
+Cell[10332091, 198048, 18847, 324, 179, "Output",ExpressionUUID->"0d2866ec-70a4-4878-a33d-28a2dba484c8"]
}, Open ]],
-Cell[10191980, 195399, 2205, 38, 55, "Input",ExpressionUUID->"37492c9c-fdc8-424c-900f-4f6b226ea5d1"],
+Cell[10350953, 198375, 3136, 79, 109, "Input",ExpressionUUID->"5b87b5dc-8fd3-4849-af80-c87990bf73b7"],
Cell[CellGroupData[{
-Cell[10194210, 195441, 6088, 119, 57, "Input",ExpressionUUID->"a01e44dc-8335-4348-b3c9-284386b4f719"],
-Cell[10200301, 195562, 3154, 60, 44, "Output",ExpressionUUID->"ca325a22-df87-4177-b749-2e32a5ed2d92"]
+Cell[10354114, 198458, 592, 13, 24, "Input",ExpressionUUID->"203e9732-0b55-4dd6-88d1-9480143c447c"],
+Cell[10354709, 198473, 5889, 112, 178, "Output",ExpressionUUID->"7a2195a3-9e80-4524-9b78-c55a14f79103"]
}, Open ]],
+Cell[10360613, 198588, 4130, 102, 144, "Input",ExpressionUUID->"acac5450-9d65-40ea-ad69-d3970fa2a02c"],
Cell[CellGroupData[{
-Cell[10203492, 195627, 1700, 36, 71, "Input",ExpressionUUID->"be317878-237a-46bf-9454-bd7d3dc03661"],
-Cell[10205195, 195665, 16873, 311, 136, "Output",ExpressionUUID->"3dc3e89f-7f82-4bdf-b906-cb5363ec7a6f"]
+Cell[10364768, 198694, 1495, 23, 24, "Input",ExpressionUUID->"9fc37513-3235-4c11-a880-809c13cac9b2"],
+Cell[10366266, 198719, 6141, 116, 180, "Output",ExpressionUUID->"2ae469a5-8acb-47e9-be40-ccbabeb59058"]
}, Open ]],
-Cell[10222083, 195979, 2257, 39, 55, "Input",ExpressionUUID->"e32582d9-3c4f-41b1-b65d-1c7772469053"],
+Cell[10372422, 198838, 2010, 35, 55, "Input",ExpressionUUID->"9b0fa418-a20d-4aa7-8c89-b5dba5303662"],
Cell[CellGroupData[{
-Cell[10224365, 196022, 6220, 122, 89, "Input",ExpressionUUID->"89a94834-b9ec-4d9d-9faa-074eaede1f11"],
-Cell[10230588, 196146, 3291, 62, 60, "Output",ExpressionUUID->"19a8003a-42bc-4acc-ad08-a8554af6baf1"]
+Cell[10374457, 198877, 4151, 62, 22, "Input",ExpressionUUID->"c30a0fd5-d5ad-42aa-a369-cd6ee9c6447b"],
+Cell[10378611, 198941, 2707, 49, 25, "Output",ExpressionUUID->"1a596d77-fa5e-419e-a1d4-eb1eacb16f94"]
}, Open ]],
Cell[CellGroupData[{
-Cell[10233916, 196213, 1746, 36, 71, "Input",ExpressionUUID->"5b4cd9b5-a3aa-4d4f-8ec5-f14c1a7ed0b5"],
-Cell[10235665, 196251, 17143, 317, 136, "Output",ExpressionUUID->"3fe2ed89-c8cc-4d94-a7f5-195d8ac3ac4a"]
+Cell[10381355, 198995, 1600, 34, 71, "Input",ExpressionUUID->"edefa71e-37aa-4faf-b294-4eda82e4f408"],
+Cell[10382958, 199031, 17028, 313, 136, "Output",ExpressionUUID->"87662f50-8c48-4cf2-9344-41968f5ed6c7"]
}, Open ]],
-Cell[10252823, 196571, 2305, 39, 55, "Input",ExpressionUUID->"763eb3e7-8600-4d94-90f4-5ee8ead3a071"],
+Cell[10400001, 199347, 2110, 37, 55, "Input",ExpressionUUID->"c7666df1-5f3b-4148-9996-beab66dbc9dd"],
Cell[CellGroupData[{
-Cell[10255153, 196614, 6753, 136, 57, "Input",ExpressionUUID->"61bb5a86-d6b7-47ad-902e-5e23a22e1050"],
-Cell[10261909, 196752, 3674, 69, 44, "Output",ExpressionUUID->"d40e5455-682b-42db-b67d-22a81cadebff"]
+Cell[10402136, 199388, 4183, 60, 22, "Input",ExpressionUUID->"bb42954c-7615-4d48-b8a6-b6cd5568c377"],
+Cell[10406322, 199450, 2082, 30, 25, "Output",ExpressionUUID->"24d6f85c-1532-4489-bdd0-8641e11ac8c8"]
}, Open ]],
Cell[CellGroupData[{
-Cell[10265620, 196826, 1798, 37, 71, "Input",ExpressionUUID->"b0a5f1c3-1834-4563-8f55-b2fd455cc030"],
-Cell[10267421, 196865, 17131, 315, 134, "Output",ExpressionUUID->"4af346e8-d59b-4e37-bda6-b3caf8145423"]
+Cell[10408441, 199485, 1650, 35, 71, "Input",ExpressionUUID->"d33a65e9-a5e1-45ac-b6fc-ad1416742945"],
+Cell[10410094, 199522, 20490, 372, 135, "Output",ExpressionUUID->"27b3abc6-4965-4474-a985-897e37937511"]
}, Open ]],
-Cell[10284567, 197183, 2356, 40, 55, "Input",ExpressionUUID->"32cf5f09-fdfe-4f85-859e-082560961a3b"],
+Cell[10430599, 199897, 2205, 38, 55, "Input",ExpressionUUID->"37492c9c-fdc8-424c-900f-4f6b226ea5d1"],
Cell[CellGroupData[{
-Cell[10286948, 197227, 6967, 140, 73, "Input",ExpressionUUID->"b3abad78-eb14-4b72-9257-b29e604a034e"],
-Cell[10293918, 197369, 3893, 74, 42, "Output",ExpressionUUID->"d08a3f1e-e8ce-469d-93a6-13790df5f647"]
+Cell[10432829, 199939, 6088, 119, 57, "Input",ExpressionUUID->"a01e44dc-8335-4348-b3c9-284386b4f719"],
+Cell[10438920, 200060, 3154, 60, 44, "Output",ExpressionUUID->"ca325a22-df87-4177-b749-2e32a5ed2d92"]
}, Open ]],
Cell[CellGroupData[{
-Cell[10297848, 197448, 1848, 38, 71, "Input",ExpressionUUID->"9bdd6d37-c128-49d2-8231-61ba0bf29e27"],
-Cell[10299699, 197488, 17640, 324, 136, "Output",ExpressionUUID->"3c0bbd34-df7f-497d-98f0-83c9941773c0"]
+Cell[10442111, 200125, 1700, 36, 71, "Input",ExpressionUUID->"be317878-237a-46bf-9454-bd7d3dc03661"],
+Cell[10443814, 200163, 16873, 311, 136, "Output",ExpressionUUID->"3dc3e89f-7f82-4bdf-b906-cb5363ec7a6f"]
}, Open ]],
-Cell[10317354, 197815, 2409, 41, 55, "Input",ExpressionUUID->"41b7e318-b250-4913-9bf4-dc8f575f89d6"],
+Cell[10460702, 200477, 2257, 39, 55, "Input",ExpressionUUID->"e32582d9-3c4f-41b1-b65d-1c7772469053"],
Cell[CellGroupData[{
-Cell[10319788, 197860, 7710, 160, 89, "Input",ExpressionUUID->"754d0dae-41d6-4fe7-a34b-3e55515f1c0f"],
-Cell[10327501, 198022, 2581, 37, 25, "Output",ExpressionUUID->"fe11dd49-a075-412f-a45c-8cc7e594253a"]
+Cell[10462984, 200520, 6220, 122, 89, "Input",ExpressionUUID->"89a94834-b9ec-4d9d-9faa-074eaede1f11"],
+Cell[10469207, 200644, 3291, 62, 60, "Output",ExpressionUUID->"19a8003a-42bc-4acc-ad08-a8554af6baf1"]
}, Open ]],
Cell[CellGroupData[{
-Cell[10330119, 198064, 1894, 38, 71, "Input",ExpressionUUID->"0e5750ef-e3c4-4d6e-a552-337865ce26de"],
-Cell[10332016, 198104, 16747, 309, 133, "Output",ExpressionUUID->"73a826f3-22a2-40cb-95d3-1f9458eadd3d"]
+Cell[10472535, 200711, 1746, 36, 71, "Input",ExpressionUUID->"5b4cd9b5-a3aa-4d4f-8ec5-f14c1a7ed0b5"],
+Cell[10474284, 200749, 17143, 317, 136, "Output",ExpressionUUID->"3fe2ed89-c8cc-4d94-a7f5-195d8ac3ac4a"]
}, Open ]],
+Cell[10491442, 201069, 2305, 39, 55, "Input",ExpressionUUID->"763eb3e7-8600-4d94-90f4-5ee8ead3a071"],
Cell[CellGroupData[{
-Cell[10348800, 198418, 433, 11, 22, "Input",ExpressionUUID->"a751ee9f-7f1b-4bac-9b8f-116516f29237"],
-Cell[10349236, 198431, 6817, 169, 177, "Output",ExpressionUUID->"3c6b3bb9-4166-4574-b540-09542af6444d"]
+Cell[10493772, 201112, 6753, 136, 57, "Input",ExpressionUUID->"61bb5a86-d6b7-47ad-902e-5e23a22e1050"],
+Cell[10500528, 201250, 3674, 69, 44, "Output",ExpressionUUID->"d40e5455-682b-42db-b67d-22a81cadebff"]
}, Open ]],
Cell[CellGroupData[{
-Cell[10356090, 198605, 1672, 45, 40, "Input",ExpressionUUID->"466fb3e5-7c30-4e69-ab69-9b9abb0e6655"],
-Cell[10357765, 198652, 511, 11, 22, "Message",ExpressionUUID->"c2ae911f-2b34-4698-81ef-7ff60f5135c9"],
-Cell[10358279, 198665, 511, 11, 22, "Message",ExpressionUUID->"bd92affc-3500-4c70-b21e-522e5605c0cc"],
-Cell[10358793, 198678, 513, 11, 22, "Message",ExpressionUUID->"e4db63c1-fe8b-4c9f-a20c-8eccef2fe15e"],
-Cell[10359309, 198691, 478, 10, 22, "Message",ExpressionUUID->"acadf45f-b774-47d6-a411-ad0503385514"]
+Cell[10504239, 201324, 1798, 37, 71, "Input",ExpressionUUID->"b0a5f1c3-1834-4563-8f55-b2fd455cc030"],
+Cell[10506040, 201363, 17131, 315, 134, "Output",ExpressionUUID->"4af346e8-d59b-4e37-bda6-b3caf8145423"]
}, Open ]],
-Cell[10359802, 198704, 3187, 80, 75, "Input",ExpressionUUID->"75d12380-288b-4d28-aa86-112d4ec76eb8"],
-Cell[10362992, 198786, 4180, 103, 109, "Input",ExpressionUUID->"91d2f74e-4447-4d9e-8bf4-e977c2d420af"],
-Cell[10367175, 198891, 5400, 131, 126, "Input",ExpressionUUID->"15bbd114-9190-4203-9d85-d247d7dafa0f"],
+Cell[10523186, 201681, 2356, 40, 55, "Input",ExpressionUUID->"32cf5f09-fdfe-4f85-859e-082560961a3b"],
Cell[CellGroupData[{
-Cell[10372600, 199026, 1359, 27, 24, "Input",ExpressionUUID->"5698809b-576b-4415-9e17-c9d1fd3f1b20"],
-Cell[10373962, 199055, 488773, 8032, 182, "Output",ExpressionUUID->"dcdf6bb3-cd02-43e9-8aaf-0b5548c0b776"]
+Cell[10525567, 201725, 6967, 140, 73, "Input",ExpressionUUID->"b3abad78-eb14-4b72-9257-b29e604a034e"],
+Cell[10532537, 201867, 3893, 74, 42, "Output",ExpressionUUID->"d08a3f1e-e8ce-469d-93a6-13790df5f647"]
}, Open ]],
Cell[CellGroupData[{
-Cell[10862772, 207092, 663, 15, 24, "Input",ExpressionUUID->"e5dc6cef-c7da-4c5c-b1b3-5958a73dff68"],
-Cell[10863438, 207109, 10088, 182, 178, "Output",ExpressionUUID->"da66f9af-cb95-4a55-bc5e-665e343cce5f"]
+Cell[10536467, 201946, 1848, 38, 71, "Input",ExpressionUUID->"9bdd6d37-c128-49d2-8231-61ba0bf29e27"],
+Cell[10538318, 201986, 17640, 324, 136, "Output",ExpressionUUID->"3c0bbd34-df7f-497d-98f0-83c9941773c0"]
}, Open ]],
+Cell[10555973, 202313, 2409, 41, 55, "Input",ExpressionUUID->"41b7e318-b250-4913-9bf4-dc8f575f89d6"],
Cell[CellGroupData[{
-Cell[10873563, 207296, 1607, 25, 24, "Input",ExpressionUUID->"97b063b0-fff1-4a77-b8b5-e6f7d7bf7fda"],
-Cell[10875173, 207323, 27041, 593, 179, "Output",ExpressionUUID->"c5680ebf-9d15-4756-9a19-5161fa77024b"]
+Cell[10558407, 202358, 7710, 160, 89, "Input",ExpressionUUID->"754d0dae-41d6-4fe7-a34b-3e55515f1c0f"],
+Cell[10566120, 202520, 2581, 37, 25, "Output",ExpressionUUID->"fe11dd49-a075-412f-a45c-8cc7e594253a"]
}, Open ]],
-Cell[10902229, 207919, 1994, 35, 55, "Input",ExpressionUUID->"3352b86d-ac70-40d3-a19b-895c1c5fe6d8"],
Cell[CellGroupData[{
-Cell[10904248, 207958, 6104, 123, 57, "Input",ExpressionUUID->"94b9b1f6-85e2-4843-a9d8-679bdd8d8b88"],
-Cell[10910355, 208083, 599, 12, 34, "Message",ExpressionUUID->"673c9022-c297-4aa3-a749-547a828f38e9"],
-Cell[10910957, 208097, 3201, 61, 44, "Output",ExpressionUUID->"5581ab30-cffe-4c36-b481-f61b82d926bc"]
+Cell[10568738, 202562, 1894, 38, 71, "Input",ExpressionUUID->"0e5750ef-e3c4-4d6e-a552-337865ce26de"],
+Cell[10570635, 202602, 16747, 309, 133, "Output",ExpressionUUID->"73a826f3-22a2-40cb-95d3-1f9458eadd3d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[10914195, 208163, 1705, 36, 71, "Input",ExpressionUUID->"6f92c7f6-5d7f-4262-b770-14500227175d"],
-Cell[10915903, 208201, 18192, 331, 135, "Output",ExpressionUUID->"d1bcb00b-21e5-4fa8-a552-97f25576ffeb"]
+Cell[10587419, 202916, 433, 11, 22, "Input",ExpressionUUID->"a751ee9f-7f1b-4bac-9b8f-116516f29237"],
+Cell[10587855, 202929, 6817, 169, 177, "Output",ExpressionUUID->"3c6b3bb9-4166-4574-b540-09542af6444d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[10934132, 208537, 336, 9, 22, "Input",ExpressionUUID->"0c892a44-6116-420f-9ded-8cd96dc39533"],
-Cell[10934471, 208548, 5691, 143, 177, "Output",ExpressionUUID->"50d17dc4-fcf7-4f9a-be8d-771fadea7de8"]
+Cell[10594709, 203103, 1672, 45, 40, "Input",ExpressionUUID->"466fb3e5-7c30-4e69-ab69-9b9abb0e6655"],
+Cell[10596384, 203150, 511, 11, 22, "Message",ExpressionUUID->"c2ae911f-2b34-4698-81ef-7ff60f5135c9"],
+Cell[10596898, 203163, 511, 11, 22, "Message",ExpressionUUID->"bd92affc-3500-4c70-b21e-522e5605c0cc"],
+Cell[10597412, 203176, 513, 11, 22, "Message",ExpressionUUID->"e4db63c1-fe8b-4c9f-a20c-8eccef2fe15e"],
+Cell[10597928, 203189, 478, 10, 22, "Message",ExpressionUUID->"acadf45f-b774-47d6-a411-ad0503385514"]
}, Open ]],
-Cell[10940177, 208694, 2089, 36, 55, "Input",ExpressionUUID->"49c65f18-d801-4202-9b7e-030545c44001"],
+Cell[10598421, 203202, 3187, 80, 75, "Input",ExpressionUUID->"75d12380-288b-4d28-aa86-112d4ec76eb8"],
+Cell[10601611, 203284, 4180, 103, 109, "Input",ExpressionUUID->"91d2f74e-4447-4d9e-8bf4-e977c2d420af"],
+Cell[10605794, 203389, 5400, 131, 126, "Input",ExpressionUUID->"15bbd114-9190-4203-9d85-d247d7dafa0f"],
Cell[CellGroupData[{
-Cell[10942291, 208734, 6598, 135, 57, "Input",ExpressionUUID->"f7caa11e-a8fb-4fd5-9df6-77dddbbe7fa3"],
-Cell[10948892, 208871, 3462, 68, 44, "Output",ExpressionUUID->"186645c8-161c-4b02-91d1-d08c0c7394ec"]
+Cell[10611219, 203524, 1359, 27, 24, "Input",ExpressionUUID->"5698809b-576b-4415-9e17-c9d1fd3f1b20"],
+Cell[10612581, 203553, 488773, 8032, 182, "Output",ExpressionUUID->"dcdf6bb3-cd02-43e9-8aaf-0b5548c0b776"]
}, Open ]],
Cell[CellGroupData[{
-Cell[10952391, 208944, 1755, 37, 71, "Input",ExpressionUUID->"8413d5d7-a7d4-4102-a4aa-bbe61ec52060"],
-Cell[10954149, 208983, 17980, 327, 135, "Output",ExpressionUUID->"1261c1da-b31d-414a-aa38-309b1bdc034d"]
+Cell[11101391, 211590, 663, 15, 24, "Input",ExpressionUUID->"e5dc6cef-c7da-4c5c-b1b3-5958a73dff68"],
+Cell[11102057, 211607, 10088, 182, 178, "Output",ExpressionUUID->"da66f9af-cb95-4a55-bc5e-665e343cce5f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[10972166, 209315, 384, 10, 22, "Input",ExpressionUUID->"d9da5dd4-b3e8-4b89-ab68-f3b17bb41d94"],
-Cell[10972553, 209327, 5952, 149, 177, "Output",ExpressionUUID->"26c77855-b645-4841-b352-353e0fbbcd68"]
+Cell[11112182, 211794, 1607, 25, 24, "Input",ExpressionUUID->"97b063b0-fff1-4a77-b8b5-e6f7d7bf7fda"],
+Cell[11113792, 211821, 27041, 593, 179, "Output",ExpressionUUID->"c5680ebf-9d15-4756-9a19-5161fa77024b"]
}, Open ]],
-Cell[10978520, 209479, 2143, 37, 55, "Input",ExpressionUUID->"b57651c2-973f-4f6d-8d27-8f8761eae5f6"],
+Cell[11140848, 212417, 1994, 35, 55, "Input",ExpressionUUID->"3352b86d-ac70-40d3-a19b-895c1c5fe6d8"],
Cell[CellGroupData[{
-Cell[10980688, 209520, 7704, 168, 73, "Input",ExpressionUUID->"d1d2a2ac-7888-47a6-ae1e-f5afe89147fe"],
-Cell[10988395, 209690, 3873, 76, 60, "Output",ExpressionUUID->"2894869b-55b8-40b2-b95d-f8a0437cfed3"]
+Cell[11142867, 212456, 6104, 123, 57, "Input",ExpressionUUID->"94b9b1f6-85e2-4843-a9d8-679bdd8d8b88"],
+Cell[11148974, 212581, 599, 12, 34, "Message",ExpressionUUID->"673c9022-c297-4aa3-a749-547a828f38e9"],
+Cell[11149576, 212595, 3201, 61, 44, "Output",ExpressionUUID->"5581ab30-cffe-4c36-b481-f61b82d926bc"]
}, Open ]],
Cell[CellGroupData[{
-Cell[10992305, 209771, 1805, 38, 71, "Input",ExpressionUUID->"d19a39cf-f7b9-446f-b122-73ac686a913c"],
-Cell[10994113, 209811, 17885, 326, 136, "Output",ExpressionUUID->"a2f46624-d98b-4db4-887c-285e4488e3ac"]
+Cell[11152814, 212661, 1705, 36, 71, "Input",ExpressionUUID->"6f92c7f6-5d7f-4262-b770-14500227175d"],
+Cell[11154522, 212699, 18192, 331, 135, "Output",ExpressionUUID->"d1bcb00b-21e5-4fa8-a552-97f25576ffeb"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11012035, 210142, 434, 11, 22, "Input",ExpressionUUID->"74c7ab72-e56a-4ab4-9458-1709744d5476"],
-Cell[11012472, 210155, 5661, 140, 180, "Output",ExpressionUUID->"c18dede1-aa8a-4d4a-895a-e16c0f4cd656"]
+Cell[11172751, 213035, 336, 9, 22, "Input",ExpressionUUID->"0c892a44-6116-420f-9ded-8cd96dc39533"],
+Cell[11173090, 213046, 5691, 143, 177, "Output",ExpressionUUID->"50d17dc4-fcf7-4f9a-be8d-771fadea7de8"]
}, Open ]],
-Cell[11018148, 210298, 2143, 37, 55, "Input",ExpressionUUID->"bcf18ffc-8e3e-4ebe-b54e-01b6c9bf1c80"],
+Cell[11178796, 213192, 2089, 36, 55, "Input",ExpressionUUID->"49c65f18-d801-4202-9b7e-030545c44001"],
Cell[CellGroupData[{
-Cell[11020316, 210339, 7833, 169, 89, "Input",ExpressionUUID->"3e2ebc4f-da30-4e5c-819e-baa9fe622007"],
-Cell[11028152, 210510, 2018, 33, 37, "Message",ExpressionUUID->"93949eb9-5b0f-4194-989e-3a104461c586"],
-Cell[11030173, 210545, 4286, 85, 60, "Output",ExpressionUUID->"1e0e292a-5086-42be-af0d-cbff0c8da303"]
+Cell[11180910, 213232, 6598, 135, 57, "Input",ExpressionUUID->"f7caa11e-a8fb-4fd5-9df6-77dddbbe7fa3"],
+Cell[11187511, 213369, 3462, 68, 44, "Output",ExpressionUUID->"186645c8-161c-4b02-91d1-d08c0c7394ec"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11034496, 210635, 1853, 38, 71, "Input",ExpressionUUID->"16d0314f-eff0-4aa1-83ea-df87647b5853"],
-Cell[11036352, 210675, 17826, 324, 138, "Output",ExpressionUUID->"c58f5da6-f417-4360-9296-5aababfc8601"]
+Cell[11191010, 213442, 1755, 37, 71, "Input",ExpressionUUID->"8413d5d7-a7d4-4102-a4aa-bbe61ec52060"],
+Cell[11192768, 213481, 17980, 327, 135, "Output",ExpressionUUID->"1261c1da-b31d-414a-aa38-309b1bdc034d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11054215, 211004, 480, 11, 22, "Input",ExpressionUUID->"faf026bd-f9dd-4e27-9b97-8d9366a3f0fd"],
-Cell[11054698, 211017, 7596, 187, 177, "Output",ExpressionUUID->"81535f12-c8a1-434a-ba4b-26c9a1782598"]
+Cell[11210785, 213813, 384, 10, 22, "Input",ExpressionUUID->"d9da5dd4-b3e8-4b89-ab68-f3b17bb41d94"],
+Cell[11211172, 213825, 5952, 149, 177, "Output",ExpressionUUID->"26c77855-b645-4841-b352-353e0fbbcd68"]
+}, Open ]],
+Cell[11217139, 213977, 2143, 37, 55, "Input",ExpressionUUID->"b57651c2-973f-4f6d-8d27-8f8761eae5f6"],
+Cell[CellGroupData[{
+Cell[11219307, 214018, 7704, 168, 73, "Input",ExpressionUUID->"d1d2a2ac-7888-47a6-ae1e-f5afe89147fe"],
+Cell[11227014, 214188, 3873, 76, 60, "Output",ExpressionUUID->"2894869b-55b8-40b2-b95d-f8a0437cfed3"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[11230924, 214269, 1805, 38, 71, "Input",ExpressionUUID->"d19a39cf-f7b9-446f-b122-73ac686a913c"],
+Cell[11232732, 214309, 17885, 326, 136, "Output",ExpressionUUID->"a2f46624-d98b-4db4-887c-285e4488e3ac"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[11250654, 214640, 434, 11, 22, "Input",ExpressionUUID->"74c7ab72-e56a-4ab4-9458-1709744d5476"],
+Cell[11251091, 214653, 5661, 140, 180, "Output",ExpressionUUID->"c18dede1-aa8a-4d4a-895a-e16c0f4cd656"]
+}, Open ]],
+Cell[11256767, 214796, 2143, 37, 55, "Input",ExpressionUUID->"bcf18ffc-8e3e-4ebe-b54e-01b6c9bf1c80"],
+Cell[CellGroupData[{
+Cell[11258935, 214837, 7833, 169, 89, "Input",ExpressionUUID->"3e2ebc4f-da30-4e5c-819e-baa9fe622007"],
+Cell[11266771, 215008, 2018, 33, 37, "Message",ExpressionUUID->"93949eb9-5b0f-4194-989e-3a104461c586"],
+Cell[11268792, 215043, 4286, 85, 60, "Output",ExpressionUUID->"1e0e292a-5086-42be-af0d-cbff0c8da303"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[11273115, 215133, 1853, 38, 71, "Input",ExpressionUUID->"16d0314f-eff0-4aa1-83ea-df87647b5853"],
+Cell[11274971, 215173, 17826, 324, 138, "Output",ExpressionUUID->"c58f5da6-f417-4360-9296-5aababfc8601"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[11292834, 215502, 480, 11, 22, "Input",ExpressionUUID->"faf026bd-f9dd-4e27-9b97-8d9366a3f0fd"],
+Cell[11293317, 215515, 7596, 187, 177, "Output",ExpressionUUID->"81535f12-c8a1-434a-ba4b-26c9a1782598"]
}, Open ]]
-}, Closed]],
+}, Open ]],
Cell[CellGroupData[{
-Cell[11062343, 211210, 445, 12, 40, "Section",ExpressionUUID->"73b64eac-273b-425b-a331-b6933d676fd6"],
-Cell[11062791, 211224, 305, 6, 22, "Input",ExpressionUUID->"d13597be-e72d-4cdb-af3a-f0b94a3f0970"],
-Cell[11063099, 211232, 7635, 114, 71, "Input",ExpressionUUID->"3b10129f-a36e-4d1b-a00b-514cb8ac50ff"],
+Cell[11300962, 215708, 445, 12, 40, "Section",ExpressionUUID->"73b64eac-273b-425b-a331-b6933d676fd6"],
+Cell[11301410, 215722, 305, 6, 22, "Input",ExpressionUUID->"d13597be-e72d-4cdb-af3a-f0b94a3f0970"],
+Cell[11301718, 215730, 7635, 114, 71, "Input",ExpressionUUID->"3b10129f-a36e-4d1b-a00b-514cb8ac50ff"],
Cell[CellGroupData[{
-Cell[11070759, 211350, 9493, 140, 22, "Input",ExpressionUUID->"118d3658-5348-469a-b2ad-f44c69555e8b"],
-Cell[11080255, 211492, 1339, 27, 25, "Output",ExpressionUUID->"40b71c15-7178-4e1d-baaf-3055b8b52605"]
+Cell[11309378, 215848, 9493, 140, 22, "Input",ExpressionUUID->"118d3658-5348-469a-b2ad-f44c69555e8b"],
+Cell[11318874, 215990, 1339, 27, 25, "Output",ExpressionUUID->"40b71c15-7178-4e1d-baaf-3055b8b52605"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11081631, 211524, 1515, 34, 75, "Input",ExpressionUUID->"02d17a86-04cc-4922-b242-dcd51a9d65f8"],
-Cell[11083149, 211560, 11554, 253, 174, "Output",ExpressionUUID->"3d6f89b5-91ac-4aa4-97da-a23913d31784"]
+Cell[11320250, 216022, 1515, 34, 75, "Input",ExpressionUUID->"02d17a86-04cc-4922-b242-dcd51a9d65f8"],
+Cell[11321768, 216058, 11554, 253, 174, "Output",ExpressionUUID->"3d6f89b5-91ac-4aa4-97da-a23913d31784"]
}, Open ]],
-Cell[11094718, 211816, 6119, 93, 71, "Input",ExpressionUUID->"2c311680-125d-4d73-90ca-4a60c38bf322"],
+Cell[11333337, 216314, 6119, 93, 71, "Input",ExpressionUUID->"2c311680-125d-4d73-90ca-4a60c38bf322"],
Cell[CellGroupData[{
-Cell[11100862, 211913, 664, 17, 24, "Input",ExpressionUUID->"9e6a1d24-f014-4fe9-be77-974a12fca0fe"],
-Cell[11101529, 211932, 1175, 29, 25, "Output",ExpressionUUID->"407ae6df-d854-46fa-89cb-b3f036f64b60"]
+Cell[11339481, 216411, 664, 17, 24, "Input",ExpressionUUID->"9e6a1d24-f014-4fe9-be77-974a12fca0fe"],
+Cell[11340148, 216430, 1175, 29, 25, "Output",ExpressionUUID->"407ae6df-d854-46fa-89cb-b3f036f64b60"]
}, Open ]],
-Cell[11102719, 211964, 6058, 92, 71, "Input",ExpressionUUID->"e2ac1b79-09f2-4e0b-a239-d0a4c4da0244"],
+Cell[11341338, 216462, 6058, 92, 71, "Input",ExpressionUUID->"e2ac1b79-09f2-4e0b-a239-d0a4c4da0244"],
Cell[CellGroupData[{
-Cell[11108802, 212060, 9244, 133, 24, "Input",ExpressionUUID->"70b9bc85-93e5-4826-92fb-571d71a8eda2"],
-Cell[11118049, 212195, 1773, 40, 25, "Output",ExpressionUUID->"d529a14b-b9bc-40e2-a38b-0a93a86f22cb"]
+Cell[11347421, 216558, 9244, 133, 24, "Input",ExpressionUUID->"70b9bc85-93e5-4826-92fb-571d71a8eda2"],
+Cell[11356668, 216693, 1773, 40, 25, "Output",ExpressionUUID->"d529a14b-b9bc-40e2-a38b-0a93a86f22cb"]
}, Open ]],
-Cell[11119837, 212238, 6013, 92, 71, "Input",ExpressionUUID->"c2982a71-bee2-402b-b711-14ff0e1d975b"],
+Cell[11358456, 216736, 6013, 92, 71, "Input",ExpressionUUID->"c2982a71-bee2-402b-b711-14ff0e1d975b"],
Cell[CellGroupData[{
-Cell[11125875, 212334, 9248, 133, 24, "Input",ExpressionUUID->"eb3b6f46-8f1b-499b-bd37-73dd9dbe3965"],
-Cell[11135126, 212469, 1878, 44, 25, "Output",ExpressionUUID->"b19a8bbc-696f-478f-8efd-17e3a701f03a"]
+Cell[11364494, 216832, 9248, 133, 24, "Input",ExpressionUUID->"eb3b6f46-8f1b-499b-bd37-73dd9dbe3965"],
+Cell[11373745, 216967, 1878, 44, 25, "Output",ExpressionUUID->"b19a8bbc-696f-478f-8efd-17e3a701f03a"]
}, Open ]],
-Cell[11137019, 212516, 6011, 92, 71, "Input",ExpressionUUID->"ec1f346b-e3d6-4aed-81a9-433cc61075e2"],
+Cell[11375638, 217014, 6011, 92, 71, "Input",ExpressionUUID->"ec1f346b-e3d6-4aed-81a9-433cc61075e2"],
Cell[CellGroupData[{
-Cell[11143055, 212612, 9510, 135, 24, "Input",ExpressionUUID->"ce1f7cd1-187a-4bdb-9abb-22e60d05d220"],
-Cell[11152568, 212749, 402, 7, 25, "Output",ExpressionUUID->"ad028f9e-9c96-442a-bc9c-8c249d83de0c"]
+Cell[11381674, 217110, 9510, 135, 24, "Input",ExpressionUUID->"ce1f7cd1-187a-4bdb-9abb-22e60d05d220"],
+Cell[11391187, 217247, 402, 7, 25, "Output",ExpressionUUID->"ad028f9e-9c96-442a-bc9c-8c249d83de0c"]
}, Open ]],
-Cell[11152985, 212759, 6461, 98, 71, "Input",ExpressionUUID->"f8ba24d7-b465-4f57-b8b9-3eddeb7d14a3"],
+Cell[11391604, 217257, 6461, 98, 71, "Input",ExpressionUUID->"f8ba24d7-b465-4f57-b8b9-3eddeb7d14a3"],
Cell[CellGroupData[{
-Cell[11159471, 212861, 9912, 141, 24, "Input",ExpressionUUID->"b4a6df9a-91a8-4635-862f-4bd555c155f7"],
-Cell[11169386, 213004, 2054, 48, 27, "Output",ExpressionUUID->"30b13007-d27d-4650-84b7-1972dd40c547"]
+Cell[11398090, 217359, 9912, 141, 24, "Input",ExpressionUUID->"b4a6df9a-91a8-4635-862f-4bd555c155f7"],
+Cell[11408005, 217502, 2054, 48, 27, "Output",ExpressionUUID->"30b13007-d27d-4650-84b7-1972dd40c547"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11171477, 213057, 3054, 99, 141, "Input",ExpressionUUID->"abfcd87a-ebce-468a-8f85-c110a9865cea"],
-Cell[11174534, 213158, 460, 10, 22, "Message",ExpressionUUID->"3860ae9c-b3e1-4baa-bf1a-838d8ea7b786"]
+Cell[11410096, 217555, 3054, 99, 141, "Input",ExpressionUUID->"abfcd87a-ebce-468a-8f85-c110a9865cea"],
+Cell[11413153, 217656, 460, 10, 22, "Message",ExpressionUUID->"3860ae9c-b3e1-4baa-bf1a-838d8ea7b786"]
}, Open ]],
-Cell[11175009, 213171, 1008, 27, 22, "Input",ExpressionUUID->"7892ffd7-9d9b-4c1c-8261-52d8988354c2"],
+Cell[11413628, 217669, 1008, 27, 22, "Input",ExpressionUUID->"7892ffd7-9d9b-4c1c-8261-52d8988354c2"],
Cell[CellGroupData[{
-Cell[11176042, 213202, 496, 12, 24, "Input",ExpressionUUID->"55e0fbbd-2ed9-4115-aa6a-046aad10a4ce"],
-Cell[11176541, 213216, 460, 10, 22, "Message",ExpressionUUID->"02b1987e-bc05-4ab0-846f-f66898511e03"],
-Cell[11177004, 213228, 459, 10, 22, "Message",ExpressionUUID->"f92d67b7-53eb-418f-9117-85a81f2c7e69"],
-Cell[11177466, 213240, 459, 10, 22, "Message",ExpressionUUID->"de504e26-62e8-4a6b-81e9-23f16b282fc2"],
-Cell[11177928, 213252, 456, 10, 22, "Message",ExpressionUUID->"35bee074-7096-46be-9a36-d8f290cd7eee"],
-Cell[11178387, 213264, 10470, 254, 171, "Output",ExpressionUUID->"8edb77b6-128b-4499-b103-824312343bc9"]
+Cell[11414661, 217700, 496, 12, 24, "Input",ExpressionUUID->"55e0fbbd-2ed9-4115-aa6a-046aad10a4ce"],
+Cell[11415160, 217714, 460, 10, 22, "Message",ExpressionUUID->"02b1987e-bc05-4ab0-846f-f66898511e03"],
+Cell[11415623, 217726, 459, 10, 22, "Message",ExpressionUUID->"f92d67b7-53eb-418f-9117-85a81f2c7e69"],
+Cell[11416085, 217738, 459, 10, 22, "Message",ExpressionUUID->"de504e26-62e8-4a6b-81e9-23f16b282fc2"],
+Cell[11416547, 217750, 456, 10, 22, "Message",ExpressionUUID->"35bee074-7096-46be-9a36-d8f290cd7eee"],
+Cell[11417006, 217762, 10470, 254, 171, "Output",ExpressionUUID->"8edb77b6-128b-4499-b103-824312343bc9"]
}, Open ]],
-Cell[11188872, 213521, 6112, 93, 71, "Input",ExpressionUUID->"4007a06a-c36d-4267-9da4-5dd7578af24b"],
+Cell[11427491, 218019, 6112, 93, 71, "Input",ExpressionUUID->"4007a06a-c36d-4267-9da4-5dd7578af24b"],
Cell[CellGroupData[{
-Cell[11195009, 213618, 9960, 142, 24, "Input",ExpressionUUID->"bcd862ca-0c6d-49dc-b7f7-a4af1c0fddbd"],
-Cell[11204972, 213762, 354, 6, 25, "Output",ExpressionUUID->"19b6efb2-e456-4795-9a84-adaa7f819548"]
+Cell[11433628, 218116, 9960, 142, 24, "Input",ExpressionUUID->"bcd862ca-0c6d-49dc-b7f7-a4af1c0fddbd"],
+Cell[11443591, 218260, 354, 6, 25, "Output",ExpressionUUID->"19b6efb2-e456-4795-9a84-adaa7f819548"]
}, Open ]],
-Cell[11205341, 213771, 6655, 99, 71, "Input",ExpressionUUID->"41a6091e-cd4b-4760-9253-8fab045b5cfc"],
+Cell[11443960, 218269, 6655, 99, 71, "Input",ExpressionUUID->"41a6091e-cd4b-4760-9253-8fab045b5cfc"],
Cell[CellGroupData[{
-Cell[11212021, 213874, 9906, 140, 24, "Input",ExpressionUUID->"435c2ff9-fab3-4eb0-b11d-2fea08568b69"],
-Cell[11221930, 214016, 2252, 55, 44, "Output",ExpressionUUID->"5c25400b-27ea-497f-9cd2-a931bb65700c"]
+Cell[11450640, 218372, 9906, 140, 24, "Input",ExpressionUUID->"435c2ff9-fab3-4eb0-b11d-2fea08568b69"],
+Cell[11460549, 218514, 2252, 55, 44, "Output",ExpressionUUID->"5c25400b-27ea-497f-9cd2-a931bb65700c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11224219, 214076, 526, 14, 22, "Input",ExpressionUUID->"358e8df2-4ab8-49e0-a232-9b2b7df3ab47"],
-Cell[11224748, 214092, 720, 14, 25, "Output",ExpressionUUID->"ef8a8bd3-9852-4e8d-963d-b79c1302cb41"]
+Cell[11462838, 218574, 526, 14, 22, "Input",ExpressionUUID->"358e8df2-4ab8-49e0-a232-9b2b7df3ab47"],
+Cell[11463367, 218590, 720, 14, 25, "Output",ExpressionUUID->"ef8a8bd3-9852-4e8d-963d-b79c1302cb41"]
}, Open ]],
-Cell[11225483, 214109, 7687, 113, 71, "Input",ExpressionUUID->"2dad3995-6cc5-43e6-92ea-11c5390dee3c"],
+Cell[11464102, 218607, 7687, 113, 71, "Input",ExpressionUUID->"2dad3995-6cc5-43e6-92ea-11c5390dee3c"],
Cell[CellGroupData[{
-Cell[11233195, 214226, 10180, 145, 24, "Input",ExpressionUUID->"4f0d3f8a-22a1-4de9-aeb5-6a358639a71d"],
-Cell[11243378, 214373, 3081, 72, 44, "Output",ExpressionUUID->"be6fbb63-6068-40a7-ab80-da6b36baec73"]
+Cell[11471814, 218724, 10180, 145, 24, "Input",ExpressionUUID->"4f0d3f8a-22a1-4de9-aeb5-6a358639a71d"],
+Cell[11481997, 218871, 3081, 72, 44, "Output",ExpressionUUID->"be6fbb63-6068-40a7-ab80-da6b36baec73"]
}, Open ]],
-Cell[11246474, 214448, 7442, 110, 71, "Input",ExpressionUUID->"ab4b4c65-5832-4276-862e-5242fb7d6363"],
+Cell[11485093, 218946, 7442, 110, 71, "Input",ExpressionUUID->"ab4b4c65-5832-4276-862e-5242fb7d6363"],
Cell[CellGroupData[{
-Cell[11253941, 214562, 11278, 159, 24, "Input",ExpressionUUID->"035b9f37-0cfb-4aba-8123-7cc74903c351"],
-Cell[11265222, 214723, 814, 12, 25, "Output",ExpressionUUID->"2ad90df1-94b6-4808-b452-aa2bc54eae46"]
+Cell[11492560, 219060, 11278, 159, 24, "Input",ExpressionUUID->"035b9f37-0cfb-4aba-8123-7cc74903c351"],
+Cell[11503841, 219221, 814, 12, 25, "Output",ExpressionUUID->"2ad90df1-94b6-4808-b452-aa2bc54eae46"]
}, Open ]],
-Cell[11266051, 214738, 156, 3, 22, "Input",ExpressionUUID->"cc60351b-00d0-4f4a-af87-3e28031d6440"],
-Cell[11266210, 214743, 2755, 70, 57, "Input",ExpressionUUID->"ce42704f-347c-42fe-bde0-05ddaa3a44bc"],
-Cell[11268968, 214815, 7335, 108, 71, "Input",ExpressionUUID->"1f992dbd-bae5-408c-9b30-6cb5bb49ce1a"],
+Cell[11504670, 219236, 156, 3, 22, "Input",ExpressionUUID->"cc60351b-00d0-4f4a-af87-3e28031d6440"],
+Cell[11504829, 219241, 2755, 70, 57, "Input",ExpressionUUID->"ce42704f-347c-42fe-bde0-05ddaa3a44bc"],
+Cell[11507587, 219313, 7335, 108, 71, "Input",ExpressionUUID->"1f992dbd-bae5-408c-9b30-6cb5bb49ce1a"],
Cell[CellGroupData[{
-Cell[11276328, 214927, 11347, 158, 24, "Input",ExpressionUUID->"d0cd008d-7e0c-44a1-888f-d8ea046ad195"],
-Cell[11287678, 215087, 811, 15, 22, "Message",ExpressionUUID->"573b50e4-a167-4240-874c-d6a3ee78338f"],
-Cell[11288492, 215104, 3063, 76, 44, "Output",ExpressionUUID->"f3761f04-a50b-4162-a453-129ab3390c0c"]
+Cell[11514947, 219425, 11347, 158, 24, "Input",ExpressionUUID->"d0cd008d-7e0c-44a1-888f-d8ea046ad195"],
+Cell[11526297, 219585, 811, 15, 22, "Message",ExpressionUUID->"573b50e4-a167-4240-874c-d6a3ee78338f"],
+Cell[11527111, 219602, 3063, 76, 44, "Output",ExpressionUUID->"f3761f04-a50b-4162-a453-129ab3390c0c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11291592, 215185, 1119, 27, 22, "Input",ExpressionUUID->"1021d90d-3130-4746-a366-8e537e9f7f92"],
-Cell[11292714, 215214, 36828, 630, 421, "Output",ExpressionUUID->"b2913881-77a8-4ff7-a02c-848342d37f3f"]
+Cell[11530211, 219683, 1119, 27, 22, "Input",ExpressionUUID->"1021d90d-3130-4746-a366-8e537e9f7f92"],
+Cell[11531333, 219712, 36828, 630, 421, "Output",ExpressionUUID->"b2913881-77a8-4ff7-a02c-848342d37f3f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11329579, 215849, 1992, 47, 97, "Input",ExpressionUUID->"480e1fae-c70a-4dc6-ac76-229ca216edb8"],
-Cell[11331574, 215898, 9917, 188, 428, "Output",ExpressionUUID->"572ddc0e-f61d-4a1f-9173-aebf56a24cca"]
+Cell[11568198, 220347, 1992, 47, 97, "Input",ExpressionUUID->"480e1fae-c70a-4dc6-ac76-229ca216edb8"],
+Cell[11570193, 220396, 9917, 188, 428, "Output",ExpressionUUID->"572ddc0e-f61d-4a1f-9173-aebf56a24cca"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11341528, 216091, 692, 20, 38, "Input",ExpressionUUID->"c09664cf-d15b-4a23-8294-e9605ddd22c4"],
-Cell[11342223, 216113, 1193, 32, 35, "Output",ExpressionUUID->"f66300ea-b0c9-492a-9514-2d872304296f"]
+Cell[11580147, 220589, 692, 20, 38, "Input",ExpressionUUID->"c09664cf-d15b-4a23-8294-e9605ddd22c4"],
+Cell[11580842, 220611, 1193, 32, 35, "Output",ExpressionUUID->"f66300ea-b0c9-492a-9514-2d872304296f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11343453, 216150, 1552, 39, 99, "Input",ExpressionUUID->"d1a1a08a-7743-4c1f-999e-35d5863f31fb"],
-Cell[11345008, 216191, 6302, 119, 387, "Output",ExpressionUUID->"fdbf7482-f319-434b-a9b0-b63a508b25d3"]
+Cell[11582072, 220648, 1552, 39, 99, "Input",ExpressionUUID->"d1a1a08a-7743-4c1f-999e-35d5863f31fb"],
+Cell[11583627, 220689, 6302, 119, 387, "Output",ExpressionUUID->"fdbf7482-f319-434b-a9b0-b63a508b25d3"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11351347, 216315, 558, 12, 22, "Input",ExpressionUUID->"49b749a8-26c7-4701-88ad-41f818e6781b"],
-Cell[11351908, 216329, 1517, 39, 275, "Output",ExpressionUUID->"102d5ef0-bd9b-4a9c-920c-620b92d6e55b"]
+Cell[11589966, 220813, 558, 12, 22, "Input",ExpressionUUID->"49b749a8-26c7-4701-88ad-41f818e6781b"],
+Cell[11590527, 220827, 1517, 39, 275, "Output",ExpressionUUID->"102d5ef0-bd9b-4a9c-920c-620b92d6e55b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11353462, 216373, 1284, 28, 75, "Input",ExpressionUUID->"1a7f3257-b002-4e6f-8d52-fb23c32b78c1"],
-Cell[11354749, 216403, 6221, 139, 181, "Output",ExpressionUUID->"98a5d1ee-e995-4639-bbc4-bd6d77881181"]
+Cell[11592081, 220871, 1284, 28, 75, "Input",ExpressionUUID->"1a7f3257-b002-4e6f-8d52-fb23c32b78c1"],
+Cell[11593368, 220901, 6221, 139, 181, "Output",ExpressionUUID->"98a5d1ee-e995-4639-bbc4-bd6d77881181"]
}, Open ]],
-Cell[11360985, 216545, 5436, 83, 71, "Input",ExpressionUUID->"bc0af480-becb-4018-91b2-4b617fc7951b"],
+Cell[11599604, 221043, 5436, 83, 71, "Input",ExpressionUUID->"bc0af480-becb-4018-91b2-4b617fc7951b"],
Cell[CellGroupData[{
-Cell[11366446, 216632, 9564, 136, 24, "Input",ExpressionUUID->"95c86e97-8f9e-443d-9865-56bdfa44d83f"],
-Cell[11376013, 216770, 7487, 126, 44, "Output",ExpressionUUID->"17bd4976-b52d-4a43-bc56-a2b4287abf15"]
+Cell[11605065, 221130, 9564, 136, 24, "Input",ExpressionUUID->"95c86e97-8f9e-443d-9865-56bdfa44d83f"],
+Cell[11614632, 221268, 7487, 126, 44, "Output",ExpressionUUID->"17bd4976-b52d-4a43-bc56-a2b4287abf15"]
}, Open ]],
-Cell[11383515, 216899, 5536, 85, 71, "Input",ExpressionUUID->"b7a26664-ada5-4185-8605-763a66cf493c"],
+Cell[11622134, 221397, 5536, 85, 71, "Input",ExpressionUUID->"b7a26664-ada5-4185-8605-763a66cf493c"],
Cell[CellGroupData[{
-Cell[11389076, 216988, 9601, 136, 24, "Input",ExpressionUUID->"07a06295-0c86-4571-862c-1b79355e2e42"],
-Cell[11398680, 217126, 7667, 130, 44, "Output",ExpressionUUID->"fb1cb8fb-b198-4921-a417-479e3cab8113"]
+Cell[11627695, 221486, 9601, 136, 24, "Input",ExpressionUUID->"07a06295-0c86-4571-862c-1b79355e2e42"],
+Cell[11637299, 221624, 7667, 130, 44, "Output",ExpressionUUID->"fb1cb8fb-b198-4921-a417-479e3cab8113"]
}, Open ]],
-Cell[11406362, 217259, 5834, 89, 71, "Input",ExpressionUUID->"5bb748f9-2e46-4b60-9377-5e64bea9f5ab"],
+Cell[11644981, 221757, 5834, 89, 71, "Input",ExpressionUUID->"5bb748f9-2e46-4b60-9377-5e64bea9f5ab"],
Cell[CellGroupData[{
-Cell[11412221, 217352, 9747, 138, 24, "Input",ExpressionUUID->"bfcc2298-9520-4e3e-81e5-091982c2dfa8"],
-Cell[11421971, 217492, 5810, 80, 25, "Output",ExpressionUUID->"6ac2fbf2-0ee6-4a56-ab59-573c5f2f4b87"]
+Cell[11650840, 221850, 9747, 138, 24, "Input",ExpressionUUID->"bfcc2298-9520-4e3e-81e5-091982c2dfa8"],
+Cell[11660590, 221990, 5810, 80, 25, "Output",ExpressionUUID->"6ac2fbf2-0ee6-4a56-ab59-573c5f2f4b87"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11427818, 217577, 173, 4, 22, "Input",ExpressionUUID->"511516ea-bd01-44e3-8941-68151b4f12b2"],
-Cell[11427994, 217583, 189, 4, 25, "Output",ExpressionUUID->"45204ae8-353a-4794-8699-1021cd2f52f1"]
+Cell[11666437, 222075, 173, 4, 22, "Input",ExpressionUUID->"511516ea-bd01-44e3-8941-68151b4f12b2"],
+Cell[11666613, 222081, 189, 4, 25, "Output",ExpressionUUID->"45204ae8-353a-4794-8699-1021cd2f52f1"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11428220, 217592, 458, 12, 22, "Input",ExpressionUUID->"d2bab649-d2f0-49c7-b517-0f8671e732d6"],
-Cell[11428681, 217606, 335, 6, 25, "Output",ExpressionUUID->"21d0fb37-d7d5-4a4a-9ced-77dce269bbfd"]
+Cell[11666839, 222090, 458, 12, 22, "Input",ExpressionUUID->"d2bab649-d2f0-49c7-b517-0f8671e732d6"],
+Cell[11667300, 222104, 335, 6, 25, "Output",ExpressionUUID->"21d0fb37-d7d5-4a4a-9ced-77dce269bbfd"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11429053, 217617, 183, 3, 22, "Input",ExpressionUUID->"9c6e13b7-3832-44aa-8ebe-5eca02c1336e"],
-Cell[11429239, 217622, 793, 19, 25, "Output",ExpressionUUID->"22a354d9-1544-427a-8c87-f3ecd868bed8"]
+Cell[11667672, 222115, 183, 3, 22, "Input",ExpressionUUID->"9c6e13b7-3832-44aa-8ebe-5eca02c1336e"],
+Cell[11667858, 222120, 793, 19, 25, "Output",ExpressionUUID->"22a354d9-1544-427a-8c87-f3ecd868bed8"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11430069, 217646, 8397, 231, 246, "Input",ExpressionUUID->"7f8fd216-7b8a-4b9a-884b-ead2a99859a2"],
-Cell[11438469, 217879, 10866, 253, 170, "Output",ExpressionUUID->"807367f2-a9ad-4b30-bbc1-1b4867e4aa48"]
+Cell[11668688, 222144, 8397, 231, 246, "Input",ExpressionUUID->"7f8fd216-7b8a-4b9a-884b-ead2a99859a2"],
+Cell[11677088, 222377, 10866, 253, 170, "Output",ExpressionUUID->"807367f2-a9ad-4b30-bbc1-1b4867e4aa48"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11449372, 218137, 459, 12, 24, "Input",ExpressionUUID->"03ac9924-da39-48d4-9ae4-52f15502e050"],
-Cell[11449834, 218151, 618, 13, 25, "Output",ExpressionUUID->"87770eb8-8821-46dd-ac7b-46ad45617bdf"]
+Cell[11687991, 222635, 459, 12, 24, "Input",ExpressionUUID->"03ac9924-da39-48d4-9ae4-52f15502e050"],
+Cell[11688453, 222649, 618, 13, 25, "Output",ExpressionUUID->"87770eb8-8821-46dd-ac7b-46ad45617bdf"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11450489, 218169, 517, 14, 22, "Input",ExpressionUUID->"f8907a27-9264-4d86-91e8-8f88597032d7"],
-Cell[11451009, 218185, 623, 13, 25, "Output",ExpressionUUID->"0d8ea761-c72e-4ef8-b5b3-a30d1c1b3dc4"]
+Cell[11689108, 222667, 517, 14, 22, "Input",ExpressionUUID->"f8907a27-9264-4d86-91e8-8f88597032d7"],
+Cell[11689628, 222683, 623, 13, 25, "Output",ExpressionUUID->"0d8ea761-c72e-4ef8-b5b3-a30d1c1b3dc4"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11451669, 218203, 579, 16, 22, "Input",ExpressionUUID->"14464e07-8c6d-468d-b2ba-bf425beab7f2"],
-Cell[11452251, 218221, 316, 5, 25, "Output",ExpressionUUID->"19ec2d02-c81e-4e6a-a56b-a9c11bcbce0c"]
+Cell[11690288, 222701, 579, 16, 22, "Input",ExpressionUUID->"14464e07-8c6d-468d-b2ba-bf425beab7f2"],
+Cell[11690870, 222719, 316, 5, 25, "Output",ExpressionUUID->"19ec2d02-c81e-4e6a-a56b-a9c11bcbce0c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11452604, 218231, 315, 8, 22, "Input",ExpressionUUID->"0e679d2a-91fe-422e-be1e-aaae26faa51d"],
-Cell[11452922, 218241, 269, 4, 25, "Output",ExpressionUUID->"546302c6-8a5c-42e6-96c6-7b6b2418f377"]
+Cell[11691223, 222729, 315, 8, 22, "Input",ExpressionUUID->"0e679d2a-91fe-422e-be1e-aaae26faa51d"],
+Cell[11691541, 222739, 269, 4, 25, "Output",ExpressionUUID->"546302c6-8a5c-42e6-96c6-7b6b2418f377"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11453228, 218250, 1119, 32, 24, "Input",ExpressionUUID->"c14d1a02-c833-401a-8c13-5e0d4c5eedde"],
-Cell[11454350, 218284, 737, 13, 25, "Output",ExpressionUUID->"81a1abe7-f5bc-4b0a-8df6-94f7cdcf806e"]
+Cell[11691847, 222748, 1119, 32, 24, "Input",ExpressionUUID->"c14d1a02-c833-401a-8c13-5e0d4c5eedde"],
+Cell[11692969, 222782, 737, 13, 25, "Output",ExpressionUUID->"81a1abe7-f5bc-4b0a-8df6-94f7cdcf806e"]
}, Open ]],
-Cell[11455102, 218300, 1033, 17, 22, "Input",ExpressionUUID->"443e678e-b73d-44eb-9051-93d8f0b286fa"],
+Cell[11693721, 222798, 1033, 17, 22, "Input",ExpressionUUID->"443e678e-b73d-44eb-9051-93d8f0b286fa"],
Cell[CellGroupData[{
-Cell[11456160, 218321, 255, 4, 22, "Input",ExpressionUUID->"6430dd00-07f2-4336-8792-3cd2455e5bf3"],
-Cell[11456418, 218327, 244, 3, 25, "Output",ExpressionUUID->"09a933ce-8388-4765-beb0-61d5cc751db1"]
+Cell[11694779, 222819, 255, 4, 22, "Input",ExpressionUUID->"6430dd00-07f2-4336-8792-3cd2455e5bf3"],
+Cell[11695037, 222825, 244, 3, 25, "Output",ExpressionUUID->"09a933ce-8388-4765-beb0-61d5cc751db1"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11456699, 218335, 1406, 29, 24, "Input",ExpressionUUID->"45ac9141-9464-42fd-83c7-33e1eaee2423"],
-Cell[11458108, 218366, 823, 11, 25, "Output",ExpressionUUID->"65593926-565e-4cf2-bfb8-1244b4fe2f5a"]
+Cell[11695318, 222833, 1406, 29, 24, "Input",ExpressionUUID->"45ac9141-9464-42fd-83c7-33e1eaee2423"],
+Cell[11696727, 222864, 823, 11, 25, "Output",ExpressionUUID->"65593926-565e-4cf2-bfb8-1244b4fe2f5a"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11458968, 218382, 1182, 28, 71, "Input",ExpressionUUID->"f9103426-e57d-41de-bc33-9092d98a1912"],
-Cell[11460153, 218412, 11988, 282, 183, "Output",ExpressionUUID->"1cd46633-edd7-4183-a567-b154605f473c"]
+Cell[11697587, 222880, 1182, 28, 71, "Input",ExpressionUUID->"f9103426-e57d-41de-bc33-9092d98a1912"],
+Cell[11698772, 222910, 11988, 282, 183, "Output",ExpressionUUID->"1cd46633-edd7-4183-a567-b154605f473c"]
}, Open ]],
-Cell[11472156, 218697, 1095, 20, 22, "Input",ExpressionUUID->"1492dec3-1fb8-4180-9817-ee3849924de6"],
+Cell[11710775, 223195, 1095, 20, 22, "Input",ExpressionUUID->"1492dec3-1fb8-4180-9817-ee3849924de6"],
Cell[CellGroupData[{
-Cell[11473276, 218721, 1989, 47, 24, "Input",ExpressionUUID->"12e71d93-1674-4c7c-bf6d-cf32f64b5b27"],
-Cell[11475268, 218770, 261, 5, 25, "Output",ExpressionUUID->"9d4e0ff1-bf10-45e1-9404-5a6532922a19"]
+Cell[11711895, 223219, 1989, 47, 24, "Input",ExpressionUUID->"12e71d93-1674-4c7c-bf6d-cf32f64b5b27"],
+Cell[11713887, 223268, 261, 5, 25, "Output",ExpressionUUID->"9d4e0ff1-bf10-45e1-9404-5a6532922a19"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11475566, 218780, 3516, 71, 75, "Input",ExpressionUUID->"148416db-27a0-4bef-b391-5efd6311252f"],
-Cell[11479085, 218853, 2601, 36, 25, "Output",ExpressionUUID->"121ebf81-c91d-48a6-ac44-e859f334c670"]
+Cell[11714185, 223278, 3516, 71, 75, "Input",ExpressionUUID->"148416db-27a0-4bef-b391-5efd6311252f"],
+Cell[11717704, 223351, 2601, 36, 25, "Output",ExpressionUUID->"121ebf81-c91d-48a6-ac44-e859f334c670"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11481723, 218894, 1025, 28, 37, "Input",ExpressionUUID->"8e8db3b9-2812-4935-bee8-db8da418d7fa"],
-Cell[11482751, 218924, 538, 12, 25, "Output",ExpressionUUID->"6b740e62-0e16-4113-af36-c654ab81e160"]
+Cell[11720342, 223392, 1025, 28, 37, "Input",ExpressionUUID->"8e8db3b9-2812-4935-bee8-db8da418d7fa"],
+Cell[11721370, 223422, 538, 12, 25, "Output",ExpressionUUID->"6b740e62-0e16-4113-af36-c654ab81e160"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11483326, 218941, 940, 24, 24, "Input",ExpressionUUID->"efd88356-0b5e-4a48-86f0-fcc10c921966"],
-Cell[11484269, 218967, 2600, 82, 27, "Output",ExpressionUUID->"844c1ef2-278f-41b9-b3b0-2c85fb0a0a66"]
+Cell[11721945, 223439, 940, 24, 24, "Input",ExpressionUUID->"efd88356-0b5e-4a48-86f0-fcc10c921966"],
+Cell[11722888, 223465, 2600, 82, 27, "Output",ExpressionUUID->"844c1ef2-278f-41b9-b3b0-2c85fb0a0a66"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11486906, 219054, 312, 7, 22, "Input",ExpressionUUID->"16535e55-0968-43b4-a202-3bb6d4ca811d"],
-Cell[11487221, 219063, 210, 4, 25, "Output",ExpressionUUID->"e17a1817-c7c2-43e2-8085-466fb38900a8"]
+Cell[11725525, 223552, 312, 7, 22, "Input",ExpressionUUID->"16535e55-0968-43b4-a202-3bb6d4ca811d"],
+Cell[11725840, 223561, 210, 4, 25, "Output",ExpressionUUID->"e17a1817-c7c2-43e2-8085-466fb38900a8"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11487468, 219072, 624, 18, 39, "Input",ExpressionUUID->"9035fdc5-d96d-4664-88f1-108a471ce989"],
-Cell[11488095, 219092, 632, 12, 25, "Output",ExpressionUUID->"8c4ef7e5-0795-4413-8d94-ce34403a2bfe"]
+Cell[11726087, 223570, 624, 18, 39, "Input",ExpressionUUID->"9035fdc5-d96d-4664-88f1-108a471ce989"],
+Cell[11726714, 223590, 632, 12, 25, "Output",ExpressionUUID->"8c4ef7e5-0795-4413-8d94-ce34403a2bfe"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11488764, 219109, 1364, 36, 58, "Input",ExpressionUUID->"4ab64f8c-2ace-4772-81bb-2767e4e50a60"],
-Cell[11490131, 219147, 24078, 497, 171, "Output",ExpressionUUID->"6c015ea5-88ab-40d1-b8de-ac5367757b6f"]
+Cell[11727383, 223607, 1364, 36, 58, "Input",ExpressionUUID->"4ab64f8c-2ace-4772-81bb-2767e4e50a60"],
+Cell[11728750, 223645, 24078, 497, 171, "Output",ExpressionUUID->"6c015ea5-88ab-40d1-b8de-ac5367757b6f"]
}, Open ]],
-Cell[11514224, 219647, 4656, 71, 55, "Input",ExpressionUUID->"4a84aff2-f5a6-40f1-9cb1-04d7aa37c80c"],
+Cell[11752843, 224145, 4656, 71, 55, "Input",ExpressionUUID->"4a84aff2-f5a6-40f1-9cb1-04d7aa37c80c"],
Cell[CellGroupData[{
-Cell[11518905, 219722, 7928, 115, 22, "Input",ExpressionUUID->"e3b60dd0-3eed-416f-a520-157d341b3b6b"],
-Cell[11526836, 219839, 440, 10, 22, "Message",ExpressionUUID->"bc8c1031-cd04-4bea-914c-bd471d8b24bf"],
-Cell[11527279, 219851, 5412, 91, 25, "Output",ExpressionUUID->"3a73d7d8-6f0f-43ad-9460-eba9b1dcd3ac"]
+Cell[11757524, 224220, 7928, 115, 22, "Input",ExpressionUUID->"e3b60dd0-3eed-416f-a520-157d341b3b6b"],
+Cell[11765455, 224337, 440, 10, 22, "Message",ExpressionUUID->"bc8c1031-cd04-4bea-914c-bd471d8b24bf"],
+Cell[11765898, 224349, 5412, 91, 25, "Output",ExpressionUUID->"3a73d7d8-6f0f-43ad-9460-eba9b1dcd3ac"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11532728, 219947, 1935, 37, 71, "Input",ExpressionUUID->"c601cd58-c3f4-497d-bcb0-a1a424f26846"],
-Cell[11534666, 219986, 18227, 329, 137, "Output",ExpressionUUID->"d69c4b09-19ca-4566-8ddd-1970295387be"]
+Cell[11771347, 224445, 1935, 37, 71, "Input",ExpressionUUID->"c601cd58-c3f4-497d-bcb0-a1a424f26846"],
+Cell[11773285, 224484, 18227, 329, 137, "Output",ExpressionUUID->"d69c4b09-19ca-4566-8ddd-1970295387be"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11552930, 220320, 1636, 43, 24, "Input",ExpressionUUID->"b16a3a8e-59d1-4a82-8bef-8bea0da6d1e1"],
-Cell[11554569, 220365, 221293, 3642, 180, "Output",ExpressionUUID->"01b037f0-285f-40fc-9f42-223315bc424a"]
+Cell[11791549, 224818, 1636, 43, 24, "Input",ExpressionUUID->"b16a3a8e-59d1-4a82-8bef-8bea0da6d1e1"],
+Cell[11793188, 224863, 221293, 3642, 180, "Output",ExpressionUUID->"01b037f0-285f-40fc-9f42-223315bc424a"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11775899, 224012, 1661, 43, 24, "Input",ExpressionUUID->"08f508bf-0984-4685-b36b-09bedad9c23d"],
-Cell[11777563, 224057, 221490, 3645, 180, "Output",ExpressionUUID->"e9dc8c3c-e0b4-4b4d-bf05-f32ff1248f66"]
+Cell[12014518, 228510, 1661, 43, 24, "Input",ExpressionUUID->"08f508bf-0984-4685-b36b-09bedad9c23d"],
+Cell[12016182, 228555, 221490, 3645, 180, "Output",ExpressionUUID->"e9dc8c3c-e0b4-4b4d-bf05-f32ff1248f66"]
}, Open ]],
Cell[CellGroupData[{
-Cell[11999090, 227707, 718, 19, 39, "Input",ExpressionUUID->"77af0627-0460-481b-9313-f51b13e56b82"],
-Cell[11999811, 227728, 689, 13, 27, "Output",ExpressionUUID->"7b6a0c85-7cdb-40cf-bdb7-8dfeb3bcafc5"]
+Cell[12237709, 232205, 718, 19, 39, "Input",ExpressionUUID->"77af0627-0460-481b-9313-f51b13e56b82"],
+Cell[12238430, 232226, 689, 13, 27, "Output",ExpressionUUID->"7b6a0c85-7cdb-40cf-bdb7-8dfeb3bcafc5"]
}, Open ]],
Cell[CellGroupData[{
-Cell[12000537, 227746, 3389, 70, 75, "Input",ExpressionUUID->"96041283-ca41-4bec-a851-fc958143074f"],
-Cell[12003929, 227818, 12735, 275, 138, "Output",ExpressionUUID->"349ef79c-2101-4c31-9834-fd73aa857377"]
+Cell[12239156, 232244, 3389, 70, 75, "Input",ExpressionUUID->"96041283-ca41-4bec-a851-fc958143074f"],
+Cell[12242548, 232316, 12735, 275, 138, "Output",ExpressionUUID->"349ef79c-2101-4c31-9834-fd73aa857377"]
}, Open ]],
Cell[CellGroupData[{
-Cell[12016701, 228098, 1135, 27, 57, "Input",ExpressionUUID->"40271ee7-6593-46be-9bda-2a54c3f1dd65"],
-Cell[12017839, 228127, 7683, 188, 181, "Output",ExpressionUUID->"81aecfb3-e449-466d-a876-7f92452f32c6"]
+Cell[12255320, 232596, 1135, 27, 57, "Input",ExpressionUUID->"40271ee7-6593-46be-9bda-2a54c3f1dd65"],
+Cell[12256458, 232625, 7683, 188, 181, "Output",ExpressionUUID->"81aecfb3-e449-466d-a876-7f92452f32c6"]
}, Open ]],
-Cell[12025537, 228318, 3769, 58, 55, "Input",ExpressionUUID->"a2ac1df1-ca7c-4dba-a905-59be755b5495"],
+Cell[12264156, 232816, 3769, 58, 55, "Input",ExpressionUUID->"a2ac1df1-ca7c-4dba-a905-59be755b5495"],
Cell[CellGroupData[{
-Cell[12029331, 228380, 6700, 99, 24, "Input",ExpressionUUID->"547cbf46-e936-4848-a00e-8a18f43b0b97"],
-Cell[12036034, 228481, 558, 12, 22, "Message",ExpressionUUID->"ac9d6d47-c1cf-492c-84b6-9f2bc21eab82"],
-Cell[12036595, 228495, 5206, 95, 44, "Output",ExpressionUUID->"5f76cc71-8024-44a5-9beb-db4c8d4fca3f"]
+Cell[12267950, 232878, 6700, 99, 24, "Input",ExpressionUUID->"547cbf46-e936-4848-a00e-8a18f43b0b97"],
+Cell[12274653, 232979, 558, 12, 22, "Message",ExpressionUUID->"ac9d6d47-c1cf-492c-84b6-9f2bc21eab82"],
+Cell[12275214, 232993, 5206, 95, 44, "Output",ExpressionUUID->"5f76cc71-8024-44a5-9beb-db4c8d4fca3f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[12041838, 228595, 1747, 35, 71, "Input",ExpressionUUID->"70c9edfe-5ecc-4c90-9b48-c65dc7b840da"],
-Cell[12043588, 228632, 17065, 313, 138, "Output",ExpressionUUID->"cca07006-2f3d-4d0d-afc1-9a034924d973"]
+Cell[12280457, 233093, 1747, 35, 71, "Input",ExpressionUUID->"70c9edfe-5ecc-4c90-9b48-c65dc7b840da"],
+Cell[12282207, 233130, 17065, 313, 138, "Output",ExpressionUUID->"cca07006-2f3d-4d0d-afc1-9a034924d973"]
}, Open ]],
Cell[CellGroupData[{
-Cell[12060690, 228950, 1075, 29, 59, "Input",ExpressionUUID->"9ebbad1f-a858-494b-8020-0b77877c4741"],
-Cell[12061768, 228981, 1686, 44, 184, "Output",ExpressionUUID->"4879f7d0-5190-464a-90dc-66903db3e0c9"]
+Cell[12299309, 233448, 1075, 29, 59, "Input",ExpressionUUID->"9ebbad1f-a858-494b-8020-0b77877c4741"],
+Cell[12300387, 233479, 1686, 44, 184, "Output",ExpressionUUID->"4879f7d0-5190-464a-90dc-66903db3e0c9"]
}, Open ]],
Cell[CellGroupData[{
-Cell[12063491, 229030, 2704, 59, 75, "Input",ExpressionUUID->"5886d572-3cda-4845-a6ab-fded69b22491"],
-Cell[12066198, 229091, 12141, 271, 180, "Output",ExpressionUUID->"4a243cf5-91fd-4307-a4d9-f5501990c8ee"]
+Cell[12302110, 233528, 2704, 59, 75, "Input",ExpressionUUID->"5886d572-3cda-4845-a6ab-fded69b22491"],
+Cell[12304817, 233589, 12141, 271, 180, "Output",ExpressionUUID->"4a243cf5-91fd-4307-a4d9-f5501990c8ee"]
}, Open ]],
-Cell[12078354, 229365, 3491, 55, 55, "Input",ExpressionUUID->"efeb4a44-1bdb-4041-9cde-f40d4f7e6804"],
+Cell[12316973, 233863, 3491, 55, 55, "Input",ExpressionUUID->"efeb4a44-1bdb-4041-9cde-f40d4f7e6804"],
Cell[CellGroupData[{
-Cell[12081870, 229424, 6511, 94, 22, "Input",ExpressionUUID->"c6de27eb-5bc8-45db-9b60-29e5e97b710a"],
-Cell[12088384, 229520, 5770, 96, 25, "Output",ExpressionUUID->"bbfdc74b-827c-4766-bc1e-fd9dc14d6024"]
+Cell[12320489, 233922, 6511, 94, 22, "Input",ExpressionUUID->"c6de27eb-5bc8-45db-9b60-29e5e97b710a"],
+Cell[12327003, 234018, 5770, 96, 25, "Output",ExpressionUUID->"bbfdc74b-827c-4766-bc1e-fd9dc14d6024"]
}, Open ]],
Cell[CellGroupData[{
-Cell[12094191, 229621, 1791, 35, 71, "Input",ExpressionUUID->"6ac9e8b3-9bd4-4acb-8cb9-ff723572dba3"],
-Cell[12095985, 229658, 17336, 318, 138, "Output",ExpressionUUID->"908d155a-de6a-4d16-8701-26bdc229b1cd"]
+Cell[12332810, 234119, 1791, 35, 71, "Input",ExpressionUUID->"6ac9e8b3-9bd4-4acb-8cb9-ff723572dba3"],
+Cell[12334604, 234156, 17336, 318, 138, "Output",ExpressionUUID->"908d155a-de6a-4d16-8701-26bdc229b1cd"]
}, Open ]],
Cell[CellGroupData[{
-Cell[12113358, 229981, 2079, 54, 75, "Input",ExpressionUUID->"4f78fb08-6a38-4557-9e90-92c768da5ece"],
-Cell[12115440, 230037, 16732, 375, 138, "Output",ExpressionUUID->"afe60a00-9560-4f44-9b86-68cede075c99"]
+Cell[12351977, 234479, 2079, 54, 75, "Input",ExpressionUUID->"4f78fb08-6a38-4557-9e90-92c768da5ece"],
+Cell[12354059, 234535, 16732, 375, 138, "Output",ExpressionUUID->"afe60a00-9560-4f44-9b86-68cede075c99"]
}, Open ]],
-Cell[12132187, 230415, 3360, 53, 55, "Input",ExpressionUUID->"497f772a-bb61-4620-8207-2e6f226bcf84"],
+Cell[12370806, 234913, 3360, 53, 55, "Input",ExpressionUUID->"497f772a-bb61-4620-8207-2e6f226bcf84"],
Cell[CellGroupData[{
-Cell[12135572, 230472, 6459, 92, 22, "Input",ExpressionUUID->"a9845f9a-4a88-4510-a8da-8ae527fe7af5"],
-Cell[12142034, 230566, 1955, 31, 22, "Message",ExpressionUUID->"be0f7494-f3d0-4cea-a8fa-faa16715d971"],
-Cell[12143992, 230599, 5268, 92, 25, "Output",ExpressionUUID->"1687f408-b88f-4c1f-89ab-7a85b56b321d"]
+Cell[12374191, 234970, 6459, 92, 22, "Input",ExpressionUUID->"a9845f9a-4a88-4510-a8da-8ae527fe7af5"],
+Cell[12380653, 235064, 1955, 31, 22, "Message",ExpressionUUID->"be0f7494-f3d0-4cea-a8fa-faa16715d971"],
+Cell[12382611, 235097, 5268, 92, 25, "Output",ExpressionUUID->"1687f408-b88f-4c1f-89ab-7a85b56b321d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[12149297, 230696, 1882, 39, 71, "Input",ExpressionUUID->"134b85f6-1e18-4ab5-8d8e-ba4de448deba"],
-Cell[12151182, 230737, 9557, 188, 138, "Output",ExpressionUUID->"56035f9d-204f-4262-abd6-2e809bcdbfe4"]
+Cell[12387916, 235194, 1882, 39, 71, "Input",ExpressionUUID->"134b85f6-1e18-4ab5-8d8e-ba4de448deba"],
+Cell[12389801, 235235, 9557, 188, 138, "Output",ExpressionUUID->"56035f9d-204f-4262-abd6-2e809bcdbfe4"]
}, Open ]],
-Cell[12160754, 230928, 2869, 47, 55, "Input",ExpressionUUID->"bac4ba3c-9772-4eea-a624-7b3a59f3702b"],
+Cell[12399373, 235426, 2869, 47, 55, "Input",ExpressionUUID->"bac4ba3c-9772-4eea-a624-7b3a59f3702b"],
Cell[CellGroupData[{
-Cell[12163648, 230979, 5473, 80, 22, "Input",ExpressionUUID->"f47caa85-ccf3-4491-9432-418c399b1f82"],
-Cell[12169124, 231061, 497, 11, 22, "Message",ExpressionUUID->"9793dec7-95eb-44d1-a04d-8dd81fe1078b"],
-Cell[12169624, 231074, 10419, 251, 79, "Output",ExpressionUUID->"844f838b-f9c8-4af5-b6eb-c9a9f0a7d9c4"]
+Cell[12402267, 235477, 5473, 80, 22, "Input",ExpressionUUID->"f47caa85-ccf3-4491-9432-418c399b1f82"],
+Cell[12407743, 235559, 497, 11, 22, "Message",ExpressionUUID->"9793dec7-95eb-44d1-a04d-8dd81fe1078b"],
+Cell[12408243, 235572, 10419, 251, 79, "Output",ExpressionUUID->"844f838b-f9c8-4af5-b6eb-c9a9f0a7d9c4"]
}, Open ]],
Cell[CellGroupData[{
-Cell[12180080, 231330, 1852, 38, 71, "Input",ExpressionUUID->"739ac51d-0a03-4b17-bfdc-8d68f35f0c23"],
-Cell[12181935, 231370, 17127, 315, 136, "Output",ExpressionUUID->"fceea5d2-3003-4233-bc07-cd744e2cca6c"]
+Cell[12418699, 235828, 1852, 38, 71, "Input",ExpressionUUID->"739ac51d-0a03-4b17-bfdc-8d68f35f0c23"],
+Cell[12420554, 235868, 17127, 315, 136, "Output",ExpressionUUID->"fceea5d2-3003-4233-bc07-cd744e2cca6c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[12199099, 231690, 482, 11, 22, "Input",ExpressionUUID->"9776016b-07ba-464f-8f7c-19871343d900"],
-Cell[12199584, 231703, 9927, 243, 178, "Output",ExpressionUUID->"c0233763-1810-4ebb-a219-a6b546ddaa9b"]
+Cell[12437718, 236188, 482, 11, 22, "Input",ExpressionUUID->"9776016b-07ba-464f-8f7c-19871343d900"],
+Cell[12438203, 236201, 9927, 243, 178, "Output",ExpressionUUID->"c0233763-1810-4ebb-a219-a6b546ddaa9b"]
}, Open ]],
-Cell[12209526, 231949, 2967, 48, 55, "Input",ExpressionUUID->"359460c4-cd9c-4fdd-b45a-cc6976e4f354"],
+Cell[12448145, 236447, 2967, 48, 55, "Input",ExpressionUUID->"359460c4-cd9c-4fdd-b45a-cc6976e4f354"],
Cell[CellGroupData[{
-Cell[12212518, 232001, 5720, 84, 24, "Input",ExpressionUUID->"c143c3b7-2214-4be6-9324-4865d07dfda5"],
-Cell[12218241, 232087, 771, 15, 22, "Message",ExpressionUUID->"6e22977f-ac51-4420-89c6-e8701b475ca4"],
-Cell[12219015, 232104, 4257, 83, 44, "Output",ExpressionUUID->"18ecae2f-ac15-4aa5-a248-883a3f54920d"]
+Cell[12451137, 236499, 5720, 84, 24, "Input",ExpressionUUID->"c143c3b7-2214-4be6-9324-4865d07dfda5"],
+Cell[12456860, 236585, 771, 15, 22, "Message",ExpressionUUID->"6e22977f-ac51-4420-89c6-e8701b475ca4"],
+Cell[12457634, 236602, 4257, 83, 44, "Output",ExpressionUUID->"18ecae2f-ac15-4aa5-a248-883a3f54920d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[12223309, 232192, 1796, 36, 71, "Input",ExpressionUUID->"86e16904-5038-4aa6-98f1-82398df6a0bf"],
-Cell[12225108, 232230, 17264, 316, 136, "Output",ExpressionUUID->"39284aca-f6b5-4edc-87a0-4cedee932918"]
+Cell[12461928, 236690, 1796, 36, 71, "Input",ExpressionUUID->"86e16904-5038-4aa6-98f1-82398df6a0bf"],
+Cell[12463727, 236728, 17264, 316, 136, "Output",ExpressionUUID->"39284aca-f6b5-4edc-87a0-4cedee932918"]
}, Open ]],
Cell[CellGroupData[{
-Cell[12242409, 232551, 874, 23, 22, "Input",ExpressionUUID->"8ab3500c-ebcf-48ec-a5d1-e12a122a7a99"],
-Cell[12243286, 232576, 3739, 89, 178, "Output",ExpressionUUID->"db8b6b35-0df5-4e80-930c-0e8351717f50"]
+Cell[12481028, 237049, 874, 23, 22, "Input",ExpressionUUID->"8ab3500c-ebcf-48ec-a5d1-e12a122a7a99"],
+Cell[12481905, 237074, 3739, 89, 178, "Output",ExpressionUUID->"db8b6b35-0df5-4e80-930c-0e8351717f50"]
}, Open ]],
Cell[CellGroupData[{
-Cell[12247062, 232670, 549, 15, 22, "Input",ExpressionUUID->"e89bd1c1-249f-41b0-905c-be326bc141ab"],
-Cell[12247614, 232687, 234, 5, 25, "Output",ExpressionUUID->"dd1596d9-c6ab-4180-b003-7f24556d206b"]
+Cell[12485681, 237168, 549, 15, 22, "Input",ExpressionUUID->"e89bd1c1-249f-41b0-905c-be326bc141ab"],
+Cell[12486233, 237185, 234, 5, 25, "Output",ExpressionUUID->"dd1596d9-c6ab-4180-b003-7f24556d206b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[12247885, 232697, 262, 6, 22, "Input",ExpressionUUID->"d1a7862e-f18b-4c80-8d5a-e634a9689bef"],
-Cell[12248150, 232705, 1039, 29, 51, "Output",ExpressionUUID->"8c4f4718-698f-458a-bc05-70e9c5d982c6"]
+Cell[12486504, 237195, 262, 6, 22, "Input",ExpressionUUID->"d1a7862e-f18b-4c80-8d5a-e634a9689bef"],
+Cell[12486769, 237203, 1039, 29, 51, "Output",ExpressionUUID->"8c4f4718-698f-458a-bc05-70e9c5d982c6"]
}, Open ]],
Cell[CellGroupData[{
-Cell[12249226, 232739, 1085, 28, 24, "Input",ExpressionUUID->"dc4b3578-5cd8-4e1b-947d-8e9c1354adba"],
-Cell[12250314, 232769, 74312, 1240, 77, "Output",ExpressionUUID->"a15a0a15-e7c0-49b4-9e01-a59bb994d72f"]
+Cell[12487845, 237237, 1085, 28, 24, "Input",ExpressionUUID->"dc4b3578-5cd8-4e1b-947d-8e9c1354adba"],
+Cell[12488933, 237267, 74312, 1240, 77, "Output",ExpressionUUID->"a15a0a15-e7c0-49b4-9e01-a59bb994d72f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[12324663, 234014, 1597, 44, 40, "Input",ExpressionUUID->"723aea99-0f8c-40da-85f5-195e41b2654d"],
-Cell[12326263, 234060, 487, 11, 22, "Message",ExpressionUUID->"5cb341dc-7c78-48ab-88d1-ab0cc344561a"],
-Cell[12326753, 234073, 490, 11, 22, "Message",ExpressionUUID->"6a2bf270-e5ff-4643-b1d5-c69a090adc70"],
-Cell[12327246, 234086, 488, 11, 22, "Message",ExpressionUUID->"060503a7-0291-4c71-adc4-62675634b6f4"],
-Cell[12327737, 234099, 457, 10, 22, "Message",ExpressionUUID->"2c9ec3f8-31af-4f14-88a0-11fa477456f8"]
+Cell[12563282, 238512, 1597, 44, 40, "Input",ExpressionUUID->"723aea99-0f8c-40da-85f5-195e41b2654d"],
+Cell[12564882, 238558, 487, 11, 22, "Message",ExpressionUUID->"5cb341dc-7c78-48ab-88d1-ab0cc344561a"],
+Cell[12565372, 238571, 490, 11, 22, "Message",ExpressionUUID->"6a2bf270-e5ff-4643-b1d5-c69a090adc70"],
+Cell[12565865, 238584, 488, 11, 22, "Message",ExpressionUUID->"060503a7-0291-4c71-adc4-62675634b6f4"],
+Cell[12566356, 238597, 457, 10, 22, "Message",ExpressionUUID->"2c9ec3f8-31af-4f14-88a0-11fa477456f8"]
}, Open ]],
Cell[CellGroupData[{
-Cell[12328231, 234114, 1243, 25, 24, "Input",ExpressionUUID->"c1833b71-8706-4483-8dca-0336a8da1dc5"],
-Cell[12329477, 234141, 257598, 4238, 182, "Output",ExpressionUUID->"74fce54b-483d-41d0-85be-7b73cf199a85"]
+Cell[12566850, 238612, 1243, 25, 24, "Input",ExpressionUUID->"c1833b71-8706-4483-8dca-0336a8da1dc5"],
+Cell[12568096, 238639, 257598, 4238, 182, "Output",ExpressionUUID->"74fce54b-483d-41d0-85be-7b73cf199a85"]
}, Open ]],
-Cell[12587090, 238382, 2861, 70, 24, "Input",ExpressionUUID->"8b52d9cb-7231-41b1-bb95-f8fe74c01691"],
+Cell[12825709, 242880, 2861, 70, 24, "Input",ExpressionUUID->"8b52d9cb-7231-41b1-bb95-f8fe74c01691"],
Cell[CellGroupData[{
-Cell[12589976, 238456, 4876, 115, 41, "Input",ExpressionUUID->"6cece336-c682-4647-a927-a1a85e694c69"],
-Cell[12594855, 238573, 372, 9, 32, "Message",ExpressionUUID->"81881f29-a4ed-4857-b90d-6a92c6f2a886"],
-Cell[12595230, 238584, 414, 10, 22, "Message",ExpressionUUID->"65af3e52-5b13-483e-8fb2-b7853704df63"],
-Cell[12595647, 238596, 374, 9, 32, "Message",ExpressionUUID->"c6071a3b-64f8-48a8-adee-3972a10d88cc"],
-Cell[12596024, 238607, 372, 9, 32, "Message",ExpressionUUID->"f8745bf6-25a1-40e4-abce-454f4435e2d7"],
-Cell[12596399, 238618, 449, 10, 22, "Message",ExpressionUUID->"ceaab3b6-1d85-4eaa-90df-9adc58669bfa"],
-Cell[12596851, 238630, 412, 10, 22, "Message",ExpressionUUID->"078419b7-603f-48cb-878b-7a1c24649e85"],
-Cell[12597266, 238642, 412, 10, 22, "Message",ExpressionUUID->"db4be287-8a7d-4743-9920-b58a6a24c7f4"],
-Cell[12597681, 238654, 454, 10, 22, "Message",ExpressionUUID->"348978ad-48d5-4e2e-a007-fa766c84358d"]
+Cell[12828595, 242954, 4876, 115, 41, "Input",ExpressionUUID->"6cece336-c682-4647-a927-a1a85e694c69"],
+Cell[12833474, 243071, 372, 9, 32, "Message",ExpressionUUID->"81881f29-a4ed-4857-b90d-6a92c6f2a886"],
+Cell[12833849, 243082, 414, 10, 22, "Message",ExpressionUUID->"65af3e52-5b13-483e-8fb2-b7853704df63"],
+Cell[12834266, 243094, 374, 9, 32, "Message",ExpressionUUID->"c6071a3b-64f8-48a8-adee-3972a10d88cc"],
+Cell[12834643, 243105, 372, 9, 32, "Message",ExpressionUUID->"f8745bf6-25a1-40e4-abce-454f4435e2d7"],
+Cell[12835018, 243116, 449, 10, 22, "Message",ExpressionUUID->"ceaab3b6-1d85-4eaa-90df-9adc58669bfa"],
+Cell[12835470, 243128, 412, 10, 22, "Message",ExpressionUUID->"078419b7-603f-48cb-878b-7a1c24649e85"],
+Cell[12835885, 243140, 412, 10, 22, "Message",ExpressionUUID->"db4be287-8a7d-4743-9920-b58a6a24c7f4"],
+Cell[12836300, 243152, 454, 10, 22, "Message",ExpressionUUID->"348978ad-48d5-4e2e-a007-fa766c84358d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[12598172, 238669, 390, 10, 22, "Input",ExpressionUUID->"6623c3d0-c734-4c97-b5aa-8b4e1e8b5864"],
-Cell[12598565, 238681, 230, 4, 305, "Output",ExpressionUUID->"36cda7a1-1464-47c1-b5dd-e7362a0dae06"]
+Cell[12836791, 243167, 390, 10, 22, "Input",ExpressionUUID->"6623c3d0-c734-4c97-b5aa-8b4e1e8b5864"],
+Cell[12837184, 243179, 230, 4, 305, "Output",ExpressionUUID->"36cda7a1-1464-47c1-b5dd-e7362a0dae06"]
}, Open ]],
Cell[CellGroupData[{
-Cell[12598832, 238690, 2250, 58, 59, "Input",ExpressionUUID->"62b1f9a0-e25e-4026-863f-3dc2d1cf7efa"],
-Cell[12601085, 238750, 1066745, 23056, 352, "Output",ExpressionUUID->"e7c528e1-0119-4983-96fd-9e6c2e437ff3"]
+Cell[12837451, 243188, 2250, 58, 59, "Input",ExpressionUUID->"62b1f9a0-e25e-4026-863f-3dc2d1cf7efa"],
+Cell[12839704, 243248, 1066745, 23056, 352, "Output",ExpressionUUID->"e7c528e1-0119-4983-96fd-9e6c2e437ff3"]
}, Open ]],
Cell[CellGroupData[{
-Cell[13667867, 261811, 1775, 44, 24, "Input",ExpressionUUID->"38aa6414-c597-4e41-98df-f3d0ed970813"],
-Cell[13669645, 261857, 376, 5, 25, "Output",ExpressionUUID->"8e9f254f-9dee-4f94-a914-cebdcb3f980c"]
+Cell[13906486, 266309, 1775, 44, 24, "Input",ExpressionUUID->"38aa6414-c597-4e41-98df-f3d0ed970813"],
+Cell[13908264, 266355, 376, 5, 25, "Output",ExpressionUUID->"8e9f254f-9dee-4f94-a914-cebdcb3f980c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[13670058, 261867, 427, 10, 24, "Input",ExpressionUUID->"34ae4c2f-5f56-4482-8806-353461f6d9f4"],
-Cell[13670488, 261879, 18847, 324, 179, "Output",ExpressionUUID->"7f5969ff-1171-4f9f-9246-30a6d94b4c74"]
+Cell[13908677, 266365, 427, 10, 24, "Input",ExpressionUUID->"34ae4c2f-5f56-4482-8806-353461f6d9f4"],
+Cell[13909107, 266377, 18847, 324, 179, "Output",ExpressionUUID->"7f5969ff-1171-4f9f-9246-30a6d94b4c74"]
}, Open ]],
-Cell[13689350, 262206, 3136, 79, 24, "Input",ExpressionUUID->"8319df3c-3ce1-4e09-97a9-14327706829b"],
+Cell[13927969, 266704, 3136, 79, 24, "Input",ExpressionUUID->"8319df3c-3ce1-4e09-97a9-14327706829b"],
Cell[CellGroupData[{
-Cell[13692511, 262289, 592, 13, 24, "Input",ExpressionUUID->"d6d361e6-21b7-46e4-8f2c-03c8590c5841"],
-Cell[13693106, 262304, 5889, 112, 178, "Output",ExpressionUUID->"f8ddd75f-2fc4-4ac6-b0ce-203490975bf3"]
+Cell[13931130, 266787, 592, 13, 24, "Input",ExpressionUUID->"d6d361e6-21b7-46e4-8f2c-03c8590c5841"],
+Cell[13931725, 266802, 5889, 112, 178, "Output",ExpressionUUID->"f8ddd75f-2fc4-4ac6-b0ce-203490975bf3"]
}, Open ]],
-Cell[13699010, 262419, 4130, 102, 24, "Input",ExpressionUUID->"aa122af0-aec0-4165-9428-aec714e0516d"],
+Cell[13937629, 266917, 4130, 102, 24, "Input",ExpressionUUID->"aa122af0-aec0-4165-9428-aec714e0516d"],
Cell[CellGroupData[{
-Cell[13703165, 262525, 1495, 23, 24, "Input",ExpressionUUID->"c130f428-19cf-4909-a96f-c053c8f42438"],
-Cell[13704663, 262550, 6141, 116, 180, "Output",ExpressionUUID->"85583a5b-eec1-4b78-a332-873f04d6e023"]
+Cell[13941784, 267023, 1495, 23, 24, "Input",ExpressionUUID->"c130f428-19cf-4909-a96f-c053c8f42438"],
+Cell[13943282, 267048, 6141, 116, 180, "Output",ExpressionUUID->"85583a5b-eec1-4b78-a332-873f04d6e023"]
}, Open ]],
-Cell[13710819, 262669, 2010, 35, 55, "Input",ExpressionUUID->"8e9d0132-bcad-498f-9e52-cde120c54e03"],
+Cell[13949438, 267167, 2010, 35, 55, "Input",ExpressionUUID->"8e9d0132-bcad-498f-9e52-cde120c54e03"],
Cell[CellGroupData[{
-Cell[13712854, 262708, 4151, 62, 22, "Input",ExpressionUUID->"5fa14f5e-886c-46bc-9b14-c6720176213b"],
-Cell[13717008, 262772, 2707, 49, 25, "Output",ExpressionUUID->"9b81114a-14fc-495a-8c08-1d756a623ea4"]
+Cell[13951473, 267206, 4151, 62, 22, "Input",ExpressionUUID->"5fa14f5e-886c-46bc-9b14-c6720176213b"],
+Cell[13955627, 267270, 2707, 49, 25, "Output",ExpressionUUID->"9b81114a-14fc-495a-8c08-1d756a623ea4"]
}, Open ]],
Cell[CellGroupData[{
-Cell[13719752, 262826, 1600, 34, 71, "Input",ExpressionUUID->"72235405-3003-49e9-9277-216bdd19750b"],
-Cell[13721355, 262862, 17028, 313, 136, "Output",ExpressionUUID->"f830ee27-fdee-43c7-871a-57560f38bbc6"]
+Cell[13958371, 267324, 1600, 34, 71, "Input",ExpressionUUID->"72235405-3003-49e9-9277-216bdd19750b"],
+Cell[13959974, 267360, 17028, 313, 136, "Output",ExpressionUUID->"f830ee27-fdee-43c7-871a-57560f38bbc6"]
}, Open ]],
-Cell[13738398, 263178, 2110, 37, 55, "Input",ExpressionUUID->"06bb7c1b-6411-48e8-b40c-03313a1b1f6b"],
+Cell[13977017, 267676, 2110, 37, 55, "Input",ExpressionUUID->"06bb7c1b-6411-48e8-b40c-03313a1b1f6b"],
Cell[CellGroupData[{
-Cell[13740533, 263219, 4183, 60, 22, "Input",ExpressionUUID->"76b93673-a7b3-43a6-9e29-6ad9396401f8"],
-Cell[13744719, 263281, 2082, 30, 25, "Output",ExpressionUUID->"0975a7cd-68c4-4d5a-8ae7-4b1c3ba72757"]
+Cell[13979152, 267717, 4183, 60, 22, "Input",ExpressionUUID->"76b93673-a7b3-43a6-9e29-6ad9396401f8"],
+Cell[13983338, 267779, 2082, 30, 25, "Output",ExpressionUUID->"0975a7cd-68c4-4d5a-8ae7-4b1c3ba72757"]
}, Open ]],
Cell[CellGroupData[{
-Cell[13746838, 263316, 1650, 35, 71, "Input",ExpressionUUID->"c88b880d-b857-40ca-9a63-95d53e55b7bf"],
-Cell[13748491, 263353, 20490, 372, 135, "Output",ExpressionUUID->"de5a51e7-28ce-4c24-a278-a281498822a4"]
+Cell[13985457, 267814, 1650, 35, 71, "Input",ExpressionUUID->"c88b880d-b857-40ca-9a63-95d53e55b7bf"],
+Cell[13987110, 267851, 20490, 372, 135, "Output",ExpressionUUID->"de5a51e7-28ce-4c24-a278-a281498822a4"]
}, Open ]],
-Cell[13768996, 263728, 2205, 38, 55, "Input",ExpressionUUID->"56133658-9ffb-4dd9-beea-7a4a9665bb64"],
+Cell[14007615, 268226, 2205, 38, 55, "Input",ExpressionUUID->"56133658-9ffb-4dd9-beea-7a4a9665bb64"],
Cell[CellGroupData[{
-Cell[13771226, 263770, 6088, 119, 24, "Input",ExpressionUUID->"53dbad32-ec5e-415a-ae44-7e175c4cc62d"],
-Cell[13777317, 263891, 3154, 60, 27, "Output",ExpressionUUID->"80c765f8-8713-4e91-a020-01bcee30c8bb"]
+Cell[14009845, 268268, 6088, 119, 24, "Input",ExpressionUUID->"53dbad32-ec5e-415a-ae44-7e175c4cc62d"],
+Cell[14015936, 268389, 3154, 60, 27, "Output",ExpressionUUID->"80c765f8-8713-4e91-a020-01bcee30c8bb"]
}, Open ]],
Cell[CellGroupData[{
-Cell[13780508, 263956, 1700, 36, 71, "Input",ExpressionUUID->"20576d59-77d2-4587-8b54-e96f4f4789af"],
-Cell[13782211, 263994, 16873, 311, 136, "Output",ExpressionUUID->"410926aa-f2e4-469e-9687-84e7fafafd42"]
+Cell[14019127, 268454, 1700, 36, 71, "Input",ExpressionUUID->"20576d59-77d2-4587-8b54-e96f4f4789af"],
+Cell[14020830, 268492, 16873, 311, 136, "Output",ExpressionUUID->"410926aa-f2e4-469e-9687-84e7fafafd42"]
}, Open ]],
-Cell[13799099, 264308, 2257, 39, 55, "Input",ExpressionUUID->"61ba87b2-2e59-47a1-b0bf-d6d16b3fe09f"],
+Cell[14037718, 268806, 2257, 39, 55, "Input",ExpressionUUID->"61ba87b2-2e59-47a1-b0bf-d6d16b3fe09f"],
Cell[CellGroupData[{
-Cell[13801381, 264351, 6220, 122, 24, "Input",ExpressionUUID->"ee9b0b01-61b9-4003-bfdc-0d1ee60b1135"],
-Cell[13807604, 264475, 3291, 62, 27, "Output",ExpressionUUID->"453b95ee-c08d-40f6-bf0f-969f1a6371f5"]
+Cell[14040000, 268849, 6220, 122, 24, "Input",ExpressionUUID->"ee9b0b01-61b9-4003-bfdc-0d1ee60b1135"],
+Cell[14046223, 268973, 3291, 62, 27, "Output",ExpressionUUID->"453b95ee-c08d-40f6-bf0f-969f1a6371f5"]
}, Open ]],
Cell[CellGroupData[{
-Cell[13810932, 264542, 1746, 36, 71, "Input",ExpressionUUID->"a02dbf6e-d3e8-40fc-8f91-97ce44305534"],
-Cell[13812681, 264580, 17143, 317, 136, "Output",ExpressionUUID->"3d534243-6986-4c44-94c8-2cfc7b0c424b"]
+Cell[14049551, 269040, 1746, 36, 71, "Input",ExpressionUUID->"a02dbf6e-d3e8-40fc-8f91-97ce44305534"],
+Cell[14051300, 269078, 17143, 317, 136, "Output",ExpressionUUID->"3d534243-6986-4c44-94c8-2cfc7b0c424b"]
}, Open ]],
-Cell[13829839, 264900, 2305, 39, 55, "Input",ExpressionUUID->"a540f140-7178-4d36-8160-dbc454e04d20"],
+Cell[14068458, 269398, 2305, 39, 55, "Input",ExpressionUUID->"a540f140-7178-4d36-8160-dbc454e04d20"],
Cell[CellGroupData[{
-Cell[13832169, 264943, 6753, 136, 41, "Input",ExpressionUUID->"b261c61f-4733-4246-84de-d7d4c5336416"],
-Cell[13838925, 265081, 3674, 69, 27, "Output",ExpressionUUID->"e7d942d6-b5de-4cee-a451-9ff76fd7be44"]
+Cell[14070788, 269441, 6753, 136, 41, "Input",ExpressionUUID->"b261c61f-4733-4246-84de-d7d4c5336416"],
+Cell[14077544, 269579, 3674, 69, 27, "Output",ExpressionUUID->"e7d942d6-b5de-4cee-a451-9ff76fd7be44"]
}, Open ]],
Cell[CellGroupData[{
-Cell[13842636, 265155, 1798, 37, 71, "Input",ExpressionUUID->"21088011-be66-4170-baea-a33a49af9b77"],
-Cell[13844437, 265194, 17131, 315, 134, "Output",ExpressionUUID->"b0a2cefd-b899-46c0-bac8-d8cf64b08797"]
+Cell[14081255, 269653, 1798, 37, 71, "Input",ExpressionUUID->"21088011-be66-4170-baea-a33a49af9b77"],
+Cell[14083056, 269692, 17131, 315, 134, "Output",ExpressionUUID->"b0a2cefd-b899-46c0-bac8-d8cf64b08797"]
}, Open ]],
-Cell[13861583, 265512, 2356, 40, 55, "Input",ExpressionUUID->"76a3d83f-55a6-4495-92e7-d379873f8bf5"],
+Cell[14100202, 270010, 2356, 40, 55, "Input",ExpressionUUID->"76a3d83f-55a6-4495-92e7-d379873f8bf5"],
Cell[CellGroupData[{
-Cell[13863964, 265556, 6967, 140, 41, "Input",ExpressionUUID->"696865ae-6197-4bf6-8cb9-82f7027691af"],
-Cell[13870934, 265698, 3893, 74, 25, "Output",ExpressionUUID->"3f367b1b-5289-479d-8818-8d5026d34c58"]
+Cell[14102583, 270054, 6967, 140, 41, "Input",ExpressionUUID->"696865ae-6197-4bf6-8cb9-82f7027691af"],
+Cell[14109553, 270196, 3893, 74, 25, "Output",ExpressionUUID->"3f367b1b-5289-479d-8818-8d5026d34c58"]
}, Open ]],
Cell[CellGroupData[{
-Cell[13874864, 265777, 1848, 38, 71, "Input",ExpressionUUID->"951b4751-e7a7-43a9-b71d-c342b12ded79"],
-Cell[13876715, 265817, 17640, 324, 136, "Output",ExpressionUUID->"fae7dcfc-1ef8-4f13-b707-cfa52239d7f1"]
+Cell[14113483, 270275, 1848, 38, 71, "Input",ExpressionUUID->"951b4751-e7a7-43a9-b71d-c342b12ded79"],
+Cell[14115334, 270315, 17640, 324, 136, "Output",ExpressionUUID->"fae7dcfc-1ef8-4f13-b707-cfa52239d7f1"]
}, Open ]],
-Cell[13894370, 266144, 2409, 41, 55, "Input",ExpressionUUID->"babf3d02-dfd7-4a2a-bebf-4b6d434fad42"],
+Cell[14132989, 270642, 2409, 41, 55, "Input",ExpressionUUID->"babf3d02-dfd7-4a2a-bebf-4b6d434fad42"],
Cell[CellGroupData[{
-Cell[13896804, 266189, 7710, 160, 41, "Input",ExpressionUUID->"1eebb6b8-6ebb-4195-968d-534adefebd17"],
-Cell[13904517, 266351, 2581, 37, 25, "Output",ExpressionUUID->"a232f3cb-7d3e-48df-9bea-8365687d0d84"]
+Cell[14135423, 270687, 7710, 160, 41, "Input",ExpressionUUID->"1eebb6b8-6ebb-4195-968d-534adefebd17"],
+Cell[14143136, 270849, 2581, 37, 25, "Output",ExpressionUUID->"a232f3cb-7d3e-48df-9bea-8365687d0d84"]
}, Open ]],
Cell[CellGroupData[{
-Cell[13907135, 266393, 1894, 38, 71, "Input",ExpressionUUID->"5f407b76-03f3-4ff1-9355-39b331e313a3"],
-Cell[13909032, 266433, 16747, 309, 133, "Output",ExpressionUUID->"4a129c0e-ffcf-454d-816b-8135e08398e6"]
+Cell[14145754, 270891, 1894, 38, 71, "Input",ExpressionUUID->"5f407b76-03f3-4ff1-9355-39b331e313a3"],
+Cell[14147651, 270931, 16747, 309, 133, "Output",ExpressionUUID->"4a129c0e-ffcf-454d-816b-8135e08398e6"]
}, Open ]],
Cell[CellGroupData[{
-Cell[13925816, 266747, 433, 11, 22, "Input",ExpressionUUID->"9fd0d7b3-723a-4745-a726-9fdf2b39fba7"],
-Cell[13926252, 266760, 6817, 169, 177, "Output",ExpressionUUID->"3836ef38-db47-4901-969b-83ab058c6814"]
+Cell[14164435, 271245, 433, 11, 22, "Input",ExpressionUUID->"9fd0d7b3-723a-4745-a726-9fdf2b39fba7"],
+Cell[14164871, 271258, 6817, 169, 177, "Output",ExpressionUUID->"3836ef38-db47-4901-969b-83ab058c6814"]
}, Open ]],
Cell[CellGroupData[{
-Cell[13933106, 266934, 1672, 45, 40, "Input",ExpressionUUID->"5efa30c9-1db0-40a0-87cf-7301139f0c0b"],
-Cell[13934781, 266981, 511, 11, 22, "Message",ExpressionUUID->"5e534b6c-3426-4b66-b043-f88446d6a122"],
-Cell[13935295, 266994, 511, 11, 22, "Message",ExpressionUUID->"e70fcd6d-bb67-4d9b-b064-21ec130c3c66"],
-Cell[13935809, 267007, 513, 11, 22, "Message",ExpressionUUID->"8cd3b1c6-f9d4-4d4e-a1b5-f963475c50a9"],
-Cell[13936325, 267020, 478, 10, 22, "Message",ExpressionUUID->"fa8219e9-df11-4a4f-9749-d019df690a87"]
+Cell[14171725, 271432, 1672, 45, 40, "Input",ExpressionUUID->"5efa30c9-1db0-40a0-87cf-7301139f0c0b"],
+Cell[14173400, 271479, 511, 11, 22, "Message",ExpressionUUID->"5e534b6c-3426-4b66-b043-f88446d6a122"],
+Cell[14173914, 271492, 511, 11, 22, "Message",ExpressionUUID->"e70fcd6d-bb67-4d9b-b064-21ec130c3c66"],
+Cell[14174428, 271505, 513, 11, 22, "Message",ExpressionUUID->"8cd3b1c6-f9d4-4d4e-a1b5-f963475c50a9"],
+Cell[14174944, 271518, 478, 10, 22, "Message",ExpressionUUID->"fa8219e9-df11-4a4f-9749-d019df690a87"]
}, Open ]],
-Cell[13936818, 267033, 3187, 80, 24, "Input",ExpressionUUID->"8de9aa7e-dcc9-467a-a151-01458ed626a9"],
-Cell[13940008, 267115, 4180, 103, 24, "Input",ExpressionUUID->"2469b932-43c7-40fe-b6b2-09a5426f4cd8"],
-Cell[13944191, 267220, 5400, 131, 75, "Input",ExpressionUUID->"646dce3a-6abe-45cc-ad68-957f0e7b5df0"],
+Cell[14175437, 271531, 3187, 80, 24, "Input",ExpressionUUID->"8de9aa7e-dcc9-467a-a151-01458ed626a9"],
+Cell[14178627, 271613, 4180, 103, 24, "Input",ExpressionUUID->"2469b932-43c7-40fe-b6b2-09a5426f4cd8"],
+Cell[14182810, 271718, 5400, 131, 75, "Input",ExpressionUUID->"646dce3a-6abe-45cc-ad68-957f0e7b5df0"],
Cell[CellGroupData[{
-Cell[13949616, 267355, 1359, 27, 24, "Input",ExpressionUUID->"75736ccc-3184-41e4-ad91-58ec0e7d18e0"],
-Cell[13950978, 267384, 488773, 8032, 182, "Output",ExpressionUUID->"383df247-9bb0-4186-a605-f482a5332428"]
+Cell[14188235, 271853, 1359, 27, 24, "Input",ExpressionUUID->"75736ccc-3184-41e4-ad91-58ec0e7d18e0"],
+Cell[14189597, 271882, 488773, 8032, 182, "Output",ExpressionUUID->"383df247-9bb0-4186-a605-f482a5332428"]
}, Open ]],
Cell[CellGroupData[{
-Cell[14439788, 275421, 663, 15, 24, "Input",ExpressionUUID->"a80f3ed2-25ba-4135-a260-cfaa56bd029f"],
-Cell[14440454, 275438, 10088, 182, 178, "Output",ExpressionUUID->"00b7e598-14de-436a-909a-4cbaeca28f2a"]
+Cell[14678407, 279919, 663, 15, 24, "Input",ExpressionUUID->"a80f3ed2-25ba-4135-a260-cfaa56bd029f"],
+Cell[14679073, 279936, 10088, 182, 178, "Output",ExpressionUUID->"00b7e598-14de-436a-909a-4cbaeca28f2a"]
}, Open ]],
Cell[CellGroupData[{
-Cell[14450579, 275625, 1607, 25, 24, "Input",ExpressionUUID->"4b799eb5-3e65-4794-974e-5a939ba66bcb"],
-Cell[14452189, 275652, 27041, 593, 179, "Output",ExpressionUUID->"885bd9d7-e4d4-44ca-95e0-dd4b508d7365"]
+Cell[14689198, 280123, 1607, 25, 24, "Input",ExpressionUUID->"4b799eb5-3e65-4794-974e-5a939ba66bcb"],
+Cell[14690808, 280150, 27041, 593, 179, "Output",ExpressionUUID->"885bd9d7-e4d4-44ca-95e0-dd4b508d7365"]
}, Open ]],
-Cell[14479245, 276248, 1994, 35, 55, "Input",ExpressionUUID->"ec2aa747-d224-4d09-9f95-4d6e808d9847"],
+Cell[14717864, 280746, 1994, 35, 55, "Input",ExpressionUUID->"ec2aa747-d224-4d09-9f95-4d6e808d9847"],
Cell[CellGroupData[{
-Cell[14481264, 276287, 6104, 123, 41, "Input",ExpressionUUID->"99556b93-887d-4e28-b5f1-4971668c7f14"],
-Cell[14487371, 276412, 599, 12, 22, "Message",ExpressionUUID->"1b40ccaa-2835-493c-a7e5-216847235f9a"],
-Cell[14487973, 276426, 3201, 61, 27, "Output",ExpressionUUID->"8b3767ad-c5e3-48ba-82d0-1c52a869df6f"]
+Cell[14719883, 280785, 6104, 123, 41, "Input",ExpressionUUID->"99556b93-887d-4e28-b5f1-4971668c7f14"],
+Cell[14725990, 280910, 599, 12, 22, "Message",ExpressionUUID->"1b40ccaa-2835-493c-a7e5-216847235f9a"],
+Cell[14726592, 280924, 3201, 61, 27, "Output",ExpressionUUID->"8b3767ad-c5e3-48ba-82d0-1c52a869df6f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[14491211, 276492, 1705, 36, 71, "Input",ExpressionUUID->"839256a8-d803-4ae9-add8-b09560473faa"],
-Cell[14492919, 276530, 18192, 331, 135, "Output",ExpressionUUID->"c7885b54-938e-4cb0-a8e9-37a1c922529c"]
+Cell[14729830, 280990, 1705, 36, 71, "Input",ExpressionUUID->"839256a8-d803-4ae9-add8-b09560473faa"],
+Cell[14731538, 281028, 18192, 331, 135, "Output",ExpressionUUID->"c7885b54-938e-4cb0-a8e9-37a1c922529c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[14511148, 276866, 336, 9, 22, "Input",ExpressionUUID->"87bf3c10-aa32-45f8-9d97-5d82421cc560"],
-Cell[14511487, 276877, 5691, 143, 177, "Output",ExpressionUUID->"47c8d510-5692-4ef0-98da-fab1ffe5d797"]
+Cell[14749767, 281364, 336, 9, 22, "Input",ExpressionUUID->"87bf3c10-aa32-45f8-9d97-5d82421cc560"],
+Cell[14750106, 281375, 5691, 143, 177, "Output",ExpressionUUID->"47c8d510-5692-4ef0-98da-fab1ffe5d797"]
}, Open ]],
-Cell[14517193, 277023, 2089, 36, 55, "Input",ExpressionUUID->"51813a13-5909-4664-9338-ffd80c7cc074"],
+Cell[14755812, 281521, 2089, 36, 55, "Input",ExpressionUUID->"51813a13-5909-4664-9338-ffd80c7cc074"],
Cell[CellGroupData[{
-Cell[14519307, 277063, 6598, 135, 41, "Input",ExpressionUUID->"c1fff837-d7cf-415b-9e16-5b61936973ca"],
-Cell[14525908, 277200, 3462, 68, 27, "Output",ExpressionUUID->"398b730e-ac67-4206-aa79-b7f63452db24"]
+Cell[14757926, 281561, 6598, 135, 41, "Input",ExpressionUUID->"c1fff837-d7cf-415b-9e16-5b61936973ca"],
+Cell[14764527, 281698, 3462, 68, 27, "Output",ExpressionUUID->"398b730e-ac67-4206-aa79-b7f63452db24"]
}, Open ]],
Cell[CellGroupData[{
-Cell[14529407, 277273, 1755, 37, 71, "Input",ExpressionUUID->"d23aa627-f42a-4c0e-a95e-f3c91b885b83"],
-Cell[14531165, 277312, 17980, 327, 135, "Output",ExpressionUUID->"e4310b74-c401-4adb-ad1d-ad463508fd10"]
+Cell[14768026, 281771, 1755, 37, 71, "Input",ExpressionUUID->"d23aa627-f42a-4c0e-a95e-f3c91b885b83"],
+Cell[14769784, 281810, 17980, 327, 135, "Output",ExpressionUUID->"e4310b74-c401-4adb-ad1d-ad463508fd10"]
}, Open ]],
Cell[CellGroupData[{
-Cell[14549182, 277644, 384, 10, 22, "Input",ExpressionUUID->"4411a886-15ff-471f-b5de-d2d39484188f"],
-Cell[14549569, 277656, 5952, 149, 177, "Output",ExpressionUUID->"4d6151ce-f884-4d79-985f-bdb1f82642a6"]
+Cell[14787801, 282142, 384, 10, 22, "Input",ExpressionUUID->"4411a886-15ff-471f-b5de-d2d39484188f"],
+Cell[14788188, 282154, 5952, 149, 177, "Output",ExpressionUUID->"4d6151ce-f884-4d79-985f-bdb1f82642a6"]
}, Open ]],
-Cell[14555536, 277808, 2143, 37, 55, "Input",ExpressionUUID->"958eb5bc-5ccc-4909-8ead-78cd504f0177"],
+Cell[14794155, 282306, 2143, 37, 55, "Input",ExpressionUUID->"958eb5bc-5ccc-4909-8ead-78cd504f0177"],
Cell[CellGroupData[{
-Cell[14557704, 277849, 7704, 168, 41, "Input",ExpressionUUID->"d3df9a1e-0315-420f-b74a-67166024b8d9"],
-Cell[14565411, 278019, 3873, 76, 44, "Output",ExpressionUUID->"fba60491-8cb8-456f-9d65-cca9fae53c19"]
+Cell[14796323, 282347, 7704, 168, 41, "Input",ExpressionUUID->"d3df9a1e-0315-420f-b74a-67166024b8d9"],
+Cell[14804030, 282517, 3873, 76, 44, "Output",ExpressionUUID->"fba60491-8cb8-456f-9d65-cca9fae53c19"]
}, Open ]],
Cell[CellGroupData[{
-Cell[14569321, 278100, 1805, 38, 71, "Input",ExpressionUUID->"24fe223a-5522-459b-9f8e-a98e4eb55edd"],
-Cell[14571129, 278140, 17885, 326, 136, "Output",ExpressionUUID->"b40cbf52-daa0-4273-a072-74a74bbf3abd"]
+Cell[14807940, 282598, 1805, 38, 71, "Input",ExpressionUUID->"24fe223a-5522-459b-9f8e-a98e4eb55edd"],
+Cell[14809748, 282638, 17885, 326, 136, "Output",ExpressionUUID->"b40cbf52-daa0-4273-a072-74a74bbf3abd"]
}, Open ]],
Cell[CellGroupData[{
-Cell[14589051, 278471, 434, 11, 22, "Input",ExpressionUUID->"a7504f21-1f0b-481e-b618-8f74ffea620f"],
-Cell[14589488, 278484, 5661, 140, 180, "Output",ExpressionUUID->"84f42aad-4959-46e3-9401-798352eb23af"]
+Cell[14827670, 282969, 434, 11, 22, "Input",ExpressionUUID->"a7504f21-1f0b-481e-b618-8f74ffea620f"],
+Cell[14828107, 282982, 5661, 140, 180, "Output",ExpressionUUID->"84f42aad-4959-46e3-9401-798352eb23af"]
}, Open ]],
-Cell[14595164, 278627, 2143, 37, 55, "Input",ExpressionUUID->"1e380866-ca84-40f5-a111-1332998088fd"],
+Cell[14833783, 283125, 2143, 37, 55, "Input",ExpressionUUID->"1e380866-ca84-40f5-a111-1332998088fd"],
Cell[CellGroupData[{
-Cell[14597332, 278668, 7833, 169, 41, "Input",ExpressionUUID->"78ab0d52-7eb3-41bc-8733-cec2b17f6a2e"],
-Cell[14605168, 278839, 2018, 33, 22, "Message",ExpressionUUID->"163ef88d-0f11-45b2-b0d4-ec761d848a5d"],
-Cell[14607189, 278874, 4286, 85, 44, "Output",ExpressionUUID->"30cbc1a9-96de-4fe7-b805-129c95e8cd2d"]
+Cell[14835951, 283166, 7833, 169, 41, "Input",ExpressionUUID->"78ab0d52-7eb3-41bc-8733-cec2b17f6a2e"],
+Cell[14843787, 283337, 2018, 33, 22, "Message",ExpressionUUID->"163ef88d-0f11-45b2-b0d4-ec761d848a5d"],
+Cell[14845808, 283372, 4286, 85, 44, "Output",ExpressionUUID->"30cbc1a9-96de-4fe7-b805-129c95e8cd2d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[14611512, 278964, 1853, 38, 71, "Input",ExpressionUUID->"44ea1a51-4a8b-432c-8e54-2e3185867856"],
-Cell[14613368, 279004, 17826, 324, 138, "Output",ExpressionUUID->"8d625824-7fb2-43df-be92-8ed403ac118a"]
+Cell[14850131, 283462, 1853, 38, 71, "Input",ExpressionUUID->"44ea1a51-4a8b-432c-8e54-2e3185867856"],
+Cell[14851987, 283502, 17826, 324, 138, "Output",ExpressionUUID->"8d625824-7fb2-43df-be92-8ed403ac118a"]
}, Open ]],
Cell[CellGroupData[{
-Cell[14631231, 279333, 480, 11, 22, "Input",ExpressionUUID->"aa29406b-8c3f-4290-9a5c-4f09ea21554e"],
-Cell[14631714, 279346, 7596, 187, 177, "Output",ExpressionUUID->"7103c19c-f184-4cce-8f18-9df2656851ec"]
+Cell[14869850, 283831, 480, 11, 22, "Input",ExpressionUUID->"aa29406b-8c3f-4290-9a5c-4f09ea21554e"],
+Cell[14870333, 283844, 7596, 187, 177, "Output",ExpressionUUID->"7103c19c-f184-4cce-8f18-9df2656851ec"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
-Cell[14639359, 279539, 165, 3, 40, "Section",ExpressionUUID->"747c9bc3-63ef-45c3-af83-bc456177b1c8"],
-Cell[14639527, 279544, 800, 21, 40, "Input",ExpressionUUID->"ebc19a92-5a4d-4254-8fad-8cadbfa1bd32"],
+Cell[14877978, 284037, 165, 3, 40, "Section",ExpressionUUID->"747c9bc3-63ef-45c3-af83-bc456177b1c8"],
+Cell[14878146, 284042, 800, 21, 40, "Input",ExpressionUUID->"ebc19a92-5a4d-4254-8fad-8cadbfa1bd32"],
Cell[CellGroupData[{
-Cell[14640352, 279569, 886, 24, 24, "Input",ExpressionUUID->"f224ec13-7431-41d4-919e-0ad10e8ff5b2"],
-Cell[14641241, 279595, 299, 6, 25, "Output",ExpressionUUID->"5043975f-bf54-4984-bf97-09e0c59f4acf"]
+Cell[14878971, 284067, 886, 24, 24, "Input",ExpressionUUID->"f224ec13-7431-41d4-919e-0ad10e8ff5b2"],
+Cell[14879860, 284093, 299, 6, 25, "Output",ExpressionUUID->"5043975f-bf54-4984-bf97-09e0c59f4acf"]
}, Open ]],
Cell[CellGroupData[{
-Cell[14641577, 279606, 1529, 43, 24, "Input",ExpressionUUID->"bdb2aaf8-6c60-4fd6-b0aa-d74503ebfe5d"],
-Cell[14643109, 279651, 216, 4, 39, "Output",ExpressionUUID->"672f3cb6-b559-424b-b6e9-dff18bdab931"]
+Cell[14880196, 284104, 1529, 43, 24, "Input",ExpressionUUID->"bdb2aaf8-6c60-4fd6-b0aa-d74503ebfe5d"],
+Cell[14881728, 284149, 216, 4, 39, "Output",ExpressionUUID->"672f3cb6-b559-424b-b6e9-dff18bdab931"]
}, Open ]],
Cell[CellGroupData[{
-Cell[14643362, 279660, 2328, 62, 24, "Input",ExpressionUUID->"9581e610-c27e-4ccd-9de0-7344556f685a"],
-Cell[14645693, 279724, 584, 12, 22, "Message",ExpressionUUID->"926f5636-f494-4b80-9e0f-998a05d07881"],
-Cell[14646280, 279738, 420, 8, 25, "Output",ExpressionUUID->"3c60fc73-ad7e-4b33-a3eb-fdc35776a150"]
+Cell[14881981, 284158, 2328, 62, 24, "Input",ExpressionUUID->"9581e610-c27e-4ccd-9de0-7344556f685a"],
+Cell[14884312, 284222, 584, 12, 22, "Message",ExpressionUUID->"926f5636-f494-4b80-9e0f-998a05d07881"],
+Cell[14884899, 284236, 420, 8, 25, "Output",ExpressionUUID->"3c60fc73-ad7e-4b33-a3eb-fdc35776a150"]
}, Open ]],
-Cell[14646715, 279749, 1234, 32, 24, "Input",ExpressionUUID->"3a793a2c-1a2c-433a-873f-55e7861acacf"],
+Cell[14885334, 284247, 1234, 32, 24, "Input",ExpressionUUID->"3a793a2c-1a2c-433a-873f-55e7861acacf"],
Cell[CellGroupData[{
-Cell[14647974, 279785, 379, 9, 24, "Input",ExpressionUUID->"6a4616ab-41e4-44cc-8806-ee9851e65934"],
-Cell[14648356, 279796, 21750, 374, 177, "Output",ExpressionUUID->"7ae541cc-49f0-4346-9e8f-3995505a8e9f"]
+Cell[14886593, 284283, 379, 9, 24, "Input",ExpressionUUID->"6a4616ab-41e4-44cc-8806-ee9851e65934"],
+Cell[14886975, 284294, 21750, 374, 177, "Output",ExpressionUUID->"7ae541cc-49f0-4346-9e8f-3995505a8e9f"]
}, Open ]],
-Cell[14670121, 280173, 2535, 66, 24, "Input",ExpressionUUID->"02eee1a8-8fdf-4ef6-8fa3-737b3067106e"],
+Cell[14908740, 284671, 2535, 66, 24, "Input",ExpressionUUID->"02eee1a8-8fdf-4ef6-8fa3-737b3067106e"],
Cell[CellGroupData[{
-Cell[14672681, 280243, 491, 10, 24, "Input",ExpressionUUID->"8858ddfc-1e71-4778-a0b8-512abba3d901"],
-Cell[14673175, 280255, 22737, 390, 179, "Output",ExpressionUUID->"3a7e88f8-603a-4c66-8a1b-065c43aff3cd"]
+Cell[14911300, 284741, 491, 10, 24, "Input",ExpressionUUID->"8858ddfc-1e71-4778-a0b8-512abba3d901"],
+Cell[14911794, 284753, 22737, 390, 179, "Output",ExpressionUUID->"3a7e88f8-603a-4c66-8a1b-065c43aff3cd"]
}, Open ]],
-Cell[14695927, 280648, 3849, 95, 24, "Input",ExpressionUUID->"954f68de-17bb-4b28-b089-18f4c1840d53"],
+Cell[14934546, 285146, 3849, 95, 24, "Input",ExpressionUUID->"954f68de-17bb-4b28-b089-18f4c1840d53"],
Cell[CellGroupData[{
-Cell[14699801, 280747, 448, 10, 24, "Input",ExpressionUUID->"fd8d9fbd-6567-43cc-a4dc-4c986b02e466"],
-Cell[14700252, 280759, 26854, 485, 178, "Output",ExpressionUUID->"b7f39439-0c1d-40f8-af40-5fed6fd931de"],
-Cell[14727109, 281246, 175, 3, 25, "Output",ExpressionUUID->"2b7f8ec2-0126-4787-92e3-a6d9dd600de2"]
+Cell[14938420, 285245, 448, 10, 24, "Input",ExpressionUUID->"fd8d9fbd-6567-43cc-a4dc-4c986b02e466"],
+Cell[14938871, 285257, 26854, 485, 178, "Output",ExpressionUUID->"b7f39439-0c1d-40f8-af40-5fed6fd931de"],
+Cell[14965728, 285744, 175, 3, 25, "Output",ExpressionUUID->"2b7f8ec2-0126-4787-92e3-a6d9dd600de2"]
}, Open ]]
}, Closed]]
}
diff --git a/schofield-mult.wl b/schofield-mult.wl
new file mode 100644
index 0000000..330e451
--- /dev/null
+++ b/schofield-mult.wl
@@ -0,0 +1,176 @@
+
+BeginPackage["Schofield`"]
+
+$Assumptions = {θc > 0, θc > 1, gC[_] ∈ Reals, B > 0, γ > 0, ξ0 > 0}
+
+β[D_:2] := Piecewise[
+ {
+ {1/8, D == 2},
+ {0.326419, D == 3},
+ {1/2, D == 4},
+ {β, True}
+ }
+]
+
+δ[D_:2] := Piecewise[
+ {
+ {15, D == 2},
+ {4.78984, D == 3},
+ {3, D == 4},
+ {δ, True}
+ }
+]
+
+α[D_:2] := Piecewise[
+ {
+ {0, D == 2},
+ {0.11008, D == 3},
+ {0, D == 4},
+ {α, True}
+ }
+]
+
+Δ[D_:2] := β[D] δ[D]
+
+OverBar[s] := 1.357838341706595496
+
+t[θ_] := ((θ)^2 - 1)
+h[n_][θ_] := (1 - (θ/θc)^2) Sum[gC[i]LegendreP[(2 * i + 1), θ/θc], {i, 0, n}]
+η[g_][θ_] := t[θ] / (g[θ] / I)^(1 / Δ[2])
+
+RFLow[B_, θc_][θ_] := (1/\[Pi])(2 E^(1/(
+ B \[Theta]c)) \[Theta]c ExpIntegralEi[-(1/(B \[Theta]c))] +
+ E^(1/(B (-\[Theta] + \[Theta]c))) (\[Theta] - \[Theta]c) \
+ExpIntegralEi[1/(B \[Theta] - B \[Theta]c)] -
+ E^(1/(B \[Theta] +
+ B \[Theta]c)) (\[Theta] + \[Theta]c) ExpIntegralEi[-(1/(
+ B \[Theta] + B \[Theta]c))])
+RFHigh[ξ0_][ξ_] := (ξ^2+ξ0^2)^(5/6)
+
+RF[n_][θ_] := AL RFLow[B, θc][θ] RFHigh[θ0][θ] + Sum[A[i] LegendreP[(2 i), θ/θc] , {i, 1, n}]
+RFReg[n_][θ_] := AL RFHigh[θ0][θ] (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))]) + Sum[A[i] LegendreP[(2 i), θ/θc], {i, 1, n}]
+dRFc[n_][m_] := AL m! Sum[Piecewise[{{ Gamma[j - 1] B^(j - 1) / π, j>1}, {0, True}}] (D[RFHigh[θ0][θ], {θ, m - j}] / (m - j)! /. θ -> θc), {j, 0, m}] + 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
+ruleAL[g_] := AL RFHigh[θ0][θc] + t[θc]^2 OverBar[s] / (2 π) * (- g'[θc] / t[θc]^Δ[2])
+ruleAH[g_] := AL Re[RFLow[B, θc][θ0 I]]+ 1.37 * (g[I θ0]/ I)^(2 / Δ[2]) * (-η[g]'[I θ0] / (2 θ0 I))^(5/6)
+
+eqLowRHSReg[n_][m_] := dRFc[n][m]
+
+eqLowLHS[h_][m_] :=D[
+ t[θ]^2 (Gl[h[θ] t[θ]^-Δ[2]] + Log[t[θ]^2]/(8 π)),
+ {θ, m} ] /. θ -> θc
+
+eqLow[n_, h_][m_] := (eqLowRHSReg[n][m] - eqLowLHS[h][m]) / m!
+
+eqHighRHS[F_][m_] := D[F[θ], {θ, m} ] /. θ -> 0
+
+eqHighLHS[h_][m_] := D[(-t[θ])^2 (Gh[h[θ] (-t[θ])^-Δ[2]] + Log[(-t[θ])^2]/(8 π)), {θ, m} ] /. θ -> 0
+
+eqHigh[n_, h_][m_] := (eqHighRHS[RF[n]][m] - eqHighLHS[h][m]) / m!
+
+eqMid[F_, h_][m_] := D[
+ F[θ] - t[θ]^2 Log[h[θ]^2]/(8 Δ[2]π) - h[θ]^((2-α[2])/Δ[2]) Φ[η]
+ /. η -> t[θ] / h[θ]^(1 / Δ[2]),
+ {θ, m} ] / m! /. θ -> 1
+
+δ0 = 10^(-14);
+
+Φs = {
+ -1.197733383797993,
+ -0.318810124891,
+ 0.110886196683,
+ 0.01642689465,
+ -2.639978 10^-4,
+ -5.140526 10^-4,
+ 2.08856 10^-4,
+ -4.4819 10^-5,
+ 3.16 10^-7,
+ 4.31 10^-6,
+ -1.99 10^-6
+}
+
+Gls = {
+ Around[0, δ0],
+ Around[-OverBar[s], δ0],
+ Around[−0.048953289720, 2 10^(-12)],
+ Around[ 0.0388639290, 1 10^(-10)],
+ Around[-0.068362121, 1 10^(-9)],
+ Around[ 0.18388371, 1 10^(-8)],
+ Around[-0.659170, 1 10^(-6)],
+ Around[ 2.937665, 3 10^(-6)],
+ Around[-15.61, 10^(-2)],
+ 96.76,
+ -6.79 10^2,
+ 5.34 10^3,
+ -4.66 10^4,
+ 4.46 10^5,
+ -4.66 10^6
+}
+
+Ghs = {
+ Around[0, δ0],
+ Around[0, δ0],
+ Around[ -1.84522807823, 10^(-11)],
+ Around[0, δ0],
+ Around[ 8.3337117508, 10^(-10)],
+ Around[0, δ0],
+ Around[-95.16897, 10^(-5)],
+ Around[0, δ0],
+ Around[1457.62, 3 10^(-2)],
+ 0,
+ Around[-2.5891 10^4, 2],
+ 0,
+ 5.02 10^5,
+ 0,
+ -1.04 10^7
+}
+
+dRule[sym_][f_, i_] := Derivative[i[[1]] - 1][sym][0] -> f (i[[1]] - 1)!
+
+ΦRules = MapIndexed[dRule[Φ], Φs];
+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*)
+
+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[2, 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])]
+chiSquaredHigh[n_, g_][m_] := Total[(((#[[1]] /. rules)["Value"] - #[[2]])^2 / (#[[1]] /. rules)["Uncertainty"]^2)& /@ ({Ghs[[#+1]], dFdξHigh[n, g][#] / #!} & /@ Range[0, m])]
+chiSquared[F_, g_][m_] := chiSquaredLow[F, g][m] + chiSquaredHigh[F, g][m] + ruleB[g]^2 / δ0^2 + ruleθ0[g]^2 / 0.00005^2
+
+newSol[eqs_, oldSol_, newVars_, δ_:0, γ_:0, opts___] := FindRoot[
+ eqs,
+ Join[
+ {#1, #2 + γ * RandomVariate[NormalDistribution[]]} & @@@ (oldSol /. Rule -> List),
+ Thread[{newVars, δ * RandomVariate[NormalDistribution[], Length[newVars]]}]
+ ],
+ MaxIterations -> 50000,
+ opts
+]
+
+EndPackage[]
+
diff --git a/schofield.wl b/schofield.wl
index f9bae8d..83cf6ac 100644
--- a/schofield.wl
+++ b/schofield.wl
@@ -36,6 +36,7 @@ OverBar[s] := 1.357838341706595496
t[θ_] := ((θ)^2 - 1)
h[n_][θ_] := (1 - (θ/θc)^2) Sum[gC[i]LegendreP[(2 * i + 1), θ/θc], {i, 0, n}]
+η[g_][θ_] := t[θ] / (g[θ] / I)^(1 / Δ[2])
RFLow[B_, θc_][θ_] := (1/\[Pi])(2 E^(1/(
B \[Theta]c)) \[Theta]c ExpIntegralEi[-(1/(B \[Theta]c))] +
@@ -67,7 +68,8 @@ dFdηList[n_, h_][m_][tt_] := Module[{ff, hh}, NestList[ddη[hh], h[θ]^(-2 / Δ
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
-ruleAL[g_] := AL + t[θc]^2 OverBar[s] / (2 π) * (- g'[θc] / t[θc]^Δ[2])
+ruleAL[g_] := AL - Exp[Δ[2] t[θc]^(Δ[2] - 1) t'[θc] / (2 OverBar[s] / π g'[θc]) - t[θc]^Δ[2] g''[θc] / (4 OverBar[s] / π g'[θc]^2)] t[θc]^(1/8) OverBar[s] / (2 π) * g'[θc]
+ruleAH[g_] := AH + 1.37 * (g[I θ0]/ I)^(2 / Δ[2]) * (-η[g]'[I θ0] / (2 θ0 I))^(5/6)
eqLowRHSReg[n_][m_] := dRFc[n][m]
@@ -91,8 +93,8 @@ eqMid[F_, h_][m_] := D[
δ0 = 10^(-14);
Φs = {
- -1.197733383797993,
- -0.318810124891,
+ -1.19773338379799339,
+ -0.31881012489061,
0.110886196683,
0.01642689465,
-2.639978 10^-4,
@@ -106,8 +108,8 @@ eqMid[F_, h_][m_] := D[
Gls = {
Around[0, δ0],
- Around[-OverBar[s], δ0],
- Around[−0.048953289720, 2 10^(-12)],
+ -OverBar[s],
+ −0.0489532897203,
Around[ 0.0388639290, 1 10^(-10)],
Around[-0.068362121, 1 10^(-9)],
Around[ 0.18388371, 1 10^(-8)],
@@ -125,7 +127,7 @@ Gls = {
Ghs = {
Around[0, δ0],
Around[0, δ0],
- Around[ -1.84522807823, 10^(-11)],
+ -1.845228078232838,
Around[0, δ0],
Around[ 8.3337117508, 10^(-10)],
Around[0, δ0],
@@ -153,7 +155,7 @@ rules := Join[ΦRules, GlRules, GhRules]
tC[0] := 1
(*gC[0] := 1*)
-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
+eq[n_, g_][m_, p_, q_] := Flatten[Join[{ruleB[g], ruleθ0[g], g'[0] - 1, ruleAH[g], ruleAL[g]}, 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])]
@@ -166,7 +168,7 @@ newSol[eqs_, oldSol_, newVars_, δ_:0, γ_:0, opts___] := FindRoot[
{#1, #2 + γ * RandomVariate[NormalDistribution[]]} & @@@ (oldSol /. Rule -> List),
Thread[{newVars, δ * RandomVariate[NormalDistribution[], Length[newVars]]}]
],
- MaxIterations -> 50000,
+ MaxIterations -> 500,
opts
]