(* 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[ 129999, 3709] NotebookOptionsPosition[ 121753, 3561] NotebookOutlinePosition[ 122218, 3579] CellTagsIndexPosition[ 122175, 3576] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ 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}},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}},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.727095684874606*^9, 3.7272177942143793`*^9, 3.727788483899871*^9},ExpressionUUID->"abb50270-9ac3-47aa-9b93-\ efa50dbc7a8a"] }, 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}},ExpressionUUID->"fd3d0468-26ee-4c81-8df0-\ 26ca8a28902f"], Cell[BoxData["0"], "Output", CellChangeTimes->{{3.727788531372333*^9, 3.727788543640813*^9}},ExpressionUUID->"b52534ca-799f-4e4b-b3d4-\ 70b6d98e5923"] }, 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}},ExpressionUUID->"6fff0876-09e0-41d4-a448-\ 2126a1b217ae"], Cell[BoxData["0"], "Output", CellChangeTimes->{{3.727788579566821*^9, 3.7277885923355618`*^9}},ExpressionUUID->"7608f820-b4e8-4eaf-ae98-\ 0055a4539868"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"N", "[", "x", "]"}], ",", RowBox[{"N", "[", "y", "]"}]}], "}"}]], "Input", CellChangeTimes->{{3.72709575978401*^9, 3.7270957747923307`*^9}},ExpressionUUID->"0f9e14c5-4cc7-4cf3-80e7-\ 2ef4b58735d3"], Cell[BoxData[ RowBox[{"{", RowBox[{"7.381175940895658`", ",", "7.381175940895658`"}], "}"}]], "Output",\ CellChangeTimes->{3.727095776255129*^9, 3.7272177942538157`*^9, 3.727788611940262*^9},ExpressionUUID->"ad81da37-a675-4d6a-a9d0-\ 277921edbd66"] }, 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}},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.727095797756173*^9, 3.72721779430608*^9, 3.727788619993443*^9},ExpressionUUID->"167451ab-f33d-42a8-b2ac-\ b2d70ac585bd"] }, Open ]], Cell["The following is a one line solution:", "Text", CellChangeTimes->{{3.727219024688382*^9, 3.727219042194901*^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},ExpressionUUID->"892df287-70aa-46c4-a0d7-\ 7ba820c680eb"], Cell[BoxData["t"], "Output", CellChangeTimes->{ 3.7270957143213053`*^9, 3.72709580506767*^9, 3.727097004387701*^9, { 3.727097317555951*^9, 3.727097324004271*^9}, 3.727217806840033*^9, 3.727788653943489*^9},ExpressionUUID->"98ab9891-99bf-43bb-a6d8-\ 932adfd53421"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"x", "\[Equal]", "y"}], "//", "FullSimplify"}]], "Input", CellChangeTimes->{{3.727788713442153*^9, 3.727788740257019*^9}},ExpressionUUID->"445f9481-bab0-4afb-a519-\ ef230e60ba43"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.727788726959141*^9, 3.727788741799437*^9}},ExpressionUUID->"33a9c46f-a2bc-44ba-9cf5-\ beff3e4ed4ad"] }, 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},ExpressionUUID->"0c92a13e-70d3-4490-87ef-\ bc1689e54af2"], Cell[BoxData[ RowBox[{ RowBox[{"adlerchecksum", "[", "str_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"codes", ",", "mlist", ",", "m", ",", "n"}], "}"}], ",", "\[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", "]"}], ",", "65521"}], "]"}]}], ";", " ", "\[IndentingNewLine]", " ", RowBox[{"n", "=", RowBox[{"Mod", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"Rest", "[", "mlist", "]"}], "]"}], ",", "65521"}], "]"}]}], ";", "\[IndentingNewLine]", " ", RowBox[{"m", "+", RowBox[{"65536", "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}},ExpressionUUID->"a41721b3-0d86-4fd0-91ae-\ 6c71d54049ef"], Cell[BoxData[ RowBox[{"adlerchecksum", "[", "str", "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{{3.728303751239009*^9, 3.728303759738122*^9}, 3.728382001199139*^9},ExpressionUUID->"9d1a3f61-a6df-4757-b460-\ 503794d2ec60"], Cell[BoxData["3664611398"], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{{3.728303761030486*^9, 3.728303779842127*^9}, 3.728304167789312*^9, 3.728304252789721*^9, 3.72830431984262*^9, 3.7283049400934*^9, 3.72838200119928*^9, 3.7295110162654133`*^9},ExpressionUUID->"a23bbab4-591a-46e5-ae64-\ 6257b456e2d9"], Cell[BoxData[ RowBox[{"Hash", "[", RowBox[{"str", ",", "\"\\""}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{{3.728303893422147*^9, 3.7283039121449947`*^9}, 3.728382001199471*^9},ExpressionUUID->"e2cab291-bdda-42fe-9822-\ 6120f4de5d97"], Cell[BoxData["3664611398"], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{3.728303913375889*^9, 3.7283041722512083`*^9, 3.728304252849924*^9, 3.7283043248756313`*^9, 3.728304955224704*^9, 3.728382001199626*^9, 3.729511022268339*^9},ExpressionUUID->"83e58c9f-26d7-4f88-925e-\ de135c32560d"] }, 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"}], ",", "284", ",", RowBox[{"-", "1358"}], ",", RowBox[{"-", "1184"}], ",", RowBox[{"-", "832"}], ",", RowBox[{"-", "144"}], ",", "784", ",", RowBox[{"-", "636"}], ",", "444", ",", "320", ",", "1870", ",", RowBox[{"-", "784"}], ",", RowBox[{"-", "2768"}], ",", RowBox[{"-", "112"}], ",", "1378", ",", RowBox[{"-", "1280"}], ",", "1568", ",", "760", ",", "666", ",", "400", ",", RowBox[{"-", "518"}], ",", "896", ",", RowBox[{"-", "547"}], ",", "396", ",", "1296", ",", "288", ",", "756", ",", "518", ",", "1944", ",", RowBox[{"-", "128"}], ",", RowBox[{"-", "3296"}], ",", "504", ",", RowBox[{"-", "848"}], ",", RowBox[{"-", "896"}], ",", RowBox[{"-", "560"}], ",", "1432", ",", RowBox[{"-", "1120"}], ",", RowBox[{"-", "592"}], ",", RowBox[{"-", "2966"}], ",", "1792", ",", "2800", ",", "392", ",", "192", ",", RowBox[{"-", "784"}], ",", RowBox[{"-", "504"}], ",", "592", ",", RowBox[{"-", "2660"}], ",", RowBox[{"-", "1076"}], ",", "392", ",", RowBox[{"-", "1384"}], ",", "510", ",", RowBox[{"-", "1136"}], ",", "592", ",", RowBox[{"-", "640"}], ",", "2738", ",", RowBox[{"-", "392"}], ",", RowBox[{"-", "1008"}], ",", "576", ",", RowBox[{"-", "2686"}], ",", RowBox[{"-", "480"}], ",", "2544", ",", "448", ",", "784", ",", "718", ",", RowBox[{"-", "1012"}], ",", "648", ",", "3136", ",", "2144", ",", "544", ",", "448", ",", RowBox[{"-", "1873"}], ",", "2072", ",", "2960", ",", RowBox[{"-", "1648"}], ",", "1858", ",", RowBox[{"-", "3040"}], ",", RowBox[{"-", "497"}], ",", RowBox[{"-", "448"}], ",", RowBox[{"-", "1600"}], ",", RowBox[{"-", "1620"}], ",", RowBox[{"-", "300"}], ",", RowBox[{"-", "2072"}], ",", RowBox[{"-", "2358"}], ",", "252", ",", RowBox[{"-", "1584"}], ",", "896", ",", "4844", ",", RowBox[{"-", "1152"}], ",", RowBox[{"-", "2072"}], ",", "96", ",", RowBox[{"-", "560"}], ",", "2240", ",", "1392", ",", "512", ",", "1778", ",", RowBox[{"-", "2708"}], ",", RowBox[{"-", "2016"}], ",", "196", ",", "1214", ",", "2072", ",", "1040"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.726609839169161*^9, 3.726609883994378*^9}}, CellLabel-> "In[118]:=",ExpressionUUID->"b2e6fa49-b7a6-4731-b5c9-2993db0b8981"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", "y", "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["F", "4"], "[", "y_", "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"wt4coeffs", "\[LeftDoubleBracket]", RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], "\[Pi]", " ", "n", " ", "y"}]]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "199"}], "}"}]}], "]"}]}], ";"}]}], "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}}, CellLabel-> "In[119]:=",ExpressionUUID->"da88de60-83a3-4906-be3c-b1a89a9ee219"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["F", "4"], "[", "y", "]"}]], "Input", CellChangeTimes->{{3.7273476679490643`*^9, 3.727347676799362*^9}}, CellLabel-> "In[121]:=",ExpressionUUID->"f7999450-65b6-4ce2-82ba-3d87f43c603c"], Cell[BoxData[ RowBox[{ RowBox[{"1040", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "398"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"2072", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "396"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"1214", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "394"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"196", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "392"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"2016", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "390"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"2708", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "388"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"1778", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "386"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"512", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "384"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"1392", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "382"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"2240", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "380"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"560", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "378"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"96", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "376"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"2072", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "374"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"1152", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "372"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"4844", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "370"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"896", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "368"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"1584", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "366"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"252", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "364"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"2358", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "362"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"2072", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "360"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"300", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "358"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"1620", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "356"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"1600", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "354"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"448", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "352"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"497", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "350"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"3040", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "348"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"1858", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "346"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"1648", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "344"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"2960", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "342"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"2072", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "340"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"1873", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "338"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"448", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "336"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"544", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "334"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"2144", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "332"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"3136", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "330"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"648", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "328"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"1012", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "326"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"718", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "324"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"784", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "322"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"448", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "320"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"2544", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "318"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"480", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "316"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"2686", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "314"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"576", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "312"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"1008", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "310"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"392", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "308"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"2738", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "306"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"640", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "304"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"592", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "302"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"1136", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "300"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"510", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "298"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"1384", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "296"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"392", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "294"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"1076", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "292"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"2660", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "290"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"592", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "288"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"504", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "286"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"784", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "284"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"192", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "282"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"392", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "280"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"2800", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "278"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"1792", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "276"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"2966", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "274"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"592", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "272"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"1120", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "270"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"1432", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "268"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"560", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "266"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"896", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "264"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"848", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "262"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"504", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "260"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"3296", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "258"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"128", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "256"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"1944", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "254"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"518", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "252"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"756", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "250"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"288", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "248"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"1296", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "246"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"396", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "244"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"547", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "242"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"896", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "240"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"518", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "238"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"400", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "236"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"666", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "234"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"760", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "232"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"1568", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "230"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"1280", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "228"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"1378", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "226"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"112", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "224"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"2768", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "222"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"784", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "220"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"1870", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "218"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"320", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "216"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"444", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "214"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"636", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "212"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"784", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "210"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"144", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "208"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"832", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "206"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"1184", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "204"}], " ", "\[Pi]", " ", "y"}]]}], "-", RowBox[{"1358", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "202"}], " ", "\[Pi]", " ", "y"}]]}], "+", RowBox[{"284", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "200"}], " ", "\[Pi]", " ", "y"}]]}], "-", 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.7273476779062653`*^9, 3.7275184319508743`*^9, 3.7275184761334677`*^9, 3.727789628551672*^9, 3.790401708339019*^9}, CellLabel-> "Out[121]=",ExpressionUUID->"b8d50e62-0a2d-4e46-b951-6f5c66caa3c5"] }, 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[{ SubscriptBox["F", "4"], "[", "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}}, CellLabel-> "In[122]:=",ExpressionUUID->"891fbab4-ab5f-4138-a7d5-39269ccbc148"], Cell[BoxData["0.\ 919306742669121156539143569079392496808957631990441485323420716791519788358758\ 0558043620220999199669556269184889174`100."], "Output", CellChangeTimes->{3.727347747352231*^9, 3.727518433941618*^9, 3.727518480043498*^9, 3.7277896898728247`*^9, 3.790401710453426*^9}, CellLabel-> "Out[122]=",ExpressionUUID->"c1271639-b718-4d78-80c0-0140a3e69e92"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"term200", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], "2"], RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"1040", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "398"}], " ", "\[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}}, CellLabel-> "In[123]:=",ExpressionUUID->"de35b3dd-acc5-4e34-b761-8b9cd715b582"], Cell[BoxData["1.309019503972078`*^-144"], "Output", CellChangeTimes->{3.727347862020569*^9, 3.727518434087474*^9, 3.727518480162531*^9, 3.7277897165460987`*^9, 3.790401710577779*^9}, CellLabel-> "Out[123]=",ExpressionUUID->"a4ae8dac-0307-4b4a-a2a3-204828a2348b"] }, 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[{ SubscriptBox["F", "4"], "[", "y", "]"}], " ", "2", " ", "y"}], ",", RowBox[{"{", RowBox[{"y", ",", SuperscriptBox["14", RowBox[{ RowBox[{"-", "1"}], "/", "2"}]], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"WorkingPrecision", "\[Rule]", "160"}], ",", " ", RowBox[{"AccuracyGoal", "\[Rule]", "80"}]}], "]"}]}], ",", "100"}], "]"}], "//", "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}}, CellLabel-> "In[124]:=",ExpressionUUID->"f434e898-3623-4137-96f1-a72648877f4a"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.048864`", ",", "0.919306742669121156539143569079392496808957631990441485323420716791519788\ 3587580558043620220999199669556269184889174`100."}], "}"}]], "Output", CellChangeTimes->{ 3.727347747352231*^9, 3.727518433941618*^9, 3.727518480043498*^9, 3.7277896898728247`*^9, {3.758628784824202*^9, 3.758628794012116*^9}, 3.7904017126299973`*^9}, CellLabel-> "Out[124]=",ExpressionUUID->"af56314c-644f-424a-b583-a85a5aabde82"] }, 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", ",", "199"}], "}"}]}], "]"}]}], ",", "100"}], "]"}]}], "//", "Timing"}]], "Input", CellChangeTimes->{{3.758629575827139*^9, 3.758629741163196*^9}, { 3.758629839698571*^9, 3.7586298565624857`*^9}}, CellLabel-> "In[125]:=",ExpressionUUID->"6357ded9-8aa2-4069-a21d-8d7d25329653"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.034977`", ",", "0.919306742669121156539143569079392496808957631990441485323420716791519788\ 3587580558043620220999199669556292257026716`100."}], "}"}]], "Output", CellChangeTimes->{ 3.758629745229706*^9, {3.758629842813406*^9, 3.758629858861557*^9}, 3.790401712743083*^9}, CellLabel-> "Out[125]=",ExpressionUUID->"c1a33139-6dc4-45ab-aac9-a730a3540636"] }, 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["199", "j"], "]"}]}], "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"q", ",", "0", ",", "199"}], "}"}]}], "]"}]}]}]], "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}}, CellLabel-> "In[126]:=",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[127]:=",ExpressionUUID->"47e18c1a-53d2-4c07-a15f-5d3b9570e917"], Cell[CellGroupData[{ Cell[BoxData["expr"], "Input", CellChangeTimes->{{3.790401565766665*^9, 3.790401569603715*^9}}, CellLabel-> "In[128]:=",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"]}], "+", RowBox[{"284", " ", SuperscriptBox["q", "100"]}], "-", RowBox[{"1358", " ", SuperscriptBox["q", "101"]}], "-", RowBox[{"1184", " ", SuperscriptBox["q", "102"]}], "-", RowBox[{"832", " ", SuperscriptBox["q", "103"]}], "-", RowBox[{"144", " ", SuperscriptBox["q", "104"]}], "+", RowBox[{"784", " ", SuperscriptBox["q", "105"]}], "-", RowBox[{"636", " ", SuperscriptBox["q", "106"]}], "+", RowBox[{"444", " ", SuperscriptBox["q", "107"]}], "+", RowBox[{"320", " ", SuperscriptBox["q", "108"]}], "+", RowBox[{"1870", " ", SuperscriptBox["q", "109"]}], "-", RowBox[{"784", " ", SuperscriptBox["q", "110"]}], "-", RowBox[{"2768", " ", SuperscriptBox["q", "111"]}], "-", RowBox[{"112", " ", SuperscriptBox["q", "112"]}], "+", RowBox[{"1378", " ", SuperscriptBox["q", "113"]}], "-", RowBox[{"1280", " ", SuperscriptBox["q", "114"]}], "+", RowBox[{"1568", " ", SuperscriptBox["q", "115"]}], "+", RowBox[{"760", " ", SuperscriptBox["q", "116"]}], "+", RowBox[{"666", " ", SuperscriptBox["q", "117"]}], "+", RowBox[{"400", " ", SuperscriptBox["q", "118"]}], "-", RowBox[{"518", " ", SuperscriptBox["q", "119"]}], "+", RowBox[{"896", " ", SuperscriptBox["q", "120"]}], "-", RowBox[{"547", " ", SuperscriptBox["q", "121"]}], "+", RowBox[{"396", " ", SuperscriptBox["q", "122"]}], "+", RowBox[{"1296", " ", SuperscriptBox["q", "123"]}], "+", RowBox[{"288", " ", SuperscriptBox["q", "124"]}], "+", RowBox[{"756", " ", SuperscriptBox["q", "125"]}], "+", RowBox[{"518", " ", SuperscriptBox["q", "126"]}], "+", RowBox[{"1944", " ", SuperscriptBox["q", "127"]}], "-", RowBox[{"128", " ", SuperscriptBox["q", "128"]}], "-", RowBox[{"3296", " ", SuperscriptBox["q", "129"]}], "+", RowBox[{"504", " ", SuperscriptBox["q", "130"]}], "-", RowBox[{"848", " ", SuperscriptBox["q", "131"]}], "-", RowBox[{"896", " ", SuperscriptBox["q", "132"]}], "-", RowBox[{"560", " ", SuperscriptBox["q", "133"]}], "+", RowBox[{"1432", " ", SuperscriptBox["q", "134"]}], "-", RowBox[{"1120", " ", SuperscriptBox["q", "135"]}], "-", RowBox[{"592", " ", SuperscriptBox["q", "136"]}], "-", RowBox[{"2966", " ", SuperscriptBox["q", "137"]}], "+", RowBox[{"1792", " ", SuperscriptBox["q", "138"]}], "+", RowBox[{"2800", " ", SuperscriptBox["q", "139"]}], "+", RowBox[{"392", " ", SuperscriptBox["q", "140"]}], "+", RowBox[{"192", " ", SuperscriptBox["q", "141"]}], "-", RowBox[{"784", " ", SuperscriptBox["q", "142"]}], "-", RowBox[{"504", " ", SuperscriptBox["q", "143"]}], "+", RowBox[{"592", " ", SuperscriptBox["q", "144"]}], "-", RowBox[{"2660", " ", SuperscriptBox["q", "145"]}], "-", RowBox[{"1076", " ", SuperscriptBox["q", "146"]}], "+", RowBox[{"392", " ", SuperscriptBox["q", "147"]}], "-", RowBox[{"1384", " ", SuperscriptBox["q", "148"]}], "+", RowBox[{"510", " ", SuperscriptBox["q", "149"]}], "-", RowBox[{"1136", " ", SuperscriptBox["q", "150"]}], "+", RowBox[{"592", " ", SuperscriptBox["q", "151"]}], "-", RowBox[{"640", " ", SuperscriptBox["q", "152"]}], "+", RowBox[{"2738", " ", SuperscriptBox["q", "153"]}], "-", RowBox[{"392", " ", SuperscriptBox["q", "154"]}], "-", RowBox[{"1008", " ", SuperscriptBox["q", "155"]}], "+", RowBox[{"576", " ", SuperscriptBox["q", "156"]}], "-", RowBox[{"2686", " ", SuperscriptBox["q", "157"]}], "-", RowBox[{"480", " ", SuperscriptBox["q", "158"]}], "+", RowBox[{"2544", " ", SuperscriptBox["q", "159"]}], "+", RowBox[{"448", " ", SuperscriptBox["q", "160"]}], "+", RowBox[{"784", " ", SuperscriptBox["q", "161"]}], "+", RowBox[{"718", " ", SuperscriptBox["q", "162"]}], "-", RowBox[{"1012", " ", SuperscriptBox["q", "163"]}], "+", RowBox[{"648", " ", SuperscriptBox["q", "164"]}], "+", RowBox[{"3136", " ", SuperscriptBox["q", "165"]}], "+", RowBox[{"2144", " ", SuperscriptBox["q", "166"]}], "+", RowBox[{"544", " ", SuperscriptBox["q", "167"]}], "+", RowBox[{"448", " ", SuperscriptBox["q", "168"]}], "-", RowBox[{"1873", " ", SuperscriptBox["q", "169"]}], "+", RowBox[{"2072", " ", SuperscriptBox["q", "170"]}], "+", RowBox[{"2960", " ", SuperscriptBox["q", "171"]}], "-", RowBox[{"1648", " ", SuperscriptBox["q", "172"]}], "+", RowBox[{"1858", " ", SuperscriptBox["q", "173"]}], "-", RowBox[{"3040", " ", SuperscriptBox["q", "174"]}], "-", RowBox[{"497", " ", SuperscriptBox["q", "175"]}], "-", RowBox[{"448", " ", SuperscriptBox["q", "176"]}], "-", RowBox[{"1600", " ", SuperscriptBox["q", "177"]}], "-", RowBox[{"1620", " ", SuperscriptBox["q", "178"]}], "-", RowBox[{"300", " ", SuperscriptBox["q", "179"]}], "-", RowBox[{"2072", " ", SuperscriptBox["q", "180"]}], "-", RowBox[{"2358", " ", SuperscriptBox["q", "181"]}], "+", RowBox[{"252", " ", SuperscriptBox["q", "182"]}], "-", RowBox[{"1584", " ", SuperscriptBox["q", "183"]}], "+", RowBox[{"896", " ", SuperscriptBox["q", "184"]}], "+", RowBox[{"4844", " ", SuperscriptBox["q", "185"]}], "-", RowBox[{"1152", " ", SuperscriptBox["q", "186"]}], "-", RowBox[{"2072", " ", SuperscriptBox["q", "187"]}], "+", RowBox[{"96", " ", SuperscriptBox["q", "188"]}], "-", RowBox[{"560", " ", SuperscriptBox["q", "189"]}], "+", RowBox[{"2240", " ", SuperscriptBox["q", "190"]}], "+", RowBox[{"1392", " ", SuperscriptBox["q", "191"]}], "+", RowBox[{"512", " ", SuperscriptBox["q", "192"]}], "+", RowBox[{"1778", " ", SuperscriptBox["q", "193"]}], "-", RowBox[{"2708", " ", SuperscriptBox["q", "194"]}], "-", RowBox[{"2016", " ", SuperscriptBox["q", "195"]}], "+", RowBox[{"196", " ", SuperscriptBox["q", "196"]}], "+", RowBox[{"1214", " ", SuperscriptBox["q", "197"]}], "+", RowBox[{"2072", " ", SuperscriptBox["q", "198"]}], "+", RowBox[{"1040", " ", SuperscriptBox["q", "199"]}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "q", "]"}], "200"], SeriesData[$CellContext`q, 0, {}, 24, 4800, 24], Editable->False]}], SeriesData[$CellContext`q, 0, CompressedData[" 1:eJzV3D9rFFEUh+GrJjHqokOqICnGQhCrBCwWEVlslBQifoJlSSXBLFaWQ0iR IsUIFquIiIWVYAhiFcIUFiIiW1hYJDBFCguLJa5xE5Ndrx/iKeY06V4Ovzn3 /Lt3c6m1dP/hiRDCk6kQ/v+VNhyNRpI/KeHRxjB/D+vTw/wDzB9g/mUJjzaD +btYn1TCo01h/nnMz7H+iYRHm8f8D1ifexIe7RP2X/PrEh58/BeYf1vCo21X PP51fdmS8Ggl5t/B/FLXd8xfxPyWhEd7ivlvhlafJtY/l/Bobcx/jfna/wUc P7q+Hx5bfinh0aYxP8P8Ocx/pPufk5Lu6/tNvIDT+X8V+6/nlwzHzwrOz3X8 fRvY/+vY/zbmH2N9GhIebUzP7zg/XMP9wxXsf3Zk/b9R8fz/HZ+vizj/v8f8 OuY38Pf9aPGhxPHTk/Dg9zPPsD6bmN/9W+39WB/7Xz8l6TH+xy2/tPhwFetT ww8Ilive/zdw/epifV7h8xuw//P4/L6seP6cwf3PxiHe/2N9Cjy/6Pk9wfl/ Bc+nmzg+df9/97Tl93B8zv6u9v1LC+f/oPvzCUkPYYD7k+eYn+Pzq+/vMpyf d7D/a1j/BJ/fFPvfx/E/gfkdXL8y/f7nF36/jeNnHdd3vZ/v4vzTwflBz7/r WJ8HfTy/6/72rOXr+53C4nn/P4n3Y/p9yws8v3zB+UHHZwfvZ4bY/xzrr+Mz w/l/A+fPxzg/JDi/6f38Ms4/qb7/PSPp/v2M3n9+xfFTw/G/qt9X1Cy/iX8g nWJ9dPy/G9j4mcb65+cw/8DqcwvPRyme7y7o+3HML/D3fYv537A+P/5Y/ud9 yz+S8Ghd/H31/v8n/gcEGZ6/dHw2JTz4/WeB629b35/i/moP358u6vkO92/6 ffIWfh+o+88k+v8Pi0aDow== "], 24, 4800, 24], Editable->False]], "Output", CellChangeTimes->{{3.790401571568488*^9, 3.790401580631179*^9}, 3.790401761424863*^9}, CellLabel-> "Out[128]=",ExpressionUUID->"089089c9-a689-4b22-9ccc-ccdf749a2677"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Rest", "[", "wt4coeffs", "]"}], ".", SuperscriptBox["q", RowBox[{"Range", "[", "199", "]"}]]}]], "Input", CellChangeTimes->{{3.790401798146682*^9, 3.790401861003476*^9}}, CellLabel-> "In[129]:=",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"]}], "+", RowBox[{"284", " ", SuperscriptBox["q", "100"]}], "-", RowBox[{"1358", " ", SuperscriptBox["q", "101"]}], "-", RowBox[{"1184", " ", SuperscriptBox["q", "102"]}], "-", RowBox[{"832", " ", SuperscriptBox["q", "103"]}], "-", RowBox[{"144", " ", SuperscriptBox["q", "104"]}], "+", RowBox[{"784", " ", SuperscriptBox["q", "105"]}], "-", RowBox[{"636", " ", SuperscriptBox["q", "106"]}], "+", RowBox[{"444", " ", SuperscriptBox["q", "107"]}], "+", RowBox[{"320", " ", SuperscriptBox["q", "108"]}], "+", RowBox[{"1870", " ", SuperscriptBox["q", "109"]}], "-", RowBox[{"784", " ", SuperscriptBox["q", "110"]}], "-", RowBox[{"2768", " ", SuperscriptBox["q", "111"]}], "-", RowBox[{"112", " ", SuperscriptBox["q", "112"]}], "+", RowBox[{"1378", " ", SuperscriptBox["q", "113"]}], "-", RowBox[{"1280", " ", SuperscriptBox["q", "114"]}], "+", RowBox[{"1568", " ", SuperscriptBox["q", "115"]}], "+", RowBox[{"760", " ", SuperscriptBox["q", "116"]}], "+", RowBox[{"666", " ", SuperscriptBox["q", "117"]}], "+", RowBox[{"400", " ", SuperscriptBox["q", "118"]}], "-", RowBox[{"518", " ", SuperscriptBox["q", "119"]}], "+", RowBox[{"896", " ", SuperscriptBox["q", "120"]}], "-", RowBox[{"547", " ", SuperscriptBox["q", "121"]}], "+", RowBox[{"396", " ", SuperscriptBox["q", "122"]}], "+", RowBox[{"1296", " ", SuperscriptBox["q", "123"]}], "+", RowBox[{"288", " ", SuperscriptBox["q", "124"]}], "+", RowBox[{"756", " ", SuperscriptBox["q", "125"]}], "+", RowBox[{"518", " ", SuperscriptBox["q", "126"]}], "+", RowBox[{"1944", " ", SuperscriptBox["q", "127"]}], "-", RowBox[{"128", " ", SuperscriptBox["q", "128"]}], "-", RowBox[{"3296", " ", SuperscriptBox["q", "129"]}], "+", RowBox[{"504", " ", SuperscriptBox["q", "130"]}], "-", RowBox[{"848", " ", SuperscriptBox["q", "131"]}], "-", RowBox[{"896", " ", SuperscriptBox["q", "132"]}], "-", RowBox[{"560", " ", SuperscriptBox["q", "133"]}], "+", RowBox[{"1432", " ", SuperscriptBox["q", "134"]}], "-", RowBox[{"1120", " ", SuperscriptBox["q", "135"]}], "-", RowBox[{"592", " ", SuperscriptBox["q", "136"]}], "-", RowBox[{"2966", " ", SuperscriptBox["q", "137"]}], "+", RowBox[{"1792", " ", SuperscriptBox["q", "138"]}], "+", RowBox[{"2800", " ", SuperscriptBox["q", "139"]}], "+", RowBox[{"392", " ", SuperscriptBox["q", "140"]}], "+", RowBox[{"192", " ", SuperscriptBox["q", "141"]}], "-", RowBox[{"784", " ", SuperscriptBox["q", "142"]}], "-", RowBox[{"504", " ", SuperscriptBox["q", "143"]}], "+", RowBox[{"592", " ", SuperscriptBox["q", "144"]}], "-", RowBox[{"2660", " ", SuperscriptBox["q", "145"]}], "-", RowBox[{"1076", " ", SuperscriptBox["q", "146"]}], "+", RowBox[{"392", " ", SuperscriptBox["q", "147"]}], "-", RowBox[{"1384", " ", SuperscriptBox["q", "148"]}], "+", RowBox[{"510", " ", SuperscriptBox["q", "149"]}], "-", RowBox[{"1136", " ", SuperscriptBox["q", "150"]}], "+", RowBox[{"592", " ", SuperscriptBox["q", "151"]}], "-", RowBox[{"640", " ", SuperscriptBox["q", "152"]}], "+", RowBox[{"2738", " ", SuperscriptBox["q", "153"]}], "-", RowBox[{"392", " ", SuperscriptBox["q", "154"]}], "-", RowBox[{"1008", " ", SuperscriptBox["q", "155"]}], "+", RowBox[{"576", " ", SuperscriptBox["q", "156"]}], "-", RowBox[{"2686", " ", SuperscriptBox["q", "157"]}], "-", RowBox[{"480", " ", SuperscriptBox["q", "158"]}], "+", RowBox[{"2544", " ", SuperscriptBox["q", "159"]}], "+", RowBox[{"448", " ", SuperscriptBox["q", "160"]}], "+", RowBox[{"784", " ", SuperscriptBox["q", "161"]}], "+", RowBox[{"718", " ", SuperscriptBox["q", "162"]}], "-", RowBox[{"1012", " ", SuperscriptBox["q", "163"]}], "+", RowBox[{"648", " ", SuperscriptBox["q", "164"]}], "+", RowBox[{"3136", " ", SuperscriptBox["q", "165"]}], "+", RowBox[{"2144", " ", SuperscriptBox["q", "166"]}], "+", RowBox[{"544", " ", SuperscriptBox["q", "167"]}], "+", RowBox[{"448", " ", SuperscriptBox["q", "168"]}], "-", RowBox[{"1873", " ", SuperscriptBox["q", "169"]}], "+", RowBox[{"2072", " ", SuperscriptBox["q", "170"]}], "+", RowBox[{"2960", " ", SuperscriptBox["q", "171"]}], "-", RowBox[{"1648", " ", SuperscriptBox["q", "172"]}], "+", RowBox[{"1858", " ", SuperscriptBox["q", "173"]}], "-", RowBox[{"3040", " ", SuperscriptBox["q", "174"]}], "-", RowBox[{"497", " ", SuperscriptBox["q", "175"]}], "-", RowBox[{"448", " ", SuperscriptBox["q", "176"]}], "-", RowBox[{"1600", " ", SuperscriptBox["q", "177"]}], "-", RowBox[{"1620", " ", SuperscriptBox["q", "178"]}], "-", RowBox[{"300", " ", SuperscriptBox["q", "179"]}], "-", RowBox[{"2072", " ", SuperscriptBox["q", "180"]}], "-", RowBox[{"2358", " ", SuperscriptBox["q", "181"]}], "+", RowBox[{"252", " ", SuperscriptBox["q", "182"]}], "-", RowBox[{"1584", " ", SuperscriptBox["q", "183"]}], "+", RowBox[{"896", " ", SuperscriptBox["q", "184"]}], "+", RowBox[{"4844", " ", SuperscriptBox["q", "185"]}], "-", RowBox[{"1152", " ", SuperscriptBox["q", "186"]}], "-", RowBox[{"2072", " ", SuperscriptBox["q", "187"]}], "+", RowBox[{"96", " ", SuperscriptBox["q", "188"]}], "-", RowBox[{"560", " ", SuperscriptBox["q", "189"]}], "+", RowBox[{"2240", " ", SuperscriptBox["q", "190"]}], "+", RowBox[{"1392", " ", SuperscriptBox["q", "191"]}], "+", RowBox[{"512", " ", SuperscriptBox["q", "192"]}], "+", RowBox[{"1778", " ", SuperscriptBox["q", "193"]}], "-", RowBox[{"2708", " ", SuperscriptBox["q", "194"]}], "-", RowBox[{"2016", " ", SuperscriptBox["q", "195"]}], "+", RowBox[{"196", " ", SuperscriptBox["q", "196"]}], "+", RowBox[{"1214", " ", SuperscriptBox["q", "197"]}], "+", RowBox[{"2072", " ", SuperscriptBox["q", "198"]}], "+", RowBox[{"1040", " ", SuperscriptBox["q", "199"]}]}]], "Output", CellChangeTimes->{3.790401863026524*^9}, CellLabel-> "Out[129]=",ExpressionUUID->"0d6a02e1-7844-4b97-b5e8-f21a2774a977"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "-", "expr"}]], "Input", CellChangeTimes->{{3.790401885259601*^9, 3.790401890005742*^9}}, CellLabel-> "In[130]:=",ExpressionUUID->"1824e7ca-a313-4329-93bb-f7509396e732"], Cell[BoxData[ InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "q", "]"}], "200"], SeriesData[$CellContext`q, 0, {}, 4800, 4800, 24], Editable->False]], "Output", CellChangeTimes->{3.7904018929139967`*^9}, CellLabel-> "Out[130]=",ExpressionUUID->"ef1c6e62-acbb-44ac-8b4e-44cc5eb08efc"] }, 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]"}], "]"}]}]}], "\n"}], "\[IndentingNewLine]", 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}},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},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.727269750142395*^9, 3.727269804968322*^9, 3.727269897665139*^9, 3.7272700224369087`*^9, 3.727270073983754*^9, 3.727270657585477*^9, 3.7272706936891327`*^9, 3.727271215897566*^9, 3.7273480328631687`*^9, 3.7275184067386436`*^9, 3.727518444734256*^9, 3.727518499167172*^9, { 3.7277904963393173`*^9, 3.727790513117024*^9}},ExpressionUUID->"95532e74-6f18-4e82-9cc3-\ d704b404a580"] }, 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}},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.727270176314629*^9, 3.7272702884275293`*^9, 3.727270991628015*^9, 3.727271160550281*^9, 3.727271221125738*^9, 3.72734804025126*^9, 3.727518406783647*^9, 3.727518446322927*^9, 3.727518499205277*^9, 3.72779053038167*^9},ExpressionUUID->"4adbbfce-b584-4e48-bcb6-5f9090a28a67"] }, 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}},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}},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.7272705764261*^9, 3.727271074519309*^9, 3.72727132545929*^9, 3.72734806863238*^9, 3.727518406838108*^9, 3.727518446646402*^9, 3.727518499241873*^9, 3.727790589435405*^9},ExpressionUUID->"3b0508cb-bc1e-4838-bb26-\ 9022989b6fcb"] }, 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}},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}},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.727294943536063*^9, 3.727296275618981*^9, 3.727296341603609*^9, { 3.727348117797656*^9, 3.727348130215633*^9}, 3.727518406916892*^9, 3.72751844673555*^9, 3.727518499351078*^9, 3.727790888289378*^9},ExpressionUUID->"3153eb7a-1dce-421c-b881-\ 35831e859fce"] }, 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}},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.727295871554332*^9, 3.727295891742775*^9}, 3.7272963550407887`*^9, 3.727348143290761*^9, 3.7275184071067*^9, 3.7275184468185253`*^9, 3.7275184995012417`*^9, 3.727790944770071*^9},ExpressionUUID->"13cd3c7e-232e-4ecf-aa13-\ 4b6aa4006654"] }, 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}},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.727296371771657*^9, 3.727348158770256*^9, 3.727518407260107*^9, 3.727518446901616*^9, 3.72751849965324*^9, 3.7277909801761713`*^9},ExpressionUUID->"c208cb1e-61f1-48f6-bd9f-\ afe4d89cf64c"] }, 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= "],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", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, 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 -> {Automatic, Dynamic[ 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 -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, 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 -> {Automatic, Dynamic[ 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 -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel", DisplayFunction -> ( ButtonBox[#, Active -> False, Alignment -> Left, Appearance -> { "Default" -> FrontEnd`FileName[{"Typeset", "SummaryBox"}, "Panel.9.png"]}, FrameMargins -> 7, BaseStyle -> {}, DefaultBaseStyle -> {"Panel", Background -> None}, BaselinePosition -> Baseline]& )], ButtonBox[ DynamicBox[ ToBoxes[ If[ Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= "Local"], Style["This object cannot be used as input.", "SummaryEmbed"], BoxForm`EmbedSummaryLabel[InterpolatingFunction, 8853352, Dynamic[Typeset`embedState$$]]], StandardForm]], ButtonFunction :> BoxForm`EmbedSummaryInterpretation[ InterpolatingFunction, 6490139376381321549887188548215906901558149301748235665056, EvaluationBox[], Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> Dynamic[ And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === "Local", Typeset`embedState$$ === "Ready"]], Appearance -> { "Default" -> FrontEnd`ToFileName[{"Typeset", "SummaryBox"}, "Footer.9.png"]}, Method -> "Queued", Alignment -> Left, FrameMargins -> {{3, 3}, {0, 0}}, ContentPadding -> False, Evaluator -> Automatic]}, "SummaryEmbedGrid"], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->( "InterpolatingFunction[{{-0.\ 1428571428571428571428571428571428571428571428571428571428571428571429, \ -0.02000000000000000000000000000000000000000000000000000000000000000000000}}, \ <>]"& )], False, BoxID -> 6490139376381321549887188548215906901558149301748235665056, Editable->False, SelectWithContents->True, Selectable->False]}], "}"}]], "Output", CellChangeTimes->{ 3.727296777253818*^9, {3.727297052385538*^9, 3.7272970995460243`*^9}, 3.727297200834896*^9, 3.7272974267504673`*^9, 3.727297470068614*^9, 3.72729750337571*^9, 3.727348187095963*^9, 3.727518415291861*^9, 3.727518455016569*^9, 3.727518507899179*^9, 3.727791264880295*^9},ExpressionUUID->"726dc979-7fff-49b9-8dc5-\ a688f4aa3704"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"pi0", "[", RowBox[{ RowBox[{"-", "1"}], "/", "7"}], "]"}], "/.", "pi0soln"}]], "Input", CellChangeTimes->{{3.7272971346371593`*^9, 3.727297159147325*^9}},ExpressionUUID->"99e59561-8638-4b4e-8ee9-\ b182902ea2b3"], Cell[BoxData["0.\ 652016731083321642572026289351201789273874540455106499427031225277414866714432\ 191914890071593609`69.4128644339082"], "Output", CellChangeTimes->{3.727297161061051*^9, 3.7272972090089417`*^9, 3.727297512974022*^9, 3.7273482085125713`*^9, 3.727518415424953*^9, 3.727518455168344*^9, 3.727518508068839*^9, 3.727791301569886*^9},ExpressionUUID->"0da608a1-00bd-4b09-be03-\ 55e058da54d4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], RowBox[{"pi0", "[", RowBox[{ RowBox[{"-", "1"}], "/", "7"}], "]"}]}], RowBox[{ SubscriptBox["L", "4"], "[", "2", "]"}]], "/.", "pi0soln"}]], "Input", CellChangeTimes->{{3.727297373186853*^9, 3.727297390197472*^9}, { 3.72734797239427*^9, 3.727347996608396*^9}, {3.7273483278521214`*^9, 3.727348336492856*^9}},ExpressionUUID->"18c33fa9-bbd6-4ac4-ac6e-\ d8640f43cd34"], Cell[BoxData["7.\ 000000000000000000000000000000000000000353842514617086267285685302295674068347\ 217271197226590229`69.4128644339082"], "Output", CellChangeTimes->{3.727297393596237*^9, 3.727297520603737*^9, 3.7273482171959887`*^9, 3.727348339880939*^9, 3.727518415469954*^9, 3.727518455220126*^9, 3.7275185081340027`*^9, 3.727791329266342*^9},ExpressionUUID->"d922880c-d7a1-46c5-927a-\ fb9bef468063"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "-", "7"}]], "Input", CellChangeTimes->{{3.727297532231038*^9, 3.7272975349317083`*^9}},ExpressionUUID->"fccef74e-0c4d-43e7-9e5e-\ ec39a19cb8de"], Cell[BoxData["3.53842514617086267285685302295674068347217271197226590229`29.\ 116576406623462*^-40"], "Output", CellChangeTimes->{3.72729753704002*^9, 3.7273483522620077`*^9, 3.727518385254768*^9, 3.727518415518066*^9, 3.7275184552849073`*^9, 3.727518508186335*^9, 3.727791337544688*^9},ExpressionUUID->"ccbde7f1-0409-45a9-b51a-\ 663b1730d894"] }, Open ]] }, Closed]] }, CellGrouping->Manual, WindowSize->{1721, 290}, WindowMargins->{{Automatic, 515}, {Automatic, -1144}}, Magnification:>1.5 Inherited, FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)", StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 180, 3, 51, "Subsection",ExpressionUUID->"732621cb-41bd-43be-96b9-823436736144"], Cell[763, 27, 741, 28, 145, "Input",ExpressionUUID->"6ff366a2-4e7e-45da-88a1-ae0d3bdd34e5"], Cell[CellGroupData[{ Cell[1529, 59, 338, 9, 61, "Input",ExpressionUUID->"5121fd4f-cf94-4259-8de5-b7345f2ec41f"], Cell[1870, 70, 523, 15, 66, "Output",ExpressionUUID->"abb50270-9ac3-47aa-9b93-efa50dbc7a8a"] }, Open ]], Cell[CellGroupData[{ Cell[2430, 90, 320, 9, 61, "Input",ExpressionUUID->"fd3d0468-26ee-4c81-8df0-26ca8a28902f"], Cell[2753, 101, 154, 3, 61, "Output",ExpressionUUID->"b52534ca-799f-4e4b-b3d4-70b6d98e5923"] }, Open ]], Cell[CellGroupData[{ Cell[2944, 109, 323, 9, 61, "Input",ExpressionUUID->"6fff0876-09e0-41d4-a448-2126a1b217ae"], Cell[3270, 120, 156, 3, 61, "Output",ExpressionUUID->"7608f820-b4e8-4eaf-ae98-0055a4539868"] }, Open ]], Cell[CellGroupData[{ Cell[3463, 128, 257, 7, 61, "Input",ExpressionUUID->"0f9e14c5-4cc7-4cf3-80e7-2ef4b58735d3"], Cell[3723, 137, 257, 6, 61, "Output",ExpressionUUID->"ad81da37-a675-4d6a-a9d0-277921edbd66"] }, Open ]], Cell[CellGroupData[{ Cell[4017, 148, 368, 10, 66, "Input",ExpressionUUID->"fc896804-11c2-46ad-a69d-71701b4ebc93"], Cell[4388, 160, 572, 16, 61, "Output",ExpressionUUID->"167451ab-f33d-42a8-b2ac-b2d70ac585bd"] }, Open ]], Cell[4975, 179, 179, 3, 51, "Text",ExpressionUUID->"5b5b0435-5bf9-47f9-b2bc-c0a880ea7733"], Cell[CellGroupData[{ Cell[5179, 186, 370, 8, 61, "Input",ExpressionUUID->"892df287-70aa-46c4-a0d7-7ba820c680eb"], Cell[5552, 196, 273, 5, 61, "Output",ExpressionUUID->"98ab9891-99bf-43bb-a6d8-932adfd53421"] }, Open ]], Cell[CellGroupData[{ Cell[5862, 206, 217, 5, 61, "Input",ExpressionUUID->"445f9481-bab0-4afb-a519-ef230e60ba43"], Cell[6082, 213, 157, 3, 61, "Output",ExpressionUUID->"33a9c46f-a2bc-44ba-9cf5-beff3e4ed4ad"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[6288, 222, 182, 3, 49, "Subsection",ExpressionUUID->"1750e188-f589-44d0-aa0b-3b0e2c42d840"], Cell[6473, 227, 821, 15, 346, "Input",ExpressionUUID->"0c92a13e-70d3-4490-87ef-bc1689e54af2", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[7297, 244, 1603, 38, 283, "Input",ExpressionUUID->"a41721b3-0d86-4fd0-91ae-6c71d54049ef", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[8903, 284, 272, 5, 61, "Input",ExpressionUUID->"9d1a3f61-a6df-4757-b460-503794d2ec60", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[9178, 291, 357, 6, 61, "Output",ExpressionUUID->"a23bbab4-591a-46e5-ae64-6257b456e2d9", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[9538, 299, 302, 6, 61, "Input",ExpressionUUID->"e2cab291-bdda-42fe-9822-6120f4de5d97", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[9843, 307, 336, 6, 61, "Output",ExpressionUUID->"83e58c9f-26d7-4f88-925e-de135c32560d", CellGroupingRules->{"GroupTogetherGrouping", 10000.}] }, Closed]], Cell[CellGroupData[{ Cell[10216, 318, 210, 4, 49, "Subsection",ExpressionUUID->"d68a2ed9-c293-4679-9f3e-a27a59f39674"], Cell[10429, 324, 4768, 114, 343, "Input",ExpressionUUID->"b2e6fa49-b7a6-4731-b5c9-2993db0b8981"], Cell[15200, 440, 999, 26, 128, "Input",ExpressionUUID->"da88de60-83a3-4906-be3c-b1a89a9ee219"], Cell[CellGroupData[{ Cell[16224, 470, 227, 5, 63, "Input",ExpressionUUID->"f7999450-65b6-4ce2-82ba-3d87f43c603c"], Cell[16454, 477, 27249, 800, 608, "Output",ExpressionUUID->"b8d50e62-0a2d-4e46-b951-6f5c66caa3c5"] }, Open ]], Cell[CellGroupData[{ Cell[43740, 1282, 1026, 28, 66, "Input",ExpressionUUID->"891fbab4-ab5f-4138-a7d5-39269ccbc148"], Cell[44769, 1312, 371, 6, 80, "Output",ExpressionUUID->"c1271639-b718-4d78-80c0-0140a3e69e92"] }, Open ]], Cell[CellGroupData[{ Cell[45177, 1323, 886, 24, 66, "Input",ExpressionUUID->"de35b3dd-acc5-4e34-b761-8b9cd715b582"], Cell[46066, 1349, 269, 4, 80, "Output",ExpressionUUID->"a4ae8dac-0307-4b4a-a2a3-204828a2348b"] }, Open ]], Cell[CellGroupData[{ Cell[46372, 1358, 1126, 30, 66, "Input",ExpressionUUID->"f434e898-3623-4137-96f1-a72648877f4a"], Cell[47501, 1390, 485, 11, 80, "Output",ExpressionUUID->"af56314c-644f-424a-b583-a85a5aabde82"] }, Open ]], Cell[CellGroupData[{ Cell[48023, 1406, 929, 27, 95, "Input",ExpressionUUID->"6357ded9-8aa2-4069-a21d-8d7d25329653"], Cell[48955, 1435, 411, 10, 80, "Output",ExpressionUUID->"c1a33139-6dc4-45ab-aac9-a730a3540636"] }, Open ]], Cell[49381, 1448, 923, 23, 167, "Input",ExpressionUUID->"4b1c69c2-0f89-4f31-a389-835ed66b1dc7"], Cell[50307, 1473, 1097, 35, 95, "Input",ExpressionUUID->"47e18c1a-53d2-4c07-a15f-5d3b9570e917"], Cell[CellGroupData[{ Cell[51429, 1512, 179, 3, 63, "Input",ExpressionUUID->"d9b5b023-5561-4887-a879-6d124725c053"], Cell[51611, 1517, 14015, 426, 436, "Output",ExpressionUUID->"089089c9-a689-4b22-9ccc-ccdf749a2677"] }, Open ]], Cell[CellGroupData[{ Cell[65663, 1948, 296, 7, 63, "Input",ExpressionUUID->"ce315205-900c-4d20-91cd-5e92fbad3a60"], Cell[65962, 1957, 12349, 400, 436, "Output",ExpressionUUID->"0d6a02e1-7844-4b97-b5e8-f21a2774a977"] }, Open ]], Cell[CellGroupData[{ Cell[78348, 2362, 201, 4, 63, "Input",ExpressionUUID->"1824e7ca-a313-4329-93bb-f7509396e732"], Cell[78552, 2368, 303, 8, 63, "Output",ExpressionUUID->"ef1c6e62-acbb-44ac-8b4e-44cc5eb08efc"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[78904, 2382, 208, 4, 49, "Subsection",ExpressionUUID->"8d7fd4cc-ee8a-4a23-be94-4cfa4424c0cc"], Cell[79115, 2388, 2774, 82, 381, "Input",ExpressionUUID->"870793a2-5973-4925-b21b-a8fd1f0444ff"], Cell[CellGroupData[{ Cell[81914, 2474, 827, 22, 100, "Input",ExpressionUUID->"1f94d4ef-1570-4d8e-8580-b33a76002940"], Cell[82744, 2498, 9961, 325, 204, "Output",ExpressionUUID->"95532e74-6f18-4e82-9cc3-d704b404a580"] }, Open ]], Cell[CellGroupData[{ Cell[92742, 2828, 1432, 36, 169, "Input",ExpressionUUID->"d8172982-010f-4e7d-9fa8-1dd41e20e4c3"], Cell[94177, 2866, 1506, 49, 66, "Output",ExpressionUUID->"4adbbfce-b584-4e48-bcb6-5f9090a28a67"] }, Open ]], Cell[95698, 2918, 1977, 62, 220, "Input",ExpressionUUID->"021e8276-7312-4364-ae1a-526527f10b8b"], Cell[CellGroupData[{ Cell[97700, 2984, 339, 9, 61, "Input",ExpressionUUID->"78f6085f-b1bd-467f-8bee-3f28110d3de6"], Cell[98042, 2995, 784, 14, 94, "Output",ExpressionUUID->"3b0508cb-bc1e-4838-bb26-9022989b6fcb"] }, Open ]], Cell[98841, 3012, 1084, 30, 90, "Input",ExpressionUUID->"1dfdcf3e-5213-488d-8a4c-8ac2c1f02b0a"], Cell[CellGroupData[{ Cell[99950, 3046, 333, 8, 66, "Input",ExpressionUUID->"e289442d-f8a8-41d1-9ec9-40660c0240ee"], Cell[100286, 3056, 484, 11, 61, "Output",ExpressionUUID->"3153eb7a-1dce-421c-b881-35831e859fce"] }, Open ]], Cell[CellGroupData[{ Cell[100807, 3072, 751, 21, 66, "Input",ExpressionUUID->"7222437b-7414-4cc1-84f6-51ffa5aa1104"], Cell[101561, 3095, 1154, 21, 159, "Output",ExpressionUUID->"13cd3c7e-232e-4ecf-aa13-4b6aa4006654"] }, Open ]], Cell[CellGroupData[{ Cell[102752, 3121, 750, 21, 66, "Input",ExpressionUUID->"20da6bf0-e6d0-47e6-9199-130f7a449544"], Cell[103505, 3144, 1123, 25, 159, "Output",ExpressionUUID->"c208cb1e-61f1-48f6-bd9f-afe4d89cf64c"] }, Open ]], Cell[CellGroupData[{ Cell[104665, 3174, 2622, 68, 226, "Input",ExpressionUUID->"fb821dbe-476e-45c6-a703-b0475fdaea6f"], Cell[107290, 3244, 12221, 248, 144, "Output",ExpressionUUID->"726dc979-7fff-49b9-8dc5-a688f4aa3704"] }, Open ]], Cell[CellGroupData[{ Cell[119548, 3497, 258, 7, 61, "Input",ExpressionUUID->"99e59561-8638-4b4e-8ee9-b182902ea2b3"], Cell[119809, 3506, 412, 7, 61, "Output",ExpressionUUID->"0da608a1-00bd-4b09-be03-55e058da54d4"] }, Open ]], Cell[CellGroupData[{ Cell[120258, 3518, 481, 13, 96, "Input",ExpressionUUID->"18c33fa9-bbd6-4ac4-ac6e-d8640f43cd34"], Cell[120742, 3533, 412, 7, 61, "Output",ExpressionUUID->"d922880c-d7a1-46c5-927a-fb9bef468063"] }, Open ]], Cell[CellGroupData[{ Cell[121191, 3545, 177, 4, 61, "Input",ExpressionUUID->"fccef74e-0c4d-43e7-9e5e-ec39a19cb8de"], Cell[121371, 3551, 354, 6, 61, "Output",ExpressionUUID->"ccbde7f1-0409-45a9-b51a-663b1730d894"] }, Open ]] }, Closed]] } ] *)