summaryrefslogtreecommitdiff
path: root/caselle_compare.nb
diff options
context:
space:
mode:
Diffstat (limited to 'caselle_compare.nb')
-rw-r--r--caselle_compare.nb1395
1 files changed, 1227 insertions, 168 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 ]]
}
]