summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--new_schofield.nb3739
1 files changed, 2840 insertions, 899 deletions
diff --git a/new_schofield.nb b/new_schofield.nb
index 9533e8e..aba0d1a 100644
--- a/new_schofield.nb
+++ b/new_schofield.nb
@@ -10,14 +10,16 @@
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
-NotebookDataLength[ 7314330, 139230]
-NotebookOptionsPosition[ 7248935, 138198]
-NotebookOutlinePosition[ 7249334, 138214]
-CellTagsIndexPosition[ 7249291, 138211]
+NotebookDataLength[ 7396021, 141171]
+NotebookOptionsPosition[ 7324092, 140041]
+NotebookOutlinePosition[ 7324490, 140057]
+CellTagsIndexPosition[ 7324447, 140054]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
+
+Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Get", "[",
"\"\<~/doc/research/first_order_singularities/mma/schofield.wl\>\"",
@@ -28,7 +30,72 @@ Cell[BoxData[
3.827832304560932*^9, {3.8278486734515533`*^9, 3.827848673995721*^9}, {
3.8278488730224733`*^9, 3.827848876357965*^9}, {3.827916449928692*^9,
3.827916450999913*^9}},
- CellLabel->"In[1]:=",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"],
+ CellLabel->"In[28]:=",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "n", "shdw",
+ "\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"n\\\\\\\"\\\"}]\\) appears in \
+multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \
+RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\", \\\",\\\", \
+\\\"\\\\\\\"Global`\\\\\\\"\\\"}], \\\"}\\\"}]\\); definitions in context \\!\
+\\(\\*RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\"}]\\) may shadow or be \
+shadowed by other definitions.\"", 2, 28, 8, 31606171535410881259, "Local",
+ "Schofield`n"},
+ "MessageTemplate2"]], "Message", "MSG",
+ CellChangeTimes->{3.8366419561941137`*^9},
+ CellLabel->
+ "During evaluation of \
+In[28]:=",ExpressionUUID->"ffb9a6ec-ec3d-4941-bd89-17eb5385c36d"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "m", "shdw",
+ "\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"m\\\\\\\"\\\"}]\\) appears in \
+multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \
+RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\", \\\",\\\", \
+\\\"\\\\\\\"Global`\\\\\\\"\\\"}], \\\"}\\\"}]\\); definitions in context \\!\
+\\(\\*RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\"}]\\) may shadow or be \
+shadowed by other definitions.\"", 2, 28, 9, 31606171535410881259, "Local",
+ "Schofield`m"},
+ "MessageTemplate2"]], "Message", "MSG",
+ CellChangeTimes->{3.836641956238062*^9},
+ CellLabel->
+ "During evaluation of \
+In[28]:=",ExpressionUUID->"979f65c8-b1e5-4d3f-ace2-827cac13d035"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "p", "shdw",
+ "\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"p\\\\\\\"\\\"}]\\) appears in \
+multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \
+RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\", \\\",\\\", \
+\\\"\\\\\\\"Global`\\\\\\\"\\\"}], \\\"}\\\"}]\\); definitions in context \\!\
+\\(\\*RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\"}]\\) may shadow or be \
+shadowed by other definitions.\"", 2, 28, 10, 31606171535410881259, "Local",
+ "Schofield`p"},
+ "MessageTemplate2"]], "Message", "MSG",
+ CellChangeTimes->{3.8366419562467747`*^9},
+ CellLabel->
+ "During evaluation of \
+In[28]:=",ExpressionUUID->"2734e92b-23b9-42b7-8475-42b25b9d93af"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "x", "shdw",
+ "\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"x\\\\\\\"\\\"}]\\) appears in \
+multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \
+RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\", \\\",\\\", \
+\\\"\\\\\\\"Global`\\\\\\\"\\\"}], \\\"}\\\"}]\\); definitions in context \\!\
+\\(\\*RowBox[{\\\"\\\\\\\"Schofield`\\\\\\\"\\\"}]\\) may shadow or be \
+shadowed by other definitions.\"", 2, 28, 11, 31606171535410881259, "Local",
+ "Schofield`x"},
+ "MessageTemplate2"]], "Message", "MSG",
+ CellChangeTimes->{3.836641956278715*^9},
+ CellLabel->
+ "During evaluation of \
+In[28]:=",ExpressionUUID->"dab1b14a-ea29-4267-909b-57e759fcbb14"]
+}, Open ]],
Cell[BoxData[{
RowBox[{
@@ -43,7 +110,7 @@ Cell[BoxData[{
RowBox[{"untilSuccess", "[", "e", "]"}]}], "]"}], "]"}]}]}], "Input",
CellChangeTimes->{{3.829364059865052*^9, 3.829364117072966*^9}, {
3.82936416412193*^9, 3.829364169770522*^9}},
- CellLabel->"In[2]:=",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"],
+ CellLabel->"In[29]:=",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"],
Cell[CellGroupData[{
@@ -164,7 +231,7 @@ Cell[BoxData[{
3.831201343496719*^9, 3.831201345992399*^9}, {3.831201382497376*^9,
3.8312013843694277`*^9}, {3.831201839593772*^9, 3.831201840345537*^9}, {
3.836551505986561*^9, 3.836551553210888*^9}},
- CellLabel->"In[4]:=",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"],
+ CellLabel->"In[31]:=",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"],
Cell[CellGroupData[{
@@ -307,34 +374,34 @@ Cell[BoxData[
3.829384039371208*^9}, {3.83120122605519*^9, 3.831201283487536*^9}, {
3.8312013478177147`*^9, 3.831201347992716*^9}, {3.831201386770515*^9,
3.831201386889453*^9}, {3.836551529955161*^9, 3.836551558467079*^9}},
- CellLabel->"In[8]:=",ExpressionUUID->"3d566693-1b4e-4bc5-b33b-b8036e1e4822"],
+ CellLabel->"In[35]:=",ExpressionUUID->"3d566693-1b4e-4bc5-b33b-b8036e1e4822"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.1942649631945588`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.1980115286480422`"}], ",",
- RowBox[{"B", "\[Rule]", "8.552666400483156`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.194264963194598`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19801152864804267`"}], ",",
+ RowBox[{"B", "\[Rule]", "8.552666400479621`"}], ",",
RowBox[{
- RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.1942649631945588`"}], ",",
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.194264963194598`"}], ",",
RowBox[{"AL", "\[Rule]",
- RowBox[{"-", "0.09823515561342322`"}]}], ",",
+ RowBox[{"-", "0.09823515561339818`"}]}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.3836528485083814`"}]}], ",",
+ RowBox[{"-", "2.383652848508327`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.0766637996073836`"}], ",",
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.0766637996074007`"}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.0038100879768512`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.003810087976904`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.22823495175056338`"}]}],
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.22823495175058026`"}]}],
"}"}]], "Output",
CellChangeTimes->{{3.831201129036186*^9, 3.831201143759201*^9}, {
3.831201214369443*^9, 3.831201291851005*^9}, 3.8312013416815777`*^9, {
3.8312013813648233`*^9, 3.831201387260991*^9}, 3.8312018415787563`*^9,
3.832134235747699*^9, 3.83213451963468*^9, {3.836461610502349*^9,
3.836461634314517*^9}, 3.836551535373721*^9, 3.8365515859014997`*^9,
- 3.836551635453539*^9},
- CellLabel->"Out[8]=",ExpressionUUID->"a66d329d-b07e-4a9c-80ed-66407dac16b1"]
+ 3.836551635453539*^9, 3.8366278393694887`*^9, 3.836641958050981*^9},
+ CellLabel->"Out[35]=",ExpressionUUID->"e591c4da-30df-4167-ad7c-9ff82a54bf95"]
}, Open ]],
Cell[BoxData[{
@@ -428,7 +495,7 @@ Cell[BoxData[{
3.8293711438322983`*^9}, {3.8293839400973167`*^9, 3.829383946329383*^9}, {
3.831201408297876*^9, 3.831201409905801*^9}, {3.8312015346838837`*^9,
3.831201554868269*^9}, {3.836551622700054*^9, 3.836551650892652*^9}},
- CellLabel->"In[13]:=",ExpressionUUID->"34ec14f2-e69a-4233-afa7-8b9340ca265f"],
+ CellLabel->"In[36]:=",ExpressionUUID->"34ec14f2-e69a-4233-afa7-8b9340ca265f"],
Cell[CellGroupData[{
@@ -564,34 +631,35 @@ Cell[BoxData[
3.8312014148739243`*^9}, {3.8312015445811357`*^9, 3.831201544772146*^9}, {
3.836541609644332*^9, 3.83654161072397*^9}, {3.8365483271843863`*^9,
3.836548327319232*^9}, {3.8365516530294657`*^9, 3.836551662332802*^9}},
- CellLabel->"In[17]:=",ExpressionUUID->"3c891175-2642-465d-b121-e5989a86c957"],
+ CellLabel->"In[40]:=",ExpressionUUID->"3c891175-2642-465d-b121-e5989a86c957"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.1902176442707626`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19797673724688286`"}], ",",
- RowBox[{"B", "\[Rule]", "8.934974747525347`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.19021764427264`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19797673724689877`"}], ",",
+ RowBox[{"B", "\[Rule]", "8.93497474734203`"}], ",",
RowBox[{
- RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.1907835701421516`"}], ",",
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.190783570143742`"}], ",",
RowBox[{"AL", "\[Rule]",
- RowBox[{"-", "0.10022764362412924`"}]}], ",",
+ RowBox[{"-", "0.1002276436232273`"}]}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.3875963346444844`"}]}], ",",
+ RowBox[{"-", "2.387596334642737`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.073833486968952`"}], ",",
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.073833486970319`"}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.99663247695194`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.9966324769553545`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.22679429077380717`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.22679429077445895`"}], ",",
RowBox[{
- RowBox[{"gC", "[", "1", "]"}], "\[Rule]", "0.000377283914259455`"}]}],
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", "0.00037728391406782746`"}]}],
"}"}]], "Output",
CellChangeTimes->{{3.831201531251534*^9, 3.831201557909854*^9},
3.831201846598737*^9, 3.832134247863928*^9, 3.832134526984372*^9,
3.836461704327965*^9, 3.8365415922350397`*^9, 3.836541747183559*^9,
- 3.836548329685831*^9, 3.836551666454719*^9},
- CellLabel->"Out[17]=",ExpressionUUID->"1f98b048-405b-4d28-8696-6a7c69728b6f"]
+ 3.836548329685831*^9, 3.836551666454719*^9, 3.8366278490239697`*^9,
+ 3.836641958593976*^9},
+ CellLabel->"Out[40]=",ExpressionUUID->"aed730d9-0bb4-4e4b-8291-9cd30c7783fc"]
}, Open ]],
Cell[BoxData[{
@@ -688,7 +756,7 @@ Cell[BoxData[{
3.836547297788639*^9, 3.836547311684668*^9}, {3.836548378504426*^9,
3.8365483800242023`*^9}, {3.836548464833989*^9, 3.836548465929813*^9}, {
3.836551683949415*^9, 3.836551690629445*^9}},
- CellLabel->"In[19]:=",ExpressionUUID->"a96db868-d41f-433d-88d3-73a2b34157b2"],
+ CellLabel->"In[41]:=",ExpressionUUID->"a96db868-d41f-433d-88d3-73a2b34157b2"],
Cell[CellGroupData[{
@@ -828,34 +896,34 @@ Cell[BoxData[
3.8365427579611998`*^9}, {3.836543802716442*^9, 3.836543803500246*^9}, {
3.836547320637845*^9, 3.836547320828953*^9}, {3.836548384808692*^9,
3.8365483874163733`*^9}, {3.836551696134123*^9, 3.836551704557619*^9}},
- CellLabel->"In[23]:=",ExpressionUUID->"9e3392d7-9445-477b-9e57-3faef08acef1"],
+ CellLabel->"In[45]:=",ExpressionUUID->"9e3392d7-9445-477b-9e57-3faef08acef1"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.2495389024539103`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19827861326692298`"}], ",",
- RowBox[{"B", "\[Rule]", "4.9595103108522185`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.249538902458707`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19827861326695573`"}], ",",
+ RowBox[{"B", "\[Rule]", "4.95951031064608`"}], ",",
RowBox[{
- RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2259004429203317`"}], ",",
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.225900442923851`"}], ",",
RowBox[{"AL", "\[Rule]",
- RowBox[{"-", "0.0720103918361309`"}]}], ",",
+ RowBox[{"-", "0.0720103918340228`"}]}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.375181897894451`"}]}], ",",
+ RowBox[{"-", "2.375181897891256`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.1437454712894712`"}], ",",
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.143745471293828`"}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.147533831895226`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.147533831905463`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.24042085529732105`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.24042085529889595`"}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.01322079366177143`"}]}], ",",
+ RowBox[{"-", "0.013220793662540907`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.0016801514391846174`"}], ",",
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.0016801514392473366`"}], ",",
RowBox[{
RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.00030033604226291583`"}]}]}], "}"}]], "Output",
+ RowBox[{"-", "0.00030033604226560617`"}]}]}], "}"}]], "Output",
CellChangeTimes->{
3.831201605199861*^9, 3.831201825134141*^9, {3.8312018720267353`*^9,
3.831201915036397*^9}, 3.832134253764925*^9, 3.832134528590658*^9,
@@ -864,8 +932,8 @@ Cell[BoxData[
3.836542433842104*^9, 3.83654273793337*^9, 3.836543757004737*^9,
3.836547292068849*^9, 3.836547323705811*^9, {3.8365483617910433`*^9,
3.836548382646338*^9}, {3.8365484624351997`*^9, 3.8365484857536917`*^9},
- 3.836551718967617*^9},
- CellLabel->"Out[23]=",ExpressionUUID->"0d518e77-0515-4359-bf5b-6f3ca82dad6d"]
+ 3.836551718967617*^9, 3.836627850466782*^9, 3.836641959696512*^9},
+ CellLabel->"Out[45]=",ExpressionUUID->"44adf063-803d-493e-bd94-a80cfabbd49c"]
}, Open ]],
Cell[BoxData[{
@@ -957,7 +1025,7 @@ Cell[BoxData[{
3.829648818617029*^9}, {3.831201638213859*^9, 3.8312016394697657`*^9}, {
3.831201738631875*^9, 3.831201753039893*^9}, {3.831201880722458*^9,
3.831201884058301*^9}, {3.836551724782157*^9, 3.836551733206129*^9}},
- CellLabel->"In[24]:=",ExpressionUUID->"fb46f7c2-5761-4a64-9a5f-872dd3265e1c"],
+ CellLabel->"In[46]:=",ExpressionUUID->"fb46f7c2-5761-4a64-9a5f-872dd3265e1c"],
Cell[CellGroupData[{
@@ -1091,44 +1159,46 @@ Cell[BoxData[
3.829364145457487*^9}, {3.829368362486923*^9, 3.829368363222292*^9}, {
3.829369220374155*^9, 3.829369223973774*^9}, {3.829371464766535*^9,
3.829371470590396*^9}, {3.836551739143166*^9, 3.8365517443340893`*^9}},
- CellLabel->"In[28]:=",ExpressionUUID->"3d7346aa-9d8e-46fd-bcb4-ca52fff0d32a"],
+ CellLabel->"In[50]:=",ExpressionUUID->"3d7346aa-9d8e-46fd-bcb4-ca52fff0d32a"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.2218378624912802`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19770991690754228`"}], ",",
- RowBox[{"B", "\[Rule]", "6.2099231994425805`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.2218378625041957`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19770991690761563`"}], ",",
+ RowBox[{"B", "\[Rule]", "6.209923198659124`"}], ",",
RowBox[{
- RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.181829484249947`"}], ",",
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.181829484257664`"}], ",",
RowBox[{"AL", "\[Rule]",
- RowBox[{"-", "0.08097254493427336`"}]}], ",",
+ RowBox[{"-", "0.0809725449278784`"}]}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.4609357103878944`"}]}], ",",
+ RowBox[{"-", "2.4609357103829743`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.1600336631352017`"}], ",",
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.160033663149908`"}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.153972292251987`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.1539722922840965`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.21887483621430953`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.21887483621729714`"}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.01985517673960014`"}]}], ",",
+ RowBox[{"-", "0.019855176742432215`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.0037244523495110825`"}], ",",
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.0037244523498903993`"}], ",",
RowBox[{
RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.0011191450015156762`"}]}], ",",
+ RowBox[{"-", "0.0011191450015954547`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0002590259844583311`"}], ",",
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.00025902598448235124`"}],
+ ",",
RowBox[{
RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.00005788205332181174`"}]}]}], "}"}]], "Output",
+ RowBox[{"-", "0.00005788205332381038`"}]}]}], "}"}]], "Output",
CellChangeTimes->{3.831201716508473*^9, 3.831201757459434*^9,
3.831201885848399*^9, 3.831201919660265*^9, 3.8321342586069803`*^9,
3.832134529718623*^9, 3.836461706967909*^9, 3.836548309747836*^9,
- 3.83654852766206*^9, 3.836551744940041*^9},
- CellLabel->"Out[28]=",ExpressionUUID->"f4e7d53d-d7f9-4efc-bfc8-63b06ee8b596"]
+ 3.83654852766206*^9, 3.836551744940041*^9, 3.836627857765971*^9,
+ 3.836641960128175*^9},
+ CellLabel->"Out[50]=",ExpressionUUID->"eb22c215-44cb-465a-b5d9-6843b5e6dae3"]
}, Open ]],
Cell[BoxData[{
@@ -1220,7 +1290,7 @@ Cell[BoxData[{
3.829643828942643*^9}, {3.829648642837838*^9, 3.829648643965818*^9}, {
3.829648676430758*^9, 3.829648699150793*^9}, {3.829648754664152*^9,
3.82964875577597*^9}, {3.836551755446805*^9, 3.83655176359875*^9}},
- CellLabel->"In[29]:=",ExpressionUUID->"1a9cafff-78bf-40d5-9387-97742820a6dc"],
+ CellLabel->"In[51]:=",ExpressionUUID->"1a9cafff-78bf-40d5-9387-97742820a6dc"],
Cell[CellGroupData[{
@@ -1361,52 +1431,50 @@ Cell[BoxData[
3.8293701333579397`*^9}, {3.829370371971438*^9, 3.8293703727303963`*^9}, {
3.829371509215295*^9, 3.829371512599156*^9}, {3.8293715961214314`*^9,
3.8293715962806873`*^9}, {3.8365517663351803`*^9, 3.836551772990828*^9}},
- CellLabel->"In[33]:=",ExpressionUUID->"7bdef841-d628-418c-9bec-b16ca8655e30"],
+ CellLabel->"In[55]:=",ExpressionUUID->"7bdef841-d628-418c-9bec-b16ca8655e30"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.2741917541119578`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.1978618667688545`"}], ",",
- RowBox[{"B", "\[Rule]", "3.8675219799511757`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.2741917541428833`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.1978618667690022`"}], ",",
+ RowBox[{"B", "\[Rule]", "3.867521978971641`"}], ",",
RowBox[{
- RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2057824941085524`"}], ",",
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2057824941248545`"}], ",",
RowBox[{"AL", "\[Rule]",
- RowBox[{"-", "0.056165676507924145`"}]}], ",",
+ RowBox[{"-", "0.05616567649475025`"}]}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.456955811046171`"}]}], ",",
+ RowBox[{"-", "2.4569558110363947`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.231086167452684`"}], ",",
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.2310861674907068`"}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.303136230975556`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.3031362310579344`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.22813788418291794`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.22813788419015776`"}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.03461701515005125`"}]}], ",",
+ RowBox[{"-", "0.03461701515788024`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.005894187950418956`"}], ",",
-
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.00589418795150662`"}], ",",
RowBox[{
RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.001688169426150233`"}]}], ",",
+ RowBox[{"-", "0.0016881694264065889`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.000492003546134832`"}], ",",
-
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0004920035462186394`"}], ",",
RowBox[{
RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.00015007393034294791`"}]}], ",",
+ RowBox[{"-", "0.0001500739303640235`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00003506513916601493`"}],
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00003506513917156527`"}],
",",
RowBox[{
RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
- RowBox[{"-", "6.1700418155259735`*^-6"}]}]}], "}"}]], "Output",
+ RowBox[{"-", "6.170041815565743`*^-6"}]}]}], "}"}]], "Output",
CellChangeTimes->{
3.8312017937516117`*^9, 3.831201924167*^9, {3.8321345162760487`*^9,
3.832134531636681*^9}, 3.836461714054542*^9, 3.836548541889091*^9,
- 3.836551773690089*^9},
- CellLabel->"Out[33]=",ExpressionUUID->"5487efc5-c1bc-4f55-a6a6-5bf85d6b9983"]
+ 3.836551773690089*^9, 3.8366280622440977`*^9, 3.8366419632742167`*^9},
+ CellLabel->"Out[55]=",ExpressionUUID->"f766d79f-43b9-4839-8f53-169b04411bd6"]
}, Open ]],
Cell[BoxData[{
@@ -1506,7 +1574,7 @@ Cell[BoxData[{
3.8312019323632183`*^9}, {3.831201994316557*^9, 3.8312020039804773`*^9}, {
3.832134539757575*^9, 3.832134540628755*^9}, {3.832134624878316*^9,
3.8321346257503223`*^9}, {3.8365517810471973`*^9, 3.83655178936734*^9}},
- CellLabel->"In[34]:=",ExpressionUUID->"53343c2f-4579-48fe-afdc-6555d61fefc7"],
+ CellLabel->"In[56]:=",ExpressionUUID->"53343c2f-4579-48fe-afdc-6555d61fefc7"],
Cell[CellGroupData[{
@@ -1654,55 +1722,55 @@ Cell[BoxData[
3.829643862599914*^9}, {3.829643945249604*^9, 3.829643945408759*^9}, {
3.829648845266128*^9, 3.8296488464014387`*^9}, {3.8365517923915787`*^9,
3.8365517993274193`*^9}},
- CellLabel->"In[38]:=",ExpressionUUID->"19f0837b-60bb-491b-b21f-34926c9efae8"],
+ CellLabel->"In[60]:=",ExpressionUUID->"19f0837b-60bb-491b-b21f-34926c9efae8"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.2801585259353785`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19767451325932112`"}], ",",
- RowBox[{"B", "\[Rule]", "3.64119299677981`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.2801585259296877`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19767451325930022`"}], ",",
+ RowBox[{"B", "\[Rule]", "3.6411929969480465`"}], ",",
RowBox[{
- RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.1987758312958015`"}], ",",
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.1987758312932089`"}], ",",
RowBox[{"AL", "\[Rule]",
- RowBox[{"-", "0.053031930675785696`"}]}], ",",
+ RowBox[{"-", "0.053031930678152046`"}]}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.4797147825962047`"}]}], ",",
+ RowBox[{"-", "2.479714782597324`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.2549622630449222`"}], ",",
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.2549622630373123`"}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.3453779951007085`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.345377995084542`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.22416723180010584`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2241672317989653`"}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.04059479385099676`"}]}], ",",
+ RowBox[{"-", "0.040594793849381985`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.007036251268075865`"}], ",",
-
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.0070362512678364166`"}], ",",
RowBox[{
RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.0020678418013642215`"}]}], ",",
+ RowBox[{"-", "0.0020678418013032186`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0006698800465194425`"}], ",",
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0006698800464974037`"}], ",",
RowBox[{
RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0002557658086419729`"}]}], ",",
+ RowBox[{"-", "0.0002557658086338352`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00009654367545819735`"}],
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00009654367545455755`"}],
",",
RowBox[{
RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
- RowBox[{"-", "0.00003539802658295795`"}]}], ",",
+ RowBox[{"-", "0.000035398026581532164`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "9.782411561142183`*^-6"}], ",",
+ RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "9.782411560567002`*^-6"}], ",",
RowBox[{
RowBox[{"gC", "[", "9", "]"}], "\[Rule]",
- RowBox[{"-", "1.765670141782779`*^-6"}]}]}], "}"}]], "Output",
+ RowBox[{"-", "1.7656701416931655`*^-6"}]}]}], "}"}]], "Output",
CellChangeTimes->{{3.831201988901425*^9, 3.831202006900687*^9},
3.8321345381557093`*^9, {3.832134623087185*^9, 3.832134627409769*^9},
- 3.8364617172459593`*^9, 3.836548545773923*^9, 3.8365518005207033`*^9},
- CellLabel->"Out[38]=",ExpressionUUID->"5e3fc4c1-1515-4605-ab18-61f787b0ba43"]
+ 3.8364617172459593`*^9, 3.836548545773923*^9, 3.8365518005207033`*^9,
+ 3.836628064415105*^9, 3.836641965754052*^9},
+ CellLabel->"Out[60]=",ExpressionUUID->"a73552f9-985d-4a3e-b34d-901410d7f020"]
}, Open ]],
Cell[BoxData[{
@@ -1799,7 +1867,7 @@ Cell[BoxData[{
3.829643978865274*^9, 3.829643998241597*^9}, {3.831202016092956*^9,
3.831202020908887*^9}, {3.831202087358178*^9, 3.831202089430101*^9}, {
3.8365518096717367`*^9, 3.836551818223672*^9}},
- CellLabel->"In[39]:=",ExpressionUUID->"3c48ca79-1fa5-4b7f-9423-94e659aae362"],
+ CellLabel->"In[61]:=",ExpressionUUID->"3c48ca79-1fa5-4b7f-9423-94e659aae362"],
Cell[CellGroupData[{
@@ -1947,61 +2015,60 @@ Cell[BoxData[
3.82938522271249*^9}, {3.829643741997409*^9, 3.829643742165058*^9}, {
3.82964398095397*^9, 3.829643982521298*^9}, {3.836551829288272*^9,
3.8365518356802464`*^9}},
- CellLabel->"In[43]:=",ExpressionUUID->"c0c5581e-24f4-4c1d-bac2-acde9933d21a"],
+ CellLabel->"In[65]:=",ExpressionUUID->"c0c5581e-24f4-4c1d-bac2-acde9933d21a"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.319269127489968`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19778142010600602`"}], ",",
- RowBox[{"B", "\[Rule]", "2.6900781682541384`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3192691275035189`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19778142010605076`"}], ",",
+ RowBox[{"B", "\[Rule]", "2.6900781679872567`"}], ",",
RowBox[{
- RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2143932727273945`"}], ",",
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2143932727329336`"}], ",",
RowBox[{"AL", "\[Rule]",
- RowBox[{"-", "0.037742412424963845`"}]}], ",",
+ RowBox[{"-", "0.03774241242010699`"}]}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.4754042748724827`"}]}], ",",
+ RowBox[{"-", "2.4754042748700553`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.3104396554389632`"}], ",",
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.3104396554578523`"}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.462090523547035`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.4620905235871353`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2314723663998248`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.23147236640265403`"}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.05273064980250169`"}]}], ",",
+ RowBox[{"-", "0.052730649806663685`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.00888372709318936`"}], ",",
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.00888372709380703`"}], ",",
RowBox[{
RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.0025537341419771455`"}]}], ",",
+ RowBox[{"-", "0.00255373414213954`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0008399537026667468`"}], ",",
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0008399537027251806`"}], ",",
RowBox[{
RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.00031536444719557435`"}]}], ",",
+ RowBox[{"-", "0.00031536444721797055`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00012430243275863897`"}],
- ",",
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.0001243024327687457`"}], ",",
RowBox[{
RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
- RowBox[{"-", "0.00005062261198716948`"}]}], ",",
+ RowBox[{"-", "0.00005062261199145334`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.00001909677218469098`"}],
+ RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.000019096772186412145`"}],
",",
RowBox[{
RowBox[{"gC", "[", "9", "]"}], "\[Rule]",
- RowBox[{"-", "6.254344836269325`*^-6"}]}], ",",
+ RowBox[{"-", "6.254344836788496`*^-6"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "10", "]"}], "\[Rule]", "1.512785688880276`*^-6"}],
+ RowBox[{"gC", "[", "10", "]"}], "\[Rule]", "1.5127856889799111`*^-6"}],
",",
RowBox[{
RowBox[{"gC", "[", "11", "]"}], "\[Rule]",
- RowBox[{"-", "2.170527189110124`*^-7"}]}]}], "}"}]], "Output",
+ RowBox[{"-", "2.1705271890837908`*^-7"}]}]}], "}"}]], "Output",
CellChangeTimes->{{3.831202081594729*^9, 3.831202094542676*^9},
3.832134636481895*^9, 3.836461944127491*^9, 3.836548559754167*^9,
- 3.8365519103492603`*^9},
- CellLabel->"Out[43]=",ExpressionUUID->"8a131f82-6585-45e6-a3ee-a7002d78d636"]
+ 3.8365519103492603`*^9, 3.836628078304961*^9, 3.8366419697287188`*^9},
+ CellLabel->"Out[65]=",ExpressionUUID->"0c0c725c-b00d-4ed1-888a-0d253d431aa3"]
}, Open ]],
Cell[BoxData[{
@@ -2107,7 +2174,7 @@ Cell[BoxData[{
3.829648869537936*^9}, 3.831199159121114*^9, {3.83120210459053*^9,
3.8312021062144413`*^9}, {3.8365518491682673`*^9, 3.8365518628964357`*^9}},
- CellLabel->"In[44]:=",ExpressionUUID->"89ac8434-0e5c-4a82-ae51-65e191e4c98a"],
+ CellLabel->"In[66]:=",ExpressionUUID->"89ac8434-0e5c-4a82-ae51-65e191e4c98a"],
Cell[CellGroupData[{
@@ -2255,67 +2322,68 @@ Cell[BoxData[
3.82938522271249*^9}, {3.829385271354004*^9, 3.829385291377541*^9}, {
3.829385365115407*^9, 3.82938536726711*^9}, {3.8365518671687593`*^9,
3.8365518743845997`*^9}},
- CellLabel->"In[48]:=",ExpressionUUID->"a4de7394-b723-4a62-9094-2b462110711f"],
+ CellLabel->"In[70]:=",ExpressionUUID->"a4de7394-b723-4a62-9094-2b462110711f"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.3261202512767336`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.1977794703317581`"}], ",",
- RowBox[{"B", "\[Rule]", "2.556205195120293`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3261202519832986`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.1977794703339781`"}], ",",
+ RowBox[{"B", "\[Rule]", "2.5562051821003196`"}], ",",
RowBox[{
- RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2160528979728025`"}], ",",
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2160528982512586`"}], ",",
RowBox[{"AL", "\[Rule]",
- RowBox[{"-", "0.03534430465873497`"}]}], ",",
+ RowBox[{"-", "0.035344304415231835`"}]}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.47665745414332`"}]}], ",",
+ RowBox[{"-", "2.476657454026323`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.3217942075786389`"}], ",",
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.3217942085777021`"}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.485270054948872`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.485270057066215`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.23231668347405446`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2323166836203588`"}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.05534263607599963`"}]}], ",",
+ RowBox[{"-", "0.055342636297917115`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.009311225711727166`"}], ",",
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.009311225744833364`"}], ",",
RowBox[{
RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.0026766038377406907`"}]}], ",",
+ RowBox[{"-", "0.0026766038465529415`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0008832877096223463`"}], ",",
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0008832877127735595`"}], ",",
RowBox[{
RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.00033006310668871164`"}]}], ",",
+ RowBox[{"-", "0.0003300631078866147`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00012996140024594552`"}],
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00012996140077780008`"}],
",",
RowBox[{
RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
- RowBox[{"-", "0.00005404256432953275`"}]}], ",",
+ RowBox[{"-", "0.000054042564563757115`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.000022256502763419643`"}],
+ RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.00002225650287055585`"}],
",",
RowBox[{
RowBox[{"gC", "[", "9", "]"}], "\[Rule]",
- RowBox[{"-", "8.845709070523975`*^-6"}]}], ",",
+ RowBox[{"-", "8.845709114086079`*^-6"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "10", "]"}], "\[Rule]", "3.1297602383555028`*^-6"}],
+ RowBox[{"gC", "[", "10", "]"}], "\[Rule]", "3.129760254053463`*^-6"}],
",",
RowBox[{
RowBox[{"gC", "[", "11", "]"}], "\[Rule]",
- RowBox[{"-", "9.376551741470281`*^-7"}]}], ",",
+ RowBox[{"-", "9.376551783347458`*^-7"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "12", "]"}], "\[Rule]", "2.0808980792531297`*^-7"}],
+ RowBox[{"gC", "[", "12", "]"}], "\[Rule]", "2.080898086762766`*^-7"}],
",",
RowBox[{
RowBox[{"gC", "[", "13", "]"}], "\[Rule]",
- RowBox[{"-", "2.8397753605882897`*^-8"}]}]}], "}"}]], "Output",
+ RowBox[{"-", "2.8397753590950444`*^-8"}]}]}], "}"}]], "Output",
CellChangeTimes->{3.831202123310391*^9, 3.8321346617416067`*^9,
- 3.83646211214913*^9, 3.8365491084000053`*^9, 3.836552132413816*^9},
- CellLabel->"Out[48]=",ExpressionUUID->"55293ed6-3746-4cdc-9141-bf781152849d"]
+ 3.83646211214913*^9, 3.8365491084000053`*^9, 3.836552132413816*^9,
+ 3.8366280952241697`*^9, 3.836642112905139*^9},
+ CellLabel->"Out[70]=",ExpressionUUID->"f986d70a-cf8a-494e-8e27-35ee7fd94c17"]
}, Open ]],
Cell[BoxData[{
@@ -2436,7 +2504,7 @@ Cell[BoxData[{
3.836549993046207*^9, 3.836549994430087*^9}, {3.836551083050147*^9,
3.8365510936984663`*^9}, {3.8365521132770987`*^9, 3.8365521291493187`*^9}},
- CellLabel->"In[49]:=",ExpressionUUID->"ec5df7b8-ae45-47d9-baba-654f2daf3d01"],
+ CellLabel->"In[71]:=",ExpressionUUID->"ec5df7b8-ae45-47d9-baba-654f2daf3d01"],
Cell[CellGroupData[{
@@ -2587,70 +2655,69 @@ Cell[BoxData[
3.829644240758093*^9}, {3.8296444601784697`*^9, 3.829644463210084*^9}, {
3.829646082799699*^9, 3.829646083207511*^9}, {3.8298156493609324`*^9,
3.829815650096599*^9}, {3.836552132709568*^9, 3.836552143949634*^9}},
- CellLabel->"In[53]:=",ExpressionUUID->"c28fec6d-42be-4754-8ff5-9f7327a42e34"],
+ CellLabel->"In[75]:=",ExpressionUUID->"c28fec6d-42be-4754-8ff5-9f7327a42e34"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"\[Theta]c", "\[Rule]", "1.3334703412536566`"}], ",",
- RowBox[{"\[Theta]0", "\[Rule]", "0.19778787932056896`"}], ",",
- RowBox[{"B", "\[Rule]", "2.423508930724686`"}], ",",
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3334703525280953`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19778787935116057`"}], ",",
+ RowBox[{"B", "\[Rule]", "2.4235087365229533`"}], ",",
RowBox[{
- RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2182536469166905`"}], ",",
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.218253651057867`"}], ",",
RowBox[{"AL", "\[Rule]",
- RowBox[{"-", "0.032849858698944676`"}]}], ",",
+ RowBox[{"-", "0.03284985506970219`"}]}], ",",
RowBox[{"AH", "\[Rule]",
- RowBox[{"-", "2.476902848020555`"}]}], ",",
+ RowBox[{"-", "2.4769028465994536`"}]}], ",",
RowBox[{
- RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.3332747682033883`"}], ",",
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.3332747845943111`"}], ",",
RowBox[{
- RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.5090565130203157`"}], ",",
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.5090565475955464`"}], ",",
RowBox[{
- RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.23349249078258508`"}], ",",
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.23349249303364117`"}], ",",
RowBox[{
RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
- RowBox[{"-", "0.05795919615164437`"}]}], ",",
+ RowBox[{"-", "0.057959199832259715`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.009724404457489885`"}], ",",
-
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.00972440501261792`"}], ",",
RowBox[{
RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
- RowBox[{"-", "0.0027930254001640054`"}]}], ",",
+ RowBox[{"-", "0.0027930255510670615`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0009257841098320665`"}], ",",
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0009257841638784765`"}], ",",
RowBox[{
RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0003462096131004199`"}]}], ",",
+ RowBox[{"-", "0.00034620963377731426`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00013670744619527473`"}],
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00013670745520543857`"}],
",",
RowBox[{
RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
- RowBox[{"-", "0.000057088418113155406`"}]}], ",",
+ RowBox[{"-", "0.000057088422126665`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.000024064383846786254`"}],
+ RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.000024064385812153366`"}],
",",
RowBox[{
RowBox[{"gC", "[", "9", "]"}], "\[Rule]",
- RowBox[{"-", "0.000010116684104855923`"}]}], ",",
+ RowBox[{"-", "0.000010116685085061583`"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "10", "]"}], "\[Rule]", "4.024896321935335`*^-6"}],
+ RowBox[{"gC", "[", "10", "]"}], "\[Rule]", "4.024896822388197`*^-6"}],
",",
RowBox[{
RowBox[{"gC", "[", "11", "]"}], "\[Rule]",
- RowBox[{"-", "1.4759300475764031`*^-6"}]}], ",",
+ RowBox[{"-", "1.4759302841546342`*^-6"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "12", "]"}], "\[Rule]", "4.686996899926149`*^-7"}],
+ RowBox[{"gC", "[", "12", "]"}], "\[Rule]", "4.686997891981291`*^-7"}],
",",
RowBox[{
RowBox[{"gC", "[", "13", "]"}], "\[Rule]",
- RowBox[{"-", "1.2362968704699286`*^-7"}]}], ",",
+ RowBox[{"-", "1.236297202060465`*^-7"}]}], ",",
RowBox[{
- RowBox[{"gC", "[", "14", "]"}], "\[Rule]", "2.395277120268058`*^-8"}],
+ RowBox[{"gC", "[", "14", "]"}], "\[Rule]", "2.3952779518055828`*^-8"}],
",",
RowBox[{
RowBox[{"gC", "[", "15", "]"}], "\[Rule]",
- RowBox[{"-", "2.99666705183393`*^-9"}]}]}], "}"}]], "Output",
+ RowBox[{"-", "2.9966680855911543`*^-9"}]}]}], "}"}]], "Output",
CellChangeTimes->{{3.8311995424455757`*^9, 3.831199553529447*^9},
3.831200362792859*^9, 3.831200880667942*^9, 3.831201026392571*^9,
3.831202242407707*^9, 3.831202300128024*^9, 3.831202508213522*^9,
@@ -2662,8 +2729,8 @@ Cell[BoxData[
3.832140280934704*^9, 3.83214061039707*^9, 3.8321408787907057`*^9,
3.832140955111147*^9, 3.836463764893345*^9, {3.836549990658434*^9,
3.836550010386017*^9}, 3.836551081196916*^9, 3.836551140083819*^9,
- 3.836552438546359*^9},
- CellLabel->"Out[53]=",ExpressionUUID->"89bd6d58-3f62-48a4-a912-95f1fb46c5c6"]
+ 3.836552438546359*^9, 3.836628180385372*^9, 3.8366422299199944`*^9},
+ CellLabel->"Out[75]=",ExpressionUUID->"473be133-dba8-4a06-89f3-683e3ff6bae5"]
}, Open ]],
Cell[CellGroupData[{
@@ -2837,7 +2904,7 @@ Cell[BoxData[{
3.832143357708064*^9}, {3.8321511485366383`*^9, 3.8321511534805107`*^9}, {
3.8321526435554333`*^9, 3.832152648171343*^9}, {3.8364638005210867`*^9,
3.836463805449026*^9}, {3.836552693968128*^9, 3.836552704616152*^9}},
- CellLabel->"In[56]:=",ExpressionUUID->"454bbf34-d098-476d-8e27-8e882ae07c56"],
+ CellLabel->"In[49]:=",ExpressionUUID->"454bbf34-d098-476d-8e27-8e882ae07c56"],
Cell[CellGroupData[{
@@ -2854,7 +2921,7 @@ Cell[BoxData[
RowBox[{"gC", "[", "17", "]"}]}], "}"}], ",",
SuperscriptBox["10",
RowBox[{"-", "9"}]], ",", "0", ",",
- RowBox[{"AccuracyGoal", "->", "6"}]}], "]"}]}]], "Input",
+ RowBox[{"AccuracyGoal", "->", "8"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9,
3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, {
@@ -3009,9 +3076,9 @@ Cell[BoxData[
3.836554964666891*^9, {3.836557799430297*^9, 3.8365577999973097`*^9}, {
3.8365587259113207`*^9, 3.8365587268544817`*^9}, {3.836558765736781*^9,
3.836558770247231*^9}, {3.8365590843498583`*^9, 3.836559084453038*^9},
- 3.836562342585807*^9, 3.8365632938672028`*^9},
- CellLabel->
- "In[121]:=",ExpressionUUID->"fdda266d-54c1-43db-b6a7-a3d02502cd24"],
+ 3.836562342585807*^9, 3.8365632938672028`*^9, {3.8366329506975594`*^9,
+ 3.836632951048585*^9}},
+ CellLabel->"In[54]:=",ExpressionUUID->"fdda266d-54c1-43db-b6a7-a3d02502cd24"],
Cell[BoxData["$Aborted"], "Output",
CellChangeTimes->{
@@ -3031,9 +3098,8 @@ Cell[BoxData["$Aborted"], "Output",
3.836555283804468*^9, 3.836555331862823*^9, 3.836555550723526*^9,
3.836555847122801*^9, 3.836557848932454*^9, 3.836558762296151*^9,
3.836558970151669*^9, 3.8365618879491463`*^9, 3.83656234055987*^9,
- 3.8365632852810802`*^9},
- CellLabel->
- "Out[120]=",ExpressionUUID->"25d4a63b-2f7e-4e89-8c7c-59519f293789"]
+ 3.8365632852810802`*^9, 3.836631218958077*^9, 3.83663496297894*^9},
+ CellLabel->"Out[54]=",ExpressionUUID->"1a109f12-5aa4-4b64-bdce-ccd0a424430a"]
}, Open ]],
Cell[CellGroupData[{
@@ -3360,6 +3426,1657 @@ Cell[BoxData[
CellChangeTimes->{{3.830923722614214*^9, 3.830923726118482*^9}},
CellLabel->"In[4]:=",ExpressionUUID->"175e0083-a3b3-4f2c-9b8a-2f5df2c20dec"],
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"test6", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"1", "/", "#"}], ",",
+ RowBox[{"Abs", "[",
+ FractionBox[
+ RowBox[{"SeriesCoefficient", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"hf", "[", "6", "]"}], "[", "\[Theta]", "]"}], "/",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ RowBox[{
+ SuperscriptBox["\[Theta]", "2"], "/",
+ SuperscriptBox["\[Theta]c", "2"]}]}], ")"}]}], "/.",
+ RowBox[{"sol", "[", "6", "]"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"\[Theta]", ",", "0", ",",
+ RowBox[{
+ RowBox[{"2", "#"}], "-", "1"}]}], "}"}]}], "]"}],
+ RowBox[{"SeriesCoefficient", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"hf", "[", "6", "]"}], "[", "\[Theta]", "]"}], "/",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ RowBox[{
+ SuperscriptBox["\[Theta]", "2"], "/",
+ SuperscriptBox["\[Theta]c", "2"]}]}], ")"}]}], "/.",
+ RowBox[{"sol", "[", "6", "]"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"\[Theta]", ",", "0", ",",
+ RowBox[{
+ RowBox[{"2", "#"}], "-", "3"}]}], "}"}]}], "]"}]], "]"}]}],
+ "}"}], "&"}], "/@",
+ RowBox[{"Range", "[",
+ RowBox[{"1", ",", "15"}], "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.836636559320854*^9, 3.836636572032755*^9}, {
+ 3.8366453976052713`*^9, 3.8366454176716537`*^9}},
+ CellLabel->
+ "In[144]:=",ExpressionUUID->"839a2ad6-30ff-49ba-b7d3-364be7258ce7"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "Power", "infy",
+ "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
+encountered.\"", 2, 144, 25, 31606171535410881259, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.836636584256465*^9, 3.8366454180422363`*^9},
+ CellLabel->
+ "During evaluation of \
+In[144]:=",ExpressionUUID->"e9b52282-bc25-42d0-bce8-f4e0bd6be609"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "Power", "infy",
+ "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
+encountered.\"", 2, 144, 26, 31606171535410881259, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.836636584256465*^9, 3.836645418551742*^9},
+ CellLabel->
+ "During evaluation of \
+In[144]:=",ExpressionUUID->"319acb10-d2ee-4d9e-b4f7-e45dd6ba0d84"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "Infinity", "indet",
+ "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
+\\\"ComplexInfinity\\\"}]\\) encountered.\"", 2, 144, 27,
+ 31606171535410881259, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.836636584256465*^9, 3.836645418557323*^9},
+ CellLabel->
+ "During evaluation of \
+In[144]:=",ExpressionUUID->"b6598746-1928-450a-a83d-e5ae6b616a55"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "Power", "infy",
+ "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
+encountered.\"", 2, 144, 28, 31606171535410881259, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.836636584256465*^9, 3.836645418597549*^9},
+ CellLabel->
+ "During evaluation of \
+In[144]:=",ExpressionUUID->"6589ea8c-6d4b-4f6d-847a-e0a99f980d84"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "stop",
+ "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
+\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
+calculation.\"", 2, 144, 29, 31606171535410881259, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.836636584256465*^9, 3.8366454186029654`*^9},
+ CellLabel->
+ "During evaluation of \
+In[144]:=",ExpressionUUID->"aa668a21-55be-4d4d-ae5b-d7885a160f1f"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "Infinity", "indet",
+ "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
+\\\"ComplexInfinity\\\"}]\\) encountered.\"", 2, 144, 30,
+ 31606171535410881259, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.836636584256465*^9, 3.8366454186086397`*^9},
+ CellLabel->
+ "During evaluation of \
+In[144]:=",ExpressionUUID->"299d302e-d905-4687-9052-12756d55f8e4"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "\[Infinity]"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "2"], ",", "0.1441630762681037`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "3"], ",", "1.1445927481503444`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "4"], ",", "1.61453040367424`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "5"], ",", "1.4422666133288584`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "6"], ",", "1.1300632312407177`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "7"], ",", "0.8435551649312958`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "8"], ",", "0.6122522607754938`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "9"], ",", "0.4300965134091653`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "10"], ",", "0.28608650163836874`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "11"], ",", "0.17080477904939873`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "12"], ",", "0.0771758159377093`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "13"], ",", "0.`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "14"], ",", "Indeterminate"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "15"], ",", "Indeterminate"}], "}"}]}], "}"}]], "Output",\
+
+ CellChangeTimes->{3.8366365847939987`*^9, 3.836645418614196*^9},
+ CellLabel->
+ "Out[144]=",ExpressionUUID->"d315a64a-5ce6-4e10-a8fc-fe8f2dda816f"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"test7", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"1", "/", "#"}], ",",
+ RowBox[{"Abs", "[",
+ FractionBox[
+ RowBox[{"SeriesCoefficient", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"hf", "[", "7", "]"}], "[", "\[Theta]", "]"}], "/.",
+ RowBox[{"sol", "[", "7", "]"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"\[Theta]", ",", "0", ",",
+ RowBox[{
+ RowBox[{"2", "#"}], "-", "1"}]}], "}"}]}], "]"}],
+ RowBox[{"SeriesCoefficient", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"hf", "[", "7", "]"}], "[", "\[Theta]", "]"}], "/.",
+ RowBox[{"sol", "[", "7", "]"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"\[Theta]", ",", "0", ",",
+ RowBox[{
+ RowBox[{"2", "#"}], "-", "3"}]}], "}"}]}], "]"}]], "]"}]}],
+ "}"}], "&"}], "/@",
+ RowBox[{"Range", "[",
+ RowBox[{"1", ",", "15"}], "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.836636555760644*^9, 3.836636583329178*^9}},
+ CellLabel->"In[85]:=",ExpressionUUID->"4b696273-dd8b-45ca-99b0-80457348fa97"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "Power", "infy",
+ "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
+encountered.\"", 2, 85, 21, 31606082684103090815, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.836636584876362*^9},
+ CellLabel->
+ "During evaluation of \
+In[85]:=",ExpressionUUID->"50f8ec0e-4cab-4c6a-b966-4dfd4fd49ab7"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "\[Infinity]"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "2"], ",", "0.7182812239007834`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "3"], ",", "0.3654588030943977`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "4"], ",", "1.599773633587541`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "5"], ",", "1.7403207588196217`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "6"], ",", "1.5022756993429103`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "7"], ",", "1.2131076084364045`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "8"], ",", "0.955243244496844`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "9"], ",", "0.7417220335680453`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "10"], ",", "0.5677617389059388`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "11"], ",", "0.4256927743588743`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "12"], ",", "0.3086616663334108`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "13"], ",", "0.21124748845377195`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "14"], ",", "0.12930775262549482`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "15"], ",", "0.05969475018841491`"}], "}"}]}],
+ "}"}]], "Output",
+ CellChangeTimes->{3.836636585641293*^9},
+ CellLabel->"Out[85]=",ExpressionUUID->"2913861d-3256-48eb-a072-622b1838d921"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"testd", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"1", "/", "#"}], ",",
+ RowBox[{"Abs", "[",
+ FractionBox[
+ RowBox[{"SeriesCoefficient", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"hf", "[", "8", "]"}], "[", "\[Theta]", "]"}], "/.",
+ RowBox[{"sol", "[", "8", "]"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"\[Theta]", ",", "0", ",",
+ RowBox[{
+ RowBox[{"2", "#"}], "-", "1"}]}], "}"}]}], "]"}],
+ RowBox[{"SeriesCoefficient", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"hf", "[", "8", "]"}], "[", "\[Theta]", "]"}], "/.",
+ RowBox[{"sol", "[", "8", "]"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"\[Theta]", ",", "0", ",",
+ RowBox[{
+ RowBox[{"2", "#"}], "-", "3"}]}], "}"}]}], "]"}]], "]"}]}],
+ "}"}], "&"}], "/@",
+ RowBox[{"Range", "[",
+ RowBox[{"1", ",", "15"}], "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.836635929246379*^9, 3.8366359481014013`*^9}, {
+ 3.836636025015534*^9, 3.836636119776558*^9}, {3.836636207004058*^9,
+ 3.836636239818885*^9}, {3.836636329157003*^9, 3.836636359269149*^9},
+ 3.836636523233283*^9},
+ CellLabel->"In[82]:=",ExpressionUUID->"93f5ff98-3de6-430f-929e-17c6406a8e52"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "Power", "infy",
+ "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
+encountered.\"", 2, 82, 17, 31606082684103090815, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.8366361120402308`*^9, 3.8366361201483583`*^9},
+ 3.836636240799117*^9, {3.8366363317609577`*^9, 3.8366363595183773`*^9},
+ 3.836636523581305*^9},
+ CellLabel->
+ "During evaluation of \
+In[82]:=",ExpressionUUID->"ac5a50ea-891a-4c78-af09-ae7e92e78044"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "\[Infinity]"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "2"], ",", "0.716787633188002`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "3"], ",", "0.38047182468358987`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "4"], ",", "1.685898694507847`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "5"], ",", "1.9153123855398952`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "6"], ",", "1.716496979910893`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "7"], ",", "1.43331162813957`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "8"], ",", "1.1666810770514084`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "9"], ",", "0.9392851856253912`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "10"], ",", "0.7504291670016238`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "11"], ",", "0.5940046630877504`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "12"], ",", "0.4636708154982221`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "13"], ",", "0.35410391794452545`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "14"], ",", "0.26110746368020366`"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox["1", "15"], ",", "0.18143656112572973`"}], "}"}]}],
+ "}"}]], "Output",
+ CellChangeTimes->{{3.836635934350473*^9, 3.836635948335175*^9}, {
+ 3.836636028178563*^9, 3.8366360801161547`*^9}, {3.836636114595694*^9,
+ 3.8366361226621943`*^9}, 3.8366362418026123`*^9, {3.836636332768848*^9,
+ 3.8366363605289516`*^9}, 3.836636524590335*^9},
+ CellLabel->"Out[82]=",ExpressionUUID->"8fbab210-7e4a-4b61-8e69-0e64e99fea4e"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"testf", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"1", "/", "#"}], ",",
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{"SeriesCoefficient", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ FractionBox[
+ SuperscriptBox["x", "2"],
+ SuperscriptBox["1.32", "2"]]}], ")"}], "ftest"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"r", "->",
+ SqrtBox["0.5"]}], ",",
+ RowBox[{"m", "->", "0.675"}], ",",
+ RowBox[{
+ RowBox[{"C", "[", "1", "]"}], "->", "0.01"}], ",",
+ RowBox[{"xc", "->", "1.32"}]}], "}"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"x", ",", "0", ",",
+ RowBox[{
+ RowBox[{"2", "#"}], "-", "1"}]}], "}"}]}], "]"}], "/",
+ RowBox[{"SeriesCoefficient", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ FractionBox[
+ SuperscriptBox["x", "2"],
+ SuperscriptBox["1.32", "2"]]}], ")"}], "ftest"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"r", "->",
+ SqrtBox["0.5"]}], ",",
+ RowBox[{"m", "->", "0.675"}], ",",
+ RowBox[{
+ RowBox[{"C", "[", "1", "]"}], "->", "0.01"}], ",",
+ RowBox[{"xc", "->", "1.32"}]}], "}"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"x", ",", "0", ",",
+ RowBox[{
+ RowBox[{"2", "#"}], "-", "3"}]}], "}"}]}], "]"}]}], "]"}]}],
+ "}"}], "&"}], "/@",
+ RowBox[{"Range", "[",
+ RowBox[{"1", ",", "100"}], "]"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.836637500066905*^9, 3.836637621718431*^9}, {
+ 3.8366377461519833`*^9, 3.8366377533831778`*^9}, {3.836637891531232*^9,
+ 3.8366378916657457`*^9}, {3.836637958827729*^9, 3.836637960882881*^9}},
+ CellLabel->
+ "In[140]:=",ExpressionUUID->"0bfdb981-f5d5-4edd-92bb-ee689a7c1b90"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "munfl",
+ "\"\\!\\(\\*FractionBox[\\\"0.6500000000000001`\\\", \
+RowBox[{\\\"\
+118152706205899055291598597130350112536461657693705787992572720685504586011206\
+532623629969924448078200086308663\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
+\\\"86\\\", \\\"\[RightSkeleton]\\\"}], \
+\\\"26855163429817178986540168274575308368476768789395624832976280661215629707\
+05100800000000000000000000000000000000\\\"}]]\\) is too small to represent as \
+a normalized machine number; precision may be lost.\"", 2, 140, 45,
+ 31606082684103090815, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.836637533019916*^9, 3.83663756182981*^9},
+ 3.836637622032639*^9, 3.8366376872685947`*^9, {3.836637753725301*^9,
+ 3.836637777733274*^9}, {3.836637811748845*^9, 3.83663783728831*^9},
+ 3.836637892416238*^9, 3.8366381754668627`*^9},
+ CellLabel->
+ "During evaluation of \
+In[140]:=",ExpressionUUID->"00f2ece3-315a-4168-ba0e-cbbd16d639c4"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "munfl",
+ "\"\\!\\(\\*FractionBox[RowBox[{\\\"0.6500000000000001`\\\", \\\" \\\", \
+RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \\\"1\\\"}], \\\")\\\"}]}], \
+RowBox[{\\\"\
+319012306755927449287316212251945303848446475773005627579946345850862382230257\
+638083800918796009811140233033391\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
+\\\"88\\\", \\\"\[RightSkeleton]\\\"}], \
+\\\"50894126050638326365845434135333259488727573136818704903595778528220020903\
+77216000000000000000000000000000000000\\\"}]]\\) is too small to represent as \
+a normalized machine number; precision may be lost.\"", 2, 140, 46,
+ 31606082684103090815, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.836637533019916*^9, 3.83663756182981*^9},
+ 3.836637622032639*^9, 3.8366376872685947`*^9, {3.836637753725301*^9,
+ 3.836637777733274*^9}, {3.836637811748845*^9, 3.83663783728831*^9},
+ 3.836637892416238*^9, 3.83663817549574*^9},
+ CellLabel->
+ "During evaluation of \
+In[140]:=",ExpressionUUID->"de656973-5efe-4cc4-92ba-22603c88b0bb"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "munfl",
+ "\"\\!\\(\\*FractionBox[\\\"0.6500000000000001`\\\", \
+RowBox[{\\\"\
+694170779500898129649200077860232981174219531282060245613963248571476543733040\
+620470350799300117349041147080660\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
+\\\"91\\\", \\\"\[RightSkeleton]\\\"}], \
+\\\"45618286188998172079664678485172647471199145717501870224414077406765486608\
+22016000000000000000000000000000000000\\\"}]]\\) is too small to represent as \
+a normalized machine number; precision may be lost.\"", 2, 140, 47,
+ 31606082684103090815, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.836637533019916*^9, 3.83663756182981*^9},
+ 3.836637622032639*^9, 3.8366376872685947`*^9, {3.836637753725301*^9,
+ 3.836637777733274*^9}, {3.836637811748845*^9, 3.83663783728831*^9},
+ 3.836637892416238*^9, 3.836638175516424*^9},
+ CellLabel->
+ "During evaluation of \
+In[140]:=",ExpressionUUID->"65eafe10-9697-41ef-b735-c471595c1611"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "stop",
+ "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
+\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
+during this calculation.\"", 2, 140, 48, 31606082684103090815, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.836637533019916*^9, 3.83663756182981*^9},
+ 3.836637622032639*^9, 3.8366376872685947`*^9, {3.836637753725301*^9,
+ 3.836637777733274*^9}, {3.836637811748845*^9, 3.83663783728831*^9},
+ 3.836637892416238*^9, 3.836638175536379*^9},
+ CellLabel->
+ "During evaluation of \
+In[140]:=",ExpressionUUID->"b3b74ee2-e427-498c-9932-a9b04fcb6144"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "Power", "infy",
+ "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
+encountered.\"", 2, 140, 49, 31606082684103090815, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.836637533019916*^9, 3.83663756182981*^9},
+ 3.836637622032639*^9, 3.8366376872685947`*^9, {3.836637753725301*^9,
+ 3.836637777733274*^9}, {3.836637811748845*^9, 3.83663783728831*^9},
+ 3.836637892416238*^9, 3.8366381764252234`*^9},
+ CellLabel->
+ "During evaluation of \
+In[140]:=",ExpressionUUID->"1b30f137-41ed-4903-bac6-8771df70183c"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{", "test6", "}"}], ",",
+ RowBox[{"Joined", "->", "True"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.836636264644331*^9, 3.836636267387124*^9}, {
+ 3.8366362992918377`*^9, 3.836636322941164*^9}, {3.836636365678135*^9,
+ 3.836636366917102*^9}, {3.8366365889694843`*^9, 3.836636600889337*^9}, {
+ 3.836637537426865*^9, 3.8366375389064283`*^9}, {3.8366454264620543`*^9,
+ 3.836645428060781*^9}},
+ CellLabel->
+ "In[146]:=",ExpressionUUID->"0d0e5cda-a6fc-4708-80da-b887f6838668"],
+
+Cell[BoxData[
+ GraphicsBox[{{}, {{}, {},
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+ AbsoluteThickness[1.6],
+ LineBox[{{0.5, 0.1441630762681037}, {0.3333333333333333,
+ 1.1445927481503444`}, {0.25, 1.61453040367424}, {0.2,
+ 1.4422666133288584`}, {0.16666666666666666`, 1.1300632312407177`}, {
+ 0.14285714285714285`, 0.8435551649312958}, {0.125,
+ 0.6122522607754938}, {0.1111111111111111, 0.4300965134091653}, {0.1,
+ 0.28608650163836874`}, {0.09090909090909091, 0.17080477904939873`}, {
+ 0.08333333333333333, 0.0771758159377093}, {0.07692307692307693,
+ 0.}}]}}, {{}, {}}},
+ 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]],
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Identity[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Identity[
+ Part[#, 2]]}& )}},
+ PlotRange->{{0, 0.5}, {0, 1.61453040367424}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{
+ 3.836636267644882*^9, {3.8366363051698914`*^9, 3.836636367151598*^9},
+ 3.836636524625599*^9, {3.836636595747473*^9, 3.836636601111724*^9}, {
+ 3.8366375445515423`*^9, 3.8366375642759457`*^9}, 3.8366376243587027`*^9,
+ 3.8366376892147703`*^9, {3.836637755746024*^9, 3.8366377802724743`*^9},
+ 3.836637814325142*^9, 3.836637849051381*^9, 3.836637912751522*^9,
+ 3.836638282443633*^9, {3.836645422395433*^9, 3.836645428295326*^9}},
+ CellLabel->
+ "Out[146]=",ExpressionUUID->"a94fd114-bf0b-48e5-ac27-26cbf8243d85"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"Plot", "["}]], "Input",
+ CellChangeTimes->{{3.8366367863738947`*^9,
+ 3.8366367869247217`*^9}},ExpressionUUID->"333b1832-5a79-49fb-8f3e-\
+0569be7ac490"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"rs", "=",
+ RowBox[{"First", "@",
+ RowBox[{"RSolve", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"a", "[", "n", "]"}], "/",
+ RowBox[{"a", "[",
+ RowBox[{"n", "-", "1"}], "]"}]}], "==",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{"r", "-",
+ RowBox[{"m", "/", "n"}]}], ")"}]}]}], "}"}], ",", "a", ",", "n"}],
+ "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.836636666667951*^9, 3.836636865254404*^9}, {
+ 3.836641728849475*^9, 3.836641791921948*^9}, {3.836641853123331*^9,
+ 3.836641853659046*^9}, {3.8366424819592123`*^9, 3.836642486878861*^9}, {
+ 3.836642947551861*^9, 3.836642957529168*^9}, {3.836643000617293*^9,
+ 3.836643000792124*^9}},
+ CellLabel->
+ "In[109]:=",ExpressionUUID->"7b629cc3-95f7-44aa-9894-2cc112a13bdb"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"a", "\[Rule]",
+ RowBox[{"Function", "[",
+ RowBox[{
+ RowBox[{"{", "n", "}"}], ",",
+ FractionBox[
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"-", "r"}], ")"}],
+ RowBox[{
+ RowBox[{"-", "1"}], "+", "n"}]], " ",
+ TemplateBox[{"1"},
+ "C"], " ",
+ RowBox[{"Pochhammer", "[",
+ RowBox[{
+ RowBox[{"2", "-",
+ FractionBox["m", "r"]}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "+", "n"}]}], "]"}]}],
+ RowBox[{"Pochhammer", "[",
+ RowBox[{"2", ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "+", "n"}]}], "]"}]]}], "]"}]}], "}"}]], "Output",\
+
+ CellChangeTimes->{
+ 3.836636779861452*^9, {3.836636811839089*^9, 3.83663681937292*^9}, {
+ 3.836636858376522*^9, 3.8366368659364557`*^9}, 3.836641343975321*^9, {
+ 3.836641746812562*^9, 3.836641792259589*^9}, 3.836641853811819*^9,
+ 3.836642364794376*^9, 3.836642487285157*^9, 3.836642878483405*^9,
+ 3.836642958771369*^9, 3.836643001332862*^9},
+ CellLabel->
+ "Out[109]=",ExpressionUUID->"9e65ca33-2e9a-4c87-ad00-670be8ed9755"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"p", "[",
+ RowBox[{"n_", ",", "k_"}], "]"}], ":=",
+ RowBox[{
+ SuperscriptBox["2", "n"],
+ RowBox[{"Binomial", "[",
+ RowBox[{"n", ",", "k"}], "]"}],
+ RowBox[{"Binomial", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"n", "+", "k", "-", "1"}], ")"}], "/", "2"}], ",", "n"}],
+ "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.836641545495138*^9, 3.836641585854095*^9}},
+ CellLabel->
+ "In[104]:=",ExpressionUUID->"5568315a-763b-45fa-a214-b259762ceba0"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Sum", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"p", "[",
+ RowBox[{"7", ",",
+ RowBox[{
+ RowBox[{"2", "k"}], "+", "1"}]}], "]"}],
+ SuperscriptBox["x",
+ RowBox[{
+ RowBox[{"2", "k"}], "+", "1"}]]}], ",",
+ RowBox[{"{",
+ RowBox[{"k", ",", "0", ",", "4"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.836643027338398*^9, 3.836643041952992*^9}, {
+ 3.836643585867334*^9, 3.836643597147149*^9}},
+ CellLabel->
+ "In[127]:=",ExpressionUUID->"0481cad6-72e2-4e16-918e-a1705666053f"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"35", " ", "x"}], "16"]}], "+",
+ FractionBox[
+ RowBox[{"315", " ",
+ SuperscriptBox["x", "3"]}], "16"], "-",
+ FractionBox[
+ RowBox[{"693", " ",
+ SuperscriptBox["x", "5"]}], "16"], "+",
+ FractionBox[
+ RowBox[{"429", " ",
+ SuperscriptBox["x", "7"]}], "16"]}]], "Output",
+ CellChangeTimes->{
+ 3.836643042118236*^9, {3.836643593070879*^9, 3.8366435974878397`*^9}},
+ CellLabel->
+ "Out[127]=",ExpressionUUID->"6e868abb-01a9-4182-a27e-53b8fed9982b"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"p", "[",
+ RowBox[{"7", ",", "1"}], "]"}]], "Input",
+ CellChangeTimes->{{3.8366430453468018`*^9, 3.8366430490090113`*^9}},
+ CellLabel->
+ "In[111]:=",ExpressionUUID->"51099c65-ec43-409f-b208-562b2cc1e122"],
+
+Cell[BoxData[
+ RowBox[{"-",
+ FractionBox["35", "16"]}]], "Output",
+ CellChangeTimes->{3.836643049248493*^9},
+ CellLabel->
+ "Out[111]=",ExpressionUUID->"190d2f5f-ed6b-49b0-8332-6842048467d1"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"hk", "=",
+ RowBox[{"Sum", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"p", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"2", "n"}], "+", "1"}], ",",
+ RowBox[{
+ RowBox[{"2", "k"}], "+", "1"}]}], "]"}],
+ RowBox[{
+ RowBox[{"a", "[", "n", "]"}], "/",
+ SuperscriptBox["\[Theta]c", "k"]}]}], "/.", "rs"}], ",",
+ RowBox[{"{",
+ RowBox[{"n", ",", "k", ",", "\[Infinity]"}], "}"}], ",",
+ RowBox[{"Assumptions", "->",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"k", ">", "1"}], ",",
+ RowBox[{"k", "\[Element]", "Integers"}], ",",
+ RowBox[{"r", ">", "0"}], ",",
+ RowBox[{"m", ">", "0"}]}], "}"}]}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.836640246790998*^9, 3.8366403231905603`*^9}, {
+ 3.836640364575281*^9, 3.8366404637853727`*^9}, {3.836640610316722*^9,
+ 3.836640650197105*^9}, {3.836640960659708*^9, 3.836640971426577*^9}, {
+ 3.8366416512082243`*^9, 3.836641672960082*^9}, {3.836641766153604*^9,
+ 3.836641797001917*^9}, {3.836641832418865*^9, 3.836641886203608*^9}, {
+ 3.836642406373865*^9, 3.836642406541358*^9}, {3.836643098154706*^9,
+ 3.836643144427042*^9}, {3.836643180083832*^9, 3.836643183331378*^9}, {
+ 3.8366443821781673`*^9, 3.836644387977619*^9}},
+ CellLabel->
+ "In[138]:=",ExpressionUUID->"332b8e25-6892-41b0-b2b6-f7d69dc61b84"],
+
+Cell[BoxData[
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"r", " ",
+ RowBox[{"Pochhammer", "[",
+ RowBox[{"2", ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "+", "k"}]}], "]"}]}]],
+ RowBox[{
+ SuperscriptBox["2",
+ RowBox[{"1", "+",
+ RowBox[{"2", " ", "k"}]}]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"-", "r"}], ")"}], "k"], " ",
+ SuperscriptBox["\[Theta]c",
+ RowBox[{"-", "k"}]], " ",
+ RowBox[{"Binomial", "[",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "+",
+ RowBox[{"4", " ", "k"}]}], ")"}]}], ",",
+ RowBox[{"1", "+",
+ RowBox[{"2", " ", "k"}]}]}], "]"}], " ",
+ TemplateBox[{"1"},
+ "C"], " ",
+ RowBox[{"Hypergeometric2F1", "[",
+ RowBox[{
+ RowBox[{
+ FractionBox["3", "2"], "+",
+ RowBox[{"2", " ", "k"}]}], ",",
+ RowBox[{"1", "+", "k", "-",
+ FractionBox["m", "r"]}], ",",
+ RowBox[{"1", "+", "k"}], ",", "r"}], "]"}], " ",
+ RowBox[{"Pochhammer", "[",
+ RowBox[{
+ RowBox[{"2", "-",
+ FractionBox["m", "r"]}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "+", "k"}]}], "]"}]}]}]}]], "Output",
+ CellChangeTimes->{{3.836641838623637*^9, 3.8366418975013866`*^9},
+ 3.836642378151836*^9, 3.836642418823393*^9, 3.836642490160838*^9,
+ 3.836642974804728*^9, 3.836643146383868*^9, 3.8366431844579906`*^9,
+ 3.8366443889157352`*^9},
+ CellLabel->
+ "Out[138]=",ExpressionUUID->"646419cd-aeb8-4c2b-8199-4e334c4c5e63"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"test", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"Evaluate", "[",
+ RowBox[{"hk", "/",
+ RowBox[{"(",
+ RowBox[{"hk", "/.",
+ RowBox[{"k", "->",
+ RowBox[{"k", "-", "1"}]}]}], ")"}]}], "]"}], "]"}], "/.",
+ RowBox[{"k", "->",
+ RowBox[{"1", "/", "x"}]}]}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"r", "->", "0.54"}], ",",
+ RowBox[{"m", "->", "1"}], ",",
+ RowBox[{"\[Theta]c", "->", "1.3"}]}], "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.8366411229825974`*^9, 3.836641146445842*^9}, {
+ 3.836641890915852*^9, 3.8366419063400517`*^9}, {3.836642343981174*^9,
+ 3.8366423598367863`*^9}, 3.836643158675763*^9, 3.836643188732552*^9, {
+ 3.836643960882147*^9, 3.836643972314117*^9}, {3.83664440411405*^9,
+ 3.83664440593817*^9}},
+ CellLabel->
+ "In[140]:=",ExpressionUUID->"ec6bb3a3-c19b-470d-9cfb-0df5d12a088b"],
+
+Cell[BoxData[
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"1.6615384615384614`", " ",
+ RowBox[{"Binomial", "[",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], "+",
+ FractionBox["2", "x"]}], ",",
+ RowBox[{"1", "+",
+ FractionBox["2", "x"]}]}], "]"}], " ",
+ RowBox[{"Hypergeometric2F1", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "0.8518518518518516`"}], "+",
+ FractionBox["1", "x"]}], ",",
+ RowBox[{
+ FractionBox["3", "2"], "+",
+ FractionBox["2", "x"]}], ",",
+ RowBox[{"1", "+",
+ FractionBox["1", "x"]}], ",", "0.54`"}], "]"}], " ",
+ RowBox[{"Pochhammer", "[",
+ RowBox[{"0.14814814814814836`", ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "+",
+ FractionBox["1", "x"]}]}], "]"}], " ",
+ RowBox[{"Pochhammer", "[",
+ RowBox[{"2", ",",
+ RowBox[{
+ RowBox[{"-", "2"}], "+",
+ FractionBox["1", "x"]}]}], "]"}]}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Binomial", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["3", "2"]}], "+",
+ FractionBox["2", "x"]}], ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "+",
+ FractionBox["2", "x"]}]}], "]"}], " ",
+ RowBox[{"Hypergeometric2F1", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1.8518518518518516`"}], "+",
+ FractionBox["1", "x"]}], ",",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "2"]}], "+",
+ FractionBox["2", "x"]}], ",",
+ FractionBox["1", "x"], ",", "0.54`"}], "]"}], " ",
+ RowBox[{"Pochhammer", "[",
+ RowBox[{"0.14814814814814836`", ",",
+ RowBox[{
+ RowBox[{"-", "2"}], "+",
+ FractionBox["1", "x"]}]}], "]"}], " ",
+ RowBox[{"Pochhammer", "[",
+ RowBox[{"2", ",",
+ RowBox[{
+ RowBox[{"-", "1"}], "+",
+ FractionBox["1", "x"]}]}], "]"}]}], ")"}]}], ")"}]}]], "Output",
+ CellChangeTimes->{
+ 3.836641367412682*^9, {3.8366418984015493`*^9, 3.836641906524653*^9}, {
+ 3.836642348533813*^9, 3.836642378198709*^9}, 3.836642432726636*^9,
+ 3.836642492988649*^9, 3.836642975737211*^9, {3.836643151936414*^9,
+ 3.8366431891380663`*^9}, {3.836643961351391*^9, 3.836643972512398*^9}, {
+ 3.8366443984156733`*^9, 3.83664440623385*^9}},
+ CellLabel->
+ "Out[140]=",ExpressionUUID->"c565778b-4931-4dd5-8194-68df7c134050"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Limit", "[",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"Evaluate", "[",
+ RowBox[{"hn", "/",
+ RowBox[{"(",
+ RowBox[{"hn", "/.",
+ RowBox[{"k", "->",
+ RowBox[{"k", "-", "1"}]}]}], ")"}]}], "]"}], "]"}], ",",
+ RowBox[{"k", "->", "\[Infinity]"}], ",",
+ RowBox[{"Assumptions", "->",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"r", ">", "0"}], ",",
+ RowBox[{"b", ">", "0"}]}], "}"}]}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.836640581500753*^9, 3.836640582351967*^9}, {
+ 3.836640659094349*^9, 3.836640674261161*^9}, {3.836640756831832*^9,
+ 3.8366407837992*^9}},
+ CellLabel->
+ "In[131]:=",ExpressionUUID->"ee7b5c8f-14ba-40e4-a8d1-2e1767b0030d"],
+
+Cell[BoxData["$Aborted"], "Output",
+ CellChangeTimes->{3.8366407770795918`*^9, 3.836640944934732*^9,
+ 3.836642388245296*^9, 3.836642979259987*^9, 3.8366439646234627`*^9},
+ CellLabel->
+ "Out[131]=",ExpressionUUID->"5c4f22ff-142c-4b5b-924d-617969aeb95c"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[",
+ RowBox[{"test", ",",
+ RowBox[{"{",
+ RowBox[{"x", ",", "0.005", ",", "0.5"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.8366404733787003`*^9, 3.836640586635429*^9}, {
+ 3.8366406775173683`*^9, 3.83664072832603*^9}, {3.836641388706429*^9,
+ 3.836641390058158*^9}, 3.836641913948337*^9, {3.8366424378786993`*^9,
+ 3.836642447957879*^9}, {3.8366439484901133`*^9, 3.836643952865609*^9}, {
+ 3.836644083476583*^9, 3.836644084084103*^9}},
+ CellLabel->
+ "In[141]:=",ExpressionUUID->"a5ed2080-8846-46d4-9a95-4b1b62b66a6b"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {},
+ TagBox[
+ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
+ 1.], LineBox[CompressedData["
+1:eJwtk3k41Wkbx0XIkvXgWM7vRE1Cm9NUSuOONzKVmhRZSoTSO3VQUsnOOCml
+GIQUb9KIRMbO/O5jX7JkOZbU7+AMKbSJiLy4+j6f53qu+3ruP57rez9fzRPu
+lq7CQkJCMfN74Ry3HTOo9PeCodUT15wkmXiq5dnAthgvcOtJ8puWYGLwX0mF
+J0UvAJvn0TApzkT+nrw4mtoFsPzFffjOfK20c2FdgOUz7tFvxZi4NIyjb1p0
+AXYKnqf8s5SJe2b0XNMmveHiR5aP5ByBUnZ+6ckdF6FVs2CJ/DcCt4tOH1B4
+N197LCnImibQO0P6q8DjMtju6v839zOBN2mS/x0384W1Xc8jCgYJHOOKJY6e
+9YdP6xpf9/YSKKRXesCzLhAaqvW8ApoI7F2Xt+VvxyCI6PrXWbWOwFCeuuq1
+i0EQ1+v7j3ktgavtoi9VhwWBi45CeFkNgXFX1JyKHgWBtc7HK7eqCcyFxpys
+1GBwh3XbwssI/Kp7/3jTsRCQzHhfPppPoNx2pbtXNobCzaipVrenBP76ecie
+L8yBYTsJr7IYApdTDvo3DofDLuvo2dRAApM1qji6a69BhMNM0rdLBDpYemrU
+eEZAYKGl4DcXAk1GDLb9sfImfIsTNh86TGCNeOPXZNVIyCLbN/6yb/59JauW
+fQ2KhEMam5tvmRMoEepoMn08GnTjQi7uFSdwUKml0H4oBpQ7+7bldzNwPUPK
+ttYkFuyyfzIza2OgWRFKsqxiIVjnsOP0Cwaep7t7SL6Mh3h+x2GfKAZyR5bk
+ij+/B9r2uZTvdgb6ypos0wxNBtdrhRZPFRgoX7t5nhSo2WV07uuUBkpeWvAr
+BfaIDnGItxqYupsVM/ZPCkTItIkIBjWwsm5WKGMiBTqOfJReSWngTi2mAmcw
+DUj3G0et9DXQI0jqKF/4EcQm1MpdWaeBzz/FGQUbZ0LKzxZvhC+q46riBX8y
+waBAbj3HQx1PFnzI0L+dBbrMIV64tjrqCS0oG4zPy+8wnVBDLes/q3evzoa0
+Wp9nM+/U8FXnRGpAcjaE6g2WazeoIfeS3jcNy1xoWmUgKUNTw6PnLAobrXJB
+39Bnk6KiGlrLRetdrcuD20d35jmyVfFQwov33t/zwG1Du7OfoyqqnOEqn+Hm
+g/lJ9sbhdapopnLM64VpAewfG5C+JaWKbI7xQe24AmDZA9N7go7jon7Gx1sK
+oN8hbTRpiI5XDCqVnS4XQruy3S9VJXScpt+N5E4VwkitSFpHAh3vxC+oCNZW
+xNi2edKx4r5EwOqZIjB0nsq/ZkNHtVTjeYph313rJ/lmdMyIOtHQo1MCcd2b
+YKUUHZuLubSpzBL4ifHh2OthFZw3b55SsLH3qR4rUMEjxmfF0t6Vwh3W1Wjh
+eBVktBvPUwZuqVY5q0JUUNrZ3T0mswyCDl60lnFTQTGm7weuOAms/mqtPjkV
+XLRbCME5ZKX/9VZlPM9vT7SSR7hB/y7g1SnjwJOR8+YWCHZLP2RLZypjqNzC
+/0HQ+ciPb7iljC6jNWZrTnFhyYOzz6eZyhi7mDcunEy8d327kDJGrfp1nnKQ
+F25/1p2thOzN506rp5XDjlvlf2iFKOGg7unD9lnl8CHJ+AERoISnNqSUhU6U
+A+9dSeCcvRL62n+y5M1VwFaeduKrHhr60LJ29/lUgtgTBW78fRqamYc3GR2q
+ghn164UnttLQalFVkKuSWu68hYZkRpXFHaoKvn9+P+oxrogumgv5qYafvW2s
+NKsUUcejk1sTWQ31677vP5WsiHLe367Qh2rApODx5ObvCkgPc5qnFraUqoq9
+rVRA2QLek3DtOpjdOwlGbgqYsDjfOnDNrqbbbZq//+tmWZ5TPbTsdLOJ5Mmj
+Ao+TVh5cD0SM/bRhjTyueZpSGvapHpR2L/ftj5bH1pID+umdDTCl7XH1rq48
+Pu5t2pSt1AjNkZ1OZLwcEotqgqm/ywMstOQw7OXKWX92E/zPUShs9pss+iht
+NGJnN0OOwpctIS9lfsyzBV7dHfcj/5RBpevpV0W9W6Cj/pFEW/ly7A5P6gpP
+agFhsfOjsn7LUX5RL6An+EGARo40uk8/7Niq+QIe7AtTiP9TGq3F/R2m8QUs
+r9+QlegrhSDCrV/BboVGPf+63QckMeyErBBBb4Pmws73QToSSDPMUTTMaYM7
+sm8EMVrL0Pb4Ns+M/Da4FmEzaaS6DNfvbaq6e6IdugxCBxo/i2Fku5E1IdIB
+eWeXGQYOiP6YXweslR94VG0jivu5xU+9kzvAk+lwaEnPUpRNShlh7eXBdal7
+IV4lIrim0nZKwpMH3ORj8ma+InhM2cU14C0PWPvPn7ucI/wjz50g+KKljKrC
++MT/NndDXCew9FY8jYxaguGhCbYeBl3Q9Xh33AhHCCtGs4o5vC64HKFbs198
+jpwzXT8nHNwNU+Ze4kTHDFljGB4go9UDZpvdipPqp8nbKw4M+DX3wEyDStGz
+2K9kkdsKucrLL6FK1GqrhfsEyd7feCmB3gvFpTG0fvY4yVjMby/sICfvm/72
+mfxp5b+V7ZW9UFiawbEy/US6xXTtu+/6CjRjLvecM/lASvzembRT5DWoN8YI
+BmNHyMwNxq2mWa/hYXq8iPORN+TL22EmLy0ocKkIZlm4CMhdtIMdD36jIF34
+SMYzSwGZGavuduYQBeWP9c7QjQWkf2L2jVkbCtipQ1UChoDUetjTxXShgApY
+3RPYOUCeLlzv7uJDwfFDFeHVewbIyde8xNE0CoZ9M7Wv6veTjk4p6/PTKahf
+hukTzH6yduB3rn8mBdsHznm5yvSTCW+EhmSfUZAo3Tjwn3d9pNEnXRarbL5/
+7WfdpQ/7yD9EA2q92yjwUlzjGEXvI8c4v9oDj4KnFcNsUfE+0lqSNibeTUFy
+eHr1pS98co1sumL8awr47B0HHVv55HN6m0PJMAWFHKc2VgSf3JyY9DFkhIIz
+YVW6f/nwyXsMt9B97ylYw7NrYJzmkx5as+mvxikIqtv0RsKMT3an1uxIm6RA
+oSDUJfBnPmmiHdXMnqbgfrim7qQWn3ycfvTE1lkKxubktrHl+aTiWu0vc3MU
+hFXlajXMUeT/AfPtlK0=
+ "]]},
+ Annotation[#, "Charting`Private`Tag$243762#1"]& ]}, {}},
+ 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.005, 0.5}, {-7.76013772132294, 0.}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.05],
+ Scaled[0.05]}},
+ Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{{3.836640481778213*^9, 3.836640514548256*^9},
+ 3.836640571029269*^9, 3.836640603848427*^9, {3.83664067795431*^9,
+ 3.836640728982545*^9}, {3.83664137059927*^9, 3.8366413906040173`*^9}, {
+ 3.836641899865406*^9, 3.836641917445006*^9}, 3.836642350720662*^9,
+ 3.836642394830434*^9, {3.836642438134446*^9, 3.836642448360632*^9},
+ 3.836642495070923*^9, 3.836642980701544*^9, {3.836643153636962*^9,
+ 3.836643190354233*^9}, {3.836643949241179*^9, 3.836643974689908*^9},
+ 3.836644084391655*^9, 3.836644408489326*^9},
+ CellLabel->
+ "Out[141]=",ExpressionUUID->"605a9c1e-844b-429b-863c-c53d828143b7"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ SqrtBox[
+ RowBox[{"1.", "/", "8"}]]], "Input",
+ CellChangeTimes->{{3.836644196320889*^9, 3.836644210550408*^9}, {
+ 3.8366444162588997`*^9, 3.8366444192099447`*^9}},
+ CellLabel->
+ "In[143]:=",ExpressionUUID->"4441056d-a05c-4fbb-b2e7-8abd69bcefcc"],
+
+Cell[BoxData["0.3535533905932738`"], "Output",
+ CellChangeTimes->{{3.836644198523592*^9, 3.8366442108536654`*^9}, {
+ 3.836644416786378*^9, 3.836644419593199*^9}},
+ CellLabel->
+ "Out[143]=",ExpressionUUID->"bcb3cc22-8933-42fe-a9e8-d00667f3e435"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"1.", "/",
+ SqrtBox["10"]}]], "Input",
+ CellChangeTimes->{{3.8366407443756857`*^9, 3.836640746870269*^9}, {
+ 3.836641377258271*^9, 3.836641409274509*^9}, {3.8366431974764853`*^9,
+ 3.836643208827962*^9}},
+ CellLabel->
+ "In[125]:=",ExpressionUUID->"3ac27ca6-71a9-4008-9acd-dfa03b498bd4"],
+
+Cell[BoxData["0.31622776601683794`"], "Output",
+ CellChangeTimes->{
+ 3.8366407470999804`*^9, {3.8366413790419807`*^9, 3.836641409496826*^9}, {
+ 3.83664319855512*^9, 3.836643209234749*^9}},
+ CellLabel->
+ "Out[125]=",ExpressionUUID->"4c6cbe79-6163-42ce-b99e-e544b56cb0c5"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LegendreP", "[",
+ RowBox[{"7", ",", "x"}], "]"}]], "Input",
+ CellChangeTimes->{{3.836640290279291*^9, 3.836640296317975*^9}},
+ CellLabel->
+ "In[143]:=",ExpressionUUID->"20e8b9c5-d32d-4463-a503-9b41eb015261"],
+
+Cell[BoxData[
+ RowBox[{
+ FractionBox["1", "16"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "35"}], " ", "x"}], "+",
+ RowBox[{"315", " ",
+ SuperscriptBox["x", "3"]}], "-",
+ RowBox[{"693", " ",
+ SuperscriptBox["x", "5"]}], "+",
+ RowBox[{"429", " ",
+ SuperscriptBox["x", "7"]}]}], ")"}]}]], "Output",
+ CellChangeTimes->{3.8366402965649643`*^9},
+ CellLabel->
+ "Out[143]=",ExpressionUUID->"183c600f-b9c8-4565-b75f-086acb6d2b52"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ftest", "=",
+ RowBox[{"Sum", "[",
+ RowBox[{
+ RowBox[{"Evaluate", "[",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"-", "1"}], ")"}], "n"],
+ RowBox[{"a", "[", "n", "]"}],
+ RowBox[{"LegendreP", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"2", "n"}], "+", "1"}], ",",
+ RowBox[{"x", "/", "xc"}]}], "]"}]}], "/.",
+ RowBox[{"rs", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",",
+ RowBox[{"{",
+ RowBox[{"n", ",", "0", ",", "200"}], "}"}]}], "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.836636875687593*^9, 3.836636927207375*^9}, {
+ 3.8366369889767427`*^9, 3.836637020329198*^9}, {3.836637175100524*^9,
+ 3.836637182980098*^9}, {3.836637495666*^9, 3.8366374961619987`*^9}, {
+ 3.836637681677657*^9, 3.836637682365446*^9}, {3.836637738118855*^9,
+ 3.8366377389586906`*^9}, {3.836637770327808*^9, 3.836637771383337*^9}, {
+ 3.836637807960229*^9, 3.836637821448249*^9}, {3.83663795457101*^9,
+ 3.8366379546427097`*^9}},
+ CellLabel->
+ "In[139]:=",ExpressionUUID->"64028a06-7652-48fd-95cf-71813ac09620"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[",
+ RowBox[{
+ RowBox[{"ftest", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"r", "->",
+ SqrtBox["0.5"]}], ",",
+ RowBox[{"m", "->", "0.675"}], ",",
+ RowBox[{
+ RowBox[{"C", "[", "1", "]"}], "->", "0.01"}]}], "}"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"x", ",", "0", ",", "1.3"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.836636929096542*^9, 3.8366369733363647`*^9}, {
+ 3.8366370062094193`*^9, 3.836637009041041*^9}, 3.8366370725790253`*^9},
+ CellLabel->
+ "In[114]:=",ExpressionUUID->"2fd95295-13a4-4ed9-8847-26576aa7ba7c"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "munfl",
+ "\"\\!\\(\\*SuperscriptBox[\\\"0.00002655714285714286`\\\", \\\"69\\\"]\\) \
+is too small to represent as a normalized machine number; precision may be \
+lost.\"", 2, 114, 32, 31606082684103090815, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.8366371843604593`*^9},
+ CellLabel->
+ "During evaluation of \
+In[114]:=",ExpressionUUID->"d4f20b88-0123-4055-bc65-4ca2fff1b7d8"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "munfl",
+ "\"\\!\\(\\*SuperscriptBox[\\\"0.00002655714285714286`\\\", \\\"69\\\"]\\) \
+is too small to represent as a normalized machine number; precision may be \
+lost.\"", 2, 114, 33, 31606082684103090815, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.8366371843666773`*^9},
+ CellLabel->
+ "During evaluation of \
+In[114]:=",ExpressionUUID->"e01a80f5-e9e8-48e9-b74d-dd81f7c340f1"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "munfl",
+ "\"\\!\\(\\*SuperscriptBox[\\\"0.00002655714285714286`\\\", \\\"71\\\"]\\) \
+is too small to represent as a normalized machine number; precision may be \
+lost.\"", 2, 114, 34, 31606082684103090815, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.836637184371368*^9},
+ CellLabel->
+ "During evaluation of \
+In[114]:=",ExpressionUUID->"d33757d4-ca4c-47b2-8eaf-0ec6c1f2f620"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "stop",
+ "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
+\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
+during this calculation.\"", 2, 114, 35, 31606082684103090815, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.8366371843756237`*^9},
+ CellLabel->
+ "During evaluation of \
+In[114]:=",ExpressionUUID->"544e7983-9830-431e-86bf-7049b4a3d701"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {},
+ TagBox[
+ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
+ 1.], LineBox[CompressedData["
+1:eJwVVnc4V+0bNxryyihJJVlRqCgi4Y6UklGZkZISLVkV7SiSlVVWKCvCOd+v
+UUpuvSRkJ8orScg85yQVGf3O749znetczzif+/6M55F1PrvfhY+Hh2eSff7/
+3rUy/1Pe5YP66pHaKWeXipWNysv5PpLVgcWB71+BA10W6VZ19YSsCSxMDfkz
+bf+37OsdST4zWXtoeO+++ou9CAolvarQlz0JZ9zrfAbtV2Gqwr10LdmLkPaC
+33+nwwYccuNZoiF7BzrImKsfDgKKhGiabZRNAPVLRbbrjlpgeZg055bOE3hd
+eO7wphNOOCVJVYvrFEKHInX0eoAbkkl8PZyi5xCkNCOqZ+aBiarXIqa7yoFZ
+G7E94K0PfroRwi+sVAleAuZnb6/wwyDvkGCfojfQN3xn4V7qCs7q9adt2/QW
+bOuXGnWdvIE+1xqj//g0QEXcia/mNQGYvb6t9uZsE9heFPBU8w7EpR9DNgek
+t0Cst6B49vxgHKHdT2sYtoLpg/Ioh8wQ/Nm6R0WUvw3sH5VmVseF45WfdGtP
+RjtUlEY7rim5i1t6w+Z3n/oI/PxEc/H+KDwIB+bcXfsf6CZ08Bn9iMbZ98PD
+m2s6wfbl9qDKm7HYquN7UCC0C2ouH19+Y+d9jB3tc3CT7Iam3cONnN9x2JEu
+1HBkuhuk87fzFv+XgPsXmWRodH4B29B+HfJ1Et5ZOfydL68HxkAVfyQmY6fI
+goDjEV/BmH/DOhGrVKRS7gS/du6Fhud9rZ4WD3FTv9zPGfU+sNxlMC5r+gij
+FmtnvF3UDzEe3nM2u6Qhp4usjenth7f5r0f+eqbj0N1MjR9vvsFWq539dkkZ
+aDPJ5VfJGoCzZ2Z89lVnov9fuV2HLgxCVE6yn1N/FlaPiDQrHhiCAy2xf53l
+s7HhglPjkMowPJJY1PhhXw7OL3mz8fafYUg6tFvG+foTtP/ypON5xwgsNLm+
+wqchF89k/fg98GQUMtVGYt7x5mOC1bMDueEUxIw4nQk2ILDqp7j1VCQFx0pU
+Zp45Ejh2z3OvSSwFJe3x9sEBBEprN+yJj6NgdCzppN8TAnd/VDYeSKQg/6Dy
+b/tmAn0uBhlqpVDwfMNN3zY/AlNX9OoFPqIg+vzLGP9KAutKt215n0FB1+GF
+FVfCCZxwfKChkE2BT1pPoMFpAhX+Tm7wzqVgfUrDauOXBFqk2qj8S1AgLsSz
+pjybwIsGBYpiBRQ4HU4V1r9MYGaPiJxTMQWBI2pxEecIbAk4vZIooSC+r/di
+lD+Bswo1krOlFHzwFCz8p5pA5arV4mblFDSNCGfsJQm0dvUXSaqgYIlmuarP
+ZwKvC3wWHK6iYCOzsszOlsDc7K3zdGopqA4aUxeMJvCDSRxvcD0FLXwGdFcD
+gXNGxqfbmyiYSWmqnTOfRLWwfROKrRRc9Nzo8VSERIf1+T/OtVPwzHCdz68R
+AgMbBenKDgqWdbzce+AZgVwP16HFXRSU9Q6trWH70SVW2ef8hQKFzJLUjEQC
+BQtkvnB6KbC5v/itJg+Jm62udPIMUBDavCp2mh0/8vNju8UwW3/6+xf9HwkM
+vbf5XTJFwT4VY0kXtp5nWtENo98pOHO78vnoOhJ7P9A1uj8psCWvTfQBiaIX
+TV+HTFCAQguVw9aTqLsiu7xjioLjob6JjgyBbqVzS9f+paB8LuxWHCIwxtH5
+qS8fDcYjbZc2OZCIs2XcN3Np8Psm6KmnSuJQyop8iQU0bPnlXUcVEShh4Jvt
+IkSDpFz5mwheEg17WtMLRWgQJpSWS7N43APUU/kX06DxxcV/sRiJCQrhifsl
+aNAx3TNia0Vi1euhew+X0fCb8mtaokzi2HHjKEaKhrdfKqvF2PkrBdLDQIaG
+SEEHYU4ngbuyeYLD5dn9lEUcNW6Q6GPiePOTIg17ZpLsVJaTmDpcck1VmYb1
+ns/+y2bx1IVKXLq0jt3vqXFz3SSrx3Xe52vVaLCofTR8cIDVY2Oj5zINGr4m
+iDAhciTu9VA946ZFAyNdf2m3IomXxILdnurQcOn+GsuYa6weuX1H5+nTUJar
+NTsZQGKLpeFhawMaFKZV5wyy+pgdT7ZPN6JhynVselsxicr3pqx/GNOgnfdL
+esERAm207PYZ7qHhmGez43k1Em98KDSNNKfBiMfemNhBYq6f2K7ufTS8WhVu
+esSXxA/L3bdvsKZBmj9FPcOYxDmltfpX7WhYtNV81RSrTzVHJZ16B3b8oIKv
+ix6JB2cDNKUO00C4dDxUTCYxKKVb7ZQzDc802i32s+tDE5sjs11ouCoFXgVL
+Sbx7/9+xb24s/k9r1xrIkxgTXWCpeJqGjB+8ro7qJMZFpBceO0vDLR+PW001
+JCaFxC5J86KhwUKj7lgliQ+DAs9/OUeDu0ZNX+BcEjMDLrSv8qPBdYW4+SF/
+EnOuuWkfukxDkHLuiv++k5h/6UB80jUaolUmvqXvIrHggsmfDn+2P7KU9vGd
+JD7z3uqwLJCGybedUUQXiaVnVUttg2mQt+dd0bGEg+WnVq68F0pDcPEKjrAQ
+ia9dha+2RtAwmKy4c/QtibVH/3YtiqZhsfNoPPc+iQ2HGdh3jwbuDUHJxh1s
+fjh8SY2IZ+u1sRe67kRiu20Lb0MSDXVqS94YDJHYaVnhLJTK6ndt6bkSRw52
+WxRWmKTR8E7GByPmsP7ak6EQnEmD3NOwpZQ1iYPG9269yaahQN92aW8pidT2
+oP65eTQk2CR7PjrAwTHwNTYiaVgoJnU4wJXEX1tPPPYvoCEsauh9KMvHlJb9
+glfFNNzU5H2vacRBHo09J/+WsHqTvSNztoHlW033rd5LGiqmO9coSnJRQHWd
+6uVyGjZYjAZa5pG4cI102PMKGpRyvFpqtDi4SEGEmqiiQebSXsvqijyUkOGx
+0KqlYdhFzL7bkMTlUt+Jc/U0iCa6mvW+IXGVZI9oYRO7XlA+JvU2iQri7zzH
+3tHQ0ninIs2cg2tEK1vU2mkIzKrjHU4hUVWoaNPZDhq0FkyaeJWRqC6QGZP3
+icXX1GfX787m15z7P4e7aTA37R31/s1BHZ7bNsq9NHhEjK4984pE/Wnfp27f
+aMjldd+2jdXL9okTkllDbP39f7LCeTm4a9zer2+UButu6yv7NhJoyuzpkP/O
+4re9kVr6l8C9I7pbncdZ/5wa99OyYfN9YF1S6m8aOEJtfV9vcdC+V3qm6w8N
+SbN1Xa6HSDzULXJo5Syrxw1jMV6XCNzofv1zHg8D0X3xfT7vCdQYmRAx42Pg
+qPZx0bXtLP6TnttG+Bkwt8o0m/8wH7UHBj1C5jLwPdlTImSQRJ3jzg+V5zOQ
+w/HL9AzloG5vR3ONAAOHxkrnKw1wUd/Zku+EIANZVruTCrLz0aD77UYBIQZM
+Vm5wrRfIR6NDRkezFjLwzXsVh17HxZ2dpdE7RRhwa+qRq3rJ1m+vWdknykB2
+mnGGvlI+mnzIG7+5iIFy5/D68FVsP2wUVyuIM3DX4am57ORjNG9Ntq5YwoBE
+1UKnYvVc3Lt/aaDzUgbORqRZv+0vQMumiGLeZQyca3xglGOVhwq7IsUqlzPw
+ukxBe0aFi+MYdTpQioFfUX2Bz8YfY6VWzJtd0gwcUOnN2RfE5gERK/ePDAP/
+eH1Ii7mfj8eU7l+pl2XA2kduZgeZg5opcR8i5Blodb7KJ5xE4rylCZv2r2Zg
+w4ytjFgEiW3hieHiSgzI64FpfDYXM+c9GGxbw4BAXv2/bdu5eOFqslG8MgMV
+kekD98cKcdevlBQHVZYfJ1M/4StZKOn+8M/K9QxsEbZxXq7MwYG+R9bdGxiI
+46jUkMK5WOKYTj5SZ+DN+ajSe2vy8c77jH9cNjEg47Lp8BabArQ3yzqupMnA
+pERidfq5VFR+/fjV4GYGBna2WzgcyMMp3RypXG0GHC4P8Io/Lsa6wicX3HUY
+6L56danSSQ4mqea1qOkyoB74IiCB5fd0ev66H3psf45zXXYac1BPirxdBAwM
+RfZC57dMFI7hfL1gwEDD1vuHar8/wa5/CvR1tjPQbOij2dVUhPkBhfHTRixf
+6br+gaZ5eG2qaLxsJwNS8bnPJ8RzcK/3U4sbuxgQPdYv6v2YizLDz3K2m7D/
+d+oRMuErQMb5+dx5pgycn/ikK+NQhK86XjhVm7HzV5sJPP3Cwaj9L1/csWCA
+0pMtOSmSj861ZRJm+xhYPvEylecBBzcalnuKWDIwWunx2jaVi/zPX9U1WzFg
+qCnWrEZkY6t6hVKMDQP9/8ZaygTnYXp2pb+NHQNiIgle0orF6CNb9UnSnoHH
+Z3oWrzz4CHfEv9H+z4GBU+nyFmpmRSghVhP9wJGBUJf7kWHs/bL/di11mM1g
+yR0OOVPcLCzmqdstd4SBZFWplpsF7PnkW5/e68z6z8uc0+TEQTum4W/mMQbq
+bI78cozNxzVuTfYnjjOw8W7tHoV69vz+3Fyk4sbAVd6ZZpM5BVht+06UOsFA
+lePnMtcjRRjX2HqKPMXqc9mDyW2nSDxh3FbldYaBzVEC8nzPWf9iu6zmWQZq
+dvxyi7Zk719aHy//9mDAIzGMZ2xZDnbkd7SXeDEgmyv06sd3LuYodm687MOA
+TmHzkkhpEi8mfwrTP8/6XfN5pnxoAe6R+DzA48uAEYzP9VbKQqnw7u0Vfuw3
+uez9sWECR+b2JN+6xEDC5MGj+5sLsPTK10njKyz/CbMlQo5cDPvZayV4jYEe
+gQWbuwef4qEz/UTddQZavv+xWyiYjOv7vglG+LN83xEQmZmfhbMHB1323WRA
+r1aJ19HqETa2DpUvDmTzReDVFe6HHEw1HVnRFsTAp+W+Dy985KJH5ej5uGAG
+7OVaQv3Y/l/m76jWDWGg8qRdUsBwGd42rFr+JZSBDrMpgd/zCjHmBvf0rXAG
+NPlC5B3bCjC1PLls7V0GurbxZ91SSsPcv3dEGyIZGNFdUf9K6QU+07/g7BXN
+AFc+Nmp9TSZWXjlaKBHLgF2tTtj8w8XYVGox78U9Nh9igh76sPnRObXV7nAc
+A4qk78ipk09xQGdNDn8CA8eG7CRsk4tx3E98OiuRgerBkS3XbfKQp4TH3PQB
+i9daZILPIxU3FHFiP6Wxeciv15k6zwpvc8O0zmUw8FKv1u3aznL8H0htRQE=
+
+ "]],
+ LineBox[{{1.04458146886063, -0.12715141884517137`}, {
+ 1.0448164223440553`, -0.08100721066180927}, {
+ 1.0452172707432958`, -0.0690617774251706}, {
+ 1.0456181191425364`, -0.038038671900564786`}, {
+ 1.046018967541777, -0.0137301993331439}, {
+ 1.0464198159410176`, -0.05796007667632367}, {
+ 1.0468206643402582`, -0.05619608161299451}, {1.0472215127394988`,
+ 0.0311662702462044}, {1.0476223611387394`, -0.0670354265198086}, {
+ 1.04802320953798, -0.06430742962704164}, {
+ 1.0484240579372206`, -0.10632755246109776`}, {
+ 1.0488249063364612`, -0.07031685013637146}, {1.0492257547357018`,
+ 0.04572780603238796}, {1.0496266031349424`, -0.12459768681464345`}, {
+ 1.050027451534183, -0.12144485316037809`}, {
+ 1.0504282999334236`, -0.05102101641030214}, {
+ 1.0506031333758545`, -0.12715141884517137`}}],
+ LineBox[{{1.0688412522278556`, -0.12715141884517137`}, {
+ 1.069672215655139, -0.09729196243942799}, {
+ 1.0701066011109068`, -0.06043343163283453}, {1.0705409865666744`,
+ 0.043027345594859545`}, {1.070975372022442, -0.043712394147389574`}, {
+ 1.0714097574782095`, -0.07749323716759543}, {
+ 1.0718441429339771`, -0.08285484271749935}, {
+ 1.0722785283897447`, -0.07924480267655801}, {
+ 1.0727129138455123`, -0.06929986977683093}, {1.0731472993012798`,
+ 0.048617150507769435`}, {1.0732334547755669`, -0.12715141884517137`}}],
+ LineBox[{{1.0525317590763554`, -0.12715141884517137`}, {
+ 1.0528333903288671`, 0.048110276174494204`}, {
+ 1.0532342387281077`, -0.004612443370443392}, {
+ 1.0536350871273483`, -0.010276910542524068`}, {
+ 1.054035935526589, -0.015882254342161894`}, {1.0544367839258295`,
+ 0.06571661642213628}, {1.054722276347207, -0.12715141884517137`}}],
+ LineBox[{{1.0617140105268283`, -0.12715141884517137`}, {
+ 1.061853277451322, -0.07330261492568503}, {
+ 1.0622876629070896`, -0.028417455651891868`}, {
+ 1.0627220483628572`, -0.05698633231320891}, {1.0631564338186248`,
+ 0.014722233991830716`}, {1.06334572264593, -0.12715141884517137`}}],
+ LineBox[{{1.040422185817435, -0.12715141884517137`}, {
+ 1.0408079383516493`, -0.02699172195970935}, {
+ 1.04120878675089, -0.12566502841199423`}, {1.0416096351501305`,
+ 0.033069233372538365`}, {1.042010483549371, -0.05334788867194043}, {
+ 1.0424113319486117`, -0.1007302627771202}, {
+ 1.0428121803478523`, -0.1027032764965819}, {1.0432130287470929`,
+ 0.007671781581638185}, {1.0436138771463335`, -0.0008442695097604369}, {
+ 1.044014725545574, -0.07231866974829256}, {
+ 1.0442661681952854`, -0.12715141884517137`}}],
+ LineBox[{{1.0550408890928389`, -0.12715141884517137`}, {
+ 1.0552384807243107`, -0.05139327779713099}, {1.0556393291235513`,
+ 0.06091673913314116}, {1.056040177522792, -0.08764829918402836}, {
+ 1.0564217678014987`, 0.07449280271541253}}],
+ LineBox[{{1.0608395658147565`, -0.12715141884517137`}, {
+ 1.060984506539787, -0.04058646751601846}, {
+ 1.061171886746682, -0.12715141884517137`}}],
+ LineBox[{{1.0511336143035634`, -0.12715141884517137`}, {
+ 1.0512299967319048`, -0.09599626495639119}, {
+ 1.0516308451311454`, -0.069671971010399}, {
+ 1.0517882473298967`, -0.12715141884517137`}}],
+ LineBox[{{1.059292590062199, -0.12715141884517137`}, {
+ 1.0596813501724842`, 0.003968731693219388}, {
+ 1.0601157356282518`, -0.11475228666739426`}, {
+ 1.06014480700953, -0.12715141884517137`}}],
+ LineBox[{{1.1278491929234813`, 0.07449280271541253}, {
+ 1.1278676418493707`, 0.013885810366896137`}, {1.1278721922087194`,
+ 0.07449280271541253}}],
+ LineBox[{{1.1183009056070037`, -0.12715141884517137`}, {
+ 1.11831985709561, 0.0421241880426535}, {1.118324089387338,
+ 0.07449280271541253}}],
+ LineBox[{{1.0564621923077666`, 0.07449280271541253}, {
+ 1.056841874321273, -0.07229265657852356}, {
+ 1.0572427227205137`, -0.0314086986246674}, {1.0575992616163907`,
+ 0.07449280271541253}}],
+ LineBox[{{1.1230618980969478`, 0.07449280271541253}, {
+ 1.1230937494724902`, 0.04432394681431716}, {
+ 1.1231034472142043`, -0.12715141884517137`}}],
+ LineBox[{{1.0576743725765796`, 0.07449280271541253}, {
+ 1.0580444195189949`, -0.08362386254040287}, {
+ 1.0584452679182355`, -0.0022412554881547364`}, {
+ 1.0586987641821501`, -0.12715141884517137`}}],
+ LineBox[{{1.0812979151848015`, -0.12715141884517137`}, {
+ 1.0814006229608641`, -0.05342570848251956}, {1.0815727530233472`,
+ 0.07449280271541253}}],
+ LineBox[{{1.0656031475361432`, -0.12715141884517137`}, {
+ 1.0657627465532307`, -0.07630669656632035}, {
+ 1.0659226371687491`, -0.12715141884517137`}}],
+ LineBox[{{1.0865239074751056`, 0.07449280271541253}, {
+ 1.0866132484300755`, -0.10648913569315868`}, {1.0867084759553252`,
+ 0.07449280271541253}}],
+ LineBox[{{1.0872496998409922`, 0.07449280271541253}, {
+ 1.087312912522736, -0.12715141884517137`}}],
+ LineBox[{{1.0662683559885446`, -0.12715141884517137`}, {
+ 1.0664328897121091`, 0.07449280271541253}}],
+ LineBox[{{1.0940559296209533`, -0.12715141884517137`}, {
+ 1.0941112571424068`, 0.07449280271541253}}],
+ LineBox[{{1.0801301773309344`, -0.12715141884517137`}, {
+ 1.080269645174969, 0.07449280271541253}}],
+ LineBox[{{1.1075946282503075`, -0.12715141884517137`}, {
+ 1.1076411841705718`, 0.07449280271541253}}],
+ LineBox[{{1.0905777673916133`, -0.12715141884517137`}, {
+ 1.0906868068856856`, 0.07449280271541253}}],
+ LineBox[{{1.0768656662013583`, -0.12715141884517137`}, {
+ 1.0769695932150103`, 0.07449280271541253}}],
+ LineBox[{{1.1042749830445402`, 0.07449280271541253}, {
+ 1.104418723815478, -0.12715141884517137`}}],
+ LineBox[{{1.083673102634242, -0.12715141884517137`}, {
+ 1.0837185955445492`, 0.07449280271541253}}],
+ LineBox[{{1.1367022168838836`, -0.12715141884517137`}, {
+ 1.1367071290924649`, 0.07449280271541253}}],
+ LineBox[{{1.0750899688293536`, -0.12715141884517137`}, {
+ 1.0752341733111022`, 0.07449280271541253}}],
+ LineBox[{{1.1026230607695797`, -0.12715141884517137`}, {
+ 1.1026398796083747`, 0.07449280271541253}}],
+ LineBox[{{1.1224512352525724`, -0.12715141884517137`}, {
+ 1.122541225482502, 0.07449280271541253}}],
+ LineBox[{{1.109329742710124, 0.07449280271541253}, {
+ 1.1093443603009903`, -0.12715141884517137`}}],
+ LineBox[{{1.0646670123707738`, -0.12715141884517137`}, {
+ 1.064875413692825, 0.07449280271541253}}],
+ LineBox[{{1.0923345495463512`, -0.12715141884517137`}, {
+ 1.0923677381766328`, 0.07449280271541253}}],
+ LineBox[{{1.1193960898346766`, -0.12715141884517137`}, {
+ 1.1194190943448272`, 0.07449280271541253}}],
+ LineBox[{{1.0784669935070885`, -0.12715141884517137`}, {
+ 1.078669905295902, 0.07449280271541253}}],
+ LineBox[{{1.1257219657812667`, -0.12715141884517137`}, {
+ 1.1257298699473988`, 0.07449280271541253}}],
+ LineBox[{{1.1382766777558921`, -0.12715141884517137`}, {
+ 1.1382790636073221`, 0.07449280271541253}}],
+ LineBox[{{1.0882326025855238`, 0.07449280271541253}, {
+ 1.088321397664818, -0.12715141884517137`}}],
+ LineBox[{{1.101727400520805, -0.12715141884517137`}, {
+ 1.1017634515781554`, 0.07449280271541253}}],
+ LineBox[{{1.067096344338656, -0.12715141884517137`}, {
+ 1.0674044381408194`, 0.07449280271541253}}],
+ LineBox[{{1.0948364857598376`, -0.12715141884517137`}, {
+ 1.0949121947060478`, 0.07449280271541253}}],
+ LineBox[{{1.1216702417750446`, -0.12715141884517137`}, {
+ 1.121680787023959, 0.07449280271541253}}],
+ LineBox[{{1.1086857759012918`, -0.12715141884517137`}, {
+ 1.1087201398889595`, 0.07449280271541253}}],
+ LineBox[{{1.063788705570214, -0.12715141884517137`}, {1.064005919360072,
+ 0.07449280271541253}}],
+ LineBox[{{1.1312183216671718`, 0.07449280271541253}, {
+ 1.1312259128619704`, -0.12715141884517137`}}],
+ LineBox[{{1.0983747466232903`, -0.12715141884517137`}, {
+ 1.0984072063654442`, 0.07449280271541253}}],
+ LineBox[{{1.1247474299120432`, 0.07449280271541253}, {
+ 1.1247563635841518`, -0.12715141884517137`}}],
+ LineBox[{{1.084568552381722, -0.12715141884517137`}, {
+ 1.0846522492424844`, 0.07449280271541253}}],
+ LineBox[{{1.1121024468035086`, 0.07449280271541253}, {
+ 1.1121487751126127`, -0.12715141884517137`}}],
+ LineBox[{{1.1375526323157947`, -0.12715141884517137`}, {
+ 1.1375565945416584`, 0.07449280271541253}}],
+ LineBox[{{1.089860762239657, 0.07449280271541253}, {
+ 1.0899276810341367`, -0.12715141884517137`}}],
+ LineBox[{{1.1424431155662857`, -0.12715141884517137`}, {
+ 1.1424497731289571`, 0.07449280271541253}}],
+ LineBox[{{1.1034797669516037`, -0.12715141884517137`}, {
+ 1.1035591928871193`, 0.07449280271541253}}],
+ LineBox[{{1.1295043917067307`, -0.12715141884517137`}, {
+ 1.129509193956499, 0.07449280271541253}}],
+ LineBox[{{1.096651018700637, -0.12715141884517137`}, {
+ 1.0966786538291797`, 0.07449280271541253}}],
+ LineBox[{{1.1102905756025585`, -0.12715141884517137`}, {
+ 1.1103366530390746`, 0.07449280271541253}}],
+ LineBox[{{1.093178232722801, 0.07449280271541253}, {
+ 1.093255790077084, -0.12715141884517137`}}],
+ LineBox[{{1.079551916558463, -0.12715141884517137`}, {
+ 1.0796348857710965`, 0.07449280271541253}}],
+ LineBox[{{1.1069248362518376`, -0.12715141884517137`}, {
+ 1.106937622391518, 0.07449280271541253}}],
+ LineBox[{{1.0876232912189767`, -0.12715141884517137`}, {
+ 1.0876817975945428`, 0.07449280271541253}}],
+ LineBox[{{1.066858920826977, 0.07449280271541253}, {
+ 1.0670472908882358`, -0.12715141884517137`}}],
+ LineBox[{{1.094543003085427, 0.07449280271541253}, {
+ 1.094615868247413, -0.12715141884517137`}}],
+ LineBox[{{1.1211685266306866`, 0.07449280271541253}, {
+ 1.1211882721998399`, -0.12715141884517137`}}],
+ LineBox[{{1.0807329635167586`, 0.07449280271541253}, {
+ 1.0808399347120847`, -0.12715141884517137`}}],
+ LineBox[{{1.1081112562420379`, 0.07449280271541253}, {
+ 1.108136830956693, -0.12715141884517137`}}],
+ LineBox[{{1.1340213827826848`, 0.07449280271541253}, {
+ 1.134025157680538, -0.12715141884517137`}}],
+ LineBox[{{1.091027719276124, 0.07449280271541253}, {
+ 1.0911054381092113`, -0.12715141884517137`}}],
+ LineBox[{{1.0772241026294451`, 0.07449280271541253}, {
+ 1.0774235922638242`, -0.12715141884517137`}}],
+ LineBox[{{1.0843177402766606`, 0.07449280271541253}, {
+ 1.0843667775158032`, -0.12715141884517137`}}],
+ LineBox[{{1.1115831998707213`, -0.12715141884517137`}, {
+ 1.1116084675494122`, 0.07449280271541253}}],
+ LineBox[{{1.1372720141124182`, 0.07449280271541253}, {
+ 1.1372760393371668`, -0.12715141884517137`}}],
+ LineBox[{{1.0892518580418478`, -0.12715141884517137`}, {
+ 1.0893257241546566`, 0.07449280271541253}}],
+ LineBox[{{1.1165777489635786`, 0.07449280271541253}, {
+ 1.1165844194354138`, -0.12715141884517137`}}],
+ LineBox[{{1.1423522276141207`, 0.07449280271541253}, {
+ 1.142356534014575, -0.12715141884517137`}}],
+ LineBox[{{1.1031437894234823`, 0.07449280271541253}, {
+ 1.1031722715069663`, -0.12715141884517137`}}],
+ LineBox[{{1.1292596918519604`, 0.07449280271541253}, {
+ 1.1292787316042234`, -0.12715141884517137`}}],
+ LineBox[{{1.096016793448444, 0.07449280271541253}, {
+ 1.0960626988613469`, -0.12715141884517137`}}],
+ LineBox[{{1.0824099091183577`, 0.07449280271541253}, {
+ 1.0825503851589369`, -0.12715141884517137`}}],
+ LineBox[{{1.0649193760326336`, 0.07449280271541253}, {
+ 1.0652045548729046`, -0.12715141884517137`}}],
+ LineBox[{{1.0788426551485253`, 0.07449280271541253}, {
+ 1.078921508572011, -0.12715141884517137`}}],
+ LineBox[{{1.132439017909045, -0.12715141884517137`}, {
+ 1.1324460392471287`, 0.07449280271541253}}],
+ LineBox[{{1.1020981213611547`, 0.07449280271541253}, {
+ 1.1021193661040047`, -0.12715141884517137`}}],
+ LineBox[{{1.0675920545060928`, 0.07449280271541253}, {
+ 1.0678870206654916`, -0.12715141884517137`}}],
+ LineBox[{{1.1222523954297676`, 0.07449280271541253}, {
+ 1.1222693128017154`, -0.12715141884517137`}}],
+ LineBox[{{1.13476331328854, -0.12715141884517137`}, {
+ 1.1347666650642276`, 0.07449280271541253}}],
+ LineBox[{{1.064043710196815, 0.07449280271541253}, {
+ 1.064252139826473, -0.12715141884517137`}}],
+ LineBox[{{1.1189288383777012`, 0.07449280271541253}, {
+ 1.1189429831589068`, -0.12715141884517137`}}],
+ LineBox[{{1.098759274614051, 0.07449280271541253}, {
+ 1.098800508463022, -0.12715141884517137`}}],
+ LineBox[{{1.138089532458702, 0.07449280271541253}, {
+ 1.138093797653557, -0.12715141884517137`}}],
+ LineBox[{{1.0762325236422448`, 0.07449280271541253}, {
+ 1.0763492163702928`, -0.12715141884517137`}}],
+ LineBox[{{1.0970421373423476`, 0.07449280271541253}, {
+ 1.0970710124232133`, -0.12715141884517137`}}],
+ LineBox[{{1.123735353307619, -0.12715141884517137`}, {
+ 1.1237425160338506`, 0.07449280271541253}}],
+ LineBox[{{1.110550718389034, 0.07449280271541253}, {
+ 1.1105637948113287`, -0.12715141884517137`}}],
+ LineBox[{{1.1364667371813162`, 0.07449280271541253}, {
+ 1.13647534344706, -0.12715141884517137`}}],
+ LineBox[{{1.0797568437182699`, 0.07449280271541253}, {
+ 1.0800327545641917`, -0.12715141884517137`}}],
+ LineBox[{{1.1074413768967362`, 0.07449280271541253}, {
+ 1.1074704083910685`, -0.12715141884517137`}}],
+ LineBox[{{1.1141385427855393`, -0.12715141884517137`}, {
+ 1.1141596676284378`, 0.07449280271541253}}]},
+ Annotation[#, "Charting`Private`Tag$11103#1"]& ]}, {}},
+ 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.3}, {-0.12715141884517137`, 0.07449280271541253}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.05],
+ Scaled[0.05]}},
+ Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{{3.8366369549772873`*^9, 3.836637016450595*^9},
+ 3.836637052978693*^9, 3.836637092719392*^9, {3.83663717618913*^9,
+ 3.836637185880966*^9}},
+ CellLabel->
+ "Out[114]=",ExpressionUUID->"71db5afd-85a1-44e1-ad03-af40c671e576"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"a", "[", "n", "]"}], "/.",
+ RowBox[{"rs", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.836636820590741*^9,
+ 3.836636834853714*^9}},ExpressionUUID->"0322275c-e86b-4a68-8bf8-\
+7d573ddeaa03"],
+
Cell[BoxData[{
RowBox[{
RowBox[{"n11", "=", "2"}], ";"}], "\[IndentingNewLine]",
@@ -5003,7 +6720,9 @@ Cell[BoxData[
RowBox[{
RowBox[{"{",
RowBox[{
- RowBox[{"1", "/", "#"}], ",",
+ RowBox[{"1", "/",
+ RowBox[{"(",
+ RowBox[{"#", "+", "1"}], ")"}]}], ",",
RowBox[{"Abs", "[",
FractionBox[
RowBox[{"gC", "[", "#", "]"}],
@@ -5014,9 +6733,9 @@ Cell[BoxData[
RowBox[{"sol", "[", "8", "]"}]}], ",", "x", ",", "x"}], "]"}]}]], "Input",\
CellChangeTimes->{{3.829818558318021*^9, 3.8298185742774763`*^9}, {
- 3.8365590234040613`*^9, 3.8365590240838547`*^9}},
- CellLabel->
- "In[116]:=",ExpressionUUID->"84fba399-0d44-478f-82db-cf6e8f6da218"],
+ 3.8365590234040613`*^9, 3.8365590240838547`*^9}, {3.8366422915715723`*^9,
+ 3.836642295154957*^9}},
+ CellLabel->"In[79]:=",ExpressionUUID->"84fba399-0d44-478f-82db-cf6e8f6da218"],
Cell[BoxData[
TagBox[
@@ -5024,33 +6743,165 @@ Cell[BoxData[
TagBox[
PanelBox[
TagBox[
- RowBox[{"0.5080812245083652`", "\[VeryThinSpace]", "-",
- RowBox[{"0.6748327434868283`", " ", "x"}]}],
+ RowBox[{"0.5391980874382614`", "\[VeryThinSpace]", "-",
+ RowBox[{"1.0129727507844952`", " ", "x"}]}],
Short[#, 2]& ],
FrameMargins->5],
Editable -> False], "]"}],
InterpretTemplate[
FittedModel[{
"Linear", {
- 0.5080812245083652, -0.6748327434868283}, {{Schofield`x}, {
+ 0.5391980874382614, -1.0129727507844952`}, {{Schofield`x}, {
1, Schofield`x}}, {0, 0}}, {{1., 1., 1., 1., 1., 1.}}, {{
- Rational[1, 3], 0.2872181440389159}, {
- Rational[1, 4], 0.33146283230281576`}, {
- Rational[1, 5], 0.3739636589390381}, {
- Rational[1, 6], 0.39486900716307377`}, {
- Rational[1, 7], 0.4175955275443413}, {
- Rational[1, 8], 0.4215283001726909}}, {{1., 0.3333333333333333}, {1.,
- 0.25}, {1., 0.2}, {1., 0.16666666666666666`}, {1.,
- 0.14285714285714285`}, {1., 0.125}},
+ Rational[1, 4], 0.28721814316073485`}, {
+ Rational[1, 5], 0.3314628337448561}, {
+ Rational[1, 6], 0.37396365944185633`}, {
+ Rational[1, 7], 0.3948690096052332}, {
+ Rational[1, 8], 0.41759552937968725`}, {
+ Rational[1, 9], 0.42152830496454224`}}, {{1., 0.25}, {1., 0.2}, {1.,
+ 0.16666666666666666`}, {1., 0.14285714285714285`}, {1., 0.125}, {1.,
+ 0.1111111111111111}},
Function[Null,
Internal`LocalizedBlock[{Schofield`x}, #], {HoldAll}]]& ],
Editable->False,
SelectWithContents->True,
Selectable->True]], "Output",
CellChangeTimes->{3.829818574675065*^9, 3.830592419572762*^9,
- 3.832141012920486*^9, 3.8365513269023647`*^9, 3.836559024372995*^9},
- CellLabel->
- "Out[116]=",ExpressionUUID->"02dbba72-48dd-4d6e-a3f4-616d0d33e3f7"]
+ 3.832141012920486*^9, 3.8365513269023647`*^9, 3.836559024372995*^9,
+ 3.836642257886099*^9, 3.836642295469472*^9},
+ CellLabel->"Out[79]=",ExpressionUUID->"fc27ce97-44b5-4fd9-9fc6-8e3a80767ebc"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{
+ "\"\<~/doc/research/first_order_singularities/paper/data/h_series_ours_\
+\>\"", "<>",
+ RowBox[{"ToString", "[",
+ RowBox[{
+ RowBox[{"Length", "[", "#", "]"}], "-", "1"}], "]"}], "<>",
+ "\"\<.dat\>\""}], ",", "#"}], "]"}], "&"}], "@",
+ RowBox[{
+ RowBox[{"Select", "[",
+ RowBox[{"#", ",",
+ RowBox[{
+ RowBox[{"MatchQ", "[",
+ RowBox[{
+ RowBox[{"#", "[",
+ RowBox[{"[", "1", "]"}], "]"}], ",",
+ RowBox[{"gC", "[", "_", "]"}]}], "]"}], "&"}]}], "]"}], "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "&"}], "/@",
+ RowBox[{"(",
+ RowBox[{"sol", "/@",
+ RowBox[{"Range", "[",
+ RowBox[{"0", ",", "9"}], "]"}]}], ")"}]}]], "Input",
+ CellChangeTimes->{{3.836635032005722*^9, 3.836635199871915*^9}},
+ CellLabel->"In[59]:=",ExpressionUUID->"5e586711-0483-46d1-bccb-b6897d71c1e8"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"\<\"~/doc/research/first_order_singularities/paper/data/h_series_\
+ours_0.dat\"\>",
+ ",", "\<\"~/doc/research/first_order_singularities/paper/data/h_series_\
+ours_1.dat\"\>",
+ ",", "\<\"~/doc/research/first_order_singularities/paper/data/h_series_\
+ours_3.dat\"\>",
+ ",", "\<\"~/doc/research/first_order_singularities/paper/data/h_series_\
+ours_5.dat\"\>",
+ ",", "\<\"~/doc/research/first_order_singularities/paper/data/h_series_\
+ours_7.dat\"\>",
+ ",", "\<\"~/doc/research/first_order_singularities/paper/data/h_series_\
+ours_9.dat\"\>",
+ ",", "\<\"~/doc/research/first_order_singularities/paper/data/h_series_\
+ours_11.dat\"\>",
+ ",", "\<\"~/doc/research/first_order_singularities/paper/data/h_series_\
+ours_13.dat\"\>",
+ ",", "\<\"~/doc/research/first_order_singularities/paper/data/h_series_\
+ours_15.dat\"\>",
+ ",", "\<\"~/doc/research/first_order_singularities/paper/data/h_series_\
+ours_17.dat\"\>"}], "}"}]], "Output",
+ CellChangeTimes->{{3.836635174506671*^9, 3.83663520034276*^9}},
+ CellLabel->"Out[59]=",ExpressionUUID->"2fa1caa4-ef1f-4ffd-8afc-94b16ed218ad"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"sol", "[", "8", "]"}]], "Input",
+ CellChangeTimes->{{3.836642799646229*^9, 3.836642800676252*^9}},
+ CellLabel->"In[99]:=",ExpressionUUID->"0bf0ad7a-0c38-45b3-944f-2cd642717885"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]c", "\[Rule]", "1.3334703525280953`"}], ",",
+ RowBox[{"\[Theta]0", "\[Rule]", "0.19778787935116057`"}], ",",
+ RowBox[{"B", "\[Rule]", "2.4235087365229533`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.218253651057867`"}], ",",
+ RowBox[{"AL", "\[Rule]",
+ RowBox[{"-", "0.03284985506970219`"}]}], ",",
+ RowBox[{"AH", "\[Rule]",
+ RowBox[{"-", "2.4769028465994536`"}]}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.3332747845943111`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.5090565475955464`"}], ",",
+ RowBox[{
+ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.23349249303364117`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"-", "0.057959199832259715`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.00972440501261792`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"-", "0.0027930255510670615`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0009257841638784765`"}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "5", "]"}], "\[Rule]",
+ RowBox[{"-", "0.00034620963377731426`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00013670745520543857`"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "7", "]"}], "\[Rule]",
+ RowBox[{"-", "0.000057088422126665`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.000024064385812153366`"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "9", "]"}], "\[Rule]",
+ RowBox[{"-", "0.000010116685085061583`"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "10", "]"}], "\[Rule]", "4.024896822388197`*^-6"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "11", "]"}], "\[Rule]",
+ RowBox[{"-", "1.4759302841546342`*^-6"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "12", "]"}], "\[Rule]", "4.686997891981291`*^-7"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "13", "]"}], "\[Rule]",
+ RowBox[{"-", "1.236297202060465`*^-7"}]}], ",",
+ RowBox[{
+ RowBox[{"gC", "[", "14", "]"}], "\[Rule]", "2.3952779518055828`*^-8"}],
+ ",",
+ RowBox[{
+ RowBox[{"gC", "[", "15", "]"}], "\[Rule]",
+ RowBox[{"-", "2.9966680855911543`*^-9"}]}]}], "}"}]], "Output",
+ CellChangeTimes->{3.8366428008796597`*^9},
+ CellLabel->"Out[99]=",ExpressionUUID->"cb46a863-90ee-473f-82db-5dc2a45b693e"]
}, Open ]],
Cell[CellGroupData[{
@@ -5074,7 +6925,9 @@ Cell[BoxData[
RowBox[{
RowBox[{"{",
RowBox[{
- RowBox[{"1", "/", "#"}], ",",
+ RowBox[{"1", "/",
+ RowBox[{"(",
+ RowBox[{"#", "+", "1"}], ")"}]}], ",",
RowBox[{"Abs", "[",
FractionBox[
RowBox[{"gC", "[", "#", "]"}],
@@ -5085,7 +6938,7 @@ Cell[BoxData[
RowBox[{"(",
RowBox[{"sol", "/@",
RowBox[{"Range", "[",
- RowBox[{"5", ",", "9"}], "]"}]}], ")"}]}], ",",
+ RowBox[{"5", ",", "8"}], "]"}]}], ")"}]}], ",",
RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}], "\[IndentingNewLine]",
"]"}]], "Input",
CellChangeTimes->{{3.829389145648302*^9, 3.829389186097762*^9}, {
@@ -5094,97 +6947,87 @@ Cell[BoxData[
3.8298185821096287`*^9, 3.829818613078294*^9}, {3.8298187744413967`*^9,
3.829818790657673*^9}, {3.8305924758465347`*^9, 3.8305924789102793`*^9}, {
3.8321410149380083`*^9, 3.832141015105932*^9}, {3.836559029221187*^9,
- 3.8365590384044724`*^9}},
+ 3.8365590384044724`*^9}, {3.836642265138742*^9, 3.8366422821946363`*^9}, {
+ 3.8366427848603573`*^9, 3.8366427849643297`*^9}, {3.836642818917098*^9,
+ 3.83664281902882*^9}},
CellLabel->
- "In[117]:=",ExpressionUUID->"f15d8a52-1992-4696-8ead-3c4153434e55"],
+ "In[100]:=",ExpressionUUID->"f15d8a52-1992-4696-8ead-3c4153434e55"],
Cell[BoxData[
GraphicsBox[{{{{}, {},
TagBox[
{GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.],
LineBox[CompressedData["
-1:eJwVjHk41HkAh5Ei1jEdW5NUNCIVHZOKrQ9qS0WO8oweKcm1dFq7RW0Z15Yo
-G0uFopHNusYxrZb6Yn5DSeQeGmOS1Wjw04FFZe0f7/M+7z+vgdcpFx8VJSUl
-h2n+9x4feWNFv+s2w6MT0RtsZVDdvuh0N5ONNp7Oea61DBvu3kwtZu5ATB/r
-VMM2Gfa+aC9KYx7Ah0BHTqCVDBzvscc3mN6o+jnTmMeWocv81+1xzGB4xe57
-OsdYhvT5jtExzEhk/HVv9gdNGbjqxcZXmImwXZy08GhON9wOZhQMv89EcTPj
-LbNCCs0p7qFdSwpAxbxaFtDbBSPnIbnwagl8NA2vzdbqwtn6Lbj56RFC+22J
-33IJFpQwpMrKBGY1he4eu1/hYc/2uobvquCqMlnG8OhEVUCa3sEBClpqlY7z
-f+rAyIqtOnknauCt2bqPnyqGyniOrp5RLcxPCBkaRe2wmPJ8uD+/DrfqpzDZ
-1oa6SHZ9tWkDEsdLM6yU2rA0XjGePfQSyuH2NZYLWqEY65a2rm2CtoaZW+PW
-FmS+K6vVvtaMa3R/7gqXZmjr/0H39rYg/Y7hxucBTYj9QeCbzmqDk0O2iVpC
-I0atc3r9L7Uj+KCGTDn7JYLXUyXfCsU4Xhs00yStAd351NVGg050pkY1PRO+
-wGRAS8rK0FfwV7kxS+Pjc6yyUfvqWyYB28+SEWJTi133DPwKF0ghj07m+QQ+
-xVn9I4avD3Wj8378N9ySaqwecNVsd5BhiBMhsZwlwlydYXVqQgY5ZcoO2iCE
-KkkpWJ76GsvWnfQSX6pEILusY/beHoTx69aecyTI2e2V/mS0B0pG/IAL/DKM
-KBbp9iW9wefk585Sx1II9u+akbijF0/DnOysskpwyS7qbklfL3T9tQZGLAth
-0LVHzIv6B5sVoWWdlTmw3BSZyFzfB/n7vMfkfCYOLWkYV27ug7Uig13hnYKR
-2rie09y3SE/Q43S6X8FN1cPBLiw5lCQ+MR9GnchcqeCeCiWHtVgvhq8TR2b+
-wj2w5Uw/PHkNy11ZaUQp+3BBz5x3cOKLs/KO3SdBtwvi5lRNN2801bImlzxe
-dVmdcVKBYVby5ArVIsLYE7Q6XHsA/PHQSRdfAZGsedkcUj6AB24jigjGI8K/
-A1bv4UEse7TJnHOxnHgUWDD0vw7C7WN05mAHIWFRGVzJn0OQuFtE7SCVJE+u
-n6JtT6NlW9zRY0FCcjktylO6j8awjGE3ESIk3i6DRvnONHQjksx+4wrJ4vJy
-vgOHhn3N3ckn8UISc929OtaLBuVY9PuiAiHxt7j1XiOERqln+7NGhZAYRs6z
-U8uikRpusN7ahyJfN1/Qan9Ao5yVtbD9OEU6Bt80ZeXQEFebTp0Ipkg8p9hj
-ZyGNeZrsupQIikyZuvwYVU4jNmGn71gGRSSN1+/MaKYRlhl4O19KkdLosWPN
-rdP/ncNh3/dRJNHqyEqeePovD/aTDFJk732zElspjX9XX2RrfKHI3+dePOP2
-0wgWxNf76IlI0pqN150HaMRz5gs+G4rImZ7UAwY0jdzxWykJpiJiYn+8u+IT
-DflWnn/lFhFRVW7JjB+joS4zdnSzERGZwCrAc4KGSXjuRtpORMoDeOZrv9Cw
-Y61bHO0kIslLNUempmh4VwtU9N1E5D9pOn7F
+1:eJwV0H8803kcwHGWHtUpTfRjiuLGpeY4ueXX9c5xKKmMLtVolVSUH6WQK6fH
+1rniKBJFfkzK7ZEp4wr5OHbJ/BrDZrbvNpaG8dUJKXHdH6/H8/+X+fFI2kmC
+jo6O75f+d/dJTWf98IEdg4elvhvcVKDnbhKlIDnAynMifvoOFWzLz86tIHmA
+S2Kry2JXFfi0iZ/lkQIgg11nPU5VwcGQmZe3SSHgri1aXE9Rgdz2N/dUUgyw
+r4S/PLFOBQWr912/QWJCSMEchYMrIWlpxTe/kzJB/cZsufMDJQQeKuROvCsG
+Aa/8L+9+BegvJNG9zLggCG9BzFsYWPqNaxpv8qDJa7bRca8cYtudIPv9C+BP
+E0dZeD+s5RliuroI6i4ILzs/lkLVgHtrh2sDVDXG2yT/1AcNYXnrD2n5UOZI
+lfkOi2HK6oeVT841ATvh3uTl4l4gzHKI6y0FkHVLY+Pm0QPUBUaVf1krJF/E
+hBGfRNDKdGh/taUD4q6+jTR+0QUb00dnS8eFcPKw9Dv/I50wOqPAeuy6wE/v
+In3WWAjFIzUCgz9EEEeY9I8ObQMD00e4Wt0N3p4WbxVcAaScqQwtIPeCsVWh
+j+nm1zC9k6M+nSgGJWdyKuXMPxBjz+etaZRASdud6Ja+BlCU8W92mksh7I7+
+NlejevgU1n3f+nI/BOzd1+dUUQ1b3ZbMh9bI4HWpFZ6dVwleReannq7FwNXv
+YTrdpBxiTY9aqOgK8D52vTRh+CFQtAf0xb5K2JReRZ5j3wWjlRNL+R+VoCOV
+7LMfPgJ66D7361wVbLqzY//R8tso3KGmb5nPAEw0RrQowooRZ9fxgrrpAWCs
+tjQQ7uKiqVET4lDWIMQltLMaqnio0t9rUaaHGnZuGoxzpFajRG9WPm9IDcTU
+wGZiIELm8t0SNusNTDyrz9Sza0DO25mZJPshYMTrJraP8BHdrGNWVzQEQva/
+d5svNaEpQepAVNJb8NhMDL/tJEDZesExNLIGaonY2ZS2VmSEVRYR+Bpw5LIu
+ZQV0oMVXkgKcoodBJqKYbl/WiXRKg7kDq0ZgAyEyq2Z/Fzp/j5u6qmEEGEFN
+2pIKEXq5NXmpYcQolGQs9zIh9iDD3ecp1wy0oP1U6mh1oBfJbISi+FotONwK
+WpJTKUblD4CsDh6Dq4FnzhXPS1AQl2poOj8Ggo/HxNvdpOhXVmGS7M9xWCOI
+MrPP70dPNKb3DfbgENoinuO/kaHkPBYD24vDe8Zph9hRGQqhjVmW+eFwbfpD
+uPU7GdpQW1vuexCHInOT/tQ5GbqRduRVynEcpLH0Fz8bydFpas67r+JxoJFV
+FzU75ciCaey9pAQH1ysj4/q5cjTv+MsK8WMcWlclWNUVylHf2GBXCQeHwMf6
+wVGP5Cj9YEWQ51McYkSUtu5ncrSwhXaBVYtDuXUkJ69ZjmSdaQ8WiXAg906e
+sp2Ro+fXZ06IenDghTPzVXNylOly1JotwcFDd7U4g4Ahn4ff8n7EcGBQqJ4f
+VmCoOq6tOWkYh9xrceS/yRjKsvk+zU+LA2XdMvqFLRiKHsgNMMdxeP4kJ8PS
+DkOb95xV1L/HQSKpJtxwwZCebndx+gwOIRE+zq5uGFJWuoQxPn75tUgWPe6J
+odowtq3dZxyYOWdLC/Zg6O5G/amFBRyItp+VNBqG/gOcwou/
"]]},
- Annotation[#, "Charting`Private`Tag$97199#1"]& ]}, {}}, {{}, {{}, {},
+ Annotation[#, "Charting`Private`Tag$212290#1"]& ]}, {}}, {{}, {{}, {},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
- 0.011000000000000001`], AbsoluteThickness[1.6],
- LineBox[{{1., 0.03386354044785533}, {0.5, 0.1733289074924837}, {
- 0.3333333333333333, 0.2938840190011711}, {0.25,
- 0.32395130327547356`}, {0.2, 0.38180836997739953`}, {
- 0.16666666666666666`, 0.3774690447124678}, {0.14285714285714285`,
- 0.3666529828594004}, {0.125, 0.27635471537421336`}, {
- 0.1111111111111111, 0.18049436284161216`}}]},
+ 0.012833333333333334`], AbsoluteThickness[1.6],
+ LineBox[{{0.5, 0.03386354044658154}, {0.3333333333333333,
+ 0.17332890749347987`}, {0.25, 0.29388401900250233`}, {0.2,
+ 0.3239513032743725}, {0.16666666666666666`, 0.3818083699778129}, {
+ 0.14285714285714285`, 0.3774690447102467}, {0.125,
+ 0.3666529828584553}, {0.1111111111111111, 0.2763547153690956}, {0.1,
+ 0.1804943628430641}}]},
{RGBColor[0.880722, 0.611041, 0.142051], PointSize[
- 0.011000000000000001`], AbsoluteThickness[1.6],
- LineBox[{{1., 0.04342139485347643}, {0.5, 0.16847368895438666`}, {
- 0.3333333333333333, 0.28746202074745697`}, {0.25,
- 0.3289119602780734}, {0.2, 0.37545455921479015`}, {
- 0.16666666666666666`, 0.39415487022718315`}, {0.14285714285714285`,
- 0.40725359000386285`}, {0.125, 0.3772379858536565}, {
- 0.1111111111111111, 0.3275079566212321}, {0.1, 0.24187756327529944`}, {
- 0.09090909090909091, 0.1434788288297922}}]},
+ 0.012833333333333334`], AbsoluteThickness[1.6],
+ LineBox[{{0.5, 0.0434213948567056}, {0.3333333333333333,
+ 0.16847368895280285`}, {0.25, 0.2874620207457502}, {0.2,
+ 0.32891196028003933`}, {0.16666666666666666`, 0.37545455921533416`}, {
+ 0.14285714285714285`, 0.39415487023123924`}, {0.125,
+ 0.4072535900052133}, {0.1111111111111111, 0.37723798585573315`}, {0.1,
+ 0.3275079566189006}, {0.09090909090909091, 0.24187756327115179`}, {
+ 0.08333333333333333, 0.1434788288186017}}]},
{RGBColor[0.560181, 0.691569, 0.194885], PointSize[
- 0.011000000000000001`], AbsoluteThickness[1.6],
- LineBox[{{1., 0.045510056485418934`}, {0.5, 0.16824687748773778`}, {
- 0.3333333333333333, 0.2874598812881961}, {0.25,
- 0.33000315443316613`}, {0.2, 0.3736756473491878}, {
- 0.16666666666666666`, 0.3937471277833981}, {0.14285714285714285`,
- 0.41583550367462857`}, {0.125, 0.41183284027210915`}, {
- 0.1111111111111111, 0.3974438016857982}, {0.1, 0.35381677301423065`}, {
- 0.09090909090909091, 0.2995932923729993}, {0.08333333333333333,
- 0.22192572884227868`}, {0.07692307692307693,
- 0.13646873861345166`}}]},
+ 0.012833333333333334`], AbsoluteThickness[1.6],
+ LineBox[{{0.5, 0.04551005665748788}, {0.3333333333333333,
+ 0.1682468774112917}, {0.25, 0.28745988121253985`}, {0.2,
+ 0.33000315452400614`}, {0.16666666666666666`, 0.37367564737225095`}, {
+ 0.14285714285714285`, 0.393747127965738}, {0.125,
+ 0.4158355037751227}, {0.1111111111111111, 0.41183284046963714`}, {0.1,
+ 0.3974438017298968}, {0.09090909090909091, 0.3538167730464449}, {
+ 0.08333333333333333, 0.2995932922083586}, {0.07692307692307693,
+ 0.22192572865201826`}, {0.07142857142857142,
+ 0.13646873804919762`}}]},
{RGBColor[0.922526, 0.385626, 0.209179], PointSize[
- 0.011000000000000001`], AbsoluteThickness[1.6],
- LineBox[{{1., 0.04757563935748092}, {0.5, 0.16778018163065903`}, {
- 0.3333333333333333, 0.2872181440389159}, {0.25,
- 0.33146283230281576`}, {0.2, 0.3739636589390381}, {
- 0.16666666666666666`, 0.39486900716307377`}, {0.14285714285714285`,
- 0.4175955275443413}, {0.125, 0.4215283001726909}, {0.1111111111111111,
- 0.42040071207586666`}, {0.1, 0.39784738558787447`}, {
- 0.09090909090909091, 0.3667001407049202}, {0.08333333333333333,
- 0.31756226574711843`}, {0.07692307692307693, 0.26377164245391516`}, {
- 0.07142857142857142, 0.19374611207723832`}, {0.06666666666666667,
- 0.12510732167385166`}}]},
- {RGBColor[0.528488, 0.470624, 0.701351], PointSize[
- 0.011000000000000001`], AbsoluteThickness[1.6],
- LineBox[{{1., 0.057039274462070605`}, {0.5, 0.16485192792392503`}, {
- 0.3333333333333333, 0.2852785647978704}, {0.25,
- 0.33565665146391505`}, {0.2, 0.37610827427969334`}, {
- 0.16666666666666666`, 0.40195208854870285`}, {0.14285714285714285`,
- 0.4233852484320262}, {0.125, 0.4343330981103072}, {0.1111111111111111,
- 0.4378968397660534}, {0.1, 0.42750378416277346`}, {0.09090909090909091,
- 0.4046623590737428}, {0.08333333333333333, 0.36644105891829915`}, {
- 0.07692307692307693, 0.31462008110363016`}, {0.07142857142857142,
- 0.24895099753433161`}, {0.06666666666666667,
- 0.1644688826931476}}]}}, {{}, {}}}},
+ 0.012833333333333334`], AbsoluteThickness[1.6],
+ LineBox[{{0.5, 0.04757564221698085}, {0.3333333333333333,
+ 0.16778018055393132`}, {0.25, 0.28721814316073485`}, {0.2,
+ 0.3314628337448561}, {0.16666666666666666`, 0.37396365944185633`}, {
+ 0.14285714285714285`, 0.3948690096052332}, {0.125,
+ 0.41759552937968725`}, {0.1111111111111111, 0.42152830496454224`}, {
+ 0.1, 0.42040071847386606`}, {0.09090909090909091,
+ 0.39784739650850726`}, {0.08333333333333333, 0.3667001538883876}, {
+ 0.07692307692307693, 0.31756228206035175`}, {0.07142857142857142,
+ 0.263771657370611}, {0.06666666666666667, 0.19374612737240784`}, {
+ 0.0625, 0.1251073214001005}}]}}, {{}, {}}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
@@ -5197,7 +7040,7 @@ Y61bHO0kIslLNUempmh4VwtU9N1E5D9pOn7F
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
- ImageSize->{694., Automatic},
+ ImageSize->{946.9999999999994, Automatic},
Method->{
"DefaultBoundaryStyle" -> Automatic,
"DefaultGraphicsInteraction" -> {
@@ -5217,7 +7060,7 @@ Y61bHO0kIslLNUempmh4VwtU9N1E5D9pOn7F
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
- PlotRange->{{0, 1}, {-0.16675150520636628`, 0.5080812107362684}},
+ PlotRange->{{0, 1}, {-0.4737746426733205, 0.5391980667653481}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
@@ -5225,9 +7068,11 @@ Y61bHO0kIslLNUempmh4VwtU9N1E5D9pOn7F
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
- CellChangeTimes->{3.836559039398856*^9},
+ CellChangeTimes->{
+ 3.836559039398856*^9, {3.8366422756963463`*^9, 3.83664229934076*^9},
+ 3.8366427853817987`*^9, 3.836642819317855*^9},
CellLabel->
- "Out[117]=",ExpressionUUID->"f8904a8b-6a7b-448d-b741-ccfb9ed8ca1a"]
+ "Out[100]=",ExpressionUUID->"7c16b4f6-053a-49c7-adfb-2ff4cd3d1825"]
}, Open ]],
Cell[CellGroupData[{
@@ -5235,29 +7080,28 @@ Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"ListPlot", "[",
RowBox[{"Evaluate", "[",
- RowBox[{"{",
- RowBox[{
- RowBox[{"\[Theta]c", "/.", "sol4"}], ",",
- RowBox[{"\[Theta]c", "/.", "sol5"}], ",",
- RowBox[{"\[Theta]c", "/.", "sol6"}], ",",
- RowBox[{"\[Theta]c", "/.", "sol7"}], ",",
- RowBox[{"\[Theta]c", "/.", "sol8"}], ",",
- RowBox[{"\[Theta]c", "/.", "sol9"}]}], "}"}], "]"}], "]"}]], "Input",
- CellChangeTimes->{{3.829818659920289*^9, 3.829818682775441*^9}},
- CellLabel->
- "In[177]:=",ExpressionUUID->"f9fe281b-b610-448a-b868-789cd1438874"],
+ RowBox[{"\[Theta]c", "/.",
+ RowBox[{"sol", "/@",
+ RowBox[{"Range", "[",
+ RowBox[{"0", ",", "9"}], "]"}]}]}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.829818659920289*^9, 3.829818682775441*^9}, {
+ 3.836634006009836*^9, 3.836634029338172*^9}, {3.8366349939326143`*^9,
+ 3.8366349940600033`*^9}},
+ CellLabel->"In[56]:=",ExpressionUUID->"f9fe281b-b610-448a-b868-789cd1438874"],
Cell[BoxData[
GraphicsBox[{{},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
AbsoluteThickness[1.6],
- PointBox[{{1., 1.2218378624978474`}, {2., 1.274191754122906}, {3.,
- 1.2801585259162902`}, {4., 1.3192691278984203`}, {5.,
- 1.3261202518532917`}, {6., 1.3334703493525415`}}]}, {{}, {}}},
+ PointBox[{{1., 1.194264963194592}, {2., 1.190217644271544}, {3.,
+ 1.2495389024517283`}, {4., 1.2218378624939972`}, {5.,
+ 1.2741917541304093`}, {6., 1.2801585259307835`}, {7.,
+ 1.3192691277209088`}, {8., 1.3261202488932775`}, {9.,
+ 1.3334703493984368`}, {10., 1.3165295723667534`}}]}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
- AxesOrigin->{0., 1.2156360576725869`},
+ AxesOrigin->{0., 1.1822591606533834`},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
@@ -5277,7 +7121,7 @@ Cell[BoxData[
Part[#, 1]],
Identity[
Part[#, 2]]}& )}},
- PlotRange->{{0., 6.}, {1.2156360576725869`, 1.3334703493525415`}},
+ PlotRange->{{0., 10.}, {1.1822591606533834`, 1.3334703493984368`}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
@@ -5286,9 +7130,8 @@ Cell[BoxData[
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{{3.829818661383595*^9, 3.829818683278843*^9},
- 3.836551458962687*^9},
- CellLabel->
- "Out[177]=",ExpressionUUID->"61cacab0-0429-4edb-88f2-3f018ec79b9a"]
+ 3.836551458962687*^9, {3.836634965193007*^9, 3.836634994359346*^9}},
+ CellLabel->"Out[56]=",ExpressionUUID->"cd6820b3-ec18-4309-a325-d9260e362bf3"]
}, Open ]],
Cell[CellGroupData[{
@@ -138196,8 +140039,8 @@ Cell[BoxData["4.1052971990475674`*^12"], "Output",
}, Open ]]
}, Open ]]
},
-WindowSize->{1915.5, 1060.5},
-WindowMargins->{{2.25, Automatic}, {2.25, Automatic}},
+WindowSize->{955.5, 1060.5},
+WindowMargins->{{Automatic, 2.25}, {2.25, Automatic}},
FrontEndVersion->"12.3 for Linux x86 (64-bit) (May 11, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"6f6c570c-dfc0-4320-bdc7-0f1de62bb24c"
@@ -138213,1023 +140056,1121 @@ CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
-Cell[558, 20, 596, 10, 24, "Input",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"],
-Cell[1157, 32, 545, 13, 41, "Input",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"],
Cell[CellGroupData[{
-Cell[1727, 49, 207, 4, 50, "Section",ExpressionUUID->"bb531fce-8a9d-4a5f-8d6a-ec66b9fbf698"],
-Cell[1937, 55, 7430, 111, 71, "Input",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"],
+Cell[580, 22, 597, 10, 24, "Input",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"],
+Cell[1180, 34, 662, 14, 22, "Message",ExpressionUUID->"ffb9a6ec-ec3d-4941-bd89-17eb5385c36d"],
+Cell[1845, 50, 660, 14, 22, "Message",ExpressionUUID->"979f65c8-b1e5-4d3f-ace2-827cac13d035"],
+Cell[2508, 66, 663, 14, 22, "Message",ExpressionUUID->"2734e92b-23b9-42b7-8475-42b25b9d93af"],
+Cell[3174, 82, 661, 14, 22, "Message",ExpressionUUID->"dab1b14a-ea29-4267-909b-57e759fcbb14"]
+}, Open ]],
+Cell[3850, 99, 546, 13, 41, "Input",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"],
+Cell[CellGroupData[{
+Cell[4421, 116, 207, 4, 50, "Section",ExpressionUUID->"bb531fce-8a9d-4a5f-8d6a-ec66b9fbf698"],
+Cell[4631, 122, 7431, 111, 71, "Input",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"],
+Cell[CellGroupData[{
+Cell[12087, 237, 9398, 139, 22, "Input",ExpressionUUID->"3d566693-1b4e-4bc5-b33b-b8036e1e4822"],
+Cell[21488, 378, 1265, 25, 25, "Output",ExpressionUUID->"e591c4da-30df-4167-ad7c-9ff82a54bf95"]
+}, Open ]],
+Cell[22768, 406, 5983, 91, 71, "Input",ExpressionUUID->"34ec14f2-e69a-4233-afa7-8b9340ca265f"],
+Cell[CellGroupData[{
+Cell[28776, 501, 9286, 132, 24, "Input",ExpressionUUID->"3c891175-2642-465d-b121-e5989a86c957"],
+Cell[38065, 635, 1230, 26, 42, "Output",ExpressionUUID->"aed730d9-0bb4-4e4b-8291-9cd30c7783fc"]
+}, Open ]],
+Cell[39310, 664, 6176, 94, 71, "Input",ExpressionUUID->"a96db868-d41f-433d-88d3-73a2b34157b2"],
+Cell[CellGroupData[{
+Cell[45511, 762, 9503, 136, 24, "Input",ExpressionUUID->"9e3392d7-9445-477b-9e57-3faef08acef1"],
+Cell[55017, 900, 1742, 35, 42, "Output",ExpressionUUID->"44adf063-803d-493e-bd94-a80cfabbd49c"]
+}, Open ]],
+Cell[56774, 938, 5830, 89, 71, "Input",ExpressionUUID->"fb46f7c2-5761-4a64-9a5f-872dd3265e1c"],
+Cell[CellGroupData[{
+Cell[62629, 1031, 9063, 130, 24, "Input",ExpressionUUID->"3d7346aa-9d8e-46fd-bcb4-ca52fff0d32a"],
+Cell[71695, 1163, 1654, 37, 42, "Output",ExpressionUUID->"eb22c215-44cb-465a-b5d9-6843b5e6dae3"]
+}, Open ]],
+Cell[73364, 1203, 5821, 89, 71, "Input",ExpressionUUID->"1a9cafff-78bf-40d5-9387-97742820a6dc"],
+Cell[CellGroupData[{
+Cell[79210, 1296, 9594, 137, 24, "Input",ExpressionUUID->"7bdef841-d628-418c-9bec-b16ca8655e30"],
+Cell[88807, 1435, 1795, 41, 44, "Output",ExpressionUUID->"f766d79f-43b9-4839-8f53-169b04411bd6"]
+}, Open ]],
+Cell[90617, 1479, 6426, 97, 71, "Input",ExpressionUUID->"53343c2f-4579-48fe-afdc-6555d61fefc7"],
+Cell[CellGroupData[{
+Cell[97068, 1580, 10050, 144, 24, "Input",ExpressionUUID->"19f0837b-60bb-491b-b21f-34926c9efae8"],
+Cell[107121, 1726, 2031, 46, 60, "Output",ExpressionUUID->"a73552f9-985d-4a3e-b34d-901410d7f020"]
+}, Open ]],
+Cell[109167, 1775, 6179, 94, 71, "Input",ExpressionUUID->"3c48ca79-1fa5-4b7f-9423-94e659aae362"],
+Cell[CellGroupData[{
+Cell[115371, 1873, 10046, 144, 24, "Input",ExpressionUUID->"c0c5581e-24f4-4c1d-bac2-acde9933d21a"],
+Cell[125420, 2019, 2189, 51, 60, "Output",ExpressionUUID->"0c0c725c-b00d-4ed1-888a-0d253d431aa3"]
+}, Open ]],
+Cell[127624, 2073, 6797, 103, 71, "Input",ExpressionUUID->"89ac8434-0e5c-4a82-ae51-65e191e4c98a"],
+Cell[CellGroupData[{
+Cell[134446, 2180, 10048, 144, 24, "Input",ExpressionUUID->"a4de7394-b723-4a62-9094-2b462110711f"],
+Cell[144497, 2326, 2381, 59, 60, "Output",ExpressionUUID->"f986d70a-cf8a-494e-8e27-35ee7fd94c17"]
+}, Open ]],
+Cell[146893, 2388, 7927, 118, 71, "Input",ExpressionUUID->"ec5df7b8-ae45-47d9-baba-654f2daf3d01"],
+Cell[CellGroupData[{
+Cell[154845, 2510, 10310, 147, 24, "Input",ExpressionUUID->"c28fec6d-42be-4754-8ff5-9f7327a42e34"],
+Cell[165158, 2659, 3263, 73, 76, "Output",ExpressionUUID->"473be133-dba8-4a06-89f3-683e3ff6bae5"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[168458, 2737, 1212, 23, 22, "Input",ExpressionUUID->"12d548a6-6647-49c8-8034-31021727e938"],
+Cell[169673, 2762, 1309, 28, 25, "Output",ExpressionUUID->"6dc297ef-a569-4e40-8bbe-237b6b272487"]
+}, Open ]],
+Cell[170997, 2793, 7623, 113, 71, "Input",ExpressionUUID->"454bbf34-d098-476d-8e27-8e882ae07c56"],
+Cell[CellGroupData[{
+Cell[178645, 2910, 11991, 170, 24, "Input",ExpressionUUID->"fdda266d-54c1-43db-b6a7-a3d02502cd24"],
+Cell[190639, 3082, 1343, 19, 25, "Output",ExpressionUUID->"1a109f12-5aa4-4b64-bdce-ccd0a424430a"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[192019, 3106, 662, 17, 24, "Input",ExpressionUUID->"8affe183-0935-483c-8b7d-1cc0e47e48f2"],
+Cell[192684, 3125, 799, 14, 27, "Output",ExpressionUUID->"14eedbef-c1ee-4f38-9ea4-76a634a3c262"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[193520, 3144, 1270, 27, 124, "Input",ExpressionUUID->"f9c2407f-9ae3-41bc-962d-d48fd05c065c"],
+Cell[194793, 3173, 7472, 175, 205, "Output",ExpressionUUID->"dbf13886-13dd-47f2-8852-3bb37d49e9ca"]
+}, Open ]],
+Cell[202280, 3351, 156, 3, 22, "Input",ExpressionUUID->"09134b4d-8c86-4a1d-a2de-b13172ef9f4a"],
+Cell[202439, 3356, 2755, 70, 105, "Input",ExpressionUUID->"175e0083-a3b3-4f2c-9b8a-2f5df2c20dec"],
+Cell[CellGroupData[{
+Cell[205219, 3430, 1703, 47, 44, "Input",ExpressionUUID->"839a2ad6-30ff-49ba-b7d3-364be7258ce7"],
+Cell[206925, 3479, 396, 9, 32, "Message",ExpressionUUID->"e9b52282-bc25-42d0-bce8-f4e0bd6be609"],
+Cell[207324, 3490, 394, 9, 32, "Message",ExpressionUUID->"319acb10-d2ee-4d9e-b4f7-e45dd6ba0d84"],
+Cell[207721, 3501, 429, 10, 22, "Message",ExpressionUUID->"b6598746-1928-450a-a83d-e5ae6b616a55"],
+Cell[208153, 3513, 394, 9, 32, "Message",ExpressionUUID->"6589ea8c-6d4b-4f6d-847a-e0a99f980d84"],
+Cell[208550, 3524, 476, 10, 22, "Message",ExpressionUUID->"aa668a21-55be-4d4d-ae5b-d7885a160f1f"],
+Cell[209029, 3536, 431, 10, 22, "Message",ExpressionUUID->"299d302e-d905-4687-9052-12756d55f8e4"],
+Cell[209463, 3548, 1665, 50, 69, "Output",ExpressionUUID->"d315a64a-5ce6-4e10-a8fc-fe8f2dda816f"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[211165, 3603, 1196, 33, 39, "Input",ExpressionUUID->"4b696273-dd8b-45ca-99b0-80457348fa97"],
+Cell[212364, 3638, 370, 9, 32, "Message",ExpressionUUID->"50f8ec0e-4cab-4c6a-b966-4dfd4fd49ab7"],
+Cell[212737, 3649, 1667, 49, 69, "Output",ExpressionUUID->"2913861d-3256-48eb-a072-622b1838d921"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[214441, 3703, 1370, 36, 39, "Input",ExpressionUUID->"93f5ff98-3de6-430f-929e-17c6406a8e52"],
+Cell[215814, 3741, 500, 11, 32, "Message",ExpressionUUID->"ac5a50ea-891a-4c78-af09-ae7e92e78044"],
+Cell[216317, 3754, 1891, 52, 69, "Output",ExpressionUUID->"8fbab210-7e4a-4b61-8e69-0e64e99fea4e"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[218245, 3811, 2185, 59, 94, "Input",ExpressionUUID->"0bfdb981-f5d5-4edd-92bb-ee689a7c1b90"],
+Cell[220433, 3872, 990, 19, 46, "Message",ExpressionUUID->"00f2ece3-315a-4168-ba0e-cbbd16d639c4"],
+Cell[221426, 3893, 1074, 20, 46, "Message",ExpressionUUID->"de656973-5efe-4cc4-92ba-22603c88b0bb"],
+Cell[222503, 3915, 988, 19, 46, "Message",ExpressionUUID->"65eafe10-9697-41ef-b735-c471595c1611"],
+Cell[223494, 3936, 671, 13, 22, "Message",ExpressionUUID->"b3b74ee2-e427-498c-9932-a9b04fcb6144"],
+Cell[224168, 3951, 590, 12, 32, "Message",ExpressionUUID->"1b30f137-41ed-4903-bac6-8771df70183c"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[224795, 3968, 544, 11, 24, "Input",ExpressionUUID->"0d0e5cda-a6fc-4708-80da-b887f6838668"],
+Cell[225342, 3981, 2156, 50, 182, "Output",ExpressionUUID->"a94fd114-bf0b-48e5-ac27-26cbf8243d85"]
+}, Open ]],
+Cell[227513, 4034, 177, 4, 22, "Input",ExpressionUUID->"333b1832-5a79-49fb-8f3e-0569be7ac490"],
Cell[CellGroupData[{
-Cell[9392, 170, 9397, 139, 22, "Input",ExpressionUUID->"3d566693-1b4e-4bc5-b33b-b8036e1e4822"],
-Cell[18792, 311, 1221, 25, 25, "Output",ExpressionUUID->"a66d329d-b07e-4a9c-80ed-66407dac16b1"]
+Cell[227715, 4042, 837, 22, 22, "Input",ExpressionUUID->"7b629cc3-95f7-44aa-9894-2cc112a13bdb"],
+Cell[228555, 4066, 1148, 33, 48, "Output",ExpressionUUID->"9e65ca33-2e9a-4c87-ad00-670be8ed9755"]
}, Open ]],
-Cell[20028, 339, 5983, 91, 71, "Input",ExpressionUUID->"34ec14f2-e69a-4233-afa7-8b9340ca265f"],
+Cell[229718, 4102, 519, 16, 22, "Input",ExpressionUUID->"5568315a-763b-45fa-a214-b259762ceba0"],
Cell[CellGroupData[{
-Cell[26036, 434, 9286, 132, 24, "Input",ExpressionUUID->"3c891175-2642-465d-b121-e5989a86c957"],
-Cell[35325, 568, 1182, 25, 25, "Output",ExpressionUUID->"1f98b048-405b-4d28-8696-6a7c69728b6f"]
+Cell[230262, 4122, 535, 16, 24, "Input",ExpressionUUID->"0481cad6-72e2-4e16-918e-a1705666053f"],
+Cell[230800, 4140, 535, 17, 40, "Output",ExpressionUUID->"6e868abb-01a9-4182-a27e-53b8fed9982b"]
}, Open ]],
-Cell[36522, 596, 6176, 94, 71, "Input",ExpressionUUID->"a96db868-d41f-433d-88d3-73a2b34157b2"],
Cell[CellGroupData[{
-Cell[42723, 694, 9503, 136, 24, "Input",ExpressionUUID->"9e3392d7-9445-477b-9e57-3faef08acef1"],
-Cell[52229, 832, 1702, 35, 25, "Output",ExpressionUUID->"0d518e77-0515-4359-bf5b-6f3ca82dad6d"]
+Cell[231372, 4162, 230, 5, 22, "Input",ExpressionUUID->"51099c65-ec43-409f-b208-562b2cc1e122"],
+Cell[231605, 4169, 193, 5, 39, "Output",ExpressionUUID->"190d2f5f-ed6b-49b0-8332-6842048467d1"]
}, Open ]],
-Cell[53946, 870, 5830, 89, 71, "Input",ExpressionUUID->"fb46f7c2-5761-4a64-9a5f-872dd3265e1c"],
Cell[CellGroupData[{
-Cell[59801, 963, 9063, 130, 24, "Input",ExpressionUUID->"3d7346aa-9d8e-46fd-bcb4-ca52fff0d32a"],
-Cell[68867, 1095, 1603, 35, 25, "Output",ExpressionUUID->"f4e7d53d-d7f9-4efc-bfc8-63b06ee8b596"]
+Cell[231835, 4179, 1373, 33, 24, "Input",ExpressionUUID->"332b8e25-6892-41b0-b2b6-f7d69dc61b84"],
+Cell[233211, 4214, 1551, 48, 41, "Output",ExpressionUUID->"646419cd-aeb8-4c2b-8199-4e334c4c5e63"]
}, Open ]],
-Cell[70485, 1133, 5821, 89, 71, "Input",ExpressionUUID->"1a9cafff-78bf-40d5-9387-97742820a6dc"],
Cell[CellGroupData[{
-Cell[76331, 1226, 9594, 137, 24, "Input",ExpressionUUID->"7bdef841-d628-418c-9bec-b16ca8655e30"],
-Cell[85928, 1365, 1755, 43, 27, "Output",ExpressionUUID->"5487efc5-c1bc-4f55-a6a6-5bf85d6b9983"]
+Cell[234799, 4267, 927, 24, 22, "Input",ExpressionUUID->"ec6bb3a3-c19b-470d-9cfb-0df5d12a088b"],
+Cell[235729, 4293, 2498, 71, 74, "Output",ExpressionUUID->"c565778b-4931-4dd5-8194-68df7c134050"]
}, Open ]],
-Cell[87698, 1411, 6426, 97, 71, "Input",ExpressionUUID->"53343c2f-4579-48fe-afdc-6555d61fefc7"],
Cell[CellGroupData[{
-Cell[94149, 1512, 10050, 144, 24, "Input",ExpressionUUID->"19f0837b-60bb-491b-b21f-34926c9efae8"],
-Cell[104202, 1658, 1984, 46, 44, "Output",ExpressionUUID->"5e3fc4c1-1515-4605-ab18-61f787b0ba43"]
+Cell[238264, 4369, 728, 20, 24, "Input",ExpressionUUID->"ee7b5c8f-14ba-40e4-a8d1-2e1767b0030d"],
+Cell[238995, 4391, 255, 4, 25, "Output",ExpressionUUID->"5c4f22ff-142c-4b5b-924d-617969aeb95c"]
}, Open ]],
-Cell[106201, 1707, 6179, 94, 71, "Input",ExpressionUUID->"3c48ca79-1fa5-4b7f-9423-94e659aae362"],
Cell[CellGroupData[{
-Cell[112405, 1805, 10046, 144, 24, "Input",ExpressionUUID->"c0c5581e-24f4-4c1d-bac2-acde9933d21a"],
-Cell[122454, 1951, 2144, 52, 44, "Output",ExpressionUUID->"8a131f82-6585-45e6-a3ee-a7002d78d636"]
+Cell[239287, 4400, 572, 11, 22, "Input",ExpressionUUID->"a5ed2080-8846-46d4-9a95-4b1b62b66a6b"],
+Cell[239862, 4413, 5386, 107, 175, "Output",ExpressionUUID->"605a9c1e-844b-429b-863c-c53d828143b7"]
}, Open ]],
-Cell[124613, 2006, 6797, 103, 71, "Input",ExpressionUUID->"89ac8434-0e5c-4a82-ae51-65e191e4c98a"],
Cell[CellGroupData[{
-Cell[131435, 2113, 10048, 144, 24, "Input",ExpressionUUID->"a4de7394-b723-4a62-9094-2b462110711f"],
-Cell[141486, 2259, 2332, 58, 44, "Output",ExpressionUUID->"55293ed6-3746-4cdc-9141-bf781152849d"]
+Cell[245285, 4525, 264, 6, 23, "Input",ExpressionUUID->"4441056d-a05c-4fbb-b2e7-8abd69bcefcc"],
+Cell[245552, 4533, 246, 4, 25, "Output",ExpressionUUID->"bcb3cc22-8933-42fe-a9e8-d00667f3e435"]
}, Open ]],
-Cell[143833, 2320, 7927, 118, 71, "Input",ExpressionUUID->"ec5df7b8-ae45-47d9-baba-654f2daf3d01"],
Cell[CellGroupData[{
-Cell[151785, 2442, 10310, 147, 24, "Input",ExpressionUUID->"c28fec6d-42be-4754-8ff5-9f7327a42e34"],
-Cell[162098, 2591, 3221, 74, 44, "Output",ExpressionUUID->"89bd6d58-3f62-48a4-a912-95f1fb46c5c6"]
+Cell[245835, 4542, 314, 7, 25, "Input",ExpressionUUID->"3ac27ca6-71a9-4008-9acd-dfa03b498bd4"],
+Cell[246152, 4551, 274, 5, 25, "Output",ExpressionUUID->"4c6cbe79-6163-42ce-b99e-e544b56cb0c5"]
}, Open ]],
Cell[CellGroupData[{
-Cell[165356, 2670, 1212, 23, 22, "Input",ExpressionUUID->"12d548a6-6647-49c8-8034-31021727e938"],
-Cell[166571, 2695, 1309, 28, 25, "Output",ExpressionUUID->"6dc297ef-a569-4e40-8bbe-237b6b272487"]
+Cell[246463, 4561, 234, 5, 22, "Input",ExpressionUUID->"20e8b9c5-d32d-4463-a503-9b41eb015261"],
+Cell[246700, 4568, 475, 15, 39, "Output",ExpressionUUID->"183c600f-b9c8-4565-b75f-086acb6d2b52"]
}, Open ]],
-Cell[167895, 2726, 7623, 113, 71, "Input",ExpressionUUID->"454bbf34-d098-476d-8e27-8e882ae07c56"],
+Cell[247190, 4586, 1170, 29, 24, "Input",ExpressionUUID->"64028a06-7652-48fd-95cf-71813ac09620"],
Cell[CellGroupData[{
-Cell[175543, 2843, 11943, 170, 24, "Input",ExpressionUUID->"fdda266d-54c1-43db-b6a7-a3d02502cd24"],
-Cell[187489, 3015, 1304, 20, 25, "Output",ExpressionUUID->"25d4a63b-2f7e-4e89-8c7c-59519f293789"]
+Cell[248385, 4619, 601, 16, 25, "Input",ExpressionUUID->"2fd95295-13a4-4ed9-8847-26576aa7ba7c"],
+Cell[248989, 4637, 453, 10, 22, "Message",ExpressionUUID->"d4f20b88-0123-4055-bc65-4ca2fff1b7d8"],
+Cell[249445, 4649, 453, 10, 22, "Message",ExpressionUUID->"e01a80f5-e9e8-48e9-b74d-dd81f7c340f1"],
+Cell[249901, 4661, 451, 10, 22, "Message",ExpressionUUID->"d33757d4-ca4c-47b2-8eaf-0ec6c1f2f620"],
+Cell[250355, 4673, 457, 10, 22, "Message",ExpressionUUID->"544e7983-9830-431e-86bf-7049b4a3d701"],
+Cell[250815, 4685, 21323, 381, 168, "Output",ExpressionUUID->"71db5afd-85a1-44e1-ad03-af40c671e576"]
}, Open ]],
+Cell[272153, 5069, 290, 8, 22, "Input",ExpressionUUID->"0322275c-e86b-4a68-8bf8-7d573ddeaa03"],
+Cell[272446, 5079, 7335, 108, 71, "Input",ExpressionUUID->"500c3fa7-64b1-44e0-afdd-91e1ae49b32e"],
Cell[CellGroupData[{
-Cell[188830, 3040, 662, 17, 24, "Input",ExpressionUUID->"8affe183-0935-483c-8b7d-1cc0e47e48f2"],
-Cell[189495, 3059, 799, 14, 27, "Output",ExpressionUUID->"14eedbef-c1ee-4f38-9ea4-76a634a3c262"]
+Cell[279806, 5191, 11347, 158, 24, "Input",ExpressionUUID->"1d149c9f-0715-4c76-97e0-c110d5eac3de"],
+Cell[291156, 5351, 811, 15, 34, "Message",ExpressionUUID->"a3eea2ac-4fe8-4c8e-b25b-77e5d67994ab"],
+Cell[291970, 5368, 3063, 76, 76, "Output",ExpressionUUID->"9c618ded-7bff-44f5-b717-51fa822c8a45"]
}, Open ]],
Cell[CellGroupData[{
-Cell[190331, 3078, 1270, 27, 92, "Input",ExpressionUUID->"f9c2407f-9ae3-41bc-962d-d48fd05c065c"],
-Cell[191604, 3107, 7472, 175, 205, "Output",ExpressionUUID->"dbf13886-13dd-47f2-8852-3bb37d49e9ca"]
+Cell[295070, 5449, 1102, 25, 22, "Input",ExpressionUUID->"fa8135b4-fdf8-4590-be4e-73b4dd086cab"],
+Cell[296175, 5476, 57957, 989, 421, "Output",ExpressionUUID->"1d3299a2-aa9f-4b8d-982b-0e81b663e909"]
}, Open ]],
-Cell[199091, 3285, 156, 3, 22, "Input",ExpressionUUID->"09134b4d-8c86-4a1d-a2de-b13172ef9f4a"],
-Cell[199250, 3290, 2755, 70, 57, "Input",ExpressionUUID->"175e0083-a3b3-4f2c-9b8a-2f5df2c20dec"],
-Cell[202008, 3362, 7335, 108, 71, "Input",ExpressionUUID->"500c3fa7-64b1-44e0-afdd-91e1ae49b32e"],
Cell[CellGroupData[{
-Cell[209368, 3474, 11347, 158, 24, "Input",ExpressionUUID->"1d149c9f-0715-4c76-97e0-c110d5eac3de"],
-Cell[220718, 3634, 811, 15, 22, "Message",ExpressionUUID->"a3eea2ac-4fe8-4c8e-b25b-77e5d67994ab"],
-Cell[221532, 3651, 3063, 76, 44, "Output",ExpressionUUID->"9c618ded-7bff-44f5-b717-51fa822c8a45"]
+Cell[354169, 6470, 1992, 47, 97, "Input",ExpressionUUID->"cc6e347d-f77c-4f26-9e64-3aa0e0a52e0c"],
+Cell[356164, 6519, 9944, 189, 428, "Output",ExpressionUUID->"6c641e92-fb55-4838-b5c2-eaee553d13ac"]
}, Open ]],
Cell[CellGroupData[{
-Cell[224632, 3732, 1102, 25, 22, "Input",ExpressionUUID->"fa8135b4-fdf8-4590-be4e-73b4dd086cab"],
-Cell[225737, 3759, 57957, 989, 421, "Output",ExpressionUUID->"1d3299a2-aa9f-4b8d-982b-0e81b663e909"]
+Cell[366145, 6713, 883, 24, 38, "Input",ExpressionUUID->"84fba399-0d44-478f-82db-cf6e8f6da218"],
+Cell[367031, 6739, 1297, 32, 35, "Output",ExpressionUUID->"fc27ce97-44b5-4fd9-9fc6-8e3a80767ebc"]
}, Open ]],
Cell[CellGroupData[{
-Cell[283731, 4753, 1992, 47, 97, "Input",ExpressionUUID->"cc6e347d-f77c-4f26-9e64-3aa0e0a52e0c"],
-Cell[285726, 4802, 9944, 189, 428, "Output",ExpressionUUID->"6c641e92-fb55-4838-b5c2-eaee553d13ac"]
+Cell[368365, 6776, 1030, 30, 40, "Input",ExpressionUUID->"5e586711-0483-46d1-bccb-b6897d71c1e8"],
+Cell[369398, 6808, 1137, 23, 122, "Output",ExpressionUUID->"2fa1caa4-ef1f-4ffd-8afc-94b16ed218ad"]
}, Open ]],
Cell[CellGroupData[{
-Cell[295707, 4996, 773, 22, 38, "Input",ExpressionUUID->"84fba399-0d44-478f-82db-cf6e8f6da218"],
-Cell[296483, 5020, 1249, 32, 35, "Output",ExpressionUUID->"02dbba72-48dd-4d6e-a3f4-616d0d33e3f7"]
+Cell[370572, 6836, 201, 3, 22, "Input",ExpressionUUID->"0bf0ad7a-0c38-45b3-944f-2cd642717885"],
+Cell[370776, 6841, 2450, 62, 76, "Output",ExpressionUUID->"cb46a863-90ee-473f-82db-5dc2a45b693e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[297769, 5057, 1636, 41, 99, "Input",ExpressionUUID->"f15d8a52-1992-4696-8ead-3c4153434e55"],
-Cell[299408, 5100, 6769, 129, 332, "Output",ExpressionUUID->"f8904a8b-6a7b-448d-b741-ccfb9ed8ca1a"]
+Cell[373263, 6908, 1854, 45, 99, "Input",ExpressionUUID->"f15d8a52-1992-4696-8ead-3c4153434e55"],
+Cell[375120, 6955, 6148, 119, 449, "Output",ExpressionUUID->"7c16b4f6-053a-49c7-adfb-2ff4cd3d1825"]
}, Open ]],
Cell[CellGroupData[{
-Cell[306214, 5234, 562, 13, 22, "Input",ExpressionUUID->"f9fe281b-b610-448a-b868-789cd1438874"],
-Cell[306779, 5249, 1555, 41, 276, "Output",ExpressionUUID->"61cacab0-0429-4edb-88f2-3f018ec79b9a"]
+Cell[381305, 7079, 466, 10, 22, "Input",ExpressionUUID->"f9fe281b-b610-448a-b868-789cd1438874"],
+Cell[381774, 7091, 1717, 42, 271, "Output",ExpressionUUID->"cd6820b3-ec18-4309-a325-d9260e362bf3"]
}, Open ]],
Cell[CellGroupData[{
-Cell[308371, 5295, 1284, 28, 75, "Input",ExpressionUUID->"379795e2-1f10-4c9d-aca9-574975c0b53e"],
-Cell[309658, 5325, 6221, 139, 181, "Output",ExpressionUUID->"e32fce1f-84cc-4e58-9ec5-270c393270f4"]
+Cell[383528, 7138, 1284, 28, 75, "Input",ExpressionUUID->"379795e2-1f10-4c9d-aca9-574975c0b53e"],
+Cell[384815, 7168, 6221, 139, 181, "Output",ExpressionUUID->"e32fce1f-84cc-4e58-9ec5-270c393270f4"]
}, Open ]],
-Cell[315894, 5467, 5436, 83, 71, "Input",ExpressionUUID->"614f63fe-75a0-4c56-b782-48ad98bc3c89"],
+Cell[391051, 7310, 5436, 83, 71, "Input",ExpressionUUID->"614f63fe-75a0-4c56-b782-48ad98bc3c89"],
Cell[CellGroupData[{
-Cell[321355, 5554, 9564, 136, 24, "Input",ExpressionUUID->"b56cc8a2-a504-4115-9171-a6a6d7088e3d"],
-Cell[330922, 5692, 7487, 126, 92, "Output",ExpressionUUID->"56bd1e88-9615-4515-9caf-f2b140d00ea4"]
+Cell[396512, 7397, 9564, 136, 24, "Input",ExpressionUUID->"b56cc8a2-a504-4115-9171-a6a6d7088e3d"],
+Cell[406079, 7535, 7487, 126, 60, "Output",ExpressionUUID->"56bd1e88-9615-4515-9caf-f2b140d00ea4"]
}, Open ]],
-Cell[338424, 5821, 5536, 85, 71, "Input",ExpressionUUID->"8507c1e3-d3a8-4bd7-b4aa-90d91d45805d"],
+Cell[413581, 7664, 5536, 85, 71, "Input",ExpressionUUID->"8507c1e3-d3a8-4bd7-b4aa-90d91d45805d"],
Cell[CellGroupData[{
-Cell[343985, 5910, 9601, 136, 24, "Input",ExpressionUUID->"de38480a-2d94-4587-b72d-6e029e15ee96"],
-Cell[353589, 6048, 7667, 130, 92, "Output",ExpressionUUID->"43225297-d195-4377-8f95-86dbf3b45b01"]
+Cell[419142, 7753, 9601, 136, 24, "Input",ExpressionUUID->"de38480a-2d94-4587-b72d-6e029e15ee96"],
+Cell[428746, 7891, 7667, 130, 60, "Output",ExpressionUUID->"43225297-d195-4377-8f95-86dbf3b45b01"]
}, Open ]],
-Cell[361271, 6181, 5834, 89, 71, "Input",ExpressionUUID->"2ec9732b-3292-49d0-bac5-10ca2b2e2d27"],
+Cell[436428, 8024, 5834, 89, 71, "Input",ExpressionUUID->"2ec9732b-3292-49d0-bac5-10ca2b2e2d27"],
Cell[CellGroupData[{
-Cell[367130, 6274, 9747, 138, 24, "Input",ExpressionUUID->"139619cc-039b-4609-af7c-bff6ef22fb47"],
-Cell[376880, 6414, 5810, 80, 25, "Output",ExpressionUUID->"afa14344-bd55-431e-aa6c-c70efe6c5a4d"]
+Cell[442287, 8117, 9747, 138, 24, "Input",ExpressionUUID->"139619cc-039b-4609-af7c-bff6ef22fb47"],
+Cell[452037, 8257, 5810, 80, 25, "Output",ExpressionUUID->"afa14344-bd55-431e-aa6c-c70efe6c5a4d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[382727, 6499, 173, 4, 22, "Input",ExpressionUUID->"0187bca3-1d0a-4623-aec5-953f437b51fd"],
-Cell[382903, 6505, 189, 4, 25, "Output",ExpressionUUID->"598fc733-e306-4afa-b2be-5b73d49e16c2"]
+Cell[457884, 8342, 173, 4, 22, "Input",ExpressionUUID->"0187bca3-1d0a-4623-aec5-953f437b51fd"],
+Cell[458060, 8348, 189, 4, 25, "Output",ExpressionUUID->"598fc733-e306-4afa-b2be-5b73d49e16c2"]
}, Open ]],
Cell[CellGroupData[{
-Cell[383129, 6514, 458, 12, 22, "Input",ExpressionUUID->"73d2b785-99f4-4bfb-b83d-3176ccfa253d"],
-Cell[383590, 6528, 335, 6, 25, "Output",ExpressionUUID->"d9b0e840-276e-4933-8ac7-3b44810cdfd7"]
+Cell[458286, 8357, 458, 12, 22, "Input",ExpressionUUID->"73d2b785-99f4-4bfb-b83d-3176ccfa253d"],
+Cell[458747, 8371, 335, 6, 25, "Output",ExpressionUUID->"d9b0e840-276e-4933-8ac7-3b44810cdfd7"]
}, Open ]],
Cell[CellGroupData[{
-Cell[383962, 6539, 183, 3, 22, "Input",ExpressionUUID->"a3876a42-f9a7-42bf-bb98-8f496b0b9429"],
-Cell[384148, 6544, 793, 19, 42, "Output",ExpressionUUID->"25c6c990-0648-4b53-88ec-85fbf153b84d"]
+Cell[459119, 8382, 183, 3, 22, "Input",ExpressionUUID->"a3876a42-f9a7-42bf-bb98-8f496b0b9429"],
+Cell[459305, 8387, 793, 19, 25, "Output",ExpressionUUID->"25c6c990-0648-4b53-88ec-85fbf153b84d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[384978, 6568, 8397, 231, 373, "Input",ExpressionUUID->"a8eefdf0-e27a-49c2-a914-30fe2e3be695"],
-Cell[393378, 6801, 10866, 253, 170, "Output",ExpressionUUID->"74dd1d49-7e7f-4e72-b8c9-ce6b451108d3"]
+Cell[460135, 8411, 8397, 231, 246, "Input",ExpressionUUID->"a8eefdf0-e27a-49c2-a914-30fe2e3be695"],
+Cell[468535, 8644, 10866, 253, 170, "Output",ExpressionUUID->"74dd1d49-7e7f-4e72-b8c9-ce6b451108d3"]
}, Open ]],
Cell[CellGroupData[{
-Cell[404281, 7059, 459, 12, 24, "Input",ExpressionUUID->"87e7aafd-8c36-4839-935c-cc46bf1f01dd"],
-Cell[404743, 7073, 618, 13, 25, "Output",ExpressionUUID->"fe7c92bd-96d2-4bd2-8311-6587e6a29f3e"]
+Cell[479438, 8902, 459, 12, 24, "Input",ExpressionUUID->"87e7aafd-8c36-4839-935c-cc46bf1f01dd"],
+Cell[479900, 8916, 618, 13, 25, "Output",ExpressionUUID->"fe7c92bd-96d2-4bd2-8311-6587e6a29f3e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[405398, 7091, 517, 14, 22, "Input",ExpressionUUID->"148e9d0d-8b87-4af5-afd5-d33dbd331cbd"],
-Cell[405918, 7107, 623, 13, 25, "Output",ExpressionUUID->"2cb15991-5446-4550-9d2b-990382cc6e0b"]
+Cell[480555, 8934, 517, 14, 22, "Input",ExpressionUUID->"148e9d0d-8b87-4af5-afd5-d33dbd331cbd"],
+Cell[481075, 8950, 623, 13, 25, "Output",ExpressionUUID->"2cb15991-5446-4550-9d2b-990382cc6e0b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[406578, 7125, 579, 16, 22, "Input",ExpressionUUID->"8daebff1-3cc2-4bf5-8cc4-604c65c548b0"],
-Cell[407160, 7143, 316, 5, 25, "Output",ExpressionUUID->"9cd4be6d-9037-487d-805c-0e30c732a88f"]
+Cell[481735, 8968, 579, 16, 22, "Input",ExpressionUUID->"8daebff1-3cc2-4bf5-8cc4-604c65c548b0"],
+Cell[482317, 8986, 316, 5, 25, "Output",ExpressionUUID->"9cd4be6d-9037-487d-805c-0e30c732a88f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[407513, 7153, 315, 8, 22, "Input",ExpressionUUID->"ec87e975-8e91-4764-a5f8-d113176427a6"],
-Cell[407831, 7163, 269, 4, 25, "Output",ExpressionUUID->"682ebcdb-8d48-4545-9fb6-2815a9591a34"]
+Cell[482670, 8996, 315, 8, 22, "Input",ExpressionUUID->"ec87e975-8e91-4764-a5f8-d113176427a6"],
+Cell[482988, 9006, 269, 4, 25, "Output",ExpressionUUID->"682ebcdb-8d48-4545-9fb6-2815a9591a34"]
}, Open ]],
Cell[CellGroupData[{
-Cell[408137, 7172, 1119, 32, 24, "Input",ExpressionUUID->"bd4bec0c-34d4-42ea-8210-676c5a4f3b02"],
-Cell[409259, 7206, 737, 13, 25, "Output",ExpressionUUID->"6744c9f9-54df-4620-86fe-20c2a1fb0a38"]
+Cell[483294, 9015, 1119, 32, 24, "Input",ExpressionUUID->"bd4bec0c-34d4-42ea-8210-676c5a4f3b02"],
+Cell[484416, 9049, 737, 13, 25, "Output",ExpressionUUID->"6744c9f9-54df-4620-86fe-20c2a1fb0a38"]
}, Open ]],
-Cell[410011, 7222, 1033, 17, 22, "Input",ExpressionUUID->"cb5903e7-4ebd-478a-913d-f8dce03353cd"],
+Cell[485168, 9065, 1033, 17, 22, "Input",ExpressionUUID->"cb5903e7-4ebd-478a-913d-f8dce03353cd"],
Cell[CellGroupData[{
-Cell[411069, 7243, 255, 4, 22, "Input",ExpressionUUID->"7f91ac8c-3dfe-4e6e-876b-c110d899b203"],
-Cell[411327, 7249, 244, 3, 25, "Output",ExpressionUUID->"66d898e0-c199-4cd1-8c92-f951620499ab"]
+Cell[486226, 9086, 255, 4, 22, "Input",ExpressionUUID->"7f91ac8c-3dfe-4e6e-876b-c110d899b203"],
+Cell[486484, 9092, 244, 3, 25, "Output",ExpressionUUID->"66d898e0-c199-4cd1-8c92-f951620499ab"]
}, Open ]],
Cell[CellGroupData[{
-Cell[411608, 7257, 1406, 29, 24, "Input",ExpressionUUID->"d7af33b7-ba2b-49a3-aafc-91ee8eb488da"],
-Cell[413017, 7288, 823, 11, 25, "Output",ExpressionUUID->"76e092cb-b3ca-4ad3-8371-d22bc3bdbfec"]
+Cell[486765, 9100, 1406, 29, 24, "Input",ExpressionUUID->"d7af33b7-ba2b-49a3-aafc-91ee8eb488da"],
+Cell[488174, 9131, 823, 11, 25, "Output",ExpressionUUID->"76e092cb-b3ca-4ad3-8371-d22bc3bdbfec"]
}, Open ]],
Cell[CellGroupData[{
-Cell[413877, 7304, 1182, 28, 71, "Input",ExpressionUUID->"ba65a569-6e06-47f2-aa64-ce40ed720e16"],
-Cell[415062, 7334, 11988, 282, 183, "Output",ExpressionUUID->"49a28651-b01d-4119-8b17-5cececd6f4d8"]
+Cell[489034, 9147, 1182, 28, 71, "Input",ExpressionUUID->"ba65a569-6e06-47f2-aa64-ce40ed720e16"],
+Cell[490219, 9177, 11988, 282, 183, "Output",ExpressionUUID->"49a28651-b01d-4119-8b17-5cececd6f4d8"]
}, Open ]],
-Cell[427065, 7619, 1095, 20, 22, "Input",ExpressionUUID->"f53418ef-e0c9-44a5-92b0-cb484b4f96c8"],
+Cell[502222, 9462, 1095, 20, 22, "Input",ExpressionUUID->"f53418ef-e0c9-44a5-92b0-cb484b4f96c8"],
Cell[CellGroupData[{
-Cell[428185, 7643, 1989, 47, 24, "Input",ExpressionUUID->"a30a4640-3744-4c0b-9800-1073a0fa0d50"],
-Cell[430177, 7692, 261, 5, 25, "Output",ExpressionUUID->"a91af46f-115e-4b5b-a963-4e64b27789f9"]
+Cell[503342, 9486, 1989, 47, 75, "Input",ExpressionUUID->"a30a4640-3744-4c0b-9800-1073a0fa0d50"],
+Cell[505334, 9535, 261, 5, 25, "Output",ExpressionUUID->"a91af46f-115e-4b5b-a963-4e64b27789f9"]
}, Open ]],
Cell[CellGroupData[{
-Cell[430475, 7702, 3516, 71, 75, "Input",ExpressionUUID->"6c557c5e-e6b4-4351-9c51-9653ebaa3755"],
-Cell[433994, 7775, 2601, 36, 25, "Output",ExpressionUUID->"d46b93fb-0f62-45fa-a6de-37bde5cbd060"]
+Cell[505632, 9545, 3516, 71, 75, "Input",ExpressionUUID->"6c557c5e-e6b4-4351-9c51-9653ebaa3755"],
+Cell[509151, 9618, 2601, 36, 25, "Output",ExpressionUUID->"d46b93fb-0f62-45fa-a6de-37bde5cbd060"]
}, Open ]],
Cell[CellGroupData[{
-Cell[436632, 7816, 1025, 28, 37, "Input",ExpressionUUID->"b157e171-c7d5-47f2-b745-8f2e8fa0198c"],
-Cell[437660, 7846, 538, 12, 25, "Output",ExpressionUUID->"5a0db3ec-ac1c-432f-adee-e6747b4db94f"]
+Cell[511789, 9659, 1025, 28, 37, "Input",ExpressionUUID->"b157e171-c7d5-47f2-b745-8f2e8fa0198c"],
+Cell[512817, 9689, 538, 12, 25, "Output",ExpressionUUID->"5a0db3ec-ac1c-432f-adee-e6747b4db94f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[438235, 7863, 940, 24, 24, "Input",ExpressionUUID->"bdb84812-f388-49c2-8ac6-3080c735f5e5"],
-Cell[439178, 7889, 2600, 82, 27, "Output",ExpressionUUID->"b941a263-57d9-4309-b289-83857d3df95f"]
+Cell[513392, 9706, 940, 24, 24, "Input",ExpressionUUID->"bdb84812-f388-49c2-8ac6-3080c735f5e5"],
+Cell[514335, 9732, 2600, 82, 44, "Output",ExpressionUUID->"b941a263-57d9-4309-b289-83857d3df95f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[441815, 7976, 312, 7, 22, "Input",ExpressionUUID->"7fec8d25-6d0b-475e-a3c6-8b90b79f873e"],
-Cell[442130, 7985, 210, 4, 25, "Output",ExpressionUUID->"48c117a8-371e-45ba-aa5f-facdd5f694ec"]
+Cell[516972, 9819, 312, 7, 22, "Input",ExpressionUUID->"7fec8d25-6d0b-475e-a3c6-8b90b79f873e"],
+Cell[517287, 9828, 210, 4, 25, "Output",ExpressionUUID->"48c117a8-371e-45ba-aa5f-facdd5f694ec"]
}, Open ]],
Cell[CellGroupData[{
-Cell[442377, 7994, 624, 18, 39, "Input",ExpressionUUID->"feb6f5a0-8271-4175-8fd5-743c24ab49d2"],
-Cell[443004, 8014, 632, 12, 25, "Output",ExpressionUUID->"b00b9646-7ea6-4e6c-895b-add09ba6b344"]
+Cell[517534, 9837, 624, 18, 39, "Input",ExpressionUUID->"feb6f5a0-8271-4175-8fd5-743c24ab49d2"],
+Cell[518161, 9857, 632, 12, 25, "Output",ExpressionUUID->"b00b9646-7ea6-4e6c-895b-add09ba6b344"]
}, Open ]],
Cell[CellGroupData[{
-Cell[443673, 8031, 1364, 36, 58, "Input",ExpressionUUID->"5553a701-d8ac-42d8-bf96-f61247fd91d5"],
-Cell[445040, 8069, 24078, 497, 171, "Output",ExpressionUUID->"ff2eefd5-74bd-4633-a9f6-bb1945c40989"]
+Cell[518830, 9874, 1364, 36, 58, "Input",ExpressionUUID->"5553a701-d8ac-42d8-bf96-f61247fd91d5"],
+Cell[520197, 9912, 24078, 497, 171, "Output",ExpressionUUID->"ff2eefd5-74bd-4633-a9f6-bb1945c40989"]
}, Open ]],
-Cell[469133, 8569, 4656, 71, 55, "Input",ExpressionUUID->"4dc1af41-4bef-447e-a233-c8c033887359"],
+Cell[544290, 10412, 4656, 71, 55, "Input",ExpressionUUID->"4dc1af41-4bef-447e-a233-c8c033887359"],
Cell[CellGroupData[{
-Cell[473814, 8644, 7928, 115, 22, "Input",ExpressionUUID->"e74b775a-c745-4f15-9b63-7bb00af5a487"],
-Cell[481745, 8761, 440, 10, 22, "Message",ExpressionUUID->"05b00b91-b292-4f86-8ac1-2cad1d50f51c"],
-Cell[482188, 8773, 5412, 91, 25, "Output",ExpressionUUID->"54c0d651-a676-4819-8283-9d2b33e602fc"]
+Cell[548971, 10487, 7928, 115, 22, "Input",ExpressionUUID->"e74b775a-c745-4f15-9b63-7bb00af5a487"],
+Cell[556902, 10604, 440, 10, 22, "Message",ExpressionUUID->"05b00b91-b292-4f86-8ac1-2cad1d50f51c"],
+Cell[557345, 10616, 5412, 91, 42, "Output",ExpressionUUID->"54c0d651-a676-4819-8283-9d2b33e602fc"]
}, Open ]],
Cell[CellGroupData[{
-Cell[487637, 8869, 1935, 37, 71, "Input",ExpressionUUID->"fb42dfa6-f948-472b-87e8-e4cb6e90ba26"],
-Cell[489575, 8908, 18227, 329, 137, "Output",ExpressionUUID->"21f29296-03a7-4cc8-b760-b71dfa22b325"]
+Cell[562794, 10712, 1935, 37, 71, "Input",ExpressionUUID->"fb42dfa6-f948-472b-87e8-e4cb6e90ba26"],
+Cell[564732, 10751, 18227, 329, 137, "Output",ExpressionUUID->"21f29296-03a7-4cc8-b760-b71dfa22b325"]
}, Open ]],
Cell[CellGroupData[{
-Cell[507839, 9242, 1636, 43, 24, "Input",ExpressionUUID->"a60f4b40-cbec-4d33-97f5-65de16370f80"],
-Cell[509478, 9287, 221293, 3642, 180, "Output",ExpressionUUID->"820bd75e-ec9c-4db8-b5e7-96cfd532640b"]
+Cell[582996, 11085, 1636, 43, 41, "Input",ExpressionUUID->"a60f4b40-cbec-4d33-97f5-65de16370f80"],
+Cell[584635, 11130, 221293, 3642, 180, "Output",ExpressionUUID->"820bd75e-ec9c-4db8-b5e7-96cfd532640b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[730808, 12934, 1661, 43, 24, "Input",ExpressionUUID->"49d01b4e-c864-4298-94b7-ace002b965d8"],
-Cell[732472, 12979, 221490, 3645, 180, "Output",ExpressionUUID->"3156e626-6fd1-4878-b776-44c6cf7fef12"]
+Cell[805965, 14777, 1661, 43, 41, "Input",ExpressionUUID->"49d01b4e-c864-4298-94b7-ace002b965d8"],
+Cell[807629, 14822, 221490, 3645, 180, "Output",ExpressionUUID->"3156e626-6fd1-4878-b776-44c6cf7fef12"]
}, Open ]],
Cell[CellGroupData[{
-Cell[953999, 16629, 718, 19, 39, "Input",ExpressionUUID->"4cefebbf-3ee0-49eb-85d3-1f8acdd03d03"],
-Cell[954720, 16650, 689, 13, 27, "Output",ExpressionUUID->"5fad1eab-bed9-4cd3-a21b-8c8758b922eb"]
+Cell[1029156, 18472, 718, 19, 39, "Input",ExpressionUUID->"4cefebbf-3ee0-49eb-85d3-1f8acdd03d03"],
+Cell[1029877, 18493, 689, 13, 27, "Output",ExpressionUUID->"5fad1eab-bed9-4cd3-a21b-8c8758b922eb"]
}, Open ]],
Cell[CellGroupData[{
-Cell[955446, 16668, 3389, 70, 75, "Input",ExpressionUUID->"82d96d28-401c-43fa-8337-b55bfd500552"],
-Cell[958838, 16740, 12735, 275, 138, "Output",ExpressionUUID->"1ab9ef64-9a55-4344-9cb3-5443ea2b020c"]
+Cell[1030603, 18511, 3389, 70, 75, "Input",ExpressionUUID->"82d96d28-401c-43fa-8337-b55bfd500552"],
+Cell[1033995, 18583, 12735, 275, 138, "Output",ExpressionUUID->"1ab9ef64-9a55-4344-9cb3-5443ea2b020c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[971610, 17020, 1135, 27, 57, "Input",ExpressionUUID->"b2167779-1e8f-4690-a7d9-fe7d464a4815"],
-Cell[972748, 17049, 7683, 188, 181, "Output",ExpressionUUID->"ead509b6-b153-4829-be33-8ff5a6efcada"]
+Cell[1046767, 18863, 1135, 27, 57, "Input",ExpressionUUID->"b2167779-1e8f-4690-a7d9-fe7d464a4815"],
+Cell[1047905, 18892, 7683, 188, 181, "Output",ExpressionUUID->"ead509b6-b153-4829-be33-8ff5a6efcada"]
}, Open ]],
-Cell[980446, 17240, 3769, 58, 55, "Input",ExpressionUUID->"172fdee0-af8e-4049-9dda-cfec26fad09c"],
+Cell[1055603, 19083, 3769, 58, 55, "Input",ExpressionUUID->"172fdee0-af8e-4049-9dda-cfec26fad09c"],
Cell[CellGroupData[{
-Cell[984240, 17302, 6700, 99, 24, "Input",ExpressionUUID->"0ea1b44d-26c0-49ba-8c54-6d51b749dcee"],
-Cell[990943, 17403, 558, 12, 22, "Message",ExpressionUUID->"1820350f-3096-4479-969b-2dda88e43862"],
-Cell[991504, 17417, 5206, 95, 44, "Output",ExpressionUUID->"58f08fd4-743e-4318-9e82-7ecda92ce1db"]
+Cell[1059397, 19145, 6700, 99, 24, "Input",ExpressionUUID->"0ea1b44d-26c0-49ba-8c54-6d51b749dcee"],
+Cell[1066100, 19246, 558, 12, 22, "Message",ExpressionUUID->"1820350f-3096-4479-969b-2dda88e43862"],
+Cell[1066661, 19260, 5206, 95, 60, "Output",ExpressionUUID->"58f08fd4-743e-4318-9e82-7ecda92ce1db"]
}, Open ]],
Cell[CellGroupData[{
-Cell[996747, 17517, 1747, 35, 71, "Input",ExpressionUUID->"324ac29a-a49d-4e6b-a8d8-b259afcd34c7"],
-Cell[998497, 17554, 17065, 313, 138, "Output",ExpressionUUID->"464153b0-04b0-46cf-82d1-649dc2c2d6a0"]
+Cell[1071904, 19360, 1747, 35, 71, "Input",ExpressionUUID->"324ac29a-a49d-4e6b-a8d8-b259afcd34c7"],
+Cell[1073654, 19397, 17065, 313, 138, "Output",ExpressionUUID->"464153b0-04b0-46cf-82d1-649dc2c2d6a0"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1015599, 17872, 1075, 29, 59, "Input",ExpressionUUID->"288a2ff7-5161-4fe5-8f43-122ba3a5d3f2"],
-Cell[1016677, 17903, 1686, 44, 184, "Output",ExpressionUUID->"d5da57e7-0428-4391-af81-4f874cd963e4"]
+Cell[1090756, 19715, 1075, 29, 59, "Input",ExpressionUUID->"288a2ff7-5161-4fe5-8f43-122ba3a5d3f2"],
+Cell[1091834, 19746, 1686, 44, 184, "Output",ExpressionUUID->"d5da57e7-0428-4391-af81-4f874cd963e4"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1018400, 17952, 2704, 59, 75, "Input",ExpressionUUID->"d85908e0-a479-4a49-999f-e6e49522af2d"],
-Cell[1021107, 18013, 12141, 271, 180, "Output",ExpressionUUID->"2f30870a-4c21-432a-b77d-85d6f131265e"]
+Cell[1093557, 19795, 2704, 59, 75, "Input",ExpressionUUID->"d85908e0-a479-4a49-999f-e6e49522af2d"],
+Cell[1096264, 19856, 12141, 271, 180, "Output",ExpressionUUID->"2f30870a-4c21-432a-b77d-85d6f131265e"]
}, Open ]],
-Cell[1033263, 18287, 3491, 55, 55, "Input",ExpressionUUID->"4fbf2b0a-5252-416a-b90a-a12f6d946efe"],
+Cell[1108420, 20130, 3491, 55, 55, "Input",ExpressionUUID->"4fbf2b0a-5252-416a-b90a-a12f6d946efe"],
Cell[CellGroupData[{
-Cell[1036779, 18346, 6511, 94, 22, "Input",ExpressionUUID->"5ac27342-feda-4aa6-9098-1d0e7b78fae8"],
-Cell[1043293, 18442, 5770, 96, 25, "Output",ExpressionUUID->"b47243ad-5432-4eb5-bbf7-870353157603"]
+Cell[1111936, 20189, 6511, 94, 22, "Input",ExpressionUUID->"5ac27342-feda-4aa6-9098-1d0e7b78fae8"],
+Cell[1118450, 20285, 5770, 96, 42, "Output",ExpressionUUID->"b47243ad-5432-4eb5-bbf7-870353157603"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1049100, 18543, 1791, 35, 71, "Input",ExpressionUUID->"63fcec7c-aaff-46be-90dc-231bca0993d9"],
-Cell[1050894, 18580, 17336, 318, 138, "Output",ExpressionUUID->"547073ca-2de1-44b5-8139-682a4eb761c9"]
+Cell[1124257, 20386, 1791, 35, 71, "Input",ExpressionUUID->"63fcec7c-aaff-46be-90dc-231bca0993d9"],
+Cell[1126051, 20423, 17336, 318, 138, "Output",ExpressionUUID->"547073ca-2de1-44b5-8139-682a4eb761c9"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1068267, 18903, 2079, 54, 75, "Input",ExpressionUUID->"8f2cfc94-a67c-484e-bbeb-610484e18a97"],
-Cell[1070349, 18959, 16732, 375, 138, "Output",ExpressionUUID->"453285de-e47a-4bcc-96d7-ec76dfc88820"]
+Cell[1143424, 20746, 2079, 54, 75, "Input",ExpressionUUID->"8f2cfc94-a67c-484e-bbeb-610484e18a97"],
+Cell[1145506, 20802, 16732, 375, 138, "Output",ExpressionUUID->"453285de-e47a-4bcc-96d7-ec76dfc88820"]
}, Open ]],
-Cell[1087096, 19337, 3360, 53, 55, "Input",ExpressionUUID->"59993536-91f3-449a-9e8c-58cd1f6ec74c"],
+Cell[1162253, 21180, 3360, 53, 55, "Input",ExpressionUUID->"59993536-91f3-449a-9e8c-58cd1f6ec74c"],
Cell[CellGroupData[{
-Cell[1090481, 19394, 6459, 92, 22, "Input",ExpressionUUID->"ab599d2d-27ef-4491-b1cb-534f98403e59"],
-Cell[1096943, 19488, 1955, 31, 22, "Message",ExpressionUUID->"f4cd9634-0e29-4718-97b8-490c5f242f4a"],
-Cell[1098901, 19521, 5268, 92, 25, "Output",ExpressionUUID->"80e0c922-0db4-48ee-96b6-33400b7fa9d7"]
+Cell[1165638, 21237, 6459, 92, 22, "Input",ExpressionUUID->"ab599d2d-27ef-4491-b1cb-534f98403e59"],
+Cell[1172100, 21331, 1955, 31, 34, "Message",ExpressionUUID->"f4cd9634-0e29-4718-97b8-490c5f242f4a"],
+Cell[1174058, 21364, 5268, 92, 42, "Output",ExpressionUUID->"80e0c922-0db4-48ee-96b6-33400b7fa9d7"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1104206, 19618, 1882, 39, 71, "Input",ExpressionUUID->"f9bd15f0-d859-4863-9fe9-3ad2883e76d2"],
-Cell[1106091, 19659, 9557, 188, 138, "Output",ExpressionUUID->"27a9c152-8a0d-4899-aa74-6a603c9665b9"]
+Cell[1179363, 21461, 1882, 39, 71, "Input",ExpressionUUID->"f9bd15f0-d859-4863-9fe9-3ad2883e76d2"],
+Cell[1181248, 21502, 9557, 188, 138, "Output",ExpressionUUID->"27a9c152-8a0d-4899-aa74-6a603c9665b9"]
}, Open ]],
-Cell[1115663, 19850, 2869, 47, 55, "Input",ExpressionUUID->"1282028e-7a8e-46e3-bc91-b35b1d1604ed"],
+Cell[1190820, 21693, 2869, 47, 55, "Input",ExpressionUUID->"1282028e-7a8e-46e3-bc91-b35b1d1604ed"],
Cell[CellGroupData[{
-Cell[1118557, 19901, 5473, 80, 22, "Input",ExpressionUUID->"83c6d43c-fed0-4989-a06f-986a75bf7651"],
-Cell[1124033, 19983, 497, 11, 22, "Message",ExpressionUUID->"cf50225b-a0ef-4626-94a0-0803782ba72f"],
-Cell[1124533, 19996, 10419, 251, 79, "Output",ExpressionUUID->"e4dd84aa-35ca-4c06-b076-812cdad95551"]
+Cell[1193714, 21744, 5473, 80, 22, "Input",ExpressionUUID->"83c6d43c-fed0-4989-a06f-986a75bf7651"],
+Cell[1199190, 21826, 497, 11, 22, "Message",ExpressionUUID->"cf50225b-a0ef-4626-94a0-0803782ba72f"],
+Cell[1199690, 21839, 10419, 251, 79, "Output",ExpressionUUID->"e4dd84aa-35ca-4c06-b076-812cdad95551"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1134989, 20252, 1852, 38, 71, "Input",ExpressionUUID->"9903c113-3088-4e43-884e-783e3462a3bd"],
-Cell[1136844, 20292, 17127, 315, 136, "Output",ExpressionUUID->"ace4a267-d48c-4a17-8b21-0b8791f1d4a8"]
+Cell[1210146, 22095, 1852, 38, 71, "Input",ExpressionUUID->"9903c113-3088-4e43-884e-783e3462a3bd"],
+Cell[1212001, 22135, 17127, 315, 136, "Output",ExpressionUUID->"ace4a267-d48c-4a17-8b21-0b8791f1d4a8"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1154008, 20612, 482, 11, 22, "Input",ExpressionUUID->"85ae5ebd-4d7b-469b-b177-bd88ef9a9e54"],
-Cell[1154493, 20625, 9927, 243, 178, "Output",ExpressionUUID->"392555db-33d5-4e50-8a31-e2a3a67d3a75"]
+Cell[1229165, 22455, 482, 11, 22, "Input",ExpressionUUID->"85ae5ebd-4d7b-469b-b177-bd88ef9a9e54"],
+Cell[1229650, 22468, 9927, 243, 178, "Output",ExpressionUUID->"392555db-33d5-4e50-8a31-e2a3a67d3a75"]
}, Open ]],
-Cell[1164435, 20871, 2967, 48, 55, "Input",ExpressionUUID->"d0ac4c0e-3fde-4f39-860c-119c61865e94"],
+Cell[1239592, 22714, 2967, 48, 55, "Input",ExpressionUUID->"d0ac4c0e-3fde-4f39-860c-119c61865e94"],
Cell[CellGroupData[{
-Cell[1167427, 20923, 5720, 84, 24, "Input",ExpressionUUID->"31b6196c-dff7-4ae3-ba24-930461af4520"],
-Cell[1173150, 21009, 771, 15, 22, "Message",ExpressionUUID->"7df3f521-17b3-470c-a210-7a61feecd5cb"],
-Cell[1173924, 21026, 4257, 83, 44, "Output",ExpressionUUID->"ea8fe62a-dd49-4054-b383-0738f0b8f82f"]
+Cell[1242584, 22766, 5720, 84, 24, "Input",ExpressionUUID->"31b6196c-dff7-4ae3-ba24-930461af4520"],
+Cell[1248307, 22852, 771, 15, 34, "Message",ExpressionUUID->"7df3f521-17b3-470c-a210-7a61feecd5cb"],
+Cell[1249081, 22869, 4257, 83, 60, "Output",ExpressionUUID->"ea8fe62a-dd49-4054-b383-0738f0b8f82f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1178218, 21114, 1796, 36, 71, "Input",ExpressionUUID->"c89d4fc8-2254-4238-b27d-107fefc31da5"],
-Cell[1180017, 21152, 17264, 316, 136, "Output",ExpressionUUID->"d1455115-bd06-4d75-a8b5-99c39d1e90d7"]
+Cell[1253375, 22957, 1796, 36, 71, "Input",ExpressionUUID->"c89d4fc8-2254-4238-b27d-107fefc31da5"],
+Cell[1255174, 22995, 17264, 316, 136, "Output",ExpressionUUID->"d1455115-bd06-4d75-a8b5-99c39d1e90d7"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1197318, 21473, 874, 23, 22, "Input",ExpressionUUID->"d7824482-d74e-4fac-8224-3728d7d92b24"],
-Cell[1198195, 21498, 3739, 89, 178, "Output",ExpressionUUID->"ad65c8a7-66e9-4c1e-b599-35bacb78e113"]
+Cell[1272475, 23316, 874, 23, 22, "Input",ExpressionUUID->"d7824482-d74e-4fac-8224-3728d7d92b24"],
+Cell[1273352, 23341, 3739, 89, 178, "Output",ExpressionUUID->"ad65c8a7-66e9-4c1e-b599-35bacb78e113"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1201971, 21592, 549, 15, 22, "Input",ExpressionUUID->"93164c6e-f8e2-4fb1-ab0b-a65d379b88ef"],
-Cell[1202523, 21609, 234, 5, 25, "Output",ExpressionUUID->"db3875cf-f19f-4e24-a7e4-c4017292b8fe"]
+Cell[1277128, 23435, 549, 15, 22, "Input",ExpressionUUID->"93164c6e-f8e2-4fb1-ab0b-a65d379b88ef"],
+Cell[1277680, 23452, 234, 5, 25, "Output",ExpressionUUID->"db3875cf-f19f-4e24-a7e4-c4017292b8fe"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1202794, 21619, 262, 6, 22, "Input",ExpressionUUID->"40b90456-e65f-4936-94f0-aa9e157985d1"],
-Cell[1203059, 21627, 1039, 29, 51, "Output",ExpressionUUID->"e84b103a-4734-481c-bc68-32680f2490ae"]
+Cell[1277951, 23462, 262, 6, 22, "Input",ExpressionUUID->"40b90456-e65f-4936-94f0-aa9e157985d1"],
+Cell[1278216, 23470, 1039, 29, 51, "Output",ExpressionUUID->"e84b103a-4734-481c-bc68-32680f2490ae"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1204135, 21661, 1085, 28, 24, "Input",ExpressionUUID->"802f97e2-70b5-4c0e-b977-f8a2e505bb60"],
-Cell[1205223, 21691, 74312, 1240, 77, "Output",ExpressionUUID->"13540836-8492-44db-8f61-825c10092a3b"]
+Cell[1279292, 23504, 1085, 28, 24, "Input",ExpressionUUID->"802f97e2-70b5-4c0e-b977-f8a2e505bb60"],
+Cell[1280380, 23534, 74312, 1240, 77, "Output",ExpressionUUID->"13540836-8492-44db-8f61-825c10092a3b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1279572, 22936, 1597, 44, 40, "Input",ExpressionUUID->"9510d7f0-79c6-409e-9c06-caac79aa83b9"],
-Cell[1281172, 22982, 487, 11, 22, "Message",ExpressionUUID->"b9cd98f1-c229-4f5b-95ec-13d954ebd59a"],
-Cell[1281662, 22995, 490, 11, 22, "Message",ExpressionUUID->"ea96e00a-9fe6-4d33-80b4-d0a9eed78731"],
-Cell[1282155, 23008, 488, 11, 22, "Message",ExpressionUUID->"a31115cb-de8f-481d-994b-5bc9a83710b8"],
-Cell[1282646, 23021, 457, 10, 22, "Message",ExpressionUUID->"667a685e-0e76-4db4-8986-9eaad489f3e3"]
+Cell[1354729, 24779, 1597, 44, 40, "Input",ExpressionUUID->"9510d7f0-79c6-409e-9c06-caac79aa83b9"],
+Cell[1356329, 24825, 487, 11, 22, "Message",ExpressionUUID->"b9cd98f1-c229-4f5b-95ec-13d954ebd59a"],
+Cell[1356819, 24838, 490, 11, 22, "Message",ExpressionUUID->"ea96e00a-9fe6-4d33-80b4-d0a9eed78731"],
+Cell[1357312, 24851, 488, 11, 22, "Message",ExpressionUUID->"a31115cb-de8f-481d-994b-5bc9a83710b8"],
+Cell[1357803, 24864, 457, 10, 22, "Message",ExpressionUUID->"667a685e-0e76-4db4-8986-9eaad489f3e3"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1283140, 23036, 1243, 25, 24, "Input",ExpressionUUID->"4c6fe8ab-4f6a-4b57-92a5-c94e403d041d"],
-Cell[1284386, 23063, 257598, 4238, 182, "Output",ExpressionUUID->"11addea4-5f17-44f9-80f6-b7d15dd56efa"]
+Cell[1358297, 24879, 1243, 25, 24, "Input",ExpressionUUID->"4c6fe8ab-4f6a-4b57-92a5-c94e403d041d"],
+Cell[1359543, 24906, 257598, 4238, 182, "Output",ExpressionUUID->"11addea4-5f17-44f9-80f6-b7d15dd56efa"]
}, Open ]],
-Cell[1541999, 27304, 2861, 70, 24, "Input",ExpressionUUID->"bc84d748-2ae9-4f3e-87ec-0fa12dfd6954"],
+Cell[1617156, 29147, 2861, 70, 75, "Input",ExpressionUUID->"bc84d748-2ae9-4f3e-87ec-0fa12dfd6954"],
Cell[CellGroupData[{
-Cell[1544885, 27378, 4876, 115, 41, "Input",ExpressionUUID->"c099f9b5-a706-4293-9c42-f007146a13f7"],
-Cell[1549764, 27495, 372, 9, 32, "Message",ExpressionUUID->"94a73904-550c-43cf-8d0b-35b5cbc01228"],
-Cell[1550139, 27506, 414, 10, 22, "Message",ExpressionUUID->"3f893d05-e641-4bf4-9ea5-bcabdc4d6a95"],
-Cell[1550556, 27518, 374, 9, 32, "Message",ExpressionUUID->"53b27a41-4cd2-4652-a104-35161ad96bf2"],
-Cell[1550933, 27529, 372, 9, 32, "Message",ExpressionUUID->"413977e9-0c84-449f-b053-9df53b50e738"],
-Cell[1551308, 27540, 449, 10, 22, "Message",ExpressionUUID->"d499cd59-07fb-492e-b9f7-1ddddfebb272"],
-Cell[1551760, 27552, 412, 10, 22, "Message",ExpressionUUID->"395175e1-6469-49cf-a376-9be005af7add"],
-Cell[1552175, 27564, 412, 10, 22, "Message",ExpressionUUID->"8f65301b-fe48-42b3-9924-e0e8e3bea608"],
-Cell[1552590, 27576, 454, 10, 22, "Message",ExpressionUUID->"6d1c81df-b866-4446-8abe-657a6a8d929f"]
+Cell[1620042, 29221, 4876, 115, 92, "Input",ExpressionUUID->"c099f9b5-a706-4293-9c42-f007146a13f7"],
+Cell[1624921, 29338, 372, 9, 32, "Message",ExpressionUUID->"94a73904-550c-43cf-8d0b-35b5cbc01228"],
+Cell[1625296, 29349, 414, 10, 22, "Message",ExpressionUUID->"3f893d05-e641-4bf4-9ea5-bcabdc4d6a95"],
+Cell[1625713, 29361, 374, 9, 32, "Message",ExpressionUUID->"53b27a41-4cd2-4652-a104-35161ad96bf2"],
+Cell[1626090, 29372, 372, 9, 32, "Message",ExpressionUUID->"413977e9-0c84-449f-b053-9df53b50e738"],
+Cell[1626465, 29383, 449, 10, 22, "Message",ExpressionUUID->"d499cd59-07fb-492e-b9f7-1ddddfebb272"],
+Cell[1626917, 29395, 412, 10, 22, "Message",ExpressionUUID->"395175e1-6469-49cf-a376-9be005af7add"],
+Cell[1627332, 29407, 412, 10, 22, "Message",ExpressionUUID->"8f65301b-fe48-42b3-9924-e0e8e3bea608"],
+Cell[1627747, 29419, 454, 10, 22, "Message",ExpressionUUID->"6d1c81df-b866-4446-8abe-657a6a8d929f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1553081, 27591, 390, 10, 22, "Input",ExpressionUUID->"a66d45ff-8000-4c96-bcb2-2bc7343fd5de"],
-Cell[1553474, 27603, 230, 4, 305, "Output",ExpressionUUID->"5364b922-5bbc-4121-ab23-dc5bb4bec4cb"]
+Cell[1628238, 29434, 390, 10, 22, "Input",ExpressionUUID->"a66d45ff-8000-4c96-bcb2-2bc7343fd5de"],
+Cell[1628631, 29446, 230, 4, 305, "Output",ExpressionUUID->"5364b922-5bbc-4121-ab23-dc5bb4bec4cb"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1553741, 27612, 2250, 58, 59, "Input",ExpressionUUID->"8e0288f2-5922-4dde-923e-8106073adf6c"],
-Cell[1555994, 27672, 1066745, 23056, 352, "Output",ExpressionUUID->"c6c9c8e8-7cb0-4ad0-a6c6-fb0a70db55da"]
+Cell[1628898, 29455, 2250, 58, 76, "Input",ExpressionUUID->"8e0288f2-5922-4dde-923e-8106073adf6c"],
+Cell[1631151, 29515, 1066745, 23056, 352, "Output",ExpressionUUID->"c6c9c8e8-7cb0-4ad0-a6c6-fb0a70db55da"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2622776, 50733, 1775, 44, 24, "Input",ExpressionUUID->"4355674b-0fd6-4516-8896-cd33a8476ab5"],
-Cell[2624554, 50779, 376, 5, 25, "Output",ExpressionUUID->"b8a18520-7b45-49b0-af16-64f6d0a9c819"]
+Cell[2697933, 52576, 1775, 44, 24, "Input",ExpressionUUID->"4355674b-0fd6-4516-8896-cd33a8476ab5"],
+Cell[2699711, 52622, 376, 5, 25, "Output",ExpressionUUID->"b8a18520-7b45-49b0-af16-64f6d0a9c819"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2624967, 50789, 427, 10, 24, "Input",ExpressionUUID->"ee6beea5-4d88-4650-837d-58c8d3c6363b"],
-Cell[2625397, 50801, 18847, 324, 179, "Output",ExpressionUUID->"a27bcc82-f8f9-42d8-854c-a204a73d483f"]
+Cell[2700124, 52632, 427, 10, 24, "Input",ExpressionUUID->"ee6beea5-4d88-4650-837d-58c8d3c6363b"],
+Cell[2700554, 52644, 18847, 324, 179, "Output",ExpressionUUID->"a27bcc82-f8f9-42d8-854c-a204a73d483f"]
}, Open ]],
-Cell[2644259, 51128, 3136, 79, 24, "Input",ExpressionUUID->"5894652c-ea9c-458f-866d-b40d1a5efb75"],
+Cell[2719416, 52971, 3136, 79, 75, "Input",ExpressionUUID->"5894652c-ea9c-458f-866d-b40d1a5efb75"],
Cell[CellGroupData[{
-Cell[2647420, 51211, 592, 13, 24, "Input",ExpressionUUID->"3fee7ec2-e0c4-4420-8192-c46efe85e265"],
-Cell[2648015, 51226, 5889, 112, 178, "Output",ExpressionUUID->"2bfc8e2b-006d-4096-8c4b-8422da967dcb"]
+Cell[2722577, 53054, 592, 13, 24, "Input",ExpressionUUID->"3fee7ec2-e0c4-4420-8192-c46efe85e265"],
+Cell[2723172, 53069, 5889, 112, 178, "Output",ExpressionUUID->"2bfc8e2b-006d-4096-8c4b-8422da967dcb"]
}, Open ]],
-Cell[2653919, 51341, 4130, 102, 24, "Input",ExpressionUUID->"16683f20-3a25-47da-8c9c-58bfb1a56ae7"],
+Cell[2729076, 53184, 4130, 102, 109, "Input",ExpressionUUID->"16683f20-3a25-47da-8c9c-58bfb1a56ae7"],
Cell[CellGroupData[{
-Cell[2658074, 51447, 1495, 23, 24, "Input",ExpressionUUID->"0c28b27c-3e81-49ce-9293-512f19f95aeb"],
-Cell[2659572, 51472, 6141, 116, 180, "Output",ExpressionUUID->"a225487e-1b09-4625-b1b4-0393225de258"]
+Cell[2733231, 53290, 1495, 23, 24, "Input",ExpressionUUID->"0c28b27c-3e81-49ce-9293-512f19f95aeb"],
+Cell[2734729, 53315, 6141, 116, 180, "Output",ExpressionUUID->"a225487e-1b09-4625-b1b4-0393225de258"]
}, Open ]],
-Cell[2665728, 51591, 2010, 35, 55, "Input",ExpressionUUID->"78606265-f50f-49dc-888d-33550f059b83"],
+Cell[2740885, 53434, 2010, 35, 55, "Input",ExpressionUUID->"78606265-f50f-49dc-888d-33550f059b83"],
Cell[CellGroupData[{
-Cell[2667763, 51630, 4151, 62, 22, "Input",ExpressionUUID->"396a3ca5-637b-4194-943d-7ec379bcf47e"],
-Cell[2671917, 51694, 2707, 49, 25, "Output",ExpressionUUID->"032de8e5-e62b-4c2c-a2db-afe60e4c0f47"]
+Cell[2742920, 53473, 4151, 62, 22, "Input",ExpressionUUID->"396a3ca5-637b-4194-943d-7ec379bcf47e"],
+Cell[2747074, 53537, 2707, 49, 25, "Output",ExpressionUUID->"032de8e5-e62b-4c2c-a2db-afe60e4c0f47"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2674661, 51748, 1600, 34, 71, "Input",ExpressionUUID->"050da7fc-1308-4d49-81b4-1f4efc54c09a"],
-Cell[2676264, 51784, 17028, 313, 136, "Output",ExpressionUUID->"5c8a355d-e522-4c74-8a53-b7d46e9c333f"]
+Cell[2749818, 53591, 1600, 34, 71, "Input",ExpressionUUID->"050da7fc-1308-4d49-81b4-1f4efc54c09a"],
+Cell[2751421, 53627, 17028, 313, 136, "Output",ExpressionUUID->"5c8a355d-e522-4c74-8a53-b7d46e9c333f"]
}, Open ]],
-Cell[2693307, 52100, 2110, 37, 55, "Input",ExpressionUUID->"37ec5e26-c9a1-4c3e-b046-f5bdcb69b8db"],
+Cell[2768464, 53943, 2110, 37, 55, "Input",ExpressionUUID->"37ec5e26-c9a1-4c3e-b046-f5bdcb69b8db"],
Cell[CellGroupData[{
-Cell[2695442, 52141, 4183, 60, 22, "Input",ExpressionUUID->"aafc8bea-bd59-4ab7-b436-168abec75b4d"],
-Cell[2699628, 52203, 2082, 30, 25, "Output",ExpressionUUID->"823a15e6-d4d4-45cf-b711-54e7c88841d0"]
+Cell[2770599, 53984, 4183, 60, 22, "Input",ExpressionUUID->"aafc8bea-bd59-4ab7-b436-168abec75b4d"],
+Cell[2774785, 54046, 2082, 30, 25, "Output",ExpressionUUID->"823a15e6-d4d4-45cf-b711-54e7c88841d0"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2701747, 52238, 1650, 35, 71, "Input",ExpressionUUID->"d90b515e-65bf-42c5-a9d8-7ebc27861a0a"],
-Cell[2703400, 52275, 20490, 372, 135, "Output",ExpressionUUID->"674ddf51-ef87-4ea3-981c-9bca8b07e0de"]
+Cell[2776904, 54081, 1650, 35, 71, "Input",ExpressionUUID->"d90b515e-65bf-42c5-a9d8-7ebc27861a0a"],
+Cell[2778557, 54118, 20490, 372, 135, "Output",ExpressionUUID->"674ddf51-ef87-4ea3-981c-9bca8b07e0de"]
}, Open ]],
-Cell[2723905, 52650, 2205, 38, 55, "Input",ExpressionUUID->"74c29eca-8a3c-482d-b962-b5a7bc6eeeb5"],
+Cell[2799062, 54493, 2205, 38, 55, "Input",ExpressionUUID->"74c29eca-8a3c-482d-b962-b5a7bc6eeeb5"],
Cell[CellGroupData[{
-Cell[2726135, 52692, 6088, 119, 24, "Input",ExpressionUUID->"4f2555c0-0b0b-46e3-953c-b99c2d8ef953"],
-Cell[2732226, 52813, 3154, 60, 27, "Output",ExpressionUUID->"7ba637ff-c37f-4ab3-8f3f-c3a013477573"]
+Cell[2801292, 54535, 6088, 119, 57, "Input",ExpressionUUID->"4f2555c0-0b0b-46e3-953c-b99c2d8ef953"],
+Cell[2807383, 54656, 3154, 60, 44, "Output",ExpressionUUID->"7ba637ff-c37f-4ab3-8f3f-c3a013477573"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2735417, 52878, 1700, 36, 71, "Input",ExpressionUUID->"11bfaed8-b616-4bdb-acee-d6f652a0a4e6"],
-Cell[2737120, 52916, 16873, 311, 136, "Output",ExpressionUUID->"9d9174e8-24e3-40da-860e-87b1062d7e14"]
+Cell[2810574, 54721, 1700, 36, 71, "Input",ExpressionUUID->"11bfaed8-b616-4bdb-acee-d6f652a0a4e6"],
+Cell[2812277, 54759, 16873, 311, 136, "Output",ExpressionUUID->"9d9174e8-24e3-40da-860e-87b1062d7e14"]
}, Open ]],
-Cell[2754008, 53230, 2257, 39, 55, "Input",ExpressionUUID->"da646d41-2935-4f0b-94a9-796be9875f10"],
+Cell[2829165, 55073, 2257, 39, 55, "Input",ExpressionUUID->"da646d41-2935-4f0b-94a9-796be9875f10"],
Cell[CellGroupData[{
-Cell[2756290, 53273, 6220, 122, 24, "Input",ExpressionUUID->"bd584363-7bad-4830-803a-025a2ac0e9a6"],
-Cell[2762513, 53397, 3291, 62, 27, "Output",ExpressionUUID->"83698929-f178-4c4d-9569-7a23e1e9c919"]
+Cell[2831447, 55116, 6220, 122, 57, "Input",ExpressionUUID->"bd584363-7bad-4830-803a-025a2ac0e9a6"],
+Cell[2837670, 55240, 3291, 62, 44, "Output",ExpressionUUID->"83698929-f178-4c4d-9569-7a23e1e9c919"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2765841, 53464, 1746, 36, 71, "Input",ExpressionUUID->"f7b18b38-4aa7-4d26-8653-c5282fb8bc07"],
-Cell[2767590, 53502, 17143, 317, 136, "Output",ExpressionUUID->"aeb5446a-db30-4b37-a075-fd0875fea03f"]
+Cell[2840998, 55307, 1746, 36, 71, "Input",ExpressionUUID->"f7b18b38-4aa7-4d26-8653-c5282fb8bc07"],
+Cell[2842747, 55345, 17143, 317, 136, "Output",ExpressionUUID->"aeb5446a-db30-4b37-a075-fd0875fea03f"]
}, Open ]],
-Cell[2784748, 53822, 2305, 39, 55, "Input",ExpressionUUID->"6dd58649-2ccd-4fad-b61e-e6b84d8dc37c"],
+Cell[2859905, 55665, 2305, 39, 55, "Input",ExpressionUUID->"6dd58649-2ccd-4fad-b61e-e6b84d8dc37c"],
Cell[CellGroupData[{
-Cell[2787078, 53865, 6753, 136, 41, "Input",ExpressionUUID->"47d19cd0-5c7e-4d2e-8522-f7af9f76b03d"],
-Cell[2793834, 54003, 3674, 69, 27, "Output",ExpressionUUID->"e4c2258c-d675-43b1-8eb8-1a175227c843"]
+Cell[2862235, 55708, 6753, 136, 57, "Input",ExpressionUUID->"47d19cd0-5c7e-4d2e-8522-f7af9f76b03d"],
+Cell[2868991, 55846, 3674, 69, 44, "Output",ExpressionUUID->"e4c2258c-d675-43b1-8eb8-1a175227c843"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2797545, 54077, 1798, 37, 71, "Input",ExpressionUUID->"e5291fe9-0a5c-4396-ac44-47a5f71d5568"],
-Cell[2799346, 54116, 17131, 315, 134, "Output",ExpressionUUID->"f761d7d5-04c8-40b2-a937-6fac9575aeda"]
+Cell[2872702, 55920, 1798, 37, 71, "Input",ExpressionUUID->"e5291fe9-0a5c-4396-ac44-47a5f71d5568"],
+Cell[2874503, 55959, 17131, 315, 134, "Output",ExpressionUUID->"f761d7d5-04c8-40b2-a937-6fac9575aeda"]
}, Open ]],
-Cell[2816492, 54434, 2356, 40, 55, "Input",ExpressionUUID->"034d75ed-4e94-4dfa-b0b5-fb25cd2d30d3"],
+Cell[2891649, 56277, 2356, 40, 55, "Input",ExpressionUUID->"034d75ed-4e94-4dfa-b0b5-fb25cd2d30d3"],
Cell[CellGroupData[{
-Cell[2818873, 54478, 6967, 140, 41, "Input",ExpressionUUID->"939e0991-1a33-48bb-8325-c6afb708b1bf"],
-Cell[2825843, 54620, 3893, 74, 25, "Output",ExpressionUUID->"07c46e6f-b409-4e46-91c4-1f8deedd3b7c"]
+Cell[2894030, 56321, 6967, 140, 73, "Input",ExpressionUUID->"939e0991-1a33-48bb-8325-c6afb708b1bf"],
+Cell[2901000, 56463, 3893, 74, 42, "Output",ExpressionUUID->"07c46e6f-b409-4e46-91c4-1f8deedd3b7c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2829773, 54699, 1848, 38, 71, "Input",ExpressionUUID->"41fa3464-11f7-47db-b9f4-c04a234b3967"],
-Cell[2831624, 54739, 17640, 324, 136, "Output",ExpressionUUID->"e6ece27a-240d-4388-ae6d-863762fb16fc"]
+Cell[2904930, 56542, 1848, 38, 71, "Input",ExpressionUUID->"41fa3464-11f7-47db-b9f4-c04a234b3967"],
+Cell[2906781, 56582, 17640, 324, 136, "Output",ExpressionUUID->"e6ece27a-240d-4388-ae6d-863762fb16fc"]
}, Open ]],
-Cell[2849279, 55066, 2409, 41, 55, "Input",ExpressionUUID->"5f4959b4-0631-460c-894f-e078cc08f6c0"],
+Cell[2924436, 56909, 2409, 41, 55, "Input",ExpressionUUID->"5f4959b4-0631-460c-894f-e078cc08f6c0"],
Cell[CellGroupData[{
-Cell[2851713, 55111, 7710, 160, 41, "Input",ExpressionUUID->"42dd11c3-40d8-4229-9f2b-ea33c98a4a3d"],
-Cell[2859426, 55273, 2581, 37, 25, "Output",ExpressionUUID->"d656f635-4cba-4947-8345-8861516ad400"]
+Cell[2926870, 56954, 7710, 160, 89, "Input",ExpressionUUID->"42dd11c3-40d8-4229-9f2b-ea33c98a4a3d"],
+Cell[2934583, 57116, 2581, 37, 25, "Output",ExpressionUUID->"d656f635-4cba-4947-8345-8861516ad400"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2862044, 55315, 1894, 38, 71, "Input",ExpressionUUID->"3b92c534-fe03-4b93-bce9-3935e73cd50a"],
-Cell[2863941, 55355, 16747, 309, 133, "Output",ExpressionUUID->"047cfbb9-7bc7-4793-b25b-33d1e4b54f0f"]
+Cell[2937201, 57158, 1894, 38, 71, "Input",ExpressionUUID->"3b92c534-fe03-4b93-bce9-3935e73cd50a"],
+Cell[2939098, 57198, 16747, 309, 133, "Output",ExpressionUUID->"047cfbb9-7bc7-4793-b25b-33d1e4b54f0f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2880725, 55669, 433, 11, 22, "Input",ExpressionUUID->"a88f2391-1bc9-4d7a-b773-d4641b529a92"],
-Cell[2881161, 55682, 6817, 169, 177, "Output",ExpressionUUID->"900bc96d-749d-4402-b6fc-1bde2c834df4"]
+Cell[2955882, 57512, 433, 11, 22, "Input",ExpressionUUID->"a88f2391-1bc9-4d7a-b773-d4641b529a92"],
+Cell[2956318, 57525, 6817, 169, 177, "Output",ExpressionUUID->"900bc96d-749d-4402-b6fc-1bde2c834df4"]
}, Open ]],
Cell[CellGroupData[{
-Cell[2888015, 55856, 1672, 45, 40, "Input",ExpressionUUID->"c2d3e68e-6754-4848-ad45-4d3a81a85373"],
-Cell[2889690, 55903, 511, 11, 22, "Message",ExpressionUUID->"7042c19d-9eb1-4c6c-b9ba-e11ecd2dad61"],
-Cell[2890204, 55916, 511, 11, 22, "Message",ExpressionUUID->"e96fc95a-7476-4cfa-9b6e-023e5f08ec84"],
-Cell[2890718, 55929, 513, 11, 22, "Message",ExpressionUUID->"697e339d-fa4d-4453-8541-d603f6be5ebf"],
-Cell[2891234, 55942, 478, 10, 22, "Message",ExpressionUUID->"a383bd1a-c1d9-49e6-a3ce-876ea12c3de9"]
+Cell[2963172, 57699, 1672, 45, 40, "Input",ExpressionUUID->"c2d3e68e-6754-4848-ad45-4d3a81a85373"],
+Cell[2964847, 57746, 511, 11, 22, "Message",ExpressionUUID->"7042c19d-9eb1-4c6c-b9ba-e11ecd2dad61"],
+Cell[2965361, 57759, 511, 11, 22, "Message",ExpressionUUID->"e96fc95a-7476-4cfa-9b6e-023e5f08ec84"],
+Cell[2965875, 57772, 513, 11, 22, "Message",ExpressionUUID->"697e339d-fa4d-4453-8541-d603f6be5ebf"],
+Cell[2966391, 57785, 478, 10, 22, "Message",ExpressionUUID->"a383bd1a-c1d9-49e6-a3ce-876ea12c3de9"]
}, Open ]],
-Cell[2891727, 55955, 3187, 80, 24, "Input",ExpressionUUID->"7baff68f-40db-4778-a165-a239cf88cc8b"],
-Cell[2894917, 56037, 4180, 103, 24, "Input",ExpressionUUID->"54ea4ab2-b182-41d0-bc24-6dda493e24b7"],
-Cell[2899100, 56142, 5400, 131, 75, "Input",ExpressionUUID->"b233f772-ebe4-4d6e-82dc-3e50dc9f4a60"],
+Cell[2966884, 57798, 3187, 80, 75, "Input",ExpressionUUID->"7baff68f-40db-4778-a165-a239cf88cc8b"],
+Cell[2970074, 57880, 4180, 103, 109, "Input",ExpressionUUID->"54ea4ab2-b182-41d0-bc24-6dda493e24b7"],
+Cell[2974257, 57985, 5400, 131, 126, "Input",ExpressionUUID->"b233f772-ebe4-4d6e-82dc-3e50dc9f4a60"],
Cell[CellGroupData[{
-Cell[2904525, 56277, 1359, 27, 24, "Input",ExpressionUUID->"326e1381-0fb5-48b8-8b67-86eb59a8de43"],
-Cell[2905887, 56306, 488773, 8032, 182, "Output",ExpressionUUID->"ffcf6638-e41b-4dc3-a888-cbc1ddb5bd70"]
+Cell[2979682, 58120, 1359, 27, 24, "Input",ExpressionUUID->"326e1381-0fb5-48b8-8b67-86eb59a8de43"],
+Cell[2981044, 58149, 488773, 8032, 182, "Output",ExpressionUUID->"ffcf6638-e41b-4dc3-a888-cbc1ddb5bd70"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3394697, 64343, 663, 15, 24, "Input",ExpressionUUID->"a93f2c6c-20d9-4e76-bf4e-d83eb645bfe2"],
-Cell[3395363, 64360, 10088, 182, 178, "Output",ExpressionUUID->"e009ecd9-f064-498f-9713-a517c7738512"]
+Cell[3469854, 66186, 663, 15, 24, "Input",ExpressionUUID->"a93f2c6c-20d9-4e76-bf4e-d83eb645bfe2"],
+Cell[3470520, 66203, 10088, 182, 178, "Output",ExpressionUUID->"e009ecd9-f064-498f-9713-a517c7738512"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3405488, 64547, 1607, 25, 24, "Input",ExpressionUUID->"355b7a05-dc53-48b3-a074-381cbbaeac81"],
-Cell[3407098, 64574, 27041, 593, 179, "Output",ExpressionUUID->"c021a3f3-a988-4ee0-849b-500241e51534"]
+Cell[3480645, 66390, 1607, 25, 24, "Input",ExpressionUUID->"355b7a05-dc53-48b3-a074-381cbbaeac81"],
+Cell[3482255, 66417, 27041, 593, 179, "Output",ExpressionUUID->"c021a3f3-a988-4ee0-849b-500241e51534"]
}, Open ]],
-Cell[3434154, 65170, 1994, 35, 55, "Input",ExpressionUUID->"a727ff31-abf9-4fbc-b1ba-5e10e05cc6ba"],
+Cell[3509311, 67013, 1994, 35, 55, "Input",ExpressionUUID->"a727ff31-abf9-4fbc-b1ba-5e10e05cc6ba"],
Cell[CellGroupData[{
-Cell[3436173, 65209, 6104, 123, 41, "Input",ExpressionUUID->"e698d719-72a9-4ac8-adc0-f3dc6de33b29"],
-Cell[3442280, 65334, 599, 12, 22, "Message",ExpressionUUID->"66d8969a-eb54-4408-9ca1-e26797128b2e"],
-Cell[3442882, 65348, 3201, 61, 27, "Output",ExpressionUUID->"c2ede9a0-b94f-4b1e-a656-779f19255c39"]
+Cell[3511330, 67052, 6104, 123, 57, "Input",ExpressionUUID->"e698d719-72a9-4ac8-adc0-f3dc6de33b29"],
+Cell[3517437, 67177, 599, 12, 34, "Message",ExpressionUUID->"66d8969a-eb54-4408-9ca1-e26797128b2e"],
+Cell[3518039, 67191, 3201, 61, 44, "Output",ExpressionUUID->"c2ede9a0-b94f-4b1e-a656-779f19255c39"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3446120, 65414, 1705, 36, 71, "Input",ExpressionUUID->"cf4b5c4b-339f-4dee-887e-9827e8e84f6a"],
-Cell[3447828, 65452, 18192, 331, 135, "Output",ExpressionUUID->"59a5f5ab-6f64-4857-9cc3-85e34ce96d47"]
+Cell[3521277, 67257, 1705, 36, 71, "Input",ExpressionUUID->"cf4b5c4b-339f-4dee-887e-9827e8e84f6a"],
+Cell[3522985, 67295, 18192, 331, 135, "Output",ExpressionUUID->"59a5f5ab-6f64-4857-9cc3-85e34ce96d47"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3466057, 65788, 336, 9, 22, "Input",ExpressionUUID->"284ac71a-7465-46b2-a883-7d04bfed7c1a"],
-Cell[3466396, 65799, 5691, 143, 177, "Output",ExpressionUUID->"8b218d9d-8ae6-4b3f-a0aa-21817c81ea81"]
+Cell[3541214, 67631, 336, 9, 22, "Input",ExpressionUUID->"284ac71a-7465-46b2-a883-7d04bfed7c1a"],
+Cell[3541553, 67642, 5691, 143, 177, "Output",ExpressionUUID->"8b218d9d-8ae6-4b3f-a0aa-21817c81ea81"]
}, Open ]],
-Cell[3472102, 65945, 2089, 36, 55, "Input",ExpressionUUID->"7b4489a6-2b9b-4fa0-b010-a2b21dfcde45"],
+Cell[3547259, 67788, 2089, 36, 55, "Input",ExpressionUUID->"7b4489a6-2b9b-4fa0-b010-a2b21dfcde45"],
Cell[CellGroupData[{
-Cell[3474216, 65985, 6598, 135, 41, "Input",ExpressionUUID->"3bcb2734-3eb2-49b0-9f9e-04e4c7a4fa3a"],
-Cell[3480817, 66122, 3462, 68, 27, "Output",ExpressionUUID->"babae66a-342f-4778-9bda-49d5d95c0e25"]
+Cell[3549373, 67828, 6598, 135, 57, "Input",ExpressionUUID->"3bcb2734-3eb2-49b0-9f9e-04e4c7a4fa3a"],
+Cell[3555974, 67965, 3462, 68, 44, "Output",ExpressionUUID->"babae66a-342f-4778-9bda-49d5d95c0e25"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3484316, 66195, 1755, 37, 71, "Input",ExpressionUUID->"0e6a979b-40f1-49c5-87f2-c038673fb15e"],
-Cell[3486074, 66234, 17980, 327, 135, "Output",ExpressionUUID->"067ae380-8bbe-4d24-910a-2d72ea259077"]
+Cell[3559473, 68038, 1755, 37, 71, "Input",ExpressionUUID->"0e6a979b-40f1-49c5-87f2-c038673fb15e"],
+Cell[3561231, 68077, 17980, 327, 135, "Output",ExpressionUUID->"067ae380-8bbe-4d24-910a-2d72ea259077"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3504091, 66566, 384, 10, 22, "Input",ExpressionUUID->"a0ce8c43-76ba-466b-b075-393a38369f3e"],
-Cell[3504478, 66578, 5952, 149, 177, "Output",ExpressionUUID->"efcd0ede-5fe0-410c-85a7-f2cb4a37d0c4"]
+Cell[3579248, 68409, 384, 10, 22, "Input",ExpressionUUID->"a0ce8c43-76ba-466b-b075-393a38369f3e"],
+Cell[3579635, 68421, 5952, 149, 177, "Output",ExpressionUUID->"efcd0ede-5fe0-410c-85a7-f2cb4a37d0c4"]
}, Open ]],
-Cell[3510445, 66730, 2143, 37, 55, "Input",ExpressionUUID->"64ac9234-6e5e-4a0a-889d-9a4d2d9e49eb"],
+Cell[3585602, 68573, 2143, 37, 55, "Input",ExpressionUUID->"64ac9234-6e5e-4a0a-889d-9a4d2d9e49eb"],
Cell[CellGroupData[{
-Cell[3512613, 66771, 7704, 168, 41, "Input",ExpressionUUID->"d5ce1c93-2d50-4d5c-a1f8-53932ea334e0"],
-Cell[3520320, 66941, 3873, 76, 44, "Output",ExpressionUUID->"55d1b86b-6c0e-4346-b514-6a32ca6f4162"]
+Cell[3587770, 68614, 7704, 168, 73, "Input",ExpressionUUID->"d5ce1c93-2d50-4d5c-a1f8-53932ea334e0"],
+Cell[3595477, 68784, 3873, 76, 60, "Output",ExpressionUUID->"55d1b86b-6c0e-4346-b514-6a32ca6f4162"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3524230, 67022, 1805, 38, 71, "Input",ExpressionUUID->"4639fe6e-d305-44c1-81c3-afb4e380c88d"],
-Cell[3526038, 67062, 17885, 326, 136, "Output",ExpressionUUID->"ee73d4b7-147b-4902-9021-472fa1cbd2dd"]
+Cell[3599387, 68865, 1805, 38, 71, "Input",ExpressionUUID->"4639fe6e-d305-44c1-81c3-afb4e380c88d"],
+Cell[3601195, 68905, 17885, 326, 136, "Output",ExpressionUUID->"ee73d4b7-147b-4902-9021-472fa1cbd2dd"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3543960, 67393, 434, 11, 22, "Input",ExpressionUUID->"487c1f18-3c65-4275-b382-bd34678bb77b"],
-Cell[3544397, 67406, 5661, 140, 180, "Output",ExpressionUUID->"98313969-c467-4d0e-84c2-9301e7354fd8"]
+Cell[3619117, 69236, 434, 11, 22, "Input",ExpressionUUID->"487c1f18-3c65-4275-b382-bd34678bb77b"],
+Cell[3619554, 69249, 5661, 140, 180, "Output",ExpressionUUID->"98313969-c467-4d0e-84c2-9301e7354fd8"]
}, Open ]],
-Cell[3550073, 67549, 2143, 37, 55, "Input",ExpressionUUID->"f984095d-d7b8-42c0-84b6-f249f7191889"],
+Cell[3625230, 69392, 2143, 37, 55, "Input",ExpressionUUID->"f984095d-d7b8-42c0-84b6-f249f7191889"],
Cell[CellGroupData[{
-Cell[3552241, 67590, 7833, 169, 41, "Input",ExpressionUUID->"eb772438-6d55-4597-94c4-e8e4c8a28dea"],
-Cell[3560077, 67761, 2018, 33, 22, "Message",ExpressionUUID->"15e11a28-3910-4175-baec-32f60966f167"],
-Cell[3562098, 67796, 4286, 85, 44, "Output",ExpressionUUID->"dc1d0e6d-dbfc-4101-8f2b-a45c3ce40dc1"]
+Cell[3627398, 69433, 7833, 169, 89, "Input",ExpressionUUID->"eb772438-6d55-4597-94c4-e8e4c8a28dea"],
+Cell[3635234, 69604, 2018, 33, 37, "Message",ExpressionUUID->"15e11a28-3910-4175-baec-32f60966f167"],
+Cell[3637255, 69639, 4286, 85, 60, "Output",ExpressionUUID->"dc1d0e6d-dbfc-4101-8f2b-a45c3ce40dc1"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3566421, 67886, 1853, 38, 71, "Input",ExpressionUUID->"6f764f4a-8e60-4ade-81f6-342ce8502e9b"],
-Cell[3568277, 67926, 17826, 324, 138, "Output",ExpressionUUID->"073b197f-bc4b-40a2-a232-0cc8f06d961e"]
+Cell[3641578, 69729, 1853, 38, 71, "Input",ExpressionUUID->"6f764f4a-8e60-4ade-81f6-342ce8502e9b"],
+Cell[3643434, 69769, 17826, 324, 138, "Output",ExpressionUUID->"073b197f-bc4b-40a2-a232-0cc8f06d961e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3586140, 68255, 480, 11, 22, "Input",ExpressionUUID->"afe99e33-748e-47f2-ba2a-c0c57008e3ff"],
-Cell[3586623, 68268, 7596, 187, 177, "Output",ExpressionUUID->"76d79e7a-9d2d-45b3-bb8a-8f918994420a"]
+Cell[3661297, 70098, 480, 11, 22, "Input",ExpressionUUID->"afe99e33-748e-47f2-ba2a-c0c57008e3ff"],
+Cell[3661780, 70111, 7596, 187, 177, "Output",ExpressionUUID->"76d79e7a-9d2d-45b3-bb8a-8f918994420a"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
-Cell[3594268, 68461, 203, 4, 50, "Section",ExpressionUUID->"5d9c76ab-41db-4d8f-b32b-3ceed5a29b07"],
-Cell[3594474, 68467, 7360, 109, 71, "Input",ExpressionUUID->"44d0809b-89a2-459b-b7db-1490e06098cb"],
+Cell[3669425, 70304, 203, 4, 50, "Section",ExpressionUUID->"5d9c76ab-41db-4d8f-b32b-3ceed5a29b07"],
+Cell[3669631, 70310, 7360, 109, 71, "Input",ExpressionUUID->"44d0809b-89a2-459b-b7db-1490e06098cb"],
Cell[CellGroupData[{
-Cell[3601859, 68580, 9293, 137, 22, "Input",ExpressionUUID->"7f8997a7-96bf-44a6-8b35-7fbefe7bc627"],
-Cell[3611155, 68719, 1124, 23, 25, "Output",ExpressionUUID->"b1b6809e-e7c1-46a3-a1ba-f8598947c547"]
+Cell[3677016, 70423, 9293, 137, 22, "Input",ExpressionUUID->"7f8997a7-96bf-44a6-8b35-7fbefe7bc627"],
+Cell[3686312, 70562, 1124, 23, 25, "Output",ExpressionUUID->"b1b6809e-e7c1-46a3-a1ba-f8598947c547"]
}, Open ]],
-Cell[3612294, 68745, 5964, 90, 71, "Input",ExpressionUUID->"e7c0d5af-f100-43a1-9e9f-22ed56c1c22c"],
+Cell[3687451, 70588, 5964, 90, 71, "Input",ExpressionUUID->"e7c0d5af-f100-43a1-9e9f-22ed56c1c22c"],
Cell[CellGroupData[{
-Cell[3618283, 68839, 9049, 127, 24, "Input",ExpressionUUID->"2da0f401-c881-42a0-b59b-1f8300174369"],
-Cell[3627335, 68968, 1131, 24, 25, "Output",ExpressionUUID->"f52b6b51-14d0-4b59-87f3-b730e0a8b1a5"]
+Cell[3693440, 70682, 9049, 127, 24, "Input",ExpressionUUID->"2da0f401-c881-42a0-b59b-1f8300174369"],
+Cell[3702492, 70811, 1131, 24, 42, "Output",ExpressionUUID->"f52b6b51-14d0-4b59-87f3-b730e0a8b1a5"]
}, Open ]],
-Cell[3628481, 68995, 5813, 88, 71, "Input",ExpressionUUID->"73e91892-d41c-4d88-b25a-4eb12d081073"],
+Cell[3703638, 70838, 5813, 88, 71, "Input",ExpressionUUID->"73e91892-d41c-4d88-b25a-4eb12d081073"],
Cell[CellGroupData[{
-Cell[3634319, 69087, 8876, 126, 24, "Input",ExpressionUUID->"c43246d1-e2a0-4f05-93de-2eea9f4af4d5"],
-Cell[3643198, 69215, 1364, 31, 25, "Output",ExpressionUUID->"ea9ec47a-b482-4c05-b14a-77c7a4a5dfc7"]
+Cell[3709476, 70930, 8876, 126, 24, "Input",ExpressionUUID->"c43246d1-e2a0-4f05-93de-2eea9f4af4d5"],
+Cell[3718355, 71058, 1364, 31, 42, "Output",ExpressionUUID->"ea9ec47a-b482-4c05-b14a-77c7a4a5dfc7"]
}, Open ]],
-Cell[3644577, 69249, 5760, 87, 71, "Input",ExpressionUUID->"6ece7e92-ba33-4e18-ba61-6c6859c6e44a"],
+Cell[3719734, 71092, 5760, 87, 71, "Input",ExpressionUUID->"6ece7e92-ba33-4e18-ba61-6c6859c6e44a"],
Cell[CellGroupData[{
-Cell[3650362, 69340, 8927, 127, 24, "Input",ExpressionUUID->"cbceac67-aab3-4aaa-a9f5-f7f5baab9926"],
-Cell[3659292, 69469, 1539, 35, 25, "Output",ExpressionUUID->"02e9205d-5640-409b-8ecb-1441f7de1c9e"]
+Cell[3725519, 71183, 8927, 127, 24, "Input",ExpressionUUID->"cbceac67-aab3-4aaa-a9f5-f7f5baab9926"],
+Cell[3734449, 71312, 1539, 35, 42, "Output",ExpressionUUID->"02e9205d-5640-409b-8ecb-1441f7de1c9e"]
}, Open ]],
-Cell[3660846, 69507, 5861, 90, 71, "Input",ExpressionUUID->"3fa9a0f5-416d-499e-8ee4-0612021a0c5d"],
+Cell[3736003, 71350, 5861, 90, 71, "Input",ExpressionUUID->"3fa9a0f5-416d-499e-8ee4-0612021a0c5d"],
Cell[CellGroupData[{
-Cell[3666732, 69601, 9462, 135, 24, "Input",ExpressionUUID->"fd324373-7122-4ced-93a7-9b97bec2edf8"],
-Cell[3676197, 69738, 1753, 42, 25, "Output",ExpressionUUID->"ee246170-c62c-4070-b2bd-933818db928b"]
+Cell[3741889, 71444, 9462, 135, 24, "Input",ExpressionUUID->"fd324373-7122-4ced-93a7-9b97bec2edf8"],
+Cell[3751354, 71581, 1753, 42, 42, "Output",ExpressionUUID->"ee246170-c62c-4070-b2bd-933818db928b"]
}, Open ]],
-Cell[3677965, 69783, 6412, 97, 71, "Input",ExpressionUUID->"6bc0aefc-3faf-4b89-a295-e9f8f5ea8d73"],
+Cell[3753122, 71626, 6412, 97, 71, "Input",ExpressionUUID->"6bc0aefc-3faf-4b89-a295-e9f8f5ea8d73"],
Cell[CellGroupData[{
-Cell[3684402, 69884, 9912, 141, 24, "Input",ExpressionUUID->"709dfa2a-a119-470b-b512-07e290781fa2"],
-Cell[3694317, 70027, 2010, 48, 27, "Output",ExpressionUUID->"b9c8f159-fb79-4e84-a84b-5b8fe3ce52c9"]
+Cell[3759559, 71727, 9912, 141, 24, "Input",ExpressionUUID->"709dfa2a-a119-470b-b512-07e290781fa2"],
+Cell[3769474, 71870, 2010, 48, 60, "Output",ExpressionUUID->"b9c8f159-fb79-4e84-a84b-5b8fe3ce52c9"]
}, Open ]],
-Cell[3696342, 70078, 3054, 99, 141, "Input",ExpressionUUID->"78c2af13-19a3-442b-beb9-26b0e57e5cf9"],
-Cell[3699399, 70179, 1008, 27, 22, "Input",ExpressionUUID->"734dcd5d-62a6-4b97-abde-704167fb7071"],
+Cell[3771499, 71921, 3054, 99, 141, "Input",ExpressionUUID->"78c2af13-19a3-442b-beb9-26b0e57e5cf9"],
+Cell[3774556, 72022, 1008, 27, 22, "Input",ExpressionUUID->"734dcd5d-62a6-4b97-abde-704167fb7071"],
Cell[CellGroupData[{
-Cell[3700432, 70210, 496, 12, 24, "Input",ExpressionUUID->"075439f9-05f4-4790-857a-2c876562ceb2"],
-Cell[3700931, 70224, 7799, 191, 170, "Output",ExpressionUUID->"50600ecd-5e42-49c4-abd8-6e91a45a1d17"]
+Cell[3775589, 72053, 496, 12, 24, "Input",ExpressionUUID->"075439f9-05f4-4790-857a-2c876562ceb2"],
+Cell[3776088, 72067, 7799, 191, 170, "Output",ExpressionUUID->"50600ecd-5e42-49c4-abd8-6e91a45a1d17"]
}, Open ]],
-Cell[3708745, 70418, 6112, 93, 71, "Input",ExpressionUUID->"4c9212b3-67d7-472d-8053-a6719a4b6968"],
+Cell[3783902, 72261, 6112, 93, 71, "Input",ExpressionUUID->"4c9212b3-67d7-472d-8053-a6719a4b6968"],
Cell[CellGroupData[{
-Cell[3714882, 70515, 9910, 141, 24, "Input",ExpressionUUID->"4da22fc0-9ded-4775-8bdf-688f73c07634"],
-Cell[3724795, 70658, 2154, 55, 44, "Output",ExpressionUUID->"f7e30a10-72d9-400b-afa6-0882dd5f8a49"]
+Cell[3790039, 72358, 9910, 141, 24, "Input",ExpressionUUID->"4da22fc0-9ded-4775-8bdf-688f73c07634"],
+Cell[3799952, 72501, 2154, 55, 60, "Output",ExpressionUUID->"f7e30a10-72d9-400b-afa6-0882dd5f8a49"]
}, Open ]],
-Cell[3726964, 70716, 6655, 99, 71, "Input",ExpressionUUID->"53e62926-2399-4d89-a1a5-1a9de88f1de1"],
+Cell[3802121, 72559, 6655, 99, 71, "Input",ExpressionUUID->"53e62926-2399-4d89-a1a5-1a9de88f1de1"],
Cell[CellGroupData[{
-Cell[3733644, 70819, 9906, 140, 24, "Input",ExpressionUUID->"d7a1b84b-a0ad-4cd8-903b-555055205b7f"],
-Cell[3743553, 70961, 2252, 55, 44, "Output",ExpressionUUID->"57ea2507-7842-4828-ae09-5afcd18018ef"]
+Cell[3808801, 72662, 9906, 140, 24, "Input",ExpressionUUID->"d7a1b84b-a0ad-4cd8-903b-555055205b7f"],
+Cell[3818710, 72804, 2252, 55, 60, "Output",ExpressionUUID->"57ea2507-7842-4828-ae09-5afcd18018ef"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3745842, 71021, 526, 14, 22, "Input",ExpressionUUID->"36165250-3b0d-43e7-a7bb-de8bf7b98728"],
-Cell[3746371, 71037, 720, 14, 25, "Output",ExpressionUUID->"b5989670-6524-408b-9128-911314e751a7"]
+Cell[3820999, 72864, 526, 14, 22, "Input",ExpressionUUID->"36165250-3b0d-43e7-a7bb-de8bf7b98728"],
+Cell[3821528, 72880, 720, 14, 25, "Output",ExpressionUUID->"b5989670-6524-408b-9128-911314e751a7"]
}, Open ]],
-Cell[3747106, 71054, 7687, 113, 71, "Input",ExpressionUUID->"3f1dca6c-8ee4-4a6d-bfd4-139952b6134e"],
+Cell[3822263, 72897, 7687, 113, 71, "Input",ExpressionUUID->"3f1dca6c-8ee4-4a6d-bfd4-139952b6134e"],
Cell[CellGroupData[{
-Cell[3754818, 71171, 10180, 145, 24, "Input",ExpressionUUID->"4d5e8eae-9598-4ba9-97b9-820721b9cf2c"],
-Cell[3765001, 71318, 3081, 72, 44, "Output",ExpressionUUID->"e528eced-04f2-4168-85ee-b92cc07d3a4a"]
+Cell[3829975, 73014, 10180, 145, 24, "Input",ExpressionUUID->"4d5e8eae-9598-4ba9-97b9-820721b9cf2c"],
+Cell[3840158, 73161, 3081, 72, 76, "Output",ExpressionUUID->"e528eced-04f2-4168-85ee-b92cc07d3a4a"]
}, Open ]],
-Cell[3768097, 71393, 7442, 110, 71, "Input",ExpressionUUID->"058d944c-17d2-44c4-a094-d49c5ebc4b30"],
+Cell[3843254, 73236, 7442, 110, 71, "Input",ExpressionUUID->"058d944c-17d2-44c4-a094-d49c5ebc4b30"],
Cell[CellGroupData[{
-Cell[3775564, 71507, 11278, 159, 24, "Input",ExpressionUUID->"d3519241-4ab5-4155-9d60-b261c692c1c1"],
-Cell[3786845, 71668, 814, 12, 25, "Output",ExpressionUUID->"c696dbfc-9a83-45ed-b662-b4e3824d4d3a"]
+Cell[3850721, 73350, 11278, 159, 24, "Input",ExpressionUUID->"d3519241-4ab5-4155-9d60-b261c692c1c1"],
+Cell[3862002, 73511, 814, 12, 25, "Output",ExpressionUUID->"c696dbfc-9a83-45ed-b662-b4e3824d4d3a"]
}, Open ]],
-Cell[3787674, 71683, 156, 3, 22, "Input",ExpressionUUID->"c64829f7-13ca-41be-b90d-b02b0be6aef7"],
-Cell[3787833, 71688, 2755, 70, 57, "Input",ExpressionUUID->"b80f96d6-6a42-4eb5-bf49-722ec664dd25"],
-Cell[3790591, 71760, 7335, 108, 71, "Input",ExpressionUUID->"948a7964-c664-45bb-ab96-2401383cc094"],
+Cell[3862831, 73526, 156, 3, 22, "Input",ExpressionUUID->"c64829f7-13ca-41be-b90d-b02b0be6aef7"],
+Cell[3862990, 73531, 2755, 70, 105, "Input",ExpressionUUID->"b80f96d6-6a42-4eb5-bf49-722ec664dd25"],
+Cell[3865748, 73603, 7335, 108, 71, "Input",ExpressionUUID->"948a7964-c664-45bb-ab96-2401383cc094"],
Cell[CellGroupData[{
-Cell[3797951, 71872, 11347, 158, 24, "Input",ExpressionUUID->"f0d582ea-c723-428e-9a1b-da3da4addd8f"],
-Cell[3809301, 72032, 811, 15, 22, "Message",ExpressionUUID->"2c34ff2e-d0de-42c1-97ce-5ec9f8f5b795"],
-Cell[3810115, 72049, 3063, 76, 44, "Output",ExpressionUUID->"d46a2655-d289-479c-9592-35e50aabe831"]
+Cell[3873108, 73715, 11347, 158, 24, "Input",ExpressionUUID->"f0d582ea-c723-428e-9a1b-da3da4addd8f"],
+Cell[3884458, 73875, 811, 15, 34, "Message",ExpressionUUID->"2c34ff2e-d0de-42c1-97ce-5ec9f8f5b795"],
+Cell[3885272, 73892, 3063, 76, 76, "Output",ExpressionUUID->"d46a2655-d289-479c-9592-35e50aabe831"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3813215, 72130, 1119, 27, 22, "Input",ExpressionUUID->"3c4a1b69-e1ff-4cc9-9eaf-7e24b6138668"],
-Cell[3814337, 72159, 36828, 630, 421, "Output",ExpressionUUID->"9cc868e2-bd8c-4e98-a54f-a01b805fe1c6"]
+Cell[3888372, 73973, 1119, 27, 22, "Input",ExpressionUUID->"3c4a1b69-e1ff-4cc9-9eaf-7e24b6138668"],
+Cell[3889494, 74002, 36828, 630, 421, "Output",ExpressionUUID->"9cc868e2-bd8c-4e98-a54f-a01b805fe1c6"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3851202, 72794, 1992, 47, 97, "Input",ExpressionUUID->"2013220e-65d7-4711-8f02-e8f52d80b46d"],
-Cell[3853197, 72843, 9917, 188, 428, "Output",ExpressionUUID->"898e5549-2826-4078-b4cd-9d551732769a"]
+Cell[3926359, 74637, 1992, 47, 97, "Input",ExpressionUUID->"2013220e-65d7-4711-8f02-e8f52d80b46d"],
+Cell[3928354, 74686, 9917, 188, 428, "Output",ExpressionUUID->"898e5549-2826-4078-b4cd-9d551732769a"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3863151, 73036, 692, 20, 38, "Input",ExpressionUUID->"e4cb6dcf-d649-4de9-a097-73373ea68146"],
-Cell[3863846, 73058, 1193, 32, 35, "Output",ExpressionUUID->"81df3d82-076a-4d70-8964-0b4744e17318"]
+Cell[3938308, 74879, 692, 20, 38, "Input",ExpressionUUID->"e4cb6dcf-d649-4de9-a097-73373ea68146"],
+Cell[3939003, 74901, 1193, 32, 35, "Output",ExpressionUUID->"81df3d82-076a-4d70-8964-0b4744e17318"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3865076, 73095, 1552, 39, 99, "Input",ExpressionUUID->"dd68a063-22e7-439e-adea-6af0bc3682b7"],
-Cell[3866631, 73136, 6302, 119, 387, "Output",ExpressionUUID->"0944fabd-5c4c-4f1d-8aa6-bbce6f848a27"]
+Cell[3940233, 74938, 1552, 39, 99, "Input",ExpressionUUID->"dd68a063-22e7-439e-adea-6af0bc3682b7"],
+Cell[3941788, 74979, 6302, 119, 387, "Output",ExpressionUUID->"0944fabd-5c4c-4f1d-8aa6-bbce6f848a27"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3872970, 73260, 558, 12, 22, "Input",ExpressionUUID->"bb62dac0-55ce-4eb0-b9f1-470897d67dfe"],
-Cell[3873531, 73274, 1517, 39, 275, "Output",ExpressionUUID->"2c92ad09-18a3-4f8d-837d-f9aeee72e78b"]
+Cell[3948127, 75103, 558, 12, 22, "Input",ExpressionUUID->"bb62dac0-55ce-4eb0-b9f1-470897d67dfe"],
+Cell[3948688, 75117, 1517, 39, 275, "Output",ExpressionUUID->"2c92ad09-18a3-4f8d-837d-f9aeee72e78b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3875085, 73318, 1284, 28, 75, "Input",ExpressionUUID->"220c4df0-bee1-4228-b3e2-e1b0766134a3"],
-Cell[3876372, 73348, 6221, 139, 181, "Output",ExpressionUUID->"b948047e-c6cf-42f2-98b9-e19483d53354"]
+Cell[3950242, 75161, 1284, 28, 75, "Input",ExpressionUUID->"220c4df0-bee1-4228-b3e2-e1b0766134a3"],
+Cell[3951529, 75191, 6221, 139, 181, "Output",ExpressionUUID->"b948047e-c6cf-42f2-98b9-e19483d53354"]
}, Open ]],
-Cell[3882608, 73490, 5436, 83, 71, "Input",ExpressionUUID->"6f0e01cf-f96f-4c8a-99a0-f3333c060add"],
+Cell[3957765, 75333, 5436, 83, 71, "Input",ExpressionUUID->"6f0e01cf-f96f-4c8a-99a0-f3333c060add"],
Cell[CellGroupData[{
-Cell[3888069, 73577, 9564, 136, 24, "Input",ExpressionUUID->"6a312381-96fc-406f-a1fd-0e852d5ab509"],
-Cell[3897636, 73715, 7487, 126, 44, "Output",ExpressionUUID->"dda0c899-e82a-4b84-9a16-46c6506c9d35"]
+Cell[3963226, 75420, 9564, 136, 24, "Input",ExpressionUUID->"6a312381-96fc-406f-a1fd-0e852d5ab509"],
+Cell[3972793, 75558, 7487, 126, 60, "Output",ExpressionUUID->"dda0c899-e82a-4b84-9a16-46c6506c9d35"]
}, Open ]],
-Cell[3905138, 73844, 5536, 85, 71, "Input",ExpressionUUID->"0c9a24df-e68c-461a-ba70-0bac82c00f0f"],
+Cell[3980295, 75687, 5536, 85, 71, "Input",ExpressionUUID->"0c9a24df-e68c-461a-ba70-0bac82c00f0f"],
Cell[CellGroupData[{
-Cell[3910699, 73933, 9601, 136, 24, "Input",ExpressionUUID->"209b61e6-ea35-45fb-a7ee-ff8641f61cee"],
-Cell[3920303, 74071, 7667, 130, 44, "Output",ExpressionUUID->"0d97663f-3bc4-425b-a7c0-f3432eb1fcd6"]
+Cell[3985856, 75776, 9601, 136, 24, "Input",ExpressionUUID->"209b61e6-ea35-45fb-a7ee-ff8641f61cee"],
+Cell[3995460, 75914, 7667, 130, 60, "Output",ExpressionUUID->"0d97663f-3bc4-425b-a7c0-f3432eb1fcd6"]
}, Open ]],
-Cell[3927985, 74204, 5834, 89, 71, "Input",ExpressionUUID->"450017d5-3e88-4e32-bd3d-dfd0d7644959"],
+Cell[4003142, 76047, 5834, 89, 71, "Input",ExpressionUUID->"450017d5-3e88-4e32-bd3d-dfd0d7644959"],
Cell[CellGroupData[{
-Cell[3933844, 74297, 9747, 138, 24, "Input",ExpressionUUID->"e297d766-a8fa-4de3-b30a-9a3f30e2c1f8"],
-Cell[3943594, 74437, 5810, 80, 25, "Output",ExpressionUUID->"f2429b01-7984-4070-aaee-10231365b720"]
+Cell[4009001, 76140, 9747, 138, 24, "Input",ExpressionUUID->"e297d766-a8fa-4de3-b30a-9a3f30e2c1f8"],
+Cell[4018751, 76280, 5810, 80, 25, "Output",ExpressionUUID->"f2429b01-7984-4070-aaee-10231365b720"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3949441, 74522, 173, 4, 22, "Input",ExpressionUUID->"8d3f801c-2293-4ca2-84e7-5a8683b7eaf1"],
-Cell[3949617, 74528, 189, 4, 25, "Output",ExpressionUUID->"f32370b2-29b4-4a67-b7a5-6cd72b79acb9"]
+Cell[4024598, 76365, 173, 4, 22, "Input",ExpressionUUID->"8d3f801c-2293-4ca2-84e7-5a8683b7eaf1"],
+Cell[4024774, 76371, 189, 4, 25, "Output",ExpressionUUID->"f32370b2-29b4-4a67-b7a5-6cd72b79acb9"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3949843, 74537, 458, 12, 22, "Input",ExpressionUUID->"239ef493-7cc7-47b1-81a8-94f331e00ce1"],
-Cell[3950304, 74551, 335, 6, 25, "Output",ExpressionUUID->"15ee4c9a-c829-445a-b182-767e4df814ff"]
+Cell[4025000, 76380, 458, 12, 22, "Input",ExpressionUUID->"239ef493-7cc7-47b1-81a8-94f331e00ce1"],
+Cell[4025461, 76394, 335, 6, 25, "Output",ExpressionUUID->"15ee4c9a-c829-445a-b182-767e4df814ff"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3950676, 74562, 183, 3, 22, "Input",ExpressionUUID->"b20c0eee-a200-4247-b652-5ba1650e9b5f"],
-Cell[3950862, 74567, 793, 19, 25, "Output",ExpressionUUID->"5f96eb98-50fe-43bb-9a73-854740c7372f"]
+Cell[4025833, 76405, 183, 3, 22, "Input",ExpressionUUID->"b20c0eee-a200-4247-b652-5ba1650e9b5f"],
+Cell[4026019, 76410, 793, 19, 25, "Output",ExpressionUUID->"5f96eb98-50fe-43bb-9a73-854740c7372f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3951692, 74591, 8397, 231, 246, "Input",ExpressionUUID->"3e302e31-0839-4a7a-911f-ef7959a97430"],
-Cell[3960092, 74824, 10866, 253, 170, "Output",ExpressionUUID->"40a49cc7-e27b-498b-9d75-a82273bcd8a7"]
+Cell[4026849, 76434, 8397, 231, 246, "Input",ExpressionUUID->"3e302e31-0839-4a7a-911f-ef7959a97430"],
+Cell[4035249, 76667, 10866, 253, 170, "Output",ExpressionUUID->"40a49cc7-e27b-498b-9d75-a82273bcd8a7"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3970995, 75082, 459, 12, 24, "Input",ExpressionUUID->"6deee041-d448-439c-87cd-9df997417af7"],
-Cell[3971457, 75096, 618, 13, 25, "Output",ExpressionUUID->"7ca09e9d-964f-40c8-bceb-b721d07455d7"]
+Cell[4046152, 76925, 459, 12, 24, "Input",ExpressionUUID->"6deee041-d448-439c-87cd-9df997417af7"],
+Cell[4046614, 76939, 618, 13, 25, "Output",ExpressionUUID->"7ca09e9d-964f-40c8-bceb-b721d07455d7"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3972112, 75114, 517, 14, 22, "Input",ExpressionUUID->"99574bb0-c58e-4d9b-991d-de0538a79ce2"],
-Cell[3972632, 75130, 623, 13, 25, "Output",ExpressionUUID->"4286d6ad-13e2-4c9f-a802-01f8b5be79a5"]
+Cell[4047269, 76957, 517, 14, 22, "Input",ExpressionUUID->"99574bb0-c58e-4d9b-991d-de0538a79ce2"],
+Cell[4047789, 76973, 623, 13, 25, "Output",ExpressionUUID->"4286d6ad-13e2-4c9f-a802-01f8b5be79a5"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3973292, 75148, 579, 16, 22, "Input",ExpressionUUID->"9a24f42c-93c4-41df-8879-8354b7f36469"],
-Cell[3973874, 75166, 316, 5, 25, "Output",ExpressionUUID->"39eb5162-da89-40a5-8bff-ab21a0a6b4ff"]
+Cell[4048449, 76991, 579, 16, 22, "Input",ExpressionUUID->"9a24f42c-93c4-41df-8879-8354b7f36469"],
+Cell[4049031, 77009, 316, 5, 25, "Output",ExpressionUUID->"39eb5162-da89-40a5-8bff-ab21a0a6b4ff"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3974227, 75176, 315, 8, 22, "Input",ExpressionUUID->"73e6bc7f-3afd-45d8-90d6-30e29942196b"],
-Cell[3974545, 75186, 269, 4, 25, "Output",ExpressionUUID->"6da5446d-49fe-42de-8af9-2e5e0b368c4e"]
+Cell[4049384, 77019, 315, 8, 22, "Input",ExpressionUUID->"73e6bc7f-3afd-45d8-90d6-30e29942196b"],
+Cell[4049702, 77029, 269, 4, 25, "Output",ExpressionUUID->"6da5446d-49fe-42de-8af9-2e5e0b368c4e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3974851, 75195, 1119, 32, 24, "Input",ExpressionUUID->"8c2764e5-f190-4d3c-b052-79717cc35a48"],
-Cell[3975973, 75229, 737, 13, 25, "Output",ExpressionUUID->"ef502a42-c8ae-45d1-bab3-7517f089824f"]
+Cell[4050008, 77038, 1119, 32, 24, "Input",ExpressionUUID->"8c2764e5-f190-4d3c-b052-79717cc35a48"],
+Cell[4051130, 77072, 737, 13, 25, "Output",ExpressionUUID->"ef502a42-c8ae-45d1-bab3-7517f089824f"]
}, Open ]],
-Cell[3976725, 75245, 1033, 17, 22, "Input",ExpressionUUID->"18b2f6d3-0d19-4706-831e-f2fcc505b53f"],
+Cell[4051882, 77088, 1033, 17, 22, "Input",ExpressionUUID->"18b2f6d3-0d19-4706-831e-f2fcc505b53f"],
Cell[CellGroupData[{
-Cell[3977783, 75266, 255, 4, 22, "Input",ExpressionUUID->"00eeff7d-2516-4f30-a51c-9ec970fb3742"],
-Cell[3978041, 75272, 244, 3, 25, "Output",ExpressionUUID->"ccf1409f-a14b-44eb-bf46-26eb9198a2e8"]
+Cell[4052940, 77109, 255, 4, 22, "Input",ExpressionUUID->"00eeff7d-2516-4f30-a51c-9ec970fb3742"],
+Cell[4053198, 77115, 244, 3, 25, "Output",ExpressionUUID->"ccf1409f-a14b-44eb-bf46-26eb9198a2e8"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3978322, 75280, 1406, 29, 24, "Input",ExpressionUUID->"e6713a47-0d38-4adf-843b-ed15e3c46c4e"],
-Cell[3979731, 75311, 823, 11, 25, "Output",ExpressionUUID->"611e7a6b-12f8-4502-81ca-f88453f7d81d"]
+Cell[4053479, 77123, 1406, 29, 24, "Input",ExpressionUUID->"e6713a47-0d38-4adf-843b-ed15e3c46c4e"],
+Cell[4054888, 77154, 823, 11, 25, "Output",ExpressionUUID->"611e7a6b-12f8-4502-81ca-f88453f7d81d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3980591, 75327, 1182, 28, 71, "Input",ExpressionUUID->"fe20d7b4-7ac7-4f3c-965a-a64f2c290b79"],
-Cell[3981776, 75357, 11988, 282, 183, "Output",ExpressionUUID->"654cf4f1-b6c1-4354-84c0-60826f56d62e"]
+Cell[4055748, 77170, 1182, 28, 71, "Input",ExpressionUUID->"fe20d7b4-7ac7-4f3c-965a-a64f2c290b79"],
+Cell[4056933, 77200, 11988, 282, 183, "Output",ExpressionUUID->"654cf4f1-b6c1-4354-84c0-60826f56d62e"]
}, Open ]],
-Cell[3993779, 75642, 1095, 20, 22, "Input",ExpressionUUID->"9c2f3df4-6178-4694-993b-bda1ee283ce0"],
+Cell[4068936, 77485, 1095, 20, 22, "Input",ExpressionUUID->"9c2f3df4-6178-4694-993b-bda1ee283ce0"],
Cell[CellGroupData[{
-Cell[3994899, 75666, 1989, 47, 24, "Input",ExpressionUUID->"c86851c1-cf2b-41e6-a0f0-e785148a7384"],
-Cell[3996891, 75715, 261, 5, 25, "Output",ExpressionUUID->"e0d97b17-168d-4d7b-b22e-edf82ae92052"]
+Cell[4070056, 77509, 1989, 47, 75, "Input",ExpressionUUID->"c86851c1-cf2b-41e6-a0f0-e785148a7384"],
+Cell[4072048, 77558, 261, 5, 25, "Output",ExpressionUUID->"e0d97b17-168d-4d7b-b22e-edf82ae92052"]
}, Open ]],
Cell[CellGroupData[{
-Cell[3997189, 75725, 3516, 71, 75, "Input",ExpressionUUID->"a628642f-9345-446c-9af5-bd9f8be7795e"],
-Cell[4000708, 75798, 2601, 36, 25, "Output",ExpressionUUID->"3faad427-2602-4847-8767-c30225439c4d"]
+Cell[4072346, 77568, 3516, 71, 75, "Input",ExpressionUUID->"a628642f-9345-446c-9af5-bd9f8be7795e"],
+Cell[4075865, 77641, 2601, 36, 25, "Output",ExpressionUUID->"3faad427-2602-4847-8767-c30225439c4d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4003346, 75839, 1025, 28, 37, "Input",ExpressionUUID->"83bf7d3c-fe44-4a49-91b0-3b230822412d"],
-Cell[4004374, 75869, 538, 12, 25, "Output",ExpressionUUID->"049539cd-508e-4808-998b-7255f22297e0"]
+Cell[4078503, 77682, 1025, 28, 37, "Input",ExpressionUUID->"83bf7d3c-fe44-4a49-91b0-3b230822412d"],
+Cell[4079531, 77712, 538, 12, 25, "Output",ExpressionUUID->"049539cd-508e-4808-998b-7255f22297e0"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4004949, 75886, 940, 24, 24, "Input",ExpressionUUID->"737114e7-27bf-44e9-90d0-f3e220e1fbe9"],
-Cell[4005892, 75912, 2600, 82, 27, "Output",ExpressionUUID->"bfe13574-c198-44c2-a82a-7a68ac6594b1"]
+Cell[4080106, 77729, 940, 24, 24, "Input",ExpressionUUID->"737114e7-27bf-44e9-90d0-f3e220e1fbe9"],
+Cell[4081049, 77755, 2600, 82, 44, "Output",ExpressionUUID->"bfe13574-c198-44c2-a82a-7a68ac6594b1"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4008529, 75999, 312, 7, 22, "Input",ExpressionUUID->"00c11329-3fd1-410c-9023-c4475a374c1c"],
-Cell[4008844, 76008, 210, 4, 25, "Output",ExpressionUUID->"7bb2f702-f67a-409b-9ff6-e4dfb82006a5"]
+Cell[4083686, 77842, 312, 7, 22, "Input",ExpressionUUID->"00c11329-3fd1-410c-9023-c4475a374c1c"],
+Cell[4084001, 77851, 210, 4, 25, "Output",ExpressionUUID->"7bb2f702-f67a-409b-9ff6-e4dfb82006a5"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4009091, 76017, 624, 18, 39, "Input",ExpressionUUID->"5d1b0a3d-de27-482a-bae3-c23bae163f5a"],
-Cell[4009718, 76037, 632, 12, 25, "Output",ExpressionUUID->"a6f1a8a6-2049-4a79-91ac-9abd4b607c36"]
+Cell[4084248, 77860, 624, 18, 39, "Input",ExpressionUUID->"5d1b0a3d-de27-482a-bae3-c23bae163f5a"],
+Cell[4084875, 77880, 632, 12, 25, "Output",ExpressionUUID->"a6f1a8a6-2049-4a79-91ac-9abd4b607c36"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4010387, 76054, 1364, 36, 58, "Input",ExpressionUUID->"f6133534-d260-4c20-9384-1504d38050b5"],
-Cell[4011754, 76092, 24078, 497, 171, "Output",ExpressionUUID->"ae94140a-a048-4e2f-ab64-bb4bbb28ced1"]
+Cell[4085544, 77897, 1364, 36, 58, "Input",ExpressionUUID->"f6133534-d260-4c20-9384-1504d38050b5"],
+Cell[4086911, 77935, 24078, 497, 171, "Output",ExpressionUUID->"ae94140a-a048-4e2f-ab64-bb4bbb28ced1"]
}, Open ]],
-Cell[4035847, 76592, 4656, 71, 55, "Input",ExpressionUUID->"3449f203-04a7-4ee2-976c-6c588cac8b8c"],
+Cell[4111004, 78435, 4656, 71, 55, "Input",ExpressionUUID->"3449f203-04a7-4ee2-976c-6c588cac8b8c"],
Cell[CellGroupData[{
-Cell[4040528, 76667, 7928, 115, 22, "Input",ExpressionUUID->"8a565b8f-7303-4318-a332-ad1e6cc11f57"],
-Cell[4048459, 76784, 440, 10, 22, "Message",ExpressionUUID->"60276545-3db0-456d-ae55-b68487ca8c38"],
-Cell[4048902, 76796, 5412, 91, 25, "Output",ExpressionUUID->"71ef8082-2ad9-4072-9555-3b534a868061"]
+Cell[4115685, 78510, 7928, 115, 22, "Input",ExpressionUUID->"8a565b8f-7303-4318-a332-ad1e6cc11f57"],
+Cell[4123616, 78627, 440, 10, 22, "Message",ExpressionUUID->"60276545-3db0-456d-ae55-b68487ca8c38"],
+Cell[4124059, 78639, 5412, 91, 42, "Output",ExpressionUUID->"71ef8082-2ad9-4072-9555-3b534a868061"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4054351, 76892, 1935, 37, 71, "Input",ExpressionUUID->"931220ee-0e2c-4f75-bb54-332cf08adc26"],
-Cell[4056289, 76931, 18227, 329, 137, "Output",ExpressionUUID->"76515291-b1a5-4c25-9f97-9ab33d68ca06"]
+Cell[4129508, 78735, 1935, 37, 71, "Input",ExpressionUUID->"931220ee-0e2c-4f75-bb54-332cf08adc26"],
+Cell[4131446, 78774, 18227, 329, 137, "Output",ExpressionUUID->"76515291-b1a5-4c25-9f97-9ab33d68ca06"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4074553, 77265, 1636, 43, 24, "Input",ExpressionUUID->"60091d62-df15-4dc3-84fc-ce944ef9bf9a"],
-Cell[4076192, 77310, 221293, 3642, 180, "Output",ExpressionUUID->"2aa49536-d57a-45f7-be94-d293282e519c"]
+Cell[4149710, 79108, 1636, 43, 41, "Input",ExpressionUUID->"60091d62-df15-4dc3-84fc-ce944ef9bf9a"],
+Cell[4151349, 79153, 221293, 3642, 180, "Output",ExpressionUUID->"2aa49536-d57a-45f7-be94-d293282e519c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4297522, 80957, 1661, 43, 24, "Input",ExpressionUUID->"450ea135-d1f8-46af-bbce-2567632c716d"],
-Cell[4299186, 81002, 221490, 3645, 180, "Output",ExpressionUUID->"a4b3b783-b1f7-4ea2-a67e-0c6931c0bfbf"]
+Cell[4372679, 82800, 1661, 43, 41, "Input",ExpressionUUID->"450ea135-d1f8-46af-bbce-2567632c716d"],
+Cell[4374343, 82845, 221490, 3645, 180, "Output",ExpressionUUID->"a4b3b783-b1f7-4ea2-a67e-0c6931c0bfbf"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4520713, 84652, 718, 19, 39, "Input",ExpressionUUID->"e6be9a58-00ef-4cc4-9f98-b244abdb64a9"],
-Cell[4521434, 84673, 689, 13, 27, "Output",ExpressionUUID->"5dac9722-8d43-456a-b7f8-6fb8a2409567"]
+Cell[4595870, 86495, 718, 19, 39, "Input",ExpressionUUID->"e6be9a58-00ef-4cc4-9f98-b244abdb64a9"],
+Cell[4596591, 86516, 689, 13, 27, "Output",ExpressionUUID->"5dac9722-8d43-456a-b7f8-6fb8a2409567"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4522160, 84691, 3389, 70, 75, "Input",ExpressionUUID->"51ec65c5-a0e6-4978-a6f1-be5685a51a29"],
-Cell[4525552, 84763, 12735, 275, 138, "Output",ExpressionUUID->"cffe87cf-9e79-490f-bdd3-c4f96ce4a779"]
+Cell[4597317, 86534, 3389, 70, 75, "Input",ExpressionUUID->"51ec65c5-a0e6-4978-a6f1-be5685a51a29"],
+Cell[4600709, 86606, 12735, 275, 138, "Output",ExpressionUUID->"cffe87cf-9e79-490f-bdd3-c4f96ce4a779"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4538324, 85043, 1135, 27, 57, "Input",ExpressionUUID->"1df50e30-664e-48e3-9859-86c2671ecf4b"],
-Cell[4539462, 85072, 7683, 188, 181, "Output",ExpressionUUID->"8dce01cb-6835-415b-8420-582e04b50ae1"]
+Cell[4613481, 86886, 1135, 27, 57, "Input",ExpressionUUID->"1df50e30-664e-48e3-9859-86c2671ecf4b"],
+Cell[4614619, 86915, 7683, 188, 181, "Output",ExpressionUUID->"8dce01cb-6835-415b-8420-582e04b50ae1"]
}, Open ]],
-Cell[4547160, 85263, 3769, 58, 55, "Input",ExpressionUUID->"96edcc0a-bb4d-4e36-be9f-ce6a8a0d98be"],
+Cell[4622317, 87106, 3769, 58, 55, "Input",ExpressionUUID->"96edcc0a-bb4d-4e36-be9f-ce6a8a0d98be"],
Cell[CellGroupData[{
-Cell[4550954, 85325, 6700, 99, 24, "Input",ExpressionUUID->"4a8baa30-33ff-46db-9ac4-7fd988d3cfde"],
-Cell[4557657, 85426, 558, 12, 22, "Message",ExpressionUUID->"28f96585-e12b-4a24-8c48-750f18f8071e"],
-Cell[4558218, 85440, 5206, 95, 44, "Output",ExpressionUUID->"7ec5973e-217a-4934-9c67-94501f20e071"]
+Cell[4626111, 87168, 6700, 99, 24, "Input",ExpressionUUID->"4a8baa30-33ff-46db-9ac4-7fd988d3cfde"],
+Cell[4632814, 87269, 558, 12, 22, "Message",ExpressionUUID->"28f96585-e12b-4a24-8c48-750f18f8071e"],
+Cell[4633375, 87283, 5206, 95, 60, "Output",ExpressionUUID->"7ec5973e-217a-4934-9c67-94501f20e071"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4563461, 85540, 1747, 35, 71, "Input",ExpressionUUID->"e9352cf8-02f1-478b-8280-4509621bf9c3"],
-Cell[4565211, 85577, 17065, 313, 138, "Output",ExpressionUUID->"5e62b330-364e-4d8a-8f23-180a2304812a"]
+Cell[4638618, 87383, 1747, 35, 71, "Input",ExpressionUUID->"e9352cf8-02f1-478b-8280-4509621bf9c3"],
+Cell[4640368, 87420, 17065, 313, 138, "Output",ExpressionUUID->"5e62b330-364e-4d8a-8f23-180a2304812a"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4582313, 85895, 1075, 29, 59, "Input",ExpressionUUID->"0a27f704-930f-4a1b-bf73-10e745ca5c38"],
-Cell[4583391, 85926, 1686, 44, 184, "Output",ExpressionUUID->"0e911c57-92d6-4211-b513-7b06f78d0f94"]
+Cell[4657470, 87738, 1075, 29, 59, "Input",ExpressionUUID->"0a27f704-930f-4a1b-bf73-10e745ca5c38"],
+Cell[4658548, 87769, 1686, 44, 184, "Output",ExpressionUUID->"0e911c57-92d6-4211-b513-7b06f78d0f94"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4585114, 85975, 2704, 59, 75, "Input",ExpressionUUID->"0d0ac8b8-8b41-4baf-98d6-ab5c2fbbd568"],
-Cell[4587821, 86036, 12141, 271, 180, "Output",ExpressionUUID->"e860e315-d3af-419a-a95f-08d7aac8e9da"]
+Cell[4660271, 87818, 2704, 59, 75, "Input",ExpressionUUID->"0d0ac8b8-8b41-4baf-98d6-ab5c2fbbd568"],
+Cell[4662978, 87879, 12141, 271, 180, "Output",ExpressionUUID->"e860e315-d3af-419a-a95f-08d7aac8e9da"]
}, Open ]],
-Cell[4599977, 86310, 3491, 55, 55, "Input",ExpressionUUID->"95e7b2ca-f79f-42f7-a4d6-b9999aaaebbf"],
+Cell[4675134, 88153, 3491, 55, 55, "Input",ExpressionUUID->"95e7b2ca-f79f-42f7-a4d6-b9999aaaebbf"],
Cell[CellGroupData[{
-Cell[4603493, 86369, 6511, 94, 22, "Input",ExpressionUUID->"b06f22eb-d540-4a76-85e3-72d785ad1b70"],
-Cell[4610007, 86465, 5770, 96, 25, "Output",ExpressionUUID->"46b348e3-bd8e-4c18-9375-32bbcccbec33"]
+Cell[4678650, 88212, 6511, 94, 22, "Input",ExpressionUUID->"b06f22eb-d540-4a76-85e3-72d785ad1b70"],
+Cell[4685164, 88308, 5770, 96, 42, "Output",ExpressionUUID->"46b348e3-bd8e-4c18-9375-32bbcccbec33"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4615814, 86566, 1791, 35, 71, "Input",ExpressionUUID->"addaa5fb-500f-4ed8-a5f7-6fd64ad3eaa6"],
-Cell[4617608, 86603, 17336, 318, 138, "Output",ExpressionUUID->"dab5a296-dac7-42c3-83dc-f259ba6d8925"]
+Cell[4690971, 88409, 1791, 35, 71, "Input",ExpressionUUID->"addaa5fb-500f-4ed8-a5f7-6fd64ad3eaa6"],
+Cell[4692765, 88446, 17336, 318, 138, "Output",ExpressionUUID->"dab5a296-dac7-42c3-83dc-f259ba6d8925"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4634981, 86926, 2079, 54, 75, "Input",ExpressionUUID->"d36b355d-67fb-4c2e-838b-03fe471dc611"],
-Cell[4637063, 86982, 16732, 375, 138, "Output",ExpressionUUID->"7b83e30f-16ba-4710-9392-892c46b5d312"]
+Cell[4710138, 88769, 2079, 54, 75, "Input",ExpressionUUID->"d36b355d-67fb-4c2e-838b-03fe471dc611"],
+Cell[4712220, 88825, 16732, 375, 138, "Output",ExpressionUUID->"7b83e30f-16ba-4710-9392-892c46b5d312"]
}, Open ]],
-Cell[4653810, 87360, 3360, 53, 55, "Input",ExpressionUUID->"c82c5d89-ecae-4e05-930f-c26cc54103a7"],
+Cell[4728967, 89203, 3360, 53, 55, "Input",ExpressionUUID->"c82c5d89-ecae-4e05-930f-c26cc54103a7"],
Cell[CellGroupData[{
-Cell[4657195, 87417, 6459, 92, 22, "Input",ExpressionUUID->"290e904f-7c29-43f1-8bd5-c9be3d1bef02"],
-Cell[4663657, 87511, 1955, 31, 22, "Message",ExpressionUUID->"54c445a3-7d1c-40ef-870f-ec5a37efb826"],
-Cell[4665615, 87544, 5268, 92, 25, "Output",ExpressionUUID->"67e4a52e-0a2c-4bbb-b96c-829e61f321c4"]
+Cell[4732352, 89260, 6459, 92, 22, "Input",ExpressionUUID->"290e904f-7c29-43f1-8bd5-c9be3d1bef02"],
+Cell[4738814, 89354, 1955, 31, 34, "Message",ExpressionUUID->"54c445a3-7d1c-40ef-870f-ec5a37efb826"],
+Cell[4740772, 89387, 5268, 92, 42, "Output",ExpressionUUID->"67e4a52e-0a2c-4bbb-b96c-829e61f321c4"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4670920, 87641, 1882, 39, 71, "Input",ExpressionUUID->"d5e39058-5f9e-47c6-946f-532c8ed529f6"],
-Cell[4672805, 87682, 9557, 188, 138, "Output",ExpressionUUID->"e645c593-9553-43d8-b4f5-be8c82e277ad"]
+Cell[4746077, 89484, 1882, 39, 71, "Input",ExpressionUUID->"d5e39058-5f9e-47c6-946f-532c8ed529f6"],
+Cell[4747962, 89525, 9557, 188, 138, "Output",ExpressionUUID->"e645c593-9553-43d8-b4f5-be8c82e277ad"]
}, Open ]],
-Cell[4682377, 87873, 2869, 47, 55, "Input",ExpressionUUID->"f961015d-b6cb-47e5-9e1a-587921f3fc25"],
+Cell[4757534, 89716, 2869, 47, 55, "Input",ExpressionUUID->"f961015d-b6cb-47e5-9e1a-587921f3fc25"],
Cell[CellGroupData[{
-Cell[4685271, 87924, 5473, 80, 22, "Input",ExpressionUUID->"b0341393-a02b-4e09-8998-73efab4bb17b"],
-Cell[4690747, 88006, 497, 11, 22, "Message",ExpressionUUID->"6bf66ca0-e854-42d9-a6e5-6c371f075fd1"],
-Cell[4691247, 88019, 10419, 251, 79, "Output",ExpressionUUID->"f3fcddf9-a725-4739-93f0-1701965c61c6"]
+Cell[4760428, 89767, 5473, 80, 22, "Input",ExpressionUUID->"b0341393-a02b-4e09-8998-73efab4bb17b"],
+Cell[4765904, 89849, 497, 11, 22, "Message",ExpressionUUID->"6bf66ca0-e854-42d9-a6e5-6c371f075fd1"],
+Cell[4766404, 89862, 10419, 251, 79, "Output",ExpressionUUID->"f3fcddf9-a725-4739-93f0-1701965c61c6"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4701703, 88275, 1852, 38, 71, "Input",ExpressionUUID->"d47e2a5d-4016-4693-a6ce-5324eab8db08"],
-Cell[4703558, 88315, 17127, 315, 136, "Output",ExpressionUUID->"bff3b92b-b815-4ac0-a4e4-2c9f9d9f5abb"]
+Cell[4776860, 90118, 1852, 38, 71, "Input",ExpressionUUID->"d47e2a5d-4016-4693-a6ce-5324eab8db08"],
+Cell[4778715, 90158, 17127, 315, 136, "Output",ExpressionUUID->"bff3b92b-b815-4ac0-a4e4-2c9f9d9f5abb"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4720722, 88635, 482, 11, 22, "Input",ExpressionUUID->"33e14fd0-f4a2-4619-9046-e5d0a24c5515"],
-Cell[4721207, 88648, 9927, 243, 178, "Output",ExpressionUUID->"0487d3ef-3258-426a-b0d1-5b48a90b960f"]
+Cell[4795879, 90478, 482, 11, 22, "Input",ExpressionUUID->"33e14fd0-f4a2-4619-9046-e5d0a24c5515"],
+Cell[4796364, 90491, 9927, 243, 178, "Output",ExpressionUUID->"0487d3ef-3258-426a-b0d1-5b48a90b960f"]
}, Open ]],
-Cell[4731149, 88894, 2967, 48, 55, "Input",ExpressionUUID->"fa6a2ed9-7736-4734-8d89-947640bdc4df"],
+Cell[4806306, 90737, 2967, 48, 55, "Input",ExpressionUUID->"fa6a2ed9-7736-4734-8d89-947640bdc4df"],
Cell[CellGroupData[{
-Cell[4734141, 88946, 5720, 84, 24, "Input",ExpressionUUID->"b6ce76a3-8eb8-4131-a4d1-f97747ad0a43"],
-Cell[4739864, 89032, 771, 15, 22, "Message",ExpressionUUID->"9726d445-7313-413a-b996-e5e5833bfc27"],
-Cell[4740638, 89049, 4257, 83, 44, "Output",ExpressionUUID->"0a3d0d0f-5572-4382-8897-9eb6a8ad8875"]
+Cell[4809298, 90789, 5720, 84, 24, "Input",ExpressionUUID->"b6ce76a3-8eb8-4131-a4d1-f97747ad0a43"],
+Cell[4815021, 90875, 771, 15, 34, "Message",ExpressionUUID->"9726d445-7313-413a-b996-e5e5833bfc27"],
+Cell[4815795, 90892, 4257, 83, 60, "Output",ExpressionUUID->"0a3d0d0f-5572-4382-8897-9eb6a8ad8875"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4744932, 89137, 1796, 36, 71, "Input",ExpressionUUID->"f3aa018e-5bd8-4d90-b041-b8e238ccecf2"],
-Cell[4746731, 89175, 17264, 316, 136, "Output",ExpressionUUID->"3fa1f8ac-f980-461c-8d8c-ef235c92c093"]
+Cell[4820089, 90980, 1796, 36, 71, "Input",ExpressionUUID->"f3aa018e-5bd8-4d90-b041-b8e238ccecf2"],
+Cell[4821888, 91018, 17264, 316, 136, "Output",ExpressionUUID->"3fa1f8ac-f980-461c-8d8c-ef235c92c093"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4764032, 89496, 874, 23, 22, "Input",ExpressionUUID->"0b2df119-bcef-4653-a833-253e2a81e50c"],
-Cell[4764909, 89521, 3739, 89, 178, "Output",ExpressionUUID->"c475e4a0-6cfe-4be2-a1e1-19e2f45f524c"]
+Cell[4839189, 91339, 874, 23, 22, "Input",ExpressionUUID->"0b2df119-bcef-4653-a833-253e2a81e50c"],
+Cell[4840066, 91364, 3739, 89, 178, "Output",ExpressionUUID->"c475e4a0-6cfe-4be2-a1e1-19e2f45f524c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4768685, 89615, 549, 15, 22, "Input",ExpressionUUID->"1f5c6902-7eed-4c8b-8e0a-99a9b170e1ca"],
-Cell[4769237, 89632, 234, 5, 25, "Output",ExpressionUUID->"51a1aad9-05b0-462a-891d-22d8f6a6b9c1"]
+Cell[4843842, 91458, 549, 15, 22, "Input",ExpressionUUID->"1f5c6902-7eed-4c8b-8e0a-99a9b170e1ca"],
+Cell[4844394, 91475, 234, 5, 25, "Output",ExpressionUUID->"51a1aad9-05b0-462a-891d-22d8f6a6b9c1"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4769508, 89642, 262, 6, 22, "Input",ExpressionUUID->"e16359b5-e4d6-4bb7-86eb-f63803ad6855"],
-Cell[4769773, 89650, 1039, 29, 51, "Output",ExpressionUUID->"5de69e48-41bd-45f3-a994-7e676e47e408"]
+Cell[4844665, 91485, 262, 6, 22, "Input",ExpressionUUID->"e16359b5-e4d6-4bb7-86eb-f63803ad6855"],
+Cell[4844930, 91493, 1039, 29, 51, "Output",ExpressionUUID->"5de69e48-41bd-45f3-a994-7e676e47e408"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4770849, 89684, 1085, 28, 24, "Input",ExpressionUUID->"95054690-5631-4591-bd21-220db7338a94"],
-Cell[4771937, 89714, 74312, 1240, 77, "Output",ExpressionUUID->"1831476b-e621-49f5-905a-8c35a3a8d0c4"]
+Cell[4846006, 91527, 1085, 28, 24, "Input",ExpressionUUID->"95054690-5631-4591-bd21-220db7338a94"],
+Cell[4847094, 91557, 74312, 1240, 77, "Output",ExpressionUUID->"1831476b-e621-49f5-905a-8c35a3a8d0c4"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4846286, 90959, 1597, 44, 40, "Input",ExpressionUUID->"342ac8ee-ab8e-4ae6-bb1c-86464af5e526"],
-Cell[4847886, 91005, 487, 11, 22, "Message",ExpressionUUID->"aa233660-6314-440b-a55e-4be02e56a457"],
-Cell[4848376, 91018, 490, 11, 22, "Message",ExpressionUUID->"8cb1e3ab-1e3f-4b77-b899-3805356aedb6"],
-Cell[4848869, 91031, 488, 11, 22, "Message",ExpressionUUID->"680d170d-a28d-4f1f-ae74-aad91fb95e48"],
-Cell[4849360, 91044, 457, 10, 22, "Message",ExpressionUUID->"58554aee-0abc-4545-9de7-f32a62d9fbde"]
+Cell[4921443, 92802, 1597, 44, 40, "Input",ExpressionUUID->"342ac8ee-ab8e-4ae6-bb1c-86464af5e526"],
+Cell[4923043, 92848, 487, 11, 22, "Message",ExpressionUUID->"aa233660-6314-440b-a55e-4be02e56a457"],
+Cell[4923533, 92861, 490, 11, 22, "Message",ExpressionUUID->"8cb1e3ab-1e3f-4b77-b899-3805356aedb6"],
+Cell[4924026, 92874, 488, 11, 22, "Message",ExpressionUUID->"680d170d-a28d-4f1f-ae74-aad91fb95e48"],
+Cell[4924517, 92887, 457, 10, 22, "Message",ExpressionUUID->"58554aee-0abc-4545-9de7-f32a62d9fbde"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4849854, 91059, 1243, 25, 24, "Input",ExpressionUUID->"50e71e0c-5917-461a-a368-516214da0cbe"],
-Cell[4851100, 91086, 257598, 4238, 182, "Output",ExpressionUUID->"922be907-db35-4063-bac4-a9e321cb3961"]
+Cell[4925011, 92902, 1243, 25, 24, "Input",ExpressionUUID->"50e71e0c-5917-461a-a368-516214da0cbe"],
+Cell[4926257, 92929, 257598, 4238, 182, "Output",ExpressionUUID->"922be907-db35-4063-bac4-a9e321cb3961"]
}, Open ]],
-Cell[5108713, 95327, 2861, 70, 24, "Input",ExpressionUUID->"77b309c5-73e7-45d2-91cc-18b17ef11474"],
+Cell[5183870, 97170, 2861, 70, 75, "Input",ExpressionUUID->"77b309c5-73e7-45d2-91cc-18b17ef11474"],
Cell[CellGroupData[{
-Cell[5111599, 95401, 4876, 115, 41, "Input",ExpressionUUID->"4a2b2cef-4c8a-419d-af13-1402f00c00ac"],
-Cell[5116478, 95518, 372, 9, 32, "Message",ExpressionUUID->"915b4994-47ee-4f92-a180-66582fad2eee"],
-Cell[5116853, 95529, 414, 10, 22, "Message",ExpressionUUID->"d99a257a-bebb-423f-b4c7-c1daf92c9d89"],
-Cell[5117270, 95541, 374, 9, 32, "Message",ExpressionUUID->"3935845a-b829-45bb-8c68-b38f6c89200d"],
-Cell[5117647, 95552, 372, 9, 32, "Message",ExpressionUUID->"2cd99774-06cd-4554-9019-8374804b72cc"],
-Cell[5118022, 95563, 449, 10, 22, "Message",ExpressionUUID->"a63719b3-c483-4dcc-bf9d-07e3ec86a01a"],
-Cell[5118474, 95575, 412, 10, 22, "Message",ExpressionUUID->"b75c5dbc-0033-4ee6-9b1f-38ed8cbfa052"],
-Cell[5118889, 95587, 412, 10, 22, "Message",ExpressionUUID->"a8b8b506-1639-4e24-a563-d4136102a4f5"],
-Cell[5119304, 95599, 454, 10, 22, "Message",ExpressionUUID->"511b399f-cdfc-483b-8b33-e482ad95258c"]
+Cell[5186756, 97244, 4876, 115, 92, "Input",ExpressionUUID->"4a2b2cef-4c8a-419d-af13-1402f00c00ac"],
+Cell[5191635, 97361, 372, 9, 32, "Message",ExpressionUUID->"915b4994-47ee-4f92-a180-66582fad2eee"],
+Cell[5192010, 97372, 414, 10, 22, "Message",ExpressionUUID->"d99a257a-bebb-423f-b4c7-c1daf92c9d89"],
+Cell[5192427, 97384, 374, 9, 32, "Message",ExpressionUUID->"3935845a-b829-45bb-8c68-b38f6c89200d"],
+Cell[5192804, 97395, 372, 9, 32, "Message",ExpressionUUID->"2cd99774-06cd-4554-9019-8374804b72cc"],
+Cell[5193179, 97406, 449, 10, 22, "Message",ExpressionUUID->"a63719b3-c483-4dcc-bf9d-07e3ec86a01a"],
+Cell[5193631, 97418, 412, 10, 22, "Message",ExpressionUUID->"b75c5dbc-0033-4ee6-9b1f-38ed8cbfa052"],
+Cell[5194046, 97430, 412, 10, 22, "Message",ExpressionUUID->"a8b8b506-1639-4e24-a563-d4136102a4f5"],
+Cell[5194461, 97442, 454, 10, 22, "Message",ExpressionUUID->"511b399f-cdfc-483b-8b33-e482ad95258c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[5119795, 95614, 390, 10, 22, "Input",ExpressionUUID->"ca2c6c9e-8737-4ee8-bc57-68cf26050e9d"],
-Cell[5120188, 95626, 230, 4, 305, "Output",ExpressionUUID->"fe2c0268-4ac2-4856-a458-2b2ecc705830"]
+Cell[5194952, 97457, 390, 10, 22, "Input",ExpressionUUID->"ca2c6c9e-8737-4ee8-bc57-68cf26050e9d"],
+Cell[5195345, 97469, 230, 4, 305, "Output",ExpressionUUID->"fe2c0268-4ac2-4856-a458-2b2ecc705830"]
}, Open ]],
Cell[CellGroupData[{
-Cell[5120455, 95635, 2250, 58, 59, "Input",ExpressionUUID->"f06eadd6-9832-4fdb-a4a4-ddef5420835b"],
-Cell[5122708, 95695, 1066745, 23056, 352, "Output",ExpressionUUID->"1d761a77-84b9-4526-a4c5-285e258e2bbb"]
+Cell[5195612, 97478, 2250, 58, 76, "Input",ExpressionUUID->"f06eadd6-9832-4fdb-a4a4-ddef5420835b"],
+Cell[5197865, 97538, 1066745, 23056, 352, "Output",ExpressionUUID->"1d761a77-84b9-4526-a4c5-285e258e2bbb"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6189490, 118756, 1775, 44, 24, "Input",ExpressionUUID->"d0ec6400-bd88-4968-bb4c-932738b078cc"],
-Cell[6191268, 118802, 376, 5, 25, "Output",ExpressionUUID->"0ee29a54-e906-4ca9-a541-24486af817b5"]
+Cell[6264647, 120599, 1775, 44, 24, "Input",ExpressionUUID->"d0ec6400-bd88-4968-bb4c-932738b078cc"],
+Cell[6266425, 120645, 376, 5, 25, "Output",ExpressionUUID->"0ee29a54-e906-4ca9-a541-24486af817b5"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6191681, 118812, 427, 10, 24, "Input",ExpressionUUID->"3004893a-2ce3-4cf0-a994-6b9e5ec6dd27"],
-Cell[6192111, 118824, 18847, 324, 179, "Output",ExpressionUUID->"0d2866ec-70a4-4878-a33d-28a2dba484c8"]
+Cell[6266838, 120655, 427, 10, 24, "Input",ExpressionUUID->"3004893a-2ce3-4cf0-a994-6b9e5ec6dd27"],
+Cell[6267268, 120667, 18847, 324, 179, "Output",ExpressionUUID->"0d2866ec-70a4-4878-a33d-28a2dba484c8"]
}, Open ]],
-Cell[6210973, 119151, 3136, 79, 24, "Input",ExpressionUUID->"5b87b5dc-8fd3-4849-af80-c87990bf73b7"],
+Cell[6286130, 120994, 3136, 79, 75, "Input",ExpressionUUID->"5b87b5dc-8fd3-4849-af80-c87990bf73b7"],
Cell[CellGroupData[{
-Cell[6214134, 119234, 592, 13, 24, "Input",ExpressionUUID->"203e9732-0b55-4dd6-88d1-9480143c447c"],
-Cell[6214729, 119249, 5889, 112, 178, "Output",ExpressionUUID->"7a2195a3-9e80-4524-9b78-c55a14f79103"]
+Cell[6289291, 121077, 592, 13, 24, "Input",ExpressionUUID->"203e9732-0b55-4dd6-88d1-9480143c447c"],
+Cell[6289886, 121092, 5889, 112, 178, "Output",ExpressionUUID->"7a2195a3-9e80-4524-9b78-c55a14f79103"]
}, Open ]],
-Cell[6220633, 119364, 4130, 102, 24, "Input",ExpressionUUID->"acac5450-9d65-40ea-ad69-d3970fa2a02c"],
+Cell[6295790, 121207, 4130, 102, 109, "Input",ExpressionUUID->"acac5450-9d65-40ea-ad69-d3970fa2a02c"],
Cell[CellGroupData[{
-Cell[6224788, 119470, 1495, 23, 24, "Input",ExpressionUUID->"9fc37513-3235-4c11-a880-809c13cac9b2"],
-Cell[6226286, 119495, 6141, 116, 180, "Output",ExpressionUUID->"2ae469a5-8acb-47e9-be40-ccbabeb59058"]
+Cell[6299945, 121313, 1495, 23, 24, "Input",ExpressionUUID->"9fc37513-3235-4c11-a880-809c13cac9b2"],
+Cell[6301443, 121338, 6141, 116, 180, "Output",ExpressionUUID->"2ae469a5-8acb-47e9-be40-ccbabeb59058"]
}, Open ]],
-Cell[6232442, 119614, 2010, 35, 55, "Input",ExpressionUUID->"9b0fa418-a20d-4aa7-8c89-b5dba5303662"],
+Cell[6307599, 121457, 2010, 35, 55, "Input",ExpressionUUID->"9b0fa418-a20d-4aa7-8c89-b5dba5303662"],
Cell[CellGroupData[{
-Cell[6234477, 119653, 4151, 62, 22, "Input",ExpressionUUID->"c30a0fd5-d5ad-42aa-a369-cd6ee9c6447b"],
-Cell[6238631, 119717, 2707, 49, 25, "Output",ExpressionUUID->"1a596d77-fa5e-419e-a1d4-eb1eacb16f94"]
+Cell[6309634, 121496, 4151, 62, 22, "Input",ExpressionUUID->"c30a0fd5-d5ad-42aa-a369-cd6ee9c6447b"],
+Cell[6313788, 121560, 2707, 49, 25, "Output",ExpressionUUID->"1a596d77-fa5e-419e-a1d4-eb1eacb16f94"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6241375, 119771, 1600, 34, 71, "Input",ExpressionUUID->"edefa71e-37aa-4faf-b294-4eda82e4f408"],
-Cell[6242978, 119807, 17028, 313, 136, "Output",ExpressionUUID->"87662f50-8c48-4cf2-9344-41968f5ed6c7"]
+Cell[6316532, 121614, 1600, 34, 71, "Input",ExpressionUUID->"edefa71e-37aa-4faf-b294-4eda82e4f408"],
+Cell[6318135, 121650, 17028, 313, 136, "Output",ExpressionUUID->"87662f50-8c48-4cf2-9344-41968f5ed6c7"]
}, Open ]],
-Cell[6260021, 120123, 2110, 37, 55, "Input",ExpressionUUID->"c7666df1-5f3b-4148-9996-beab66dbc9dd"],
+Cell[6335178, 121966, 2110, 37, 55, "Input",ExpressionUUID->"c7666df1-5f3b-4148-9996-beab66dbc9dd"],
Cell[CellGroupData[{
-Cell[6262156, 120164, 4183, 60, 22, "Input",ExpressionUUID->"bb42954c-7615-4d48-b8a6-b6cd5568c377"],
-Cell[6266342, 120226, 2082, 30, 25, "Output",ExpressionUUID->"24d6f85c-1532-4489-bdd0-8641e11ac8c8"]
+Cell[6337313, 122007, 4183, 60, 22, "Input",ExpressionUUID->"bb42954c-7615-4d48-b8a6-b6cd5568c377"],
+Cell[6341499, 122069, 2082, 30, 25, "Output",ExpressionUUID->"24d6f85c-1532-4489-bdd0-8641e11ac8c8"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6268461, 120261, 1650, 35, 71, "Input",ExpressionUUID->"d33a65e9-a5e1-45ac-b6fc-ad1416742945"],
-Cell[6270114, 120298, 20490, 372, 135, "Output",ExpressionUUID->"27b3abc6-4965-4474-a985-897e37937511"]
+Cell[6343618, 122104, 1650, 35, 71, "Input",ExpressionUUID->"d33a65e9-a5e1-45ac-b6fc-ad1416742945"],
+Cell[6345271, 122141, 20490, 372, 135, "Output",ExpressionUUID->"27b3abc6-4965-4474-a985-897e37937511"]
}, Open ]],
-Cell[6290619, 120673, 2205, 38, 55, "Input",ExpressionUUID->"37492c9c-fdc8-424c-900f-4f6b226ea5d1"],
+Cell[6365776, 122516, 2205, 38, 55, "Input",ExpressionUUID->"37492c9c-fdc8-424c-900f-4f6b226ea5d1"],
Cell[CellGroupData[{
-Cell[6292849, 120715, 6088, 119, 24, "Input",ExpressionUUID->"a01e44dc-8335-4348-b3c9-284386b4f719"],
-Cell[6298940, 120836, 3154, 60, 27, "Output",ExpressionUUID->"ca325a22-df87-4177-b749-2e32a5ed2d92"]
+Cell[6368006, 122558, 6088, 119, 57, "Input",ExpressionUUID->"a01e44dc-8335-4348-b3c9-284386b4f719"],
+Cell[6374097, 122679, 3154, 60, 44, "Output",ExpressionUUID->"ca325a22-df87-4177-b749-2e32a5ed2d92"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6302131, 120901, 1700, 36, 71, "Input",ExpressionUUID->"be317878-237a-46bf-9454-bd7d3dc03661"],
-Cell[6303834, 120939, 16873, 311, 136, "Output",ExpressionUUID->"3dc3e89f-7f82-4bdf-b906-cb5363ec7a6f"]
+Cell[6377288, 122744, 1700, 36, 71, "Input",ExpressionUUID->"be317878-237a-46bf-9454-bd7d3dc03661"],
+Cell[6378991, 122782, 16873, 311, 136, "Output",ExpressionUUID->"3dc3e89f-7f82-4bdf-b906-cb5363ec7a6f"]
}, Open ]],
-Cell[6320722, 121253, 2257, 39, 55, "Input",ExpressionUUID->"e32582d9-3c4f-41b1-b65d-1c7772469053"],
+Cell[6395879, 123096, 2257, 39, 55, "Input",ExpressionUUID->"e32582d9-3c4f-41b1-b65d-1c7772469053"],
Cell[CellGroupData[{
-Cell[6323004, 121296, 6220, 122, 24, "Input",ExpressionUUID->"89a94834-b9ec-4d9d-9faa-074eaede1f11"],
-Cell[6329227, 121420, 3291, 62, 27, "Output",ExpressionUUID->"19a8003a-42bc-4acc-ad08-a8554af6baf1"]
+Cell[6398161, 123139, 6220, 122, 57, "Input",ExpressionUUID->"89a94834-b9ec-4d9d-9faa-074eaede1f11"],
+Cell[6404384, 123263, 3291, 62, 44, "Output",ExpressionUUID->"19a8003a-42bc-4acc-ad08-a8554af6baf1"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6332555, 121487, 1746, 36, 71, "Input",ExpressionUUID->"5b4cd9b5-a3aa-4d4f-8ec5-f14c1a7ed0b5"],
-Cell[6334304, 121525, 17143, 317, 136, "Output",ExpressionUUID->"3fe2ed89-c8cc-4d94-a7f5-195d8ac3ac4a"]
+Cell[6407712, 123330, 1746, 36, 71, "Input",ExpressionUUID->"5b4cd9b5-a3aa-4d4f-8ec5-f14c1a7ed0b5"],
+Cell[6409461, 123368, 17143, 317, 136, "Output",ExpressionUUID->"3fe2ed89-c8cc-4d94-a7f5-195d8ac3ac4a"]
}, Open ]],
-Cell[6351462, 121845, 2305, 39, 55, "Input",ExpressionUUID->"763eb3e7-8600-4d94-90f4-5ee8ead3a071"],
+Cell[6426619, 123688, 2305, 39, 55, "Input",ExpressionUUID->"763eb3e7-8600-4d94-90f4-5ee8ead3a071"],
Cell[CellGroupData[{
-Cell[6353792, 121888, 6753, 136, 41, "Input",ExpressionUUID->"61bb5a86-d6b7-47ad-902e-5e23a22e1050"],
-Cell[6360548, 122026, 3674, 69, 27, "Output",ExpressionUUID->"d40e5455-682b-42db-b67d-22a81cadebff"]
+Cell[6428949, 123731, 6753, 136, 57, "Input",ExpressionUUID->"61bb5a86-d6b7-47ad-902e-5e23a22e1050"],
+Cell[6435705, 123869, 3674, 69, 44, "Output",ExpressionUUID->"d40e5455-682b-42db-b67d-22a81cadebff"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6364259, 122100, 1798, 37, 71, "Input",ExpressionUUID->"b0a5f1c3-1834-4563-8f55-b2fd455cc030"],
-Cell[6366060, 122139, 17131, 315, 134, "Output",ExpressionUUID->"4af346e8-d59b-4e37-bda6-b3caf8145423"]
+Cell[6439416, 123943, 1798, 37, 71, "Input",ExpressionUUID->"b0a5f1c3-1834-4563-8f55-b2fd455cc030"],
+Cell[6441217, 123982, 17131, 315, 134, "Output",ExpressionUUID->"4af346e8-d59b-4e37-bda6-b3caf8145423"]
}, Open ]],
-Cell[6383206, 122457, 2356, 40, 55, "Input",ExpressionUUID->"32cf5f09-fdfe-4f85-859e-082560961a3b"],
+Cell[6458363, 124300, 2356, 40, 55, "Input",ExpressionUUID->"32cf5f09-fdfe-4f85-859e-082560961a3b"],
Cell[CellGroupData[{
-Cell[6385587, 122501, 6967, 140, 41, "Input",ExpressionUUID->"b3abad78-eb14-4b72-9257-b29e604a034e"],
-Cell[6392557, 122643, 3893, 74, 25, "Output",ExpressionUUID->"d08a3f1e-e8ce-469d-93a6-13790df5f647"]
+Cell[6460744, 124344, 6967, 140, 73, "Input",ExpressionUUID->"b3abad78-eb14-4b72-9257-b29e604a034e"],
+Cell[6467714, 124486, 3893, 74, 42, "Output",ExpressionUUID->"d08a3f1e-e8ce-469d-93a6-13790df5f647"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6396487, 122722, 1848, 38, 71, "Input",ExpressionUUID->"9bdd6d37-c128-49d2-8231-61ba0bf29e27"],
-Cell[6398338, 122762, 17640, 324, 136, "Output",ExpressionUUID->"3c0bbd34-df7f-497d-98f0-83c9941773c0"]
+Cell[6471644, 124565, 1848, 38, 71, "Input",ExpressionUUID->"9bdd6d37-c128-49d2-8231-61ba0bf29e27"],
+Cell[6473495, 124605, 17640, 324, 136, "Output",ExpressionUUID->"3c0bbd34-df7f-497d-98f0-83c9941773c0"]
}, Open ]],
-Cell[6415993, 123089, 2409, 41, 55, "Input",ExpressionUUID->"41b7e318-b250-4913-9bf4-dc8f575f89d6"],
+Cell[6491150, 124932, 2409, 41, 55, "Input",ExpressionUUID->"41b7e318-b250-4913-9bf4-dc8f575f89d6"],
Cell[CellGroupData[{
-Cell[6418427, 123134, 7710, 160, 41, "Input",ExpressionUUID->"754d0dae-41d6-4fe7-a34b-3e55515f1c0f"],
-Cell[6426140, 123296, 2581, 37, 25, "Output",ExpressionUUID->"fe11dd49-a075-412f-a45c-8cc7e594253a"]
+Cell[6493584, 124977, 7710, 160, 89, "Input",ExpressionUUID->"754d0dae-41d6-4fe7-a34b-3e55515f1c0f"],
+Cell[6501297, 125139, 2581, 37, 25, "Output",ExpressionUUID->"fe11dd49-a075-412f-a45c-8cc7e594253a"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6428758, 123338, 1894, 38, 71, "Input",ExpressionUUID->"0e5750ef-e3c4-4d6e-a552-337865ce26de"],
-Cell[6430655, 123378, 16747, 309, 133, "Output",ExpressionUUID->"73a826f3-22a2-40cb-95d3-1f9458eadd3d"]
+Cell[6503915, 125181, 1894, 38, 71, "Input",ExpressionUUID->"0e5750ef-e3c4-4d6e-a552-337865ce26de"],
+Cell[6505812, 125221, 16747, 309, 133, "Output",ExpressionUUID->"73a826f3-22a2-40cb-95d3-1f9458eadd3d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6447439, 123692, 433, 11, 22, "Input",ExpressionUUID->"a751ee9f-7f1b-4bac-9b8f-116516f29237"],
-Cell[6447875, 123705, 6817, 169, 177, "Output",ExpressionUUID->"3c6b3bb9-4166-4574-b540-09542af6444d"]
+Cell[6522596, 125535, 433, 11, 22, "Input",ExpressionUUID->"a751ee9f-7f1b-4bac-9b8f-116516f29237"],
+Cell[6523032, 125548, 6817, 169, 177, "Output",ExpressionUUID->"3c6b3bb9-4166-4574-b540-09542af6444d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6454729, 123879, 1672, 45, 40, "Input",ExpressionUUID->"466fb3e5-7c30-4e69-ab69-9b9abb0e6655"],
-Cell[6456404, 123926, 511, 11, 22, "Message",ExpressionUUID->"c2ae911f-2b34-4698-81ef-7ff60f5135c9"],
-Cell[6456918, 123939, 511, 11, 22, "Message",ExpressionUUID->"bd92affc-3500-4c70-b21e-522e5605c0cc"],
-Cell[6457432, 123952, 513, 11, 22, "Message",ExpressionUUID->"e4db63c1-fe8b-4c9f-a20c-8eccef2fe15e"],
-Cell[6457948, 123965, 478, 10, 22, "Message",ExpressionUUID->"acadf45f-b774-47d6-a411-ad0503385514"]
+Cell[6529886, 125722, 1672, 45, 40, "Input",ExpressionUUID->"466fb3e5-7c30-4e69-ab69-9b9abb0e6655"],
+Cell[6531561, 125769, 511, 11, 22, "Message",ExpressionUUID->"c2ae911f-2b34-4698-81ef-7ff60f5135c9"],
+Cell[6532075, 125782, 511, 11, 22, "Message",ExpressionUUID->"bd92affc-3500-4c70-b21e-522e5605c0cc"],
+Cell[6532589, 125795, 513, 11, 22, "Message",ExpressionUUID->"e4db63c1-fe8b-4c9f-a20c-8eccef2fe15e"],
+Cell[6533105, 125808, 478, 10, 22, "Message",ExpressionUUID->"acadf45f-b774-47d6-a411-ad0503385514"]
}, Open ]],
-Cell[6458441, 123978, 3187, 80, 24, "Input",ExpressionUUID->"75d12380-288b-4d28-aa86-112d4ec76eb8"],
-Cell[6461631, 124060, 4180, 103, 24, "Input",ExpressionUUID->"91d2f74e-4447-4d9e-8bf4-e977c2d420af"],
-Cell[6465814, 124165, 5400, 131, 75, "Input",ExpressionUUID->"15bbd114-9190-4203-9d85-d247d7dafa0f"],
+Cell[6533598, 125821, 3187, 80, 75, "Input",ExpressionUUID->"75d12380-288b-4d28-aa86-112d4ec76eb8"],
+Cell[6536788, 125903, 4180, 103, 109, "Input",ExpressionUUID->"91d2f74e-4447-4d9e-8bf4-e977c2d420af"],
+Cell[6540971, 126008, 5400, 131, 126, "Input",ExpressionUUID->"15bbd114-9190-4203-9d85-d247d7dafa0f"],
Cell[CellGroupData[{
-Cell[6471239, 124300, 1359, 27, 24, "Input",ExpressionUUID->"5698809b-576b-4415-9e17-c9d1fd3f1b20"],
-Cell[6472601, 124329, 488773, 8032, 182, "Output",ExpressionUUID->"dcdf6bb3-cd02-43e9-8aaf-0b5548c0b776"]
+Cell[6546396, 126143, 1359, 27, 24, "Input",ExpressionUUID->"5698809b-576b-4415-9e17-c9d1fd3f1b20"],
+Cell[6547758, 126172, 488773, 8032, 182, "Output",ExpressionUUID->"dcdf6bb3-cd02-43e9-8aaf-0b5548c0b776"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6961411, 132366, 663, 15, 24, "Input",ExpressionUUID->"e5dc6cef-c7da-4c5c-b1b3-5958a73dff68"],
-Cell[6962077, 132383, 10088, 182, 178, "Output",ExpressionUUID->"da66f9af-cb95-4a55-bc5e-665e343cce5f"]
+Cell[7036568, 134209, 663, 15, 24, "Input",ExpressionUUID->"e5dc6cef-c7da-4c5c-b1b3-5958a73dff68"],
+Cell[7037234, 134226, 10088, 182, 178, "Output",ExpressionUUID->"da66f9af-cb95-4a55-bc5e-665e343cce5f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[6972202, 132570, 1607, 25, 24, "Input",ExpressionUUID->"97b063b0-fff1-4a77-b8b5-e6f7d7bf7fda"],
-Cell[6973812, 132597, 27041, 593, 179, "Output",ExpressionUUID->"c5680ebf-9d15-4756-9a19-5161fa77024b"]
+Cell[7047359, 134413, 1607, 25, 24, "Input",ExpressionUUID->"97b063b0-fff1-4a77-b8b5-e6f7d7bf7fda"],
+Cell[7048969, 134440, 27041, 593, 179, "Output",ExpressionUUID->"c5680ebf-9d15-4756-9a19-5161fa77024b"]
}, Open ]],
-Cell[7000868, 133193, 1994, 35, 55, "Input",ExpressionUUID->"3352b86d-ac70-40d3-a19b-895c1c5fe6d8"],
+Cell[7076025, 135036, 1994, 35, 55, "Input",ExpressionUUID->"3352b86d-ac70-40d3-a19b-895c1c5fe6d8"],
Cell[CellGroupData[{
-Cell[7002887, 133232, 6104, 123, 41, "Input",ExpressionUUID->"94b9b1f6-85e2-4843-a9d8-679bdd8d8b88"],
-Cell[7008994, 133357, 599, 12, 22, "Message",ExpressionUUID->"673c9022-c297-4aa3-a749-547a828f38e9"],
-Cell[7009596, 133371, 3201, 61, 27, "Output",ExpressionUUID->"5581ab30-cffe-4c36-b481-f61b82d926bc"]
+Cell[7078044, 135075, 6104, 123, 57, "Input",ExpressionUUID->"94b9b1f6-85e2-4843-a9d8-679bdd8d8b88"],
+Cell[7084151, 135200, 599, 12, 34, "Message",ExpressionUUID->"673c9022-c297-4aa3-a749-547a828f38e9"],
+Cell[7084753, 135214, 3201, 61, 44, "Output",ExpressionUUID->"5581ab30-cffe-4c36-b481-f61b82d926bc"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7012834, 133437, 1705, 36, 71, "Input",ExpressionUUID->"6f92c7f6-5d7f-4262-b770-14500227175d"],
-Cell[7014542, 133475, 18192, 331, 135, "Output",ExpressionUUID->"d1bcb00b-21e5-4fa8-a552-97f25576ffeb"]
+Cell[7087991, 135280, 1705, 36, 71, "Input",ExpressionUUID->"6f92c7f6-5d7f-4262-b770-14500227175d"],
+Cell[7089699, 135318, 18192, 331, 135, "Output",ExpressionUUID->"d1bcb00b-21e5-4fa8-a552-97f25576ffeb"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7032771, 133811, 336, 9, 22, "Input",ExpressionUUID->"0c892a44-6116-420f-9ded-8cd96dc39533"],
-Cell[7033110, 133822, 5691, 143, 177, "Output",ExpressionUUID->"50d17dc4-fcf7-4f9a-be8d-771fadea7de8"]
+Cell[7107928, 135654, 336, 9, 22, "Input",ExpressionUUID->"0c892a44-6116-420f-9ded-8cd96dc39533"],
+Cell[7108267, 135665, 5691, 143, 177, "Output",ExpressionUUID->"50d17dc4-fcf7-4f9a-be8d-771fadea7de8"]
}, Open ]],
-Cell[7038816, 133968, 2089, 36, 55, "Input",ExpressionUUID->"49c65f18-d801-4202-9b7e-030545c44001"],
+Cell[7113973, 135811, 2089, 36, 55, "Input",ExpressionUUID->"49c65f18-d801-4202-9b7e-030545c44001"],
Cell[CellGroupData[{
-Cell[7040930, 134008, 6598, 135, 41, "Input",ExpressionUUID->"f7caa11e-a8fb-4fd5-9df6-77dddbbe7fa3"],
-Cell[7047531, 134145, 3462, 68, 27, "Output",ExpressionUUID->"186645c8-161c-4b02-91d1-d08c0c7394ec"]
+Cell[7116087, 135851, 6598, 135, 57, "Input",ExpressionUUID->"f7caa11e-a8fb-4fd5-9df6-77dddbbe7fa3"],
+Cell[7122688, 135988, 3462, 68, 44, "Output",ExpressionUUID->"186645c8-161c-4b02-91d1-d08c0c7394ec"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7051030, 134218, 1755, 37, 71, "Input",ExpressionUUID->"8413d5d7-a7d4-4102-a4aa-bbe61ec52060"],
-Cell[7052788, 134257, 17980, 327, 135, "Output",ExpressionUUID->"1261c1da-b31d-414a-aa38-309b1bdc034d"]
+Cell[7126187, 136061, 1755, 37, 71, "Input",ExpressionUUID->"8413d5d7-a7d4-4102-a4aa-bbe61ec52060"],
+Cell[7127945, 136100, 17980, 327, 135, "Output",ExpressionUUID->"1261c1da-b31d-414a-aa38-309b1bdc034d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7070805, 134589, 384, 10, 22, "Input",ExpressionUUID->"d9da5dd4-b3e8-4b89-ab68-f3b17bb41d94"],
-Cell[7071192, 134601, 5952, 149, 177, "Output",ExpressionUUID->"26c77855-b645-4841-b352-353e0fbbcd68"]
+Cell[7145962, 136432, 384, 10, 22, "Input",ExpressionUUID->"d9da5dd4-b3e8-4b89-ab68-f3b17bb41d94"],
+Cell[7146349, 136444, 5952, 149, 177, "Output",ExpressionUUID->"26c77855-b645-4841-b352-353e0fbbcd68"]
}, Open ]],
-Cell[7077159, 134753, 2143, 37, 55, "Input",ExpressionUUID->"b57651c2-973f-4f6d-8d27-8f8761eae5f6"],
+Cell[7152316, 136596, 2143, 37, 55, "Input",ExpressionUUID->"b57651c2-973f-4f6d-8d27-8f8761eae5f6"],
Cell[CellGroupData[{
-Cell[7079327, 134794, 7704, 168, 41, "Input",ExpressionUUID->"d1d2a2ac-7888-47a6-ae1e-f5afe89147fe"],
-Cell[7087034, 134964, 3873, 76, 44, "Output",ExpressionUUID->"2894869b-55b8-40b2-b95d-f8a0437cfed3"]
+Cell[7154484, 136637, 7704, 168, 73, "Input",ExpressionUUID->"d1d2a2ac-7888-47a6-ae1e-f5afe89147fe"],
+Cell[7162191, 136807, 3873, 76, 60, "Output",ExpressionUUID->"2894869b-55b8-40b2-b95d-f8a0437cfed3"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7090944, 135045, 1805, 38, 71, "Input",ExpressionUUID->"d19a39cf-f7b9-446f-b122-73ac686a913c"],
-Cell[7092752, 135085, 17885, 326, 136, "Output",ExpressionUUID->"a2f46624-d98b-4db4-887c-285e4488e3ac"]
+Cell[7166101, 136888, 1805, 38, 71, "Input",ExpressionUUID->"d19a39cf-f7b9-446f-b122-73ac686a913c"],
+Cell[7167909, 136928, 17885, 326, 136, "Output",ExpressionUUID->"a2f46624-d98b-4db4-887c-285e4488e3ac"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7110674, 135416, 434, 11, 22, "Input",ExpressionUUID->"74c7ab72-e56a-4ab4-9458-1709744d5476"],
-Cell[7111111, 135429, 5661, 140, 180, "Output",ExpressionUUID->"c18dede1-aa8a-4d4a-895a-e16c0f4cd656"]
+Cell[7185831, 137259, 434, 11, 22, "Input",ExpressionUUID->"74c7ab72-e56a-4ab4-9458-1709744d5476"],
+Cell[7186268, 137272, 5661, 140, 180, "Output",ExpressionUUID->"c18dede1-aa8a-4d4a-895a-e16c0f4cd656"]
}, Open ]],
-Cell[7116787, 135572, 2143, 37, 55, "Input",ExpressionUUID->"bcf18ffc-8e3e-4ebe-b54e-01b6c9bf1c80"],
+Cell[7191944, 137415, 2143, 37, 55, "Input",ExpressionUUID->"bcf18ffc-8e3e-4ebe-b54e-01b6c9bf1c80"],
Cell[CellGroupData[{
-Cell[7118955, 135613, 7833, 169, 41, "Input",ExpressionUUID->"3e2ebc4f-da30-4e5c-819e-baa9fe622007"],
-Cell[7126791, 135784, 2018, 33, 22, "Message",ExpressionUUID->"93949eb9-5b0f-4194-989e-3a104461c586"],
-Cell[7128812, 135819, 4286, 85, 44, "Output",ExpressionUUID->"1e0e292a-5086-42be-af0d-cbff0c8da303"]
+Cell[7194112, 137456, 7833, 169, 89, "Input",ExpressionUUID->"3e2ebc4f-da30-4e5c-819e-baa9fe622007"],
+Cell[7201948, 137627, 2018, 33, 37, "Message",ExpressionUUID->"93949eb9-5b0f-4194-989e-3a104461c586"],
+Cell[7203969, 137662, 4286, 85, 60, "Output",ExpressionUUID->"1e0e292a-5086-42be-af0d-cbff0c8da303"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7133135, 135909, 1853, 38, 71, "Input",ExpressionUUID->"16d0314f-eff0-4aa1-83ea-df87647b5853"],
-Cell[7134991, 135949, 17826, 324, 138, "Output",ExpressionUUID->"c58f5da6-f417-4360-9296-5aababfc8601"]
+Cell[7208292, 137752, 1853, 38, 71, "Input",ExpressionUUID->"16d0314f-eff0-4aa1-83ea-df87647b5853"],
+Cell[7210148, 137792, 17826, 324, 138, "Output",ExpressionUUID->"c58f5da6-f417-4360-9296-5aababfc8601"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7152854, 136278, 480, 11, 22, "Input",ExpressionUUID->"faf026bd-f9dd-4e27-9b97-8d9366a3f0fd"],
-Cell[7153337, 136291, 7596, 187, 177, "Output",ExpressionUUID->"81535f12-c8a1-434a-ba4b-26c9a1782598"]
+Cell[7228011, 138121, 480, 11, 22, "Input",ExpressionUUID->"faf026bd-f9dd-4e27-9b97-8d9366a3f0fd"],
+Cell[7228494, 138134, 7596, 187, 177, "Output",ExpressionUUID->"81535f12-c8a1-434a-ba4b-26c9a1782598"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
-Cell[7160982, 136484, 165, 3, 50, "Section",ExpressionUUID->"747c9bc3-63ef-45c3-af83-bc456177b1c8"],
-Cell[7161150, 136489, 800, 21, 40, "Input",ExpressionUUID->"ebc19a92-5a4d-4254-8fad-8cadbfa1bd32"],
+Cell[7236139, 138327, 165, 3, 50, "Section",ExpressionUUID->"747c9bc3-63ef-45c3-af83-bc456177b1c8"],
+Cell[7236307, 138332, 800, 21, 40, "Input",ExpressionUUID->"ebc19a92-5a4d-4254-8fad-8cadbfa1bd32"],
Cell[CellGroupData[{
-Cell[7161975, 136514, 886, 24, 24, "Input",ExpressionUUID->"f224ec13-7431-41d4-919e-0ad10e8ff5b2"],
-Cell[7162864, 136540, 299, 6, 25, "Output",ExpressionUUID->"5043975f-bf54-4984-bf97-09e0c59f4acf"]
+Cell[7237132, 138357, 886, 24, 24, "Input",ExpressionUUID->"f224ec13-7431-41d4-919e-0ad10e8ff5b2"],
+Cell[7238021, 138383, 299, 6, 25, "Output",ExpressionUUID->"5043975f-bf54-4984-bf97-09e0c59f4acf"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7163200, 136551, 1529, 43, 24, "Input",ExpressionUUID->"bdb2aaf8-6c60-4fd6-b0aa-d74503ebfe5d"],
-Cell[7164732, 136596, 216, 4, 39, "Output",ExpressionUUID->"672f3cb6-b559-424b-b6e9-dff18bdab931"]
+Cell[7238357, 138394, 1529, 43, 40, "Input",ExpressionUUID->"bdb2aaf8-6c60-4fd6-b0aa-d74503ebfe5d"],
+Cell[7239889, 138439, 216, 4, 39, "Output",ExpressionUUID->"672f3cb6-b559-424b-b6e9-dff18bdab931"]
}, Open ]],
Cell[CellGroupData[{
-Cell[7164985, 136605, 2328, 62, 24, "Input",ExpressionUUID->"9581e610-c27e-4ccd-9de0-7344556f685a"],
-Cell[7167316, 136669, 584, 12, 22, "Message",ExpressionUUID->"926f5636-f494-4b80-9e0f-998a05d07881"],
-Cell[7167903, 136683, 420, 8, 25, "Output",ExpressionUUID->"3c60fc73-ad7e-4b33-a3eb-fdc35776a150"]
+Cell[7240142, 138448, 2328, 62, 57, "Input",ExpressionUUID->"9581e610-c27e-4ccd-9de0-7344556f685a"],
+Cell[7242473, 138512, 584, 12, 22, "Message",ExpressionUUID->"926f5636-f494-4b80-9e0f-998a05d07881"],
+Cell[7243060, 138526, 420, 8, 25, "Output",ExpressionUUID->"3c60fc73-ad7e-4b33-a3eb-fdc35776a150"]
}, Open ]],
-Cell[7168338, 136694, 1234, 32, 24, "Input",ExpressionUUID->"3a793a2c-1a2c-433a-873f-55e7861acacf"],
+Cell[7243495, 138537, 1234, 32, 24, "Input",ExpressionUUID->"3a793a2c-1a2c-433a-873f-55e7861acacf"],
Cell[CellGroupData[{
-Cell[7169597, 136730, 379, 9, 24, "Input",ExpressionUUID->"6a4616ab-41e4-44cc-8806-ee9851e65934"],
-Cell[7169979, 136741, 21750, 374, 177, "Output",ExpressionUUID->"7ae541cc-49f0-4346-9e8f-3995505a8e9f"]
+Cell[7244754, 138573, 379, 9, 24, "Input",ExpressionUUID->"6a4616ab-41e4-44cc-8806-ee9851e65934"],
+Cell[7245136, 138584, 21750, 374, 177, "Output",ExpressionUUID->"7ae541cc-49f0-4346-9e8f-3995505a8e9f"]
}, Open ]],
-Cell[7191744, 137118, 2535, 66, 24, "Input",ExpressionUUID->"02eee1a8-8fdf-4ef6-8fa3-737b3067106e"],
+Cell[7266901, 138961, 2535, 66, 75, "Input",ExpressionUUID->"02eee1a8-8fdf-4ef6-8fa3-737b3067106e"],
Cell[CellGroupData[{
-Cell[7194304, 137188, 491, 10, 24, "Input",ExpressionUUID->"8858ddfc-1e71-4778-a0b8-512abba3d901"],
-Cell[7194798, 137200, 22737, 390, 179, "Output",ExpressionUUID->"3a7e88f8-603a-4c66-8a1b-065c43aff3cd"]
+Cell[7269461, 139031, 491, 10, 24, "Input",ExpressionUUID->"8858ddfc-1e71-4778-a0b8-512abba3d901"],
+Cell[7269955, 139043, 22737, 390, 179, "Output",ExpressionUUID->"3a7e88f8-603a-4c66-8a1b-065c43aff3cd"]
}, Open ]],
-Cell[7217550, 137593, 3849, 95, 24, "Input",ExpressionUUID->"954f68de-17bb-4b28-b089-18f4c1840d53"],
+Cell[7292707, 139436, 3849, 95, 109, "Input",ExpressionUUID->"954f68de-17bb-4b28-b089-18f4c1840d53"],
Cell[CellGroupData[{
-Cell[7221424, 137692, 448, 10, 24, "Input",ExpressionUUID->"fd8d9fbd-6567-43cc-a4dc-4c986b02e466"],
-Cell[7221875, 137704, 26854, 485, 178, "Output",ExpressionUUID->"b7f39439-0c1d-40f8-af40-5fed6fd931de"],
-Cell[7248732, 138191, 175, 3, 25, "Output",ExpressionUUID->"2b7f8ec2-0126-4787-92e3-a6d9dd600de2"]
+Cell[7296581, 139535, 448, 10, 24, "Input",ExpressionUUID->"fd8d9fbd-6567-43cc-a4dc-4c986b02e466"],
+Cell[7297032, 139547, 26854, 485, 178, "Output",ExpressionUUID->"b7f39439-0c1d-40f8-af40-5fed6fd931de"],
+Cell[7323889, 140034, 175, 3, 25, "Output",ExpressionUUID->"2b7f8ec2-0126-4787-92e3-a6d9dd600de2"]
}, Open ]]
}, Open ]]
}