summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJaron Kent-Dobias <jaron@kent-dobias.com>2021-10-23 22:45:53 +0200
committerJaron Kent-Dobias <jaron@kent-dobias.com>2021-10-23 22:45:53 +0200
commit1a3d73906298b5a2aca3ea4c02f26b12cd6c5ba7 (patch)
tree673a7c1d541c475d05e58c248607d6a0c1d08132
parent3fe957b9dcd2123d76c4c87c78a6b1924d9d438a (diff)
downloadmma-1a3d73906298b5a2aca3ea4c02f26b12cd6c5ba7.tar.gz
mma-1a3d73906298b5a2aca3ea4c02f26b12cd6c5ba7.tar.bz2
mma-1a3d73906298b5a2aca3ea4c02f26b12cd6c5ba7.zip
Work.
-rw-r--r--caselle_compare.nb1395
-rw-r--r--new_schofield.nb1015
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 ]]
}