(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 277150, 7865] NotebookOptionsPosition[ 262918, 7636] NotebookOutlinePosition[ 263592, 7660] CellTagsIndexPosition[ 263549, 7657] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["Problem sheet 3", "Title", CellChangeTimes->{{3.719427011914261*^9, 3.719427028893878*^9}, { 3.7194379867372503`*^9, 3.719437990957973*^9}, {3.719924266982065*^9, 3.719924275567227*^9}, {3.719924307726058*^9, 3.719924330904627*^9}, { 3.719924498299906*^9, 3.719924534389126*^9}, 3.719924593878716*^9, { 3.7200043342279463`*^9, 3.720004339970278*^9}, {3.720299205876058*^9, 3.720299213147088*^9}, {3.7249269434006767`*^9, 3.7249269470506*^9}, { 3.791365398676659*^9, 3.7913654086719027`*^9}},ExpressionUUID->"6c5e2b66-b100-4ad4-bed1-\ afce1d547227"], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"EvaluationNotebook", "[", "]"}], ",", " ", RowBox[{"Background", " ", "\[Rule]", " ", "LightBlue"}], ",", RowBox[{"CellBracketOptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "Blue"}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"20", ",", "20"}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", "3.5"}]}], "}"}]}], ",", RowBox[{"FontColor", "\[Rule]", "Black"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.8203427063672333`*^9, 3.820342710366617*^9}, { 3.820342935130333*^9, 3.820342954631484*^9}, {3.8203429969742928`*^9, 3.820343001387989*^9}, {3.820343450595797*^9, 3.8203434962099524`*^9}, { 3.82133799284402*^9, 3.821337995589003*^9}, 3.821338037042634*^9, { 3.821338104274653*^9, 3.821338118749104*^9}, 3.8213382124094257`*^9, { 3.821338261882592*^9, 3.821338269905648*^9}, 3.821338306335579*^9, { 3.821339170488145*^9, 3.821339195906999*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"e3f76fd7-4d85-4471-ad18-42bc0bc07728"], Cell[CellGroupData[{ Cell["definitions", "Chapter", CellChangeTimes->{{3.649240012789955*^9, 3.649240025843314*^9}},ExpressionUUID->"e96ac38d-8c4d-4b81-a40d-\ 57817c8761c3"], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["S", "4"], "[", "\[CurlyPhi]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"\[CurlyPhi]", "\[Minus]", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"9", "\[CurlyPhi]"}], "\[Minus]", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"25", "\[CurlyPhi]"}], "\[Minus]", "1"}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["S", "3"], "[", "\[CurlyPhi]_", "]"}], ":=", RowBox[{"2", "\[CurlyPhi]", RowBox[{"(", RowBox[{ RowBox[{"675", SuperscriptBox["\[CurlyPhi]", "2"]}], "\[Minus]", RowBox[{"518", "\[CurlyPhi]"}], "+", "35"}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["S", "2"], "[", "\[CurlyPhi]_", "]"}], ":=", RowBox[{"\[CurlyPhi]", RowBox[{"(", RowBox[{ RowBox[{"2925", SuperscriptBox["\[CurlyPhi]", "2"]}], "\[Minus]", RowBox[{"1580", "\[CurlyPhi]"}], "+", "63"}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["S", "1"], "[", "\[CurlyPhi]_", "]"}], ":=", RowBox[{"4", "\[CurlyPhi]", RowBox[{"(", RowBox[{ RowBox[{"675", SuperscriptBox["\[CurlyPhi]", "2"]}], "\[Minus]", RowBox[{"272", "\[CurlyPhi]"}], "+", "7"}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["S", "0"], "[", "\[CurlyPhi]_", "]"}], ":=", RowBox[{"5", "\[CurlyPhi]", RowBox[{"(", RowBox[{ RowBox[{"180", SuperscriptBox["\[CurlyPhi]", "2"]}], "\[Minus]", RowBox[{"57", "\[CurlyPhi]"}], "+", "1"}], ")"}]}]}]}], "Input", CellChangeTimes->{{3.7913665631143723`*^9, 3.791366792796921*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"35ccaa68-ca62-41b7-8e01-e16049a57024"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"\[Theta]", "[", "fn_", "]"}], ":=", RowBox[{"\[CurlyPhi]", " ", RowBox[{"D", "[", RowBox[{"fn", ",", "\[CurlyPhi]"}], "]"}]}]}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{"\[Theta]", "[", RowBox[{"fn_", ",", "m_"}], "]"}], ":=", RowBox[{"Nest", "[", RowBox[{"\[Theta]", ",", "fn", ",", "m"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[ScriptCapitalL]", "[", "fn_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["S", "j"], "[", "\[CurlyPhi]", "]"}], RowBox[{"\[Theta]", "[", RowBox[{"fn", ",", "j"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "4"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.6839470691118402`*^9, 3.6839471104887047`*^9}, { 3.683969913332347*^9, 3.683969917910274*^9}, {3.7913668098600597`*^9, 3.791366951175982*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"db940b17-34ea-403c-9e35-60f6f7fab760"] }, Open ]], Cell[CellGroupData[{ Cell["defining \[CurlyPi]", "Chapter", CellChangeTimes->{{3.649240012789955*^9, 3.649240025843314*^9}, { 3.791367062338357*^9, 3.791367071838973*^9}, {3.791528762320135*^9, 3.791528765906116*^9}, {3.7915288824383*^9, 3.791528884846203*^9}},ExpressionUUID->"b192aab1-bf15-4e86-966a-\ 9f79c78f8844"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Lpoly", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["S", "j"], "[", "\[CurlyPhi]", "]"}], SuperscriptBox["\[Xi]", "j"]}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.791367103120263*^9, {3.791367147523526*^9, 3.791367158082141*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"80b75cf3-4af7-4686-a64d-56914529c405"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["\[Xi]", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[CurlyPhi]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"9", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"25", " ", "\[CurlyPhi]"}]}], ")"}]}], "+", RowBox[{"5", " ", "\[CurlyPhi]", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"57", " ", "\[CurlyPhi]"}], "+", RowBox[{"180", " ", SuperscriptBox["\[CurlyPhi]", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["\[Xi]", "3"], " ", "\[CurlyPhi]", " ", RowBox[{"(", RowBox[{"35", "-", RowBox[{"518", " ", "\[CurlyPhi]"}], "+", RowBox[{"675", " ", SuperscriptBox["\[CurlyPhi]", "2"]}]}], ")"}]}], "+", RowBox[{"4", " ", "\[Xi]", " ", "\[CurlyPhi]", " ", RowBox[{"(", RowBox[{"7", "-", RowBox[{"272", " ", "\[CurlyPhi]"}], "+", RowBox[{"675", " ", SuperscriptBox["\[CurlyPhi]", "2"]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[Xi]", "2"], " ", "\[CurlyPhi]", " ", RowBox[{"(", RowBox[{"63", "-", RowBox[{"1580", " ", "\[CurlyPhi]"}], "+", RowBox[{"2925", " ", SuperscriptBox["\[CurlyPhi]", "2"]}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.8245468026171503`*^9, 3.82463538362256*^9}, CellLabel->"Out[10]=",ExpressionUUID->"5322aa14-568c-420b-9199-415bcb9cd39a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Collect", "[", RowBox[{"Lpoly", ",", "\[CurlyPhi]", ",", "Factor"}], "]"}]], "Input", CellChangeTimes->{{3.789889037107512*^9, 3.789889116894602*^9}, { 3.789889263349843*^9, 3.7898892655972157`*^9}, {3.791367712852865*^9, 3.791367714480812*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"a49980af-db86-47a8-b65e-8dbfeb275b16"], Cell[BoxData[ RowBox[{ RowBox[{"-", SuperscriptBox["\[Xi]", "4"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"5", "+", RowBox[{"28", " ", "\[Xi]"}], "+", RowBox[{"63", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"70", " ", SuperscriptBox["\[Xi]", "3"]}], "+", RowBox[{"35", " ", SuperscriptBox["\[Xi]", "4"]}]}], ")"}], " ", "\[CurlyPhi]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "\[Xi]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"285", "+", RowBox[{"518", " ", "\[Xi]"}], "+", RowBox[{"259", " ", SuperscriptBox["\[Xi]", "2"]}]}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "+", RowBox[{"225", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "\[Xi]"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"2", "+", "\[Xi]"}], ")"}], "2"], " ", SuperscriptBox["\[CurlyPhi]", "3"]}]}]], "Output", CellChangeTimes->{3.824546920701631*^9, 3.82463538365903*^9}, CellLabel->"Out[11]=",ExpressionUUID->"bf4eed6c-f44f-4a6d-8f1e-88e8bd1721c3"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["St", "0"], "[", "\[Xi]_", "]"}], ":=", " ", RowBox[{"-", SuperscriptBox["\[Xi]", "4"]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["St", "1"], "[", "\[Xi]_", "]"}], ":=", " ", RowBox[{"(", RowBox[{"5", "+", RowBox[{"28", " ", "\[Xi]"}], "+", RowBox[{"63", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"70", " ", SuperscriptBox["\[Xi]", "3"]}], "+", RowBox[{"35", " ", SuperscriptBox["\[Xi]", "4"]}]}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["St", "2"], "[", "\[Xi]_", "]"}], ":=", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "\[Xi]"}], ")"}], "2"]}], " ", RowBox[{"(", RowBox[{"285", "+", RowBox[{"518", " ", "\[Xi]"}], "+", RowBox[{"259", " ", SuperscriptBox["\[Xi]", "2"]}]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["St", "3"], "[", "\[Xi]_", "]"}], ":=", RowBox[{"225", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "\[Xi]"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"2", "+", "\[Xi]"}], ")"}], "2"]}]}]}], "Input", CellChangeTimes->{{3.79136737246708*^9, 3.7913674847647676`*^9}, { 3.7913675857763577`*^9, 3.791367589219351*^9}, {3.791367679031377*^9, 3.7913676855920877`*^9}, {3.7913689822276487`*^9, 3.7913689875414047`*^9}, 3.7913690276776457`*^9, {3.791369076874907*^9, 3.7913691999409122`*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"908e81c3-cba7-4f2a-a81f-380db3d4e6b9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["St", "k"], "[", "\[Xi]", "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.791367491553156*^9, 3.79136752591103*^9}, 3.791367791854886*^9}, CellLabel->"In[16]:=",ExpressionUUID->"9940cea2-9f00-48f3-9e03-9080e3a12ddf"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", SuperscriptBox["\[Xi]", "4"]}], ",", RowBox[{"5", "+", RowBox[{"28", " ", "\[Xi]"}], "+", RowBox[{"63", " ", SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{"70", " ", SuperscriptBox["\[Xi]", "3"]}], "+", RowBox[{"35", " ", SuperscriptBox["\[Xi]", "4"]}]}], ",", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "\[Xi]"}], ")"}], "2"]}], " ", RowBox[{"(", RowBox[{"285", "+", RowBox[{"518", " ", "\[Xi]"}], "+", RowBox[{"259", " ", SuperscriptBox["\[Xi]", "2"]}]}], ")"}]}], ",", RowBox[{"225", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "\[Xi]"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"2", "+", "\[Xi]"}], ")"}], "2"]}]}], "}"}]], "Output", CellChangeTimes->{3.824547110634907*^9, 3.824635383696136*^9}, CellLabel->"Out[16]=",ExpressionUUID->"12792d3b-66bd-4f3e-852d-7a3a4d2c6076"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["A", "0"], "[", "\[Epsilon]", "]"}], ":=", "1"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["A", "n_"], "[", "\[Epsilon]", "]"}], ":=", RowBox[{"0", "/;", RowBox[{"n", "<", "0"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"recurrence", "[", "n_", "]"}], ":=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["A", RowBox[{"n", "-", "k"}]], "[", "\[Epsilon]", "]"}], " ", RowBox[{ SubscriptBox["St", "k"], "[", RowBox[{"n", "-", "k", "+", "\[Epsilon]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.684019315106278*^9, 3.684019422134742*^9}, { 3.684019779425061*^9, 3.68401979595227*^9}, {3.684019841449897*^9, 3.684019880967176*^9}, {3.684020126254015*^9, 3.6840201632170477`*^9}, 3.684020209682729*^9, 3.6840203056896563`*^9, {3.789904681902245*^9, 3.789904819412328*^9}, {3.791368620924612*^9, 3.7913686600223846`*^9}, { 3.791368756495751*^9, 3.791368857336732*^9}, 3.791369325674479*^9}, CellLabel->"In[17]:=",ExpressionUUID->"319017d4-370e-4998-92c4-aa83236ada0b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"recurrence", "[", "n", "]"}]], "Input", CellChangeTimes->{{3.791368915195582*^9, 3.7913689246377783`*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"2ced2d21-7aa1-4f29-91ad-c58361631d6a"], Cell[BoxData[ RowBox[{ RowBox[{"225", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"285", "+", RowBox[{"518", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}]}], "+", RowBox[{"259", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "2"]}]}], ")"}], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"5", "+", RowBox[{"28", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}]}], "+", RowBox[{"63", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "2"]}], "+", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "3"]}], "+", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], "4"]}]}], ")"}], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"n", "+", "\[Epsilon]"}], ")"}], "4"], " ", RowBox[{ SubscriptBox["A", "n"], "[", "\[Epsilon]", "]"}]}]}]], "Output", CellChangeTimes->{3.824547314317519*^9, 3.8246353837042933`*^9}, CellLabel->"Out[20]=",ExpressionUUID->"e1178667-e527-49cd-8bbc-46c8b013e8d7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"recurrence", "[", "0", "]"}]], "Input", CellChangeTimes->{{3.791369287623088*^9, 3.791369294528249*^9}}, CellLabel->"In[21]:=",ExpressionUUID->"84e01305-f417-4283-985b-267fbbe263e3"], Cell[BoxData[ RowBox[{"-", SuperscriptBox["\[Epsilon]", "4"]}]], "Output", CellChangeTimes->{3.82454738543782*^9, 3.8246353837092457`*^9}, CellLabel->"Out[21]=",ExpressionUUID->"8cb28104-a6bf-4c1d-858b-3e808973cfa1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"recurrence", "[", "n", "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["A", "k_"], "[", "\[Epsilon]_", "]"}], "\[Rule]", " ", RowBox[{ SubscriptBox["a", "k"], "+", RowBox[{ SubscriptBox["b", "k"], "\[Epsilon]"}], " ", "+", RowBox[{ FractionBox["1", RowBox[{"2", "!"}]], SubscriptBox["c", "k"], " ", SuperscriptBox["\[Epsilon]", "2"]}], "+", RowBox[{ FractionBox["1", RowBox[{"3", "!"}]], SubscriptBox["d", "k"], SuperscriptBox["\[Epsilon]", "3"]}], "+", SuperscriptBox[ RowBox[{"O", "[", "\[Epsilon]", "]"}], "4"]}]}], " ", "}"}]}]], "Input",\ CellChangeTimes->{{3.684020233356142*^9, 3.684020263583406*^9}, { 3.684020348219616*^9, 3.684020357324044*^9}, {3.68402043345288*^9, 3.684020441537641*^9}, {3.684020483119458*^9, 3.6840205300384417`*^9}, { 3.6840209368448467`*^9, 3.684021034184443*^9}, {3.684021100244891*^9, 3.684021110499338*^9}, 3.68402351575705*^9, {3.7899047071574783`*^9, 3.789904709057539*^9}, {3.791369463912416*^9, 3.791369466485578*^9}, { 3.8244470387627*^9, 3.82444704322108*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"2d794b2d-e56b-4414-bbf5-641db9cfa76f"], Cell[BoxData[ InterpretationBox[ RowBox[{ 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[{"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"]}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"225", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"518", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"14", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"9", " ", "n"}], "-", RowBox[{"15", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"10", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"4", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"225", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"225", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"285", "-", RowBox[{"518", " ", "n"}], "+", RowBox[{"259", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], ")"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"5", "-", RowBox[{"28", " ", "n"}], "+", RowBox[{"63", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"70", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"35", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{ SuperscriptBox["n", "4"], " ", SubscriptBox["b", "n"]}]}], ")"}], " ", "\[Epsilon]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"225", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"259", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"21", " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"10", " ", "n"}], "+", RowBox[{"10", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"6", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"225", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"225", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}]}], ")"}]}], "+", RowBox[{"518", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], ")"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}]}], ")"}]}], "+", RowBox[{"14", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"9", " ", "n"}], "-", RowBox[{"15", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"10", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"4", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", "n"]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"225", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"225", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["225", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"285", "-", RowBox[{"518", " ", "n"}], "+", RowBox[{"259", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"5", "-", RowBox[{"28", " ", "n"}], "+", RowBox[{"63", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"70", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"35", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", FractionBox[ RowBox[{ SuperscriptBox["n", "4"], " ", SubscriptBox["c", "n"]}], "2"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"225", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"70", "+", RowBox[{"140", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"4", " ", "n", " ", SubscriptBox["a", "n"]}], "+", RowBox[{"225", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"259", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], ")"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}]}], ")"}]}], "+", RowBox[{"21", " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"10", " ", "n"}], "+", RowBox[{"10", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"6", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"225", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"225", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["225", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}]}], ")"}]}], "+", RowBox[{"518", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}]}], ")"}]}], "+", RowBox[{"7", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"9", " ", "n"}], "-", RowBox[{"15", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"10", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"2", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", "n"]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"225", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["225", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["75", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"285", "-", RowBox[{"518", " ", "n"}], "+", RowBox[{"259", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{ FractionBox["1", "6"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{"5", "-", RowBox[{"28", " ", "n"}], "+", RowBox[{"63", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"70", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"35", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", FractionBox[ RowBox[{ SuperscriptBox["n", "4"], " ", SubscriptBox["d", "n"]}], "6"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", "3"]}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "\[Epsilon]", "]"}], "4"], SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 4, 1], Editable->False]}], SeriesData[$CellContext`\[Epsilon], 0, { 225 (-2 + $CellContext`n)^2 (-1 + $CellContext`n)^2 Subscript[$CellContext`a, -3 + $CellContext`n] - (-1 + $CellContext`n)^2 \ (285 - 518 $CellContext`n + 259 $CellContext`n^2) Subscript[$CellContext`a, -2 + $CellContext`n] + (5 - 28 $CellContext`n + 63 $CellContext`n^2 - 70 $CellContext`n^3 + 35 $CellContext`n^4) Subscript[$CellContext`a, -1 + $CellContext`n] - $CellContext`n^4 Subscript[$CellContext`a, $CellContext`n], 225 (-2 + $CellContext`n)^2 (-2 + 2 $CellContext`n) Subscript[$CellContext`a, -3 + $CellContext`n] - 518 (-1 + $CellContext`n)^3 Subscript[$CellContext`a, -2 + $CellContext`n] + 14 (-2 + 9 $CellContext`n - 15 $CellContext`n^2 + 10 $CellContext`n^3) Subscript[$CellContext`a, -1 + $CellContext`n] - 4 $CellContext`n^3 Subscript[$CellContext`a, $CellContext`n] + (-1 + $CellContext`n)^2 ( 225 (-4 + 2 $CellContext`n) Subscript[$CellContext`a, -3 + $CellContext`n] + 225 (-2 + $CellContext`n)^2 Subscript[$CellContext`b, -3 + $CellContext`n]) + (285 - 518 $CellContext`n + 259 $CellContext`n^2) (-(-2 + 2 $CellContext`n) Subscript[$CellContext`a, -2 + $CellContext`n] - (-1 + \ $CellContext`n)^2 Subscript[$CellContext`b, -2 + $CellContext`n]) + (5 - 28 $CellContext`n + 63 $CellContext`n^2 - 70 $CellContext`n^3 + 35 $CellContext`n^4) Subscript[$CellContext`b, -1 + $CellContext`n] - $CellContext`n^4 Subscript[$CellContext`b, $CellContext`n], 225 (-2 + $CellContext`n)^2 Subscript[$CellContext`a, -3 + $CellContext`n] - 259 (-1 + $CellContext`n)^2 Subscript[$CellContext`a, -2 + $CellContext`n] + 21 (3 - 10 $CellContext`n + 10 $CellContext`n^2) Subscript[$CellContext`a, -1 + $CellContext`n] - 6 $CellContext`n^2 Subscript[$CellContext`a, $CellContext`n] + (-2 + 2 $CellContext`n) ( 225 (-4 + 2 $CellContext`n) Subscript[$CellContext`a, -3 + $CellContext`n] + 225 (-2 + $CellContext`n)^2 Subscript[$CellContext`b, -3 + $CellContext`n]) + 518 (-1 + $CellContext`n) (-(-2 + 2 $CellContext`n) Subscript[$CellContext`a, -2 + $CellContext`n] - (-1 + \ $CellContext`n)^2 Subscript[$CellContext`b, -2 + $CellContext`n]) + 14 (-2 + 9 $CellContext`n - 15 $CellContext`n^2 + 10 $CellContext`n^3) Subscript[$CellContext`b, -1 + $CellContext`n] - 4 $CellContext`n^3 Subscript[$CellContext`b, $CellContext`n] + (-1 + $CellContext`n)^2 ( 225 Subscript[$CellContext`a, -3 + $CellContext`n] + 225 (-4 + 2 $CellContext`n) Subscript[$CellContext`b, -3 + $CellContext`n] + Rational[225, 2] (-2 + $CellContext`n)^2 Subscript[$CellContext`c, -3 + $CellContext`n]) + (285 - 518 $CellContext`n + 259 $CellContext`n^2) (- Subscript[$CellContext`a, -2 + $CellContext`n] - (-2 + 2 $CellContext`n) Subscript[$CellContext`b, -2 + $CellContext`n] + Rational[-1, 2] (-1 + $CellContext`n)^2 Subscript[$CellContext`c, -2 + $CellContext`n]) + Rational[1, 2] (5 - 28 $CellContext`n + 63 $CellContext`n^2 - 70 $CellContext`n^3 + 35 $CellContext`n^4) Subscript[$CellContext`c, -1 + $CellContext`n] + Rational[-1, 2] $CellContext`n^4 Subscript[$CellContext`c, $CellContext`n], 225 (-4 + 2 $CellContext`n) Subscript[$CellContext`a, -3 + $CellContext`n] + (70 + 140 (-1 + $CellContext`n)) Subscript[$CellContext`a, -1 + $CellContext`n] - 4 $CellContext`n Subscript[$CellContext`a, $CellContext`n] + 225 (-2 + $CellContext`n)^2 Subscript[$CellContext`b, -3 + $CellContext`n] + 259 (-(-2 + 2 $CellContext`n) Subscript[$CellContext`a, -2 + $CellContext`n] - (-1 + \ $CellContext`n)^2 Subscript[$CellContext`b, -2 + $CellContext`n]) + 21 (3 - 10 $CellContext`n + 10 $CellContext`n^2) Subscript[$CellContext`b, -1 + $CellContext`n] - 6 $CellContext`n^2 Subscript[$CellContext`b, $CellContext`n] + (-2 + 2 $CellContext`n) ( 225 Subscript[$CellContext`a, -3 + $CellContext`n] + 225 (-4 + 2 $CellContext`n) Subscript[$CellContext`b, -3 + $CellContext`n] + Rational[225, 2] (-2 + $CellContext`n)^2 Subscript[$CellContext`c, -3 + $CellContext`n]) + 518 (-1 + $CellContext`n) (- Subscript[$CellContext`a, -2 + $CellContext`n] - (-2 + 2 $CellContext`n) Subscript[$CellContext`b, -2 + $CellContext`n] + Rational[-1, 2] (-1 + $CellContext`n)^2 Subscript[$CellContext`c, -2 + $CellContext`n]) + 7 (-2 + 9 $CellContext`n - 15 $CellContext`n^2 + 10 $CellContext`n^3) Subscript[$CellContext`c, -1 + $CellContext`n] - 2 $CellContext`n^3 Subscript[$CellContext`c, $CellContext`n] + (-1 + $CellContext`n)^2 ( 225 Subscript[$CellContext`b, -3 + $CellContext`n] + Rational[225, 2] (-4 + 2 $CellContext`n) Subscript[$CellContext`c, -3 + $CellContext`n] + Rational[75, 2] (-2 + $CellContext`n)^2 Subscript[$CellContext`d, -3 + $CellContext`n]) + (285 - 518 $CellContext`n + 259 $CellContext`n^2) (-Subscript[$CellContext`b, -2 + $CellContext`n] + Rational[-1, 2] (-2 + 2 $CellContext`n) Subscript[$CellContext`c, -2 + $CellContext`n] + Rational[-1, 6] (-1 + $CellContext`n)^2 Subscript[$CellContext`d, -2 + $CellContext`n]) + Rational[1, 6] (5 - 28 $CellContext`n + 63 $CellContext`n^2 - 70 $CellContext`n^3 + 35 $CellContext`n^4) Subscript[$CellContext`d, -1 + $CellContext`n] + Rational[-1, 6] $CellContext`n^4 Subscript[$CellContext`d, $CellContext`n]}, 0, 4, 1], Editable->False]], "Output", CellChangeTimes->{3.8245475292659187`*^9, 3.824635383747826*^9}, CellLabel->"Out[22]=",ExpressionUUID->"a3d8ed1d-f151-434e-9a6d-9f113134e926"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"coeffs", "=", RowBox[{"Join", "[", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ SubscriptBox["a", RowBox[{"n", "-", "k"}]], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["b", RowBox[{"n", "-", "k"}]], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["c", RowBox[{"n", "-", "k"}]], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["d", RowBox[{"n", "-", "k"}]], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.791371616465077*^9, 3.7913716958799877`*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"b29c6a03-b473-461a-9b94-da8b091658ba"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"reclist1", "=", "\[IndentingNewLine]", RowBox[{"Collect", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"CoefficientList", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Normal", "[", RowBox[{ RowBox[{"recurrence", "[", "n", "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["A", "k_"], "[", "\[Epsilon]_", "]"}], "\[Rule]", " ", RowBox[{ SubscriptBox["a", "k"], "+", RowBox[{ SubscriptBox["b", "k"], "\[Epsilon]"}], " ", "+", RowBox[{ FractionBox["1", RowBox[{"2", "!"}]], SubscriptBox["c", "k"], " ", SuperscriptBox["\[Epsilon]", "2"]}], "+", RowBox[{ FractionBox["1", RowBox[{"3", "!"}]], SubscriptBox["d", "k"], SuperscriptBox["\[Epsilon]", "3"]}], "+", SuperscriptBox[ RowBox[{"O", "[", "\[Epsilon]", "]"}], "4"]}]}], " ", "}"}]}], "]"}], ",", "\[Epsilon]"}], "]"}], ",", "coeffs", ",", "Factor"}], "]"}]}]], "Input", CellChangeTimes->{{3.791371719215699*^9, 3.791371807120623*^9}, { 3.791371948650675*^9, 3.791371954588475*^9}, 3.791372240945204*^9, { 3.824447133617098*^9, 3.824447138979752*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"5c76ad69-3633-4367-96ed-8d42339ccce2"], Cell[BoxData[ RowBox[{"{", 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[{"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"]}]}], ",", RowBox[{ RowBox[{"450", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"272", "-", RowBox[{"518", " ", "n"}], "+", RowBox[{"259", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"14", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"5", " ", "n"}], "+", RowBox[{"5", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"4", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"225", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"285", "-", RowBox[{"518", " ", "n"}], "+", RowBox[{"259", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"5", "-", RowBox[{"28", " ", "n"}], "+", RowBox[{"63", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"70", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"35", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{ SuperscriptBox["n", "4"], " ", SubscriptBox["b", "n"]}]}], ",", RowBox[{ RowBox[{"225", " ", RowBox[{"(", RowBox[{"13", "-", RowBox[{"18", " ", "n"}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"790", "-", RowBox[{"1554", " ", "n"}], "+", RowBox[{"777", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"21", " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"10", " ", "n"}], "+", RowBox[{"10", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"6", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"450", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"272", "-", RowBox[{"518", " ", "n"}], "+", RowBox[{"259", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"14", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"5", " ", "n"}], "+", RowBox[{"5", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"4", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", "n"]}], "+", RowBox[{ FractionBox["225", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"285", "-", RowBox[{"518", " ", "n"}], "+", RowBox[{"259", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"5", "-", RowBox[{"28", " ", "n"}], "+", RowBox[{"63", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"70", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"35", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", FractionBox[ RowBox[{ SuperscriptBox["n", "4"], " ", SubscriptBox["c", "n"]}], "2"]}], ",", RowBox[{ RowBox[{"450", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"1036", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"70", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"4", " ", "n", " ", SubscriptBox["a", "n"]}], "+", RowBox[{"225", " ", RowBox[{"(", RowBox[{"13", "-", RowBox[{"18", " ", "n"}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"790", "-", RowBox[{"1554", " ", "n"}], "+", RowBox[{"777", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"21", " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"10", " ", "n"}], "+", RowBox[{"10", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"6", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", "n"]}], "+", RowBox[{"225", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"272", "-", RowBox[{"518", " ", "n"}], "+", RowBox[{"259", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"7", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"5", " ", "n"}], "+", RowBox[{"5", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"2", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", "n"]}], "+", RowBox[{ FractionBox["75", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{ FractionBox["1", "6"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"285", "-", RowBox[{"518", " ", "n"}], "+", RowBox[{"259", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{"5", "-", RowBox[{"28", " ", "n"}], "+", RowBox[{"63", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"70", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"35", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", FractionBox[ RowBox[{ SuperscriptBox["n", "4"], " ", SubscriptBox["d", "n"]}], "6"]}]}], "}"}]], "Output", CellChangeTimes->{3.824547636975088*^9, 3.824635383790043*^9}, CellLabel->"Out[24]=",ExpressionUUID->"16d7a5f1-8b8a-4578-bda1-66b3b54b62d6"] }, Open ]], Cell["Multiply the four relations by {1, 1, 2, 6} respectively.", "Text", CellChangeTimes->{{3.791372149424868*^9, 3.791372211810401*^9}},ExpressionUUID->"800e0757-f311-4a24-89f2-\ 74da878f60db"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rectlist2", "=", "\[IndentingNewLine]", RowBox[{"Collect", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Times", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "2", ",", "6"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"CoefficientList", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Normal", "[", RowBox[{ RowBox[{"recurrence", "[", "n", "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["A", "k_"], "[", "\[Epsilon]_", "]"}], "\[RuleDelayed]", " ", RowBox[{ SubscriptBox["a", "k"], "+", RowBox[{ SubscriptBox["b", "k"], "\[Epsilon]"}], " ", "+", RowBox[{ FractionBox["1", RowBox[{"2", "!"}]], SubscriptBox["c", "k"], " ", SuperscriptBox["\[Epsilon]", "2"]}], "+", RowBox[{ FractionBox["1", RowBox[{"3", "!"}]], SubscriptBox["d", "k"], SuperscriptBox["\[Epsilon]", "3"]}], "+", SuperscriptBox[ RowBox[{"O", "[", "\[Epsilon]", "]"}], "4"]}]}], " ", "}"}]}], "]"}], ",", "\[Epsilon]"}], "]"}]}], "]"}], ",", "coeffs", ",", "Factor"}], "]"}]}]], "Input", CellChangeTimes->{{3.791372214993689*^9, 3.791372277528943*^9}, { 3.79137234008339*^9, 3.791372388861166*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"1fb03e99-7801-46e7-9111-45d3163b0db5"], Cell[BoxData[ RowBox[{"{", 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[{"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"]}]}], ",", RowBox[{ RowBox[{"450", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"272", "-", RowBox[{"518", " ", "n"}], "+", RowBox[{"259", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"14", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"5", " ", "n"}], "+", RowBox[{"5", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"4", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"225", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"285", "-", RowBox[{"518", " ", "n"}], "+", RowBox[{"259", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"5", "-", RowBox[{"28", " ", "n"}], "+", RowBox[{"63", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"70", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"35", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{ SuperscriptBox["n", "4"], " ", SubscriptBox["b", "n"]}]}], ",", RowBox[{ RowBox[{"450", " ", RowBox[{"(", RowBox[{"13", "-", RowBox[{"18", " ", "n"}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"790", "-", RowBox[{"1554", " ", "n"}], "+", RowBox[{"777", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"42", " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"10", " ", "n"}], "+", RowBox[{"10", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"12", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"900", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"272", "-", RowBox[{"518", " ", "n"}], "+", RowBox[{"259", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"28", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"5", " ", "n"}], "+", RowBox[{"5", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"8", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", "n"]}], "+", RowBox[{"225", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"285", "-", RowBox[{"518", " ", "n"}], "+", RowBox[{"259", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"5", "-", RowBox[{"28", " ", "n"}], "+", RowBox[{"63", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"70", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"35", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{ SuperscriptBox["n", "4"], " ", SubscriptBox["c", "n"]}]}], ",", RowBox[{ RowBox[{"2700", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"6216", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"420", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"24", " ", "n", " ", SubscriptBox["a", "n"]}], "+", RowBox[{"1350", " ", RowBox[{"(", RowBox[{"13", "-", RowBox[{"18", " ", "n"}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"12", " ", RowBox[{"(", RowBox[{"790", "-", RowBox[{"1554", " ", "n"}], "+", RowBox[{"777", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"126", " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"10", " ", "n"}], "+", RowBox[{"10", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"36", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", "n"]}], "+", RowBox[{"1350", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"272", "-", RowBox[{"518", " ", "n"}], "+", RowBox[{"259", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"42", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"5", " ", "n"}], "+", RowBox[{"5", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"12", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", "n"]}], "+", RowBox[{"225", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"285", "-", RowBox[{"518", " ", "n"}], "+", RowBox[{"259", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"5", "-", RowBox[{"28", " ", "n"}], "+", RowBox[{"63", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"70", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"35", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{ SuperscriptBox["n", "4"], " ", SubscriptBox["d", "n"]}]}]}], "}"}]], "Output", CellChangeTimes->{3.824547796999909*^9, 3.82463538382834*^9}, CellLabel->"Out[25]=",ExpressionUUID->"63d6694b-a5b1-4f08-87e4-e686afda5228"] }, Open ]], Cell[BoxData[ RowBox[{"\n", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "0"], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ SubscriptBox["a", "n_"], ":=", RowBox[{"0", "/;", RowBox[{"n", "<", "0"}]}]}], "\[IndentingNewLine]", RowBox[{ SubscriptBox["b", "n_"], ":=", RowBox[{"0", "/;", RowBox[{"n", "<", "1"}]}]}], "\[IndentingNewLine]", RowBox[{ SubscriptBox["c", "n_"], ":=", RowBox[{"0", "/;", RowBox[{"n", "<", "1"}]}]}], "\[IndentingNewLine]", RowBox[{ SubscriptBox["d", "n_"], ":=", RowBox[{"0", "/;", RowBox[{"n", "<", "1"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ SubscriptBox["a", "n_"], ":=", RowBox[{ SubscriptBox["a", "n"], "=", "\[IndentingNewLine]", RowBox[{ FractionBox["1", SuperscriptBox["n", "4"]], 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[{"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"}]]}]}], ")"}]}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ SubscriptBox["b", "n_"], ":=", RowBox[{ SubscriptBox["b", "n"], "=", "\[IndentingNewLine]", RowBox[{ FractionBox["1", SuperscriptBox["n", "4"]], RowBox[{"(", RowBox[{ RowBox[{"450", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"272", "-", RowBox[{"518", " ", "n"}], "+", RowBox[{"259", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"14", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"5", " ", "n"}], "+", RowBox[{"5", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"4", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", "n"]}], "+", "\[IndentingNewLine]", RowBox[{"225", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"285", "-", RowBox[{"518", " ", "n"}], "+", RowBox[{"259", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"5", "-", RowBox[{"28", " ", "n"}], "+", RowBox[{"63", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"70", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"35", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}]}], ")"}]}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ SubscriptBox["c", "n_"], ":=", RowBox[{ SubscriptBox["c", "n"], "=", "\[IndentingNewLine]", RowBox[{ FractionBox["1", SuperscriptBox["n", "4"]], RowBox[{"(", RowBox[{ RowBox[{"450", " ", RowBox[{"(", RowBox[{"13", "-", RowBox[{"18", " ", "n"}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"790", "-", RowBox[{"1554", " ", "n"}], "+", RowBox[{"777", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"42", " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"10", " ", "n"}], "+", RowBox[{"10", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"12", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", "n"]}], "+", "\[IndentingNewLine]", RowBox[{"900", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"272", "-", RowBox[{"518", " ", "n"}], "+", RowBox[{"259", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"28", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"5", " ", "n"}], "+", RowBox[{"5", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"8", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", "n"]}], "+", "\[IndentingNewLine]", RowBox[{"225", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"285", "-", RowBox[{"518", " ", "n"}], "+", RowBox[{"259", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"5", "-", RowBox[{"28", " ", "n"}], "+", RowBox[{"63", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"70", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"35", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}]}], ")"}]}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ SubscriptBox["d", "n_"], ":=", RowBox[{ SubscriptBox["d", "n"], "=", "\[IndentingNewLine]", RowBox[{ FractionBox["1", SuperscriptBox["n", "4"]], RowBox[{"(", RowBox[{ RowBox[{"2700", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"6216", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"420", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"24", " ", "n", " ", SubscriptBox["a", "n"]}], "+", "\[IndentingNewLine]", RowBox[{"1350", " ", RowBox[{"(", RowBox[{"13", "-", RowBox[{"18", " ", "n"}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"12", " ", RowBox[{"(", RowBox[{"790", "-", RowBox[{"1554", " ", "n"}], "+", RowBox[{"777", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"126", " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"10", " ", "n"}], "+", RowBox[{"10", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", "\[IndentingNewLine]", RowBox[{"36", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", "n"]}], "+", RowBox[{"1350", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"272", "-", RowBox[{"518", " ", "n"}], "+", RowBox[{"259", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"42", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"5", " ", "n"}], "+", RowBox[{"5", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"12", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", "n"]}], "+", "\[IndentingNewLine]", RowBox[{"225", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"285", "-", RowBox[{"518", " ", "n"}], "+", RowBox[{"259", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"5", "-", RowBox[{"28", " ", "n"}], "+", RowBox[{"63", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"70", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"35", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}]}], ")"}]}]}]}]}]}]], "Input", CellChangeTimes->{{3.647509976075486*^9, 3.647509990169289*^9}, { 3.647516391126453*^9, 3.647516392875978*^9}, {3.6475176846076717`*^9, 3.647517712006054*^9}, {3.647517772149699*^9, 3.647517795840042*^9}, 3.6591691839784393`*^9, {3.659278449122657*^9, 3.6592784645613737`*^9}, 3.659278495900432*^9, 3.659278556069158*^9, {3.659278631334889*^9, 3.659278660957013*^9}, 3.659278792032908*^9, {3.659278842125354*^9, 3.659278888827181*^9}, {3.720004377956675*^9, 3.72000443379906*^9}, { 3.720299273764679*^9, 3.720299289273306*^9}, {3.720299381861765*^9, 3.720299387613093*^9}, 3.791372555887619*^9, 3.7913725874909973`*^9, { 3.7913726385718393`*^9, 3.79137266138483*^9}, {3.791372817940494*^9, 3.791372840570882*^9}, 3.791382488780078*^9, {3.791640380877779*^9, 3.7916404045380163`*^9}, 3.824447370428282*^9}, CellLabel->"In[26]:=",ExpressionUUID->"ea7e488e-7a90-45bc-928d-3f218e8bb569"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox[ SubscriptBox["f", RowBox[{"j", ",", "k"}]], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "5850c4de-176b-440b-85f6-a29098dbc1cc"], " ", Cell[BoxData[ FormBox["a", TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "ef0b2f0f-3dbd-4f3e-8370-4e614a2781da"], "re ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Theta]", "k"], SubscriptBox["f", "j"]}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "1d423fae-c341-4c72-94eb-7a81ee54ae16"], " and similarly for the \[CurlyPi]\[CloseCurlyQuote]s ." }], "Text", CellChangeTimes->{{3.82444743925657*^9, 3.824447536205229*^9}},ExpressionUUID->"ceabf811-76c2-4dc7-a82b-\ 18b21fe92ff5"], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["f", RowBox[{"0", ",", "k_"}]], "[", RowBox[{"\[CurlyPhi]_", ",", "nmax_"}], "]"}], ":=", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "0"}], ",", "1", ",", "0"}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["a", "n"], " ", SuperscriptBox["n", "k"], " ", SuperscriptBox["\[CurlyPhi]", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nmax"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["f", RowBox[{"1", ",", "k_"}]], "[", RowBox[{"\[CurlyPhi]_", ",", "nmax_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["b", "n"], SuperscriptBox["n", "k"], " ", SuperscriptBox["\[CurlyPhi]", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nmax"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["f", RowBox[{"2", ",", "k_"}]], "[", RowBox[{"\[CurlyPhi]_", ",", "nmax_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["c", "n"], " ", SuperscriptBox["n", "k"], SuperscriptBox["\[CurlyPhi]", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nmax"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["f", RowBox[{"3", ",", "k_"}]], "[", RowBox[{"\[CurlyPhi]_", ",", "nmax_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["d", "n"], " ", SuperscriptBox["n", "k"], SuperscriptBox["\[CurlyPhi]", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nmax"}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[CurlyPi]", RowBox[{"0", ",", "k_"}]], "[", RowBox[{"\[CurlyPhi]_", ",", "nmax_"}], "]"}], ":=", RowBox[{ SubscriptBox["f", RowBox[{"0", ",", "k"}]], "[", RowBox[{"\[CurlyPhi]", ",", "nmax"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[CurlyPi]", RowBox[{"1", ",", "k_"}]], "[", RowBox[{"\[CurlyPhi]_", ",", "nmax_"}], "]"}], ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"k", ",", "s"}], "]"}], RowBox[{ SubscriptBox["f", RowBox[{"0", ",", RowBox[{"k", "-", "s"}]}]], "[", RowBox[{"\[CurlyPhi]", ",", "nmax"}], "]"}], SuperscriptBox[ RowBox[{"Log", "[", "\[CurlyPhi]", "]"}], RowBox[{"1", "-", "s"}]]}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "1"}], "}"}]}], "]"}], "+", RowBox[{ SubscriptBox["f", RowBox[{"1", ",", "k"}]], "[", RowBox[{"\[CurlyPhi]", ",", "nmax"}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[CurlyPi]", RowBox[{"2", ",", "k_"}]], "[", RowBox[{"\[CurlyPhi]_", ",", "nmax_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"k", ",", "s"}], "]"}], FractionBox[ RowBox[{"2", "!"}], RowBox[{ RowBox[{"(", RowBox[{"2", "-", "s"}], ")"}], "!"}]], RowBox[{ SubscriptBox["f", RowBox[{"0", ",", RowBox[{"k", "-", "s"}]}]], "[", RowBox[{"\[CurlyPhi]", ",", "nmax"}], "]"}], SuperscriptBox[ RowBox[{"Log", "[", "\[CurlyPhi]", "]"}], RowBox[{"2", "-", "s"}]]}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", RowBox[{"Min", "[", RowBox[{"2", ",", "k"}], "]"}]}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"2", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"k", ",", "s"}], "]"}], RowBox[{ SubscriptBox["f", RowBox[{"1", ",", RowBox[{"k", "-", "s"}]}]], "[", RowBox[{"\[CurlyPhi]", ",", "nmax"}], "]"}], " ", SuperscriptBox[ RowBox[{"Log", "[", "\[CurlyPhi]", "]"}], RowBox[{"1", "-", "s"}]]}], " ", ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", RowBox[{"Min", "[", RowBox[{"1", ",", "k"}], "]"}]}], "}"}]}], "]"}]}], "+", RowBox[{ SubscriptBox["f", RowBox[{"2", ",", "k"}]], "[", RowBox[{"\[CurlyPhi]", ",", "nmax"}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[CurlyPi]", RowBox[{"3", ",", "k_"}]], "[", RowBox[{"\[CurlyPhi]_", ",", "nmax_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"k", ",", "s"}], "]"}], FractionBox[ RowBox[{"3", "!"}], RowBox[{ RowBox[{"(", RowBox[{"3", "-", "s"}], ")"}], "!"}]], RowBox[{ SubscriptBox["f", RowBox[{"0", ",", RowBox[{"k", "-", "s"}]}]], "[", RowBox[{"\[CurlyPhi]", ",", "nmax"}], "]"}], SuperscriptBox[ RowBox[{"Log", "[", "\[CurlyPhi]", "]"}], RowBox[{"3", "-", "s"}]]}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", RowBox[{"Min", "[", RowBox[{"3", ",", "k"}], "]"}]}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", " ", RowBox[{"3", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"k", ",", "s"}], "]"}], FractionBox[ RowBox[{"2", "!"}], RowBox[{ RowBox[{"(", RowBox[{"2", "-", "s"}], ")"}], "!"}]], RowBox[{ SubscriptBox["f", RowBox[{"1", ",", RowBox[{"k", "-", "s"}]}]], "[", RowBox[{"\[CurlyPhi]", ",", "nmax"}], "]"}], " ", SuperscriptBox[ RowBox[{"Log", "[", "\[CurlyPhi]", "]"}], RowBox[{"2", "-", "s"}]]}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", RowBox[{"Min", "[", RowBox[{"2", ",", "k"}], "]"}]}], "}"}]}], "]"}]}], "+", "\[IndentingNewLine]", " ", RowBox[{"3", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"k", ",", "s"}], "]"}], RowBox[{ SubscriptBox["f", RowBox[{"2", ",", RowBox[{"k", "-", "s"}]}]], "[", RowBox[{"\[CurlyPhi]", ",", "nmax"}], "]"}], SuperscriptBox[ RowBox[{"Log", "[", "\[CurlyPhi]", "]"}], RowBox[{"1", "-", "s"}]]}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", RowBox[{"Min", "[", RowBox[{"1", ",", "k"}], "]"}]}], "}"}]}], "]"}]}], "+", "\[IndentingNewLine]", " ", RowBox[{ SubscriptBox["f", RowBox[{"3", ",", "k"}]], "[", RowBox[{"\[CurlyPhi]", ",", "nmax"}], "]"}]}]}]}], "Input", CellChangeTimes->{{3.684032837989438*^9, 3.684032996286806*^9}, { 3.684033026716599*^9, 3.684033239299047*^9}, {3.684033277691537*^9, 3.684033278835206*^9}, {3.791373291912677*^9, 3.791373423823471*^9}, { 3.791373455031083*^9, 3.791373513240858*^9}, {3.791373548616094*^9, 3.791373582360256*^9}, {3.791373649793784*^9, 3.791373674498982*^9}, { 3.7913737219880457`*^9, 3.7913737996147547`*^9}, {3.7913738831239243`*^9, 3.791373887147698*^9}, {3.791375066642345*^9, 3.791375100515215*^9}, { 3.79137520014429*^9, 3.791375279267767*^9}, {3.79137531147342*^9, 3.791375392407432*^9}, {3.791375423171227*^9, 3.7913754424395113`*^9}, { 3.79137547842246*^9, 3.791375555371204*^9}, {3.791375645516718*^9, 3.7913756703089952`*^9}, {3.791375716022463*^9, 3.791375815745672*^9}, { 3.791375849556732*^9, 3.79137614938249*^9}, {3.791376526848781*^9, 3.791376530809374*^9}}, CellLabel->"In[35]:=",ExpressionUUID->"c42614fe-e5fc-4470-8feb-e8851f926650"], Cell["Check that Log[\[CurlyPhi]] evaluates correctly for \[CurlyPhi] \ negative", "Text", CellChangeTimes->{{3.8244488343444967`*^9, 3.824448843551906*^9}, { 3.824448874992804*^9, 3.824448906527773*^9}},ExpressionUUID->"b1324245-d4e8-4d01-936e-\ 26166cbc01cd"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "1"}], "/", "50"}], "]"}]], "Input", CellChangeTimes->{{3.8244489121947317`*^9, 3.824448920283716*^9}}, CellLabel->"In[43]:=",ExpressionUUID->"9f5e8a3e-96d9-45e5-81d6-5dae85199d86"], Cell[BoxData[ RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Pi]"}], "-", RowBox[{"Log", "[", "50", "]"}]}]], "Output", CellChangeTimes->{3.8245480250271997`*^9, 3.82463538389987*^9}, CellLabel->"Out[43]=",ExpressionUUID->"4cb907e6-0932-4b99-99ba-59efd1e811eb"] }, Open ]], Cell[TextData[{ "Check that the ", Cell[BoxData[ SubscriptBox["\[CurlyPi]", RowBox[{"j", ",", "k"}]]], CellChangeTimes->{{3.791376241390482*^9, 3.791376476536133*^9}, { 3.791376569224368*^9, 3.791376580628726*^9}},ExpressionUUID-> "63061b68-3942-4faf-9a90-f2b6eca9edf9"], "\[NonBreakingSpace]are correct by calculating \[ScriptCapitalL]", Cell[BoxData[ SubscriptBox["\[CurlyPi]", "j"]], CellChangeTimes->{{3.791376241390482*^9, 3.791376476536133*^9}, { 3.791376569224368*^9, 3.791376580628726*^9}},ExpressionUUID-> "0ae6b980-ec5f-44fa-8990-8230f48eb596"], "for \[CurlyPhi] = - 1/50 ." }], "Text", CellChangeTimes->{{3.8244476486940727`*^9, 3.824447755075883*^9}, { 3.8244489313317003`*^9, 3.824448944031042*^9}},ExpressionUUID->"e0138e85-8a05-4bc6-8678-\ 2554dc63bed8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["S", "k"], "[", "\[CurlyPhi]", "]"}], RowBox[{ SubscriptBox["\[CurlyPi]", RowBox[{"j", ",", "k"}]], "[", RowBox[{"\[CurlyPhi]", ",", "100"}], "]"}]}], "/.", RowBox[{"\[CurlyPhi]", "\[Rule]", RowBox[{"-", RowBox[{"N", "[", RowBox[{ RowBox[{"1", "/", "50"}], ",", "30"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "4"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "//", "Timing"}]], "Input", CellChangeTimes->{{3.791376241390482*^9, 3.791376476536133*^9}, { 3.791376569224368*^9, 3.791376580628726*^9}, {3.8244477931904087`*^9, 3.824447798413994*^9}, 3.824448962965578*^9, {3.824548217251607*^9, 3.824548254731814*^9}}, CellLabel->"In[44]:=",ExpressionUUID->"bcb5c634-6ce5-491a-87ba-6d2053385dfe"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.05717`", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.71183293866`1.9207084949191775*^-27"}], ",", RowBox[{"1.1526307429`0.8759284942717022*^-27", "-", RowBox[{ "5.37788178426`1.917719161198808*^-27", " ", "\[ImaginaryI]"}]}], ",", RowBox[{"2.175105222035`1.3852590068546309*^-26", "+", RowBox[{ "7.24219254842`0.8725219372001248*^-27", " ", "\[ImaginaryI]"}]}], ",", RowBox[{ RowBox[{"-", "5.321303167774`1.009640446086529*^-26"}], "+", RowBox[{ "9.884370613731`1.0056377073476117*^-26", " ", "\[ImaginaryI]"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.824548178069813*^9, 3.824548226118979*^9, 3.824548264548264*^9, 3.824635383960993*^9}, CellLabel->"Out[44]=",ExpressionUUID->"614004f0-6f46-4547-aabd-5ba3c605b75b"] }, Open ]], Cell["These are the f\[CloseCurlyQuote]s and \[CurlyPi]\[CloseCurlyQuote]s as \ series in \[CurlyPhi] .", "Text", CellChangeTimes->{{3.824447855885826*^9, 3.824447888407919*^9}},ExpressionUUID->"e3850741-e2b1-4bad-aca5-\ be7d677e744c"], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["fser", RowBox[{"0", ",", "k_"}]], "[", RowBox[{"\[CurlyPhi]_", ",", "nmax_"}], "]"}], ":=", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "0"}], ",", "1", ",", "0"}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["a", "n"], " ", SuperscriptBox["n", "k"], " ", SuperscriptBox["\[CurlyPhi]", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nmax"}], "}"}]}], "]"}], "+", SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], RowBox[{"nmax", "+", "1"}]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["fser", RowBox[{"1", ",", "k_"}]], "[", RowBox[{"\[CurlyPhi]_", ",", "nmax_"}], "]"}], ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["b", "n"], SuperscriptBox["n", "k"], " ", SuperscriptBox["\[CurlyPhi]", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nmax"}], "}"}]}], "]"}], "+", SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], RowBox[{"nmax", "+", "1"}]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["fser", RowBox[{"2", ",", "k_"}]], "[", RowBox[{"\[CurlyPhi]_", ",", "nmax_"}], "]"}], ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["c", "n"], " ", SuperscriptBox["n", "k"], SuperscriptBox["\[CurlyPhi]", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nmax"}], "}"}]}], "]"}], "+", SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], RowBox[{"nmax", "+", "1"}]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["fser", RowBox[{"3", ",", "k_"}]], "[", RowBox[{"\[CurlyPhi]_", ",", "nmax_"}], "]"}], ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["d", "n"], " ", SuperscriptBox["n", "k"], SuperscriptBox["\[CurlyPhi]", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nmax"}], "}"}]}], "]"}], "+", SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], RowBox[{"nmax", "+", "1"}]]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[CurlyPi]ser", RowBox[{"0", ",", "k_"}]], "[", RowBox[{"\[CurlyPhi]_", ",", "nmax_"}], "]"}], ":=", RowBox[{ SubscriptBox["fser", RowBox[{"0", ",", "k"}]], "[", RowBox[{"\[CurlyPhi]", ",", "nmax"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[CurlyPi]ser", RowBox[{"1", ",", "k_"}]], "[", RowBox[{"\[CurlyPhi]_", ",", "nmax_"}], "]"}], ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"k", ",", "s"}], "]"}], RowBox[{ SubscriptBox["fser", RowBox[{"0", ",", RowBox[{"k", "-", "s"}]}]], "[", RowBox[{"\[CurlyPhi]", ",", "nmax"}], "]"}], SuperscriptBox[ RowBox[{"Log", "[", "\[CurlyPhi]", "]"}], RowBox[{"1", "-", "s"}]]}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "1"}], "}"}]}], "]"}], "+", RowBox[{ SubscriptBox["fser", RowBox[{"1", ",", "k"}]], "[", RowBox[{"\[CurlyPhi]", ",", "nmax"}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[CurlyPi]ser", RowBox[{"2", ",", "k_"}]], "[", RowBox[{"\[CurlyPhi]_", ",", "nmax_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"k", ",", "s"}], "]"}], FractionBox[ RowBox[{"2", "!"}], RowBox[{ RowBox[{"(", RowBox[{"2", "-", "s"}], ")"}], "!"}]], RowBox[{ SubscriptBox["fser", RowBox[{"0", ",", RowBox[{"k", "-", "s"}]}]], "[", RowBox[{"\[CurlyPhi]", ",", "nmax"}], "]"}], SuperscriptBox[ RowBox[{"Log", "[", "\[CurlyPhi]", "]"}], RowBox[{"2", "-", "s"}]]}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", RowBox[{"Min", "[", RowBox[{"2", ",", "k"}], "]"}]}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"2", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"k", ",", "s"}], "]"}], RowBox[{ SubscriptBox["fser", RowBox[{"1", ",", RowBox[{"k", "-", "s"}]}]], "[", RowBox[{"\[CurlyPhi]", ",", "nmax"}], "]"}], " ", SuperscriptBox[ RowBox[{"Log", "[", "\[CurlyPhi]", "]"}], RowBox[{"1", "-", "s"}]]}], " ", ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", RowBox[{"Min", "[", RowBox[{"1", ",", "k"}], "]"}]}], "}"}]}], "]"}]}], "+", RowBox[{ SubscriptBox["fser", RowBox[{"2", ",", "k"}]], "[", RowBox[{"\[CurlyPhi]", ",", "nmax"}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[CurlyPi]ser", RowBox[{"3", ",", "k_"}]], "[", RowBox[{"\[CurlyPhi]_", ",", "nmax_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"k", ",", "s"}], "]"}], FractionBox[ RowBox[{"3", "!"}], RowBox[{ RowBox[{"(", RowBox[{"3", "-", "s"}], ")"}], "!"}]], RowBox[{ SubscriptBox["fser", RowBox[{"0", ",", RowBox[{"k", "-", "s"}]}]], "[", RowBox[{"\[CurlyPhi]", ",", "nmax"}], "]"}], SuperscriptBox[ RowBox[{"Log", "[", "\[CurlyPhi]", "]"}], RowBox[{"3", "-", "s"}]]}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", RowBox[{"Min", "[", RowBox[{"3", ",", "k"}], "]"}]}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", " ", RowBox[{"3", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"k", ",", "s"}], "]"}], FractionBox[ RowBox[{"2", "!"}], RowBox[{ RowBox[{"(", RowBox[{"2", "-", "s"}], ")"}], "!"}]], RowBox[{ SubscriptBox["fser", RowBox[{"1", ",", RowBox[{"k", "-", "s"}]}]], "[", RowBox[{"\[CurlyPhi]", ",", "nmax"}], "]"}], " ", SuperscriptBox[ RowBox[{"Log", "[", "\[CurlyPhi]", "]"}], RowBox[{"2", "-", "s"}]]}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", RowBox[{"Min", "[", RowBox[{"2", ",", "k"}], "]"}]}], "}"}]}], "]"}]}], "+", "\[IndentingNewLine]", " ", RowBox[{"3", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"k", ",", "s"}], "]"}], RowBox[{ SubscriptBox["fser", RowBox[{"2", ",", RowBox[{"k", "-", "s"}]}]], "[", RowBox[{"\[CurlyPhi]", ",", "nmax"}], "]"}], SuperscriptBox[ RowBox[{"Log", "[", "\[CurlyPhi]", "]"}], RowBox[{"1", "-", "s"}]]}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", RowBox[{"Min", "[", RowBox[{"1", ",", "k"}], "]"}]}], "}"}]}], "]"}]}], "+", "\[IndentingNewLine]", " ", RowBox[{ SubscriptBox["fser", RowBox[{"3", ",", "k"}]], "[", RowBox[{"\[CurlyPhi]", ",", "nmax"}], "]"}]}]}]}], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQBmIQXbVyv8aeoteOLbqdNiA68V2YA4g+PfFlFIgWUtwW D6KZdt0C08tMamsr7N84Poj81QuiF/17MBFEy2xVnwmiubdPnguiLdpPLwTR 69IsV4Hold/914JooXn2m8H0ms97QLTB9+TjIPrjzidgWrwvJLoSSC+pmRAP otnmseSA6J6JL0pBtJPa+0oQvZ6TtwVEb6x62g6iqwT8ukD06ZazfSD6+YPs GSD6S8eGxSDa6/HJZSCaZUfDGrB5d77vANEHLhjuBdExtmsegWhzzduCVUA6 5VmkEIi21VByBNE9U91CQTQAUmKbXA== "], CellLabel->"In[45]:=",ExpressionUUID->"a71df506-f253-436f-9699-f29519f59c96"], Cell[TextData[{ "Again, check that the ", Cell[BoxData[ FormBox[ SubscriptBox["\[CurlyPi]", "j"], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "6d08632f-0a60-4b59-9c86-24b520189f9d"], " satisfy the differential equation ." }], "Text", CellChangeTimes->{{3.824447926049889*^9, 3.824447985030559*^9}, 3.824449117286495*^9},ExpressionUUID->"e4a59f71-3d4a-4d3a-bc4a-\ 6aeddd2ee10b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"\[ScriptCapitalL]", "[", RowBox[{ SubscriptBox["\[CurlyPi]ser", RowBox[{"j", ",", "0"}]], "[", RowBox[{"\[CurlyPhi]", ",", "100"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Timing"}]], "Input", CellChangeTimes->{{3.791377100188326*^9, 3.791377210834733*^9}, { 3.824447998595971*^9, 3.8244480016479*^9}}, CellLabel->"In[53]:=",ExpressionUUID->"cf9279c6-17df-402b-a73e-dabdb6fdc8d3"], Cell[BoxData[ RowBox[{"{", RowBox[{"51.225523`", ",", RowBox[{"{", RowBox[{ InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], "101"], SeriesData[$CellContext`\[CurlyPhi], 0, {}, 101, 101, 1], Editable->False], ",", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], "101"], SeriesData[$CellContext`\[CurlyPhi], 0, {}, 101, 101, 1], Editable->False], ",", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], "101"], SeriesData[$CellContext`\[CurlyPhi], 0, {}, 101, 101, 1], Editable->False], ",", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], "101"], SeriesData[$CellContext`\[CurlyPhi], 0, {}, 101, 101, 1], Editable->False]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.824548425679275*^9, 3.824635435751141*^9}, CellLabel->"Out[53]=",ExpressionUUID->"00ec2216-28f3-4083-9b92-3e72847d005b"] }, Open ]] }, Open ]], Cell["defining \[Eta]", "Chapter", CellChangeTimes->{{3.649240012789955*^9, 3.649240025843314*^9}, { 3.791367062338357*^9, 3.791367071838973*^9}, {3.791528762320135*^9, 3.791528765906116*^9}, {3.7915288824383*^9, 3.791528884846203*^9}, { 3.791529052652954*^9, 3.791529058922782*^9}},ExpressionUUID->"109e214a-e9ae-4a53-adb9-\ 74da7ad24f7e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"expr", "=", RowBox[{ RowBox[{"\[ScriptCapitalL]", "[", " ", RowBox[{"F", "[", RowBox[{"\[CurlyPhi]", "-", "\[Psi]"}], "]"}], " ", "]"}], "/.", RowBox[{"\[CurlyPhi]", "\[Rule]", RowBox[{"x", "+", "\[Psi]"}]}]}]}]], "Input", CellChangeTimes->{{3.791381108444394*^9, 3.791381125812344*^9}}, CellLabel->"In[54]:=",ExpressionUUID->"d6c3d65f-ec04-4578-9826-aca1b5000f92"], Cell[BoxData[ RowBox[{ RowBox[{"5", " ", RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"57", " ", RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}]}], "+", RowBox[{"180", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}], "2"]}]}], ")"}], " ", RowBox[{"F", "[", "x", "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"7", "-", RowBox[{"272", " ", RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}]}], "+", RowBox[{"675", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}], "2"]}]}], ")"}], " ", RowBox[{ SuperscriptBox["F", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"63", "-", RowBox[{"1580", " ", RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}]}], "+", RowBox[{"2925", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}], "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["F", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}], " ", RowBox[{ SuperscriptBox["F", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"35", "-", RowBox[{"518", " ", RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}]}], "+", RowBox[{"675", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}], "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["F", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}], " ", RowBox[{ SuperscriptBox["F", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox["F", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}], " ", RowBox[{ SuperscriptBox["F", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x", "+", "\[Psi]"}], ")"}], " ", RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"9", " ", RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"25", " ", RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["F", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}], " ", RowBox[{ SuperscriptBox["F", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox["F", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}], " ", RowBox[{ SuperscriptBox["F", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", RowBox[{ SuperscriptBox["F", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}], " ", RowBox[{ SuperscriptBox["F", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{ SuperscriptBox["F", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "\[Psi]"}], ")"}], " ", RowBox[{ SuperscriptBox["F", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.8245486217868013`*^9, 3.8246354358780603`*^9}, CellLabel->"Out[54]=",ExpressionUUID->"e833c2e1-483c-466b-bc20-0ea786408d87"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["F", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}], "//", "FullForm"}]], "Input", CellChangeTimes->{{3.82454872210767*^9, 3.8245487264652443`*^9}}, CellLabel->"In[55]:=",ExpressionUUID->"9f39e8fb-733a-4979-89d3-491b8a0b870b"], Cell[BoxData[ TagBox[ StyleBox[ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "4", "]"}], "[", "F", "]"}], "[", "x", "]"}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output", CellChangeTimes->{3.824548729132475*^9, 3.824635435885571*^9}, CellLabel-> "Out[55]//FullForm=",ExpressionUUID->"1abced7d-cf47-4dd7-9174-304c1388b33c"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"coeff", "[", RowBox[{"k_", ",", "s_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Coefficient", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Coefficient", "[", RowBox[{"expr", ",", "x", ",", "k"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "s", "]"}], "[", "F", "]"}], "[", "x", "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.791381412710979*^9, 3.7913814293018913`*^9}}, CellLabel->"In[56]:=",ExpressionUUID->"3529f7f1-9eb1-4a83-9a04-97f2a4dc8c73"], Cell[TextData[{ "Pick out the coefficient of ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["x", "n"], " ", "in"}], TraditionalForm]],ExpressionUUID-> "71909c86-8aa8-4cf3-a569-e92680e26479"], " \[ScriptCapitalL][ ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[Sum]", "m"], " ", RowBox[{ SubscriptBox["Avec", "m"], " ", SuperscriptBox["x", "m"]}]}], " ", "]"}], TraditionalForm]], ExpressionUUID->"dbaa3319-1193-4be5-ae97-7ceda98ac659"], " :" }], "Text", CellChangeTimes->{{3.8244483565477552`*^9, 3.824448511736765*^9}},ExpressionUUID->"188da323-ec50-42bf-a1d8-\ 2bb7d517a413"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Collect", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"coeff", "[", RowBox[{"k", ",", "s"}], "]"}], RowBox[{"Product", "[", RowBox[{ RowBox[{"n", "+", "s", "-", "k", "-", "j"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"s", "-", "1"}]}], "}"}]}], "]"}], " ", SubscriptBox["Avec", RowBox[{"n", "+", "s", "-", "k"}]]}], " ", ",", " ", RowBox[{"{", RowBox[{"k", ",", "0", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "4"}], "}"}]}], "]"}], "/.", RowBox[{"n", "\[Rule]", RowBox[{"n", "-", "4"}]}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["Avec", RowBox[{"n", "-", "r"}]], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "7"}], "}"}]}], "]"}], ",", "FullSimplify"}], "]"}]], "Input", CellChangeTimes->{{3.791381260131319*^9, 3.791381407499626*^9}, { 3.7913814404501467`*^9, 3.7913815735266123`*^9}, {3.7913816347634983`*^9, 3.7913816865709257`*^9}, {3.791381843118332*^9, 3.791381913729343*^9}, { 3.791382071634054*^9, 3.791382095377643*^9}, 3.791382130433201*^9, { 3.7913821834582243`*^9, 3.791382185578046*^9}, {3.791529116351829*^9, 3.791529153242095*^9}, {3.7915295116864758`*^9, 3.791529516690057*^9}}, CellLabel->"In[57]:=",ExpressionUUID->"744a8375-5a34-48a2-b137-e4171b42d2b8"], Cell[BoxData[ RowBox[{ RowBox[{"225", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], "2"], " ", SubscriptBox["Avec", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6501"}], "-", RowBox[{"259", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "10"}], "+", "n"}], ")"}], " ", "n"}], "+", RowBox[{"37800", " ", "\[Psi]"}], "+", RowBox[{"225", " ", "n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "68"}], "+", RowBox[{"7", " ", "n"}]}], ")"}], " ", "\[Psi]"}]}], ")"}], " ", SubscriptBox["Avec", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"14565", "+", RowBox[{"7", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "+", "n"}], ")"}], " ", "n", " ", RowBox[{"(", RowBox[{"204", "+", RowBox[{"5", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "+", "n"}], ")"}], " ", "n"}]}], ")"}]}], "-", RowBox[{"612465", " ", "\[Psi]"}], "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{"545069", "-", RowBox[{"2", " ", "n", " ", RowBox[{"(", RowBox[{"91479", "+", RowBox[{"259", " ", "n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "53"}], "+", RowBox[{"3", " ", "n"}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", "\[Psi]"}], "+", RowBox[{"225", " ", RowBox[{"(", RowBox[{"7932", "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7114"}], "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{"2411", "+", RowBox[{"3", " ", "n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "122"}], "+", RowBox[{"7", " ", "n"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Psi]", "2"]}]}], ")"}], " ", SubscriptBox["Avec", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], "4"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"42117", "+", RowBox[{"7", " ", "n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6052"}], "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{"2297", "+", RowBox[{"5", " ", "n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "78"}], "+", RowBox[{"5", " ", "n"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", "\[Psi]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "888249"}], "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{"901195", "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "345921"}], "+", RowBox[{"1295", " ", RowBox[{"(", RowBox[{"46", "-", RowBox[{"3", " ", "n"}]}], ")"}], " ", "n"}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Psi]", "2"]}], "+", RowBox[{"225", " ", RowBox[{"(", RowBox[{"7692", "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7862"}], "+", RowBox[{"5", " ", "n", " ", RowBox[{"(", RowBox[{"609", "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "106"}], "+", RowBox[{"7", " ", "n"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Psi]", "3"]}]}], ")"}], " ", SubscriptBox["Avec", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n"}], ")"}], " ", "\[Psi]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "n", " ", RowBox[{"(", RowBox[{"74", "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "21"}], "+", RowBox[{"2", " ", "n"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"35", " ", RowBox[{"(", RowBox[{"5", "-", RowBox[{"412", " ", "\[Psi]"}]}], ")"}]}], "+", RowBox[{"14", " ", "n", " ", RowBox[{"(", RowBox[{"881", "+", RowBox[{"5", " ", "n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "51"}], "+", RowBox[{"5", " ", "n"}]}], ")"}]}]}], ")"}], " ", "\[Psi]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"203653", "-", RowBox[{"4", " ", "n", " ", RowBox[{"(", RowBox[{"44056", "+", RowBox[{"1295", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "10"}], "+", "n"}], ")"}], " ", "n"}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Psi]", "2"]}], "+", RowBox[{"225", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1328"}], "+", RowBox[{"5", " ", "n", " ", RowBox[{"(", RowBox[{"232", "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "69"}], "+", RowBox[{"7", " ", "n"}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Psi]", "3"]}]}], ")"}], " ", SubscriptBox["Avec", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], " ", SuperscriptBox["\[Psi]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "55"}], "-", RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", "n"}], "+", RowBox[{"3038", " ", "\[Psi]"}], "+", RowBox[{"70", " ", "n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "29"}], "+", RowBox[{"5", " ", "n"}]}], ")"}], " ", "\[Psi]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "32401"}], "+", RowBox[{"1295", " ", RowBox[{"(", RowBox[{"17", "-", RowBox[{"3", " ", "n"}]}], ")"}], " ", "n"}]}], ")"}], " ", SuperscriptBox["\[Psi]", "2"]}], "+", RowBox[{"225", " ", RowBox[{"(", RowBox[{"170", "+", RowBox[{"3", " ", "n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "39"}], "+", RowBox[{"7", " ", "n"}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Psi]", "3"]}]}], ")"}], " ", SubscriptBox["Avec", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", SuperscriptBox["\[Psi]", "3"], " ", RowBox[{"(", RowBox[{"10", "-", RowBox[{"4", " ", "n"}], "+", RowBox[{"35", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "12"}], "+", RowBox[{"5", " ", "n"}]}], ")"}], " ", "\[Psi]"}], "-", RowBox[{"518", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", RowBox[{"3", " ", "n"}]}], ")"}], " ", SuperscriptBox["\[Psi]", "2"]}], "+", RowBox[{"225", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "16"}], "+", RowBox[{"7", " ", "n"}]}], ")"}], " ", SuperscriptBox["\[Psi]", "3"]}]}], ")"}], " ", SubscriptBox["Avec", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", "n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Psi]"}], ")"}], " ", SuperscriptBox["\[Psi]", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"9", " ", "\[Psi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"25", " ", "\[Psi]"}]}], ")"}], " ", SubscriptBox["Avec", "n"]}]}]], "Output", CellChangeTimes->{3.824549082104848*^9, 3.824635436639845*^9}, CellLabel->"Out[57]=",ExpressionUUID->"d7e595f3-e146-45d0-968c-db9bde9d067a"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["Avec", "n_"], "[", "\[Psi]_", "]"}], ":=", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], "/;", RowBox[{"n", "<", "0"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["Avec", "0"], "[", "\[Psi]_", "]"}], ":=", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["Avec", "1"], "[", "\[Psi]_", "]"}], ":=", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["Avec", "2"], "[", "\[Psi]_", "]"}], ":=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Avec", "3"], "[", "\[Psi]_", "]"}], ":=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ SubscriptBox["Avec", "n_"], "[", "\[Psi]_", "]"}], ":=", RowBox[{ RowBox[{ SubscriptBox["Avec", "n"], "[", "\[Psi]", "]"}], "=", "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ FractionBox[ RowBox[{"-", "1"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", "n", " ", SuperscriptBox["\[Psi]", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Psi]"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"9", " ", "\[Psi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"25", " ", "\[Psi]"}]}], ")"}]}]], RowBox[{"(", RowBox[{ RowBox[{"225", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], "2"], " ", RowBox[{ SubscriptBox["Avec", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]], "[", "\[Psi]", "]"}]}], "+", "\[IndentingNewLine]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6501"}], "-", RowBox[{"259", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "10"}], "+", "n"}], ")"}], " ", "n"}], "+", RowBox[{"37800", " ", "\[Psi]"}], "+", RowBox[{"225", " ", "n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "68"}], "+", RowBox[{"7", " ", "n"}]}], ")"}], " ", "\[Psi]"}]}], ")"}], " ", RowBox[{ SubscriptBox["Avec", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Psi]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"14565", "+", RowBox[{"7", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "+", "n"}], ")"}], " ", "n", " ", RowBox[{"(", RowBox[{"204", "+", RowBox[{"5", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "+", "n"}], ")"}], " ", "n"}]}], ")"}]}], "-", RowBox[{"612465", " ", "\[Psi]"}], "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{"545069", "-", RowBox[{"2", " ", "n", " ", RowBox[{"(", RowBox[{"91479", "+", RowBox[{"259", " ", "n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "53"}], "+", RowBox[{"3", " ", "n"}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", "\[Psi]"}], "+", RowBox[{"225", " ", RowBox[{"(", RowBox[{"7932", "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7114"}], "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{"2411", "+", RowBox[{"3", " ", "n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "122"}], "+", RowBox[{"7", " ", "n"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Psi]", "2"]}]}], ")"}], " ", RowBox[{ SubscriptBox["Avec", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Psi]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], "4"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"42117", "+", RowBox[{"7", " ", "n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6052"}], "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{"2297", "+", RowBox[{"5", " ", "n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "78"}], "+", RowBox[{"5", " ", "n"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", "\[Psi]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "888249"}], "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{"901195", "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "345921"}], "+", RowBox[{"1295", " ", RowBox[{"(", RowBox[{"46", "-", RowBox[{"3", " ", "n"}]}], ")"}], " ", "n"}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Psi]", "2"]}], "+", RowBox[{"225", " ", RowBox[{"(", RowBox[{"7692", "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7862"}], "+", RowBox[{"5", " ", "n", " ", RowBox[{"(", RowBox[{"609", "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "106"}], "+", RowBox[{"7", " ", "n"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Psi]", "3"]}]}], ")"}], " ", RowBox[{ SubscriptBox["Avec", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Psi]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n"}], ")"}], " ", "\[Psi]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "n", " ", RowBox[{"(", RowBox[{"74", "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "21"}], "+", RowBox[{"2", " ", "n"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"35", " ", RowBox[{"(", RowBox[{"5", "-", RowBox[{"412", " ", "\[Psi]"}]}], ")"}]}], "+", RowBox[{"14", " ", "n", " ", RowBox[{"(", RowBox[{"881", "+", RowBox[{"5", " ", "n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "51"}], "+", RowBox[{"5", " ", "n"}]}], ")"}]}]}], ")"}], " ", "\[Psi]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"203653", "-", RowBox[{"4", " ", "n", " ", RowBox[{"(", RowBox[{"44056", "+", RowBox[{"1295", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "10"}], "+", "n"}], ")"}], " ", "n"}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Psi]", "2"]}], "+", RowBox[{"225", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1328"}], "+", RowBox[{"5", " ", "n", " ", RowBox[{"(", RowBox[{"232", "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "69"}], "+", RowBox[{"7", " ", "n"}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Psi]", "3"]}]}], ")"}], " ", RowBox[{ SubscriptBox["Avec", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Psi]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], " ", SuperscriptBox["\[Psi]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "55"}], "-", RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", "n"}], "+", RowBox[{"3038", " ", "\[Psi]"}], "+", RowBox[{"70", " ", "n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "29"}], "+", RowBox[{"5", " ", "n"}]}], ")"}], " ", "\[Psi]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "32401"}], "+", RowBox[{"1295", " ", RowBox[{"(", RowBox[{"17", "-", RowBox[{"3", " ", "n"}]}], ")"}], " ", "n"}]}], ")"}], " ", SuperscriptBox["\[Psi]", "2"]}], "+", RowBox[{"225", " ", RowBox[{"(", RowBox[{"170", "+", RowBox[{"3", " ", "n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "39"}], "+", RowBox[{"7", " ", "n"}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Psi]", "3"]}]}], ")"}], " ", RowBox[{ SubscriptBox["Avec", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Psi]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", SuperscriptBox["\[Psi]", "3"], " ", RowBox[{"(", RowBox[{"10", "-", RowBox[{"4", " ", "n"}], "+", RowBox[{"35", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "12"}], "+", RowBox[{"5", " ", "n"}]}], ")"}], " ", "\[Psi]"}], "-", RowBox[{"518", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", RowBox[{"3", " ", "n"}]}], ")"}], " ", SuperscriptBox["\[Psi]", "2"]}], "+", RowBox[{"225", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "16"}], "+", RowBox[{"7", " ", "n"}]}], ")"}], " ", SuperscriptBox["\[Psi]", "3"]}]}], ")"}], " ", RowBox[{ SubscriptBox["Avec", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Psi]", "]"}]}]}], ")"}]}], "]"}]}]}]}], "Input", CellChangeTimes->{{3.7913824995389967`*^9, 3.791382584483007*^9}, { 3.791382663596039*^9, 3.791382672562756*^9}, {3.7913827945097427`*^9, 3.791382805204729*^9}, {3.791383145175275*^9, 3.791383155073276*^9}, { 3.791383307095931*^9, 3.7913833215753508`*^9}, {3.791383418005844*^9, 3.791383499637216*^9}, {3.791383564867937*^9, 3.7913836036757917`*^9}, { 3.791383700904179*^9, 3.7913837480146914`*^9}, {3.791395488522233*^9, 3.791395494207324*^9}, {3.79139590454875*^9, 3.7913960433187027`*^9}, { 3.7913961032570267`*^9, 3.7913961893564463`*^9}, {3.7913962494041967`*^9, 3.791396263678667*^9}, {3.7913963146968822`*^9, 3.791396335627385*^9}, 3.791396370091292*^9, {3.791396457031625*^9, 3.7913964947216043`*^9}, { 3.791396533645585*^9, 3.791396547410665*^9}, {3.7913965809522867`*^9, 3.791396697624414*^9}, {3.79139673094888*^9, 3.7913967398880157`*^9}, { 3.791529199771294*^9, 3.7915293173975687`*^9}, {3.791529353529872*^9, 3.791529372397852*^9}, 3.791529403523765*^9, {3.791529628493281*^9, 3.791529649445085*^9}, {3.79152977112179*^9, 3.791529773757125*^9}, { 3.791530096003708*^9, 3.791530102581843*^9}, {3.791530295703079*^9, 3.791530351803158*^9}, {3.791530439377389*^9, 3.7915304820924187`*^9}, { 3.824448582174342*^9, 3.824448597266024*^9}}, CellLabel->"In[58]:=",ExpressionUUID->"363c0ec6-b245-4022-95d8-238853b0bc9d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["Avec", "n"], "[", RowBox[{ RowBox[{"-", "1"}], "/", "50"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "10"}], "}"}]}], "]"}], "//", "Column"}]], "Input", CellChangeTimes->{{3.791384076748486*^9, 3.791384124426489*^9}, { 3.791396759046487*^9, 3.791396778875122*^9}, {3.791529796478244*^9, 3.791529821191163*^9}, {3.791529926852976*^9, 3.7915299355570593`*^9}, { 3.7915300439376802`*^9, 3.7915300447513113`*^9}, {3.79153059110679*^9, 3.791530597813624*^9}, 3.824450353122026*^9}, CellLabel->"In[64]:=",ExpressionUUID->"c7161c45-5992-4621-9c20-53b65654b2c0"], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}, { RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}]}, { RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}]}, { RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["864062500", "27081"]}], ",", FractionBox["56968750", "3009"], ",", RowBox[{"-", FractionBox["62590000", "27081"]}], ",", FractionBox["87900", "1003"]}], "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["28703546875000", "9054081"]}], ",", FractionBox["1785809062500", "1006009"], ",", RowBox[{"-", FractionBox["586038575000", "3018027"]}], ",", FractionBox["16723400500", "3018027"]}], "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["53801223805468750000", "245193567561"]}], ",", FractionBox["3231604067171875000", "27243729729"], ",", RowBox[{"-", FractionBox["3000443548771562500", "245193567561"]}], ",", FractionBox["313845427393750", "1009027027"]}], "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["22694036838350195312500000", "1721504037845781"]}], ",", FractionBox["443851981589611718750000", "63759408809103"], ",", RowBox[{"-", FractionBox["397330416488765609375000", "573834679281927"]}], ",", FractionBox["9478363907091239687500", "573834679281927"]}], "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["3823049719524738737304687500000", "5180005649877955029"]}], ",", FractionBox["220595495885773445644531250000", "575556183319772781"], ",", RowBox[{"-", FractionBox["192584781466339123050781250000", "5180005649877955029"]}], ",", FractionBox["54473023508612945421875000", "63950687035530309"]}], "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1856509639365001187072412109375000000", "46759911001448300046783"]}], ",", FractionBox["35262218393390357358791992187500000", "1731848555609196298029"], ",", RowBox[{"-", FractionBox["30223016989446876372134101562500000", "15586637000482766682261"]}], ",", FractionBox["673212446781586384502699218750000", "15586637000482766682261"]}], "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["879717730181639616769532316894531250000000", "422101716610073804522310141"]}], ",", FractionBox["49638163435607756135274340673828125000000", "46900190734452644946923349"], ",", RowBox[{"-", FractionBox["5992113415359463428407586674804687500000", "60300245230010543503187163"]}], ",", FractionBox["3765408357842317318416027792968750000", "1737044101276023886923087"]}], "}"}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", CellChangeTimes->{3.824549685744594*^9, 3.824635436726923*^9}, CellLabel->"Out[64]=",ExpressionUUID->"2bd5f004-9e14-4cbb-8a7a-0159823c194e"] }, Open ]], Cell[BoxData[ RowBox[{ SuperscriptBox["\[Theta]", "k"], RowBox[{ SuperscriptBox["x", "n"], " ", ":"}]}]], "Text", CellChangeTimes->{{3.824450447028455*^9, 3.8244504791740522`*^9}},ExpressionUUID->"97bd4e38-7569-4dc2-b667-\ 37760d6c743b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"k", ",", RowBox[{"FullSimplify", "[", RowBox[{"\[Theta]", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"\[CurlyPhi]", "-", "\[Psi]"}], ")"}], "n"], ",", "k"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "4"}], "}"}]}], "]"}], "//", "Column"}]], "Input", CellChangeTimes->{{3.7916204074303083`*^9, 3.7916205003283443`*^9}, 3.7916291792725773`*^9, 3.824450671873402*^9}, CellLabel->"In[65]:=",ExpressionUUID->"dac76ca7-0f6e-4443-8d2c-abe090c032be"], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"{", RowBox[{"0", ",", SuperscriptBox[ RowBox[{"(", RowBox[{"\[CurlyPhi]", "-", "\[Psi]"}], ")"}], "n"]}], "}"}]}, { RowBox[{"{", RowBox[{"1", ",", RowBox[{"n", " ", "\[CurlyPhi]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"\[CurlyPhi]", "-", "\[Psi]"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}]}], "}"}]}, { RowBox[{"{", RowBox[{"2", ",", RowBox[{"n", " ", "\[CurlyPhi]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"\[CurlyPhi]", "-", "\[Psi]"}], ")"}], RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"n", " ", "\[CurlyPhi]"}], "-", "\[Psi]"}], ")"}]}]}], "}"}]}, { RowBox[{"{", RowBox[{"3", ",", RowBox[{"n", " ", "\[CurlyPhi]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"\[CurlyPhi]", "-", "\[Psi]"}], ")"}], RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["n", "2"], " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "-", RowBox[{"3", " ", "n", " ", "\[CurlyPhi]", " ", "\[Psi]"}], "+", RowBox[{"\[Psi]", " ", RowBox[{"(", RowBox[{"\[CurlyPhi]", "+", "\[Psi]"}], ")"}]}]}], ")"}]}]}], "}"}]}, { RowBox[{"{", RowBox[{"4", ",", RowBox[{"n", " ", "\[CurlyPhi]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"\[CurlyPhi]", "-", "\[Psi]"}], ")"}], RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["n", "3"], " ", SuperscriptBox["\[CurlyPhi]", "3"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", "n"}], "-", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", "2"], " ", "\[Psi]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"7", " ", "n"}]}], ")"}], " ", "\[CurlyPhi]", " ", SuperscriptBox["\[Psi]", "2"]}], "-", SuperscriptBox["\[Psi]", "3"]}], ")"}]}]}], "}"}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", CellChangeTimes->{3.824549860652563*^9, 3.8246354368543253`*^9}, CellLabel->"Out[65]=",ExpressionUUID->"7ff205dd-6ccd-4ce8-a9e4-c6b764f18a2c"] }, Open ]], Cell[BoxData[ RowBox[{ SuperscriptBox["\[Theta]", "k"], RowBox[{"\[Eta]", " ", ":"}]}]], "Text", CellChangeTimes->{{3.824450553135313*^9, 3.824450566118765*^9}, { 3.8244507533675528`*^9, 3.824450759647797*^9}},ExpressionUUID->"b4cbb70b-d48a-4170-942f-\ f7d992724e7e"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Eta]vec", "0"], "[", RowBox[{"\[CurlyPhi]_", ",", "\[Psi]_", ",", "nmax_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Avec", "n"], "[", "\[Psi]", "]"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"\[CurlyPhi]", "-", "\[Psi]"}], ")"}], "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nmax"}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Eta]vec", "1"], "[", RowBox[{"\[CurlyPhi]_", ",", "\[Psi]_", ",", "nmax_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Avec", "n"], "[", "\[Psi]", "]"}], " ", "n", " ", "\[CurlyPhi]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"\[CurlyPhi]", "-", "\[Psi]"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nmax"}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Eta]vec", "2"], "[", RowBox[{"\[CurlyPhi]_", ",", "\[Psi]_", ",", "nmax_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Avec", "n"], "[", "\[Psi]", "]"}], " ", "n", " ", "\[CurlyPhi]", RowBox[{"(", RowBox[{ RowBox[{"n", " ", "\[CurlyPhi]"}], "-", "\[Psi]"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"\[CurlyPhi]", "-", "\[Psi]"}], ")"}], RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], " ", ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nmax"}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Eta]vec", "3"], "[", RowBox[{"\[CurlyPhi]_", ",", "\[Psi]_", ",", "nmax_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Avec", "n"], "[", "\[Psi]", "]"}], " ", "n", " ", "\[CurlyPhi]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["n", "2"], " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "-", RowBox[{"3", " ", "n", " ", "\[CurlyPhi]", " ", "\[Psi]"}], "+", RowBox[{"\[Psi]", " ", RowBox[{"(", RowBox[{"\[CurlyPhi]", "+", "\[Psi]"}], ")"}]}]}], ")"}], SuperscriptBox[ RowBox[{"(", RowBox[{"\[CurlyPhi]", "-", "\[Psi]"}], ")"}], RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], " ", ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nmax"}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Eta]vec", "4"], "[", RowBox[{"\[CurlyPhi]_", ",", "\[Psi]_", ",", "nmax_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Avec", "n"], "[", "\[Psi]", "]"}], " ", "n", " ", "\[CurlyPhi]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["n", "3"], " ", SuperscriptBox["\[CurlyPhi]", "3"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", "n"}], "-", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", "2"], " ", "\[Psi]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"7", " ", "n"}]}], ")"}], " ", "\[CurlyPhi]", " ", SuperscriptBox["\[Psi]", "2"]}], "-", SuperscriptBox["\[Psi]", "3"]}], ")"}], SuperscriptBox[ RowBox[{"(", RowBox[{"\[CurlyPhi]", "-", "\[Psi]"}], ")"}], RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], " ", ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nmax"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.791385181458179*^9, 3.791385341529396*^9}, { 3.791385382429332*^9, 3.791385419757509*^9}, {3.7913858377189617`*^9, 3.791385969074864*^9}, {3.7913860301288977`*^9, 3.7913860596436357`*^9}, 3.791386171686075*^9, {3.791386215107533*^9, 3.791386251145175*^9}, { 3.791386558742859*^9, 3.791386607890082*^9}, {3.7913891375339403`*^9, 3.791389293530196*^9}, {3.791389927173607*^9, 3.7913899330535603`*^9}, { 3.791389970183353*^9, 3.791389977688792*^9}, {3.791396944192152*^9, 3.79139695956644*^9}, {3.791397573637608*^9, 3.7913976284256887`*^9}, { 3.791530902844347*^9, 3.791530919466215*^9}, {3.791530950017022*^9, 3.7915309802326097`*^9}, {3.791531025395965*^9, 3.7915310464371843`*^9}, { 3.791620536339293*^9, 3.791620541301655*^9}, {3.791620580414982*^9, 3.791620612126495*^9}, {3.791620670854248*^9, 3.7916207046626797`*^9}, { 3.7916207385819387`*^9, 3.791620806016807*^9}, {3.791620860950933*^9, 3.791620868929656*^9}, {3.791621994904652*^9, 3.791622006761056*^9}, { 3.791624783510659*^9, 3.7916247948421993`*^9}, {3.7916274626507463`*^9, 3.791627498165539*^9}, {3.791627548004809*^9, 3.791627553467194*^9}, { 3.7916292166789103`*^9, 3.791629265555705*^9}}, CellLabel->"In[66]:=",ExpressionUUID->"72c2f1f4-a144-423a-a26f-d69762d4a71e"], Cell["Check \[Eta] satisfies the differential equation", "Text", CellChangeTimes->{{3.824451084300578*^9, 3.824451109564831*^9}},ExpressionUUID->"21d17779-8c88-4f02-a067-\ 919b431db62a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Timing", "[", "\[IndentingNewLine]", RowBox[{"\[ScriptCapitalL]", "[", RowBox[{"Series", "[", " ", RowBox[{ RowBox[{ SubscriptBox["\[Eta]vec", "0"], "[", RowBox[{"\[CurlyPhi]", ",", RowBox[{ RowBox[{"-", "1"}], "/", "50"}], ",", "204"}], "]"}], ",", RowBox[{"{", RowBox[{"\[CurlyPhi]", ",", RowBox[{ RowBox[{"-", "1"}], "/", "50"}], ",", "204"}], "}"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.791386273165975*^9, 3.791386409040593*^9}, { 3.791386444829257*^9, 3.791386446901774*^9}, {3.7913866315075407`*^9, 3.791386639855373*^9}, {3.791387425790765*^9, 3.791387442339114*^9}, { 3.79139765810972*^9, 3.791397707170156*^9}, {3.79153108524533*^9, 3.791531110035386*^9}, {3.791531145157692*^9, 3.791531145772223*^9}, { 3.82445092783286*^9, 3.8244509328535013`*^9}, 3.824541978964489*^9, { 3.824542041930532*^9, 3.824542070090558*^9}}, CellLabel->"In[71]:=",ExpressionUUID->"50e88b61-ea04-4fdc-804a-3e6b7017fa23"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.381424`", ",", RowBox[{"{", RowBox[{ InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", RowBox[{"\[CurlyPhi]", "+", FractionBox["1", "50"]}], "]"}], "201"], SeriesData[$CellContext`\[CurlyPhi], Rational[-1, 50], {}, 201, 201, 1], Editable->False], ",", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", RowBox[{"\[CurlyPhi]", "+", FractionBox["1", "50"]}], "]"}], "201"], SeriesData[$CellContext`\[CurlyPhi], Rational[-1, 50], {}, 201, 201, 1], Editable->False], ",", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", RowBox[{"\[CurlyPhi]", "+", FractionBox["1", "50"]}], "]"}], "201"], SeriesData[$CellContext`\[CurlyPhi], Rational[-1, 50], {}, 201, 201, 1], Editable->False], ",", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", RowBox[{"\[CurlyPhi]", "+", FractionBox["1", "50"]}], "]"}], "201"], SeriesData[$CellContext`\[CurlyPhi], Rational[-1, 50], {}, 201, 201, 1], Editable->False]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.824550094609419*^9, 3.8246354373425493`*^9}, CellLabel->"Out[71]=",ExpressionUUID->"e8f057c0-46a3-40b8-845b-e43b2a6ac125"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Timing", "[", "\[IndentingNewLine]", RowBox[{"Simplify", "[", "\[IndentingNewLine]", RowBox[{"Series", "[", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["S", "k"], "[", "\[CurlyPhi]", "]"}], RowBox[{ SubscriptBox["\[Eta]vec", "k"], "[", RowBox[{"\[CurlyPhi]", ",", RowBox[{ RowBox[{"-", "1"}], "/", "50"}], ",", "204"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "4"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[CurlyPhi]", ",", RowBox[{ RowBox[{"-", "1"}], "/", "50"}], ",", "200"}], "}"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.791386273165975*^9, 3.791386409040593*^9}, { 3.791386444829257*^9, 3.791386446901774*^9}, {3.7913866315075407`*^9, 3.791386639855373*^9}, {3.791387425790765*^9, 3.791387442339114*^9}, { 3.791389350198181*^9, 3.791389439252334*^9}, {3.791389513665544*^9, 3.7913895175291977`*^9}, {3.791389631318891*^9, 3.791389631525997*^9}, { 3.79138966249124*^9, 3.791389740665332*^9}, 3.7913897858363647`*^9, { 3.791390047195429*^9, 3.791390067906707*^9}, {3.791531200617441*^9, 3.791531209834846*^9}, 3.8244510136048*^9, 3.824451144432033*^9}, CellLabel->"In[72]:=",ExpressionUUID->"ddbcba5c-2e2f-453c-a710-4c0b7dbf702f"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.666798`", ",", RowBox[{"{", RowBox[{ InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", RowBox[{"\[CurlyPhi]", "+", FractionBox["1", "50"]}], "]"}], "201"], SeriesData[$CellContext`\[CurlyPhi], Rational[-1, 50], {}, 201, 201, 1], Editable->False], ",", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", RowBox[{"\[CurlyPhi]", "+", FractionBox["1", "50"]}], "]"}], "201"], SeriesData[$CellContext`\[CurlyPhi], Rational[-1, 50], {}, 201, 201, 1], Editable->False], ",", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", RowBox[{"\[CurlyPhi]", "+", FractionBox["1", "50"]}], "]"}], "201"], SeriesData[$CellContext`\[CurlyPhi], Rational[-1, 50], {}, 201, 201, 1], Editable->False], ",", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", RowBox[{"\[CurlyPhi]", "+", FractionBox["1", "50"]}], "]"}], "201"], SeriesData[$CellContext`\[CurlyPhi], Rational[-1, 50], {}, 201, 201, 1], Editable->False]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.8245501694921303`*^9, 3.824635438017105*^9}, CellLabel->"Out[72]=",ExpressionUUID->"70ea5d3f-2b59-4c05-920f-520ff3638f19"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Wpitemp", "[", RowBox[{"\[CurlyPhi]_", ",", "nmax_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["\[CurlyPi]", RowBox[{"j", ",", "k"}]], "[", RowBox[{"\[CurlyPhi]", ",", "nmax"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "3"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.791398071255521*^9, 3.791398223307272*^9}, { 3.791531764426586*^9, 3.791531766844871*^9}}, CellLabel->"In[73]:=",ExpressionUUID->"e537770a-bbc8-4d7b-ba3c-cb5104990f41"], Cell[BoxData[ RowBox[{ RowBox[{"Wetatemp", "[", RowBox[{"\[CurlyPhi]_", ",", "\[Psi]_", ",", "nmax_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Transpose", "[", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["\[Eta]vec", "k"], "[", RowBox[{"\[CurlyPhi]", ",", "\[Psi]", ",", "nmax"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "3"}], "}"}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.7913988732136087`*^9, 3.791398959773116*^9}, { 3.791531778913493*^9, 3.791531842560871*^9}}, CellLabel->"In[74]:=",ExpressionUUID->"011f4a1b-9d03-46d3-9238-d4f3f10cfbeb"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", " ", "\[IndentingNewLine]", RowBox[{"Series", "[", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ SubscriptBox["S", "4"], "[", "\[CurlyPhi]", "]"}], "2"], RowBox[{"Det", "[", RowBox[{"Wpitemp", "[", RowBox[{"\[CurlyPhi]", ",", "12"}], "]"}], "]"}]}], " ", ",", RowBox[{"{", RowBox[{"\[CurlyPhi]", ",", "0", ",", "12"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.791398630516279*^9, 3.791398766767104*^9}, { 3.791531889179698*^9, 3.7915319506108437`*^9}, {3.791531994088819*^9, 3.7915320440186453`*^9}, 3.791532098543723*^9, {3.824550419386867*^9, 3.824550426239143*^9}}, CellLabel->"In[75]:=",ExpressionUUID->"da26fcdf-87b4-4167-9ec1-6432ba0b732e"], Cell[BoxData[ InterpretationBox[ RowBox[{"12", "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], "13"], SeriesData[$CellContext`\[CurlyPhi], 0, {}, 0, 13, 1], Editable->False]}], SeriesData[$CellContext`\[CurlyPhi], 0, {12}, 0, 13, 1], Editable->False]], "Output", CellChangeTimes->{{3.824550403334463*^9, 3.824550429255554*^9}, 3.824635438779652*^9}, CellLabel->"Out[75]=",ExpressionUUID->"a5ecef06-48ff-4e52-949e-004ec13a5e2b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", "\[IndentingNewLine]", RowBox[{"Series", "[", " ", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ SubscriptBox["S", "4"], "[", "\[CurlyPhi]", "]"}], "2"], RowBox[{"Det", "[", RowBox[{"Wetatemp", "[", RowBox[{"\[CurlyPhi]", ",", "\[Psi]", ",", "15"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"\[CurlyPhi]", ",", "\[Psi]", ",", "12"}], "}"}]}], "]"}], " ", "]"}]], "Input", CellChangeTimes->{{3.791399003983562*^9, 3.791399076954934*^9}, { 3.7913991127933903`*^9, 3.791399144631728*^9}, {3.79139918197083*^9, 3.7913992573786497`*^9}, {3.791399388627644*^9, 3.7913993909630127`*^9}, { 3.7913994718395777`*^9, 3.7913994877319937`*^9}, {3.791399521604815*^9, 3.791399528220832*^9}, {3.791532069062392*^9, 3.7915320747868834`*^9}, { 3.79153211068897*^9, 3.7915322249724073`*^9}, {3.79153230305371*^9, 3.791532342412871*^9}, 3.791532391262206*^9, 3.824452145155167*^9, { 3.824550496276745*^9, 3.824550502240737*^9}, 3.824550538386705*^9}, CellLabel->"In[76]:=",ExpressionUUID->"fb539e71-c49d-49db-9b80-43eb720b8782"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"12", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"25", " ", "\[Psi]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"9", " ", "\[Psi]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Psi]"}], ")"}], "2"], " ", SuperscriptBox["\[Psi]", "6"]}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", RowBox[{"\[CurlyPhi]", "-", "\[Psi]"}], "]"}], "13"], SeriesData[$CellContext`\[CurlyPhi], $CellContext`\[Psi], {}, 0, 13, 1], Editable->False]}], SeriesData[$CellContext`\[CurlyPhi], $CellContext`\[Psi], { 12 (1 - 25 $CellContext`\[Psi])^2 (1 - 9 $CellContext`\[Psi])^2 (-1 + $CellContext`\[Psi])^2 $CellContext`\ \[Psi]^6}, 0, 13, 1], Editable->False]], "Output", CellChangeTimes->{ 3.824550454413494*^9, {3.824550522128656*^9, 3.824550550701706*^9}, 3.82463544837644*^9}, CellLabel->"Out[76]=",ExpressionUUID->"4505ecf7-c637-4271-bc87-42b55a261a09"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ "I", " ", "meant", " ", "to", " ", "set", " ", "the", " ", "problem", " ", "of", " ", "computing", " ", "M", " ", "for", " ", "\[Eta]", RowBox[{ RowBox[{"(", RowBox[{"\[CurlyPhi]", ",", RowBox[{ RowBox[{"-", "1"}], "/", "50"}]}], ")"}], ".", " ", "It"}], " ", "is", " ", "easy", " ", "to", " ", "see", " ", "that", " ", RowBox[{ SubscriptBox["W", "\[Eta]"], "[", RowBox[{"\[Psi]", ",", "\[Psi]"}], "]"}]}], " ", "=", " ", RowBox[{"V", "[", "\[Psi]", "]"}]}], ",", " ", RowBox[{"where", " ", "V", " ", "is", " ", "the", " ", "limit"}], " ", ",", RowBox[{ RowBox[{"as", " ", "x"}], "\[Rule]", "0"}], " ", ",", " ", RowBox[{"of", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"\[Psi]", "+", "x"}], ")"}], RowBox[{"d", "/", "dx"}]}], ")"}], "k"], " ", RowBox[{ SuperscriptBox["x", "j"], " ", ".", "\[IndentingNewLine]", "We"}], " ", "compute", " ", "this", " ", "limit"}]}]], "Text", CellChangeTimes->{{3.824464043093611*^9, 3.8244643068316917`*^9}, { 3.824464338546603*^9, 3.824464364571774*^9}, {3.8245513875661182`*^9, 3.824551393136402*^9}, {3.824562487122167*^9, 3.824562575626116*^9}, { 3.824633857652134*^9, 3.824633906813985*^9}},ExpressionUUID->"97a60bb8-3df2-49c0-a931-\ 762d242044fe"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"V", "[", "\[Psi]_", "]"}], ":=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Nest", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Psi]", "+", "x"}], ")"}], " ", RowBox[{"D", "[", RowBox[{"#", ",", "x"}], "]"}]}], "&"}], ",", SuperscriptBox["x", "j"], ",", "k"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "3"}], "}"}]}], "]"}], "/.", RowBox[{"x", "\[Rule]", "0"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"V", "[", "\[Psi]", "]"}], "//", "MatrixForm"}]}], "Input", CellChangeTimes->{{3.8245510703072844`*^9, 3.824551072766253*^9}, 3.8245511093011847`*^9, {3.824551270741434*^9, 3.8245513151861353`*^9}, { 3.8245513573498783`*^9, 3.824551359319302*^9}, 3.824562629455941*^9}, CellLabel->"In[77]:=",ExpressionUUID->"35293728-39a6-42b1-afb5-3cec2efca127"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0"}, {"0", "\[Psi]", "\[Psi]", "\[Psi]"}, {"0", "0", RowBox[{"2", " ", SuperscriptBox["\[Psi]", "2"]}], RowBox[{"6", " ", SuperscriptBox["\[Psi]", "2"]}]}, {"0", "0", "0", RowBox[{"6", " ", SuperscriptBox["\[Psi]", "3"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.824551361921961*^9, 3.8245626424543247`*^9, 3.8246354484241943`*^9}, CellLabel-> "Out[78]//MatrixForm=",ExpressionUUID->"8a7fe1df-db4d-47c0-b504-\ ee3701c651df"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Eta]", RowBox[{"(", RowBox[{"\[CurlyPhi]", ",", FormBox[ SubscriptBox["\[Psi]", "1"], TraditionalForm]}], ")"}]}], "=", RowBox[{ FormBox[ SubscriptBox["M", "1"], TraditionalForm], "\[CurlyPi]", RowBox[{"(", "\[CurlyPhi]", ")"}]}]}], ";", " ", RowBox[{ RowBox[{ SubscriptBox["W", "\[Eta]"], RowBox[{"(", RowBox[{"\[CurlyPhi]", ",", FormBox[ SubscriptBox["\[Psi]", "1"], TraditionalForm]}], ")"}]}], "=", RowBox[{ FormBox[ SubscriptBox["M", "1"], TraditionalForm], SubscriptBox["W", "\[CurlyPi]"], RowBox[{"(", "\[CurlyPhi]", ")"}]}]}], ";", " ", RowBox[{ FormBox[ RowBox[{" ", RowBox[{ SubscriptBox["M", "1"], "=", " ", RowBox[{ SubscriptBox["W", "\[Eta]"], "(", RowBox[{"\[CurlyPhi]", ",", SubscriptBox["\[Psi]", "1"]}], ")"}]}]}], TraditionalForm], SubscriptBox["W", "\[CurlyPi]"], RowBox[{ SuperscriptBox[ RowBox[{"(", "\[CurlyPhi]", ")"}], RowBox[{"-", "1"}]], ".", "\[IndentingNewLine]", "Despite"}], " ", "appearances"}]}], ",", " ", RowBox[{ SubscriptBox["M", "1"], " ", "is", " ", "independent", " ", "of", " ", RowBox[{"\[CurlyPhi]", "."}]}]}]], "Text", CellChangeTimes->{ 3.8245515220137863`*^9, {3.824551553207077*^9, 3.824551595649955*^9}, { 3.824551629350751*^9, 3.824551645968128*^9}, {3.824634156029025*^9, 3.8246342130028954`*^9}},ExpressionUUID->"81634689-e687-4dc0-bef1-\ 4d8002c39c57"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"mat1", "[", "\[CurlyPhi]_", "]"}], ":=", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Wetatemp", "[", RowBox[{"\[CurlyPhi]", ",", RowBox[{ RowBox[{"-", "1"}], "/", "50"}], ",", "200"}], "]"}], ".", RowBox[{"Inverse", "[", RowBox[{"Wpitemp", "[", RowBox[{"\[CurlyPhi]", ",", "200"}], "]"}], "]"}]}], ",", "30"}], " ", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.791400223199526*^9, 3.791400250109228*^9}, { 3.791400285972661*^9, 3.791400312743479*^9}, {3.791400352094143*^9, 3.791400412906324*^9}, {3.791400669137928*^9, 3.791400675011491*^9}, { 3.791400772662825*^9, 3.791400774033493*^9}, {3.791629406102672*^9, 3.791629417284082*^9}, {3.8245423368595467`*^9, 3.824542341662674*^9}, { 3.824542410007303*^9, 3.824542415017658*^9}, {3.824542851391081*^9, 3.824542851639208*^9}, {3.8245428961398783`*^9, 3.824542910061067*^9}, { 3.824551746104978*^9, 3.824551805367649*^9}, {3.82455184463334*^9, 3.824551846927619*^9}}, CellLabel->"In[79]:=",ExpressionUUID->"48931d5d-e609-4088-8ca1-4c7d77c8b6bd"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"mat1", "[", RowBox[{ RowBox[{"-", "1"}], "/", "100"}], "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.824551854590806*^9, 3.824551868633108*^9}, { 3.824551961942337*^9, 3.8245519673377333`*^9}}, CellLabel->"In[80]:=",ExpressionUUID->"246f3648-422b-448b-8f21-d8ed9d91197e"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ "0.528434314085155614427512335219693461239322777017304510479`29.\ 178801898506016", "-", RowBox[{ "4.9228468077595996391810261349900634254033332382307167364917`30.\ 148027208903304", " ", "\[ImaginaryI]"}]}], RowBox[{ "1.0689537660767158255480452243700897876332468073508752142396`29.\ 77617565696974", "-", RowBox[{ "2.2942273896079337049501884231385036846647768666934756369608`30.\ 107853195548245", " ", "\[ImaginaryI]"}]}], RowBox[{ "0.3651376296329182774573168321521049726139628035008489626823`30.\ 073741090863365", "-", RowBox[{ "0.2377951707547392757641789431900498075814863778778159846959`29.\ 887487529479554", " ", "\[ImaginaryI]"}]}], "0.0252308512459987089832233303539552140261478197780270884186`30."}, { RowBox[{ "0.3587372230162922470947987728934781898383982404126329639134`29.\ 422973067774016", "+", RowBox[{ "1.8817704011945602618531925898857028245776746666218306236926`30.\ 142763258960443", " ", "\[ImaginaryI]"}]}], RowBox[{ RowBox[{ "-", "0.3858630822441729393327623298973680162301277399876318842741`29.\ 729865644605916"}], "+", RowBox[{ "0.9403530864452318580133795420251304322768948389831528358262`30.\ 116723369862033", " ", "\[ImaginaryI]"}]}], RowBox[{ RowBox[{ "-", "0.1496618419594790116040942749981568804942300937906505712749`30.\ 06799715113237"}], "+", RowBox[{ "0.1017587559007204759163072969532086369644562341622974331967`29.\ 900457853810106", " ", "\[ImaginaryI]"}]}], RowBox[{ "-", "0.0107969393363208240295422337905409981794023367514129915045`30."}\ ]}, { RowBox[{ RowBox[{ "-", "0.038776862311552510427056374658318483217605247964202589963`29.\ 664407826464988"}], "-", RowBox[{ "0.1122538157330429627026224921527395243906251736637849787945`30.\ 12603627436478", " ", "\[ImaginaryI]"}]}], RowBox[{ "0.0201481561058776644475408203924822325884438476883093591328`29.\ 62842834738441", "-", RowBox[{ "0.063938752327383650611874039443880780468086774905270293999`30.\ 12995719770329", " ", "\[ImaginaryI]"}]}], RowBox[{ "0.0101761684880315353660331466321935699063421084424447723663`30.\ 057516266726715", "-", RowBox[{ "0.0074404983023484368455489510470821925621644634744511331299`29.\ 921533999629567", " ", "\[ImaginaryI]"}]}], "0.0007894613892570728813830415562217940841385711349736878338`30."}, { RowBox[{ "0.0007137497697861710058028233371776427325512030015923501053`29.\ 753559417820853", "+", RowBox[{ "0.0016309970928740596559266353787476324935595285078695791193`30.\ 112466623589565", " ", "\[ImaginaryI]"}]}], RowBox[{ RowBox[{ "-", "0.0002584132335362164647267541822825041357998684462851650064`29.\ 545117403233988"}], "+", RowBox[{ "0.0010090639172481438515643822132898147275701580206992222346`30.\ 136721329466077", " ", "\[ImaginaryI]"}]}], RowBox[{ RowBox[{ "-", "0.0001605975103257133190393130315312177337471187269907211305`30.\ 048323672916652"}], "+", RowBox[{ "0.0001244986035178698761022988765982508781303341613414333543`29.\ 937749344645916", " ", "\[ImaginaryI]"}]}], RowBox[{ "-", "0.000013209712105271347057006816954820165259448645557526403`30."}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.824551970149395*^9, 3.824635448827688*^9}, CellLabel-> "Out[80]//MatrixForm=",ExpressionUUID->"4be42619-52fa-4737-8c1c-\ 91878a1e5eef"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"mat1", "[", RowBox[{ RowBox[{"-", "1"}], "/", "40"}], "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.824551854590806*^9, 3.824551868633108*^9}, { 3.824551961942337*^9, 3.8245519673377333`*^9}, {3.824552000657219*^9, 3.8245520009190207`*^9}}, CellLabel->"In[81]:=",ExpressionUUID->"eaf32922-619a-4a0e-ad87-4c5b31bc9ec7"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ "0.5284343140851556144275123352196934612565431601185637253315`29.\ 178801898506016", "-", RowBox[{ "4.9228468077595996391810261349900634253704963239356401402964`30.\ 148027208903304", " ", "\[ImaginaryI]"}]}], RowBox[{ "1.0689537660767158255480452243700897876287248425073208820528`29.\ 77617565696974", "-", RowBox[{ "2.2942273896079337049501884231385036846429184859298333761718`30.\ 107853195548245", " ", "\[ImaginaryI]"}]}], RowBox[{ "0.3651376296329182774573168321521049726104839341543304989546`30.\ 073741090863365", "-", RowBox[{ "0.2377951707547392757641789431900498075786578563729822156`29.\ 887487529479554", " ", "\[ImaginaryI]"}]}], "0.0252308512459987089832233303539552140258477059310122796931`30."}, { RowBox[{ "0.3587372230162922470947987728934781898353172278875638768121`29.\ 422973067774016", "+", RowBox[{ "1.8817704011945602618531925898857028245717744067095874112392`30.\ 142763258960443", " ", "\[ImaginaryI]"}]}], RowBox[{ RowBox[{ "-", "0.3858630822441729393327623298973680162293165568028645009736`29.\ 729865644605916"}], "+", RowBox[{ "0.9403530864452318580133795420251304322729735417988001506416`30.\ 116723369862033", " ", "\[ImaginaryI]"}]}], RowBox[{ RowBox[{ "-", "0.1496618419594790116040942749981568804936059983571909744135`30.\ 06799715113237"}], "+", RowBox[{ "0.1017587559007204759163072969532086369639488242019235954726`29.\ 900457853810106", " ", "\[ImaginaryI]"}]}], RowBox[{ "-", "0.0107969393363208240295422337905409981793486375601397556252`30."}\ ]}, { RowBox[{ RowBox[{ "-", "0.0387768623115525104270563746583184832174806407893340850305`29.\ 664407826464988"}], "-", RowBox[{ "0.1122538157330429627026224921527395243903869554314364020451`30.\ 12603627436478", " ", "\[ImaginaryI]"}]}], RowBox[{ "0.0201481561058776644475408203924822325884109137001441524006`29.\ 62842834738441", "-", RowBox[{ "0.0639387523273836506118740394438807804679275468377058801509`30.\ 12995719770329", " ", "\[ImaginaryI]"}]}], RowBox[{ "0.0101761684880315353660331466321935699063167664870696433995`30.\ 057516266726715", "-", RowBox[{ "0.0074404983023484368455489510470821925621438589000128342449`29.\ 921533999629567", " ", "\[ImaginaryI]"}]}], "0.0007894613892570728813830415562217940841363895977054523253`30."}, { RowBox[{ "0.0007137497697861710058028233371776427325497785389605066541`29.\ 753559417820853", "+", RowBox[{ "0.0016309970928740596559266353787476324935568154733994265402`30.\ 112466623589565", " ", "\[ImaginaryI]"}]}], RowBox[{ RowBox[{ "-", "0.0002584132335362164647267541822825041357994946543686591691`29.\ 545117403233988"}], "+", RowBox[{ "0.0010090639172481438515643822132898147275683508058197492445`30.\ 136721329466077", " ", "\[ImaginaryI]"}]}], RowBox[{ RowBox[{ "-", "0.0001605975103257133190393130315312177337468310981741917904`30.\ 048323672916652"}], "+", RowBox[{ "0.0001244986035178698761022988765982508781301003020094174578`29.\ 937749344645916", " ", "\[ImaginaryI]"}]}], RowBox[{ "-", "0.0000132097121052713470570068169548201652594238322975525354`30."}\ ]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.824552003455501*^9, 3.824635449137933*^9}, CellLabel-> "Out[81]//MatrixForm=",ExpressionUUID->"13816673-0fd2-4de1-b22e-\ a526d34dac71"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"mat1", "[", RowBox[{ RowBox[{"-", "1"}], "/", "100"}], "]"}], "-", RowBox[{"mat1", "[", RowBox[{ RowBox[{"-", "1"}], "/", "40"}], "]"}]}], "//", "MatrixForm"}]], "Input",\ CellChangeTimes->{{3.824552020801506*^9, 3.824552058690847*^9}}, CellLabel->"In[82]:=",ExpressionUUID->"93785a11-d68a-4fa9-9d09-6656b0f22184"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"0``29.154780891904895", "+", RowBox[{"0``29.154780891904892", " ", "\[ImaginaryI]"}]}], RowBox[{"0``29.44618673960679", "+", RowBox[{"0``29.44618673960679", " ", "\[ImaginaryI]"}]}], RowBox[{"0``30.210254503280026", "+", RowBox[{"0``30.210254503280026", " ", "\[ImaginaryI]"}]}], "0``31.297038101214273"}, { RowBox[{"0``29.567166630165445", "+", RowBox[{"0``29.567166630165445", " ", "\[ImaginaryI]"}]}], RowBox[{"0``29.84240241985126", "+", RowBox[{"0``29.84240241985126", " ", "\[ImaginaryI]"}]}], RowBox[{"0``30.59185606947971", "+", RowBox[{"0``30.59185606947971", " ", "\[ImaginaryI]"}]}], "0``31.665669343083405"}, { RowBox[{"0``30.774805166231324", "+", RowBox[{"0``30.774805166231324", " ", "\[ImaginaryI]"}]}], RowBox[{"0``31.023163044651962", "+", RowBox[{"0``31.023163044651962", " ", "\[ImaginaryI]"}]}], RowBox[{"0``31.7489019820335", "+", RowBox[{"0``31.7489019820335", " ", "\[ImaginaryI]"}]}], "0``32.80163910981773"}, { RowBox[{"0``32.59898344098089", "+", RowBox[{"0``32.59898344098089", " ", "\[ImaginaryI]"}]}], RowBox[{"0``32.831772657130124", "+", RowBox[{"0``32.831772657130124", " ", "\[ImaginaryI]"}]}], RowBox[{"0``33.54155486893882", "+", RowBox[{"0``33.54155486893882", " ", "\[ImaginaryI]"}]}], "0``34.578076651706695"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.82455206093507*^9, 3.824635449810384*^9}, CellLabel-> "Out[82]//MatrixForm=",ExpressionUUID->"65050909-e8de-4f3d-ba67-\ c5c367e2d96c"] }, Open ]], Cell[TextData[{ "In fact we can take \[CurlyPhi] = ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[Psi]", "1"], "."}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "d2f8a83d-ce92-45a2-90e1-73bff466e720"] }], "Text", CellChangeTimes->{{3.8246343007404833`*^9, 3.824634356697873*^9}},ExpressionUUID->"eed6f2be-dbfc-4a9c-99c3-\ 92547b01bb3c"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"newmat1", "=", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"V", "[", RowBox[{ RowBox[{"-", "1"}], "/", "50"}], "]"}], ".", RowBox[{"Inverse", "[", RowBox[{"Wpitemp", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "50"}], ",", "200"}], "]"}], "]"}]}], ",", "30"}], " ", "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"newmat1", "//", "MatrixForm"}]}], "Input", CellChangeTimes->{{3.791400223199526*^9, 3.791400250109228*^9}, { 3.791400285972661*^9, 3.791400312743479*^9}, {3.791400352094143*^9, 3.791400412906324*^9}, {3.791400669137928*^9, 3.791400675011491*^9}, { 3.791400772662825*^9, 3.791400774033493*^9}, {3.791629406102672*^9, 3.791629417284082*^9}, {3.824458508148841*^9, 3.824458519346045*^9}, { 3.824458553373064*^9, 3.8244586417454576`*^9}, {3.824553773880249*^9, 3.824553791891427*^9}, {3.824553968785056*^9, 3.824553977047722*^9}, { 3.824562791360984*^9, 3.824562817657876*^9}}, CellLabel->"In[83]:=",ExpressionUUID->"7c6b8f2b-467f-4de0-9c82-7b1ddfb5d207"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ "0.528434314085155614427512335219693461239314186942958576409`29.\ 178801898506016", "-", RowBox[{ "4.9228468077595996391810261349900634254033110560183704552258`30.\ 148027208903304", " ", "\[ImaginaryI]"}]}], RowBox[{ "1.0689537660767158255480452243700897876332468038352861107141`29.\ 77617565696974", "-", RowBox[{ "2.2942273896079337049501884231385036846647768621396297471458`30.\ 107853195548245", " ", "\[ImaginaryI]"}]}], RowBox[{ "0.3651376296329182774573168321521049726139628027760818792395`30.\ 073741090863365", "-", RowBox[{ "0.2377951707547392757641789431900498075814863778792931265478`29.\ 887487529479554", " ", "\[ImaginaryI]"}]}], "0.0252308512459987089832233303539552140261478210774176404972`30."}, { RowBox[{ "0.3587372230162922470947987728934781898384028023094994680225`29.\ 422973067774016", "+", RowBox[{ "1.8817704011945602618531925898857028245776554179513739479221`30.\ 142763258960443", " ", "\[ImaginaryI]"}]}], RowBox[{ RowBox[{ "-", "0.3858630822441729393327623298973680162301277246478889085048`29.\ 729865644605916"}], "+", RowBox[{ "0.9403530864452318580133795420251304322768948076912014758595`30.\ 116723369862033", " ", "\[ImaginaryI]"}]}], RowBox[{ RowBox[{ "-", "0.1496618419594790116040942749981568804942300872071442975074`30.\ 06799715113237"}], "+", RowBox[{ "0.1017587559007204759163072969532086369644562301233961973534`29.\ 900457853810106", " ", "\[ImaginaryI]"}]}], RowBox[{ "-", "0.0107969393363208240295422337905409981794024890897176285364`30."}\ ]}, { RowBox[{ RowBox[{ "-", "0.038776862311552510427056374658318483217606151495989803091`29.\ 664407826464988"}], "-", RowBox[{ "0.1122538157330429627026224921527395243906259904601402335575`30.\ 12603627436478", " ", "\[ImaginaryI]"}]}], RowBox[{ "0.0201481561058776644475408203924822325884438466999460144737`29.\ 62842834738441", "-", RowBox[{ "0.0639387523273836506118740394438807804680867709599822632739`30.\ 12995719770329", " ", "\[ImaginaryI]"}]}], RowBox[{ "0.0101761684880315353660331466321935699063421077931893981398`30.\ 057516266726715", "-", RowBox[{ "0.0074404983023484368455489510470821925621644629843078495099`29.\ 921533999629567", " ", "\[ImaginaryI]"}]}], "0.0007894613892570728813830415562217940841385755223279568261`30."}, { RowBox[{ "0.0007137497697861710058028233371776427325512037493336428599`29.\ 753559417820853", "+", RowBox[{ "0.0016309970928740596559266353787476324935595299338003234906`30.\ 112466623589565", " ", "\[ImaginaryI]"}]}], RowBox[{ RowBox[{ "-", "0.0002584132335362164647267541822825041357998686627958527521`29.\ 545117403233988"}], "+", RowBox[{ "0.0010090639172481438515643822132898147275701588543054448369`30.\ 136721329466077", " ", "\[ImaginaryI]"}]}], RowBox[{ RowBox[{ "-", "0.00016059751032571331903931303153121773374711885802804006`30.\ 048323672916652"}], "+", RowBox[{ "0.0001244986035178698761022988765982508781303342638161092087`29.\ 937749344645916", " ", "\[ImaginaryI]"}]}], RowBox[{ "-", "0.0000132097121052713470570068169548201652594486341063706998`30."}\ ]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.82455379542078*^9, 3.824553978724093*^9, 3.824562772162471*^9, 3.824562821301773*^9, 3.824635450158486*^9}, CellLabel-> "Out[84]//MatrixForm=",ExpressionUUID->"ffe040e2-6016-40fb-be82-\ e80d960d2178"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"newmat1", "-", RowBox[{"mat1", "[", RowBox[{ RowBox[{"-", "1"}], "/", "100"}], "]"}]}], "//", "MatrixForm"}]], "Input",\ CellChangeTimes->{{3.8245540274932413`*^9, 3.824554038565926*^9}, { 3.824562841130472*^9, 3.8245628447269897`*^9}}, CellLabel->"In[85]:=",ExpressionUUID->"2b57b2e2-3876-44be-bbd6-6074235870af"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"0``29.154780891904885", "+", RowBox[{"0``29.15478089190488", " ", "\[ImaginaryI]"}]}], RowBox[{"0``29.446186739606784", "+", RowBox[{"0``29.446186739606784", " ", "\[ImaginaryI]"}]}], RowBox[{"0``30.210254503280016", "+", RowBox[{"0``30.210254503280016", " ", "\[ImaginaryI]"}]}], "0``31.297038101214262"}, { RowBox[{"0``29.567166630165442", "+", RowBox[{"0``29.567166630165445", " ", "\[ImaginaryI]"}]}], RowBox[{"0``29.842402419851258", "+", RowBox[{"0``29.842402419851258", " ", "\[ImaginaryI]"}]}], RowBox[{"0``30.591856069479707", "+", RowBox[{"0``30.591856069479707", " ", "\[ImaginaryI]"}]}], "0``31.665669343083398"}, { RowBox[{"0``30.77480516623132", "+", RowBox[{"0``30.77480516623132", " ", "\[ImaginaryI]"}]}], RowBox[{"0``31.023163044651955", "+", RowBox[{"0``31.023163044651955", " ", "\[ImaginaryI]"}]}], RowBox[{"0``31.748901982033495", "+", RowBox[{"0``31.748901982033495", " ", "\[ImaginaryI]"}]}], "0``32.80163910981772"}, { RowBox[{"0``32.59898344098088", "+", RowBox[{"0``32.59898344098088", " ", "\[ImaginaryI]"}]}], RowBox[{"0``32.83177265713012", "+", RowBox[{"0``32.83177265713012", " ", "\[ImaginaryI]"}]}], RowBox[{"0``33.54155486893881", "+", RowBox[{"0``33.54155486893881", " ", "\[ImaginaryI]"}]}], "0``34.57807665170669"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.8245540409393272`*^9, 3.824562851025106*^9, 3.824635450527526*^9}, CellLabel-> "Out[85]//MatrixForm=",ExpressionUUID->"56998325-d03b-41ff-967a-\ 836b14f69795"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Wpi", "[", RowBox[{"\[CurlyPhi]_", ",", "acc_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"W", ",", "nmax"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"W", "=", RowBox[{"IdentityMatrix", "[", "4", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nmax", "=", "100"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", " ", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{ SubscriptBox["S", "4"], "[", "\[CurlyPhi]", "]"}], "2"], "12"], RowBox[{"Det", "[", "W", "]"}]}], "-", "1"}], "]"}], ">", SuperscriptBox["10", RowBox[{"-", "acc"}]]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"nmax", "+=", "100"}], ";", "\[IndentingNewLine]", RowBox[{"W", "=", RowBox[{"N", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["\[CurlyPi]", RowBox[{"j", ",", "k"}]], "[", RowBox[{"\[CurlyPhi]", ",", "nmax"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", "acc"}], "]"}]}]}]}], " ", "]"}], ";", "\[IndentingNewLine]", " ", "W"}]}], "]"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.7914518220766287`*^9, 3.79145187933594*^9}, { 3.79145201640221*^9, 3.791452042259842*^9}, {3.791452131516513*^9, 3.7914521788472157`*^9}, {3.7914522291960077`*^9, 3.7914523927524223`*^9}, {3.791452476712471*^9, 3.791452477504442*^9}, { 3.791452508126666*^9, 3.791452531973477*^9}, 3.791452570086224*^9, 3.791452656694718*^9, {3.7914527239441633`*^9, 3.791452801335248*^9}, { 3.791460891835129*^9, 3.791461012180951*^9}, 3.791461053879649*^9, { 3.791461129159544*^9, 3.7914611426023703`*^9}, {3.791461182923193*^9, 3.791461187818108*^9}, {3.791461235174405*^9, 3.7914612467647963`*^9}, { 3.79146146408316*^9, 3.7914615351841583`*^9}, {3.79146159430079*^9, 3.791461608117836*^9}, {3.791461684248246*^9, 3.7914616929822693`*^9}, { 3.791466508731386*^9, 3.791466513471457*^9}, {3.791552814918173*^9, 3.7915529191116953`*^9}, {3.791552950302459*^9, 3.7915529776467533`*^9}, { 3.7915530148300667`*^9, 3.7915530209234867`*^9}, {3.791553742455647*^9, 3.791553748031515*^9}, {3.791569106944674*^9, 3.791569117664269*^9}, { 3.791617614630701*^9, 3.7916176377503843`*^9}, {3.7916177102358522`*^9, 3.791617710473237*^9}, {3.791622598667739*^9, 3.791622704751079*^9}, { 3.791622810098701*^9, 3.791622812669746*^9}, {3.791622865546831*^9, 3.791622866893196*^9}, {3.791631831560319*^9, 3.791631837895928*^9}, { 3.824451969261545*^9, 3.824451971405301*^9}, {3.824536279528463*^9, 3.82453631036229*^9}}, CellLabel->"In[86]:=",ExpressionUUID->"4a2ef05c-337e-49c4-8e29-d09a751de4e2"], Cell[BoxData[ RowBox[{ RowBox[{"Weta", "[", RowBox[{"\[CurlyPhi]_", ",", "\[Psi]_", ",", "acc_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"W", ",", "nmax"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"W", "=", RowBox[{"IdentityMatrix", "[", "4", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nmax", "=", "100"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", " ", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{ SubscriptBox["S", "4"], "[", "\[CurlyPhi]", "]"}], "2"], RowBox[{"12", " ", SuperscriptBox["\[Psi]", "6"], " ", SuperscriptBox[ RowBox[{ SubscriptBox["S", "4"], "[", "\[Psi]", "]"}], "2"]}]], RowBox[{"Det", "[", "W", "]"}]}], "-", "1"}], "]"}], ">", SuperscriptBox["10", RowBox[{"-", "acc"}]]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"nmax", "+=", "100"}], ";", "\[IndentingNewLine]", RowBox[{"W", "=", RowBox[{"Transpose", "[", " ", RowBox[{"N", "[", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["\[Eta]vec", "k"], "[", RowBox[{"\[CurlyPhi]", ",", "\[Psi]", ",", "nmax"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", "acc"}], "]"}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", " ", "W"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.791466375235015*^9, 3.7914663924725943`*^9}, { 3.791466451843795*^9, 3.791466482587265*^9}, {3.791466519100813*^9, 3.791466564095093*^9}, {3.791553003078396*^9, 3.791553115383074*^9}, { 3.791553189277691*^9, 3.791553217371133*^9}, {3.791553380539091*^9, 3.791553383247538*^9}, {3.791553435148144*^9, 3.7915534428465652`*^9}, { 3.7915534840839357`*^9, 3.791553484957924*^9}, {3.791553570715342*^9, 3.79155357415447*^9}, {3.791553700836033*^9, 3.7915537099856377`*^9}, { 3.7915691242614717`*^9, 3.791569133252887*^9}, {3.791617839713952*^9, 3.791617847701809*^9}, 3.7916180640878973`*^9, {3.7916228799127398`*^9, 3.791622961145219*^9}, {3.7916244009685907`*^9, 3.791624422524908*^9}, { 3.791624510028047*^9, 3.7916245438953333`*^9}, {3.791624609913053*^9, 3.791624623053012*^9}, {3.791625247334762*^9, 3.79162525596567*^9}, { 3.791626916490728*^9, 3.791626957689725*^9}, {3.7916313655003653`*^9, 3.791631373556139*^9}, {3.7916317847892303`*^9, 3.7916317968788023`*^9}, { 3.824451911992275*^9, 3.8244519237670116`*^9}, {3.8244519626860867`*^9, 3.824451963256176*^9}, {3.824536330589573*^9, 3.824536336448738*^9}, { 3.824536368160892*^9, 3.824536397174583*^9}}, CellLabel->"In[87]:=",ExpressionUUID->"de6ba59b-47a3-4876-948e-3bd38f003f4e"], Cell[BoxData[ RowBox[{ RowBox[{"This", " ", "is", " ", SuperscriptBox[ RowBox[{ SubscriptBox["W", "\[Eta]"], "[", RowBox[{"\[Psi]", ",", "\[Psi]"}], "]"}], RowBox[{"-", "1"}]]}], " ", ":"}]], "Text", CellChangeTimes->{{3.8244652854674807`*^9, 3.824465311913197*^9}},ExpressionUUID->"046a2d74-df97-4bdf-b67f-\ bb0326a9b22d"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"psi", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", FractionBox["3", "2"], ")"}], RowBox[{"n", "-", "1"}]]}], FractionBox["1", "50"]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"AbsoluteThickness", "[", "1.8", "]"}], ",", " ", "\[IndentingNewLine]", "Black", ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"1", "/", "25"}]}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"psi", "[", "n", "]"}], ",", "0"}], "}"}], ",", RowBox[{"Abs", "[", RowBox[{"psi", "[", "n", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "5"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"AbsolutePointSize", "[", "7", "]"}], ",", "Black", ",", RowBox[{"Point", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"psi", "[", "n", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "5"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "7"}], ",", "0"}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Text", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "7"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "7"}], "-", "0.0015"}], ",", "0.016"}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"AxesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"GrayLevel", "[", "0.6", "]"}], ",", "12"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", "False"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"psi", "[", "n", "]"}], ",", SubscriptBox["\[Psi]", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "5"}], "}"}]}], "]"}], ",", "None"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"TicksStyle", "\[Rule]", " ", RowBox[{"Directive", "[", RowBox[{"Blue", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "17"}]}], "]"}]}]}], "\[IndentingNewLine]", " ", "]"}]}], "Input", CellChangeTimes->{{3.760515056287816*^9, 3.760515210340852*^9}, { 3.76051533451396*^9, 3.760515415296657*^9}, {3.760515715813105*^9, 3.76051584244009*^9}, {3.760515894305203*^9, 3.760516016988353*^9}, { 3.7605160545771914`*^9, 3.760516089964637*^9}, {3.7605161698868637`*^9, 3.760516176723138*^9}, {3.760516209872365*^9, 3.760516231218082*^9}, { 3.760516493092765*^9, 3.760516530816613*^9}, {3.760516566994811*^9, 3.7605168993379593`*^9}, {3.76051693257099*^9, 3.760516960333309*^9}, { 3.7605170022751617`*^9, 3.760517002817494*^9}, {3.760517115129754*^9, 3.7605172088083477`*^9}, {3.760517252596513*^9, 3.760517260281624*^9}, { 3.760517414697072*^9, 3.7605174222525263`*^9}, {3.760517554116663*^9, 3.7605176523068047`*^9}, {3.760517805107773*^9, 3.760517841518449*^9}, { 3.760518033068162*^9, 3.7605180423739367`*^9}, {3.7605180762491817`*^9, 3.760518107472763*^9}, {3.760518143472184*^9, 3.760518153507621*^9}, { 3.760518215214119*^9, 3.760518226207932*^9}, {3.760518294232277*^9, 3.7605183353099194`*^9}, 3.7605183721452713`*^9, {3.760518488116373*^9, 3.760518495963234*^9}, {3.760523442176882*^9, 3.760523476972226*^9}, { 3.760523549554914*^9, 3.7605235741269827`*^9}, {3.760523614990706*^9, 3.7605236731491632`*^9}, {3.760523781505332*^9, 3.760523806529892*^9}, { 3.7605238879702883`*^9, 3.7605239738164253`*^9}, {3.760524052961268*^9, 3.760524056751822*^9}, 3.760524781897203*^9, {3.7605252193107224`*^9, 3.760525228559154*^9}, {3.760525279312396*^9, 3.760525296898025*^9}, { 3.76052541319888*^9, 3.760525439104168*^9}, {3.822915200464704*^9, 3.8229152160914783`*^9}, 3.8231673076660013`*^9, {3.8244907367044*^9, 3.824490737012412*^9}, {3.8244911081654654`*^9, 3.824491112457868*^9}, 3.8244911444315777`*^9, {3.8245288221440907`*^9, 3.824528822777545*^9}, { 3.824528903509254*^9, 3.824528927666172*^9}}, CellLabel->"In[88]:=",ExpressionUUID->"c5c890ec-463a-4071-a888-a42fafa87e91"], Cell[BoxData[ GraphicsBox[ {GrayLevel[0], AbsoluteThickness[1.8], CircleBox[{0, 0}, NCache[Rational[1, 25], 0.04]], {RGBColor[1, 0, 0], CircleBox[NCache[{Rational[-1, 50], 0}, {-0.02, 0}], NCache[ Rational[1, 50], 0.02]], CircleBox[NCache[{Rational[-3, 100], 0}, {-0.03, 0}], NCache[ Rational[3, 100], 0.03]], CircleBox[NCache[{Rational[-9, 200], 0}, {-0.045, 0}], NCache[ Rational[9, 200], 0.045]], CircleBox[NCache[{Rational[-27, 400], 0}, {-0.0675, 0}], NCache[ Rational[27, 400], 0.0675]], CircleBox[NCache[{Rational[-81, 800], 0}, {-0.10125, 0}], NCache[ Rational[81, 800], 0.10125]]}, {GrayLevel[0], AbsolutePointSize[7], PointBox[NCache[{{Rational[-1, 50], 0}, {Rational[-3, 100], 0}, { Rational[-9, 200], 0}, {Rational[-27, 400], 0}, { Rational[-81, 800], 0}}, {{-0.02, 0}, {-0.03, 0}, {-0.045, 0}, {-0.0675, 0}, {-0.10125, 0}}]], {RGBColor[1, 0, 0], PointBox[NCache[{Rational[-1, 7], 0}, {-0.14285714285714285`, 0}]], PointBox[{0, 0}]}, {RGBColor[0, 0, 1], InsetBox[ RowBox[{"-", FractionBox["1", "7"]}], {-0.14435714285714285, 0.016}]}}}, Axes->True, AxesStyle->Directive[ GrayLevel[0.6], 12], ImageSize->600, Method->{"AxesInFront" -> False}, Ticks->{{{ NCache[ Rational[-1, 50], -0.02], FormBox[ SubscriptBox["\[Psi]", "1"], TraditionalForm]}, { NCache[ Rational[-3, 100], -0.03], FormBox[ SubscriptBox["\[Psi]", "2"], TraditionalForm]}, { NCache[ Rational[-9, 200], -0.045], FormBox[ SubscriptBox["\[Psi]", "3"], TraditionalForm]}, { NCache[ Rational[-27, 400], -0.0675], FormBox[ SubscriptBox["\[Psi]", "4"], TraditionalForm]}, { NCache[ Rational[-81, 800], -0.10125], FormBox[ SubscriptBox["\[Psi]", "5"], TraditionalForm]}}, None}, TicksStyle->Directive[ RGBColor[0, 0, 1], FontFamily -> "Computer Modern", FontSize -> 17]]], "Output", CellChangeTimes->{ 3.824490468973435*^9, {3.824490541659555*^9, 3.824490570606967*^9}, 3.824490626083002*^9, 3.824490743398253*^9, 3.824491023795813*^9, 3.824491114182021*^9, 3.82449114679677*^9, 3.824498336798254*^9, 3.824528932861581*^9, 3.8245358822705936`*^9, 3.824537512159906*^9, 3.824634514965002*^9, 3.824635450581757*^9}, CellLabel->"Out[89]=",ExpressionUUID->"0982315f-bf0e-4791-9348-8f65c333a762"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{"psi", "[", "n", "]"}], ",", RowBox[{"N", "[", FractionBox[ RowBox[{ RowBox[{"psi", "[", "n", "]"}], "+", FractionBox["1", "7"]}], RowBox[{"Abs", "[", RowBox[{"psi", "[", "n", "]"}], "]"}]], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7916309025694113`*^9, 3.791630973407967*^9}, 3.791631164173629*^9, {3.824491351122527*^9, 3.824491465826068*^9}, { 3.824491496188386*^9, 3.824491501768067*^9}, {3.8245290006134*^9, 3.824529013927533*^9}, {3.8245291247689342`*^9, 3.824529161585367*^9}, { 3.824537536535832*^9, 3.824537537089883*^9}}, CellLabel->"In[90]:=",ExpressionUUID->"d656fc23-9b0a-4350-b502-6f621c7f45da"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", FractionBox["1", "50"]}], ",", "6.142857142857143`"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", FractionBox["3", "100"]}], ",", "3.761904761904762`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", RowBox[{"-", FractionBox["9", "200"]}], ",", "2.1746031746031744`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", FractionBox["27", "400"]}], ",", "1.1164021164021165`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", RowBox[{"-", FractionBox["81", "800"]}], ",", "0.4109347442680776`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.824634567290595*^9, 3.8246354505892572`*^9}, CellLabel->"Out[90]=",ExpressionUUID->"424ade48-44a6-43b4-8804-34d0b96c5323"] }, Open ]], Cell[TextData[{ "\n\n", Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"\[Eta]", RowBox[{"(", RowBox[{"\[CurlyPhi]", ",", FormBox[ SubscriptBox["\[Psi]", "1"], TraditionalForm]}], ")"}]}], "=", RowBox[{ FormBox[ SubscriptBox["M", "1"], TraditionalForm], "\[CurlyPi]", RowBox[{"(", "\[CurlyPhi]", ")"}]}]}], ";", " ", RowBox[{ FormBox[ RowBox[{" ", RowBox[{ SubscriptBox["M", "1"], "=", " ", RowBox[{ SubscriptBox["W", "\[Eta]"], "(", RowBox[{ SubscriptBox["\[Psi]", "1"], ",", SubscriptBox["\[Psi]", "1"]}], ")"}]}]}], TraditionalForm], SubscriptBox["W", "\[CurlyPi]"], SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Psi]", "1"], ")"}], RowBox[{"-", "1"}]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Eta]", RowBox[{"(", RowBox[{"\[CurlyPhi]", ",", FormBox[ SubscriptBox["\[Psi]", "2"], TraditionalForm]}], ")"}]}], "=", RowBox[{ FormBox[ SubscriptBox["M", "2"], TraditionalForm], "\[Eta]", RowBox[{"(", RowBox[{"\[CurlyPhi]", ",", FormBox[ SubscriptBox["\[Psi]", "1"], TraditionalForm]}], ")"}]}]}], ";", RowBox[{ FormBox[ RowBox[{" ", RowBox[{ SubscriptBox["M", "2"], "=", " ", RowBox[{ SubscriptBox["W", "\[Eta]"], "(", RowBox[{ SubscriptBox["\[Psi]", "2"], ",", SubscriptBox["\[Psi]", "2"]}], ")"}]}]}], TraditionalForm], SubscriptBox["W", "\[Eta]"], SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[Psi]", "2"], ",", SubscriptBox["\[Psi]", "1"]}], ")"}], RowBox[{"-", "1"}]]}]}], "\[IndentingNewLine]", RowBox[{"...", "..."}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Eta]", RowBox[{"(", RowBox[{"\[CurlyPhi]", ",", FormBox[ SubscriptBox["\[Psi]", "5"], TraditionalForm]}], ")"}]}], "=", RowBox[{ FormBox[ SubscriptBox["M", "5"], TraditionalForm], "\[Eta]", RowBox[{"(", RowBox[{"\[CurlyPhi]", ",", FormBox[ SubscriptBox["\[Psi]", "4"], TraditionalForm]}], ")"}]}]}], ";", RowBox[{ FormBox[ RowBox[{" ", RowBox[{ SubscriptBox["M", "5"], "=", " ", RowBox[{ SubscriptBox["W", "\[Eta]"], "(", RowBox[{ SubscriptBox["\[Psi]", "5"], ",", SubscriptBox["\[Psi]", "5"]}], ")"}]}]}], TraditionalForm], SubscriptBox["W", "\[Eta]"], SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[Psi]", "5"], ",", SubscriptBox["\[Psi]", "4"]}], ")"}], RowBox[{"-", "1"}]]}]}]}], "Text", Evaluatable->False, CellChangeTimes->{{3.824473939374618*^9, 3.824473963384685*^9}, 3.8244746803685207`*^9, 3.8244747406985807`*^9, 3.82447617053959*^9, { 3.824476201219983*^9, 3.824476264393643*^9}, {3.8244763041668177`*^9, 3.8244763763105164`*^9}, {3.824476457363296*^9, 3.8244766342379217`*^9}}, ExpressionUUID->"583c8d9a-668a-48c8-a9ca-3d3959d74f80"], "\n\nSo now we have \n\n\[CurlyPi](\[CurlyPhi]) = m \[Eta](\[CurlyPhi], ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[Psi]", "5"], ")"}], TraditionalForm]],ExpressionUUID-> "a8b42a9d-96fc-4ba4-af9b-3637e85b1d34"], " ; m = ", Cell[BoxData[ FormBox[ RowBox[{" ", SuperscriptBox[ SubscriptBox["M", "1"], RowBox[{"-", "1"}]]}], TraditionalForm]],ExpressionUUID-> "4e966a9a-44a1-4e32-abb4-096bd1410a0b"], Cell[BoxData[ FormBox[ SuperscriptBox[ SubscriptBox["M", "2"], RowBox[{"-", "1"}]], TraditionalForm]],ExpressionUUID-> "679966c9-0571-4daa-a915-966eeac02c2d"], Cell[BoxData[ FormBox[ SuperscriptBox[ SubscriptBox["M", "3"], RowBox[{"-", "1"}]], TraditionalForm]],ExpressionUUID-> "d1081297-f707-462b-bfa7-a6c8347790d0"], Cell[BoxData[ FormBox[ SuperscriptBox[ SubscriptBox["M", "4"], RowBox[{"-", "1"}]], TraditionalForm]],ExpressionUUID-> "99a8526f-f4d3-468c-9055-a4e5e7bbb143"], Cell[BoxData[ FormBox[ SuperscriptBox[ SubscriptBox["M", "5"], RowBox[{"-", "1"}]], TraditionalForm]],ExpressionUUID-> "66532d61-dce2-4362-9e51-ed10461f50e8"], " = ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["W", "\[CurlyPi]"], " ", RowBox[{"(", SubscriptBox["\[Psi]", "1"], ")"}], RowBox[{"U", "(", SubscriptBox["\[Psi]", "1"]}]}], TraditionalForm]],ExpressionUUID-> "4bb619fa-f854-4fad-9653-8e7d2483f1da"], ") ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["W", "\[Eta]"], "(", RowBox[{ SubscriptBox["\[Psi]", "2"], ",", SubscriptBox["\[Psi]", "1"]}], ")"}], TraditionalForm]],ExpressionUUID-> "32560c6c-fa31-409c-aebc-de1dd3b0901d"], " ", Cell[BoxData[ FormBox[ RowBox[{"U", "(", SubscriptBox["\[Psi]", "2"], ")"}], TraditionalForm]],ExpressionUUID-> "c53d6946-1423-48eb-a2d3-b17a6684d8cf"], " ... ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["W", "\[Eta]"], "(", RowBox[{ SubscriptBox["\[Psi]", "5"], ",", SubscriptBox["\[Psi]", "4"]}], ")"}], TraditionalForm]],ExpressionUUID-> "68d4aad0-ba37-40e7-aeda-c49750b305de"], " ", Cell[BoxData[ FormBox[ RowBox[{"U", "(", SubscriptBox["\[Psi]", "5"], ")"}], TraditionalForm]],ExpressionUUID-> "33565c79-9e93-4c7e-91d0-456ba7e55e33"], " ,\n\nwhere U(\[Psi]) = ", Cell[BoxData[ FormBox[ SubscriptBox["W", "\[Eta]"], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "e2bfcfd7-ca83-4aa5-bb18-a4a2c95d6180"], "(\[Psi], ", Cell[BoxData[ FormBox[ SuperscriptBox[ RowBox[{"\[Psi]", ")"}], RowBox[{"-", "1"}]], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "854c2be9-d994-4962-a8ea-e312436166dc"], " = ", Cell[BoxData[ FormBox[ RowBox[{" ", SuperscriptBox[ RowBox[{"V", "(", "\[Psi]", ")"}], RowBox[{"-", "1"}]]}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "2c1e995d-7313-4916-96db-4acf6b17ca9d"], " .\n\nand we can evaluate both m and \[Eta](\[CurlyPhi], ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[Psi]", "5"], ")"}], TraditionalForm]],ExpressionUUID-> "5eeb0a10-9d90-4794-bed5-9e48028edb42"], ". \n\nThe vector \[Eta](\[CurlyPhi], ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[Psi]", "5"], ")"}], TraditionalForm]],ExpressionUUID-> "b7aecbf1-a6c8-4f7f-b75b-8086c642d038"], " is the first column of ", Cell[BoxData[ RowBox[{"Weta", "[", RowBox[{"\[CurlyPhi]", ",", SubscriptBox["\[Psi]", "5"], ",", "acc"}], "]"}]], CellChangeTimes->{{3.824477576154462*^9, 3.8244776529189053`*^9}, 3.824477707959229*^9, {3.82447776977518*^9, 3.824477871487619*^9}, { 3.824477933610035*^9, 3.8244779408621597`*^9}, {3.824478012510234*^9, 3.824478048237461*^9}, {3.8244782098115807`*^9, 3.824478283663698*^9}}, ExpressionUUID->"a290ebbb-231c-4e84-a4ca-5b2564fcfb07"], "." }], "InlineFormula", CellChangeTimes->{{3.8244731351740427`*^9, 3.824473354900567*^9}, { 3.824473390224388*^9, 3.824473432311233*^9}, {3.824473656135845*^9, 3.824473812076963*^9}, 3.824473928348568*^9, 3.82447665639325*^9, { 3.82447670835644*^9, 3.8244769743355627`*^9}, {3.82447717270625*^9, 3.8244773909105473`*^9}, {3.824477430247933*^9, 3.8244775031248417`*^9}, { 3.824478310980378*^9, 3.824478370002179*^9}, {3.8244804010030537`*^9, 3.8244804015484457`*^9}, 3.824634562932733*^9, {3.824634659075712*^9, 3.824634763975281*^9}},ExpressionUUID->"35e9f544-50e9-4887-8c88-\ de26b8ea9db8"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"U", "[", "\[Psi]_", "]"}], ":=", " ", RowBox[{"Inverse", "[", RowBox[{"V", "[", "\[Psi]", "]"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U", "[", "\[Psi]", "]"}], "//", "MatrixForm"}]}], "Input", CellChangeTimes->{{3.8244786743903313`*^9, 3.824478680363452*^9}, { 3.824634808132555*^9, 3.824634875757975*^9}}, CellLabel->"In[91]:=",ExpressionUUID->"0ea1885c-e6ae-4336-906e-54c1e9993b97"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0"}, {"0", FractionBox["1", "\[Psi]"], RowBox[{"-", FractionBox["1", RowBox[{"2", " ", SuperscriptBox["\[Psi]", "2"]}]]}], FractionBox["1", RowBox[{"3", " ", SuperscriptBox["\[Psi]", "3"]}]]}, {"0", "0", FractionBox["1", RowBox[{"2", " ", SuperscriptBox["\[Psi]", "2"]}]], RowBox[{"-", FractionBox["1", RowBox[{"2", " ", SuperscriptBox["\[Psi]", "3"]}]]}]}, {"0", "0", "0", FractionBox["1", RowBox[{"6", " ", SuperscriptBox["\[Psi]", "3"]}]]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.824634877558255*^9, 3.824635450626129*^9}, CellLabel-> "Out[92]//MatrixForm=",ExpressionUUID->"286f004e-5067-4b1b-857e-\ 4e29c27bb2bb"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"m", " ", "[", "acc_", "]"}], ":=", RowBox[{ RowBox[{"m", "[", "acc", "]"}], "=", " ", RowBox[{ RowBox[{"Wpi", "[", RowBox[{ RowBox[{"psi", "[", "1", "]"}], ",", "acc"}], "]"}], ".", RowBox[{"U", "[", RowBox[{"psi", "[", "1", "]"}], "]"}], " ", ".", RowBox[{"Weta", "[", RowBox[{ RowBox[{"psi", "[", "2", "]"}], ",", RowBox[{"psi", "[", "1", "]"}], ",", "acc"}], "]"}], ".", RowBox[{"U", "[", RowBox[{"psi", "[", "2", "]"}], "]"}], ".", RowBox[{"Weta", "[", RowBox[{ RowBox[{"psi", "[", "3", "]"}], ",", RowBox[{"psi", "[", "2", "]"}], ",", "acc"}], "]"}], ".", RowBox[{"U", "[", RowBox[{"psi", "[", "3", "]"}], "]"}], ".", RowBox[{"Weta", "[", RowBox[{ RowBox[{"psi", "[", "4", "]"}], ",", RowBox[{"psi", "[", "3", "]"}], ",", "acc"}], "]"}], ".", RowBox[{"U", "[", RowBox[{"psi", "[", "4", "]"}], "]"}], ".", RowBox[{"Weta", "[", RowBox[{ RowBox[{"psi", "[", "5", "]"}], ",", RowBox[{"psi", "[", "4", "]"}], ",", "acc"}], "]"}], ".", RowBox[{"U", "[", RowBox[{"psi", "[", "5", "]"}], "]"}]}]}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"extendedpi", "[", RowBox[{"\[CurlyPhi]_", ",", "acc_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"m", "[", "acc", "]"}], ".", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Weta", "[", RowBox[{"\[CurlyPhi]", ",", RowBox[{"psi", "[", "5", "]"}], ",", "acc"}], "]"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}]}]}], "Input", CellChangeTimes->{{3.824477576154462*^9, 3.8244776529189053`*^9}, 3.824477707959229*^9, {3.82447776977518*^9, 3.824477871487619*^9}, { 3.824477933610035*^9, 3.8244779408621597`*^9}, {3.824478012510234*^9, 3.824478048237461*^9}, {3.8244782098115807`*^9, 3.824478283663698*^9}, { 3.8244786661612997`*^9, 3.824478666643552*^9}, {3.824634994579615*^9, 3.82463510024006*^9}, {3.82463514110712*^9, 3.824635144788554*^9}}, CellLabel->"In[93]:=",ExpressionUUID->"dfe8e629-bddc-43db-a366-6644e3de33d8"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"pivec", "=", RowBox[{"extendedpi", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "7"}], ",", "200"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"pivec", "//", "Column"}]}], "Input", CellChangeTimes->{{3.791631691719488*^9, 3.7916317154938297`*^9}, { 3.824478435195959*^9, 3.82447846139785*^9}, {3.824635576974481*^9, 3.824635580063225*^9}, {3.824643064509787*^9, 3.8246430653482323`*^9}, { 3.824643232762044*^9, 3.824643255272089*^9}, 3.824643358164836*^9, 3.8246476597533417`*^9, 3.824647970901273*^9}, CellLabel-> "In[130]:=",ExpressionUUID->"5fdb1ec3-41cd-40f9-840e-20d60eaa30bf"], Cell[BoxData[ TagBox[GridBox[{ {"0.6520167310833216425720262893512017892738415817065780801349926086169013\ 557684763727837194794714926903391776567158431859754182422343261891527233293230\ 3840035374499029173627363819068094301168322766447964511015389449`198.\ 38082611022892"}, { RowBox[{ RowBox[{ "-", "1.6874079929248544282317392068272834979830710726101643080721362644\ 385427210309975861989444382369541922603838251240192304019430323705820640589949\ 391771267094084640635343677876004289428039985200936756374297872300155`197.\ 7448381221025"}], "+", RowBox[{ "2.048370972388995062497628559739851447799962794981591408391513127765811\ 313713813203958861873388449971322886899483736912462814008752607262510619942614\ 63241831868090548181274528724396866126250135091686362117313856385`198.\ 13073078195248", " ", "\[ImaginaryI]"}]}]}, { RowBox[{ RowBox[{ "-", "2.1450490662279493652580016611852491592209011413110301324213150058\ 468795061704354635435113848998132562297961431408072489345462573793423967097174\ 9886074268445523708304102258058832077242164512578430150348568294211796`196.\ 95935086937993"}], "-", RowBox[{ "10.60229710836284095516449360061141495335497560833064660718979075043002\ 038371496393947342026895925394088824006830498923626981550353577196199110710323\ 595063771544619034066819174607924280101201830343254188854021839589`197.\ 6769337200292", " ", "\[ImaginaryI]"}]}]}, { RowBox[{ "39.773953427786948436156061800556613502911022231717437175468907166023860\ 207731395994877205966722212898254790705521167621250794721715987251025213580446\ 64578625158258553504936789653689993569238691988229376337977098454`197.\ 51692772882757", "+", RowBox[{ "20.21661116415411475374720878333151743998037607119988176026621381462022\ 325504744113044897442588707500288886278252106643905929043927865595736963494266\ 526008399094484466308979245065128446382411166340639144395380939222`196.\ 9755583070696", " ", "\[ImaginaryI]"}]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", CellChangeTimes->{{3.824478421364976*^9, 3.824478436863779*^9}, 3.824478470464863*^9, 3.824478719828761*^9, 3.824480633398135*^9, 3.824634920609049*^9, 3.824635155587237*^9, 3.8246355172336082`*^9, 3.824635581929016*^9, 3.8246430732219*^9, 3.8246432591764793`*^9, 3.824643388236817*^9, 3.824647710984284*^9, 3.824647989834298*^9}, CellLabel-> "Out[131]=",ExpressionUUID->"78a18ca6-d7ec-4fff-856e-92bcd651236e"] }, Open ]], Cell["The weight four L - function", "Subtitle", CellChangeTimes->{{3.82463973215845*^9, 3.824639757514688*^9}},ExpressionUUID->"3fad5a7b-fd41-4bb2-ac15-\ 0387a780e4af"], Cell["\<\ We have an expression for the modular form in terms of the Dirichlet \ eta-functions. Now we take 300 terms.\ \>", "Text", CellChangeTimes->{{3.824641937160549*^9, 3.824642022297666*^9}, 3.824647227978054*^9},ExpressionUUID->"1b28d59b-b90e-47cc-a50f-\ b182d667a509"], 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", ",", "299"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.790400971471528*^9, 3.7904009920601597`*^9}, { 3.7904010226830997`*^9, 3.790401034491521*^9}, {3.790401123205369*^9, 3.790401281108736*^9}, {3.790401743841744*^9, 3.790401750647666*^9}, { 3.8205899227981462`*^9, 3.820589937764515*^9}, {3.82464205268611*^9, 3.824642057225997*^9}, 3.82464723288872*^9}, CellLabel-> "In[117]:=",ExpressionUUID->"28d2506b-5c32-4c73-a41c-84c14219f6e3"], 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[118]:=",ExpressionUUID->"d0e59def-91e9-4710-b1e5-30ae9f6a856e"], Cell[CellGroupData[{ Cell[BoxData["expr"], "Input", CellChangeTimes->{{3.790401565766665*^9, 3.790401569603715*^9}}, CellLabel-> "In[119]:=",ExpressionUUID->"dd26c915-754e-4c62-b923-89b4e950c84a"], 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"]}], "-", RowBox[{"568", " ", SuperscriptBox["q", "200"]}], "-", RowBox[{"5724", " ", SuperscriptBox["q", "201"]}], "+", RowBox[{"2706", " ", SuperscriptBox["q", "202"]}], "-", RowBox[{"1306", " ", SuperscriptBox["q", "203"]}], "+", RowBox[{"2404", " ", SuperscriptBox["q", "204"]}], "-", RowBox[{"2304", " ", SuperscriptBox["q", "205"]}], "+", RowBox[{"1658", " ", SuperscriptBox["q", "206"]}], "-", RowBox[{"4204", " ", SuperscriptBox["q", "207"]}], "+", RowBox[{"124", " ", SuperscriptBox["q", "208"]}], "-", RowBox[{"2272", " ", SuperscriptBox["q", "209"]}], "-", RowBox[{"1364", " ", SuperscriptBox["q", "210"]}], "-", RowBox[{"3792", " ", SuperscriptBox["q", "211"]}], "+", RowBox[{"1316", " ", SuperscriptBox["q", "212"]}], "+", RowBox[{"3352", " ", SuperscriptBox["q", "213"]}], "-", RowBox[{"798", " ", SuperscriptBox["q", "214"]}], "+", RowBox[{"5492", " ", SuperscriptBox["q", "215"]}], "-", RowBox[{"762", " ", SuperscriptBox["q", "216"]}], "-", RowBox[{"436", " ", SuperscriptBox["q", "217"]}], "-", RowBox[{"3904", " ", SuperscriptBox["q", "218"]}], "+", RowBox[{"4920", " ", SuperscriptBox["q", "219"]}], "+", RowBox[{"1298", " ", SuperscriptBox["q", "220"]}], "+", RowBox[{"1136", " ", SuperscriptBox["q", "221"]}], "+", RowBox[{"5842", " ", SuperscriptBox["q", "222"]}], "+", RowBox[{"3192", " ", SuperscriptBox["q", "223"]}], "+", RowBox[{"212", " ", SuperscriptBox["q", "224"]}], "+", RowBox[{"2419", " ", SuperscriptBox["q", "225"]}], "-", RowBox[{"3414", " ", SuperscriptBox["q", "226"]}], "-", RowBox[{"4316", " ", SuperscriptBox["q", "227"]}], "+", RowBox[{"2290", " ", SuperscriptBox["q", "228"]}], "+", RowBox[{"5598", " ", SuperscriptBox["q", "229"]}], "-", RowBox[{"1456", " ", SuperscriptBox["q", "230"]}], "+", RowBox[{"2116", " ", SuperscriptBox["q", "231"]}], "-", RowBox[{"1066", " ", SuperscriptBox["q", "232"]}], "-", RowBox[{"2170", " ", SuperscriptBox["q", "233"]}], "-", RowBox[{"1124", " ", SuperscriptBox["q", "234"]}], "+", RowBox[{"172", " ", SuperscriptBox["q", "235"]}], "-", RowBox[{"868", " ", SuperscriptBox["q", "236"]}], "+", RowBox[{"612", " ", SuperscriptBox["q", "237"]}], "-", RowBox[{"542", " ", SuperscriptBox["q", "238"]}], "-", RowBox[{"2144", " ", SuperscriptBox["q", "239"]}], "-", RowBox[{"1714", " ", SuperscriptBox["q", "240"]}], "+", RowBox[{"3478", " ", SuperscriptBox["q", "241"]}], "+", RowBox[{"1104", " ", SuperscriptBox["q", "242"]}], "-", RowBox[{"5372", " ", SuperscriptBox["q", "243"]}], "+", RowBox[{"432", " ", SuperscriptBox["q", "244"]}], "-", RowBox[{"3314", " ", SuperscriptBox["q", "245"]}], "-", RowBox[{"4882", " ", SuperscriptBox["q", "246"]}], "-", RowBox[{"476", " ", SuperscriptBox["q", "247"]}], "-", RowBox[{"684", " ", SuperscriptBox["q", "248"]}], "-", RowBox[{"9520", " ", SuperscriptBox["q", "249"]}], "-", RowBox[{"2666", " ", SuperscriptBox["q", "250"]}], "+", RowBox[{"76", " ", SuperscriptBox["q", "251"]}], "-", RowBox[{"930", " ", SuperscriptBox["q", "252"]}], "+", RowBox[{"3628", " ", SuperscriptBox["q", "253"]}], "-", RowBox[{"3104", " ", SuperscriptBox["q", "254"]}], "-", RowBox[{"7276", " ", SuperscriptBox["q", "255"]}], "+", RowBox[{"4596", " ", SuperscriptBox["q", "256"]}], "+", RowBox[{"10238", " ", SuperscriptBox["q", "257"]}], "+", RowBox[{"8454", " ", SuperscriptBox["q", "258"]}], "+", RowBox[{"6630", " ", SuperscriptBox["q", "259"]}], "-", RowBox[{"2456", " ", SuperscriptBox["q", "260"]}], "+", RowBox[{"9018", " ", SuperscriptBox["q", "261"]}], "-", RowBox[{"926", " ", SuperscriptBox["q", "262"]}], "-", RowBox[{"1080", " ", SuperscriptBox["q", "263"]}], "-", RowBox[{"784", " ", SuperscriptBox["q", "264"]}], "-", RowBox[{"4812", " ", SuperscriptBox["q", "265"]}], "+", RowBox[{"1798", " ", SuperscriptBox["q", "266"]}], "+", RowBox[{"4064", " ", SuperscriptBox["q", "267"]}], "-", RowBox[{"2894", " ", SuperscriptBox["q", "268"]}], "-", RowBox[{"8438", " ", SuperscriptBox["q", "269"]}], "-", RowBox[{"1530", " ", SuperscriptBox["q", "270"]}], "-", RowBox[{"7696", " ", SuperscriptBox["q", "271"]}], "-", RowBox[{"3792", " ", SuperscriptBox["q", "272"]}], "-", RowBox[{"3544", " ", SuperscriptBox["q", "273"]}], "+", RowBox[{"13586", " ", SuperscriptBox["q", "274"]}], "-", RowBox[{"2420", " ", SuperscriptBox["q", "275"]}], "+", RowBox[{"2880", " ", SuperscriptBox["q", "276"]}], "+", RowBox[{"8254", " ", SuperscriptBox["q", "277"]}], "+", RowBox[{"2324", " ", SuperscriptBox["q", "278"]}], "+", RowBox[{"6328", " ", SuperscriptBox["q", "279"]}], "+", RowBox[{"1682", " ", SuperscriptBox["q", "280"]}], "+", RowBox[{"7942", " ", SuperscriptBox["q", "281"]}], "-", RowBox[{"2564", " ", SuperscriptBox["q", "282"]}], "-", RowBox[{"5540", " ", SuperscriptBox["q", "283"]}], "-", RowBox[{"4034", " ", SuperscriptBox["q", "284"]}], "-", RowBox[{"15788", " ", SuperscriptBox["q", "285"]}], "-", RowBox[{"10430", " ", SuperscriptBox["q", "286"]}], "+", RowBox[{"910", " ", SuperscriptBox["q", "287"]}], "-", RowBox[{"3332", " ", SuperscriptBox["q", "288"]}], "+", RowBox[{"3863", " ", SuperscriptBox["q", "289"]}], "+", RowBox[{"7066", " ", SuperscriptBox["q", "290"]}], "+", RowBox[{"16440", " ", SuperscriptBox["q", "291"]}], "+", RowBox[{"38", " ", SuperscriptBox["q", "292"]}], "+", RowBox[{"2782", " ", SuperscriptBox["q", "293"]}], "-", RowBox[{"332", " ", SuperscriptBox["q", "294"]}], "+", RowBox[{"1324", " ", SuperscriptBox["q", "295"]}], "+", RowBox[{"1244", " ", SuperscriptBox["q", "296"]}], "+", RowBox[{"11588", " ", SuperscriptBox["q", "297"]}], "+", RowBox[{"2222", " ", SuperscriptBox["q", "298"]}], "+", RowBox[{"5152", " ", SuperscriptBox["q", "299"]}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "q", "]"}], "300"], SeriesData[$CellContext`q, 0, {}, 24, 7200, 24], Editable->False]}], SeriesData[$CellContext`q, 0, CompressedData[" 1:eJzV3N1rzXEcwPEv5ngajnmah3KWxzRFUSdpnbQiaS25lNbahbRYuFhycdKS C+mkpVlLS3KhhdaSC+kkF0vSSQvJwzGSh+Fsho09+PkjXhfnc/O7e/fp8/t8 P0/fz+9XUX9035EpIYTBFSH8f0qZmJyclPyZEh5JCeYPYfsUMH8U80cwf62E R7IS899j+yQkPJIyzJ+H+Rls/7iER7IH829j+9RKeCS9WH/NT0p48P6fxfxd Eh7JyyL3f51f7kl4JHnM3435eZ3fMb8R8+slPJJWzL82Ye1Th+2fkfBImjD/ CuZr/Ruw/+j8/mfc8vMSHkk55qcxfwvmH9P1z1RJ9/m9Cg/gdPw/i/XX/Usa +08Ljs9J/H5TWP/tWP8mzB/H9klJeCQlun/H8WErrh82YP3TY1b/HUUe/5/j 87Ucx/8ezE9ifgq/3wcWH/LYfwoSHvx85hK2z13Mz/0t7vnYMNY/OU3SI/+f bvl5iw8bsX1K8QLB6SKv/1M4f+WwfTrx+Q1Y/z34/F4u8vi5Etc/3X/w/B/b J4v7F92/x3H8b8H96V3sn7r+r5lh+QXsn5t/Fvf9Sz2O/0HX5zFJD2EE1yft mJ/B51ff36VxfH6F9T+H7R/H5zeB9R/G/h/D/Dacv9J6/+cH3t/G/nML53c9 n8/h+NOG44Puf29h+xwexv27rm9nW76+38laPK//Z+L5mN5v6cD9yyMcH7R/ tuH5zATWP4Ptr/0zjeN/N46fzTg+xHF80/P50zj+JPT97yxJ9/szev75GPtP Kfb/s3q/otTy6/AH0glsH+3/N0es/5Rj+2fmYP6otc9O3B8lcH83X9+PY34W v98uzO/D9vn42/If/rL8MQmPJIffr57/D+AfEKRx/6X9s07Cg59/ZnH+bdL3 p7i+GsL3p426v8P1m95Pvof3A3X9Gcf69+L4cPWT5V/A86UPeD7ZgOcbAeev kzi+tX63+p+S8EgS2P5d2D83D1r+Gpzfy+dafj+ej51YLOkhxHD836v76wL+ vmOhpIdQhv2/CdcPT5ZYfjOe3/ZZfDiO8/v1IRyfcf4dwvXzaxw/a3H+rcb2 eYrnJ2dw/dOB9e+S8Eg6cP3QgOcb/bh+6MT+U4Pnqxdx/VmL83vJF7x/iO8f 5+H9228DOP/i+nk/Pr+5F/h84fnnXgmP5CCO/5X4B815fL5a3+HvWxdIeggT 6y0/VmH5H5ZZ/iF8P7t9taSHUI/Pby+ub/X+9tavlh/D+y35+ZbfjfdnZr/B 9sf9b+Ftcc+3N+D5TNk2SQ/hHI7PKbxfV5Ww/EV4vncH/wD3Ar6/i62y/DFc /x/4bPlV+P5i/328X/rM8s/j/bQxHJ+X4vqhfYXlJ1OWv87iw2u8H9KD5zOV +H7wJZ4fVm+y/Bv6+4tFIfwDyFFLyA== "], 24, 7200, 24], Editable->False]], "Output", CellChangeTimes->{3.8227343291125183`*^9, 3.8246420708488503`*^9, 3.824647270283746*^9}, CellLabel-> "Out[119]=",ExpressionUUID->"8f6e045e-7a1c-4488-bfda-9d9f0bfacd3b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"wt4coeffs", "=", RowBox[{"CoefficientList", "[", RowBox[{ RowBox[{"Normal", "[", "expr", "]"}], ",", "q"}], "]"}]}]], "Input", CellChangeTimes->{{3.824642177055995*^9, 3.8246422116433973`*^9}}, CellLabel-> "In[120]:=",ExpressionUUID->"16e46e8d-a953-45cb-9ded-e1074cc29f10"], Cell[BoxData[ 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", ",", RowBox[{"-", "568"}], ",", RowBox[{"-", "5724"}], ",", "2706", ",", RowBox[{"-", "1306"}], ",", "2404", ",", RowBox[{"-", "2304"}], ",", "1658", ",", RowBox[{"-", "4204"}], ",", "124", ",", RowBox[{"-", "2272"}], ",", RowBox[{"-", "1364"}], ",", RowBox[{"-", "3792"}], ",", "1316", ",", "3352", ",", RowBox[{"-", "798"}], ",", "5492", ",", RowBox[{"-", "762"}], ",", RowBox[{"-", "436"}], ",", RowBox[{"-", "3904"}], ",", "4920", ",", "1298", ",", "1136", ",", "5842", ",", "3192", ",", "212", ",", "2419", ",", RowBox[{"-", "3414"}], ",", RowBox[{"-", "4316"}], ",", "2290", ",", "5598", ",", RowBox[{"-", "1456"}], ",", "2116", ",", RowBox[{"-", "1066"}], ",", RowBox[{"-", "2170"}], ",", RowBox[{"-", "1124"}], ",", "172", ",", RowBox[{"-", "868"}], ",", "612", ",", RowBox[{"-", "542"}], ",", RowBox[{"-", "2144"}], ",", RowBox[{"-", "1714"}], ",", "3478", ",", "1104", ",", RowBox[{"-", "5372"}], ",", "432", ",", RowBox[{"-", "3314"}], ",", RowBox[{"-", "4882"}], ",", RowBox[{"-", "476"}], ",", RowBox[{"-", "684"}], ",", RowBox[{"-", "9520"}], ",", RowBox[{"-", "2666"}], ",", "76", ",", RowBox[{"-", "930"}], ",", "3628", ",", RowBox[{"-", "3104"}], ",", RowBox[{"-", "7276"}], ",", "4596", ",", "10238", ",", "8454", ",", "6630", ",", RowBox[{"-", "2456"}], ",", "9018", ",", RowBox[{"-", "926"}], ",", RowBox[{"-", "1080"}], ",", RowBox[{"-", "784"}], ",", RowBox[{"-", "4812"}], ",", "1798", ",", "4064", ",", RowBox[{"-", "2894"}], ",", RowBox[{"-", "8438"}], ",", RowBox[{"-", "1530"}], ",", RowBox[{"-", "7696"}], ",", RowBox[{"-", "3792"}], ",", RowBox[{"-", "3544"}], ",", "13586", ",", RowBox[{"-", "2420"}], ",", "2880", ",", "8254", ",", "2324", ",", "6328", ",", "1682", ",", "7942", ",", RowBox[{"-", "2564"}], ",", RowBox[{"-", "5540"}], ",", RowBox[{"-", "4034"}], ",", RowBox[{"-", "15788"}], ",", RowBox[{"-", "10430"}], ",", "910", ",", RowBox[{"-", "3332"}], ",", "3863", ",", "7066", ",", "16440", ",", "38", ",", "2782", ",", RowBox[{"-", "332"}], ",", "1324", ",", "1244", ",", "11588", ",", "2222", ",", "5152"}], "}"}]], "Output", CellChangeTimes->{3.824642231235099*^9, 3.824647284896449*^9}, CellLabel-> "Out[120]=",ExpressionUUID->"16dae3af-5452-4134-b76b-b3fb4523f855"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["L", "4"], "[", "1", "]"}], "=", RowBox[{ FractionBox[ RowBox[{"2", "\[Pi]"}], SqrtBox["14"]], RowBox[{"N", "[", " ", RowBox[{ RowBox[{"Sum", "[", " ", RowBox[{ RowBox[{ RowBox[{"wt4coeffs", "\[LeftDoubleBracket]", RowBox[{"k", "+", "1"}], "\[RightDoubleBracket]"}], RowBox[{"(", RowBox[{ RowBox[{"ExpIntegralE", "[", RowBox[{"0", ",", FractionBox[ RowBox[{"2", "\[Pi]", " ", "k"}], SqrtBox["14"]]}], "]"}], "+", RowBox[{"ExpIntegralE", "[", RowBox[{ RowBox[{"-", "2"}], ",", FractionBox[ RowBox[{"2", "\[Pi]", " ", "k"}], SqrtBox["14"]]}], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "299"}], "}"}]}], "]"}], ",", "200"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.824642350255765*^9, 3.824642664238635*^9}, 3.82464277425817*^9, 3.824647305734057*^9}, CellLabel-> "In[121]:=",ExpressionUUID->"cd7a539b-1382-4189-ab92-4b4716aeb390"], Cell[BoxData["0.\ 674963197169941771292695682730913399193228429044065723228854505775417088412399\ 034479577775294781676904153530049607692160777212948232825623597975670932081958\ 28779479356136550867377452749814455243311853600477156716`200."], "Output", CellChangeTimes->{3.824642667780829*^9, 3.82464279455872*^9, 3.824647308437668*^9}, CellLabel-> "Out[121]=",ExpressionUUID->"d8f65a12-365e-4675-a68a-a0f26fa67192"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["L", "4"], "[", "2", "]"}], "=", 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", ",", "299"}], "}"}]}], "]"}]}], ",", "200"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.824642858826435*^9, 3.824642882904586*^9}, 3.824647364648776*^9}, CellLabel-> "In[122]:=",ExpressionUUID->"a00fb489-6d04-4adb-ac32-72e05d2e012f"], Cell[BoxData["0.\ 919306742669121156539143569079392496808957631990441485323420716791519788358758\ 055804362022099919966955626918488917392400519824591146741447021785226169265931\ 14028045494994207255636556539897474415416123153336985552`200."], "Output", CellChangeTimes->{3.824642885320283*^9, 3.824647366905388*^9}, CellLabel-> "Out[122]=",ExpressionUUID->"472689b0-d3bf-43c3-831b-3d42c94fdb8f"] }, Open ]], Cell["\<\ This gives some idea of the error in the previous expressions\ \>", "Text", CellChangeTimes->{{3.824647395482437*^9, 3.824647431786253*^9}},ExpressionUUID->"94de0294-14d4-45ff-acdd-\ 9cb2e6642a7f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"5000", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], "2"], FractionBox["1", "7"], RowBox[{"ExpIntegralE", "[", RowBox[{ RowBox[{"-", "1"}], ",", FractionBox[ RowBox[{"2", "\[Pi]", " ", "k"}], SqrtBox["14"]]}], "]"}]}], ",", RowBox[{ FractionBox[ RowBox[{"2", "\[Pi]"}], SqrtBox["14"]], " ", RowBox[{"(", RowBox[{ RowBox[{"ExpIntegralE", "[", RowBox[{"0", ",", FractionBox[ RowBox[{"2", "\[Pi]", " ", "k"}], SqrtBox["14"]]}], "]"}], "+", RowBox[{"ExpIntegralE", "[", RowBox[{ RowBox[{"-", "2"}], ",", FractionBox[ RowBox[{"2", "\[Pi]", " ", "k"}], SqrtBox["14"]]}], "]"}]}], ")"}]}]}], "}"}]}], "/.", RowBox[{"k", "\[Rule]", "299"}]}], " ", "//", "N"}]], "Input", CellChangeTimes->{{3.824643500369213*^9, 3.824643529313735*^9}, { 3.8246435746840754`*^9, 3.824643587170752*^9}, {3.824648107231967*^9, 3.824648156029883*^9}}, CellLabel-> "In[133]:=",ExpressionUUID->"88a85d87-fcb1-4573-878a-8889e3978979"], Cell[BoxData[ RowBox[{"{", RowBox[{"4.92773499029946`*^-217", ",", "2.934493909816734`*^-217"}], "}"}]], "Output", CellChangeTimes->{ 3.824647438859949*^9, {3.824648143223077*^9, 3.824648161146555*^9}}, CellLabel-> "Out[133]=",ExpressionUUID->"aa3b5c11-2149-45b3-a28c-0dcb78c88778"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], RowBox[{"pivec", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], RowBox[{ SubscriptBox["L", "4"], "[", "2", "]"}]]], "Input", CellChangeTimes->{{3.824643268923201*^9, 3.824643329888651*^9}}, CellLabel-> "In[138]:=",ExpressionUUID->"430d32e3-d36b-4938-8838-ae13750d32da"], Cell[BoxData["6.\ 999999999999999999999999999999999999999999999999999999999999999999999999999999\ 999999999999999999999999999999999999999999999999999999999999999999998959206858\ 97210862471923206135388532324960685581683681274576212663`198.37051173264143"],\ "Output", CellChangeTimes->{3.824643332745029*^9, 3.8246434076194773`*^9, 3.824647449886009*^9, 3.824647736332135*^9, 3.824648621123802*^9}, CellLabel-> "Out[138]=",ExpressionUUID->"418c4ff0-a22a-4216-b64d-ea0797312770"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "-", "7"}]], "Input", CellChangeTimes->{{3.8246434339992037`*^9, 3.8246434375559196`*^9}}, CellLabel-> "In[139]:=",ExpressionUUID->"23d67687-2fe1-4b32-86f2-fcd992adc2a8"], Cell[BoxData[ RowBox[{"-", "1.04079314102789137528076793864611467675039314418316318725423787336`50.\ 54277811412886*^-147"}]], "Output", CellChangeTimes->{3.824643438847425*^9, 3.824647493126606*^9, 3.82464775069865*^9, 3.824648628721077*^9}, CellLabel-> "Out[139]=",ExpressionUUID->"f3a58010-ce5f-44f6-bfa5-90c197236f5a"] }, Open ]], Cell["\<\ It would be good to know what the loss of accuracy is due to.\ \>", "Text", CellChangeTimes->{{3.8246491545329437`*^9, 3.824649194925899*^9}},ExpressionUUID->"f0a51cb7-deda-44f9-8349-\ ce3709198301"], Cell[" Finding the linear relations", "Subtitle", CellChangeTimes->{{3.824649198913656*^9, 3.8246492203213167`*^9}},ExpressionUUID->"794a7b11-6e35-4d2d-9544-\ 398c283bc7c7"], Cell[BoxData[ RowBox[{"FindIntegerNullVector", "[", RowBox[{"N", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"pivec", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", FractionBox[ RowBox[{ SubscriptBox["L", "4"], "[", "1", "]"}], "\[Pi]"], ",", FractionBox[ RowBox[{ SubscriptBox["L", "4"], "[", "2", "]"}], SuperscriptBox["\[Pi]", "2"]]}], "}"}], ",", "100"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.824648293212903*^9, 3.824648426943264*^9}, { 3.824648466788271*^9, 3.824648480307022*^9}, {3.8246485282365303`*^9, 3.824648563617165*^9}, {3.8246486647919893`*^9, 3.824648677991106*^9}}, CellLabel-> "In[140]:=",ExpressionUUID->"4ae56f68-41ae-417e-afda-64458818b897"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "7"}], "}"}]], "Output", CellChangeTimes->{ 3.824648429121601*^9, 3.82464848486106*^9, {3.8246485447343483`*^9, 3.824648565203514*^9}, 3.824648681025342*^9}, CellLabel-> "Out[140]=",ExpressionUUID->"5df4b63a-6ae2-4157-8466-a7142ccb8e38"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindIntegerNullVector", "[", RowBox[{"N", "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ "pivec", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "\[Pi]"], ",", FractionBox[ RowBox[{ SubscriptBox["L", "4"], "[", "1", "]"}], "\[Pi]"], ",", FractionBox[ RowBox[{ SubscriptBox["L", "4"], "[", "2", "]"}], SuperscriptBox["\[Pi]", "2"]]}], "}"}], ",", "100"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.824648293212903*^9, 3.824648426943264*^9}, { 3.824648466788271*^9, 3.824648480307022*^9}, {3.8246485282365303`*^9, 3.824648563617165*^9}, {3.8246486647919893`*^9, 3.824648677991106*^9}, { 3.824648716389892*^9, 3.82464872930365*^9}}, CellLabel-> "In[141]:=",ExpressionUUID->"a7d1790d-9045-40df-8f6a-927fbe5d5001"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]"}], ",", RowBox[{"5", " ", "\[ImaginaryI]"}], ",", "14"}], "}"}]], "Output", CellChangeTimes->{3.82464873306136*^9}, CellLabel-> "Out[141]=",ExpressionUUID->"399850f5-a097-4ca5-8f08-ec759ea912ca"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindIntegerNullVector", "[", RowBox[{"N", "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ "pivec", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], SuperscriptBox["\[Pi]", "2"]], ",", FractionBox[ RowBox[{ SubscriptBox["L", "4"], "[", "1", "]"}], "\[Pi]"], ",", FractionBox[ RowBox[{ SubscriptBox["L", "4"], "[", "2", "]"}], SuperscriptBox["\[Pi]", "2"]]}], "}"}], ",", "100"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.824648293212903*^9, 3.824648426943264*^9}, { 3.824648466788271*^9, 3.824648480307022*^9}, {3.8246485282365303`*^9, 3.824648563617165*^9}, {3.8246486647919893`*^9, 3.824648677991106*^9}, { 3.824648716389892*^9, 3.82464872930365*^9}, {3.824648766265439*^9, 3.82464877207018*^9}}, CellLabel-> "In[142]:=",ExpressionUUID->"32202a29-4621-4080-afec-0ce8a96d235b"], Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", RowBox[{"15", " ", "\[ImaginaryI]"}], ",", "7"}], "}"}]], "Output", CellChangeTimes->{3.8246487753786173`*^9}, CellLabel-> "Out[142]=",ExpressionUUID->"0fdc8533-2703-4478-8870-37bdada454ef"] }, Open ]], Cell[BoxData[ RowBox[{"FindIntegerNullVector", "[", RowBox[{"N", "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ "pivec", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], SuperscriptBox["\[Pi]", "3"]], ",", FractionBox[ RowBox[{ RowBox[{ "pivec", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], RowBox[{"Zeta", "[", "3", "]"}]}], SuperscriptBox["\[Pi]", "3"]], ",", FractionBox[ RowBox[{ SubscriptBox["L", "4"], "[", "1", "]"}], "\[Pi]"], ",", FractionBox[ RowBox[{ SubscriptBox["L", "4"], "[", "2", "]"}], SuperscriptBox["\[Pi]", "2"]]}], "}"}], ",", "100"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.824648293212903*^9, 3.824648426943264*^9}, { 3.824648466788271*^9, 3.824648480307022*^9}, {3.8246485282365303`*^9, 3.824648563617165*^9}, {3.8246486647919893`*^9, 3.824648677991106*^9}, { 3.824648716389892*^9, 3.82464872930365*^9}, {3.824648766265439*^9, 3.82464877207018*^9}, {3.8246488099957943`*^9, 3.824648883957412*^9}, { 3.824648928345561*^9, 3.8246489459901114`*^9}}, CellLabel-> "In[146]:=",ExpressionUUID->"0559f397-cd93-4e5e-a8c2-f0b336b08c23"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]"}], ",", RowBox[{ RowBox[{"-", "8"}], " ", "\[ImaginaryI]"}], ",", RowBox[{ RowBox[{"-", "11"}], " ", "\[ImaginaryI]"}], ",", "14"}], "}"}]], "Output",\ CellChangeTimes->{ 3.824648889710781*^9, {3.824648931145829*^9, 3.824648948151844*^9}}, CellLabel-> "Out[146]=",ExpressionUUID->"2161e86d-1a66-46bf-9eca-cd4e2f1d5a9e"] }, CellGrouping->Manual, WindowSize->{3810, 2095}, WindowMargins->{{992, Automatic}, {1055, Automatic}}, CellBracketOptions->{"Color"->RGBColor[0, 0, 1], "Thickness"->3.5, "Widths"->{20, 20}}, Magnification:>2. Inherited, FontColor->GrayLevel[0], Background->RGBColor[0.87, 0.94, 1], FrontEndVersion->"12.2 for Mac OS X x86 (64-bit) (December 12, 2020)", StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", CharacterEncoding -> "UTF-8"], ExpressionUUID->"48772a6a-8b16-42bb-8a52-732ffd624fa1" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 579, 9, 191, "Title",ExpressionUUID->"6c5e2b66-b100-4ad4-bed1-afce1d547227"], Cell[1140, 31, 1158, 22, 81, "Input",ExpressionUUID->"e3f76fd7-4d85-4471-ad18-42bc0bc07728"], Cell[CellGroupData[{ Cell[2323, 57, 156, 3, 136, "Chapter",ExpressionUUID->"e96ac38d-8c4d-4b81-a40d-57817c8761c3"], Cell[2482, 62, 1766, 54, 267, "Input",ExpressionUUID->"35ccaa68-ca62-41b7-8e01-e16049a57024"], Cell[4251, 118, 1055, 29, 250, "Input",ExpressionUUID->"db940b17-34ea-403c-9e35-60f6f7fab760"] }, Open ]], Cell[CellGroupData[{ Cell[5343, 152, 306, 5, 136, "Chapter",ExpressionUUID->"b192aab1-bf15-4e86-966a-9f79c78f8844"], Cell[CellGroupData[{ Cell[5674, 161, 456, 12, 109, "Input",ExpressionUUID->"80b75cf3-4af7-4686-a64d-56914529c405"], Cell[6133, 175, 1498, 42, 109, "Output",ExpressionUUID->"5322aa14-568c-420b-9199-415bcb9cd39a"] }, Open ]], Cell[CellGroupData[{ Cell[7668, 222, 357, 6, 103, "Input",ExpressionUUID->"a49980af-db86-47a8-b65e-8dbfeb275b16"], Cell[8028, 230, 1120, 33, 109, "Output",ExpressionUUID->"bf4eed6c-f44f-4a6d-8f1e-88e8bd1721c3"] }, Open ]], Cell[9163, 266, 1617, 45, 237, "Input",ExpressionUUID->"908e81c3-cba7-4f2a-a81f-380db3d4e6b9"], Cell[CellGroupData[{ Cell[10805, 315, 368, 9, 103, "Input",ExpressionUUID->"9940cea2-9f00-48f3-9e03-9080e3a12ddf"], Cell[11176, 326, 1030, 31, 109, "Output",ExpressionUUID->"12792d3b-66bd-4f3e-852d-7a3a4d2c6076"] }, Open ]], Cell[12221, 360, 1262, 31, 232, "Input",ExpressionUUID->"319017d4-370e-4998-92c4-aa83236ada0b"], Cell[CellGroupData[{ Cell[13508, 395, 210, 3, 103, "Input",ExpressionUUID->"2ced2d21-7aa1-4f29-91ad-c58361631d6a"], Cell[13721, 400, 2205, 72, 109, "Output",ExpressionUUID->"e1178667-e527-49cd-8bbc-46c8b013e8d7"] }, Open ]], Cell[CellGroupData[{ Cell[15963, 477, 208, 3, 103, "Input",ExpressionUUID->"84e01305-f417-4283-985b-267fbbe263e3"], Cell[16174, 482, 222, 4, 103, "Output",ExpressionUUID->"8cb28104-a6bf-4c1d-858b-3e808973cfa1"] }, Open ]], Cell[CellGroupData[{ Cell[16433, 491, 1267, 31, 133, "Input",ExpressionUUID->"2d794b2d-e56b-4414-bbf5-641db9cfa76f"], Cell[17703, 524, 22590, 639, 511, "Output",ExpressionUUID->"a3d8ed1d-f151-434e-9a6d-9f113134e926"] }, Open ]], Cell[40308, 1166, 1049, 31, 103, "Input",ExpressionUUID->"b29c6a03-b473-461a-9b94-da8b091658ba"], Cell[CellGroupData[{ Cell[41382, 1201, 1419, 35, 287, "Input",ExpressionUUID->"5c76ad69-3633-4367-96ed-8d42339ccce2"], Cell[42804, 1238, 11606, 391, 395, "Output",ExpressionUUID->"16d7a5f1-8b8a-4578-bda1-66b3b54b62d6"] }, Open ]], Cell[54425, 1632, 199, 3, 67, "Text",ExpressionUUID->"800e0757-f311-4a24-89f2-74da878f60db"], Cell[CellGroupData[{ Cell[54649, 1639, 1572, 39, 342, "Input",ExpressionUUID->"1fb03e99-7801-46e7-9111-45d3163b0db5"], Cell[56224, 1680, 11382, 383, 339, "Output",ExpressionUUID->"63d6694b-a5b1-4f08-87e4-e686afda5228"] }, Open ]], Cell[67621, 2066, 15099, 437, 1263, "Input",ExpressionUUID->"ea7e488e-7a90-45bc-928d-3f218e8bb569"], Cell[82723, 2505, 775, 25, 71, "Text",ExpressionUUID->"ceabf811-76c2-4dc7-a82b-18b21fe92ff5"], Cell[83501, 2532, 8177, 243, 974, "Input",ExpressionUUID->"c42614fe-e5fc-4470-8feb-e8851f926650"], Cell[91681, 2777, 267, 5, 67, "Text",ExpressionUUID->"b1324245-d4e8-4d01-936e-26166cbc01cd"], Cell[CellGroupData[{ Cell[91973, 2786, 246, 5, 103, "Input",ExpressionUUID->"9f5e8a3e-96d9-45e5-81d6-5dae85199d86"], Cell[92222, 2793, 264, 5, 103, "Output",ExpressionUUID->"4cb907e6-0932-4b99-99ba-59efd1e811eb"] }, Open ]], Cell[92501, 2801, 804, 19, 71, "Text",ExpressionUUID->"e0138e85-8a05-4bc6-8678-2554dc63bed8"], Cell[CellGroupData[{ Cell[93330, 2824, 1064, 28, 107, "Input",ExpressionUUID->"bcb5c634-6ce5-491a-87ba-6d2053385dfe"], Cell[94397, 2854, 861, 20, 109, "Output",ExpressionUUID->"614004f0-6f46-4547-aabd-5ba3c605b75b"] }, Open ]], Cell[95273, 2877, 239, 4, 67, "Text",ExpressionUUID->"e3850741-e2b1-4bad-aca5-be7d677e744c"], Cell[95515, 2883, 8188, 250, 974, "Input",ExpressionUUID->"a71df506-f253-436f-9699-f29519f59c96"], Cell[103706, 3135, 414, 11, 71, "Text",ExpressionUUID->"e4a59f71-3d4a-4d3a-bc4a-6aeddd2ee10b"], Cell[CellGroupData[{ Cell[104145, 3150, 549, 14, 107, "Input",ExpressionUUID->"cf9279c6-17df-402b-a73e-dabdb6fdc8d3"], Cell[104697, 3166, 1034, 26, 109, "Output",ExpressionUUID->"00ec2216-28f3-4083-9b92-3e72847d005b"] }, Open ]] }, Open ]], Cell[105758, 3196, 351, 6, 136, "Chapter",ExpressionUUID->"109e214a-e9ae-4a53-adb9-74da7ad24f7e"], Cell[CellGroupData[{ Cell[106134, 3206, 417, 9, 93, "Input",ExpressionUUID->"d6c3d65f-ec04-4578-9826-aca1b5000f92"], Cell[106554, 3217, 5839, 186, 201, "Output",ExpressionUUID->"e833c2e1-483c-466b-bc20-0ea786408d87"] }, Open ]], Cell[CellGroupData[{ Cell[112430, 3408, 341, 9, 103, "Input",ExpressionUUID->"9f39e8fb-733a-4979-89d3-491b8a0b870b"], Cell[112774, 3419, 404, 12, 103, "Output",ExpressionUUID->"1abced7d-cf47-4dd7-9174-304c1388b33c"] }, Open ]], Cell[113193, 3434, 550, 13, 186, "Input",ExpressionUUID->"3529f7f1-9eb1-4a83-9a04-97f2a4dc8c73"], Cell[113746, 3449, 649, 21, 67, "Text",ExpressionUUID->"188da323-ec50-42bf-a1d8-2bb7d517a413"], Cell[CellGroupData[{ Cell[114420, 3474, 1585, 37, 186, "Input",ExpressionUUID->"744a8375-5a34-48a2-b137-e4171b42d2b8"], Cell[116008, 3513, 9182, 299, 335, "Output",ExpressionUUID->"d7e595f3-e146-45d0-968c-db9bde9d067a"] }, Open ]], Cell[125205, 3815, 13506, 370, 675, "Input",ExpressionUUID->"363c0ec6-b245-4022-95d8-238853b0bc9d"], Cell[CellGroupData[{ Cell[138736, 4189, 701, 16, 103, "Input",ExpressionUUID->"c7161c45-5992-4621-9c20-53b65654b2c0"], Cell[139440, 4207, 3492, 96, 538, "Output",ExpressionUUID->"2bd5f004-9e14-4cbb-8a7a-0159823c194e"] }, Open ]], Cell[142947, 4306, 250, 7, 68, "Text",ExpressionUUID->"97bd4e38-7569-4dc2-b667-37760d6c743b"], Cell[CellGroupData[{ Cell[143222, 4317, 655, 18, 109, "Input",ExpressionUUID->"dac76ca7-0f6e-4443-8d2c-abe090c032be"], Cell[143880, 4337, 2865, 84, 282, "Output",ExpressionUUID->"7ff205dd-6ccd-4ce8-a9e4-c6b764f18a2c"] }, Open ]], Cell[146760, 4424, 279, 7, 68, "Text",ExpressionUUID->"b4cbb70b-d48a-4170-942f-f7d992724e7e"], Cell[147042, 4433, 5374, 140, 461, "Input",ExpressionUUID->"72c2f1f4-a144-423a-a26f-d69762d4a71e"], Cell[152419, 4575, 190, 3, 67, "Text",ExpressionUUID->"21d17779-8c88-4f02-a067-919b431db62a"], Cell[CellGroupData[{ Cell[152634, 4582, 1048, 22, 145, "Input",ExpressionUUID->"50e88b61-ea04-4fdc-804a-3e6b7017fa23"], Cell[153685, 4606, 1359, 38, 124, "Output",ExpressionUUID->"e8f057c0-46a3-40b8-845b-e43b2a6ac125"] }, Open ]], Cell[CellGroupData[{ Cell[155081, 4649, 1419, 30, 227, "Input",ExpressionUUID->"ddbcba5c-2e2f-453c-a710-4c0b7dbf702f"], Cell[156503, 4681, 1359, 38, 124, "Output",ExpressionUUID->"70ea5d3f-2b59-4c05-920f-520ff3638f19"] }, Open ]], Cell[157877, 4722, 635, 16, 107, "Input",ExpressionUUID->"e537770a-bbc8-4d7b-ba3c-cb5104990f41"], Cell[158515, 4740, 662, 15, 186, "Input",ExpressionUUID->"011f4a1b-9d03-46d3-9238-d4f3f10cfbeb"], Cell[CellGroupData[{ Cell[159202, 4759, 773, 18, 155, "Input",ExpressionUUID->"da26fcdf-87b4-4167-9ec1-6432ba0b732e"], Cell[159978, 4779, 493, 12, 103, "Output",ExpressionUUID->"a5ecef06-48ff-4e52-949e-004ec13a5e2b"] }, Open ]], Cell[CellGroupData[{ Cell[160508, 4796, 1137, 22, 155, "Input",ExpressionUUID->"fb539e71-c49d-49db-9b80-43eb720b8782"], Cell[161648, 4820, 1127, 31, 103, "Output",ExpressionUUID->"4505ecf7-c637-4271-bc87-42b55a261a09"] }, Open ]], Cell[162790, 4854, 1395, 35, 119, "Text",ExpressionUUID->"97a60bb8-3df2-49c0-a931-762d242044fe"], Cell[CellGroupData[{ Cell[164210, 4893, 1065, 27, 193, "Input",ExpressionUUID->"35293728-39a6-42b1-afb5-3cec2efca127"], Cell[165278, 4922, 943, 28, 208, "Output",ExpressionUUID->"8a7fe1df-db4d-47c0-b504-ee3701c651df"] }, Open ]], Cell[166236, 4953, 1650, 52, 117, "Text",ExpressionUUID->"81634689-e687-4dc0-bef1-4d8002c39c57"], Cell[167889, 5007, 1142, 24, 103, "Input",ExpressionUUID->"48931d5d-e609-4088-8ca1-4c7d77c8b6bd"], Cell[CellGroupData[{ Cell[169056, 5035, 332, 7, 103, "Input",ExpressionUUID->"246f3648-422b-448b-8f21-d8ed9d91197e"], Cell[169391, 5044, 4057, 105, 198, "Output",ExpressionUUID->"4be42619-52fa-4737-8c1c-91878a1e5eef"] }, Open ]], Cell[CellGroupData[{ Cell[173485, 5154, 382, 8, 103, "Input",ExpressionUUID->"eaf32922-619a-4a0e-ad87-4c5b31bc9ec7"], Cell[173870, 5164, 4060, 106, 198, "Output",ExpressionUUID->"13816673-0fd2-4de1-b22e-a526d34dac71"] }, Open ]], Cell[CellGroupData[{ Cell[177967, 5275, 388, 11, 103, "Input",ExpressionUUID->"93785a11-d68a-4fa9-9d09-6656b0f22184"], Cell[178358, 5288, 2092, 49, 218, "Output",ExpressionUUID->"65050909-e8de-4f3d-ba67-c5c367e2d96c"] }, Open ]], Cell[180465, 5340, 380, 11, 67, "Text",ExpressionUUID->"eed6f2be-dbfc-4a9c-99c3-92547b01bb3c"], Cell[CellGroupData[{ Cell[180870, 5355, 1163, 26, 186, "Input",ExpressionUUID->"7c6b8f2b-467f-4de0-9c82-7b1ddfb5d207"], Cell[182036, 5383, 4127, 107, 198, "Output",ExpressionUUID->"ffe040e2-6016-40fb-be82-e80d960d2178"] }, Open ]], Cell[CellGroupData[{ Cell[186200, 5495, 368, 9, 103, "Input",ExpressionUUID->"2b57b2e2-3876-44be-bbd6-6074235870af"], Cell[186571, 5506, 2124, 50, 218, "Output",ExpressionUUID->"56998325-d03b-41ff-967a-836b14f69795"] }, Open ]], Cell[188710, 5559, 3214, 65, 517, "Input",ExpressionUUID->"4a2ef05c-337e-49c4-8e29-d09a751de4e2"], Cell[191927, 5626, 3067, 64, 485, "Input",ExpressionUUID->"de6ba59b-47a3-4876-948e-3bd38f003f4e"], Cell[194997, 5692, 354, 10, 70, "Text",ExpressionUUID->"046a2d74-df97-4bdf-b67f-bb0326a9b22d"], Cell[CellGroupData[{ Cell[195376, 5706, 5257, 120, 752, "Input",ExpressionUUID->"c5c890ec-463a-4071-a888-a42fafa87e91"], Cell[200636, 5828, 2469, 61, 1079, "Output",ExpressionUUID->"0982315f-bf0e-4791-9348-8f65c333a762"] }, Open ]], Cell[CellGroupData[{ Cell[203142, 5894, 865, 20, 152, "Input",ExpressionUUID->"d656fc23-9b0a-4350-b502-6f621c7f45da"], Cell[204010, 5916, 875, 25, 125, "Output",ExpressionUUID->"424ade48-44a6-43b4-8804-34d0b96c5323"] }, Open ]], Cell[204900, 5944, 7764, 242, 563, "InlineFormula",ExpressionUUID->"35e9f544-50e9-4887-8c88-de26b8ea9db8"], Cell[CellGroupData[{ Cell[212689, 6190, 490, 11, 186, "Input",ExpressionUUID->"0ea1885c-e6ae-4336-906e-54c1e9993b97"], Cell[213182, 6203, 1236, 39, 250, "Output",ExpressionUUID->"286f004e-5067-4b1b-857e-4e29c27bb2bb"] }, Open ]], Cell[214433, 6245, 2278, 55, 186, "Input",ExpressionUUID->"dfe8e629-bddc-43db-a366-6644e3de33d8"], Cell[CellGroupData[{ Cell[216736, 6304, 710, 16, 186, "Input",ExpressionUUID->"5fdb1ec3-41cd-40f9-840e-20d60eaa30bf"], Cell[217449, 6322, 2633, 52, 352, "Output",ExpressionUUID->"78a18ca6-d7ec-4fff-856e-92bcd651236e"] }, Open ]], Cell[220097, 6377, 173, 3, 66, "Subtitle",ExpressionUUID->"3fad5a7b-fd41-4bb2-ac15-0387a780e4af"], Cell[220273, 6382, 281, 6, 67, "Text",ExpressionUUID->"1b28d59b-b90e-47cc-a50f-b182d667a509"], Cell[220557, 6390, 1047, 25, 240, "Input",ExpressionUUID->"28d2506b-5c32-4c73-a41c-84c14219f6e3"], Cell[221607, 6417, 1097, 35, 146, "Input",ExpressionUUID->"d0e59def-91e9-4710-b1e5-30ae9f6a856e"], Cell[CellGroupData[{ Cell[222729, 6456, 179, 3, 103, "Input",ExpressionUUID->"dd26c915-754e-4c62-b923-89b4e950c84a"], Cell[222911, 6461, 20996, 634, 596, "Output",ExpressionUUID->"8f6e045e-7a1c-4488-bfda-9d9f0bfacd3b"] }, Open ]], Cell[CellGroupData[{ Cell[243944, 7100, 312, 7, 103, "Input",ExpressionUUID->"16e46e8d-a953-45cb-9ded-e1074cc29f10"], Cell[244259, 7109, 6743, 166, 391, "Output",ExpressionUUID->"16dae3af-5452-4134-b76b-b3fb4523f855"] }, Open ]], Cell[CellGroupData[{ Cell[251039, 7280, 1150, 34, 150, "Input",ExpressionUUID->"cd7a539b-1382-4189-ab92-4b4716aeb390"], Cell[252192, 7316, 423, 7, 103, "Output",ExpressionUUID->"d8f65a12-365e-4675-a68a-a0f26fa67192"] }, Open ]], Cell[CellGroupData[{ Cell[252652, 7328, 949, 29, 146, "Input",ExpressionUUID->"a00fb489-6d04-4adb-ac32-72e05d2e012f"], Cell[253604, 7359, 399, 6, 103, "Output",ExpressionUUID->"472689b0-d3bf-43c3-831b-3d42c94fdb8f"] }, Open ]], Cell[254018, 7368, 211, 5, 67, "Text",ExpressionUUID->"94de0294-14d4-45ff-acdd-9cb2e6642a7f"], Cell[CellGroupData[{ Cell[254254, 7377, 1289, 39, 150, "Input",ExpressionUUID->"88a85d87-fcb1-4573-878a-8889e3978979"], Cell[255546, 7418, 295, 7, 109, "Output",ExpressionUUID->"aa3b5c11-2149-45b3-a28c-0dcb78c88778"] }, Open ]], Cell[CellGroupData[{ Cell[255878, 7430, 369, 10, 143, "Input",ExpressionUUID->"430d32e3-d36b-4938-8838-ae13750d32da"], Cell[256250, 7442, 486, 8, 103, "Output",ExpressionUUID->"418c4ff0-a22a-4216-b64d-ea0797312770"] }, Open ]], Cell[CellGroupData[{ Cell[256773, 7455, 202, 4, 103, "Input",ExpressionUUID->"23d67687-2fe1-4b32-86f2-fcd992adc2a8"], Cell[256978, 7461, 333, 7, 103, "Output",ExpressionUUID->"f3a58010-ce5f-44f6-bfa5-90c197236f5a"] }, Open ]], Cell[257326, 7471, 213, 5, 67, "Text",ExpressionUUID->"f0a51cb7-deda-44f9-8349-ce3709198301"], Cell[257542, 7478, 177, 3, 66, "Subtitle",ExpressionUUID->"794a7b11-6e35-4d2d-9544-398c283bc7c7"], Cell[257722, 7483, 780, 20, 136, "Input",ExpressionUUID->"4ae56f68-41ae-417e-afda-64458818b897"], Cell[258505, 7505, 325, 8, 103, "Output",ExpressionUUID->"5df4b63a-6ae2-4157-8466-a7142ccb8e38"], Cell[CellGroupData[{ Cell[258855, 7517, 867, 23, 138, "Input",ExpressionUUID->"a7d1790d-9045-40df-8f6a-927fbe5d5001"], Cell[259725, 7542, 280, 7, 103, "Output",ExpressionUUID->"399850f5-a097-4ca5-8f08-ec759ea912ca"] }, Open ]], Cell[CellGroupData[{ Cell[260042, 7554, 936, 24, 138, "Input",ExpressionUUID->"32202a29-4621-4080-afec-0ce8a96d235b"], Cell[260981, 7580, 247, 6, 103, "Output",ExpressionUUID->"0fdc8533-2703-4478-8870-37bdada454ef"] }, Open ]], Cell[261243, 7589, 1249, 31, 138, "Input",ExpressionUUID->"0559f397-cd93-4e5e-a8c2-f0b336b08c23"], Cell[262495, 7622, 419, 12, 103, "Output",ExpressionUUID->"2161e86d-1a66-46bf-9eca-cd4e2f1d5a9e"] } ] *)