diff options
| author | Jaron Kent-Dobias <jaron@kent-dobias.com> | 2021-07-30 16:57:06 +0200 |
|---|---|---|
| committer | Jaron Kent-Dobias <jaron@kent-dobias.com> | 2021-07-30 16:57:06 +0200 |
| commit | d0796ec87f2bc0f57c2ba76497918f4c570dbd46 (patch) | |
| tree | 41349a8db5ff45f574e680e18ebf3546440ff447 | |
| parent | 887fc4832de352e0b51ffa2377d39cdb4b14a252 (diff) | |
| download | mma-d0796ec87f2bc0f57c2ba76497918f4c570dbd46.tar.gz mma-d0796ec87f2bc0f57c2ba76497918f4c570dbd46.tar.bz2 mma-d0796ec87f2bc0f57c2ba76497918f4c570dbd46.zip | |
Work.
| -rw-r--r-- | new_schofield.nb | 3739 |
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 ]] } |