From 1a3d73906298b5a2aca3ea4c02f26b12cd6c5ba7 Mon Sep 17 00:00:00 2001 From: Jaron Kent-Dobias Date: Sat, 23 Oct 2021 22:45:53 +0200 Subject: Work. --- caselle_compare.nb | 1395 +++++++++++++++++++++++++++++++++++++++++++++------- new_schofield.nb | 1015 +++++++++++++++----------------------- 2 files changed, 1637 insertions(+), 773 deletions(-) diff --git a/caselle_compare.nb b/caselle_compare.nb index 835a5ce..95f0b08 100644 --- a/caselle_compare.nb +++ b/caselle_compare.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 144618, 3306] -NotebookOptionsPosition[ 136358, 3157] -NotebookOutlinePosition[ 136756, 3173] -CellTagsIndexPosition[ 136713, 3170] +NotebookDataLength[ 195819, 4365] +NotebookOptionsPosition[ 185470, 4185] +NotebookOutlinePosition[ 185872, 4201] +CellTagsIndexPosition[ 185829, 4198] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -96,21 +96,21 @@ Cell[BoxData[{ 3.8438061646410103`*^9}, {3.8438062079468822`*^9, 3.843806212028804*^9}, { 3.843806310535351*^9, 3.843806319271604*^9}, {3.843811727076584*^9, 3.843811750155121*^9}}, - CellLabel->"In[47]:=",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"], + CellLabel->"In[50]:=",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"], Cell[BoxData["0.27286889266851116`"], "Output", CellChangeTimes->{{3.8438061496682377`*^9, 3.843806165132856*^9}, 3.8438062124458447`*^9, {3.8438063135040703`*^9, 3.843806319765049*^9}, 3.8438114231817093`*^9, {3.843811741230702*^9, 3.8438117504040937`*^9}, - 3.8438127470406*^9, 3.8438833063506927`*^9}, - CellLabel->"Out[49]=",ExpressionUUID->"5916b0af-c167-4771-aeb7-3c62b468a0ba"], + 3.8438127470406*^9, 3.8438833063506927`*^9, 3.8439767083823442`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"a9698393-06dc-4415-b19c-549d331d4c2b"], Cell[BoxData["1.007010684856479`"], "Output", CellChangeTimes->{{3.8438061496682377`*^9, 3.843806165132856*^9}, 3.8438062124458447`*^9, {3.8438063135040703`*^9, 3.843806319765049*^9}, 3.8438114231817093`*^9, {3.843811741230702*^9, 3.8438117504040937`*^9}, - 3.8438127470406*^9, 3.843883306351761*^9}, - CellLabel->"Out[50]=",ExpressionUUID->"c9921f2f-76f7-4cfd-85ee-7bf5652dc449"] + 3.8438127470406*^9, 3.8438833063506927`*^9, 3.8439767083926086`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"c47f0714-077f-4207-8188-a52a73ea66f9"] }, Open ]], Cell[CellGroupData[{ @@ -332,6 +332,774 @@ Cell[BoxData[ Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"D", "[", + RowBox[{ + SuperscriptBox[ + RowBox[{"RealAbs", "[", "\[Eta]", "]"}], "2"], ",", "\[Eta]"}], + "]"}]], "Input", + CellChangeTimes->{{3.8439843406716013`*^9, 3.843984356597925*^9}}, + CellLabel-> + "In[273]:=",ExpressionUUID->"2e8e8755-9de4-46f0-8d34-70439b2b441b"], + +Cell[BoxData[ + RowBox[{"2", " ", "\[Eta]"}]], "Output", + CellChangeTimes->{{3.843984346778022*^9, 3.8439843571136303`*^9}}, + CellLabel-> + "Out[273]=",ExpressionUUID->"f78d77d4-a743-42fe-aad7-f383120ebe66"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"RealAbs", "[", "\[Eta]", "]"}], "2"], + RowBox[{"\[ScriptCapitalF]pm", "[", + SuperscriptBox[ + RowBox[{"RealAbs", "[", "\[Eta]", "]"}], + RowBox[{"-", + RowBox[{"\[CapitalDelta]", "[", "]"}]}]], "]"}]}], ",", + RowBox[{"{", + RowBox[{"\[Eta]", ",", "1"}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.843984294023637*^9, 3.8439843055548697`*^9}}, + CellLabel-> + "In[271]:=",ExpressionUUID->"e826229b-9150-4894-b288-5f834e4105f5"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"2", " ", "\[Eta]", " ", + RowBox[{"\[ScriptCapitalF]pm", "[", + FractionBox["1", + SuperscriptBox[ + RowBox[{"RealAbs", "[", "\[Eta]", "]"}], + RowBox[{"15", "/", "8"}]]], "]"}]}], "-", + FractionBox[ + RowBox[{"15", " ", "\[Eta]", " ", + RowBox[{ + SuperscriptBox["\[ScriptCapitalF]pm", "\[Prime]", + MultilineFunction->None], "[", + FractionBox["1", + SuperscriptBox[ + RowBox[{"RealAbs", "[", "\[Eta]", "]"}], + RowBox[{"15", "/", "8"}]]], "]"}]}], + RowBox[{"8", " ", + SuperscriptBox[ + RowBox[{"RealAbs", "[", "\[Eta]", "]"}], + RowBox[{"15", "/", "8"}]]}]]}]], "Output", + CellChangeTimes->{3.84397940925786*^9, 3.843984306115745*^9}, + CellLabel-> + "Out[271]=",ExpressionUUID->"ba4067d3-83a2-4fb1-b40d-dda17275ca39"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"test", "=", " ", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", + RowBox[{"#", "!"}]], + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + SuperscriptBox["\[Eta]", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"\[ScriptCapitalF]pm", "[", + SuperscriptBox["\[Eta]", + RowBox[{"-", + RowBox[{"\[CapitalDelta]", "[", "]"}]}]], "]"}], "+", + RowBox[{ + FractionBox[ + RowBox[{" ", "1"}], + RowBox[{"8", "\[Pi]"}]], + RowBox[{"Log", "[", + SuperscriptBox["\[Eta]", "2"], "]"}]}]}], ")"}]}], ",", + RowBox[{"{", + RowBox[{"\[Eta]", ",", "#"}], "}"}]}], "]"}]}], "/.", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"Derivative", "[", "n_", "]"}], "[", "\[ScriptCapitalF]pm", + "]"}], "[", "_", "]"}], "\[RuleDelayed]", + RowBox[{"-", + RowBox[{"datCasM", "[", + RowBox[{"[", "n", "]"}], "]"}]}]}]}], "/.", + RowBox[{ + RowBox[{"\[ScriptCapitalF]pm", "[", "_", "]"}], "\[RuleDelayed]", + RowBox[{ + RowBox[{ + SuperscriptBox["\[Eta]", + RowBox[{"-", "2"}]], + RowBox[{"\[CapitalPhi]s", "[", + RowBox[{"[", "1", "]"}], "]"}]}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"8", "\[Pi]"}]], + RowBox[{"Log", "[", + SuperscriptBox["\[Eta]", "2"], "]"}]}]}]}]}], "/.", + RowBox[{"\[Eta]", "\[Rule]", + RowBox[{ + RowBox[{"t", "[", "\[Theta]", "]"}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"h0", " ", + RowBox[{"hCas", "[", "\[Theta]", "]"}]}], ")"}], + RowBox[{ + RowBox[{"-", "1"}], "/", + RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}]}]}], "&"}], "/@", + RowBox[{"Range", "[", + RowBox[{"0", ",", "4"}], "]"}]}]}], ";"}]], "Input", + CellChangeTimes->{{3.843977448947337*^9, 3.8439774739864187`*^9}, { + 3.8439777381239777`*^9, 3.8439778097178307`*^9}, {3.843978498048068*^9, + 3.843978523458262*^9}, {3.84397859535165*^9, 3.843978684203545*^9}, { + 3.843978737191361*^9, 3.843978757182068*^9}, {3.8439788093504868`*^9, + 3.8439788095681953`*^9}, {3.84397954926616*^9, 3.8439795926753397`*^9}, { + 3.843979628249529*^9, 3.843979643819708*^9}, {3.843979814938733*^9, + 3.843979823035452*^9}, 3.8439806286149*^9, {3.843980798411592*^9, + 3.843980815036498*^9}, {3.843980884595045*^9, 3.8439808875781116`*^9}, + 3.8439810756431217`*^9, {3.84398119363118*^9, 3.8439811939537487`*^9}, { + 3.8439812658936872`*^9, 3.843981271875216*^9}, {3.843981387122608*^9, + 3.843981389172595*^9}, {3.843981436627571*^9, 3.843981436926566*^9}, { + 3.843981507023527*^9, 3.8439815291349688`*^9}, 3.8439815995044127`*^9, { + 3.843981950716568*^9, 3.843982049599683*^9}, {3.8439821906251917`*^9, + 3.843982222191123*^9}, {3.843982292163083*^9, 3.843982302907435*^9}, { + 3.843982496265829*^9, 3.843982528647358*^9}, {3.843982612879884*^9, + 3.843982629943433*^9}, {3.8439827941959133`*^9, 3.843982805725062*^9}, { + 3.843983326841724*^9, 3.843983357064176*^9}, {3.8439834908250027`*^9, + 3.843983496126409*^9}, {3.8439839329197397`*^9, 3.843983969766494*^9}, { + 3.843984016537162*^9, 3.843984021863111*^9}, {3.84398438133895*^9, + 3.843984413633376*^9}, {3.843984473521657*^9, 3.843984499280164*^9}, { + 3.843984548359413*^9, 3.843984549623651*^9}, {3.843984874078813*^9, + 3.843984910492568*^9}, {3.8439849715825977`*^9, 3.843985024932303*^9}, { + 3.843985059638566*^9, 3.843985092819029*^9}, {3.843985319652463*^9, + 3.843985328984827*^9}, {3.843985387506716*^9, 3.8439853875864573`*^9}, { + 3.843985445273638*^9, 3.843985456592615*^9}, {3.843985612937416*^9, + 3.8439856448203573`*^9}, 3.8439858717235117`*^9, {3.843985922965932*^9, + 3.843985940335438*^9}, {3.8439862065668163`*^9, 3.843986227475103*^9}, { + 3.843986356235326*^9, 3.843986381216381*^9}, {3.8439864483810883`*^9, + 3.843986461518548*^9}, {3.843986765923089*^9, 3.843986766213182*^9}, { + 3.843987655818223*^9, 3.843987695252995*^9}, {3.843987746798422*^9, + 3.843987778408546*^9}, {3.843987819513362*^9, 3.8439878199542313`*^9}, { + 3.84398789288629*^9, 3.843987928881118*^9}, {3.843987983477302*^9, + 3.8439879871749887`*^9}, {3.843988043407119*^9, 3.8439880467909946`*^9}, { + 3.843988162941238*^9, 3.84398817654088*^9}, {3.843988265626775*^9, + 3.8439882687390203`*^9}, {3.843988309039686*^9, 3.8439883215717*^9}, + 3.8439885079043922`*^9, {3.8439893658380213`*^9, 3.8439893666595*^9}, { + 3.844002142667212*^9, 3.844002146939465*^9}}, + CellLabel-> + "In[541]:=",ExpressionUUID->"1800b59b-60e8-4839-8aff-d82ae8bbba1a"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"test3", "=", + RowBox[{ + RowBox[{ + RowBox[{"SeriesCoefficient", "[", + RowBox[{"#", ",", + RowBox[{"{", + RowBox[{"\[Theta]", ",", "1", ",", "0"}], "}"}], ",", + RowBox[{"Assumptions", "\[Rule]", + RowBox[{"{", + RowBox[{"\[Theta]", ">", "1"}], "}"}]}]}], "]"}], "&"}], "/@", + "test"}]}], ";"}]], "Input", + CellChangeTimes->{{3.843985185323773*^9, 3.843985191540288*^9}, { + 3.8439853417991962`*^9, 3.843985399410922*^9}, {3.8439854859104147`*^9, + 3.843985486109192*^9}, 3.843986044837152*^9, {3.843986259456277*^9, + 3.843986260018146*^9}, 3.843987888756095*^9, {3.843988234259981*^9, + 3.843988236906592*^9}, {3.843988327216732*^9, 3.843988362393538*^9}, + 3.843988489524564*^9}, + CellLabel-> + "In[542]:=",ExpressionUUID->"04521673-5a45-41f8-ba39-1383a2daafcd"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ListLogPlot", "[", + RowBox[{"Abs", "@", + RowBox[{"{", + RowBox[{"\[CapitalPhi]s", ",", "test3"}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.843988413412496*^9, 3.843988447309177*^9}}, + CellLabel-> + "In[543]:=",ExpressionUUID->"340432fd-b01b-4746-840a-e312eec4ade0"], + +Cell[BoxData[ + GraphicsBox[{{{ + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, { + LineBox[{{3., -2.199250858729474}, {3., -2.1992508587114377`}}], + LineBox[{{3., -2.1992508587114377`}, {3., -2.199250858693401}}]}}, + Antialiasing->False]}, + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, { + LineBox[{{4., -4.108835370274531}, {4., -4.108835369665774}}], + LineBox[{{4., -4.108835369665774}, {4., -4.108835369057016}}]}}, + Antialiasing->False]}, + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, { + LineBox[{{5., -8.23957016697712}, {5., -8.239569788186014}}], + LineBox[{{5., -8.239569788186014}, {5., -8.23956940939505}}]}}, + Antialiasing->False]}, + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, { + LineBox[{{6., -7.57318515764723}, {6., -7.573184963114589}}], + LineBox[{{6., -7.573184963114589}, {6., -7.573184768581987}}]}}, + Antialiasing->False]}, + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, { + LineBox[{{7., -8.473827235511466}, {7., -8.473822447718424}}], + LineBox[{{7., -8.473822447718424}, {7., -8.473817659948304}}]}}, + Antialiasing->False]}, + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, { + LineBox[{{8., -10.012900713523315`}, {8., -10.012878401308493`}}], + LineBox[{{8., -10.012878401308493`}, {8., -10.012856089591494`}}]}}, + Antialiasing->False]}, + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, { + LineBox[{{9., -14.959957382976183`}, {9., -14.9568216011655}}], + LineBox[{{9., -14.9568216011655}, {9., -14.953695621752207`}}]}}, + Antialiasing->False]}, + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, { + LineBox[{{10., -12.356895535264757`}, {10., -12.354572653848617`}}], + LineBox[{{10., -12.354572653848617`}, {10., -12.352255155708255`}}]}}, + Antialiasing->False]}, + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, { + LineBox[{{11., -13.13241371325783}, {11., -13.127375919227873`}}], + LineBox[{{11., -13.127375919227873`}, {11., -13.122363377404328`}}]}}, + Antialiasing->False]}}, { + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{3., -2.199250858693401}, + Offset[{3, 0}, {3., -2.199250858693401}]}, {{ + 3., -2.199250858693401}, + Offset[{-3, 0}, {3., -2.199250858693401}]}, {{ + 3., -2.199250858729474}, + Offset[{3, 0}, {3., -2.199250858729474}]}, {{ + 3., -2.199250858729474}, + Offset[{-3, 0}, {3., -2.199250858729474}]}}], {{{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., -4.108835369057016}, + Offset[{3, 0}, {4., -4.108835369057016}]}, {{ + 4., -4.108835369057016}, + Offset[{-3, 0}, {4., -4.108835369057016}]}, {{ + 4., -4.108835370274531}, + Offset[{3, 0}, {4., -4.108835370274531}]}, {{ + 4., -4.108835370274531}, + Offset[{-3, 0}, {4., -4.108835370274531}]}}], {{{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., -8.23956940939505}, + Offset[{3, 0}, {5., -8.23956940939505}]}, {{ + 5., -8.23956940939505}, + Offset[{-3, 0}, {5., -8.23956940939505}]}, {{ + 5., -8.23957016697712}, + Offset[{3, 0}, {5., -8.23957016697712}]}, {{ + 5., -8.23957016697712}, + Offset[{-3, 0}, {5., -8.23957016697712}]}}], {{{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., -7.573184768581987}, + Offset[{3, 0}, {6., -7.573184768581987}]}, {{ + 6., -7.573184768581987}, + Offset[{-3, 0}, {6., -7.573184768581987}]}, {{ + 6., -7.57318515764723}, + Offset[{3, 0}, {6., -7.57318515764723}]}, {{ + 6., -7.57318515764723}, + Offset[{-3, 0}, {6., -7.57318515764723}]}}], {{{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., -8.473817659948304}, + Offset[{3, 0}, {7., -8.473817659948304}]}, {{ + 7., -8.473817659948304}, + Offset[{-3, 0}, {7., -8.473817659948304}]}, {{ + 7., -8.473827235511466}, + Offset[{3, 0}, {7., -8.473827235511466}]}, {{ + 7., -8.473827235511466}, + Offset[{-3, 0}, {7., -8.473827235511466}]}}], {{{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., -10.012856089591494`}, + Offset[{3, 0}, {8., -10.012856089591494`}]}, {{ + 8., -10.012856089591494`}, + Offset[{-3, 0}, {8., -10.012856089591494`}]}, {{ + 8., -10.012900713523315`}, + Offset[{3, 0}, {8., -10.012900713523315`}]}, {{ + 8., -10.012900713523315`}, + Offset[{-3, 0}, {8., -10.012900713523315`}]}}], {{{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., -14.953695621752207`}, + Offset[{3, 0}, {9., -14.953695621752207`}]}, {{ + 9., -14.953695621752207`}, + Offset[{-3, 0}, {9., -14.953695621752207`}]}, {{ + 9., -14.959957382976183`}, + Offset[{3, 0}, {9., -14.959957382976183`}]}, {{ + 9., -14.959957382976183`}, + Offset[{-3, 0}, {9., -14.959957382976183`}]}}], {{{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[{{{10., -12.352255155708255`}, + Offset[{3, 0}, {10., -12.352255155708255`}]}, {{ + 10., -12.352255155708255`}, + Offset[{-3, 0}, {10., -12.352255155708255`}]}, {{ + 10., -12.356895535264757`}, + Offset[{3, 0}, {10., -12.356895535264757`}]}, {{ + 10., -12.356895535264757`}, + Offset[{-3, 0}, {10., -12.356895535264757`}]}}], {{{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., -13.122363377404328`}, + Offset[{3, 0}, {11., -13.122363377404328`}]}, {{ + 11., -13.122363377404328`}, + Offset[{-3, 0}, {11., -13.122363377404328`}]}, {{ + 11., -13.13241371325783}, + Offset[{3, 0}, {11., -13.13241371325783}]}, {{ + 11., -13.13241371325783}, + Offset[{-3, 0}, {11., -13.13241371325783}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}}}, { + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + PointBox[{{1., 0.1804309238382727}, {2., -1.1431595731895612`}, { + 3., -2.1992508587114377`}, {4., -4.108835369665774}, { + 5., -8.239569788186014}, {6., -7.573184963114589}, { + 7., -8.473822447718424}, {8., -10.012878401308493`}, { + 9., -14.9568216011655}, {10., -12.354572653848617`}, { + 11., -13.127375919227873`}}]}, + {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + PointBox[{{1., 0.1804309238382727}, {2., -1.1403528622278423`}, { + 3., -1.820668971036842}, {4., -4.133537515955844}, { + 5., -8.132076893111675}}]}}, {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0., -16.144778690140278`}, + 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., 11.}, {-16.144778690140278`, 0.1804309238382727}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->FrontEndValueCache[{Automatic, + Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-16.11809565095832, + FormBox[ + TemplateBox[{"10", + RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], + TraditionalForm], {0.01, 0.}}, {-11.512925464970229`, + FormBox[ + TemplateBox[{"10", + RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], + TraditionalForm], {0.01, 0.}}, {-6.907755278982137, + FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-2.3025850929940455`, + FormBox[ + TagBox[ + InterpretationBox[ + StyleBox["\"0.100\"", ShowStringCharacters -> False], 0.1, + AutoDelete -> True], NumberForm[#, { + DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, + 0.}}, {-13.815510557964274`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-9.210340371976182, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.605170185988091, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0., + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.302585092994046, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.70805020110221, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 2.995732273553991, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { + 3.2188758248682006`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}}}]]], "Output", + CellChangeTimes->{{3.843988443432851*^9, 3.8439884476409197`*^9}, + 3.843989188061303*^9, 3.8440022072596407`*^9}, + CellLabel-> + "Out[543]=",ExpressionUUID->"0fe99cd0-b508-4c82-8cb5-d58d82b4dd4e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"test3", "[", + RowBox[{"[", "3", "]"}], "]"}]], "Input", + CellChangeTimes->{{3.844008673952516*^9, 3.844008699430373*^9}, { + 3.8440088366669893`*^9, 3.844008836896523*^9}}, + CellLabel-> + "In[557]:=",ExpressionUUID->"33938e6c-adaa-464a-9564-ced71dd22d4e"], + +Cell[BoxData[ + RowBox[{"-", "0.1619173966462644`"}]], "Output", + CellChangeTimes->{{3.844008676721615*^9, 3.844008699891857*^9}, + 3.844008837369658*^9}, + CellLabel-> + "Out[557]=",ExpressionUUID->"321f4d39-6591-48a7-9389-9935b198b499"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ParametricPlot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"t", "[", "\[Theta]", "]"}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"h0", " ", + RowBox[{"hCas", "[", "\[Theta]", "]"}]}], ")"}], + RowBox[{ + RowBox[{"-", "1"}], "/", + RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}], ",", + RowBox[{"test", "[", + RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"\[Theta]", ",", "0.5", ",", "1.1"}], "}"}], ",", + RowBox[{"AspectRatio", "\[Rule]", + RowBox[{"1", "/", "GoldenRatio"}]}], ",", + RowBox[{"WorkingPrecision", "\[Rule]", "30"}]}], "]"}], ",", + "\[IndentingNewLine]", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"test3", "[", + RowBox[{"[", "1", "]"}], "]"}], "+", + RowBox[{ + RowBox[{"test3", "[", + RowBox[{"[", "2", "]"}], "]"}], "x"}]}], ",", + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", + RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], + "\[IndentingNewLine]", "]"}]], "Input", + CellChangeTimes->{{3.844002027467222*^9, 3.844002116527075*^9}, { + 3.8440022182075043`*^9, 3.8440023011426783`*^9}, {3.844008619185902*^9, + 3.844008658160707*^9}, {3.8440087871730633`*^9, 3.844008812945347*^9}, { + 3.8440088560827703`*^9, 3.844008884537188*^9}}, + CellLabel-> + "In[560]:=",ExpressionUUID->"5ed4b47f-e272-40ab-8c23-58385be3e0c6"], + +Cell[BoxData[ + TemplateBox[{ + "ParametricPlot", "precw", + "\"The precision of the argument function (\\!\\(\\*RowBox[{\\\"{\\\", \ +RowBox[{RowBox[{RowBox[{\\\"t\\\", \\\"[\\\", \\\"\[Theta]\\\", \\\"]\\\"}], \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"0.27286889266851116`\ +\\\", \\\" \\\", RowBox[{\\\"hCas\\\", \\\"[\\\", \\\"\[Theta]\\\", \ +\\\"]\\\"}]}], \\\")\\\"}], RowBox[{\\\"-\\\", FractionBox[\\\"1\\\", \ +RowBox[{\\\"\[CapitalDelta]\\\", \\\"[\\\", \\\"]\\\"}]]}]]}], \\\",\\\", \ +RowBox[{RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"2\\\", \\\" \ +\\\", \\\"\[Pi]\\\"}], \\\")\\\"}], RowBox[{\\\"1\\\", \\\"/\\\", \ +\\\"15\\\"}]], \\\" \\\", RowBox[{\\\"Gamma\\\", \\\"[\\\", FractionBox[\\\"1\ +\\\", \\\"5\\\"], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \ +SuperscriptBox[RowBox[{\\\"Gamma\\\", \\\"[\\\", FractionBox[\\\"13\\\", \ +\\\"16\\\"], \\\"]\\\"}], RowBox[{\\\"16\\\", \\\"/\\\", \\\"15\\\"}]]}], \ +RowBox[{SuperscriptBox[RowBox[{\\\"Gamma\\\", \\\"[\\\", \ +FractionBox[\\\"3\\\", \\\"16\\\"], \\\"]\\\"}], RowBox[{\\\"16\\\", \ +\\\"/\\\", \\\"15\\\"}]], \\\" \\\", RowBox[{\\\"Gamma\\\", \\\"[\\\", \ +FractionBox[\\\"8\\\", \\\"15\\\"], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Gamma\ +\\\", \\\"[\\\", FractionBox[\\\"2\\\", \\\"3\\\"], \\\"]\\\"}], \\\" \\\", \ +RowBox[{\\\"Gamma\\\", \\\"[\\\", FractionBox[\\\"4\\\", \\\"5\\\"], \ +\\\"]\\\"}]}]]}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\",\\\", RowBox[{FractionBox[\\\"1\\\", \ +\\\"24\\\"], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{FractionBox[RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}], RowBox[{\\\"8\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\ +\\\", \\\"\[RightSkeleton]\\\"}]}]]], \\\"+\\\", RowBox[{\\\"12\\\", \\\" \ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]]]}], \\\")\\\"}]}]}], \\\"}\\\"}], \\\"\ +\[LeftDoubleBracket]\\\", \\\"1\\\", \\\"\[RightDoubleBracket]\\\"}]}], \\\"}\ +\\\"}]\\)) is less than WorkingPrecision \ +(\\!\\(\\*RowBox[{\\\"30.`\\\"}]\\)).\"", 2, 560, 72, 25191839074214845445, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.844002282168264*^9, 3.84400230178336*^9}, { + 3.844008654456798*^9, 3.84400865876917*^9}, {3.844008788291792*^9, + 3.844008813510537*^9}, {3.844008861755539*^9, 3.844008885219948*^9}}, + CellLabel-> + "During evaluation of \ +In[560]:=",ExpressionUUID->"06e3abf0-2019-4c5e-99b9-d2a9da7384db"], + +Cell[BoxData[ + TemplateBox[{ + "ParametricPlot", "precw", + "\"The precision of the argument function (\\!\\(\\*RowBox[{\\\"{\\\", \ +RowBox[{RowBox[{RowBox[{\\\"\[Theta]\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{\\\"1\\\", \\\"-\\\", RowBox[{\\\"0.855058956315038`\\\", \\\" \\\", \ +SuperscriptBox[\\\"\[Theta]\\\", \\\"2\\\"]}]}], \\\")\\\"}], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"-\\\", RowBox[{\\\"0.222389`\\\", \ +\\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \\\"2\\\"]}], \\\"-\\\", RowBox[{\ +\\\"0.043547`\\\", \\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \\\"4\\\"]}], \ +\\\"-\\\", RowBox[{\\\"0.014809`\\\", \\\" \\\", \ +SuperscriptBox[\\\"\[Theta]\\\", \\\"6\\\"]}], \\\"-\\\", \ +RowBox[{\\\"0.007168`\\\", \\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \ +\\\"8\\\"]}]}], \\\")\\\"}]}], \\\"-\\\", \\\"0\\\"}], \\\",\\\", \ +RowBox[{RowBox[{\\\"Im\\\", \\\"[\\\", RowBox[{\\\"\[Theta]\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"-\\\", RowBox[{RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"18\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \ +SuperscriptBox[\\\"\[Theta]\\\", \\\"2\\\"]}]}], \\\")\\\"}], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"-\\\", RowBox[{\\\"0.222389`\\\", \ +\\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \\\"2\\\"]}], \\\"-\\\", RowBox[{\ +\\\"0.043547`\\\", \\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \\\"4\\\"]}], \ +\\\"-\\\", RowBox[{\\\"0.014809`\\\", \\\" \\\", \ +SuperscriptBox[\\\"\[Theta]\\\", \\\"6\\\"]}], \\\"-\\\", \ +RowBox[{\\\"0.007168`\\\", \\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \ +\\\"8\\\"]}]}], \\\")\\\"}]}], \\\"]\\\"}], \\\"-\\\", \\\"0\\\"}]}], \\\"}\\\ +\"}]\\)) is less than WorkingPrecision \ +(\\!\\(\\*RowBox[{\\\"30.`\\\"}]\\)).\"", 2, 560, 73, 25191839074214845445, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.844002282168264*^9, 3.84400230178336*^9}, { + 3.844008654456798*^9, 3.84400865876917*^9}, {3.844008788291792*^9, + 3.844008813510537*^9}, {3.844008861755539*^9, 3.844008885446347*^9}}, + CellLabel-> + "During evaluation of \ +In[560]:=",ExpressionUUID->"465d3232-1f00-42ad-89f9-f7dbe9649552"], + +Cell[BoxData[ + TemplateBox[{ + "ParametricPlot", "precw", + "\"The precision of the argument function (\\!\\(\\*RowBox[{\\\"{\\\", \ +RowBox[{\\\"True\\\", \\\",\\\", RowBox[{RowBox[{\\\"Re\\\", \\\"[\\\", \ +RowBox[{\\\"\[Theta]\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\ +\"-\\\", RowBox[{\\\"0.855058956315038`\\\", \\\" \\\", SuperscriptBox[\\\"\ +\[Theta]\\\", \\\"2\\\"]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{\\\"1\\\", \\\"-\\\", RowBox[{\\\"0.222389`\\\", \\\" \\\", \ +SuperscriptBox[\\\"\[Theta]\\\", \\\"2\\\"]}], \\\"-\\\", \ +RowBox[{\\\"0.043547`\\\", \\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \ +\\\"4\\\"]}], \\\"-\\\", RowBox[{\\\"0.014809`\\\", \\\" \\\", \ +SuperscriptBox[\\\"\[Theta]\\\", \\\"6\\\"]}], \\\"-\\\", \ +RowBox[{\\\"0.007168`\\\", \\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \ +\\\"8\\\"]}]}], \\\")\\\"}]}], \\\"]\\\"}], \\\"\[LessEqual]\\\", \ +\\\"0\\\"}]}], \\\"}\\\"}]\\)) is less than WorkingPrecision \ +(\\!\\(\\*RowBox[{\\\"30.`\\\"}]\\)).\"", 2, 560, 74, 25191839074214845445, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.844002282168264*^9, 3.84400230178336*^9}, { + 3.844008654456798*^9, 3.84400865876917*^9}, {3.844008788291792*^9, + 3.844008813510537*^9}, {3.844008861755539*^9, 3.844008885561537*^9}}, + CellLabel-> + "During evaluation of \ +In[560]:=",ExpressionUUID->"51fecbe8-1bd4-4ff4-b67b-93b66d40b947"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"ParametricPlot\\\", \ +\\\"::\\\", \\\"precw\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 560, 75, 25191839074214845445, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.844002282168264*^9, 3.84400230178336*^9}, { + 3.844008654456798*^9, 3.84400865876917*^9}, {3.844008788291792*^9, + 3.844008813510537*^9}, {3.844008861755539*^9, 3.844008885600465*^9}}, + CellLabel-> + "During evaluation of \ +In[560]:=",ExpressionUUID->"4e40cd38-d9b9-4ca7-8ccd-de1b917cec88"], + +Cell[BoxData[ + GraphicsBox[{{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], FaceForm[Opacity[0.3]], LineBox[CompressedData[" +1:eJxTTMoPSmViYGAwAWIQ/d/R3j8hkeWA2TXu6lean/cXl/3MZ9RD8E/dqf0g +8ZsZzne8uOmUUR+CP5tdusxAC8FvZzzzvuskE5z/MZr1q3gSgh/er3F5AxOC +b5u67GHcHEY4vyGIf89lCwTfZ9qTt4vuMMD5R3ZfvW5VieB7zE5bdE4GwU+a +lhd3reX/fhh/VZSq4N0D/+B8/gofvbucCH7OucM5DM5/4fxzGeEuL+v+wPke +MTxNb4/9hvNXLM2+c+LvLzhfs18mRdsBwb9XothuVvATzj+6MkWDbeEPOP/D +hzkF/Xe+w/nrnHuONTMj+I+7L8fVmnyD87N2GXhfTPkK529YzpZWXfsFzt/Y +K80pN/8znM/5dfkEhmWf4Hzrnc4rGFZ8hPMlZRUqUzd+gPOzvdo86o3fw/lB +ASUrb/O9hfMTmewaRW+8QugXM1or6f0Czp+2cMOe/fufIvyXxaTQeOwRnO9b +ynh7c+N9OP8pX2vWUuabcH7dNbdHa3Uuwvlfqm3Vp588COfXbkkosbgx3R7G +/ymtl74x4TScH/Fiwm/f3bfh/Ef77/lH3HgO579ZIb9+/qJPcH7epYjl6dv+ +wvlef72mhUWwOMD4kXZeJbv4BeB884Y1v0qmGMD5vLXvOCV+WcL5AODCvec= + + "]]}, + Annotation[#, "Charting`Private`Tag$11036414#1"]& ]}, {}}, {{{}, {}, + TagBox[ + {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], + LineBox[CompressedData[" +1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAfedN8v//E8Ab4srMv14GwOZ7FvXb +/BPAgaQouL1cBsBOEN/3t/kTwOdmhqO7WgbAIDlw/W/zE8C060F6t1YGwMKK +kgjg5hPATPW4J69OBsAILtcewM0TwH0Ip4KePgbAlHRgS4CbE8DgLoM4fR4G +wKsBc6QANxPApXs7pDreBcAFZUcyGV0SwH4j/wPmUgXAE9jFbKKREcA84s8W +zdAEwFLDmmMpyhDAql8aeUFRBMB77z1skOMPwGjrt2PmxgPAuHeaaq9PDsAJ +jmIBx0UDwE6SVSD+mQzA+j5gJ9i5AsBHnb1OSOwKwJyu15x2MALApsd51nNb +CcAhNVzFULABwF6ElBXPqAfA9skzdlslAcB+YAOuCxMGwK51GNqhowDAAC0f +v0OFBMAX4HaNdSQAwNqLmYer1QLAoLFQkvM0/78cCmip9EIBwNnQzW9zM/6/ +azUqBdsc/7+wDPFdVBz9v2M33qjDw/u/6sUH608K/L8qeDr/bqT4v+ysON7C +Cvu/od1TxHlB9b+LsA/ilvX5v+eBFTxHGPK/8OEATOLy+L+6lShF6Fbtv/Uv +mMaO2ve/MOnZ9C+d5r9d+yLgVcf2v0S62wn9VuC/i/THX5TG9b9wqa/4ERPT +v1gKE/AzsPS/VmYjodJ8ub/rTXjmSqzzv8fM2YozU7g/4g7Re3yt8r86LcGy +UJfTP3fszyEPmfG/AnYV3GQZ4D/T9+gtGZfwvwcMUIFi7uY/mj9QlQj/7r+D +4NZDcqPtP1aKtQwU2uy/sJuGUH7y8T+fME9QDtrqv2+iZBDkVvU/JBA1tcqu +6L9eapodh4H4PzdLT+Z1qOa/iVF2OTOc+z8RgVBVVqzkvwQUleZ/+v4/J/Cd +5fiE4r/Xy4XwhA8BQMy6H0KKguC/VXtiNprDAkBYfdt/u6ncv2wL6yLOWgRA +MDzgE0CY2L8fq8aWBuoFQJzwsiMvm9S/e7hDUw+bB0B+Fx52okfQv3CmbLY2 +LwlA8OrjweZ7yL8MAjdiLuUKQMAXeTkid7+/RW1UlSqTDEDAX8S8QZCsvxi5 +HW9FJA5AALsdsaH2ez+ScoiRMNcPQEAdJArkILM/UoZPLZ22EEA4wcnLc63B +PypbhFWkfRFAuIjlmqChyT/W5gmik1USQJw1aHJiIdE/zmLlQRIfE0DI7/T+ +FijVP+EEp/iVIhNAiP0wTRE61T/0pmivGSYTQEQLbZsLTNU/GevrHCEtE0C8 +JuU3AHDVP2Rz8vcvOxNAtF3VcOm31T/6g/+tTVcTQKDLteK7R9Y/JqUZGomP +E0B4p3bGYGfXPzlH29AMkxNAOLWyFFt51z9M6ZyHkJYTQPjC7mJVi9c/cS0g +9ZedE0Bw3mb/Sa/XP7y1JtCmqxNAaBVXODP31z9SxjOGxMcTQFSDN6oFh9g/ +ZWj1PEjLE0AQkXP4/5jYP3gKt/PLzhNA0J6vRvqq2D+dTjph09UTQEi6J+Pu +ztg/6NZAPOLjE0BA8Rcc2BbZP/p4AvNl5xNA+P5TatIo2T8NG8Sp6eoTQLgM +kLjMOtk/Ml9HF/HxE0AwKAhVwV7ZP0UBCc509RNA8DVEo7tw2T9Yo8qE+PgT +QLBDgPG1gtk/akWMO3z8E0BoUbw/sJTZP33nTfL//xNAKF/4jaqm2T9k1W0e + + "]]}, + Annotation[#, "Charting`Private`Tag$11036459#1"]& ]}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> + None}, + PlotRange->{{-2.5475469771556614`, + 2.397971707596225}, {-2.3954667675959866`, 0.}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.05], + Scaled[0.05]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.844002029951742*^9, 3.844002046304583*^9}, { + 3.844002077607532*^9, 3.8440021181802073`*^9}, {3.844002244866061*^9, + 3.8440023024367*^9}, {3.844008654971917*^9, 3.844008659369892*^9}, { + 3.8440087889038982`*^9, 3.844008814185492*^9}, {3.844008862476318*^9, + 3.844008885944442*^9}}, + CellLabel-> + "Out[560]=",ExpressionUUID->"02496185-9d40-4431-9ca9-6085c166d125"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"\[CapitalPhi]s", "[", + RowBox[{"[", "4", "]"}], "]"}]], "Input", + CellChangeTimes->{{3.843988288620174*^9, 3.8439882922229843`*^9}}, + CellLabel-> + "In[517]:=",ExpressionUUID->"eb2501cb-e52c-43ae-bbbf-2c91bfb69b81"], + +Cell[BoxData[ + InterpretationBox[ + TemplateBox[{"0.0164268946", "50", "10"}, + "AroundSeq"], + Around[0.01642689465, 1.*^-11]]], "Output", + CellChangeTimes->{3.8439882924586763`*^9}, + CellLabel-> + "Out[517]=",ExpressionUUID->"ddfad34c-6774-4ef8-b8bc-c5de09b41700"] +}, Open ]], + Cell[BoxData[{ RowBox[{ RowBox[{"totCas", "=", "6"}], ";"}], "\[IndentingNewLine]", @@ -343,55 +1111,47 @@ Cell[BoxData[{ RowBox[{"totCas", "+", "1"}], "]"}], "[", RowBox[{"\[Theta]", "\[Function]", FractionBox[ - RowBox[{"t", "[", "\[Theta]", "]"}], + RowBox[{"h0", " ", + RowBox[{"hCas", "[", "\[Theta]", "]"}]}], SuperscriptBox[ - RowBox[{"(", - RowBox[{"h0", " ", - RowBox[{"hCas", "[", "\[Theta]", "]"}]}], ")"}], - RowBox[{"1", "/", - RowBox[{"\[CapitalDelta]", "[", "2", "]"}]}]]]}], "]"}], "[", "1", - "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"t", "[", "\[Theta]", "]"}], + RowBox[{"\[CapitalDelta]", "[", "2", "]"}]]]}], "]"}], "[", + "\[Theta]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dMs", "=", - RowBox[{ - RowBox[{"m0", " ", - RowBox[{"NestList", "[", + RowBox[{"m0", " ", + RowBox[{"NestList", "[", + RowBox[{ RowBox[{ - RowBox[{ - RowBox[{"D", "[", - RowBox[{"#", ",", "\[Theta]"}], "]"}], "&"}], ",", - FractionBox["\[Theta]", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"h0", " ", - RowBox[{"hCas", "[", "\[Theta]", "]"}]}], ")"}], "15"]], ",", - "totCas"}], "]"}]}], "/.", - RowBox[{"\[Theta]", "->", "1"}]}]}], ";"}], "\[IndentingNewLine]", - RowBox[{"datCasM", "=", - RowBox[{"Table", "[", - RowBox[{ + RowBox[{"D", "[", + RowBox[{"#", ",", "\[Theta]"}], "]"}], "&"}], ",", + FractionBox["\[Theta]", + SuperscriptBox[ + RowBox[{"t", "[", "\[Theta]", "]"}], + RowBox[{"\[Beta]", "[", "]"}]]], ",", "totCas"}], "]"}]}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"datCasM", "=", + RowBox[{"Table", "[", RowBox[{ - RowBox[{"-", - RowBox[{"Sum", "[", + RowBox[{"Sum", "[", + RowBox[{ RowBox[{ - RowBox[{ - RowBox[{"dMs", "[", - RowBox[{"[", - RowBox[{"k", "+", "1"}], "]"}], "]"}], - RowBox[{"BellY", "[", - RowBox[{"n", ",", "k", ",", - RowBox[{"ds", "[", - RowBox[{"[", - RowBox[{";;", - RowBox[{"n", "-", "k", "+", "1"}]}], "]"}], "]"}]}], "]"}]}], - ",", - RowBox[{"{", - RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "/", - RowBox[{ - RowBox[{"(", - RowBox[{"n", "+", "1"}], ")"}], "!"}]}], ",", - RowBox[{"{", - RowBox[{"n", ",", "0", ",", "totCas"}], "}"}]}], "]"}]}]}], "Input", + RowBox[{"dMs", "[", + RowBox[{"[", + RowBox[{"k", "+", "1"}], "]"}], "]"}], + RowBox[{"BellY", "[", + RowBox[{"n", ",", "k", ",", + RowBox[{"ds", "[", + RowBox[{"[", + RowBox[{";;", + RowBox[{"n", "-", "k", "+", "1"}]}], "]"}], "]"}]}], "]"}]}], + ",", + RowBox[{"{", + RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"n", ",", "0", ",", "totCas"}], "}"}]}], "]"}]}], + ";"}]}], "Input", CellChangeTimes->{{3.836976284774213*^9, 3.8369763107653933`*^9}, { 3.8369763440621157`*^9, 3.836976643043976*^9}, {3.8369766791263657`*^9, 3.836976702020906*^9}, {3.8369833396004457`*^9, 3.8369833834965153`*^9}, { @@ -417,53 +1177,321 @@ Cell[BoxData[{ 3.84380324222451*^9}, {3.8438033353723392`*^9, 3.843803345882052*^9}, { 3.8438034178358307`*^9, 3.843803431043694*^9}, {3.84380358438281*^9, 3.843803587446344*^9}, 3.843804356868655*^9, {3.843806602116267*^9, - 3.843806615782628*^9}, {3.8438066706784363`*^9, 3.843806670875389*^9}}, + 3.843806615782628*^9}, {3.8438066706784363`*^9, 3.843806670875389*^9}, { + 3.843981475606935*^9, 3.843981476287299*^9}, 3.843981654839469*^9, { + 3.8439817865685596`*^9, 3.84398181233598*^9}, {3.84398192257196*^9, + 3.843981925872644*^9}, {3.8439821255775642`*^9, 3.8439821258573503`*^9}, { + 3.8439821771441813`*^9, 3.8439821780335617`*^9}, {3.843982433344853*^9, + 3.8439824735347757`*^9}, {3.843982516777648*^9, 3.84398254141038*^9}, { + 3.8439834669722652`*^9, 3.8439834695995407`*^9}, {3.843983517678876*^9, + 3.8439835209625463`*^9}, {3.843984484082121*^9, 3.843984511311327*^9}, { + 3.8439848890701437`*^9, 3.8439849146797533`*^9}, {3.843984993590008*^9, + 3.843984993889539*^9}, {3.843985064287517*^9, 3.84398507040582*^9}, { + 3.8439852967469473`*^9, 3.8439853090769577`*^9}, {3.843985419965234*^9, + 3.843985436839972*^9}, {3.8439859516652393`*^9, 3.8439859894619703`*^9}, { + 3.8439882228149643`*^9, 3.843988228008665*^9}}, CellLabel-> - "In[106]:=",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"], + "In[507]:=",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"{", + RowBox[{"Plot", "[", RowBox[{ - InterpretationBox[ - TemplateBox[{"-1.8107438", "91", "18", - SuperscriptBox["10", "23"]}, - "AroundSeqExp"], - Around[-1.810743891047566*^23, 1.8259874330824092`*^15]], ",", - InterpretationBox[ - TemplateBox[{"-1.2079570", "30", "12", - SuperscriptBox["10", "24"]}, - "AroundSeqExp"], - Around[-1.2079570302224561`*^24, 1.2132418344942812`*^16]], ",", - InterpretationBox[ - TemplateBox[{"-5.3533535", "8", "6", - SuperscriptBox["10", "24"]}, - "AroundSeqExp"], - Around[-5.35335357842576*^24, 5.783674374851528*^16]], ",", - InterpretationBox[ - TemplateBox[{"-1.7701735", "82", "22", - SuperscriptBox["10", "25"]}, - "AroundSeqExp"], - Around[-1.7701735821721476`*^25, 2.213830398441585*^17]], ",", - InterpretationBox[ - TemplateBox[{"-4.6512567", "9", "8", - SuperscriptBox["10", "25"]}, - "AroundSeqExp"], - Around[-4.651256794168315*^25, 7.58598708140362*^17]], ",", - InterpretationBox[ - TemplateBox[{"-1.0100903", "03", "23", - SuperscriptBox["10", "26"]}, - "AroundSeqExp"], - Around[-1.0100903031803127`*^26, 2.3362261223241236`*^18]], ",", - InterpretationBox[ - TemplateBox[{"-1.8619640", "5", "7", - SuperscriptBox["10", "26"]}, - "AroundSeqExp"], - Around[-1.861964054710709*^26, 6.774164555891238*^18]]}], "}"}]], "Output",\ + RowBox[{"{", + RowBox[{ + RowBox[{"Abs", "@", + RowBox[{"datCasM", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ",", + RowBox[{"Evaluate", "[", + RowBox[{"Abs", "[", + RowBox[{ + RowBox[{"m0", "/", + RowBox[{"D", "[", + RowBox[{ + FractionBox[ + RowBox[{"h0", " ", + RowBox[{"hCas", "[", "\[Theta]", "]"}]}], + SuperscriptBox[ + RowBox[{"t", "[", "\[Theta]", "]"}], + RowBox[{"\[CapitalDelta]", "[", "2", "]"}]]], ",", "\[Theta]"}], + "]"}]}], + RowBox[{"D", "[", + RowBox[{ + FractionBox["\[Theta]", + SuperscriptBox[ + RowBox[{"t", "[", "\[Theta]", "]"}], + RowBox[{"\[Beta]", "[", "]"}]]], ",", "\[Theta]"}], "]"}]}], + "]"}], "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"\[Theta]", ",", "0", ",", "\[Theta]0Cas"}], "}"}]}], + "]"}]], "Input", + CellChangeTimes->{{3.84398190190687*^9, 3.843981915841597*^9}, { + 3.8439830422597313`*^9, 3.8439830897680197`*^9}, {3.843983268657812*^9, + 3.8439832894412003`*^9}}, + CellLabel-> + "In[230]:=",ExpressionUUID->"850f45b2-810d-4cc6-a9fa-3b038d25d4c3"], - CellChangeTimes->{{3.8438066082122383`*^9, 3.843806616538913*^9}, - 3.843806672624413*^9}, +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwV02k4VV0bB3BlCmcrU1EaiEoqIT0I/61QekgRZSqOqUjGRIbMoogMSYRk +TGZSjqJJRKTQIxVpIM7ZpZIhevf7YV3r+n251z0tGaaHqdNCLi6u1/T5/22v +J/wlo+qQzi5WxiARTZCPf4TZT7DU8GA63/v/LpI3+vOApQ8Rtc4NDNq3i8Yc +oo3343DwUm5B2hk6lYY3WeboGAtcwE87+JWfUpeiNVry/q7lpr1V7VrcGWM7 +3OrOdZ2PIkhZrrA5Bq8D+CuYPVO0xZ45eGaznBAYvNNxgjZPmsGwsu8xVETr +LhujPWmnYPFI0Q2nZOw4H2h/UWS0Wgy7o/zWtdH/aJ8I/J3la+wJq9S5RV20 +Pw0e69Mu9kK8UbDRY9pHDPqX8PP6wPPAqpo7tE1EGiOusE7Bx+MJlU37qd+W +Rqbkadjffv4wiTY5kD2p6OuP3JKZhnDaKoXhx+8pBqLxaJMkk3YJ4+f1mJgg +rM+1Dt5Pe62308D+4WAsil/Jp0M7btWNQi/jUGzrloxcStvghY2exWwo+mbN +AhbQ5o6UGNIsDsM5zzuXxiIJMmg0ejkPbwRu7+VXaaTtXnM8Po0VBW6nDlkL +2htdZDcGukZj/a4ADU3an6XePDkqGQOhS4d9V9I+ctaIS8H3HJpf1VkMRRDk +/r1KPg2K53HISer5EdqMuS+Lc/47j8CZGD4t2k/Lc0ojYy6Ap1TNQZK2roTo +Z+PheMxOH4x9Hk6QUp5nNnkaJyIx/uW5rbT9W3vPMG8kokrIbZiPdq+sauvB +2UT09JkwB8II8lLPmJNGcRJyVQQ6ImkL7rDNXsibDFMxX4tnoQT5h5cUTWWl +wjpffIfSWYL82LA5p295Gt6Kr1b4EUKQ7V4rtiwPSENR40qJOtpZbycNs9Uu +o2OK54s6bZ3aW2HFZeloetHvrRJMkGcdV3xvzLkKh1udm3+dIchjywXOcv29 +irCWlj9FtPd3TTJ22WYijEm1WtNeo9W94alUFupfvT1yL4Agm8Ri7bovXcOR +tnKf0/4EGWY/6+LzIAdttUuN75wiSD+tibKU7zkYC5BaYEvbddnor9o1uVg9 +mVL915cgTTt6I6ZCcqFuJCi+k7asRlV28I7rGPoe8vCuN0E+WHK8L6YmD3so +3aFAD3qfm3oNMgsKYHoindQ+RpDbP2xYeK27APKX8yRaXej8eQIbs+cLUOfz +TPAg7fY9q7flWRTipXWMuYszQaa+cJEp4SuCFdvIPcKRINcNT83edi5GwIzU +zSQ7gjTkW1H5cl0pOk/rxPEdpvdpg/uJHtNSXNezOel3iCDL9t5f3xdSivZG +a59PFgQpetHhWn9vKXZLrRhsMifI/mWl54eib+FSuK2+uxn9nxS0nanPZWjX +kdPP3EeQuwvK46NeVqAtNtjYTI8gQ3Ufji8brcDtTJ/Gkl0EeXeg99+S+QqM +LB04tID2JrF5gU6FSgQIrmWU6hLkklCjaMnQSqxNZvr81qHfsxwNubmpCnKW +qbucNQjyJLHW80VUNcRTVOVubCbIwqLtnQ5Xq9EZJTkxuIkgB3ft3TJZUY3d +j/3HpGmbnfEaXz5Qjfm+53aXNhKk+pf7xxxVauAg2WHhs54gFzbb2P9+VwMh +xyX+hAxBpvmmma5Ur4MAV/6L62IEOeGc0BxhUoc313iMq0QJcp9l9NavznXQ +5NR3NokQJK+On/Dt1DqsdzIb619MkL78Fm37f9ThhERjEDeDnn+GxM7Isttg +dMyIreMhSOGmFOUxuTswHs/yqfzBIKOFkpfcEWFhvO/W6o+dDDIst/7OxfUs +MGz4RdueM8igf94xnbVZ0J2d3FLewSC9HBRqxY6zIHaxY8TvGYO0abhvebKJ +hWbHDts/Txikitv49bUejbDj/Xj4fSODfN+mr5bQfg8r3T//4L3JIKX1/5RW +PmwCLgd+eB3OIB+PaDxfdOchPiiK2yasYZC+XU+lE3Oe4N8DwUMulUIkzyZG +5SqLVvhqhypMaQmRH936dZUM2rHlQfq8aqUgeWO1reRunk54dGuqnZIVJGvP +Sybs7u+C2731pr7nBcim6d0JpSbdmJ3Jdrr/ZhHZkHtAWaL0JR6MbTRU3ryI +fNeQ031PvgerV6T8WOzET/L4p8eFpvei/YFDu3YaH7nipOsn/Yk+SCvrFrS0 +85JWvWE6Rsf/w+TDZL6yUR4y1t9H06KlH2PvzV4whXnIwQsl23J3DsBleFtH +sRQ3qbkrTp/n9lvc28PdLrd2IRmpqjftKvoe5Ibj097qC8jZtlzzWP1BXNh8 +YUGvGhe56Yow19Ffg0gPzJzuC5/HkfrO2qbcIeRcJuRGsv/gRmL11wc2H/Bd ++brcZNIMhqN4vhsIDaPp65XhfwunsH2bv5/b02H81HcZE0ybRJwqyS8d/hGN +Q3Oawck/0Wty6vg+pU9wrpia3393AtvlO/bKjH2Ccn6U5dKH35Cw7NLcqYzP +2FMY7ck/wcaI1c0GC4MveJb0+Aoz7issDn2Z6uMawZ2N1GPH2c9geSbyvykb +gdArFUuRzmFs32WTGuI2ihWynpGb4gdRpJL6M2/FV8z9Ubtq4/IG0j6yR82f +fkWq0ZyXxj+9uHGie09hxBhUpdVWuYm/gFwExR2oMg6v7GJb/5RWMMNfv/JU +G4fgyunQC16tyAlrzndWH8c/Pe/Ca/a1YmVo8m5TnXG80IjVJgVasTT4n/MK +e8dRbOBotPvsUwicPiv62n4cpztrHkl5tIDjulhGLWkcSX2LGVxHHqPeVEmH +osYRtKa00OJMMzTz9NE3MY7Z7a6ma22bwfphTd7/NQ6TN0LdPGQzmlPO7bw4 +Ow4FHUc3Pr5mtPUOGSjxs2Gc9fEJT3IT3lqlmHisYkPA4q31iP19LHSYtqOM +2KhU4gRlTTcgsnoxs8+EDakGJl/Mowbw86xzuG/KhlZUxuzViw1g5Js6XTzM +RqC+vcOedQ2Q+HLzuJIjG8ulvJpKze9ig9sRb49ANlbcYMVXsOph7PMwgipm +49BP0z1EaS30/FdfyC9l46aMiFrl2VpoBgemWJezMZm6Iz7IrBbrYlTzW2rY ++PlepDp2tgbzGXlPsu+zcbUqWfuscQ0qHkQI7O9hI0HJsO7DVBXERfUuVnBx +8GY+5tmIewUEl+VcdubmYHTA6FGyQQW4pP9kS/Nx8Exsts9ldQXY8jUV54Q4 +aDecEV2WV44nGnLddks5iF42ejDKowyn7XkkRDbR8dr/Oz+9rBT9FY8yvA5x +oHBh8vTSokLUkCvlmVYcDB6UMFU5UoiLXafKTW05EFNnMqvFC6H3bd0jVQcO +FL3Euj+FF6BMKZb96yQHlukSdUsc8xFeZkyeieYgo/7i63yNPCiW9n4Kr+VA +qHKufpvzNfBpKXn61HNQ+qi21X08C4PPYmYcGjjYbnrXNdgnC2lj6ov1mzmQ ++35vpWxkJrgUr6rzd3Bw4lvi0/jyDLwqPnr+/EcOhLlq9lgoXUZQ4cjWFDEK +8/dCetR7E9E2Fv3AdCkFPduBOPeQREhtlT8oIkXBz7Psrdv6RNTV259OWEWh +w2rxz4TfCaBa+xvPKVBY1zJUKGZzAczx9r3BoGBss297gHcMKra6DezYScE/ +XS/y2kA0/voKnJzRo5BGfhV33RONzDn9pNN7KbxVvxEyLReFXuH7fV7mFFwW +LvKWmQiHoXKlo7MbhXaF5TffNgQj/ZTJpNxJCrxTtrGWT4Lw+Q47ZtiTAqul +T8z8VSDCd268aedH4RffUHb/TABYZnnfrcIohGr/eyDJ2w+C6boRUpEUZvQ/ +1gReOQXLgffir6MpiNzKdOV/5ItJR2l18wsUjNYc/ioh54OtfqkhJpcp3LU+ +aJu1xBMhd1WXCGdQiBoq3IqSk+iYf5Hbnkmhb6yH+42mO1xjhB8bXqcgU3Zr +o6CPK/LSY4T0blFoiVvE3UA6YWJAPmthBYW8ELl94/yOIGUebWmuovAsk09L +vo+JgWIuU516CnHhEaIT8XZY2hCQrv6QguGmEtaie4dRtF/favQxhUR/e+3g +fgvs+LxEOuMp3e/KAlYqvznsRIqyZzso/J6aqvJLOYCJAh/70i4K8qsELpmO +miBKC2ttX1JAONlb3G6EEpfegnuv6XiNztPK8wbQmss95vGG7s/1Ovuzxnro +vOS+cc07CtZnRhxmm3XB3KAx3jVIYdTSS6u8Xgc/G3nKwoYpSPtu3lepqYlo +sy4Plc8UtO4yJquFtkNy9Kry8AgFqW++bgWbVVAS4vIjeYyC2G92T5D+ZmiL +q9bqcSh8OFbZJvlmHbqK5/1+faPgflg4VkVWBky0qRf8oOt3P6BgpieJn69S +ZywmKWw7XmW4PGkxol3tWfzTFAoXfpTyfrkAklybQ+pnKZgLPspXsuHoNN7/ +0rFpjkJW/qK/QVZvdf4H+hRMtw== + "]], LineBox[CompressedData[" +1:eJwVkWs01HkAht2lixrKdJH7pbDCRii9tcxEtA0p09rcUq5NDCVLNQqnUqZF +LqXQjJRacpuxql1GLtHZ6pwJbYk21rJGv3+KZrbNzn54z/P1Pc9jGnE44ICa +ioqKn3L/09RkYUmMKsHvstdGR4MGNyuO5JsXahCYtdZlRvcuxMMtqZlTmgQD +1l/JuvMNcGFB6ChTm0DvjEaT1NwEe/q8mGXzCBr/Ehg/EFnCpMKmalaHwD+S +I5AobDEet2QeawEBreLbL+JkR9S7zETfXEiA4Fj6zc3OSFN99UhFl2C8rEO7 +n+0Gr8dtNnsXE8hvpaWsb/NAf/iFSR09ghscoai6xRPldkk7IvQJ1PPahhUh +TMTOsmtalhLkBWtLNlj74PN5i4Q4OkHrH8uhbroTHUHzn7UvJxDxS51a1vgj +14w4Gq4kCKoIde55FgDT5nvTjw0JaiptJ07v3gPm24AUezOCIkd27pXVIVhc +4zqQbU7w2uYXWdCqMAwcM3IbsiBo0W+XZ68LR5zuhIJvTSAT99ZmcfbjolvG +CcqOYG9Hl44uIxp7NaKGfOyVfhJK/drOx8Dsid+W6+sIfj10sob/MhaNkcvV +djkR+M6Zz3nmHsILfm1W4waC5z+rsLYJErG0PN/axk3pz8lX3z2JC9bdlEdl +7gRTrbnGq7clofMpFuV4EKRaBcsKFclopD0tCPckSOxsUS/mHwM/nwh0dxLs +O1N61cqFhx6BlJHJIijL61GsuM+DVmPzmNyfoEInP0bqmYF0Kc92NJBgv8tw +aAH7FGKX0RrufafsEbcr4XNhJhhFjpLogwQTXc+vxx84C17VssjXUQTsgnih +WOsc7ovlmoExyr4sB2nlrXNwGmjzQTzBTILP2P4POTBZEfBsGZfgzbuoKMer +ufjnMndYcpzAdbSzfdPqPNRda/hieIngygWd53O+xbA66y5MLSSgr/LsotcU +ozSpzaeviGB7RIbNkyUlyPZ+UsC/TBCoayZfMVCC799P2KiVE3zd/GpkMecK +tJhmQWPVBLE7bxSqiq8hWHaxtq6VYFqQ7lr16jqe9tN360oISDbnoQVdAKbk +miK2XfnPjlc37i+AQ9EdhkUnQeifNfe8uwXQ2tr9srCXQMf+0KfAZiHuFsxp +p/cR3JZddeBW3oDmJk4Yc5Lg7/e7B+3qq/FmxiqvV0awkss7Ov25Gg/qhtpZ +75R99Bxp871v44i1v3Xwe4J1W3nGVkO3Maq3furwJ6VvuU86jfYTOsblaSUa +FKqkBsPJp2uRVZRVNGlIQS/iY9hGVj3CAzY/SjSicHNfuT/7h3p4LJpVzBhT +EEQ87i4W1uPjqegQVXMK5c4Rbafl9TjA8bU0WEuBVSky+iJsAINBa4AzBffj +U4MH1ZpgqtIz8tCFwmGplHHHvgn/tpwy2O5KIaTbgq4f3IQmhw+pgRspJO/6 +kODV2ARLw/4tMVsppOWsCXeKFkG1n8+d+oZCAa8r6eQlEQZ/9BYmeVGwzLEd +m5SIcEm7RfvENgovMRu/xkiMRAnXTd2Hwq2RFx4zvmLsOG4bd2Y7hY3rUybf +poqx1nWkdJEfhfPldmyqSgzN6dLf8nZQSFgSGWbUJ8Z/lvpQFA== + "]]}, + Annotation[#, "Charting`Private`Tag$9647087#1"]& ], + TagBox[ + {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwV03c4lo0XB3BlhedWVlEaRCWkSCF87wrFS4qojOKxioRIysiWyigjiZDM +ZGSWx4oSkVLolYo0zOd+o2REv/v3x7nO9fnrnOsMKaabicNiDg6Od3T8P9vq +CH5PfnhEey8ruZ8IJ8ink0G2EyxVNM5knf2/c2UN/zxh6WKZascmBu3K3FG7 +cKODOOq/nJOfdrJ2if59lhnaR30X8dL2f+ut9EreEs2Zf9dz0t6qeufKRSMb +POjMcF4II0hpjqB5Brcd+IqZXdO0RV7YuaexHODrv8d+gjZXot7gNq+TKArf +vWKU9pSNnHmTvAvOSdmwP9P+Ls9oMR90RdGDO8P/0j7t+zvVy8gdFgnzS17R +/tp/skcrzwNRhv6GT2kf1+tdxsvtCfdDa8oe0TYWqgm5xToHT7dnVBrt595b +apji52Fb+bLxOm2yL21K3ssHd/Nnq4NpK+cEn6qV90XNiXpxJu18xs+7ERF+ +2JRh6X+Q9vqzDn0HB/2xJGo1jzbtK2vu5XgYBUK1Uzx0OW2911Y65nOB6Joz +vbCINmeo2IBGXhAi3R/dGA0lSL/h8JVc3CGoNOBVrqHtWnYqKpEVBk6Hdmlz +2pudpDf7Oodj494L6hq0v0m8f3ZCPAICN456raZ9/JIhh5zXZTx5W2E+EEKQ +Bw2UPKvlr+Kog8TL47QZ89+Xpv97FRdnI3g0aT8vSi8IjbgG7gJVO3Hau8WE +vxkNRuHPzOHIl8EEKeF+UcHdKBaxUW8ub6Xt09J9kXkvFqUCLoM8tLulVVoO +z8XibY8xsy+IIG90jTqo511HhjJfeyht/l3WaYu542Ai4mX+IpAg/3CTwgms +BFhlie5SukSQX6oV03tWJuKj6Fq5yQCCbPNYtWXlhUTk1qwWq6Cd+mFKP031 +Jl5Oc31Xo61d/iAorzAJda97zyr7E+Ql+1U/atJvw/5Bh+KviwR5ciXfJY6/ +txHU3Pwnl/bBV1OMvdYpCGRSLZa012l2bnoukYrKtx+O114gyHqRSJvOG3dw +vLXI87wPQQbZzjl5PklHc/lyo0fnCNJbc6Iw/kc6Ri5ILLKm7bxi+Ff5ugys +mYov/etFkCbt3SHTARlQN+QX3UNbWv1hmv+uu/j8I6Dx8VmCfLLsVE9EWSb2 +U7sHfN3oe67v1kvJzobJ6SRS6yRB7vi8afGdzmzI3swUa3Gi++fyrUlbyEal +5wv+w7Tb9q/dnmmegzeWEWZOjgSZ8NpJKp8nFxbjhq4h9gS5YXB6rtIxDxdm +Je5ftyFIfZ5VJW82FOD1ee0rPEfpe9rkerrLpAAZOlZnvI8QZKFB3caegAK0 +1lh6fjUnSOEYuzu93QXQk1jVX29GkL0rCq4OhD/AjWBrXVdT+p/ktBypb4Vo +15bRTTlAkPuyi6LC3hSjNdLfyFSHIAN3N46tGC5GZYpnTf5egnzc1/1P/kIx +vi/vO7KItoLIAl+HXAl8+NczCnYT5LJAw3DxwBLIxDE9f2vT9Y4NB9xXeAjZ +Ywl7HdUJ8gyx3v11WClE41Vk7ikSZE7ujg6726XoCBOf6FcgyP69Blumikux +76nPqCRt04seYyv7SrHQ89LmxmaCVPted9JeuQx24u3mnhsJcnGDle3vj2UQ +sF/mQ0gRZKJXoslqtQrwc2S9vitCkBOO0Q0hxhXou8Nl9FCYIA8cC9864liB +XeyqjnohguTW9hasTKjARgfT0d6lBOnFa956cLICp8Vq/DgZ9P6TxfaEFlaC +0T4rsoGLIAXr47eNyjyC8ViqZ8kkgwwXiFv2SIiF8Z4Ha790MMigjKpHMRtZ +IKx4hVtfMki/nR+ZjloskHNTW4raGaSHnVy5yCkWRGPah7xfMEir6rpjZ+pZ +aLBvt/7zjEEqu4zdXe9WgxPcX45+qmGQn1p1VaPbarHa9dsk930GKan7p6Ck +sR646fv5XTCDfDqk/nLJo0Z8lhe1jl7HIL1ePZeMTX8Gg0P+A04lAiSXAqNk +jXkLvLQC5aY1BcgvLr27lfTaoPgkaUGlhJ+8t9ZafB9XB9w7NVTPSfOT5VfF +o/f1voJL7UYTr6t8ZP3MvugC407MzqY51L1fQlZnHNomVvAGT0Y3629TXEJ+ +rE7vrJXtwppV8ZNLHXhJLp+kK4FJ3Wh7YtemlchDrjrj/FV3ogeS23ZnN7dx +kxbdQdqGp/7F78Y4nsJhLjLSx1PDvLkXI59MXzMFucj+a/nbM/b0wXFwe3ue +BCepsfeKLlflB9Tu52yTWb+YDFXRmXEW/gRsOjVzVm0ROdeaYRap249ritcW +datykAq3BDlO/OrHLd+UmZ7gBRyv6iivzxhAxk1CZijtD+7Flo48sfqMiW13 +Zaauz2IwjOuHnsAg6kduDf6TM40d2328XZ4PYlLXaZQ/cQpXVEheyeAvqB2Y +1/CP+4lu43OnDih9hWPx9MLBxxPYIdtuIDX6Fduywo4tb/wP0StuzJ9L/gaD +nHB33olxDFncrzbX+47W609vMa+MwPzI9+kejiE82kw9tZ/7BpZ7LO/7wiEI +vFU+JtQxiB17rRICXIaxSto9VCGqH7nKCT8zV43gzx/V21ZO7yHpKX3C7PkI +EgznPdR3duPe6c79OSGjUJFUXeMi+hoyIRSnr/IY3NLyrH3iW8AMfvfWXXUM +fKtnAq95tCA9qCHLUW0MO7s+BpcdaMHqwLh9Jtpj6FSP1CL5WrDcf+dVOYMx +5OnZG+679Bx85y8Jv7Mdg09HWZOEWzPYzkulVK+PIbZnKYPj+FNUmShpU9QY +fNcV5JhfbIBGpi56JsYwt8PZZL11A1iTlmTdrzEYvxfo5CIb0BB/eU/M3Bg2 +adu78PA0oLV7QE+JdxxGqV+eccXV44NFvLHbmnHwmX+wHLKtw2K7GRvKcBwl +Smy/1JlqhJYuZfYYj0OimskT0VQNXq4NdnUm49AMS567HVMNRpaJQ8zRcfjq +2trt31ANse/3TynZj2OlhEd9gdljbHI5ftbNl/Y9VlQxqwpGno0hVN44jvw0 +2U8UlEPHZ+21rIJx5EsJqZZcKoeGv2+8ZdE4phJ2RfmZlmNDhEpWcxntT0Kl +kXNlWEjOfJZWN46Uh3Fal4zKUPwkhO9g1ziilfQrPk8/hKiwTkwxBxt9CxEv +hlyLwb8i/aYjJxtDfYZNcXrF4JD8kybJw0abyFyP09pijMuWFV8WYOOF/qzw +iswiPFOX6bRZzkb4iuHDYW6FOG/LJSakwEZv279XZ1YUoLe4KdnjCBubr02d +X56bgzJytSzTgo2Bw2ImysdzEPPqXJGJNRuiakxmqWgOdP7b0KRix4a8h0jn +1+BsFCpFjv86w4ZFkljFMvssBBcakRfD2bhVFfMuSz0T8gXdX4PL2eAvma/a +7ngHPJpK7p5VbNxvKm9xHUtF/4uIWbtqNnaaPHb290xF4qjaUt0GNjb8qF0t +HZoCDvnbarztbJz+L/Z5VFEy3uaduHr1CxuCHGX7zZVuwi9naGu8CIX52oAu +te5YtI6GPzFZTkHHuu+Ka0AsJLbKHhaSoODtXvjBZWMsKqpsz0evofDSYunP +6N/RoFp6ay7LUdjYPJAjYnUNzLE2A39QMLI6sOPC2QgUb3Xp27WHwvkkndA7 +feH468V3ZlaHQiI5Iuq8Pxwp87rXzxtQ6FO7FzAjE4ZuwboeDzMKTouXnJWa +CIb+thJ7RxcKbXIr73+o9kfSOeMpmTMUeKatI48988O3R+MRg+4UWM09ImZv +fRG8Z/N9G28Kv3gG0npnL4BlmvnDIohCoNY/h66f9QZ/0u4QiVAKc7pfynxv +ncOxvk+i78IpCD1IceZt8sKUvaSa2TUK/6w7OiIm44mt3gkBxjcpPLY8bJ26 +zB0Bj1WWCSZTiBjI2Yr8M2hfeJ3RlkKhe7SL872GK5wjBJ/q36WwrvDBZn5P +Z2QmRQjoPKDQfGUJZzXpgIk+2dTFxRQyA2QOjPHag5Rq2tLwkEJrCo+mbA8T +fXkcJtpVFK4EhwhPRNlgefWFJLVGCvsV8llLao8i96CuxfBTCrE+tlr+vebY +9W2ZZPJzet4l2awEXjPYCOWmzbVTmJ6efugdfwgT2Z62Ba8oyK7hu2EybIww +Tay3fkNBO5jszmszRL5Td3btOwoxNY4z2xb0oDmfcdLtPYWZuxW2l4x00HHD +dfO6jxQsLw7ZzTXsBnOT+tirfgrDxzw0i6q08bOGqzBokMIqL8UDJRoaCDd9 +5ab8jYLWY8ZUqcAOiA/f3jY4REHiPy+XbEVl5Ac4TcaNUhD9Pd7lp6sILVGV +ch02hYGTJa3i7zfgVd6C96//KJw5KhipLC0FJlrVsicp6LsekjPVEcfPtwmz +5lMUVE491F95fSnCnW1ZvDMUshd/kTj7ZhHEORQDquYomPE3ZSlZsbVr6r63 +K8xTSM1a8tfP4oP2/wBGC0y6 + "]], LineBox[CompressedData[" +1:eJwV0Xk41HkAx3G3dMhQjk3uo7DCRih9apnJRNsQmdauK+VsYijZVKPwVMq0 +yFESzUipJedY1S4jR/Rs9TwT2og21maNvr8UzWybnf3j83z+f7/Mow4G7lNR +UlLyV+z/NzdbWhqnTPC79KXJ4ZCRzfJDBZZFagQW7fVZsf1L8WBLetaMOsGQ +7ZfS3gJ9nF8SPsHQJKCdVmuWWJph94AP4+oigqa/BKb3W6xhVmlXPa9FEBDN +EYjl9niToLOItYRAp/Kbz6JUZzS4zcXeWEqA0HiDG5tdcVR5+KGSNsHU1S7N +QbYHfB512O1ZTiC7eTRtfYcXBiPPT2vpElznCFtq2rxR4ZCyI0qPQDW/Y0we +xkD8PLu2bQVBfqimeIMtE5/OWSUlGBC0/2EIVfOd6ApZ/LTTkEDEL3NpWxOA +PAvibPwFQUhluGvf00CYt96dfWRMUFtlP3UqeDcYrwPTHC0ISpzZeZdXh2F5 +rftQjiXBS7tfpCGrIjB0xMRj1IqgTa9TlrMuEgnaU3K+LYFU1F+XzdmLCx6Z +xykHgj1dPVra9FjsUYsZZToq+iSV+Xeci4PFY/8t19YR/HrgRC3/RTyaog1V +drkQ+C1YLnjnHcBzfl120waCZz8rsbYJkrGiosDWzkPR28VPzzOFC9adtIdX +PQlm2vNMV29LQfcTLMv1Iki3CZUWyVPRRHtSGOlNkNzdplrCPwJ+ARFo7yQI +O112xcaNhz6BhJ7FIijP75Mb3eNBo6l1UhZAUKlVECfxzkSGhGc/EUSw120s +vJB9EvEraY13v1V4JOxK+lSUBXqxszh2v8Kr59m1xH1nwKteGf0yhoBdmCgU +aZzFPZFMPShO4ctyklTdPAuXoQ4mEgnmk5iTe9/nwswo8OlKLsGrtzExzlfy +8M8l7pj4GIH7RHfnptX5qC9v/Gx8keDyea1nC34lsDnjKUwvIjBc5d1jUFuC +spQO5kCxoldUpt1jnVLk+D4u5F8iCNa2kBkNleK7d1N2KhUEX7UOjy/nXIYG +wyJksoYgYef1ImVROUKlF+rq2wlmBRnu1cPX8GTQIFhbTPA2h/PAykAAhrhc +Ht9JMObAq38TIIBT8W26VTdB+J+1d317BdDY2vuiqJ9Ay/HAx6BWIe4ULmhm +DBDckl5x4lZdh/omTgRjmuDvd8EjDg01eDVnk98vJTDi8g7PfqrB/frRTtZb +hY+uM22x7y0csg2wDX1H4LSVZ2ozegsTuutnDn5U9JYxM2i0n9D1Rna0VI1C +tUR/LPVUHbKLs4unjSnoRn2I2MhqQGTg5ofJJhRufF8RwP6hAV7L5uVzphQE +UY96S4QN+HAyNkzZkkKFa1THKVkD9nH8rPXXUmBVtZh8FjaCTqc1wpWC57GZ +kf0qzTBX6ht/4EbhoERCv+3YjH/bTupvd6cQ1mtloBfajGan9+lBGymk7nqf +5NPUDGvjwS1xWylk5K6JdIltgfIgnzvzNYVCXk/KiYstGPnRV5jiQ8E6135y +WtyCi5ptmse3URjGfOIaExGSxVwPVSaFm+PPveb8RNhxzD7h9HYKG9enTb9O +F2Gt+3jZMn8KuRUObKpaBPXZst/yd1BI0omOMBkQ4T+hUlAZ + "]]}, + Annotation[#, "Charting`Private`Tag$9647087#2"]& ], {}}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 1.0814388563390904`}, {0., 3.690456156465673}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.843981903675026*^9, 3.843981928466572*^9}, + 3.843982141944626*^9, 3.843982850416946*^9, {3.8439830476974277`*^9, + 3.8439830909677773`*^9}, {3.843983273082198*^9, 3.843983290717602*^9}}, CellLabel-> - "Out[109]=",ExpressionUUID->"afaa9364-8f91-4950-979b-0f9ef86eab0e"] + "Out[230]=",ExpressionUUID->"664ef5af-b4d1-4773-bb48-a1fb5f99d3ea"] }, Open ]], Cell[CellGroupData[{ @@ -3155,9 +4183,9 @@ Cell[BoxData[ CellLabel->"Out[91]=",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"] }, Open ]] }, -WindowSize->{635.25, 1060.5}, -WindowMargins->{{642, Automatic}, {2.25, Automatic}}, -FrontEndVersion->"12.3 for Linux x86 (64-bit) (July 9, 2021)", +WindowSize->{475.5, 790.5}, +WindowMargins->{{482.25, Automatic}, {2.25, Automatic}}, +FrontEndVersion->"12.1 for Linux ARM (32-bit) (August 18, 2020)", StyleDefinitions->"Default.nb", ExpressionUUID->"d257fbda-2be1-4221-9ac8-5153716cfc00" ] @@ -3172,141 +4200,172 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[558, 20, 597, 10, 24, "Input",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"], +Cell[558, 20, 597, 10, 71, "Input",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"], +Cell[CellGroupData[{ +Cell[1180, 34, 2287, 64, 225, "Input",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"], +Cell[3470, 100, 418, 5, 33, "Output",ExpressionUUID->"a9698393-06dc-4415-b19c-549d331d4c2b"], +Cell[3891, 107, 416, 5, 33, "Output",ExpressionUUID->"c47f0714-077f-4207-8188-a52a73ea66f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4344, 117, 3846, 85, 247, "Input",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"], +Cell[8193, 204, 1339, 21, 96, "Output",ExpressionUUID->"662f4cfd-8b83-42b3-bae9-63f60b0e3593"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9569, 230, 3847, 85, 247, "Input",ExpressionUUID->"34fe8bc4-abfb-4504-a7f1-045cd2a55ee6"], +Cell[13419, 317, 640, 12, 79, "Output",ExpressionUUID->"343f2684-7442-43b7-9d49-7e58cf8f6f6d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14096, 334, 302, 8, 32, "Input",ExpressionUUID->"2e8e8755-9de4-46f0-8d34-70439b2b441b"], +Cell[14401, 344, 206, 4, 33, "Output",ExpressionUUID->"f78d77d4-a743-42fe-aad7-f383120ebe66"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14644, 353, 551, 15, 32, "Input",ExpressionUUID->"e826229b-9150-4894-b288-5f834e4105f5"], +Cell[15198, 370, 820, 23, 64, "Output",ExpressionUUID->"ba4067d3-83a2-4fb1-b40d-dda17275ca39"] +}, Open ]], +Cell[16033, 396, 4890, 100, 147, "Input",ExpressionUUID->"1800b59b-60e8-4839-8aff-d82ae8bbba1a"], +Cell[20926, 498, 861, 20, 71, "Input",ExpressionUUID->"04521673-5a45-41f8-ba39-1383a2daafcd"], +Cell[CellGroupData[{ +Cell[21812, 522, 304, 7, 29, "Input",ExpressionUUID->"340432fd-b01b-4746-840a-e312eec4ade0"], +Cell[22119, 531, 12065, 270, 216, "Output",ExpressionUUID->"0fe99cd0-b508-4c82-8cb5-d58d82b4dd4e"] +}, Open ]], Cell[CellGroupData[{ -Cell[1180, 34, 2287, 64, 112, "Input",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"], -Cell[3470, 100, 394, 5, 25, "Output",ExpressionUUID->"5916b0af-c167-4771-aeb7-3c62b468a0ba"], -Cell[3867, 107, 390, 5, 25, "Output",ExpressionUUID->"c9921f2f-76f7-4cfd-85ee-7bf5652dc449"] +Cell[34221, 806, 281, 6, 29, "Input",ExpressionUUID->"33938e6c-adaa-464a-9564-ced71dd22d4e"], +Cell[34505, 814, 238, 5, 33, "Output",ExpressionUUID->"321f4d39-6591-48a7-9389-9935b198b499"] }, Open ]], Cell[CellGroupData[{ -Cell[4294, 117, 3846, 85, 109, "Input",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"], -Cell[8143, 204, 1339, 21, 42, "Output",ExpressionUUID->"662f4cfd-8b83-42b3-bae9-63f60b0e3593"] +Cell[34780, 824, 1589, 42, 185, "Input",ExpressionUUID->"5ed4b47f-e272-40ab-8c23-58385be3e0c6"], +Cell[36372, 868, 3039, 47, 159, "Message",ExpressionUUID->"06e3abf0-2019-4c5e-99b9-d2a9da7384db"], +Cell[39414, 917, 2133, 34, 88, "Message",ExpressionUUID->"465d3232-1f00-42ad-89f9-f7dbe9649552"], +Cell[41550, 953, 1416, 24, 70, "Message",ExpressionUUID->"51fecbe8-1bd4-4ff4-b67b-93b66d40b947"], +Cell[42969, 979, 628, 12, 35, "Message",ExpressionUUID->"4e40cd38-d9b9-4ca7-8ccd-de1b917cec88"], +Cell[43600, 993, 4228, 87, 222, "Output",ExpressionUUID->"02496185-9d40-4431-9ca9-6085c166d125"] }, Open ]], Cell[CellGroupData[{ -Cell[9519, 230, 3847, 85, 109, "Input",ExpressionUUID->"34fe8bc4-abfb-4504-a7f1-045cd2a55ee6"], -Cell[13369, 317, 640, 12, 44, "Output",ExpressionUUID->"343f2684-7442-43b7-9d49-7e58cf8f6f6d"] +Cell[47865, 1085, 241, 5, 29, "Input",ExpressionUUID->"eb2501cb-e52c-43ae-bbbf-2c91bfb69b81"], +Cell[48109, 1092, 267, 7, 35, "Output",ExpressionUUID->"ddfad34c-6774-4ef8-b8bc-c5de09b41700"] }, Open ]], +Cell[48391, 1102, 4523, 91, 222, "Input",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"], Cell[CellGroupData[{ -Cell[14046, 334, 3915, 87, 106, "Input",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"], -Cell[17964, 423, 1559, 42, 61, "Output",ExpressionUUID->"afaa9364-8f91-4950-979b-0f9ef86eab0e"] +Cell[52939, 1197, 1242, 35, 132, "Input",ExpressionUUID->"850f45b2-810d-4cc6-a9fa-3b038d25d4c3"], +Cell[54184, 1234, 14451, 259, 223, "Output",ExpressionUUID->"664ef5af-b4d1-4773-bb48-a1fb5f99d3ea"] }, Open ]], Cell[CellGroupData[{ -Cell[19560, 470, 326, 7, 22, "Input",ExpressionUUID->"c2ec938b-df20-4457-ac8f-5fb89f93d9f3"], -Cell[19889, 479, 188, 4, 39, "Output",ExpressionUUID->"7a8c2bb5-90c4-4aeb-82ef-a923f5a729e3"] +Cell[68672, 1498, 326, 7, 29, "Input",ExpressionUUID->"c2ec938b-df20-4457-ac8f-5fb89f93d9f3"], +Cell[69001, 1507, 188, 4, 48, "Output",ExpressionUUID->"7a8c2bb5-90c4-4aeb-82ef-a923f5a729e3"] }, Open ]], Cell[CellGroupData[{ -Cell[20114, 488, 255, 5, 22, "Input",ExpressionUUID->"f775ff7d-d0b6-4518-90fc-dce2b496637c"], -Cell[20372, 495, 194, 3, 39, "Output",ExpressionUUID->"60b8b008-7807-40a6-b3d9-1f2e8b589a73"] +Cell[69226, 1516, 255, 5, 29, "Input",ExpressionUUID->"f775ff7d-d0b6-4518-90fc-dce2b496637c"], +Cell[69484, 1523, 194, 3, 48, "Output",ExpressionUUID->"60b8b008-7807-40a6-b3d9-1f2e8b589a73"] }, Open ]], Cell[CellGroupData[{ -Cell[20603, 503, 306, 7, 22, "Input",ExpressionUUID->"33e05555-1738-48c2-b7aa-e8fd44cecd72"], -Cell[20912, 512, 221, 3, 25, "Output",ExpressionUUID->"a53b9d58-d244-4548-8b2d-0153f5f04983"] +Cell[69715, 1531, 306, 7, 29, "Input",ExpressionUUID->"33e05555-1738-48c2-b7aa-e8fd44cecd72"], +Cell[70024, 1540, 221, 3, 33, "Output",ExpressionUUID->"a53b9d58-d244-4548-8b2d-0153f5f04983"] }, Open ]], Cell[CellGroupData[{ -Cell[21170, 520, 4200, 108, 191, "Input",ExpressionUUID->"79242c4a-ef9e-453f-aabd-057c68f68aca"], -Cell[25373, 630, 19071, 333, 179, "Output",ExpressionUUID->"9e7d57d6-efa3-474c-ad30-e142da216a92"] +Cell[70282, 1548, 4200, 108, 338, "Input",ExpressionUUID->"79242c4a-ef9e-453f-aabd-057c68f68aca"], +Cell[74485, 1658, 19071, 333, 219, "Output",ExpressionUUID->"9e7d57d6-efa3-474c-ad30-e142da216a92"] }, Open ]], Cell[CellGroupData[{ -Cell[44481, 968, 203, 4, 22, "Input",ExpressionUUID->"e2ebf167-6996-49ef-9ca3-9dd16132c4ea"], -Cell[44687, 974, 569, 14, 25, "Output",ExpressionUUID->"c33b6abd-b8d8-415e-b881-93fd6c52f0db"] +Cell[93593, 1996, 203, 4, 22, "Input",ExpressionUUID->"e2ebf167-6996-49ef-9ca3-9dd16132c4ea"], +Cell[93799, 2002, 569, 14, 25, "Output",ExpressionUUID->"c33b6abd-b8d8-415e-b881-93fd6c52f0db"] }, Open ]], Cell[CellGroupData[{ -Cell[45293, 993, 501, 13, 24, "Input",ExpressionUUID->"e153916d-9f1b-43b9-a6c4-f59eefa45d16"], -Cell[45797, 1008, 222, 4, 25, "Output",ExpressionUUID->"ca5cf147-c698-4d49-a753-1cf32997e5f5"] +Cell[94405, 2021, 501, 13, 24, "Input",ExpressionUUID->"e153916d-9f1b-43b9-a6c4-f59eefa45d16"], +Cell[94909, 2036, 222, 4, 25, "Output",ExpressionUUID->"ca5cf147-c698-4d49-a753-1cf32997e5f5"] }, Open ]], Cell[CellGroupData[{ -Cell[46056, 1017, 243, 5, 22, "Input",ExpressionUUID->"c29b0035-e029-4b18-8ef4-ecd12fb49333"], -Cell[46302, 1024, 1247, 39, 70, "Output",ExpressionUUID->"a77b28a6-eacd-4614-b43a-ed39428597d6"] +Cell[95168, 2045, 243, 5, 22, "Input",ExpressionUUID->"c29b0035-e029-4b18-8ef4-ecd12fb49333"], +Cell[95414, 2052, 1247, 39, 70, "Output",ExpressionUUID->"a77b28a6-eacd-4614-b43a-ed39428597d6"] }, Open ]], Cell[CellGroupData[{ -Cell[47586, 1068, 212, 4, 22, "Input",ExpressionUUID->"40438766-386e-4ef0-95c5-bb36288917ef"], -Cell[47801, 1074, 735, 15, 44, "Output",ExpressionUUID->"462d7199-fbaa-4949-8313-776399b35c4a"] +Cell[96698, 2096, 212, 4, 22, "Input",ExpressionUUID->"40438766-386e-4ef0-95c5-bb36288917ef"], +Cell[96913, 2102, 735, 15, 44, "Output",ExpressionUUID->"462d7199-fbaa-4949-8313-776399b35c4a"] }, Open ]], Cell[CellGroupData[{ -Cell[48573, 1094, 4388, 128, 175, "Input",ExpressionUUID->"f81ed9c7-d940-4314-963c-c36ea0215ef3"], -Cell[52964, 1224, 1199, 20, 60, "Output",ExpressionUUID->"2234af5e-068b-46a3-beaf-99a907ef5184"] +Cell[97685, 2122, 4388, 128, 175, "Input",ExpressionUUID->"f81ed9c7-d940-4314-963c-c36ea0215ef3"], +Cell[102076, 2252, 1199, 20, 60, "Output",ExpressionUUID->"2234af5e-068b-46a3-beaf-99a907ef5184"] }, Open ]], Cell[CellGroupData[{ -Cell[54200, 1249, 685, 17, 24, "Input",ExpressionUUID->"922bbf13-0a40-4ffe-b65d-fb54bcae380b"], -Cell[54888, 1268, 882, 14, 44, "Output",ExpressionUUID->"7d4aad94-bfa0-4ae6-9abe-17ccfe54ccf9"] +Cell[103312, 2277, 685, 17, 24, "Input",ExpressionUUID->"922bbf13-0a40-4ffe-b65d-fb54bcae380b"], +Cell[104000, 2296, 882, 14, 44, "Output",ExpressionUUID->"7d4aad94-bfa0-4ae6-9abe-17ccfe54ccf9"] }, Open ]], Cell[CellGroupData[{ -Cell[55807, 1287, 680, 17, 24, "Input",ExpressionUUID->"649e9e6d-3d2c-4639-9c47-2ea1ddcf4b02"], -Cell[56490, 1306, 802, 13, 44, "Output",ExpressionUUID->"3d3ce9a7-1d88-4c65-8565-6972979e7b63"] +Cell[104919, 2315, 680, 17, 24, "Input",ExpressionUUID->"649e9e6d-3d2c-4639-9c47-2ea1ddcf4b02"], +Cell[105602, 2334, 802, 13, 44, "Output",ExpressionUUID->"3d3ce9a7-1d88-4c65-8565-6972979e7b63"] }, Open ]], Cell[CellGroupData[{ -Cell[57329, 1324, 752, 17, 24, "Input",ExpressionUUID->"65da12ab-b919-4aad-899a-77b90d54ba33"], -Cell[58084, 1343, 711, 13, 44, "Output",ExpressionUUID->"895bb215-c3fa-44dd-bbdf-c4de16295e4a"] +Cell[106441, 2352, 752, 17, 24, "Input",ExpressionUUID->"65da12ab-b919-4aad-899a-77b90d54ba33"], +Cell[107196, 2371, 711, 13, 44, "Output",ExpressionUUID->"895bb215-c3fa-44dd-bbdf-c4de16295e4a"] }, Open ]], Cell[CellGroupData[{ -Cell[58832, 1361, 698, 17, 24, "Input",ExpressionUUID->"2476ffb9-8112-4899-a159-f51883b8e216"], -Cell[59533, 1380, 612, 12, 27, "Output",ExpressionUUID->"b3a3183b-d2af-4e21-b8e1-1dbac01da522"] +Cell[107944, 2389, 698, 17, 24, "Input",ExpressionUUID->"2476ffb9-8112-4899-a159-f51883b8e216"], +Cell[108645, 2408, 612, 12, 27, "Output",ExpressionUUID->"b3a3183b-d2af-4e21-b8e1-1dbac01da522"] }, Open ]], Cell[CellGroupData[{ -Cell[60182, 1397, 815, 18, 24, "Input",ExpressionUUID->"e595b072-4f65-493a-afbb-d0fd95bb7c1c"], -Cell[61000, 1417, 967, 18, 60, "Output",ExpressionUUID->"10b2b981-6a70-47a2-b331-59f3035f0b63"] +Cell[109294, 2425, 815, 18, 24, "Input",ExpressionUUID->"e595b072-4f65-493a-afbb-d0fd95bb7c1c"], +Cell[110112, 2445, 967, 18, 60, "Output",ExpressionUUID->"10b2b981-6a70-47a2-b331-59f3035f0b63"] }, Open ]], Cell[CellGroupData[{ -Cell[62004, 1440, 756, 17, 24, "Input",ExpressionUUID->"428ba532-a5a7-47a0-834d-51e3a093d96a"], -Cell[62763, 1459, 900, 19, 60, "Output",ExpressionUUID->"299c9c7f-a1e2-4f23-8954-2fad569e0d71"] +Cell[111116, 2468, 756, 17, 24, "Input",ExpressionUUID->"428ba532-a5a7-47a0-834d-51e3a093d96a"], +Cell[111875, 2487, 900, 19, 60, "Output",ExpressionUUID->"299c9c7f-a1e2-4f23-8954-2fad569e0d71"] }, Open ]], Cell[CellGroupData[{ -Cell[63700, 1483, 839, 20, 41, "Input",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"], -Cell[64542, 1505, 461, 7, 25, "Output",ExpressionUUID->"1091901f-4a92-4d11-9361-eb8e074518d8"] +Cell[112812, 2511, 839, 20, 41, "Input",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"], +Cell[113654, 2533, 461, 7, 25, "Output",ExpressionUUID->"1091901f-4a92-4d11-9361-eb8e074518d8"] }, Open ]], Cell[CellGroupData[{ -Cell[65040, 1517, 1002, 23, 41, "Input",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"], -Cell[66045, 1542, 371, 5, 25, "Output",ExpressionUUID->"849b4c20-f4a2-4ab0-be1c-d4b54f277dcb"] +Cell[114152, 2545, 1002, 23, 41, "Input",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"], +Cell[115157, 2570, 371, 5, 25, "Output",ExpressionUUID->"849b4c20-f4a2-4ab0-be1c-d4b54f277dcb"] }, Open ]], Cell[CellGroupData[{ -Cell[66453, 1552, 1048, 24, 41, "Input",ExpressionUUID->"3f815a4c-10cf-489f-9fc2-62e52069c4c0"], -Cell[67504, 1578, 387, 5, 25, "Output",ExpressionUUID->"55fbc8bb-cdab-4659-a082-91bdbb81a26d"] +Cell[115565, 2580, 1048, 24, 41, "Input",ExpressionUUID->"3f815a4c-10cf-489f-9fc2-62e52069c4c0"], +Cell[116616, 2606, 387, 5, 25, "Output",ExpressionUUID->"55fbc8bb-cdab-4659-a082-91bdbb81a26d"] }, Open ]], Cell[CellGroupData[{ -Cell[67928, 1588, 846, 17, 41, "Input",ExpressionUUID->"cd97b893-1f61-415c-8763-743df3cfe10e"], -Cell[68777, 1607, 418, 6, 25, "Output",ExpressionUUID->"ad44ff35-c8ad-47fb-82dc-2f08ed5015a0"] +Cell[117040, 2616, 846, 17, 41, "Input",ExpressionUUID->"cd97b893-1f61-415c-8763-743df3cfe10e"], +Cell[117889, 2635, 418, 6, 25, "Output",ExpressionUUID->"ad44ff35-c8ad-47fb-82dc-2f08ed5015a0"] }, Open ]], -Cell[69210, 1616, 846, 17, 41, "Input",ExpressionUUID->"7cc8abed-034f-48f9-a04c-7a7cd336cffc"], -Cell[70059, 1635, 232, 3, 22, InheritFromParent,ExpressionUUID->"65b75ed6-31a7-4b35-9f87-bb8013223e69"], +Cell[118322, 2644, 846, 17, 41, "Input",ExpressionUUID->"7cc8abed-034f-48f9-a04c-7a7cd336cffc"], +Cell[119171, 2663, 232, 3, 22, InheritFromParent,ExpressionUUID->"65b75ed6-31a7-4b35-9f87-bb8013223e69"], Cell[CellGroupData[{ -Cell[70316, 1642, 843, 17, 41, "Input",ExpressionUUID->"ed90fc79-b0f9-464f-acb1-e5aa0d9691f1"], -Cell[71162, 1661, 233, 3, 25, "Output",ExpressionUUID->"ec63ab55-c78c-48bb-be15-d4ffdc90af1f"] +Cell[119428, 2670, 843, 17, 41, "Input",ExpressionUUID->"ed90fc79-b0f9-464f-acb1-e5aa0d9691f1"], +Cell[120274, 2689, 233, 3, 25, "Output",ExpressionUUID->"ec63ab55-c78c-48bb-be15-d4ffdc90af1f"] }, Open ]], Cell[CellGroupData[{ -Cell[71432, 1669, 895, 18, 41, "Input",ExpressionUUID->"6dd628a1-23df-42ea-b634-4bef16413391"], -Cell[72330, 1689, 472, 7, 25, "Output",ExpressionUUID->"fba3789b-8807-4cd2-86d2-e085f54bc1e0"] +Cell[120544, 2697, 895, 18, 41, "Input",ExpressionUUID->"6dd628a1-23df-42ea-b634-4bef16413391"], +Cell[121442, 2717, 472, 7, 25, "Output",ExpressionUUID->"fba3789b-8807-4cd2-86d2-e085f54bc1e0"] }, Open ]], Cell[CellGroupData[{ -Cell[72839, 1701, 228, 5, 22, "Input",ExpressionUUID->"feb08355-9ad1-4257-9f97-e394177d7e32"], -Cell[73070, 1708, 274, 8, 25, "Output",ExpressionUUID->"87e29f54-9d68-4261-96d4-95d24dcdc36a"] +Cell[121951, 2729, 228, 5, 22, "Input",ExpressionUUID->"feb08355-9ad1-4257-9f97-e394177d7e32"], +Cell[122182, 2736, 274, 8, 25, "Output",ExpressionUUID->"87e29f54-9d68-4261-96d4-95d24dcdc36a"] }, Open ]], Cell[CellGroupData[{ -Cell[73381, 1721, 1542, 27, 55, "Input",ExpressionUUID->"e61ed118-a102-4290-8440-cba17b87145b"], -Cell[74926, 1750, 12321, 270, 180, "Output",ExpressionUUID->"2e45389f-59c7-4eaf-9b3a-270214fa013e"] +Cell[122493, 2749, 1542, 27, 55, "Input",ExpressionUUID->"e61ed118-a102-4290-8440-cba17b87145b"], +Cell[124038, 2778, 12321, 270, 180, "Output",ExpressionUUID->"2e45389f-59c7-4eaf-9b3a-270214fa013e"] }, Open ]], -Cell[87262, 2023, 175, 3, 22, "Input",ExpressionUUID->"0f87aa05-2cc9-472a-ab27-39ee15777442"], -Cell[87440, 2028, 356, 7, 24, "Input",ExpressionUUID->"627c17e0-e2d8-4347-8fe9-812183a42941"], +Cell[136374, 3051, 175, 3, 22, "Input",ExpressionUUID->"0f87aa05-2cc9-472a-ab27-39ee15777442"], +Cell[136552, 3056, 356, 7, 24, "Input",ExpressionUUID->"627c17e0-e2d8-4347-8fe9-812183a42941"], Cell[CellGroupData[{ -Cell[87821, 2039, 176, 2, 22, "Input",ExpressionUUID->"f32c32be-7fcb-4660-bf43-cbc119acda96"], -Cell[88000, 2043, 2097, 65, 77, "Output",ExpressionUUID->"01b48fb7-d8c9-4012-92f6-488cf7e7087c"] +Cell[136933, 3067, 176, 2, 22, "Input",ExpressionUUID->"f32c32be-7fcb-4660-bf43-cbc119acda96"], +Cell[137112, 3071, 2097, 65, 77, "Output",ExpressionUUID->"01b48fb7-d8c9-4012-92f6-488cf7e7087c"] }, Open ]], Cell[CellGroupData[{ -Cell[90134, 2113, 860, 24, 24, "Input",ExpressionUUID->"bfa6a31f-5eb9-4063-b798-e45ab1e3b53a"], -Cell[90997, 2139, 1944, 57, 77, "Output",ExpressionUUID->"0ca79efb-1867-4b1f-96fc-4a691d54b72e"] +Cell[139246, 3141, 860, 24, 24, "Input",ExpressionUUID->"bfa6a31f-5eb9-4063-b798-e45ab1e3b53a"], +Cell[140109, 3167, 1944, 57, 77, "Output",ExpressionUUID->"0ca79efb-1867-4b1f-96fc-4a691d54b72e"] }, Open ]], Cell[CellGroupData[{ -Cell[92978, 2201, 2622, 77, 93, "Input",ExpressionUUID->"242aacdf-e4c7-423c-a26a-12188ba2476e"], -Cell[95603, 2280, 21838, 439, 180, "Output",ExpressionUUID->"073d831e-11a6-4203-90ce-0df429c1a3f0"] +Cell[142090, 3229, 2622, 77, 93, "Input",ExpressionUUID->"242aacdf-e4c7-423c-a26a-12188ba2476e"], +Cell[144715, 3308, 21838, 439, 180, "Output",ExpressionUUID->"073d831e-11a6-4203-90ce-0df429c1a3f0"] }, Open ]], -Cell[117456, 2722, 725, 15, 24, "Input",ExpressionUUID->"80c6c675-eade-40e1-8d0f-13a6578b30ff"], -Cell[118184, 2739, 764, 21, 22, "Input",ExpressionUUID->"d8847f2e-21fe-4fb7-84ae-676f83acdf5a"], +Cell[166568, 3750, 725, 15, 24, "Input",ExpressionUUID->"80c6c675-eade-40e1-8d0f-13a6578b30ff"], +Cell[167296, 3767, 764, 21, 22, "Input",ExpressionUUID->"d8847f2e-21fe-4fb7-84ae-676f83acdf5a"], Cell[CellGroupData[{ -Cell[118973, 2764, 679, 17, 40, "Input",ExpressionUUID->"15d60f60-2f87-40da-a2c6-66d640111d75"], -Cell[119655, 2783, 1298, 32, 44, "Output",ExpressionUUID->"6f1d902a-0431-4a99-adc2-97eb3c423317"] +Cell[168085, 3792, 679, 17, 40, "Input",ExpressionUUID->"15d60f60-2f87-40da-a2c6-66d640111d75"], +Cell[168767, 3811, 1298, 32, 44, "Output",ExpressionUUID->"6f1d902a-0431-4a99-adc2-97eb3c423317"] }, Open ]], Cell[CellGroupData[{ -Cell[120990, 2820, 736, 18, 57, "Input",ExpressionUUID->"bec4c929-c1a6-4fd0-be18-caf3643ba3a4"], -Cell[121729, 2840, 14613, 314, 179, "Output",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"] +Cell[170102, 3848, 736, 18, 57, "Input",ExpressionUUID->"bec4c929-c1a6-4fd0-be18-caf3643ba3a4"], +Cell[170841, 3868, 14613, 314, 179, "Output",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"] }, Open ]] } ] diff --git a/new_schofield.nb b/new_schofield.nb index cd387b6..9b86f5b 100644 --- a/new_schofield.nb +++ b/new_schofield.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 2193199, 38842] -NotebookOptionsPosition[ 2171903, 38529] -NotebookOutlinePosition[ 2172301, 38545] -CellTagsIndexPosition[ 2172258, 38542] +NotebookDataLength[ 2187802, 38647] +NotebookOptionsPosition[ 2167171, 38343] +NotebookOutlinePosition[ 2167571, 38359] +CellTagsIndexPosition[ 2167528, 38356] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -99,15 +99,26 @@ Cell[BoxData[ RowBox[{ RowBox[{"dGd\[Xi]LowList", "[", RowBox[{ - RowBox[{"NFN", "[", "7", "]"}], ",", - RowBox[{"HN", "[", "7", "]"}], ",", + RowBox[{"NF", "[", "2", "]"}], ",", + RowBox[{"H", "[", "2", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"rules", "[", - RowBox[{"HN", "[", "7", "]"}], "]"}], ",", - RowBox[{ - RowBox[{"SN", "[", "7", "]"}], "[", - RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], "[", "13", + RowBox[{"H", "[", "2", "]"}], "]"}], ",", + RowBox[{"S", "[", "2", "]"}]}], "]"}]}], "]"}], "[", "14", + "]"}]}]}], ",", "\[IndentingNewLine]", + RowBox[{"Chop", "@", + RowBox[{"Abs", "@", + RowBox[{ + RowBox[{"dGd\[Xi]LowList", "[", + RowBox[{ + RowBox[{"NF", "[", "7", "]"}], ",", + RowBox[{"H", "[", "7", "]"}], ",", + RowBox[{"Join", "[", + RowBox[{ + RowBox[{"rules", "[", + RowBox[{"H", "[", "7", "]"}], "]"}], ",", + RowBox[{"S", "[", "7", "]"}]}], "]"}]}], "]"}], "[", "14", "]"}]}]}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, { 3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9, @@ -176,9 +187,11 @@ Cell[BoxData[ 3.843735347060704*^9, 3.843735363453938*^9}, {3.843884105824162*^9, 3.843884116384301*^9}, {3.843885471625979*^9, 3.8438854826409693`*^9}, { 3.843895611016502*^9, 3.843895646762692*^9}, {3.843901283826623*^9, - 3.843901290602743*^9}}, - CellLabel-> - "In[154]:=",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"], + 3.843901290602743*^9}, {3.8439696492386913`*^9, 3.843969675947434*^9}, { + 3.84396997055504*^9, 3.84396998957965*^9}, {3.843970253540399*^9, + 3.843970262089819*^9}, {3.843970570201339*^9, 3.843970572871655*^9}, { + 3.843975065716485*^9, 3.8439750675880337`*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"], Cell[BoxData[ GraphicsBox[{{{ @@ -427,17 +440,26 @@ Cell[BoxData[ 13.008074231002201`}, {15., 15.354526006101828`}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - PointBox[{{2., 0.3058939805971706}, {3., -3.0168887065270606`}, { - 4., -3.2476886564569973`}, {5., -2.682936423477142}, { - 6., -1.693451732882842}, {7., -0.4167738013600686}, {8., - 1.077615047773819}, {9., 2.7510811302510185`}, {10., - 4.586316016568673}, {11., 6.581917335773754}, {12., - 8.739935900221406}, {13., 11.049198069932453`}, {14., - 13.480441427538558`}}]}}, {{}, {}}}, + PointBox[{{2., 0.30589398059722883`}, {3., -3.016888706545939}, { + 4., -3.183073217743668}, {5., -2.5433878373263874`}, { + 6., -1.5148233796428414`}, {7., -0.2344929327477278}, {8., + 1.2444925611098745`}, {9., 2.8942113657508517`}, {10., + 4.694008269379513}, {11., 6.62641479623805}, {12., 8.676662508704151}, { + 13., 10.832516211547809`}, {14., 13.08390072060759}, {15., + 15.4224623504065}}]}, + {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + PointBox[{{2., 0.3058939805972126}, {3., -3.0168887065287295`}, { + 4., -3.247688656909924}, {5., -2.6829364233041892`}, { + 6., -1.6934517316926618`}, {7., -0.4167737679352926}, {8., + 1.0776150335079282`}, {9., 2.7505139132234504`}, {10., + 4.583085410070621}, {11., 6.572468883357712}, {12., + 8.721677235279092}, {13., 11.023549345572086`}, {14., + 13.452755421328087`}, {15., 15.974430529832548`}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0., -4.7035853558213905`}, + AxesOrigin->{0., -4.75192865207262}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -458,7 +480,7 @@ Cell[BoxData[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, - PlotRange->{{0., 15.}, {-4.7035853558213905`, 15.35666962964508}}, + PlotRange->{{0., 15.}, {-4.75192865207262, 15.974430529832548`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -467,13 +489,7 @@ Cell[BoxData[ 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["0.01`", TraditionalForm], {0.01, 0.}}, {2.302585092994046, FormBox["10", TraditionalForm], {0.01, 0.}}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], @@ -497,30 +513,6 @@ Cell[BoxData[ 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, @@ -547,9 +539,10 @@ Cell[BoxData[ 3.843884181352561*^9, 3.843884286857087*^9, 3.8438844096656847`*^9, 3.8438844413531446`*^9, 3.843885337947896*^9, 3.843893134211335*^9, 3.843895544397488*^9, {3.8438955968230658`*^9, 3.8438956559794064`*^9}, - 3.843901300625553*^9}, - CellLabel-> - "Out[154]=",ExpressionUUID->"fd0e31c4-3576-413b-be64-c5e2cf272a90"] + 3.843901300625553*^9, {3.843969665428134*^9, 3.8439696717398977`*^9}, + 3.843969725201646*^9, 3.84397009007789*^9, 3.843970259378105*^9, + 3.84397036014141*^9, 3.843975409044334*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"aa63b707-eeae-4066-b36c-3aa31a011391"] }, Open ]], Cell[CellGroupData[{ @@ -564,16 +557,27 @@ Cell[BoxData[ RowBox[{ RowBox[{"dGd\[Xi]List", "[", RowBox[{ - RowBox[{"NFN", "[", "7", "]"}], ",", - RowBox[{"HN", "[", "7", "]"}], ",", + RowBox[{"NF", "[", "2", "]"}], ",", + RowBox[{"H", "[", "2", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"rules", "[", - RowBox[{"HN", "[", "7", "]"}], "]"}], ",", - RowBox[{ - RowBox[{"SN", "[", "7", "]"}], "[", - RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], "[", - RowBox[{"12", ",", "0"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", + RowBox[{"H", "[", "2", "]"}], "]"}], ",", + RowBox[{"S", "[", "2", "]"}]}], "]"}]}], "]"}], "[", + RowBox[{"14", ",", "0"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", + RowBox[{"Chop", "[", + RowBox[{"Abs", "@", + RowBox[{ + RowBox[{"dGd\[Xi]List", "[", + RowBox[{ + RowBox[{"NF", "[", "7", "]"}], ",", + RowBox[{"H", "[", "7", "]"}], ",", + RowBox[{"Join", "[", + RowBox[{ + RowBox[{"rules", "[", + RowBox[{"H", "[", "7", "]"}], "]"}], ",", + RowBox[{"S", "[", "7", "]"}]}], "]"}]}], "]"}], "[", + RowBox[{"14", ",", "0"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, { 3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9, @@ -637,9 +641,9 @@ Cell[BoxData[ 3.843732765588666*^9, 3.843732809901375*^9}, {3.8437333348475018`*^9, 3.843733353095563*^9}, {3.8437353722697067`*^9, 3.8437353829251413`*^9}, { 3.843884084968059*^9, 3.843884101159732*^9}, {3.843901316747282*^9, - 3.843901351307724*^9}}, - CellLabel-> - "In[156]:=",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"], + 3.843901351307724*^9}, {3.843970502428205*^9, 3.8439705311788197`*^9}, { + 3.84397060968817*^9, 3.843970625632391*^9}}, + CellLabel->"In[48]:=",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"], Cell[BoxData[ GraphicsBox[{{{ @@ -766,13 +770,20 @@ Cell[BoxData[ 16.1573163641116}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - PointBox[{{3., 0.6126028894906607}, {5., 2.120308945169121}, {7., - 4.555653942531499}, {9., 7.285107004801981}, {11., - 10.162827570262268`}, {13., 13.13021428339704}}]}}, {{}, {}}}, + PointBox[{{3., 0.6126028894906181}, {5., 2.116269571811727}, {7., + 4.54235567762081}, {9., 7.2649793442835975`}, {11., + 10.138348339432874`}, {13., 13.102782339216551`}, {15., + 16.127971798184053`}}]}, + {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + PointBox[{{3., 0.6126028894905478}, {5., 2.1203089451692168`}, {7., + 4.555653940642243}, {9., 7.285693306418692}, {11., + 10.164513170528785`}, {13., 13.133302987410564`}, {15., + 16.162292391378976`}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0., -0.6046080204606867}, + AxesOrigin->{0., -0.6046080204607509}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -793,7 +804,7 @@ Cell[BoxData[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, - PlotRange->{{0., 15.}, {-0.6046080204606867, 16.166885815127753`}}, + PlotRange->{{0., 15.}, {-0.6046080204607509, 16.166885815127753`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -840,9 +851,67 @@ Cell[BoxData[ 3.843735384793891*^9, 3.84388410198702*^9, 3.8438841824710293`*^9, 3.84388428802978*^9, {3.8438844108126*^9, 3.843884438078618*^9}, 3.843885338536109*^9, 3.843893222398693*^9, {3.843901348448614*^9, - 3.8439013540855618`*^9}}, - CellLabel-> - "Out[156]=",ExpressionUUID->"c9264244-18b4-4c6b-9045-ac63927b7b1f"] + 3.8439013540855618`*^9}, 3.8439706033131037`*^9, 3.8439709649416122`*^9}, + CellLabel->"Out[48]=",ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztW3tQVNcZv7IsMG3TadN/Ox37R/9KjIgaHRs1JlOSTqfTZmpfdqYz1ERA +xSiiCFFHoWpRBpSAiK9qQGFlYXkISHgIQniEMEJToTJSEEXk/RayLPv1fuee +c2HZe/dcCApJd2f27t7zne93v9c55zvn3PNrnyC/DwJ8gvy3+ix9J9Bnt5// +1r1LvT8MFIt0SwRhSav4XbZUwP8gCOxCPg/xQm84/39HfnQwPj4O27Ztw694 +J123b98O9CO8TusNDg6Sem1tbcJqUuYGVqsVcnJyYN++fbBz506IiIiA5uZm +Rm5vb4czZ87A7t27ISAgAI4dOwZ1dXWeFLGsrGzGkz1geHiYPHZychJSU1Nh +z549sGPHDoiLi0MJlqmy6ggrVUZwVVDkFQ4vq+eioPBPJZttpiSTyQQHDhyA +zs5O4eeq9nGH4uJi2L9/P7S2thLR0FZojIGBAWEVrRMSEgKXLl0i/FinqKgI +/P39CfYKil1fXw9+fn70TjIuYgUHB8OjR48QD2JiYiAyMnK5Kout2F4K9dzU +Nf89JeXm5kJQUBC6Vo6Mqqoq2aDM8Og7ZlAvqunhw4chKyuLlZPoCQwMhMrK +SmElxUJHIJYYRbLYGFm1tbXkjsWOvXruxNJocfZ58uQJwXr69KnwmgKfq4JO +ShZnAcHT8yeSqf5Aq6Moe/futQkIbBEo5tDQEOGZbulVlM9sNoOvry+aSjYB +NRO5W0mxTpw4ARcuXJADp6CggARXf3+/QzVGRkYUTVxTU0Pulinw6hV0UnKF +iwY9aUT9cRoktvKuri65X8HYPn/+/ExWyUIecpBg+GPTGhsbIyzYx/T19a2i +KGiUqKgo5jPS0sSYUIp8Zpvu7m5SVawm2wb1wD5DzTZuCoqot0JV5ahZ/oQ/ +LhAfH8+MgV0h+vru3bv2xnAHi8VCHpGdnQ1Hjhwhrjx+/Djcv39fDjts+KdO +nULjEGMZDAbSV4stcN5DxV1WwJERVJSabgSxbmFhIYSGhpK71TQQxdZMyljr +nmpeOuz/IDk5mdytpdIcOnQIbt++DezT0dFB+ERbOOhfZ9+buCvIrN7rKOth +M8y4QXR0NDQ0NBCXYYtC916+fHkNxcEGj8Mr5Wbx8uDBA9ISSktLiQPFeITr +16+zWEhISCC+7+3tJcBoL2zSokfmd7xRlV+JRa+s0wyDiDFNqLt27SL+uXbt +GoIzg+CAgiFAmV+nyE1NTURjzCOOHj0KjY2Nck+DHRR2otjBotGwlYhdiidF +FO0mdx+iqK7TotdoNBIubA9nz56dyk5UuVSkV+FyU1aKWoSEpEJW92NqW6xN +PxL9zuKg/0gqE8m1eFmizvU9jWXfXSBepyzfTFmkftoZck5ZXpgszpBzyrJ4 +Qm7tPJet+Rq8P/tGiflDStK6guQwCRKUZ5GLlkcvs5QsEokc8Eiessup3Tls +zyP73UxFKSwOh6upGyHRuAnKyk8T4nZ1NrY8ezMnAKIzV+BXjCu86giUzeN9 ++TgJ6V52OBfT1swaJ9a0wg4nIX3lrHGSjL+wwzGkvzdLHDdxGvtfuGpcT7BO +i99E49swMtxNKvmrs7P1zP6+RzAkVRd4LiHXRTKPctJfPP00LbNOToh/rFM8 +y9V5osjVDbo7/wNJqRsgNsMTzqWvgOybf2MY8BqPXSd2HG/YtZaCghBb0V9V +x4mkZX89mgO+x5IJgivrBVLWkfLZ4mwNS4PTGVM4F5I3aMZheiUa37XTq+yz +OHW9CIzErYeRZ4NgMG2BhLTVcNG4DorvRHEdQq6LOMicdCfdSZ8fukAWolm6 +TvfsuHvMUvbupkbWKzy0mlz1MGkegZKcD8CYuh5upv8Keh/XCMOSLGz7ZBZL +6y6OyUqCVMm4VlGITTOyNE/oefIvUmOQJ9R3HO1/kHtKZ3Od6dsjbGNVSbLH +D6vlHl9Hr6bMLXK9AXXJ1Hel9PKuFG/HSqcgWiUtw8Hro+hwm8ExIdFbHtQ0 +iGa/f6iX9w95e4ukjMyyKpiiowNiwuBlY6tPS04tpK2qaUyWVF+BGNNK5kr4 +xPQXMeSsQy88rj6nZUOjQ1DdUAJtXQ+FEZ4U89nkyJV1OKTCzFmnwNk2cnFM +5j10oXtZJ91Jd9KfM32K/LyfKnU3ehgfaIUi03uQaVgNBcZfwkhnvXCLw8s6 +aMyDklNX2aQfV42eMDbcQWrkasSpqYi1SxaKPp2a9uZwcNgIgCP4yXg/m5E9 +5uKf5ZGdh8PkaX5Yh1NeG3lq/52nWR5m28ziCBHHiy5aeUFybhDXtmzJs2ew +CyrvFUNHb7uQz+FZTBHspP/f0uc2D3uJgzqH9G7ukI7fB1PagePhqmfotlm4 +0s6gVmzelOPrYGudPeTl5ZG3ngDoW152G0lztbqr2hPm5GEPtaAh7KWlpURu +wfadcqUp0vTHOZwQvKSW8ROelpYW8rYa1sEP1VLj1pcekpKSID8/f068o6Oj +cPDgQXyVWDPvy+THlfgf3zGkfDw2truHxsaXdbU8ivH09PSQl/a08CxYH/gm +tal14hm0fxEHd/P8ofvL6wBWi3CIw7uR/HUXq45DnmE92eDCnAF3Ee5k4BaY +VTioCUPMpe78w26p/WMxl2lvLiU1PuLgbKAEzJni//lbm1wqIu5DOZcK1SjP +zcIwu9yuvrFQrqwV59n4KMSmvzFjqes3uBqhSS/mn+GxQUgp/DtcyPQBU1ks +WCxmrn8WOrac9MVDf3EzNCfdSV9IutSj6qG/5TaU33gXipLXwpd5O2ByfEB4 +i8Mr9eru0NtWBZ8Yl8vrxziyFd54B3BE26QJQweZps12I1qMODL2dzeRGm9y +cEIoAUeuhGtv2Yxo+yKj5RFto0Z50vKD7eQ5I87yR8eHNcnDcMbNYxBn8rbB +ya04J1fm4Uj+cQXL5ARUNuRC7udXoK276W0Om3Oypo77bZ+szQVbKvs+d0Nn +YmICEhMTybEXPGiEh8/EstnOBbl7NjiRwmM+OGlBW+LkKTs7+/nu2WBxXV2d +rHx5eTkec+Y99AeUjmpgHRFC9hWFIHdKO172OO5y7Jw8eVLWPywsDDIyMrhT +YoaBfsJzp7du3SLHYVE1PKJkNpu5GOzN2PDwcKioqCB3Hpp43IirMYYaGxvJ +kU3kv3fvHu+R0nxTT47F4hk/DC8MMy3iLtqh1Ul30heSLm3MYK9jhYnhdjD3 +3ReHfIsHh03Kk9zAahmDuswtkJXyCqQbXoXPUtbDV/3NDg4jTGPXwRcFwWyJ +YyrxubFJrqyfhjMFk40XF8zWxOpXUtba5WC4WvJ+WDqpoeeIYgN2zrDObonC +J9wkJ4auGvUy5IfaCRWf5q2olyPzmi1fwfmsrXLS/HG6NzzubuGZN48SRsbE +gWHwMTpX4Hl0oQPxW0In/+nRXGHJ/wAJUDMp\ +\>", "ImageResolution" -> \ +96.],ExpressionUUID->"ab665598-9049-497c-bafe-53f863ef4174"] }, Open ]], Cell[CellGroupData[{ @@ -853,35 +922,31 @@ Cell[BoxData[ RowBox[{ RowBox[{"Abs", "[", "\[CapitalPhi]s", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Chop", "[", - RowBox[{ + RowBox[{"Abs", "@", RowBox[{ - RowBox[{"Abs", "@", + RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", RowBox[{ - RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", + RowBox[{"NF", "[", "2", "]"}], ",", + RowBox[{"H", "[", "2", "]"}], ",", + RowBox[{"Join", "[", RowBox[{ - RowBox[{"NFN", "[", "2", "]"}], ",", - RowBox[{"HN", "[", "2", "]"}]}], "]"}], "[", - RowBox[{"7", ",", "1"}], "]"}]}], "//.", - RowBox[{"rules", "[", - RowBox[{"HN", "[", "2", "]"}], "]"}]}], "/.", - RowBox[{ - RowBox[{"SN", "[", "2", "]"}], "[", - RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", + RowBox[{"rules", "[", + RowBox[{"H", "[", "2", "]"}], "]"}], ",", + RowBox[{"S", "[", "2", "]"}]}], "]"}]}], "]"}], "[", + RowBox[{"10", ",", "1"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Chop", "[", RowBox[{"Abs", "@", RowBox[{ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", RowBox[{ - RowBox[{"NFN", "[", "8", "]"}], ",", - RowBox[{"HN", "[", "8", "]"}], ",", + RowBox[{"NF", "[", "7", "]"}], ",", + RowBox[{"H", "[", "7", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"rules", "[", - RowBox[{"HN", "[", "8", "]"}], "]"}], ",", - RowBox[{ - RowBox[{"SN", "[", "8", "]"}], "[", - RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], "[", - RowBox[{"11", ",", "1"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", + RowBox[{"H", "[", "7", "]"}], "]"}], ",", + RowBox[{"S", "[", "7", "]"}]}], "]"}]}], "]"}], "[", + RowBox[{"10", ",", "1"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, { 3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9, @@ -947,9 +1012,9 @@ Cell[BoxData[ 3.843732651570488*^9, 3.843732675242991*^9}, {3.8437330390347557`*^9, 3.843733058330291*^9}, {3.8437353923025923`*^9, 3.84373542030167*^9}, { 3.8437359755682907`*^9, 3.8437360272169533`*^9}, {3.8437361227477913`*^9, - 3.843736137403366*^9}, {3.84390136001165*^9, 3.84390146346984*^9}}, - CellLabel-> - "In[162]:=",ExpressionUUID->"b80d3f22-eb0b-4407-8e47-23e8047f75de"], + 3.843736137403366*^9}, {3.84390136001165*^9, 3.84390146346984*^9}, { + 3.843969785734762*^9, 3.843969872892932*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"b80d3f22-eb0b-4407-8e47-23e8047f75de"], Cell[BoxData[ GraphicsBox[{{{ @@ -1143,22 +1208,24 @@ Cell[BoxData[ 11., -13.127375919227873`}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - PointBox[{{1., 0.1791622254565127}, {2., -1.1380209819811473`}, { - 3., -2.200237167363314}, {4., -4.026935298114119}, { - 5., -6.689492658335067}, {6., -7.348303307111008}, { - 7., -7.116099682546296}, {8., -7.902809964074185}}]}, + PointBox[{{1., 0.17916222140435714`}, {2., -1.1380209714273595`}, { + 3., -2.2002371641176754`}, {4., -4.0269352044794156`}, { + 5., -6.689491662738269}, {6., -7.348303402313271}, { + 7., -7.116099106203238}, {8., -7.902809171667697}, { + 9., -9.638771881161201}, {10., -8.648728416795501}, { + 11., -9.480995168207297}}]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - PointBox[{{1., 0.18044101182175404`}, {2., -1.14327782347157}, { - 3., -2.1996989814353403`}, {4., -4.107356260746165}, { - 5., -8.333541838075812}, {6., -7.471719578616903}, { - 7., -8.273477734475353}, {8., -9.810468903409943}, { - 9., -10.666667752115927`}, {10., -10.176532372524312`}, { - 11., -10.683248005725693`}, {12., -14.143092200979424`}}]}}, {{}, {}}}, + PointBox[{{1., 0.18043385700643785`}, {2., -1.1431783532688997`}, { + 3., -2.199210192500604}, {4., -4.110438182923459}, { + 5., -8.401116083991576}, {6., -7.520343998126052}, { + 7., -8.47906992601933}, {8., -10.843946709455823`}, { + 9., -10.462969152769388`}, {10., -10.897257150412237`}, { + 11., -12.911918903621654`}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0., -16.144779479582237`}, + AxesOrigin->{0., -16.144778919677336`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1179,7 +1246,7 @@ Cell[BoxData[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, - PlotRange->{{0., 12.}, {-16.144779479582237`, 0.18044101182175404`}}, + PlotRange->{{0., 11.}, {-16.144778919677336`, 0.18043385700643785`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1327,9 +1394,9 @@ Cell[BoxData[ 3.843884184545044*^9, 3.84388429014081*^9, {3.8438844129235086`*^9, 3.8438844356028957`*^9}, 3.8438853400513678`*^9, {3.843893225296072*^9, 3.843893235924965*^9}, {3.843901377690477*^9, 3.843901416429103*^9}, { - 3.843901448838873*^9, 3.8439014679825*^9}}, - CellLabel-> - "Out[162]=",ExpressionUUID->"038f4708-742c-4509-a5bf-780abe3ef8e7"] + 3.843901448838873*^9, 3.8439014679825*^9}, {3.843969843457286*^9, + 3.843969850819536*^9}, 3.843969884226707*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"3ae2f01e-2c08-40b1-a6eb-0cc6d5efcac2"] }, Open ]], Cell[CellGroupData[{ @@ -1420,24 +1487,24 @@ Cell[BoxData[{ 3.843884391590458*^9, 3.8438844521906443`*^9}, {3.843893099389781*^9, 3.8438931001718616`*^9}, {3.843895688269582*^9, 3.843895688923799*^9}, { 3.8438991895486917`*^9, 3.843899252351191*^9}}, - CellLabel->"In[6]:=",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], + CellLabel->"In[36]:=",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], Cell[BoxData[ RowBox[{"{", - RowBox[{"3.164885631650109`", ",", + RowBox[{"3.1648856316501015`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.2218190647119276`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1981515261044843`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.2218190647100184`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.1981515261044731`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.3933801431845954`"}]}], ",", + RowBox[{"-", "2.3933801431857895`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5218210757148685`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5218210757169919`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4558675349680261`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4558675349698142`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.014069612364099534`"}]}]}], "}"}]}], "}"}]], "Output", + RowBox[{"-", "0.01406961236362214`"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.843816627981923*^9, 3.8438166906843433`*^9}, { 3.843816728221302*^9, 3.843816890387457*^9}, {3.843816954497418*^9, 3.843816977126855*^9}, {3.843817045845647*^9, 3.84381704833007*^9}, { @@ -1448,8 +1515,8 @@ Cell[BoxData[ 3.8438852775933657`*^9}, {3.8438930922316732`*^9, 3.843893113567326*^9}, 3.843893232171549*^9, {3.843895660940199*^9, 3.843895691702873*^9}, { 3.843897137547141*^9, 3.843897142383761*^9}, {3.843899197736055*^9, - 3.8438992559841423`*^9}, 3.843901920619899*^9}, - CellLabel->"Out[8]=",ExpressionUUID->"25c2add9-9dfd-4b3a-b5ac-e3f767f84a88"] + 3.8438992559841423`*^9}, 3.843901920619899*^9, 3.843970209674953*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"90c66f69-fd6a-4254-b20f-1502211b9ee2"] }, Open ]], Cell[CellGroupData[{ @@ -1487,30 +1554,31 @@ Cell[BoxData[ RowBox[{"SN", "[", "2", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.8438934053618307`*^9, 3.843893413441764*^9}, { - 3.843899229877779*^9, 3.8438992597272253`*^9}}, - CellLabel->"In[9]:=",ExpressionUUID->"9acf3167-ed91-4bdd-8d54-9d984831fbe8"], + 3.843899229877779*^9, 3.8438992597272253`*^9}, {3.843970228035159*^9, + 3.843970238483116*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"9acf3167-ed91-4bdd-8d54-9d984831fbe8"], Cell[BoxData[ RowBox[{"{", - RowBox[{"3.1648867747359133`", ",", + RowBox[{"3.1649036098479413`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.221819066848114`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19815153122696594`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.2218190668446298`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19815153122601004`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.3933801566389947`"}]}], ",", + RowBox[{"-", "2.393380156636518`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5218210670748642`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5218210670773562`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4558675458265395`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4558675458279417`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.014069600755783175`"}]}]}], "}"}]}], "}"}]], "Output", + RowBox[{"-", "0.014069600756944788`"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.843893413830318*^9, {3.8438956969492483`*^9, 3.8438956994043627`*^9}, 3.843897142565444*^9, {3.843899225556612*^9, 3.84389926027955*^9}, - 3.843901920824957*^9}, - CellLabel->"Out[9]=",ExpressionUUID->"b059d7c9-8735-422e-bae9-b5aebf0ffb94"] + 3.843901920824957*^9, {3.843970231905294*^9, 3.843970239782789*^9}}, + CellLabel->"Out[40]=",ExpressionUUID->"8c096ed9-489c-4c77-a879-1d4031bd9f1f"] }, Open ]], Cell[CellGroupData[{ @@ -38010,24 +38078,24 @@ Cell[BoxData[{ RowBox[{"S", "[", "2", "]"}], "=", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.2218190647119276`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1981515261044843`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.2218190668446298`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19815153122601004`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.3933801431845954`"}]}], ",", + RowBox[{"-", "2.393380156636518`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5218210757148685`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5218210670773562`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4558675349680261`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4558675458279417`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.014069612364099534`"}]}]}], "}"}]}], ";"}]}], "Input", + RowBox[{"-", "0.014069600756944788`"}]}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.842517705895237*^9, 3.842517708639202*^9}, { 3.8431067504279013`*^9, 3.8431067566565113`*^9}, {3.843107733421461*^9, 3.8431077537898293`*^9}, {3.8431079886821957`*^9, 3.8431079919621267`*^9}, { 3.843118081491584*^9, 3.8431180928836308`*^9}, {3.843290605662134*^9, - 3.843290619902092*^9}, {3.8439049063728952`*^9, - 3.843904910706853*^9}},ExpressionUUID->"afc540ea-ef9a-493b-9583-\ -ed901e3ac580"], + 3.843290619902092*^9}, {3.8439049063728952`*^9, 3.843904910706853*^9}, { + 3.843970548489707*^9, 3.843970558391683*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"afc540ea-ef9a-493b-9583-ed901e3ac580"], Cell[BoxData[{ RowBox[{ @@ -38066,9 +38134,8 @@ Cell[BoxData[{ 3.843106785276181*^9, 3.843106789804263*^9}, {3.843107740365707*^9, 3.8431077546377697`*^9}, {3.843107995522175*^9, 3.8431079986742268`*^9}, { 3.843118100443939*^9, 3.843118103571854*^9}, {3.843290613070524*^9, - 3.843290628974379*^9}, {3.843904951416504*^9, - 3.8439049538617773`*^9}},ExpressionUUID->"cdb9b75d-4c04-4ef5-9969-\ -9e72079c5d58"], + 3.843290628974379*^9}, {3.843904951416504*^9, 3.8439049538617773`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"cdb9b75d-4c04-4ef5-9969-9e72079c5d58"], Cell[BoxData[{ RowBox[{ @@ -38112,8 +38179,8 @@ Cell[BoxData[{ 3.8431077439737988`*^9, 3.8431077555576477`*^9}, {3.8431080011299343`*^9, 3.843108005474188*^9}, {3.843118107683989*^9, 3.8431181126276007`*^9}, { 3.8432906307745457`*^9, 3.843290635254532*^9}, {3.843904974326128*^9, - 3.843904999230419*^9}},ExpressionUUID->"e7739266-4bd1-4804-846a-\ -5133bf45bfe6"], + 3.843904999230419*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"e7739266-4bd1-4804-846a-5133bf45bfe6"], Cell[BoxData[{ RowBox[{ @@ -38160,9 +38227,8 @@ Cell[BoxData[{ 3.843107758654028*^9}, {3.843108007874248*^9, 3.843108011866128*^9}, { 3.843118116044188*^9, 3.843118119540159*^9}, {3.843290637446662*^9, 3.8432906406465178`*^9}, {3.843905016790925*^9, 3.843905017409232*^9}, { - 3.8439050678798122`*^9, - 3.843905067959853*^9}},ExpressionUUID->"e0c29aa2-30dd-4eb9-990b-\ -b4abf8865eeb"], + 3.8439050678798122`*^9, 3.843905067959853*^9}}, + CellLabel->"In[17]:=",ExpressionUUID->"e0c29aa2-30dd-4eb9-990b-b4abf8865eeb"], Cell[BoxData[{ RowBox[{ @@ -38214,9 +38280,8 @@ Cell[BoxData[{ 3.8431071085894737`*^9, 3.843107110873993*^9}, {3.843107749061781*^9, 3.843107761053968*^9}, {3.8431080144985437`*^9, 3.843108018722546*^9}, { 3.84311812190835*^9, 3.843118129636252*^9}, {3.8432906441747217`*^9, - 3.843290647414538*^9}, {3.843905062655871*^9, - 3.84390506544761*^9}},ExpressionUUID->"80a3d021-bc5a-410c-8e70-\ -089bc45d33bc"], + 3.843290647414538*^9}, {3.843905062655871*^9, 3.84390506544761*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"80a3d021-bc5a-410c-8e70-089bc45d33bc"], Cell[BoxData[{ RowBox[{ @@ -38271,265 +38336,14 @@ Cell[BoxData[{ 3.843107494204513*^9, 3.8431074966811*^9}, {3.843107763382147*^9, 3.8431077653659983`*^9}, {3.843108021298802*^9, 3.843108027138801*^9}, { 3.843118132972484*^9, 3.843118139388473*^9}, {3.8432906497668543`*^9, - 3.8432906528309307`*^9}, {3.843905095434697*^9, - 3.843905098760456*^9}},ExpressionUUID->"1d95a4fa-b7b4-4d6f-9695-\ -22a28602846c"], - -Cell[BoxData[{ - RowBox[{ - RowBox[{ - RowBox[{"H", "[", "8", "]"}], "=", - RowBox[{"h", "[", "6", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"NF", "[", "8", "]"}], "=", "5"}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"\[ScriptCapitalF]", "[", "8", "]"}], "=", - RowBox[{"RF", "[", "5", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"S", "[", "8", "]"}], "=", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3710192066561966`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19655268865457023`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.551315962883039`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.732278814614242`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5967868834184186`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.3515062191585261`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.005023244859308164`"}], - ",", - RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.2952087119338217`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.05365943568010773`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.01980645818232528`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.0785090329663038`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.003353070367769979`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", - RowBox[{"-", "0.00026033616168888695`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.007251366969801466`"}]}]}], "}"}]}], ";"}]}], "Input", - CellChangeTimes->{{3.842517616421838*^9, 3.8425176337261066`*^9}, { - 3.843107629830904*^9, 3.8431076506119823`*^9}, {3.8431077678301086`*^9, - 3.843107771254263*^9}, {3.843108030050688*^9, 3.843108034522934*^9}, - 3.843113892598907*^9, {3.843118143540801*^9, 3.843118148388715*^9}, { - 3.843290655503104*^9, 3.843290659903*^9}}, - CellLabel->"In[30]:=",ExpressionUUID->"f3f292b7-6741-4c30-b2ac-b80cd82a3eaa"], - -Cell[BoxData[{ - RowBox[{ - RowBox[{ - RowBox[{"H", "[", "9", "]"}], "=", - RowBox[{"h", "[", "7", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"NF", "[", "9", "]"}], "=", "5"}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"\[ScriptCapitalF]", "[", "9", "]"}], "=", - RowBox[{"RF", "[", "5", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"S", "[", "9", "]"}], "=", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.375435411428919`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1965201354188921`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.548202398429163`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.7277523989023333`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.602777511249843`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.35476072551695503`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.0071698284978869015`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.28737467546972323`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.052493450595160036`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.019894421937458582`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.07241135663444981`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.003534527038057842`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", - RowBox[{"-", "0.00033818931210095453`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.007245524506332198`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "\[Rule]", - "0.000010619260978013524`"}]}], "}"}]}], ";"}]}], "Input", - CellChangeTimes->{{3.842517725791533*^9, 3.8425177278636723`*^9}, { - 3.84310764799933*^9, 3.8431076528758698`*^9}, {3.843107773590263*^9, - 3.8431077748302317`*^9}, {3.843108036770996*^9, 3.8431080424510937`*^9}, - 3.843113534568307*^9, {3.843118150468753*^9, 3.843118156188863*^9}, { - 3.8432906617511663`*^9, 3.843290666751149*^9}}, - CellLabel->"In[34]:=",ExpressionUUID->"b6e4cc8e-edfb-44a9-a3e6-a4d9a234eb0c"], - -Cell[BoxData[{ - RowBox[{ - RowBox[{ - RowBox[{"H", "[", "10", "]"}], "=", - RowBox[{"h", "[", "8", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"NF", "[", "10", "]"}], "=", "6"}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"\[ScriptCapitalF]", "[", "10", "]"}], "=", - RowBox[{"RF", "[", "6", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"S", "[", "10", "]"}], "=", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3945095399721226`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19657331402448114`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.540815351266595`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.7168304596304513`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.58914437918972`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.3578933157155564`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.0002471276399885635`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.28467214257786666`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.05289863457865093`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.0201090322678147`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.073168474426385`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.0034486104788930307`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", - RowBox[{"-", "0.00021837125394706086`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.007098620515609658`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "\[Rule]", - RowBox[{"-", "0.000025781921631023817`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "3.737427990965571`*^-6"}], - ",", - RowBox[{ - RowBox[{"A", "[", "6", "]"}], "\[Rule]", "0.000017492654253389754`"}]}], - "}"}]}], ";"}]}], "Input", - CellChangeTimes->{{3.843117659420776*^9, 3.843117674500119*^9}, { - 3.843118159212996*^9, 3.843118167876886*^9}, {3.843290669023036*^9, - 3.843290675335219*^9}}, - CellLabel->"In[38]:=",ExpressionUUID->"2f0f517e-a884-4fb5-aa03-33b1e6e8e890"], - -Cell[CellGroupData[{ - -Cell[BoxData[{ - RowBox[{ - RowBox[{ - RowBox[{"H", "[", "11", "]"}], "=", - RowBox[{"h", "[", "9", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"NF", "[", "11", "]"}], "=", "6"}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"\[ScriptCapitalF]", "[", "11", "]"}], "=", - RowBox[{"RF", "[", - RowBox[{"NF", "[", "11", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"S", "[", "11", "]"}], "=", - RowBox[{ - RowBox[{ - "Import", "[", - "\"\<~/doc/research/first_order_singularities/mma/11.wl\>\"", "]"}], "[", - - RowBox[{"[", "2", "]"}], "]"}]}]}], "Input", - CellChangeTimes->{{3.843544396129781*^9, 3.8435444542503853`*^9}, { - 3.84362534544658*^9, 3.843625345878365*^9}, {3.843637945534485*^9, - 3.843637947278*^9}, {3.8436380066001596`*^9, 3.843638007279107*^9}, { - 3.8437109210522957`*^9, 3.843710921508013*^9}, {3.8437139963254013`*^9, - 3.843714000652972*^9}, {3.843728089015019*^9, 3.843728091110979*^9}}, - CellLabel->"In[42]:=",ExpressionUUID->"990c0156-b917-447b-8ea2-39f8d0d504d1"], - -Cell[BoxData[ - TemplateBox[{ - "Import", "nffil", - "\"File \\!\\(\\*RowBox[{\\\"\\\\\\\"~/doc/research/first_order_\ -singularities/mma/11.wl\\\\\\\"\\\"}]\\) not found during \\!\\(\\*RowBox[{\\\ -\"Import\\\"}]\\).\"", 2, 45, 1, 31653629920828211403, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.843811415853397*^9, 3.843811723974409*^9, - 3.843882978496212*^9}, - CellLabel-> - "During evaluation of \ -In[42]:=",ExpressionUUID->"69ee9008-fa6c-4744-a2bd-60ddf5a1bb01"], - -Cell[BoxData[ - TemplateBox[{ - "Part", "partd", - "\"Part specification \\!\\(\\*RowBox[{\\\"$Failed\\\", \\\"\ -\[LeftDoubleBracket]\\\", \\\"2\\\", \\\"\[RightDoubleBracket]\\\"}]\\) is \ -longer than depth of object.\"", 2, 45, 2, 31653629920828211403, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.843811415853397*^9, 3.843811723974409*^9, - 3.843882978530964*^9}, - CellLabel-> - "During evaluation of \ -In[42]:=",ExpressionUUID->"c7e61c4f-b7ba-492b-8830-f4e3d86baa49"], - -Cell[BoxData[ - RowBox[{"$Failed", "\[LeftDoubleBracket]", "2", - "\[RightDoubleBracket]"}]], "Output", - CellChangeTimes->{{3.843544451672003*^9, 3.84354445475845*^9}, { - 3.843625346157543*^9, 3.8436253531800337`*^9}, 3.8436379476027603`*^9, - 3.843638007572206*^9, 3.84371093111165*^9, 3.843714001788314*^9, - 3.84372151320288*^9, 3.843811415896719*^9, 3.8438117240464973`*^9, - 3.843882978538393*^9}, - CellLabel->"Out[45]=",ExpressionUUID->"9bf62f5f-7a6f-4af7-bd94-6121ead0f3e4"] -}, Open ]] + 3.8432906528309307`*^9}, {3.843905095434697*^9, 3.843905098760456*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"1d95a4fa-b7b4-4d6f-9695-22a28602846c"] }, Open ]] }, Open ]] }, -WindowSize->{955.5, 1060.5}, -WindowMargins->{{2.25, Automatic}, {2.25, Automatic}}, -FrontEndVersion->"12.3 for Linux x86 (64-bit) (July 9, 2021)", +WindowSize->{715.5, 790.5}, +WindowMargins->{{Automatic, 2.25}, {2.25, Automatic}}, +FrontEndVersion->"12.1 for Linux ARM (32-bit) (August 18, 2020)", StyleDefinitions->"Default.nb", ExpressionUUID->"6f6c570c-dfc0-4320-bdc7-0f1de62bb24c" ] @@ -38544,304 +38358,295 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[558, 20, 991, 15, 24, "Input",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"], -Cell[1552, 37, 545, 13, 41, "Input",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"], -Cell[2100, 52, 463, 11, 24, "Input",ExpressionUUID->"2fdffe9d-9220-4c97-866d-0a1f5e3200a1"], -Cell[2566, 65, 331, 7, 24, "Input",ExpressionUUID->"8f4d55d2-f559-4382-a0b2-1a4eb0ce0b9a"], +Cell[558, 20, 991, 15, 29, "Input",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"], +Cell[1552, 37, 545, 13, 51, "Input",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"], +Cell[2100, 52, 463, 11, 29, "Input",ExpressionUUID->"2fdffe9d-9220-4c97-866d-0a1f5e3200a1"], +Cell[2566, 65, 331, 7, 29, "Input",ExpressionUUID->"8f4d55d2-f559-4382-a0b2-1a4eb0ce0b9a"], Cell[CellGroupData[{ -Cell[2922, 76, 203, 4, 50, "Section",ExpressionUUID->"5d9c76ab-41db-4d8f-b32b-3ceed5a29b07"], +Cell[2922, 76, 203, 4, 68, "Section",ExpressionUUID->"5d9c76ab-41db-4d8f-b32b-3ceed5a29b07"], Cell[CellGroupData[{ -Cell[3150, 84, 163, 3, 41, "Subsection",ExpressionUUID->"04b3434a-7ae1-4e59-9492-797bc05d141c"], +Cell[3150, 84, 163, 3, 54, "Subsection",ExpressionUUID->"04b3434a-7ae1-4e59-9492-797bc05d141c"], Cell[CellGroupData[{ -Cell[3338, 91, 5830, 89, 75, "Input",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"], -Cell[9171, 182, 17304, 369, 183, "Output",ExpressionUUID->"fd0e31c4-3576-413b-be64-c5e2cf272a90"] +Cell[3338, 91, 6467, 102, 113, "Input",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"], +Cell[9808, 195, 16882, 349, 211, "Output",ExpressionUUID->"aa63b707-eeae-4066-b36c-3aa31a011391"] }, Open ]], Cell[CellGroupData[{ -Cell[26512, 556, 5479, 85, 75, "Input",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"], -Cell[31994, 643, 9111, 201, 181, "Output",ExpressionUUID->"c9264244-18b4-4c6b-9045-ac63927b7b1f"] +Cell[26727, 549, 5991, 96, 236, "Input",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"], +Cell[32721, 647, 13067, 266, 242, 8998, 199, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"ab665598-9049-497c-bafe-53f863ef4174"] }, Open ]], Cell[CellGroupData[{ -Cell[41142, 849, 6248, 102, 92, "Input",ExpressionUUID->"b80d3f22-eb0b-4407-8e47-23e8047f75de"], -Cell[47393, 953, 19822, 378, 177, "Output",ExpressionUUID->"038f4708-742c-4509-a5bf-780abe3ef8e7"] +Cell[45825, 918, 6177, 98, 113, "Input",ExpressionUUID->"b80d3f22-eb0b-4407-8e47-23e8047f75de"], +Cell[52005, 1018, 19963, 380, 236, "Output",ExpressionUUID->"3ae2f01e-2c08-40b1-a6eb-0cc6d5efcac2"] }, Open ]], Cell[CellGroupData[{ -Cell[67252, 1336, 4323, 86, 73, "Input",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], -Cell[71578, 1424, 1504, 27, 25, "Output",ExpressionUUID->"25c2add9-9dfd-4b3a-b5ac-e3f767f84a88"] +Cell[72005, 1403, 4324, 86, 139, "Input",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], +Cell[76332, 1491, 1527, 27, 55, "Output",ExpressionUUID->"90c66f69-fd6a-4254-b20f-1502211b9ee2"] }, Open ]], Cell[CellGroupData[{ -Cell[73119, 1456, 1206, 34, 24, "Input",ExpressionUUID->"9acf3167-ed91-4bdd-8d54-9d984831fbe8"], -Cell[74328, 1492, 910, 20, 25, "Output",ExpressionUUID->"b059d7c9-8735-422e-bae9-b5aebf0ffb94"] +Cell[77896, 1523, 1256, 35, 75, "Input",ExpressionUUID->"9acf3167-ed91-4bdd-8d54-9d984831fbe8"], +Cell[79155, 1560, 957, 20, 55, "Output",ExpressionUUID->"8c096ed9-489c-4c77-a879-1d4031bd9f1f"] }, Open ]], Cell[CellGroupData[{ -Cell[75275, 1517, 3447, 72, 56, "Input",ExpressionUUID->"f3f44ab5-ab9d-423b-af35-070d428c3a9d"], -Cell[78725, 1591, 974, 22, 25, "Output",ExpressionUUID->"adca116b-4344-4f24-a113-50dc12d9cdc0"] +Cell[80149, 1585, 3447, 72, 116, "Input",ExpressionUUID->"f3f44ab5-ab9d-423b-af35-070d428c3a9d"], +Cell[83599, 1659, 974, 22, 55, "Output",ExpressionUUID->"adca116b-4344-4f24-a113-50dc12d9cdc0"] }, Open ]], Cell[CellGroupData[{ -Cell[79736, 1618, 1156, 33, 24, "Input",ExpressionUUID->"fbfe9aac-852b-4f12-afa8-eefd1a141395"], -Cell[80895, 1653, 513, 11, 22, "Message",ExpressionUUID->"e11549f0-1f54-41a7-8da7-7bf815c07d68"], -Cell[81411, 1666, 512, 11, 22, "Message",ExpressionUUID->"05deb4f0-b888-4dc3-9800-9d5c62cb046e"], -Cell[81926, 1679, 514, 11, 22, "Message",ExpressionUUID->"52600ce7-1c12-4f65-aeda-9fbca14e912b"], -Cell[82443, 1692, 452, 10, 22, "Message",ExpressionUUID->"43270502-9561-4d5d-bcb4-8fd6e6b0442c"], -Cell[82898, 1704, 961, 23, 25, "Output",ExpressionUUID->"f81b797b-dfad-48f1-907d-78f33085f565"] +Cell[84610, 1686, 1156, 33, 75, "Input",ExpressionUUID->"fbfe9aac-852b-4f12-afa8-eefd1a141395"], +Cell[85769, 1721, 513, 11, 38, "Message",ExpressionUUID->"e11549f0-1f54-41a7-8da7-7bf815c07d68"], +Cell[86285, 1734, 512, 11, 38, "Message",ExpressionUUID->"05deb4f0-b888-4dc3-9800-9d5c62cb046e"], +Cell[86800, 1747, 514, 11, 38, "Message",ExpressionUUID->"52600ce7-1c12-4f65-aeda-9fbca14e912b"], +Cell[87317, 1760, 452, 10, 21, "Message",ExpressionUUID->"43270502-9561-4d5d-bcb4-8fd6e6b0442c"], +Cell[87772, 1772, 961, 23, 55, "Output",ExpressionUUID->"f81b797b-dfad-48f1-907d-78f33085f565"] }, Open ]], Cell[CellGroupData[{ -Cell[83896, 1732, 3409, 73, 73, "Input",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"], -Cell[87308, 1807, 3542, 59, 42, "Output",ExpressionUUID->"c852ba83-1f1c-4b79-b8fa-4d7f006f943a"] +Cell[88770, 1800, 3409, 73, 116, "Input",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"], +Cell[92182, 1875, 3542, 59, 75, "Output",ExpressionUUID->"c852ba83-1f1c-4b79-b8fa-4d7f006f943a"] }, Open ]], Cell[CellGroupData[{ -Cell[90887, 1871, 1154, 33, 24, "Input",ExpressionUUID->"1430cc9e-c966-4177-ab4c-6b03a664eaa5"], -Cell[92044, 1906, 1125, 27, 42, "Output",ExpressionUUID->"dce9f6c3-46a7-4528-b391-b8c13ddc1c07"] +Cell[95761, 1939, 1154, 33, 75, "Input",ExpressionUUID->"1430cc9e-c966-4177-ab4c-6b03a664eaa5"], +Cell[96918, 1974, 1125, 27, 75, "Output",ExpressionUUID->"dce9f6c3-46a7-4528-b391-b8c13ddc1c07"] }, Open ]], Cell[CellGroupData[{ -Cell[93206, 1938, 3645, 75, 56, "Input",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"], -Cell[96854, 2015, 588, 12, 22, "Message",ExpressionUUID->"89cb3b9c-6733-4f30-ba7d-b92bea024a61"], -Cell[97445, 2029, 587, 12, 22, "Message",ExpressionUUID->"f911b253-4922-487d-ab9d-6d0faee4e930"], -Cell[98035, 2043, 586, 12, 22, "Message",ExpressionUUID->"1ba81a51-6150-44c3-af7c-c67dc7bede91"], -Cell[98624, 2057, 526, 11, 22, "Message",ExpressionUUID->"5ac016e9-31c7-4f0e-b8aa-afb81cf2edfa"], -Cell[99153, 2070, 3451, 61, 42, "Output",ExpressionUUID->"82ba02fc-cd21-4782-bcf6-ebf4b2cd722e"] +Cell[98080, 2006, 3645, 75, 116, "Input",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"], +Cell[101728, 2083, 588, 12, 38, "Message",ExpressionUUID->"89cb3b9c-6733-4f30-ba7d-b92bea024a61"], +Cell[102319, 2097, 587, 12, 38, "Message",ExpressionUUID->"f911b253-4922-487d-ab9d-6d0faee4e930"], +Cell[102909, 2111, 586, 12, 38, "Message",ExpressionUUID->"1ba81a51-6150-44c3-af7c-c67dc7bede91"], +Cell[103498, 2125, 526, 11, 21, "Message",ExpressionUUID->"5ac016e9-31c7-4f0e-b8aa-afb81cf2edfa"], +Cell[104027, 2138, 3451, 61, 75, "Output",ExpressionUUID->"82ba02fc-cd21-4782-bcf6-ebf4b2cd722e"] }, Open ]], Cell[CellGroupData[{ -Cell[102641, 2136, 1303, 35, 24, "Input",ExpressionUUID->"dd7f1593-dabe-4540-be1e-78e3cac46ee6"], -Cell[103947, 2173, 443, 10, 22, "Message",ExpressionUUID->"cc8f974a-d219-4e9e-b4a7-ca4badd961fd"], -Cell[104393, 2185, 442, 10, 22, "Message",ExpressionUUID->"d99d9c04-cf49-4c56-b36c-84ebccfe63bf"], -Cell[104838, 2197, 443, 10, 22, "Message",ExpressionUUID->"2e1c1911-4ab1-4ed3-afad-22d62a014078"], -Cell[105284, 2209, 483, 10, 22, "Message",ExpressionUUID->"b5df8d1e-6393-4c91-94c5-90d09ee043df"], -Cell[105770, 2221, 1370, 30, 42, "Output",ExpressionUUID->"c1072ef9-8223-412d-854b-b7316a190ce7"] +Cell[107515, 2204, 1303, 35, 75, "Input",ExpressionUUID->"dd7f1593-dabe-4540-be1e-78e3cac46ee6"], +Cell[108821, 2241, 443, 10, 35, "Message",ExpressionUUID->"cc8f974a-d219-4e9e-b4a7-ca4badd961fd"], +Cell[109267, 2253, 442, 10, 35, "Message",ExpressionUUID->"d99d9c04-cf49-4c56-b36c-84ebccfe63bf"], +Cell[109712, 2265, 443, 10, 35, "Message",ExpressionUUID->"2e1c1911-4ab1-4ed3-afad-22d62a014078"], +Cell[110158, 2277, 483, 10, 21, "Message",ExpressionUUID->"b5df8d1e-6393-4c91-94c5-90d09ee043df"], +Cell[110644, 2289, 1370, 30, 75, "Output",ExpressionUUID->"c1072ef9-8223-412d-854b-b7316a190ce7"] }, Open ]], Cell[CellGroupData[{ -Cell[107177, 2256, 1332, 36, 24, "Input",ExpressionUUID->"df6fc5c6-1a03-486b-a4d4-7311da4859de"], -Cell[108512, 2294, 1408, 32, 42, "Output",ExpressionUUID->"86750074-4a9a-430f-b741-5590432396da"] +Cell[112051, 2324, 1332, 36, 75, "Input",ExpressionUUID->"df6fc5c6-1a03-486b-a4d4-7311da4859de"], +Cell[113386, 2362, 1408, 32, 75, "Output",ExpressionUUID->"86750074-4a9a-430f-b741-5590432396da"] }, Open ]], Cell[CellGroupData[{ -Cell[109957, 2331, 3942, 81, 73, "Input",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"], -Cell[113902, 2414, 3828, 69, 42, "Output",ExpressionUUID->"9d6b6399-b8b5-4c11-b0c4-1878fb7107b3"] +Cell[114831, 2399, 3942, 81, 116, "Input",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"], +Cell[118776, 2482, 3828, 69, 75, "Output",ExpressionUUID->"9d6b6399-b8b5-4c11-b0c4-1878fb7107b3"] }, Open ]], Cell[CellGroupData[{ -Cell[117767, 2488, 1180, 34, 24, "Input",ExpressionUUID->"bf55aae6-3b22-44f1-8c18-45a5a02a688a"], -Cell[118950, 2524, 468, 11, 22, "Message",ExpressionUUID->"2b1c0138-6295-41cb-b72d-9bdcf95faa22"], -Cell[119421, 2537, 471, 11, 22, "Message",ExpressionUUID->"1968cc21-938c-46cc-9eba-9e9fbf2d536b"], -Cell[119895, 2550, 469, 11, 22, "Message",ExpressionUUID->"54327536-e923-4a6d-bd8d-521163c69b38"], -Cell[120367, 2563, 507, 11, 22, "Message",ExpressionUUID->"f27864d6-3131-4c6c-85e0-07d0f801952b"], -Cell[120877, 2576, 1513, 36, 42, "Output",ExpressionUUID->"86baa30e-786d-4147-9230-63ec16e908fd"] +Cell[122641, 2556, 1180, 34, 75, "Input",ExpressionUUID->"bf55aae6-3b22-44f1-8c18-45a5a02a688a"], +Cell[123824, 2592, 468, 11, 35, "Message",ExpressionUUID->"2b1c0138-6295-41cb-b72d-9bdcf95faa22"], +Cell[124295, 2605, 471, 11, 35, "Message",ExpressionUUID->"1968cc21-938c-46cc-9eba-9e9fbf2d536b"], +Cell[124769, 2618, 469, 11, 35, "Message",ExpressionUUID->"54327536-e923-4a6d-bd8d-521163c69b38"], +Cell[125241, 2631, 507, 11, 21, "Message",ExpressionUUID->"f27864d6-3131-4c6c-85e0-07d0f801952b"], +Cell[125751, 2644, 1513, 36, 96, "Output",ExpressionUUID->"86baa30e-786d-4147-9230-63ec16e908fd"] }, Open ]], Cell[CellGroupData[{ -Cell[122427, 2617, 1256, 35, 24, "Input",ExpressionUUID->"311c4189-0d61-4e5b-abce-a18bf11d30d5"], -Cell[123686, 2654, 463, 11, 22, "Message",ExpressionUUID->"bf2e9b59-9481-4751-9dda-95c2a44ef88f"], -Cell[124152, 2667, 456, 10, 22, "Message",ExpressionUUID->"e2c7bc36-ac17-4833-a5e2-708377ab366a"], -Cell[124611, 2679, 461, 11, 22, "Message",ExpressionUUID->"a54a6f29-b6bb-42b1-9ef1-c7391454ddd3"], -Cell[125075, 2692, 453, 10, 22, "Message",ExpressionUUID->"c84a7a7a-bcb6-4589-aa5b-07a8eb37ece5"], -Cell[125531, 2704, 1559, 37, 42, "Output",ExpressionUUID->"04ebe322-fb32-4e84-98d4-e2cca00e038f"] +Cell[127301, 2685, 1256, 35, 75, "Input",ExpressionUUID->"311c4189-0d61-4e5b-abce-a18bf11d30d5"], +Cell[128560, 2722, 463, 11, 37, "Message",ExpressionUUID->"bf2e9b59-9481-4751-9dda-95c2a44ef88f"], +Cell[129026, 2735, 456, 10, 37, "Message",ExpressionUUID->"e2c7bc36-ac17-4833-a5e2-708377ab366a"], +Cell[129485, 2747, 461, 11, 37, "Message",ExpressionUUID->"a54a6f29-b6bb-42b1-9ef1-c7391454ddd3"], +Cell[129949, 2760, 453, 10, 21, "Message",ExpressionUUID->"c84a7a7a-bcb6-4589-aa5b-07a8eb37ece5"], +Cell[130405, 2772, 1559, 37, 96, "Output",ExpressionUUID->"04ebe322-fb32-4e84-98d4-e2cca00e038f"] }, Open ]], Cell[CellGroupData[{ -Cell[127127, 2746, 4377, 85, 56, "Input",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"], -Cell[131507, 2833, 584, 12, 22, "Message",ExpressionUUID->"478e944e-8539-43dd-b7ad-13452d8c5fd8"], -Cell[132094, 2847, 584, 12, 22, "Message",ExpressionUUID->"4e714ac4-3741-4bad-8978-9cce7fc9cf27"], -Cell[132681, 2861, 583, 12, 22, "Message",ExpressionUUID->"d8d08a80-7409-4fd5-b5fa-8bf89b0dc929"], -Cell[133267, 2875, 522, 11, 22, "Message",ExpressionUUID->"649838a1-0289-4c08-8492-56d4c5c821ed"], -Cell[133792, 2888, 3474, 66, 44, "Output",ExpressionUUID->"10fc8e0a-a280-4cb2-a212-f7708921bb32"] +Cell[132001, 2814, 4377, 85, 116, "Input",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"], +Cell[136381, 2901, 584, 12, 22, "Message",ExpressionUUID->"478e944e-8539-43dd-b7ad-13452d8c5fd8"], +Cell[136968, 2915, 584, 12, 22, "Message",ExpressionUUID->"4e714ac4-3741-4bad-8978-9cce7fc9cf27"], +Cell[137555, 2929, 583, 12, 38, "Message",ExpressionUUID->"d8d08a80-7409-4fd5-b5fa-8bf89b0dc929"], +Cell[138141, 2943, 522, 11, 21, "Message",ExpressionUUID->"649838a1-0289-4c08-8492-56d4c5c821ed"], +Cell[138666, 2956, 3474, 66, 99, "Output",ExpressionUUID->"10fc8e0a-a280-4cb2-a212-f7708921bb32"] }, Open ]], Cell[CellGroupData[{ -Cell[137303, 2959, 1301, 35, 24, "Input",ExpressionUUID->"b20a690a-f037-42e7-b31f-7c6fb7165446"], -Cell[138607, 2996, 372, 9, 22, "Message",ExpressionUUID->"99f55c82-9f1e-4ed1-bee7-f6b42788529a"], -Cell[138982, 3007, 476, 11, 33, "Message",ExpressionUUID->"cfc785c7-fdcc-4464-8d55-c4535fd0989e"], -Cell[139461, 3020, 476, 11, 33, "Message",ExpressionUUID->"9c8142ac-b7cf-485d-a8dd-97352d13f970"], -Cell[139940, 3033, 476, 11, 33, "Message",ExpressionUUID->"834508c0-17d9-4b75-a223-87eb84e48a0c"], -Cell[140419, 3046, 453, 10, 22, "Message",ExpressionUUID->"0e6651e7-50f5-46db-94b9-c49b364cdd89"], -Cell[140875, 3058, 422, 10, 22, "Message",ExpressionUUID->"fcfc6397-b646-4aae-beb5-a084083db9ff"], -Cell[141300, 3070, 422, 10, 22, "Message",ExpressionUUID->"b1114c64-a94d-4a84-8517-f220bdce1087"], -Cell[141725, 3082, 424, 10, 22, "Message",ExpressionUUID->"e7ce51a0-f9e4-4182-befc-f3116db1409a"], -Cell[142152, 3094, 460, 10, 22, "Message",ExpressionUUID->"535790fb-fc75-46e1-80cb-f0da4033f09b"], -Cell[142615, 3106, 1609, 39, 42, "Output",ExpressionUUID->"e6b943fe-5982-410c-a3ea-7ed5f87dc501"] +Cell[142177, 3027, 1301, 35, 75, "Input",ExpressionUUID->"b20a690a-f037-42e7-b31f-7c6fb7165446"], +Cell[143481, 3064, 372, 9, 21, "Message",ExpressionUUID->"99f55c82-9f1e-4ed1-bee7-f6b42788529a"], +Cell[143856, 3075, 476, 11, 54, "Message",ExpressionUUID->"cfc785c7-fdcc-4464-8d55-c4535fd0989e"], +Cell[144335, 3088, 476, 11, 54, "Message",ExpressionUUID->"9c8142ac-b7cf-485d-a8dd-97352d13f970"], +Cell[144814, 3101, 476, 11, 54, "Message",ExpressionUUID->"834508c0-17d9-4b75-a223-87eb84e48a0c"], +Cell[145293, 3114, 453, 10, 21, "Message",ExpressionUUID->"0e6651e7-50f5-46db-94b9-c49b364cdd89"], +Cell[145749, 3126, 422, 10, 35, "Message",ExpressionUUID->"fcfc6397-b646-4aae-beb5-a084083db9ff"], +Cell[146174, 3138, 422, 10, 35, "Message",ExpressionUUID->"b1114c64-a94d-4a84-8517-f220bdce1087"], +Cell[146599, 3150, 424, 10, 35, "Message",ExpressionUUID->"e7ce51a0-f9e4-4182-befc-f3116db1409a"], +Cell[147026, 3162, 460, 10, 21, "Message",ExpressionUUID->"535790fb-fc75-46e1-80cb-f0da4033f09b"], +Cell[147489, 3174, 1609, 39, 96, "Output",ExpressionUUID->"e6b943fe-5982-410c-a3ea-7ed5f87dc501"] }, Open ]], Cell[CellGroupData[{ -Cell[144261, 3150, 1351, 36, 24, "Input",ExpressionUUID->"c5f7cefb-23b6-4795-8e0e-29084392ea3e"], -Cell[145615, 3188, 537, 11, 22, "Message",ExpressionUUID->"4542c8d2-981a-4127-9547-5d5f87f55b8c"], -Cell[146155, 3201, 537, 11, 22, "Message",ExpressionUUID->"078927a3-b72f-479b-951b-599fed4a45e6"], -Cell[146695, 3214, 537, 11, 22, "Message",ExpressionUUID->"7244fd16-cc92-4e8d-9c75-0b780e16d48d"], -Cell[147235, 3227, 475, 10, 22, "Message",ExpressionUUID->"84fcb9c4-04a4-4da4-b7a9-f8b856048bab"], -Cell[147713, 3239, 1635, 40, 42, "Output",ExpressionUUID->"582f27a7-c183-4aa4-844c-51abc5718a5d"] +Cell[149135, 3218, 1351, 36, 75, "Input",ExpressionUUID->"c5f7cefb-23b6-4795-8e0e-29084392ea3e"], +Cell[150489, 3256, 537, 11, 38, "Message",ExpressionUUID->"4542c8d2-981a-4127-9547-5d5f87f55b8c"], +Cell[151029, 3269, 537, 11, 38, "Message",ExpressionUUID->"078927a3-b72f-479b-951b-599fed4a45e6"], +Cell[151569, 3282, 537, 11, 38, "Message",ExpressionUUID->"7244fd16-cc92-4e8d-9c75-0b780e16d48d"], +Cell[152109, 3295, 475, 10, 21, "Message",ExpressionUUID->"84fcb9c4-04a4-4da4-b7a9-f8b856048bab"], +Cell[152587, 3307, 1635, 40, 96, "Output",ExpressionUUID->"582f27a7-c183-4aa4-844c-51abc5718a5d"] }, Open ]], Cell[CellGroupData[{ -Cell[149385, 3284, 5592, 103, 73, "Input",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"], +Cell[154259, 3352, 5592, 103, 137, "Input",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"], Cell[CellGroupData[{ -Cell[155002, 3391, 296, 8, 43, "Print",ExpressionUUID->"7a772fba-df33-4f9d-b38d-6940e3941eab"], -Cell[155301, 3401, 322, 9, 56, "Print",ExpressionUUID->"41a446af-8dd2-4c1a-85b6-0bcb5710c58e"], -Cell[155626, 3412, 324, 9, 56, "Print",ExpressionUUID->"3053db1b-f597-47a4-aa61-dd8286212823"], -Cell[155953, 3423, 322, 9, 56, "Print",ExpressionUUID->"5801f127-4593-4248-a8fc-5fe3e865e2f0"], -Cell[156278, 3434, 272, 7, 30, "Print",ExpressionUUID->"55824d87-912b-4205-a8c2-4bc2f6cbcce8"] +Cell[159876, 3459, 296, 8, 71, "Print",ExpressionUUID->"7a772fba-df33-4f9d-b38d-6940e3941eab"], +Cell[160175, 3469, 322, 9, 88, "Print",ExpressionUUID->"41a446af-8dd2-4c1a-85b6-0bcb5710c58e"], +Cell[160500, 3480, 324, 9, 88, "Print",ExpressionUUID->"3053db1b-f597-47a4-aa61-dd8286212823"], +Cell[160827, 3491, 322, 9, 88, "Print",ExpressionUUID->"5801f127-4593-4248-a8fc-5fe3e865e2f0"], +Cell[161152, 3502, 272, 7, 54, "Print",ExpressionUUID->"55824d87-912b-4205-a8c2-4bc2f6cbcce8"] }, Open ]], -Cell[156565, 3444, 1895, 46, 44, "Output",ExpressionUUID->"b1a7bbe4-1bc8-4c67-8307-052ebd4e074e"] +Cell[161439, 3512, 1895, 46, 99, "Output",ExpressionUUID->"b1a7bbe4-1bc8-4c67-8307-052ebd4e074e"] }, Open ]], Cell[CellGroupData[{ -Cell[158497, 3495, 1545, 39, 24, "Input",ExpressionUUID->"e31ca7a0-70f8-48f8-88bd-46f299706f4b"], -Cell[160045, 3536, 2065, 48, 44, "Output",ExpressionUUID->"b6abc47e-be51-4849-8362-057ad4abcb66"] +Cell[163371, 3563, 1545, 39, 96, "Input",ExpressionUUID->"e31ca7a0-70f8-48f8-88bd-46f299706f4b"], +Cell[164919, 3604, 2065, 48, 99, "Output",ExpressionUUID->"b6abc47e-be51-4849-8362-057ad4abcb66"] }, Open ]], Cell[CellGroupData[{ -Cell[162147, 3589, 1623, 41, 24, "Input",ExpressionUUID->"ece2d3a0-e982-4957-8372-4f9d2d7fe8c0"], +Cell[167021, 3657, 1623, 41, 96, "Input",ExpressionUUID->"ece2d3a0-e982-4957-8372-4f9d2d7fe8c0"], Cell[CellGroupData[{ -Cell[163795, 3634, 323, 9, 56, "Print",ExpressionUUID->"69f46805-d37f-43db-b745-b6f4e19be601"], -Cell[164121, 3645, 323, 9, 56, "Print",ExpressionUUID->"3e7e2344-5bd4-45c4-863e-cca15e665d35"], -Cell[164447, 3656, 324, 9, 56, "Print",ExpressionUUID->"099fa598-6830-498a-a031-0d3681f80025"], -Cell[164774, 3667, 271, 7, 30, "Print",ExpressionUUID->"bccb58ff-4772-4874-a5a9-38cc32a82c5e"] +Cell[168669, 3702, 323, 9, 88, "Print",ExpressionUUID->"69f46805-d37f-43db-b745-b6f4e19be601"], +Cell[168995, 3713, 323, 9, 88, "Print",ExpressionUUID->"3e7e2344-5bd4-45c4-863e-cca15e665d35"], +Cell[169321, 3724, 324, 9, 88, "Print",ExpressionUUID->"099fa598-6830-498a-a031-0d3681f80025"], +Cell[169648, 3735, 271, 7, 54, "Print",ExpressionUUID->"bccb58ff-4772-4874-a5a9-38cc32a82c5e"] }, Open ]], -Cell[165060, 3677, 2020, 48, 42, "Output",ExpressionUUID->"200f061b-0403-464b-a625-1f810bc1f5b5"] +Cell[169934, 3745, 2020, 48, 96, "Output",ExpressionUUID->"200f061b-0403-464b-a625-1f810bc1f5b5"] }, Open ]], Cell[CellGroupData[{ -Cell[167117, 3730, 5199, 97, 73, "Input",ExpressionUUID->"5facca9e-653e-4fd9-8527-0092e5469f90"], +Cell[171991, 3798, 5199, 97, 137, "Input",ExpressionUUID->"5facca9e-653e-4fd9-8527-0092e5469f90"], Cell[CellGroupData[{ -Cell[172341, 3831, 322, 9, 56, "Print",ExpressionUUID->"f45234f2-752f-46c6-9ddf-bd262d16691f"], -Cell[172666, 3842, 324, 9, 56, "Print",ExpressionUUID->"011b4035-7393-4523-94fb-fb4791bf158d"], -Cell[172993, 3853, 322, 9, 56, "Print",ExpressionUUID->"c5d09aec-16c7-4e06-acf4-318a5ced69b1"], -Cell[173318, 3864, 274, 7, 30, "Print",ExpressionUUID->"211a48b2-a25f-4c85-8a27-a723c7e7d387"] +Cell[177215, 3899, 322, 9, 88, "Print",ExpressionUUID->"f45234f2-752f-46c6-9ddf-bd262d16691f"], +Cell[177540, 3910, 324, 9, 88, "Print",ExpressionUUID->"011b4035-7393-4523-94fb-fb4791bf158d"], +Cell[177867, 3921, 322, 9, 88, "Print",ExpressionUUID->"c5d09aec-16c7-4e06-acf4-318a5ced69b1"], +Cell[178192, 3932, 274, 7, 54, "Print",ExpressionUUID->"211a48b2-a25f-4c85-8a27-a723c7e7d387"] }, Open ]], -Cell[173607, 3874, 1877, 49, 60, "Output",ExpressionUUID->"68934bdb-e5c2-45fc-b920-4aae13dbfe8d"] +Cell[178481, 3942, 1877, 49, 120, "Output",ExpressionUUID->"68934bdb-e5c2-45fc-b920-4aae13dbfe8d"] }, Open ]], Cell[CellGroupData[{ -Cell[175521, 3928, 4659, 82, 24, "Input",ExpressionUUID->"6bb6eb48-9c7f-4cd5-80e5-89dd5f03b923"], +Cell[180395, 3996, 4659, 82, 96, "Input",ExpressionUUID->"6bb6eb48-9c7f-4cd5-80e5-89dd5f03b923"], Cell[CellGroupData[{ -Cell[180205, 4014, 324, 9, 56, "Print",ExpressionUUID->"467aa206-d126-4a40-8067-409232ffdc3a"], -Cell[180532, 4025, 323, 9, 56, "Print",ExpressionUUID->"8754ca31-013e-4466-96bb-ebec32313a78"], -Cell[180858, 4036, 324, 9, 56, "Print",ExpressionUUID->"c1aca8bb-d681-469a-bd29-f151362e33f6"], -Cell[181185, 4047, 272, 7, 30, "Print",ExpressionUUID->"4f212f81-2c74-4237-aad8-d1d9e3dda9a8"] +Cell[185079, 4082, 324, 9, 88, "Print",ExpressionUUID->"467aa206-d126-4a40-8067-409232ffdc3a"], +Cell[185406, 4093, 323, 9, 88, "Print",ExpressionUUID->"8754ca31-013e-4466-96bb-ebec32313a78"], +Cell[185732, 4104, 324, 9, 88, "Print",ExpressionUUID->"c1aca8bb-d681-469a-bd29-f151362e33f6"], +Cell[186059, 4115, 272, 7, 54, "Print",ExpressionUUID->"4f212f81-2c74-4237-aad8-d1d9e3dda9a8"] }, Open ]], -Cell[181472, 4057, 2092, 52, 60, "Output",ExpressionUUID->"2a2c83e9-3cde-44af-a7d5-e6b62504ce18"] +Cell[186346, 4125, 2092, 52, 120, "Output",ExpressionUUID->"2a2c83e9-3cde-44af-a7d5-e6b62504ce18"] }, Open ]], Cell[CellGroupData[{ -Cell[183601, 4114, 1250, 36, 24, "Input",ExpressionUUID->"50ae3a0c-00b7-48d3-bbd9-7fcdb7e9be65"], +Cell[188475, 4182, 1250, 36, 96, "Input",ExpressionUUID->"50ae3a0c-00b7-48d3-bbd9-7fcdb7e9be65"], Cell[CellGroupData[{ -Cell[184876, 4154, 252, 6, 18, "Print",ExpressionUUID->"f2db3760-255a-4d78-86c0-da167b38c746"], -Cell[185131, 4162, 255, 7, 18, "Print",ExpressionUUID->"9eaeaa47-2a19-4f62-8edd-d739b738dc97"], -Cell[185389, 4171, 249, 6, 18, "Print",ExpressionUUID->"516762a4-e3a4-49c8-afd5-ebb9602701c3"], -Cell[185641, 4179, 254, 6, 18, "Print",ExpressionUUID->"8c6b0e8c-5f47-421a-af95-4872d1d3fdd4"], -Cell[185898, 4187, 257, 7, 18, "Print",ExpressionUUID->"10d22756-dcd4-44d1-aac4-99016bb32ee9"], -Cell[186158, 4196, 271, 7, 30, "Print",ExpressionUUID->"084e7849-246f-429f-855f-22c2c43a8763"], -Cell[186432, 4205, 254, 6, 18, "Print",ExpressionUUID->"e015d14b-eb0c-4bb0-af1c-188c96529d70"], -Cell[186689, 4213, 254, 6, 18, "Print",ExpressionUUID->"bc7a1a36-c9f3-4c07-90fe-8ed0ce16359d"], -Cell[186946, 4221, 273, 7, 30, "Print",ExpressionUUID->"ad6e1792-e476-45f4-ada9-6baaeb9e165a"], -Cell[187222, 4230, 266, 7, 30, "Print",ExpressionUUID->"9badaa21-a438-4ebf-a9b8-b6f0cc53a9a5"], -Cell[187491, 4239, 309, 8, 43, "Print",ExpressionUUID->"103493b3-bc70-4d18-ae26-4b48ba433f58"], -Cell[187803, 4249, 268, 7, 30, "Print",ExpressionUUID->"702392f9-fce6-4fe0-a53b-091e531871fc"], -Cell[188074, 4258, 268, 7, 30, "Print",ExpressionUUID->"891d5c90-8786-453c-915a-5c9758870145"], -Cell[188345, 4267, 309, 8, 43, "Print",ExpressionUUID->"18c6d658-6045-48d1-b671-d40f83ee93a5"], -Cell[188657, 4277, 227, 4, 18, "Print",ExpressionUUID->"95489f99-5b01-4f57-9a57-182c23961f20"], -Cell[188887, 4283, 365, 8, 43, "Print",ExpressionUUID->"f2fff34e-167a-4e82-ba62-ead2b1143e60"], -Cell[189255, 4293, 227, 4, 18, "Print",ExpressionUUID->"4171c4a8-9b74-4d07-876d-81d571c07477"], -Cell[189485, 4299, 272, 7, 30, "Print",ExpressionUUID->"45356bd2-8112-4f01-b137-4fef8466cde1"], -Cell[189760, 4308, 489, 11, 81, "Print",ExpressionUUID->"5978dcc5-7b1e-4d27-9474-82e19086971d"], -Cell[190252, 4321, 280, 7, 30, "Print",ExpressionUUID->"3f77796a-af19-4895-a65a-bfbc320f7174"] +Cell[189750, 4222, 252, 6, 37, "Print",ExpressionUUID->"f2db3760-255a-4d78-86c0-da167b38c746"], +Cell[190005, 4230, 255, 7, 37, "Print",ExpressionUUID->"9eaeaa47-2a19-4f62-8edd-d739b738dc97"], +Cell[190263, 4239, 249, 6, 37, "Print",ExpressionUUID->"516762a4-e3a4-49c8-afd5-ebb9602701c3"], +Cell[190515, 4247, 254, 6, 37, "Print",ExpressionUUID->"8c6b0e8c-5f47-421a-af95-4872d1d3fdd4"], +Cell[190772, 4255, 257, 7, 37, "Print",ExpressionUUID->"10d22756-dcd4-44d1-aac4-99016bb32ee9"], +Cell[191032, 4264, 271, 7, 54, "Print",ExpressionUUID->"084e7849-246f-429f-855f-22c2c43a8763"], +Cell[191306, 4273, 254, 6, 37, "Print",ExpressionUUID->"e015d14b-eb0c-4bb0-af1c-188c96529d70"], +Cell[191563, 4281, 254, 6, 37, "Print",ExpressionUUID->"bc7a1a36-c9f3-4c07-90fe-8ed0ce16359d"], +Cell[191820, 4289, 273, 7, 54, "Print",ExpressionUUID->"ad6e1792-e476-45f4-ada9-6baaeb9e165a"], +Cell[192096, 4298, 266, 7, 54, "Print",ExpressionUUID->"9badaa21-a438-4ebf-a9b8-b6f0cc53a9a5"], +Cell[192365, 4307, 309, 8, 71, "Print",ExpressionUUID->"103493b3-bc70-4d18-ae26-4b48ba433f58"], +Cell[192677, 4317, 268, 7, 54, "Print",ExpressionUUID->"702392f9-fce6-4fe0-a53b-091e531871fc"], +Cell[192948, 4326, 268, 7, 54, "Print",ExpressionUUID->"891d5c90-8786-453c-915a-5c9758870145"], +Cell[193219, 4335, 309, 8, 71, "Print",ExpressionUUID->"18c6d658-6045-48d1-b671-d40f83ee93a5"], +Cell[193531, 4345, 227, 4, 37, "Print",ExpressionUUID->"95489f99-5b01-4f57-9a57-182c23961f20"], +Cell[193761, 4351, 365, 8, 71, "Print",ExpressionUUID->"f2fff34e-167a-4e82-ba62-ead2b1143e60"], +Cell[194129, 4361, 227, 4, 37, "Print",ExpressionUUID->"4171c4a8-9b74-4d07-876d-81d571c07477"], +Cell[194359, 4367, 272, 7, 54, "Print",ExpressionUUID->"45356bd2-8112-4f01-b137-4fef8466cde1"], +Cell[194634, 4376, 489, 11, 122, "Print",ExpressionUUID->"5978dcc5-7b1e-4d27-9474-82e19086971d"], +Cell[195126, 4389, 280, 7, 54, "Print",ExpressionUUID->"3f77796a-af19-4895-a65a-bfbc320f7174"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[190581, 4334, 5215, 100, 73, "Input",ExpressionUUID->"f5124a1f-1004-49ef-bdce-65e49311db89"], -Cell[195799, 4436, 601, 12, 22, "Message",ExpressionUUID->"52d37aec-5e97-49ba-a73f-9240ea9bab01"], -Cell[196403, 4450, 609, 12, 22, "Message",ExpressionUUID->"a87cd0bd-956c-4292-bb38-f01fa93f88fa"], -Cell[197015, 4464, 949, 17, 34, "Message",ExpressionUUID->"fd51acaa-08e6-4912-b93f-c1e1c0519a2a"], -Cell[197967, 4483, 354, 6, 25, "Output",ExpressionUUID->"d33cb855-0ed5-497d-8933-b6ebe6b81534"] +Cell[195455, 4402, 5215, 100, 137, "Input",ExpressionUUID->"f5124a1f-1004-49ef-bdce-65e49311db89"], +Cell[200673, 4504, 601, 12, 49, "Message",ExpressionUUID->"52d37aec-5e97-49ba-a73f-9240ea9bab01"], +Cell[201277, 4518, 609, 12, 48, "Message",ExpressionUUID->"a87cd0bd-956c-4292-bb38-f01fa93f88fa"], +Cell[201889, 4532, 949, 17, 77, "Message",ExpressionUUID->"fd51acaa-08e6-4912-b93f-c1e1c0519a2a"], +Cell[202841, 4551, 354, 6, 33, "Output",ExpressionUUID->"d33cb855-0ed5-497d-8933-b6ebe6b81534"] }, Open ]], -Cell[198336, 4492, 1265, 37, 24, "Input",ExpressionUUID->"72b068ea-967c-499f-9ec3-b16d3cfcb4ca"], -Cell[199604, 4531, 10391, 159, 22, "Input",ExpressionUUID->"673ffefa-75f0-46ac-befd-c785b4bc3ce1"], -Cell[209998, 4692, 12010, 183, 22, "Input",ExpressionUUID->"e351157f-b944-4cbd-bedd-89b185c451f7"], +Cell[203210, 4560, 1265, 37, 96, "Input",ExpressionUUID->"72b068ea-967c-499f-9ec3-b16d3cfcb4ca"], +Cell[204478, 4599, 10391, 159, 71, "Input",ExpressionUUID->"673ffefa-75f0-46ac-befd-c785b4bc3ce1"], +Cell[214872, 4760, 12010, 183, 71, "Input",ExpressionUUID->"e351157f-b944-4cbd-bedd-89b185c451f7"], Cell[CellGroupData[{ -Cell[222033, 4879, 525, 11, 24, "Input",ExpressionUUID->"9437364d-2d5a-4493-b405-40564b9ff897"], -Cell[222561, 4892, 23819, 525, 170, "Output",ExpressionUUID->"52fbd471-7005-4ea0-b7a7-58de8c0386f3"] +Cell[226907, 4947, 525, 11, 29, "Input",ExpressionUUID->"9437364d-2d5a-4493-b405-40564b9ff897"], +Cell[227435, 4960, 23819, 525, 228, "Output",ExpressionUUID->"52fbd471-7005-4ea0-b7a7-58de8c0386f3"] }, Open ]], Cell[CellGroupData[{ -Cell[246417, 5422, 20997, 469, 167, "Input",ExpressionUUID->"e0fe24ec-ebe4-4875-83e4-0ee6e9334efc"], -Cell[267417, 5893, 21852, 498, 170, "Output",ExpressionUUID->"a7196a4e-63e4-4e6a-a5ab-a42437e784c3"], -Cell[289272, 6393, 22174, 479, 170, "Output",ExpressionUUID->"d5f785dd-7143-46c7-bfa3-e26fbd2f3c6e"] +Cell[251291, 5490, 20997, 469, 224, "Input",ExpressionUUID->"e0fe24ec-ebe4-4875-83e4-0ee6e9334efc"], +Cell[272291, 5961, 21852, 498, 228, "Output",ExpressionUUID->"a7196a4e-63e4-4e6a-a5ab-a42437e784c3"], +Cell[294146, 6461, 22174, 479, 228, "Output",ExpressionUUID->"d5f785dd-7143-46c7-bfa3-e26fbd2f3c6e"] }, Open ]], Cell[CellGroupData[{ -Cell[311483, 6877, 1801, 44, 24, "Input",ExpressionUUID->"cc0d041f-1be1-4721-9bff-7905d15cd7c6"], -Cell[313287, 6923, 2116, 46, 95, "Output",ExpressionUUID->"a0e6b052-2a21-4317-a019-77888bf4863b"] +Cell[316357, 6945, 1801, 44, 92, "Input",ExpressionUUID->"cc0d041f-1be1-4721-9bff-7905d15cd7c6"], +Cell[318161, 6991, 2116, 46, 186, "Output",ExpressionUUID->"a0e6b052-2a21-4317-a019-77888bf4863b"] }, Open ]], -Cell[315418, 6972, 398, 8, 24, "Input",ExpressionUUID->"0c393b94-0e36-44bf-b752-a3d4e048e5f7"], +Cell[320292, 7040, 398, 8, 71, "Input",ExpressionUUID->"0c393b94-0e36-44bf-b752-a3d4e048e5f7"], Cell[CellGroupData[{ -Cell[315841, 6984, 4133, 75, 59, "Input",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"], -Cell[319977, 7061, 24167, 491, 171, "Output",ExpressionUUID->"f4dafc1e-2d69-44f1-b6c9-4e92c5596f38"] +Cell[320715, 7052, 4133, 75, 120, "Input",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"], +Cell[324851, 7129, 24167, 491, 230, "Output",ExpressionUUID->"f4dafc1e-2d69-44f1-b6c9-4e92c5596f38"] }, Open ]], -Cell[344159, 7555, 287, 7, 22, "Input",ExpressionUUID->"50db4e94-544f-4873-82ae-09a8483fdb2d"], +Cell[349033, 7623, 287, 7, 29, "Input",ExpressionUUID->"50db4e94-544f-4873-82ae-09a8483fdb2d"], Cell[CellGroupData[{ -Cell[344471, 7566, 1038, 29, 41, "Input",ExpressionUUID->"47e013e3-8ac7-4133-8111-4b3509d6e2bb"], -Cell[345512, 7597, 304, 5, 25, "Output",ExpressionUUID->"37bddea5-8edb-4ad5-af54-8c1f0c2eab67"] +Cell[349345, 7634, 1038, 29, 92, "Input",ExpressionUUID->"47e013e3-8ac7-4133-8111-4b3509d6e2bb"], +Cell[350386, 7665, 304, 5, 33, "Output",ExpressionUUID->"37bddea5-8edb-4ad5-af54-8c1f0c2eab67"] }, Open ]], Cell[CellGroupData[{ -Cell[345853, 7607, 868, 24, 24, "Input",ExpressionUUID->"01387b01-3294-40e7-8b69-78378d670e52"], -Cell[346724, 7633, 17575, 405, 184, "Output",ExpressionUUID->"8cec0562-f526-4026-ab01-0593355140a7"] +Cell[350727, 7675, 868, 24, 54, "Input",ExpressionUUID->"01387b01-3294-40e7-8b69-78378d670e52"], +Cell[351598, 7701, 17575, 405, 246, "Output",ExpressionUUID->"8cec0562-f526-4026-ab01-0593355140a7"] }, Open ]], Cell[CellGroupData[{ -Cell[364336, 8043, 1207, 25, 22, "Input",ExpressionUUID->"d88de4bc-38ed-48d9-9eb9-13896c8d48af"], -Cell[365546, 8070, 11475, 249, 171, "Output",ExpressionUUID->"e1fd13f9-9a47-43d5-ac23-916228e32fef"] +Cell[369210, 8111, 1207, 25, 29, "Input",ExpressionUUID->"d88de4bc-38ed-48d9-9eb9-13896c8d48af"], +Cell[370420, 8138, 11475, 249, 229, "Output",ExpressionUUID->"e1fd13f9-9a47-43d5-ac23-916228e32fef"] }, Open ]], Cell[CellGroupData[{ -Cell[377058, 8324, 2187, 51, 66, "Input",ExpressionUUID->"f785d7e5-8e11-45cc-81cd-0e70921fef2b"], -Cell[379248, 8377, 733, 14, 32, "Message",ExpressionUUID->"162535cd-d62a-48c2-af96-7140a9f63050"], -Cell[379984, 8393, 771, 15, 22, "Message",ExpressionUUID->"56b6fe59-14dc-4bc6-baeb-fe77ce144ee6"], -Cell[380758, 8410, 734, 14, 32, "Message",ExpressionUUID->"9e7384b5-4cf5-4f3e-84e6-a9d047e1959b"], -Cell[381495, 8426, 769, 15, 22, "Message",ExpressionUUID->"348cb862-eaed-45c1-9750-7eeddb304033"], -Cell[382267, 8443, 734, 14, 32, "Message",ExpressionUUID->"ee576e45-e228-483d-890e-f9c379104b1f"], -Cell[383004, 8459, 814, 15, 22, "Message",ExpressionUUID->"505478e2-adb1-468b-bd7d-2f1280492c3a"], -Cell[383821, 8476, 771, 15, 22, "Message",ExpressionUUID->"725753ce-0c13-4467-8895-0d985413a7b7"], -Cell[384595, 8493, 818, 15, 22, "Message",ExpressionUUID->"5eb9561f-5e5e-4b1d-b5bb-f3122d6b98f2"], -Cell[385416, 8510, 11608, 275, 180, "Output",ExpressionUUID->"be597aa8-7ecf-4557-9551-74d39eb14ee7"] +Cell[381932, 8392, 2187, 51, 160, "Input",ExpressionUUID->"f785d7e5-8e11-45cc-81cd-0e70921fef2b"], +Cell[384122, 8445, 733, 14, 36, "Message",ExpressionUUID->"162535cd-d62a-48c2-af96-7140a9f63050"], +Cell[384858, 8461, 771, 15, 21, "Message",ExpressionUUID->"56b6fe59-14dc-4bc6-baeb-fe77ce144ee6"], +Cell[385632, 8478, 734, 14, 36, "Message",ExpressionUUID->"9e7384b5-4cf5-4f3e-84e6-a9d047e1959b"], +Cell[386369, 8494, 769, 15, 21, "Message",ExpressionUUID->"348cb862-eaed-45c1-9750-7eeddb304033"], +Cell[387141, 8511, 734, 14, 36, "Message",ExpressionUUID->"ee576e45-e228-483d-890e-f9c379104b1f"], +Cell[387878, 8527, 814, 15, 21, "Message",ExpressionUUID->"505478e2-adb1-468b-bd7d-2f1280492c3a"], +Cell[388695, 8544, 771, 15, 21, "Message",ExpressionUUID->"725753ce-0c13-4467-8895-0d985413a7b7"], +Cell[389469, 8561, 818, 15, 21, "Message",ExpressionUUID->"5eb9561f-5e5e-4b1d-b5bb-f3122d6b98f2"], +Cell[390290, 8578, 11608, 275, 240, "Output",ExpressionUUID->"be597aa8-7ecf-4557-9551-74d39eb14ee7"] }, Open ]], Cell[CellGroupData[{ -Cell[397061, 8790, 1336, 31, 43, "Input",ExpressionUUID->"be68f105-e7f1-4186-b7b1-a6f02a4bd594"], -Cell[398400, 8823, 10700, 261, 181, "Output",ExpressionUUID->"b57dd479-aac4-4dc9-b32b-1a68214db69f"] +Cell[401935, 8858, 1336, 31, 77, "Input",ExpressionUUID->"be68f105-e7f1-4186-b7b1-a6f02a4bd594"], +Cell[403274, 8891, 10700, 261, 242, "Output",ExpressionUUID->"b57dd479-aac4-4dc9-b32b-1a68214db69f"] }, Open ]], Cell[CellGroupData[{ -Cell[409137, 9089, 848, 21, 22, "Input",ExpressionUUID->"0805dca1-3214-4053-b11e-4c015cec2e4b"], -Cell[409988, 9112, 12644, 228, 174, "Output",ExpressionUUID->"48b92cb7-d098-4f8b-b49d-7550fd336efb"] +Cell[414011, 9157, 848, 21, 29, "Input",ExpressionUUID->"0805dca1-3214-4053-b11e-4c015cec2e4b"], +Cell[414862, 9180, 12644, 228, 233, "Output",ExpressionUUID->"48b92cb7-d098-4f8b-b49d-7550fd336efb"] }, Open ]], Cell[CellGroupData[{ -Cell[422669, 9345, 982, 23, 22, "Input",ExpressionUUID->"df04592e-ebb2-4859-b1e7-acbef5775165"], -Cell[423654, 9370, 16441, 289, 171, "Output",ExpressionUUID->"35add101-fc22-4757-b5c1-91c88545a137"] +Cell[427543, 9413, 982, 23, 51, "Input",ExpressionUUID->"df04592e-ebb2-4859-b1e7-acbef5775165"], +Cell[428528, 9438, 16441, 289, 229, "Output",ExpressionUUID->"35add101-fc22-4757-b5c1-91c88545a137"] }, Open ]], Cell[CellGroupData[{ -Cell[440132, 9664, 3834, 96, 109, "Input",ExpressionUUID->"c7679221-477e-44ed-ad24-f20a36e0f29d"], -Cell[443969, 9762, 38355, 642, 188, "Output",ExpressionUUID->"4b4be68c-760f-476d-96a3-fcd70d8ef33c"] +Cell[445006, 9732, 3834, 96, 203, "Input",ExpressionUUID->"c7679221-477e-44ed-ad24-f20a36e0f29d"], +Cell[448843, 9830, 38355, 642, 251, "Output",ExpressionUUID->"4b4be68c-760f-476d-96a3-fcd70d8ef33c"] }, Open ]], Cell[CellGroupData[{ -Cell[482361, 10409, 2305, 52, 62, "Input",ExpressionUUID->"3774b0e8-ed8f-4304-be73-f4ed265155e9"], -Cell[484669, 10463, 11461, 208, 392, "Output",ExpressionUUID->"897b2bdd-4551-4a9d-b234-810e9e14bf11"] +Cell[487235, 10477, 2305, 52, 134, "Input",ExpressionUUID->"3774b0e8-ed8f-4304-be73-f4ed265155e9"], +Cell[489543, 10531, 11461, 208, 522, "Output",ExpressionUUID->"897b2bdd-4551-4a9d-b234-810e9e14bf11"] }, Open ]], Cell[CellGroupData[{ -Cell[496167, 10676, 2206, 52, 62, "Input",ExpressionUUID->"997c9c3d-3291-4f27-afcd-2a3c02bfd3fd"], -Cell[498376, 10730, 23560, 404, 253, "Output",ExpressionUUID->"b89ead09-4dd2-4e82-9f4f-7394478ce32f"] +Cell[501041, 10744, 2206, 52, 134, "Input",ExpressionUUID->"997c9c3d-3291-4f27-afcd-2a3c02bfd3fd"], +Cell[503250, 10798, 23560, 404, 338, "Output",ExpressionUUID->"b89ead09-4dd2-4e82-9f4f-7394478ce32f"] }, Open ]], Cell[CellGroupData[{ -Cell[521973, 11139, 1629, 38, 57, "Input",ExpressionUUID->"caeef800-5d91-4fb4-9816-9aacdb626a63"], -Cell[523605, 11179, 1251114, 20528, 364, 772638, 12684, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"f7800255-b48c-4368-ba57-548155e86dfa"] +Cell[526847, 11207, 1629, 38, 120, "Input",ExpressionUUID->"caeef800-5d91-4fb4-9816-9aacdb626a63"], +Cell[528479, 11247, 1251114, 20528, 368, 772638, 12684, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"f7800255-b48c-4368-ba57-548155e86dfa"] }, Open ]], Cell[CellGroupData[{ -Cell[1774756, 31712, 1176, 30, 41, "Input",ExpressionUUID->"626e933d-cd37-4a52-851f-6473bebeff53"], -Cell[1775935, 31744, 163730, 2704, 317, "Output",ExpressionUUID->"df893735-eb2f-4fa8-937b-dbb343a52a39"] +Cell[1779630, 31780, 1176, 30, 41, "Input",ExpressionUUID->"626e933d-cd37-4a52-851f-6473bebeff53"], +Cell[1780809, 31812, 163730, 2704, 424, "Output",ExpressionUUID->"df893735-eb2f-4fa8-937b-dbb343a52a39"] }, Open ]], Cell[CellGroupData[{ -Cell[1939702, 34453, 1906, 42, 75, "Input",ExpressionUUID->"9985bed4-dad9-41a8-a4a0-bf515be7111c"], -Cell[1941611, 34497, 199193, 3283, 362, "Output",ExpressionUUID->"7ad32301-6347-4a43-8055-9158b827767a"] +Cell[1944576, 34521, 1906, 42, 120, "Input",ExpressionUUID->"9985bed4-dad9-41a8-a4a0-bf515be7111c"], +Cell[1946485, 34565, 199193, 3283, 483, "Output",ExpressionUUID->"7ad32301-6347-4a43-8055-9158b827767a"] }, Open ]], Cell[CellGroupData[{ -Cell[2140841, 37785, 1018, 27, 24, "Input",ExpressionUUID->"95c3ad10-59a3-4496-bbd9-ec9966e153e1"], -Cell[2141862, 37814, 8989, 170, 163, "Output",ExpressionUUID->"a3028a35-bb3d-4af0-9cec-08135dfa52fc"] +Cell[2145715, 37853, 1018, 27, 54, "Input",ExpressionUUID->"95c3ad10-59a3-4496-bbd9-ec9966e153e1"], +Cell[2146736, 37882, 8989, 170, 219, "Output",ExpressionUUID->"a3028a35-bb3d-4af0-9cec-08135dfa52fc"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[2150900, 37990, 159, 3, 41, "Subsection",ExpressionUUID->"36c7685a-f47a-40aa-a737-8c7f6f4317c1"], -Cell[2151062, 37995, 1442, 34, 89, "Input",ExpressionUUID->"afc540ea-ef9a-493b-9583-ed901e3ac580"], -Cell[2152507, 38031, 1564, 39, 89, "Input",ExpressionUUID->"cdb9b75d-4c04-4ef5-9969-9e72079c5d58"], -Cell[2154074, 38072, 1782, 43, 105, "Input",ExpressionUUID->"e7739266-4bd1-4804-846a-5133bf45bfe6"], -Cell[2155859, 38117, 1935, 47, 105, "Input",ExpressionUUID->"e0c29aa2-30dd-4eb9-990b-b4abf8865eeb"], -Cell[2157797, 38166, 2113, 52, 105, "Input",ExpressionUUID->"80a3d021-bc5a-410c-8e70-089bc45d33bc"], -Cell[2159913, 38220, 2191, 55, 121, "Input",ExpressionUUID->"1d95a4fa-b7b4-4d6f-9695-22a28602846c"], -Cell[2162107, 38277, 2280, 55, 121, "Input",ExpressionUUID->"f3f292b7-6741-4c30-b2ac-b80cd82a3eaa"], -Cell[2164390, 38334, 2423, 60, 121, "Input",ExpressionUUID->"b6e4cc8e-edfb-44a9-a3e6-a4d9a234eb0c"], -Cell[2166816, 38396, 2451, 62, 137, "Input",ExpressionUUID->"2f0f517e-a884-4fb5-aa03-33b1e6e8e890"], -Cell[CellGroupData[{ -Cell[2169292, 38462, 1075, 26, 72, "Input",ExpressionUUID->"990c0156-b917-447b-8ea2-39f8d0d504d1"], -Cell[2170370, 38490, 498, 11, 22, "Message",ExpressionUUID->"69ee9008-fa6c-4744-a2bd-60ddf5a1bb01"], -Cell[2170871, 38503, 500, 11, 22, "Message",ExpressionUUID->"c7e61c4f-b7ba-492b-8830-f4e3d86baa49"], -Cell[2171374, 38516, 489, 8, 25, "Output",ExpressionUUID->"9bf62f5f-7a6f-4af7-bd94-6121ead0f3e4"] -}, Open ]] +Cell[2155774, 38058, 159, 3, 54, "Subsection",ExpressionUUID->"36c7685a-f47a-40aa-a737-8c7f6f4317c1"], +Cell[2155936, 38063, 1510, 34, 133, "Input",ExpressionUUID->"afc540ea-ef9a-493b-9583-ed901e3ac580"], +Cell[2157449, 38099, 1582, 38, 154, "Input",ExpressionUUID->"cdb9b75d-4c04-4ef5-9969-9e72079c5d58"], +Cell[2159034, 38139, 1804, 43, 174, "Input",ExpressionUUID->"e7739266-4bd1-4804-846a-5133bf45bfe6"], +Cell[2160841, 38184, 1954, 46, 174, "Input",ExpressionUUID->"e0c29aa2-30dd-4eb9-990b-b4abf8865eeb"], +Cell[2162798, 38232, 2132, 51, 195, "Input",ExpressionUUID->"80a3d021-bc5a-410c-8e70-089bc45d33bc"], +Cell[2164933, 38285, 2210, 54, 216, "Input",ExpressionUUID->"1d95a4fa-b7b4-4d6f-9695-22a28602846c"] }, Open ]] }, Open ]] } -- cgit v1.2.3-70-g09d2