From 1a3d73906298b5a2aca3ea4c02f26b12cd6c5ba7 Mon Sep 17 00:00:00 2001 From: Jaron Kent-Dobias Date: Sat, 23 Oct 2021 22:45:53 +0200 Subject: Work. --- caselle_compare.nb | 1395 +++++++++++++++++++++++++++++++++++++++++++++------- 1 file changed, 1227 insertions(+), 168 deletions(-) (limited to 'caselle_compare.nb') 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 ]] } ] -- cgit v1.2.3-54-g00ecf