(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 114915, 3227] NotebookOptionsPosition[ 105662, 3061] NotebookOutlinePosition[ 106186, 3080] CellTagsIndexPosition[ 106143, 3077] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["\<\ Scientific Programming with Mathematica 2021, Problems 2 \ \>", "Chapter", CellChangeTimes->{{3.8227309308538017`*^9, 3.8227309968616667`*^9}},ExpressionUUID->"7f801834-af09-4827-bcfd-\ 129697f8ac14"], Cell[CellGroupData[{ Cell["Problem 1", "Subsection", CellChangeTimes->{{3.727218597470674*^9, 3.727218601161737*^9}, 3.790358444936009*^9},ExpressionUUID->"732621cb-41bd-43be-96b9-\ 823436736144"], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{ SqrtBox["5"], "+", SqrtBox[ RowBox[{"22", "+", RowBox[{"2", SqrtBox["5"]}]}]]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{ SqrtBox[ RowBox[{"11", "+", RowBox[{"2", SqrtBox["29"]}]}]], "+", SqrtBox[ RowBox[{"16", "-", RowBox[{"2", SqrtBox["29"]}], "+", RowBox[{"2", SqrtBox[ RowBox[{"55", "-", RowBox[{"10", SqrtBox["29"]}]}]]}]}]]}]}], ";"}]}], "Input", CellChangeTimes->{{3.727032215964129*^9, 3.727032306398034*^9}, { 3.72709561931382*^9, 3.727095633633123*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"6ff366a2-4e7e-45da-88a1-ae0d3bdd34e5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"MinimalPolynomial", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"MinimalPolynomial", "[", RowBox[{"y", ",", "t"}], "]"}]}], "}"}]], "Input", CellChangeTimes->{{3.727095670046027*^9, 3.727095682103758*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"5121fd4f-cf94-4259-8de5-b7345f2ec41f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"269", "-", RowBox[{"40", " ", "t"}], "-", RowBox[{"54", " ", SuperscriptBox["t", "2"]}], "+", SuperscriptBox["t", "4"]}], ",", RowBox[{"269", "-", RowBox[{"40", " ", "t"}], "-", RowBox[{"54", " ", SuperscriptBox["t", "2"]}], "+", SuperscriptBox["t", "4"]}]}], "}"}]], "Output", CellChangeTimes->{3.822732328911621*^9}, CellLabel->"Out[3]=",ExpressionUUID->"9c2abaeb-b861-4e24-b70c-d6bd02c90d18"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"269", "-", RowBox[{"40", "x"}], "-", RowBox[{"54", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "4"]}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.72778850060946*^9, 3.7277885420223503`*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"fd3d0468-26ee-4c81-8df0-26ca8a28902f"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.822732375339634*^9}, CellLabel->"Out[4]=",ExpressionUUID->"a01b1395-264b-4462-8d29-c681ba347981"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"269", "-", RowBox[{"40", "y"}], "-", RowBox[{"54", SuperscriptBox["y", "2"]}], "+", SuperscriptBox["y", "4"]}], "//", "FullSimplify"}]], "Input", CellChangeTimes->{{3.727788559057837*^9, 3.727788590580093*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"6fff0876-09e0-41d4-a448-2126a1b217ae"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.822732389787531*^9}, CellLabel->"Out[5]=",ExpressionUUID->"c4faa6f5-0edb-4b87-866d-cfe4e1502a9f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"N", "[", "x", "]"}], ",", RowBox[{"N", "[", "y", "]"}]}], "}"}]], "Input", CellChangeTimes->{{3.72709575978401*^9, 3.7270957747923307`*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"0f9e14c5-4cc7-4cf3-80e7-2ef4b58735d3"], Cell[BoxData[ RowBox[{"{", RowBox[{"7.381175940895658`", ",", "7.381175940895658`"}], "}"}]], "Output",\ CellChangeTimes->{3.822732404340766*^9}, CellLabel->"Out[6]=",ExpressionUUID->"06011fa4-64e7-4254-87cd-beccafb77dba"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NSolve", "[", RowBox[{ RowBox[{"269", "-", RowBox[{"40", " ", "t"}], "-", RowBox[{"54", " ", SuperscriptBox["t", "2"]}], "+", SuperscriptBox["t", "4"]}], "\[Equal]", "0"}], "]"}]], "Input", CellChangeTimes->{{3.7270325440085087`*^9, 3.727032567707395*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"fc896804-11c2-46ad-a69d-71701b4ebc93"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"t", "\[Rule]", RowBox[{"-", "6.422697175912329`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", "\[Rule]", RowBox[{"-", "2.9090399858960785`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", "\[Rule]", "1.9505612209127496`"}], "}"}], ",", RowBox[{"{", RowBox[{"t", "\[Rule]", "7.381175940895658`"}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{3.82273242204498*^9}, CellLabel->"Out[7]=",ExpressionUUID->"33ec2d2e-3c09-4eca-858a-5bbb12889c9d"] }, Open ]], Cell["The following are one line solutions:", "Text", CellChangeTimes->{{3.727219024688382*^9, 3.727219042194901*^9}, { 3.822731105978127*^9, 3.8227311159247923`*^9}},ExpressionUUID->"5b5b0435-5bf9-47f9-b2bc-\ c0a880ea7733"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MinimalPolynomial", "[", RowBox[{ RowBox[{"x", "-", "y"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.727095698257901*^9, 3.727095713001086*^9}, { 3.727097001926626*^9, 3.7270970025575323`*^9}, {3.7270973159352283`*^9, 3.727097322815612*^9}, 3.727217804988411*^9}, CellLabel->"In[8]:=",ExpressionUUID->"892df287-70aa-46c4-a0d7-7ba820c680eb"], Cell[BoxData["t"], "Output", CellChangeTimes->{3.822732482403523*^9}, CellLabel->"Out[8]=",ExpressionUUID->"2855fd23-87f9-4d89-80c6-3fbc07bd881f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"x", "\[Equal]", "y"}], "//", "FullSimplify"}]], "Input", CellChangeTimes->{{3.727788713442153*^9, 3.727788740257019*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"445f9481-bab0-4afb-a519-ef230e60ba43"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.822732501171466*^9}, CellLabel->"Out[9]=",ExpressionUUID->"03a73ded-b838-4c4f-85b0-e197b5b953e6"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Problem 2", "Subsection", CellChangeTimes->{{3.7284635171978493`*^9, 3.728463525534745*^9}, 3.790358841242866*^9},ExpressionUUID->"1750e188-f589-44d0-aa0b-\ 3b0e2c42d840"], Cell[BoxData[ RowBox[{ RowBox[{ "str", "=", "\[IndentingNewLine]", "\"\\""}], ";"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{{3.728299908990362*^9, 3.728299934013431*^9}, { 3.728304133292972*^9, 3.728304153294821*^9}, {3.728304904935176*^9, 3.728304920904025*^9}, 3.728382001198798*^9}, CellLabel->"In[11]:=",ExpressionUUID->"0c92a13e-70d3-4490-87ef-bc1689e54af2"], Cell[BoxData[ RowBox[{ RowBox[{"adlerchecksum", "[", "str_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"codes", ",", "mlist", ",", "m", ",", "n", ",", RowBox[{"p", "=", "65521"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"codes", "=", RowBox[{"Prepend", "[", RowBox[{ RowBox[{"ToCharacterCode", "[", "str", "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", " ", RowBox[{"mlist", "=", RowBox[{"Accumulate", "[", "codes", "]"}]}], ";", "\[IndentingNewLine]", " ", RowBox[{"m", "=", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Last", "[", "mlist", "]"}], ",", "p"}], "]"}]}], ";", " ", "\[IndentingNewLine]", " ", RowBox[{"n", "=", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"Rest", "[", "mlist", "]"}], "]"}], ",", "p"}], "]"}]}], ";", "\[IndentingNewLine]", " ", RowBox[{"m", "+", RowBox[{ SuperscriptBox["2", "16"], "n"}]}]}]}], "\[IndentingNewLine]", " ", "]"}]}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{{3.728302614512822*^9, 3.72830273867318*^9}, { 3.728302792030604*^9, 3.728302806905397*^9}, {3.728302846082177*^9, 3.728302938326466*^9}, {3.7283034449348087`*^9, 3.728303743825506*^9}, { 3.7283037978691387`*^9, 3.7283038441114902`*^9}, {3.728304312988862*^9, 3.728304313634254*^9}, 3.728382001199003*^9, {3.729510975733263*^9, 3.72951098212759*^9}, {3.82273171081116*^9, 3.822731749017555*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"a41721b3-0d86-4fd0-91ae-6c71d54049ef"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"adlerchecksum", "[", "str", "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{{3.728303751239009*^9, 3.728303759738122*^9}, 3.728382001199139*^9}, CellLabel->"In[17]:=",ExpressionUUID->"9d1a3f61-a6df-4757-b460-503794d2ec60"], Cell[BoxData["3664611398"], "Output", CellChangeTimes->{3.822733141173718*^9}, CellLabel->"Out[17]=",ExpressionUUID->"306c20cc-0f59-4f3e-b92d-c4b839b831ce"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Hash", "[", RowBox[{"str", ",", "\"\\""}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{{3.728303893422147*^9, 3.7283039121449947`*^9}, 3.728382001199471*^9}, CellLabel->"In[18]:=",ExpressionUUID->"e2cab291-bdda-42fe-9822-6120f4de5d97"], Cell[BoxData["3664611398"], "Output", CellChangeTimes->{3.822733160340807*^9}, CellLabel->"Out[18]=",ExpressionUUID->"1be0d449-a3f3-417f-96be-99b6014d0604"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Problem 3", "Subsection", CellChangeTimes->{{3.7273472187261133`*^9, 3.727347228554734*^9}, 3.7903584988968887`*^9, 3.790358876059061*^9},ExpressionUUID->"d68a2ed9-c293-4679-9f3e-\ a27a59f39674"], Cell[BoxData[ RowBox[{ RowBox[{"wt4coeffs", "=", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", RowBox[{"-", "2"}], ",", "8", ",", "4", ",", RowBox[{"-", "14"}], ",", RowBox[{"-", "16"}], ",", RowBox[{"-", "7"}], ",", RowBox[{"-", "8"}], ",", "37", ",", "28", ",", RowBox[{"-", "28"}], ",", "32", ",", "18", ",", "14", ",", RowBox[{"-", "112"}], ",", "16", ",", "74", ",", RowBox[{"-", "74"}], ",", "80", ",", RowBox[{"-", "56"}], ",", RowBox[{"-", "56"}], ",", "56", ",", RowBox[{"-", "112"}], ",", RowBox[{"-", "64"}], ",", "71", ",", RowBox[{"-", "36"}], ",", "80", ",", RowBox[{"-", "28"}], ",", "190", ",", "224", ",", "72", ",", RowBox[{"-", "32"}], ",", RowBox[{"-", "224"}], ",", RowBox[{"-", "148"}], ",", "98", ",", "148", ",", RowBox[{"-", "346"}], ",", RowBox[{"-", "160"}], ",", "144", ",", "112", ",", "162", ",", "112", ",", RowBox[{"-", "412"}], ",", RowBox[{"-", "112"}], ",", RowBox[{"-", "518"}], ",", "224", ",", "24", ",", "128", ",", "49", ",", RowBox[{"-", "142"}], ",", "592", ",", "72", ",", "318", ",", RowBox[{"-", "160"}], ",", "392", ",", "56", ",", "640", ",", RowBox[{"-", "380"}], ",", RowBox[{"-", "200"}], ",", RowBox[{"-", "448"}], ",", RowBox[{"-", "198"}], ",", RowBox[{"-", "144"}], ",", RowBox[{"-", "259"}], ",", "64", ",", RowBox[{"-", "252"}], ",", "448", ",", RowBox[{"-", "716"}], ",", "296", ",", RowBox[{"-", "896"}], ",", RowBox[{"-", "196"}], ",", "392", ",", RowBox[{"-", "296"}], ",", "538", ",", "692", ",", "568", ",", "320", ",", "196", ",", RowBox[{"-", "288"}], ",", "240", ",", RowBox[{"-", "224"}], ",", RowBox[{"-", "359"}], ",", RowBox[{"-", "324"}], ",", RowBox[{"-", "1072"}], ",", RowBox[{"-", "224"}], ",", RowBox[{"-", "1036"}], ",", "824", ",", "1520", ",", "224", ",", "810", ",", "1036", ",", RowBox[{"-", "126"}], ",", RowBox[{"-", "448"}], ",", "576", ",", RowBox[{"-", "48"}], ",", RowBox[{"-", "1120"}], ",", RowBox[{"-", "256"}], ",", "1354", ",", RowBox[{"-", "98"}], ",", RowBox[{"-", "1036"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.726609839169161*^9, 3.726609883994378*^9}, 3.820589496995914*^9}, CellLabel->"In[19]:=",ExpressionUUID->"b2e6fa49-b7a6-4731-b5c9-2993db0b8981"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", "y", "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "y_", "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"wt4coeffs", "\[LeftDoubleBracket]", RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], "\[Pi]", " ", "n", " ", "y"}]]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "99"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.726609960087413*^9, 3.726609979082193*^9}, { 3.726610012287842*^9, 3.726610180126381*^9}, {3.726610301176214*^9, 3.726610313687318*^9}, {3.727347622366095*^9, 3.727347627357811*^9}, { 3.727347657742999*^9, 3.727347663773188*^9}, {3.72734791156288*^9, 3.727347920334662*^9}, {3.8205895198765583`*^9, 3.820589525966704*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"da88de60-83a3-4906-be3c-b1a89a9ee219"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", "y", "]"}]], "Input", CellChangeTimes->{{3.7273476679490643`*^9, 3.727347676799362*^9}, 3.820589538480638*^9}, CellLabel->"In[22]:=",ExpressionUUID->"f7999450-65b6-4ce2-82ba-3d87f43c603c"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "1036"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "198"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"98", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "196"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"1354", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "194"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"256", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "192"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"1120", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "190"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"48", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "188"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"576", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "186"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"448", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "184"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"126", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "182"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"1036", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "180"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"810", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "178"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"224", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "176"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"1520", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "174"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"824", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "172"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"1036", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "170"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"224", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "168"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"1072", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "166"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"324", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "164"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"359", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "162"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"224", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "160"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"240", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "158"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"288", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "156"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"196", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "154"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"320", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "152"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"568", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "150"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"692", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "148"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"538", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "146"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"296", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "144"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"392", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "142"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"196", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "140"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"896", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "138"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"296", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "136"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"716", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "134"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"448", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "132"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"252", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "130"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"64", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "128"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"259", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "126"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"144", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "124"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"198", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "122"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"448", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "120"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"200", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "118"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"380", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "116"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"640", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "114"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"56", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "112"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"392", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "110"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"160", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "108"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"318", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "106"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"72", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "104"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"592", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "102"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"142", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "100"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"49", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "98"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"128", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "96"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"24", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "94"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"224", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "92"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"518", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "90"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"112", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "88"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"412", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "86"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"112", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "84"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"162", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "82"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"112", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "80"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"144", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "78"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"160", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "76"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"346", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "74"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"148", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "72"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"98", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "70"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"148", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "68"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"224", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "66"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"32", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "64"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"72", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "62"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"224", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "60"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"190", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "58"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"28", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "56"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"80", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "54"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"36", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "52"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"71", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "50"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"64", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "48"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"112", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "46"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"56", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "44"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"56", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "42"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"56", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "40"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"80", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "38"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"74", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "36"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"74", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "34"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"16", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "32"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"112", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "30"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"14", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "28"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"18", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "26"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"32", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "24"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"28", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "22"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"28", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "20"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"37", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "18"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"8", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "16"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"7", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "14"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"16", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "12"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"14", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "10"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "8"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"8", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "6"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4"}], " ", "\[Pi]", " ", "y"}]]}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]", " ", "y"}]]}]], "Output", CellChangeTimes->{3.8227334095141687`*^9}, CellLabel->"Out[22]=",ExpressionUUID->"a0c3aa35-a03e-4305-8f20-dddb245840c3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["L", "4"], "[", "2", "]"}], "=", RowBox[{"N", "[", " ", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], "2"], RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", "y", "]"}], " ", "2", " ", "y"}], ",", RowBox[{"{", RowBox[{"y", ",", SuperscriptBox["14", RowBox[{ RowBox[{"-", "1"}], "/", "2"}]], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"WorkingPrecision", "\[Rule]", "100"}], ",", " ", RowBox[{"AccuracyGoal", "\[Rule]", "60"}]}], "]"}]}], ",", "50"}], "]"}]}]], "Input", CellChangeTimes->{{3.7266106248648787`*^9, 3.726610660320937*^9}, { 3.726610719261757*^9, 3.726610725929802*^9}, {3.7266107587332277`*^9, 3.726610779143792*^9}, {3.726610885116241*^9, 3.726610894558548*^9}, { 3.820589613206726*^9, 3.820589613365099*^9}, 3.820589648425181*^9, { 3.820589800123448*^9, 3.820589823390705*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"891fbab4-ab5f-4138-a7d5-39269ccbc148"], Cell[BoxData["0.\ 91930674266912115653914356907939249680895763199044148532342071679151978840809`\ 50."], "Output", CellChangeTimes->{3.8227337523479424`*^9}, CellLabel->"Out[23]=",ExpressionUUID->"a6906ee3-6796-4a97-ba0d-112aac9afb6c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"term99", "=", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], "2"]}], RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"1036", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "198"}], " ", "\[Pi]", " ", "y"}]], " ", "2", " ", "y"}], ",", RowBox[{"{", RowBox[{"y", ",", SuperscriptBox["14", RowBox[{ RowBox[{"-", "1"}], "/", "2"}]], ",", "\[Infinity]"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7266106248648787`*^9, 3.726610660320937*^9}, { 3.726610719261757*^9, 3.726610725929802*^9}, {3.7266107587332277`*^9, 3.726610779143792*^9}, {3.726610885116241*^9, 3.726610894558548*^9}, { 3.7273478100877037`*^9, 3.727347854376913*^9}, {3.8205896599261*^9, 3.820589683096586*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"de35b3dd-acc5-4e34-b761-8b9cd715b582"], Cell[BoxData[ RowBox[{"-", "2.2324463341943317`*^-71"}]], "Output", CellChangeTimes->{3.8227337749978933`*^9}, CellLabel->"Out[24]=",ExpressionUUID->"6d47cad2-9497-4331-9955-455b16d702b5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["L", "4"], "[", "2", "]"}], "=", RowBox[{ RowBox[{"N", "[", " ", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], "2"], RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", "y", "]"}], " ", "2", " ", "y"}], ",", RowBox[{"{", RowBox[{"y", ",", SuperscriptBox["14", RowBox[{ RowBox[{"-", "1"}], "/", "2"}]], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"WorkingPrecision", "\[Rule]", "100"}], ",", " ", RowBox[{"AccuracyGoal", "\[Rule]", "60"}]}], "]"}]}], ",", "50"}], "]"}], "//", "Timing"}]}]], "Input", CellChangeTimes->{{3.7266106248648787`*^9, 3.726610660320937*^9}, { 3.726610719261757*^9, 3.726610725929802*^9}, {3.7266107587332277`*^9, 3.726610779143792*^9}, {3.726610885116241*^9, 3.726610894558548*^9}, { 3.7586287901251717`*^9, 3.758628791408915*^9}, {3.8205897031666737`*^9, 3.8205897115776577`*^9}, {3.820589837633219*^9, 3.82058984131956*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"f434e898-3623-4137-96f1-a72648877f4a"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.970002`", ",", "0.919306742669121156539143569079392496808957631990441485323420716791519788\ 40809`50."}], "}"}]], "Output", CellChangeTimes->{3.822733810524432*^9, 3.822734180422415*^9}, CellLabel->"Out[29]=",ExpressionUUID->"e75e10ee-224e-4f4a-aa7c-f6a96e91ddbe"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], "2"], RowBox[{"N", "[", RowBox[{ RowBox[{ FractionBox["1", "7"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"wt4coeffs", "\[LeftDoubleBracket]", RowBox[{"k", "+", "1"}], "\[RightDoubleBracket]"}], " ", RowBox[{"ExpIntegralE", "[", RowBox[{ RowBox[{"-", "1"}], ",", FractionBox[ RowBox[{"2", "\[Pi]", " ", "k"}], SqrtBox["14"]]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "99"}], "}"}]}], "]"}]}], ",", "50"}], "]"}]}], "//", "Timing"}]], "Input", CellChangeTimes->{{3.758629575827139*^9, 3.758629741163196*^9}, { 3.758629839698571*^9, 3.7586298565624857`*^9}, {3.820589756451446*^9, 3.8205897662893333`*^9}}, CellLabel->"In[30]:=",ExpressionUUID->"6357ded9-8aa2-4069-a21d-8d7d25329653"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.0026`", ",", "0.919306742669121156539143569079392496808957631990441485398626396093515943\ 39337`50."}], "}"}]], "Output", CellChangeTimes->{3.8227341256581297`*^9, 3.822734180509601*^9}, CellLabel->"Out[30]=",ExpressionUUID->"97b4a746-c39e-426d-872d-5d19a96b11aa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"%%", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "/", RowBox[{ "%", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}]], "Input", CellChangeTimes->{{3.790431432861824*^9, 3.790431467527425*^9}}, CellLabel->"In[31]:=",ExpressionUUID->"a286b12e-c890-4e1c-a434-a1a8ecd9613d"], Cell[BoxData["757.693076923077`"], "Output", CellChangeTimes->{{3.8227341647658873`*^9, 3.8227341870188704`*^9}}, CellLabel->"Out[31]=",ExpressionUUID->"4c7080ad-0c22-4435-83da-6c80c5da0ce3"] }, Open ]], Cell[BoxData[ RowBox[{ SubscriptBox["\[Eta]", "j_"], ":=", " ", "\[IndentingNewLine]", RowBox[{ SuperscriptBox["q", RowBox[{"j", "/", "24"}]], RowBox[{"Series", "[", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"1", "-", SuperscriptBox["q", RowBox[{"j", " ", "n"}]]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", RowBox[{"Floor", "[", FractionBox["99", "j"], "]"}]}], "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"q", ",", "0", ",", "99"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.790400971471528*^9, 3.7904009920601597`*^9}, { 3.7904010226830997`*^9, 3.790401034491521*^9}, {3.790401123205369*^9, 3.790401281108736*^9}, {3.790401743841744*^9, 3.790401750647666*^9}, { 3.8205899227981462`*^9, 3.820589937764515*^9}}, CellLabel->"In[32]:=",ExpressionUUID->"4b1c69c2-0f89-4f31-a389-835ed66b1dc7"], Cell[BoxData[ RowBox[{"expr", ":=", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Eta]", "2"], "6"], " ", SuperscriptBox[ SubscriptBox["\[Eta]", "7"], "6"]}], RowBox[{ SuperscriptBox[ SubscriptBox["\[Eta]", "1"], "2"], " ", SuperscriptBox[ SubscriptBox["\[Eta]", "14"], "2"]}]], "-", " ", RowBox[{"4", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[Eta]", "1"], SubscriptBox["\[Eta]", "2"], " ", SubscriptBox["\[Eta]", "7"], SubscriptBox["\[Eta]", "14"]}], ")"}], "2"]}], "+", " ", FractionBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Eta]", "1"], "6"], " ", SuperscriptBox[ SubscriptBox["\[Eta]", "14"], "6"]}], RowBox[{ SuperscriptBox[ SubscriptBox["\[Eta]", "2"], "2"], " ", SuperscriptBox[ SubscriptBox["\[Eta]", "7"], "2"]}]]}]}]], "Input", CellChangeTimes->{{3.790401306051265*^9, 3.790401536153782*^9}}, CellLabel->"In[33]:=",ExpressionUUID->"47e18c1a-53d2-4c07-a15f-5d3b9570e917"], Cell[CellGroupData[{ Cell[BoxData["expr"], "Input", CellChangeTimes->{{3.790401565766665*^9, 3.790401569603715*^9}}, CellLabel->"In[34]:=",ExpressionUUID->"d9b5b023-5561-4887-a879-6d124725c053"], Cell[BoxData[ InterpretationBox[ RowBox[{"q", "-", RowBox[{"2", " ", SuperscriptBox["q", "2"]}], "+", RowBox[{"8", " ", SuperscriptBox["q", "3"]}], "+", RowBox[{"4", " ", SuperscriptBox["q", "4"]}], "-", RowBox[{"14", " ", SuperscriptBox["q", "5"]}], "-", RowBox[{"16", " ", SuperscriptBox["q", "6"]}], "-", RowBox[{"7", " ", SuperscriptBox["q", "7"]}], "-", RowBox[{"8", " ", SuperscriptBox["q", "8"]}], "+", RowBox[{"37", " ", SuperscriptBox["q", "9"]}], "+", RowBox[{"28", " ", SuperscriptBox["q", "10"]}], "-", RowBox[{"28", " ", SuperscriptBox["q", "11"]}], "+", RowBox[{"32", " ", SuperscriptBox["q", "12"]}], "+", RowBox[{"18", " ", SuperscriptBox["q", "13"]}], "+", RowBox[{"14", " ", SuperscriptBox["q", "14"]}], "-", RowBox[{"112", " ", SuperscriptBox["q", "15"]}], "+", RowBox[{"16", " ", SuperscriptBox["q", "16"]}], "+", RowBox[{"74", " ", SuperscriptBox["q", "17"]}], "-", RowBox[{"74", " ", SuperscriptBox["q", "18"]}], "+", RowBox[{"80", " ", SuperscriptBox["q", "19"]}], "-", RowBox[{"56", " ", SuperscriptBox["q", "20"]}], "-", RowBox[{"56", " ", SuperscriptBox["q", "21"]}], "+", RowBox[{"56", " ", SuperscriptBox["q", "22"]}], "-", RowBox[{"112", " ", SuperscriptBox["q", "23"]}], "-", RowBox[{"64", " ", SuperscriptBox["q", "24"]}], "+", RowBox[{"71", " ", SuperscriptBox["q", "25"]}], "-", RowBox[{"36", " ", SuperscriptBox["q", "26"]}], "+", RowBox[{"80", " ", SuperscriptBox["q", "27"]}], "-", RowBox[{"28", " ", SuperscriptBox["q", "28"]}], "+", RowBox[{"190", " ", SuperscriptBox["q", "29"]}], "+", RowBox[{"224", " ", SuperscriptBox["q", "30"]}], "+", RowBox[{"72", " ", SuperscriptBox["q", "31"]}], "-", RowBox[{"32", " ", SuperscriptBox["q", "32"]}], "-", RowBox[{"224", " ", SuperscriptBox["q", "33"]}], "-", RowBox[{"148", " ", SuperscriptBox["q", "34"]}], "+", RowBox[{"98", " ", SuperscriptBox["q", "35"]}], "+", RowBox[{"148", " ", SuperscriptBox["q", "36"]}], "-", RowBox[{"346", " ", SuperscriptBox["q", "37"]}], "-", RowBox[{"160", " ", SuperscriptBox["q", "38"]}], "+", RowBox[{"144", " ", SuperscriptBox["q", "39"]}], "+", RowBox[{"112", " ", SuperscriptBox["q", "40"]}], "+", RowBox[{"162", " ", SuperscriptBox["q", "41"]}], "+", RowBox[{"112", " ", SuperscriptBox["q", "42"]}], "-", RowBox[{"412", " ", SuperscriptBox["q", "43"]}], "-", RowBox[{"112", " ", SuperscriptBox["q", "44"]}], "-", RowBox[{"518", " ", SuperscriptBox["q", "45"]}], "+", RowBox[{"224", " ", SuperscriptBox["q", "46"]}], "+", RowBox[{"24", " ", SuperscriptBox["q", "47"]}], "+", RowBox[{"128", " ", SuperscriptBox["q", "48"]}], "+", RowBox[{"49", " ", SuperscriptBox["q", "49"]}], "-", RowBox[{"142", " ", SuperscriptBox["q", "50"]}], "+", RowBox[{"592", " ", SuperscriptBox["q", "51"]}], "+", RowBox[{"72", " ", SuperscriptBox["q", "52"]}], "+", RowBox[{"318", " ", SuperscriptBox["q", "53"]}], "-", RowBox[{"160", " ", SuperscriptBox["q", "54"]}], "+", RowBox[{"392", " ", SuperscriptBox["q", "55"]}], "+", RowBox[{"56", " ", SuperscriptBox["q", "56"]}], "+", RowBox[{"640", " ", SuperscriptBox["q", "57"]}], "-", RowBox[{"380", " ", SuperscriptBox["q", "58"]}], "-", RowBox[{"200", " ", SuperscriptBox["q", "59"]}], "-", RowBox[{"448", " ", SuperscriptBox["q", "60"]}], "-", RowBox[{"198", " ", SuperscriptBox["q", "61"]}], "-", RowBox[{"144", " ", SuperscriptBox["q", "62"]}], "-", RowBox[{"259", " ", SuperscriptBox["q", "63"]}], "+", RowBox[{"64", " ", SuperscriptBox["q", "64"]}], "-", RowBox[{"252", " ", SuperscriptBox["q", "65"]}], "+", RowBox[{"448", " ", SuperscriptBox["q", "66"]}], "-", RowBox[{"716", " ", SuperscriptBox["q", "67"]}], "+", RowBox[{"296", " ", SuperscriptBox["q", "68"]}], "-", RowBox[{"896", " ", SuperscriptBox["q", "69"]}], "-", RowBox[{"196", " ", SuperscriptBox["q", "70"]}], "+", RowBox[{"392", " ", SuperscriptBox["q", "71"]}], "-", RowBox[{"296", " ", SuperscriptBox["q", "72"]}], "+", RowBox[{"538", " ", SuperscriptBox["q", "73"]}], "+", RowBox[{"692", " ", SuperscriptBox["q", "74"]}], "+", RowBox[{"568", " ", SuperscriptBox["q", "75"]}], "+", RowBox[{"320", " ", SuperscriptBox["q", "76"]}], "+", RowBox[{"196", " ", SuperscriptBox["q", "77"]}], "-", RowBox[{"288", " ", SuperscriptBox["q", "78"]}], "+", RowBox[{"240", " ", SuperscriptBox["q", "79"]}], "-", RowBox[{"224", " ", SuperscriptBox["q", "80"]}], "-", RowBox[{"359", " ", SuperscriptBox["q", "81"]}], "-", RowBox[{"324", " ", SuperscriptBox["q", "82"]}], "-", RowBox[{"1072", " ", SuperscriptBox["q", "83"]}], "-", RowBox[{"224", " ", SuperscriptBox["q", "84"]}], "-", RowBox[{"1036", " ", SuperscriptBox["q", "85"]}], "+", RowBox[{"824", " ", SuperscriptBox["q", "86"]}], "+", RowBox[{"1520", " ", SuperscriptBox["q", "87"]}], "+", RowBox[{"224", " ", SuperscriptBox["q", "88"]}], "+", RowBox[{"810", " ", SuperscriptBox["q", "89"]}], "+", RowBox[{"1036", " ", SuperscriptBox["q", "90"]}], "-", RowBox[{"126", " ", SuperscriptBox["q", "91"]}], "-", RowBox[{"448", " ", SuperscriptBox["q", "92"]}], "+", RowBox[{"576", " ", SuperscriptBox["q", "93"]}], "-", RowBox[{"48", " ", SuperscriptBox["q", "94"]}], "-", RowBox[{"1120", " ", SuperscriptBox["q", "95"]}], "-", RowBox[{"256", " ", SuperscriptBox["q", "96"]}], "+", RowBox[{"1354", " ", SuperscriptBox["q", "97"]}], "-", RowBox[{"98", " ", SuperscriptBox["q", "98"]}], "-", RowBox[{"1036", " ", SuperscriptBox["q", "99"]}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "q", "]"}], "100"], SeriesData[$CellContext`q, 0, {}, 24, 2400, 24], Editable->False]}], SeriesData[$CellContext`q, 0, CompressedData[" 1:eJzV2q9KBFEUB+CrrqAgIiYRgwZBbAuGQUSmKZtkn0AWo+jiEyxiMG6wWEQM PoGYRAwG40aDYYIPsIjBf7vj8SE+YX5l28fhzL3n3hl2qXXYPBhJKdUnU/r7 lRmWZSn9CYlHath/w/3pY/8T+x/YX5Z4ZAH7r7g/ixKPzGJ/Gvtd3P8ZiUca 2L/F/dmReOQJ16/9TOLJr/8H7G9JPPJS8fWvz5d7iUcK7G9jv9DnO/b3sd+S eOQM+9dD259d3P+uxCNt7F9hX9e/h9ePPt+/BtYvJB6Zw34H+3XsH+n7z6jU /fm+iT/A6fl/iuvX7y8dvH5O8HzO8PPNcf3ruP429ge4P7nEIzX9/o7nwxq+ P6zg+js/tv6Nis//Z7y/5vH8v8F+hv0cP99Hy6cCr5++xJP/PnOO+3OH/d53 tb+PveP6szGpx/oft35h+bSK+zOF/0BwXPH7f47Prx7uzyXevwnX38D79+If 5ucvNA7Dvw== "], 24, 2400, 24], Editable->False]], "Output", CellChangeTimes->{3.8227343291125183`*^9}, CellLabel->"Out[34]=",ExpressionUUID->"5c76b659-82eb-4c5c-b2d8-8f8d1f67ae42"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Rest", "[", "wt4coeffs", "]"}], ".", SuperscriptBox["q", RowBox[{"Range", "[", "99", "]"}]]}]], "Input", CellChangeTimes->{{3.790401798146682*^9, 3.790401861003476*^9}, 3.820590009856606*^9}, CellLabel->"In[35]:=",ExpressionUUID->"ce315205-900c-4d20-91cd-5e92fbad3a60"], Cell[BoxData[ RowBox[{"q", "-", RowBox[{"2", " ", SuperscriptBox["q", "2"]}], "+", RowBox[{"8", " ", SuperscriptBox["q", "3"]}], "+", RowBox[{"4", " ", SuperscriptBox["q", "4"]}], "-", RowBox[{"14", " ", SuperscriptBox["q", "5"]}], "-", RowBox[{"16", " ", SuperscriptBox["q", "6"]}], "-", RowBox[{"7", " ", SuperscriptBox["q", "7"]}], "-", RowBox[{"8", " ", SuperscriptBox["q", "8"]}], "+", RowBox[{"37", " ", SuperscriptBox["q", "9"]}], "+", RowBox[{"28", " ", SuperscriptBox["q", "10"]}], "-", RowBox[{"28", " ", SuperscriptBox["q", "11"]}], "+", RowBox[{"32", " ", SuperscriptBox["q", "12"]}], "+", RowBox[{"18", " ", SuperscriptBox["q", "13"]}], "+", RowBox[{"14", " ", SuperscriptBox["q", "14"]}], "-", RowBox[{"112", " ", SuperscriptBox["q", "15"]}], "+", RowBox[{"16", " ", SuperscriptBox["q", "16"]}], "+", RowBox[{"74", " ", SuperscriptBox["q", "17"]}], "-", RowBox[{"74", " ", SuperscriptBox["q", "18"]}], "+", RowBox[{"80", " ", SuperscriptBox["q", "19"]}], "-", RowBox[{"56", " ", SuperscriptBox["q", "20"]}], "-", RowBox[{"56", " ", SuperscriptBox["q", "21"]}], "+", RowBox[{"56", " ", SuperscriptBox["q", "22"]}], "-", RowBox[{"112", " ", SuperscriptBox["q", "23"]}], "-", RowBox[{"64", " ", SuperscriptBox["q", "24"]}], "+", RowBox[{"71", " ", SuperscriptBox["q", "25"]}], "-", RowBox[{"36", " ", SuperscriptBox["q", "26"]}], "+", RowBox[{"80", " ", SuperscriptBox["q", "27"]}], "-", RowBox[{"28", " ", SuperscriptBox["q", "28"]}], "+", RowBox[{"190", " ", SuperscriptBox["q", "29"]}], "+", RowBox[{"224", " ", SuperscriptBox["q", "30"]}], "+", RowBox[{"72", " ", SuperscriptBox["q", "31"]}], "-", RowBox[{"32", " ", SuperscriptBox["q", "32"]}], "-", RowBox[{"224", " ", SuperscriptBox["q", "33"]}], "-", RowBox[{"148", " ", SuperscriptBox["q", "34"]}], "+", RowBox[{"98", " ", SuperscriptBox["q", "35"]}], "+", RowBox[{"148", " ", SuperscriptBox["q", "36"]}], "-", RowBox[{"346", " ", SuperscriptBox["q", "37"]}], "-", RowBox[{"160", " ", SuperscriptBox["q", "38"]}], "+", RowBox[{"144", " ", SuperscriptBox["q", "39"]}], "+", RowBox[{"112", " ", SuperscriptBox["q", "40"]}], "+", RowBox[{"162", " ", SuperscriptBox["q", "41"]}], "+", RowBox[{"112", " ", SuperscriptBox["q", "42"]}], "-", RowBox[{"412", " ", SuperscriptBox["q", "43"]}], "-", RowBox[{"112", " ", SuperscriptBox["q", "44"]}], "-", RowBox[{"518", " ", SuperscriptBox["q", "45"]}], "+", RowBox[{"224", " ", SuperscriptBox["q", "46"]}], "+", RowBox[{"24", " ", SuperscriptBox["q", "47"]}], "+", RowBox[{"128", " ", SuperscriptBox["q", "48"]}], "+", RowBox[{"49", " ", SuperscriptBox["q", "49"]}], "-", RowBox[{"142", " ", SuperscriptBox["q", "50"]}], "+", RowBox[{"592", " ", SuperscriptBox["q", "51"]}], "+", RowBox[{"72", " ", SuperscriptBox["q", "52"]}], "+", RowBox[{"318", " ", SuperscriptBox["q", "53"]}], "-", RowBox[{"160", " ", SuperscriptBox["q", "54"]}], "+", RowBox[{"392", " ", SuperscriptBox["q", "55"]}], "+", RowBox[{"56", " ", SuperscriptBox["q", "56"]}], "+", RowBox[{"640", " ", SuperscriptBox["q", "57"]}], "-", RowBox[{"380", " ", SuperscriptBox["q", "58"]}], "-", RowBox[{"200", " ", SuperscriptBox["q", "59"]}], "-", RowBox[{"448", " ", SuperscriptBox["q", "60"]}], "-", RowBox[{"198", " ", SuperscriptBox["q", "61"]}], "-", RowBox[{"144", " ", SuperscriptBox["q", "62"]}], "-", RowBox[{"259", " ", SuperscriptBox["q", "63"]}], "+", RowBox[{"64", " ", SuperscriptBox["q", "64"]}], "-", RowBox[{"252", " ", SuperscriptBox["q", "65"]}], "+", RowBox[{"448", " ", SuperscriptBox["q", "66"]}], "-", RowBox[{"716", " ", SuperscriptBox["q", "67"]}], "+", RowBox[{"296", " ", SuperscriptBox["q", "68"]}], "-", RowBox[{"896", " ", SuperscriptBox["q", "69"]}], "-", RowBox[{"196", " ", SuperscriptBox["q", "70"]}], "+", RowBox[{"392", " ", SuperscriptBox["q", "71"]}], "-", RowBox[{"296", " ", SuperscriptBox["q", "72"]}], "+", RowBox[{"538", " ", SuperscriptBox["q", "73"]}], "+", RowBox[{"692", " ", SuperscriptBox["q", "74"]}], "+", RowBox[{"568", " ", SuperscriptBox["q", "75"]}], "+", RowBox[{"320", " ", SuperscriptBox["q", "76"]}], "+", RowBox[{"196", " ", SuperscriptBox["q", "77"]}], "-", RowBox[{"288", " ", SuperscriptBox["q", "78"]}], "+", RowBox[{"240", " ", SuperscriptBox["q", "79"]}], "-", RowBox[{"224", " ", SuperscriptBox["q", "80"]}], "-", RowBox[{"359", " ", SuperscriptBox["q", "81"]}], "-", RowBox[{"324", " ", SuperscriptBox["q", "82"]}], "-", RowBox[{"1072", " ", SuperscriptBox["q", "83"]}], "-", RowBox[{"224", " ", SuperscriptBox["q", "84"]}], "-", RowBox[{"1036", " ", SuperscriptBox["q", "85"]}], "+", RowBox[{"824", " ", SuperscriptBox["q", "86"]}], "+", RowBox[{"1520", " ", SuperscriptBox["q", "87"]}], "+", RowBox[{"224", " ", SuperscriptBox["q", "88"]}], "+", RowBox[{"810", " ", SuperscriptBox["q", "89"]}], "+", RowBox[{"1036", " ", SuperscriptBox["q", "90"]}], "-", RowBox[{"126", " ", SuperscriptBox["q", "91"]}], "-", RowBox[{"448", " ", SuperscriptBox["q", "92"]}], "+", RowBox[{"576", " ", SuperscriptBox["q", "93"]}], "-", RowBox[{"48", " ", SuperscriptBox["q", "94"]}], "-", RowBox[{"1120", " ", SuperscriptBox["q", "95"]}], "-", RowBox[{"256", " ", SuperscriptBox["q", "96"]}], "+", RowBox[{"1354", " ", SuperscriptBox["q", "97"]}], "-", RowBox[{"98", " ", SuperscriptBox["q", "98"]}], "-", RowBox[{"1036", " ", SuperscriptBox["q", "99"]}]}]], "Output", CellChangeTimes->{3.82273443076388*^9}, CellLabel->"Out[35]=",ExpressionUUID->"199b5618-3820-4ecf-9ca5-d9ee34988b19"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "-", "expr"}]], "Input", CellChangeTimes->{{3.790401885259601*^9, 3.790401890005742*^9}}, CellLabel->"In[36]:=",ExpressionUUID->"1824e7ca-a313-4329-93bb-f7509396e732"], Cell[BoxData[ InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "q", "]"}], "100"], SeriesData[$CellContext`q, 0, {}, 2400, 2400, 24], Editable->False]], "Output", CellChangeTimes->{3.822734447347394*^9}, CellLabel->"Out[36]=",ExpressionUUID->"0320e9a7-b8dc-487c-ae18-1ec58fc254c8"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Problem 4", "Subsection", CellChangeTimes->{{3.7272678413269978`*^9, 3.727267851500723*^9}, { 3.790359065852769*^9, 3.790359068266954*^9}},ExpressionUUID->"8d7fd4cc-ee8a-4a23-be94-\ 4cfa4424c0cc"], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["R", "0"], "=", RowBox[{ RowBox[{ RowBox[{"-", "5"}], " ", "\[CurlyPhi]"}], "+", RowBox[{"285", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "-", RowBox[{"900", " ", SuperscriptBox["\[CurlyPhi]", "3"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["R", "1"], "=", RowBox[{ RowBox[{ RowBox[{"-", "28"}], " ", "\[CurlyPhi]"}], "+", RowBox[{"1088", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "-", RowBox[{"2700", " ", SuperscriptBox["\[CurlyPhi]", "3"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["R", "2"], "=", RowBox[{ RowBox[{ RowBox[{"-", "63"}], " ", "\[CurlyPhi]"}], "+", RowBox[{"1580", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "-", RowBox[{"2925", " ", SuperscriptBox["\[CurlyPhi]", "3"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["R", "3"], "=", RowBox[{ RowBox[{ RowBox[{"-", "70"}], " ", "\[CurlyPhi]"}], "+", RowBox[{"1036", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "-", RowBox[{"1350", " ", SuperscriptBox["\[CurlyPhi]", "3"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["R", "4"], "=", RowBox[{"1", "-", RowBox[{"35", " ", "\[CurlyPhi]"}], "+", RowBox[{"259", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "-", RowBox[{"225", " ", SuperscriptBox["\[CurlyPhi]", "3"]}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Theta]", "[", "fn_", "]"}], ":=", RowBox[{"\[CurlyPhi]", " ", RowBox[{"D", "[", RowBox[{"fn", ",", "\[CurlyPhi]"}], "]"}]}]}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{"\[Theta]", "[", RowBox[{"fn_", ",", "m_"}], "]"}], ":=", RowBox[{"Nest", "[", RowBox[{"\[Theta]", ",", "fn", ",", "m"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[ScriptCapitalL]", "[", "fn_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["R", "j"], RowBox[{"\[Theta]", "[", RowBox[{"fn", ",", "j"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "4"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.727267950575748*^9, 3.727268010188374*^9}, { 3.7272680644199753`*^9, 3.7272680671047707`*^9}, {3.727268116610938*^9, 3.727268118021132*^9}, {3.727268173111865*^9, 3.727268174862104*^9}, { 3.727268241350452*^9, 3.727268242619973*^9}, {3.727268295511323*^9, 3.727268346753353*^9}, {3.727268892291995*^9, 3.727269044814575*^9}}, CellLabel->"In[37]:=",ExpressionUUID->"870793a2-5973-4925-b21b-a8fd1f0444ff"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Collect", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Expand", "[", RowBox[{ SuperscriptBox["\[CurlyPhi]", RowBox[{"3", "-", "n"}]], RowBox[{"\[ScriptCapitalL]", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["a", RowBox[{"n", "-", "j"}]], SuperscriptBox["\[CurlyPhi]", RowBox[{"n", "-", "j"}]]}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "3"}], "}"}]}], "]"}], "]"}]}], "]"}], ",", "\[CurlyPhi]"}], "]"}]], "Input", CellChangeTimes->{{3.727269673580949*^9, 3.727269746717561*^9}, { 3.727269870639785*^9, 3.7272698939482727`*^9}, {3.7272699499244003`*^9, 3.727270070845549*^9}, 3.7272706537072897`*^9}, CellLabel->"In[47]:=",ExpressionUUID->"1f94d4ef-1570-4d8e-8580-b33a76002940"], Cell[BoxData[ RowBox[{ RowBox[{"81", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"108", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"54", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"12", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ SuperscriptBox["n", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"\[CurlyPhi]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "1433"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"2240", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"1323", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"350", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"35", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"16", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"32", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"24", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"8", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ SuperscriptBox["n", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[CurlyPhi]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"4248", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"8392", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"6242", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"2072", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"259", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"201", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"504", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"483", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"210", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"35", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "-", RowBox[{"4", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"4", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{ SuperscriptBox["n", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[CurlyPhi]", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "900"}], " ", SubscriptBox["a", "n"]}], "-", RowBox[{"2700", " ", "n", " ", SubscriptBox["a", "n"]}], "-", RowBox[{"2925", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", "n"]}], "-", RowBox[{"1350", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", "n"]}], "-", RowBox[{"225", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", "n"]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[CurlyPhi]", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "225"}], " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"450", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"225", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"26", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"259", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"5", " ", SubscriptBox["a", "n"]}], "-", RowBox[{"28", " ", "n", " ", SubscriptBox["a", "n"]}], "-", RowBox[{"63", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", "n"]}], "-", RowBox[{"70", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", "n"]}], "-", RowBox[{"35", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", "n"]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[CurlyPhi]", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "900"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"2700", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"2925", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"1350", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"225", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"285", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"1088", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"1580", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"1036", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"259", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"5", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"28", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"63", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"70", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"35", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{ SuperscriptBox["n", "4"], " ", SubscriptBox["a", "n"]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[CurlyPhi]", "5"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "225"}], " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"450", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"225", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"285", " ", SubscriptBox["a", "n"]}], "+", RowBox[{"1088", " ", "n", " ", SubscriptBox["a", "n"]}], "+", RowBox[{"1580", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"1036", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"259", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", "n"]}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.822734558935092*^9, 3.822735083692437*^9}, CellLabel->"Out[47]=",ExpressionUUID->"5e899109-599b-493b-8383-a0a27707f0ee"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Coefficient", "[", RowBox[{ RowBox[{"\[ScriptCapitalL]", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["a", RowBox[{"n", "-", "j"}]], SuperscriptBox["\[CurlyPhi]", RowBox[{"n", "-", "j"}]]}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "3"}], "}"}]}], "]"}], "]"}], ",", "\[CurlyPhi]", ",", "n"}], "]"}]], "Input", CellChangeTimes->{{3.822734987607587*^9, 3.82273502072866*^9}}, CellLabel->"In[46]:=",ExpressionUUID->"40d11d55-b798-485c-8cdd-cf1d3c6856cf"], Cell[BoxData[ RowBox[{ FractionBox["1", SuperscriptBox["\[CurlyPhi]", "3"]], RowBox[{"(", RowBox[{ RowBox[{"81", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"108", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"54", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"12", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ SuperscriptBox["n", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"1433", " ", "\[CurlyPhi]", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"2240", " ", "n", " ", "\[CurlyPhi]", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"1323", " ", SuperscriptBox["n", "2"], " ", "\[CurlyPhi]", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"350", " ", SuperscriptBox["n", "3"], " ", "\[CurlyPhi]", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"35", " ", SuperscriptBox["n", "4"], " ", "\[CurlyPhi]", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"4248", " ", SuperscriptBox["\[CurlyPhi]", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"8392", " ", "n", " ", SuperscriptBox["\[CurlyPhi]", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"6242", " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[CurlyPhi]", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"2072", " ", SuperscriptBox["n", "3"], " ", SuperscriptBox["\[CurlyPhi]", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"259", " ", SuperscriptBox["n", "4"], " ", SuperscriptBox["\[CurlyPhi]", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"900", " ", SuperscriptBox["\[CurlyPhi]", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"2700", " ", "n", " ", SuperscriptBox["\[CurlyPhi]", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"2925", " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[CurlyPhi]", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"1350", " ", SuperscriptBox["n", "3"], " ", SuperscriptBox["\[CurlyPhi]", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"225", " ", SuperscriptBox["n", "4"], " ", SuperscriptBox["\[CurlyPhi]", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"16", " ", "\[CurlyPhi]", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"32", " ", "n", " ", "\[CurlyPhi]", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"24", " ", SuperscriptBox["n", "2"], " ", "\[CurlyPhi]", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"8", " ", SuperscriptBox["n", "3"], " ", "\[CurlyPhi]", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ SuperscriptBox["n", "4"], " ", "\[CurlyPhi]", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"201", " ", SuperscriptBox["\[CurlyPhi]", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"504", " ", "n", " ", SuperscriptBox["\[CurlyPhi]", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"483", " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[CurlyPhi]", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"210", " ", SuperscriptBox["n", "3"], " ", SuperscriptBox["\[CurlyPhi]", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"35", " ", SuperscriptBox["n", "4"], " ", SuperscriptBox["\[CurlyPhi]", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"285", " ", SuperscriptBox["\[CurlyPhi]", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"1088", " ", "n", " ", SuperscriptBox["\[CurlyPhi]", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"1580", " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[CurlyPhi]", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"1036", " ", SuperscriptBox["n", "3"], " ", SuperscriptBox["\[CurlyPhi]", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"259", " ", SuperscriptBox["n", "4"], " ", SuperscriptBox["\[CurlyPhi]", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"225", " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[CurlyPhi]", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"450", " ", SuperscriptBox["n", "3"], " ", SuperscriptBox["\[CurlyPhi]", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"225", " ", SuperscriptBox["n", "4"], " ", SuperscriptBox["\[CurlyPhi]", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ SuperscriptBox["\[CurlyPhi]", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"4", " ", "n", " ", SuperscriptBox["\[CurlyPhi]", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[CurlyPhi]", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"4", " ", SuperscriptBox["n", "3"], " ", SuperscriptBox["\[CurlyPhi]", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{ SuperscriptBox["n", "4"], " ", SuperscriptBox["\[CurlyPhi]", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"5", " ", SuperscriptBox["\[CurlyPhi]", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"28", " ", "n", " ", SuperscriptBox["\[CurlyPhi]", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"63", " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[CurlyPhi]", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"70", " ", SuperscriptBox["n", "3"], " ", SuperscriptBox["\[CurlyPhi]", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"35", " ", SuperscriptBox["n", "4"], " ", SuperscriptBox["\[CurlyPhi]", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"26", " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[CurlyPhi]", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"259", " ", SuperscriptBox["n", "4"], " ", SuperscriptBox["\[CurlyPhi]", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"225", " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[CurlyPhi]", "5"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"450", " ", SuperscriptBox["n", "3"], " ", SuperscriptBox["\[CurlyPhi]", "5"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"225", " ", SuperscriptBox["n", "4"], " ", SuperscriptBox["\[CurlyPhi]", "5"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{ SuperscriptBox["n", "4"], " ", SuperscriptBox["\[CurlyPhi]", "3"], " ", SubscriptBox["a", "n"]}], "-", RowBox[{"5", " ", SuperscriptBox["\[CurlyPhi]", "4"], " ", SubscriptBox["a", "n"]}], "-", RowBox[{"28", " ", "n", " ", SuperscriptBox["\[CurlyPhi]", "4"], " ", SubscriptBox["a", "n"]}], "-", RowBox[{"63", " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[CurlyPhi]", "4"], " ", SubscriptBox["a", "n"]}], "-", RowBox[{"70", " ", SuperscriptBox["n", "3"], " ", SuperscriptBox["\[CurlyPhi]", "4"], " ", SubscriptBox["a", "n"]}], "-", RowBox[{"35", " ", SuperscriptBox["n", "4"], " ", SuperscriptBox["\[CurlyPhi]", "4"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"285", " ", SuperscriptBox["\[CurlyPhi]", "5"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"1088", " ", "n", " ", SuperscriptBox["\[CurlyPhi]", "5"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"1580", " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[CurlyPhi]", "5"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"1036", " ", SuperscriptBox["n", "3"], " ", SuperscriptBox["\[CurlyPhi]", "5"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"259", " ", SuperscriptBox["n", "4"], " ", SuperscriptBox["\[CurlyPhi]", "5"], " ", SubscriptBox["a", "n"]}], "-", RowBox[{"900", " ", SuperscriptBox["\[CurlyPhi]", "6"], " ", SubscriptBox["a", "n"]}], "-", RowBox[{"2700", " ", "n", " ", SuperscriptBox["\[CurlyPhi]", "6"], " ", SubscriptBox["a", "n"]}], "-", RowBox[{"2925", " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[CurlyPhi]", "6"], " ", SubscriptBox["a", "n"]}], "-", RowBox[{"1350", " ", SuperscriptBox["n", "3"], " ", SuperscriptBox["\[CurlyPhi]", "6"], " ", SubscriptBox["a", "n"]}], "-", RowBox[{"225", " ", SuperscriptBox["n", "4"], " ", SuperscriptBox["\[CurlyPhi]", "6"], " ", SubscriptBox["a", "n"]}]}], ")"}]}]], "Output", CellChangeTimes->{3.822735023699149*^9}, CellLabel->"Out[46]=",ExpressionUUID->"a8610c98-4e12-48c6-a649-1d14dc177c76"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Collect", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Coefficient", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Expand", "[", RowBox[{ SuperscriptBox["\[CurlyPhi]", RowBox[{"3", "-", "n"}]], RowBox[{"\[ScriptCapitalL]", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["a", RowBox[{"n", "-", "j"}]], SuperscriptBox["\[CurlyPhi]", RowBox[{"n", "-", "j"}]]}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "3"}], "}"}]}], "]"}], "]"}]}], "]"}], ",", "\[CurlyPhi]", ",", "3"}], "]"}], ",", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{ SubscriptBox["a", "n"], ",", SubscriptBox["a", RowBox[{"n", "-", "1"}]], ",", SubscriptBox["a", RowBox[{"n", "-", "2"}]], ",", SubscriptBox["a", RowBox[{"n", "-", "3"}]]}], "}"}], ",", "Factor"}], "]"}]], "Input", CellChangeTimes->{{3.727269673580949*^9, 3.727269746717561*^9}, { 3.727269870639785*^9, 3.7272698939482727`*^9}, {3.7272699499244003`*^9, 3.727270070845549*^9}, {3.727270120130678*^9, 3.7272701430361643`*^9}, { 3.727270173059959*^9, 3.7272702869017887`*^9}, {3.727270973140992*^9, 3.727270977833088*^9}, {3.727271153990024*^9, 3.727271157168209*^9}}, CellLabel->"In[48]:=",ExpressionUUID->"d8172982-010f-4e7d-9fa8-1dd41e20e4c3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "225"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"285", "-", RowBox[{"518", " ", "n"}], "+", RowBox[{"259", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"28", " ", "n"}], "-", RowBox[{"63", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"70", " ", SuperscriptBox["n", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{ SuperscriptBox["n", "4"], " ", SubscriptBox["a", "n"]}]}]], "Output", CellChangeTimes->{3.8227351373201*^9}, CellLabel->"Out[48]=",ExpressionUUID->"d65fa3fe-1185-4a7e-8b3e-ebc723d69001"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["a", "0"], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "n_"], ":=", RowBox[{"0", "/;", RowBox[{"n", "<", "0"}]}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ SubscriptBox["a", "n_"], ":=", RowBox[{ SubscriptBox["a", "n"], "=", "\[IndentingNewLine]", RowBox[{ FractionBox[ RowBox[{"-", "1"}], SuperscriptBox["n", "4"]], RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"28", " ", "n"}], "-", RowBox[{"63", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"70", " ", SuperscriptBox["n", "3"]}], "-", RowBox[{"35", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"285", "-", RowBox[{"518", " ", "n"}], "+", RowBox[{"259", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"225", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}]}], " ", ")"}]}]}]}]}], "Input", CellChangeTimes->{{3.727270490551469*^9, 3.727270512080379*^9}, { 3.72727055022333*^9, 3.727270561624481*^9}, {3.727271268815675*^9, 3.727271310791649*^9}}, CellLabel->"In[49]:=",ExpressionUUID->"021e8276-7312-4364-ae1a-526527f10b8b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ SubscriptBox["a", "n"], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "20"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.727270458223547*^9, 3.727270480383953*^9}, { 3.727270571147882*^9, 3.727270574984758*^9}}, CellLabel->"In[52]:=",ExpressionUUID->"78f6085f-b1bd-467f-8bee-3f28110d3de6"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "5", ",", "45", ",", "545", ",", "7885", ",", "127905", ",", "2241225", ",", "41467725", ",", "798562125", ",", "15855173825", ",", "322466645545", ",", "6687295253325", ",", "140927922498025", ",", "3010302779775725", ",", "65046639827565525", ",", "1419565970145097545", ",", "31249959913055650125", ",", "693192670456484513025", ",", "15480814434909059226825", ",", "347819791175860063294125", ",", "7857219150562637891693385"}], "}"}]], "Output", CellChangeTimes->{3.822735265962545*^9}, CellLabel->"Out[52]=",ExpressionUUID->"bab8cdc9-e15d-4510-801f-9230f461b85e"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[CurlyPi]", RowBox[{"0", ",", "j_"}]], "[", "nmax_", "]"}], ":=", " ", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "0"}], ",", "1", ",", "0"}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["a", "n"], " ", FractionBox[ RowBox[{"n", "!"}], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "j"}], ")"}], "!"}]], SuperscriptBox["\[CurlyPhi]", RowBox[{"n", "-", "j"}]]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nmax"}], "}"}]}], "]"}], " ", "+", " ", SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], RowBox[{"nmax", "+", "1", "-", "j"}]]}]}]], "Input", CellChangeTimes->{{3.727294744895073*^9, 3.7272948440576878`*^9}, { 3.727296020684065*^9, 3.727296065246874*^9}, {3.727296118412669*^9, 3.727296145874072*^9}, {3.727296194417941*^9, 3.727296221901498*^9}, { 3.727296332031588*^9, 3.72729633591774*^9}}, CellLabel->"In[54]:=",ExpressionUUID->"1dfdcf3e-5213-488d-8a4c-8ac2c1f02b0a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[ScriptCapitalL]", "[", RowBox[{ SubscriptBox["\[CurlyPi]", RowBox[{"0", ",", "0"}]], "[", "100", "]"}], "]"}]], "Input", CellChangeTimes->{{3.7272948586073217`*^9, 3.727294941156129*^9}, { 3.727296267873308*^9, 3.72729627009278*^9}}, CellLabel->"In[55]:=",ExpressionUUID->"e289442d-f8a8-41d1-9ec9-40660c0240ee"], Cell[BoxData[ InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], "101"], SeriesData[$CellContext`\[CurlyPhi], 0, {}, 101, 101, 1], Editable->False]], "Output", CellChangeTimes->{3.822735433666819*^9}, CellLabel->"Out[55]=",ExpressionUUID->"0401256e-956f-4621-bdb3-6b478c4bcc52"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Normal", "[", RowBox[{ SubscriptBox["\[CurlyPi]", RowBox[{"0", ",", "0"}]], "[", RowBox[{"100", "k"}], "]"}], "]"}], "/.", RowBox[{"\[CurlyPhi]", "\[Rule]", RowBox[{ RowBox[{"-", "1"}], "/", "50"}]}]}], ",", "100"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "5"}], "}"}]}], "]"}], "//", "Column"}]], "Input", CellChangeTimes->{{3.7272956834362926`*^9, 3.727295694887532*^9}, { 3.727295732055458*^9, 3.727295889575654*^9}, {3.727296352008018*^9, 3.727296352637703*^9}}, CellLabel->"In[56]:=",ExpressionUUID->"7222437b-7414-4cc1-84f6-51ffa5aa1104"], Cell[BoxData[ TagBox[GridBox[{ {"0.9145973264422944400830021709053509881091465692374326494186206198305245\ 249160360915573950833980520234483923879983803`100."}, {"0.9145973264422944400830021709053509789692481969041765637481735239576570\ 122514782242052486006191161712340047165984541`100."}, {"0.9145973264422944400830021709053509789692481969041765637481735239558379\ 458920861423524795857794675989138423529020297`100."}, {"0.9145973264422944400830021709053509789692481969041765637481735239558379\ 458920861423524795857794669591924658428073051`100."}, {"0.9145973264422944400830021709053509789692481969041765637481735239558379\ 458920861423524795857794669591924658428073051`100."} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", CellChangeTimes->{3.822735575567623*^9}, CellLabel->"Out[56]=",ExpressionUUID->"336123ef-b920-4cce-9c4b-281ccf861fac"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Normal", "[", RowBox[{ SubscriptBox["\[CurlyPi]", RowBox[{"0", ",", "3"}]], "[", RowBox[{"100", "k"}], "]"}], "]"}], "/.", RowBox[{"\[CurlyPhi]", "\[Rule]", RowBox[{ RowBox[{"-", "1"}], "/", "50"}]}]}], ",", "100"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "5"}], "}"}]}], "]"}], "//", "Column"}]], "Input", CellChangeTimes->{{3.7272956834362926`*^9, 3.727295694887532*^9}, { 3.727295732055458*^9, 3.727295889575654*^9}, {3.727296352008018*^9, 3.72729636862985*^9}}, CellLabel->"In[57]:=",ExpressionUUID->"20da6bf0-e6d0-47e6-9199-130f7a449544"], Cell[BoxData[ TagBox[GridBox[{ {"1260.\ 612379009442899056699629376904819391250687437814099496032356712655559208053376\ 9319094633282882617930979478814714463`100."}, {"1260.\ 612379009442899056699630507965112679124545754994336243701983894185947783981561\ 1954165906746217266396898694732586206`100."}, {"1260.\ 612379009442899056699630507965112679124545754994336245511954495033698709750311\ 3489324165220705663571027198819409501`100."}, {"1260.\ 612379009442899056699630507965112679124545754994336245511954495033698709750311\ 3489345683847004021120936468365124991`100."}, {"1260.\ 612379009442899056699630507965112679124545754994336245511954495033698709750311\ 348934568384700402112093646836493473`100."} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", CellChangeTimes->{3.822735638497693*^9}, CellLabel->"Out[57]=",ExpressionUUID->"28036c27-88bd-4849-8629-d332f4f8a42c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pi0soln", "=", "\[IndentingNewLine]", RowBox[{ RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"Flatten", "[", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalL]", "[", RowBox[{"pi0", "[", "\[CurlyPhi]", "]"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ TagBox[ StyleBox[ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "j", "]"}], "[", "pi0", "]"}], "[", RowBox[{ RowBox[{"-", "1"}], "/", "50"}], "]"}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm], "==", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Normal", "[", RowBox[{ SubscriptBox["\[CurlyPi]", RowBox[{"0", ",", "j"}]], "[", "500", "]"}], "]"}], "/.", RowBox[{"\[CurlyPhi]", "\[Rule]", RowBox[{ RowBox[{"-", "1"}], "/", "50"}]}]}], ",", "100"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", "pi0", ",", RowBox[{"{", RowBox[{"\[CurlyPhi]", ",", RowBox[{ RowBox[{"-", "1"}], "/", "7"}], ",", RowBox[{ RowBox[{"-", "1"}], "/", "50"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"AccuracyGoal", "\[Rule]", "65"}], ",", "\[IndentingNewLine]", RowBox[{"WorkingPrecision", "\[Rule]", "70"}], ",", "\[IndentingNewLine]", RowBox[{"MaxSteps", "\[Rule]", "15000"}], ",", " ", "\[IndentingNewLine]", RowBox[{"Method", "->", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", "9"}]}], "}"}]}]}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}]], "Input",\ CellChangeTimes->CompressedData[" 1:eJwdxU8oQ3EAB/AX2VoO5IJtNRxGyWENSWLv4DUlB2bl38pKjR3IwZ+V5V+v ZQ4K2xo7IFtbayWJ7LJCJITVdtprW9LyNk7jsFZ+33f49Kk3zg5OlVAUVUtg Q9nFsu6Gp40Nbgt22KfXcJuSZbE0Z9rC2vF+Lw7mk+wwWVRZbcOHf72/2DGy UsQ2mUWhJ2cmmhqxIeVR4Th/KpyRpN34qEp9gK369WMc4+QnOJf+9GOR+DqA f5h2n5OcNT8E8PxXSxi7ojPCOzU9Khc5NWkXVr8znJvcEWFS+Cwred295emB zo0YjrT6ONz9nBUORhP3++R4Iv+IR2XhF5z0q98wF1otaO54usu0WcTW5pCY Jj+xpeV4byxTgT11ZgUOfec1+NIe0uIP59UQ3mYKOsxSi3NYft63gJf8DguW Kr3C/yRY3w0= "], CellLabel->"In[58]:=",ExpressionUUID->"fb821dbe-476e-45c6-a703-b0475fdaea6f"], Cell[BoxData[ RowBox[{"{", RowBox[{"pi0", "\[Rule]", TagBox[ TemplateBox[{ RowBox[{ StyleBox[ TagBox["InterpolatingFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{ Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SummaryBoxOpener"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{ GrayLevel[0.6], AbsolutePointSize[5], PointBox[{1, 1}], PointBox[{2, 4}], PointBox[{3, 2}], PointBox[{4, 3}]}, {{}, {}, { AbsoluteThickness[1], Opacity[1.], LineBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5 3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86 ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm /j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA 42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK 7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82 7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7 /z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn q5SZmRFAL++xNeOlE0Dwt3AR "]]}}}, AspectRatio -> 1, Axes -> False, Background -> GrayLevel[0.93], Frame -> True, FrameStyle -> Directive[ GrayLevel[0.7], Thickness[Tiny]], FrameTicks -> None, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRange -> {{0, 5}, {0, 5}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1428571428571428571428571428571428571428571428571428571\ 42857142857142857142857142857142857142857`70."}], ",", RowBox[{"-", "0.02`70."}]}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SummaryBoxCloser"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{ GrayLevel[0.6], AbsolutePointSize[5], PointBox[{1, 1}], PointBox[{2, 4}], PointBox[{3, 2}], PointBox[{4, 3}]}, {{}, {}, { AbsoluteThickness[1], Opacity[1.], LineBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5 3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86 ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm /j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA 42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK 7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82 7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7 /z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn q5SZmRFAL++xNeOlE0Dwt3AR "]]}}}, AspectRatio -> 1, Axes -> False, Background -> GrayLevel[0.93], Frame -> True, FrameStyle -> Directive[ GrayLevel[0.7], Thickness[Tiny]], FrameTicks -> None, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRange -> {{0, 5}, {0, 5}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1428571428571428571428571428571428571428571428571428571\ 42857142857142857142857142857142857142857`70."}], ",", RowBox[{"-", "0.02`70."}]}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], ButtonBox[ DynamicBox[ ToBoxes[ If[ Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= "Local"], Style["This object cannot be used as input.", "SummaryEmbed"], BoxForm`EmbedSummaryLabel[InterpolatingFunction, 8853464, Dynamic[Typeset`embedState$$], Automatic]], StandardForm]], ButtonFunction :> BoxForm`EmbedSummaryInterpretation[ InterpolatingFunction, 6140145118194108989969847882901324220554142143604048438896, EvaluationBox[], Dynamic[Typeset`embedState$$], StandardForm, ElisionsDump`embedSummaryBoxes], DefaultBaseStyle -> "SummaryEmbedButton", ImageSize -> Inherited, BaseStyle -> {"DialogStyle"}, Enabled -> Dynamic[ And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === "Local", Typeset`embedState$$ === "Ready"]], Appearance -> Inherited, Method -> Inherited, Evaluator -> Automatic]}, "SummaryEmbedGrid"], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->( "InterpolatingFunction[{{-0.\ 1428571428571428571428571428571428571428571428571428571428571428571429, \ -0.02000000000000000000000000000000000000000000000000000000000000000000000}}, \ <>]"& )], False, BoxID -> 6140145118194108989969847882901324220554142143604048438896, Editable->False, SelectWithContents->True, Selectable->False]}], "}"}]], "Output", CellChangeTimes->{3.822735814358427*^9}, CellLabel->"Out[58]=",ExpressionUUID->"490a5c7e-f483-4ef9-adea-c607df1ea4cb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"pi0", "[", RowBox[{ RowBox[{"-", "1"}], "/", "7"}], "]"}], "/.", "pi0soln"}]], "Input", CellChangeTimes->{{3.7272971346371593`*^9, 3.727297159147325*^9}}, CellLabel->"In[59]:=",ExpressionUUID->"99e59561-8638-4b4e-8ee9-b182902ea2b3"], Cell[BoxData["0.\ 652016731083321642572026289351201789273874540455106499803211294747866669296695\ 442652323885786408`69.4128644339082"], "Output", CellChangeTimes->{3.822735904018145*^9}, CellLabel->"Out[59]=",ExpressionUUID->"2e2eb95d-3269-4af6-b256-3643649d74be"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["notimeL", "4"], "[", "2", "]"}], "=", RowBox[{"N", "[", " ", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], "2"], RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", "y", "]"}], " ", "2", " ", "y"}], ",", RowBox[{"{", RowBox[{"y", ",", SuperscriptBox["14", RowBox[{ RowBox[{"-", "1"}], "/", "2"}]], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"WorkingPrecision", "\[Rule]", "160"}], ",", " ", RowBox[{"AccuracyGoal", "\[Rule]", "80"}]}], "]"}]}], ",", "100"}], "]"}]}]], "Input", CellChangeTimes->{{3.7266106248648787`*^9, 3.726610660320937*^9}, { 3.726610719261757*^9, 3.726610725929802*^9}, {3.7266107587332277`*^9, 3.726610779143792*^9}, {3.726610885116241*^9, 3.726610894558548*^9}, { 3.7586287901251717`*^9, 3.758628791408915*^9}, {3.790433003215848*^9, 3.7904330115696783`*^9}, 3.822736006686638*^9}, CellLabel->"In[61]:=",ExpressionUUID->"b6b5e242-6fa2-442c-9108-3379bea61ab7"], Cell[BoxData["0.\ 919306742669121156539143569079392496808957631990441485323420716791519788408089\ 6562874242312568383411017944186149838`100."], "Output", CellChangeTimes->{3.822735959414144*^9, 3.822736016738641*^9}, CellLabel->"Out[61]=",ExpressionUUID->"a0fe1aef-30c3-4cd8-a458-5192bd67913f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["L", "4"], "[", "2", "]"}]], "Input", CellChangeTimes->{{3.7904329064443073`*^9, 3.790432918872306*^9}}, CellLabel->"In[62]:=",ExpressionUUID->"2c8d4034-4722-4338-bfa2-94a962be2a6d"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.970002`", ",", "0.919306742669121156539143569079392496808957631990441485323420716791519788\ 40809`50."}], "}"}]], "Output", CellChangeTimes->{3.822736038318882*^9}, CellLabel->"Out[62]=",ExpressionUUID->"22351b27-f31a-4959-bb87-e735c4b86761"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], RowBox[{"pi0", "[", RowBox[{ RowBox[{"-", "1"}], "/", "7"}], "]"}]}], RowBox[{ SubscriptBox["notimeL", "4"], "[", "2", "]"}]], "/.", "pi0soln"}]], "Input", CellChangeTimes->{{3.727297373186853*^9, 3.727297390197472*^9}, { 3.72734797239427*^9, 3.727347996608396*^9}, {3.7273483278521214`*^9, 3.727348336492856*^9}, {3.79043301935911*^9, 3.790433021378018*^9}}, CellLabel->"In[63]:=",ExpressionUUID->"18c33fa9-bbd6-4ac4-ac6e-d8640f43cd34"], Cell[BoxData["7.\ 000000000000000000000000000000000000000353842514617090305925126222802583356933\ 744580375207058361`69.4128644339082"], "Output", CellChangeTimes->{3.822736060537084*^9}, CellLabel->"Out[63]=",ExpressionUUID->"036bd21a-4d99-4e36-839a-8211fe5f118c"] }, Open ]], Cell[BoxData[ RowBox[{"%", "-", "7"}]], "Input", CellChangeTimes->{{3.727297532231038*^9, 3.7272975349317083`*^9}}, CellLabel->"In[64]:=",ExpressionUUID->"fccef74e-0c4d-43e7-9e5e-ec39a19cb8de"], Cell[BoxData["3.53842514617090305925126222802583356933744580375207058361`29.\ 11657640662347*^-40"], "Output", CellChangeTimes->{3.72729753704002*^9, 3.7273483522620077`*^9, 3.727518385254768*^9, 3.727518415518066*^9, 3.7275184552849073`*^9, 3.727518508186335*^9, 3.727791337544688*^9, 3.822736097451098*^9}, CellLabel->"Out[64]=",ExpressionUUID->"e9a19cd4-dd28-4242-a3ee-ccc1dbda19af"] }, Closed]] }, CellGrouping->Manual, WindowSize->{3586, 1882}, WindowMargins->{{979, Automatic}, {1169, Automatic}}, Magnification:>2. Inherited, FrontEndVersion->"12.2 for Mac OS X x86 (64-bit) (December 12, 2020)", StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", CharacterEncoding -> "UTF-8"], ExpressionUUID->"61f1a2ab-dec0-4b39-b0a7-791316acdad4" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 215, 7, 324, "Chapter",ExpressionUUID->"7f801834-af09-4827-bcfd-129697f8ac14"], Cell[CellGroupData[{ Cell[798, 31, 180, 3, 63, "Subsection",ExpressionUUID->"732621cb-41bd-43be-96b9-823436736144"], Cell[981, 36, 759, 27, 162, "Input",ExpressionUUID->"6ff366a2-4e7e-45da-88a1-ae0d3bdd34e5"], Cell[CellGroupData[{ Cell[1765, 67, 356, 8, 81, "Input",ExpressionUUID->"5121fd4f-cf94-4259-8de5-b7345f2ec41f"], Cell[2124, 77, 495, 14, 109, "Output",ExpressionUUID->"9c2abaeb-b861-4e24-b70c-d6bd02c90d18"] }, Open ]], Cell[CellGroupData[{ Cell[2656, 96, 338, 8, 81, "Input",ExpressionUUID->"fd3d0468-26ee-4c81-8df0-26ca8a28902f"], Cell[2997, 106, 148, 2, 103, "Output",ExpressionUUID->"a01b1395-264b-4462-8d29-c681ba347981"] }, Open ]], Cell[CellGroupData[{ Cell[3182, 113, 341, 8, 81, "Input",ExpressionUUID->"6fff0876-09e0-41d4-a448-2126a1b217ae"], Cell[3526, 123, 148, 2, 103, "Output",ExpressionUUID->"c4faa6f5-0edb-4b87-866d-cfe4e1502a9f"] }, Open ]], Cell[CellGroupData[{ Cell[3711, 130, 275, 6, 81, "Input",ExpressionUUID->"0f9e14c5-4cc7-4cf3-80e7-2ef4b58735d3"], Cell[3989, 138, 229, 5, 103, "Output",ExpressionUUID->"06011fa4-64e7-4254-87cd-beccafb77dba"] }, Open ]], Cell[CellGroupData[{ Cell[4255, 148, 386, 9, 87, "Input",ExpressionUUID->"fc896804-11c2-46ad-a69d-71701b4ebc93"], Cell[4644, 159, 546, 15, 103, "Output",ExpressionUUID->"33ec2d2e-3c09-4eca-858a-5bbb12889c9d"] }, Open ]], Cell[5205, 177, 230, 4, 67, "Text",ExpressionUUID->"5b5b0435-5bf9-47f9-b2bc-c0a880ea7733"], Cell[CellGroupData[{ Cell[5460, 185, 387, 7, 81, "Input",ExpressionUUID->"892df287-70aa-46c4-a0d7-7ba820c680eb"], Cell[5850, 194, 148, 2, 103, "Output",ExpressionUUID->"2855fd23-87f9-4d89-80c6-3fbc07bd881f"] }, Open ]], Cell[CellGroupData[{ Cell[6035, 201, 235, 4, 81, "Input",ExpressionUUID->"445f9481-bab0-4afb-a519-ef230e60ba43"], Cell[6273, 207, 151, 2, 103, "Output",ExpressionUUID->"03a73ded-b838-4c4f-85b0-e197b5b953e6"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[6473, 215, 182, 3, 63, "Subsection",ExpressionUUID->"1750e188-f589-44d0-aa0b-3b0e2c42d840"], Cell[6658, 220, 839, 14, 473, "Input",ExpressionUUID->"0c92a13e-70d3-4490-87ef-bc1689e54af2", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[7500, 236, 1724, 39, 403, "Input",ExpressionUUID->"a41721b3-0d86-4fd0-91ae-6c71d54049ef", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[CellGroupData[{ Cell[9249, 279, 294, 5, 103, "Input",ExpressionUUID->"9d1a3f61-a6df-4757-b460-503794d2ec60", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[9546, 286, 158, 2, 103, "Output",ExpressionUUID->"306c20cc-0f59-4f3e-b92d-c4b839b831ce"] }, Open ]], Cell[CellGroupData[{ Cell[9741, 293, 324, 6, 103, "Input",ExpressionUUID->"e2cab291-bdda-42fe-9822-6120f4de5d97", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[10068, 301, 158, 2, 103, "Output",ExpressionUUID->"1be0d449-a3f3-417f-96be-99b6014d0604"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[10275, 309, 210, 4, 63, "Subsection",ExpressionUUID->"d68a2ed9-c293-4679-9f3e-a27a59f39674"], Cell[10488, 315, 2514, 60, 227, "Input",ExpressionUUID->"b2e6fa49-b7a6-4731-b5c9-2993db0b8981"], Cell[13005, 377, 1016, 23, 192, "Input",ExpressionUUID->"da88de60-83a3-4906-be3c-b1a89a9ee219"], Cell[CellGroupData[{ Cell[14046, 404, 227, 4, 103, "Input",ExpressionUUID->"f7999450-65b6-4ce2-82ba-3d87f43c603c"], Cell[14276, 410, 13522, 399, 268, "Output",ExpressionUUID->"a0c3aa35-a03e-4305-8f20-dddb245840c3"] }, Open ]], Cell[CellGroupData[{ Cell[27835, 814, 1116, 28, 109, "Input",ExpressionUUID->"891fbab4-ab5f-4138-a7d5-39269ccbc148"], Cell[28954, 844, 237, 4, 103, "Output",ExpressionUUID->"a6906ee3-6796-4a97-ba0d-112aac9afb6c"] }, Open ]], Cell[CellGroupData[{ Cell[29228, 853, 950, 25, 109, "Input",ExpressionUUID->"de35b3dd-acc5-4e34-b761-8b9cd715b582"], Cell[30181, 880, 191, 3, 103, "Output",ExpressionUUID->"6d47cad2-9497-4331-9955-455b16d702b5"] }, Open ]], Cell[CellGroupData[{ Cell[30409, 888, 1180, 28, 109, "Input",ExpressionUUID->"f434e898-3623-4137-96f1-a72648877f4a"], Cell[31592, 918, 315, 7, 103, "Output",ExpressionUUID->"e75e10ee-224e-4f4a-aa7c-f6a96e91ddbe"] }, Open ]], Cell[CellGroupData[{ Cell[31944, 930, 974, 27, 146, "Input",ExpressionUUID->"6357ded9-8aa2-4069-a21d-8d7d25329653"], Cell[32921, 959, 315, 7, 103, "Output",ExpressionUUID->"97b4a746-c39e-426d-872d-5d19a96b11aa"] }, Open ]], Cell[CellGroupData[{ Cell[33273, 971, 332, 6, 103, "Input",ExpressionUUID->"a286b12e-c890-4e1c-a434-a1a8ecd9613d"], Cell[33608, 979, 193, 2, 103, "Output",ExpressionUUID->"4c7080ad-0c22-4435-83da-6c80c5da0ce3"] }, Open ]], Cell[33816, 984, 968, 23, 240, "Input",ExpressionUUID->"4b1c69c2-0f89-4f31-a389-835ed66b1dc7"], Cell[34787, 1009, 1093, 34, 146, "Input",ExpressionUUID->"47e18c1a-53d2-4c07-a15f-5d3b9570e917"], Cell[CellGroupData[{ Cell[35905, 1047, 175, 2, 103, "Input",ExpressionUUID->"d9b5b023-5561-4887-a879-6d124725c053"], Cell[36083, 1051, 7077, 217, 227, "Output",ExpressionUUID->"5c76b659-82eb-4c5c-b2d8-8f8d1f67ae42"] }, Open ]], Cell[CellGroupData[{ Cell[43197, 1273, 317, 7, 103, "Input",ExpressionUUID->"ce315205-900c-4d20-91cd-5e92fbad3a60"], Cell[43517, 1282, 6097, 199, 227, "Output",ExpressionUUID->"199b5618-3820-4ecf-9ca5-d9ee34988b19"] }, Open ]], Cell[CellGroupData[{ Cell[49651, 1486, 197, 3, 103, "Input",ExpressionUUID->"1824e7ca-a313-4329-93bb-f7509396e732"], Cell[49851, 1491, 297, 7, 103, "Output",ExpressionUUID->"0320e9a7-b8dc-487c-ae18-1ec58fc254c8"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[50197, 1504, 208, 4, 63, "Subsection",ExpressionUUID->"8d7fd4cc-ee8a-4a23-be94-4cfa4424c0cc"], Cell[50408, 1510, 2793, 81, 518, "Input",ExpressionUUID->"870793a2-5973-4925-b21b-a8fd1f0444ff"], Cell[CellGroupData[{ Cell[53226, 1595, 845, 21, 155, "Input",ExpressionUUID->"1f94d4ef-1570-4d8e-8580-b33a76002940"], Cell[54074, 1618, 9684, 319, 293, "Output",ExpressionUUID->"5e899109-599b-493b-8383-a0a27707f0ee"] }, Open ]], Cell[CellGroupData[{ Cell[63795, 1942, 569, 15, 109, "Input",ExpressionUUID->"40d11d55-b798-485c-8cdd-cf1d3c6856cf"], Cell[64367, 1959, 11630, 350, 262, "Output",ExpressionUUID->"a8610c98-4e12-48c6-a649-1d14dc177c76"] }, Open ]], Cell[CellGroupData[{ Cell[76034, 2314, 1451, 35, 247, "Input",ExpressionUUID->"d8172982-010f-4e7d-9fa8-1dd41e20e4c3"], Cell[77488, 2351, 1318, 46, 109, "Output",ExpressionUUID->"d65fa3fe-1185-4a7e-8b3e-ebc723d69001"] }, Open ]], Cell[78821, 2400, 1999, 62, 311, "Input",ExpressionUUID->"021e8276-7312-4364-ae1a-526527f10b8b"], Cell[CellGroupData[{ Cell[80845, 2466, 358, 8, 103, "Input",ExpressionUUID->"78f6085f-b1bd-467f-8bee-3f28110d3de6"], Cell[81206, 2476, 647, 11, 145, "Output",ExpressionUUID->"bab8cdc9-e15d-4510-801f-9230f461b85e"] }, Open ]], Cell[81868, 2490, 1103, 29, 136, "Input",ExpressionUUID->"1dfdcf3e-5213-488d-8a4c-8ac2c1f02b0a"], Cell[CellGroupData[{ Cell[82996, 2523, 352, 7, 107, "Input",ExpressionUUID->"e289442d-f8a8-41d1-9ec9-40660c0240ee"], Cell[83351, 2532, 314, 7, 103, "Output",ExpressionUUID->"0401256e-956f-4621-bdb3-6b478c4bcc52"] }, Open ]], Cell[CellGroupData[{ Cell[83702, 2544, 773, 21, 107, "Input",ExpressionUUID->"7222437b-7414-4cc1-84f6-51ffa5aa1104"], Cell[84478, 2567, 1004, 18, 232, "Output",ExpressionUUID->"336123ef-b920-4cce-9c4b-281ccf861fac"] }, Open ]], Cell[CellGroupData[{ Cell[85519, 2590, 772, 21, 107, "Input",ExpressionUUID->"20da6bf0-e6d0-47e6-9199-130f7a449544"], Cell[86294, 2613, 1028, 23, 232, "Output",ExpressionUUID->"28036c27-88bd-4849-8629-d332f4f8a42c"] }, Open ]], Cell[CellGroupData[{ Cell[87359, 2641, 2646, 69, 312, "Input",ExpressionUUID->"fb821dbe-476e-45c6-a703-b0475fdaea6f"], Cell[90008, 2712, 11563, 234, 190, "Output",ExpressionUUID->"490a5c7e-f483-4ef9-adea-c607df1ea4cb"] }, Open ]], Cell[CellGroupData[{ Cell[101608, 2951, 277, 6, 103, "Input",ExpressionUUID->"99e59561-8638-4b4e-8ee9-b182902ea2b3"], Cell[101888, 2959, 267, 4, 103, "Output",ExpressionUUID->"2e2eb95d-3269-4af6-b256-3643649d74be"] }, Open ]], Cell[CellGroupData[{ Cell[102192, 2968, 1127, 28, 109, "Input",ExpressionUUID->"b6b5e242-6fa2-442c-9108-3379bea61ab7"], Cell[103322, 2998, 296, 4, 103, "Output",ExpressionUUID->"a0fe1aef-30c3-4cd8-a458-5192bd67913f"] }, Open ]], Cell[CellGroupData[{ Cell[103655, 3007, 223, 4, 103, "Input",ExpressionUUID->"2c8d4034-4722-4338-bfa2-94a962be2a6d"], Cell[103881, 3013, 293, 7, 103, "Output",ExpressionUUID->"22351b27-f31a-4959-bb87-e735c4b86761"] }, Open ]], Cell[CellGroupData[{ Cell[104211, 3025, 557, 14, 143, "Input",ExpressionUUID->"18c33fa9-bbd6-4ac4-ac6e-d8640f43cd34"], Cell[104771, 3041, 267, 4, 103, "Output",ExpressionUUID->"036bd21a-4d99-4e36-839a-8211fe5f118c"] }, Open ]], Cell[105053, 3048, 196, 3, 103, "Input",ExpressionUUID->"fccef74e-0c4d-43e7-9e5e-ec39a19cb8de"], Cell[105252, 3053, 394, 5, 103, "Output",ExpressionUUID->"e9a19cd4-dd28-4242-a3ee-ccc1dbda19af"] }, Closed]] } ] *)