From 11fab12f99701c8207e509a86f3e898f7411880d Mon Sep 17 00:00:00 2001 From: Jaron Kent-Dobias Date: Thu, 2 Sep 2021 18:22:57 +0200 Subject: Fixed many errors. --- new_schofield.nb | 9054 ++++++++++++++++++++++++++++++++++++++++------------- schofield-mult.wl | 176 ++ schofield.wl | 18 +- 3 files changed, 6993 insertions(+), 2255 deletions(-) create mode 100644 schofield-mult.wl 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}}]}}, + 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[{{8., 9.602775387951214}, {8., 9.60277640917097}}], - LineBox[{{8., 9.60277640917097}, {8., 9.602777430389681}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{9., 13.351873817000742`}, {9., 13.352514637272591`}}], - LineBox[{{9., 13.352514637272591`}, {9., 13.35315504715679}}]}}, + 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,44 +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., - 1.}}, {0., 0.}}]}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{ - GeometricTransformationBox[ - LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], - GeometricTransformationBox[ - LineBox[{{{4., -1.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., - 1.}}, {0., 0.}}]}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{ - 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[{{{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], @@ -143224,13 +143907,13 @@ 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., + 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], @@ -143238,13 +143921,13 @@ Cell[BoxData[ 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., + 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], @@ -143252,45 +143935,30 @@ Cell[BoxData[ 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[{ @@ -143474,261 +144159,2878 @@ Cell[BoxData[ RowBox[{"untilSuccess", "[", RowBox[{"newSol", "[", RowBox[{"eq2", ",", "sol1", ",", - RowBox[{"{", - RowBox[{"gC", "[", "1", "]"}], "}"}], ",", - SuperscriptBox["10", - RowBox[{"-", "1"}]]}], "]"}], "]"}]}]], "Input", - CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, { - 3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9, - 3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, { - 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, { - 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9, - 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, { - 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9, - 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, { - 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9, - 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, { - 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9, - 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, { - 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9, - 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, { - 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9, - 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, { - 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9, - 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, { - 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9, - 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9, - 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, { - 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9, - 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, { - 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9, - 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, { - 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9, - 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, { - 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9, - 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, { - 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9, - 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, { - 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9, - 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, { - 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9, - 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9}, - 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, { - 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9, - 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, { - 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9, - 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, { - 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9, - 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, { - 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9, - 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, { - 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9, - 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, { - 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9, - 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, { - 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9, - 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, { - 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9, - 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, { - 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9, - 3.8260074763785057`*^9}, {3.8260077526573877`*^9, - 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, { - 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9, - 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, { - 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9, - 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, { - 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9, - 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, { - 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, { - 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9, - 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, { - 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9, - 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, { - 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9, - 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, { - 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9, - 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, { - 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9, - 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, { - 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9, - 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9, - 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9, - 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9, - 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, { - 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9, - 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9, - 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, { - 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, { - 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9, - 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9, - 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, { - 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9, - 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, { - 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9, - 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, { - 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9, - 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, { - 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9, - 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, { - 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9, - 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, { - 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9, - 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, { - 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9, - 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, { - 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9, - 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9}, - 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9, - 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, { - 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9, - 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, { - 3.829214031268794*^9, 3.829214040157639*^9}, {3.829216649212429*^9, - 3.829216713844104*^9}, {3.829217366544965*^9, 3.829217390512424*^9}, { - 3.829217616820653*^9, 3.829217618716579*^9}, {3.829217913075171*^9, - 3.829217913281975*^9}, {3.8292180058278713`*^9, 3.829218006499639*^9}, { - 3.829218169279408*^9, 3.829218169886425*^9}, {3.829218249408503*^9, - 3.8292182527599*^9}, {3.829218332601268*^9, 3.8292183344651337`*^9}, { - 3.829219312835874*^9, 3.8292193133627453`*^9}, {3.829219381116323*^9, - 3.829219381796111*^9}, {3.829368037970189*^9, 3.829368046808629*^9}, { - 3.829368163195677*^9, 3.829368164218666*^9}, {3.829368508025868*^9, - 3.829368523322445*^9}, {3.8293689509698563`*^9, 3.829368952969119*^9}, { - 3.829369079419671*^9, 3.829369080659419*^9}, {3.82937076952973*^9, - 3.829370770201521*^9}, {3.829371098735732*^9, 3.829371101471711*^9}, { - 3.829371152593144*^9, 3.8293711527685347`*^9}, {3.831201413684575*^9, - 3.8312014148739243`*^9}, {3.8312015445811357`*^9, 3.831201544772146*^9}}, - CellLabel->"In[56]:=",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[{ - RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.1418878210051213`"}], ",", - RowBox[{"AL", "\[Rule]", - RowBox[{"-", "0.12940215541369193`"}]}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.4608907356655503`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.05312377057795`"}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.931491249427599`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2064255192939165`"}], ",", - 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"] -}, Open ]], - -Cell[BoxData[{ - RowBox[{ - RowBox[{"n3", "=", "2"}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"F3", "=", - RowBox[{"RF", "[", "n3", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"h3", "=", - RowBox[{"h", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"eq3", "=", - RowBox[{ - RowBox[{"eq", "[", - RowBox[{"n3", ",", "h3"}], "]"}], "[", - RowBox[{"5", ",", - RowBox[{"-", "1"}], ",", "4"}], "]"}]}], ";"}]}], "Input", - CellChangeTimes->{ - 3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, { - 3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9, - 3.817564534320574*^9}, {3.81756485534698*^9, 3.817564862343175*^9}, { - 3.817564919676697*^9, 3.8175649235785027`*^9}, {3.817565106996109*^9, - 3.8175651474217367`*^9}, {3.8175652415905113`*^9, 3.817565250029232*^9}, { - 3.8175657444559927`*^9, 3.8175657689660788`*^9}, 3.8175669120549498`*^9, { - 3.8175677716518087`*^9, 3.817567773706285*^9}, {3.817579700926876*^9, - 3.817579701354711*^9}, {3.8175810533593073`*^9, 3.817581114447541*^9}, { - 3.817581149854197*^9, 3.8175811499220247`*^9}, {3.817581265163169*^9, - 3.81758126542041*^9}, {3.81758144220247*^9, 3.8175814490334673`*^9}, { - 3.8175815152710047`*^9, 3.817581521148234*^9}, {3.817581635837187*^9, - 3.817581700879589*^9}, {3.817581767691791*^9, 3.817581768673394*^9}, { - 3.8175821842992363`*^9, 3.8175821844066353`*^9}, {3.817582286431714*^9, - 3.817582297101211*^9}, {3.817582488847374*^9, 3.817582488974349*^9}, { - 3.817582803954041*^9, 3.817582804222094*^9}, {3.817618756754203*^9, - 3.817618757439868*^9}, {3.81761900296082*^9, 3.817619003035212*^9}, { - 3.8176203963382673`*^9, 3.817620396528458*^9}, {3.817626242723531*^9, - 3.817626282042306*^9}, {3.81762924164756*^9, 3.8176292443562737`*^9}, { - 3.8176636404765043`*^9, 3.817663648770928*^9}, {3.817666003825204*^9, - 3.8176660163975077`*^9}, 3.825758657266858*^9, 3.8257634297123632`*^9, { - 3.8257637382216587`*^9, 3.825763741294034*^9}, {3.825764046315646*^9, - 3.8257640768120003`*^9}, {3.826007441657895*^9, 3.8260074468257313`*^9}, - 3.826007758136524*^9, {3.826013359537168*^9, 3.826013366921255*^9}, { - 3.826013463378932*^9, 3.826013482235341*^9}, {3.826014234648857*^9, - 3.8260142779855223`*^9}, {3.82610306735501*^9, 3.826103074379273*^9}, { - 3.826103107756144*^9, 3.826103107819812*^9}, {3.826272369240218*^9, - 3.826272391792493*^9}, {3.826272586652137*^9, 3.826272594732195*^9}, { - 3.826273088053089*^9, 3.826273089748893*^9}, {3.826273144677765*^9, - 3.826273146997635*^9}, {3.8262736335668373`*^9, 3.826273635734462*^9}, - 3.8266890691074533`*^9, {3.826689155061082*^9, 3.8266891551567373`*^9}, { - 3.8266893130797987`*^9, 3.826689323848358*^9}, {3.826689565988503*^9, - 3.826689581228674*^9}, {3.826689634565889*^9, 3.826689650102207*^9}, { - 3.826689983421033*^9, 3.826689988684514*^9}, {3.826690298234497*^9, - 3.826690304258379*^9}, {3.8266903448673897`*^9, 3.826690346835585*^9}, { - 3.826690541351234*^9, 3.826690548879322*^9}, 3.8266910071358747`*^9, { - 3.82669106486483*^9, 3.826691074849018*^9}, {3.826691445503744*^9, - 3.826691458440094*^9}, {3.82669167994809*^9, 3.826691683996052*^9}, { - 3.826704702577314*^9, 3.826704712105288*^9}, {3.82670492717354*^9, - 3.826704930421282*^9}, {3.827403765410832*^9, 3.827403784866971*^9}, { - 3.827404400190401*^9, 3.827404420238784*^9}, {3.8274045097126637`*^9, - 3.8274045126565638`*^9}, {3.8274047169724197`*^9, 3.827404723828395*^9}, { - 3.827404767149251*^9, 3.827404769613168*^9}, {3.827405559211132*^9, - 3.827405561458974*^9}, {3.827406421058803*^9, 3.827406425898838*^9}, { - 3.827410007136595*^9, 3.827410024500999*^9}, {3.827468086395525*^9, - 3.827468087899349*^9}, {3.8274817111143637`*^9, 3.827481732722485*^9}, { - 3.827481932910375*^9, 3.827481942630374*^9}, {3.827484882114504*^9, - 3.827484891178834*^9}, {3.82748496838837*^9, 3.827484972428067*^9}, { - 3.827554870569126*^9, 3.8275548842255087`*^9}, {3.827554955106474*^9, - 3.827554986395269*^9}, {3.827555061348587*^9, 3.827555089773085*^9}, { - 3.827555513700951*^9, 3.8275555289410133`*^9}, {3.827558549917939*^9, - 3.827558582782239*^9}, {3.827561592644457*^9, 3.8275616094843884`*^9}, { - 3.827830458103025*^9, 3.8278304871675167`*^9}, {3.827830599481675*^9, - 3.8278306003135023`*^9}, {3.82783063897057*^9, 3.827830646362282*^9}, { - 3.827830706235694*^9, 3.827830712059711*^9}, {3.827831315902727*^9, - 3.827831321270451*^9}, {3.827833104775069*^9, 3.827833114719193*^9}, { - 3.8278331747045517`*^9, 3.827833179136505*^9}, {3.8278334549656887`*^9, - 3.827833462445428*^9}, 3.829120829171124*^9, {3.829213838889318*^9, - 3.829213883841852*^9}, {3.829214173078923*^9, 3.829214190007135*^9}, { - 3.829217677573986*^9, 3.829217686333686*^9}, {3.829217811928056*^9, - 3.8292178136720657`*^9}, {3.829218394666704*^9, 3.829218401658337*^9}, { - 3.8292187191121473`*^9, 3.829218728096401*^9}, {3.829368271117032*^9, - 3.829368275564617*^9}, {3.829368590178836*^9, 3.829368602514616*^9}, { - 3.8293691040200243`*^9, 3.829369115755772*^9}, {3.829371124208045*^9, - 3.829371128112094*^9}, {3.829371172664732*^9, 3.829371175472876*^9}, { - 3.829371420653515*^9, 3.829371423597522*^9}, {3.829384064739922*^9, - 3.829384089259829*^9}, {3.829643407111478*^9, 3.829643411151178*^9}, { - 3.829643514849144*^9, 3.829643518489065*^9}, {3.829643600090665*^9, - 3.8296436026505947`*^9}, {3.8296486222377*^9, 3.829648623181625*^9}, { - 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"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"sol3", "=", - RowBox[{"untilSuccess", "[", - RowBox[{"newSol", "[", - RowBox[{"eq3", ",", "sol2", ",", RowBox[{"{", RowBox[{ RowBox[{"gC", "[", "2", "]"}], ",", - RowBox[{"gC", "[", "3", "]"}]}], "}"}], ",", + 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}, { + 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, { + 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9, + 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, { + 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9, + 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, { + 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9, + 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, { + 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9, + 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, { + 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9, + 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, { + 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9, + 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, { + 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9, + 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, { + 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9, + 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9, + 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, { + 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9, + 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, { + 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9, + 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, { + 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9, + 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, { + 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9, + 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, { + 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9, + 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, { + 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9, + 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, { + 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9, + 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9}, + 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, { + 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9, + 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, { + 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9, + 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, { + 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9, + 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, { + 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9, + 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, { + 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9, + 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, { + 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9, + 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, { + 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9, + 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, { + 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9, + 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, { + 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9, + 3.8260074763785057`*^9}, {3.8260077526573877`*^9, + 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, { + 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9, + 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, { + 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9, + 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, { + 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9, + 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, { + 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, { + 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9, + 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, { + 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9, + 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, { + 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9, + 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, { + 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9, + 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, { + 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9, + 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, { + 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9, + 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9, + 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9, + 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9, + 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, { + 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9, + 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9, + 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, { + 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, { + 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9, + 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9, + 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, { + 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9, + 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, { + 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9, + 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, { + 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9, + 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, { + 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9, + 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, { + 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9, + 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, { + 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9, + 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, { + 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9, + 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, { + 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9, + 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9}, + 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9, + 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, { + 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9, + 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, { + 3.829214031268794*^9, 3.829214040157639*^9}, {3.829216649212429*^9, + 3.829216713844104*^9}, {3.829217366544965*^9, 3.829217390512424*^9}, { + 3.829217616820653*^9, 3.829217618716579*^9}, {3.829217913075171*^9, + 3.829217913281975*^9}, {3.8292180058278713`*^9, 3.829218006499639*^9}, { + 3.829218169279408*^9, 3.829218169886425*^9}, {3.829218249408503*^9, + 3.8292182527599*^9}, {3.829218332601268*^9, 3.8292183344651337`*^9}, { + 3.829219312835874*^9, 3.8292193133627453`*^9}, {3.829219381116323*^9, + 3.829219381796111*^9}, {3.829368037970189*^9, 3.829368046808629*^9}, { + 3.829368163195677*^9, 3.829368164218666*^9}, {3.829368508025868*^9, + 3.829368523322445*^9}, {3.8293689509698563`*^9, 3.829368952969119*^9}, { + 3.829369079419671*^9, 3.829369080659419*^9}, {3.82937076952973*^9, + 3.829370770201521*^9}, {3.829371098735732*^9, 3.829371101471711*^9}, { + 3.829371152593144*^9, 3.8293711527685347`*^9}, {3.831201413684575*^9, + 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]", + 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]", + RowBox[{"1.2454285886923262`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{"AL", "\[Rule]", + RowBox[{ + RowBox[{"-", "0.0638435973450265`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{"AH", "\[Rule]", + RowBox[{ + RowBox[{"-", "2.383574673197832`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"A", "[", "0", "]"}], "\[Rule]", + RowBox[{"1.213990850412119`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"A", "[", "1", "]"}], "\[Rule]", + RowBox[{"2.2921910300568316`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"A", "[", "2", "]"}], "\[Rule]", + RowBox[{"0.24834250474745867`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + 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[{ + RowBox[{ + RowBox[{"n3", "=", "2"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"F3", "=", + RowBox[{"RF", "[", "n3", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"h3", "=", + RowBox[{"h", "[", "5", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"eq3", "=", + RowBox[{ + RowBox[{"eq", "[", + RowBox[{"n3", ",", "h3"}], "]"}], "[", + RowBox[{"5", ",", + RowBox[{"-", "1"}], ",", "4"}], "]"}]}], ";"}]}], "Input", + CellChangeTimes->{ + 3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, { + 3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9, + 3.817564534320574*^9}, {3.81756485534698*^9, 3.817564862343175*^9}, { + 3.817564919676697*^9, 3.8175649235785027`*^9}, {3.817565106996109*^9, + 3.8175651474217367`*^9}, {3.8175652415905113`*^9, 3.817565250029232*^9}, { + 3.8175657444559927`*^9, 3.8175657689660788`*^9}, 3.8175669120549498`*^9, { + 3.8175677716518087`*^9, 3.817567773706285*^9}, {3.817579700926876*^9, + 3.817579701354711*^9}, {3.8175810533593073`*^9, 3.817581114447541*^9}, { + 3.817581149854197*^9, 3.8175811499220247`*^9}, {3.817581265163169*^9, + 3.81758126542041*^9}, {3.81758144220247*^9, 3.8175814490334673`*^9}, { + 3.8175815152710047`*^9, 3.817581521148234*^9}, {3.817581635837187*^9, + 3.817581700879589*^9}, {3.817581767691791*^9, 3.817581768673394*^9}, { + 3.8175821842992363`*^9, 3.8175821844066353`*^9}, {3.817582286431714*^9, + 3.817582297101211*^9}, {3.817582488847374*^9, 3.817582488974349*^9}, { + 3.817582803954041*^9, 3.817582804222094*^9}, {3.817618756754203*^9, + 3.817618757439868*^9}, {3.81761900296082*^9, 3.817619003035212*^9}, { + 3.8176203963382673`*^9, 3.817620396528458*^9}, {3.817626242723531*^9, + 3.817626282042306*^9}, {3.81762924164756*^9, 3.8176292443562737`*^9}, { + 3.8176636404765043`*^9, 3.817663648770928*^9}, {3.817666003825204*^9, + 3.8176660163975077`*^9}, 3.825758657266858*^9, 3.8257634297123632`*^9, { + 3.8257637382216587`*^9, 3.825763741294034*^9}, {3.825764046315646*^9, + 3.8257640768120003`*^9}, {3.826007441657895*^9, 3.8260074468257313`*^9}, + 3.826007758136524*^9, {3.826013359537168*^9, 3.826013366921255*^9}, { + 3.826013463378932*^9, 3.826013482235341*^9}, {3.826014234648857*^9, + 3.8260142779855223`*^9}, {3.82610306735501*^9, 3.826103074379273*^9}, { + 3.826103107756144*^9, 3.826103107819812*^9}, {3.826272369240218*^9, + 3.826272391792493*^9}, {3.826272586652137*^9, 3.826272594732195*^9}, { + 3.826273088053089*^9, 3.826273089748893*^9}, {3.826273144677765*^9, + 3.826273146997635*^9}, {3.8262736335668373`*^9, 3.826273635734462*^9}, + 3.8266890691074533`*^9, {3.826689155061082*^9, 3.8266891551567373`*^9}, { + 3.8266893130797987`*^9, 3.826689323848358*^9}, {3.826689565988503*^9, + 3.826689581228674*^9}, {3.826689634565889*^9, 3.826689650102207*^9}, { + 3.826689983421033*^9, 3.826689988684514*^9}, {3.826690298234497*^9, + 3.826690304258379*^9}, {3.8266903448673897`*^9, 3.826690346835585*^9}, { + 3.826690541351234*^9, 3.826690548879322*^9}, 3.8266910071358747`*^9, { + 3.82669106486483*^9, 3.826691074849018*^9}, {3.826691445503744*^9, + 3.826691458440094*^9}, {3.82669167994809*^9, 3.826691683996052*^9}, { + 3.826704702577314*^9, 3.826704712105288*^9}, {3.82670492717354*^9, + 3.826704930421282*^9}, {3.827403765410832*^9, 3.827403784866971*^9}, { + 3.827404400190401*^9, 3.827404420238784*^9}, {3.8274045097126637`*^9, + 3.8274045126565638`*^9}, {3.8274047169724197`*^9, 3.827404723828395*^9}, { + 3.827404767149251*^9, 3.827404769613168*^9}, {3.827405559211132*^9, + 3.827405561458974*^9}, {3.827406421058803*^9, 3.827406425898838*^9}, { + 3.827410007136595*^9, 3.827410024500999*^9}, {3.827468086395525*^9, + 3.827468087899349*^9}, {3.8274817111143637`*^9, 3.827481732722485*^9}, { + 3.827481932910375*^9, 3.827481942630374*^9}, {3.827484882114504*^9, + 3.827484891178834*^9}, {3.82748496838837*^9, 3.827484972428067*^9}, { + 3.827554870569126*^9, 3.8275548842255087`*^9}, {3.827554955106474*^9, + 3.827554986395269*^9}, {3.827555061348587*^9, 3.827555089773085*^9}, { + 3.827555513700951*^9, 3.8275555289410133`*^9}, {3.827558549917939*^9, + 3.827558582782239*^9}, {3.827561592644457*^9, 3.8275616094843884`*^9}, { + 3.827830458103025*^9, 3.8278304871675167`*^9}, {3.827830599481675*^9, + 3.8278306003135023`*^9}, {3.82783063897057*^9, 3.827830646362282*^9}, { + 3.827830706235694*^9, 3.827830712059711*^9}, {3.827831315902727*^9, + 3.827831321270451*^9}, {3.827833104775069*^9, 3.827833114719193*^9}, { + 3.8278331747045517`*^9, 3.827833179136505*^9}, {3.8278334549656887`*^9, + 3.827833462445428*^9}, 3.829120829171124*^9, {3.829213838889318*^9, + 3.829213883841852*^9}, {3.829214173078923*^9, 3.829214190007135*^9}, { + 3.829217677573986*^9, 3.829217686333686*^9}, {3.829217811928056*^9, + 3.8292178136720657`*^9}, {3.829218394666704*^9, 3.829218401658337*^9}, { + 3.8292187191121473`*^9, 3.829218728096401*^9}, {3.829368271117032*^9, + 3.829368275564617*^9}, {3.829368590178836*^9, 3.829368602514616*^9}, { + 3.8293691040200243`*^9, 3.829369115755772*^9}, {3.829371124208045*^9, + 3.829371128112094*^9}, {3.829371172664732*^9, 3.829371175472876*^9}, { + 3.829371420653515*^9, 3.829371423597522*^9}, {3.829384064739922*^9, + 3.829384089259829*^9}, {3.829643407111478*^9, 3.829643411151178*^9}, { + 3.829643514849144*^9, 3.829643518489065*^9}, {3.829643600090665*^9, + 3.8296436026505947`*^9}, {3.8296486222377*^9, 3.829648623181625*^9}, { + 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}, + 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[{ + +Cell[BoxData[ + RowBox[{"sol3", "=", + RowBox[{"untilSuccess", "[", + RowBox[{"newSol", "[", + RowBox[{"eq3", ",", "sol2", ",", + RowBox[{"{", + RowBox[{"gC", "[", "5", "]"}], "}"}], ",", + SuperscriptBox["10", + 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}, { + 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, { + 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9, + 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, { + 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9, + 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, { + 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9, + 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, { + 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9, + 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, { + 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9, + 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, { + 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9, + 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, { + 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9, + 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, { + 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9, + 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9, + 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, { + 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9, + 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, { + 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9, + 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, { + 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9, + 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, { + 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9, + 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, { + 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9, + 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, { + 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9, + 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, { + 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9, + 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9}, + 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, { + 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9, + 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, { + 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9, + 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, { + 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9, + 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, { + 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9, + 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, { + 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9, + 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, { + 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9, + 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, { + 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9, + 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, { + 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9, + 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, { + 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9, + 3.8260074763785057`*^9}, {3.8260077526573877`*^9, + 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, { + 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9, + 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, { + 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9, + 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, { + 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9, + 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, { + 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, { + 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9, + 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, { + 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9, + 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, { + 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9, + 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, { + 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9, + 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, { + 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9, + 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, { + 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9, + 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9, + 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9, + 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9, + 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, { + 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9, + 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9, + 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, { + 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, { + 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9, + 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9, + 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, { + 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9, + 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, { + 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9, + 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, { + 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9, + 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, { + 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9, + 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, { + 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9, + 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, { + 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9, + 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, { + 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9, + 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, { + 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9, + 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9}, + 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9, + 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, { + 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9, + 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, { + 3.829214031268794*^9, 3.829214040157639*^9}, {3.829214194263526*^9, + 3.8292142105916843`*^9}, {3.829217690414138*^9, 3.829217702270501*^9}, { + 3.8292178172969103`*^9, 3.8292178174562902`*^9}, {3.8292178775777473`*^9, + 3.8292178776889153`*^9}, {3.829218414474752*^9, 3.829218438363077*^9}, { + 3.829220129337493*^9, 3.8292201294411983`*^9}, {3.8293682811580133`*^9, + 3.829368281332857*^9}, {3.829368605771906*^9, 3.829368621818864*^9}, { + 3.829369119076646*^9, 3.829369124363988*^9}, {3.829371182626143*^9, + 3.8293711843451643`*^9}, {3.829371313731625*^9, 3.829371313827364*^9}, { + 3.829371427621697*^9, 3.829371428717615*^9}, {3.829384070852407*^9, + 3.829384092643899*^9}, {3.829643418496428*^9, 3.8296434455842133`*^9}, { + 3.829643520753277*^9, 3.829643521713008*^9}, {3.8371576505071573`*^9, + 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]", + 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]", + RowBox[{"1.3147514952827049`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{"AL", "\[Rule]", + RowBox[{ + RowBox[{"-", "0.007910007411231868`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{"AH", "\[Rule]", + RowBox[{ + RowBox[{"-", "2.366110804332936`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"A", "[", "0", "]"}], "\[Rule]", + RowBox[{"1.4984372635758567`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"A", "[", "1", "]"}], "\[Rule]", + RowBox[{"2.8999320544539224`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"A", "[", "2", "]"}], "\[Rule]", + RowBox[{"0.2986275644317083`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "1", "]"}], "\[Rule]", + RowBox[{ + RowBox[{"-", "0.09497027806489902`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{"0.013386997849367158`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", + 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, 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[{ + RowBox[{ + RowBox[{"n4", "=", "2"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"F4", "=", + RowBox[{"RF", "[", "n4", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"h4", "=", + RowBox[{"h", "[", "6", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"eq4", "=", + RowBox[{ + RowBox[{"eq", "[", + RowBox[{"n4", ",", "h4"}], "]"}], "[", + RowBox[{"5", ",", + 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.829368356710397*^9, 3.829368359334304*^9}, {3.82936921160571*^9, + 3.829369215221573*^9}, {3.829371446030113*^9, 3.8293714614701233`*^9}, { + 3.829384111588584*^9, 3.8293841151483583`*^9}, {3.829643614874881*^9, + 3.829643616170678*^9}, {3.829648629325779*^9, 3.8296486339416943`*^9}, { + 3.829648682278651*^9, 3.829648684742441*^9}, {3.829648817721261*^9, + 3.829648818617029*^9}, {3.831201638213859*^9, 3.8312016394697657`*^9}, { + 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.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[1628]:=",ExpressionUUID->"6ece7e92-ba33-4e18-ba61-6c6859c6e44a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"sol4", "=", + RowBox[{"untilSuccess", "[", + RowBox[{"newSol", "[", + RowBox[{"eq4", ",", "sol3", ",", + RowBox[{"{", + RowBox[{"gC", "[", "6", "]"}], "}"}], ",", + SuperscriptBox["10", + RowBox[{"-", "3"}]]}], "]"}], "]"}]}]], "Input", + CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, { + 3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9, + 3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, { + 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, { + 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9, + 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, { + 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9, + 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, { + 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9, + 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, { + 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9, + 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, { + 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9, + 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, { + 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9, + 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, { + 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9, + 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, { + 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9, + 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9, + 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, { + 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9, + 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, { + 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9, + 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, { + 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9, + 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, { + 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9, + 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, { + 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9, + 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, { + 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9, + 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, { + 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9, + 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9}, + 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, { + 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9, + 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, { + 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9, + 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, { + 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9, + 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, { + 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9, + 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, { + 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9, + 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, { + 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9, + 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, { + 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9, + 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, { + 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9, + 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, { + 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9, + 3.8260074763785057`*^9}, {3.8260077526573877`*^9, + 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, { + 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9, + 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, { + 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9, + 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, { + 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9, + 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, { + 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, { + 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9, + 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, { + 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9, + 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, { + 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9, + 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, { + 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9, + 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, { + 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9, + 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, { + 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9, + 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9, + 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9, + 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9, + 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, { + 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9, + 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9, + 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, { + 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, { + 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9, + 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9, + 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, { + 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9, + 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, { + 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9, + 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, { + 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9, + 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, { + 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9, + 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, { + 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9, + 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, { + 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9, + 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, { + 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9, + 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, { + 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9, + 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9}, + 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9, + 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, { + 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9, + 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, { + 3.829214031268794*^9, 3.829214040157639*^9}, {3.829214194263526*^9, + 3.8292142105916843`*^9}, {3.829217690414138*^9, 3.829217702270501*^9}, { + 3.8292178172969103`*^9, 3.8292178174562902`*^9}, {3.8292178775777473`*^9, + 3.8292178776889153`*^9}, {3.829218414474752*^9, 3.829218438363077*^9}, { + 3.829218873266842*^9, 3.8292188874831133`*^9}, {3.829218961781654*^9, + 3.829218962396624*^9}, {3.829220227971595*^9, 3.829220228067281*^9}, { + 3.829220271868513*^9, 3.8292202885961943`*^9}, {3.829362123773261*^9, + 3.82936212387718*^9}, {3.8293623714499807`*^9, 3.8293623718336153`*^9}, { + 3.829363771402968*^9, 3.829363771474676*^9}, {3.8293641382745457`*^9, + 3.829364145457487*^9}, {3.829368362486923*^9, 3.829368363222292*^9}, { + 3.829369220374155*^9, 3.829369223973774*^9}, {3.829371464766535*^9, + 3.829371470590396*^9}, {3.837158639405349*^9, 3.8371586449404097`*^9}, { + 3.837158713174018*^9, 3.8371587149896727`*^9}, {3.83715888899361*^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[1632]:=",ExpressionUUID->"cbceac67-aab3-4aaa-a9f5-f7f5baab9926"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + 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]", + RowBox[{"1.221595001182925`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{"AL", "\[Rule]", + RowBox[{ + RowBox[{"-", "0.0902015937722895`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{"AH", "\[Rule]", + RowBox[{ + RowBox[{"-", "2.3775639447648187`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"A", "[", "0", "]"}], "\[Rule]", + RowBox[{"1.150755919956856`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"A", "[", "1", "]"}], "\[Rule]", + RowBox[{"2.1610631808039797`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"A", "[", "2", "]"}], "\[Rule]", + RowBox[{"0.241343264160074`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "1", "]"}], "\[Rule]", + RowBox[{ + RowBox[{"-", "0.008241650211529521`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{"0.005948523721895485`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", + RowBox[{ + RowBox[{"-", "0.006691095693530038`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", + RowBox[{ + RowBox[{"-", "0.000012618799833058402`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "5", "]"}], "\[Rule]", + 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.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[1060]=",ExpressionUUID->"1dfd8e0b-f69f-428d-b79d-737675046a07"] +}, Open ]], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"n5", "=", "2"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"F5", "=", + RowBox[{"RF", "[", "n5", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"h5", "=", + RowBox[{"h", "[", "7", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"eq5", "=", + RowBox[{ + RowBox[{"eq", "[", + RowBox[{"n5", ",", "h5"}], "]"}], "[", + RowBox[{"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.829384131757078*^9, + 3.829384134956586*^9}, {3.829643643755403*^9, 3.8296436439232407`*^9}, { + 3.829643699356464*^9, 3.829643699428268*^9}, {3.829643826950716*^9, + 3.829643828942643*^9}, {3.829648642837838*^9, 3.829648643965818*^9}, { + 3.829648676430758*^9, 3.829648699150793*^9}, {3.829648754664152*^9, + 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.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[1633]:=",ExpressionUUID->"3fa9a0f5-416d-499e-8ee4-0612021a0c5d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"sol5", "=", + RowBox[{"untilSuccess", "[", + RowBox[{"newSol", "[", + RowBox[{"eq5", ",", "sol4", ",", + RowBox[{"{", + RowBox[{"gC", "[", "7", "]"}], "}"}], ",", + SuperscriptBox["10", + RowBox[{"-", "5"}]]}], "]"}], "]"}]}]], "Input", + CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, { + 3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9, + 3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, { + 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, { + 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9, + 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, { + 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9, + 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, { + 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9, + 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, { + 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9, + 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, { + 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9, + 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, { + 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9, + 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, { + 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9, + 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, { + 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9, + 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9, + 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, { + 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9, + 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, { + 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9, + 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, { + 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9, + 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, { + 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9, + 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, { + 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9, + 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, { + 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9, + 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, { + 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9, + 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9}, + 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, { + 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9, + 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, { + 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9, + 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, { + 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9, + 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, { + 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9, + 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, { + 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9, + 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, { + 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9, + 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, { + 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9, + 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, { + 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9, + 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, { + 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9, + 3.8260074763785057`*^9}, {3.8260077526573877`*^9, + 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, { + 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9, + 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, { + 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9, + 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, { + 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9, + 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, { + 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, { + 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9, + 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, { + 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9, + 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, { + 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9, + 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, { + 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9, + 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, { + 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9, + 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, { + 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9, + 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9, + 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9, + 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9, + 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, { + 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9, + 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9, + 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, { + 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, { + 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9, + 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9, + 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, { + 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9, + 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, { + 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9, + 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, { + 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9, + 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, { + 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9, + 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, { + 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9, + 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, { + 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9, + 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, { + 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9, + 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, { + 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9, + 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9}, + 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9, + 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, { + 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9, + 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, { + 3.829214031268794*^9, 3.829214040157639*^9}, {3.829214194263526*^9, + 3.8292142105916843`*^9}, {3.829217690414138*^9, 3.829217702270501*^9}, { + 3.8292178172969103`*^9, 3.8292178174562902`*^9}, {3.8292178775777473`*^9, + 3.8292178776889153`*^9}, {3.829218414474752*^9, 3.829218438363077*^9}, { + 3.829218873266842*^9, 3.8292188874831133`*^9}, {3.829218961781654*^9, + 3.829218962396624*^9}, {3.829220227971595*^9, 3.829220228067281*^9}, { + 3.829220271868513*^9, 3.8292202885961943`*^9}, {3.829362123773261*^9, + 3.82936212387718*^9}, {3.8293623714499807`*^9, 3.8293623718336153`*^9}, { + 3.829362619006271*^9, 3.829362682127327*^9}, {3.8293628496104803`*^9, + 3.8293628496980753`*^9}, {3.829363086679022*^9, 3.829363087486423*^9}, { + 3.829363510502825*^9, 3.829363510582408*^9}, 3.829363644665361*^9, { + 3.8293640250715933`*^9, 3.8293640417196207`*^9}, {3.8293641846502438`*^9, + 3.8293641904262867`*^9}, {3.8293643116124277`*^9, 3.82936431479661*^9}, { + 3.829364353045416*^9, 3.829364357869265*^9}, {3.829365155900394*^9, + 3.829365164220447*^9}, {3.829365786400337*^9, 3.829365786447913*^9}, { + 3.829366984174124*^9, 3.8293669853979263`*^9}, {3.829370133310355*^9, + 3.8293701333579397`*^9}, {3.829370371971438*^9, 3.8293703727303963`*^9}, { + 3.829371509215295*^9, 3.829371512599156*^9}, {3.8293715961214314`*^9, + 3.8293715962806873`*^9}, {3.8395782253135643`*^9, 3.839578227601432*^9}, + 3.839585853013666*^9, {3.839585988151574*^9, 3.83958598983146*^9}, { + 3.839588523150997*^9, 3.839588523318058*^9}}, + CellLabel-> + "In[1637]:=",ExpressionUUID->"fd324373-7122-4ced-93a7-9b97bec2edf8"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + 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]", + RowBox[{"1.2713000953680442`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{"AL", "\[Rule]", + RowBox[{ + RowBox[{"-", "0.041205359411935163`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{"AH", "\[Rule]", + RowBox[{ + RowBox[{"-", "2.366828956471559`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"A", "[", "0", "]"}], "\[Rule]", + RowBox[{"1.27800560301458`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"A", "[", "1", "]"}], "\[Rule]", + RowBox[{"2.4330334155211775`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"A", "[", "2", "]"}], "\[Rule]", + RowBox[{"0.2637247892036857`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "1", "]"}], "\[Rule]", + RowBox[{ + RowBox[{"-", "0.03725349700008989`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{"0.005862069676861392`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "3", "]"}], "\[Rule]", + RowBox[{ + RowBox[{"-", "0.005002201161501416`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", + RowBox[{"0.0023926337843710637`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "5", "]"}], "\[Rule]", + RowBox[{"0.00047857349217552103`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "6", "]"}], "\[Rule]", + RowBox[{ + RowBox[{"-", "0.0010482124577833923`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "7", "]"}], "\[Rule]", + 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.839578227872924*^9, 3.839579680841489*^9, + 3.839581568548936*^9, 3.839581626604529*^9, 3.8395821584473467`*^9, { + 3.8395859802077627`*^9, 3.839585990249378*^9}}, + CellLabel-> + "Out[1460]=",ExpressionUUID->"95989179-83e4-4b06-bbc6-f63774d14859"] +}, Open ]], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"n6", "=", "2"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"F6", "=", + RowBox[{"RF", "[", "n5", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"h6", "=", + RowBox[{"h", "[", "10", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"eq6", "=", + RowBox[{ + RowBox[{"eq", "[", + RowBox[{"n6", ",", "h6"}], "]"}], "[", + 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.839578239633697*^9}, + 3.839580561260317*^9, 3.839582162618252*^9, {3.839586049920573*^9, + 3.839586073080497*^9}}, + CellLabel-> + "In[1479]:=",ExpressionUUID->"6bc0aefc-3faf-4b89-a295-e9f8f5ea8d73"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"sol6", "=", + RowBox[{"untilSuccess", "[", + RowBox[{"newSol", "[", + RowBox[{"eq6", ",", "sol5", ",", + RowBox[{"{", + RowBox[{ + RowBox[{"gC", "[", "9", "]"}], ",", + 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}, { @@ -143837,65 +147139,139 @@ Cell[BoxData[ 3.8292142105916843`*^9}, {3.829217690414138*^9, 3.829217702270501*^9}, { 3.8292178172969103`*^9, 3.8292178174562902`*^9}, {3.8292178775777473`*^9, 3.8292178776889153`*^9}, {3.829218414474752*^9, 3.829218438363077*^9}, { - 3.829220129337493*^9, 3.8292201294411983`*^9}, {3.8293682811580133`*^9, - 3.829368281332857*^9}, {3.829368605771906*^9, 3.829368621818864*^9}, { - 3.829369119076646*^9, 3.829369124363988*^9}, {3.829371182626143*^9, - 3.8293711843451643`*^9}, {3.829371313731625*^9, 3.829371313827364*^9}, { - 3.829371427621697*^9, 3.829371428717615*^9}, {3.829384070852407*^9, - 3.829384092643899*^9}, {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.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.839586060553504*^9, 3.839586076552981*^9}}, + CellLabel-> + "In[1483]:=",ExpressionUUID->"709dfa2a-a119-470b-b512-07e290781fa2"], 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.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.2222584375513665`"}], ",", + RowBox[{"gC", "[", "0", "]"}], "\[Rule]", + RowBox[{"1.2827880826644837`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{"AL", "\[Rule]", - RowBox[{"-", "0.060464157125000265`"}]}], ",", + RowBox[{ + RowBox[{"-", "0.0494157933026442`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.4146073690672796`"}]}], ",", + RowBox[{ + RowBox[{"-", "2.359332439860379`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ - RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.200149897285479`"}], ",", + RowBox[{"A", "[", "0", "]"}], "\[Rule]", + RowBox[{"1.2462266980997034`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.2525345528902414`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", + RowBox[{"2.368642611093603`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2368516740164763`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", + RowBox[{"0.26167682114698426`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.02699271157154355`"}]}], ",", + RowBox[{ + RowBox[{"-", "0.050778243122944336`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.004134820819507786`"}], ",", - + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{ + RowBox[{"-", "0.0017066392732906276`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.0006859500912947861`"}]}]}], "}"}]], "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"] + RowBox[{"0.01864222959178471`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", + RowBox[{ + RowBox[{"-", "0.006363160330718347`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "5", "]"}], "\[Rule]", + RowBox[{ + RowBox[{"-", "0.007442260480223989`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "6", "]"}], "\[Rule]", + RowBox[{"0.0062506461973811135`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "7", "]"}], "\[Rule]", + RowBox[{ + RowBox[{"-", "0.00023067430019106842`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "8", "]"}], "\[Rule]", + RowBox[{ + RowBox[{"-", "0.0015311813382150451`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "9", "]"}], "\[Rule]", + 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.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[1483]=",ExpressionUUID->"430f202d-a22f-4c74-b7a9-14e5db7b3254"] }, Open ]], Cell[BoxData[{ RowBox[{ - RowBox[{"n4", "=", "2"}], ";"}], "\[IndentingNewLine]", + RowBox[{"n7", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ - RowBox[{"F4", "=", - RowBox[{"RF", "[", "n4", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"F7", "=", + RowBox[{"RF", "[", "n7", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ - RowBox[{"h4", "=", - RowBox[{"h", "[", "5", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"h7", "=", + RowBox[{"h", "[", "7", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ - RowBox[{"eq4", "=", + RowBox[{"eq7", "=", RowBox[{ RowBox[{"eq", "[", - RowBox[{"n4", ",", "h4"}], "]"}], "[", + RowBox[{"n7", ",", "h7"}], "]"}], "[", RowBox[{"6", ",", RowBox[{"-", "1"}], ",", "6"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{ @@ -143961,32 +147337,39 @@ Cell[BoxData[{ 3.8292178136720657`*^9}, {3.829218394666704*^9, 3.829218401658337*^9}, { 3.8292188164581223`*^9, 3.82921883122604*^9}, {3.829218950764509*^9, 3.829218957204319*^9}, {3.829220267572093*^9, 3.829220270004106*^9}, { - 3.829368356710397*^9, 3.829368359334304*^9}, {3.82936921160571*^9, - 3.829369215221573*^9}, {3.829371446030113*^9, 3.8293714614701233`*^9}, { - 3.829384111588584*^9, 3.8293841151483583`*^9}, {3.829643614874881*^9, - 3.829643616170678*^9}, {3.829648629325779*^9, 3.8296486339416943`*^9}, { - 3.829648682278651*^9, 3.829648684742441*^9}, {3.829648817721261*^9, - 3.829648818617029*^9}, {3.831201638213859*^9, 3.8312016394697657`*^9}, { - 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.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[141]:=",ExpressionUUID->"6ece7e92-ba33-4e18-ba61-6c6859c6e44a"], + "In[954]:=",ExpressionUUID->"a19c8140-2cf0-4d2d-9cad-84c0b8ad1368"], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"sol4", "=", + RowBox[{"sol7", "=", RowBox[{"untilSuccess", "[", RowBox[{"newSol", "[", - RowBox[{"eq4", ",", "sol3", ",", + RowBox[{"eq7", ",", "sol6", ",", RowBox[{"{", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], ",", - RowBox[{"gC", "[", "5", "]"}]}], "}"}], ",", - SuperscriptBox["10", - RowBox[{"-", "3"}]]}], "]"}], "]"}]}]], "Input", + 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}, { @@ -144099,71 +147482,452 @@ Cell[BoxData[ 3.829218962396624*^9}, {3.829220227971595*^9, 3.829220228067281*^9}, { 3.829220271868513*^9, 3.8292202885961943`*^9}, {3.829362123773261*^9, 3.82936212387718*^9}, {3.8293623714499807`*^9, 3.8293623718336153`*^9}, { - 3.829363771402968*^9, 3.829363771474676*^9}, {3.8293641382745457`*^9, - 3.829364145457487*^9}, {3.829368362486923*^9, 3.829368363222292*^9}, { - 3.829369220374155*^9, 3.829369223973774*^9}, {3.829371464766535*^9, - 3.829371470590396*^9}, {3.837158639405349*^9, 3.8371586449404097`*^9}, { - 3.837158713174018*^9, 3.8371587149896727`*^9}, {3.83715888899361*^9, - 3.837158889144862*^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[146]:=",ExpressionUUID->"cbceac67-aab3-4aaa-a9f5-f7f5baab9926"], + "In[958]:=",ExpressionUUID->"1d03628f-4d0b-4025-b291-423da0445916"], 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.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]", "1.2045987540501706`"}], ",", + RowBox[{"gC", "[", "0", "]"}], "\[Rule]", + RowBox[{"1.18703708824837`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{"AL", "\[Rule]", - RowBox[{"-", "0.053028967900489374`"}]}], ",", + RowBox[{ + RowBox[{"-", "0.11376403269485967`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.4668284316203724`"}]}], ",", + RowBox[{ + RowBox[{"-", "2.385954546284685`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ - RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.2494549322754571`"}], ",", + RowBox[{"A", "[", "0", "]"}], "\[Rule]", + RowBox[{"1.078424459724399`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.338124935270859`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", + RowBox[{"2.0062764506763093`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.22735323594924617`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", + RowBox[{"0.22855864925309669`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.03846615024857917`"}]}], ",", + RowBox[{"0.006606372548965595`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.006753974153690354`"}], ",", - + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{"0.006233059922229101`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.0023266199180811027`"}]}], ",", + RowBox[{ + RowBox[{"-", "0.007314567466192822`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0007456517123750281`"}], ",", + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", + RowBox[{ + RowBox[{"-", "0.0014193850494051388`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.0001371271011191293`"}]}]}], "}"}]], "Output", + RowBox[{"0.0028764983208959456`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "6", "]"}], "\[Rule]", + RowBox[{ + RowBox[{"-", "0.0004160249149700269`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", + RowBox[{ + RowBox[{"gC", "[", "7", "]"}], "\[Rule]", + RowBox[{ + 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[{"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.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.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[{"-", "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[{"-", "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[146]=",ExpressionUUID->"50cf7d21-280d-4d16-926a-88982ebe8032"] + "Out[963]=",ExpressionUUID->"78f61448-b3df-4bad-8d36-f7a4eef7bd3c"] }, Open ]], Cell[BoxData[{ RowBox[{ - RowBox[{"n5", "=", "2"}], ";"}], "\[IndentingNewLine]", + RowBox[{"n9", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ - RowBox[{"F5", "=", - RowBox[{"RF", "[", "n5", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"F9", "=", + RowBox[{"RF", "[", "n9", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ - RowBox[{"h5", "=", - RowBox[{"h", "[", "7", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"h9", "=", + RowBox[{"h", "[", "9", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ - RowBox[{"eq5", "=", + RowBox[{"eq9", "=", RowBox[{ RowBox[{"eq", "[", - RowBox[{"n5", ",", "h5"}], "]"}], "[", + RowBox[{"n9", ",", "h9"}], "]"}], "[", RowBox[{"7", ",", RowBox[{"-", "1"}], ",", "8"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{ @@ -144231,31 +147995,40 @@ Cell[BoxData[{ 3.829218957204319*^9}, {3.829220267572093*^9, 3.829220270004106*^9}, { 3.82936259901405*^9, 3.829362614606016*^9}, {3.829370367314437*^9, 3.829370369098258*^9}, {3.82937149074282*^9, 3.829371504006997*^9}, { - 3.829371588392646*^9, 3.829371592952486*^9}, {3.829384131757078*^9, - 3.829384134956586*^9}, {3.829643643755403*^9, 3.8296436439232407`*^9}, { - 3.829643699356464*^9, 3.829643699428268*^9}, {3.829643826950716*^9, - 3.829643828942643*^9}, {3.829648642837838*^9, 3.829648643965818*^9}, { - 3.829648676430758*^9, 3.829648699150793*^9}, {3.829648754664152*^9, - 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.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[103]:=",ExpressionUUID->"3fa9a0f5-416d-499e-8ee4-0612021a0c5d"], + "In[964]:=",ExpressionUUID->"7ff78c11-7d73-4b16-b799-48cf4a2f6f7f"], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"sol5", "=", + RowBox[{"sol9", "=", RowBox[{"untilSuccess", "[", RowBox[{"newSol", "[", - RowBox[{"eq5", ",", "sol4", ",", + RowBox[{"eq9", ",", "sol8", ",", RowBox[{"{", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], ",", - RowBox[{"gC", "[", "7", "]"}]}], "}"}], ",", + RowBox[{"gC", "[", "9", "]"}], "}"}], ",", SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}], "]"}]}]], "Input", + 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}, { @@ -144378,70 +148151,475 @@ 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.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-> - "In[107]:=",ExpressionUUID->"fd324373-7122-4ced-93a7-9b97bec2edf8"], + "In[968]:=",ExpressionUUID->"91a9357e-cd65-4b22-8a77-0d13dcf9b3fb"], 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.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]", "1.2047627106909433`"}], ",", + RowBox[{"gC", "[", "0", "]"}], "\[Rule]", + RowBox[{"1.2253156299316397`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{"AL", "\[Rule]", - RowBox[{"-", "0.04723689920343772`"}]}], ",", + RowBox[{ + RowBox[{"-", "0.11567297048463196`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.47945531505407`"}]}], ",", + RowBox[{ + RowBox[{"-", "2.375274149535707`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ - RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.277623268248335`"}], ",", + RowBox[{"A", "[", "0", "]"}], "\[Rule]", + RowBox[{"1.0759077223885765`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.3925318151030015`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", + RowBox[{"2.004170993273349`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2266752704573209`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", + RowBox[{"0.23122737823051095`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.04587933651739058`"}]}], ",", + RowBox[{ + RowBox[{"-", "0.02308887293127201`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.007627553698680966`"}], ",", - + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", + RowBox[{ + RowBox[{"-", "0.028152391718527632`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.0019107852917523381`"}]}], ",", + RowBox[{"0.02841049424122317`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0006909824998191353`"}], ",", + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", + RowBox[{"0.009694496029059974`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.0004261800596479301`"}]}], ",", + RowBox[{ + RowBox[{"-", "0.015064477770822714`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.0001797177111597056`"}], ",", + RowBox[{"gC", "[", "6", "]"}], "\[Rule]", + RowBox[{ + RowBox[{"-", "0.0003906999579794114`"}], "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{ RowBox[{"gC", "[", "7", "]"}], "\[Rule]", - RowBox[{"-", "0.000033225703179822145`"}]}]}], "}"}]], "Output", + 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.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.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[969]:=",ExpressionUUID->"24aac548-eb1c-4513-936d-7978b92c926b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + 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[{"\[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[{"-", "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[107]=",ExpressionUUID->"2dc95c84-6c8c-415e-a8ad-1a6cbb15be50"] + "Out[973]=",ExpressionUUID->"1094f3c8-f423-4ec0-9978-75688034b462"] }, Open ]], Cell[BoxData[{ RowBox[{ - RowBox[{"n6", "=", "2"}], ";"}], "\[IndentingNewLine]", + RowBox[{"n11", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ - RowBox[{"F6", "=", - RowBox[{"RF", "[", "n5", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"F11", "=", + RowBox[{"RF", "[", "n11", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ - RowBox[{"h6", "=", - RowBox[{"h", "[", "9", "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"h11", "=", + RowBox[{"h", "[", "11", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ - RowBox[{"eq6", "=", + RowBox[{"eq11", "=", RowBox[{ RowBox[{"eq", "[", - RowBox[{"n6", ",", "h6"}], "]"}], "[", + RowBox[{"n11", ",", "h11"}], "]"}], "[", RowBox[{"9", ",", RowBox[{"-", "1"}], ",", "8"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{ @@ -144524,23 +148702,25 @@ 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.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[108]:=",ExpressionUUID->"6bc0aefc-3faf-4b89-a295-e9f8f5ea8d73"], + "In[974]:=",ExpressionUUID->"388da309-89f7-4dd9-af7d-26bd2ea56024"], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"sol6", "=", + RowBox[{"sol11", "=", RowBox[{"untilSuccess", "[", RowBox[{"newSol", "[", - RowBox[{"eq6", ",", "sol5", ",", + RowBox[{"eq11", ",", "sol10", ",", RowBox[{"{", - RowBox[{ - RowBox[{"gC", "[", "8", "]"}], ",", - RowBox[{"gC", "[", "9", "]"}]}], "}"}], ",", + RowBox[{"gC", "[", "11", "]"}], "}"}], ",", SuperscriptBox["10", - RowBox[{"-", "6"}]]}], "]"}], "]"}]}]], "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}, { @@ -144669,63 +148849,631 @@ 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.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-> - "In[112]:=",ExpressionUUID->"709dfa2a-a119-470b-b512-07e290781fa2"], + "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[ - RowBox[{"{", + RowBox[{"ListPlot", "[", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.421387017137544`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1980328032488499`"}], ",", - RowBox[{"B", "\[Rule]", "1.3705075243785367`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2475951226368918`"}], ",", - RowBox[{"AL", "\[Rule]", - RowBox[{"-", "0.015075258122406822`"}]}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.4637226460767465`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.4647830727186186`"}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.7879090113954383`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.25315792070786564`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.08875649108638753`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.01418323166332411`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.003697795861281338`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0011517067247122728`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.0005753623251651285`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.000339885031729786`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "\[Rule]", - RowBox[{"-", "0.00014458733346533328`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.00003545865315662562`"}], - ",", + RowBox[{"\[Theta]c", "/.", "#"}], "&"}], "/@", + RowBox[{"{", + RowBox[{ + "sol1", ",", "sol2", ",", "sol3", ",", "sol4", ",", "sol5", ",", "sol6", + ",", "sol7", ",", "sol8", ",", "sol9"}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.839581374725718*^9, 3.839581402892148*^9}}, + CellLabel-> + "In[864]:=",ExpressionUUID->"18aa91e1-03a1-48da-bed8-3d6a7a4ae626"], + +Cell[BoxData[ + 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-> + "Out[864]=",ExpressionUUID->"fa7fd377-360b-4502-a977-985fa8362db0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ListLogPlot", "[", + RowBox[{"{", "\[IndentingNewLine]", RowBox[{ - RowBox[{"gC", "[", "9", "]"}], "\[Rule]", - RowBox[{"-", "3.81142861695225`*^-6"}]}]}], "}"}]], "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}}, + 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-> + "In[786]:=",ExpressionUUID->"0c2ba5ff-361b-45fc-864f-677bddbf18a4"], + +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.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., -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.839578348261548*^9, 3.839578357584875*^9}, + 3.839578637970869*^9, 3.839580513893373*^9}, CellLabel-> - "Out[112]=",ExpressionUUID->"08f8436b-17f2-4708-841b-3d0078af1679"] + "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[{"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.839578765350711*^9}, + CellLabel-> + "Out[587]=",ExpressionUUID->"c82435a1-e076-481e-885a-816900db5198"] +}, Open ]], + Cell[BoxData[{ RowBox[{ RowBox[{"ntest", "=", "4"}], ";"}], "\[IndentingNewLine]", @@ -144736,8 +149484,8 @@ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"dFd\[Eta]List", "[", - RowBox[{"2", ",", "h1"}], "]"}], "[", "ntest", "]"}], "[", "1", "]"}], - "/", + RowBox[{"n1", ",", "h1"}], "]"}], "[", "ntest", "]"}], "[", "1", + "]"}], "/", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "/.", "sol1"}]}], @@ -144749,96 +149497,20 @@ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"dFd\[Eta]List", "[", - RowBox[{"2", ",", "h2"}], "]"}], "[", "ntest", "]"}], "[", "1", "]"}], - "/", + RowBox[{"n2", ",", "h2"}], "]"}], "[", "ntest", "]"}], "[", "1", + "]"}], "/", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "/.", "sol2"}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"our\[CapitalPhi]3", "=", - RowBox[{ - 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[{ - 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[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"dFd\[Eta]List", "[", - RowBox[{"2", ",", "h5"}], "]"}], "[", "ntest", "]"}], "[", "1", "]"}], - "/", - RowBox[{ - RowBox[{"Range", "[", - RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "/.", "sol5"}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"our\[CapitalPhi]6", "=", - RowBox[{ - 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[{ - 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}}, + 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[113]:=",ExpressionUUID->"78c2af13-19a3-442b-beb9-26b0e57e5cf9"], - -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}, - CellLabel-> - "During evaluation of \ -In[113]:=",ExpressionUUID->"b9abe59e-3a2a-46fa-9753-e5f910ad1c51"] -}, Open ]], + "In[1602]:=",ExpressionUUID->"78c2af13-19a3-442b-beb9-26b0e57e5cf9"], Cell[BoxData[ RowBox[{ @@ -144858,21 +149530,20 @@ Cell[BoxData[ 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"}], "}"}]}]}], + 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.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[121]:=",ExpressionUUID->"734dcd5d-62a6-4b97-abde-704167fb7071"], + "In[1605]:=",ExpressionUUID->"734dcd5d-62a6-4b97-abde-704167fb7071"], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"ListLogLogPlot", "[", + RowBox[{"ListLogPlot", "[", RowBox[{ RowBox[{"Abs", "@", RowBox[{ @@ -144881,313 +149552,140 @@ Cell[BoxData[ RowBox[{"Joined", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.832239893402195*^9, 3.832239920192848*^9}, { 3.832239998082823*^9, 3.8322399985463333`*^9}, {3.832241054717428*^9, - 3.832241055445216*^9}}, - CellLabel-> - "In[122]:=",ExpressionUUID->"075439f9-05f4-4790-857a-2c876562ceb2"], - -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}, - CellLabel-> - "During evaluation of \ -In[122]:=",ExpressionUUID->"0576a882-cda1-411a-8fe5-11d8dc16e7ab"], - -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}, - CellLabel-> - "During evaluation of \ -In[122]:=",ExpressionUUID->"d1f6865f-79aa-4b3c-a188-32bd0326112a"], - -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}, + 3.832241055445216*^9}, {3.8395783785246964`*^9, 3.839578379276371*^9}, { + 3.8395784124377623`*^9, 3.839578416861054*^9}, {3.839588109559115*^9, + 3.8395881107265377`*^9}}, CellLabel-> - "During evaluation of \ -In[122]:=",ExpressionUUID->"94ee616b-d4f1-41e8-bc11-0d637cde8b16"], - -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}, - CellLabel-> - "During evaluation of \ -In[122]:=",ExpressionUUID->"76660a41-dc69-4c34-aaa5-3d9d86c69dae"], + "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[{{0., -7.437943468416917}, { - 0.6931471805599453, -7.549824530393841}, { - 1.0986122886681098`, -8.50825980390974}, { - 1.3862943611198906`, -8.516853568524972}, { - 1.6094379124341003`, -8.485277856518412}, { - 1.791759469228055, -8.394815858607737}}]}}, {{}, {}}}, + LineBox[{{1., -6.60303098659917}, {2., -7.202406086073698}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{-0.07543431793191033, -8.60128440670547}, + AxesOrigin->{0., -7.249310589079174}, 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]], + ImageSize->{509.99999999999955`, Automatic}, 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., 2}, {-7.249310589079174, -6.60303098659917}}, 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, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-0.5108256237659907, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-0.2231435513142097, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 0.1823215567939546, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 0.3364722366212129, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 0.47000362924573563`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 0.5877866649021191, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 0.7884573603642703, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 0.8754687373538999, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 0.9555114450274363, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 1.0296194171811581`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 1.1631508098056809`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 1.2237754316221157`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 1.2809338454620642`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 1.33500106673234, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 1.4350845252893227`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 1.4816045409242156`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 1.5260563034950492`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 1.5686159179138452`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 1.6486586255873816`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 1.6863989535702288`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 1.7227665977411035`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 1.7578579175523736`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 1.824549292051046, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 1.8562979903656263`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 1.8870696490323797`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 1.916922612182061, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 1.9459101490553132`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}}, {{-8.517193191416238, + 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, + 0.}}, {-7.338538195074591, 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, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-7.986564940354067, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-7.929406526514119, + 0.}}, {-7.264430222920869, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-7.875339305243843, + 0.}}, {-7.195437351433918, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-7.77525584668686, + 0.}}, {-7.070274208479912, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-7.728735831051967, + 0.}}, {-7.013115794639964, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-7.6842840684811335`, + 0.}}, {-6.959048573369688, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-7.641724454062337, + 0.}}, {-6.8589651148127055`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-7.5616817463888015`, + 0.}}, {-6.812445099177812, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-7.523941418405954, + 0.}}, {-6.767993336606978, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-7.487573774235079, + 0.}}, {-6.684611727667927, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-7.4524824544238095`, + 0.}}, {-6.645391014514646, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-7.385791079925137, + 0.}}, {-6.607650686531799, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-7.354042381610556, + 0.}}, {-6.536191722549654, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-7.3232707229438025`, + 0.}}, {-6.502290170873972, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-7.293417759794122, + 0.}}, {-6.469500348050982, 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[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[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[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[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[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[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[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[7525587, 143627, 5910, 89, 71, "Input",ExpressionUUID->"73e91892-d41c-4d88-b25a-4eb12d081073"], +Cell[7675966, 146600, 6182, 94, 71, "Input",ExpressionUUID->"3fa9a0f5-416d-499e-8ee4-0612021a0c5d"], 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[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[7541950, 143884, 5914, 90, 71, "Input",ExpressionUUID->"6ece7e92-ba33-4e18-ba61-6c6859c6e44a"], +Cell[7695171, 146918, 6607, 100, 71, "Input",ExpressionUUID->"6bc0aefc-3faf-4b89-a295-e9f8f5ea8d73"], 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[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[7558681, 144152, 5961, 91, 71, "Input",ExpressionUUID->"3fa9a0f5-416d-499e-8ee4-0612021a0c5d"], +Cell[7715672, 147260, 6633, 100, 71, "Input",ExpressionUUID->"a19c8140-2cf0-4d2d-9cad-84c0b8ad1368"], 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[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[7575969, 144430, 6461, 98, 71, "Input",ExpressionUUID->"6bc0aefc-3faf-4b89-a295-e9f8f5ea8d73"], +Cell[7735809, 147587, 6558, 99, 71, "Input",ExpressionUUID->"89ac841c-bcba-48b4-ada1-f3f8e6567526"], 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[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[7755843, 147916, 6758, 102, 71, "Input",ExpressionUUID->"7ff78c11-7d73-4b16-b799-48cf4a2f6f7f"], 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[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[7597993, 144842, 1008, 27, 39, "Input",ExpressionUUID->"734dcd5d-62a6-4b97-abde-704167fb7071"], +Cell[7776526, 148258, 6712, 101, 71, "Input",ExpressionUUID->"24aac548-eb1c-4513-936d-7978b92c926b"], 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[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[7611856, 145192, 6112, 93, 71, "Input",ExpressionUUID->"4c9212b3-67d7-472d-8053-a6719a4b6968"], +Cell[7797926, 148608, 6762, 102, 71, "Input",ExpressionUUID->"388da309-89f7-4dd9-af7d-26bd2ea56024"], 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[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[7628325, 145442, 6655, 99, 71, "Input",ExpressionUUID->"53e62926-2399-4d89-a1a5-1a9de88f1de1"], 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[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[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[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[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[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[7669458, 146119, 7442, 110, 71, "Input",ExpressionUUID->"058d944c-17d2-44c4-a094-d49c5ebc4b30"], +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[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[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[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[7850475, 149690, 6112, 93, 71, "Input",ExpressionUUID->"4c9212b3-67d7-472d-8053-a6719a4b6968"], 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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[8583738, 162599, 2869, 47, 55, "Input",ExpressionUUID->"f961015d-b6cb-47e5-9e1a-587921f3fc25"], +Cell[8739957, 165534, 3491, 55, 55, "Input",ExpressionUUID->"95e7b2ca-f79f-42f7-a4d6-b9999aaaebbf"], 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[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[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[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[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[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[8632510, 163620, 2967, 48, 55, "Input",ExpressionUUID->"fa6a2ed9-7736-4734-8d89-947640bdc4df"], +Cell[8793790, 166584, 3360, 53, 55, "Input",ExpressionUUID->"c82c5d89-ecae-4e05-930f-c26cc54103a7"], 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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[10112334, 193877, 3136, 79, 109, "Input",ExpressionUUID->"5b87b5dc-8fd3-4849-af80-c87990bf73b7"], +Cell[9248693, 174551, 2861, 70, 109, "Input",ExpressionUUID->"77b309c5-73e7-45d2-91cc-18b17ef11474"], 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[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[10121994, 194090, 4130, 102, 144, "Input",ExpressionUUID->"acac5450-9d65-40ea-ad69-d3970fa2a02c"], 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[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[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[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[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[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[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[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[10350953, 198375, 3136, 79, 109, "Input",ExpressionUUID->"5b87b5dc-8fd3-4849-af80-c87990bf73b7"], 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[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[10191980, 195399, 2205, 38, 55, "Input",ExpressionUUID->"37492c9c-fdc8-424c-900f-4f6b226ea5d1"], +Cell[10360613, 198588, 4130, 102, 144, "Input",ExpressionUUID->"acac5450-9d65-40ea-ad69-d3970fa2a02c"], 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[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[10372422, 198838, 2010, 35, 55, "Input",ExpressionUUID->"9b0fa418-a20d-4aa7-8c89-b5dba5303662"], 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[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[10222083, 195979, 2257, 39, 55, "Input",ExpressionUUID->"e32582d9-3c4f-41b1-b65d-1c7772469053"], 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[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[10400001, 199347, 2110, 37, 55, "Input",ExpressionUUID->"c7666df1-5f3b-4148-9996-beab66dbc9dd"], 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[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[10252823, 196571, 2305, 39, 55, "Input",ExpressionUUID->"763eb3e7-8600-4d94-90f4-5ee8ead3a071"], 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[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[10430599, 199897, 2205, 38, 55, "Input",ExpressionUUID->"37492c9c-fdc8-424c-900f-4f6b226ea5d1"], 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[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[10284567, 197183, 2356, 40, 55, "Input",ExpressionUUID->"32cf5f09-fdfe-4f85-859e-082560961a3b"], 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[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[10460702, 200477, 2257, 39, 55, "Input",ExpressionUUID->"e32582d9-3c4f-41b1-b65d-1c7772469053"], 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[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[10317354, 197815, 2409, 41, 55, "Input",ExpressionUUID->"41b7e318-b250-4913-9bf4-dc8f575f89d6"], 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[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[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[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[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[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[10523186, 201681, 2356, 40, 55, "Input",ExpressionUUID->"32cf5f09-fdfe-4f85-859e-082560961a3b"], 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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[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[10940177, 208694, 2089, 36, 55, "Input",ExpressionUUID->"49c65f18-d801-4202-9b7e-030545c44001"], 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[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[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[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[11140848, 212417, 1994, 35, 55, "Input",ExpressionUUID->"3352b86d-ac70-40d3-a19b-895c1c5fe6d8"], 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[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[10978520, 209479, 2143, 37, 55, "Input",ExpressionUUID->"b57651c2-973f-4f6d-8d27-8f8761eae5f6"], 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[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[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[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[11178796, 213192, 2089, 36, 55, "Input",ExpressionUUID->"49c65f18-d801-4202-9b7e-030545c44001"], 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[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[11018148, 210298, 2143, 37, 55, "Input",ExpressionUUID->"bcf18ffc-8e3e-4ebe-b54e-01b6c9bf1c80"], 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[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[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[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[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[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 ] -- cgit v1.2.3-54-g00ecf