From 1a3d73906298b5a2aca3ea4c02f26b12cd6c5ba7 Mon Sep 17 00:00:00 2001 From: Jaron Kent-Dobias Date: Sat, 23 Oct 2021 22:45:53 +0200 Subject: Work. --- new_schofield.nb | 1015 ++++++++++++++++++++++-------------------------------- 1 file changed, 410 insertions(+), 605 deletions(-) (limited to 'new_schofield.nb') diff --git a/new_schofield.nb b/new_schofield.nb index cd387b6..9b86f5b 100644 --- a/new_schofield.nb +++ b/new_schofield.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 2193199, 38842] -NotebookOptionsPosition[ 2171903, 38529] -NotebookOutlinePosition[ 2172301, 38545] -CellTagsIndexPosition[ 2172258, 38542] +NotebookDataLength[ 2187802, 38647] +NotebookOptionsPosition[ 2167171, 38343] +NotebookOutlinePosition[ 2167571, 38359] +CellTagsIndexPosition[ 2167528, 38356] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -99,15 +99,26 @@ Cell[BoxData[ RowBox[{ RowBox[{"dGd\[Xi]LowList", "[", RowBox[{ - RowBox[{"NFN", "[", "7", "]"}], ",", - RowBox[{"HN", "[", "7", "]"}], ",", + RowBox[{"NF", "[", "2", "]"}], ",", + RowBox[{"H", "[", "2", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"rules", "[", - RowBox[{"HN", "[", "7", "]"}], "]"}], ",", - RowBox[{ - RowBox[{"SN", "[", "7", "]"}], "[", - RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], "[", "13", + RowBox[{"H", "[", "2", "]"}], "]"}], ",", + RowBox[{"S", "[", "2", "]"}]}], "]"}]}], "]"}], "[", "14", + "]"}]}]}], ",", "\[IndentingNewLine]", + RowBox[{"Chop", "@", + RowBox[{"Abs", "@", + RowBox[{ + RowBox[{"dGd\[Xi]LowList", "[", + RowBox[{ + RowBox[{"NF", "[", "7", "]"}], ",", + RowBox[{"H", "[", "7", "]"}], ",", + RowBox[{"Join", "[", + RowBox[{ + RowBox[{"rules", "[", + RowBox[{"H", "[", "7", "]"}], "]"}], ",", + RowBox[{"S", "[", "7", "]"}]}], "]"}]}], "]"}], "[", "14", "]"}]}]}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, { 3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9, @@ -176,9 +187,11 @@ Cell[BoxData[ 3.843735347060704*^9, 3.843735363453938*^9}, {3.843884105824162*^9, 3.843884116384301*^9}, {3.843885471625979*^9, 3.8438854826409693`*^9}, { 3.843895611016502*^9, 3.843895646762692*^9}, {3.843901283826623*^9, - 3.843901290602743*^9}}, - CellLabel-> - "In[154]:=",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"], + 3.843901290602743*^9}, {3.8439696492386913`*^9, 3.843969675947434*^9}, { + 3.84396997055504*^9, 3.84396998957965*^9}, {3.843970253540399*^9, + 3.843970262089819*^9}, {3.843970570201339*^9, 3.843970572871655*^9}, { + 3.843975065716485*^9, 3.8439750675880337`*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"], Cell[BoxData[ GraphicsBox[{{{ @@ -427,17 +440,26 @@ Cell[BoxData[ 13.008074231002201`}, {15., 15.354526006101828`}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - PointBox[{{2., 0.3058939805971706}, {3., -3.0168887065270606`}, { - 4., -3.2476886564569973`}, {5., -2.682936423477142}, { - 6., -1.693451732882842}, {7., -0.4167738013600686}, {8., - 1.077615047773819}, {9., 2.7510811302510185`}, {10., - 4.586316016568673}, {11., 6.581917335773754}, {12., - 8.739935900221406}, {13., 11.049198069932453`}, {14., - 13.480441427538558`}}]}}, {{}, {}}}, + PointBox[{{2., 0.30589398059722883`}, {3., -3.016888706545939}, { + 4., -3.183073217743668}, {5., -2.5433878373263874`}, { + 6., -1.5148233796428414`}, {7., -0.2344929327477278}, {8., + 1.2444925611098745`}, {9., 2.8942113657508517`}, {10., + 4.694008269379513}, {11., 6.62641479623805}, {12., 8.676662508704151}, { + 13., 10.832516211547809`}, {14., 13.08390072060759}, {15., + 15.4224623504065}}]}, + {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + PointBox[{{2., 0.3058939805972126}, {3., -3.0168887065287295`}, { + 4., -3.247688656909924}, {5., -2.6829364233041892`}, { + 6., -1.6934517316926618`}, {7., -0.4167737679352926}, {8., + 1.0776150335079282`}, {9., 2.7505139132234504`}, {10., + 4.583085410070621}, {11., 6.572468883357712}, {12., + 8.721677235279092}, {13., 11.023549345572086`}, {14., + 13.452755421328087`}, {15., 15.974430529832548`}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0., -4.7035853558213905`}, + AxesOrigin->{0., -4.75192865207262}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -458,7 +480,7 @@ Cell[BoxData[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, - PlotRange->{{0., 15.}, {-4.7035853558213905`, 15.35666962964508}}, + PlotRange->{{0., 15.}, {-4.75192865207262, 15.974430529832548`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -467,13 +489,7 @@ Cell[BoxData[ Scaled[0.05]}}, Ticks->FrontEndValueCache[{Automatic, Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-4.605170185988091, - FormBox[ - TagBox[ - InterpretationBox[ - StyleBox["\"0.01\"", ShowStringCharacters -> False], 0.01, - AutoDelete -> True], NumberForm[#, { - DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, { - 2.302585092994046, + FormBox["0.01`", TraditionalForm], {0.01, 0.}}, {2.302585092994046, FormBox["10", TraditionalForm], {0.01, 0.}}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], @@ -497,30 +513,6 @@ Cell[BoxData[ 13.815510557964274`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 16.811242831518264`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 17.216707939626428`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 17.50439001207821, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 17.72753356339242, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 17.909855120186375`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 18.064005800013632`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 18.197537192638155`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 18.31532022829454, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 18.420680743952367`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, @@ -547,9 +539,10 @@ Cell[BoxData[ 3.843884181352561*^9, 3.843884286857087*^9, 3.8438844096656847`*^9, 3.8438844413531446`*^9, 3.843885337947896*^9, 3.843893134211335*^9, 3.843895544397488*^9, {3.8438955968230658`*^9, 3.8438956559794064`*^9}, - 3.843901300625553*^9}, - CellLabel-> - "Out[154]=",ExpressionUUID->"fd0e31c4-3576-413b-be64-c5e2cf272a90"] + 3.843901300625553*^9, {3.843969665428134*^9, 3.8439696717398977`*^9}, + 3.843969725201646*^9, 3.84397009007789*^9, 3.843970259378105*^9, + 3.84397036014141*^9, 3.843975409044334*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"aa63b707-eeae-4066-b36c-3aa31a011391"] }, Open ]], Cell[CellGroupData[{ @@ -564,16 +557,27 @@ Cell[BoxData[ RowBox[{ RowBox[{"dGd\[Xi]List", "[", RowBox[{ - RowBox[{"NFN", "[", "7", "]"}], ",", - RowBox[{"HN", "[", "7", "]"}], ",", + RowBox[{"NF", "[", "2", "]"}], ",", + RowBox[{"H", "[", "2", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"rules", "[", - RowBox[{"HN", "[", "7", "]"}], "]"}], ",", - RowBox[{ - RowBox[{"SN", "[", "7", "]"}], "[", - RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], "[", - RowBox[{"12", ",", "0"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", + RowBox[{"H", "[", "2", "]"}], "]"}], ",", + RowBox[{"S", "[", "2", "]"}]}], "]"}]}], "]"}], "[", + RowBox[{"14", ",", "0"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", + RowBox[{"Chop", "[", + RowBox[{"Abs", "@", + RowBox[{ + RowBox[{"dGd\[Xi]List", "[", + RowBox[{ + RowBox[{"NF", "[", "7", "]"}], ",", + RowBox[{"H", "[", "7", "]"}], ",", + RowBox[{"Join", "[", + RowBox[{ + RowBox[{"rules", "[", + RowBox[{"H", "[", "7", "]"}], "]"}], ",", + RowBox[{"S", "[", "7", "]"}]}], "]"}]}], "]"}], "[", + RowBox[{"14", ",", "0"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, { 3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9, @@ -637,9 +641,9 @@ Cell[BoxData[ 3.843732765588666*^9, 3.843732809901375*^9}, {3.8437333348475018`*^9, 3.843733353095563*^9}, {3.8437353722697067`*^9, 3.8437353829251413`*^9}, { 3.843884084968059*^9, 3.843884101159732*^9}, {3.843901316747282*^9, - 3.843901351307724*^9}}, - CellLabel-> - "In[156]:=",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"], + 3.843901351307724*^9}, {3.843970502428205*^9, 3.8439705311788197`*^9}, { + 3.84397060968817*^9, 3.843970625632391*^9}}, + CellLabel->"In[48]:=",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"], Cell[BoxData[ GraphicsBox[{{{ @@ -766,13 +770,20 @@ Cell[BoxData[ 16.1573163641116}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - PointBox[{{3., 0.6126028894906607}, {5., 2.120308945169121}, {7., - 4.555653942531499}, {9., 7.285107004801981}, {11., - 10.162827570262268`}, {13., 13.13021428339704}}]}}, {{}, {}}}, + PointBox[{{3., 0.6126028894906181}, {5., 2.116269571811727}, {7., + 4.54235567762081}, {9., 7.2649793442835975`}, {11., + 10.138348339432874`}, {13., 13.102782339216551`}, {15., + 16.127971798184053`}}]}, + {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + PointBox[{{3., 0.6126028894905478}, {5., 2.1203089451692168`}, {7., + 4.555653940642243}, {9., 7.285693306418692}, {11., + 10.164513170528785`}, {13., 13.133302987410564`}, {15., + 16.162292391378976`}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0., -0.6046080204606867}, + AxesOrigin->{0., -0.6046080204607509}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -793,7 +804,7 @@ Cell[BoxData[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, - PlotRange->{{0., 15.}, {-0.6046080204606867, 16.166885815127753`}}, + PlotRange->{{0., 15.}, {-0.6046080204607509, 16.166885815127753`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -840,9 +851,67 @@ Cell[BoxData[ 3.843735384793891*^9, 3.84388410198702*^9, 3.8438841824710293`*^9, 3.84388428802978*^9, {3.8438844108126*^9, 3.843884438078618*^9}, 3.843885338536109*^9, 3.843893222398693*^9, {3.843901348448614*^9, - 3.8439013540855618`*^9}}, - CellLabel-> - "Out[156]=",ExpressionUUID->"c9264244-18b4-4c6b-9045-ac63927b7b1f"] + 3.8439013540855618`*^9}, 3.8439706033131037`*^9, 3.8439709649416122`*^9}, + CellLabel->"Out[48]=",ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztW3tQVNcZv7IsMG3TadN/Ox37R/9KjIgaHRs1JlOSTqfTZmpfdqYz1ERA +xSiiCFFHoWpRBpSAiK9qQGFlYXkISHgIQniEMEJToTJSEEXk/RayLPv1fuee +c2HZe/dcCApJd2f27t7zne93v9c55zvn3PNrnyC/DwJ8gvy3+ix9J9Bnt5// +1r1LvT8MFIt0SwRhSav4XbZUwP8gCOxCPg/xQm84/39HfnQwPj4O27Ztw694 +J123b98O9CO8TusNDg6Sem1tbcJqUuYGVqsVcnJyYN++fbBz506IiIiA5uZm +Rm5vb4czZ87A7t27ISAgAI4dOwZ1dXWeFLGsrGzGkz1geHiYPHZychJSU1Nh +z549sGPHDoiLi0MJlqmy6ggrVUZwVVDkFQ4vq+eioPBPJZttpiSTyQQHDhyA +zs5O4eeq9nGH4uJi2L9/P7S2thLR0FZojIGBAWEVrRMSEgKXLl0i/FinqKgI +/P39CfYKil1fXw9+fn70TjIuYgUHB8OjR48QD2JiYiAyMnK5Kout2F4K9dzU +Nf89JeXm5kJQUBC6Vo6Mqqoq2aDM8Og7ZlAvqunhw4chKyuLlZPoCQwMhMrK +SmElxUJHIJYYRbLYGFm1tbXkjsWOvXruxNJocfZ58uQJwXr69KnwmgKfq4JO +ShZnAcHT8yeSqf5Aq6Moe/futQkIbBEo5tDQEOGZbulVlM9sNoOvry+aSjYB +NRO5W0mxTpw4ARcuXJADp6CggARXf3+/QzVGRkYUTVxTU0Pulinw6hV0UnKF +iwY9aUT9cRoktvKuri65X8HYPn/+/ExWyUIecpBg+GPTGhsbIyzYx/T19a2i +KGiUqKgo5jPS0sSYUIp8Zpvu7m5SVawm2wb1wD5DzTZuCoqot0JV5ahZ/oQ/ +LhAfH8+MgV0h+vru3bv2xnAHi8VCHpGdnQ1Hjhwhrjx+/Djcv39fDjts+KdO +nULjEGMZDAbSV4stcN5DxV1WwJERVJSabgSxbmFhIYSGhpK71TQQxdZMyljr +nmpeOuz/IDk5mdytpdIcOnQIbt++DezT0dFB+ERbOOhfZ9+buCvIrN7rKOth +M8y4QXR0NDQ0NBCXYYtC916+fHkNxcEGj8Mr5Wbx8uDBA9ISSktLiQPFeITr +16+zWEhISCC+7+3tJcBoL2zSokfmd7xRlV+JRa+s0wyDiDFNqLt27SL+uXbt +GoIzg+CAgiFAmV+nyE1NTURjzCOOHj0KjY2Nck+DHRR2otjBotGwlYhdiidF +FO0mdx+iqK7TotdoNBIubA9nz56dyk5UuVSkV+FyU1aKWoSEpEJW92NqW6xN +PxL9zuKg/0gqE8m1eFmizvU9jWXfXSBepyzfTFmkftoZck5ZXpgszpBzyrJ4 +Qm7tPJet+Rq8P/tGiflDStK6guQwCRKUZ5GLlkcvs5QsEokc8Eiessup3Tls +zyP73UxFKSwOh6upGyHRuAnKyk8T4nZ1NrY8ezMnAKIzV+BXjCu86giUzeN9 ++TgJ6V52OBfT1swaJ9a0wg4nIX3lrHGSjL+wwzGkvzdLHDdxGvtfuGpcT7BO +i99E49swMtxNKvmrs7P1zP6+RzAkVRd4LiHXRTKPctJfPP00LbNOToh/rFM8 +y9V5osjVDbo7/wNJqRsgNsMTzqWvgOybf2MY8BqPXSd2HG/YtZaCghBb0V9V +x4mkZX89mgO+x5IJgivrBVLWkfLZ4mwNS4PTGVM4F5I3aMZheiUa37XTq+yz +OHW9CIzErYeRZ4NgMG2BhLTVcNG4DorvRHEdQq6LOMicdCfdSZ8fukAWolm6 +TvfsuHvMUvbupkbWKzy0mlz1MGkegZKcD8CYuh5upv8Keh/XCMOSLGz7ZBZL +6y6OyUqCVMm4VlGITTOyNE/oefIvUmOQJ9R3HO1/kHtKZ3Od6dsjbGNVSbLH +D6vlHl9Hr6bMLXK9AXXJ1Hel9PKuFG/HSqcgWiUtw8Hro+hwm8ExIdFbHtQ0 +iGa/f6iX9w95e4ukjMyyKpiiowNiwuBlY6tPS04tpK2qaUyWVF+BGNNK5kr4 +xPQXMeSsQy88rj6nZUOjQ1DdUAJtXQ+FEZ4U89nkyJV1OKTCzFmnwNk2cnFM +5j10oXtZJ91Jd9KfM32K/LyfKnU3ehgfaIUi03uQaVgNBcZfwkhnvXCLw8s6 +aMyDklNX2aQfV42eMDbcQWrkasSpqYi1SxaKPp2a9uZwcNgIgCP4yXg/m5E9 +5uKf5ZGdh8PkaX5Yh1NeG3lq/52nWR5m28ziCBHHiy5aeUFybhDXtmzJs2ew +CyrvFUNHb7uQz+FZTBHspP/f0uc2D3uJgzqH9G7ukI7fB1PagePhqmfotlm4 +0s6gVmzelOPrYGudPeTl5ZG3ngDoW152G0lztbqr2hPm5GEPtaAh7KWlpURu +wfadcqUp0vTHOZwQvKSW8ROelpYW8rYa1sEP1VLj1pcekpKSID8/f068o6Oj +cPDgQXyVWDPvy+THlfgf3zGkfDw2truHxsaXdbU8ivH09PSQl/a08CxYH/gm +tal14hm0fxEHd/P8ofvL6wBWi3CIw7uR/HUXq45DnmE92eDCnAF3Ee5k4BaY +VTioCUPMpe78w26p/WMxl2lvLiU1PuLgbKAEzJni//lbm1wqIu5DOZcK1SjP +zcIwu9yuvrFQrqwV59n4KMSmvzFjqes3uBqhSS/mn+GxQUgp/DtcyPQBU1ks +WCxmrn8WOrac9MVDf3EzNCfdSV9IutSj6qG/5TaU33gXipLXwpd5O2ByfEB4 +i8Mr9eru0NtWBZ8Yl8vrxziyFd54B3BE26QJQweZps12I1qMODL2dzeRGm9y +cEIoAUeuhGtv2Yxo+yKj5RFto0Z50vKD7eQ5I87yR8eHNcnDcMbNYxBn8rbB +ya04J1fm4Uj+cQXL5ARUNuRC7udXoK276W0Om3Oypo77bZ+szQVbKvs+d0Nn +YmICEhMTybEXPGiEh8/EstnOBbl7NjiRwmM+OGlBW+LkKTs7+/nu2WBxXV2d +rHx5eTkec+Y99AeUjmpgHRFC9hWFIHdKO172OO5y7Jw8eVLWPywsDDIyMrhT +YoaBfsJzp7du3SLHYVE1PKJkNpu5GOzN2PDwcKioqCB3Hpp43IirMYYaGxvJ +kU3kv3fvHu+R0nxTT47F4hk/DC8MMy3iLtqh1Ul30heSLm3MYK9jhYnhdjD3 +3ReHfIsHh03Kk9zAahmDuswtkJXyCqQbXoXPUtbDV/3NDg4jTGPXwRcFwWyJ +YyrxubFJrqyfhjMFk40XF8zWxOpXUtba5WC4WvJ+WDqpoeeIYgN2zrDObonC +J9wkJ4auGvUy5IfaCRWf5q2olyPzmi1fwfmsrXLS/HG6NzzubuGZN48SRsbE +gWHwMTpX4Hl0oQPxW0In/+nRXGHJ/wAJUDMp\ +\>", "ImageResolution" -> \ +96.],ExpressionUUID->"ab665598-9049-497c-bafe-53f863ef4174"] }, Open ]], Cell[CellGroupData[{ @@ -853,35 +922,31 @@ Cell[BoxData[ RowBox[{ RowBox[{"Abs", "[", "\[CapitalPhi]s", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Chop", "[", - RowBox[{ + RowBox[{"Abs", "@", RowBox[{ - RowBox[{"Abs", "@", + RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", RowBox[{ - RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", + RowBox[{"NF", "[", "2", "]"}], ",", + RowBox[{"H", "[", "2", "]"}], ",", + RowBox[{"Join", "[", RowBox[{ - RowBox[{"NFN", "[", "2", "]"}], ",", - RowBox[{"HN", "[", "2", "]"}]}], "]"}], "[", - RowBox[{"7", ",", "1"}], "]"}]}], "//.", - RowBox[{"rules", "[", - RowBox[{"HN", "[", "2", "]"}], "]"}]}], "/.", - RowBox[{ - RowBox[{"SN", "[", "2", "]"}], "[", - RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", + RowBox[{"rules", "[", + RowBox[{"H", "[", "2", "]"}], "]"}], ",", + RowBox[{"S", "[", "2", "]"}]}], "]"}]}], "]"}], "[", + RowBox[{"10", ",", "1"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Chop", "[", RowBox[{"Abs", "@", RowBox[{ RowBox[{"d\[CapitalPhi]d\[Eta]List", "[", RowBox[{ - RowBox[{"NFN", "[", "8", "]"}], ",", - RowBox[{"HN", "[", "8", "]"}], ",", + RowBox[{"NF", "[", "7", "]"}], ",", + RowBox[{"H", "[", "7", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"rules", "[", - RowBox[{"HN", "[", "8", "]"}], "]"}], ",", - RowBox[{ - RowBox[{"SN", "[", "8", "]"}], "[", - RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], "[", - RowBox[{"11", ",", "1"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", + RowBox[{"H", "[", "7", "]"}], "]"}], ",", + RowBox[{"S", "[", "7", "]"}]}], "]"}]}], "]"}], "[", + RowBox[{"10", ",", "1"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, { 3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9, @@ -947,9 +1012,9 @@ Cell[BoxData[ 3.843732651570488*^9, 3.843732675242991*^9}, {3.8437330390347557`*^9, 3.843733058330291*^9}, {3.8437353923025923`*^9, 3.84373542030167*^9}, { 3.8437359755682907`*^9, 3.8437360272169533`*^9}, {3.8437361227477913`*^9, - 3.843736137403366*^9}, {3.84390136001165*^9, 3.84390146346984*^9}}, - CellLabel-> - "In[162]:=",ExpressionUUID->"b80d3f22-eb0b-4407-8e47-23e8047f75de"], + 3.843736137403366*^9}, {3.84390136001165*^9, 3.84390146346984*^9}, { + 3.843969785734762*^9, 3.843969872892932*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"b80d3f22-eb0b-4407-8e47-23e8047f75de"], Cell[BoxData[ GraphicsBox[{{{ @@ -1143,22 +1208,24 @@ Cell[BoxData[ 11., -13.127375919227873`}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - PointBox[{{1., 0.1791622254565127}, {2., -1.1380209819811473`}, { - 3., -2.200237167363314}, {4., -4.026935298114119}, { - 5., -6.689492658335067}, {6., -7.348303307111008}, { - 7., -7.116099682546296}, {8., -7.902809964074185}}]}, + PointBox[{{1., 0.17916222140435714`}, {2., -1.1380209714273595`}, { + 3., -2.2002371641176754`}, {4., -4.0269352044794156`}, { + 5., -6.689491662738269}, {6., -7.348303402313271}, { + 7., -7.116099106203238}, {8., -7.902809171667697}, { + 9., -9.638771881161201}, {10., -8.648728416795501}, { + 11., -9.480995168207297}}]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - PointBox[{{1., 0.18044101182175404`}, {2., -1.14327782347157}, { - 3., -2.1996989814353403`}, {4., -4.107356260746165}, { - 5., -8.333541838075812}, {6., -7.471719578616903}, { - 7., -8.273477734475353}, {8., -9.810468903409943}, { - 9., -10.666667752115927`}, {10., -10.176532372524312`}, { - 11., -10.683248005725693`}, {12., -14.143092200979424`}}]}}, {{}, {}}}, + PointBox[{{1., 0.18043385700643785`}, {2., -1.1431783532688997`}, { + 3., -2.199210192500604}, {4., -4.110438182923459}, { + 5., -8.401116083991576}, {6., -7.520343998126052}, { + 7., -8.47906992601933}, {8., -10.843946709455823`}, { + 9., -10.462969152769388`}, {10., -10.897257150412237`}, { + 11., -12.911918903621654`}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0., -16.144779479582237`}, + AxesOrigin->{0., -16.144778919677336`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1179,7 +1246,7 @@ Cell[BoxData[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, - PlotRange->{{0., 12.}, {-16.144779479582237`, 0.18044101182175404`}}, + PlotRange->{{0., 11.}, {-16.144778919677336`, 0.18043385700643785`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1327,9 +1394,9 @@ Cell[BoxData[ 3.843884184545044*^9, 3.84388429014081*^9, {3.8438844129235086`*^9, 3.8438844356028957`*^9}, 3.8438853400513678`*^9, {3.843893225296072*^9, 3.843893235924965*^9}, {3.843901377690477*^9, 3.843901416429103*^9}, { - 3.843901448838873*^9, 3.8439014679825*^9}}, - CellLabel-> - "Out[162]=",ExpressionUUID->"038f4708-742c-4509-a5bf-780abe3ef8e7"] + 3.843901448838873*^9, 3.8439014679825*^9}, {3.843969843457286*^9, + 3.843969850819536*^9}, 3.843969884226707*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"3ae2f01e-2c08-40b1-a6eb-0cc6d5efcac2"] }, Open ]], Cell[CellGroupData[{ @@ -1420,24 +1487,24 @@ Cell[BoxData[{ 3.843884391590458*^9, 3.8438844521906443`*^9}, {3.843893099389781*^9, 3.8438931001718616`*^9}, {3.843895688269582*^9, 3.843895688923799*^9}, { 3.8438991895486917`*^9, 3.843899252351191*^9}}, - CellLabel->"In[6]:=",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], + CellLabel->"In[36]:=",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], Cell[BoxData[ RowBox[{"{", - RowBox[{"3.164885631650109`", ",", + RowBox[{"3.1648856316501015`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.2218190647119276`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1981515261044843`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.2218190647100184`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.1981515261044731`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.3933801431845954`"}]}], ",", + RowBox[{"-", "2.3933801431857895`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5218210757148685`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5218210757169919`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4558675349680261`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4558675349698142`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.014069612364099534`"}]}]}], "}"}]}], "}"}]], "Output", + RowBox[{"-", "0.01406961236362214`"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.843816627981923*^9, 3.8438166906843433`*^9}, { 3.843816728221302*^9, 3.843816890387457*^9}, {3.843816954497418*^9, 3.843816977126855*^9}, {3.843817045845647*^9, 3.84381704833007*^9}, { @@ -1448,8 +1515,8 @@ Cell[BoxData[ 3.8438852775933657`*^9}, {3.8438930922316732`*^9, 3.843893113567326*^9}, 3.843893232171549*^9, {3.843895660940199*^9, 3.843895691702873*^9}, { 3.843897137547141*^9, 3.843897142383761*^9}, {3.843899197736055*^9, - 3.8438992559841423`*^9}, 3.843901920619899*^9}, - CellLabel->"Out[8]=",ExpressionUUID->"25c2add9-9dfd-4b3a-b5ac-e3f767f84a88"] + 3.8438992559841423`*^9}, 3.843901920619899*^9, 3.843970209674953*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"90c66f69-fd6a-4254-b20f-1502211b9ee2"] }, Open ]], Cell[CellGroupData[{ @@ -1487,30 +1554,31 @@ Cell[BoxData[ RowBox[{"SN", "[", "2", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.8438934053618307`*^9, 3.843893413441764*^9}, { - 3.843899229877779*^9, 3.8438992597272253`*^9}}, - CellLabel->"In[9]:=",ExpressionUUID->"9acf3167-ed91-4bdd-8d54-9d984831fbe8"], + 3.843899229877779*^9, 3.8438992597272253`*^9}, {3.843970228035159*^9, + 3.843970238483116*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"9acf3167-ed91-4bdd-8d54-9d984831fbe8"], Cell[BoxData[ RowBox[{"{", - RowBox[{"3.1648867747359133`", ",", + RowBox[{"3.1649036098479413`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.221819066848114`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19815153122696594`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.2218190668446298`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19815153122601004`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.3933801566389947`"}]}], ",", + RowBox[{"-", "2.393380156636518`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5218210670748642`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5218210670773562`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4558675458265395`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4558675458279417`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.014069600755783175`"}]}]}], "}"}]}], "}"}]], "Output", + RowBox[{"-", "0.014069600756944788`"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.843893413830318*^9, {3.8438956969492483`*^9, 3.8438956994043627`*^9}, 3.843897142565444*^9, {3.843899225556612*^9, 3.84389926027955*^9}, - 3.843901920824957*^9}, - CellLabel->"Out[9]=",ExpressionUUID->"b059d7c9-8735-422e-bae9-b5aebf0ffb94"] + 3.843901920824957*^9, {3.843970231905294*^9, 3.843970239782789*^9}}, + CellLabel->"Out[40]=",ExpressionUUID->"8c096ed9-489c-4c77-a879-1d4031bd9f1f"] }, Open ]], Cell[CellGroupData[{ @@ -38010,24 +38078,24 @@ Cell[BoxData[{ RowBox[{"S", "[", "2", "]"}], "=", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.2218190647119276`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1981515261044843`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.2218190668446298`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19815153122601004`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.3933801431845954`"}]}], ",", + RowBox[{"-", "2.393380156636518`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5218210757148685`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5218210670773562`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4558675349680261`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4558675458279417`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.014069612364099534`"}]}]}], "}"}]}], ";"}]}], "Input", + RowBox[{"-", "0.014069600756944788`"}]}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.842517705895237*^9, 3.842517708639202*^9}, { 3.8431067504279013`*^9, 3.8431067566565113`*^9}, {3.843107733421461*^9, 3.8431077537898293`*^9}, {3.8431079886821957`*^9, 3.8431079919621267`*^9}, { 3.843118081491584*^9, 3.8431180928836308`*^9}, {3.843290605662134*^9, - 3.843290619902092*^9}, {3.8439049063728952`*^9, - 3.843904910706853*^9}},ExpressionUUID->"afc540ea-ef9a-493b-9583-\ -ed901e3ac580"], + 3.843290619902092*^9}, {3.8439049063728952`*^9, 3.843904910706853*^9}, { + 3.843970548489707*^9, 3.843970558391683*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"afc540ea-ef9a-493b-9583-ed901e3ac580"], Cell[BoxData[{ RowBox[{ @@ -38066,9 +38134,8 @@ Cell[BoxData[{ 3.843106785276181*^9, 3.843106789804263*^9}, {3.843107740365707*^9, 3.8431077546377697`*^9}, {3.843107995522175*^9, 3.8431079986742268`*^9}, { 3.843118100443939*^9, 3.843118103571854*^9}, {3.843290613070524*^9, - 3.843290628974379*^9}, {3.843904951416504*^9, - 3.8439049538617773`*^9}},ExpressionUUID->"cdb9b75d-4c04-4ef5-9969-\ -9e72079c5d58"], + 3.843290628974379*^9}, {3.843904951416504*^9, 3.8439049538617773`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"cdb9b75d-4c04-4ef5-9969-9e72079c5d58"], Cell[BoxData[{ RowBox[{ @@ -38112,8 +38179,8 @@ Cell[BoxData[{ 3.8431077439737988`*^9, 3.8431077555576477`*^9}, {3.8431080011299343`*^9, 3.843108005474188*^9}, {3.843118107683989*^9, 3.8431181126276007`*^9}, { 3.8432906307745457`*^9, 3.843290635254532*^9}, {3.843904974326128*^9, - 3.843904999230419*^9}},ExpressionUUID->"e7739266-4bd1-4804-846a-\ -5133bf45bfe6"], + 3.843904999230419*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"e7739266-4bd1-4804-846a-5133bf45bfe6"], Cell[BoxData[{ RowBox[{ @@ -38160,9 +38227,8 @@ Cell[BoxData[{ 3.843107758654028*^9}, {3.843108007874248*^9, 3.843108011866128*^9}, { 3.843118116044188*^9, 3.843118119540159*^9}, {3.843290637446662*^9, 3.8432906406465178`*^9}, {3.843905016790925*^9, 3.843905017409232*^9}, { - 3.8439050678798122`*^9, - 3.843905067959853*^9}},ExpressionUUID->"e0c29aa2-30dd-4eb9-990b-\ -b4abf8865eeb"], + 3.8439050678798122`*^9, 3.843905067959853*^9}}, + CellLabel->"In[17]:=",ExpressionUUID->"e0c29aa2-30dd-4eb9-990b-b4abf8865eeb"], Cell[BoxData[{ RowBox[{ @@ -38214,9 +38280,8 @@ Cell[BoxData[{ 3.8431071085894737`*^9, 3.843107110873993*^9}, {3.843107749061781*^9, 3.843107761053968*^9}, {3.8431080144985437`*^9, 3.843108018722546*^9}, { 3.84311812190835*^9, 3.843118129636252*^9}, {3.8432906441747217`*^9, - 3.843290647414538*^9}, {3.843905062655871*^9, - 3.84390506544761*^9}},ExpressionUUID->"80a3d021-bc5a-410c-8e70-\ -089bc45d33bc"], + 3.843290647414538*^9}, {3.843905062655871*^9, 3.84390506544761*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"80a3d021-bc5a-410c-8e70-089bc45d33bc"], Cell[BoxData[{ RowBox[{ @@ -38271,265 +38336,14 @@ Cell[BoxData[{ 3.843107494204513*^9, 3.8431074966811*^9}, {3.843107763382147*^9, 3.8431077653659983`*^9}, {3.843108021298802*^9, 3.843108027138801*^9}, { 3.843118132972484*^9, 3.843118139388473*^9}, {3.8432906497668543`*^9, - 3.8432906528309307`*^9}, {3.843905095434697*^9, - 3.843905098760456*^9}},ExpressionUUID->"1d95a4fa-b7b4-4d6f-9695-\ -22a28602846c"], - -Cell[BoxData[{ - RowBox[{ - RowBox[{ - RowBox[{"H", "[", "8", "]"}], "=", - RowBox[{"h", "[", "6", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"NF", "[", "8", "]"}], "=", "5"}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"\[ScriptCapitalF]", "[", "8", "]"}], "=", - RowBox[{"RF", "[", "5", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"S", "[", "8", "]"}], "=", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3710192066561966`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19655268865457023`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.551315962883039`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.732278814614242`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5967868834184186`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.3515062191585261`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.005023244859308164`"}], - ",", - RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.2952087119338217`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.05365943568010773`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.01980645818232528`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.0785090329663038`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.003353070367769979`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", - RowBox[{"-", "0.00026033616168888695`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.007251366969801466`"}]}]}], "}"}]}], ";"}]}], "Input", - CellChangeTimes->{{3.842517616421838*^9, 3.8425176337261066`*^9}, { - 3.843107629830904*^9, 3.8431076506119823`*^9}, {3.8431077678301086`*^9, - 3.843107771254263*^9}, {3.843108030050688*^9, 3.843108034522934*^9}, - 3.843113892598907*^9, {3.843118143540801*^9, 3.843118148388715*^9}, { - 3.843290655503104*^9, 3.843290659903*^9}}, - CellLabel->"In[30]:=",ExpressionUUID->"f3f292b7-6741-4c30-b2ac-b80cd82a3eaa"], - -Cell[BoxData[{ - RowBox[{ - RowBox[{ - RowBox[{"H", "[", "9", "]"}], "=", - RowBox[{"h", "[", "7", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"NF", "[", "9", "]"}], "=", "5"}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"\[ScriptCapitalF]", "[", "9", "]"}], "=", - RowBox[{"RF", "[", "5", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"S", "[", "9", "]"}], "=", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.375435411428919`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1965201354188921`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.548202398429163`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.7277523989023333`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.602777511249843`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.35476072551695503`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.0071698284978869015`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.28737467546972323`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.052493450595160036`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.019894421937458582`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.07241135663444981`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.003534527038057842`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", - RowBox[{"-", "0.00033818931210095453`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.007245524506332198`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "\[Rule]", - "0.000010619260978013524`"}]}], "}"}]}], ";"}]}], "Input", - CellChangeTimes->{{3.842517725791533*^9, 3.8425177278636723`*^9}, { - 3.84310764799933*^9, 3.8431076528758698`*^9}, {3.843107773590263*^9, - 3.8431077748302317`*^9}, {3.843108036770996*^9, 3.8431080424510937`*^9}, - 3.843113534568307*^9, {3.843118150468753*^9, 3.843118156188863*^9}, { - 3.8432906617511663`*^9, 3.843290666751149*^9}}, - CellLabel->"In[34]:=",ExpressionUUID->"b6e4cc8e-edfb-44a9-a3e6-a4d9a234eb0c"], - -Cell[BoxData[{ - RowBox[{ - RowBox[{ - RowBox[{"H", "[", "10", "]"}], "=", - RowBox[{"h", "[", "8", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"NF", "[", "10", "]"}], "=", "6"}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"\[ScriptCapitalF]", "[", "10", "]"}], "=", - RowBox[{"RF", "[", "6", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"S", "[", "10", "]"}], "=", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3945095399721226`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19657331402448114`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.540815351266595`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.7168304596304513`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.58914437918972`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.3578933157155564`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"-", "0.0002471276399885635`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.28467214257786666`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "0.05289863457865093`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{"-", "0.0201090322678147`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "4", "]"}], "\[Rule]", "0.073168474426385`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", "0.0034486104788930307`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", - RowBox[{"-", "0.00021837125394706086`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.007098620515609658`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "\[Rule]", - RowBox[{"-", "0.000025781921631023817`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "3.737427990965571`*^-6"}], - ",", - RowBox[{ - RowBox[{"A", "[", "6", "]"}], "\[Rule]", "0.000017492654253389754`"}]}], - "}"}]}], ";"}]}], "Input", - CellChangeTimes->{{3.843117659420776*^9, 3.843117674500119*^9}, { - 3.843118159212996*^9, 3.843118167876886*^9}, {3.843290669023036*^9, - 3.843290675335219*^9}}, - CellLabel->"In[38]:=",ExpressionUUID->"2f0f517e-a884-4fb5-aa03-33b1e6e8e890"], - -Cell[CellGroupData[{ - -Cell[BoxData[{ - RowBox[{ - RowBox[{ - RowBox[{"H", "[", "11", "]"}], "=", - RowBox[{"h", "[", "9", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"NF", "[", "11", "]"}], "=", "6"}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"\[ScriptCapitalF]", "[", "11", "]"}], "=", - RowBox[{"RF", "[", - RowBox[{"NF", "[", "11", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"S", "[", "11", "]"}], "=", - RowBox[{ - RowBox[{ - "Import", "[", - "\"\<~/doc/research/first_order_singularities/mma/11.wl\>\"", "]"}], "[", - - RowBox[{"[", "2", "]"}], "]"}]}]}], "Input", - CellChangeTimes->{{3.843544396129781*^9, 3.8435444542503853`*^9}, { - 3.84362534544658*^9, 3.843625345878365*^9}, {3.843637945534485*^9, - 3.843637947278*^9}, {3.8436380066001596`*^9, 3.843638007279107*^9}, { - 3.8437109210522957`*^9, 3.843710921508013*^9}, {3.8437139963254013`*^9, - 3.843714000652972*^9}, {3.843728089015019*^9, 3.843728091110979*^9}}, - CellLabel->"In[42]:=",ExpressionUUID->"990c0156-b917-447b-8ea2-39f8d0d504d1"], - -Cell[BoxData[ - TemplateBox[{ - "Import", "nffil", - "\"File \\!\\(\\*RowBox[{\\\"\\\\\\\"~/doc/research/first_order_\ -singularities/mma/11.wl\\\\\\\"\\\"}]\\) not found during \\!\\(\\*RowBox[{\\\ -\"Import\\\"}]\\).\"", 2, 45, 1, 31653629920828211403, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.843811415853397*^9, 3.843811723974409*^9, - 3.843882978496212*^9}, - CellLabel-> - "During evaluation of \ -In[42]:=",ExpressionUUID->"69ee9008-fa6c-4744-a2bd-60ddf5a1bb01"], - -Cell[BoxData[ - TemplateBox[{ - "Part", "partd", - "\"Part specification \\!\\(\\*RowBox[{\\\"$Failed\\\", \\\"\ -\[LeftDoubleBracket]\\\", \\\"2\\\", \\\"\[RightDoubleBracket]\\\"}]\\) is \ -longer than depth of object.\"", 2, 45, 2, 31653629920828211403, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.843811415853397*^9, 3.843811723974409*^9, - 3.843882978530964*^9}, - CellLabel-> - "During evaluation of \ -In[42]:=",ExpressionUUID->"c7e61c4f-b7ba-492b-8830-f4e3d86baa49"], - -Cell[BoxData[ - RowBox[{"$Failed", "\[LeftDoubleBracket]", "2", - "\[RightDoubleBracket]"}]], "Output", - CellChangeTimes->{{3.843544451672003*^9, 3.84354445475845*^9}, { - 3.843625346157543*^9, 3.8436253531800337`*^9}, 3.8436379476027603`*^9, - 3.843638007572206*^9, 3.84371093111165*^9, 3.843714001788314*^9, - 3.84372151320288*^9, 3.843811415896719*^9, 3.8438117240464973`*^9, - 3.843882978538393*^9}, - CellLabel->"Out[45]=",ExpressionUUID->"9bf62f5f-7a6f-4af7-bd94-6121ead0f3e4"] -}, Open ]] + 3.8432906528309307`*^9}, {3.843905095434697*^9, 3.843905098760456*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"1d95a4fa-b7b4-4d6f-9695-22a28602846c"] }, Open ]] }, Open ]] }, -WindowSize->{955.5, 1060.5}, -WindowMargins->{{2.25, Automatic}, {2.25, Automatic}}, -FrontEndVersion->"12.3 for Linux x86 (64-bit) (July 9, 2021)", +WindowSize->{715.5, 790.5}, +WindowMargins->{{Automatic, 2.25}, {2.25, Automatic}}, +FrontEndVersion->"12.1 for Linux ARM (32-bit) (August 18, 2020)", StyleDefinitions->"Default.nb", ExpressionUUID->"6f6c570c-dfc0-4320-bdc7-0f1de62bb24c" ] @@ -38544,304 +38358,295 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[558, 20, 991, 15, 24, "Input",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"], -Cell[1552, 37, 545, 13, 41, "Input",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"], -Cell[2100, 52, 463, 11, 24, "Input",ExpressionUUID->"2fdffe9d-9220-4c97-866d-0a1f5e3200a1"], -Cell[2566, 65, 331, 7, 24, "Input",ExpressionUUID->"8f4d55d2-f559-4382-a0b2-1a4eb0ce0b9a"], +Cell[558, 20, 991, 15, 29, "Input",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"], +Cell[1552, 37, 545, 13, 51, "Input",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"], +Cell[2100, 52, 463, 11, 29, "Input",ExpressionUUID->"2fdffe9d-9220-4c97-866d-0a1f5e3200a1"], +Cell[2566, 65, 331, 7, 29, "Input",ExpressionUUID->"8f4d55d2-f559-4382-a0b2-1a4eb0ce0b9a"], Cell[CellGroupData[{ -Cell[2922, 76, 203, 4, 50, "Section",ExpressionUUID->"5d9c76ab-41db-4d8f-b32b-3ceed5a29b07"], +Cell[2922, 76, 203, 4, 68, "Section",ExpressionUUID->"5d9c76ab-41db-4d8f-b32b-3ceed5a29b07"], Cell[CellGroupData[{ -Cell[3150, 84, 163, 3, 41, "Subsection",ExpressionUUID->"04b3434a-7ae1-4e59-9492-797bc05d141c"], +Cell[3150, 84, 163, 3, 54, "Subsection",ExpressionUUID->"04b3434a-7ae1-4e59-9492-797bc05d141c"], Cell[CellGroupData[{ -Cell[3338, 91, 5830, 89, 75, "Input",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"], -Cell[9171, 182, 17304, 369, 183, "Output",ExpressionUUID->"fd0e31c4-3576-413b-be64-c5e2cf272a90"] +Cell[3338, 91, 6467, 102, 113, "Input",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"], +Cell[9808, 195, 16882, 349, 211, "Output",ExpressionUUID->"aa63b707-eeae-4066-b36c-3aa31a011391"] }, Open ]], Cell[CellGroupData[{ -Cell[26512, 556, 5479, 85, 75, "Input",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"], -Cell[31994, 643, 9111, 201, 181, "Output",ExpressionUUID->"c9264244-18b4-4c6b-9045-ac63927b7b1f"] +Cell[26727, 549, 5991, 96, 236, "Input",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"], +Cell[32721, 647, 13067, 266, 242, 8998, 199, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"ab665598-9049-497c-bafe-53f863ef4174"] }, Open ]], Cell[CellGroupData[{ -Cell[41142, 849, 6248, 102, 92, "Input",ExpressionUUID->"b80d3f22-eb0b-4407-8e47-23e8047f75de"], -Cell[47393, 953, 19822, 378, 177, "Output",ExpressionUUID->"038f4708-742c-4509-a5bf-780abe3ef8e7"] +Cell[45825, 918, 6177, 98, 113, "Input",ExpressionUUID->"b80d3f22-eb0b-4407-8e47-23e8047f75de"], +Cell[52005, 1018, 19963, 380, 236, "Output",ExpressionUUID->"3ae2f01e-2c08-40b1-a6eb-0cc6d5efcac2"] }, Open ]], Cell[CellGroupData[{ -Cell[67252, 1336, 4323, 86, 73, "Input",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], -Cell[71578, 1424, 1504, 27, 25, "Output",ExpressionUUID->"25c2add9-9dfd-4b3a-b5ac-e3f767f84a88"] +Cell[72005, 1403, 4324, 86, 139, "Input",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], +Cell[76332, 1491, 1527, 27, 55, "Output",ExpressionUUID->"90c66f69-fd6a-4254-b20f-1502211b9ee2"] }, Open ]], Cell[CellGroupData[{ -Cell[73119, 1456, 1206, 34, 24, "Input",ExpressionUUID->"9acf3167-ed91-4bdd-8d54-9d984831fbe8"], -Cell[74328, 1492, 910, 20, 25, "Output",ExpressionUUID->"b059d7c9-8735-422e-bae9-b5aebf0ffb94"] +Cell[77896, 1523, 1256, 35, 75, "Input",ExpressionUUID->"9acf3167-ed91-4bdd-8d54-9d984831fbe8"], +Cell[79155, 1560, 957, 20, 55, "Output",ExpressionUUID->"8c096ed9-489c-4c77-a879-1d4031bd9f1f"] }, Open ]], Cell[CellGroupData[{ -Cell[75275, 1517, 3447, 72, 56, "Input",ExpressionUUID->"f3f44ab5-ab9d-423b-af35-070d428c3a9d"], -Cell[78725, 1591, 974, 22, 25, "Output",ExpressionUUID->"adca116b-4344-4f24-a113-50dc12d9cdc0"] +Cell[80149, 1585, 3447, 72, 116, "Input",ExpressionUUID->"f3f44ab5-ab9d-423b-af35-070d428c3a9d"], +Cell[83599, 1659, 974, 22, 55, "Output",ExpressionUUID->"adca116b-4344-4f24-a113-50dc12d9cdc0"] }, Open ]], Cell[CellGroupData[{ -Cell[79736, 1618, 1156, 33, 24, "Input",ExpressionUUID->"fbfe9aac-852b-4f12-afa8-eefd1a141395"], -Cell[80895, 1653, 513, 11, 22, "Message",ExpressionUUID->"e11549f0-1f54-41a7-8da7-7bf815c07d68"], -Cell[81411, 1666, 512, 11, 22, "Message",ExpressionUUID->"05deb4f0-b888-4dc3-9800-9d5c62cb046e"], -Cell[81926, 1679, 514, 11, 22, "Message",ExpressionUUID->"52600ce7-1c12-4f65-aeda-9fbca14e912b"], -Cell[82443, 1692, 452, 10, 22, "Message",ExpressionUUID->"43270502-9561-4d5d-bcb4-8fd6e6b0442c"], -Cell[82898, 1704, 961, 23, 25, "Output",ExpressionUUID->"f81b797b-dfad-48f1-907d-78f33085f565"] +Cell[84610, 1686, 1156, 33, 75, "Input",ExpressionUUID->"fbfe9aac-852b-4f12-afa8-eefd1a141395"], +Cell[85769, 1721, 513, 11, 38, "Message",ExpressionUUID->"e11549f0-1f54-41a7-8da7-7bf815c07d68"], +Cell[86285, 1734, 512, 11, 38, "Message",ExpressionUUID->"05deb4f0-b888-4dc3-9800-9d5c62cb046e"], +Cell[86800, 1747, 514, 11, 38, "Message",ExpressionUUID->"52600ce7-1c12-4f65-aeda-9fbca14e912b"], +Cell[87317, 1760, 452, 10, 21, "Message",ExpressionUUID->"43270502-9561-4d5d-bcb4-8fd6e6b0442c"], +Cell[87772, 1772, 961, 23, 55, "Output",ExpressionUUID->"f81b797b-dfad-48f1-907d-78f33085f565"] }, Open ]], Cell[CellGroupData[{ -Cell[83896, 1732, 3409, 73, 73, "Input",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"], -Cell[87308, 1807, 3542, 59, 42, "Output",ExpressionUUID->"c852ba83-1f1c-4b79-b8fa-4d7f006f943a"] +Cell[88770, 1800, 3409, 73, 116, "Input",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"], +Cell[92182, 1875, 3542, 59, 75, "Output",ExpressionUUID->"c852ba83-1f1c-4b79-b8fa-4d7f006f943a"] }, Open ]], Cell[CellGroupData[{ -Cell[90887, 1871, 1154, 33, 24, "Input",ExpressionUUID->"1430cc9e-c966-4177-ab4c-6b03a664eaa5"], -Cell[92044, 1906, 1125, 27, 42, "Output",ExpressionUUID->"dce9f6c3-46a7-4528-b391-b8c13ddc1c07"] +Cell[95761, 1939, 1154, 33, 75, "Input",ExpressionUUID->"1430cc9e-c966-4177-ab4c-6b03a664eaa5"], +Cell[96918, 1974, 1125, 27, 75, "Output",ExpressionUUID->"dce9f6c3-46a7-4528-b391-b8c13ddc1c07"] }, Open ]], Cell[CellGroupData[{ -Cell[93206, 1938, 3645, 75, 56, "Input",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"], -Cell[96854, 2015, 588, 12, 22, "Message",ExpressionUUID->"89cb3b9c-6733-4f30-ba7d-b92bea024a61"], -Cell[97445, 2029, 587, 12, 22, "Message",ExpressionUUID->"f911b253-4922-487d-ab9d-6d0faee4e930"], -Cell[98035, 2043, 586, 12, 22, "Message",ExpressionUUID->"1ba81a51-6150-44c3-af7c-c67dc7bede91"], -Cell[98624, 2057, 526, 11, 22, "Message",ExpressionUUID->"5ac016e9-31c7-4f0e-b8aa-afb81cf2edfa"], -Cell[99153, 2070, 3451, 61, 42, "Output",ExpressionUUID->"82ba02fc-cd21-4782-bcf6-ebf4b2cd722e"] +Cell[98080, 2006, 3645, 75, 116, "Input",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"], +Cell[101728, 2083, 588, 12, 38, "Message",ExpressionUUID->"89cb3b9c-6733-4f30-ba7d-b92bea024a61"], +Cell[102319, 2097, 587, 12, 38, "Message",ExpressionUUID->"f911b253-4922-487d-ab9d-6d0faee4e930"], +Cell[102909, 2111, 586, 12, 38, "Message",ExpressionUUID->"1ba81a51-6150-44c3-af7c-c67dc7bede91"], +Cell[103498, 2125, 526, 11, 21, "Message",ExpressionUUID->"5ac016e9-31c7-4f0e-b8aa-afb81cf2edfa"], +Cell[104027, 2138, 3451, 61, 75, "Output",ExpressionUUID->"82ba02fc-cd21-4782-bcf6-ebf4b2cd722e"] }, Open ]], Cell[CellGroupData[{ -Cell[102641, 2136, 1303, 35, 24, "Input",ExpressionUUID->"dd7f1593-dabe-4540-be1e-78e3cac46ee6"], -Cell[103947, 2173, 443, 10, 22, "Message",ExpressionUUID->"cc8f974a-d219-4e9e-b4a7-ca4badd961fd"], -Cell[104393, 2185, 442, 10, 22, "Message",ExpressionUUID->"d99d9c04-cf49-4c56-b36c-84ebccfe63bf"], -Cell[104838, 2197, 443, 10, 22, "Message",ExpressionUUID->"2e1c1911-4ab1-4ed3-afad-22d62a014078"], -Cell[105284, 2209, 483, 10, 22, "Message",ExpressionUUID->"b5df8d1e-6393-4c91-94c5-90d09ee043df"], -Cell[105770, 2221, 1370, 30, 42, "Output",ExpressionUUID->"c1072ef9-8223-412d-854b-b7316a190ce7"] +Cell[107515, 2204, 1303, 35, 75, "Input",ExpressionUUID->"dd7f1593-dabe-4540-be1e-78e3cac46ee6"], +Cell[108821, 2241, 443, 10, 35, "Message",ExpressionUUID->"cc8f974a-d219-4e9e-b4a7-ca4badd961fd"], +Cell[109267, 2253, 442, 10, 35, "Message",ExpressionUUID->"d99d9c04-cf49-4c56-b36c-84ebccfe63bf"], +Cell[109712, 2265, 443, 10, 35, "Message",ExpressionUUID->"2e1c1911-4ab1-4ed3-afad-22d62a014078"], +Cell[110158, 2277, 483, 10, 21, "Message",ExpressionUUID->"b5df8d1e-6393-4c91-94c5-90d09ee043df"], +Cell[110644, 2289, 1370, 30, 75, "Output",ExpressionUUID->"c1072ef9-8223-412d-854b-b7316a190ce7"] }, Open ]], Cell[CellGroupData[{ -Cell[107177, 2256, 1332, 36, 24, "Input",ExpressionUUID->"df6fc5c6-1a03-486b-a4d4-7311da4859de"], -Cell[108512, 2294, 1408, 32, 42, "Output",ExpressionUUID->"86750074-4a9a-430f-b741-5590432396da"] +Cell[112051, 2324, 1332, 36, 75, "Input",ExpressionUUID->"df6fc5c6-1a03-486b-a4d4-7311da4859de"], +Cell[113386, 2362, 1408, 32, 75, "Output",ExpressionUUID->"86750074-4a9a-430f-b741-5590432396da"] }, Open ]], Cell[CellGroupData[{ -Cell[109957, 2331, 3942, 81, 73, "Input",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"], -Cell[113902, 2414, 3828, 69, 42, "Output",ExpressionUUID->"9d6b6399-b8b5-4c11-b0c4-1878fb7107b3"] +Cell[114831, 2399, 3942, 81, 116, "Input",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"], +Cell[118776, 2482, 3828, 69, 75, "Output",ExpressionUUID->"9d6b6399-b8b5-4c11-b0c4-1878fb7107b3"] }, Open ]], Cell[CellGroupData[{ -Cell[117767, 2488, 1180, 34, 24, "Input",ExpressionUUID->"bf55aae6-3b22-44f1-8c18-45a5a02a688a"], -Cell[118950, 2524, 468, 11, 22, "Message",ExpressionUUID->"2b1c0138-6295-41cb-b72d-9bdcf95faa22"], -Cell[119421, 2537, 471, 11, 22, "Message",ExpressionUUID->"1968cc21-938c-46cc-9eba-9e9fbf2d536b"], -Cell[119895, 2550, 469, 11, 22, "Message",ExpressionUUID->"54327536-e923-4a6d-bd8d-521163c69b38"], -Cell[120367, 2563, 507, 11, 22, "Message",ExpressionUUID->"f27864d6-3131-4c6c-85e0-07d0f801952b"], -Cell[120877, 2576, 1513, 36, 42, "Output",ExpressionUUID->"86baa30e-786d-4147-9230-63ec16e908fd"] +Cell[122641, 2556, 1180, 34, 75, "Input",ExpressionUUID->"bf55aae6-3b22-44f1-8c18-45a5a02a688a"], +Cell[123824, 2592, 468, 11, 35, "Message",ExpressionUUID->"2b1c0138-6295-41cb-b72d-9bdcf95faa22"], +Cell[124295, 2605, 471, 11, 35, "Message",ExpressionUUID->"1968cc21-938c-46cc-9eba-9e9fbf2d536b"], +Cell[124769, 2618, 469, 11, 35, "Message",ExpressionUUID->"54327536-e923-4a6d-bd8d-521163c69b38"], +Cell[125241, 2631, 507, 11, 21, "Message",ExpressionUUID->"f27864d6-3131-4c6c-85e0-07d0f801952b"], +Cell[125751, 2644, 1513, 36, 96, "Output",ExpressionUUID->"86baa30e-786d-4147-9230-63ec16e908fd"] }, Open ]], Cell[CellGroupData[{ -Cell[122427, 2617, 1256, 35, 24, "Input",ExpressionUUID->"311c4189-0d61-4e5b-abce-a18bf11d30d5"], -Cell[123686, 2654, 463, 11, 22, "Message",ExpressionUUID->"bf2e9b59-9481-4751-9dda-95c2a44ef88f"], -Cell[124152, 2667, 456, 10, 22, "Message",ExpressionUUID->"e2c7bc36-ac17-4833-a5e2-708377ab366a"], -Cell[124611, 2679, 461, 11, 22, "Message",ExpressionUUID->"a54a6f29-b6bb-42b1-9ef1-c7391454ddd3"], -Cell[125075, 2692, 453, 10, 22, "Message",ExpressionUUID->"c84a7a7a-bcb6-4589-aa5b-07a8eb37ece5"], -Cell[125531, 2704, 1559, 37, 42, "Output",ExpressionUUID->"04ebe322-fb32-4e84-98d4-e2cca00e038f"] +Cell[127301, 2685, 1256, 35, 75, "Input",ExpressionUUID->"311c4189-0d61-4e5b-abce-a18bf11d30d5"], +Cell[128560, 2722, 463, 11, 37, "Message",ExpressionUUID->"bf2e9b59-9481-4751-9dda-95c2a44ef88f"], +Cell[129026, 2735, 456, 10, 37, "Message",ExpressionUUID->"e2c7bc36-ac17-4833-a5e2-708377ab366a"], +Cell[129485, 2747, 461, 11, 37, "Message",ExpressionUUID->"a54a6f29-b6bb-42b1-9ef1-c7391454ddd3"], +Cell[129949, 2760, 453, 10, 21, "Message",ExpressionUUID->"c84a7a7a-bcb6-4589-aa5b-07a8eb37ece5"], +Cell[130405, 2772, 1559, 37, 96, "Output",ExpressionUUID->"04ebe322-fb32-4e84-98d4-e2cca00e038f"] }, Open ]], Cell[CellGroupData[{ -Cell[127127, 2746, 4377, 85, 56, "Input",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"], -Cell[131507, 2833, 584, 12, 22, "Message",ExpressionUUID->"478e944e-8539-43dd-b7ad-13452d8c5fd8"], -Cell[132094, 2847, 584, 12, 22, "Message",ExpressionUUID->"4e714ac4-3741-4bad-8978-9cce7fc9cf27"], -Cell[132681, 2861, 583, 12, 22, "Message",ExpressionUUID->"d8d08a80-7409-4fd5-b5fa-8bf89b0dc929"], -Cell[133267, 2875, 522, 11, 22, "Message",ExpressionUUID->"649838a1-0289-4c08-8492-56d4c5c821ed"], -Cell[133792, 2888, 3474, 66, 44, "Output",ExpressionUUID->"10fc8e0a-a280-4cb2-a212-f7708921bb32"] +Cell[132001, 2814, 4377, 85, 116, "Input",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"], +Cell[136381, 2901, 584, 12, 22, "Message",ExpressionUUID->"478e944e-8539-43dd-b7ad-13452d8c5fd8"], +Cell[136968, 2915, 584, 12, 22, "Message",ExpressionUUID->"4e714ac4-3741-4bad-8978-9cce7fc9cf27"], +Cell[137555, 2929, 583, 12, 38, "Message",ExpressionUUID->"d8d08a80-7409-4fd5-b5fa-8bf89b0dc929"], +Cell[138141, 2943, 522, 11, 21, "Message",ExpressionUUID->"649838a1-0289-4c08-8492-56d4c5c821ed"], +Cell[138666, 2956, 3474, 66, 99, "Output",ExpressionUUID->"10fc8e0a-a280-4cb2-a212-f7708921bb32"] }, Open ]], Cell[CellGroupData[{ -Cell[137303, 2959, 1301, 35, 24, "Input",ExpressionUUID->"b20a690a-f037-42e7-b31f-7c6fb7165446"], -Cell[138607, 2996, 372, 9, 22, "Message",ExpressionUUID->"99f55c82-9f1e-4ed1-bee7-f6b42788529a"], -Cell[138982, 3007, 476, 11, 33, "Message",ExpressionUUID->"cfc785c7-fdcc-4464-8d55-c4535fd0989e"], -Cell[139461, 3020, 476, 11, 33, "Message",ExpressionUUID->"9c8142ac-b7cf-485d-a8dd-97352d13f970"], -Cell[139940, 3033, 476, 11, 33, "Message",ExpressionUUID->"834508c0-17d9-4b75-a223-87eb84e48a0c"], -Cell[140419, 3046, 453, 10, 22, "Message",ExpressionUUID->"0e6651e7-50f5-46db-94b9-c49b364cdd89"], -Cell[140875, 3058, 422, 10, 22, "Message",ExpressionUUID->"fcfc6397-b646-4aae-beb5-a084083db9ff"], -Cell[141300, 3070, 422, 10, 22, "Message",ExpressionUUID->"b1114c64-a94d-4a84-8517-f220bdce1087"], -Cell[141725, 3082, 424, 10, 22, "Message",ExpressionUUID->"e7ce51a0-f9e4-4182-befc-f3116db1409a"], -Cell[142152, 3094, 460, 10, 22, "Message",ExpressionUUID->"535790fb-fc75-46e1-80cb-f0da4033f09b"], -Cell[142615, 3106, 1609, 39, 42, "Output",ExpressionUUID->"e6b943fe-5982-410c-a3ea-7ed5f87dc501"] +Cell[142177, 3027, 1301, 35, 75, "Input",ExpressionUUID->"b20a690a-f037-42e7-b31f-7c6fb7165446"], +Cell[143481, 3064, 372, 9, 21, "Message",ExpressionUUID->"99f55c82-9f1e-4ed1-bee7-f6b42788529a"], +Cell[143856, 3075, 476, 11, 54, "Message",ExpressionUUID->"cfc785c7-fdcc-4464-8d55-c4535fd0989e"], +Cell[144335, 3088, 476, 11, 54, "Message",ExpressionUUID->"9c8142ac-b7cf-485d-a8dd-97352d13f970"], +Cell[144814, 3101, 476, 11, 54, "Message",ExpressionUUID->"834508c0-17d9-4b75-a223-87eb84e48a0c"], +Cell[145293, 3114, 453, 10, 21, "Message",ExpressionUUID->"0e6651e7-50f5-46db-94b9-c49b364cdd89"], +Cell[145749, 3126, 422, 10, 35, "Message",ExpressionUUID->"fcfc6397-b646-4aae-beb5-a084083db9ff"], +Cell[146174, 3138, 422, 10, 35, "Message",ExpressionUUID->"b1114c64-a94d-4a84-8517-f220bdce1087"], +Cell[146599, 3150, 424, 10, 35, "Message",ExpressionUUID->"e7ce51a0-f9e4-4182-befc-f3116db1409a"], +Cell[147026, 3162, 460, 10, 21, "Message",ExpressionUUID->"535790fb-fc75-46e1-80cb-f0da4033f09b"], +Cell[147489, 3174, 1609, 39, 96, "Output",ExpressionUUID->"e6b943fe-5982-410c-a3ea-7ed5f87dc501"] }, Open ]], Cell[CellGroupData[{ -Cell[144261, 3150, 1351, 36, 24, "Input",ExpressionUUID->"c5f7cefb-23b6-4795-8e0e-29084392ea3e"], -Cell[145615, 3188, 537, 11, 22, "Message",ExpressionUUID->"4542c8d2-981a-4127-9547-5d5f87f55b8c"], -Cell[146155, 3201, 537, 11, 22, "Message",ExpressionUUID->"078927a3-b72f-479b-951b-599fed4a45e6"], -Cell[146695, 3214, 537, 11, 22, "Message",ExpressionUUID->"7244fd16-cc92-4e8d-9c75-0b780e16d48d"], -Cell[147235, 3227, 475, 10, 22, "Message",ExpressionUUID->"84fcb9c4-04a4-4da4-b7a9-f8b856048bab"], -Cell[147713, 3239, 1635, 40, 42, "Output",ExpressionUUID->"582f27a7-c183-4aa4-844c-51abc5718a5d"] +Cell[149135, 3218, 1351, 36, 75, "Input",ExpressionUUID->"c5f7cefb-23b6-4795-8e0e-29084392ea3e"], +Cell[150489, 3256, 537, 11, 38, "Message",ExpressionUUID->"4542c8d2-981a-4127-9547-5d5f87f55b8c"], +Cell[151029, 3269, 537, 11, 38, "Message",ExpressionUUID->"078927a3-b72f-479b-951b-599fed4a45e6"], +Cell[151569, 3282, 537, 11, 38, "Message",ExpressionUUID->"7244fd16-cc92-4e8d-9c75-0b780e16d48d"], +Cell[152109, 3295, 475, 10, 21, "Message",ExpressionUUID->"84fcb9c4-04a4-4da4-b7a9-f8b856048bab"], +Cell[152587, 3307, 1635, 40, 96, "Output",ExpressionUUID->"582f27a7-c183-4aa4-844c-51abc5718a5d"] }, Open ]], Cell[CellGroupData[{ -Cell[149385, 3284, 5592, 103, 73, "Input",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"], +Cell[154259, 3352, 5592, 103, 137, "Input",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"], Cell[CellGroupData[{ -Cell[155002, 3391, 296, 8, 43, "Print",ExpressionUUID->"7a772fba-df33-4f9d-b38d-6940e3941eab"], -Cell[155301, 3401, 322, 9, 56, "Print",ExpressionUUID->"41a446af-8dd2-4c1a-85b6-0bcb5710c58e"], -Cell[155626, 3412, 324, 9, 56, "Print",ExpressionUUID->"3053db1b-f597-47a4-aa61-dd8286212823"], -Cell[155953, 3423, 322, 9, 56, "Print",ExpressionUUID->"5801f127-4593-4248-a8fc-5fe3e865e2f0"], -Cell[156278, 3434, 272, 7, 30, "Print",ExpressionUUID->"55824d87-912b-4205-a8c2-4bc2f6cbcce8"] +Cell[159876, 3459, 296, 8, 71, "Print",ExpressionUUID->"7a772fba-df33-4f9d-b38d-6940e3941eab"], +Cell[160175, 3469, 322, 9, 88, "Print",ExpressionUUID->"41a446af-8dd2-4c1a-85b6-0bcb5710c58e"], +Cell[160500, 3480, 324, 9, 88, "Print",ExpressionUUID->"3053db1b-f597-47a4-aa61-dd8286212823"], +Cell[160827, 3491, 322, 9, 88, "Print",ExpressionUUID->"5801f127-4593-4248-a8fc-5fe3e865e2f0"], +Cell[161152, 3502, 272, 7, 54, "Print",ExpressionUUID->"55824d87-912b-4205-a8c2-4bc2f6cbcce8"] }, Open ]], -Cell[156565, 3444, 1895, 46, 44, "Output",ExpressionUUID->"b1a7bbe4-1bc8-4c67-8307-052ebd4e074e"] +Cell[161439, 3512, 1895, 46, 99, "Output",ExpressionUUID->"b1a7bbe4-1bc8-4c67-8307-052ebd4e074e"] }, Open ]], Cell[CellGroupData[{ -Cell[158497, 3495, 1545, 39, 24, "Input",ExpressionUUID->"e31ca7a0-70f8-48f8-88bd-46f299706f4b"], -Cell[160045, 3536, 2065, 48, 44, "Output",ExpressionUUID->"b6abc47e-be51-4849-8362-057ad4abcb66"] +Cell[163371, 3563, 1545, 39, 96, "Input",ExpressionUUID->"e31ca7a0-70f8-48f8-88bd-46f299706f4b"], +Cell[164919, 3604, 2065, 48, 99, "Output",ExpressionUUID->"b6abc47e-be51-4849-8362-057ad4abcb66"] }, Open ]], Cell[CellGroupData[{ -Cell[162147, 3589, 1623, 41, 24, "Input",ExpressionUUID->"ece2d3a0-e982-4957-8372-4f9d2d7fe8c0"], +Cell[167021, 3657, 1623, 41, 96, "Input",ExpressionUUID->"ece2d3a0-e982-4957-8372-4f9d2d7fe8c0"], Cell[CellGroupData[{ -Cell[163795, 3634, 323, 9, 56, "Print",ExpressionUUID->"69f46805-d37f-43db-b745-b6f4e19be601"], -Cell[164121, 3645, 323, 9, 56, "Print",ExpressionUUID->"3e7e2344-5bd4-45c4-863e-cca15e665d35"], -Cell[164447, 3656, 324, 9, 56, "Print",ExpressionUUID->"099fa598-6830-498a-a031-0d3681f80025"], -Cell[164774, 3667, 271, 7, 30, "Print",ExpressionUUID->"bccb58ff-4772-4874-a5a9-38cc32a82c5e"] +Cell[168669, 3702, 323, 9, 88, "Print",ExpressionUUID->"69f46805-d37f-43db-b745-b6f4e19be601"], +Cell[168995, 3713, 323, 9, 88, "Print",ExpressionUUID->"3e7e2344-5bd4-45c4-863e-cca15e665d35"], +Cell[169321, 3724, 324, 9, 88, "Print",ExpressionUUID->"099fa598-6830-498a-a031-0d3681f80025"], +Cell[169648, 3735, 271, 7, 54, "Print",ExpressionUUID->"bccb58ff-4772-4874-a5a9-38cc32a82c5e"] }, Open ]], -Cell[165060, 3677, 2020, 48, 42, "Output",ExpressionUUID->"200f061b-0403-464b-a625-1f810bc1f5b5"] +Cell[169934, 3745, 2020, 48, 96, "Output",ExpressionUUID->"200f061b-0403-464b-a625-1f810bc1f5b5"] }, Open ]], Cell[CellGroupData[{ -Cell[167117, 3730, 5199, 97, 73, "Input",ExpressionUUID->"5facca9e-653e-4fd9-8527-0092e5469f90"], +Cell[171991, 3798, 5199, 97, 137, "Input",ExpressionUUID->"5facca9e-653e-4fd9-8527-0092e5469f90"], Cell[CellGroupData[{ -Cell[172341, 3831, 322, 9, 56, "Print",ExpressionUUID->"f45234f2-752f-46c6-9ddf-bd262d16691f"], -Cell[172666, 3842, 324, 9, 56, "Print",ExpressionUUID->"011b4035-7393-4523-94fb-fb4791bf158d"], -Cell[172993, 3853, 322, 9, 56, "Print",ExpressionUUID->"c5d09aec-16c7-4e06-acf4-318a5ced69b1"], -Cell[173318, 3864, 274, 7, 30, "Print",ExpressionUUID->"211a48b2-a25f-4c85-8a27-a723c7e7d387"] +Cell[177215, 3899, 322, 9, 88, "Print",ExpressionUUID->"f45234f2-752f-46c6-9ddf-bd262d16691f"], +Cell[177540, 3910, 324, 9, 88, "Print",ExpressionUUID->"011b4035-7393-4523-94fb-fb4791bf158d"], +Cell[177867, 3921, 322, 9, 88, "Print",ExpressionUUID->"c5d09aec-16c7-4e06-acf4-318a5ced69b1"], +Cell[178192, 3932, 274, 7, 54, "Print",ExpressionUUID->"211a48b2-a25f-4c85-8a27-a723c7e7d387"] }, Open ]], -Cell[173607, 3874, 1877, 49, 60, "Output",ExpressionUUID->"68934bdb-e5c2-45fc-b920-4aae13dbfe8d"] +Cell[178481, 3942, 1877, 49, 120, "Output",ExpressionUUID->"68934bdb-e5c2-45fc-b920-4aae13dbfe8d"] }, Open ]], Cell[CellGroupData[{ -Cell[175521, 3928, 4659, 82, 24, "Input",ExpressionUUID->"6bb6eb48-9c7f-4cd5-80e5-89dd5f03b923"], +Cell[180395, 3996, 4659, 82, 96, "Input",ExpressionUUID->"6bb6eb48-9c7f-4cd5-80e5-89dd5f03b923"], Cell[CellGroupData[{ -Cell[180205, 4014, 324, 9, 56, "Print",ExpressionUUID->"467aa206-d126-4a40-8067-409232ffdc3a"], -Cell[180532, 4025, 323, 9, 56, "Print",ExpressionUUID->"8754ca31-013e-4466-96bb-ebec32313a78"], -Cell[180858, 4036, 324, 9, 56, "Print",ExpressionUUID->"c1aca8bb-d681-469a-bd29-f151362e33f6"], -Cell[181185, 4047, 272, 7, 30, "Print",ExpressionUUID->"4f212f81-2c74-4237-aad8-d1d9e3dda9a8"] +Cell[185079, 4082, 324, 9, 88, "Print",ExpressionUUID->"467aa206-d126-4a40-8067-409232ffdc3a"], +Cell[185406, 4093, 323, 9, 88, "Print",ExpressionUUID->"8754ca31-013e-4466-96bb-ebec32313a78"], +Cell[185732, 4104, 324, 9, 88, "Print",ExpressionUUID->"c1aca8bb-d681-469a-bd29-f151362e33f6"], +Cell[186059, 4115, 272, 7, 54, "Print",ExpressionUUID->"4f212f81-2c74-4237-aad8-d1d9e3dda9a8"] }, Open ]], -Cell[181472, 4057, 2092, 52, 60, "Output",ExpressionUUID->"2a2c83e9-3cde-44af-a7d5-e6b62504ce18"] +Cell[186346, 4125, 2092, 52, 120, "Output",ExpressionUUID->"2a2c83e9-3cde-44af-a7d5-e6b62504ce18"] }, Open ]], Cell[CellGroupData[{ -Cell[183601, 4114, 1250, 36, 24, "Input",ExpressionUUID->"50ae3a0c-00b7-48d3-bbd9-7fcdb7e9be65"], +Cell[188475, 4182, 1250, 36, 96, "Input",ExpressionUUID->"50ae3a0c-00b7-48d3-bbd9-7fcdb7e9be65"], Cell[CellGroupData[{ -Cell[184876, 4154, 252, 6, 18, "Print",ExpressionUUID->"f2db3760-255a-4d78-86c0-da167b38c746"], -Cell[185131, 4162, 255, 7, 18, "Print",ExpressionUUID->"9eaeaa47-2a19-4f62-8edd-d739b738dc97"], -Cell[185389, 4171, 249, 6, 18, "Print",ExpressionUUID->"516762a4-e3a4-49c8-afd5-ebb9602701c3"], -Cell[185641, 4179, 254, 6, 18, "Print",ExpressionUUID->"8c6b0e8c-5f47-421a-af95-4872d1d3fdd4"], -Cell[185898, 4187, 257, 7, 18, "Print",ExpressionUUID->"10d22756-dcd4-44d1-aac4-99016bb32ee9"], -Cell[186158, 4196, 271, 7, 30, "Print",ExpressionUUID->"084e7849-246f-429f-855f-22c2c43a8763"], -Cell[186432, 4205, 254, 6, 18, "Print",ExpressionUUID->"e015d14b-eb0c-4bb0-af1c-188c96529d70"], -Cell[186689, 4213, 254, 6, 18, "Print",ExpressionUUID->"bc7a1a36-c9f3-4c07-90fe-8ed0ce16359d"], -Cell[186946, 4221, 273, 7, 30, "Print",ExpressionUUID->"ad6e1792-e476-45f4-ada9-6baaeb9e165a"], -Cell[187222, 4230, 266, 7, 30, "Print",ExpressionUUID->"9badaa21-a438-4ebf-a9b8-b6f0cc53a9a5"], -Cell[187491, 4239, 309, 8, 43, "Print",ExpressionUUID->"103493b3-bc70-4d18-ae26-4b48ba433f58"], -Cell[187803, 4249, 268, 7, 30, "Print",ExpressionUUID->"702392f9-fce6-4fe0-a53b-091e531871fc"], -Cell[188074, 4258, 268, 7, 30, "Print",ExpressionUUID->"891d5c90-8786-453c-915a-5c9758870145"], -Cell[188345, 4267, 309, 8, 43, "Print",ExpressionUUID->"18c6d658-6045-48d1-b671-d40f83ee93a5"], -Cell[188657, 4277, 227, 4, 18, "Print",ExpressionUUID->"95489f99-5b01-4f57-9a57-182c23961f20"], -Cell[188887, 4283, 365, 8, 43, "Print",ExpressionUUID->"f2fff34e-167a-4e82-ba62-ead2b1143e60"], -Cell[189255, 4293, 227, 4, 18, "Print",ExpressionUUID->"4171c4a8-9b74-4d07-876d-81d571c07477"], -Cell[189485, 4299, 272, 7, 30, "Print",ExpressionUUID->"45356bd2-8112-4f01-b137-4fef8466cde1"], -Cell[189760, 4308, 489, 11, 81, "Print",ExpressionUUID->"5978dcc5-7b1e-4d27-9474-82e19086971d"], -Cell[190252, 4321, 280, 7, 30, "Print",ExpressionUUID->"3f77796a-af19-4895-a65a-bfbc320f7174"] +Cell[189750, 4222, 252, 6, 37, "Print",ExpressionUUID->"f2db3760-255a-4d78-86c0-da167b38c746"], +Cell[190005, 4230, 255, 7, 37, "Print",ExpressionUUID->"9eaeaa47-2a19-4f62-8edd-d739b738dc97"], +Cell[190263, 4239, 249, 6, 37, "Print",ExpressionUUID->"516762a4-e3a4-49c8-afd5-ebb9602701c3"], +Cell[190515, 4247, 254, 6, 37, "Print",ExpressionUUID->"8c6b0e8c-5f47-421a-af95-4872d1d3fdd4"], +Cell[190772, 4255, 257, 7, 37, "Print",ExpressionUUID->"10d22756-dcd4-44d1-aac4-99016bb32ee9"], +Cell[191032, 4264, 271, 7, 54, "Print",ExpressionUUID->"084e7849-246f-429f-855f-22c2c43a8763"], +Cell[191306, 4273, 254, 6, 37, "Print",ExpressionUUID->"e015d14b-eb0c-4bb0-af1c-188c96529d70"], +Cell[191563, 4281, 254, 6, 37, "Print",ExpressionUUID->"bc7a1a36-c9f3-4c07-90fe-8ed0ce16359d"], +Cell[191820, 4289, 273, 7, 54, "Print",ExpressionUUID->"ad6e1792-e476-45f4-ada9-6baaeb9e165a"], +Cell[192096, 4298, 266, 7, 54, "Print",ExpressionUUID->"9badaa21-a438-4ebf-a9b8-b6f0cc53a9a5"], +Cell[192365, 4307, 309, 8, 71, "Print",ExpressionUUID->"103493b3-bc70-4d18-ae26-4b48ba433f58"], +Cell[192677, 4317, 268, 7, 54, "Print",ExpressionUUID->"702392f9-fce6-4fe0-a53b-091e531871fc"], +Cell[192948, 4326, 268, 7, 54, "Print",ExpressionUUID->"891d5c90-8786-453c-915a-5c9758870145"], +Cell[193219, 4335, 309, 8, 71, "Print",ExpressionUUID->"18c6d658-6045-48d1-b671-d40f83ee93a5"], +Cell[193531, 4345, 227, 4, 37, "Print",ExpressionUUID->"95489f99-5b01-4f57-9a57-182c23961f20"], +Cell[193761, 4351, 365, 8, 71, "Print",ExpressionUUID->"f2fff34e-167a-4e82-ba62-ead2b1143e60"], +Cell[194129, 4361, 227, 4, 37, "Print",ExpressionUUID->"4171c4a8-9b74-4d07-876d-81d571c07477"], +Cell[194359, 4367, 272, 7, 54, "Print",ExpressionUUID->"45356bd2-8112-4f01-b137-4fef8466cde1"], +Cell[194634, 4376, 489, 11, 122, "Print",ExpressionUUID->"5978dcc5-7b1e-4d27-9474-82e19086971d"], +Cell[195126, 4389, 280, 7, 54, "Print",ExpressionUUID->"3f77796a-af19-4895-a65a-bfbc320f7174"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[190581, 4334, 5215, 100, 73, "Input",ExpressionUUID->"f5124a1f-1004-49ef-bdce-65e49311db89"], -Cell[195799, 4436, 601, 12, 22, "Message",ExpressionUUID->"52d37aec-5e97-49ba-a73f-9240ea9bab01"], -Cell[196403, 4450, 609, 12, 22, "Message",ExpressionUUID->"a87cd0bd-956c-4292-bb38-f01fa93f88fa"], -Cell[197015, 4464, 949, 17, 34, "Message",ExpressionUUID->"fd51acaa-08e6-4912-b93f-c1e1c0519a2a"], -Cell[197967, 4483, 354, 6, 25, "Output",ExpressionUUID->"d33cb855-0ed5-497d-8933-b6ebe6b81534"] +Cell[195455, 4402, 5215, 100, 137, "Input",ExpressionUUID->"f5124a1f-1004-49ef-bdce-65e49311db89"], +Cell[200673, 4504, 601, 12, 49, "Message",ExpressionUUID->"52d37aec-5e97-49ba-a73f-9240ea9bab01"], +Cell[201277, 4518, 609, 12, 48, "Message",ExpressionUUID->"a87cd0bd-956c-4292-bb38-f01fa93f88fa"], +Cell[201889, 4532, 949, 17, 77, "Message",ExpressionUUID->"fd51acaa-08e6-4912-b93f-c1e1c0519a2a"], +Cell[202841, 4551, 354, 6, 33, "Output",ExpressionUUID->"d33cb855-0ed5-497d-8933-b6ebe6b81534"] }, Open ]], -Cell[198336, 4492, 1265, 37, 24, "Input",ExpressionUUID->"72b068ea-967c-499f-9ec3-b16d3cfcb4ca"], -Cell[199604, 4531, 10391, 159, 22, "Input",ExpressionUUID->"673ffefa-75f0-46ac-befd-c785b4bc3ce1"], -Cell[209998, 4692, 12010, 183, 22, "Input",ExpressionUUID->"e351157f-b944-4cbd-bedd-89b185c451f7"], +Cell[203210, 4560, 1265, 37, 96, "Input",ExpressionUUID->"72b068ea-967c-499f-9ec3-b16d3cfcb4ca"], +Cell[204478, 4599, 10391, 159, 71, "Input",ExpressionUUID->"673ffefa-75f0-46ac-befd-c785b4bc3ce1"], +Cell[214872, 4760, 12010, 183, 71, "Input",ExpressionUUID->"e351157f-b944-4cbd-bedd-89b185c451f7"], Cell[CellGroupData[{ -Cell[222033, 4879, 525, 11, 24, "Input",ExpressionUUID->"9437364d-2d5a-4493-b405-40564b9ff897"], -Cell[222561, 4892, 23819, 525, 170, "Output",ExpressionUUID->"52fbd471-7005-4ea0-b7a7-58de8c0386f3"] +Cell[226907, 4947, 525, 11, 29, "Input",ExpressionUUID->"9437364d-2d5a-4493-b405-40564b9ff897"], +Cell[227435, 4960, 23819, 525, 228, "Output",ExpressionUUID->"52fbd471-7005-4ea0-b7a7-58de8c0386f3"] }, Open ]], Cell[CellGroupData[{ -Cell[246417, 5422, 20997, 469, 167, "Input",ExpressionUUID->"e0fe24ec-ebe4-4875-83e4-0ee6e9334efc"], -Cell[267417, 5893, 21852, 498, 170, "Output",ExpressionUUID->"a7196a4e-63e4-4e6a-a5ab-a42437e784c3"], -Cell[289272, 6393, 22174, 479, 170, "Output",ExpressionUUID->"d5f785dd-7143-46c7-bfa3-e26fbd2f3c6e"] +Cell[251291, 5490, 20997, 469, 224, "Input",ExpressionUUID->"e0fe24ec-ebe4-4875-83e4-0ee6e9334efc"], +Cell[272291, 5961, 21852, 498, 228, "Output",ExpressionUUID->"a7196a4e-63e4-4e6a-a5ab-a42437e784c3"], +Cell[294146, 6461, 22174, 479, 228, "Output",ExpressionUUID->"d5f785dd-7143-46c7-bfa3-e26fbd2f3c6e"] }, Open ]], Cell[CellGroupData[{ -Cell[311483, 6877, 1801, 44, 24, "Input",ExpressionUUID->"cc0d041f-1be1-4721-9bff-7905d15cd7c6"], -Cell[313287, 6923, 2116, 46, 95, "Output",ExpressionUUID->"a0e6b052-2a21-4317-a019-77888bf4863b"] +Cell[316357, 6945, 1801, 44, 92, "Input",ExpressionUUID->"cc0d041f-1be1-4721-9bff-7905d15cd7c6"], +Cell[318161, 6991, 2116, 46, 186, "Output",ExpressionUUID->"a0e6b052-2a21-4317-a019-77888bf4863b"] }, Open ]], -Cell[315418, 6972, 398, 8, 24, "Input",ExpressionUUID->"0c393b94-0e36-44bf-b752-a3d4e048e5f7"], +Cell[320292, 7040, 398, 8, 71, "Input",ExpressionUUID->"0c393b94-0e36-44bf-b752-a3d4e048e5f7"], Cell[CellGroupData[{ -Cell[315841, 6984, 4133, 75, 59, "Input",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"], -Cell[319977, 7061, 24167, 491, 171, "Output",ExpressionUUID->"f4dafc1e-2d69-44f1-b6c9-4e92c5596f38"] +Cell[320715, 7052, 4133, 75, 120, "Input",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"], +Cell[324851, 7129, 24167, 491, 230, "Output",ExpressionUUID->"f4dafc1e-2d69-44f1-b6c9-4e92c5596f38"] }, Open ]], -Cell[344159, 7555, 287, 7, 22, "Input",ExpressionUUID->"50db4e94-544f-4873-82ae-09a8483fdb2d"], +Cell[349033, 7623, 287, 7, 29, "Input",ExpressionUUID->"50db4e94-544f-4873-82ae-09a8483fdb2d"], Cell[CellGroupData[{ -Cell[344471, 7566, 1038, 29, 41, "Input",ExpressionUUID->"47e013e3-8ac7-4133-8111-4b3509d6e2bb"], -Cell[345512, 7597, 304, 5, 25, "Output",ExpressionUUID->"37bddea5-8edb-4ad5-af54-8c1f0c2eab67"] +Cell[349345, 7634, 1038, 29, 92, "Input",ExpressionUUID->"47e013e3-8ac7-4133-8111-4b3509d6e2bb"], +Cell[350386, 7665, 304, 5, 33, "Output",ExpressionUUID->"37bddea5-8edb-4ad5-af54-8c1f0c2eab67"] }, Open ]], Cell[CellGroupData[{ -Cell[345853, 7607, 868, 24, 24, "Input",ExpressionUUID->"01387b01-3294-40e7-8b69-78378d670e52"], -Cell[346724, 7633, 17575, 405, 184, "Output",ExpressionUUID->"8cec0562-f526-4026-ab01-0593355140a7"] +Cell[350727, 7675, 868, 24, 54, "Input",ExpressionUUID->"01387b01-3294-40e7-8b69-78378d670e52"], +Cell[351598, 7701, 17575, 405, 246, "Output",ExpressionUUID->"8cec0562-f526-4026-ab01-0593355140a7"] }, Open ]], Cell[CellGroupData[{ -Cell[364336, 8043, 1207, 25, 22, "Input",ExpressionUUID->"d88de4bc-38ed-48d9-9eb9-13896c8d48af"], -Cell[365546, 8070, 11475, 249, 171, "Output",ExpressionUUID->"e1fd13f9-9a47-43d5-ac23-916228e32fef"] +Cell[369210, 8111, 1207, 25, 29, "Input",ExpressionUUID->"d88de4bc-38ed-48d9-9eb9-13896c8d48af"], +Cell[370420, 8138, 11475, 249, 229, "Output",ExpressionUUID->"e1fd13f9-9a47-43d5-ac23-916228e32fef"] }, Open ]], Cell[CellGroupData[{ -Cell[377058, 8324, 2187, 51, 66, "Input",ExpressionUUID->"f785d7e5-8e11-45cc-81cd-0e70921fef2b"], -Cell[379248, 8377, 733, 14, 32, "Message",ExpressionUUID->"162535cd-d62a-48c2-af96-7140a9f63050"], -Cell[379984, 8393, 771, 15, 22, "Message",ExpressionUUID->"56b6fe59-14dc-4bc6-baeb-fe77ce144ee6"], -Cell[380758, 8410, 734, 14, 32, "Message",ExpressionUUID->"9e7384b5-4cf5-4f3e-84e6-a9d047e1959b"], -Cell[381495, 8426, 769, 15, 22, "Message",ExpressionUUID->"348cb862-eaed-45c1-9750-7eeddb304033"], -Cell[382267, 8443, 734, 14, 32, "Message",ExpressionUUID->"ee576e45-e228-483d-890e-f9c379104b1f"], -Cell[383004, 8459, 814, 15, 22, "Message",ExpressionUUID->"505478e2-adb1-468b-bd7d-2f1280492c3a"], -Cell[383821, 8476, 771, 15, 22, "Message",ExpressionUUID->"725753ce-0c13-4467-8895-0d985413a7b7"], -Cell[384595, 8493, 818, 15, 22, "Message",ExpressionUUID->"5eb9561f-5e5e-4b1d-b5bb-f3122d6b98f2"], -Cell[385416, 8510, 11608, 275, 180, "Output",ExpressionUUID->"be597aa8-7ecf-4557-9551-74d39eb14ee7"] +Cell[381932, 8392, 2187, 51, 160, "Input",ExpressionUUID->"f785d7e5-8e11-45cc-81cd-0e70921fef2b"], +Cell[384122, 8445, 733, 14, 36, "Message",ExpressionUUID->"162535cd-d62a-48c2-af96-7140a9f63050"], +Cell[384858, 8461, 771, 15, 21, "Message",ExpressionUUID->"56b6fe59-14dc-4bc6-baeb-fe77ce144ee6"], +Cell[385632, 8478, 734, 14, 36, "Message",ExpressionUUID->"9e7384b5-4cf5-4f3e-84e6-a9d047e1959b"], +Cell[386369, 8494, 769, 15, 21, "Message",ExpressionUUID->"348cb862-eaed-45c1-9750-7eeddb304033"], +Cell[387141, 8511, 734, 14, 36, "Message",ExpressionUUID->"ee576e45-e228-483d-890e-f9c379104b1f"], +Cell[387878, 8527, 814, 15, 21, "Message",ExpressionUUID->"505478e2-adb1-468b-bd7d-2f1280492c3a"], +Cell[388695, 8544, 771, 15, 21, "Message",ExpressionUUID->"725753ce-0c13-4467-8895-0d985413a7b7"], +Cell[389469, 8561, 818, 15, 21, "Message",ExpressionUUID->"5eb9561f-5e5e-4b1d-b5bb-f3122d6b98f2"], +Cell[390290, 8578, 11608, 275, 240, "Output",ExpressionUUID->"be597aa8-7ecf-4557-9551-74d39eb14ee7"] }, Open ]], Cell[CellGroupData[{ -Cell[397061, 8790, 1336, 31, 43, "Input",ExpressionUUID->"be68f105-e7f1-4186-b7b1-a6f02a4bd594"], -Cell[398400, 8823, 10700, 261, 181, "Output",ExpressionUUID->"b57dd479-aac4-4dc9-b32b-1a68214db69f"] +Cell[401935, 8858, 1336, 31, 77, "Input",ExpressionUUID->"be68f105-e7f1-4186-b7b1-a6f02a4bd594"], +Cell[403274, 8891, 10700, 261, 242, "Output",ExpressionUUID->"b57dd479-aac4-4dc9-b32b-1a68214db69f"] }, Open ]], Cell[CellGroupData[{ -Cell[409137, 9089, 848, 21, 22, "Input",ExpressionUUID->"0805dca1-3214-4053-b11e-4c015cec2e4b"], -Cell[409988, 9112, 12644, 228, 174, "Output",ExpressionUUID->"48b92cb7-d098-4f8b-b49d-7550fd336efb"] +Cell[414011, 9157, 848, 21, 29, "Input",ExpressionUUID->"0805dca1-3214-4053-b11e-4c015cec2e4b"], +Cell[414862, 9180, 12644, 228, 233, "Output",ExpressionUUID->"48b92cb7-d098-4f8b-b49d-7550fd336efb"] }, Open ]], Cell[CellGroupData[{ -Cell[422669, 9345, 982, 23, 22, "Input",ExpressionUUID->"df04592e-ebb2-4859-b1e7-acbef5775165"], -Cell[423654, 9370, 16441, 289, 171, "Output",ExpressionUUID->"35add101-fc22-4757-b5c1-91c88545a137"] +Cell[427543, 9413, 982, 23, 51, "Input",ExpressionUUID->"df04592e-ebb2-4859-b1e7-acbef5775165"], +Cell[428528, 9438, 16441, 289, 229, "Output",ExpressionUUID->"35add101-fc22-4757-b5c1-91c88545a137"] }, Open ]], Cell[CellGroupData[{ -Cell[440132, 9664, 3834, 96, 109, "Input",ExpressionUUID->"c7679221-477e-44ed-ad24-f20a36e0f29d"], -Cell[443969, 9762, 38355, 642, 188, "Output",ExpressionUUID->"4b4be68c-760f-476d-96a3-fcd70d8ef33c"] +Cell[445006, 9732, 3834, 96, 203, "Input",ExpressionUUID->"c7679221-477e-44ed-ad24-f20a36e0f29d"], +Cell[448843, 9830, 38355, 642, 251, "Output",ExpressionUUID->"4b4be68c-760f-476d-96a3-fcd70d8ef33c"] }, Open ]], Cell[CellGroupData[{ -Cell[482361, 10409, 2305, 52, 62, "Input",ExpressionUUID->"3774b0e8-ed8f-4304-be73-f4ed265155e9"], -Cell[484669, 10463, 11461, 208, 392, "Output",ExpressionUUID->"897b2bdd-4551-4a9d-b234-810e9e14bf11"] +Cell[487235, 10477, 2305, 52, 134, "Input",ExpressionUUID->"3774b0e8-ed8f-4304-be73-f4ed265155e9"], +Cell[489543, 10531, 11461, 208, 522, "Output",ExpressionUUID->"897b2bdd-4551-4a9d-b234-810e9e14bf11"] }, Open ]], Cell[CellGroupData[{ -Cell[496167, 10676, 2206, 52, 62, "Input",ExpressionUUID->"997c9c3d-3291-4f27-afcd-2a3c02bfd3fd"], -Cell[498376, 10730, 23560, 404, 253, "Output",ExpressionUUID->"b89ead09-4dd2-4e82-9f4f-7394478ce32f"] +Cell[501041, 10744, 2206, 52, 134, "Input",ExpressionUUID->"997c9c3d-3291-4f27-afcd-2a3c02bfd3fd"], +Cell[503250, 10798, 23560, 404, 338, "Output",ExpressionUUID->"b89ead09-4dd2-4e82-9f4f-7394478ce32f"] }, Open ]], Cell[CellGroupData[{ -Cell[521973, 11139, 1629, 38, 57, "Input",ExpressionUUID->"caeef800-5d91-4fb4-9816-9aacdb626a63"], -Cell[523605, 11179, 1251114, 20528, 364, 772638, 12684, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"f7800255-b48c-4368-ba57-548155e86dfa"] +Cell[526847, 11207, 1629, 38, 120, "Input",ExpressionUUID->"caeef800-5d91-4fb4-9816-9aacdb626a63"], +Cell[528479, 11247, 1251114, 20528, 368, 772638, 12684, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"f7800255-b48c-4368-ba57-548155e86dfa"] }, Open ]], Cell[CellGroupData[{ -Cell[1774756, 31712, 1176, 30, 41, "Input",ExpressionUUID->"626e933d-cd37-4a52-851f-6473bebeff53"], -Cell[1775935, 31744, 163730, 2704, 317, "Output",ExpressionUUID->"df893735-eb2f-4fa8-937b-dbb343a52a39"] +Cell[1779630, 31780, 1176, 30, 41, "Input",ExpressionUUID->"626e933d-cd37-4a52-851f-6473bebeff53"], +Cell[1780809, 31812, 163730, 2704, 424, "Output",ExpressionUUID->"df893735-eb2f-4fa8-937b-dbb343a52a39"] }, Open ]], Cell[CellGroupData[{ -Cell[1939702, 34453, 1906, 42, 75, "Input",ExpressionUUID->"9985bed4-dad9-41a8-a4a0-bf515be7111c"], -Cell[1941611, 34497, 199193, 3283, 362, "Output",ExpressionUUID->"7ad32301-6347-4a43-8055-9158b827767a"] +Cell[1944576, 34521, 1906, 42, 120, "Input",ExpressionUUID->"9985bed4-dad9-41a8-a4a0-bf515be7111c"], +Cell[1946485, 34565, 199193, 3283, 483, "Output",ExpressionUUID->"7ad32301-6347-4a43-8055-9158b827767a"] }, Open ]], Cell[CellGroupData[{ -Cell[2140841, 37785, 1018, 27, 24, "Input",ExpressionUUID->"95c3ad10-59a3-4496-bbd9-ec9966e153e1"], -Cell[2141862, 37814, 8989, 170, 163, "Output",ExpressionUUID->"a3028a35-bb3d-4af0-9cec-08135dfa52fc"] +Cell[2145715, 37853, 1018, 27, 54, "Input",ExpressionUUID->"95c3ad10-59a3-4496-bbd9-ec9966e153e1"], +Cell[2146736, 37882, 8989, 170, 219, "Output",ExpressionUUID->"a3028a35-bb3d-4af0-9cec-08135dfa52fc"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[2150900, 37990, 159, 3, 41, "Subsection",ExpressionUUID->"36c7685a-f47a-40aa-a737-8c7f6f4317c1"], -Cell[2151062, 37995, 1442, 34, 89, "Input",ExpressionUUID->"afc540ea-ef9a-493b-9583-ed901e3ac580"], -Cell[2152507, 38031, 1564, 39, 89, "Input",ExpressionUUID->"cdb9b75d-4c04-4ef5-9969-9e72079c5d58"], -Cell[2154074, 38072, 1782, 43, 105, "Input",ExpressionUUID->"e7739266-4bd1-4804-846a-5133bf45bfe6"], -Cell[2155859, 38117, 1935, 47, 105, "Input",ExpressionUUID->"e0c29aa2-30dd-4eb9-990b-b4abf8865eeb"], -Cell[2157797, 38166, 2113, 52, 105, "Input",ExpressionUUID->"80a3d021-bc5a-410c-8e70-089bc45d33bc"], -Cell[2159913, 38220, 2191, 55, 121, "Input",ExpressionUUID->"1d95a4fa-b7b4-4d6f-9695-22a28602846c"], -Cell[2162107, 38277, 2280, 55, 121, "Input",ExpressionUUID->"f3f292b7-6741-4c30-b2ac-b80cd82a3eaa"], -Cell[2164390, 38334, 2423, 60, 121, "Input",ExpressionUUID->"b6e4cc8e-edfb-44a9-a3e6-a4d9a234eb0c"], -Cell[2166816, 38396, 2451, 62, 137, "Input",ExpressionUUID->"2f0f517e-a884-4fb5-aa03-33b1e6e8e890"], -Cell[CellGroupData[{ -Cell[2169292, 38462, 1075, 26, 72, "Input",ExpressionUUID->"990c0156-b917-447b-8ea2-39f8d0d504d1"], -Cell[2170370, 38490, 498, 11, 22, "Message",ExpressionUUID->"69ee9008-fa6c-4744-a2bd-60ddf5a1bb01"], -Cell[2170871, 38503, 500, 11, 22, "Message",ExpressionUUID->"c7e61c4f-b7ba-492b-8830-f4e3d86baa49"], -Cell[2171374, 38516, 489, 8, 25, "Output",ExpressionUUID->"9bf62f5f-7a6f-4af7-bd94-6121ead0f3e4"] -}, Open ]] +Cell[2155774, 38058, 159, 3, 54, "Subsection",ExpressionUUID->"36c7685a-f47a-40aa-a737-8c7f6f4317c1"], +Cell[2155936, 38063, 1510, 34, 133, "Input",ExpressionUUID->"afc540ea-ef9a-493b-9583-ed901e3ac580"], +Cell[2157449, 38099, 1582, 38, 154, "Input",ExpressionUUID->"cdb9b75d-4c04-4ef5-9969-9e72079c5d58"], +Cell[2159034, 38139, 1804, 43, 174, "Input",ExpressionUUID->"e7739266-4bd1-4804-846a-5133bf45bfe6"], +Cell[2160841, 38184, 1954, 46, 174, "Input",ExpressionUUID->"e0c29aa2-30dd-4eb9-990b-b4abf8865eeb"], +Cell[2162798, 38232, 2132, 51, 195, "Input",ExpressionUUID->"80a3d021-bc5a-410c-8e70-089bc45d33bc"], +Cell[2164933, 38285, 2210, 54, 216, "Input",ExpressionUUID->"1d95a4fa-b7b4-4d6f-9695-22a28602846c"] }, Open ]] }, Open ]] } -- cgit v1.2.3-54-g00ecf