(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 716423, 17701] NotebookOptionsPosition[ 697281, 17361] NotebookOutlinePosition[ 698146, 17388] CellTagsIndexPosition[ 698010, 17382] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Scientific Programming 3", "Chapter", CellChangeTimes->{{3.724943992364118*^9, 3.724944007146431*^9}, 3.725524593957123*^9, 3.726336972840088*^9},ExpressionUUID->"56e80fe5-ce6c-41d1-b66a-\ 0fb700393263"], Cell[CellGroupData[{ Cell["Structure of Mathematica", "Subchapter", CellChangeTimes->{{3.7255283244776773`*^9, 3.725528347152596*^9}, { 3.7255283926508713`*^9, 3.725528412827997*^9}, {3.726337891006472*^9, 3.72633790272196*^9}, {3.72633793701436*^9, 3.726337954653368*^9}},ExpressionUUID->"9c021936-8713-467e-ba24-\ bab0ac8f2d19"], Cell[CellGroupData[{ Cell["Numbers", "Subsection", CellChangeTimes->{{3.7263379587234592`*^9, 3.726337964613986*^9}, { 3.726338035982999*^9, 3.7263380565941973`*^9}, {3.7263396209068623`*^9, 3.726339621693438*^9}},ExpressionUUID->"8b47b09a-2828-4b38-a1af-\ c65bb4cc607d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Head", "/@", RowBox[{"{", RowBox[{"3", ",", RowBox[{"22", "/", "7"}], ",", "3.14", ",", RowBox[{"2.34", "+", RowBox[{"2.09", " ", "\[ImaginaryI]"}]}], ",", " ", "\[Pi]"}], "}"}]}]], "Input", CellChangeTimes->{{3.6841952489459133`*^9, 3.684195303734767*^9}, { 3.6841960048890877`*^9, 3.684196023020372*^9}},ExpressionUUID->"e725b2dc-6034-4c54-bd2b-\ a7966a93bccb"], Cell[BoxData[ RowBox[{"{", RowBox[{ "Integer", ",", "Rational", ",", "Real", ",", "Complex", ",", "Symbol"}], "}"}]], "Output", CellChangeTimes->{3.684196025902256*^9, 3.68420100024074*^9},ExpressionUUID->"eb22d96b-8184-4bb1-a9a4-d2aa1177ad93"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullForm", "/@", RowBox[{"{", RowBox[{"3", ",", RowBox[{"22", "/", "7"}], ",", "3.14", ",", RowBox[{"2.34", "+", RowBox[{"2.09", " ", "\[ImaginaryI]"}]}], ",", " ", "\[Pi]"}], "}"}]}]], "Input", CellChangeTimes->{{3.68419611310601*^9, 3.684196129424767*^9}},ExpressionUUID->"8cae81b3-0181-4d6a-9c06-\ 7492b45a3b4f"], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ StyleBox["3", ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm], ",", TagBox[ StyleBox[ RowBox[{"Rational", "[", RowBox[{"22", ",", "7"}], "]"}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm], ",", TagBox[ StyleBox["3.14`", ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm], ",", TagBox[ StyleBox[ RowBox[{"Complex", "[", RowBox[{"2.34`", ",", "2.09`"}], "]"}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm], ",", TagBox[ StyleBox["Pi", ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]}], "}"}]], "Output", CellChangeTimes->{3.6841961324925337`*^9, 3.684201000355522*^9},ExpressionUUID->"9e52a5ce-de19-444e-b5a5-\ 06b8c7692a41"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"7", "\[Equal]", "7.0"}]], "Input", CellChangeTimes->{{3.7263381556569023`*^9, 3.726338160559821*^9}},ExpressionUUID->"47d3394d-44a1-49bb-b722-\ 1c218f12bb8c"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.726338163110227*^9},ExpressionUUID->"c1863746-c9c4-4ad1-8725-\ 5737f305fe68"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"7", "===", "7.0"}]], "Input", CellChangeTimes->{{3.726338167221488*^9, 3.7263381728111486`*^9}},ExpressionUUID->"b2761d78-3dca-43c9-a768-\ 033224d02b37"], Cell[BoxData["False"], "Output", CellChangeTimes->{ 3.726338175178609*^9},ExpressionUUID->"180dea7c-5a09-4551-b5ce-\ c24f20fe308e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "\[Equal]", "7"}]], "Input", CellChangeTimes->{{3.726338195163988*^9, 3.726338198371914*^9}},ExpressionUUID->"b76aa6cd-14f7-49ff-86a8-\ 969325f85660"], Cell[BoxData[ RowBox[{"x", "\[Equal]", "7"}]], "Output", CellChangeTimes->{ 3.726338207326232*^9},ExpressionUUID->"3dcf28b3-baab-4b34-81a0-\ eaf693acc0f6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "===", "7"}]], "Input", CellChangeTimes->{{3.726338214893915*^9, 3.726338217890604*^9}},ExpressionUUID->"0e1c88f0-c366-48a2-afce-\ d9cb48a1e538"], Cell[BoxData["False"], "Output", CellChangeTimes->{ 3.726338220329976*^9},ExpressionUUID->"74e4856f-87c3-44c2-8007-\ 1357edd91c4a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", "\[Pi]"], ",", SuperscriptBox["\[Pi]", "\[ExponentialE]"]}], "}"}], "//", "N"}]], "Input",\ CellChangeTimes->{{3.684197951828676*^9, 3.6841979912822113`*^9}},ExpressionUUID->"dde2347f-0f11-48c0-ae81-\ 115d7e8eccc4"], Cell[BoxData[ RowBox[{"{", RowBox[{"23.140692632779267`", ",", "22.45915771836104`"}], "}"}]], "Output",\ CellChangeTimes->{3.684197993886581*^9, 3.684201698626912*^9, 3.7263384400040197`*^9},ExpressionUUID->"d210490e-94c4-4abf-804c-\ 1ae57154041c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SuperscriptBox["\[ExponentialE]", "\[Pi]"], ">", " ", SuperscriptBox["\[Pi]", "\[ExponentialE]"]}]], "Input", CellChangeTimes->{{3.6841979229762173`*^9, 3.684197943582666*^9}, { 3.68419800675924*^9, 3.684198008622093*^9}},ExpressionUUID->"7d8aac7e-0e98-4ecb-8d8d-\ ed53aafbf386"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.68419801122449*^9, 3.684201726755988*^9, 3.726338440081993*^9},ExpressionUUID->"ba44aed7-f9d4-4082-880c-\ e61cf60a876a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SuperscriptBox["\[ExponentialE]", "\[Pi]"], "<", " ", SuperscriptBox["\[Pi]", "\[ExponentialE]"]}]], "Input", CellChangeTimes->{{3.6841979229762173`*^9, 3.684197943582666*^9}, { 3.68419800675924*^9, 3.6841980301164017`*^9}},ExpressionUUID->"02d24d5f-f4fc-446a-9426-\ 3f547c166055"], Cell[BoxData["False"], "Output", CellChangeTimes->{3.684198031747004*^9, 3.684201735151403*^9, 3.726338440144843*^9},ExpressionUUID->"f1907191-b980-44ae-b898-\ 2ed90762dab0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IntegerDigits", "[", "3569", "]"}]], "Input", CellChangeTimes->{{3.684197740354569*^9, 3.684197757369035*^9}},ExpressionUUID->"a809bab6-622f-4097-9e32-\ 91944a901caf"], Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", "5", ",", "6", ",", "9"}], "}"}]], "Output", CellChangeTimes->{3.684197759199356*^9, 3.684201756388152*^9, 3.726338440212603*^9},ExpressionUUID->"c754fc4b-ae06-41f3-baed-\ 18df17f252e3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FromDigits", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.684197761377932*^9, 3.684197773248802*^9}},ExpressionUUID->"d24183f5-25c5-412d-9de2-\ 16cabe21fb66"], Cell[BoxData["3569"], "Output", CellChangeTimes->{3.6841977742449703`*^9, 3.684201779189919*^9, 3.726338440279183*^9},ExpressionUUID->"44baaf15-b05b-40b2-a64f-\ 5c43bdc615e5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", "EulerGamma", "]"}]], "Input", CellChangeTimes->{{3.684197779712376*^9, 3.684197792876363*^9}},ExpressionUUID->"571e9a02-a4d6-499d-a577-\ 3594fc75caae"], Cell[BoxData["0.5772156649015329`"], "Output", CellChangeTimes->{3.684197796082172*^9, 3.684201790958284*^9, 3.726338455232457*^9},ExpressionUUID->"76eb987d-3af5-4ce4-8193-\ 46c9cd1a621e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RealDigits", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.684197801296489*^9, 3.684197810547599*^9}},ExpressionUUID->"38dc1a9c-3af8-44ef-8c9a-\ 0c87b149eae5"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "5", ",", "7", ",", "7", ",", "2", ",", "1", ",", "5", ",", "6", ",", "6", ",", "4", ",", "9", ",", "0", ",", "1", ",", "5", ",", "3", ",", "2", ",", "9"}], "}"}], ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.68419781292435*^9, 3.68420181707524*^9, 3.726338474933923*^9},ExpressionUUID->"8cb9724e-c7d0-42e4-a7e1-\ b2d6353e235d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RealDigits", "[", "325.23", "]"}]], "Input", CellChangeTimes->{{3.726338526225196*^9, 3.7263385414803543`*^9}},ExpressionUUID->"a11a3471-a52d-4bc7-b508-\ cc9d912bb2b9"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "3", ",", "2", ",", "5", ",", "2", ",", "3", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "3"}], "}"}]], "Output", CellChangeTimes->{ 3.72633854285585*^9},ExpressionUUID->"0a4447f2-5758-4e59-aee9-839a12d2e600"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RealDigits", "[", RowBox[{ RowBox[{"N", "[", "EulerGamma", "]"}], ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.684197779712376*^9, 3.684197792876363*^9}, { 3.6841978748104973`*^9, 3.684197886350905*^9}},ExpressionUUID->"9ea1413e-ac93-47df-a087-\ 8a94758c4b2b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1"}], "}"}], ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.684197887898074*^9, 3.684201885886002*^9},ExpressionUUID->"cfcfe19d-6c8b-4d41-8670-\ 66ca2c7b03b6"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Precision and Accuracy", "Subsection", CellChangeTimes->{{3.684198114587864*^9, 3.6841981243288794`*^9}},ExpressionUUID->"e7f8e18f-e648-48ca-b3c5-\ 8aea3c82cb5e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"e", "=", RowBox[{"N", "[", "\[ExponentialE]", "]"}]}]], "Input", CellChangeTimes->{{3.6841981328468733`*^9, 3.68419814292407*^9}},ExpressionUUID->"57071f31-f78f-4022-b21d-\ 24e45837092e"], Cell[BoxData["2.718281828459045`"], "Output", CellChangeTimes->{3.684198144576694*^9, 3.6842019252536077`*^9},ExpressionUUID->"e6a5a6dd-d7b9-4f1a-845b-\ 6ada9b11abef"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullForm", "[", "e", "]"}]], "Input", CellChangeTimes->{{3.684198310658883*^9, 3.6841983162782373`*^9}},ExpressionUUID->"d9fed124-4d5e-4a59-b907-\ b0cca1a5bda2"], Cell[BoxData[ TagBox[ StyleBox["2.718281828459045`", ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output", CellChangeTimes->{3.684198317587028*^9, 3.6842019338161983`*^9},ExpressionUUID->"4300cca2-5e03-4e5d-bdf4-\ a83c4a620c71"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", "1.5"}]], "Input", CellChangeTimes->{{3.684198358357378*^9, 3.684198381958078*^9}},ExpressionUUID->"baaa7e6a-2ca0-423c-8faf-\ c006035523c9"], Cell[BoxData["1.5`"], "Output", CellChangeTimes->{3.684198664277458*^9, 3.684202004466806*^9},ExpressionUUID->"a12efb83-036f-4880-8fb6-\ 6e5ffb734d4c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullForm", "[", "x", "]"}]], "Input", CellChangeTimes->{{3.684198388552312*^9, 3.684198394814291*^9}},ExpressionUUID->"fadab43c-a838-499a-bd91-\ 7b05ba5c252e"], Cell[BoxData[ TagBox[ StyleBox["1.5`", ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output", CellChangeTimes->{3.684198396338954*^9, 3.684202077832699*^9},ExpressionUUID->"ff354f84-aab2-4d9c-9357-\ 72a6a842ebff"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"1.5", " ", "\[Pi]"}]], "Input", CellChangeTimes->{{3.726338811085672*^9, 3.726338822427455*^9}},ExpressionUUID->"fc64929c-5d6d-44e2-aa40-\ aacea0e67f73"], Cell[BoxData["4.71238898038469`"], "Output", CellChangeTimes->{ 3.7263388245459127`*^9},ExpressionUUID->"9ceba168-1fe6-4fbb-a7bd-\ c815acfd298f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{"1.5", " ", "\[Pi]"}], ",", "100"}], "]"}]], "Input", CellChangeTimes->{{3.72633882983381*^9, 3.726338852515936*^9}},ExpressionUUID->"27b58367-132e-4d5e-9357-\ c219bd67323e"], Cell[BoxData["4.71238898038469`"], "Output", CellChangeTimes->{ 3.726338853847756*^9},ExpressionUUID->"aee85aa9-99f1-4602-b69a-\ e546cfd68462"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "\[Pi]"}], ",", "100"}], "]"}]], "Input", CellChangeTimes->{{3.726338865653591*^9, 3.726338884469967*^9}},ExpressionUUID->"d1cf44bd-ddec-4cc0-971a-\ 38662d2553cf"], Cell[BoxData["4.\ 712388980384689857693965074919254326295754099062658731462416888461724609429313\ 4979420522380131756019732221297698972`100."], "Output", CellChangeTimes->{ 3.726338885651555*^9},ExpressionUUID->"648ff4d1-619f-41c1-8215-\ 3be7b0d245e4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ FractionBox["2", "3"], "%"}]], "Input", CellChangeTimes->{{3.726338927040531*^9, 3.7263389523183203`*^9}},ExpressionUUID->"18ec8907-9850-4097-a4f1-\ 2d00221b02d8"], Cell[BoxData["3.\ 141592653589793238462643383279502884197169399375105820974944592307816406286208\ 9986280348253421170679821480865132648`100."], "Output", CellChangeTimes->{ 3.7263389545578117`*^9},ExpressionUUID->"81ca04d3-af0f-467a-8ec2-\ bd3155b71211"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "\[Equal]", RowBox[{"N", "[", RowBox[{"\[Pi]", ",", "100"}], "]"}]}]], "Input", CellChangeTimes->{{3.72633896082229*^9, 3.726338974291326*^9}},ExpressionUUID->"f2d63ad1-be13-46b5-aa78-\ 9b6eaf33837e"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.726338975182868*^9},ExpressionUUID->"862f2ab9-ab5e-43f3-8f66-\ c324aedc25c7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", "1.5``100"}]], "Input", CellChangeTimes->{{3.6841984229830112`*^9, 3.68419844323705*^9}, { 3.726339292033095*^9, 3.726339293069031*^9}},ExpressionUUID->"f4c92b12-63dd-4cee-a54d-\ cfe5e1b40ebb"], Cell[BoxData["1.5`100.17609125905567"], "Output", CellChangeTimes->{3.684198445115211*^9, 3.7263392951279707`*^9},ExpressionUUID->"0164f4bc-a99c-4889-8634-\ e3de95449571"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{"x", " ", "\[Pi]"}], ",", "100"}], "]"}], "\[Equal]", RowBox[{"N", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "\[Pi]"}], ",", "100"}], "]"}]}]], "Input", CellChangeTimes->{{3.726339321223092*^9, 3.726339359795532*^9}},ExpressionUUID->"a27929f3-b9a1-4190-a29d-\ ef0dfe6bbdbe"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.726339362960908*^9},ExpressionUUID->"1270ca92-f4da-4fa7-8c9f-\ 5e52e79c6068"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Precision", "[", "x", "]"}]], "Input", CellChangeTimes->{{3.7263393972141323`*^9, 3.726339405149146*^9}},ExpressionUUID->"d735eb03-3dbe-4df4-9df7-\ 14f7e082ca18"], Cell[BoxData["100.17609125905567`"], "Output", CellChangeTimes->{ 3.7263394067607393`*^9},ExpressionUUID->"a3c2815c-02b8-41e0-9389-\ a56afa552062"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Accuracy", "[", "x", "]"}]], "Input", CellChangeTimes->{{3.726339413464634*^9, 3.726339419457366*^9}},ExpressionUUID->"87aaf4e5-5e67-400b-89d9-\ fefbaed3d2fe"], Cell[BoxData["100.`"], "Output", CellChangeTimes->{ 3.72633942074305*^9},ExpressionUUID->"7839aaa2-a099-40cf-8c54-4bbedd4f01a0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Precision"}]], "Input", CellChangeTimes->{{3.726339466546927*^9, 3.726339471203689*^9}},ExpressionUUID->"614baffa-76aa-49d9-b8e9-\ f676ddac3da5"], Cell[BoxData[ RowBox[{"\<\"\\!\\(\\*RowBox[{\\\"Precision\\\", \\\"[\\\", StyleBox[\\\"x\\\ \", \\\"TI\\\"], \\\"]\\\"}]\\) gives the effective number of digits of \ precision in the number \\!\\(\\*StyleBox[\\\"x\\\", \\\"TI\\\"]\\). \"\>", "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/Precision"]}]], "Print", "PrintUsage", CellChangeTimes->{3.7263394744194183`*^9}, CellTags-> "Info283726339474-6760535",ExpressionUUID->"43fd55c1-de44-4214-a651-\ 8885e6be82ff"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Precision", "[", FractionBox["3", "2"], "]"}]], "Input", CellChangeTimes->{{3.726339549461358*^9, 3.726339560281558*^9}},ExpressionUUID->"73e56809-9580-4058-a2a4-\ 1c196fca00c1"], Cell[BoxData["\[Infinity]"], "Output", CellChangeTimes->{ 3.726339561180794*^9},ExpressionUUID->"e6a7dff3-8022-4d0e-a3ab-\ c9625ed84da2"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Solving differential equations", "Subsection", CellChangeTimes->{{3.7263396802615833`*^9, 3.726339687045164*^9}, { 3.726340012208708*^9, 3.726340030653122*^9}},ExpressionUUID->"069cad79-7f19-4242-8d28-\ 4c50463af459"], Cell[BoxData[ RowBox[{ RowBox[{"eq", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"y", "''"}], "[", "t", "]"}], "-", RowBox[{ FractionBox["1", "5"], RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{"y", "[", "t", "]"}], "2"]}], ")"}], RowBox[{ RowBox[{"y", "'"}], "[", "t", "]"}]}], " ", "+", " ", RowBox[{"y", "[", "t", "]"}]}]}]], "Input", CellChangeTimes->{{3.684198606056643*^9, 3.684198637824339*^9}, { 3.684198674732131*^9, 3.6841987124703627`*^9}, {3.684200803130641*^9, 3.684200811598341*^9}, {3.7263403261055183`*^9, 3.7263403418551283`*^9}},ExpressionUUID->"5666267e-6e66-4952-ac62-\ c3c4b3980a96"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"soln", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"eq", "[", "t", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"y", "[", "0", "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"y", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], ",", "y", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6841987192809973`*^9, 3.684198802704108*^9}, 3.68419937032593*^9, 3.684202200534837*^9, {3.726340347693203*^9, 3.726340363859605*^9}},ExpressionUUID->"aae580fc-1216-4769-bca2-\ 1402bb642040"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"y", "\[Rule]", InterpretationBox[ RowBox[{ TagBox["InterpolatingFunction", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAA9xwHa8MPoT5L+//////vP1Iuok6l TN8/bTRYLY897D+dPILS0E7wP5zv/z6ifuA/svFU4o46+D8vCb6gs6uFP79p XTmG/v8/hPEVYEsp4b9LkQoifjUEQCKRxNROXvC/vu/ib8QjCECGR2JiVLTz v5fukhdKZgxAjlBwrcwG8r92524xdkoQQDjVZdpKIee/pJhS+8w9EkDWEBbF YJ3CvwUaInJDWxRAK71sSrd14j9o3C+Nv1QWQPHNz4bRdfI/ig8L+klEGECv wK3zvRr3P98S0hP0XRpAccbTkub69T82V9fRo1McQM+5RCT3n+8/wWvIPHNz HkDc0VN5OonTP4R4w3yoRCBAL44hTlpq4L+q20Etmj0hQC2mX6e4UPO/6iY2 tJtLIkALcwLrH+j5v6uSSQ2gRyNAm/2XBOZa+b+G5tI8tFgkQPpK9cXcefK/ wPJClc9kJUCgFpM9Wrnbv3sf0r/tXiZAOq8tLMbk2T9QNNfAG24nQMuiau0y NvQ/pmn7k0xrKEDu+b4hmKb7P1tXBpCEYylAI7x44knt+z8qLYdizHAqQPOx 0KH6hvU/eiMnBxdsK0CeJodHcKjlP+QBPYJxfCxA5Ol5Bh8S0b+tmDkm04ct QGVv+zXmMPO/909VnDeBLkAvI+/tdTL8v1vv5uirjy9AtMRAqQmT/b+g18uD EUYwQIGyp+NaBfi/wpOXp9DBMED6nQJKbKnrv/FDnrYXSDFADsT4YlxAsT9h hLQuYMUxQHSSj1xDDfA/3bgFkjBNMkBdYvUSwt37P5p9Zl4CzDJAglA4vDLd /j+Hnjq/V0gzQNja1Cnhwfo/gLNJCzXPM0A0uIavlX/wP7pYaMATTTRAzBlU 7vQRxz8B8sFgetU0QJ6NTNlSuuu/d+eOlWRbNUA7Pkd/reb6vy5tazNQ2DVA RquqNt9m/7/y5oK8w182QC9fSkiF5vu/9/CprjjeNkB/WgauH9LyvytXRDUx WjdAjCBc4qWE179ssRmnseA3QLcFMo7YguU/7pv+gTNeOEBFpQvtLW/4P316 Hkg95jhAp2BGYhpz/z87tbGiyms5QO8SZ71TW/0/OoBUZlnoOUDlheYQ0F31 P0Y/MhVwbzpAMkPnMtSD3z+Sjh8tiO06QMMnKNO+lN6/69FHMCh2O0DctoiI 2kz3v3Rx48dL/DtAf7RdmfVJ/789oY7IcHk8QPTvxJhvb/6/E8V0tB0BPUDk wkp7QYj2vyp5agnMfz1A8HAFSxi/5L9KHnj3//89QJsC0XJTqNQ/YYrfQg== "]]}, Annotation[#, "Charting`Private`Tag$5511#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 30.}, {-1.962615216771796, 1.965601333509804}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "30.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAA9xwHa8MPoT5L+//////vP1Iuok6l TN8/bTRYLY897D+dPILS0E7wP5zv/z6ifuA/svFU4o46+D8vCb6gs6uFP79p XTmG/v8/hPEVYEsp4b9LkQoifjUEQCKRxNROXvC/vu/ib8QjCECGR2JiVLTz v5fukhdKZgxAjlBwrcwG8r92524xdkoQQDjVZdpKIee/pJhS+8w9EkDWEBbF YJ3CvwUaInJDWxRAK71sSrd14j9o3C+Nv1QWQPHNz4bRdfI/ig8L+klEGECv wK3zvRr3P98S0hP0XRpAccbTkub69T82V9fRo1McQM+5RCT3n+8/wWvIPHNz HkDc0VN5OonTP4R4w3yoRCBAL44hTlpq4L+q20Etmj0hQC2mX6e4UPO/6iY2 tJtLIkALcwLrH+j5v6uSSQ2gRyNAm/2XBOZa+b+G5tI8tFgkQPpK9cXcefK/ wPJClc9kJUCgFpM9Wrnbv3sf0r/tXiZAOq8tLMbk2T9QNNfAG24nQMuiau0y NvQ/pmn7k0xrKEDu+b4hmKb7P1tXBpCEYylAI7x44knt+z8qLYdizHAqQPOx 0KH6hvU/eiMnBxdsK0CeJodHcKjlP+QBPYJxfCxA5Ol5Bh8S0b+tmDkm04ct QGVv+zXmMPO/909VnDeBLkAvI+/tdTL8v1vv5uirjy9AtMRAqQmT/b+g18uD EUYwQIGyp+NaBfi/wpOXp9DBMED6nQJKbKnrv/FDnrYXSDFADsT4YlxAsT9h hLQuYMUxQHSSj1xDDfA/3bgFkjBNMkBdYvUSwt37P5p9Zl4CzDJAglA4vDLd /j+Hnjq/V0gzQNja1Cnhwfo/gLNJCzXPM0A0uIavlX/wP7pYaMATTTRAzBlU 7vQRxz8B8sFgetU0QJ6NTNlSuuu/d+eOlWRbNUA7Pkd/reb6vy5tazNQ2DVA RquqNt9m/7/y5oK8w182QC9fSkiF5vu/9/CprjjeNkB/WgauH9LyvytXRDUx WjdAjCBc4qWE179ssRmnseA3QLcFMo7YguU/7pv+gTNeOEBFpQvtLW/4P316 Hkg95jhAp2BGYhpz/z87tbGiyms5QO8SZ71TW/0/OoBUZlnoOUDlheYQ0F31 P0Y/MhVwbzpAMkPnMtSD3z+Sjh8tiO06QMMnKNO+lN6/69FHMCh2O0DctoiI 2kz3v3Rx48dL/DtAf7RdmfVJ/789oY7IcHk8QPTvxJhvb/6/E8V0tB0BPUDk wkp7QYj2vyp5agnMfz1A8HAFSxi/5L9KHnj3//89QJsC0XJTqNQ/YYrfQg== "]]}, Annotation[#, "Charting`Private`Tag$5511#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 30.}, {-1.962615216771796, 1.965601333509804}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "30.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel", DisplayFunction->( ButtonBox[#, Active -> False, Alignment -> Left, Appearance -> { "Default" -> FrontEnd`FileName[{"Typeset", "SummaryBox"}, "Panel.9.png"]}, FrameMargins -> 7, BaseStyle -> {}, DefaultBaseStyle -> {"Panel", Background -> None}, BaselinePosition -> Baseline]& )], DynamicModuleValues:>{}], "]"}], InterpolatingFunction[{{0., 30.}}, { 5, 7, 2, {464}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, CompressedData[" 1:eJwt13c41Q//BnAzM3tklD2OeY7j7HP63MmolFVJpNKy842KjIyWElGeZDRE ioxSEUkaxldSIps0SEaiKA0ev+v5va/rvl//3f+/tXYEuewW4OPj41/Iq/+r /787k/4t5/l1iP9JJa4VzwTKF+4jljj6ly9SiCV6bXvKBV1OEtqKNtdyY9IJ /5UO5TomOYTNn1m16bR8IrnbBR/4bxF+5+Zy7waWEdZrC8SOd1URZwSMy29e fUz86Y/xTe18Rvg+aFeLkmogbo+3OZZZNRN/znx+HMp5TWjmD3ukbnxDWD/5 NH0rqJPw6Rk68+JkD3H6+yBpJKef6Dw+5SX4doDwk58qlg14T7xMMJ43/faB sBTa7bgmfJBIj7x0eQ//J2Lue8dEXPwwsTNQFpelR4iGwTXJD86PEnHnx3a8 bxonLunUZxzl/0r8/q0sdEF9knBr8wm8yZgi7hVWtFe7fCPkjonjdeB3IsjT I38wfpoobY2Iz5mYIaZXZ3l7uf4kmDVVthoPZ4lIep9en85v4lHhX6HMU38I AZ1lH90m/xI26cufKrnNE89OmDv7bePD0JNH+FeOHyJzjmTDOn6QWAMaJw4J wH7/P9JDJoIIKOGbtx4QRNJI8pecc0Io0dPqF7ATRsv22y+8fgnjW+aKhzVF i6DQ0VKo4SUCutyOrMMKojh+pPxgQb4o2r9LOrcvF4PBnh3GAm1iCO0oFzbz FUfDqsUDm+fEsaRyR+WxcxLwMb6fettQEhVZi4P6Hkqiv+J4bn7UYgh2zHcd 4EmB9D1M2uqvFBxkp6ylHkqDnUbjBS6XQZPe1Kb1l2Sw7W5xMGtOBlNW/oka W2VxrMXghnC1LJS3f3wyulQOBV+u9LVEyYEX5fmzvE8OLyVU5S/x5LEjo930 6EV5lJrF7wgck4fAU1aaK0cBzptGnxOnFJA9msVH6lLAZLQDTc5QESsU+Px+ H1RE8o3blz7WKmKAu7P1hYISyC0KouU7lRCzu457pVQJL2dD953kV4ZGEikv 2EkZQdo93R6XlfGo7LS0zRdlSNkvtzbjLcHWtxNhyqeXoDgku4ivZwnmRNa/ /0xSgUOWkHJrmAouksvsq+pVMP7MO+aakip4m1XuJe1WReJ44+fQu6rojY1c 5iWoBhMls/VrXNQQWfD2BDVbDeSIfuXQWTUM2vddr3RWR7p6L2MuXx0O4931 KwSWQqC6a9Mx96UoT+r81FC6FP7bOkIlJZZBk9wu4rRzGdr43qSde7AMo8Hz fUr6GuAfJOlmJGtAWHXmre8HDRwzePdCXU0TIlb1N49aa+LklqKTY4GakAw9 570hTRNJKYdsqmo0IVO4TUd3RBNn62z4T8trQc9SaNMKmhYqsp8UzrhqYa10 rEBhmBbeRhJuXhlaCBn5W6RUpYVFblWCTX1aSK8N3xw7rwUTKquErqWNmis/ hMastLFeqsw9e5c2hiL233I9rg3lgp1d/IXaWNXpIlDUoo2wRVbGbj+0kW9J 2SC4VAddOzSjiq10IJ4inbfZRwecR3PNQkk68B8f/1FyRwdZan2aHl06UDi7 0c5bXBeJos2BIRxdCEfbpkYH6CJquroy4aIuZvwZ79KadbH3fYlI7rwuhtwM zW6R9bD15ZUNVV566LBRiWg4qwfHqpTstqd6qLcQbxj4rgfkx30Z09PHfY3f CrOu+piXUpvbH64Pmzn2p68X9XF63P1VwGN9vO4Nrxj+qA+Vpoyru0QNsO1B ZcKAsQHyCrr3b3E0wHj6L8/OYANQT6rabThvgPAwNvlVhQFqvN1V1vYZQGRT uEADnyHW2WaMrtQ1RCqtsu2RnSF6dLsfcvwNoaXwK688yRBPTAvKmm4aYoed e927BkMIeom3zwwaIie8clBCkATrVL9pTU0SPhapCtN5JBytb1SwdydB7124 7vZQEqgVJfa96SRYpXwMdqsiwclXJaOtn4RtKxweO/EbIVDlyHCTjhEiJ8ul V9sa4dS/Y/RaHyOkZ2ttXZFgBMXNjoab7hshRSZqKmDQCJINBVVxcsaIj+48 foEwhhBjkXNxgDFivlDVnqUb4881r8GuOmOEeZ4pmfhmjG8KDw8Ja5kgqGlk pZqDCUaPLJGiRJggXiAtx/WyCfRiFVmRT03wdP5cc/YnE2w/LLerXsIUf/8k z46ZmyIjQvqM3AZTMH4l6jLDTPEmTLLSM8sUwT9OOR6pMcXDl058j/tMIXZD 6fbcL1NsjOn14i4xQ7bbVblwmhnGyD5Py13MwBQz2z8dZIaj777pUhPN8Kqi 4s0/BWZQOxt9vLjeDN5+Noyxj2a4YyUxTBIwx7xqywVvDXOs+XZ+9TWuOc4/ 3/Lr/WZzSHaJ9uyNMEfc0N0Hv7LM8fPb9qzj1ebYy784Sm7AHMEnes1e8pFh mmSh8R9ZMoZT46U9tMnIyeyf16QuaOKz/bwtGVcfTtZIuJOR7RChFRu44Fuh uJkYMq78k/TeP3VB/iUr310n4/LZ7BzXB2S0dOfq2rWSIVwUe23TEBms6K36 PrNkBDpzrodJUuDdMVVqp06Bl2dBtZIJBVs+eDUOcihw9VVpv2tPgdPEq3dH PCiwPxA/7uJPgc1vYlYrggIi9ofQ5CkK2CIlMjUZFFgm7lE/U0CBhsrqXt9y CsSvGWdZP6Ngmiy1RaOFgoGqr2q/+ih4vqq1p22EgrK2e5klPyjI3n7B45SQ Ba4vMyR2yVugqLdce7m2BZCqkbHLzAKt9idkE9gW2C04EX/b1gI/K135Ol0s kBBcHTq31QLLjPQndP0tcPtd4h77UAtYp0/37TtigQ4nz40XzljAT7S2qTpz Ye/nXHNrvgWUh5ktw+UW+NIR3Pq31gLP6gvfyLVZILN8qMPgvQWCr2t2c79a YHWae6/znAU0TqT275GkYuZg80CEKhUv9oh+SDakwud1a8AOJhVCyy/PUFdR cSXfL0bYjQquIl28w5uKzhj+1BuhVISMNS0NP0GFtNuF6/ZpVPQqKMZ7FlKR 35LiE/SYioNJUqtj26lYaZ9AOjdKhYyoqPg1Pkv0PTs6UqZoiYJY/ucNRpYI XX74ZjdhCevfvxLGNlhC9n5owJyvJfr3f18rE22Jm5R9ptqpligcaef+zLVE UQ53bfM9SxRvueqRW2eJEkVR//AOS9xqDgx3GrZE6YnWk/qzlrgDVvofMRru zl668VqVhnulQvdvGNNQ5u9Xf5hLQ7nuq/YN62io6KMNGW2lofJ85jRfEA0P HPmFO6JpqBL1VihKpkF13d+9xZdoOJRy7t+SQho63pB0b1fSQFOtOVzaQEPq VteuO+00TF0do977SIPTp7iksikaio1VPpfz0bFz/tcHezk6lFt7+9/q0PE8 r7orhEZHTPiVNhE7Oiwd4l5mutExrLWr0dyPjqxpm9qnEXQ4/2tQsymRDuGL Yg9GL9FR8c/ovehbdOy1fnFL/gkd4vucF2t005F38Y2v0RQdKxs319HEGXg7 06e9QpsB9UUGaT8YDBS12cqSVzOwPGdPgo87Ay/3HRfO9mdgO/KiuyIZmJSq m5VNYiCubzBkzWUG5AuFv8TdYiA3XM/nwWMGaKtt3n97zUAlt1JmYIABkM2J pi8M1OrkBt7/w8AaZZWsXHEmXoonNSYvYWLjnMBspD4T3ZOhBr6WTGwbHNu4 0YqJj51eR1c4MeHX1F5qupWJiUf271QCmNh/p0Z6UTgTWsZDY8nHmHhxVaJR LYWJcFXK9bwsJvTPuh6l3GCiVSzSq+oOE9Gx2cvtHjFhMlun9rqRiQ3hMi3F nUxE/t58PGGIidzIHI7Pdyae/x37ai3AwrfD9DwtGRbU+GI85paysDL2X5ke Yxb8BeTrylksnDuyJSLVjoUHQnnkfRtZ+HBsYnDdThYkRFiZRvtYoMbHOYlE s3DMRyGAP4WFjlV5J35fZYFEYuZM32UhUqyxeqKOhebPHt2fO1nQbByf/jDC QnBBtGz/HxaenZI17ZRiQ9k/Z9VrTTZ87Wm7mizYYC7TrqpZxwb/TRWbxgWf M2SbWxdMfSa6qW9BT2e+gaEF9ft/+HxdsOLHULigAxv2su2nlRbsM6q9RFrw vJG6y/CCDkYhwtcd2Vhk1Hh/txMb1SStAF1nNu6nrdM86MZGqXB4W/02NgpD 8uJVvNnIe/ea67+XjSuO81+rDrBh25SRuz6GjdFVdLeRU2wk17ZIxP6HDZpV 4CPlK2z0VIuGFBewEcPJ1be5x0aUdvmd4cdsRIg14nQzG2Ffe1+Y97BxsGPC vfUTGyHVAsMHv7PxzzXFA6r8HOw9bShQvZgD/xDOGS9VDnzdHdSFDTjYs8Ir /waVA1rm/B+WFQeC0xednjtx8NqBm7tlGwdXbnT/GA/kIEjgkH10JAe8LcqX ZRI4kCy7N5WdzkGP9AZb6g0O8n2n0p+VcRD2NHl8Yy0HtkvNV3xq5UAx9EVq 2HsOPrzyHxab5KDUSJybOc9BhrNqfZQMF0fCjFy2a3HR/bnG2tWcC4rHJsZa HhfxTeMkK3su3vKOqjM3c0EvUZU28+YiUfM2v+4BLj6m2H1XOcIFR7B/SDqF i7P793cJX+bC5ynXPecuFzw54R40ciHv9cKj/y0Xn0v+0xsxzcWjOU9PFQke Utfp95dp8uCX9WXrBjoPGC17O2nPgxI7evsZLx6M+raInDnEAxHDLk5K4WG9 zpKNSfk8+NRN/058zEOUb+vVxC4eZhm1B4LGePib+b6SMcPD/77O5fgv3uFQ gA== "], {Developer`PackedArrayForm, CompressedData[" 1:eJwl04W7DwYUBuDfvbq78+ru7u68urk6rxxT093GdBtjjDFtjDHdxhjTXWOM qb0e53ne8wd853whYeGhPYICgcDpT8tEIDLRiEkc4pOIpKQgNSFkIDPZyEke 8lOIopSgNOWoSBWqU4u61KcRTWlBa9rSgc50I5ze9GMAgxjKcEYxlglMZhoz mc1cFrCYZaxkNWtZz0Y2s5Ud7GYv+znIYY5xkjOc5yKXucp1bnGXBzzmGS94 xRve8ZFg2UYiKjGITTwSkoTkpCIt6clEVnKQm3wUpAjFKUVZKlCZatSkDvVo SBOa04ow2tOJrnw6eC/60p+BDGEYIxnDeCYxlRnMYg7zWcRSVrCKNaxjA5vY wnZ2sYd9HOAQRzkR9PnfznGBS1zhGje5w30e8ZTnvOQ1b/lAUHAgEJEoRCcW cUlAYpKRkjSkIyNZyE4u8lKAwhSjJGUoTyWqUoPahNKAxjSjJW1oR0e60J2e 9OELvmQwXzGC0YxjIlOYztd8wzwWsoTlfMt3fM8P/MhPbGMnP/MLv/IbRzjO Kc7yO3/wJ39xg9vc4yFP+Jt/+Jf/eB/8ufwRiEw0YhKH+CQiKSlITQgZyEw2 cpKH/BSiKCUoTTkqUoXq1KIu9WlEU1rQmrZ0oDPdCKc3/RjAIIYynFGMZQKT mcZMZjOXBSxmGStZzVrWs5HNbGUHu9nLfg5ymGOc5AznuchlrnKdW9zlAY95 xgte8YZ3fCQ4ov4TlRjEJh4JSUJyUpGW9GQiKznITT4KUoTilKIsFahMNWpS h3o0pAnNaUUY7elEV3rQi770ZyBDGMZIxjCeSUxlBrOYw3wWsZQVrGIN69jA JrawnV3sYR8HOMRRTnCac1zgEle4xk3ucJ9HPOU5L3nNWz4QFEn/iUJ0YhGX BCQmGSlJQzoykoXs5CIvBShMMUpShvJUoio1qE0oDWhMM1rShnZ0pAvd6cn/ fJbj0Q== "], CompressedData[" 1:eJxVl3k41N8b90chldKGsrdooZJISO5JiVIplZS1lDbyRUKSUpZSoQVZiohU IiUk3bZk3xLZ932YzZh95pnfcz3/POe/877O9bnO59zn3K/3e/U5d6sLYgQC 4T8Jwv8bFCD8f4OCf5S+zQiFZKhKyKuOFluLP8z+7xyDrdf0/E9Xvja3PFpM B5mn1v5vjhFX2txJIn19ULbd4o8eqBvm4yuao9socUGeSL8uHnGYtfwuDry+ by6a43m9mExHke7Ss+VC27EHaHPpnq+TSH+aKEzw5pPB0v9uHzvwJV5Z2Ct3 i0/G45eT6/ZwyJC7I/i3mGYKMt9oN57ikNHM6q9jOYMMJrMPIkxfZODDlapf WAwyKtW+ucMnk0FLVv7VA0EWytX//OdMIeM57Z2Oz/vI4Daw2veJyzd8paTp kNlPxtXnzH5L1ZLh25uw627VP9Bm9dyT9vVktFI422afQwbwYfzjPS/BWyfs khK+kTFy36hTzDMyFO27FbGptByP37hS+SyOjNbXDEcL3Mlw50/6yFHSb4z0 u/3ryk0y/vVtll2hRIbQtFO0cmEdRnheo6prk/FQLSn7Y+401MsIN/0Va8af fYmzqzqmcTNPIJFvNA3urzXF8jgt2L9ydMLkxjQqttFWeH6egvWfn9edHG/D eCXfE8GS0yi/UmeeyoopOKpC1X9e24H7liQ4vQ+fwoVNfd8kLpCgPNqZ7ZLS jSwpXq2d5BQuzd5j7pc6Cd0b7/Re0uvDDP/Cu+t9SPg9aaS1vnkC+nPkmdRn /dhlsaLtWs8kLgyOPDZMH4f1i10laoYGcP6hwadM40mcveqxSU5iHGotmymN W4bw0PeOgPToCeSYzj4vkxyDnF+k1zHXhlHH7PY6/+FxfPJSkX2CPQICloN0 TtoIarWn9R/WHEc/wyqeXvcwuAU+Ss/+O4o+pgeEHRfH8M1Ct8+dOUOww3Oo R5U7hs+nJy9g3CieetN39evEAJhoGp/gRk2gZ/q15hzHEczR3KWuO68f5nrf nNm/jIQK1/N++y8aRuLo7UPU5T2we/nZ0pM3p3CH7ty9g8mDuGTVmXsB4+2w bGipwbHKaaT01NC8FAYw4rVRVvXTv7DVPkpBT3TPCu5Y9sZd70MO5+503/Im UA1/0jYeQkHnsHmh8bbdOO2h0ao9UAk/lq6dciFQsZPvl+MW2o5XlkW75Twr ACnyENDvUHGftHPpyJ4WDM+eXR4QcgkWv10VEjNARY/015cqhbV4vcP3SPet fLSw2KQYvYaGpTZXFIvuFuNMlp6uobASlRb8EDM2pqG5boXif8mxaHDCU445 0IzLjq14uFiHhvbW6XK7z34DT/tUsumudnyS5K3cJ6Bi3xVLHx31apjru53T 49eLA+zmWzJJVJywKPQ/XtUCWz/bSDT9HkBZuldNuiwVMxQX+Q687IJDs/ti Xn0bxiupL1VDHSlITr6xdGbLAISusqktujuGZkcCrWm8aYytWJWXQx2GxLoX VXWrJ5EWckw7bIyEdekr23/cHYckt+UyfyKmcNfCG/0HQicw7olszvdKEiza sXT12V9k3O9i4OzdN4pZkVMbaV/IsFDgGe7YQ8EPmgmfS3lDaKWx94KFAhVK szz2BOVTseXBwdOEkX6sbLSUs1ejwc8VZHc5dxq2PVofQjzcjUc4Q1f7xmnw PGn+0UgCHW2dOuXuPG3F1+HrEjf50KH74wNe+1U6Xmowutzn1IC8o1/IE9V0 sHzvbHAkm45asiFdk9dL8C3vN7tknA7RUe/0/WroaLxJOornno7XNMolHHvp sFbzJeG9SJ9quHn0XEEaVFflbXTIp0NTatQK2c90HPxV0RGjUALylV7hRb50 eFuQdm3JLTo6sUKzw21rYfUKAlxcR4fbpxdqLd5Cx7UG9G7FL39g0UT/u7lI A33Dax9iymkYEzwZ1ryyHTzWSnW2WNBA3PTZ3AN7aVilxp5vadsDFtrHVOPr qBD/outiXQYVz27K2dVW2A8WfTfFgvZTYYnbxyb5UgqyVHkvVo4OwWPt4ugt Tyjg4DYv/78rZJy/ue743+lROMVPNK6IJoPi/V2VlfOn0DXOs1C5aQIqTpRr avGmoMS/wrb5wgQOFrw61BY+BVeKOs6tPUACyXx1H8egUXxasTZi52IKOM+c 7pD3mYD6abNdYc5DqJc6TqgGKoiVGZ+ouTUGlR7ez3BRP2p6vP4RYEODtomB 8tojI5AjIDxoX9iJ04neH+NO0uGNSZn6tr5B2H0/MWRJyh8crz0eWKUzA//e v+wJWNsPy0rS+kY6fuMR887FK8gzoBQSOVwn3wWNdQcTzH5noYeANMgIYsDK Bsy5q/wXjOTtX4R8yIbfO4Ik7kww4OeWRWvZz6uBs2bJ9tx/lSD7jmTxVG0W 9FoZTjqeOfBS0+PqvPwWKJIV99UQ6RLrazQdbn9BLfvv0dvvd8Lp5uD35XQG 6F6I2TLgUo1G86U01FT6YUJvTfWZRAYE3A13Ig79RbXl/RcCLw+BMoms5a3I AOutR/lKDT04l29xzTNxFEo2tinZus3Avsf8pO6hQYz+l7Z405cJcLGTEmx/ RofGFavvqluNIb1xMmUyZQroti3u8k9osHnxt1ypaBJuyztckKRLgdp6bTkV JyoUaE5lvrGg4DB9h1v4bSroXNtueUSaAjuO213dpkrDryfuXqJ8pIHsvFX2 MlumYOTJGbPXhXR8JJx6a19Eh7bTW2a+SE5Aag6W6K9iYNvA54PFmTNA33dr b2rWCFSP+Fcv0ZnF768tlFxvMeCwRlfR3e2D0PzALUpvHhNp1itvqGychRKP kzUE3V4oMo5/lBzNxE8vb3byskTny6sUp/e1QXvxLtWBISa+6i1OiFjOBGpQ xWulwEboqqu/l8pkIvXC4MECKyYssbbUvQulsCZE7c7KViYeDZ7X+8GNCfuH GlyMlBLhRkp1xdEwJq4OEoZ2nWfC6tiPQvGbubiN1nvyvRwTvcxNxJn6TJj1 3VgbWl+JW38E5Jo9mEWDGbtjTROz4JasGLZuzx80d2gdSRtl4N/ef8ec/GdB x2qpLHmkHV9b26qe0GcgrWd/b+YkA7SGvy1P1ejDTsOw73l3ZrDMccGLRiMG mN96q73BdBAPy949zy2n40zPqYBh9xnoZfzbHW8yguf7XU+JSdHxT+e5TwtD 6KCndM+SvkbEv9qv5y9Z0PBpo1bz2Ts0uPlwIxwcmUTv7UtVYyOo+OnFBlM1 IyqsHKOt0+6cxp7Sdz4BRRQM9vlxfkm2qF8+HLBp/yvybcyLmuFNZJxrn5lj /4EEVidLbYI0aTjYRMq5rzCN+u1bjN3cxiH4g+TjUjc61pRmmpYcJOEfxXPE L+xhGDs4dzMxfgbdpl3fZ56YwOBGxTVTxwcgJX2hEyGHgd9IG1JKN45h6TP7 pgBCN5w9+3blyaxZHPigd1VDxImf2g3b0iT/QulJGfM/EUwkCR3CUicH8Gt3 /OGpB1VgRnr59IQlC6/22hRd8+jFWwYM1deEVAhXPK2bMJeNF83rEtX9W7Gy j3vTR6IY1RYFpNn5sHH2ZvhzeblKrHfNz9Q3a8ThtXMazr9i45KOV7RItXRM Xe0hdi3yH9pamv6of8ZGi40H1C75/ACVgWvGDS59uGIoJM/jOBtLl+rl3+hu gvsWpp2Xbgyh75vGsLF2FmqeWd52aXM3BFfHV0W6jWG3d9mm8XUsvDznhTT9 whDo2WWHR5mQcNe7xqZnOkxcfOSgZObOCQjaHD+TM0nGaesTClmSszj2t6go TOQvl0/b/CjOoqL0okDb30kzuDPiWNK6OBrcWbHAt0DEI/mRZ6VG1nRcfLps XC9mBhI4xuxuwxlcH+r/5d8kFWtHvPdsdJoFz1QWR8eOgbIZvcNHL1AQGt9s 6iMxIaDNqWGu8yw2V2wLSX48hTfODOdE7mQD5fG9lp7DTGzaPpyatGkCtazU nzGMODDe2iadoshCjUU/opvSRzCM7OR2lseB78cTRvxrWBijtyLt+NJBdCfF xcf5cOFN4gfzPjs2gknEWFV3D85wrDdF5HCBE79nz5MGNr7hKcnsiWpDCi9y dkKkL/nz7tf9tRzc4iSlGmPRiMsHMqQSA7kQY1ojzbPh4BViQWvt9lIst99d YKPGBVe2zOxGDw4W3UkRJ2s8w3TXlN9fwzkQntyoE3Weg3anPuJq6e8w3GXF VP7LhmJP0sttuhxMDjLMfiqogUUjt2trJdmwYDhLsLafjY89j5K8jf6Cclqj UfMmFmxn/fqS4MrG0/NXuVzc2QUmHX6mraZM2HivkPS3jYXrC810A336Qdnw 1nmW6Jx1C8v2SYvqHW3vrtT2eQhi9zgvqw5kAP8W/aKPFRNP8o6E3a8ZBY3z bka2b2dgS11Bs+n5WdzCfkd992sCYg8WOxz7Q4cCr+3jShIMNKrM0OnxnQbu hsbNzfU02NFL1Cv1o2PW3okfuXwKrDcpfVbaSoXrSdoPAsqpmLlxCysxnQY7 i/JC6ocpUG6tvXRRg4jL70/v8DWcgfZHSZsKR8lAjHhkrVU9idNh19Zk5TKg 58XzokzSFHwtn1FaHDiKRzHk42N5JuwSX7+9uXgSBN9uEapoA6iSR2FK27Pg i1IjsXO/yK8PaWxzt+7C2Nkh80932RA7oLlEynEE8rMDnS46NKP5v7HGi4Ec CDjs9Z/0+ACc72/xeapYjDHbaPs+HeFC2MqjZuWPu+GiRW5gFqSCRBxLK32E C4x+h8sGJX+AnXbRPCamGvxGmrsjdvNAs+9I/fXUYnhLN33cteYf+PeThE4H eFCrPlNdNJKD69TufD7G6AXJ/eTt35V54PCwldWlXo8L855kRXcMwh42j/O9 lAuJXfuMLKU7kGC7cfrm+1FQ54qn8ndw4Xt62DmFHwPI7Bsbt3KehHNb52aI 3eDAv1tZcyKfjOH0wuoLbP40/KyX6rYNYoMYrK6bazeNesGlDekGVOjsc93c bssCyUWluWwhFbfHSLB1e2iQ+lDySoQ4E9JSJtKj3s+gmu2TLIfLM5DFaX3x T3Q/tjgHSi5XYiLjJNtV/R8D6KzyVzub6TCvanfx9D42jk05ZAxsYEKr1PUN G8Vo8KpOLP3PSi5uOig/ecqaBYFlhwK7l1GgLMDUyjeCh7k06an8s2zIL+gb nVIkQTrBQyj2lo/nVazsss05cGQ90fksbRSamykGYmcEuDRulbbjAi6EmF7O 3vZtEB6cuftX+osAZWRuKZ1K40Kdmfl/W0Z74NZt5YQl+QJ8uMZhIFKJB0Y/ Ni9YfLUVrma3Jbt6CbDB3sv/wVke3E47JJUv2wDzPVbQH0kLcEt3QWnOYx4E 3P71RudRCUxoZh2UucfHhTf+qwtI5oF3Ro/eiEoyeHMfsBq6eZgXOv+tZyIP +n9+/KB/+jOSFTkPL6zl4f728L8aQTyQ9yOOxJr/wuRNJx6QT3NxWueX86Gj PCjXWp9tXdaIPILmXHoIB9O93I2DpXhgefNRafPnVkxkHduwL4uNWa98TUI/ cGEun7JRw70LLfUjmZxWFqoPnd37fQ0XhsS+RcoH9uPqstReiw4R979I8fRv c+CsuHfU0rdD6B36FXKHZ9EvmrJNFdkwf8G7E43vRzHNQDV5DY+Bb54+4viP sAD0ezdRRLnSzuaw315VBhZSXtdaMpiw6aHRjI6dKFfvnTV7bzmDrv2BVeGk WbBw2Xs5W4KC+dN3XCce0ZFw+vHuZXUMUL8YXfXkKBVP+v8LyPlLw4xhgnq+ qN9PSuZ+uRJBw8dFo3MGNtCQY5ebEz1Ig4/NnIaFqjPo41qDs4epyD+CGxQX UeGDAz3oUzwDS7helxk3KHjmmhNtUHMa6nUcnddLMDF8WcS9GG0yMuVYeh+F 46BvtYNw9Iyon6UG/7S0nMKohXf6j74chmXiukGTsWxMIf/eb715EiO+5Yet 4PfBg4nLpgFFHPyP3ekc/GEMF1km3Rlz/Aeh7Zm/9cu4aJcW/t7/0zAGhSe7 POmthVhlTS9eCg8zvO3srssPYG5e5WnDvmwQyv5872LDxxMeCf91xXRikCF7 y7d/+SjTk+m26B8fi/JK+g7814RdI9enSyoacazlr3j/KgFKOWYxL778hgu2 a/7eb96ORwa/P2xWFODqofAA9aYvMJTpx8rq70P7Oifnr5N8bLfIuyoR0Ajj smELM1cM46KU1zrvgvmYnTcWt66mCxwjXYV7d4yj14/9/z6N8FA6jlR1uHkI FrXeVt2/awpnc9haM9I8fPfxana54yRgLTZviaBgRZd/igyLI9qfaqYLlQLx kj1GyldpeGzp9qPaGWy0z/gv7IjcDHytfFX935YZvNf7w0V3LQuf/b58bt48 JrATCGevNDNw/ti0ztMrs2jfucUtMZMNngU/j2+SYeJ0+4sry4dn8LRJicrV CC54XbOuG9dl4f79hsk8UzpSPT46NW3mQ4r+Gr6VCRsPeatvdoyi4rJvVqov 7gjgerON/QE9DtonPngjHUNG1bq59gvDhPA5x59OkeHiSIvJ7BvqJD586Kv4 aDWBmOC22yWznouD/12qU901hqFXS4/OOUMgbvu9QVnNk4f1SdnW6D+EtRRy dKy7aH1n8qt1HFEf+qtDXVvYh8d/SCjYXCAQJzTHQ2pc+Lh9DtHUmtCB8fxF K8eNCcTZcrfrJ/L56H1XQzEpuRnTExY+P0UgEL+dKDm8gczH76qj6a6VFfjz kZD4zVYIh8WDdtctFGAiNVSNSvyMzXcDvQ/GCODfHee88cUCXKIo7+iQlAor C51//VfIh9jNUK3D5iNFrS3eLKwUxl06yqMaePD41R+VvFI+fsqRPH32YyNI 0X2DSnO5cNvwUWeFGx/DbdLp8tVt8Knk1/Y1sRywpXSZJHB5uM/i6FPDxB6Y z7k38T6ADaq17nvd3HjYd4x5O/PZACzY96G79CoLej89DXEp56I2c+2p5Nxh aFhXbXDchQlKifKr08W4aLGY/ujAtzEoJZarj7vPwpZkqdLd6zl4/8XmD3kx k6DuMkTpeMAAoznKOzfosFH/wdoSebtpuDsgzXb9OgPZt3V0snlM/Hn5fqZ6 PgXWGN3R+t5IB6vzz2TH3s2i3gOvyk/aNHj5PpMhRaCD9O8QwVwDBl64uyJ4 Np4O1fcs5WONaZDhsTttzSc6lpPlbJnMGdAu6lx7PZQK3q/tPxyfT0OVjRuu E/fPQmXn0PfwFgpornELTxLlwikh2bMvhAmm3x1W/lChQNFDZcetJBJO+y2R OVbAgqVqF5bmFU7D5w63RRUaYyihmGa1WJkDWcYPvVLTSTCovG5sm84QJuT4 aZioi869eNqNWDgB/gbrBj7L9uF8lROP0lbxwDda0Wy9KO9b8wz/Mt+3oWlK LLt8lgfFtk9TKv4Og2XiA/XJa434tntXw82XfHgbf/pp4v5B8NJKvhStUIq5 rHnW99cLoDq2tfOgTR9IJkQZbCiKRedGH8O6OAFIdJ+3ERPvgMrPxpZju/Kh rarPW5wuAKbFqrkpN5tB+dl4+i2fGmBMxNnkaAphhtWeulqpHEx84lbt8fwL S44+uXxyjxDUZMUXsQhhEOBv2O+2qRs8PQqrg7cJ4ciCLkWJylLcGzksk311 ALJ2xOxUmRUA+YPZ6jSzFuxU8I/9oT8Cqzo+1V+KEMBO1TaFvspeDGpyLifO jsOg4B/3EIcP9KILfSu7hzHbWFrGnkqCOTrOhEl7PvRJW6Xp109gLtGQpdlJ hg8/iyBPxNWlf0hJPcVk5F+4721sQ4VgL+KHgV8iP+0up3TkGA2pxI9rZfNo 4DBnr4J8DQcuGbjv3JI9g/P+nfnzVGoGgn6LmfrlsCHycHPvQ/osmnXPSptY MKDxelTl2wAWuN9M+nBsGRtbxV5MlgfMAvnm9N6MrUy4dnbawUCci0HmZxRU qplgpfyRY/aEARGXP9ZYzeHj4Q1rK27zWTD15jo8EPmcm55PFbxyBPhOV9fd aZgNq5tNXa9Yi3KO8bb1lL9CNCizFI5950C1Rgy3uY4CXxJHqyYcCcWCeSti owK4EJevzBHzmYZnK+lN/DxCsbp62ouZzTwQ6J6Isdk3Cd/Lz7pW0AnFbyBm tLaSB6NnibbTUmMg/DoZ5LlCrHiVh2XuzFE+VE4yv5VUDcHsveuNOYpixaFD TDfnX3wYsMOw6+H9UP2rwj55oVjxEqazg6boPmnOnDzvndoF63O5RmkjhOLy xYZTN7xEdVXpLIvf2wr3n2TvtMsiFN/871xCcKYAqtQ8S18yGuDFmsaJG5cI xcNFOsOb2gWwuPJx87dPJRC0NCX3pCSheJHe/uO8SQFwakiX7q95BZ3dVe8n twjx3OCdmXcjApCLYLlbBH7B10Vs75NGAtQ8Gec3USUAgYzhyf9aK7DjXByj w5iPv33c2u5HC2DZXWNDhZ9NOF/2dXvcLh4S3yx/SDwsgJxAubCatjZ8efVr TeNOLipscA0dmeaDlXom+0N+N557eXdv804O8oZ3Dxrd4sNTLwsnbnY/tuNI 2Qpg4984DzVx0Ts8tS1Eu+rKEPLztFINj7LQWSdBnWHHA5/DOlK0BaNYuXdb x1o3Jlp+lM28HM+FfwuCehX6x3HirZdDaMAshhfabewv48C51xezv8aR0FN1 Unvuawa6/PBeuaONDTuqXyl2G5DxCl3aKKhpBl9TZ1y3trLgfYph1LE+Cqp8 8TLVXjGDJi7eR0NKmBDmwI3yXUnDfoKvTPQFOmp498aOvpwFq9bibKP9dNzx t9YkuYyGl3bVV1EcGRB7OG6H1ZUZ3LTY0KlQk4beLS+79ryhQ5qN7qqd/Qx8 WOOnlXyVinoLUhvsKqjw9l9A2T1zJpoIrn7emUXBQC2j5OXxZLhsGgoqSaJ8 vGPZzT//yOjWYpSr7zkJ26TqZeePstH8oVfuVa1pjBH/sH+x7Ch0xUVt3q/I xUXHHux8Yk5C3JvybihkAB5P+3b9MOBhCOfi9BmpCdy/hBp7JKYTcL9J+npR XbMp/e7Pjo1iYHvbQ5XGJjAoWfh23loB3o7xeTBn3hAO5F1clLkYYWeH2MGC fgEq39sx8HxRHyaFeX7oE0vFStJXrQhPIX4eamhzetWKjp1cS2itwrKOFdeU 64R4ysNeq4lVgcEKbZXZl9sw2dVQIW1MiJHBWXcO/n0OQ9yfo/U1vRjW71uQ UiPS+W8IOfurwH9y9dopmSFcULk0STpAiLJ6p4Kr/v6Dm99teBqbx3CQpzma xBZgyirydsOOAXj9Kod2T4eEj6VyHkqDADuv5FY1BI5Dv70SWspQUL1Ba676 IT4qiS+Xf6RAAanjq+QX0Kn4SstOWWE1D+e3vGu3vUiHkO/+ny1K6BiZKsN7 hhz8So7c/iRiFiaP+xTH3GAg4ZTknAINNkrb3i34fYsN790NonJEPmpgzsDK VReZqK5UgF8VeBAs2TmZ94CFideGKm/fZGBej9vtIBsBvN6bH7NlgI3HJyzI GVfpGHchsXKuLIGoxH5SukSei5U6hSmcPVTUn9Ho21VOIBrLsYO61/PQbO/j 45sWTKOv82CfuYEY0Z3iuC9yCR93Bzzyk/IbR7WsHQfUb4gRA+ae9kn+I/rP 7KID/3qGMPPyERvJQDHi/NOGQ+dtBPh4qeRb3UX9OLnNtlfCWYx4qctWIbRU gG4NqhKpDzqwr+Tsl/WaYsRAZfIG+2VCrA79lfNG7g9e0wq9XdRJIG4P0tzq ZC6qU1TPb+8Xv/F7Q7isnh+BuJe0I379BSG+3O975ExuDgYH7LYdmkcgLqqy ibS/LMSDZ7sZFb3J0Lw5cuKHvBAUKwRJpSeF2PMpzyqnowSMUgvJJUsFEKdR oqiiKUQnhwNrmJX1kHNGfpmfOB82XjwsvqtVgLsm1OhLtrZBW6E0tmRzwWL2 +fpJRwGaDXnfkYvvAdY6qeM1zhx423avEqv4qOideWtr2wDw1o9OHljHhj7a 7qWGsnysb7XDjXojYMHav2cDkwmF0eaav/bycK0E+bSB2zhU1ZF+OfTOglfM qrc51qJ3tVvH62ogCSJi2/stexjQO1pYqm/JwcMtBin97mTwZSnJc+gzICWz 1c9zKxt3zSz40KJGBcr07nvaqjPg0j2/xYnBRLGfW+2q/WngGX3PtsqeDstk nZ5Opc6ibtXJHulqOsTppX748pEG1Jt2LdO7GeippescJ80Ay96+TjkpGqhe HpSq0KKjmnP9wuVfZ8H+zr+O1O1UuJx570YFh4IDzR8d0sxY8KanyXzYngIZ kout0vdMYcXc2JepFWxQfoidbbRpuD3/k+mE2Ri+P+K47NtWLpgd1rjRPESC gorfjEdRg7gsQKD8VdR3K9QaFpV/mICfTRn1J5x7sU/18M/HBny44i590+/p GOx3Jqt+vdKGU4qd1TVzBHBISttNRnEESllnPg8G1GPAy4QW/lcBmP4QDF7b MQgLUnbPUYovxI2btkZvPSSE+H2sX7y3vTDedKpM0/ElPK3PfcMoE4LD0g79 pIY2sFOxtLKwK4dS+V6l6oUEYlmk/JP52XVgXKS34lpbM+ic8wKZ/+UK1QMJ o+M50KHQpC4b0gmJu3aU2agSiM+V2+9UCgrQSyqB/lhuADJOujw/I04giosH 5+X9aMZlP3ar2TwZhlWT374dzxVCyKn1ZhF7ujEniX92IXcMNlWed3lsJNrn mnkHs1YN4bwcWd37NiRYcsjDZlOiAIiWg2vccsfRL/gV6f4bMlzsSGgMauXD 5835Plr2ZDxDjvF2vkKFbnfv3wljPKBt1urt86ehr3tzUwiDBhs0tkprtXBF 3L/GPrCDgZXbr1gl/jcDxglp0R/iOCD74omDbx0TO87X9mS3M0DrHV9yl7GI Y+NNz9+KeLqKJ642LfJJjYwymWwRr8QfPt6975Kon4Vl6GVeYwFrJvmA58ZZ eDRrFPP8pABPajNW+MWwwSLx7JezN2bAJ5Tmo8gSIsW6a63sOw4w570r+5pF g0fxep2+bwnF1u8aayV9uPCgO3bUTIMKs1Hc90PLxIpB1urWDl0e9DsnLLmv T4YVugeqDc6LFQv+Tdw61MuD0x/ndRxYQoKeXZ0aa+PEioNZxOjlvnz4rrji UkHfGMiUsea35IoVZxP2NbkJ+HBB2zL/0qdheLnr1ig9X6zY09eu+JSnACb2 CpJiAwbguoz/59C3YsXrVnVeHP4jAP3ZZJNDqT3Qp98W1R4gViz74eIOCW0h fK1Q95ZWbYOlPXWLxvTEiq1nr/+1vC6EqsUf1r+42QCUDm7I9w5CsZTAUcny lRBOSUmbhS0ugQWskq0FboTiCwfEN6RlCeFgRcblSztiQWowpN5IxCuzq+6S CzOE8LT5oWvMhlxc0cPZnDkowENZcT3EcCE8MVDRnPr+G/XZ1x3+tPBRw1wt ftkpIXzoLfJt3NGMp7dcPthZwsMjhDlHjiwSwrWPbumpVv9QLsRQQiybi+6a RXtKPgngQuSW2x91e3B8/Y6tUSkcNCGH/tQ1EoBkusShwul+LGo7cIb2mo2l rzv9r37jQ1xrwYH49CGclVB/+TWdhZvm1eWoqvCh7Svx6KH9o7je7/G91B9M HJqVLBO7zgNpeY3sQ7XjmKynV9DbO4sMV/nfoyLfW/j9wdl+soifA3F9yW0M vFa73FHflQMzn1Ovy1PImMQ6+HDR2Aw+6vq2dg2RDVmH7/tvuERFL/Xdrp9k ZvCNfM3tbxwmmEtJDzZU0bA50LWIayHiW6RmBylhFl5LJWacUZnBhlC1Zf4v aXhh6Uux9A0MsHJ+vrPNhYExty+qtf2Px5+KXn4T5ckvsqq/hCmz2HEkyZZ0 koqZJ10SBtlU8L08R06zlYnT939try+goLlvbzPdhAL5yUVXjfks7JK7GFa5 koIXo61jXcgkyPGNiHy9koOvtx98VdY6jfX1Msb9pqOgNXDpyuQ7LsaOHWxT uEXCGxdcvzftHYWNino6XhlcHGhT37jVn4T1wx82l+4ZhZBPcUyOSLd/5Xd1 z00SUlPqn+fAKFQSo/OC3nNRnhsff8KPhISZFtqb3aPgdGOj14IPXCxSeZh/ 0ZeEazRw/7Ndo/CFflTjqUinG+wpvekj+s4Cuw6vnaNQFlIXkfyRiw5ze5KT vEn4RT3c9ITOKCR1vh7MzuTiz/O3dSu8SGinZBmmqzUK9ct/qRd/Eu1HQvrm pAcJf33e5DMtMQqfx+JJJwq4ePfW9ghLRxL6pkSlx3aNQI/wDA6UcfHUmgMb XxwioZRN31qdLyNgcj/l6eV6Li6lak8VGpCw+0L4bNGDEVhze/zM+D8uxv38 GFy2noRKMuestchDUJr39HqUMQ+9JpIXJ16YRIfvh82HjwxCR8d/cxyTefhH Ti3wQMwEKp91F1uY0Q9GRszzqmJ8DM8tjfP/Po7eD4a8E7m9kPh00jjeXqS/ beodqhtD9/yj7LK4LhDo11+O/sbHqqCEiZ2No1jmSVVZktYGcjdndr7cJsCc j0kKjsQR3POoK74/sRkKc2Ynx5IF+MrkQOaBkCGcM9Em7zuvBhp7Dp1ImC/E VUsfyp1/NYCu/n/EonOKYVguSjbfRYi6PgudrgT3ITDvntw4NwM+HwhK3JYv xMKdd1Yu9OjCVXtXfHmyIRnNMt7mkXhCLJ6pNGsTcc5uQ/r6u+xiXHqFaHxG hVBccsnM73B7Iyp738he8bMOWwyDNznoEIp/RNU+mTpUhiYFi2yOmf1Fr+I3 UveNCMVqIRv1bCARt0sq237N7sT5uw72/tEXrXf1mCfm9B3ysyRPshf0I++l rZfzBkLx9DrbGvN1DcBddieiQH8I48bcnzvMIxT7fXx1oX5+O1hKD+5LdxhF 4VwnT9VsIYY/AwO36/2w4Plx/OQ3gSdYJspN2kIkbOxWmxTVVXZ4ZX5qyBSK hy6at+KZANNSBk4Z507CRG+39sY9FNxvlPIqWuQfywY1yWqeFGjnXFd3J1FR ycvr/Y16HupOaF04d54O1967R6aG0jF+j2aU3Gsu1scWCn2NZsHS6TrdbQkD n3D8C8+bcdAwpD+PPMGClbou8Oz+LFbNGfuuUc3CJ31OCw+e5UL96zXVCwaY OMfh6Qa2hshHx+22bn7KB8EDw+q5G9gIcq53pK6J8lvdu6MW3kIYVd9SM32M g0e912kvjaXjy5aa5II7BOIrxtaP985ysVPBAJU/UXH89ebytFViRPt3SVPl J3joyqEvy71CxnfdD8lywWLEP3VKewmafKyINNWtE93jg6Gcg/vKxYgll+5F 1Q7ysZtmZ33s1CgeqPJzrWwXIyoE/XwnESjKRXfd3540H8RXfxrunK4SI+7Y orKhgifAgN6KMvbdHnzy6cm5gBgx4jyFDHEneyGmPFI7kBrZiqXi5i6GB8SI eO/9socZQpyav+TViGoN2l7apN/XRCDKhLd+3dMoxB+Pn3zJsvqCds8bxTz2 EoibjA6EdrUI0fjXc8mK3cnwbfndNXvvCeFS1Z3DN0uEaGp1sbD4TwkMjLnW rBHx8lbUsfCJaCFmVv/avbO3HhJW1622OsOHP6t+jolZC/HNy2XflPL/Qmz3 +aKMPTxoof4ofyEU4EVKS1txWSeYxwi2SGzhQqVKfoDvcwFa7yV8IFX1wVXb juIDahywnT/tf0NWgE69OrjrxSAsbRkdvq7Chsz5KmPH7/Hx2IsHBBXTEdh9 dr9H1iYWeDX0SdT08HDXFSdv2c4xiAk8qu68lwkSVqkNJ4q4WCXGcPn0kQTd 7RvCKTwG5Cjcqs3z4ojyXZuymjoFpHOc7TkdM6BNin4uIc7GMCuxhoEuKrRG yDLJHXRg/by5ddl/TFwfvvTQoTt0iHgWlijOokF36mz5rQIG7n40WPxoKQM8 +n+fCNKkwfxkg97CfjqGnVK9uO3pLJxzlOOyXKng+Ol0+eYJKhKWk7dy57Ag YdnXVVY5FJCoHf5t8Y6MCeM9J385s0H7xYvB971kUIkI9lxpMon6+ib7bL5w 4Ehw1lfbbdOg3BoT6aA6gvJ2/I3VS3jgXvQ64wd3Eva9fyZRVdSHZWc7HFuO 8mF+++53y03GwTTnoay4WSvSGXuz1rsKoGnJ7RdH/w6DLc1FVeHsLxy83ZR5 6LQQstfZbm8L6wc8F3mjcf8zmKikjLlJEoh72ozurnH7B/MetTxscf8FTA7F IkmXQPwi7XH6KrMWxvdnXOPbNUD4luyLAyYEYm+eYrXPoxIYPudTfepdC0xu jj4zfYBAXH0hmBVx7y38H6yF3+0= "]}, {Automatic}], Editable->False, SelectWithContents->True, Selectable->False]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.6841988058189497`*^9, 3.684198835375751*^9}, 3.6841993724835987`*^9, 3.684202204245373*^9, 3.684202249256373*^9, 3.7159439205474586`*^9, 3.7263403907096786`*^9},ExpressionUUID->"5352ae7a-4917-4d65-87e9-\ 91954bf8602d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"y", "[", "t", "]"}], "/.", "soln"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "30"}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]], "Input", CellChangeTimes->{{3.684198881132791*^9, 3.684198961991517*^9}, 3.684199379842098*^9, 3.684202280541032*^9, 3.7263404086725807`*^9},ExpressionUUID->"7101710c-5af0-4e75-bde2-\ a5c623e53d3e"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwUV3k8lN8blZ2QfSf7vg7DWHIfWhRFKYmytEpKiiR8S6IkRAtSoWQJFSol 6maphCRLyJot+zYYwyy/+b3/zOd85t7znOe8z+e+9ygfOetynJ2Nje0KJxvb /3+X+77Xqt16ZqNMZbKeWdSWIX3JtjMKDcQv6uWxMEj8PCLdeQfFdlX3PmLM IsluET7hLY8Q//0kgb+0WRSyu6CDo/MpUlBVqAlanUWHXzcUMBPykI2/m5Ar ZRbtlJz+b21zEWo9x82MJs+iR9Y38tciilG34+BzjtlZJDIjdYfaUYrOKSdq /BqfRdcz88MphLfo52PB5OmhWUTbbXF8KeEd+pF/m9e9dxadZ693Io+Vo69a wy/Ffs+isdcepPnNleiyC3ehQtMs8jo+qTyb8QmVTlZrXPwyi06t/xSzHPEZ fdsv76RUOYv6K53OLnZUI/8SvaNH8mZRuoTUsSCuWtRa5Pdh7eEs2hfQf2CB 8AWB+pOkkduzqH5joN1cwjf0kej/qvDCLIoJJZmfrahDD+IfhsX6svz5xaY3 M/YdeU5IfC87MIvKopIlpjY3olv3JiT4LGZRYLc7v/+5H0jS+Pkrfa1ZpGuq whzPaELy1IV1OZKzqPm8+yI5ohk5On7dmDA/g7apTfTOd7Qg6JBT3ZU5g57t djpQEtCK4nOvbxG5OYPW/VfaEsjVhjLi7/Pqnp9Ble1h32YJ7SjW5bLyYbsZ ZHxjfcl0Qge6zcb1bOjPNEp8fVb3hVonKiewD/jgaTTV35pzuqITpdmO7zDP nka5pEfpk2Nd6OjlyvvzJ6eR/IRe9PjmHhR1p0e1YGoKhUkmM/L/9CA2n7kG RsMU6rBbCj15rhc5Fa6rKC6YQncefjzzL6MPdV5CzwxOTKFojbzChYgBdDlr 6r+n7ZOI2mF+f65jEF0eqX85mzKB3hN4ffK0h9DPpphzNScnUEhCp45X+BBS uzfgP2QxgRbsLn1uUBxGk/e+nV//ZxxNvPgwmXt8BPUVMRzFRcdRz7VNdp7k f4jGM+TXfvgfSu8TFBTfOoZ+Vo5Edmr9Qwcs+jrqU8ZQ7q2ybLPZUdQ+c/kM yXIcyVzrluMNG0VN7p/TxK5OoE/C87/kY0fQZ8PNs9+FptGbSE8i4/oQuhwn 9iHSZxrlzLX6Gm8ZQtYjQ9HmpdNISslB+RfbECpPj5bNcZ1BgxHJMx6hg6iU 6+vWyEezKMPehfeDz1/UckbNSU5iHiksjiZdM+xDNZvznv16SkbSlykuynva kFHiq3FKHRnFeq5mfi1rRRmd7wwUZ8lIvGhSrFyuFYWeqXt/ymoR2VTQ3JKG fiGD1PFGjrZFJP5i+WjR7yaUPqG7RORaRv2N2g/iK2pRYHLx1nTfFQS15Rvz aAexfH/56BE9OvoeX0t/U9WO2cjn0r7voSOm2bc+Of/feJhbx8HoIh31tPS/ 2iXegV8YpL+gV9HRrs8JTLYTndjmclhwmhsD+b9tDNfn7sbeClbsTVFMBKEx syOyA/iXfl/ioyk2MK84YJskM4JrzT/8c2ayQdSyQFHpiRFcZpsCHKLr4I+o NW/w6xGc7uq04Ge+Dgw3v2+rdxzFR/775GoetQ42b/o9euviP7zQmCHfIsUO +CizN6J8HIuf9i7g2cwBxxVrx751TmMdnuyvu904IF1U2XBIdgbD09HBB/4c EHEmqRwOzeDTnWfk9O5xwJ6arWPlPTO4dktE/O4RDkj00Ujxa5vFf/px/gMq B+RlMDr0eefwXBjHl0FBTvjHvvIZq89h+ZI4erAZJ3Q43tpf4D2HgxUeBDy4 wQnsxW+6I5vmcNz7nrjBh5xwP7FzSWN8DmftVcrTLeaEPQ90arw45nHjzbz+ j52cQBaR3xRpNo/Vlt/uHtTmAquNohoXUuexZTL1tK4NF/ge8Ta6+3Ie79bb dDPYhQuyOu+vWH+ZxxFHaqu4w7mg9XKJhvH8PG5taiHoNnLB+sS9DXGbF/CY n6Rz8AAXNN2SDl7av4AZnB7+Hxe5QOKTlto/vwWsY/U321mBG0TOGGV4Ji5g +K32Oc2YGwY8k0P+Zi7g/edO9vzdyg2uH8jnJ4oXcFTerHhwADecFHXRifu1 gNPsTIw/RnFDb8J3WaW/C/hlb8gu7lRu2GZlnm4xt4D/iDFi0jA3vN5zYXRJ gIwJkQKUSmEeyEuPVbkFZLxdbrcYtzoPyKlK/TbdScZeZXcNnS14wOdPSau3 GxnHTcme/HuYBw7ntf8lnSbjrBte0TohPDDlQksdvUDGZSpPs4LieEAsFg2J XyHjwQPaXVyv/79/5PXCbTJeIZ9ecvrGA69qCeueppKx0O1ikbRuHjBnuAf9 yiBjNZ1F/b+zPHBtOXslMoeMLb+YO+hw8sLWvyeuFReS8W6f8BNB0rzw+tMa n08JGZ9Y+xRVqccLxofzrt8uI+OIFPZMLlteuCcbQbGpIOM7xtsqnFx5obn+ kFcAJmPDbnf7TSd5wfXy3rrBajJujD7TqhvOC+6uqeX/vpCxn8FVb9lEXkh4 f8j6vzoy5u68N8n7hBdiS2M8s+vJOPtq/kXKa144VXBPz6ORjEG3kmP0Ky94 7SqsePKDjPvaft5u6+KFusD/NoY1kXH45SG5mileUFe1PjvEwtJalLwSJkuf UnxtLwuX/eI3zRLlA8/SCCs/Ft4brvg5UZ0PAhIvL8Sw+ObUCDv/I/HBQJkH vymrXkLT1k5/Rz5oVtDKDWLp0Ql1P+bhxQeth00nt7D0flM+M7f9HB9IHFxj y2f1c6whMsI8mg9e7lEReczqd92Fe7waqXyQc/uUvRrLjwzF/HviBXxQ2JD9 axPLL6u6CiWOj3zw825G/zjLz85zP4vmf/IBeq+YrVVKxhfkhkgDg3yQ0dPk vFpExqJflmublvjg4QNrOe88Mt4lrdhbKMcP1g8KpwfTyXiiytgv3YAfOh9/ Pcl+j4xj/bcuxdryw/u2jxNv48m4+tNpwRO+/LBdko/RFUHG3icjH+wL4wd1 h1phx2AyponcU9+cwA/S+SL6e/zJ2Ox4xSal1/zA+Yx8X+EAGbcK/fwu9JUf Jn8vnB3eRcaB7wdd6Z384Bi+OcB2MxkXrOcP+MPgh1MNn9ZhPTK2f6uwWiey HozPihoOKJHxsJfx9Xdq6+F89lpxmjgZbyw9kHHPYT1oFZ6ca15dwJUHT+tc 81wPk2eqnPdML2APrsiyc4HroWHTdvtT/Qv43oG8JqeU9cCTlerkW72AeZlL DN7B9VB4d0Et9doCzsnnu0VZXA+GNl3PRs4vYDsXBalRHgFQ37xw4efhBRyR s8WwRl8AuPpTL4XYLOA5x7ve/10SAO+UMVN58jzuSjP6PC8sCOECNkdlHeZx emvhhhB1Qfh8ZdrA03geewhpeq9aCMKgTf+AkfQ87rmmwGA/Kggi0tvYE4bn 8EAAv7X4W0HwNOwq0Qidw2Nbht+ZuQuBOTWbr0hyFj+/4s1TcUYIFug7VRs7 ZvCpD3/2oyghuB7aKroxbQZPGf5asi8Uglrxo1OHJWfwnOwnE3e6EHyvIpuG 803jlbnUV+FPNkBP524Cs34Cl+uKMZlvN0D7XMjp31cmcNiJRKfo+g0QcGDA kGwygWnd0dPx5A0QF39kG3v6OI4cei/xU0UY8oVDRx94juHoppy9A8HC8DPY cO+vmhF869mVn+wyIiC46VW1rOQAdjD1E5VQFYGvDXmXOQL7MW+ti6umvgjY tXmJVJf24egh9W5HWxFQnKoeVSD24giVxtF7fiKAzGqqi/T/4IAsaYbGBxHQ zX2gajDfivc8KtFzPCgKLf4Jky/PVWCpe0M37z4Wg22PQu0Olrchad230Su5 YiDwgjtM62Y7kq2+fsWzWAy2FP0X0H7gN1Kc076gWSMGx+yW2copHUh9Z6BP xZgYSOUF8gqZdCMTTrrZkIk40Gema2/8GEDOwZLDhHpxqL2kIi7L+Q/tXj/W l9oqDjZHWm9fO/YPuTwt76L1iEPbhSDBq7X/0P7mQz+/zorDBw4zJ71rY8hT L/uDh4QE8MNF5vzqOPIfNkyO8pEAOTpneumvKXRj3w6blmUJMH6+mbqDcx7J vmmSZV8nCaeJqpGbDebRS7F9FOP1khBztdKt3m0e/W7xKk7eKAmnfh6VDHs+ j9T2BKvs2S4Jn/bOTlvYL6D3xVRGpIskPJG7MnvhzALaKXylu/iQJJgKR8uZ 3l1AQT9v3hM+Jwn0YXKXce8Cqt6Vyd38QBJ8cjmrhP3JaP8LtSFmtiSo2u58 b5VARhMCBdjwpSTrvDE/1P+SjEQa34TerpaEdNqX8/FzZOTjUD/hNCkJ0zcq Fg+fWUSLz52/XV5irY+QIJndWkQ3+NqzXzIlQf+1RFh4/iJ6Wdd/SEhcCqL+ tJS4/l1E9G1LTT+speD2v9hHJjuXUFJuWCF9mxTk7A/aGXZ8Calxs8Xq75EC 4aG9BnqXl9DOL/y2CceloC9kzOjniyU0oJak8PGsFFhuuUPCtUsoKFpideqS FPQXMJF09xJK36z0emciC5eGn+bgXkYG2Tm3I9JY9cyHS+/JLqNqdt3TRU+l wD79g1WCwTIaryKqC7yTgmqdu7ml+5YRCRxTG/qlYKwj//DXB8uoMbM5aG1c CsRuX+e/+XwZ+TBdd+suSkHGt68Nxe+X0Y1PPny3eKVhf8mOdYbty0hWcXTk g6g0VN+3towZXEYv//OvnpCXhoxrdeIwu4x+W4eEOxhLw4kvmeFD3BR06tGa W5iVNNT0udIbRCiIvhZpWrBVGmRUndbLyFNQ0kFukT/O0pBIffuyXp2C1Cpu TfN5SIOv7ZblAQMKei8rUm9xTBps1ysvHzSnoJ1hKbl+AdKwd63+mxWioIEu uWsPQqUhOp92M3IbBQVZPPH+HiUNgWvJPjq7KMghS2jRMV4adp+0N+pwoSAV nojYpvvSMBtzZgvdjYKoZ8bl92RKQwWu/vLoEAU1t+0vac1n8XkmDbz1oaB8 q9qt+0ulwbE9pXb7MQq68tT4T2eFNFxLWnnm6ktB+/kyAw5+kYZtJWrve/wo yCBQgKOvSRpSO6rM+/wpiKvjUqpPpzSkjab5eJyhoJ5N/3SH/kpD2O4r5/cE UNCbZ/s+H5+UBnKSTXENC99aX71vbFEa/nRHeZew8JHzhuOnGNJAcq6rk2Vh y65H/03zyECz0FZzNhafCPCLBorIgMyB1pXDrHpjuRdzF2RlwDSl2xNYerDg iOUFNRkYv2BT/vAEBaUEu/yk6MsA+7yNT/BRCgroxkfDzGUgYvh0Qb03BW21 01+hgQy0tKfMZxykIPnn6fFXHGTAvbI8eX4/BS1u4FVm3ycDe0Wmxqr3UFBD yIW30Z4yoFuy3U1sJwU97R3cweMrA08qu2yGtlLQpS27+24GsuqFXeMwYb2v 3YUfzwuEycAps1l+DhIFMUPTHookyEDfc/mr6loU9Lufy+heCmv/wUs1oRsp 6OW2oFrJLBnQEnk1u0uSgg6JO03LvZYBBrfnxyvsFGQSXnE1o1IGPh0Qtuml LCP+QS1J5a8y8Dtj6sSnqWVU/ooDaXTJAA7sjRBkzW+S5LnW/EEZqLqY4hJR t4xO/tfnqzslA6PHCp4EViwjScfyJCOmDJTEQ+xk5jKaLtFQf80rC3IyasJB ycuoVvpeOVFUFs5941y4GrWMgkYDBi3VZaFHr73I/Ogyar6qZrrVURaiYxei hDcuo7yx5Lpv+2ShckOy+4DAMrrszDzk4CULxOMip61Wl5C+wp8Y53OyYB7/ 2eZ+6xKKe3+7wz1VFvqoptdGIpfQltnVsIAhWVC+7HDr5NdFdGn7PZ2qKVlI mnurm/+Cdf480f8jtiwLBXEam6/cW0TS+3wsynnlwIJ8sHLJZxFNvf9C4TCQ g7dBk7IiS2R0Nyop+EGoHDxkBlzw5yejum5ttamrcvD5/jnHg5MLiGZa02pz Sw4Mpx9rTjQsoBP/lgjDj+WgjXtH2+itBWS58+C8QY0cjAsQdPx4FtCghEZA raA8hBvyGa9NzSGps1hBSkoexHb8NyxWN4d21h344ackDwdPdGq1Pp1DZWG3 9DaYyEONnZ2jvdsciuufm3A/IA+ik9teaYTOIsLzCt/Zp/Lw5JRm5q7JKXTV es9hWZIC6K0L2BB64B/a7pWxYG6nAC/+brA1WBhFQpGT11x3KsCfb8wI0q1R 9KgmJjfJRwGUdNvoThUj6L3Dh0numwrQZHEn6qXYMJo7oBpC7lIAoXsCvem5 A8jrwlJcY7giSGjriqxWtyDLlw/eXMYb4c/uTzonvb/jLR1N9Jm6jRDfV9rm ZteAndg47b1bNoLvINXtpvoPfNQloAuNbARJ4diNtiHNeFu48pVILiXIz97v V7GpDQduXM621VWC3BgDpuH3blzrmzldE6IEpyTtHRP3jOAdNAvRiHAlcEHf evm/juCmpDYz00glECX3v9C1HMVd5XyRz24qwUbJoO2Oyv/wzPpg0ZhHLP5X m/rTJ8awdPF2823VSnDzelv3phNT+PTKfGSdoDK0/+B7ui6YlRfPnZAcFVWG hYmqcOHn85h34k8hh7Qy1GjPjOT0zuOc7prfNirKkOl60erQ1gXc9+m+3lsz ZQhs5JbEQmTsHGPR+cRbGebFUrLf3VjEiowXZ/AxZdCM85Pa8WYRT4WocPT6 KYNDSNavzQOLOPbkegPpYGUgHLFbDjBbwp8de68lxipDbX6+UVD3EiaIXjUM L1GGHY3zvEI8FMx2a6k2rUwZuKqPXE/SpuAmjlMeZRXKkB89t/ekIwX7L7nE zH9RhqIT4CyeQMHPOtW6ff8og5h8noo97wo+v+dBYEy/MuQdGSF4qq9gqBfk zh5WhkvLv65V267g3oplo74ZZej8lpgTGrqCJTPrru/jUIHpOSOnmN4VPCy1 Sf48rwqYdxVd5VlawaVJJSW3BVXgKFfGhfb1VOwcld5TL6UCDieyUveaU7Hi mtD5MXkVeFPl4c6xk4qngq7xcKuowB3/PHaGNxXHHj9NsNVTgU9/IbU1hor3 9w188zJWgZFkbq+XqVSs5ubqGWGmAh4X2Gta86n483ab2HegAoK7A8IZdVSc WFWq0L6VxX9Jb5qjk4oPWWq+XnBQgS9vT1jsG6Viqq5wn76rCkSMVpPb2Vbx 8mPZqyYeKuC38ee2ZoFVvLhBXc3CWwW8vvu+kZdexfNXDb/ZHFOBHUOvQytU VvEM2eLUFj8VSDhv8rtIbxVPHt8i6BCgAttmEyXmiat4rMOp2DlIBc74BsTE 2qzikR3ue11DVUCTsDssaNsqHqw4uuzxnwo0t3g6le5axf36AQ98olSgoxsO b923insyQ61P3FCBY00UKX2PVdwlcq3fP14F1OSe9/h5r+Lf1xKiziWrAIEY qkg7uopbl1LVL6aowFNnnz3Dvqu42fdpXcRDFXDU4ZtR8V/FP7qK/KOyVIAk 9fDc+zOruN7xnVBsjgrIsd31zDm7ir99rCpJKFCBSv8U84nAVVxr2Ljv7isV 6Iy2v3nj3CquevKbkvZGBQo75Qf+Y+FPYn/TM8pVoADDjx+s9RUxk5uefVIB 7UG/kYssvveUpYHnNSx/Ros/R7DqvfVji35VpwLGcidWe06t4tJufs23P1jz oPTP6AFL76tdEvUfWlQgLC2Yq5TVTxHeeOZzhwrc7hWU12L1+9xYR/hrjwo8 k90vR3NfxbnZpq8b/qrA2yb/IgOWX9kSaP+vURWoWlcb9pnlZ9aNHdTfkyow kcJtWsryO93fCw0uqcC7fFGt92arOLX35OC/VRVwvz7+7Yf+Kr7nHBQzzWT5 HRUtv01tFSeaxDas8Kmy+Nbw4Q2r+FbOnQCGkCr46dlFcnOu4lipxyKc4qrw nPavQ3iFiqPWStw2KKpCfshHa/c+Kr5ypnJVXFUVBjsnatKaqTii/+tjWS1V CMi3+w3VVBxS0z2kTlCFf9Nb035kU7H/La5A622qoDXPSJhhzf9J+gYxO0dV UHPsO35jFxWfOCtbZr9bFYL8f39PtKRin72GNBcPVXjkNUuaEqXifXLusX4B rHrvAj4uV67gPQlHdc8GqcLptBKmdO4KdmKeaQoOVYUoZd4frxJX8PahKPHI KFVYFHRns/FawdaFRVkpKapwqmzKb36ZgruVCjO3PlSFikWskdNLwWEpzzMW M1XhOkkvb7iGgt9dzX3k8lwV7o8P2fPdpmDCgaw0oUpVuEG9ZUbdSMHaXPeS rv9VhUDbpZ4FvWVcF3bnNnFUFeR/P9qfJ7CMT8wlJQ5PqIIXdrg/N7mEn3Un xNstqgJzXCl28/MlrFR6I5bBrQaIPURrVXEJS3qHR4boqYFI3vUdGylk/Lbt 0hV1YzWosF/T9W4m430OoZfbiGrw8wKXsvVzMr5DvBBBQGrgfWfN7qc7GQsK nA2d2aMG+8qvupwsW8Cc5UcCT1xUA37GU+U2z3k8L+rgs79aDd6UTyQItEzh ztMqzae+qUGh7JgN6fgU/vx1FV1pVIOrt34sZVEmcVJY4cb832owF/FpykB2 EhsNCvRTJ9Rg7+karmP7x3FAyU/Px2LqMJZCehlaNIInnF0PDh9Th9wKtxKT t914ON5n/3keDbAW4r86eOgDCpjQUzES0IAukfKupZhPiGJPnZ4W1oDpbff7 NA9UIX6OOzF+shpQum5TrEX0F2R0qeaNj74GvP9aTmv9+wP9d1xDzHmvBjyd txK+tbcDSdpM/dTN1IBE6yaHD7QhlPXw/cPxbA3InA+XVo4cRtrUaN+8fA2o 9S3zsuAYQdZvFJgqpRpw2Y3d8QzvKDqq42wg+0UDCpUWvE4JjaFiydJ43kkN mLsm6zXFOYV2zF7cMWKmCdIjCujLp3kkb6x4nddaE2xJMvnitHk0c762WtdW E97tWtw4QlpA95aFrc87akIHcpNgFi+gPvpzA6a3JigRjR7/Siej8wI9YjI3 NcGz16R7wIV1X3OK2m2dqAnNl3b6Kd9YQlJJWgnedzWhOlHd4dOHJVQpdoE7 97Em+KyLIXEpLSNuOSEqoVQTokbjm++y8lS6NvTt7NaEps/72DdtW0Gn/Udl Awc0ITWled/5sysIvYh3uzuiCQn9uhcmUlfQsFFXc9esJjh+m7+ZMbqCDEjn a05wagHdSbBvJYyK2MKk2eL4tECh65O8ZgYVtVZ8sn4hpAVzH74eSvpMRaFo fRlZWgt43GtXhDlWUc22Z/mR+lqwSaFMo/zyKkqJdRjJJmgBOZma9uLhKjpZ P6f8zVwLzlo+Sex8t4qEnDY9FLRj8R1Uets8vYoGbg91GNlrwa/v44ce86yh 179uiu/bqQUqm2suZCqtoQOuvxPS92tBHOX7qc2715BOakT9x4NaUMa+R27k xBqid6rw/PXRgsEn20cqItbQ00NnIzX9taCfpPGPN3cNBWdIfHQI1AJ4FOJw pXwN2Q9UUM9c0AKXF5EKuo1raOoob9CbK1rguPixU3V2Dc1kbPmIo7XA/ryY oCZzDc12RfI03GRh2YJJXyEaWnCmPvx7VwtkWkxns3VoiBxHHJ1K0wLl8xsb M81paPHLOaOVx1oQmtNQ/WczDVGsJmqF8rXAvC2iaoMHDa2EaGyQfaEFPQVH PvIfo6HVkiPu6qVakOyw58O2MzS0NpWRbfROC4QiJTbXXqAhmmb3tFWlFryQ +D527T8aYhyRItlXaYG02yO769E0xHy8N8rlqxY81M6eboijIbau242eDVpQ pfsk3jWJhtjFGyX9mrWg4Nnnb6r3aYjTmfdwcLsWvLU6uNP8AQ1xxW0pvPJH CwwzmxuTHtEQ95fIpbh+Lcg32cpmnElDvGwfUcqwFvgVeD+VfkJD/FbUm0/G teDlGG/Q9qc0tD6E2FY0owVB3VvMqlhYoOSc4nuyFtzwXvfmGgsLTb04WbOi Be6Df94lsfYLa06UNtG1WN/3MeFxFr/IEQ16F7s2/OmJSU54TEOij4/Yj/Bo g/815Q1X0mlIvDMjeU5AG5qHOI98SqEhCbHu7jURbaisMTy+8w4NSTpJafBI aUPJYY1l7QQakr65N1BUXhvy3lcuut2gIZna2x8UlLXh7Le/dh2RNCTLbODU 1tCGOv7A2vxLNCRvyetsqqsN0tKC3j/O0ZDChS0PkJE2eGUyqVv9aEixOHLI gagN3hnsl8V8aEhpslJ/v6U2/OCTaTfbT0PKGtSLh5E23L1+eKLYkYbUHp0T CN2hDZ+nnrO9MKUhjY4X+685aQObsGGPkRYNaYpOZCXu1Qaf17k6G+RoSCf2 CDHHUxtOJ//708dYQ0bBe71azmnDQ+nu58Of1hDh1e383hBt2P6n3nL/izVk wgpZY+Ha8InR+Vr74Roy89lygxmjDSeWSWKrwWvIaiexWI91KNSfu+/iobyG rFmXGvNMbYjnql5Y5F9DNtUvtmx+pg1qKdM/V8irCEgaXe4vWXpJBp2odhVt U5Niv1GtDU/MwyhDnqto/Ih9vtU3bSjqtm15u2UVxT+56DTXoA2d3Wy3+HVX UatiZ7p7uzbwnPY4iJapyEfmgYnemDbsuXP57vh1KrokJHf8l6AOVHjrz7Ql ryD5XY7rr4vqwN4D6uvVz62gz7fCSyyldODnRv6r7LtXEDdfDz1bSQfqH34b 9RVYQXc4HqeEmOjA06vlB6avUFDRimKdnLsOON0vvnrMZRk5mzsHNHvqQCNX ZXizzjJauHBFPOaIDhj8+LDUwr6MLMj9PjP+OtC/JBr3uGQJfZ3Oon6+rAN3 xq8OuPEvof5BFd0Tz3RgV/3Hn635ZCT6QyOxeFYHFOJj93k9nkOMWaOc+kUd 2KqboWR6fA5NiFpVDlN1YLBwZ1GW3hyqPuA8Ic2pC1HpkTJXg2dR0PDFbVel deHnzbUFjyfTqG2tjrHHVhc2hF9xe9o+jlJ1/M+S7+hCncxbj6rSv0g+9tVu MzM9iHzGEHmrG4MLXr6ooVrqwftPd1yplo8wqb3Q7CPSgwkJGJ0l5+J9Kvny W3bowbboR5q9rm9wfGXW2J5DevCBEbzmJFyD1+aSI89E6cHTI4Nt18Ja8B/3 4OJnTXogIpN1b53hID4ZeV71ZKse1AQrisxXDuLl3MAU3U49aHc5mvPUYQiL Lp6OKP2rBztt2LMtjg9jh8Tj2z8v6kGMrqDEm5RRXF69f6BbVh8aiyYfvxyd wGm6FsJivvpwK1rEaG/8PHZ1/JH0yV8fKCLjexK/z2NR/8MipwL1YYan7fNh 7gV8q+CmaNUlfVg+fulr3eUFfFn7j/jZeH34rv2GcPAUGR/TDJdpKNGHhgXF mCqdJaxsvyE9pEwfdvT+/h3js4T7TmTLqlToA2nTDmbV/SXsltsgd6lWH0r0 KvPTGUvYQV1eUbNDH9R73nA9/r6MjVU/qlyj6YOUR0ZZ5OYVPGO3J9tgnQHs 00t+TT+7gguOjKj+4TKAPd49y10PV7DaU0F14w0GoBV0MrpwfgVLK3tp9isb QBavRtDd+1TcDgt5cRoG0IDiRCcrqfiOz3UtM10D2Hay7/yDISpen/VSO8HU AIr4ftGXDVYxQ5Gpa2VvABPrafaZH1n5weZu0aijAbzV2fYypX8Vh3pp6t/Z bQBpMqbUPrY1PP/Y2WDc3QAKtbZJ+diu4WH5LKPU0wZw3iK1UOrDGn5ibVpi d84AbMOj1G7+XsNeh+qMZy4YQPseJbR9YQ13PJwjbL1iAP+GfYNfatJwvawt kZxsAB9sKwok42i4WfGVBmeqAfiX7O7pfErDv1UUpCUeGYBMr7Zq3Qca/qtD XTXLNQBl0aLNBmM0PGrgO2VfaAC+wfeO5tBpeIrQ3nug2ABSrnxVcxCl4xXL ks9hH1j9ZoUlKVjQMcNmY+ktbABdos0dOx3pmHNzQvajWgOonUiiFhyi4w2O ftc/NRlArpJ+0FIEHYs7d1z82WoAoW+63g7eomPZvVv9BjoNIKGCM58tnY41 DirvZB8ygIwFz1/Nr+lYz/v2JrExA7gWe5QUjemYcJRuoDZtAH0n2F+eqqdj kq+/EnHBAB5LB/VGt9HxJv8ukW0UA7jvq3WptZeO7c7ac7jRDMDoarSl2ygd bw96u+i7zhBGeRP/Cs/QsdNF1dFQbkNApBzTdUt0vC88uePmekPo4kJs2mt0 7HGFWZcubAitK3mSN9kY2OfamQ+FEoagQfzorMLFwCdudBdWyhrC8Lrs2CVe Bivv7Hj8Y6MhdDiFZ3MIMHDg7XeJfWqGYLigcGOXEAOH3FWPnNU2hLWPfYpt Gxg4IvXuOTZDQ1h5uNcjTZiBox6uOypiagj3jgrrP2Th2Myz+1QsDKGy73Bi L2t9YnbvVhMbQwhr573kw+K7l+dovmWzIVA1VifUWPUeFJZruW43hHNnDUd0 +Rg445Wm7IldLP6is/4hLL3PXt9ff9HFEJ7NCkdzrWPggncc9BtuhkD7V27+ h9VvccW5mbRDhlCyQzV5ieVHGe7vf37YEF579D46MEvHlTW7fn04YQg2rYZ+ nGN0XP2torrB3xAWS6e5Vvvp+FuD9pueQEPgz7CKtuyg48afqTnTFwzh2pTr 8tcfdNzSypXKCDOE0+X7z2bV0HFf999LSjGGcNX86RebF3Q83O/sbxxnCGN0 RgPXEzqeGPp4yO62ISgHSesq3qPjpckH6NgDQzh896O9fSgdr87yGF/IMIRq O4qBhx8dsy1eULmebQgPFZerqt3pWIC2hyv/hSGEJ2OLByQ6FmX7vPy+1BDU OeW38GnSsTSnwdj3d4bge1Z6a6s4HasK8DdMVhmC9Jtc/0szNGwpX51k+NsQ Dvhp1eum0/Cgqlrf+B+WPlKvtEgMDd/Uva77rN8QLGcF+c+cpeFOS4ev0uOG ELIYqRJvR8MX3VvW1tFY87W4sO7y4Bq+bZSu5sVmBAmJ7ZsNv6/ho6aOjhXs RtD9fDDD89UaXm/9Iu0CjxGY7r360TRsDXs4njOZEDaCV9fv8AzyrWEDZxUP ezEj6BzccDN5ahWz722NfCZhBA5DO4xqm1bxcw9ik5esEUAob9vb5FW84kc9 2apqBI8afm7tE1nFKbFXMyrNjGAXp/rJnrUVfCqe8EXGwgh2FF/TE+lYwTZJ Q5MhVkYQet75V2vJCh5J3WphDEZwjDioy3ViBZvm8bXl7DCCCO/hNq3vFNzy JZnv9iEjEGkehMWwZSzE8TT4cJQRZK6/fXN/EhlzU/He+WgjkD6XtKrmQcaM mV7C1RtGQJl5vOuqKhnP/pGZz4o3ghvSVzlH3yzg5tLkMwMpRuB8VuxBYMs8 vnPk6gnvQiNYKzsUoLYwiyWrfQ54thmBqyj5P/L8P6x4daO1u4Yx3K2wre2+ /A2/DOJV6dUyhk39OF1F9Qu2OTHPc1jXGK4+XRuv+FKNPR1rWk8aGUPI94Bb hgKV+JGEr3+opTGQDIgSka1PsEzBy/RUJ2NIlPznK9PyEYm3bqK2hxjDKa0L FEGRbvTsi0a/+yVjCNvToyXj2INM3m/40htuDH31Fn5z0b3I5fHfpJFIYyj4 sqWok9KPkn1jtJbijCEvZqNH8elBJERrdBPPNAZU5c6ohH+IT/1Qmcs3Y3Bv 6R2t2TKHTskgh8LvxpDQ49y768YcqhdU6eNoNAbvltu1Yd/nUPzyP663zcZg +E/kweud80ioLshV6o8xdBgeP+LptIBE/W8tdk8Zw3Jlbtll60V03jsg1nTW GA78+H1YJnQRte7dI58wbwzkrfcLjF8vonvWUltslo1hVOLRrRZNVh4Vyr6b xTSGXxHFEQ/5l5F8yQfCcVEChEqcXrz/hoIich5//ShOAPfA1m9y/yio90Gk h6QUAUy0pnnXyaygjKhtUd/kCPDF2jx7KGwFKe1r+aWtTgCZdxkuA2ZUFLn9 7fEoTQJkHFjwIR2jor/WadQ/2gTAVacyh5Oo6Km6l3K8AQHKDuwaMx2jInXK eOCMOQHiapcH7ieuouuTjZz2lgRwCdnkGli2ikb7X6VlWhPgNkfjs5TeVZRf d+HzblsCjC63xddos/Jj+jrh1w4EeGj6VjKOlQfjEoez1+8iwBJjff7L7jU0 GfXN/JgzAU4L6b6Roa+hIv8Eb4l9BLgUByerNtGQwSaZVxc9CdD/Q2Z4ZxkN vVb1W2P3IcB9Uc+ZpTYaIvGX2yceIcDArpMNVQs0ZNdxYOCZL4H1PYs5VaVL R98+5usZnSKAZ18T19I2Otr5bCW04jSrH2EeDcfDdLT/XJpIyzkC6EtIbPK+ S0fdbmOensEE4MBzFxUK6cjHhlQwFkKAMxe9MaOKjk6t77RjhrP8u8AdoztN R7PzmrfjLhPgz1nj5xfXMVBw58VuiasE2Fcnoz4mzkBXcqSC9a4TYO8E16S5 BQNxxvt+fhdLgFt75U2kHRgo7vw7gc23CKBcoNSk6MFAG9x53JsSCLBzY//e nX4MdA+55bgnEUCCmX38yUUGktHImx++QwDK2PILxRgGyhCgbAq8z5qP+4ID tckMlN+V8vt6OqufkTeUxHwG0v88qiL6mAA3zp45/aaUgUpzzc4+ziTAvFvt GFclA5knXK/Qesryb2VsW3QtA1UG/eZ584wAOdcKfI0aGcjWQ2MfyiOAg/Re wvpWBvoKIVn1zwngYR99T6KLgRw1v065FhHA6RFn1O4+BmoWlLT4+5IAL59q LVYOMpDr4vGY0yUE+K7pNX5wlIH+/Hn7i/KaAISptWMG4wzkXcWleK2MABsS RM8SJxloOM/1lFA5AXbwbxI/P8VAfok5ZQ8qCBB1at/xERaeCV5iV/9EgF72 yZAkFg46uNW5+DMB7nVzHg5m7V+xvf/QqoYA+XjS5g6L/z+tkX9fvxCg8QGH 4SSrPvsGoqlLHQG03qS5RA4x0I2l6MjeegLUEcN+uPQzkEBPW+PJHwQ4t5D1 5egfBkquVpNZ/EkAmtu6o2/aGEjyefDxKy0EiJ31+rm1iYEe3a4t4W9n6S3c aCbzjYGUQ8QZ9zsIwJW6odYQM1DuoWMOyn8IoG69Pi+ujIH0Nr9JKeohgEpF g6DuCwYq0eYcMu8nAM/PSk3RbAYyE95nWPOXNe9ZLWq2aQxUsZwd7jRMgHX3 PYnl8QwEveRvXaOsefzSeDM8koEcCu76zE0SIKXgCh46zkA/k4aKwmcIMG3y gC3ejYH2XTShcs8TYPbo4pZr2xnIa0trssIya16rg5KOajHQ+T7RGgc2E7iV dYxPYICO6r4e+ljAbgKtc4Ivn/6gI8VXue/4uUyAIPZRK+8DHdVfsSyq5zOB T3rKrvQ7dKSifOS+g5gJDJbk6qxY01EoX9HtAgkTsBreoC2lQUdN80s3+aVN 4LpgFCoUoqOw6puX6+VN4Pw6X6JZHw39Olri66BhArNUmcOzIaz8vnPtcIGW CXR7ndn+8yANRZhuPcSvawLELZukdIGGtLi6dtcbmsBZs4tF7jw0FJnLZulg YQJmvQq8z2+z8vy4s4DDThMourGNWhHLOq9+PeAucDIBccKeuHfHV1FP+RAb /x4TyK/zErSyW0WxcReXvruaQKXd+aweKhUN6Gb27fA2gS++jGuPjlJRUsBM 8Y7zJmA8cXbokfIKmiXHu+5IM4H2La1TRY5LqKfzyf7H6Sbg6Kd9qF5uCdV/ LHObf2QCJ9esl2ImF9GzGwPuD56YQOylgQtdNxeRh5yp13iBCVxUbrFnVJHR F7vuEzc/mgD/tOONp0oL6GGyduj3QRPY3X5abMh0GsWG2FxSGDEBit2N8GOf plDIwb1h5/6ZAOeHKl9kP4V2q/8XITNlAqWSSf+43CYRd3lzpN+SCSgK18qR A8bRuYGLN/l4TWGitGxlx9URZG/4NX2Hvik0hcR9nzv3Bx3g3r6v2dAUTAt2 2H/Y3oVO9X4XdCOYQlHbUuBRxU6UeOtH5DFzU8B8X+Hk13b0+1/biSu2pjBW HZFez/cLHcsaIrx1NYWCdTl8Nrc+oiiRdQ1Kl00h6F7T6S1jdfjeWFR0XqQp xJ5dyFrv34BzMaeNwTVT8My61eI+8wPXn+EtsYo1hToCWUEp/BcWqd+Quv+O KWwZ9v1xK/o3zopSPBqfawrfq6XSNjsM4E9kqzVKkymw39iy10l/Aj9pfHdk 7y9TUJI9z3nt4wSOzjGpf9lqCiV+FZnmuybxDjfdB8c7TeFSyXT9ev8p3PZB 1rz1rynwnigj/8icwRNXqedfLppCxj6vqnvB8/iHx4U/fBRTePv8KlfIu3lc bDJve5xqCpTn26qmqfP4wsiYsDzDFM7MrMSk/LeA2XZ0vrzJQ4S5zfaxN66Q saTwu4ljskQY6TqW0OC/hKljBJfP8kRYdz5Gfi53CfdUvSyX20iE24VWu2P+ LuEnQbmxLapE2H5FypS6bxnrddzXAH0iBL8cHP5hSsF2GcFH5IAIYRpehOjf K1j94tz3EDsiGFhIRdfzUDHv7tPGLVuIIH/M6egxEhX/WHeM7eYOIuhWJIkm pFLxgeN7M5ZdWHzzpSPxu1ZxgB7hz6/jRBiw3WSzNXUNX6DIrnqfJMKLuCve Hp/XcEQ1h+zMKSLw086nJ42t4VsH2t35A4nQoCqm4mlGw/nRoV12YUT4Zvo3 9eg3Gn7lfJjaHEGEnS/VtAPGabhM1kHG+woRipaHxe7z0/GXYjn38Ggi7Pp5 8YeZAx0P9nzqfJ1IhALTN+JfPtHxeF7eim0yEY5HFG950UXHc+eTpJvvEiHK I4e7hEzHTN4jB6bSiDARUTOzXp2BudscQsMeEqHCsCThqDUDC2WapPFmEME0 z+NVhwsDyxO5OtWyiXB6ynxF8j8GVmWboZTmEGHNz502mMTAOg2/pWzzWX7p IOsf2QxscTjfzfMFEVp2+OQyvjIw6CVfnHzFqqcjwGPfwcDbKZdSL5USIbU6 akPxKAPvT3DsuP+OyLo5ji2MsjOx5wFTiuoHIpDTsl3KNjDxMVUFqdJKItw0 WDryXI6JT89wmQMmgo9259pnDSYOKp/Z31RFBNEuVzrdiInDojtCDtUSQUlR w/mwJRNHOX9OmfhKhFjtAwOTdkx8U/Z5Weh3Ilw3WcvNcGDipJHk39yNRHCt q8oM28PEqcVhy/eaiCBY/PJHpBsTZ4QflVT9RYRbWxosSg8xce62nWYlrax+ zH4sbDjMxC9EiPvRbyJ8Hvwg8PAYE7/pUQj50UmE3C3JWft8mbgyjzvlYDcR ngrQGzb5MXHN+dm3471EqGKXKnE7xcT1mzrbLw4QQSRANCSbhX/xVi1xDRGB S3ByiwoLd7Y+l7g3QoQtUmKO7SeZeCDjDlFljAjhxRrlH08w8T+/cNfiCSLk TJRU9xxl4hnTYxdspolglzrz2MSHiZeZO+83zhIhi3LpWs1BJqbXE996LBCh lsT/MmE/E3OmKLaPLRLB+5G6x93dTLz+MM9SCIUIZwonv7TvYGJRvTlxrlUi tL35a7Sf5Z8MpdP0Lo0I37e97pZg+atUXbVPmUmEjyYLPJLGTKyZUBD8ap0Z sJ3+TXHTZGKDA3fvbeI0g4dvaNM98ky8aeZYmzufGbR8LV15w8XEkhX2TyvX m8Fva3P2f1QGnrmhE7hRyAy4GulpodOsvK88t35E1Azmur9e/9TCwCEzLV32 Eqz9aqFjwbUM7FTxNq9Aygwqyp9PJb5lYMa+8M2B8mZQFvBofP4+A/9W9hJp VTQDomnwqHUMA7+cgX6ishno5lUmzAYxsFcsd/iauhncbI/8fduZgXFFcul1 QzPYlZ3R08Gk47TY4MhxYzOQdLpRFT5Bx4Gubk47Tc2Ad3LvxtttdKw0Kz8h YmEGeJoowJtHx5Eq+cqP7cygYCyn8NBWOra9+SnptasZrAidlvE4ScOy+594 SR4wAwbb5M0jDjS8oBKtd8nDDIxDo1PHdGn4aeWOOhtv1nqP4erA6TXMPtfG /H7SDMSPFB6+cWoN1+yfDBgINwO7LcbSIazz55Fqk/Xmy2bwUVxF4I3mKg6e K+bPjTSDU68P+YevW8VqcSG5/jFmcGDjc8Hnr6k4+uO6vuVEM+iZpbQli1Lx VjXpXYJPzYDZ88pSpYKC30x/UT72zAxo7m3fVG9TsNq7oOUPuWbQulX/buUR CuZ0+Jl5stAMOumPJ9/yUnD12esLNW/M4HD9tth252VsU7GYGvbNDGq+DWWa NCxiM5dfg/+mzGCt07Yi7dI8zpW78s5m1gwubiq8fMp2HkuM6MXfnzeDYs0u 1UHeebx4MZa4edkMzuo//VubModLH6PYDKYZRHwcW/t+aBYbjr/QdxU1h81k C/vF9EmsFRkXWm1uDj43PibseTyEK61yuHZamgM1tuOFvOAQ3k3Bd9qtzeHy mfCmTRGDODRgqWjM1hxG36y8uXngL6475PNXaKc5zNeLO7OJ9eGTFmYOB33M odrCSijncRt+vvBXbjHWHJ52U2MfeyZineMWWP2POfjaL6+EDg6h2ypOq9d6 zGHDvNG026VhtNh/hDjYZw62NtGWMxtG0CeP+MKMIXMwqT8erWc9ilx296dK TZvDweCVI95JY+iSVUwgHxsJ3nG0h3CoTqO+lQeFvuwkaGl+/XqkdBrZlb0c /cJJAg7dbS06djNIwLjzUBQfCXb+IijWec2iLA3dHWuiJHjb8IWz59scqhP5 pTytTgKPZtfbAyMLSP/nyCFHLRKc3SrQkqdJRnfiV1Of65Agb0zSfPkkGR3i URM6YUiC8+VSnooTZDRLC1ntI5FA7dEbE7fRRSQ5Jt/a7EiCewKWbodql1F4 jrGQoRMJdAa5TlykL6OBI9t2JOwmQaae38gikYIKes/iHa4ksJZPcN6QQ0E2 rdWF1V4kCBU+zZYQvoKOfzoZ/eYcCdIsJQz1eFfRzJmJi1uDSXAmw+N5kOUq ClU47f87hAQydq9shvxXUVzEWZeVcBKwlRFzTRtXUbFliJL1dRKEfHLsuRS1 hiwnKGI/Yll6Gbqq3S/WUM2DSzxet0iwzu6mhUfnGvq9EjFzJYkEn2XV17/U oSFa2bXKmnQSDEZefXW/loaun+Aq3veYBKaeDK+mMRraIHkjeySTBOYWG+Q2 CrDu4xfi4nhySFAvla/Cs5uOCtUELqflkYCr633j40A6Mm1LOKddQAJakDI4 JtGRvUnyAcdXJJjZu5E83khHzYOiO3tKSJDh/kmke5yOPO7cQ2fekCC74vi7 QS4GOj2fqnG7nAS79D7SiFYMdOdVxmJLDQlUN4U6LaQzkLy30tjRryTY1PpC 9nExA+UIPe1erCNBjt6uLJ8vDPT+TE61ZBMJTO7e+GfCym+2Cpplec0kEHO+ 3bSFwUD1jfnPSa0kcFRLex+4gYl6dYuSPDpJIH7tu5u8IROd6NaPnvxDAuJr qdjHm5hoLu7VxYheEjyR7ym2dmSiS5bG/oIDJHgucClv1Y2J2CdKvTIGSdB7 XMih8ygTxT8wdTEcIcFriR1XfgcwkcSOsq2f/5Hg3F9js+VQJspYMbfYM0GC FOfG46QoJtLKL9cbnCJB3BdXgYw4Jip1s1IKmiUBuWXUQOsOE1nxfBTjXGDh HLuujjQmqi2z4bm/SIIFoTyFlxlM5HTi86o6hdW/a7x4UTYTdUrYzZRRSaDh zdnTksdEh7/U/LWnkWDayyZVtZCJJoK3tncySJAcsDsg8wUTBat9q/NbZwEl 5pyJ9q+YiNG6vXKVwwKuOj/RVChmohvX6l/d4rYAhbvXApVZWNhkZ7Y8nwV4 Gtx54spanz74I+XFegvY1sxc/sDiU73jHGcjZAFsBKliF1a9Ittf//0UtgBy GM8GxXwmMpt3OecjZgFCPzMOKD5jIpzVdmxewgJeNLa17stkooGdyt4h0hbQ +Csoqe8BE7FRz7ivyVrALakAm/y7TKSc82FvpAJLr8Q/qdfxTGS3h8eJS8kC duoRDrDFMNFR+t7tcSoWcNTthlVyBBNFP8+y26BuAb/3VDJOBDHR13WW5jI6 FnBon6bsqBcT/Xtx3ThDzwIOsydNJ+9lIl6PVl1VQwsI5e9PuWHPRDtKTyvp m1qA6N073q76THTKq1y21MwCPm39QjHcyERx/NwS5hYWIJ+v4+YuzESNRzL5 bG0soJaau/fxHANNC01xfAULcOJtO/yBlf+FKkgMh80WsJ5fUUaXle93i7Us 7NtuAWobXFwFnjNQaw1nz0kXC/A1U/CZ3c9Ai2f3/J7eZwEcHUEKDcBA4vIZ zefdLCDu5dAyhw4D7Q82/xJxyAL89ogkJq/S0R+1Uy+TTlhAvtp4sdU9Olpr LsuX8LOADqpM9cZLdCT/H0d2ur8FxNi+bvDzpCPP9kepzwJZen5VrTNVo6OB mJ+R78MsIIAnaORjAQ39GzXdO5BoAYSc5cnoR2uI9+7VXceTLcAyi0qH0DWk hZrsJ+5awB00GX9+7xo6leprvZhmAdnSYikWvGtoxj5dnTeb5cfNV70BrPNr MZ9JMXzH0vNkrUZLhopG92/LulluAY/mR2mZsyuokzNh+1CFBdQ1tV17/mUF VfjIPkj5bAGptmvvLwSuoChpoiX9uwUU9wXzsldRkHDsqYj6Hgt4T67g9XZa Rnq+7WzH2S1hpa2r6pYCGSlKyD//xGkJZGvKg23/FpBwzZE90jyW8OfhmnZ2 8QIiK849aVjP+j9KznSz3QL68Jt/M0HCEhjTfc66h+fR9m0Qw9S0hNpy8W9s 8rPoqHohX/ouS1iU3PRkk9M/FPbF65TGbkv4rEL+t/B5FCUdF20odWGtz0lr nSOMosqcS/ENbpYQsXOQ0ig+gsQ1tm+gH7YEnl1Uc/PmQfRVY0TcJ8QS6vqF MmlOPUhHa6OSRqYlWPzSPXInswrN69w1K52zhG//YizspQZwZyNsFSNbwimw 8zcoGcCfA2b2Bi9Zwt7jP32nHP7ixNId58xWLUGNWrG+679BrGPJVvSBwwrS dOjeYwPD+MiOM8o1klZQdols5pY6jtt87QXarK2gTzl8rdN5HlfwLckSkRWA qtTTjffn8dPCp9optlbQhKlza13zOHCWvu3ANis48N6r6tSRBSx48c3VHmcr OOIjWPz7DBlvu65MGT5iBbfe/fiRc3oJ62v95Np23ApcNs5eECpYwuL1EeJ5 vlbQNj9oOzy6hAcFO439TlvB25Ouhk1ey/jK/cTT0xesIBITyZ72FPz+2drf pVgrSJK2tcmhrmCzzcEUh1tW4NF3c+eILhW//TslkJVgBQbH9kmEeVJxqWKf ucMdK7AsE2B/9ImKi9I+J2Q8tILNvw5rPQxdxTrmFtnkx1aQF/Q+1SNnFT9v L3m/PcsKyBycB4/9WsW5otlDC8+sYGpW/oGL5hrOimf5/tIKfu5f7rtcv4YV dRlOj4qt4EaZbeSF+TX8+HvIsflSK/hfw/UeTmW2xwFcTMZMk3GNVKrT1JFQ iaN619v+YZdJx2XSZUZyKbfQUa5RUkKXQYlyjU23LXNceppkR78iIk7uxoMu xI7tPi7tzd77Pe/f61lrfdda3z/WZ1ap36JYR4qZyr7Xs8oo8FnFp4Y9pJh6 wXZw4iUF39UtXPUZk6LG6up5bjUFI/t4Z7xVZZhcSall1lDw6Ii6xz0TGSbN G1HctxQ8zvlrtidAhldDfkxOb6MgXF+UYPZJhiqaVx6MdVDQMtdyYP2CDONL FSqsuiiY3H1xyElbjrHjU8LRXgoUOY0FfjZyVEz0k1p+pCA0RPUHJzc5Xtz0 WT2tjwKL1Sp3I8LkeN63nVgKKVgIUuDG5MtRqmy3//YQBa6iiibPMjmevV/j MyKiQLTdIiW+QY5n+p/evDVBwTWlOxuuTslx7sJmvmiKAtrb8oWfEoOhq/mV nBkKClV4KxO1GAxyyRgaFlNg29umdduMwcl5dfmuBQqy3Jf9GWXNYGDGNc1U GQXuqSEGfNab4xZKG4cZCnSD3ystc2N923l21y5FAtHOX/rf+DMoCplxSvmG gElvis+LcAZPaJ48MaRMYFO53s75GAa9HV1Tby4h4NC3/TI3jcGB8c6CL0sJ nM8zCDzAY/B4ogMSNQKmqgbRf/AZ7N9Ux/77CXxTNhBpV8Kg+1sQCbUIDJl1 Gm4vY/CDbzlD6RBoalV3OVnJevxbU+3k5QTeOqp/GqtisPf+I0PhCgJZOmEJ gjcMOnPXAaVPoNm/cWd7A+vLdhXV6jUErAKs70Y1McjzGu+xXUdgg6cg6lAr g9ZzbQWt6wkY3R4Yc2tnUBhfHu5sQAAOP1yR1cH6XCd3d78hgUyrGtPvOhk0 4sdq+hkTCAPesUJ2vGm7X9/UZgJ2iQvvY9j5QfUOxRGmBI7o8btvsOtrO5tH LTInUDVllNzJ7v9MpLfvqgWBV+255GAjg0fOKixX30kgPvSwnmodg/IlQmE6 Ye/HKf2EYjWDedkNT9ZwCCzVsPHfxp6fa1waw7ckILlV75H/lPV25W3HLVwC Py0X3HAsZvCa/Tn9Z3vY99rPI5yHDBp/9Bjl7CWwqLH2UWAOg82BNoI3+whQ p9XWfk5lMFjB+IqDPYHj6pWDmddY/yZrHPrLkYAZrc9Jj2awfK14nZsTASWz M8G9wQy6PH4/JTxIAJPe1fn6MJjfxk+ccyYQ2DM54vpvBnd7Jh05f5TAz/pF Vg00g0MzwRuV3Qlkb5M3xJqw/l7GqdH2IhCyqvPcwFIGBb92SM0CCaQ9zDCP YP18dFjwtuI0gY1P9JSDSuSoEMlL54YQ4GlZj73KkuOeLH+zAxEELjUZ/s// lBxb3y8KCL7E9ifXYFxFQ46h//myYyGOQERC0J0esQx1mcZvL10hcCfj6gvV jzJ0XZN+92YiAWFeS3NmgQxFx0x6StMIlGUPj/hayDBxWrNgRybbn1NO00eX y3BLrCTsVTaBKfxRq2JeimH3X2u05LH9WOkqKHsuRcUhZ9vJQgLhCo9S6/4l xRUnL5ebvCRQ83xj0XqNBUxivM1/ryLg4+hT+3JsHhVv7in98ppA48cHAYN1 8yh6uriAV09AWj2h/i5qHgUKsekabWzfChKVN/dL0Dn1QvjcIIFeXd8EwS0x vtvgPr1/iMC27oljO/3EaFXOCSwWEXD75VSc3S4xGn6Qe/tOsPkauF2bB7+i 5J9Rh7rFBAqnt52bNv6K6c8jzF8soWE4qVrypXAWf7D/rVRPlQbFJUHQHTGL Fz5tNw5Xo0ENfJp8bGbRd7H4py3aNPgJc7MP9c2ghUOYVr4+DQMO0oLrajPY 2R80HbeVhp5WSUmby9+o/X1Aqd1hGiJLmvcmuI3hPeuoyMnfaHgenTOV0TGK plFJ1ikuNAjJm99bbEfRfrKko8uDhq1nGyNem45gfOes5HgADdG/3JV8Fg+h OD/aKvIiDRMfaj5Eug1gN5XS9qCQBs+Z3MYcmw70Db2XvbeIBhHlev3Xxe04 V/Sn12gJDbyHtcVjr1pR4x9dX7c+pSG5I2OhyqIZ96msWln5kga67tjpfONa rGh/4NnWweYxCf/jnG4c2qo+Mw7rouHngB2Zq9XjOF029XO6PTQYFA1sMuPn cmYEI1dcP9HgdNPrUuDFxxzjvC3/HRbRsLTGaYPRYDWnotsyLGGMzTNssfbG jVqOrZYTZ/MkDefsqZQnpJ7jfTm0JWSWBm6fv5fo9jvOzMv4TB0xDeHfr7f1 zW/mxMynHRfM06A1VhVwQ9LCUTMrMDoqo6GiNutgv2MbJ+ekYJZhaGAkf1/f z2/n/B+DjcdT "]]}, Annotation[#, "Charting`Private`Tag$5692#1"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, BaseStyle->{FontFamily -> "Arial"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->400, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 30}, {-1.9897548659538757`, 1.9805006403996182`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.684198916949996*^9, 3.684198950042675*^9, 3.684199381993267*^9, 3.6842022829807453`*^9, 3.7159439206132193`*^9, {3.726340402216227*^9, 3.7263404106118383`*^9}},ExpressionUUID->"ac6b534a-7a15-4e2f-a2b1-\ 0fda1c841a8e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"eq", "[", "t", "]"}], "/.", "soln"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "30"}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]], "Input", CellChangeTimes->{{3.684198881132791*^9, 3.684198985637719*^9}, { 3.684202462606131*^9, 3.684202517005992*^9}, {3.726340574097048*^9, 3.726340577342181*^9}},ExpressionUUID->"8220c195-e22a-476b-8ebd-\ 6a607336a862"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJw123c4le//APCTrFSyklCpJNFAPpHqdsyE0CCR0VBWUiTZpBDZ2ckme2+3 Y8/MBiVZCSUSpRI/7/t7/f7qel3veT/H85zn/NHOK7fOmtBRKBS+tRQK/Mt+ J37hXfSQrNRQzd7xoCGUf7zf9GzzkCyFcmSRoeYVGj67Xiifc3jVsTK7xvsw m9mJUXYjsPDQ0cjXGLneirudDp44oPY5H918Gm/QvQBWUX4QN4BiMnp5xeVG Vp3tlR7Sh1prGPoC/cCVLFEszej3W6mns2/BgWdGErtQqQSzceq+0VVTxUTa vJDdkz4RQ0dwtm26UReWnEhb4HoJTgqnC2jDc/L3aW3bx1b9RuRwUBfKfXbK 18ManLn7hnwXslrcqnO0Fky1obfPw/vPTQnMcn5atfLCqT2v8VRW+ZcUEzBb iAh/PU5j9i02KAErnujENHT9qr4717rxVS9KbowoRoJYVL1ND0xdu+iSiUd5 lrg9MsFjcyd5a3GCTfuw9DKY9nX4rRc27ojJnNH8DNdHKvg0Rtv33byXEg+m KUhOpKOBByfkDX6A3XZ3ceXjqMGNG7mUJlbdjDQyq7Du0cG3rWFgCn1wUQLi Ds1OcJ8Ap/2caSxHr7+53JSWmVz1UM7JL+Eo9JSm9Iwv2C15h1YRPpu0Y23K BzC1tOl9CWZbmXl56dDUqk27POjyUMdFWgSnO5jnsapECfIrDLza2gOmSFjV G2HVTZcPugt+gc+7P26mBDObi/+WsgOzHd1xKw831a+p/9YEzg1y/VyHHu3o 8U/e+nXVuk/k/NqRokPCxUsWYEU0m0VDdK/vCHJWgbV+DPvFY9ohhZkW1ulV C3QMezdhl8ec5W7G4AgXmdcv8fFPo55S+eC+Pk7OMvxHtlDz29pvq27/VHCn BZdFefIma4M990Wxd2P7hfOf9FPBmVONrnX4iNaeXI7fYMrAy70paD59waFF dQauL9483YbyGRqV3GLAVI8k2W502ziMTeobOIJTfqEERRgUTP/cMbvq0t4P VZX412O+cz0q4OaZv3M1WKf0QWnWbeKrpVcKcNGnL9t8osBUmeuvYhAX5/kH 1+rA1unxuzCyoVZOyH4FZxZH1NSgnpuCGnybv69abFbuRQISj/Yr+HkCrBXE 8qYABzbP8/RcB1Oz4qgleGbhkktWANh4wmIgFWvsbhj1LiXxsOj/nqIsrQOn rg2DI54KhhagDS5Ps2VZ5mC/jGi6YmSR8Y+T7zDYzfFR2hPU2mdy/6c+OM2a 9qQA72PsGOz2BIsNN5oUYe/DRxSzsoiz7m9Jwp+NY194vwHToo7cjUDK/oyb rq2QfsGh7fkoucLKVlb4B+xTdLC/ANFPvunnPQOmpPz+Y4OuccvK/rwP5jHz ny/FdQqpSd0J4DQVHecyLOafM/mrGdzXs6MgFcf2lRzcPgPuWrd7Lgqt302z Udw8D8+L44cXi5D9zeZS82Ng2uJKfRkaL+n6F3gZHCdzLiwJnaPrly/xAlu3 C7AWY5r6sNeHLDDlvPk4xgfDJ9vXvgJznbsWXohjhr+zi/whcbf2Mku8bv8f HS2BBXhenfXG+cjOji7GThlsu1VTtgqN0ViGYyzBr8yVxorQ2fWcQnXBYE89 ldB8XK3NZzFZCjb2CGjrwPvjdudu+gg29G371YWjpkQX/mP4CdeX4eP9Zsz8 n6TMJVEwm3VLUw6+63rc1eMMWCV/Gy5EIy2K9Wn3wK9Gq61bkBbX6XWdz0j+ yxHUhaoMtTUW6sARFF7GNiTywiCEbwqsdfucUiKK+GHSJ8f2C87n5ZyfhRiQ 1TbTI2Bbay2mEnTH2+6K/yUwW1bSvWI01OOSWugBtpc7vT0bnd7m9fVdGpja T81+jMpvBIiv6QTP3uldl4iF88Pt9i6QfE6Z5AL8dOl5xWm+Rfj7e9HiUozp TqZRbOXAA+b7415g66BcpagbYP45p6g0NPi+9DHtCdh6XutfJVITqukcLwCL 1YScoKFS6xauje/AEZ/CT5choYrui4cpv1dt2a8VkIxCGN7FXhQCu4VwdURj itbIqKs6ibd++FqMraKmhFPugIUSn2lX4/djczfbI0j+89QHZVjl0N/8OQym jO65dBUV31+7yPMJrNN9xSYB7a5ff0J2/Z9V//xiVpKJAlm5PEzEwZ7/OQpl o2Vd/ibfC+D2qNL6FGSRKLgh3xkcJzC6EIj6pvef6UsEq9/+3hyElaX/C1tu Aa/fuxSRigs9TrwXnAVz5jybycA7XyoJqHH/XXXj6LxzBPbfomFy+zj4ga3W sTi0dFknPfzKqqlf59CVXGSWaThT5Q3xhkSTsXz05ud1ybFscGwKTS8HKcrd us/yGvxPu/bAc5Tnew+L/QVPlIxbPsTb37iuvbBzadWj0/tVXmA/AW8V55Pg 4NNyi3n4t3ngk8SbYDepXuYMfL0ooqclBKyCGB5HolcrcVtmy8CtJcdCSpGc 6otL3EPgGg7xNxhlh+bFH2f8t+qvD5OyyhH/x7LxK/vBi795ZLMQ5cftiJYz 4CHnvUb38BijiKrYPbDVyQXHPNzMO/I3LAbM3x+uVImzDkZl/asB2z/pr6rA wfJnja59Bidpi76Kx3Y6LOxtG5ZXvaGfe30Z0jOvrRWXIB59MF6PkIuDbcQF sJWCan892hUsIbTiBBY44FtRiRhTpt6aJICpTZcXYtFUWYJPexN44oCMfA7u eKl37PA0WFlg8m4Nzh/mmI7kWFm1neJ2mwYcttAaS5EGW/ZyB1Zjh3UPtG4Y gLtYfZ49Q0bbjtF1eIBzfVl2NCBF8R8FkmngV6/slVuRsFKGSfRLMM+g+ucG tOHi1S10P8BJj50Ei5F98ZNrkhso1NV6NmUchs1pZlWft4P9D/8WpuFLrUrc 0eJgdXrGqWas8WrnLQ1FsPn5xA/NmDr4r2nNBTAFyzCXYImJfoEiM3BSyo7f FUhwrui+qRP4DxsdaxviXgrq4QsAL3eL6LQhZkYr0c54MG0Xi3Mt+rNJ1dOj EGy9Nsw4Hn3dKvThvybiNOPDxXhwN92RyX5waGl8YRPuPjDoH/OVxMvFJV/i eqnyz5orYLfpVKkmXCwXRl3LsQb6e5eYeuI0tTuRxYLgIcGzH+tQlLbGnJkU 2I/VSL4V+RmJqG1TBbfn7hhoQC5mjEldl8C6nw/zFyFrm5GlB7fAcUkxx2Px FWesLeUBZuNaq1aDz3tFZU+FgruajQ60YuUgO6bYVHAhpT6nFUtHnzU+Uw4u XS+lhbFI8sEy+pfgWYMLTlmIP4eFo/QjONQrWaUWsZaNm1vMgTMfGjyrRZS6 2rrtDHSrFpaubS5Bc+2x/D1bwLQfzXpeaOyNw92HIuBZqZDNBfjNkE6H9Akw PfeUeC1unpLY+1UTnJui2dOAy+dZ3Z5fAUeIcqypxZnLU31n74LFfHeaJ+BY 5iZxRm+w20mKajoK5Eh8XBZF5ov4n8lDD/hdRy2zwJT398tSkZ2Q/nEBGsm/ HMJqj0zFpJ729pB+e/r9ErGeDOe3R5/AfYc1GvKxuuKMsswiuFSmb0sJRhpt z6dZ1sL1noySKMJiuqmLcdvAWtIJr9PwrisPzpwXA1OEXfhuYS5Lo3QmBXCc dsapCCzClNiodQFM3c22PxVTE8ZHIi3As8W6rzKxzgmRlRFXcG7TDut0bNl3 k29/KNha6zA1DnvY5EndTSP93Zpvm+II1oVzuBJMc/BqDkPZL6StmbrJvGDa uihUr+jkp/UJ3IVuCMbjdx+r0yJ/E195FFyNZx3WNoxspCf3V4ptHWbkPjks ugusdejYERrmz3v8z/YImBI5opmDJdQ7tmJVsFu4850IpPKZ/QiTEVhgbVhf GTL00D6rZQMWEy03rEG22yKtIr1I/LOHRDF6XDrweCSazLvKaVaM484JpIrm kv7/mFTbcPG3q3W29eDmqMqHL3G7T+rHqj5i1U3f6/GI4Je/jNOk38bNf5Lx YvVBHq01DHCe11FfShCr/h3JyM3gRclNKS1I8GeR1sg+sLRa8kg7kgn6bSmK SL7sJ8FKpLX/hI/tWTCz1wVqLb7e5JZcdR1sPK6t3I2drtTXMDqCJxTNvnfh 4H9Mg5oBYLZf11tXf09FqP2JSARTzB3N72J8OIB7pARMfcYmWY96O3okRNvB Agb+ut1owoxb03YIbMkUcKMbLdPrWVTNgwN3ZdmUIK64Z16M6xhh/jHLgEYs cmw4UXMbeOyt7oduTH0jSIsQBzM3YvourHPbdGBYCby4/kU4DVtuyFwU0QPH fdT9loA8Ume4bK3A9nYuZ1pQhPxh8SoP8PlX7z/3oOwPdqcZw8HX1kpxdKN6 +3IzzQywG1VWJAW941x+GFENbt6ZbtqIZ7PlEoZ7wV2PDn3swIyqD7HIBLjv 9w3ZFsz/qfmdzRKp3+rlX4gl3Db8qmRjAiecv5GHVPi0OBn3gFVslFpakGFx yCHNo+C43vXy3cj2zFu1iNNgGmvweBt6/JXXdPgymOLzieKE47wMPUXswGKh y8U1uHhXQpzNY+L4qOQG3F71qbIyFjwbca+2Go/o7utnKCD9Pq/bHYcXf1gu aDSROK9UbQFiDchlj3gP1hJxd2xAgiLzB4ZnyL4beDe2IpkGKVURembo79nm U4u0jB2v2/CA3dop5rHo+l/sUbkf3NXf6FKBnMLonjPIgQWkvUxKUbC4coWG NslXEDgShw69v3jyhCl46MHWG8m43fNmr6gjmK3u6O0ybHbQ3YjXH2wd77pU iRn7Qr8wx4ONuc06M3Gie9q9XwWkvkJIIBdTRSvXjjeCA49YOFTgwVedAa/6 wbSeSweKsKPLKF/dVzClfEtDMOYR/pWat0LiYWrDmai4m0UyjmMdnO+DU3Il Oue4nea/Zx25n8ovYDQrKKHuLA12m/f4moqedCj1WaiBh5Li1bORiP3Fa3qG JJ6ZtVKMmnbenFW5DY5bbMvNQ9fa3JykPElcei17CFpzN5RZKBxsLJmzOwnH bk8L5UonzrwxXYiPNVcIrK0CCwRwFxbhvtudmd87wdT0mOMR+C7fqPTQCOn3 d8npEeZo+FnfsQCmXH/z3BvnWrGcqWJmAV9as88Gn+bZ/iGDj1iP1/QumqoR N4s6CHbbObD4GHlbKC14y5F44YxpINqz+aL7vfMkzpT+1hvVYsuN12+QeK6Z pg4yMnWLPO9A3NLglIqW2EP3KDwBx21mn8hCkRWpeeJxJF5QsCkZHTGpOCFQ QIx/5N9HvaydLayNJF/cxiIOW5eOaP/rI3G+7OdZeOOVn8NfvoCHXouKZuD0 9SxW75b/N19O6BQ6WbTtTzP7ergev3xOhaIxQ/FHJYJgt6h9q897D2YljhQp MGWw5GII2pGvGxuqSjzhGWaFKvUtRR4YEJ8+qvQE6zG4Fd+2BtMm3Wqi8a/s EHnjByQ+YzMYgUN1Uzs0wogP4EgnJE5XoXfiBZk3lnMyEXVkdIyLVoKHSo38 k5GF9sgd3k6S33OtJQoxrywsM48Qzw5wGOLktHW+v+bJPOvCuudY/uy2LeNM G8Br1IPS8Me/YomveMFxgrOdCdgpWfFQ3QEwpZe11QVt1dStyKOSfOFfUlGo eNHiZNw5MNX7c34MOpfg2ut/ncQVH5sHoVm1ECPn+6RewpbPBD9ZSPli4Ufs bFAdjkWel9/Te07mRZ4pj8dNKh1rT+WT+OeNARH42txwgFQDsbBgeQpaE7PA J9RH+rf17sMoVmldGtcXsNa66qQadHyGX3LtMrG7Ik8V6o8Qo31n2wj7FWee zEJRvRmb7PZsJPcL/Xw41mPda/TnKNjac0aqHPOdSsh20QAb7+0pqMMDD7Yt 010Fd1Vt+12Ln+GI0173wDTjsyHp2PA357P1fuAhPT3ODLRDMuBrQBw47sl9 nxI0ZMVynKuI5J9PvVOC4l889I1o2UjulyWlbHRljPKef5D4w2k/O7R7h5NI /Bzp1+K2lIHHLv66v4eJlfx9zJqU4+TQOy0v+MBd4mz/YXy9c5rnoBhYJSB5 PB/vZTEzzVcEGy+s+MegCcWxkiMXwTw7OC4WoheuRkwVN8ECz+rtS5B5+Tsd WQ9w81FBunwkuqCdUhcGHjpRdCUSfT3UvXAyg/S7l+YYh7PM1ZXaq8F9TXLR RdgquSlU6xW41FehohIfGpIfezUBlh5wqSrBs7z48MV/YAol/OHnqjztow8+ sG+C6yP20jsZ3Qks7LksBKYlb1jORofbDu0alyH+pZaUieYZMm6ba4KHVMyu xqEiqlDNt6tgNw9RujvYzjGezcYeTFl4IpqCpYr5jX/5gZv9+C/m48XZ8BzH eLD3yYCOfFwmyrmyUkT6XftiHIsdrvtreLaSfbQf8cWhY/HrYpk//q//HGM2 WnrvOe33g5id/kYOMlzvFstMzwbfF1TMkYKq0040qrKCaXKVPA+RgPLfaT8e 4mvHWmOw22jp5s5dJL9kdiUbD7nZnWA/AKa+r07Jx3LbJU3OSYEFLr1sS8MJ Fd/9nsqBKaPMkUGI7mJO4Vs14mXm8Qx05aflwFYdsDCbR1guqgsRob9kTOIm Z1vSkaD4hGisORt5vk3/CUeeHcnnhmzJPOXHT3zxmMVVx12u4K5Pea5pWGnd zsRrPsTp/HJ5OCVlsDUlhOzL+i8pCzMqxsxNPCP9w8RbLPD14Yu8ommkf945 sxzU5LJF/mY+2NTpa2QREuZ/bZZTCU4rodIVIO+y4KDvjeBZowSGZDSho1V2 uJv0O6GgeAufmt84fPc9me/9814aTg9qYy79BJ7oTKktwCyHfMT+zJD6LUUv C7B5u7Lu8T8kv1G1KQ63mtG7udCzw+cjE3tq9fuQqTaVxgruCtw0XY58k1w7 6baCdb+ZsJUjVUkzjs27wSo/mTtyEXP9We29B8BUCdk33qjx3PGIo1JgLZf1 CinYc3TPezU5cEQl33IRlrfZtN1QDSxdeiuyDFPW/ja21iZ++mhnPsbBI4ke RmQfrZJ/ochpV/t4qBnpP/83owrJ5BftS7UBnx+0f1CDFuWeW5Y5g+33ULgr Vt8HvHPavMC583frUtDdy3fmPgSBBb6HaUZjye/6/81Gg4dExCKL8Zybkj1d CljYwF+nGueyHargygUvWj7qq8RWcTzLQuWk30hzQQreL0Ynd7Qe3Fx92bwE TVV/eaDWAfZWCJysQ2marxsN+sClLEOna9GNj3id9Qg5D6f10SIkdCtN3eMr mNLUXGyIxpaDAkJ/Ejv/8ijACf6OPSkUjlUznpnNoWHj7Saby1jAs9q/5Wrx 9mwN3TYu8Plt30TK8MAJ6egP28HWz0RrglHUy52DM8Jg6cDkkRqka7B+J91h cNS5J/r1iHt6/irXCXCp08xAJXrlNJgidJLkf/s5H4eCNzRPSp8BD33+GZ6O z8Tk7VfTBxsHeztjzLY/+paBCcl3V9xfhzsqPPNv3QJnm6qu7uunZrXgfh9M YRmgpWPV9xekQx+Q/V7a3SpEzBZyjilPwCOXTGZoqPGPCC4NBx8Xcf1agTwf c61piwezDR09nYrkeZcVPmSAaa7H+55hSvrnRzNF4D4pfZ8SjI92t6yhgb89 9DhAw04t5Ru4WsGLF7tMqvGxi0maQq/A+9mcRgrwn4knwdKD5DzVp5ZtUKn9 vdeqE2D+m2+Ss5Ed82UegznwNUm6Vy+QZISq/q0lcG71LWNPNLdXMtadkXPV AwySNgk4t2TbcAgbmEp/YyAPW51kEkzhBfv+tPxQiA+8nb1eKgg2zZvuzsNf r7970XoQLOnG9TYJp/+s+zogDc41r6R4YtNHWYdm5MFi7w4UhGAh7vA7a06D X0zKxObgsWS3Is4L4Lg6+dulOOE/88U9l1dNy0rbxleBjRvOHZO2WLVbxhiD cTHern3CRfUu5MsU+iun4IExoZpLruCuI/t2+KIoWzb6Wz7gQOVXp3OQLv0f ZfcQqO/5+L0yD20JHfUJeQZxih7rKSPMI1rkuZgCVk8RuRmPeWsfuRrkgiuT pn1fYP6Lug61ZWB6zh+r87bP7ru7tw4s/MPNIBALeP295dcO9v63xB+Jdm1/ af79NTgt7yBXLhIsijXR+QgeX0RxBWiPurVxxQRYIKj1cwISGpXTF5gD31F6 I5qHhR04dR7+BaeraojQsAj7J60peq5Vt9wzu0nD+9OK1TRZwQM1hqlF+KCs t3LhFvDQ8azqx1jszUW5rTvBFA1J/xwkcVP0uIsIuPBFfE0FOkz/78joYbBl WzNdCZKM7hBXOQF2s9zYm4mPSMTtz1IGeyu/zG7H0i2393JogWMZDIw6sYyx wq57F8EocYttPT7+i2vbwBWwMbfPf08w8h/fImcJtn60e7IGUfeUcqTcBS+e 6L7fieQqfTaudwUPKu6Z6UDy5/SZrb3JPE6HwWykOLV/7esgcATvvZRKrOy+ /O9oNLj0WsrjeqzC07UYmwTmQsmTNKyaE/9jbTY4ty/6TgZWV7b5ZloCZqPo NKUgjQ+Kky9pYPU9YpdpSNOWe0yiFcwv3XalHmmtnxgM7wULu9TQl6GzCWX9 SwNg+9aOb1X4/FHfV5fHyfXOv1u6+vu+61Jn4wy4cg+DbyfWvXGwVfQ3mef5 7TwN6y2v1AfSbYbryWOWm4guPe2uXlgPFrgm0tiMDPYnluttBqursvd0I8M6 26Lq7eC0fUpvXyJjPeVcQWEwRVjBwQBf+b4lw0ccLKl5PKoGX/OeTP4mA25m wKL1+PqOirhzimDjb4HlZdi02C+69DSZn6x60BqbnzYM23aB+IPZ3VJkMXYo yMMYvKT0r78eWTqu8ftsRvZbsNnagKw4eh+p24DjJL0X8pD1iyT3PCcw9XGC cwm+Q7Vz4n4Etk/XUq7Ftm9P3nMMAAvr+6hWYDurrXeGIsg+y3RCEdie4Yul UgJ4SFG6Pw/dj6m8kZ4BVnSIpq9FDof9r2wqIv51PrUeObUaGdhiss/fqfgK 5HJZXLe/iVyP5/8Ju2O3RbpzqJucZ/Hs5TDsEfDqdOI7Ei9R3myDPYVSVJjH yL4VZolh6FHVPYWb08S4GKUgr/OnUM9PMM1i158XiLewg5duDTec94BqexLK 5jz/S3w9mGZ0pC8Yydv0917eDKZsWvlwG73pMcwN2gF2U4u+m4nMJcb8avaB qVut/itC/4LMzL4fBmt5eTQVoMDv35R2IhJvqGJPRoJnbHedUSH9XA9/8cKl ub+X3c6SfnNKzplYnc31fe4lsED1BYkMPHSLvnToOtnH1nQ8G9l0+oSy3SYW lnNpRIyHNt2mOoInHtm1NKEo/9DT1g/Jefr0FyrRwW9bReICyLy//TlOuPb0 c8auSHBgkJQADetkCY6uJIKlj3eqNeGpDenVh7LJ/hLGAWXYxfJQjFEpmLnD YVctYm8vtA+oBfsFaF3sQkmiMtrV7SSf1lrWjqR9q8Vn3pD9Z4LHSlD7lCLr jmHwbAmTUSE2Vm2d0vhC4v8xObfj+ReaTS4L4C48xtiFvda9TsxeIddrOdAt F/Oa6bkNrtsC8fvp820ou/njJVYuMPN11fW9SF7Y5CjaDp4VM//Qht54TW22 Ega7HfcrSELmn2/NPZMAW+/gvluP/ykvdLw8DhaMNJnrwYEpDhn/lMH1XY0S 3ViQkeJ94AyYopmSE4lKTR5eM9AHs1loR3ci9QYWuScmYIEC/qfdaEgwcFvV LbBwqcTLemTjufnP1/tgmugYayRmHIt6w+8JluZ/MNyKoxQECtT9wWI3TNN6 8cHE5ACnCPDEvfxfbbiWTtQyM4HEl/ZMFiGdK7kqA5ngxcHx6nY0WfPfng0l 5Dx8lN5W5LSzYs3xGuLk2B0liM2dOmjRRvbnGGUvwElDDeXRr4mr1oy0YWmq WnjbR5J/gu5bF25/3mXzdxKse5itb/X9bEVbS3QeHPj06XgJmjd8v19/GVzK eIGpHnlh43W+zDzweSvIcVYj3u3jn8o5wDSBinuRKNvZonaKH2yd9VSoBMt/ mI3l3Qs2tXsW3IjfHLdzVBXnIc/b5D+N2Dzm7wWHY2BjLnQlGf/76yaZrgSO 2/q+MRMF6jOyv9MEU9oa/uQhwQrf6XV6JP/7THkSKuVlbz16jcR/GPX6YnWH sBQzKzC17cPq+8lQP9+DSHviKEGFcmxzNN6oxYPkRw/2FmHVONZ5NT9irese qngXk5N3x1Pi/TO0O/j3zUn+M8+Jb7X2eOCuVzp5vWlgt4jFGT+cdqxeSSef xJd83gZj1wTxd30VZJ6ALvUp1ln33Eq/gcTrloxC8UHrDWsHO4jNPXf6Y4a3 98ON+4jDfWXvrL7/fhYdHSb1z0/dTsGFSedpJl/AueMicXnYd33t+Yl5Mv8p Z08OvnLn0KT5Mqn/HngnHsv0xzhPM20Ft3szWyF2KguHNTtY4GKAcSKaSLmX MsdLbLr3Rgaq3vhJ5q4g2K1FQTcehdme7fx1gMSj5C+lYqv31VcdpEhcWkK4 HCvJH1hcohKX7/1XhvlfRPm5qpJ8gccj2Xh+E/NOuvNk/kS4/2XUZne3yNOA 5JsYX8xFCR9GTjHdAHeFpIeVofuKWoM+1uBcyT07i5BWRtWdDQ4k34ImFIyF OUSZAh6QfoJ7uCvwin1ENPsTMG1toFQ1fvORQSw0DGx94GdwEc5WtqnnjiP1 1+f8n+CHWUO6kS/AQ/k8MznoEpfGNF8BONAtix6jw44V7rGVpH5mDR9GLCPC 3DsbwdQz/0Ki0YhKWHpiJ/E738UiXJazVlaon/TXH/yNcSD37d60EVJfIfKx FJs6D94Q/Ur2myx1iseyY2pLWQskf077SQriVisLFFsh+YvZyxVoOk9oTwEz L9wfRsvBNFTPE1r2HwfYWDjyah6KcV2jUcoHjtvNo5yBbcatRmT2gAU8Rqjl WPX0gF3VQbAbl7hnKd5VeGo9VRo8lG1amoZ/85Y8r5UDUydQXijqcheUVFID ByqHTxeh1Img5qbz4K7FuHiMXDRXLqkagnM3iYwWI51iy+/tN8C0Bx0JofjA tncPNW+TeV19jAWY3vMkb48D2e9sxkohHpgqzD7vSeYx/2DKwAVndim8fQKm LPKKy+HHpQFvL4aTfPcj3zOR4swfB6tREtdRjItF91VCRWq+kv3S+qZyUXb8 gXecP8n1OJUWXIBG/zT6XF8h519jeDMR8Zw3PlrGzAfzrrSEBePTWb8n1nOA 45h9vidgD8aQCEM+MOXXikYiLjHar5InCKbN3DUIw19LG36tPUjixx6230U7 OYxSdaRI/fy29nikY7Go84JK8n1nH2Yg3/ogxqVTJP610z0V0baJFmucI/WB V3ku4gW7epP4S8T/JfsEYJEug83zJqT+GvVgODbc96te+RbZ94+CbigO8Qi0 jbQn+SOz2c64+f0+wa/uYLeD3ZleaEmyrhf5knybCr5YJO5/6UFQKMmX9FJI QNc/L0iMPSP9p0xLAlE0NWDkSCqJT6SpGqOuSOFgn1zirvUbb2KGHzVyA2XE 5rsnH2EZdf3vB+uI6VXX++NbyfNx7u1kvkuQ/yOctPxE69VrEh8SFaLi/gt7 KXs/Ess9v+mLWPNoOfcnSH7Vbs8IpMCiZ9T+nVj7Z+tTZH/1B+uOvyT/VqSK F8qq9MO36fnh80speJSKRjYLWdVvBMdpj6xJRVtuVW/bsgVMG5DNi0Dqzbov zQTAFF6hAivsvnPOqXIfmGrK4v8MFzv47t90mPRTbqhIwV96BQcuHyfxwMmW VCxwAPsWKhEPX139faf96MIxJk3Sn7/NxAM//jg7dVEXbNzgzB6GqqUfR2Ve JvlnzwjEoPmg3aor5uAhesepQLTvS+XvM7ZkH4pUnQY2VNR5keRM8pn9XgTh kGczur8ekX4bG9hicPNPb2bVQGLLTxXP8D/NXaUxkWT+U4OhMCzxouLGTALx N71nnvgGnfYW+UzSX9eF+wGK0f/WGFpE6jelKjxD3YVedp8x2SdGmTkKMbLu FJJpJvN3Zw08RMdulL/26yb1U89NnbE17dzDj+/AbpaeDmE4eeu0pMQYiduv MYvF7+48GvOcJv0H/+k/w5vad4S+/Um87nllCFbcU6YgQtkG9TvHr1rj+y5n fzitA9Nuamg8wNlvvyR0coCHaHnrQ/Co2MOzu/jBAktFAWGY5/F2urt7wFS+ j2whWH20JK/pIOmX6ePvgd2Pn7nMK028n+PgbaRiGDsnJQ827rC/GIxY3b48 0FYHx/2iKEeg1/HSm210SP6fgFhvFFP3MCXQmHjd3UgXfPVTj1S2ObG14eTq /cck0NJmS/b9c6wwCH8Xvqk36UL2ub9mxgeXqpZ/YfQBU/qntlvgWd3ddj/6 Sb5s+cmHuMTBmol9jOSnzzR7IpeYqoiD38h+55XropESZhFRXwSL+XGaxaMN QxcqzOi2Q/65nxciUe+aZHWvDWAKHuayx1G75z4kcYONnSltMdhYSfZWrQA4 rlJBNQbvveFHGRIh+VrbbJ7gb979Qf8kic3mM81QYbrQbj5ZUn/9S3Awcmy3 KZQ+BXZbU2cZheS/0ZR0zpH8P1abItA6Nta3NgZgmqeh7yPUJa5vGnQDLHD5 o1oIDj+X9jv7NnhooC45HhveXXjc7kj2YY2MiMB7wuX5px6SfhmTG0xXn5cB WUyBJH/+WEAQKng3gPZEkfmtygbPkMPSvi75JBJ/W7v7GZLbfu+ycTYxt93l YMRMrZ9zLiX9XCJFb6KOy+ye0bXg4zpXmfLx0weGm8vayb76ev2l+FJyRsqb N2Dd2hqTPLyraVFqfojUu12z8MWTE0ot7F/AKml6S8kolyVE79ACeD82DShC 9/YPfVFfAWsxcHaXIaRxwNl83Q4qfL/sPlaCGKwdWL05wWKp2wOyUXtQ0/Pk beDcG5g/DIUUcInX7QVTM5tirLHe68u1Q+Jgt990XrZo56/sc8vHwN7jR46k oQmepTE+ZfAE60f9EpQjc8ruqBbYdMOcexWyuxTGdEEPTK9jlFCBjruMRthe I/0Fd3jmobVxYiLBVmCKwktZR9Ra41yRYw/W6nXozMSBo63qLz3A74rfOxbj Cww8g1N+pH+UjHkK3r7X5BZzOJj2QSzNGn1SyacIxZPzNDjoRqFM85UghQww 1wk/lxRk46e++3IRuCv707lkJJMdWehSTeoFT8/5I8W3Hf++NYOlJXbSwrEG hf6kUQ/44L1Z90ysu+9oYOd7cK9l7NEMfPWsVb/sJ5L/6XnNc2TlmLgr99uq 3awZFt7VIvukPguBRYhfExGdbEY144/0mikCVAp153lvtUak7LjT1Y1h1RTU EHOkDLVtqkyUZgEbB7zPdMdaSTrNs6zgwu7daZX4jfT3r2mc4OkR180NWP+l L/tlHjDf5je9FXjostCRrdvAfolTTyrR9Z80ve6dYEblCd1u9OWxvquPENih q2GhB1nv+JkoJwrOfu9xog0tFAQ2/z4EFp7Qx1nIQUV0Ok9SgDwPim9jTPnQ wG5+dNVugeJSzl344W3jI7sQxBsXm9V7MAvjX7138uD5vZkNq++LUU9dg0+C 9bLvrWtEmw+JJamqg0sX5UJ7UVRdazPdGXDnxG79XrRD12S6XBvMthDY04yS vq6w2+iBc3VfMUcgEfeoI6JG4JF9twfqcM7m//RHr4J97ewbu7FkeqdrtCk4 /o2hQjcuR+ZJ526S87zXHEjFsr30LevvgJ04O3r6kOjdwn2b7QSo////M/4P 0DNduQ== "]], LineBox[CompressedData[" 1:eJwl1mc41l0YAHBvKRRSyKgkCUnSIEmHIkUykhlR2WQTMh5bdvbO3vLY+3jM 7JmVmUqopMgqep3Tl7p+132fe5zzv3Disfk9vV1kZGT2O/+g/+MP1m2wfGQX X+VdkOpLmIY37h/TpJhjFycjW9Ju398H38yVE+q+Is/9qCJ2AVnne+nPfiCP KBvSvAP9B7+1nVtFZue/rjAEVDN8Fj9vIitISFE1gnERDvqkv7ge1ZPlKvi4 p+ayGvmJHZNZ1J4bhJ+fqGrSUSEr0Bd+HYem6z8IrTTI7IYPrUahiKX+4dlD yBbJf3kLIeXCu9zdzMjiPEcNeuDQY/nrJ44hjxhtvO2F6WONQ4ADx02piJXQ 5r6wqSY3sr0muQQJ3OjK+8+RD/cTinzZD+ikTkRFnUcmLmRY9oBJGMFXKoQc 0rBHvQLkXd7X0H8VeVpbmNAJHIkuqkviyL7XzhWSwO3Ty19ppJAJPomKOfBw ioH7mTt4fqXkiXb4kXWcSVoBeYnu/n+9sChMIV9fGVknOdK8AhKom294aiAb wjH6TijvdWUkWRvHFa07+iHbdv7TOl3kimWZ4Sb41Y5j94QRMp17dx0RVH2P jN40w/tsRnb0Al/D/fzMNshJEgHdfUDlvWujoAO+bymFHBfIqbGipuSCTGrx +5oPf/YbLlp44PtitGAuhqQ7Ex5Bvnj+gEyeLBjUpMiSF4j3k9OU8gKa11pe t4XiekXOWwWAt0xE8nMUzt9a5coBG/wFo+QJOJ76yb4JtmaeNOdIQW51vniv D0ayR5OLZ+L3vCr+3xuoG0Mdq5WH56lmCIsAFw65nXteiPcPX53pAGT+v5qi y5Cjx7gi+kD3bmONsmpcf+mTbDKId5r8PkDC9XmXfRuhya97Xj+akdX0WF82 QxGzN6wHOvB9Ebz8iiDl56tEvl78Ho1f3IvAkDbxpswg3j+P6f4bkDbCOWbw DscDpCsagZVijIXXFHLvypp4ORRvp9mb+hFZgEbtfAeklXCPI83jechW5Zrg RPWqwOQitri7vR7Mu2TS8nsZn084f6IZOOZPPWDZwO9p5KPQDW5z3f8htI3v 98B4dhk4/KrV+/5uDvQ9jjywqIYfma4dtaJE7q1WPlsPi0IKC4NpkMWn3ZSI kEDFdSv/ELKOnFV8DpB3jx1vZ0LO2rT42ADYftNazR3F8Yt9fg3gq7UHxV4O ZNLoQEgkrPq6Fn+SG9ff85ylEvrqmV64zoddSj9SAlUmp988PI9M1jcd6gw5 VZW1nISQLShkXUvAz562nzFXkX0rVG6SAOk28C0Xx/P9NfUpAkH1RccGb+J+ wqJRkVBThLv4pwwy+2RIdRLkLY67TaeATLB2lAqEG2foJs8q4/NAriQMrCaw ul3UwHFWtc0ssHLgFOcVbXye9tiZXPDD7dwboIvno7r6+TlYXL5iLGmE86Nk i7zAFz1JGhkzHAfDnwLA3LAcUd4a29blhx/4JK2upGyP83UnNT3BTPWTVQ1n HP8zc94eTJ01i9Fxxw7YXH8Exl/Zi+r7YBs/Sw4Bowc9pkwCkJPWDdkLwJBH oLvlS2SFXM2LRDDwK+rUs0gcDzjXnQJ6DVJaneLwebVdJeawazTPxD0J72NI TZsO2++U0/qm47hwOUMefFNbXxiYg+fLtb4QCZvOdd4PK0AOiW9gJYL65KG1 6BJs9ie1ZQDSv49NrPx33vnUa1Dt9eVaGsTePedvCSvWfk1nN+Lv65RCTREs NSLzLGjF7zlG6VoLi8b2cZd2YVcuppXDgruM7VX9+Dyb2fEnIK/u+FPSMJ7H y+7JC5B9npeuZRxbTF87CGSkXirueI/zxaZLbUAqo5hK3yyOf6v+HASTfKQ3 hr7g943ctzcVJmwoxY8v4e9TGzplwliTh2Izv3A8YN4yDEZNGM583sTnKXc/ 8gLh8tZe3/7i+MVP4hHgZb0zzzL5SfR9yYywhYKgi74d61TIZDpMxBPQPz3U bJsWmUCueS0O+jIlHCRnQJ52+PUiC3q9yCyhYkEWV07uSYfuvwtVD7BhP+W0 DIGuT2s2GU4is8czUmVDp6mWBFYeZJ1w6a4U6KDYJ85+Fveb73/kDO0axz6c uoDn+V5jHA6sBWe9z1zG+UO9VUnAInPp9HlRnH9CJCsOmLH87hS6jv3ei9oJ mPjvsRCVwvM+OhEVCw23DtDfuIPjU08M4qC+OWvZLQUc/83D4Q6fvOdUv6uM 47XLJA+go3Tuzz0N7By596FAq/nKKzVtnC92sCkIaFyWvPFQF8dLtfitgWq2 3KcnRv/iveKB8P4RdV8jM7x/NKNCBlQMfHLG3Brnd0esvYJyf59229hjl1lP GcE7lvaWjs44P0E6ORLc/uDOQHDH8RJyzmRwUzmw3MsHu8ZxMQ7ceBOl4R+A Pch80RmIXUnZCnn5r770hxgompuXFBmJ6338cyAOjrHnvroZh+dTUrbwhI6R 2Ykrr/7dl0WBG2CmzkpITcPxl3fGw0G5W0b8vWwc5zOdiwAqa2lx/73GTswu 8QMrpqmxxCJsAZ29WiBsJjlGuxx7sSghHl5QS4qmrcH92TWpXsG+rsSoWhKu X67yzR9aSCREmjb/e7+rmc7gQGVcxJF2/N7nFocjwWv+2PD2bnyes349FtxN iw5zGPiXz3MnDHxliQrlGcF2u2VpAfyCI14OjyOH1Ny2r4Sn94SHeL9HXl/b JmuErY6hwYKzyPZq88kkqL8UEvRxAc8j52xfBPfoBweGfcf11n+fUQRpY4EB N1aQiWWSvwqBhGKA/4915N6lc6UQzLT4+SVtIS8JsI3XAzfRFy/kd3GiuGfA rTrAXuTju70XeSmOcefvizpub5/8/chkBp+OxcGHCZ7emnTIdJee85bAP4c8 vPYzIof8WjtdAuN83TyrWJAJx+ZKs6DItquHERs+r3Fh3QaOWLu4M5/E8Ruc Oz8Pn807ub3hxvWqeYQKwWHt5wQ7PmSdpASfElD61sH11HlkgWeZdUXgvoy9 y1tBXO+tlm0WWK6zc/YQwQ7iUXcHoYK2ThfEkEkPgi7nwvO51s/fS+D9NNPO FcFedivHkNvI0xqJKbnQLNLCQewunufzgakwSENtbr+oiCxO8epaGMhze/os QQU5KVi3JhvIrJnYyT7A9ffctykE86bGtr+18bzPHpYWAt8ZQ5scXVyvJ+1u LuBWM7BWN8LzjRZWRIOWLj0rSjPsQPsse6gnoWtZbvVv/snX7pC88rGF/jNs 0qsYbZDK/8ic0Qm7Dk6FgBtp2mZNBNzf07klDkyzPHxq7YX7RV/VTwSuwZqm HH54/miOmijAtueBSV8QPh+qttsT1DiqGxPCsOXTLGzhgyVVo3PR+HwwRYA/ 3NRTMZyMx/GJoWOmMGbsvkFgMrb5FzNjIKyopC+agf286HUgGG5R1PuSg/tx r72OBXaiCrqxBfg+gIpZEmAsknsiXYLzjelUE0EJ993H6xW4n++p9VBwL+HO o8xaHOfIYFYFPw7J6Kg04Pc5s1oXAkdMOXqN3yCzc9bHxkFSy6aYayfu57jn QxDMYh8oCOvD73OJxi0WhDjmHs8a+ucwjTxg/9YjuGYMOfpI9Ssi0OHX/Ns7 jeO2r47ngdu+l8w/fcL9l0MSE4DADPXUxgKe70nwFUfILPpJjnYJ3/dExfl0 SBZZCzl+4e9xdegGEc59j+C/vInnEf1mng97pM0S7/zF58X4ztrBslQpWh3y Uzu2YOA6ng8St9hcbKiQb0PDy6XAW3Xtmy/tKfzzJW1PCTAr7NFKoEcmtos2 ZAOV/VldhczIpOUv5m4A6BGutRxD1ulscEyBXHVq+e84cH0+Gs4iSMNy/th3 buQs6azFErhiRRW4+yzyEkHIIheOd77/w3QBOemWVfEr0MRVZcp3GfcrBLcr QR4hdFxcFM9jY25cA8LfGcsqX0e2t6Y0LgVOlyRqjKSQp8PutiYB3aAjfC53 cD2xW/Kx8M7cclyoAt5P8IBXMbxwo3N/pjIy82hzShVkjU97Xq2B3Lsu8bAC 7lp1+tKjjfvfu72cAhfklR981EVez+nnLwL92Wc71o2Q1Z69Z4SgavfeqzTm eD/t7cIqkKI1mXPCBpksXiY8D7woL2MVcsCetL3tAC0OBvvJuCBX/NA7S4Rq JgabDz1wfdPo3Eoo3ixmbO2LTGc7c6Ua8hxnfucTiBxNfuJIMaRzWJKOD8X1 +O+YGML1/tZKYhS+j9B6ugowzZd8ujkeWaHEZbIKtHo7xIwmI/OcrQ4jAuK0 ItViBr7PzJ4ICxAtwuuwKw9ZIMVRJhcSwnfNHy7E71ebLlQODRbfqZ0pw+91 S0SnEsrdLm4Vq0amHH/6pRgKpfgL3yfhfQ6tZCRDtj9Psgyb8fewNmmeCPaq iDI7t+N+s6cZC8BiAYPvyx4839vRykQwRPVtLf0tfi+zhNeRED5pNqgaRdb1 eEZTCDNqE4a7J3F/FonVUhjEZHfrwwfk1iWezSJoZylXvjaH+8OxhlT4sIOL m3oR34+aHaMsuHnqbyT7Mp5HXpLdG/C5Du8VXMfzOMcFm0OG0QI76S18P+bv G7Lhnwu+s1q7uHYsfDdtrgp+DNBRsaJA1lMXlaqHZgt8HALUyAGjSr/q4Nqt jW/f6JBFOeJTiyEhvbkylxGZzC2b6gnctzvUy4gVOXLXfE8RCNd5qMh9HHl6 +GpbDTgGeY99Oom8d9+bPUSQcWRtLoUHefWaZVwxFHBoLNE5u2NCy7R/Tyus GgomsF1AFlz02u6FEpc0ZceFdpwkM9Fg0gc7X/Iwx15F8WfEyL52qPJ95YOq OLKf1um8MjgtW1/AeBPV9wyYeEwExjmBzwek0fk6yUCVdrBCoXHrpdyOpxdy zvX2AWc9Lnp5pR2TfOmue7eDvY0/J6nV0HkB0wevk0EIe11OuyayrUdqRjVg dfG3832E3Pri6fvSnd//qjek9JEtRp3WYgD/FU5achPk21G6jq9geeTSaL05 svhgEikfiq/UpLvaYGsP7fx92674wvKaA7LCgeROX3i/QPnab2d8P19nunrg BDUHVaU7cmr7efJhqG+8+NbOB99v7hv7Prj0pirpUgAypUrYNBE6nvIx/RmC rMt91KUZ7PZQEiZGIBvPeOu9BQHTx8nNYpHNnKRf94LD4GvPmVf4vQWidu4v Ka4ibj4VmbRAvtwHT294GmRmIZ/J+fmgDxapKF7Uy0duyoVpdVC05NhfjiLk ud2inaWg5eBC+3QZ8s+kwIleoGBeFplYjaxxRy16ALzrdH+sSULmKW88VQGe 8MrzszYj91KxXm+DX32ObA63IZNPbCr3QbtPn5sjunH9ZO74VkgmUfJSaQCZ 4JmvEgv9kghaB0eQxzN48hoBw7bs6Z5x5PXI8p39Eh6w/Ap4j9+nazq5DXBV fiLJzCLr1HPkN0Di4aIAyi/Isv/9jB+FIjYuai3fkWn79BeGYGOfDKfnCq5X InG0HsqeY1q6voGcxCzn3wiGAj5U/93C73c0mWIE6CwU+NTu4t7xvr3uH0bB /C0npecUyBVar1iqgVX67eNXqJE1vyUrdsE/uxi/rNIh38/3Ze2H3jrvy0oY kW//OqrTDA/AfHcrVmSSzCnbBBB9xFFO4DjyXG+4bwfgcJBiXTyJzF6hYjsA 8oYOzebyIBP33B9tB0KXpgqNzmKfUAurhqSXuc7cF5CFbfjUe6H092fSn4SQ LYRrEtvg0fNs3pSiuN/AuGEEXLRqajhzHdlw75JYC6gvMf4rJ4Use3aWpR+E r9KJWt1BztL1r+oA+sLl9hEK+HyYXXQyvOKoVVqhjPv3rymXQuqa3T/HNHD8 Vop6Mpzcyub/q42s47wvIBMQxRRMOPSQl/KmBKuBh9tq5k1jZMJublgLVBrj Pxqa4/yHj/KIgGePxIkAGxz32X82BGxKzWsVOCAnjdDNEUGXb3Bsvwsyncnk pQqQ1C44/MsDWaCH3b8EWFGP07O8wOdZPDfjgKScu4JoED5v1iqfDJlCeAK1 w/7VP6iXCRf6utvco3H/BaX9ENTQ2+7NSMD3f6PIuRcEKR+RaEtBZh5ZcukC j6LqXb9m4n3tlU6XgkujBjUH8vF9TBU0VMO9R2g3LhTheJLKwW44olkiqFKO vP7Q43QTzE3UsHKowe/TKlzQAVymyQri65EV1ElDI0CBI/NLXQv+XnS1zg8A Dt27PB868PxToRHZ4Ff6su7ePmTfK4aRXbD1c0zy6SFkyqVDWiMw9rT4pOzY v/3Dqdqhqcksq8U07kd7SW4AiOUHqIZ9QiZnb+ucAIe+XwgvW0Buukym9hZ8 FBjtHf2OTMa5P9QWllm50mytIJfw9nsPwhclp2TYN5F7f876TkLN1Q5vib/I PE69T9sgv7BVoz45D9qnw//6ICBzZCbzo0JeWVmlmgAD1VA0nxZZsjo/oA9k bOk69NIjTwfNqhZAe7H9ZcvMyOLvghVH4B23wp+H2ZB9a159nIRsjarnRE4i s4v9MWyAS+TbJlo8yK3N9IEDoFEqLYtwFlmN68raMIj0lfmUegGZFLXC1AYM 25dOvLmMTDde5VsJr1JHPVwQRTZV+3lsGNLKXYujuYEc3bsn/h2cDv4wLHAL 57v/ZS+CxX0vGO7L4vk6b7p1Am96AcVnisgEUrJzD1BTHgqMVUFeSkje+XuG N8qpvfYB3i8QylbDrREOivc6yJ0pkl/7YC9rmwS5Po7PrlX0wxRNcwK3Ca4n Fk7uBm0SGWtlLJDJbgXPVoNb09UbT22RibS0zDu/vzgeC710xPN4903Ggq9P KK1LXPG+47afS+BiomRtnSc+7zQa0wS/jxIoOl7g/LllYiNcYqhVHArCce3R WDf4U34j7n0Y8og2GW8LXPYTnP0ajfvFe12EcKXZUmA9AecrFT9MAatkrx13 p+L7T5xMawZrVxeaaLPwfU1PzjWBdTuuA6z5eL8xpzsZYLPwsfqpInw/pzJE qsDvr4mpAuV4nu/BdBngD/fYt6s1yEkXLzrmw+3HTMK36vH3ZLbaVQf/Jii5 32vB9zOnbl8KyUaDO7U6cL6rxHQl3MXQedioF+c/sOlrgOTylI9sBnF987K/ uXCPn2Su6zscD9SJKQF7mwm//KaQ1wP92JoAJVmtWORH5BBqjUeFYN/VjRfJ 83jfEJsnSmC/neDbvEXs7iAxa0hdaMlWsYx9mHnGDdJ+zTdsXMemj75sD+m4 F4q6t7CzzO7LgoOPubZGd51GJp20FQWHEh7f+kSBLK75w7IEMowkvlyiRmYn 8okUQkb6sbHfB3G+fUC4ODgsx8RFwYRM/NQkXASYXyhZHDqKnNRKfqIUsDQF Vx07gfMdUsv9IOvfDvLTXMgEhYmmTHhUhFL+0hnsTe7WJHjMVjJGTAB7vZjM DbARCR9kBPE8QmnzmYD9S81ZFRHk6aPUSungBNfGs0diuL4di1UC5Hgk2GAq iee9OfQoB3LGW1LbS+N46I1HsZBrOF/FQw6ZdFDfJwpwH1pIClLC+ewPW/MB z12uLzFquL93kXcS4PV9LJiuhc+/oK6Jh3yNia7Ex3i/yvaUFHh2+11btQGO R6bSvoD8V5gY3phizyT2xQABG6WH/Za4/mqwSya4UBCcNWGH40yvBd3BxYWO n3PPkekollQr4KVTlNdWCHjf4YzSaiikI+nz1wv3y1AqzIaX4wh9+/yxSS3X 04HwUM2RwyF4H9pdxhCIHNzQOxGBrMPxw68OXJUVJPLF4n5WAwFGUNTHcvPy K3x/iqYTqRA05EtKpOHzajbj6VBsaz5ILhvbPVAsFIoLc42qv8bztKkXRoEb 1o9P6hXj+iE5KflA4nXiU4sKvN8Iw2oukJx/V/68Ft9f8LyQF5TiZNrl04Dj uZb70+D841tZV9/g/gxVZakwIPmZ3FIHzm+VKQuCAtOZK2m9/76vQqcIMMA2 Eqs+iM9/eD2WA+y0KK/TvsP7x9qk5gHWeOHPDZM437fMSA3UvjMMfPYBO2ue XhfqsMRc5JvD9eVFPAlwt1rb6PRXHJemJxFgRuSGa8SPf9//8f0cUHrwNJfM Ks7/XCnmB77Sa3Rub+L4SemTkSD4np9V8V9sxz82PuDCyypmQ3Je5NkPkg5g qGcBHqXCNjZONwMOtEf0+miww4OCdODRu3f2ex/C5gXXzSHJ/3mhCBM2kSJG GDxpz1X9fgSbe5zFBeylGt9KZceWKP7iBrJvUaepnUIm2DJlugNZb1EZGl5k cev1zZfge5PpUj0/jkvyG3mC0N0JkXYX8XlPg477UPBGl+gZYRyX+WHkBkcI WzNTov/c+Z87dKo7+yL8Os4Hoy7m8Pi21jlpKWyyPva9oEE0aHBLBpn0RfVv BNB/Dp8XyeP4ZoVWKKCqWjxhcB9bpzPfEuSts7UeUcf1Z+fI3aH8ZXmzXi3s Wvv1IPjT1pXB6zHON7gz+gJGlhRUXTHAZmW3NoVXlqd0Fk3wfgZ7qcLB+Hk6 ilQL3F9sIjcKECzE81Vtcb2GthgvcLLAQona8d++zzbtYMu3pA2SC45HUQu+ hEZ8fa9sPXC9k5HToZDa5D8pXt9/866zecKC7PNfJwOQ2alHatPAvblHoWEv kekCTjBUgV9cocK3I5GJxn2DlSBar2HyTyyO77baRwSiaT89C1/hekW6bG5g aobjjH4arqdpU5cB3U8o9bFmI1vcH1kugVw6Hs968nH+64Nb5bAtsfiYZxFy 73/6PUXQdOJDo3A53ldypjgUHjjKYPytGvf7+JWXCIo0JOlSSNgj8x5lQDnG pkylGedTf8sqBOvDaZr727E/v0mMA3GHB3eRunG/zBXNCAiU92TbDCDruOay FcCZMEH50yPICmQtbKXQq1/v18Q4nn/m8M0SyHMwMi70PXJSm6FEFuyUb7l+ axbfL325uS8wD1r9/HsBx7es+LLAoS6uIOJ3HBcMnckA298F0ttX8P1zDquF gYVDV2s+buA4yZosEA4J3hzY3sb96XmV0mGDmvwCM/kZVG9sQTwPvn6u/t9F KmSBpsbNbBib+IT5Li0yaSZXPgF61z89Z0B/Br8nEQoC64/PpNyYsY9WHrOH OhTuWnHHcL70CmUYlOUNsCnlQNYR/6WUAIXvRvr3cCOzJ6QnvIKcFkkp83y4 /7x5WDSkC8up3H0BmaD429ML/ikt6T12GddvuctoCuZG4OfLotjtWwQCePu7 dVvxOq4XkfI4EZLYBhhNpZCnU1j6S2He9Qk+7zvIlKuxVyphtO5niSQFZLpB r9Vi6OXzQ6NKGc9nL/E+GVrl/LZ8q4HP072fCwEPu/a8WNTGceer7q+BzNKB JEo9ZF/K6qvFQIietZzDGM9PLa+VDjiEOLtFzZENz3AmlUNadf5PKjbIzM8u 976Bm8+F/1g4IPModWa8gbOJN+j9XZDtzzbqQthfL8ub7oH7D65Uh0H4UeV6 nS9ydFVKTwnIoXikNhqI3Jk8eKkRRPGamC+HIusy6OY3As+7tt400Xg/bjqh 18DCwjWBOwE5hD+o9Q3UDHtRcj0FmRj8+9wAvF0W1vEgE7/3Prb9ffDSaMKM bR5yxbg4dQNk/5O5EVyILL40GBYJqI8X0eWUIb9dFBlvBuvXa7ibqpFbOec1 esFH3RYwSUJ2qhvS7gK9Pr3K6834fabID2aDmpx3poc68H183vu9H2Z3ffTg 60U2vqY0MQojlxZjpQaRb+efTH4L3ek3CnXeIVNPH/9CgmZCu9scp3C//bZM 5UBDnWY6/CNybINyRB+QcmJaez2P94k7NT8ELrw6Qdu2iPtNXePqB2wNZ059 WMbfT3+HrQHY90lQdGsdedZWkGUUrlKIKzFt43w9y7YJOMMrY3x+Nx+6X/Vb ZIOw++59tzuUyBYUoWqlsNriYbQeDfIfqvDIFpAVZljgegh5u6unaBiEl1m1 xDAhu225WY4BwqjTRPFR5COXMz72A9M/3itdJ5BLqOWmyqDa8Zf757iQu74/ PzIGJW/EceziQ86Ov7M1BgX00q8cPY+sSdHt1AuP+hYoCAkhkw3a+lqBnNf5 jRsiyMZ720u7gfBgrlCtGDIDa3T2KGj5nZ1NkES+LZtCNg7uc2QdlZRG5iw1 onkLZm5nBFPIIYuPPh92ABbmabs67iED1fmb/XA7IsU2SBWZvNjX6y0MqEma U9RElvIsKWuDrB8SHzA+QqZziZh9AbOoErpH9JAvEWjkW4CQQNz1eOMdE8h/ 8mUNgCaVmBJtc+RzYZNmQ+CecxT3SZsdkz5YmWv0g+nUiNhZe3S+n9a2tRaY tYfR5DijfLONowyN4PfSS8JTd+RL20ubfcCXKWRZwGfH4sdOMvZ3g8MgSH/F H9UTCX6w8/d/mm7AaHnIjpNMgtKtSPCCv5/s84gdKwjbUI33Q1Khbx2IRfnn Bt8nDEC5Ee8Lu16h/hoU/MZJcHzbM705FXmqb4UXQuNTHswvspBNY7fny+H6 HTd/2XxkwkERf33gbeW6faAI2eVY3bMqwBDjbDlQhiycMdnTBFLqnn+MrMbf F6fKz0YgMOugqkFCNvPrsisBkNq+/VgzcsoGdVoLkL1od+19G77fqP4P4+Cd ug0xrRuZkUfg7hgwJFidNBxA7s4Zv9wGVjMsIs+MIPPFz12ug55dZlTfx5HL fGyujcJDK6ZORe+Rs2iGCydgEqvJd9tZ5IwrrfWNkP+60eMrX5Cj5VPPt4Aa A4PBP9+Rb/rr5PcCmSC926QV/P3dW2TpACMlT6o9NpDXe/+uFQL9sUf8t7aR FXYdEa2CK//pJO/bfXbHsmnLB7qgO89Dhm4KZNMpGs92SCev6fOSGnnkpOAy BOn//bHae/Cs+OXpeu7Zl9Pgfy2i/u0= "]], LineBox[{{14.582521649925214`, -7.923352510338135*^-6}, { 14.589673409164305`, -4.504549075523556*^-6}, {14.598977068149676`, 4.395349829211526*^-6}, {14.608280727135046`, 7.186809340864464*^-6}, { 14.617584386120416`, 5.4804201603531055`*^-6}, {14.626888045105787`, 1.200066680806522*^-6}, {14.636191704091157`, -3.63315852536239*^-6}, { 14.645495363076527`, -6.9161196820655135`*^-6}, { 14.654799022061898`, -6.4790901936895295`*^-6}, { 14.664102681047268`, -1.0147008255856349`*^-7}, {14.673406340032638`, 6.898926229403912*^-6}, {14.682709999018009`, 7.410162796483988*^-6}, { 14.692013658003379`, 3.8066580325679666`*^-6}, { 14.70131731698875, -1.5486810978071475`*^-6}, { 14.71043827539476, -6.256768337431495*^-6}, { 14.717976146566073`, -7.923352510338135*^-6}}], LineBox[CompressedData[" 1:eJwl1Hk81VkUAPCXFKUiqnkpa/KSsiWVchlpHpI0aZSEYrRY8gZJIkpI1pDI TjxPdvKyXM9SWctOlnoiGRSVZEsz9/SHj8/3c84959xzf0idu/zn3zwUCmXi /x/yO5oqp83D2Kk1vX30j5Y4Ln4Z8C1svctOLQplkvm7fBe+y7ojXOlGPGJs qc1BuvVi4XaexLFyC7Q2xDuaJ0K9RexYx774ElWu+COi2o/YK8mgNAN5yvWs uxxI3PyX/s8avF/PIVI0jJh3ssOwHc9c4NnwPJK4r5Vm3IEL/e/fZ8QQ1zoa zVVhBnP7b2IJxInidZpFSKEWR9WmECtN29g/RaMf/qQ6M4m1krOzolE634cH ElnERpkf+vOxNc19Y0Me9G8JWKzCUnTBmCtPIC4+F/UMv7FJEZUuJabQhmIq cIzvnodNFcScOcu5SGyS1rDJrYbYcn+/Rx1e99wiVqaOmP/yLqd63Pz+6+bm JrivXmBoJg5a5h/n3krMVGcfqEb6WzeL07pgf/XO7i2I71BufGsvzLsDqdWg GmsdCU8ueEpIn4m8fboT5N5Dv2X3nyUhlGon2fEvxI94qMbi+WpKktcn4tDs WUYhZg9GSO34CvNnmZc/wc5L5ZK7vsP8GQLaTKy8pVz61gL4jhB/Ff6kfSxF YYnC/36gZNTbjlnn3m/pWUbc/Yhm3YjP33RLvb2SmPPw08FkJJO8equyILGZ 0Kh0KxqoTHrUJ0JcWMdL60DxA7tl/anEFIadgDs+vaQ+bZcYsVGsLTMfU6XM aW+liB0l3IYKcYfWl/QAWWKvyDa/JHzP0nebmjyYPi32CBl6iWYMKBJrVW/e XowEErPlglSJE+MGBxJRbYU2a+8+mL9YamU99nnbuX1Igzj3lPzfTfj3n5cy Q7Sh3o4DLkV4Ufyn/H462Mm1qwKVovDHw4eJJ8sHCpvRVXPazntGMP+PlqBn SNWzNEvjBPi95m9F+HPcUYV/T8E+eH6McHB2+WB2hDnEFcQOF+BL/a6KWlZQ 39fGOAXRfgjkjp2H+ya8vF6JhjYnKkXZgXWePuWgpAOqedoMuF+R80UWNjer Vf7kAvP3nL1ZiUWvm+VHX4P6JcFhbNz1cFLl0A2oP3ckKRRFlPoUTN4C85V4 c5BRL1U11h/mO0OZqEar5x8X0oPgfK2e6UlcL/r77q9h4D/cTHNws3iOLG8U nA9dX8HCndJi1PWxEDf+56Qb6pO9u0I2CXzDhD8fDWyfnVNLI+YKOQsUoWGF 8+P0TIiHprrcwOMqHf0nc8GSY8cT8Be1g68uFoFr9GlheEY9j3OtBBxWvRCG FpFE/t0K6N+LVZmI92BQSmwN7IORr52KVtLnI7LqIJ/tYO6LBA9f9MUvwTSp 7gi07miX66s2cIrFtyAkevzQRW43uHFkwgFJmhSYfu4HZ6sd/AfLnpYy4BkE j3yjOOAdFiEaIiPQL+75dDJSsfqhIPORWPL2mmgm2nveVnL3F8i/uRJFIg3b 12v/+A75+jEL97D2ZfpSkwXYB2NtYirWdSqaOr9EkdxntZypLzZ03TJ8dTlx KLWJnYuM3cO67ggQWxYa2+Ui0xs/a2OEiCmX+GzvIMtb9iWZ6+G8y517TGzj 15tZJgrxPVYGedj2rl5ckwTEBd7tvY0cQ4qD38hA/V6cWIiuhG/1mpCD+jON 7Bx0PSqcQVGE8/583i745sMlVmtViR0XNgnnY/+Ey8bS+8Bupax8HJzSf2gX IuZUf3BNRhHph/foHCRW8m2/WISiM59uO6EL8ZxF9QwUn0MTtTkC1t9vEo1T CyIFXP8kFiqm/P/3xipe+sPPhFirxHptDs4tZXx6YEbMrcg+yEFPKt6+zThL PBm490w9Kqs+0lJiQ5xLHyjhoKoXpVUNtlA/nXo9Gr9okCvsc4Q4307l57jx VdSjjy6wjyXLTBpwa9uyqMVr0E/mzt4E3N3l5C/oBfWdpjrL0ZveATfJ29Af vdbnoKG3R22VA+B8jdkJFhodLDfTDlGE9z+imoMnP8gbHo+A+Dm9gir8bSxa 0zoa9hm8W4WD5yb4lF3iwfMXBdMRZcpF2jcF+ovQ+SvQ8plBkSgm9N8fl8pG qxaOLWNmQb6vMO0GEqZwptn5xEaB+RvYmMqrMFJXTMzE8aFVWJw/9nVPGbzP O23PPLxl1cqGsUo4v3FBPBNtE7patvAc+i3tuV2AFNYNZ61uJE40+GyShlSp xgniLRA/rVYTidU3V4UqdsI+ndxoRfjdFpk3//aAaTu02PiOvK986lu4b3ho WiBW2jVy1XwIvqeXFvnJqFtd/zn1X4j3X2hJR17aj0XaPsI8cbc8HqJt+mvO Bn355YlZf9x8zDGb/h3qb7JPZmHXU63zSxag3rGZvlwcohQjY05RIvWaZc+G YyvVw4dLeYgpsmqGvmjP3gUGdRn4n9xT4UjgQNYDFz7Id9L3CUJvNM0rWldA nPIn3QrnHxQcVlwF/tzu8gD70jmrgtZAPk+nXDI2PczYNSoE8TJvsxCscFTa lC4CTkzPYWCe421eqevBks3RCrjzL5/0JVSw2LgkA2WY7n5pLqr06/+LmjW6 bj48VboZzIqiX8FG56I2bZQA55aju1jGRlf7ihRYV6feG89cnL3QtgXm0Q3l DcSN9qwQJdlf9YQjg3Ei4/SToG2/6qnJuWBnl1X9o9vBtjOHGYjuVr5UdydY rfuaJxL1cNj+SBGMfjvEQJ+8JI7xqIBDk5pVcJVPs6uFKtgj3CIB3/f3ji9T +5X/VIiFLwWqPNu4jzhxYE9ZKkahg2NX9hNrrd4xFoaFIyKE2zUgv/sDckbv ow7tU9b6db8hSjhiP5y2CNaG+9zqt4hAgQnpvmM6EOdqLr+NLFNOZunSwWuY JnZINX1F+yM9yC95zL6L+DNL5ngMoJ/E5VWhqC/bVsrSEPKnFEyuo9z8zbrl RpCfIb/MD9960uQgehzydz3rS8R/lXhGup6A+flaApl4O1YsazeBuJiZ1SO8 WMl9p2wK9URXrfVDrc/CVoSYEe/1vJfKQWl12krj5lBfnX+2Cl1r+vqX3lli zpRnTzEybEn1SLP69T4ayg5YquNE6lIbYqEXc6dK8VT38gbLC8S6Lr7xz3Ft X/Hn8kuQP1/NfoZjuReom+yhfvB0WAp2HNqoefUy1Lddf6cY6YzU/93BgHqK P0YqEHXcPVDFmdhRpPpKMRqf2FEQcgXyTxU0h6GKr/2vx68SW5qHcfPwve/B FH13YqaaTHoltpnXpKV7ED/okjxWjdV/Th7h9SKenC3Iy8NrliY7n70J54+w l6eh5bMVxz/7wL4+cywL0OKnfhVvP4gLdEdno+mh+bVrA+A+JZeO+qGJno2f EwOJuUNluUw80rynWSkErMQtL8bc5ydyOGEwv8aMZjHuLnMKNoqA8xt0vl3F zflh9tz78F74dm8KqmXmGDhGw37axmeZiBPfJE+JJZb0phsnInbE2MrQeDh/ darTGucFrBiVSIJ5E3+kpGKWF60uJwXy3wd/zMHJVw4xNdOg/s/xL2k4xs7K 7xUT9qdvfyoC3TvnbWORSRz6s92DhQJOJhyayIJ6J1xTWeimYbnMjVyo1ypv EYuu6fQuFSyA+U5HfryFndRn38UXETe/2JeRhu2UfqtSYMP9o03OPcbWsruT cAnkV5WP3sNmm497GZZD3BoNViNjYYbFmwpi4SU+fM3IgD8EOVQRy/Sa2b9C OouPxRZriHP5o22foQNT9QtBL2AeG5nudLR7dKRXrB6sh6lFWIG7vDSrkbiM lYReYNlOmRiNV9CvIKO1Hos3ars1tcD3FawkVoE3VFmePNMO57c5L6SiNWzP PR87if1p7QJP0PLs2A0er+F7Fjmj8f/3kFLybVUf7LNtcCYOfY/ubo99A/ua lUyPxZMh0wU7BojZ8z5b8/HI7XXhZYNQn+J3Lh9z3VX+MRiG93MYdDuJuxlG x/pGiNc9XlRtR83nHZTsxogDArj1naj2TKDgwkdig7Ae8wbEOc76dHcS3o8q +cIHP9Wrbdr0lTgiXd29AedrDj/O/EZcL9Ij3YZZu3kD98/A34Og/esanCwv bdswR3xgLGprB1L+oNk4sqCktYdbSRsO46L/AGczC3g= "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBmIQXRa9eqLqPwMH8wcH1Z9NfGA3STxO8/V/AwcGhhfh F4pv23Xx1nBUMxmC+LWfz+y2a2Ke9ZyLFcQvsK4TOr+v+uf2Y7PYQfx174ze 3N1X8v7qUi0uEN/HyiTu1r6cp59bdvGA+Adm/dvfZpdyWzDFix/Ed3jY+Wut XcxFfedbgiA+wxG/mUvsQo77KmWJgPlesxWL9/nszWb8JQbmBwmrLdvnsrnz QackiN9gXByxcp/tyuX7JWXA8mwl54v3mc0/Om+lHIh/53xJ2107vamPay0V QfwvFySv3LJT62aMPakM4ktcuqK/1U6uUd4mUg3E9xI60nhp37piDqW7GmD9 s/gO39lnl/aRPVEb7H7hWt/j+85F3Hr7RBfEF7j1z/ymXaz34csZBiC+Bvu/ HXfs3tiu2fnGCMTnYBGTOGpXYzB1foEpiC8XGHfn1D4e5brWL+Yg/ttlnx3v 7Jsjmp5dYQXiz2c1+Xx5nw5HQOAfGxD/hPaMn5ft9rqn60fbG8LjBwDvPqx8 "]], LineBox[CompressedData[" 1:eJxF030s1GEcAPCbmC4vNezKZjeFImM5f/Q2j3Oaytva7RDRkLzevLOks4vM TQrFvITSkNy8pdOJHuflzt05L7ldJ3m5U7JETBijle/vn/549uyz53n2fdtz PDyBeVuHRCLR9hfsCYwbY/RoJ/rW6SWPj9Ua7EFpz2TEOtFJGrdjnHUlVh2s DJOw9x1q9zLg6iSK2M2+7JkA1lJj8+bQxkqcw2jSvkms+b4oKXqgYZkyU/fN 1b9GEY5gM6XLjiod7hvE2IVocJ345FxgBpxTTmnDp7Cz8LB4JhPeX+9uvS9G /U3bTWFZYKcyjkSNmNXaogUu+OdN2lkZmi+Up8fkgFO7/nphnJzdEbySC94p pT5WY520KkYSDxwXaG8yiYujcm0388EkG/FvFrIMijfOeATmzbvLB1Cbd8DG XiH4nv/QhADRXelT3CdghWLAqx2PO9mJdEvB2xZ+KikOtTZp4JWBe7hu3sN4 lbL70LASbPlMv/kNziJ/SyqqApe/tc7rwsZ7igCz50S+vgHMQVzzS+BSXgu+ JNicFWFHbY2VRR1Yo1abN2KszCO/aADTS9YK65GPJHHV6jVYVF+haEbTwkDV Kz74isEhW4zZfEa3fQvhMue1QbxXbV/b2gbmso4MlOCCIrM85w7w9Hy4/wCy yPnDficAs31rlWLET/vOvCgEL9twFkT4QvTYud73YJPSZcdxLA8SUt0/gBPX 76R14SCfWt2hXiIeOehWL1pyzV/y7Aef+VqvL0N3aSnjo4PgCFo6TYLJNsGd zCHw2rSL4QyONXf15MvA0W68UBmWG52YPaAg+hviQR1G9jp6ycGjYKl759oX VLC1qCcYJ+bFCaT2oeUleYWREtwoWZB9xj5zzQ6RKqK/iVOzKtyiLOrDamLe I36JxchYmuJ3dIrIp+NpxicU3+P/I2GaiM+3WVahsbbzHOksUV+ka+4ENuXl L5K1///DP1QPXbs= "]], LineBox[CompressedData[" 1:eJxF030s1HEcB/Aji0V5aDLZ5CEdwjxMHu/raePYNaobLuGYy4icUsck8rzL c47L8pRnqzyFM/l2l5M8u1tDTJ26bhcTZsXRpr7ff/rjt99e+/5+v/f3/fv8 fsbRSVcZygQCwfHfgc6MNNZCr5G9p5NEQJSVSwA/coskMrH3JBDKKD0VPGBE FYsszJC3X5+cmwFZ5H5GNhHZtpobNgjW3LmKZQtkcz2R6jvobZde7GCFnFpT aDoHn5tFGBfZIPOTWniN8NhZr36pLbKnIpc1D2NOnfcnOSA3mCXU8aBQWXWV 44g8X/VncQyY7f1g/nRCJjc8WxOD/I1pFT9XfL9dnPwlkH3p4ta7IzP9Vc6M Ar+PFVb7AK9T6n3egvYP9/hBXsiEsqzbJVBtJJTa4YMcJDXWEMC4Hje5ki/O ZyTS+uBki+GD62RkyUVOxiCwrFHS6gvA3skbGALsEmmT+mXkLE3Lm0/ARva4 U0wg7qcka+2FFFbn1JsreP3V1noPfHGrOFKXitw91bYkBBp05m5iML5+wTBw EiRSrxW8D8X7bey90QRmyZcMzoXhvKKwCCG0Iel3scLxPD63RY3DPtO4Q2U6 Mv0pzX4MOJ8Y8iuJxn1krsdnwci2WqU+A/eNkf4qBd6LoZLmWJzvlsOdguMj 7Va28fh5m+lpQkhp3k8dTsDvT8E7mgMiNnnMNwlZ66t27jQITuZqi5NxH/5w VBdcCZGHh6cgGx2MTokgHTh3yu/jPMKyzQD8fr7w9900ZHlBGEsM4tWXvI/S cT96bfMY2NohlrIf4u/J4KBcAFOWWCu6j/D+WC4CMTyA48TGHJxHomi3gswW vRSrfPy9KVwCxEClKJY/WIj7c83FPMC+M6jh8xjPjzbqNwE1aaq02WLsTGsd Eaz0CGmhleF+ox7fBED/QtuOtAI7qIM5B+o09khMDs6jHq5zgOmuL/uwGs/H P9NrBrZ/qlrIr8H5K7GdE9CaLzPRqcXz2czoXgY6q6fzAur//z9/AcEdXjs= "]], LineBox[CompressedData[" 1:eJwl1Hk8lN0XAPCppEilTXpD0YZK0kR4u01JRYrIVmSJQiSylV3Kkn1JRMbO WIcxCNc6w4ylGVsITaEiSUkp8v669/fHfObz/ZzznOec89znkbR01LVeTiAQ Jv7+0L/L6syhxzkKpB+yk2e4KTzIJLmR2XkKJALBj6WwPAqe38ec0i9Abv9c cLUPcNaKKL8twvHBW5/agf5364f2VGTznTzbKjg4WM79WYY8v/VDfh80a1gp 8YCOLN9iXMKFYzn6duuqkKXJ+efZwDYii55Yjcxn+tKjC0y7zC3fA5GjqnK5 JeDuVXXtknpkG6LpdBucPxn/TLUJ2WskX7wXekuPf2AykMkeHZO5cPn6o0Td Vnz/7ta2FhA0F+g3zEYm6RSb1AGhoZ52mw5kgvwXlUIY3bh72/eXyP2EY8Es KJLnYu3bhcxpYUgzYHJkM1WwF1k4fLsKFUi6bV6Kf4U8c7qqvwpkm1hpSg7i elq2DZHggBrtScEQ8p09xl10SJXhG1V6g+ehN1nUQ0Xhy4ea3uL9bexoToXV PzI8L44h7+TrM00HpOHZloH3uF5sxPFwwGhS22w9gb1kq5MMNSmx5jOfcP4B wwEKfBk1WuA5jedbQdfJgJfdj/zi/4rzlbzt3eGA6QP1mFl8PyP2zyfw2unu aPEfOO4cz5cER2V3jeTOY8+q3AmCNhvuyhIXcH71W1M/8Plno1vdHxwfOLvC CziPbGzSJBz563plh8Y82Mo0qaUsR+ZVaUUVQoni7ArBlch+4901CdAlYYZq twqZMPF4KQmwfVUK2ALI5q6pxvlgp01gtqwQjlPfcAKBm04nOXQd8swG8Xtl sP2Y6LNJYWR5b9bBMiglaRmvuQnnE1cxoqGHQEEkZQs2izxEAZ1f50IERXF/ EnxFNLB78ESg3T84zgv/5ATuN4b4sMWQOexfuhWQQ+n2kN2BTHI8nEiDe2PF 74ZK4v5jMqj+0MvzpsPkLuQ7Kc/XlALudepNzb34ejJnfyXYq7VgQZHG9fXK aoKhF1HdRHA/slGGlUcL7BKLNLA7iLz6h4EFE0qvHNBhH0Le+aOipQD6fJY6 L6uATC46o10Jenrt1UOJyJWv+mArkIX0E5OKyK2pdwobgV82QUVTGe/nG+sR DfZFaBIpqjieqH6ZAQ+4x8kJAryvc3/MIAwwG5G2I+H+hgR2GIL+s9K72KeQ hZ9PvKoDcvLO4rLqyPNjwXpMEChaszX0LO6HziihgkEC/8ZJDfy8FG63Qyg/ oS2kqYUc9XDUvAk+4ibyUy7i/d0+fLoMDlWNEgQvYYfYvs4BCukHF2z1cL/O 4qxGEBzqPsfSx/2tHXZtAiPODV9kjPC+l87FBUHi1TWTIVfwfvR1fOpgqJr+ 2IQJ7sfwbmMN5O1PHdEww/W10xnJUHHzRH+eBb5eLM2uDIQtKnQLWCF7TFf9 bgDvxrw6bG/g57XClv8FONbBbGHZ4PqqiyUUGFEu3ChzC88nVez/Ao6lXKkJ ccD1/CWWlUKVR5n0CUe8v9Fxf18QdXu6RMMZWUfrxSo6eG9wLD/PBe+zRft5 Lfj3RECWgDvu73grfzaI2deeansPn8c4B0oR/LheJInlid8XkwxeKQTzZnEy PjiereCXBuN4eREhfvh+5YrSKWCydTZ4IgCfv2AxaxogUY8/0HiI81MKMmng SWKQd14Qzj8KE93hlD/XXSAU76vTRjwPnrLb7mwbhvMv19Zlw6e61vasCJy/ 5daWB3BapfiGTDSe1xL0p4HTu36Zh8TifazbJVgCktaoXZ2Ix9efyHybDb7M hulrPMX55+rlsuBQf5pBShKu97ansxKya+mGX5PxfqTka6pgRXqbkXoq3rdJ hnoJzAziGSem4Xxz/bELMMZ+7srnjP+/v0I5VOB7SdDkZDbO9/WvqwP2ijtM 43ORRYu+1TeAK9uJ1yYouB+Tqfvl4BxBw+x4Ib5f+cmtFeDouKl5dDG2XJJq G5BiO1uMU/H7BxSPs4FwcZClMg2f37p1lrXgT2zy9XA6nidTLeQxnPSgWr2t xM/vWF5dA+w3ZVofrUZ+eqA/rh0yTr2+EVKL92PlONABS/fN3ByuQ859cze1 AZKFVtoebsT11it+yALhX7fZPWxGLjEXrqgG9/vkbg0wcX8ei0lVwKZazf4g C88ztdc8F+iTjRz82/4/X7p+Ajz10OF2bwc+Lzrfk+lQ3i7AUYaDHPzZMa4e Smgn3PHuQu7XiKPUwzXEAiduDz4vFzb3lcF50QbnPa/wfm+qkCLA+z+9d+8N 4H7yN2pmgu53ky4dr/F5WVSXIIP6lv9cJUdwfkmhwH1QVLDZ3ZWH51WTuJ4A n0XLeLDe4fq/qqk5MNgN3BMfx37yWq0Qul3Vu+/0ATtezpkCr5NsPBkT+Hka JYakQJ093l7bpvB8/3kOx0AgGOPtMI33sU2SXgr3f8n2aZhBlrb5s7oCivZU +26Zxf1attwog/xVHD/bOVyfT9woE35PGfev/Yn3nZxPuw/eBvwO2PAb1989 vCUPdN5cH2i9iL+PjQ4XSkGN1u6HVUv4fY07EFwA8g4rP1q7jIj6W7i4kAKf iFwMsliBvMhzDG6AgQuWweUrkT/azDQ1Qyeee4jAamSTnVRQD68xwkJNBZE5 9Hsd+VCLkvaYKoTrpW7vTwXKkfSwleuxl96GvwB7XdrCjTfg67mhEQ1gszEv onATcomxIO0FWAbmIpeJIJsbDDPT4LSUYLS+KHIYjazcBodW7YjJ+wd5xF6W jwPZU0di/4ght46HgVZYwT0Xd2kHsnwXyaQUZtJN47Mk8f3vs6qKQcwz5ye/ diHPD79cZABfv6CEC3uRo7IG17QDe+vkp2nSyAfcJU0Z4IomNXFOFpknGWv4 HJ49xEzSOIhsl9G0vQsa8Z+7zDmE/IiYpNwL7YZZaw0VkKVzXzPboRftfMsw EZkkygjLhBGPO/yslHDcJFS2CZAttVU+KSP/GNVgcEGpMnfW6V/knv54kS7Q LKxXOA/wfDKKqjWg70PPDd+TyF03yNu48CM02Ml/Gu/rdgPfIPwd3z8QdgaZ UpZu0QOFHK7EbtJA7l97M7Yaip8e0ko6j3zs7lJ9PZDbfo1f8iLy7VOcNT2A 9O1NXY4O8vIDSi6vgC7L4p6cHvKMUfutDmBFHlUo10cmXx5zbIZu7tZTqkbI d62ytQdh8MUPWY1XkNcc7mW9gkl7bM00TJFP9yhFM2DB4qQoxwzZ70PnFTqA 3fZdBpbIwzLNZ7sBhzL9eNgK72fK9eoAeOd/R93qJrLBrR1CPWDW6NvSpC1y ffeQcgjgk3epdLJHJkjna/dAkVU/nOZvI7NGB+17ofSI+35fJ+SpgS1KTKhS /mtspQue/8R+EwrQCvN8HuaG/H5QnPMSXLv+x3DTPeRSiU+mfeCOiu+GJM+/ 9otaEcbrBgEblrXt9EFxD7Hf8zUg7mNAYI4fsm5MnEEDzK7jA3IP8Dw3HR41 w8onj37SHiJnzhUvFkC2w2qqajBy9WqlXBoYOh1q1xiKHK1sUdoCprcL7dYI R7bc6CTSDgiz4cMvI/+aZNneHsQEG9jrEwxi/pocfku1twxIpUXrDMeh/r5+ df5cBogemwStElD+nHa+Xxs4ox3fNJmI4lqXqH1MYLR3q7dTMt5vVEjDE2D3 56ni/HM8f1W6NwN69fwz45OG8ltZnQ+4MCI/OW9lJooLb6tybYTkAInrYdn4 e1BfapoIS43JYpvy8HlwrHcOAM3yUn2J+cj/5orWloC+VZmRO4uQN08fI1SC jyN7NHJK8P5ETJ+Vgd/lOcvlypB16vLmUoBQuEwNrRw/z8u5O+ShhFW+q2ol ct81ZZnX4JDqwUONL5C5Zm9shwBpY/HHc7XINxZoA0ygOyGf/rIO2UvpP1Yr tKovvWrQiM+/x7fSYeiWQNwy3IxMPKoGBmDwbXrn9Rb8PRiv0aODJPVjwZMs ZNr5TpdOUCD24qRTO44buHqzAZxVXfjZid8HoFtXANLaKyz1uPj7kDRfWQsD s46wi7rx+7rm+qYOeMOn+LBgH7JL0Hs6A2oY7k+07keOeH9UnQNojiaTEYNE khKvYd/7aB74HyrUGpM= "]], LineBox[{{21.388739455965354`, -7.923352510338135*^-6}, { 21.397733342408564`, -2.8889925651753856`*^-6}, {21.40771449240079, 4.399161989798728*^-6}, {21.414807082420168`, 7.90115267811096*^-6}}], LineBox[CompressedData[" 1:eJw91ns41NkbAHD1k2ZTwqKSFEPJM1q1hoiz1MolWiuX1OS+3Ui2JNd1SRml IpcG5ZpraAyiZpxxTXJJoSb1s1MuMZtpsouS8tvz9jy/P+aZ5/Oc933Pe97v d84zGt4nHX9bLCUl1fjvh3wf0LPQMYikmxsJmzaNJQvRXVXbNR5RdHMpKXka b7IV4dFtxpMxxOygjdX9uI291i08jpi5pSLgOe4Klw79Lp640ed8YjPu3z3J up5ALAmcpbajlwrP6rUTiY++zjB/id68woLqK8SBa74wBGiiuPijRTKxVAIr koskp5JW96YQb3/T6vcEfTQL3e6eTuw58nQzRgsU7/3vWMTmWZfWNWGZftuQ sCzIp9xlPcFyOT+yKNlgt/gLPKx8XK0+PZc4KXlxRxdWoy8RaBXAebK28zow VUo8yykkjjat25iGdDufrbIogfq1A609aFs63+hxGdSbn5fpRcZeJa6HKsAN SpY1yJyWfPavO8QOJ0zC2pH1bOj1UA7MIy8xrhb90uxdt7QW6v0+trIWu1ze 8zytjljfJb3/AT6032CWep9YaB1exca+1HWrODyon5OhGYv9xUuMzPngXqum X/Dpe2KXnibw9MGKBBQW9zyY0Qr9nwuMT0GxvzSmix7A+qSGXQJKUC29G9IB /diq2JeipNHkZzJdED+/KZyLrrPDZlJ7IF5rMrYMZYf7qFCfgMutRcW4aLed YVUfzP+8jxUXVyjQXX56ButOovw8XPNqXXC3AObp9Fq9CvGKZdIPvoTzDnbb sFHLqfe1E/+FeGb8AX/0yEwwcFYI9d6fFN7BTyhN00uGiXtL7N2qsKCvVDl1 lHiD1feiQiTMvkbXHCfOpYlod9HbY+HObBHUj9GOvIXEBr5n0CTUH4/YXoRn FuzSut5DvepM6Xr85RG99sAUnFd+LCYDS6erD4z/A/vf1SllI1mvpdPBszCf H0UmlUiRJlFaMgf17KLMPfGaWYFByjzUO9agV4U3NDc5aSxA/Fh+RBXedLks 6M4iQ9JPt3tmI9qyPyXVTJr4Bvem0lNkSI2o6ZQhzvW9JexEZmLffrfvIJ5O XcVCKlyrfJ4ssc65Tod2LI7XDVwvRxxE0+nvww+cVqBYeeLofeIbj3G2hkR2 VBHquSxTL0XB4qcvrJSJx48U+bWivdza4rJVxBuiDh5uQRuZrDMrVIkbpwID KtFXp/BdgWrEbMbcxyr8TMNdoU+dmHVMUfAAV4rN/6RrEH9kGg89xBe41AoW ldiTYlaSh92ZMuGftYkDW23bucjQecLaXQfqpf6xqwnJaXapNOnCfvaf8mvQ mLhyhKoH/eus/TsV87nJnAs/fFs3yOBjFjMoemIrMdPgV8UHONDZda+dAbHQ tqzzHrbWNFG7Y0gsJdPkfRNteK8mUjCGfl6vY1Sgj9yFuqAd4IpkYQnqZb45 /9wM4vX3bT2HSpzb9pmYw/5hkYeKcLRmicbNncRJ/rVZtdgiASdVO8N+4wm9 RVjVJc9dZT/EK4VVXsFTmnG00APwvChGn5Lwo/eH514yYH1RZ8wVnM+zeYg8 YD8vtYVTOCyBlp7nBa4/sec35Oiy0lfaF9wT3e+FdKlTW48cBms2HAvAiyX9 Cx1Hv/VrbxGKB3l13TQ/qB+rJ0nFnITMrKsnwAz+6Xx80SXy2NRJ6GeD8SYW 9qZ6GjmfgnzWpX1e2ESyc0l9EMQr73a4ihQbtPtUz8L6edvhNCRKoORFhoK9 3324jFpc/goQhoNjLymfwDeoPaa7/oD6G//uL8JBEvayomh439r+rLiF7RpS BJRz357H2ZbLWOticJHfeTClpf4ymndxC+qJh+cxz1DMQ/1U051bL0I/Vcq0 PFQuUZdPTQRbXOXHo7iGRUMzVyCeuaakADMujtx2SwYPhMuWYgPX9lBeCrwv rkZTWXi5VpnV+nTYz2nIOhiNSBKVY1nQb7VhSy7iNZwcHsmE/JiVbYUo9aJj ldVNWD8+3JiF/F3pUWU5sH9Hi08attRabb8iH+KnVgtLcM1km4bvLagv0H6U j7XqTs/cLwL3cwYicGq0RqdCKfTTPSfHQtK2j3OO3obf28KBo4Uo6PvIIH4F zMuipqUADb/StVFhQ36wkmwMciwSrDvBgf3s1WbzcfPJC1MtNdDPScVlhXib sUG7ah30G1bumYrzFr/J+v0e5Ken9MUi+a6rgQ+54LltebkoOs3Mcj2GfLzF /xaSuP+1JrgRPHEjOQN56GSIu5qJ5XcovOXgng+7W6ht0N+pbqtOjLj/XA9r h/5/ZjzqxpVx+f5POqC+84fpNrxur4OFThf4mEcBGyeu+qoc1QP5/8k0LUfz wtuigV7i+qSgy63Iv8yNT+sj3v4o9msXenl6aeq5AbhPxEbl3cjWrPbo4HPi kGFb51Z0X8bHbOsg1LfkGAZj3V55ReYrYn2VS1qNOCMDjw0NQX0fj6wWTPHx 59Jfw3lE1coYh9BUkxKH4fcbPtFbjMen232HR6E/N7pfPnLlnzE2GYd5a7jK 89ADJlUuWQT3zaUTeq3I0PHJm7fviEuyil3bUNHaqDr0Hu7TTEurRqQ8SktM +wDPw3ApPxfFVQ56vvv72/wU8kvxP2eZ9F0z0I8tXluFfS0Ml2V+hPPo4KvF uG/ZyJBkDvw2vjkE7+xPrrb6AvdPhF1UAeLc/ImZvUBMkdHTqEaaRyYZ04uM /rVDTmRoPUrWz9pqJ03MKngVW4+k5qxlCmSI5SdpPRwU2DIz+IlCLAxcKpWD hIm37jjIEksccw/mIQcXx7jiFcQCweGpWtS4Xsrt60piJsNnDw/9MFGh56wI Lhuc4KJszsHF5UrEJSMUfi2Si/ju+eJVxOwP9uIi9Idl3W23NcRS3BsXvLBY 7rdo9lriXopHUBF2Fyg6L1UnDkRmL9i4O69xs/sG4uhCf7UybOoX8LVGE9bd JQ7lqNxArU9Wm7g+Y/VAD1L72lHsvYk4Ym1G2lN0qf1sxL3NxMv32lzrQXNJ 2r/K04jHN1ed46PjB/q0j2wh9nRob7qGB6kxcw36xHZN+jebsc3klsdKPxKb eh5u6cT1d18V+NGJE2fPMB5ineiLIc1GkL9DcSgd83YULrEzIaZIt6pwkcMs /9qAKczDmG/MQyOcwfUeP8F8vd3ci1FIwHT5uIUR3D8v1Avxcl15k1M/w7yz 7XLu49xR3fbPu4kbdS701GODPEun8zYwj+Oi1Gr0kOH5Ws6OONZm8/IXiLE6 PIC1l1j0NDblGZL0pX3W+BXitxcswijuKpt5ex/xfHJaXStevadTme4C+SMr /QdwucxYPt5PrDYU6tmLzZul9K0PEs+0P9brReJxhy/Bh4z+/3//fw6O4sI= "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBmIQHZbfm6R90dzhm9Yrt4tzH+zLM3op3nnJ3IGBIctr y6bj+5jeMS8Vugrih7j0RV3ZN22lnNGc6yD+m1d7rlzcp5VquV/1Foh/YGXQ g1a7fiW/X813QPzHh3IdL9l9uZ9k+ugeiL9dWJv9ql3k3PICh4cg/hRXn/KN dvuielbPewziM9he2nTOTlli4bM/T0F8j58vYvbYdVzdqhj9AsR3MGuo2L/v 7aRTMTtfgfg6m5LaL+0LCrg/XfwtWP7j89Pn9m3n/XKp9D2I73O2dumhfTKn OfiufATx5cK1LK/va+yQ9TT6AuJ37Hjlfm7fM1ejlgnfwPpPMwevsPNmdt// 7geI39AXq3/JbsOB6F8+v0H8HR++vj5vJ1JXYLr6L4ifcEV/ysl9ldatBZwM FkD+pe6+2uv77v2YuTqdCcTfcdH/7ql9TtvWPTvKAuLfYDAQ2WK3vPiwogo7 iH/oDNPiS3Y8hjdimjhB/CtPgk+fsit892b6A24Q36cifv/tfV+X5E/8xmMB jx8A4YvChw== "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQ3b9O6nd6poWD+YOD6s8mPrAzb9O6PDPLwoGBYYnt Vtu7dnOc7fl+5ID4F5Y09B7fx8AY4hmWD+If6IxafXlf6r6Mli2FIP6CderM O/a9y31V7loC4jvw+iqdtauQzcm+Vgbib0gvcLphx3j2bVx6JYjPMM9830G7 rpr8oB/VIH6An5LaaTsRnY+unXVg8wOUYw7Yzb1dZCnVCOInRJ/r3L9PrfuL zupmMP98vuLZfRusyhRs2kD8hpPT3izbZ/Xqu/DZDjB/u3noun2HZ1ayx3WD 3aMVZ7vUzsfz9693vWDz1/IZ7rG79qPmXf0EMD/uifYyu4QV/x4KTAbxPzj+ Mztl9zK84erCqWC+1KdLB+yK2JlOGs0Aq/+3OXvnvj/bmvccngX2j+exypP7 2tJYN4TMBYfHhQMXt9jxi7UvfjofbH+4+4IjdjOOckwvWwRWXzhRbLKdUmlX F/tSEH/C3K+vDu5brcJTN2M52PylLh6b95lc6S3UXAUOv85pB87a7WvmT921 BqxfVuDlQTt344kR3uvB9lndMdq/78IjIZ87G8Hhqdzy4sy+qElT7HO3gM3v jcw8YPfYUcz43zYwf+UvnXN2OR+nq/XvBJt3K2Bjod23BZJSCntA/ILpF5rP 7qsPmM27cR/Y/MBPLnv3cTDIMjodBPFXfPpqeMFu0vp5Xy4dBrt3f63CITuZ eIUXycdAfIWmIwsO7VvKt+j2lxNg8/5lfDm/T2+f8vnW0yC+AYOZ4xU7h7cR CffOINIfADw1FRw= "]], LineBox[CompressedData[" 1:eJw91ns0FFoXAPChviQ39JiSK1RIN65nKtwTKplCHn1uSiiPRCH0UjQ0iHBF tyZJhKIGmbxpj4Qoacpr+HpMCImS6/ukonvPbq3vj1mzfmvvfc7e55xZa5bt C3DwkmQwGKn/fOi3zk8BLpPd68zWiu+v7D8vJqNxhcdOvVxnxmDc2R7ZJSIn jPX85oqpa4oSgytBcojvmt5DPV6dHiGG+MuGDjpvqQfrgvd3A5NVurlmAPPt mGodJP3z2vX2Q9SzmaNdL4lmboVWzzC1uK4koIzwfzdRDf6I9aq/xnSCidS9 BTPHqIU/m64XQ10pkfpznJp9Tl8vj9h613xRn6AODN3hKCIipsWH0kncb2Kq sonsrX/wZss3XH9X5191MBSyuV00jesnDOR1QYjaw8YDEuv/ca7vW9EjmG61 qv4yg3qQJ8NrITFnHhWem4We5GY2E3kD6ywlaWq2h+jmn5Da8+Rivgz1Dv7r 00JYkbw9jshSn02q6hMCz/xZ2FN56ozV5uHFxOiTw2H3BdRm1l7h9USQ0eb5 iYnrqVnV3CRi62VuRxWoGZc39QIwJg85f1WkHj2Qs6YJluVUOrKXYvzdhF4h WNhL2f5LlfqOSp1eCfGYcrSKW/5jP+X824STl2Ehp475UuVfMiDn3yOmF1ZS y7sF5ldAg4Tx2iW/YP6TLEEJDORH66VrYb6/3okYMntX6+oVOuiWoMFoojlL VSNXD53TrZwALP5BVW1DtNq4ZCb4ulYo8o1wnhJp5WsQN2cWc+16jEssaj0B t0sd5KpNqN1d/HwyoHnfNWlzgp7H/p4NI7LDMxrMMP+OCzsFZKvWTW/diG5b D38Qnf1Rn59uRs9VSblK7BY8H9thhf3v0YnNgMMC5ZGurbjef9My70Kyn9+A qw3G85ap3AT+4vI3vduxXjNW4yJpfTDzhY8DxhtXpRSR8QD7jpEdeD91/tuu kIVK6cKg36mTwoyWlcKaxqFHE87Uqg2Op0vAKWRt/SkXnLcyPpsNx1Q5Agk3 PF8Nntpdwm0WVkTvpQ4cTX9VQiqOLy2W8aQWixdxc6FbzbcgyRvvb5VCfBV8 FZbmMg9Q13TFq98GpbAZWal+uP5K29ibxHSV3VUVf+yX9e5aFdnTnnYpOxDn rfu2P5uER7w7vyoY+/NOE5VDurZRfMERnFfMlCoDQVdktMFxtNB52AnEUU/Z 5aH4vsRC8zIioa908rcw7M/r4bYKsvyVz5Ha09hP2IH2WtgYVxKwJRLry5le XeBpJOnbzMHz6mUnt0NUj62nfQzm2596VQY3Eq+4dsSiJ16mNZEG48Gdu+Nx npnBCV1koN/QUZxIzcmNjOggs1MibLzO4zyLhn8tAs0NLVuGUjB+q7+mFVjv FS0CLlIf9DZkPQffS/tNx7nY75yCgAo4t7HY6MQVauHwdpVawvvI0Ju+ir/H oClOG3lyxWb1mQxqrkCO2UY+bElVn52F8/gaFpwGufF+lYQc6hfGjE1C0M0w UJyfS93Gio4Vgp01e+GlW9i/8/HiKjj8uVlWKR/v49CDxZUkOXuJdGYhdV3W XOdnhG/nPUODT/35nBfvOWn9xp+6VYz1xYKHeWQ89/uEThl14w0bywbod7LM iK3A/mMCuE0gmplg1VtFbbcpdOM9eMRvHTUFrF/8npFGqtwVL1+sofZxb1et JzzZveajtdSanFCpFpJeffMdqx7n13cPrCdJvh/OZz3E96H3Li4PIhXWGE81 UYvGdofch5CGkz1OzXifkebHBOAdUht3pwXzFXgfb8DO5dIGc57h/tyzCwsI S7j9Px6t1Arl99m1xDj84pl77bi/k4puPdHSerl6sQjPt7ZakU+Uu1e0BXZj /VTY49sgf9b31KMX6L5m3RKQNCpSU3uN+5+0tymA8d6J5rA3WH9DZsAf+s+T I5292M/OHYEFpHND1FK9fox3n7GpJI0jj+vjBql1syVMyknllfn+fUMYZ0eY LyQ8lvMiMoLvS0HFNgPSJ67BpY+43nWjkeuQlNPv/ekT7p/Xn30BIh215baN Y30nO45DQiRCyrL/h/muFvo5xKuw0m36M65394/qfOK0R2L2zq/4Hh1497OJ lYzVnaIprGeIetzAuCJxpwzDmM47x8+FDVr72xlektSMDgsdDigzlfJgJnqr cDAY5B/ss1eQQntXVh8nkofzJg9LU9dYbi1IJn8pj2Y+lqE20+6cxyV9zUZb 1WUxP0TgwiEdoWFj4fLog5wgb9KoWZcqmo9m63ItobJjzkZ9JlrRNuAI8Dj2 788tRnvsfXoc0vW5KW+X/MiXCneDJPErkw1K6BLfpmASkajex1XGeQKfTbFJ kOnB+DFVjNew1MzAc4hvaL0Cbe0WFQ1O3MkXOeqYz5PzTwYrS7Oo7yux/92N 2slgPB6t7fwLzhf5ZQ8HtK4/aedrYT3UWnoQZbuF4T/poGex5OKI3PQuDW+9 H+czfCyGMHiZLQIDap9Yl6wiGHMePLrEiPrb3JQPjdAnpaMSvI56qJd3XQgd JUceNhtTv9I1sXoGjR7VARq/UYtedr1/AhXzZiiwN1BfgPnP6+CWgFXTZU6d W7hbnw9ph5J8DDZRu4sdorgk8edO+QRLaqujWfaVhN20tKLfijotY4FLLQk6 5rnXbBv14EgJU0A81G9Lp9pg/wmF3RwSWu/qq2GH+8lEjjTA6yZN0LY3/v// sb8BA/jnMQ== "]], LineBox[CompressedData[" 1:eJwl13c81l0UAHBRQvFaRZSkVIiUUOFSRMisNG1JXiUjIwklkb1XeOwVPUbG g2s9ymiYJbxWkVGihFR6u6e/fL6fc8695557f5/PY5uFveElRgYGBqNVDAzk r/Lmp4ZMlYdVFsSn1DuShrEQ6xsNqarDKgwMvh0Gx2qxbO6DHFoNsYbByw0D 6IQmYtWoI+a6TcsbQhaTc1e6GojZ+Dhp9cgtILPVtIk4fZ7e9hKFiJ2T+PiM WEBqQqAEZbSsD3JrJb7exFfcgGlX6j6ufkFcO7nC9Qy3szrrhL8i9m5oFHDB H3J3FW7pJK7wjC7xRSua/Rx53cQs7StbEhHvVIi93Bvi41JiBtFI/MHR9oa3 UL83EFsgFfEFab0B4gx+F9dGbNSaG94/+MfDyXdSDj7DdrbGXy6PkLiZqO+j AHSHjevk/Ls/9n6haFHRjOLy6CXe48Ri0oLn6KhQy42XfZLkK2jH5ldj+pTE jfhpYg4jPkoN7nsw1CM6Q1zX0Pw4Hs2JR8oVzxLvot3e04B6n6sc4/lKPNMw 2lON6q7NnHT+Rtys8WQbFWdzPrToWSRmKM/xKcEhxZoOcsvEKkUiE57oxqlF r9ifxM6OtqFl6OJCRsjSCszHQEGuAqnGGSadW6VAzv9UYPEqFj/M8IjGBO6o U7mGuQYKaILMxNc/htrGoiXPCy23WIjNjGWZ0tHQVtbe/9iI6yRoTInoaX3Z OGInZvBzVLiKCiytvqX8Q+x/ef5tKYpaw716FTdx+8iTmjLkkV3LbcEL+Wrj l+KRhebVbY0biaXbuY7mYc1pAekdm4iHRyfdC7B0cDO6J0g8wJbtWI/49rro jG8hZvk9aNmCVtq3X9QQJj671sukCI05dtjmiBBTu7m/V+HnvF7urKLQ71h/ ZhMuLdvjb7sL1p/QkCtHiWf7YtrEiG8fntPtRneW72fu2UO8PuJJcROyfShb GiwF58lpUqnBBuhdw4w0sdXBEtFOfHA4rENPhpgz+mJ5Cd56Bw1TZYkPrPn9 pg8x7/g4w3WQuPlE7+M+9Kkp/pfjYWJ9xtVa1aj7ssb6bkWo3zhg3o6rWL8J yCoT07dFdfbjtPw0sZgjcN6FnNtPcYCO/sFFVZjfjGnydXz98y/1s+pwf2dO KsXiM+H5pyuPE6vY3WTMxEjmnJWANrHwYYZbOXhnD7OThw7ED0rKpGN211Kf AT2o/8Kw3x/P81uEKRnCfSGRn8V4gPZPSvIp4tnFMYRx48Wagt9G8B7sp7ye 4LwV22qzc9CPyaN9t3A4hb+t/gLM95AeBxW5HX36VsQE5r/OwLMAmb53mrhr Bvm3zGZPYXW/bYvvLSBeqx8UjyV3v1qjfgnW5+NNyMa8rbd4sy9D/qGUwkz8 41/x7Sy24PqH20LxKHvvvit20P873nQf1PL4nkrrNaiXx2OpmGogoyfhAPm1 E7XlOO7rsHGQE8xb4sOXJ9grOsTu0w2oD77IE4ut5RU9dN2g3lRFqQDpvp0M eHwT5rdra1cpkvWIjeP0hDhl5U4O3rzlWLaDF3wv1cyn6Zip9suTTh+Ir/J8 VI+nzCh0GV/Yf7h2UxzuYNTtivKD9+7BZVKNKjJ+jHzzh/1VhOoakZyq86JW IOR/actJwU9GPq6nBEO/7+1y2/AB70si30JhPxuNwhZcLDQorxUB84tMLM7B 0jVGOilRcH+Fq8Qb0OMLryzmY4jD1Cx5XiKpZQ03zXjIZ/3SU4gexdUFJyfC +k5n3rVhcflD6V+T4L7PCSu8wrk9RRXHKfBefpcslePdzuIvk9LgfHsCFmpR Fnf6uy8Z8J6/PxTrQDuKBL9rZINn7JXoKF0viiMp929/D64+wyIz63d8ySfm l5TvbceUoHuHNArhvSzr+tVjIYkV3YdU8PNn8mUoqcXFaq4Y9pcd4upAm20+ u6s/gX6nBR1eoARmm9DEcpjXvsGqKsyfOZwxWwn1/7KMv8Cxqudox6phvmJ3 uhvxxtGOVwkY8p+1caahKG+tsc91ME/hhrY2xL21cVmtEe5nN5PiKxReo8CZ 0AT55zNFkzHnxVLRz8/gfEHW7E9xyPIeBbVW6IeSKdSA2eMz9eOfQ753abET DpIXsp55CesJ3mFtRGyvYzxUO6AfhSd1rSjA+Z/wuC7wmp3x2YiFxz/rUw/M 60SAdgX2K2KoPtoL72+C53UFXqPv3hHbB/l2y0ejse/M3PjHAdgvPzKzFDEG 2/48MgT9zLaP1CMfiXdcsSOwHi36dAliaL2w6+M7qK/fmpmIb9t0Kx4ZB3+r 2paGfzLrGMZMwHr/yajexR6ZTZenp8BeQn4UtKyKPFU+ge9nb/nzfY+WRUR/ hvU/um/MRQvee3Om5iBeY7bvAbqxNadGeR780vpsIpqvEe6KWoD9etXUY5Hj xfiJySWI8wyq+qHZZa4V9APcbiSii+3jH/BE/fr7/awTcsMz8kxik7/BMcaJ ocjutQdCjIpk/652xTI05Tx/MnI1MUVBpL8cXeG5emWCmVjlrKLMIzRRNHZb iZWY4Wz/6uvYWt8kKmIdxAMNfz3C72de535gJxaukjcsxpbBerWKnJDvIy0Y gEclmrvDuYm9y2kq9cisVWVqnJdY30a6qxEN2lT+VuAjNnvaOFSCjNfu3xC+ CfINmRRy8EBmnvi4IPRbdLmFjs+rbVdRECLmtLnU2oJ/dbNwNApDfLB4TTGm XJrp19pOTI3GJ+hYdaErt1MU4oF6q+rxuF+l6/ndsD5TyUAUCuBLOTYqTrxb qC+Cjvbk+PLYShL7y58poaNXB21H5vZCv+VSkyXIsUXvsft+qF867taCNpyX 9VwlC+c3VX5RhiqmBLQD5MFDnXVV+IIHwyauw8QTUhXNL/DKuvHxOEXov4Sy QsOpD9tKhZWJWbjfDzZhNcmiOzlH4D4UK//8vvpQE6MvrQbzXK76eQ890L0l VKEO/SwtiDQhySHzj8qaxLMSu6yeonZ7DdozbZgnf+9pCnJikPTX04X9TBwu VKKN4dxGb/Th/mYW8vJR5bal7aYnod9TIwWZ+GLxf3PjpyH/jWhqNf59tLH2 2lniYeoSRyFO68oJXjgP69eMyxTjY1YhF24bQz+Gu0WoeGLeSYzZDPoNuXrE AQXeO7cYbAHz2pbkSEVSG5WbNlwCJyRxFaGOrB2RSZchX9GrzRI5y7OZi9qC lWWmQxBf82epAru/ccecYEQ72/PzgD2Y//SsMTaepLVWO4CLPLyjMcNNSpya M6yvXfArBKez+Vk/d4HzfktZE4/VE/89cMod8t8yK0XiSQkDxgEPsEmfpTMK qpZrt7wN+d3yNdFor87m5Glv8MkzRhGo879Vdk53IZ9iyG6Hb1z7cOjHvb/n ZYr1wfy/n6+96w/2ZhzTRVWhxT1sgeDVUjGeyEQ4Lj0iGKz7Ms8RrSrydBAI A1OLDmvgjCOWymkR0H+QpLUf1ug8zi4eDfHIN5IeeMpCqr8oFjxrF+6Igr/y 5B5KgPzpn9x3kbTvd5f6hxAva/nljLp4h9Q0U8Cu9NEw7JJJ5+5IhftbPetD w5vk8obPZsB9s7IxVOLqp6GFw1lw3oBY+SxseubGLZtc+H7Y7gTGIcaJ81qz +VAv8oGlFGW6qfC7FUL9fzv20NBx1p3jv6nQz89s0zI0Hb+u9H4JvJ/GA/qp KER8zuefMvACuxMV76t6rRdbAd9rnoBPJe7Wrt6ytQr2tzKdLsJuA6nTWTXQ v/Ginh8WvHq/UqoO/D3bJheF/LaWDWyA98tv0FyGGCPUiz7QoV8Ox0eVyGXH Tkm1Z+DtGqMlaKpsTS6lBeq3xXFFIxPNsR2/2qDfaytBObizn0459xLO93Bv 72Osfi1jc1k7fI960XkZmMbgG8fd9fe+qN5XsFSkJa99D5zn9QfZVJQmqhrW 9gYsoLVYgDZWiKzf3Qf7J1GSqeiBFqO/7wD027QwmYtWBkaYRgYhvjPVIAI5 2td7KY1APxz2cmF4fFXqj/h3sN/VhseR+HyUt+vCGHjf9C53/HKn2VfDCfCR 3+J+6Gilsv3jKaj3z2qMRWXaW6fXfQLzSaonIvHBFWubz7Bf1iWtaJR8fXCU Pgf1oSaH7iJuJmyybR48bLdfGPlFJ/V5LoBvfhX9F3/f5WnUtwSWZnt+GNnR LnbK/fjbH7OiHxo+oagb+QvW97mRHYlODQm2fv4N+2cavY9CzQ4/jp1gVCL5 l4qkApHi6v76nNXgsGeBhxA1hqa0Zi2xNw+PoT/eIZZQac4K8XANq0AcV+Uu i9eBWVKZzqD1uueKBDggP31W5T7yHj4o6cpJXMdMt49B8478uV3c4KpdfQnI Zs3SDukNUP9CIC8aDcS+oQTxgW8PvfdE+uLlmyc3wXqfdib7YXp1TNyxzRBP mXBOwPJ6LrxpQuAzLp/icd7I6bAVYTDborYZEnKWXX9hO+xn43o1EkUwb/Av FwUr1QpTEHP8PBPvbnB4sF0quinR7XVdHPbjKDSKRzM1JT+e74H1/DYUuyAL /UhXsb0Qr/S3iMCvRx2/3tsH9W98U9Ow1g1D+1EZiCeWNadhvHb/NJKDehHh t2Z4fwLX5cSD4N1+1ASUtWdudPEw1LNUlmQigdp2k1NKxBT64YAsFGJA7aMq E6u8oF9LQYzvQ43Yj0J9ueFXV+TiYt95RQ3i61uZ4vAUi57uU3XiYZ2O59nY JFGqVUST2Eyqf10u7pTkUPfShv6u/qP1AKvXfarv1yHm/LQgQEE0wxdKB/WJ hQe05fOR1NijyihDiM+aL+ejNNcg2blTxLPtOw3S0QY2uyKdM9DPgaq9XihD 1fPm7Dnon6eHloL3e4aoRl4kvs4ut1KA68pS1suZElOtTpvnY91Zak+vOfQT Mu4ajgbEGpI9rIh9vygcqEO2ll2XhS4Tf7TefYuOlh6+l66/Av1dqfxQh/xe f/tuaUccRmv2f4x4Odc2MtvDPI717knCaZr8QbkOkO8lE1CNpe+KnT7hTJyz cFKQjmurDwt9diGmd9gO1mHdBe0P4e5wntkqHV00sNeYeuAW8cVLB57/6efK Nfc3t4mdTccfNKGlNK+jN32IT6xnt6xHfgNh67b4Qn1MhnEh4t2Y1l3rB/3c 0kxOxWl6JUkWAXB+yQoujKUD6NZrgojdCnJz6Bg39OzNCSF+z8+YUo9P/Bxf 0gqH96Hr7haB+2SX6j9FEsc5THxtRFfsWQPDYogV8/kmWtBSjsApmXjiZm0H QTryG5XY8joR7t9V+M//S7yblcbdkon11w8K5uG007qPBVOJq+t/6TRg6VBT N5xOvPQ2euQZxs3Xj5hnEZe6Xt1JxycY77CtziVu74qcSsN9CpFdWfnEmxWP HaIjmxsZDzULwauZbVvRQuGTSx+pxDbW/UMNyHfiqVRoCcxHdYYjHXGL9C7u KwP/MFkswZQLk3XdFcT+a62a6FgqejnAtYrYzpzLsRlXv1x3UgATPyxvsWnE 2ixbNtfUwXmcLeaycN8RqTHTRji/jFFZNbLxUC5kfAr9x7zWq0cLpfqumc3w Xib1n1GR74y5yvE2eB8ZxjkUzL3biXX6Bawv+qarGlPMfTuD24lbDUMGGrBU YnSidBdxxNbiyDpc3Z1l1dUD87DmzyrGWhwVki69MG+rn5sCca9GywJ/P7yv 4G9FJdjap6+26j+o/zdWoQHP06b9TYbhfuucvDG+M//TYNU7WM+5oygGc0px CGaMEfPzpIhUoeTLW9+rT8D9380bbUaSqdIFk1PEpxq71BtQdd8Rl6BPf+x9 VprJ6TXS4j2pvHeWxB1KzGpeoF4dK5bOLyTuNO5h1YOt79/ocP5GPBFwfqgD z9f5JfAtkXz3eLXgYXxnOdaStgzzafScL8Nj1AHzM7+UVOSH63eNhw+j/wFC g8AC "]], LineBox[CompressedData[" 1:eJw90mtIk1EYB/BXoXRltpJkOU1nakOcbjq1NE/zkiKKjCUm1rR0GpW3LjrB GUVJXlBIKZfTZSSmZWPRRCU6m5o6W+qcG5s6cNAWYxleSucUJM/7oQ+Hww+e 8/8/Hw4lv4xT6IxhWNj+QffINKNRbGaytoJtyXOdJthefPxgw08mC8OuiY9o lqDgYnOJxYpMF4u4cpB36pCO9Qv5bC6/Xw8S7LXnO34jB8C5UC0IUDt121eR TTPl5gHg0ldz+NIGMinLTFNC2yPHXclfZNeIm5t6OJ1TsUiwI2tpSTU6KI1Y jy90IGOJZwYkoMWtpE+xi/dRJdEGUGGxEr33kMvHGUodyIa8Kj4Wue+HObFt wyCmzbSscUYW3nphUEKf8qspoQeQ6atlogWIpRok9S7IZvdnIgP8Qcn0tBCQ MWGNrg1O7MzWsNyQDca+6AnQO59mEbkjV0WoCsZAY/9kup2IrKDSfYWgtDZR xvHA85cqsuSQnSsnS04g93YVNahgRHTsYwIJeTsuZXQKehIHbTwv5K6P8bK3 0GEN5yi88f74ar+XwDgiGSb74l5711MPYXswhU/B3bmrksLX93rqNKfxPno4 YQg+SfdfowUhm9RcowwWBYov11PxeRJJ/gam7p2Um4Nx95u4BTBE/zyIRcM9 WdoxBo9KjzWLwvD3C6BQDTfqmja3GHi+/+2E71B7ncDlMPH5pjvLMjgYU/v1 QxQy+0vc0yHQ7uEUQjiH7OejyFIBwYqglReL7Nq97jUK8sa3d+RxyKwH7+dm YIL4fj6ZhSyY1xKNMJC/NlWZgFtczdRDV3YxQ5OELI1awT5DG9UqpKUgKx2t md/AtBMPq0/F8yji0EUgXVy+YU5Dzja8ks6Dlk9XZi9k4PtW/glXw9kMcnIi O/L///4Hb1A1GQ== "]], LineBox[{{24.14288005278799, 7.90115267811096*^-6}, { 24.148149598638867`, 4.030647655195452*^-6}, { 24.155161911172186`, -7.923352510338135*^-6}}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQ/Tl5+bP2LisH8wcH1Z9NfGBXod4kdRjIZ2BYENl6 6apd33HTav9eEP/Im5VKN/ctSX95+3Y/iH/BNXfW1n272OfaZEwC8a/YmLdd sbu4PGDulykgfsrk8Majdi/cWf41TAfxzT6vSrmy79/z7XG8s0D8PanG9w/s E+nI3j9zDoi/pIr36mk7LQ15BbX5IL4B17zzJ+0cTlxq2LQQxL9nLat2Y19Y RttDuyVg+0IXTTy7L4fDyun0MhCf7UDJvTN2zSveLgpfCeJXf7FJvmI3y2Mh 85PVIL678R2D2/s2vAhJKVgH4vd9knx/fd+xDo6jfzaAzVs07ehpuzsae1Q7 N4P4mxQLLt+1+3Qiv010G4j/5cz1yVf3ZR+K93+73crhm9Yrt4tzH+wDAEmU k8M= "]], LineBox[{{0.11510707053005143`, 7.90115267811096*^-6}, { 0.11961264207947894`, -2.7190905381724306`*^-6}, {0.1288135674513698, 1.9986346823097634`*^-6}, { 0.13801449282326061`, -2.868606211459124*^-7}, { 0.14721541819515147`, -1.804045157483003*^-6}, {0.15641634356704232`, 2.9053887251606625`*^-6}, { 0.16561726893893314`, -2.2919488443795544`*^-6}, { 0.174818194310824, -3.351958490771523*^-7}, {0.18401911968271484`, 2.736194738339748*^-6}, { 0.18959363325048895`, -7.923352510338135*^-6}}], LineBox[{{17.907017361740436`, 7.90115267811096*^-6}, { 17.916067162636587`, 1.8887336192818793`*^-6}, { 17.925231250798852`, -7.651610600900582*^-6}, { 17.934395338961117`, -5.9185458272104086`*^-6}, {17.943559427123386`, 1.0519011175436077`*^-6}, {17.952723515285655`, 7.096957965080364*^-6}, {17.96188760344792, 6.315473556783857*^-6}, { 17.97105169161019, -4.646908006611383*^-6}, { 17.980215779772458`, -7.523869997694277*^-6}, { 17.989379867934723`, -2.3088695761952494`*^-6}, {17.99854395609699, 4.767935871452522*^-6}, {18.00770804425926, 7.816498879265055*^-6}, { 18.016872132421526`, 1.2986487638588784`*^-6}, { 18.021994788414876`, -7.923352510338135*^-6}}], LineBox[{{23.369442991754433`, 7.90115267811096*^-6}, { 23.376392973173466`, 6.359940571409872*^-6}, {23.38630433775414, 7.075855770199979*^-7}, { 23.396215702334814`, -5.066735103032016*^-6}, { 23.406127066915488`, -7.751953512769028*^-6}, { 23.416038431496162`, -4.268454173672609*^-6}, {23.425949796076836`, 6.752282269761878*^-6}, {23.42922688344633, 7.90115267811096*^-6}}], LineBox[{{8.3619424879475, -7.923352510338135*^-6}, { 8.370224555734046, -5.242934500659935*^-6}, {8.3794419552069, 3.053811214237534*^-6}, {8.388153497049387, 7.90115267811096*^-6}}], LineBox[{{14.544296460716676`, 7.90115267811096*^-6}, { 14.552458773222826`, 4.270146276907916*^-6}, { 14.561762432208194`, -1.7379110140991472`*^-6}, { 14.571066091193565`, -7.05888206486982*^-6}, { 14.575314410823392`, -7.923352510338135*^-6}}], LineBox[{{0.059088513947094905`, 7.90115267811096*^-6}, { 0.06440708984813387, -1.6579175089459497`*^-6}, { 0.0736080152200247, -8.123361044942712*^-7}, {0.08280894059191554, 2.684557772969498*^-6}, { 0.08619834790114153, -7.923352510338135*^-6}}], LineBox[{{20.856502025033343`, 7.90115267811096*^-6}, { 20.863714703134114`, 6.584572662116095*^-6}, {20.87292192105264, 1.4073274412496062`*^-6}, { 20.882129138971166`, -4.505377070307404*^-6}, { 20.890607420677473`, -7.923352510338135*^-6}}], LineBox[{{21.44856121886652, -7.923352510338135*^-6}, { 21.45762024236192, -5.634969589163319*^-6}, {21.467601392354144`, 4.838571823206905*^-7}, {21.47758254234637, 6.671658296486527*^-6}, { 21.483171440333788`, 7.90115267811096*^-6}}], LineBox[{{8.278586631892178, -7.923352510338135*^-6}, { 8.287267960478353, -6.32361104746515*^-6}, {8.296485359951207, 9.428665302957384*^-7}, {8.305702759424062, 6.972450717124268*^-6}, { 8.312594154782996, 7.90115267811096*^-6}}], LineBox[{{24.838603807232303`, -7.923352510338135*^-6}, { 24.845131914171237`, -2.493701245054325*^-6}, {24.855115327423068`, 7.90115267811096*^-6}}], LineBox[{{17.36854595017851, 7.90115267811096*^-6}, { 17.375776532408075`, 7.569960424932964*^-6}, {17.385601637476235`, 1.5429451656612247`*^-6}, { 17.395426742544394`, -5.328257005970949*^-6}, { 17.402930018867753`, -7.923352510338135*^-6}}], LineBox[{{23.441753774505703`, 7.90115267811096*^-6}, { 23.445772525238183`, 6.314946178753722*^-6}, { 23.455683889818857`, -8.241936610975387*^-7}, { 23.46559525439953, -7.2194021827343136`*^-6}, { 23.4693061732484, -7.923352510338135*^-6}}], LineBox[{{24.058299541931476`, -7.923352510338135*^-6}, { 24.06489646956582, -4.0837023080886325`*^-6}, {24.074146817240603`, 3.902320051762942*^-6}, {24.08175133399025, 7.90115267811096*^-6}}], LineBox[{{21.32005002780556, -7.923352510338135*^-6}, { 21.324075599060365`, -7.385077097410431*^-6}, { 21.33328281697889, -2.283466489672037*^-6}, {21.342490034897416`, 4.045796973439764*^-6}, {21.350581410734122`, 7.90115267811096*^-6}}], LineBox[{{24.362389822174862`, 7.90115267811096*^-6}, { 24.37015794283365, -3.416658207688883*^-6}, { 24.378376019420074`, -7.923352510338135*^-6}}], LineBox[{{21.42386772939314, 7.90115267811096*^-6}, { 21.427676792385242`, 7.020960236303608*^-6}, { 21.437657942377466`, -4.100884722024745*^-6}, { 21.447065789357218`, -7.923352510338135*^-6}}], LineBox[{{0.3307360490430599, 7.90115267811096*^-6}, { 0.3312339256329684, 7.300231792406464*^-6}, { 0.33756169703032324`, -7.923352510338135*^-6}}], LineBox[{{8.234277175035313, 7.90115267811096*^-6}, {8.241180963114077, 6.900536405951563*^-6}, {8.250398362586932, 3.1626585066391044`*^-6}, { 8.259615762059788, -1.5950638739825607`*^-6}, { 8.268833161532642, -5.865588228126661*^-6}, { 8.277628344615414, -7.923352510338135*^-6}}], LineBox[{{18.09250270797213, -7.923352510338135*^-6}, { 18.099348925881934`, -3.607922581583267*^-6}, {18.1085130140442, 4.618588027804904*^-6}, {18.11388080341521, 7.90115267811096*^-6}}], LineBox[{{0.47284452450008824`, 7.90115267811096*^-6}, { 0.4784487315832219, 7.99450419419756*^-7}, { 0.4865243360121611, -7.923352510338135*^-6}}], LineBox[{{8.398950137476259, 7.90115267811096*^-6}, {8.407094153625465, 5.005736000707195*^-6}, {8.41631155309832, 1.1978966374392996`*^-8}, { 8.425528952571174, -5.037207041480585*^-6}, { 8.433238408998738, -7.923352510338135*^-6}}], LineBox[{{24.33136502707014, -7.923352510338135*^-6}, { 24.33315655213452, -7.086762634722632*^-6}, {24.3424068998093, 2.7181209836246722`*^-6}, {24.348409900230454`, 7.90115267811096*^-6}}], LineBox[{{17.248563565503385`, 7.90115267811096*^-6}, { 17.257875271590173`, 4.427417471919437*^-6}, { 17.267700376658333`, -1.9086062326700848`*^-6}, { 17.277525481726492`, -6.877385440806627*^-6}, { 17.287350586794652`, -6.7375404342318035`*^-6}, {17.29717569186281, 2.1380680760851867`*^-6}, {17.30537646718895, 7.90115267811096*^-6}}], LineBox[{{17.879667847815256`, -7.923352510338135*^-6}, { 17.888574898149784`, -3.047427929114832*^-6}, {17.89773898631205, 4.344318427440541*^-6}, {17.90671153415042, 7.90115267811096*^-6}}], LineBox[{{0.39946361324433477`, -7.923352510338135*^-6}, { 0.4048413286080951, -1.3009013402065506`*^-6}, {0.4114602674330678, 7.90115267811096*^-6}}], LineBox[{{8.316223402259135, 7.90115267811096*^-6}, {8.32413755836977, 5.997626884468588*^-6}, {8.333354957842626, 1.7302245095551783`*^-6}, { 8.34257235731548, -3.1053013384019224`*^-6}, { 8.351789756788335, -6.960122543309133*^-6}, { 8.358803092954494, -7.923352510338135*^-6}}], LineBox[{{23.648213814915184`, 7.90115267811096*^-6}, { 23.653911181432342`, 1.8426087350920106`*^-6}, { 23.662486016564795`, -7.923352510338135*^-6}}], LineBox[{{24.253593007781113`, 7.90115267811096*^-6}, { 24.259153770736255`, -1.0810753092727055`*^-7}, { 24.264755568866445`, -7.923352510338135*^-6}}], LineBox[{{0.2562035583435501, -7.923352510338135*^-6}, { 0.2576265226578416, -5.9159770818828505`*^-6}, {0.26454523952485637`, 7.90115267811096*^-6}}], LineBox[{{18.623845966809068`, 7.90115267811096*^-6}, { 18.633434028958813`, 1.7545936672469509`*^-6}, { 18.64337204919478, -6.1224394896086665`*^-6}, { 18.649709272604966`, -7.923352510338135*^-6}}], LineBox[{{21.35561206505811, 7.90115267811096*^-6}, { 21.360904470734464`, 7.1823875411602955`*^-6}, { 21.37011168865299, -2.765592070463896*^-6}, { 21.378006792826415`, -7.923352510338135*^-6}}], LineBox[{{0.014827233239884063`, 7.90115267811096*^-6}, { 0.018402462988679646`, -5.892185162004182*^-7}, {0.020565576477543937`, 7.90115267811096*^-6}}], LineBox[{{0.3046169341830401, -7.923352510338135*^-6}, { 0.3128320748891867, 7.518731544808865*^-6}, {0.3131552786432489, 7.90115267811096*^-6}}], LineBox[{{23.547985968666577`, -7.923352510338135*^-6}, { 23.554797535625603`, -2.913427397110979*^-7}, {23.560588034236005`, 7.90115267811096*^-6}}], LineBox[{{17.311507059465935`, 7.90115267811096*^-6}, { 17.316825901999124`, 6.553819760141133*^-6}, { 17.326651007067284`, -2.856672284279327*^-7}, { 17.336476112135443`, -6.785206606796379*^-6}, { 17.34258710280257, -7.923352510338135*^-6}}], LineBox[{{26.476821691769466`, 7.90115267811096*^-6}, { 26.48231257787024, -4.878763133819852*^-6}, { 26.48413471023699, -7.923352510338135*^-6}}], LineBox[{{0.4461057424991237, -7.923352510338135*^-6}, { 0.45084595546754935`, -4.063961617117862*^-6}, {0.4600468808394402, 7.386367974371311*^-6}, {0.46098062593351724`, 7.90115267811096*^-6}}], LineBox[{{24.308169642161786`, 7.90115267811096*^-6}, { 24.314655856784952`, -2.455698125292116*^-6}, { 24.320306550730997`, -7.923352510338135*^-6}}], LineBox[{{26.39818567426927, -7.923352510338135*^-6}, { 26.402676623174784`, -4.91123332446719*^-7}, {26.40727849195771, 7.90115267811096*^-6}}], LineBox[{{24.08537295069748, 7.90115267811096*^-6}, {24.09264751259017, 4.7146534922770655`*^-6}, { 24.10110763396471, -7.923352510338135*^-6}}], LineBox[{{23.778869766763595`, 7.90115267811096*^-6}, { 23.782758920981102`, 5.4974916997019285`*^-6}, { 23.792670285561776`, -3.842515502339161*^-6}, { 23.798098582991134`, -7.923352510338135*^-6}}], LineBox[{{24.380624556986994`, -7.923352510338135*^-6}, { 24.388658638183216`, -4.184062416756618*^-6}, {24.397908985858, 3.4292334192276286`*^-6}, {24.405591019531588`, 7.90115267811096*^-6}}], LineBox[{{26.346538060795673`, -7.923352510338135*^-6}, { 26.35290415149013, 6.885690517433041*^-6}, { 26.36285864582706, -4.282214687956198*^-6}, { 26.37281314016399, -3.186378203179352*^-6}, {26.37741281993618, 7.90115267811096*^-6}}], LineBox[{{23.58059523378554, 7.90115267811096*^-6}, { 23.584531629367625`, 4.428678756440707*^-6}, { 23.5944429939483, -6.3743222896150975`*^-6}, { 23.59660295988058, -7.923352510338135*^-6}}], LineBox[{{24.19882026557372, 7.90115267811096*^-6}, { 24.203651684687564`, 2.494805837249814*^-6}, { 24.209863976382003`, -7.923352510338135*^-6}}], LineBox[{{24.80945222354203, 7.90115267811096*^-6}, { 24.815059074925788`, 4.366128249611023*^-6}, { 24.82508335467427, -5.662184082488864*^-6}, { 24.829468407993062`, -7.923352510338135*^-6}}], LineBox[{{26.51972080413802, -7.923352510338135*^-6}, { 26.52213055521797, 6.422655096649521*^-7}, {26.524237569879876`, 7.90115267811096*^-6}}], LineBox[{{0.49060198758082246`, -7.923352510338135*^-6}, { 0.4968505823270036, -5.3507375410433156`*^-6}, {0.5060515076988944, 3.764037554754296*^-6}, {0.5122013213641372, 7.90115267811096*^-6}}], LineBox[{{23.751955497936333`, -7.923352510338135*^-6}, { 23.75302482723908, -7.057338989702178*^-6}, {23.762322879579447`, 7.90115267811096*^-6}}], LineBox[{{23.5125410010295, 7.90115267811096*^-6}, {23.5151520773029, 6.1688003440973915`*^-6}, { 23.525063441883574`, -3.4416986867125132`*^-6}, { 23.53100165720486, -7.923352510338135*^-6}}], LineBox[{{24.11476277708491, -7.923352510338135*^-6}, { 24.120398555614518`, -3.4380702735870017`*^-6}, {24.1296489032893, 6.063001140699242*^-6}, {24.133219524230032`, 7.90115267811096*^-6}}], LineBox[{{18.072666314378083`, 7.90115267811096*^-6}, { 18.081020749557396`, -7.182077080392091*^-6}, { 18.084105280272656`, -7.923352510338135*^-6}}], LineBox[{{23.616489858570176`, -7.923352510338135*^-6}, { 23.62417708769032, 4.511063582318675*^-6}, {23.62720488513409, 7.90115267811096*^-6}}], LineBox[{{24.22502880067724, -7.923352510338135*^-6}, { 24.23140272771191, -5.582838700224357*^-7}, {24.23855449729662, 7.90115267811096*^-6}}], LineBox[{{17.3473006654596, -7.923352510338135*^-6}, { 17.356126322271763`, -1.8149405749678937`*^-6}, {17.365832705624378`, 7.90115267811096*^-6}}], LineBox[{{18.04008890742149, -7.923352510338135*^-6}, { 18.04436439690833, -2.604731012212369*^-6}, {18.05173916904164, 7.90115267811096*^-6}}], LineBox[{{26.328173350174048`, 7.90115267811096*^-6}, { 26.332995162816268`, -6.858875562953948*^-6}, { 26.334120999682938`, -7.923352510338135*^-6}}], LineBox[{{24.170428983837763`, -7.923352510338135*^-6}, { 24.175900641663215`, -2.2822069787320487`*^-6}, {24.184534062616382`, 7.90115267811096*^-6}}], LineBox[{{23.714956941978297`, 7.90115267811096*^-6}, { 23.72329073349706, -1.2549950851106773`*^-6}, { 23.729799683967975`, -7.923352510338135*^-6}}], LineBox[{{0.09721316403355354, -7.923352510338135*^-6}, { 0.10121079133569724`, 6.050600088181035*^-6}, {0.10252884474230563`, 7.90115267811096*^-6}}], LineBox[{{23.477388529496587`, -7.923352510338135*^-6}, { 23.48541798356088, -2.904891923949382*^-6}, {23.493208316029833`, 7.90115267811096*^-6}}], LineBox[{{0.3522109711392847, -7.923352510338135*^-6}, { 0.3588367017486409, 2.703123495040316*^-6}, {0.36259997607835703`, 7.90115267811096*^-6}}], LineBox[{{0.20746131206370502`, -7.923352510338135*^-6}, { 0.2116218957983874, -9.088048391614478*^-7}, {0.21655596769715804`, 7.90115267811096*^-6}}], LineBox[{{0.42605016477515756`, 7.90115267811096*^-6}, { 0.4324441047237676, -4.767653463688681*^-6}, { 0.43672185655585816`, -7.923352510338135*^-6}}], LineBox[{{24.279101922058533`, -7.923352510338135*^-6}, { 24.286904813760604`, 1.2564489781929922`*^-6}, {24.293065376182003`, 7.90115267811096*^-6}}], LineBox[{{0.28115428871778897`, 7.90115267811096*^-6}, { 0.2852292987735141, -1.3243764525050494`*^-6}, { 0.2888901474866577, -7.923352510338135*^-6}}], LineBox[{{0.009199390942331893, -7.923352510338135*^-6}, { 0.00920055492745275, 7.90115267811096*^-6}}], LineBox[{{26.386169183512038`, 7.90115267811096*^-6}, { 26.390339367254587`, -7.923352510338135*^-6}}], LineBox[{{26.426868525156184`, -7.923352510338135*^-6}, { 26.432052916206725`, 7.90115267811096*^-6}}], LineBox[{{26.443901376623735`, 7.90115267811096*^-6}, { 26.448234773789036`, -7.923352510338135*^-6}}], LineBox[{{0.37894657977508944`, 7.90115267811096*^-6}, { 0.38548392346158095`, -7.923352510338135*^-6}}], LineBox[{{0.2330815144642171, 7.90115267811096*^-6}, { 0.2385832260605209, -7.923352510338135*^-6}}], LineBox[{{0.05050723646910105, -7.923352510338135*^-6}, { 0.05376824007210756, 7.90115267811096*^-6}}], LineBox[{{0.032519835806418824`, 7.90115267811096*^-6}, { 0.03533624993170357, -7.923352510338135*^-6}}], LineBox[{{26.415144642384153`, 7.90115267811096*^-6}, { 26.419219392074247`, -7.923352510338135*^-6}}], LineBox[{{26.45692054517397, -7.923352510338135*^-6}, { 26.46151833679782, 7.90115267811096*^-6}}], LineBox[{{23.684920438063696`, -7.923352510338135*^-6}, { 23.693467117203678`, 7.90115267811096*^-6}}], LineBox[{{29.989806513607835`, 7.90115267811096*^-6}, { 29.999999387755103`, 1.1806577937534257`*^-10}}]}, Annotation[#, "Charting`Private`Tag$6373#1"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, BaseStyle->{FontFamily -> "Arial"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->400, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 30}, {-7.923352510338135*^-6, 7.90115267811096*^-6}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.68419898937746*^9, 3.6842024523542633`*^9, 3.684202519508657*^9, 3.72634044311825*^9, 3.726340580751174*^9},ExpressionUUID->"3e857137-4da3-4c8a-8ccb-\ 0efa236618d7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"soln40", "=", "\[IndentingNewLine]", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"eq", "[", "t", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"y", "[", "0", "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"y", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], ",", "y", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "30"}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"WorkingPrecision", "\[Rule]", "40"}], ",", " ", RowBox[{"PrecisionGoal", "\[Rule]", "35"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6841987192809973`*^9, 3.684198802704108*^9}, { 3.684199188122127*^9, 3.684199254927297*^9}, {3.726340451404619*^9, 3.7263405206030407`*^9}},ExpressionUUID->"ca4a5ee2-c8aa-42b7-9eb1-\ 9bebe6702124"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"y", "\[Rule]", TagBox[ TemplateBox[{RowBox[{ StyleBox[ TagBox["InterpolatingFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{ Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{ GrayLevel[0.6], AbsolutePointSize[5], PointBox[{1, 1}], PointBox[{2, 4}], PointBox[{3, 2}], PointBox[{4, 3}]}, {{}, {}, { AbsoluteThickness[1], Opacity[1.], LineBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5 3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86 ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm /j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA 42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK 7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82 7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7 /z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn q5SZmRFAL++xNeOlE0Dwt3AR "]]}}}, AspectRatio -> 1, Axes -> False, Background -> GrayLevel[0.93], Frame -> True, FrameStyle -> Directive[ GrayLevel[0.7], Thickness[Tiny]], FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "30.`40."}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{ GrayLevel[0.6], AbsolutePointSize[5], PointBox[{1, 1}], PointBox[{2, 4}], PointBox[{3, 2}], PointBox[{4, 3}]}, {{}, {}, { AbsoluteThickness[1], Opacity[1.], LineBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5 3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86 ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm /j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA 42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK 7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82 7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7 /z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn q5SZmRFAL++xNeOlE0Dwt3AR "]]}}}, AspectRatio -> 1, Axes -> False, Background -> GrayLevel[0.93], Frame -> True, FrameStyle -> Directive[ GrayLevel[0.7], Thickness[Tiny]], FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "30.`40."}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel", DisplayFunction -> ( ButtonBox[#, Active -> False, Alignment -> Left, Appearance -> { "Default" -> FrontEnd`FileName[{"Typeset", "SummaryBox"}, "Panel.9.png"]}, FrameMargins -> 7, BaseStyle -> {}, DefaultBaseStyle -> {"Panel", Background -> None}, BaselinePosition -> Baseline]& )], ButtonBox[ DynamicBox[ ToBoxes[ If[ Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= "Local"], Style["This object cannot be used as input.", "SummaryEmbed"], BoxForm`EmbedSummaryLabel[InterpolatingFunction, 2126472, Dynamic[Typeset`embedState$$]]], StandardForm]], ButtonFunction :> BoxForm`EmbedSummaryInterpretation[ InterpolatingFunction, 6486853442772182488826460927434068231765936914079649837968, EvaluationBox[], Dynamic[Typeset`embedState$$], StandardForm], DefaultBaseStyle -> "SummaryEmbedButton", BaseStyle -> {"DialogStyle"}, Enabled -> Dynamic[ And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === "Local", Typeset`embedState$$ === "Ready"]], Appearance -> { "Default" -> FrontEnd`ToFileName[{"Typeset", "SummaryBox"}, "Footer.9.png"]}, Method -> "Queued", Alignment -> Left, FrameMargins -> {{3, 3}, {0, 0}}, ContentPadding -> False, Evaluator -> Automatic]}, "SummaryEmbedGrid"], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->( "InterpolatingFunction[{{0, \ 30.00000000000000000000000000000000000000}}, <>]"& )], False, BoxID -> 6486853442772182488826460927434068231765936914079649837968, Editable->False, SelectWithContents->True, Selectable->False]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.6841992611709547`*^9, 3.68420264328885*^9, {3.726340475946261*^9, 3.72634052322114*^9}},ExpressionUUID->"b63f75b8-5cc8-443f-9958-\ 3f4842181ed1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"y", "[", "t", "]"}], "/.", "soln40"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "30"}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]], "Input", CellChangeTimes->{{3.684198881132791*^9, 3.684198961991517*^9}, { 3.684199289643505*^9, 3.684199289899536*^9}, {3.726340528254859*^9, 3.726340533312652*^9}},ExpressionUUID->"55847664-c365-4526-9b81-\ c5f6a00bf1d3"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwUV3dczd8bj/YQ7Z32nrd1G5xHRlRaSuOLEhGJJG0kRRoq0qJBRZkJGcVp CUVaNLVLe93q1u2O3/3df+7r/TrnvJ/neT/P57zOW977nJPPRhYWlitsLCz/ /1/p+16nlFC43XeNwfzNofZc8bAdndFIWECP+JiJQeSXt3jnbeTcUD5+nz6H RHsEuLfsuo+k+W3FBqlzKNjhSQdr50P0pfv0zwuUOXT0deMTRtJjpGWyR9yF PIdsRWcure98hqTFP3PFkubQfYsbxeuRpSjXzPk169wcEpgVu73WUYYeLMvp tUzMoet5xRFkwlt0mf1b9szwHKI6mPosJ71Dnw/4C7r/nUOBGxvsSOMfUOan kg9Cf+bQ+GsP4sLOShTbc6VcpmkOHfGZkp/L/Yx2/HAghHyZQ6d5P8euRFah JPYWd7nKOdRfaXduqaMGuazzn/N+PIeyRcSOX2CvQ4WagfXr9+aQ89l+t0XC FyQX/uH+aPIcatgaYDmf9BU1tldVPL04h2JDiSbnKr4hdivOG3Enmfq0sGjN jn9HeWrqf8rd5lB5dKrI9M4faKSpTJnbdA4F9Ljz+J3/iUySNKq01eaQpqEC YyK3CZnx3BQsEp1DzYHuS6TIZtQyTNZPWphFe5Qm/y50tKLbevMm+/NmUaGD ndurs22owMzMQ+DmLNpwqaw1gL0dxXanbNUMnEWVv8O/zhF+I65rhaZHLWeR /g3eVzNJHYj7curn4e4ZdOv1Oc3nSp3I9lorxQvPoOn+tqIzFZ3I6GP8cZOC GfSIeD97arwLJQhYvlrwnUHSk1oxEzt7kRXHJngyPY3CRVPpxd296Jlv5Di9 cRp1WC6H+p7/iwJBuLP0yTS6fe+T/7/cPuR2dFu1zolpFKPy+Oli5ABaTBrM fvh7Cq11mNyd7xhCHvj8t7n0SfSewOX1WH0YKR2Ti6/1nUTBSZ0aRyKG0Xup M9eGTSfRomVYVaPsCLIfeBvH2z2BJp9/nHrkM4r6MvmPCAtOoN5r2ywPk/6h 39xvL/4++g9l923aJLx7HPHIzSZ0qv1DbqZ9HQ3p44jiz/3CeG4M/Z697E80 m0Aq24uUuMLHUJN7VabQ1Uk0IlfaIR03iqp0d859559BbLJ8hvTrw+hyvNDH KK8ZNNKW5qO/axhZjA7HmJTNoJ2R1rItLMPoQ3aMZJHLLHK18pn0CB1CZez1 u6PuM+emi5P1o9cgavVXspMSWUALtJRL13T7UO3Ox4UtD0noZqi4trxjO9K7 9XKC/I2E7N4bhtWXt6Hcznc6snMk1M3jMP1eqg2F+n97f9p8CXVKX9dJGW5B OhkTP1jbl5DDRCbXsz9NKHtSc9mIfQWdp9/XS6yoQwGppbuzT66iFDMx20nq f1i6/8OYtxYNJZz1Pvu2+jdmIZ3P/O5IQ31amo7Sfn/wCIeGtV4IDV2oY1ey E+7Az3Wyn9OqachL4G/whhOdePvl8KBMVzqyCWxZ1ebowZ4y5hubohmoz7vd cExyALdo9926P80CEkGDaSkSo7jO5OM/ewYL1FdYsbw+MYrLd6QDq+AGKO7l Ohz0ehRnu9gtnjLZAK6i7zUabcaw96XPLibRG2Dm+X5IDPmHF3/kSreKbYRn MSIWlz5MYOEznk84d7LC4Ftfm2+dM1iDs6DewZUV2IjVqcOSsxgejg1l+bEC sW6r9I5Ds/hMp7+UVhorXGmOs/7YO4vrdkUmOoyywn/j18mn2udwdz8uzlpj hZVbSVw6XPN4Ppz1y9AmNigecl3AyvNY+lU8LciYDWIPHL7+xHMeB8lknc26 wQbb7ex5rjbN4/j3vfFD99hgYIyopDoxj/MPyD3WLGWDZ0t7Fo6wLuAfNx/3 f+pkg/3SfqejjBew0spbhyF1dki08HK8mLGAzVLXzmhuZ4fkSKf/7rxYwA5a 224GObHDtkPGitu+LOBI77pqjgh26Hp2wUF/YQG3NbUSNH+wQ9G/m4vxOxfx +ClR+6ABduhNa8xePriI6Wwefp+W2CHi63nrf6cWsYb5YIG9DAeM/35Qe/jW IoY/SlWZ+hyQEXj+3mDeIj543rd3cDcHUGLVMiZLF3H04znhoLMcEO0qtj++ ZRFnWhrof4rmgEHvKQu5wUX84m/wfo4MDrjG01phOr+Iu4XosZmYA6QSTDhX +EiYEMVHrtzCCaLf+iABSHivlIMQhzIndF+rJhnakvCR8ju69qacIDlWO+/p SsLx05K+g0c54etOBo14hoTzbxyJ0QjmhDM7K1+PXSThcoWH+RfiOUGr5gZd +AoJD7mpd7G/5oQHc/xNi8kkvEo6s2z3lRPk5GskH2aQMH9yqUBmDye49R1M bMklYSWNJe3BOU7wuicrcLWIhM2+mFhrsHGB22DgvdKnJOzgFXHigjgXdLs+ kvd6RcIn1j9HV2pxQWvqck5yOQlHpm/MY9/BBekPQ/hRBQnf1t9TYefCBWNX +C+exSSs2+Nutc2XC7411/QN1ZDwjxj/Ns0ILnhOqPr17wsJn9K56il5iwsq ZY2dLn0jYY7OtCmuB1xQnc1+oaCBhAuuFoeQX3OB05O3Ozx+kDBoVrKO1XNB 38uTzQ9+knBf+6/k9i4u8KxqNAhvIuGIy8NStdNcEDwtfG2YicXVyI9fMbgg 9upMx18mLm/hMcwX5IbQ3X52p5j4QIRs1S1lbmh6ycp+nck3r0SwvUTkhjMK UdKGzHhJTbs7/Wy44bPS4rsLzHw0Qt2PexzhhpyCx9RdzHy/yvvP7z3PDY7E rYLFzHqON0ZFmsRwg0oYVT6HWe+Gi2lcKhnc8N2F6qrE1CNXtjhN+Ak3fL06 MbiNqZf5two51k/csHcuZW6CqWfn+V/PFn5xw55D5WVqZSR8UWqYODDEDZZL XJ6UZyQs+GWlrmmZGx5yiWt4Pibh/eKyf59K8YBlSf36UDYJT1brn8rW4QHu oKvBG9NIOM5v93LcDh7YeEJi9W0iCdd8PrPpxEke0PQp4emOJGFP36gs53Ae mFDnkrEJImGqQJryziQe6MJUoqMfCRv7VGyTe80DG/aZPZBxI+E2/l/f+et5 INZ9InxkPwkHvB9yoXUy1+fHQnfsJOEnvDxnu+k8oBD2nBdrkbDVWxnKNwFe qPxaQByQI+GRI/rX3ynxwg+i/sdMYRLeWuaWm2bNC7nnplebKYu48r8zGtcO 84KP1Yyr48wi9mCPKj8fwAuUTkn70/2LOM3tcZNdOi/YzpW6nKxZxFyMZTrX EC+84XyikXFtERcVcyeQl3jB39TiyWjgIrZ0khEb4+SDBB56+K+jiziyaJdu rTYfSLBOXgrevojnbe54XgrjA4s3v0ykSQu4K1OvamHLJhBfjD8mab2As9ue bg5W3gQWNIbOYf0F7MGv6kkx3QQXR98M6Ikv4N5rMvSNxzYB49ClDUkj83jg LI+F8NtN0Pn80kuV0Hk8vmvknbE7P3BH6jGeis7hkiuenBX+/LDFbYv4j45Z fPpj90EUzQ/pCQMcWzNn8bRuy7LVU35wmFPuPyo6i+clPxu40/hBk5anFME9 g1fnM15GPNgMpk2pUoyGSfxBU4jBeMvE2e3Of65M4vATt+xiGjbDG1cXMZLB JKb2xMwkkjbDRcutWhuzJ3DU8HuRXwpbgDSu8T3r8DiOaSo6MBC0BbKITrot taM4ofDKr40SAmA38PK2pOgAtjY8JSiiKADSziEyrAH9mKvOyUVVWwDqRMRf Vpf14Zhh5R6bHQIQccs2WsboL45U+DGWdoq5/0uZ2zPtbnw2X5yu8lEAxip0 X2kvtGHH+6+0bP4ThL2Dg+PPzldgsbThm3dyhCDufdzUfx/akbjm25jVR0Iw k/tcSf3mbyRZc/3K4VIhGNhbK/nH7Q+SnVe/qForBJTruaUfyB1I2TbAq2Jc CKQ1rn3mN+hBBmw042EDYfigWKgS93MA2QeJjhAahCF4f981SbZ/yIF3vC+j TRgsF41ZYo7/Q04PP3RRe4VhOPzM5at1/9DB5kO/6ueEod/yQZXWtXF0WKvg o4eICJCVyy4uUiaQ34huarSXCAgFjgu/bplGN5z3bW9dEQE942yiNdsCknzT JLlxgyhI3j+Ld+osoBdCzmR9XlG457aS3uC6gP60HilN3SoKfjZnXcJLFpCS Y5CC415RGFU00zKzWkTvS9foUU6icP1qonaw/yKy3XKlp/SQKGiYuLob3llE F37dTNtyXhR277UXI/xdRDX78zias0QhQ+Q9dYsfCR18rjTMKBAFV7c7JPMk Eprke4J1X4hCr6lCRv8LEhL48SY0uUYUPChLzxLnScjLumHSbkoUpmKTtbz9 l9BSif3Xy8uicErS65xxwhK6wf274AVDFD44zZRGFC+hF9/6D/ELi8HVLW// uQwuIdqe5aafFmIQZpz2y8B2GaU8Cn9K2yMGX6T+XQ73WUZKHCxx2o5iIKGy 10vr8jKy/cKzI8lHDEx18NFfz5fRgFKKzKdzYlA0VuqL65bRhRgRynSYGNzA zufEe5ZR9k6517a3xCBFyzmblWMF6RQUJUdmisGZ48oDaZIrqGaj5plnD8VA 9nqIb5LOCpqoNlLmeycGf8zkWsucVxARbDIa+8VgPsU5vj5rBf3Ia76wPiEG 7C4FhJslK8iL4eKguSQGrHWepNL3K+jGZy/uBC5xaFR8r6r7ewVJyo6NfhQU h9+fWbxih1bQi0t+NZPS4iBm0G8Kcyvoj0VwhLW+ODyXvZQ3zEFGp++vu4ab iwPrg5dyPwTIiLYeZfhktzhU+arpSEiTUcp/HALd9uLwpIKnpUGZjJQqEma4 PcThzj9e8UEdMnovKdBgelwcZBcPih0yISPb8PRHp86KA+/iuXFzREYDXVLX skLF4aiU2JOoPWR0wfSB5/docai+oRmlsZ+MrPP5l2wSxaEm65x9hxMZKXBG xjXdFYcT4crHaK5ktOY/Ie2YJw43j/OM3D9ERs3tB1+1FYvD0CZf+lsvMio2 r9t9sEwcXngxBvceJ6MrD/W7OyvEwVWDVO1ykowOcued/e+LOBDqytp7T5GR TgAfa18TM5+KkQN9fmTE3hGW4dUpDmWRjpEe/mTUu+2f5vCgONhyNyU5niWj N4XOVT5T4vD1vUpjLRMn8NY4jy+Jw85NPOGvmNg7UHfiNF0cpnNIQ5JMbNZ1 /9IMpwQoSos5sjD5BIBHMEBAAuJCbAS9mfHGH4U8WpSUgCWllWBg5oM3jZpd VJIApcSVlnsnyCg9yOkXWVsCJPNTQ4OOkdHZHnws3EQC7hcdrmnwJKPdltqr VJCAcE0d7rz/yEi6JDvxirUEzJqwlCwcJKOlzVzyG50lwOPFGKPGkYwagy++ jTnMjD+/4i9kS0YP/w7t4zwpAQc/G7kM7yajsF0OfTcDJAAfjJEwYPbL4emn QL5wCZjvTZJjJZIRIzTznkCSBPxj3ZiurEZGf/rZ9dLSJeBx15bO0K1k9GLP hTrRfAlI+M1gtRMlo0PCdjNSryWA55F0y5WNZGQQUXE1t1ICNimGO/4lryCe ITVR+XoJ2HphJezz9Ar68JIVqXRJgEy1evIm5vymiJ5vKx6SgPqB1OOR31aQ 76W+k5rTErDN5PDrgIoVJGrzIUWPIQFH3h/LmspbQTOvVJRfc0nCxbckuQup K6hOPO2DkaAk+N67uDE6egVdGDs7ZKYsCRmJVytNjq2g5qtKhrttJIHg6JW6 ZesKejye+u2rsyTQ4cnJAb4VdNmeccj6iCTopzWGmVOWkbZMd6z9eUmgbXpp c7dtGcW/T+5wz5CEcMqXW6NRy2jXHCX87LAkDG9pveNbv4TC9qZpVE9LQsqF QYPi58z754F2t9CKJFw/N299JW0JiTt7mX7gkoKtogdql72W0PT7L2RWHSlg /c9OTmCZhO5EpwRlhUrBHDk+xI+HhL71qCtNX5WCIRmV/f9NLSKqYW3b9gQp oAlOqk02LqIT/5YJIzlSkPausn0sYRGZ2f63oFMrBc7hU2qnOBfRkIjK2bpN 0qDLaq+1Pj2PxM5hGTExaSi9at0v9G0e2X5z+3lKThr0+TUV2x7Oo/LwBK3N BtIQJ1Gwy8p1HsX3z0+6u0nD047kXJXQOUQoqTg591AaLh1Pu7F/ahpdtXA8 KkmUAfl+w6kQt39o75HcRRNLGUiT3SKtsziG+KOmrrnYykAcGLsSE8bQ/drY RyleMnCI0/+PXcUoem/9cYrjpgwc7+ZyeyE0gubdFINJXTIQrBr4LPvRADpy cTn+R4Qs5CdPZK7VtCKzF1lvLuOt8Oj+paunPL/jXR1NtNlvW4G1RFfX3bIR 27GwWXm2boX7m2XK45V/4mNOZ7vQ6Fao6qG37Ahuxnsi5K9EscsB8U+rYuW2 dhywdaVgh6YcxHb8btT73oPrTubN1AbLwa6TyfW3HEfxPqqpYGSEHEwWvPXg rR/FTSntxoZRcvASsJaW2Rju+sAdVXhTDvoiPRtt5P/hWd4gwdj7ctDR63Hy 3uQ4Fi/da7KnRg4UuEICtp+YxmdWF6K+bZKHD2vyKxuCmH7x/AnRMUF5EIvk a95SsoC5JrufsorLw45wN7NHfxdwUU/tn+0K8sAZ15R8aPci7vt8V+utMRP/ Uz+N+UnYPta084GnPITzK6++u7GEZenP/fFx5npJsd++N0t4OliB9e8peWC1 i1TeNbCE43x5dcSD5OGW6sV954yXcZXN32u34uRBirESfaFnGRMEr+pGvJKH up9CbvycZMySsFyXWS4PJWGcv1PUybiJ9bRHeYU85BzVfehrQ8Z+y06xC1/k If7No/vCSWRc2KnUc7JbHnQrx/2tuFZxoGNWQGy/PHzvfHPpsPIqhoZNHAUj 8vCJRbmpZscq/luxotc3Kw9Dy8WzoaGrWDTv23VnVgU48IfjbuzfVTwitk06 kEsBrhitfuVcXsVlKa9eJW9SgLpC+4rfvGvYPjq7t0FMAY7GCvQeMFnDsuv8 gePSCrCT3yyH1XYNT1+4xsmhoAC9KSx76J5rOM7nDGGHlgLk6Fzqaotdwwf7 Br4e0VcAe9mivBcZa1jJ1eVwpLEC3KGwsLUXr+Gqvdvj3oEC7ArZVUH/toZv VZfJ/N6tAK+ooVpsnWv4kJnq60VrBdDfphLqPLaG1zS39Gm7KICt6yH9PywU vJIjedXAQwEmvTquNfNR8NJmZSVTTwVQQUPz0uIUvHBV9+v24wrwQqfwTYUC Bc+STE/vOsXMbypL4LkWBU/57NpkfVYBZt39HBaMKHi8w67U/oICiCxW4bjt FDy6z/2AS6gCXGSIv7mwh4KHKo6teFxSgNef7t8o20/B/dpns7yiFaDv6HLW bmcK7s0LtThxg4ml5B20PSi4S+Bav1+iAqRL7xU+7UnBf64lRZ9PVYBjz1Jd qMcouG05QzkkXQGeH167MXKSgptPPvwWeU8BUk8oKSn6UfDPrmd+0fkKkKBl 8vi9PwU32LzjjytSgAi+p7eLzlHw10/Vr5KeMPM9pXRmMoCC63R/ON95qQA+ 3Ps+3ThPwdUP/pAz3yhAXnO60GUm/iw0mJ37QQEMO81Ympj7K2KnthV+VoCr S+NioUy+9+TlgZJaZr+fvV6MZMZ7e4ol5uU3BdB4OqL59zQFl/XwqL79qQBB b34fzWLm+3K/SMPHVma/5BqMypj1PMNb/as6FGB1/JuNGrPeEn2NLfW9CrB/ b4g11Z2CHxUYvm4cVACdVVK3DlOvAhF0sGVMAao2vS6uYuqZf2Pf2p8pBWiL 9DhaxtQ72+8IGlpWgFh7Ref3xhSc8dd36B+FOU/rB0g/tSk4zf5C7AyD2X+f fVZ7lCj4lkFc4yq3ItzwCJs4upmCE4pun6XzK4LKNZkSDjYKjhPLEWATVgTC MRkWgdU1HL3+ynWzrCJc1co65t63hq/4V1KEFRVBTVZkMrN5DUf21+dIqinC u7rydahZw8G1PcPKBEVgjdhd+bNgDfslsAdY7FEE2Tj1l7PM+felbRaytFGE 828OXL+xfw2fOCdZbuWgCFHCaRO3zNaw1wFdqpOHIuzNs3CdFlzDzlLucafO KsLdtX+dK5Wr2DHpmOa5C8z83M9LSjxaxXYM/6agUEU4FsD77+WtVbx3OFo4 KloRirRHxbcfWcUWT5/lp6crgkNBwZWFFTLukXuat/ueIgxINZoX/SXj8PSS 3KU8RSjsia8YqSXjd1cf3XcqUQT9jTMe3MlkTHDLz+SvVARJffKeta1krM6e lnJ9UBG8v4qML2qt4G/ht5ONxhTB/z7r0cd8K/jEfMqtkUlFMO2Zzp2fWsaF PUmJlkuKMLKsnbKzZBnLld2Io3Mowe3ON9oU2WUs6hkRFaylBFmSMfu2kkn4 bXvYFWV9Jdgy4qbp2UzCztahl9uNlODX8+9bLUpI+LbRxUgCUoIw+XT45U7C m/jOhc46KsGD0Zz9vuWLmO2Dd8CJECXID1ISbz+8gBcErb0O1ijBUFrdab7W adx5RqH59Fcl4I+slCT6TOOqegq68kMJ9B9mNOeTp3BK+NOtxX+UgKF/8YuO 5BTWG+LrX5tUYvrNlu5jByfw2Ve/DucIKcMu7vWI0GejeNLe5b+R48pwT9fd wOBtDx5J9DoYyKkC62fk9o0e+ojOTmop6PGpgNvctSersZ8R2WptZmaLCkit F9mou1UjHtbbsackVUBEgkY3i/mC9MJq33hpq4B5aXXM78Gf6JKPipD9ARWY EwmfTjjQgUS3T//SzFMB9JvS+JE6jPLvvb83UaAC8b+/ZstHjSD1tZiTj4tV YMZo/5Ap6yiyeCPDUChTgUMK6S3+XGPomIa9juQXFcj6BpOn+cdRqWhZIteU CnCfS1ucZptG++ZC9o0aqwJroErql88LSFpf9jqXhSrIx9+mCFMX0GxgXY3m DlVo7e0NHCUuorSVLRaBNqpgP9jmyyhdRH20Eh2GpyoQ5AwXWrJJKJCvV0ji piqoq1boDDox32t20Q4Wt5j4VXql/I1lJJailuR5RxV43Qg5nz8uo0qhixyP clShe4wzgV1uBXFI8a8RylQhMppHPo3pp7LVoc+2RxX2Zv/Yv23PKjrjNyYZ MKAK4wEf8wLPrSL0PNH1zqgqJHz1xZMZq2hEr6u5a04V3mY5tOaOrSIdYmDt CTY1yBnTVFwLX0Ms4eIs8dxqkLdd5Khq7hpqq/hs8ZxfDaqfKeenVK2hUMRb ThJXg4fb6aYCrBRUu6ewOEpbDVhjqo9/uExB6XHWowUENXA7x/fn+T0K8m2Y l/9qogba1x81dL6jIH67bfc2WaqBbSCaa56hoIHk4Q49KzWw2GeXnsO5jl63 3BR2tlWDnQeCXuTJrSM3lz9J2QfVwIb754OdDutIIyOy4dN/anD03XHH0RPr iNapwDnopQbfx4MlKyPX0cND56JU/dRASqFHkvvROgrKFflkHaAGs5uiLl35 sI6sBirW/C+qgYdSm73mj3U0fYzrwpsramBkHsetNLeOZnN3fcIxahDdpbBN lbGO5rqiOBtvqsGxy5ukfPmpaNF+7d7gHTW4rO8tU6hBRaR4o7HpTDXYpV+3 lmdCRUtfzuut5qhBsPjiXPdOKiKbT9bxF6uBk33SzGYPKloNVtks+Zypz83m cZ7jVER55e2uXKYGbEUio3v8qWh9OrdA750aaPir+NddpCKqas+MeaUaeMsr CMZcoiK6txjRqloNDr2y9LseQ0WMnAPRTvXM/mg+FPkRT0UsXck/DjeqwUoA yxuXFCraKPxD9FSzGria3pxVvEtFbPZcR4N+q8HWy9mBJllUxB6/6+mVbjU4 dSBhMeU+FXF8iVqO71cDhR0XlPXzqIiL5RNKH2H2V22xXvwBFfGYr918MMGs F6+m731IRbzBRu3PZtXgZ3mqezUT8706L/uepAZw8+mfa0zMP/3ct3ZVDQK4 hrtSmOe3qE6WNdHU4OALO8IEk1/AW4XWtVEdWiusy5JyqEgwx9tqlFMdeHX2 6F7JpiLhztzUeT51KLydcvVzOhWJCPX0rAuow84atRjb21QkaiemwimmDgFx icIaSVQkfvNAgKC0Ojiim4JuN6hIoi75o4y8OpCPb/LqiKIiSUYjm7qKOnzS XR8oDqMiaTMue0NNdfBWoYb/PE9FMhd3ZSE9dbCvchHZc4qKZEujhq2N1OGR AM4U8qIiualK7YNm6pB/3WTO+CAVyaushRxF6jBQ2sf6yoaKlO6f5wvdx8w3 blb8uSEVqXQ8P3jNTh0sQnpJempUpCo4mX/rgDpodnzcsVmKijTivI2KDquD r2XlfB99HekFHTjSel4dwp0tP418XkeEl8nFf4PVob3x9v6Dz9eRAdNkjUeo wymhjfXq99aRsdeuG4xYdSBa7lCiBK0jc1ujUi3mpcBV5XbUQ34dWTAfNSZ5 TH6JEZZlnnW0veb5rp2F6jAfFvh3lURBQFTpcn/B1L/k2giqo6A9SmIbb9So g+xBlw0jhylowtuq2PyrOrwXi+95u4uCEh+E2M03qkPd9w93eDQpqE22M9v9 tzp8917xRitryEsiy0BrXB2uNeDMietrKIxfyqdlkwaMlbybbU9dRdL7bXiv C2rARQVxXuXzq6gqIeKVmZgG5AmdiNrosIo4uHtpBXIa0LhrZeQk3yq6zZqT HmygAWFjN5xnrpDRs1XZb1LuGsBbWBd63GkF2ZvYn20+rAExFcTAZo0VtHjx inCstwYU1D+Yat24gkxJ/V6zfhpg/r3lcs6rZVQ/k79WdVkDjJP+tbryLKP+ IQXNE4UasECx+NRWTEKCP1Vulc5pwOM9ucQjOfOIPqdX1LCkAb/zxdgMfebR pKB55ciaBvDtU0vO15pHNW72k+JsmjCV3NwbFTSHLoyE7LkqrgmZ6TOvPB7M oPb1b3THHZrgJHyD/+HvCZSh4XeOdFsTBr+Fc1aXDSLpuJcOxsZaINgddvS7 Zix+8uJ57ZqZFqxK3vBhNb+Pib+fGn9CWjDH3T2yRHqEnRWKpXft04JspFvY 7/IGJ1bmjzse0oLxkzJmDltq8fp8apR/tBac470XFBPeirvdg0oLm7Tg6w3N 6Q26Q9g3KlDRt00LdnU2nlqoHMIrjwLSNTu1QCnPifHQehgLLp2JLBvUgi5L Ot3UZwRb3/LZW7WkBcc2OV94kz6GP9QcHOiR1IbnA082vhybxJmapluETmqD gubxUwcSF7CLzc+Uz37akDJXkXDr+wIW9DsqcDpAG8YubFw/yrGIE57cFKwO 04aStkGW75cX8WX1buFzidqwM7/V/7/TJHxcNUKi8ZU23DFhvsU1lrG81ebs 4HJtiMuME7jutYz7ThRIKlRoQ8eWatOau8vY9VGjVFidNlxoyxvKpi9ja2Vp WdUObeA+MLAt5/sK1lf8pHCNqg1+C0LTUTtX8aylY4HOBh2YepIyTju3ip94 jyp2s+vAy/Z9mt33VrHSw03K+pt14MtMwrunC6tYXP6Iar+8DpTwuRbeubuG f8Pi43gV5vlg4s6pyjV82+u6mrEmc/9r9oKs4TXMm/9CPclQB1Lil7TIOhRM l2VomlvpwPbmz0F5n5j+YfudZ2M2OsC/7tOd3k/BoUdUtW876ACr0BelfpZ1 vJBjrzPhrgMZj7/v8Nqxjkek8/UyzujA0ROf2sQ+ruMHFoavLM/rwJ378rY3 /6zjI4e+6c9e1AFrZHhi7+I67rg3T9h9RQeehu3OfqFKxQ2SO4xIqTrwWtel STSeiptlX6qwZeiAmbMjo/MhFf9RkBEXua8Dqq8Tdn/7SMWDGmsU40c6ELjw 57jOOBWP6ZyctnqqA/tHtGOKaFQ8Tfj9161UBwocm3ZZC9LwqtmrqvCPOlDV dPCljCkN07dvLUvAOvDmn+iKrQ0Ns+1MKrhfpwMPcveIPT1Ew5ttTl3/3KQD AdLfkpcjaVjYviPkV5sO/EmeaBlKoGHJA7tPDXTqwN5X8bUs2TSs8p+87cZh HQil/Jpqfk3DWp7J24TGdeC6mo1TDKZhwjGajtKMDqh0en893UDDxJN+ckaL OnCmy2Elpp2Gt/l1Cewh68CP47GpbX9p2PKcFasrVQfcxo44uY7R8N4Lb5dO btCFOYmh1S2zNGwXojgWyqELVkmBNhuWadg5IrXjJq8uNNxLEFVfp2GPK4xv 2Vt04Qw5TOsmCx17XfP/+FREF142i/gosNPxiRs9TysldWH3y0s5y1x0pt/Z l/Nzqy584G19x8pHxwHJ7271KenC2w8L2fv56Tj4jnLUnLouFOmbENo303Fk xp3zLLq6cPWrsX/mFjqOvrfhmIAhc3/PJXSPiePyzjkrmOrCDsED+X+Z+28V /N1tsF0XXO+FxHsx+dIe25js2qkLXRkT60rMeFlPP6i57NUF94LHy5rcdJz7 UlXyxH5d8Eq8GBHMzLfw9V3eECddENr58A77Bjp+8o6VdsNVF06w/9rTzay3 tOL8bOYhXfD99S5vmalHOe7vLzmqC6EitCduczRcWbu/5eMJXQj/ORvMNk7D NV8rahr9dOFCo5sQpZ+Gvzaqv+kN0AXviw6pZh00/ONXRtHMRV041cLK+vUn Dbe2sWfQw3VhYP5mRH4tDff1DIbJxerCQ6GR5u3PaXik395PP14Xsvy7/7A/ oOHJ4U+HLJN14XPpbSPZNBpenspCx7OY+ioecrQKpWHKHKf+xVxmP+VFiR6n aJhl6aLC9QImn2JWQ407DfNRHdmLn+uCzLXEHVlEGhZkqVp5X8bUs+aaDbcq DYuz6Yx/f8fklxC0bROmYUU+nsapal348b7gfNgsFZtJ16To/tEFg1znJs1s Kh5SVOqb6NYFwYVMaYFYKr6peV2zsF8XJJocN/mfo+JOM+t68Qlm/zp+KyVa UnGIe+v6BqouOP2I2Xh5aB0n62UrHWHRA8OZ2Z2639fxMUMbm4qNenBVOjr3 8Mt1zGvxPPMipx6Qy/UrDcPXsYfNeYPJLXoQYnyabYh7HevYK3hYCenByWb/ 2NRpCt54oC2qUEQPturraNU1UXCJh1HTEUk9YFVZb3qbSsGrp9Z82xT1wMln cHufAAWnx13NrTTWg6xU/8O966v4dCLhi4SpHiQ328kLdKzi7SnDU8HmelDE m/2l7dUqHs3YbaoPerBht8ZW9hOr2PAxd3vRPj14XWBWr/adjFu/pHInH9KD zv0+OkvhK5if9WHQ0Wg9CKS0njuYQsIca/jAQowerOjBgJIHCdNn/xKu3tCD +z7VhKuKJDzXLbGQn6gHCarZ46NvFnFzWar/QLoelO3vCQ9oXcC3va+e8Hyq B0KhOWpKi3NYtMbL7XC7Hhyz6lYnLfzDsle3Wrir6ENawVOH7stf8YsLXAp/ 1fTh78hhNXnFL3j7iQXOo5r64MdzI+Tjlxp82Ka2zVdPH1aOtjzS4qvE90VO +oWa6UNQaLFveNsDLPHkRXaGnT5ESuuqSLd+QsJt29Z+B+uD8KbYVH6BHlT4 RaXfPUwfKjjZayRsepHB+81f/kbog2su98aFmL/IKWcwZTRKHx63ntjZRe5H qSdj1Zbj9aFVobOg9MwQ4qf+cBXO0weNyvNWn+Af4lY+VO70VR/ESX78dbvm 0WkJZP30uz54bCCw292YRw2bFPpYf+iD+q/26fDv8yhx5R/722Z9kPjdWv3a dgHxf7vgItatD5k/jRMP2y0iQb+EpZ5pfTD/ZDt02WIJBXqejTOc0wcrrsok idAl1HbAUTppQR9Y73T80X+9hNIsxHZtX9EHna3e71tVmX6Uv+BOPkMf+BW3 PbnHs4KkX30k+AgSYP5ImFL6GzKKLMqp/yRMAAvberLUPzL6mxXlISpGgGsy Y8QNEqsoN3pP9FcpAvR2vGgbDl9Fcs6tLerKBLhfVho9YLyGova+9YlWJcAl /6IU4vE1NGiRudatToCCTeVNIylr6KHyEflEHQJ0yc6KGo2vIWXyRMCsCQGu TmP+9FsUdH3qB5uVGQE8515HB5RT0Fj/y8w8CwJclxhpSf9LQcXfLlY57CCA mQ3vh1p1pn/M3rDltTUBJPK0d8Qz/WD8rZEC3v0EOE7jbn3Rs46mor+aHLcn gDjPs78StHX0zC/JU8SZALtd2lOqt1GRzjaJlyGHCeCjEsyzv5yKXiueWt/o RYDZZV3hlXYqIvJ8sLrlTQCXqwXz1YtUZNnhNlB4kgCpV7xvVWvS0NdPxVp6 pwkQ+phffXkPDdkWroZWnCGAoe3bvTZHaejg+UyB1vMEWA30POJ5h4Z6XMcP Hw4iwGGOmEyZpzTktZ34ZDyYAG0Zzv30aho6zdtpyYgggM2L0gLNGRqaW1BN jr9MACE7ia8hG+goqDOkR+QqUz8FW8txYTq6UiQWpHWdAAc06RxEUzpiSzxZ 9S6OAA4ah+zErekoPvAd384EAljz5o3LetDRZndO96YkArg+euFve4qO0pBr kXsKAQITey4/CKEjCZXHCyO3CYAsEutlY+kol4+8LeAuASbNJ8l1qXRU3JX+ 53o2AfYRCPzJxXSkXTWmIJhDgE+bXaLflNFR2SPjczl5BPi+b5HGXklHJknX K9QeMvtB0Pwvpo6OKi/84XxTSICzL1fC9X7Q0Q4PFWf0mACNd5t38bbRUT0E 5zeUEGD83alHIl10ZKNaP+3yjAB3K93uOPTRUfMmUdPBFwRQam1k+zRERy5L PrFnXhEgy8F87b8xOurufttCfk2AV4dkgnQm6Mizml32WjkB3O9nXzKaoqOR xy6n+T8QQIFvl0LgNB2dulVUnlXBnAe2hsBRJp4NWt6o/Jk5r+FvrqUw8YX/ dtuXVhFA/5a0fxDz/OqOu/fMa5n1nzxpfZvJf0lt9F/9FwJAyEazKWb8jZuN DJ2+EaBHTv5w1DAd3ViOifrbQABGS0SHUz8d8fW2//D9SYCQ9C2/jnXTUWqN ksTSL6Y+GqN+b9rpSLQkyOdKKwGsbjd07G6io/vJda94fhPg8zaF7RJf6Ug+ WJh+t4MAOz4UNupiOnp06Li1fDcBlBfVX8SX05HWzjfpz3oJsLL5grDmczp6 pc42bNLPrHd0WVuwgI6Mtzjr1g4yv4fVEo0dmXRUsVIQYTfCzE+5w+xDIh3B X9LXrjECNPWN3oqIoiPrJ3e85qeY94FqV+2wDx39Shl+FjHL7PdUFluiKx05 hxiscSwQIG5H/t5re+noyK62VJkVAmxzirhzTI2OAvsEa61ZDGCPBpGXb4CG vtUf+vRkowF8uJT78uFPGpJ9+egdD7sBaPzcrPH4Iw01XDF71sBtAN9qKC60 2zSkIO9911rIAByckjRWLWgolPtZ8hMRAyjPqVUTU6GhpoXlmzziBtD2nL79 KT8NhdfcvNwgzTzPfcrQuI+KWo69OmmtYgCvhg56zgUz/bvt+tEnagZglXZu z6//qCjScPchHk0DkFflFNEEKlJj73Jo0DUAdU96iTsnFUU9YjGzNjUA/upN 7CXJTD8/Yc9nbWsAwoNzSxVxzPuqJYvjiZ0B8L3rin3nQ0G9H4ZZeBwNIJ/v J5e5JQXFxYcsf3cxgLLGjHu9a2toQDOvb58nMx8r38v3j62hlLOzpfsCDeA1 f0jvfflVNEdKdNmXaQAuPKFDz2yWUW/ng4M52QbwHaU5Nkgto4ZP5a4L9w3g H3/wZOzUEiq8MeCe9cAAiu7+ON11cwl5SBkemXhiAMbn6eb0ahL6Ytlz4uYn Awh2Ohz6UG4R3UtVD/0+ZAAjcxtnhwxnUFzw9jCZUQO4FvLF5fjnaRT834Hw 8/8MwJq9bAeymkYOypciJaYNgFGzXsXuOoU4PjRHnVpm5rft7tLi2Ql0fiDk JjeXIQg+ozfvuzqKrHTrs/dpG0Ifn1TU/Plu5Max17lZ1xCGnl6hf9jbhU7/ /b7JlWAIjyRd1I/JdqJbCT+jjpsYwj0toJ6s/43+/Gs/cWWHIVTb6Lk3cLeg 4/nDhLcuhrBnfk53W8InFC2woVHusiHoFK+92DX+DaeNR8c8jjKEhxvyh3j9 GvEjzLZd5xozXsl/Qh6zP3GDP9cr8zhD+HF7wkIuogULNGzOOHjbEAp2J08l xPzB+dGyxxIfGcLx3K6SndYD+DPJfJ3cZAj989Nn7LQn8YMf77wPtBjCMd9f stc+TeKYIoOGF22GsIHjw0eT/VN4n6tmlk8nk4+vbozXbxq3f5Q0aRs0BN2C A0JNebN48upa4IslQ9Aw5G1PC1rAPz0udnOTDeGX5wXx4HcLuNRgYYfPmiEY 7znaPrO2gC+Ojm+RphvClsz4rPRLi5hlX+eLm5xGUHZwV86NKyQsuuXd5HFJ I/i0y7Sg0W8Zr40TnKqkjaD0siNh/tEy7q1+8UFqqxFcF2A5ETu4jB9ceBTX qmgEXfPV+9acV7BWx10V0DaCNTsOyk9DMrbMDfKWAiP47rqwK+bPKlYOmf8e bGkEo1e10hs41zCXwxn91l1G0JZcH3ScuIZ/bjjOcnOfEbxN+amQlLGG3XwO 5K44GcG1/wSWEvdT8FktQneLjxGk3D1gtTtjHV8kS1I8fY2Af2v+SY+qdRxZ wyo5e9oIiISKBynj6zjB7bc7T4ARrN6zVTtsTMXFMaFdluFGoNIjdu/YVyp+ aX90rTmSua74VPPsBBWXS1pLeF4xgrB8kshdHhr+UirlHhFjBL0vspqMrWl4 qPdz5+tbRsDtc0joy2cannj8eHVHqhEUhrHtfN5Fw/OBKeLNd4ygWbOc7RWJ hhlc3m7TmUYw/DJpmleZjjnarUPD7xnBFV3HhGMWdMyfZ5DJlWsEs9Xlzzqc 6FjaiL1TqcAIQpR7l0Qv0bEiyyy5rMgIHpjGrg6l0LFG4x+xHcVGIByxbPKz gI5Njxa7Hn5uBBZrgQ/o9XQMWqkhUy+NQPXsyAarDjreSw7LCCszAlN/Ak/p GB0fTLLpuPvOCN6YOcyMbWTgw26GZMWPRtCd1GZbvpmBjyvKiJVVGsEJrbFD JVIMfGaW3QSwEVxauLlcpcLAFz7MHmyqNoLx8W8rND0GDo/pCD5UZwRScGjv UTMGjravSp+sZ/a//kDXlCUD35QsKQ/9bgQjkp/zcq0ZOGU09Q/HDyOQuOuY Ge7IwBml4StpTUZwQ0i0PsqVgXMjjokqthiBwOvNhLJDDPxoj63xqzYjmE+e nNx8lIGfCxgdRH+Y+uU/Zrt3nIHf9MoE/+xkzk+ldabzSQaufMyR/l+PEXwZ uVm77RQD1wbOvZ34awSJ7ZeKXU8zcMO2zt8hA0bARz7gX8DELVzVy+zDRpBf u8FCgYk720pE0kaZ85O2tuO3LwMP5N42Uhg3AivGwMtPJxj436kIl9JJIxCr 2vuh9xgDzxoev7h9hjnPxifSDLwYeIVhe/fHnBFo3mwKq/2PgWkNRm89Fo0g 4ZRBYdJBBmZLl/09vsTsZ5K8wx0HBuY9yrkcTDaCox1VFb/3MbCg1rwwO8UI Thqnqxxk6idB7jS8Q2XO226rFhGmvnI11c7yDCOgF3jSRPQZWDXpSdDLDcaQ Kyo+46rKwDpud9K2sRmDwtGtw73SDLxt9ni7O7cxNEmMzrxhZ2DRCquHlbzG 0Jx1iTy2RsezNzQCtvIbg6fd3luhM0y/Lz/POypoDE/fN0d8bqXj4NnWLisR YxhK8vgbVEfHdhVvHz8RM4bSR4GDt97SMd05YmeAtDFopTn1Ldyl4z/yRwTa ZI2hOlumxyKWjl/MQr+RvDGcZrWOnrtAx0fiOCLWlY1h92pZQ7I9HeOK1LLr usZQ8PN0cweDhjPjgqIm9I3hwC/DtxGTNBzg4mpna2gMYfvbBZPbaVhuTnpS wNQYJlftGJyPaThKoVg+x9IY0gtFcw/tpuEdNz+nvHYxhmtNejwevlQsefDB EVE3Y9CpuBjubU3FiwoxWmEexrD3b9uNcU0qfli579t2T2MYtf1YFjCzjjfO tzO++xrDgmKyw43T67j24NTZgQhjIEZLswcz75/7ik0WOy8bw8nLzauvVSk4 aL6U51GUMaSNN7hGbKBgpfjgR36xxrBYmLxW/HoNx3za0LdyyxiefR3BqYJr eLeS+P5ND43hSXqRokIFGb+Z+SJ/vNAY3F8nliomk7HSuwsrHx8Zg3dgUUSl NxmzWf/K831qDFKnM9recpFxzbnri7VvmHpf9zz3234Fb69Yygj/agzkjzKx Bo1L2NipZejftDH0bft6LzNsAT+SuvJu+5wxCBzi9Ty9YwGLjGol3l0whlCK LNsQ1wJeCokz2rliDDvm31bXpc/jshwUl8swhuVZ+sfvh+aw7sRzbRdBE3Ak 6HIsZU9htaj40BoTE3haV+rsmDOMK82L2G3NTCBP/b+L0puGsQMZ3/5tYQKJ uwrTt0UO4dCzy8/Gd5jAGcuCyzfdBvG3Q16D/LYmID/2+x9DsA/7mhpb/+dl AhNvlD8U5rTjksVBqaU4E2h6Nb2WdfgW1vAxxcrdJqBPqK0LHRpGyQp2lGu9 JsDlEPbeNWwELfV7Gw31mUDwqAT77OZR9Nkj8WnusAn0Z0ru17IYQ04O/Rli MyYA4m6qninjKMw8NoCbhQjE6YcmrIozqG816+nJjUSI2eASNFo2gyzLX4x9 YSPC/dKB2xqWs4hPv/NQNDcR2Lwv9X09MofyVTT3rQsS4W6vwmjP13n0TaBF fkaZCBG2gucHRheR9q/RQzZqRNC/8fP1Y1USup1IySjRIELmaUmJFV8SOsSp xH9ClwgHXfVBdpKE5qjBlD4iEcq86sVcx5aQ6Lh0W7MNER4k/N5+qG4FRRTp 8+vaEWHUg7Y/hLaCBrz37EtyIMImlUs/l4zI6Mnfc3ifCxFMojWJm4vIaHtb zdOaI0Rw3HliMjFiFfl89o15c54I52qvSmpxUdCs/2TI7iAitO5eTbtgRkGh Mmf8/gQTwe2Ir8awHwXFR55zWo0gwmP4mWr4g4JKzYLlLK4Tgcdp19ew6HVk NkkW+hlHBBsXcf6e5+uoNiuM80gCESbTzil5dK6jP6uRs1dSiPC+em75uQYV UcuvVdZmEyHNsjjrbh0VXT/BXuqcQwR7Tb59TeNUtFn0RsFoHhGiUxhsW/mY 7/GL8fGcRUTQoAAfpwMNPVXiu5z5mAiJyQblOQE0ZNiedF79CRECna+p26TQ kJVBqpvNSyL41Uv3TvygoeYhQdveV0RY1kyhdE/QkMftNOT/hggMd7n8IXY6 OrOQoZL8gQj3diuOGpnT0e2XuUuttUQ4LWBvvJhNR9KecuPH6okgRLbbmFNK R0X8D3uWvhFh8NLXG15f6Oi9f1GNaBMRPrnXNRkw/dsOGdXyx81EcM49/HYX nY4afhSXENuIoJn4NzdgMwP91XyW4tHJ7K9w0jZpXQY60aMdM9XNnJcLP/xz tjHQfPzLkMi/RHi4+0C6hQ0DhZnp+20aIEKO7q1EiisDbZwsO5I7xOyP1E+d zmMMlJhl6KQ7SgSyz8ixP2cZSGRf+e6qf0QYudIkuRLKQLmrJqaOk0Q4JWNn TYxmILXiD1pD00TYLJw6nxPPQGWu5nIX5ph8LO2CarcZyJzzkxDbIhHe/eT4 1JHJQHXl2znvLjHn0zRww4tcBrI7UUVRJhOh48SR1acFDNQpYjlbvsacx/sf cetjBjr6pXbQikoEne314YpPGWgyaPfvTjpzXaDCMe85AwUpff12aoMpXJkJ PW/1koHobXsrKaym4NFM4JUpZaAb1xpeJnCYwsUoGWd5Jt5iYFsgzW0K+uVb Y12Y+7OHfqY/5zWFruFr3R+ZfIq37eO385tCeOHTO07MeM92tFz6tcUUjvTW LcoUM5DxgtN5LyFT8E+LspAtZCCc3358QcQUIjIb3znnMdCArbxnsLgpxLhE BPVlMRDLmr/7uqQppNrcVii+w0DyRR8PRMmYwv5kM2pZIgNZOnLascuZwlmx CguWWAY6RjuwN17BFI4Ob5dLjWSgmJJ8y83KpnC8KWf4xAUGqt9gZiKhwYx3 xp8xeoSB/j2/rp+rxeTbLNKWeoCBuDzaNBV1TaFKvCDyhhUD7Ss7I6dtaAqx Ge27XbQZ6PSRD5JlxqZAd7Tu093KQPE8HCImpqbwunx5m/sWBvrhnce9Y7sp 9JeymufM09EM/zRrPZhCw/rlfR+Z/p+/gki33mkK7zkkNmgy/b2DUOui815T GB/+t42vhI7aatl6fZ1MwXqAx3ruIB0tnXP8M+NsCn/dX3M2Ah0JS+c2B7qa wpjFhUFWDTo6GGTyJfKQKbwcdA1LpdBQt9LpFyknTKH0za0c8zQaWm8uLxY5 ZQqDtrIvt4bRkPQl1oJsP1OokJX6cOowDR3+fT+jMMAUdsb8nTNQoqGB2F9R 78NNQYhKb//0hIr+jRkeGLhlCoc8zvTH3F9HXHeu7vdJNYX6tqoFCF1HaqjJ avKOKRT+4LwaeGAdnc44abGUaQof9+kmmHKto1mrbGWuAlOo25/XfpZ5fy0V M8i670yhOmT5k5rEGho7uCf/5gdTOHBbnZw3t4o62ZL2Dlcw18cCLpd8WUUV XpJZ6VWmIF3g8eZiwCqKFjcyo303hTKe72wbq8loS9zpyIZeU3jDP8HhabeC tE7+ZvHZaAbrm4NrEmRISFZEuuQzmxn81CzN3vNvEW2p9XYU5zQDn+wWjYLS RUSSnX/QyGsGxH9qRjstF9HHPzw7CSJmsEqxddQ8uoD27oFYhqoZKP8Lb2SR nkPHlJ9yZ+83A3q5z8ttdv9Q+Jcjp1UczKAyQngLqWoMpfgINpY5mYHiEwvq PGEMVRaFJTa6moFalITcT+FRJKyydzPtqBkM9n46atI8hOpVRoW9gs3g1H7S AtWuF2mobZVTyTMDmR+Xdt7Jq0YLGneMy+bNgNtSe2SP2ADu/AG7hUhMfp6D IjqvBnDV2dkDQctmMB1zTGDaehDfKtt33phiBmb15m86Lw1hDTOWZx9ZzcHL 8wXH+MAI9t7nL18rag7fXEt6DmZM4PaTVnztFuZw91Xtr077BVzBvSxphMwh 0+JD8Na7C/jh04fq6TvMYYG17ct61wIOmKPtcdtjDo8L49NPey/iTSFvrvba m8PFttbYP/4kvOe6PHnE2xxyhXwLi84sY221X+x7fMzhS2CJLf+TZSzcECn8 +KQ5DE5+FB8ZW8ZDmzr1T50xB33ScY6mIyv4yt1bZ2YumsNXjUcNh63I+H3h +uByHJPvIRItWlvFxjuDyNYJ5nBgxyOlUc01/HZwmi8/yRw0nyfNhB1ew2Wy fSbWt83hjpZj973Pa/hZZlVS7j1z6D42yXIvlII1TEwLSDnmEF5xIMCjiIJL fr96vzffHFTj8gyOt1DwI8GC4cVCc7ge8f68k+o6zk+MNbV6Yc78HmnvLjes Y1lNut39UnNgfrTuFxfWcc734OMLZeZg5j2/5aUYFWdz+Cbfe2cOh704RCaO UnFalPXoXJU5FA99PnZyhooFt9ZSdv2v4XoPpzLrAgAuDWn6xrhOunxNRSUR Iz7Vu19nhWEilygzya1xO4lPRYyMQhgRRW7pJtPlSCmeIsJKLqGeIo5MlJDj OCE+t+Nwzvu9f+5n7732Wns9649fHQWCuiRnf2UppldTKnkNFJgbbaNubpVi mkSfsmqhwD7bu7U7SIpnw75Pz22nYOqrPtfkkxSV1JNuj/LZ/DLdjTbMSzGx RK7KoouC0k329S6aMowfmxCM9FBwb2pZYqCNDOVTAxd29VLwzvq80NlLhrFb BlRz+ii4v7LzdGS4DE9xO8guAQXf5oatiyuQ4YKivXO2kIKEg7H3fctlGHWr IeCLiIJFQ3bHEl/K8I/+soysrxQIMz0Vzk7IcCbGkCeaoODqBe+rgYsZPPEj r5ozRcHxO2sWzmkweNz9knBYTMEtmdZ0lgmD4xJVmfk8ex5qs6ItGQy5lKye KaXgTFzCUh7rzTGzxZuHGQo6ft03qOnF+rYzytxcnsDeqMb6F0cYFIVNuVz8 hkBUWv/umggGD6sHHxYqEng19Wm1JI5BfyfPzIxlBLgxs4FWOQx+HussHPqO QM1zT5d9+Qz6pDoiUSFgp9nqc4/HYP+Wpo50NQJJXTIv+4cMereASKBB4Klh sMr2cgY/cisYajmB6+7GFsHVrMeXGGumryBQUFzbOPqcwZ5bd/UEqwg8Vi0N rXzBoJuVNlBrCHB+SVzf8ZL1ZYeSct1aAut+D02JfsNgvt9Yt602geFyV3/X twxazrQXvt1AYLFNb6dXB4OCxIoIN10CEZOT31zmsz5ffv3nfj0Cf/T4rV7a yaA+L1490IBAvs7NPUXs/pvtgX0ThgSYHcea4tj7x5sdH0QaE5DxLjVcYONr uplGLzIl8PXMvT872fefiFbanTUjYMB9rLv/FYMHo+RWqO4kkKsrVlRuYlC2 TCDIJQSsdIpd5esYvHHl5aO1HAImjg2/bWPrtzIoiePtIjA/ke9YUMZ6uzrb yciKQLROzymnBwwmO/y55ok1gUZF5S2cOwwa9B4a4ewmEFN5/lLINQZbQ2wq X9gRiF1jpTKQyWConEGSowMBN/tD/Lxk1r/paq7vnNj4HynD3NMMVqwTa3u5 EBCNqPv2hDLoXvphQrCfQO+7gQpuAIMF7bzUGTcCZkofPnjuYfBn37SDpzzY /2qbN3lJMyicCt2s6E0gxOhOTfxW1t8/cBo0/Qjs4VFHP3/HYOVv/AWTEALv uvL1Ilk/ewxXtlQdI5BinDJ/7KEM5U7m51qFEcDklQO1l2VoffmIyb5IAnP8 5rojR2X49sOioNAzBIrlHARKajI88d+hHfMJBO42SrK6xVLUYl4tOZNE4GBi aLlyrxQ91+b+nZFKQP/iqZa8QimKft/aXZLD1uOgNcQ1k2LqpHrhjjwCxhp9 Yx4rpGgUPxdee4XAx7aF76skCxh+q16t7QaBdqUl5eVPF1Be6GY7XkSg8Fp4 RtN/FnBV8F8VW5+x87HhavEGtXlMY/xNU56z+f2o/eLZqATlM6xLhuoJSFNK gwebJCgqUyjMbyZQv79U/XW0BCvl4nPV2gl01Dxaatg/h26ZMREzgwQ8xBEZ lVlifL3Re9JZyPbnhtfhnYFitKjghDwQEbjHg3P25mLU+yjz534lUFXV3Ws4 OItzm6Jd34sJpBv6JEwazGLu00jTmmU0LArdpigsmsZ/ORwoWalMg9z63fbv I6cx5tN2gwgVGg473+4JsJlGroJYx0iTBsb50V3Xvik0cwzXKFhDQ63V84rz KlPY2X98MuEnGgLurqtvd/8fan4bVGL/Kw1zm/jR57xG8aZl9MnxAzTIhxRt zOOPoHF0muVFdxoyw/m1bbYj6DD+kN91iAah9pOSeuMvmNg5PecTRIO176Tp Z7EQxQWnLU7GsmtLbZ0or8/4nrrYfruIBpUcq+jrNnzknrh5ZXcxDf+4rLI4 oNCBM8WP/UYe0rDZb8J3rPYtqq3vmv2pjAb97k1ldWataKf079XVz2iQaKTM /m3QiFUdt33b+TRM7m15k62VgLbKTwzCu2hQ3r/HWUE1gdNl0zyj1U3Dko2Z Mxt51zlTlV+SPD/RYGyTYxgUW8oxuGF0f1hEw4CgO0JvsI5T9X5X+LlRGnR1 rxxNu9DIsdVw4RiO07AqLq23lDRz/P860RY2TcPZnYeKhNmvOVPPEvOWi2mY YFyDAgpaOXGSHJ9KCQ0+KUNp5+faOComhfoeUhqkYd0RfU7tnGvBldMMQ8NI cnbJXl4H5/9oAZhV "]]}, Annotation[#, "Charting`Private`Tag$6285#1"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, BaseStyle->{FontFamily -> "Arial"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->400, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 30}, {-1.9897547826092516`, 1.980500534606134}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.684199292325279*^9, 3.684202660026004*^9, 3.726340535709547*^9},ExpressionUUID->"fabd9cef-833e-4112-a99b-\ ff29fe5d1c6d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"eq", "[", "t", "]"}], "/.", "soln40"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "30"}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]], "Input", CellChangeTimes->{{3.684198881132791*^9, 3.684198985637719*^9}, { 3.684199341824984*^9, 3.684199342080632*^9}, {3.7263405436456614`*^9, 3.726340543828434*^9}},ExpressionUUID->"09d8b721-0f27-44f7-95e0-\ c79b3a18e6eb"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwt2Hk8VG8XAPBJJW2SJEmlflJRQoqWp4aQJCSJQhJCQiVJYkilLKlUkmTf CmPNdhj7ztjX7JVQVJRKeXvnXP/4fD/nPOc5z5l757rWmdrpmHPRaLRls2m0 ///+3l1RLOYduY/2/59eEdIUInRNsc1jP8eiYkBfXmcq1PaQsiwR7Fw6n085 GE0TBUft+NbZbeFougicSa2Kn/GNQTfpEA3BTzd+H3iNZiwgwXvvxP52YaLH 95Kln1c8/Nmagm7bDrdfxl7/IZuODl0J09q7zCd931D7EbjEVan5bSgLrXoC hlJPKnw5kIvmP0GMzUfWjYXkodPOEOuFebe+u7DQt6xAzOy285X4Aqo/NdKT q2k30VqIzjxHgpavMLs8t5jKNwdd2x79r7Il6FfmsKQs5shFk1L0D0tSudZe ady3DC12Am45Kcjb5ZRzzLh3C+j1tC2fhyrQ5vbwe3OF6AXBKqrfWyTD48Hy 0QPV6BpHYt9psOD8xRrMX+JCJOXWz3wMqeWYzroN732Gv1lW12Hc3hfYlwwm vrmwcf0heyL1EmxTl9VjPOwu8a5a9/FSPNpEMpQM/bh1VlaxgWNRkQdEVWz4 7ZdWNK34FonU1tRPtm3EfPcQMutGSoP93CaOe7XCiXGc4BHpYLRJ03OS2+xc NibbjM4KICu5ehSTKtC0P5eIo9SBXFuTFvSEFzSdjNkp9QPNtykUZO4sTP7k 28qx/Zoo8Eu1k0wQa8PzWsTBaE9jlE0OWjstHg4tUhDdotPOMXM8BqIVgoNG htCi3yNgjjlt+Su3Dlw/HQhnHpjdtxbsxP2fO0EelM+XSECbrAkgIsNbPD8e 6MLztb0kzoIP/sZ2oE3aokir0qST5cW3HLNZsUTOzuDbRp5ujkOFXpCHz+HC hxA0/b07GS9bNxS9owfPNxZBjkzcMrWoRofyx5HjfFc+P5TpxXhaNPEUj3n1 1QXNknhKUva2W+qUo2lOFqRPZ6F4yrI+7OdWAvBZkYGlp9Har97APje70Ivx aNGqF3DhcZhR/SSaaRJPgl81Csso9mN/z8NJZcHcNn8ftGVeCvnZKv94vBVN szAmmbI8JjGbB7Bf/Vhw9G2TML6O5vmQCnJDsZMCNejAE5nwVekaq2rNIMdD sWnAfHHI28MeLSobDbZTK/V2FaJpqc6w5diw6Piydxw3PS0hwwnZI9HmaAat jMTyeGcYvUEHjhSAxdlT7gLz3+P5jxaCWJ6kRtVJdK5CGRkQmhb0eI2W1iom 4Zer+xT+otsWl4FJbfDrMa0PHMd6JMOazReuRoehiw0KSddNomT0DT3ElUOC uhcvFlAZ4litpwL0d3W3Vj5B02TtiGBAYrj7EFp7aTRp/ux6QWH3R5zXr1gS cEhLYcwbPW1UATqRa2dHv0Xbb0ogfDNjNYbbhrH+0XRSa8AKXOaOXmRXAT5p /mcrG9C0G3agvuSMlLvYCMeeXpWEx1rmp7wj2iy1FsqKZxV/LkNnaqeS22sb /KJWjnIcrFlNlJ3DDQzPoxUU2MDVfElsGaAdRAoIa9uBsQreT3h9LCknrveW ZTNM0JadtbD33YCnfAraZ7iY/NqfpvV59meODQNZJCvIUzjqOHqORyU4Teq+ OxWDZlwoJju1NzD5f6IDI5lkIn7SuUJ9DM+vXgwpc0tVGMFopzEgF02e8Ml/ RvcKPSSBRqmfvq8dx893ZRb8uLfqWIMaOnRFItHLvJmZcBFN//QE0t+NrL4b hNZeEQMCy3RvmhWhafuukcv03KH9o9T6+5HQcEFMc9XyLxivvAIyz31SvxO0 iUA48S+fEGqwoHwhDMYmDV0T7qMZm32I5n8lA16Z6N7TD0mC9tZDZn1U3OsG LHJ9nLh/wVf0pBs5/+rPslXb0XSvh1DZZn7t+yk00yCMbOau7a73RIeSp+C1 fadyQgKVXx0HH0xC4rxa0P5OaUTVj3uJ2Qw6tjwZonJsHfZv+obz3ciEOR9b 2oWPosdz84iZ4P7936+hFR4DFB2IiawPR+tnxYC0X9LHH+VoVnoWCWl7I7Vm DO3fkAQL/2NdVl4+wXHA+lLidKE803oP+rVSIbx/w/7jfwbNls6DY1ztSm/u oLN31BCWRt+dtwnozN3ZIPX0Y/XsJnReRRkJ7vuyVOIX2lMpA+Zv+aWnLTqJ 15tGLTg6cgU7qqINjFvIIGtBX7AN+sPxBtBZuEy86CFa3zGP5B9fdf5jJmVN JtkS+h9zSQ+6p7AZgoYlJ3fM/Y7XS2oX4dkht9tQEp3+ohWuuO118ziKNqHH Qn+FcnHsVXTKt2qiLXBkft0L9PrUegDj45qTRegXgj1EIs7o0aphdDmjDQK/ mbcp8v3gWCeqGubus11tuRMtMthFLnk5mvoZonujwqG3wTUmzQPdSXtLjqy+ M9oRi442q4Hsc/dlZtWhNzDfwqaUp44bJ9HftAfJ4+mXOUdWTXEcf6YTuA7G 0hwU0d4BDcT+AVMl6By6l/kCujsz77F8OWZUsfvhsHhB3ftUjll5pUMk075C YHEHxmvjB0E8p95gO+0n3j+XU8ijuR0hBuIcMwYn6wlNu3/ATYNjevGFfrAN Gt4UfQnjT/mHSefg1wvVgeiikQFQ2/Y75Wse2lWHDRnXZk8JvePYJLuuj/xX vJDsX/iLE+/+VgX+vAIe5jIc03R7oshffZEy7xMc03O3dZDzEWKLUm5gXLM0 Fto+bTnaFoHu+5oEqgo7nvytwHp5B9tJmgfpFBtHTyczYV2Niuhhwd/4+RWf JX4rNM0v7uWYpRXBJNNn9OKfmnJM3/76MVi9Nh4DL8z//SsEWr5byA0mYr7d vhqirGh3bUEzxoP+BkOy99U86d9oNQd/WNPiNvvEumm8/8ePgo+ol9qNg+hN F9Php7W/b8QFjhnnLVqJRXpgQ8UjjIvtT4OmmdAV41kYT68pAEX1OEPBXozv KG+CxIDksL3cf/D5ax0GIj1Z7023oJX+pgHt28XAiqPoqAUFMMgtoS59FU2s CqBcuP/3k2C02IEkSJAKSvhTgLZ0D4SHSjqnzT6gGad1wVFvwdKqRX85nuJ7 TU5aFxbKyKKFrqWSfa7ODoEn0DRaxd71D2XFZ1zQfL8jgTt6uNU8HM3oC4Xh rPC71WVUPt8hUltzcs/2T+jQhDiS0sf/6Rn/DK4fCyJPJitDaApo3dVM4jz/ pvY5I7SCdRQ5vXoPV60Hmq2bQJRlvqXKxaL9DZJgk8or8+c1aFbSv+9zg7Mr uL6hpW2SwCnD10xuEY3O+X4Q9gBrlhV8WIOmseXAsFJF8LkMWm97IWg2rbPT VEZPBYYBvftP2awTaLqHN5EdahdNt0I76cSB2Nf0a5YuaBYzDgSnHzSsuo+2 1AkFHm5bybowan/WE/JribqnRxraf3UCGV0p/nZHGVr62GvS/R/Xzo/tVL52 Oqnf2u0XPErVz70PxfLZH7RmqPUT4ZCh+IQ+m38Wx4zMQIg9fOlZhhiadtUa go5rfrWSR7OsPYjPaYnDq9XRsTXp4GrFHck2pNbzXSf2l/unb9pR+R98wPRG 3nF5D3RvygvQvROUOBxA+eBTUH3gOC8khtrvmiNReK5jcjQbrSCcTSSipLLm 1FBxSzqIJC3gz+xBe3UyCW/We+vzX6l6bpGEVlRYtGYuF8eiNoHwtTpEpGEF 2mk6DQZbnK/ckqC8LwtaevVqFQjaxMWflA/LbhzVonzkGcme4GW8NEUP1WSQ 13+H23SuoGkHn5AQnjIZbi+0Qkce8eePuJcVhJbel0FuirgN2CSg6UbPwVH8 1F5RFtqyugQspeUfNzagI8tK4OTuZZ9vv6PyZwFoKI+p7p5Cs/74kH2aVS8/ LZjNsVk/i0jrx0yFrkbz3XtD1pvePKorTXlPERGwOR0/7wCa6ZREJOZFlGqf QLNf5BJ6+Pv+Z+fRUxuSiR6RmOl3QzPe+hGbtgurtgSgpU9FgsflZPkrsWj7 vZkQyDt5LC8X7bWoAhLjFOzn1aNj9cqhWNnFR/sd2rO/Gjp68mOf/USzvtXB uPPskv7FczieSGMDt+DBPsn1aJZZHYgk3/vjsBPdu7gOZDVqV+apo2mqVaD2 YenOeafR9B8lYOxxXEf7MprBzAOH1c9sn92h8oWT4F5m173+52j2TyYJPSYa I8lEiyYzScbns0UOxZQ980n13ZgeaKP2Hyoh/WIjv7k/oTOnK8hUvpSQ9qy5 eH3sqCK8py7JPVuOZjvXELHv6dr9m9EKwQVk94OfNpL70Iy+CKK9hdx10EGz XmcQizJGFFig9X+WEBfT4gLu6+hxqSry8M+8bq376LYl1SQ28PCvwAhq/81F JG/7fcH+N2hmfjFprG2Qlaym6ofnkiErQS2HXjRt0Wvyd87J8zBBudAGBEJf 3OGez43n90kEiT19EVqr0fTjhUBvEWMFyqADrzWD3kXLrj4VtP2eRrBZ9HpK 4iSV3x8EHjFjAg62aJpAHQlU2i4DHmhmXAZJfOt4hPspevwqmxQ7ZVtpvUKb sJNIx7K/twLz0eU7KmE8UTG8rxGtZt4A3Oq38iSGqHhHAYi8K++4PI1mrM4l soxFP3L55nEc6lZO1FZpL+PegLYULSLGGY+2ae1C82gXEoejrYcDj6Bpt5Ph 3qiwZd8ZdKZSJYTeMfaUcEQzH5VAxvrw0Mv3qPwNl6Aa3uXmhqADlQtIv/7m 9rmpaPrjF2Tqm82kZhlabYBFeO8zlwZ2ohnrnhIxiYmtfWNodncW7C6RV5eY w8OxkywLtE2uW1wWQtNXvQKL33keuVvQvSqxxOUJ18u5imjtESZ5KKOao3kc LRqZQLZ1GhwklmjatC+p9rzQKHkdzZJMAisp99PCflR9dihwtwWM8IShGduD SYR77NUfqdR651uELpk7+30pZW9f0t1Ud7+pnconfnDddWBV0SgV97sBQpt+ xCTPUBbShYz6BXKh/PPRCy/CsetrWH4bKG/zgHExWY0bCpSTvYlvrUrb+cNo 0SNRRMLJwOykMdrE7DWUrbswrnaRyv8TD2ZVDBd5T7S2chqZdSWAR/wpFee1 JiFrYgME4tH05AewpzxHdDagGbwMaLtY9/pLHVrfmUWurBpQ6O1HS4tmAn/J 9+LaSXTopnxg2i44CjwLsL5RLjkitObtq1Vo5mgyGS6QsQqSQpu454PXeZVJ L0U0HdJgw3ID96u6aNHhClKYZ7PY4hzaXjQFTlsynuk6o8udWTC9NGDDAV+0 9pxM8iwnJlkmFM04UEp2mucQ0VQ0X3w5NPLWVfCWUvVWl4J9Zv/xP23o2Oka stj0e9/ICNX/k1sQv3CBbcdfylM6cDB99a/ypQvRZkdh0Fjm9hsxdHA4m3jw qPBHy6P5zpfD2hT9kAB1dOZkDeSespG4aYSeelxNTs5lZFy0R7OngfxIfKRk cpOKd5VCgH5MreYTNKMnF2S4ck6SODS9q5HUvqp9L5mLbpMpgvPH+y8J11H1 psqBZ2byL08/2lKogETFzvf+MUH1X1RNlHRWr3g/bxHHCgfY0PNbOqJJGD30 oQpcopS3FW1FO+k0kZVa+jnJdDRD0xMyps4fDD1GeTIGjoW7NfpZoGlBj8j4 4Uenb1yj6t9oJL6T0SPnfdBd2+tB4mX21ZMv0aKX66BMrXb2oRS0tj2bmH3t uy9fgmauAjIreHKVeBt60/ZSCFGZHyswgqar58DeMRG52X+p/bObSXugNOsL 32LcX74cghpfLXHcgO6tiYWTvBtP/9qFZozkw6pD4YmummihuU2k6+bqv1xn 0ePZaeRFXuCRO1fR7C/JYPxz2YuFPmht7yKyVu7+6P1QtGhrC+m1XbBXIB1d XdAGYXG3vAMr0NK+RWA6SOsU6Ua72vWS/9a6SIR9RVvytcKgwY9rG+bxcmwY 3QFRAZcq4lahk/R6iUXdJyEpabSoRwlsXGBlmaKMHpzTBkPKg292GqCzY1tI nNvpeTkX0G3zWcQ6u0NvvweaLyEaJCePRxc9QZu8f0NGt9VPHnyFDtBoJQnW GirV+ejhmy1gG1UWoN2E1uWrgW29SoNNQ+iHd7vJuHDedoM/aPqhZkg+vuvm 26VLON4p0gqX/NMazoij0+hdZHvVtvXvd6NZo9n/Hs2vLlproTUXN0I6Xbzg 81m0SUo9cbwexnfZCc3+9/eefIaIyQ8fdKhZPkyNP026Hob294wgWZLLZmbS 0dKfWoizhZ+mZyU65Ugz7AmbH8LTgxaTKYfpTs9PPt/QAS/bifFCRgjPHD68 HmvrID+WlKrzoi3ONIKo6u9PPkLo9RXNhDGQubxuPZo2EAu9DEeydCva7FQF KK6RMz8mj+b5UEbCc774PFZEz7EtJFwGSWmth9GeZwrB9LtN10o9qp6aIRQ9 kphjaIK+/YBNxGSGJEOs0dNPa8GzNupYrwO6PKoIBs+fvb7eDa287S1Rmb8u wuwuWqOHBdHR3ZXRj9BtXk2EWzn469ALar+eMrDoMxCWjKX8tQbKXFcoXUhB W4Y0kE0izVZJuehYxSzwynr44EspulaziQzpaWdtr0fzRZbCoYnFfVc60azQ TIh/UMWT+Q7t9DeDLNh2V/rXGNqeOxOsq1X19/5Cs//dv5VWcxiuc5bi9XX3 HkjMK4xh8aJF9yaCd6RbHddKtJMcgLqcFf/y/9DRMr3AU6xzfONWNE9wBZQe 2xu4Sx7N3JsAngMbOg8rohlPnoDS5SVrjA+jLT9kAW32TxP742iThfEk72F/ hMdptLRrOnFZX/0+wAptM1MNu1PSN8dcRg/FFsGU4kubrBvoXy8bSUa9V1LV HXT5rhpy5cylr28foA2dG0Huy6kd48/Rupta4CtDxYkrGm1q1ABMvm05Akz0 Irt/92eo0F/xbPTrcRbZIs2luKuYOl/Qv+dx/sjNw7Xo0MN5EKvVXGrUhmbL psG5nrz59v3UfM9nEHG7WA2PUep8Zfkw+PfB/YDvaI3XbyDc73pDNI2fY+7B amKyxnx51gI0zecErEnU1K8SQEeKp0HXvzfet2vQxvrlJKhmXffYJrQqXyXo Gy1cx7UdHXsjggh+mjgrQNBtzUnQ5NIdLX4QzRZMgIeLyj8qHEWPtxXB0eDk LYdPof3Ws4Bvy3M7I3N0wmADqc3xTLGzo/pjqxCfw7aT7tcoC8kR9c4TCgE3 0UPl+YTnvOL1aF/0lu2lpPSXRF7mU7TQsRjwvCcwqyoMbS1SRpSE/x54+wot bRtFaPEfbo+lo6tdMyBvV33FLBbHjKjBRnCpyF4kUInxXyqpsMcgUku8CS36 KR9+Dfk+VOhGd5ZUkkynq83qQ+ilXpXgyHNGyOgruvddCcgFqp+ym0Z3mSaR rxvlQty5l3FcUFAIzDer+x7xoTtfVhDbg/PEooXR/uIuZGvruEWmGMf0gBcN ZNSiI65SCuPtC6oh/nvRaJcCem7Yv/f52wnbxpTQMfPYIC749NKsIxyLFoWx yWAUI33ZCYw3RueT8B3WUxvOYH3+0AxiUnJsj8J5jrVX0+PImuPEVf0K5tsu diddg+IFhm4cM6bVwiDIgW+O3V2OWWZ95UR/zi9V90eYz7DNgxUBA3cfvUDf MCsGIcl0z6lo6vxajSBceNvNiImOmt8CIgb6zoVZWD/Eqh7WjG++srEI47FJ 2SB657edTzXabyqbrF9TY/2lGa3/6wGIpYeY6/Wg3wzWkw0a9iY5Q2i2ti8R H1A8JfoVHcJfQzY5L9O79Ru993UpkVj6Tnt4jgB+fsWuZEtsxmEtXrTfTAlI 7fdSTVuB3nG7AaRbDBRXrkOP+DaB7AXJva4SaM3satg+58/Oge1o7StMkHte K6NG0PQNeWSnbOiWBFW0nngdUai4uJFfG21TVUV2mxxYf9UATauKI3t/CKzu MkXrVJaSfX7vVyjaoHcWtRP6hkz+6CtU/SVPQDH37uKFbuhFNYWgdOwUj70X erdFFSgPb5nd/ACdebASVN3//tn1HB1wkwVqQuypkEiq3rQ3qCeFfZudiGal loGG6uXPlm/QXdLFRPOt8scaFtpfGYiWg+CgbCWa4R5JtBcOdT9tpOZRlkJ0 wrPap7vQJnHPiO4u76Yz79F8UeGgxzasKx1Db5qTCvrnpColf1LzENIlJ//O FPtzLedYujQGDB/X508uRDM8r4DRlojsk8vRob+DiXGRQ3r+GjR7OIKYnFRl im1C0/SfEtMvK17dlaEsrQpmXh+jPu+mHPkcLNbmhB5TRjtYFxHLDJ/nmUeo +s7JYH3E+MnqE2gTrmdwfnDbAw8Tar1pFLG5PsvngxXaMjmb2PI33ta4jJ44 V0Ds4yLdk13Q9qvyyCW6o4vgbTSrpRQcWg9evX4fPc58BY62Ky/1BqKH2Cxw mjtioxKO5hN6A9eCc8/Fv0Ib3isA5+1+pkvS0b3W/94vKk8bOeRR9SILwPWM jH57GTW/lf6EMcV1bF892mu8kXjcbzoS0YHW2NxAPMWj1XgG0doCjeQ2XD1w 4RN1/sBKckf30L6G72jRzDAinFYrzDVLEK8nrQckcZnuD5mFaJro0X/P9/bG M8vRrMoAaGkwZj5Yi45cxwZr2UGfgs3U+iVM+PPAyurLdjRfSDr4f/mssm4f WtQiB8SOOqw/qoaO9WdBJvPnX4YOuvdqEWjwuXUyDdHlJ0rhct3dAL6LVLyn Cri3LblIv46eulkLQX4BR+xvoX0YbJD6vFIi9D56PLEeCo+85GY/Q7uUN4Be gtjATATlnEYYXhSfvy2RMr0HXG22BZ/ORHfpNMPS6jSn+4VohdFmiJTcfTy/ Gm1i1AIK3vkyYy1o3ZgWqB5W5l3bhxYpaQET9cphzRFqPjktMBGnVeY6iX69 pxvuzG+OSJyh6om0gLDVSUb3/BUcN91thsTyHkNeAbRlWRMobTLftW8Nuq21 EVruDC+33YQ2y2oA6w92X1/Iogcv1sMf1cnamr3oYrEm8I92fvVHFa1fWA1i 3DSvrUfRtN0VkGl+y8zoFDrwXAlolCxQ9DWnrFsAvWL+q8EOTV+aDZc9l/8a vYbmW5AM3INBLSKe6N6McAg6IJqq4UfVP+0MUhFR910C0SypGCjkkrR5HY5m JKeCnilTres1Vf96Nnws2LFh0Ruq/hwWuKzLmbW3gMrfWQh87vTu81VUfl8R RPaWZD9vpvIj80GBfvhpVQ9aqKYEql+yL//+iLbfXAomM8e1JSeofv8rhQnj zi2n/lLzbimBO3km8715hDjmoZeA8Jr377L50Wq2xZB443zhsAg60KoIlN6O hwhvRIteewMtex2vq8ug6RMssA7+fcJ5D5pvUz78+c2Qi1dBhx7IBbEc70/z T1LxIxmQKby0cpcZtf5UKmg4P4m2sqW8/hn0tq+6+cwJzbrwCi7vCjtd4YE2 +S8a1EN5Jw77UPl7/GH9PBev2sdo2mNH8vPCR5GjLylH+BB2k15yYyyaIXib xO4pVtFLoeK9B8EtXKajLYfy7SugN/+l7akSyhX2IGW/aHZ3LeUANzK39dpT kzaqXmEQ6SIfJAf6qH5eR5C0SF2W+QjlvMfEe2Gh7tAEdR6xUGJ6adtH679U PcF4srs9+ManeSvRo1FkKX0Bv/1SNCOKQYair0Z/FUbTpwDyF7/bfUUMLTq/ AJ446NT92IruDY0gtp35Z53l0fanWERFaevUNB2t0F1IROKCfNzUqf1EtMnE Ep51XLpodlE5VDleSfc0QvNtL4Twt/2H5p1De30rINeUtbvv2qNNzN8Q7Vdw aZEzlS9WRjbxS867f5PqxzcZZpwCny/1RVsKs6GlZ650wBNqfXMOJKpeLhYM RWufLCO3Enr1n8VR5/WJIYYCmp9WpaIDVUrI9us57iG56CmjIljQv0lwXSl6 S0M99Ks9iY+oo9ZrR0FW0uz94u3U+ks1xF/wYmNsP3XeilJieaP7nOQo1U9T HNk/eHg6YRJdvr8GBA9n+UvPoFk76+FTsviGVB5hzA+PJsVCAVk7+NFCS2tI sNsszcxV6KmndeTye9v+3RvQ9LnBRP1IlyNIoQdVG2B92qGFdAV0W0c1/BR+ 87JQET1UyCJsdzE5lcNo7XtFJGboQXmZLrp4F5u4as0Yqhuje92ZoJdh86X6 HDp2bRNsXd1xS+si2j4lA+Z4HhRucEY77G4iXcNpibqe6Ei9dpJ6dP2BVl90 eXcV3Mu832rwFK2/phnOrP1zvisUHUxrJgq3rWmn46l+EtsJ36fWgL5UtOXD OvhwTGWzGaDl3jVAXnYKvC9FS59oJk/WiepYsdG5bu3kgpfv+5F2aj6/mkB5 7Jez7QDaU6IJrqkFSBSMojMvNZPEsK0dy76jaVEtZOBX6V2LGTS7uQOEdE12 ZfGswv2a8uBIws+hhfzoTZHlxIP7UaDxKvT4cCl5c3qLWrIYmkflA4xmlvyY LYUOtO0g6/hPx+jJoz292kHv/JReHB3N2viIeBc/4J4+hG7Sek9YqyUzNI+h h9aOwKRjsXmYIdqU9o5IsI2WT5ij+eZkEuPNP4pV7dBqh7rgkYe/wzMntL9l Mynv3Cw26o7mvfcepuWKGvd5o23C2oiMn+HNBwFonf////DDpOzgC3TG+g/w nH6/f2cMuvzCW8J+tunhXSba0rYB5n4rUOzKQov2JcFujVNfpIrQzM8DxC5q ItS9Gm1sNwSRf321m5qp/lX6SfuJjbSNPdQ8w4oJbzIr6doQNZ/db+HAgpOn q7+g7ZtLidPZb7xrf1PzCe2DhFyfvItzRDjurasn/cvFbYsXo7UFeskKu/zV K1agVY3egUa5fo2VKNozrJe4r/vqkrsZ3XaoHjKcvbcs2Y4WHc2HkUaxrjN7 0cyJXiK6Nc87TQVtUzMIx2+f2DNPC226s5vc6xkfNtBH03wrSb7CvaDXZ9C3 fbtg4sF/6jPWVL/ywWTzSO7Pow7o7qedYKysFxd5A61/q4E8ejGm/+M2mmd/ Kyn/7sWj7o/mz+2HP1rrM4OfoXXndxLZuJxzY+HozOJMOMd1fIXSa7RLVzEE n/pcGpCO1vHpIPVpdxw/5KE/v+oFbt514rvL0e9735I957KbferR0vtyiD3r 2K2eDrSHYTtErfwkJzuIFrqXRjou3R70/IROkWuEJdVrA1q/o8vPZhDlDVkH JGirOa593Uauuep8c5mPFvvRBYmtI+F1/GjVuCYyIH1LZ70Imn7tCQjdW8N1 ZQOatSsJNAbeJJdJUeuPVxL3vUfPCCugh7haQM045Ku8Enp8KJPwMkZuHtdA 20g0kuYwheWX9dAayg0QXHQr2t8EXa7PJGffNcgnWqMVxuqIxDzRiioHqp5n NXzZdOHkR1e0vWAJyVTPHuG+i57qySJuNvNuiD1CV/8oAlU/XV6lF2iarhtZ zAx7eToGHbqkgDTVf5a+kYwO/JIOz7/tKQzKofJz74Hp8rvHMkvQJqHJZLN8 y2BzHTWPk6kwrv+f47d2ah5HWfDG2X7e0kE0g+cJcQ2GQKnPVL3QOFDJWyCh MYX290sHV6PNSSf+eefQH7FvS76T/wEbNXW/ "]], LineBox[CompressedData[" 1:eJxF12k4lV3UB/DTTErSpHqSJCpKeqTJRlSPKJExhMpMCElEJ5KjzIRIERok Q8Zk5ZiPE5mOY5aZkFQ0D2+vdb/X+8n1u9bae//3uveHY8MZxxMWs2k0msMs Gu1//wZbeP/juUhYSW7kl9inJZ9J06yUo/5//bdE42RWQOzGj13JK9HeJ8fA 7JCiY6kIWjB2FCSsAmk9W2dM114wCROMtrBfslhnv2wmOaniG9cqomnx1uBZ 45Kz5whazoILyhPMQ3ra6O9OzcArwN/icgqteT0X6mWMrMOs0IF8TBKt/ehb +nm0kygbTC5M36jxpPJKVJFN0cr/jPqhIyVLYLwg5OmCULTeg1bIbu9U2BSL ZgaHEY+fW+qVk6nzGovggPDF02bp6BGtCsKjVP7RqwDNE1JIXp9eei2uFK1w k0Nu+ZqseF6Ddo+7D8YpTx5wueiCYS6IVn3dPdWDjpHOI29HDlUvHUNHHeOQ zIURhtLTaPqlAHJRqmfs6B+qX4cDChrbvGx518/4onoTmefkwc9YhlYaqiU1 YVX3Utahg/5tIBHZy2XKJNDyuXXEsPl0aY8MelNxE9nwJV379360Rmo5GRH6 ObD2MPq3ahPJ2HfEba8mmtbWQNyMoxboG6JjfiaBvHd/jKs5+qB2NZmTsGNr uANaZG8pYZd4vchwR59TaoTQfvbRWh+qbhNA9OcJdY8Goo+uSiTCEhaOPNEz ppdKD5BB1Wc08cQZM/UuDJE02z9hKk+wf+o8l7gEHt14Ohedo51J9qXfzvEu Rn+UboeDLa9/TbDQkur5oEGb+59p44yVbv/ggMGWvaF1Hbi/wvs6cvaEQ5vi 4Iyd6opHiINnkmjmxIzNtue0EPfkVjuRrzPOtN41DCVD1w1ZNJGZvFr0HDjs ueEKfd6MNQ2EWuDVkqKkPQtnTLs9/ZRoJuuxJvmxv2DZKOHu+TD+aBmaebGM GNXeXHpaCPvFWNXQc1pcbvU69PH1JWD5mWnYsAH7nT61wNgNoysB4livv/eG OK3/nHRAEusqAmNkOjuU9U2a2m9/GfFQlXyXJYuOzh4GWlfFUtu96K1L8sHv vJmcqAL6pWwLLJz/w7BdGc0jk0FCY29dCf8P/VzmLVkhvSNZ7Sg68FQJiS1j s2Zroc8cq4D1BhbvCnXRC2+UQPL4n6UuhuigHA5svRorJ2mK3j/aSTJW7DLq P4tmxA8R2dS6K3HW6K70XlKoYJusfQ79fdsAKDbNreZzRufkZkO51b13ZW7o eRr1cOTnXsHLnmilsQB4HcqRk6WjT/r3EZ1Njkbj19A70tJJ23NeenIAuqmk B0w0kpONg9Gahukw0KdQvTwCLSI6BDYX297VRKNbr3LIBJ+roN8ddM2sduKS wL+bJFLnZ3aQr7KPjaZT0KP3W8G7WoX+NJX6ficSYY5Jd7JFBtpM+T4wPrpX r8uh5v+yhvD7L5toLqDy+NaQiLXpgsGADl2dBUKZqrsPl6IF9Gsg/mC/0e9K NE1UF0TbvOh5r9BpiW3w6JxQikM9OkEJyLbZ2dXizZSvJ8OzqGMT3W3U/mKl sEdyRDC6m7p/RAeBYp/dx/up/fnDQFlnnfGCEfS4bj2pGsmnF49T9c0X4KjX iZSLH6j5FNVD49J31dKfqfm1vQL9B/4Tw9/Re1RKSec+0WUJf9DMP9nkTF3R boO5G2as+rGNDJ/VNxbgRRts6Qb7rx/orMVotS89sO+85cohQbTxjjfAM9r+ ZI4Quj6ITbhnjh/YsA6dYPSKpHSUcRVE0TTLLuKqs8feWIKyUypRrk2b5SGF 3uk9SAQOb4iOlqH2m11Kul/eksqVQ/esyiBpuxeWNu5H+3j1gEemt/6kEppt 9w5Ut3waX3wY3ScyBivvW/lIqqNDuztgYE3nqiOaaMbRavIsQvOppS6a//Ek oS+qUL5miGaVd5LjfntbE03RdOVhIvz76blic7R12RgZdxOd02VD5T2bB4Xv o2K+O6BHJruAYc23XcgVvZl/EvR6r5TtuoTO2zUJYoZTBtre6EWeQ/Cx0XrC yZeaT4UPYap3+QYz0HeLBklwudbqtCB0578TxJhUpleHo50eccnWvH0Hh6PR glnvybftGW1z46n7bO4lrIcbHUXvo6+F9UCUSMxcpYdo7s1xML+9KPZUGtp5 +APsFLwq7ZmFVnIYA9rN6fKYPMpLksjrObaGeS/Qrard5M7l7vdNTPRQ3wix mz7h96GCeg8fC8g+h6o1S16hRxUGCc/w/kyperS50iDhmmYeUmum7v/IjyS3 inVYtaNLw/rBWeu2k98bNNN0ApTYi+cnDVDvdcMo8Kv4xDHfUvWmFuh68XlH 9wTaPaGDpMnaVf74hJYK7yMeT98Yrf6Gdg3hElVxnQ9yv9Emwr1k5T3WdZ05 ojPevqWfDKwi/zjzoOl1kfAsNCsrZDE6ZqIR6Lzi/z0VREfm9cFxn9hO9ir0 A1YvCP/gdx75B90zyIVxF98F80XRtNYTpHD8y52NEmjZmkbCsLDfeUAK7bSo jeh191SZyFCOLyFi+rqnLsuhpaZayMe66o+396NDK1mEqarAyFdCty6rguCS Z+uaD6FFxOvAeJ9E9kc1tPmsRtiaHacqoEnls6uGb5IC3dt00UrV98nn+DVX /zWk1r/LJlNLNontNaXyc3LJh6vSVQrm6IThXDLxaa/tQRtq/ctwMmZxcLGa AzW/J3FkpEUj87gLVQ8Kh8EjJ7V13an9YkKg78XZz4ZeVP3hPfJmm8NtMx9q vXMIdN5zl7f0p85bmQFtS33f2AWizc6nANc3yOd8GNWfngNN09GbLkahM0Wz oN7qPutyHJqpEk1q29LsfBKo8z8XE7Z6Pj8jBe1uyCJVUJIVlErNP45JyqVr dCIyqHxvE6AkkfslJgfN+sGCl8t6Y+8+R086v4AXfmMk+SWVz5kNBV+mex6X UXkUyyHXhnYtg0X1z88jzzoWSuTWonOMG0jGsRXswka0awWHpBWvP8dsofK6 VpHHMlsFKjupPJol8CBJNvtVLzWf+gZIWqGo1zBEfV+PdEjwP/KNO4YW28KB +G/adzonqfPbiiDWzkSxbxpd7/v3/4Mu677h72gRyxYSedzF790f6r6cVhJW 4rX509yNmKe5kAT/y3j1lRfN4i2FmynhDr/50dbSHGCsil86dzlahCcd/AIe 5vCuRgdGNoDPjyz9JcJUXbUcrpwr+r58I1pgI4tcflMZv2Yz2uBaO7mk1aAk sg3dymkmbmUd/Zt2UuvPlxKXXUPXJXdT9eIqcHo4uUVGHh0q0A4Oq3/UyB1A 77AvAbub85zkD6PFfrWA9a8ly5TV0UofisDScU3ef5pUf2YtOdsrdvKYLtp+ bScx05b+ecIQbWbWQk5V7L1nYIqmVxcQw90HlU3M0ZHJbaD/WGPwrA2aoVgP OmtPMmwcqP1S60Er6Kykowta5ygXNP6ce+3qTu23PBPUz7uf9/Ci8n5uIar9 PsvpPujZjgPkkG5Qvp8/eqqkEZSrog1vBlLr/atAce/9X6Fh1PdiVoL8k7SE qCh03p8B0iHy5N6hOGpe7s/BI+rx3al7aM6SBhBa9Cg+KZlar9xI8q8+uHPi MXqNdS/R+5IcNysdvYinG6bsk2Izn6F55Hogoi/xtmk++sxwD9lpkBDDX0TN 7+dL0lB7NxqY6K8ry8FJJT7KvoLKP/IcljyPu7WWjV4p10vSt8dGsl+jy2s5 cCw5JuJSE1pT+g2Mr44O39xK1bO45EbIrbCWTmr+HxrJlnmRodd7qfrFFmB5 hIfsGkI7CTaC5WRo8MAo9d7v9ZJ5liFBEe/RBZy/v887ggKVp9Cb2RxQ0Qq8 +eErWvYNl/RV3riR8As9crydXJUPCDg+WwzzZbWCyDN/xu/56PITbVAscd3/ KR9aNqyLmMRfu24sgGbefEB+Cvr68a1A00rtII5x9VrhaqpuHgf7fl/xtRGm 1kMXaXXx9hHaiPaY0wcX316+WiWBZg2zYKWpJ91NCm1u2kxyOZeubJJBJ3hW Ex01d2/OLqp/cx18Knbz8t2HVjVgQfiuC5d3KqJFfLqIzBMXz14VNM/BcqgX cfYIVaXyJjWDQ5TTJcVjaIZJFVm8yNF9Qgtdv5hJ0q6euxivhy5obgK1L3Zu R43QmcVN8Nbe9sIPU3Tk4nbC6LN2TTWn9r/gARIGVi4nbdBOh5lQWWvhzOOA VhqLIRYq5ufzndFiPK1k7vMzTpYX0YV8fZC0/bTjistoM71noJxs6lBOR4dO N5Ge1SbnXPyo+8czyZUQY3vRG+gR6xIQnmdk1xBM5REshiKPk7b0CHRMaisx mtS3kY6h8tDL4buFnnX3HfSav+/ndoeOVVAievxXFdmjpW0p/wBNL/OHlkot i7FUKr9FLbjJa5rHZqB3BNbCimcaZ4/koAcGmkmOxLEzXwuoPHWJcCJe/fRD QEs9roIPgmpmeqXU9w5PJa32ovW2VWhLNocwK78rXqmh8q5nwCORpoyIBrS9 GhtCPZ6sf8RFC60pJe4c35CiDvTcADYx2278p74HfafsFVFlyDoODqIn00tg R9+iN99G0dZ8bBCSH9Tgn6TO638MtCh4KTpNvc8nr8nI+1vbd3+n3ltpFqk7 4nBX/Q/aNbcZ8pIO85vN3YT9kuXk7i9hb1de9Oa0bHJd/8s7Bj/6Z00Fcciq OxW/DK108xbo8T2qzRJCa/I9BQULOqlchy4ILQDxYoOn7aJogYB8sni1zLr3 EtR5E3Uw5cwbNGcbmuZhBZ01vT9X7USb/fscysUL7aV2oyfZ9yGNHt6pJE/1 T8eQyHbbo7oHqPPds8hlWZUim8P/XzcPXivlrU6tP5wE6iOf4sI10QkhBbBT uYbvoS6aHdQEa+4ke74wRO9prCCzP18eqzOl8ldkkdHjukYD5mgn42xofLzt 1VcbdJpdDRTOmb9/sSN6ZGUmuX+qO3WDK5ozVUMC8vPWyF1CZ+aVEaelITfU vNHOag1gYGf13cQXbXnmDShVKNq6MNAxdzlk83qhdv8g9FyPciJwafLInXA0 0zeefG1kPc+MRu/n6YUeqcQtFXfQjGuFwLp+6XZbIto2rpdk9mjxTjxAT411 kph9Wy/NTkNrCHOBHjn77cosKl/kW7CaaDeQzEMbSHOJhmo2S/HF/32vl0Tu /s09Okwq7w0OEf559pF1BfqSzijM15MX8mKj/fO6YCJjOSOsbsb0PPUxwuV9 9yWFg/ZcN0xenq2wKmzD/gnFKvIA4lted6PVln6E4FVu//X3o2evKydu5zXy v4ygA/KGickrcYlFE7jf2twRcmjTnyiRT1gf3/sepK60zN/1Fetb6e9heVuG 25FfaK7Ke/JzJ2Po1GzxGW8wGiIDgWZ6zgtmTPO63kd+CDPkJ/jElc6AJltp z2f4H/11Eq0= "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQrain/rF8qpqD2Yu/Kp/5v9kyNwdbbADygVINeo+/ 2vY8kGfJmwXmO+RN/WArZvfmvPZ8iHxE+RPbBbN3zH65GMxnMLt+2lbzZ0v6 8hUQvgPnCdtNYYHGqWsh/B38q21ttsj+V9oE4X94uHPvMcFXpx5sg/Ddrj+x DcjfNm3ebgj/kcp721tnmpJiDkD489Wf7k3W8teTOgrhH654YfumXfrX9ZMQ fkzcdduyp8+PTj0H4av9f2rL4LxlYvBlCH/B17m2XQsaYgVvQPgWT87sFfnn o3n+DoTP4PPAdm605NeehxD+i5y7e9V2Pj3g9QzCf+nx2HaD2KYejtcQvuKa h3utSuoijr2H8O/V37E9fNFLpeULhO+x4c5eH33xD44/Ifw1jUdtr/U83v3/ L4Q/68WjvQmv1rfvZVIH87Ukr9i+dK8JrmaH8P/8vWxbtNRD3pIHwn+nftH2 D5Po628CEL7Otet72xIebtsiCuEXrNpsy79vbVORFIT/IWmb7QzpKj8DeQjf Y/qJvUqVblLvlCH8H+WX9q65JvRstQbUvJh7tmYm9zdm6kL4DJ5X9x6YuLpW 3QjCz9C8tNfzfbnnUzMIf4b5yb0yhnJtHDYQfozOTdt3RUcOaTtC+A3THtoe 3JL1388Nan/06b1TvgnYFHlD+BuyXu+tv6t2aZuvOjz9AQDB6PBi "]], LineBox[CompressedData[" 1:eJw913s81GkXAPCpLCqpjCLJokJSK6WmzAk1yyaXioQ3rWbTZeltiFT2E1sR XaS0cokUKrtNua1bHo074zYzGOPOomIVWyoUve++59l3Pp/5zOf7ec7vPOec 55k/fjrcE3s8ZzIYjOb/fv/+PZzhWn0xSN+CS3YJLVgfSJLQtOX9BX0Lxt+f WBn4KnUwl4SjT88dIBz787vYEeifhFKiFmlw7fsotPzjHhgS11efj0F/19cP hUx/+QcJ6BSTXhKxd+n26vto5eF+cvB2cdDwQ7rfg+dkQ+uRwvl8dNWeGiK/ VHnCJBN9YG8vyPZnmzrnogW7O+G3RDffM4XoDcptcK6H8fROMV3/2Ed26T78 83kF2oPdT3QP2Rn01dD9Pp6H96nvDsmL0RFHeqHqZey9VVJ09IEBiFtl0WXb jk76uYZ4e73Q4PWgndb1EXP+1X1RA7TfMxKiMmJyK2eI5uf4Q79xq6h1hM4v uR5yfIPmTY2hbyW2Q3j2ShvtSbTFLCHZ/6EmdPsXtKZPL1nL8i09LGfwPw8v EhPGWXXG5dnoYKcQaHxWxOYro0U/1sKDqUNnREy0rK0FTpvPzXmnjk5qqSQ7 f854u1gLzdgpIFql+77Zshz9XVEtGZWb9nI3QKvPaSOlVimPgtfQ/MEyiA6z GUg2+Se/BI4KR3UqN6G1X9WCmdLtA0Ns9Ia6FqJsD/HzttH858pJz/W+FmNr dO3rJpIlDld1skU3PZNAKNN4d8Bu9K5zQnDZK70W54we/boKDG//JCT/QlvY i8mUTFeh1wPdUSAhIo3q7XKH0T3MVLi//0Swvhc1uxr8EhcRGx61ZR1Y9zyb OO5P5zNYQDR0uRtvnEVHlpeT4R8UT2YH0XlPpJA3iRzy/CLaozoJRlqDFWrC 6bp1MhlVJbulEWheZQa8dZiI742i9Sb/Qt5dNn0xHEPnxcwhY+U+xuMJaMGM e/CB8eTsrGQafzgBPpoNlSk/ovVx88n4Kb35Gnx6ftevwGQG13VlJu1n6z3y aTgx2TiX5hfz4bN++2uzQhp/9RiZ5qqxrIupZ16BLwmO5/dU0H5sCoDRer3W vYbur1AIM1VrFx8ToRcY5oOcg+JBv2Y6nyWZ8NVlzm9BbbR+r0SQLw9+f7mb 1stJJYoMYh7dT5+3ziJzzCbC7w2i824KyNxTpk2P39DzrasgShk+Wnnv0Kzi GqI8zD9aOo6OGaknC/SHMuun6P2YISILuXpTrTNXYf1p9UQlgWs9oIA2eC0k qrLEG6NKaNlAGVnEbG//tBBtXJtPFtur6SmooQUX4ol6uCNPRRPN0I0kS8qu FyzTQZ8WCEDjS43cKj0a710NmlsUHTasRvN8GmCZPyfW3Bg9/lAEWunBfTam 6CqnOtD+s3CN8xZ0pFYB6OhNBBw0R1uExILuQdMSbw7tR74MVtzxUTq9Az3q Wgt6LXznC/Y0vqsO9FWGkiIcab3LW8DATu/PWBfqyRIwDOOaprqj1bXLwKg0 MSidi7b16IA1023Vz46gy9IlsHazmmqlN30+7CQY+zkekPigD4VLwOTp9Ued p9BGLR2wfqjm7atA2r9vCWxYqQhjwbQ/+XzY6MG59CUE7d0pJpvig8VzrqDT dzQTlrRw6eJI9DC/k2xZOOGp8wudd0UrMbM1TTeKQ7u8biHsSz6Tm+7S+W++ S7aW8DnbU+h+mhIwnxqMsE+j87JpAAuWXqvrE3RRbi9sO8ld7pmFXjEpJduf JB7n5aGdjr8gnMG23EBC70dlFVitUJt5qQQd1twFg1zrR2aV6IuXe+DqvQD7 0Rp09sZeYtzzcCxFROvzlZJGLVmcazN6TnY/nHJXtFRuQ7/yloLGHdbLki7q gHZC2o5eC+hDK75sIx5LYtcbvaKO6YBZLtWtPcNoybe98CB6IuiXv2i/c7rI juZVejYf0Lc+dJJhplvt9CT1URlc33PZN+sL/X9MdIPJjQL1o3KGeH4GQiJt GCrSnI1OL5WRM8pLPcXz0LXrGkHTbufcUBX04w3tILgSmLFFDS0oyiM/CH/b N7IU7abdQ+Rnd0wla6MXKNdAmrVSistKdMzWJrANZdvMM0RHqjSQkTLv0eK1 6KSqbnJzVkL0qfW0vqkiMN1Wx17NovFGFSALnvqjm03rjcmDn56vCb9lSfNv 6yRfT7t/s8MKrS25ByXsiOYpGzQjxxcOBxYFZjqgRakVMLvgjc4RJ/TYsQ7y eFyraqkr2pYpAodNDv8WudN8WQJ46x+kGsKlvtUA0dlPCzYfQZeVtZLN77o9 3nihg9lFpGPdAoVkHu3PSQrBPAv+Pn86P+9Ysvwpz1HpLPpRspRUvE6aEJz7 J76SHDMS3/W/gDZoqwclrxlWhmHosPlSeJq2brjrKnp4YSPZ8+rgzagbNL9d LLzXu8n6Lhqdl9YAMZ4lXZ/j0KxHLcBOeXsx4y7a2LGedP+hu/pwCrppnoSc 13EUa6She9i9oOdxIaCBTy1Mh+rErGUXM+n5jJUT786+UlYuWtW8iczXVP3x 9TO67lkNmW6cBfcF6BRGC+yN9ctxLqf1nZWR8ZaU/XOF6M/Pmkn84uaZgno6 74RS2Lr3qzS/RnS2WxP8EWXqsEpGz9cqiYRIPN93dtB5OdcSg4XR8Td76X10 yYdahwpL6xd0v7YGOBHx4eWnIXpefsmgUqcXkT6C9nOVkukR41ThGJ2nXz4Z UjEr7J+g81PtAanpt43T0zT/X6lQ4uIwpC63Gu+DRABPAl1nrJ+NdhoXkbjE H9TtlNErrMQktPj4N0eY6DiHbjjZH2D1szo6UvwEPBTOu8cvQz/IbgRbw6t+ v+uieVF8wrKLvtKgj17bLSEreEn3B43ofgkiWBD1a/4sE/SdLQL4/Hu2aNkm NMe4Hl7Jil5uYqO1RWXQ9Klqerclur+5nAi0Ghd5W9H1QgF5bNlpFLoT7Zvb CDGHXm5P2oXO4xVAyKW/3Ar2ornTTcT3108+TW5ov+46cqDuq/A336Nj9j0H m9H5SYqeaNacArKRqZGr+yNaPaeC6G5cUc8+ge4JqQFl17UDzn50PszfYTKQ 9Zl3Bj16/ym8SNzGvHIOLQi5BpJiW8PUC+ijnDwo6ne2fB6GtljLJ78qHHRp vYaWu11Bbht6nXh3E83ICoeLdv6h82Jo/MdsuJs7mMKOXf3/96f/AExnp1I= "]], LineBox[CompressedData[" 1:eJw91H0w03EcB/BFpZRypJVbRQ5dnpauXbk+2jrXo5wkerpElqWFdulU1EpJ ceKwMunBwxrpAd26br61M3aNrBV2s5AVi56odiLsqn12/fG9373u/fl9H36/ z31dYxLD2FYUCmXj3/Hv2foxWtRe58WMIaHNzNUjZPaSWvsqiRfzb0T5ImmA UVa9Z6MUHXfNQPpiFYE9MvSgxgDqS+qdo01oMWkg9VU6rkMLetheD5Wtfene avSZVQYQDH8TbuhAvxjsgfOOYzUHdOgFATWQwLBWnnqHDs3Xkj277XoL+tCc 4qewIZX668Eg2iW7Avxvuc5RfkN7dynJ4gYv9w8/0TIbEdj2r1o7OYpmJsth xIa5g2qyvO/YSN4v3xK/wtrbbIrvYaLaFn5u6wz0RK4CpEn7r7Pt0ErbYRDn cx6edUDnzqkjBRKeooiKLtDLgd+Z2l1HQ3OOVAB3IsPY6ooWOavIriV5swY8 0FOFTyBoffFSK2/0J6oc6OyKNbQVaBcfAdAyH4YyGOhlvGpS9eC+fCwAff2r BFZ33GOQdeikzhJQjFdW8oPQ9hIhhC8V04I2o2PPSOD9JtFVmxA0N1lKkhLL rVrCLOfhK8BUWJqcE4ke6n9FsutvD2zfZzZ/4et2cP5wc69TNNrT8TuIZ5ao tGzL90pREAa9mHUjHvPCgDZojCh6HJWIeSanDMLSrnm6HUfPSPkMvWWFQkMK 1kd0NkNCc75dVRrmpdNbYHw4j3/0vNlMa1o3yaTm/qRfwrx6lpbMD8w5ZMwy W/3rbjspj83ufJJrdu8OFznxz7oSfLoQ578YVQeymszngUKzXbSTbyBEm+Fv dQvnH5/eA12mCxVNZVj/akwP8e7pCy6LsT5Cp4fRreeygu/j+gK/bsjgnTXN rUUPwmuYV5R2rE1i6SenYih9frpPIEXr3r0kdMPJyD0ytCrrLXk2O6V5UROu x4rqJcErT4BeiXn4dxnodh9/VK6y/P/f5YTD57lx2tCuFA0ZESUJvLToeVwt udCaMHOoC82KVhMHIze1Vm/pF00lue18ZCjZgF5f3QS+rMMxaz6jPUo0UB8X 1zExZOmHSRVsyWFvkhnR9H5CtI8PStPH0Dw/DRx6G+270YT7n5/3gxinHLhj a+1jzq8MqIHZcCdSMM3n//3yB18koMg= "]], LineBox[CompressedData[" 1:eJw11Xk41ekXAPAb2qRUmplLSiSKsqXScmSkH6mR0jZqpEiLNlOWUpJMaREV KRkt1iwlKgYnN5Xsrmu77sK1JCFUWi3Nct7fH/e5z+d53/d8zznvud+ruf3A 2h1yHA6n65/Pv9+1Z4zDay7OsZjfPqj9QfkTLF6xP1zt0hwLzr/rgd3wZZfc jwXhZL2kN/Aw6OpVj0hyqE0leCTq/TTlJnn8pFw0KHwSURhDfm4mxo7Xa7mH E8mFqhWQMPL1NY1Uss/nMnTV9VUteUDu1X8JmtbKkV6Pyf4modjgFqOmlUPm Tc/GyNMLbpTlkV2ramBjfMnkI8/JQckvcVLB1ijtIvK0tCTgv/qgzi8jW2Y1 QfDwoD99BWRtvUq0naE+VbeObFRUAyOXp0ULxOS0Zw/huauVhp+MfMy9C08G Cm/OekW+7PgKzWP3Tqt5Qx51Q4j9zzi3/btZf651YlZLmObsD+THv7XiYflZ d+o+ky1G16HxdNQ6NUCWab2Cbss1MQbDDP6zUk4dJG1/NV00nNx7IxN3BhyJ /UOR7J8fAtp3xs4wViYr7mmHpqe34yQq5F1PxRjdNE8niEve61WLm4cVx8+d QpYdyEWuppNuoyZZnVsHNRbvE87pkAOj6+Gy8+mZ8/XJaft5aOevdrfJkMxR e4Bjbt2bFWxK9qmsx8I8yySzheRY1TYIbKzVawWy0e3n8PP3PckhluShtiYY mvpdf7E1O39OCDnmV1LaVrJ6U2To46Q757I9OatHiqZ+Oamwnuzckw7v/lxt 8OZX1o+MULyHLffCnNi6IB/2SL0NLVyYTSWgOzgmrXMn2WyxCFrVbxlF7CXb 90vg9hLTB5Ye5KDMBnDaUmjc7cnqdWoEtWNb0q8fZc97VwB1N3pNlp9g8TZL ISwnMKP3FJmfIQJ7Mdc0KohsI1cHY/tTHloHs3zWC6BY7ed5Hy6Rb0UWAX/q fR2FCBbveg3Uak3h/hDF8suoBInO+dE6t9l9HOdBk97Xb/PjWX6+0dhmsLPL OplskfQMu0xqpJvSyKFrS/H9/GUVux8x7yrDL4se8I5ms3k4izhkrpF+Po9Z Mw8VlgXHRD0n88oTUNG6Pyy1iD3PJxiUV+4+/aT8//1PgEmr67wrqtj+1/Gg 5rB8t0zI1t2uwLSNGY7vpOw8ZyfobNZcJdfCHBSAs7eGgEo72z85Ak1cBg20 37J1j0tottN92rz3zK5BAO71E/73mbn5CloesJbfOMDm348HNoce9e0cZkj9 HnwIdt7T23xGkDnmnrDO91Ld2THk8Rsy0fHE98LI8WSfWYXofGpfdvIP5IEK AbqdESfnqpFl1pXofn7Fn2Ua5C8fX+DBkMyLDdrkaSMz0OvKDP+eWeSsyZV4 LOKKB8eQrC2uwYAbw1wmmJJHbazGoJsH1mktJBstLsOLMdLlc81ZvLgMDEtY ucBqGVtPeAzXk/+aud6GHKrIh+j7umpuv5BTGoUQmxE+xnstOWhCIyRlyg+e 2UiO7ZZBWo5H97Ut5PYOGTzOa2y8u40sHC2B3Ge/VGa7kXvLqyD/ZU5+iTvZ 7NtTeFky66HkIOuH510srYiIe+vJ+q1ZjoKq4RFDR8kKtZUorDsUpOxPzvWU YoO46ci0P8i8WhG2Nq52Nz7H7FWCHS24xTKE7I/PsPe1vp1DGOt3VR1+7Ly+ 1PU6uVpZjN96Rhp7RrP+9jUip89T63QMO3+iBEd8aVGJSGT5BsSg0sCa4Ymp 7L435sNEDu9TVjqZ61MFXAWD9qJM1j9bMUwdFVUvyiXbdEtgupJiSedT8vsd Mpg53id3oIDcOqkBDCa1pY4tZf0dKwRT7rqbUyvZ8/TLYZF6fqhhLVtvlmLz dO2GNyLy7HV8PKt/Wj+2kc3Hbj4azW33cWpl9b5rAeEi2wLuGzJ/UAz+likq VW/JXYMSnGk7blvweza/2wTIX3PwnvVn8syrxej9q6B/2AC5oK4ZQowitZ04 RjRP4WXgYrpyZY4c+YttCS4wG/DgDicPFAtxzJLUa54jyeMNHkDDUqc8wWh2 HhsgfZlym6ESuVf0DE5b85SCx5E5Ay/QcaXH3I7x5AuJIjRYreVorUK21+CB nEOVf+wPbL+LBGo3BCYM45Kn+T2Cu47zyp3UyDaPeHjMqa0vR50cyJWg/faI yaoabL+gALTdbCy9NMk8MxF82f11V9V0Fr/qMpTuSwox0mH5r8rEWx6bHwfP ZOtWUjzsqSTt0CMfzCgF6yMobzOHfGy9ENSO79eLM2T7A+Kw219jjZwJ2b89 GfMD+d5bTcky+wa8GnQyOnc+eXYbH/ZcMHmhupC8rqIWzENbOr0Ws3ivsnBi WNjEamD5L4vAVxHLFxpbsHzXNmLWjU9bL1qSE/Wr4MLNhNOdVmTX5BpwjtmU amNN9pHko2nC6Oq4FSx+kweMSs7+JreKzDWWoeSeu6azHcuPWwNp6eo2aE+e 1FMNpx6X7VdzIGeVFOKGbL9w7/Ws3qZI0HtimFu9kdz2TIZDT2XNxo5kdVEt CF5cGh2yhbwpvBriiyyNupzIu6zL8WjZhw0rtrH7mxEPdpWxx+NdyL/vaELN mvWx8m7kay5C6BOOKHHexe7/n3iFksx3uIds9KQSo2S7uJP3kZ1jU+Bgq+pS nwNkLZVmtGov3lHjQVaorAdul+8Fk8NsvlSqoatndkaIF7mPK4a8D9L6Lh/y k5NNePnzRY6tL8s3+AG49S/VTTjO5mNJFS763vuLgj+ZHyWAcfJ3Dm8LYPUG imHE1zyHd4HkMJVWHOqWmpw8w+6nbyt8au2fMOEceWJYC/aIVN/dukAuXVsH 7fwFfKMQ1n/VVJQVrL/Pu0Suvs8HYe6hi/ZhLD/5RuCnX9onu0q2DGvGwsT7 qw5eZ/15+wh40WX6nCiyhaEIs8I6FUOjya2OAnhwbnSHxm2y6XMBJvnrFt2P IbcvEMIdr+WJS+NZPFcpRO51OVORyOrrkuDl7Sfdtiaz98micji36ebynlQ2 36/jMMAOtU+ksfjvi+ColVheOYMsby7DQ4u+Nkc/YveNEthr9FO+QRZ7H3XU gKvOvNtPstl92Qlwi7qDvx2y+hfVw7qJHlsb8shWZ6S4alSI+f589vvzLgSr oZQpQ8/Z/CjdgyV9xQPBL9nv90Y0zutoF08pJncpPgUD2Yic1FLWL0Ux6tRq R0IFeWaXBKaWWh4pqySPSK2CH/OdN/1WzeZfvxbGZfkteFvL6nER4Ih7UT8e rydLEmtgKCb7o5KExX97Cj9fF1ZHNbB6S4qxN+RTxuwmNg9xFdD+x6QruS3M gjqU+Zr8vqqNLLgoAaGH/RpJO1nbIR/4O/cb7e0kp4+VYeFvF5QH3rL583sI PIek7vO9ZJGKCP9aUVg2+QOLb1iI6UvbUpI/khvmizBpnsKFxV/Y+9JLCnf0 tdxLvrH54RVhpKaF7eZB9v9ysxou/+Q0q/M72VxOAOfGHhvlK2f8n/eMb4LO 0L1nBxWMLbajfbGF2Sf8Gyg+PuQ= "]], LineBox[{{17.146038797879523`, -3.2333975281561927`*^-10}, { 17.14979911584043, -9.847855864109079*^-11}, {17.15962422090859, 1.3826917388826132`*^-10}, { 17.16944932597675, -1.171114316633748*^-10}, { 17.17679673286816, -3.2333975281561927`*^-10}}], LineBox[CompressedData[" 1:eJw12Gk4lWsXAGCcRqnUUdGswZSKUlEtKZWhgQrJEA0KUZLQLMmUKaWiSAMh JUNKLBkybZLZDlu2tlnioKScvvOd9Zxfrvt6n72eNb3vD9IHT+y2EhESEpok LCT0/7+peqb35dKVNVa3jyzqn/wNOCav52qissY/j4TKfj4Bkx0PRhW8JWd5 xUPnBt9O3RzyC85zOLviVFnpO7J+03MYv9gsdXcBOVI8HmylNug+LSK7PbmL nIkLGv8oITcdeoZLREY7mpWShUofot+3ttEvy9h9TkHQ3ckJnVhJDjJNgh2f ni09Uk3ufZoGzyuDsjNrWTy3ZJhUeMpwRh2LF+uOxzOMOk40kB1G5eCHF2oX ChvJi86Xo1LU7CnSfHKGWxUGhf5+fOYzu+9rDvb6N6tWtLB6Qz/gLve8EoV2 9nvNBkxyjrG80kk2U67HqceuDdR3kzViS9HR4ri3yldWT0gcVO7ZNdu/j8zd yAUVbZUXLf3kYdsWuLl+xmb1b2STk10wqDRce2uI/PB5Nxgt5h37OszmY9QO qVJZv7VG2H0aPJgx6dGNyN+s/txwcBXxlP0hvOJfe49qQO436/Rdo8gqIx2o 1rVNL24MOWLdFwz7tOyzyHiyQKMJhyunuJhOIN+zaUTTwgHRlInkzZ09mJFR GyEmTuYkfsHZiW9WWE0lSwbz8XxUeD5KkIVitgAv1M1k+gzyVI1mUA841HNc ihwY3gsR7lvdC2aRcyQG4W9n+enz55L1UgbB4phYnOt88sw9f0GWxVcoX0BW 57fCfIOKcvnFZNeRbHDTfmnlLsvuD+Qhf/2dH3Xy5MJxPbhJ+Zz/SkVycUAf Ply8X9pvGXkZtxX/mLnxpUCJrF1Ti4cnLdKBleTtO3vxnchYXsgqssSJXlz8 vcOhZw05iyNAz66SUVpryRpdr7H1U8Kd++vJDhE80KoKVhxSJ3fLfIGYwtNZ +hvZ87S/YBwaG8Rqknt29INN4rp24a0sP6te4ETNPW+iTTbQbAGFMGHxZF2y 5ZIi8A0QPJqwg+w2pwK73AvWHNYjp0i24HaXuOKMXaye7A6MP+ZvMc2A9Sep GcUsHfrtjVj+m7PQ3mCPV74xy3dYgKXaq2fNM2X7tLMVl4FUgos52Tidh8kL bX6KWJIHrJtQVTRNK+Agy2c3H7F33E0pKxb/Bh831Ro3PT5KvrOUjwUYo6hk y/op14TbHw+5ptuR22fxsNxXO2/rCdYvLheNTt6ZUnGSzTu1Euv3tpubO7H7 sorRUl01rt2Z9Wd/JrYs8v526gw7L7iOthO4m36fY56ZgF/7ZAN9L7L7zd+g E9elftpl8nzzTBzOLJB9cOW/eIiXomY4KXqy80OvcZTf0axX3uy8WxL6Or4S 07zG4i+Nxsn7xu4r9Wfe5483N+yN2hfErO8NUjJP+gTBzD2RECH2HRxCWL9s YmBh/1bfn7dZfaLxEPPxVo1nGLPPU1ia1bpgajhzfzQkRa8+EX6fOe4erPH3 TJd7+F+/HCDjVM3YlMfsuWoSbDSRMdjwhM3DrALyNZwjObFsP1wrYZtsfrdh PDloajqUTZyuxn9OVsqsAsMBq6t2ieSbc2qhru5l+fdksr5oEVhkj557JZUc +c+nQvDE0HZSGuvnex7aBESlhqaz9z36M/Y4DYoszmT52DfjKdMtei+yyA1h 1Ti0MeTuulxWz9ZIuCDX0pafx/Z7Bw9EJq9S2V1IPruHD16DHm48DqtnTQGI NVSVWL9nrv0E13MWSQ18YPUta4TpsU5WlyrIqpPK4V7gu0TRarL4yDuUdpb4 O6SW7KzGx2izw7rSdeSLgjZU1Ey5Fd/A6lVuxUT5UZ/XfCLL3a3H1eIGy3P5 5Ji2PEj/9ujcTgGr17wWNHj9BR9bySKyfMjL1ZSw6mD5fOSAbtwNy94ucvPt JvgQ9Dn+XA/5nSkXDFxW/hjTR/YbqYKP5le2BPezeaSn4f7NldfnfCNn6Anw s8LCxpghsm1eC1pPOaWg8pMstrEFv3zPcX47wr4/uxrQsXFqrq7Qyn/t/eUD FOabYZwIeb5CPcxNiH4lOprsap0DTrd7E23Hkg+qNwPn0tp4znjy4fYanG/t Ea0gRi68x0dn/dJI30ksHpePJaqSdzvFyW7bUnCB9MEQ3T/Jnt694Do+PjBu Gvn1JB6U9g36iEqSI2qacVHdBg/bmSx+hADP5vhc5Mwm31rYAmVxla4K88hn RdpA5sacU77S7LxXLZ4/d9S+cyFZZVEblh9KPKorQzab2wQy238eiJMjt69r hvMqW8xEl7D+uOVixexAI9ul5O76NpQb/VGfs5ycYV8FF78s2KawgixkVAVV 1XZbfFXITd+iQCEzdUPnarLMmDZ0ixZaq6tG1l6SDTUBuipx68gawxGg6HJz mag6WfUMB9wtGuVsNchOAwLkaskt5Gxi9+k9wGVKjnMUtpD9VCvAQzJjhq8W e76yGuqExkzt1CE7/OKjUoeemO521m/rfPQsDx0Tt5PlN9AKDWmfhUR3sfnV ZOKKh0t/2uxh+fIa0NvXZbDIkGy8vgIbHbO/yhuTq0TqQMV0QqePCdnSqAF8 NQ0FHWbkkpnV2LTkfqOOBblhSy2ulujgxh4gK36vAb9fKyrHH2b9n1oPzYLz 722OsPns5KDq+/yCImvyevs6DHgpniN/jM3zbTkIwk0yfOzZfDbUwFrPx6kd J8gvnF9i0PGeFzqOLP9P9dhqpPo01onMLcmH9Rvco8a7kLPkiyFYtuS+zRnm nZHQPnl6WNE5snVNPaoPWdyUv0hWEiTBzabYAB831n+tS9BZ2O/d4U4uc80G jUS4onOV9eNMHd4K9boQ68XOy4Zj9+Vyl/G+5Dt5XNhkO8vRxo8cf+4T3tlt ZVcUQP7VU4s9axOOyF9n+8Z5i5sX/rD0ucHq1S2DsAmaph0h5M0DFfC1389Q 5w6Lb1iFDdwHRuFhLP+J+cjB1L1999g+2ZTBq4fFxlvus/meKYfHXk37Qh+w 98u5BoPtBk2+PCL3/niDl3aJmm2MJg99LwS71fPMQ2JYPheKwWSWyv6OODav gVrUFtKxgGdsXwQPcVWLueX1BGblNFjAcTzQkkiOFM4F8QSvg2opLN8ELo7c uHfIP5W9P9X3odM18TD/NeuHVRRwzfOtVqWz+XUlQ96m+iM+yPYtnItJsr1H eW/J4qqvIVJstI1yDtuP/fng3ydle/Udm0/wWThbs+zYx3w2/ye1aJ2uabe0 iOxu3wuGkcb2l4vZ925KAW66an+8+j3L/0MCKtm6n5AvI8eUVuNcvdsOFyrY +/6kECaoxJ8sryK/Ca6EIclsx8W15HGOb7F1pPrUmY/kmXMrsbK50+l9Pft9 eDFkFfw+Ld1I9phTBc/jJVxON7F62vLw7nV516Jm1p/AD+jtrH5mTgt7v28X g7PpnrMn28ipryvgkIb1ubwOtr/pRai/+MJ5qW7yu+mFqC4afMG+h+2TRiEs +Rp9MbuXueADSFalX5rWz/Ylk4Nj0srcbAaZw7NwILzlMn5n+9mRDXz3Yfcp w2wetoVQenSyh9Uv8uPThZixfdHVtL/Z9+tACsYqq3lOFFYhX0yGW9N3eh34 g6yYmwUePw96vxxNTrlciSebXHzGjyNnGcXg/jw/X3NRsgYvGLbHPbiWKEZW 5aaAWmCq3+jJZNeqZJRxKvbfN4UcqRONEvuaAp79yeK1eYCw+mCg8HTyC9en 0LNA9LqhJFmo0gcaxs4Ljp1JlrRORk73yhsjs9lz5cv4qlz75q55ZKW85/A4 1TwkSposdwgh+K7jrR8LyQ7rc/GSm9ftHTJkblcq2lndu/NAjtk5A0x0E0MH FVi898WgtTw/TGcpefOCcjQeo21QtpzFE3qFtryiiXtXsPMP0/B8yrYCngo5 8+9aCLj23u3wGrJdZjVEHtRb26VG1u8tgiS18v6T68kSYTnwTnzPsyF18tOy LyBxkBv26x//9/+M/wGNzgWo "]], LineBox[{{20.789297217018106`, -3.2333975281561927`*^-10}, { 20.79860316079855, -9.035172610083464*^-11}, { 20.808471395622966`, -7.953382397118958*^-11}, { 20.81569508288902, -3.2333975281561927`*^-10}}], LineBox[{{21.379239408765525`, 3.2104877523127284`*^-10}, { 21.379318906571513`, 3.1658853316685054`*^-10}, {21.38852612449004, 1.8410606372754046`*^-11}, { 21.397733342408564`, -2.886624272946392*^-10}, {21.406282652841217`, 3.2104877523127284`*^-10}}], LineBox[CompressedData[" 1:eJw11Xs41NkbAHB5kG6SX4gkDL/ksW3KpeQIbZFszSq31qqk7V4quVZUqiG7 sYRuQhYplybXzOuahIkxMwYzKrkUYqiEtcqv3ff8/phnns/znu8573nP+z1f Xe/jzvtkZWRkKr/9/vlX00xs6w82szHv+6L/af4Yyd225y/eGTObbyEZG00J FGo6auwKRVccfwhlvavWDp1HR30ahJq8xR4h4ejM0B7CDZELmnUFnRfQToSb hhITItBhpkKQLBAVG0ShV7oLoKujrO3x72gHvoT0Z2RM2MbQ+H0+jJyMXsSL RcskxpMJErTGKx69ZnkPTCt6uw8mojvVWoiC0DEw+BaaZfcSlO6uTlRMovmL uaB6SKs4PpmODwXQMpNv079H57cKJwwZ6Tj7T3Ty+QZi1CBSt82k9ViUSlbF l1s0ZdHxHhxYuyfT7ZdsdNs2MbExjgl4n0vj2xPAYTwoIYiN1vHmkG1V3kUz C+j+hLXg+tuW1utFdPzti/CLu+k44wm1fBn4MJaoszm0fqqZcEQqb2FTTuP8 WHKqROraWInerQwkOLzV3/MpzX/LY3JhW0X8wDMadyknEZr3CwPr6P7d6iC6 N0akwKX1cQFIyAsei2tEj4RXQlLIXjVGM1p5XRWkb3IyfyRAu8s2Q/YCM9f1 IjpfUiXkdyzxf9FG17/GIZwMhfifJehRJo9Unxwu6H+JFr5oIfWkrSWgE83d JyDNipWf5btpfYaqSJvgvmpcL5ppWgKdSX+Y6fWhi3Wb4N3BEJe8AWoWH6Sm Pqeth+j44iIYm3a6zh2m9apthS/1ZgU7P6J9P1SBXLx2S98oPV/bRzBnz8zP /uNoQ7aAqBiPLJSfRE95thKN8TbT2Claj5RWolNVuUN3mu6fKyTLfsvyy51h /q95j0pghXtsHJFD+9YVgjnjTH6DAjquQAJE6iP0mIUe4bJBrdQ+lTMHLXPv EkivGPkuVaKOzoFnO+ZZX1BGB/o0QJLuyJxeFfSaG5XgL+W326uid/z4EraW FmRkqaNXmnPhv6zE0/M00Tr3uuHrjpANvlo0bikGka7XAoE2miPhkxypzWsz XbSWl4hcLmVkJzLQfUFdxIulEPK3AXpM/IaYu/Q7eBmibR7cJEp6XLVKI1qP 03nkrTSnh/EdevBFN5SXxrAvf0/zUeZCIssvrN8E7dnMB18Xt61OpuiwuOfg oGeplWuOPnOjA3SGtQYWrEVLOd1konS6yG8dWtO1h/BYXZdaCTqxUQyZLjXb LW1ofgO3IUwvU/eOHc0vUgTuw5HD0z+g9Ru7yUrOUfC2R7O3dRLFCObVms1o 4asO6HRZ7WHohGZm1UGxntqyq1vRDhqNED08MTrERLet7yYHOJIq5nYal28n thFl0Y9daL1PvQRN1xQvNXdaj9UC+KgXbhy0Ez3xpgLqh3+dlHii51p3kVTO 5ufWu9Dhy/kkOMI4PmUPWrm9A5xd5/vI+dB6MURgxPhosv9XdPLTdJAdEU7X HaD9Zy0hYk7RC+PDaMMNzwk74uata0fRFVslEOl69uDH4zTfMhF4M3ZbuJyk cZ3bxHLETr7Yj/a7xmuiAgYCzQC6XkspGYhQTDkbROuv3Q7Vru+PdYagp9pb 4Daj0WrDOTpeVED8RvJmp4ehM607iBPEtilepHHHNKIf6Z9++BLtz4MimHL1 8Gu8gu7QFYKQYWVnEknfF1EFeTiirRwXRfO90E7CYcarsd9pPuax4BnZ88Aj hj7vJABTt9ogTiyaJcuHufpZ9kvj6fml15CekSjVC4l0/gkR4cDx7p6b6N3p jyAu0vmR/R16fklNcMTNLDTrLo3vaYKN+ot+nJeKLs6vI/lDNbo+afR9DBEQ /aJTY0/Saf921UJcmG7Dgvv0+akUkHNsunvgAbqzvhD8/nPWrzwbHa3UQro7 jDar5dH7Y9k74pzetuQo+//9IICq45c/VufT+2N1E6xaa1qrWUTPz6uSpMh2 3TpRQvtNXUiUudd8n5fS+YzKIew62bi0jObLeAIjXu81/CvQ7ucqYZfhDSm3 Cr2okU8aP2yqZtTQ/djXEOvS0YTgWhrX4kNOeOqR5jo6v6QBlmxl2hpyaX+e e0yi1L+qhjbS/EBIpjofDLTw6P0gyYYjWR7lxgLa/1F1IDk1M+5iC72v+p6B Iyk4IG6lvsQjTxT2EhMx9Ylv33uesgqrA51GeHDjRtnbV69ofyTVgOLeI6Vm b+h62jEk0FgzOqob7dQnJH2fa326e2n+5/yIW/nptZZ99D6L4sEzFkMpZoDe Fzfrwdy5uevdIH3fvRtI+uLQIuth+n1YzCOqvcZR1z+gFdPqITxHvHvwEz1v o0IYDWCZbRij6y1JAx9b89k3J2i9+p4QweyeVyOT9H6zyyN2wpjH9l/o+3Kr Gdh31rOSpmn9ufWgt3/I8/MMC9z/0qckZuUtEyc59NhTHpGZdFC4p4Aera0C 3+ox8V+KaBn9O9AZlZbLnIN2MMsHpqtzeMY89KZCHqlYKuPxdT46ObaEfN+f /Z2LCjp6uhGS2D/LPlyI1rldA0pnZrXKqqPDfiom5zYWPfDQQPf0colUaV9Y 3mK0llUV8WpTcZmpjTY68RJepFQs99JBx+a8IVaHj33N10OnvuWTh6ZagjkG aNYQG7S+1mV4L0OHz66Gq7UBZ0qW0/W06mEy2uAnZWO6X50IcminwGD/CrTs 8hYQM85Pwko0M6mRbB5a0bRwNZob0QPFhR33Dpuhqw69JoZhkYFVFnS/i+4T zro/5Z0s0ZcTmglzvPyPFis6n3wu6WGLl+5aj0604UDgsc8P+2zRJnIfyFwj ZcuTP6BryCAk9xrV/r0JLU0eBtOUjTsubf7XYZflxoj2sOUnxy0WNt7ArLdZ Mwb/A2MRU6s= "]], LineBox[{{23.805570288198567`, 3.2104877523127284`*^-10}, { 23.812493014723124`, -1.464440235743325*^-10}, { 23.822404379303798`, -1.464253718275188*^-10}, {23.83231574388447, 5.0888626645928525`*^-11}, { 23.842227108465146`, -3.108984736321929*^-10}, {23.85213847304582, 2.0454471449937728`*^-11}, {23.861388820720602`, 1.5735746039524656`*^-12}, { 23.870639168395385`, -7.768580223554977*^-11}, {23.87988951607017, 3.0685565199917164`*^-10}, { 23.88913986374495, -1.6242396316812346`*^-10}, {23.898390211419734`, 1.628189805202851*^-10}, { 23.907640559094517`, -1.8739931828548606`*^-10}, { 23.911094081101023`, -3.2333975281561927`*^-10}}], LineBox[CompressedData[" 1:eJw11HtczNkbB/ApVmG3EpE2iS6i2qQ2mXqosIpaFZtYcikhl0juIbosie1i SZRJosiW2aRJT43SbZo0XWaaLqjpHrUuvcii/fn9nvP7Y17zer/O93ue53zO +Z4ZWwI9typzOBzR199//ycY2R0JPGLrYNP7xfCd+nuICgn0HD5m6/B1iCMp 7IRJZm+Wnj1B9uK9g6SWoAU6p8gaM7rA+NyQ2d0wcvTvryCbe1DfPpL8eaUC uP0fJlafIR8+2gIlV46o+Jwj581uAleXT/8MnidzyqUgGw4ZPBlD3uT1CDel j7RrxJPdZ7zCvjWh0pQ/yOKObghSUa6cl8DGlfrgc25YQUki2dbgFUb6f5O9 OonVW/kS1Sf/ltp1nVzh+hwSSlUvH7xB1p/fDjMPREWppJFVC+R41/DbEwm3 WX9RsWDdcH7f7Dvk0CVpUBimvjU/k+XlVorLrGK9V2SRhe9FIFFourbeZ3l9 2wTr4i4u2p3D5it9iB2Ok61Gclm9Hzpx15vLxr8LyLzsRnjPm6qjX0COcW2F k+5Xv7tfyJ4Pf4aqnGlKTo/ZfIHxEJeVPFRXwp6fJQHdjfq9vmVkh9hcSFO7 0TJUQc6OL8cfCg1qIqpY3uaVkLc7rXjyU7Y+EILjtFm5tyVs/HANisTpGbb1 rB5vG64OmZNUKSW3ja+DZ6aZMevkzBEP0L/FPPxlM6s/kA+vo7IOhTxj4xkC OMK13PldG6v38jYo9/N9khXM/FSMvmLtadHF+vUTopZL7lJhD3v/rwpMHp6/ wKOf5d8rQpN0gZniFRu3KEX+Gjv9/X+z/dDJRjsVnDj6LXM+H57kLlT5Y4ic IGuAn/2F/xh9IO/9VQxyLafB3I+s/+/uwObSkvZln9l5ET2F/uClUvkIWT6p FoINyyt2KC2g919Uwki9c8E/o8iheTHwW5go69wYcragHDWsXFN1x5JvzpJh oqL60r3x5N5bzWgQtzJqoRo5vLYJMx1rj9dokNt6atHmjee+TRPJm+blYBGv we+NFrnCowTaXGdsPKhN1k59ApyPu9d+0iFfjJPDjLT8VaHTyOKHjeDkofLz N/rkw2Ei8P2yyjlqJll1sATCM3hO6kZk3ss6SPtlwP7iLLJfeQOUKXHnT51D dv9UAz33Ii2TzcgaWgiq6+pNDSxYPq01YDJG3zjdkiyfIkIX/i59c2typ6MU A3wEOnwbciuvGaPGjdGav4C8ProV7+Z6qhfYkU30nqN4y/WxjgvZ+7ekOKD2 alSZA9nbsQrVHtmOLF9MPl2oQIttEcM1S8mazzrQfWLd29XObDyjA/cV6Q00 LSfbXuvAuJ07e3zcyMI9ecifktfesZIsCa+B+pLRrds9yQ4ZeTAU6CEbWM3y 1Px6n+omS4LWkFdLm+HHin7Rh7Vk/SoheAXPLw1Zz9aX1AmH9MOLlDay+l1i SBBLBJGb2X78+gIEh6fljPdj9SZKsNkw4M8Yf3befFvxkyQ3XWsH67ddhrrH R6Um7mR5PnuB9rPdk6bvIb/tascN0muXb+5l880swBOn+mJn7ye/Ni2FZHOb 6D8PkIe7yrGo6XSk1WGyU3w7tEXUhOYdZXk0/wVK83SPwXG2/4sfwczn2w8U n/y/i2Fx1IPAZafJnO8LwM9GOUAcTl6S1AERip/9PH5j+fhU4a0LV31kZ8ln LsmwjNvr/Ws0+x5aHmBPt/WqtgvkmKlNqBp/ym1rLDvft1vQZNHTZf3xbPzQ Q3R5qeMUeInNf08IAZe32Q8lkJ/I5HhucY7Nkats/dovIPNvjuVIEstfIsTq q26mYTxyiGkdDC5LNFJNZes5fB3Uh7qnn09j+6EcAXN5Vjqa6az/zV3g7ho6 6fIdlsd7Me4bFqvp3mP53ZRD3M2pY1OyWP9B7ch39x9lzGf1g5qw/jP/y50c Vs8gB4fS//1g8ZDN/7gcur1+4p0VsDzPtYJ89HnnjkdkmwgFivj1r+0L2ffM bcJHm3SuXBKy+0Q3BTPVNju+Lmb9KyVCcsHtPpdScmaYFGICBmNTy9n91N2G p7V/5H6pZP1OasDgsmMKLzGbb8oj8A8ujsp+Sjab2wjeM8dajatl+YuKwEWy ssW3nu1PkAy5Jy6FoZRs768AM7NnplPkrJ9dRaDXbNCwt5m8q7wZNM4EhIha 2fltzkNlm/uGhi/YffdOhkMdH8TH28n+y/qhO3bhgcYOVj8hBRsXRUyz7Gb3 83AtVAxUlUb1sn6X1GL+Vc09nf3k4JJazHRZO3nhAFmW1wfJH64XXv6bnHCr BmPSuv3fvGHn0ykbTq8yV18xRLYelGGwUvDDm+9ZfbvHuDUrf+PIMNt/tb/A a4OSqvcnlkdSEziPd86+/4UcYNKBXMEF7/Ec7v+c4yhDs21SzlZlcqggHvS0 dDMKR5Mb1teBRskWD20Vsu2EalDel/Fx31iyc58c3+m9TqkaT9aurMFOsc1y IzWyvkIAsqPH357QIPtVtEKFyZNEuSaZw1uJ+bJxi+dpkTc9vYWZ4R4vz00h C+0EmDwvIb5rKnv+zEmIaXtut0iXPb+nEU5dMOpM0CO/jqvEIPtd0W/1yYa9 DejXz7d2NSB7jwyAV8LH1jQjcmSLBJ1/coj4dxa5c0MpcIcizdfOIcdwG9Ds RrWUb0ZeHVWFeu6TTnxrQa5xU4D6yDpjf0vyxup25GSmPC2yYnn638S3a3sP TrUhH10vxU4Vi+n7bclyxUOUPThQLuaS8+JKoMK3INAYyMd6elAwYZR26CJy umk53ilyETY5snwkeXBtd8x2qyUsj+pMuPB9o8b5n8jF5i8gtHKaoNuZrU9T iEGH/DY7rCC/2lEPvkZ3xya6kdtSM/BoqU+AsTtZc38txmzVrOJ7kk1WCOHW N2Wmi34hW08ohoK0I9FVa8hnHmRj3VLzgTXr2Pr77kBvV5tb53ry3JoCGIm4 +OfejeRe1wKYZOys/mUzmTdUhHPKPgWe9WP9cHng4J8l0dpGliy/AV5jfC1v 7CCvmtuPM1OuO9z96i3oLnKwfY//AaRsfSo= "]], LineBox[{{26.853438245819223`, 3.2104877523127284`*^-10}, { 26.86058336267365, 4.4123166925702506`*^-11}, {26.870537857010582`, 1.5631717448227889`*^-10}, {26.880492351347513`, 1.1648430831012746`*^-10}, { 26.890446845684444`, -3.0192626176983595`*^-11}, { 26.900401340021375`, -8.522249572706642*^-11}, { 26.910355834358306`, -1.541328314980106*^-10}, { 26.920310328695237`, -9.315892501859935*^-11}, {26.930264823032168`, 8.735073775412161*^-11}, {26.940219317369102`, 1.703236163219657*^-10}, {26.949512794800143`, 1.5019432919594067`*^-10}, {26.958806272231186`, 9.469519612892441*^-11}, { 26.968099749662226`, -3.1301877756462204`*^-10}, {26.977393227093266`, 1.3586237690432768`*^-10}, {26.986686704524306`, 1.8532558820893996`*^-10}, { 26.995980181955346`, -1.2285589212623904`*^-10}, { 26.996283636284744`, -3.2333975281561927`*^-10}}], LineBox[CompressedData[" 1:eJwt1nk0lVsbAPCTkm4aJJXKlaKJDLeJyhMhokJuIyXRIFekJHKVbnIpZEoo JaloRJPhPCJkyHQGU2Q4OEnGcqVUvr717D/OOuu33v3u/Uz7rDPX3tXqgASH w+n59fn/944TyReNt63RX9nxQ+Xz5EHI240PR7av0f/1iBO6rhDu/XTi2u0i R93/CGHx8m9ybchlUv3oafC6bp4tee3eVtzbdrzjnB1551wRGvvP/dJmT+bU 1YP6ogpJ4wPkBbt6QK7kb7m7h8hq3AEc/ktVeZwT2fFFK4om1v5x2JksEy7C 4sfn9UtcyEqaNzFlyzILNTey/dVeiP7cvCfoOLlyQhWcuRzi3H2CrONbgwe1 db3NPcnW89rQvO5D4ONTLD6DCFzhfSVaxocsUdgNCr+vv+t2hu3n3QSjX356 xj9L1njSgp128fnL/Mirv3UDT8JcEOlP9n12C9MTh1v+CyDvjxXgSkP3L2YX yfp9HfCspWtCfDCrd3oJLvc9MO+/Syy/0nRMU2zUNgsnW05uRC3cvvlGJDm+ Mgse21TYD0QxSwtR45uJp2kMWTi1HR5E5wRfv0rW+iJAVe1Vtz7HsXzlfTG5 KjV9Qzw55Vd9FrmrlsclsP22v4I7srdaPyWSSyM7QSV19leTu+SB0ma4ZRE5 KS6ZrT9Xg/N6Jqh8uk+2C0yH+KDzq0wesfMCeKio9tP8Wgq5eUsuxBV77O9P Y/My7wMoOPZ6GT8jjztSB7FjHS9dfUEeY9CB8rebE/syyF1SrXjFcFfmei6r D78Yp4t4FbHZLP93bRDpa9bem0N2VhaD7Jy8b0Z55KS9fAjDNTKxBSyeQBHK 7H46v7eQnT+6CUO+LVljVMLq05qHE2NuW8aUsv7V10KQtuLBnnJy+mIRjK+O 8jbkkR/0ijHQfXJYtIDVx5+H46YG3OmuYvXprkH/VA7XoJb1XzMXJS29eFfe sni68sGvp1/c1UA+GlcPEsFO39c1kfvOi/CsWuuUKy1sP70i5JTYLOxqJW84 z8PTjkLddWJW/3vt8H3sZquoDmZODtf7dsGhj53s/GUC+Ga41ke/mxy9rx49 Rc/DL/eyef4zAwd9NZM6+9l98CnCE3OSUG+A+WIjDKCSIHKQ7d9/E47tjun4 MMTqKVGHfd+m/Fw7zPLr54JrzIWpkT/Yes8L2KM9evGHEdZP6xx0rvZeu1ZC l+o3lQ+d7gN/Rowh+64KhcNTjxzuGEvWChViR2r7afiNrS/IhoOWtpHh0mR9 18fQ1lOd/H4iey6ZCw7BFi91Zch9Zq9ApFYkDJMl223NA7sS/U6xHLlZJR8a HTNG1swg53DzYY/U0mlhM9n5igXQcPueqng2O8+kAKyNlPXXKJI5egXwQzhu Up4S86dwjD/QU2+mTFbaUoKGg4Jk/nzyzhuVKPbPOGm9iK03DcXAGTfWi1TJ bTv4uCTJb6qTOtlzpBQrdJxa+jXZ+nNn8VixxWOvpSyfzlKYZr3CZ9QKtn64 BtI7Z20M1CaXHq4FG2/OzCmryenp5fBTWiyO1mX76TjgzWtvnirpsfdnV6CR euo/SeuYXwjxPUZZahmx+jy6gRfM/1ZMNybnGwlRvWlfl54p2UiSh5WuJpmF G1l8s+LxOEc9wMKcrHO0FKaHyW6vsSQnRtRCxtwh5b1/sv651MHutHf94m3k DdGVMGKQ99JlJ4u3KQISBEnBg9bkoQOluH5/iM3pPWw/3XfYMXB88Vg7Vu8H dXjx/K4vwfbsfeO/QGO6XsG0A6z/p3jIu6MSEXeI9etFHrhrj98334kcoJeL M4p6NR46s/WCFMzcWfV9uSt7HlwNez5klnDd2P7yqcA5FR9t5E7uqmmAW+P9 D5Z6sPrdKwTjq38t3+pFlrcqhw9qWyQavMmyY1ogiLuy0uE0y29fN2huVrj+ 0ZfVe91b4L8b5Xz8HDn7TjOecHm/avg8OZRTifIjpVLnAsjjXNox61Ja1fiL ZMtYBFul6FvhweQFtztgVKqP26xQcoNrCySuc9BLCCf7mfPQhL9houpl8oMn jdhpr1GfeoVcpNGKwZ+nJq+KZfdDH1HL76tH7jW2f4wIBHJNRqY3yNaDIvC4 nS/Lu8nqYXIXZ66817wzkTzmVhNyX1961HyH9SPkLe7dceJvx2QWfyIPJTqs zfrus/7+Uwu3PfXlPR+x861EsOG3BeKRFNavcznwMUb66b9PyCqBdRii2n92 8nNy0sVc/COr2uJKOrkysRiEG7m/z8kipxwoBs+Gmx/vIFlBvxlmH/k3QyOH xZdWASEjB1dcfEXmdlejRLhx6vt8tr6yFj1UFqgbFbL+TEmDzueSyfHF5Gjl d2Br2q7y4w2bn8IQ5Nfnx+8qZ/fnfhkauyQqPK9k/d8txEyOX7SsgCwU80Aj wkHOtYq9b1QFCfMNQ9/UkB2r3+D09HkTFr1l99mtEC+YSQT4NbD6SGXhz4aW 0S2NLJ6vNXDMNfcMtLD7WpML4lE3h2NaWX75PLSO9D052M7uq1iI5QvsPlt1 sPMHuGCQoef6uJP9/ryphucb53yU7mb5YwqqNv486NjL6l2ZidePNory+9k8 KZeh7Ohs27kDbP9DPPC/HPfWZ5DFa1IBXxf6bH87xOY76Q06Z+7mrxxm+dqU Y/MmXfOIH6x+XQm4tWl2Se8Ii8ewForchtdvkgCal7A00B1Tn5s0hrxBtwxT ojJBUoocmcZHlcWxGft+Y89z8yA6y2tFtjT5QbMAJpjvSp01icwZyULfZh31 kzJkX5dgHDgmnyyQJRdlFaCj5JCK1jSyUggfGq7UxAfNIO98WASWqi8UPswk V7qVYT43Knq9Alkum4faFh5yCYrknNrLcK9lW+hPJXZ+VBUouq+YYKPMrBwO 4WOnBbyYTx4XUohjYwZGyy0iOxrw8JSa8MxRVbJMQzH04JPh0iXk9IV8sLeM OLlYkzxUnofVomOfz/9Bll+Ti2YnrFxFy8hHexCzpZZ+XLuSrDtFCEtjpxy6 qkP2PPnr/+eSftGX1eS+wTKc9bLSdiuQFSQEGLIl5W2KHou/8QlItF3aPtGA vL9ACB4ervzDRuR425vYOc7C/LUxi1ehFm2vapTMMyW7OHQAX32S8ZmN5ICQ MjDO6c6t38zyWVIOmVZloGNJXrTgNWq0P8iItCJ/VyvBhJNBK/q3snmpeYjT xjunbt5B9njIh0RDn1N9u8iW4jJY6hNiGLGbxX8vEnKe35iwci+57UgBmvel VNXuY/Ohfx8bFr+67r2fnTenAp0cBIcUD7F5c8rGoWttWrmHySleGeBf/d9X B2fyI9NqkJORyhvrSn4qnQMJpvJByW5kb/dm1Dq3eNsmdxafYxO85K5W7PVg 8c2IBfPBje/DvFh+9yugQXNPyvK/ybUnssDpsItXzWm2PsQDhxLOGJw6y+Y5 oAL9G0Klf/dj7zdGoNz0BOFLf/Ks/mpMsHgSZx/I5m32a9AKzD8oGUS287uO 2a+qNJNC2LzfT4dN38VDZmHkIJs8MFz44+T7CNC3R8sSfZ1B/B9PtVsy "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGDQAWIQ/avjz/3TToYOSXsDTjlYfNt76z4Xc4eLoQNQisGF cdverEufX3C7Q/m+N/f+OnLnXL8nhJ/fdnlv1/ajW4R9IHyFS2tsJVetmzXd D8IXad5pu2LO9AbpQAi/asIDW4v+hrT5wRB+uv9x2xONmT7KYWB+w8Xiq3sj SoKMlkeA+Qc6vr/c+yLNWkI7GiJv0vNqb3mkyr91sRD5L7yv97L58D4xSgDz E/ZVvd47ze7byW1JYP4Dhauv96oZ3l9vlQqxb4P4m73blE9M3ZcO5guou73Z 6ya2sdopC8yvqIt+s/cqx6zEYzlgvvyuiDd7U343uXvlg/kRXrZv9n55m617 rhDMD3jK9mZvy4MQ4aASMH8B7+7Xe0Uu2/68WgbhhwW+3rvkqNr9yEqI/QEX X+013sF/9G41mO+wx+LV3kOrfqxKrIPwT7W93Bs09+GEpw0Q/+nsebH3Uf+p ssxmiHzy7ed7i5o2x7xthZiX9OLZ3onprRpfuyD8xMNP9ipE5fFV9kLC6/n0 x3s3+IR/+dMP4c+Me7T3gqHmAZapEPXWvff38v05Ey4yH8IX23Jl77x3W21n LITwXzBc2qv3cJ6yzBII/8SGc3v3XW7nXLAMwk/pPrnX91jBe+WVEL7E+iN7 7+yIvLp8NVSe9cDenNVOu7XXQfgcMtv3/pmrvXD9Bgh/Qea6vT0TRNqNN0P4 DX3z98o0/83ZvhXKX12+d3XpsyDrHVD+pAm2UhzXz4fvMnQwe/FX5TP/N1sA PSgVuA== "]], LineBox[CompressedData[" 1:eJwtyltIk3EYBvBPqWQeprUSnStdmoRt5nm1fOXTDiJ5oSswwrTESRdpWtmC MoqczUVGi4qmCEKaki0vhFXwd1pSYslszhzDckvn5iLdSdcKNev14uHhx/Nw y86LxP4URSWu5V8Xy9klHZ/T6DJSMEzvWyL17anDqrE0em2iLt02QsX1l8mB X9A+vhXyivY8ERvQIQ1zwEt6Rg0Y0VaXFZiM2LOcr+jMSC04za1ayRS6++ow 0b9hC8bM6GzaAeoHj1oTZ9Bv26xEeW7LJvks2nHZTK4dbqq02NDUZA0p3RE4 Tv9Ax+S+ghyvNLPlJ7rQ7iZxo35PvQtoutQIAV11Qcdc6IJoA9hv+i6oPOhP Wd/IyMlaI8OLNqmfk55UZ7bYh66W6IgiuLKr/w/ads9Iai22MM4KWnLECSf6 yq9IqPT/HtIPEeFj05TOH31jVQnbq4tzEzeiI+gRoPIMqsYA9GDWKJnmHg+3 MNCBAju8/62to4PR8vZp6Bw7amlmoh0x7+BO94d8bxjatOokVdKDvSIWekPX HCko0USptqFzludJquDALUbE+l+vgfAwtb2cjU5qmCA+W4qon4OmUj7C5IDq dVQ0usozDX3KBK6Ei5aJ5qDtYodMF7vu+zqoz9/p4MejC08vQsWu1qLG3WjF oXnIW4nUzCSgWVsdhDfxMJ7mo3v1syS0Z3NT817096RF4pLdXVxKRpMQD9Gf YZwSpaGZNW6iFkoHX2Sg2Z0momT58Rj70f2KcRD/UgUtCNPpDNtynDt0Cf4C 24gIxg== "]], LineBox[{{23.525541059862963`, -3.2333975281561927`*^-10}, { 23.534974806464252`, 5.599665175992641*^-11}, {23.54488617104493, 2.296779988419928*^-10}, { 23.554797535625603`, -2.519843778081565*^-10}, { 23.55757777308843, -3.2333975281561927`*^-10}}], LineBox[{{24.113847637982847`, 3.2104877523127284`*^-10}, { 24.120398555614518`, -1.9844637044741376`*^-10}, { 24.1296489032893, -2.634397144873901*^-10}, { 24.138899250964084`, -2.659057418696875*^-10}, { 24.148149598638867`, -1.8316481664726325`*^-10}, {24.15739994631365, 7.597478202114871*^-12}, { 24.166650293988432`, -1.9847568033526386`*^-10}, {24.175900641663215`, 6.149991627069085*^-11}, {24.185150989338, 2.446876035122614*^-10}, { 24.19440133701278, 2.851929803426856*^-10}, {24.203651684687564`, 2.2397195209578058`*^-10}, { 24.21254798046185, -3.2333975281561927`*^-10}}], LineBox[{{26.56623621802904, 3.2104877523127284`*^-10}, { 26.571903026902625`, 6.534084384668404*^-11}, { 26.58185752123956, -6.36364294592795*^-11}, {26.591812015576494`, 6.447731237813059*^-12}, {26.601766509913425`, 5.2464588229383935`*^-11}, { 26.611721004250356`, -8.851197552672829*^-11}, {26.621675498587287`, 5.032785299619036*^-11}, {26.631629992924218`, 1.9330315126353526`*^-11}, { 26.64158448726115, -5.941086511640492*^-11}, {26.65153898159808, 7.02291558241086*^-11}, { 26.661493475935014`, -3.8082148545726113`*^-11}, { 26.67144797027195, -3.1371016895320736`*^-12}, {26.68140246460888, 5.764988486589573*^-11}, {26.69135695894581, 7.902761778311174*^-11}, { 26.70131145328274, 8.496592318607554*^-12}, { 26.711265947619673`, -6.453115819482491*^-11}, { 26.714426954017682`, -3.2333975281561927`*^-10}}], LineBox[{{27.22944147013782, 3.2104877523127284`*^-10}, { 27.237610595162394`, -1.502036273137719*^-10}, { 27.246904072593434`, -2.9767099896105265`*^-10}, {27.256197550024474`, 1.6803669566911594`*^-10}, {27.265491027455514`, 1.3530732090316633`*^-11}, { 27.274784504886554`, -1.4681478255340608`*^-10}, {27.28284972549529, 3.2104877523127284`*^-10}}], LineBox[{{11.13637357023365, 3.2104877523127284`*^-10}, { 11.144191609423803`, 2.249674058152351*^-11}, {11.153452138652916`, 1.742290339779018*^-11}, { 11.162712667882028`, -8.088627684310623*^-11}, { 11.166283172049564`, -3.2333975281561927`*^-10}}], LineBox[{{23.348951151419396`, 3.2104877523127284`*^-10}, { 23.35657024401212, -8.289924302573581*^-12}, { 23.366481608592792`, -2.0623502905436908`*^-12}, {23.376392973173466`, 4.642619622075017*^-12}, {23.38630433775414, 1.1425860257929799`*^-11}, {23.396215702334814`, 1.7598034141030894`*^-11}, {23.401676946246077`, 3.2104877523127284`*^-10}}], LineBox[{{23.99554684792808, -3.2333975281561927`*^-10}, { 24.000144035842343`, -3.1479041595616764`*^-11}, { 24.009394383517126`, -1.562093787654817*^-10}, { 24.018644731191905`, -2.496506334992432*^-10}, { 24.02789507886669, -2.890699901669791*^-10}, { 24.03714542654147, -2.525888387339137*^-10}, { 24.046395774216254`, -1.184646825080904*^-10}, {24.055646121891037`, 1.092095303079077*^-10}, {24.06489646956582, 2.4839175161162075`*^-10}, {24.074146817240603`, 2.843627555648709*^-10}, { 24.0774893899555, -3.2333975281561927`*^-10}}], LineBox[{{26.43227429107209, -3.2333975281561927`*^-10}, { 26.432540106185584`, -6.463418689151013*^-11}, {26.442494600522515`, 6.724831802529252*^-11}, {26.452449094859446`, 1.8054835404512914`*^-10}, { 26.462403589196377`, -2.2270085775488724`*^-10}, {26.472358083533308`, 9.462775008017843*^-11}, {26.478026460302974`, 3.2104877523127284`*^-10}}], LineBox[{{27.059808631100974`, 3.2104877523127284`*^-10}, { 27.061034523972626`, 5.326139529415741*^-11}, {27.070328001403666`, 5.535738534234724*^-11}, {27.079621478834706`, 5.487754695110425*^-11}, {27.088914956265747`, 5.247835499488929*^-11}, {27.098208433696787`, 4.861633318142822*^-11}, {27.107501911127827`, 4.2118086795994714`*^-11}, { 27.114476747129245`, -3.2333975281561927`*^-10}}], LineBox[{{14.52256740092335, -3.2333975281561927`*^-10}, { 14.524547796266717`, -2.3267621163114427`*^-10}, { 14.533851455252087`, -3.566003048405264*^-11}, { 14.543155114237457`, -8.625655745220229*^-11}, { 14.552458773222826`, -2.901889839534988*^-11}, { 14.561762432208194`, -1.9153678643135663`*^-11}, { 14.571066091193565`, -9.215961327413424*^-12}, {14.589673409164305`, 1.0251022253271458`*^-11}, {14.598977068149676`, 1.9791612793085278`*^-11}, {14.608280727135046`, 2.9122371181244944`*^-11}, {14.626888045105787`, 4.7023052118788655`*^-11}, {14.636191704091157`, 5.5474402849142734`*^-11}, {14.645495363076527`, 6.383316097924308*^-11}, {14.654799022061898`, 7.166578441797355*^-11}, {14.664102681047268`, 7.921374667319014*^-11}, { 14.671706829035982`, -3.2333975281561927`*^-10}}], LineBox[{{21.233125668163847`, 3.2104877523127284`*^-10}, { 21.24121063779364, -1.0166467667716006`*^-10}, { 21.250417855712165`, -3.683275906496419*^-12}, { 21.250976710962387`, -3.2333975281561927`*^-10}}], LineBox[{{23.617359660108143`, -3.2333975281561927`*^-10}, { 23.62417708769032, -1.7904042137750764`*^-10}, {23.634088452270994`, 2.0523249766313256`*^-11}, { 23.643999816851668`, -4.968028766150212*^-11}, {23.653911181432342`, 3.405473125717151*^-11}, { 23.663822546013016`, -5.2335052957985795`*^-11}, {23.67373391059369, 5.995499929856152*^-11}, { 23.683645275174364`, -3.181908903027164*^-11}, {23.693556639755037`, 3.7041730793774263`*^-11}, {23.70346800433571, 2.8450991562678496`*^-12}, { 23.713379368916385`, -1.0078630291454616`*^-10}, { 23.720170800657655`, -3.2333975281561927`*^-10}}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBmIQ/Ws+87l31hYOSXsDTjlYfNu7o3xBwWxbCwegFMNH /U97ZU23rv5pD+FvWvt1b9Onk8/CnSD8Hsk3ts/X31Pc5gLhT7v+xdYn93OM iDuEX7Hrue1GLY4ZRZ4Q/uv0D7ZiL2QuX/CG8N+cvbm3eqkhn74fhH/m17O9 D5LcPHsDIPwGsaN7XRWiW14HQfglGrf3rrqbv98zFML3WXjFln92y6/l4RD+ hvottiURM03ZoiD8DtvjtjdF1xWkxED4C7qP2NpdPrT6UByEb1F+z3bxhOvP FBIh/EW3n+3l8HujWJ8M4Qco7Nh759CNzJhURPgAAL0EdDY= "]], LineBox[{{26.72800851552177, -3.2333975281561927`*^-10}, { 26.731174936293534`, -6.388106710275565*^-11}, { 26.74112943063047, -2.5747570742140624`*^-11}, {26.751083924967404`, 9.440043191588643*^-11}, { 26.761038419304334`, -1.0909950720616735`*^-10}, { 26.770992913641265`, -4.1725789490243415`*^-11}, { 26.780947407978196`, -1.880845479362847*^-10}, { 26.790901902315127`, -2.0264626088284388`*^-10}, { 26.80085639665206, -2.983130409361934*^-10}, { 26.80536531753594, -3.2333975281561927`*^-10}}], LineBox[{{11.088133530634803`, -3.2333975281561927`*^-10}, { 11.088628434049127`, 2.2911701702543752`*^-10}, { 11.090588820417157`, -3.2333975281561927`*^-10}}], LineBox[{{11.68552611737201, -3.2333975281561927`*^-10}, { 11.687493761301933`, 1.5818879539608588`*^-10}, { 11.697528222604745`, -4.959166410856142*^-11}, { 11.70756268390756, -2.1988300069608613`*^-10}, {11.717597145210373`, 1.0892664548123321`*^-10}, {11.727631606513185`, 1.0483214296641563`*^-10}, {11.737666067815997`, 1.0026579566613236`*^-10}, { 11.746371114226484`, -3.2333975281561927`*^-10}}], LineBox[{{17.22436490571261, 3.2104877523127284`*^-10}, { 17.2283999563857, 1.0982970088946331`*^-10}, {17.23822506145386, 2.570016421898913*^-11}, {17.248050166522017`, 7.578626615156736*^-11}, { 17.255372403144946`, -3.2333975281561927`*^-10}}], LineBox[{{20.543501340151145`, -3.2333975281561927`*^-10}, { 20.551897290188144`, 2.962207423795604*^-10}, {20.56176552501256, 2.988388876634662*^-10}, {20.571633759836974`, 2.9976853247945523`*^-10}, { 20.575251918851738`, -3.2333975281561927`*^-10}}], LineBox[{{24.220775628188377`, -3.2333975281561927`*^-10}, { 24.222152380037127`, -3.1953106827131705`*^-10}, { 24.223405216827416`, -3.2333975281561927`*^-10}}], LineBox[{{27.304258857813252`, -3.2333975281561927`*^-10}, { 27.311958414610718`, 1.7734480550757326`*^-11}, { 27.321251892041758`, -1.4023671113250202`*^-10}, {27.328807385942962`, 3.2104877523127284`*^-10}}], LineBox[{{29.73307223867594, 3.2104877523127284`*^-10}, { 29.742589178450302`, 9.475031870209705*^-11}, { 29.752885586822497`, -1.1972900448853352`*^-10}, {29.763181995194692`, 5.958455950860753*^-12}, { 29.773478403566884`, -2.540312404875067*^-11}, {29.783774811939075`, 4.250977347908247*^-11}, {29.794071220311267`, 1.8368545573466122`*^-10}, {29.80436762868346, 1.5553058840822587`*^-10}, {29.81466403705565, 2.944827715012366*^-10}, { 29.82496044542784, -2.396934317694388*^-10}, { 29.82991985949801, -3.2333975281561927`*^-10}}], LineBox[{{11.21647113020254, -3.2333975281561927`*^-10}, { 11.218275843256704`, -1.0513970249981242`*^-10}, {11.227536372485815`, 1.15789461352378*^-10}, { 11.236796901714929`, -5.370059952269912*^-11}, { 11.245847774072288`, -3.2333975281561927`*^-10}}], LineBox[{{23.440660909483118`, 3.2104877523127284`*^-10}, { 23.445772525238183`, 1.3086753902769033`*^-10}, { 23.455683889818857`, -4.3354764223124675`*^-11}, {23.46559525439953, 2.6362623195552715`*^-10}, {23.475506618980205`, 1.9776136284122003`*^-10}, { 23.48541798356088, -1.422228446124052*^-10}, { 23.495329348141553`, -4.8120618600933085`*^-11}, {23.505240712722227`, 1.939661764538414*^-10}, { 23.5151520773029, -1.7858792222824604`*^-10}, { 23.52390246348434, -3.2333975281561927`*^-10}}], LineBox[{{26.4850797078398, 3.2104877523127284`*^-10}, { 26.49226707220717, -1.2364620438631846`*^-10}, {26.502221566544105`, 6.664813145818016*^-11}, {26.51217606088104, 5.698008731513937*^-11}, { 26.52213055521797, 4.2560399649005376`*^-11}, {26.5320850495549, 2.3101409674097795`*^-11}, {26.542039543891832`, 3.826439165521833*^-11}, { 26.551994038228763`, -3.0519253790828316`*^-11}, {26.5584149466564, 3.2104877523127284`*^-10}}], LineBox[{{27.118427973906126`, -3.2333975281561927`*^-10}, { 27.126088865989907`, 2.4674617904452134`*^-10}, { 27.135382343420947`, -2.3460500209182555`*^-10}, {27.144675820851987`, 4.6022630151298927`*^-11}, {27.15396929828303, 1.3631284989656933`*^-10}, {27.16326277571407, 2.588761427446684*^-10}, {27.168493834378154`, 3.2104877523127284`*^-10}}], LineBox[{{17.048535128293107`, -3.2333975281561927`*^-10}, { 17.04972105936524, -1.247695280426342*^-10}, {17.059728865012758`, 9.68708446791311*^-11}, {17.069736670660276`, 1.890065881582359*^-11}, {17.07243358546711, 3.2104877523127284`*^-10}}], LineBox[{{21.32319574891284, -3.2333975281561927`*^-10}, { 21.324075599060365`, -2.2213875183751952`*^-10}, { 21.3261857427513, -3.2333975281561927`*^-10}}], LineBox[{{23.724896586806445`, -3.2333975281561927`*^-10}, { 23.733202098077733`, 2.054447723054409*^-10}, {23.743113462658407`, 2.4441865198454593`*^-11}, { 23.75302482723908, -9.969350345251371*^-11}, {23.762936191819755`, 3.26002419503979*^-11}, {23.77284755640043, -3.647376844995165*^-11}, { 23.782758920981102`, 1.8863716144679188`*^-10}, {23.792670285561776`, 1.0824491303296213`*^-10}, {23.797757210395638`, 3.2104877523127284`*^-10}}], LineBox[{{29.912528050512012`, -3.2333975281561927`*^-10}, { 29.917628120777568`, 2.6834034994038802`*^-11}, {29.92210986630438, 3.2104877523127284`*^-10}}], LineBox[{{11.024244596139686`, -3.2333975281561927`*^-10}, { 11.033065258674453`, 2.040485835852479*^-10}, {11.042325787903565`, 2.4956633981609855`*^-10}, {11.051586317132678`, 1.2391521142518513`*^-10}, { 11.060846846361791`, -1.5679246789801482`*^-10}, {11.070107375590903`, 1.857136666671977*^-11}, { 11.070420035418614`, -3.2333975281561927`*^-10}}], LineBox[{{14.704118321541314`, -3.2333975281561927`*^-10}, { 14.71043827539476, 9.043521487228645*^-11}, {14.71955923380077, 7.445088989754822*^-11}, { 14.728680192206777`, -2.90499402311184*^-10}, {14.737801150612787`, 3.9296788045817266`*^-11}, {14.746922109018797`, 2.0793144983599632`*^-11}, {14.756043067424805`, 2.480571303919987*^-10}, {14.760134953182357`, 3.2104877523127284`*^-10}}], LineBox[{{17.181141434574936`, -3.2333975281561927`*^-10}, { 17.189099536113066`, -2.6906477046395594`*^-11}, { 17.19892464118122, -6.130312923957604*^-11}, {17.20874974624938, 1.3898882045282335`*^-10}, {17.212436793057222`, 3.2104877523127284`*^-10}}], LineBox[{{13.81505640048781, -3.2333975281561927`*^-10}, { 13.816907541078471`, -6.48469056230283*^-11}, {13.826872216969733`, 6.575817668164063*^-11}, { 13.836836892860994`, -3.854006003223276*^-11}, { 13.841808111236478`, -3.2333975281561927`*^-10}}], LineBox[{{20.52589999840301, 3.2104877523127284`*^-10}, { 20.53216082053931, 6.698790133707888*^-11}, { 20.539880387398625`, -3.2333975281561927`*^-10}}], LineBox[{{11.178144482272623`, -3.2333975281561927`*^-10}, { 11.181233726340253`, -1.2992497355757138`*^-10}, {11.190494255569366`, 1.2257395098913548`*^-10}, { 11.199754784798479`, -1.3416798227972038`*^-10}, { 11.201361051950686`, -3.2333975281561927`*^-10}}], LineBox[{{20.369261037514683`, -3.2333975281561927`*^-10}, { 20.37426906334865, 2.6515334372589905`*^-10}, {20.384137298173066`, 5.402567282430937*^-12}, { 20.394005532997483`, -2.6820634602131577`*^-10}, {20.4038737678219, 1.850214426113439*^-11}, {20.410198041293683`, 3.2104877523127284`*^-10}}], LineBox[{{23.410724140132178`, 3.2104877523127284`*^-10}, { 23.416038431496162`, 3.5202618597907076`*^-11}, {23.425949796076836`, 1.2979084473840885`*^-10}, {23.431075385222794`, 3.2104877523127284`*^-10}}], LineBox[{{20.660066884007794`, 3.2104877523127284`*^-10}, { 20.66044787325672, 3.1507141340370026`*^-10}, {20.67031610808114, 6.539396801841235*^-11}, { 20.680184342905555`, -2.2507773422830724`*^-10}, { 20.690052577729972`, -1.429113494211265*^-10}, {20.69992081255439, 1.549144146295589*^-10}, { 20.70916175470452, -3.2333975281561927`*^-10}}], LineBox[{{21.28322212069372, 3.2104877523127284`*^-10}, { 21.287246727386265`, -2.6962920784967537`*^-10}, {21.29243599417004, 3.2104877523127284`*^-10}}], LineBox[{{11.105448755455722`, -3.2333975281561927`*^-10}, { 11.107149492507352`, 1.3948363991600488`*^-10}, { 11.116410021736463`, -9.929245620154958*^-11}, {11.125670550965577`, 1.0911718403838755`*^-10}, {11.133020645344885`, 3.2104877523127284`*^-10}}], LineBox[{{29.619143773632725`, 3.2104877523127284`*^-10}, { 29.629328686356196`, -2.2204504901424116`*^-10}, {29.639625094728387`, 1.6855949969141193`*^-10}, {29.64992150310058, 3.779154766903048*^-11}, {29.654600577876202`, 3.2104877523127284`*^-10}}], LineBox[{{17.108982751464303`, 3.2104877523127284`*^-10}, { 17.109767893250353`, 2.8907687354973177`*^-10}, { 17.119775698897875`, -8.744227564250195*^-12}, { 17.129783504545394`, -2.7467006447068343`*^-10}, { 17.1309370048356, -3.2333975281561927`*^-10}}], LineBox[{{20.73109574228584, -3.2333975281561927`*^-10}, { 20.73939375185205, 1.5705486910988498`*^-10}, { 20.749261986676466`, -1.5695234001356084`*^-10}, { 20.759130221500882`, -2.3032453722038326`*^-10}, {20.7689984563253, 9.919531862578879*^-11}, { 20.778866691149716`, -9.344880425032898*^-11}, { 20.788165496887196`, -3.2333975281561927`*^-10}}], LineBox[{{24.400269092671902`, -3.2333975281561927`*^-10}, { 24.407159333532782`, -8.56072990274015*^-11}, {24.416409681207565`, 1.0127410021709693`*^-10}, { 24.425660028882348`, -6.719114153952432*^-11}, { 24.434910376557127`, -1.20579102258489*^-11}, { 24.4391179795693, -3.2333975281561927`*^-10}}], LineBox[{{21.4098789800809, 3.2104877523127284`*^-10}, { 21.417695642393014`, -4.771960604443848*^-11}, {21.427676792385242`, 5.511591183449127*^-12}, { 21.432336355424102`, -3.2333975281561927`*^-10}}], LineBox[{{24.44972737599322, -3.2333975281561927`*^-10}, { 24.454185003980392`, -2.4598101333594968`*^-11}, { 24.464209283728877`, -1.0822942542176861`*^-10}, {24.474184202927237`, 3.2104877523127284`*^-10}}], LineBox[{{20.50608919399835, -3.2333975281561927`*^-10}, { 20.512424350890477`, -5.2596538235860635`*^-11}, {20.51951471858832, 3.2104877523127284`*^-10}}], LineBox[{{20.5877605033794, -3.2333975281561927`*^-10}, { 20.591370229485804`, 2.97478604249779*^-10}, { 20.5997366631357, -3.2333975281561927`*^-10}}], LineBox[{{24.089813662282094`, -3.2333975281561927`*^-10}, { 24.09264751259017, 1.5102563644120437`*^-10}, {24.101897860264952`, 3.129896342102256*^-11}, {24.10721781377446, 3.2104877523127284`*^-10}}], LineBox[{{17.087906268006435`, 3.2104877523127284`*^-10}, { 17.089752281955313`, 1.3579271040953245`*^-10}, {17.093058203742803`, 3.2104877523127284`*^-10}}], LineBox[{{29.93535279102615, 3.2104877523127284`*^-10}, { 29.938220937521955`, 1.73662889624282*^-10}, { 29.945287093231816`, -3.2333975281561927`*^-10}}], LineBox[{{23.57767534854024, 3.2104877523127284`*^-10}, { 23.584531629367625`, 9.94988536007213*^-11}, {23.5944429939483, 3.136241266687989*^-10}, { 23.60205641283543, -3.2333975281561927`*^-10}}], LineBox[{{27.2863566158117, 3.2104877523127284`*^-10}, { 27.293371459748634`, 1.0169975972473821`*^-10}, { 27.301341035389395`, -3.2333975281561927`*^-10}}], LineBox[{{20.307753024503615`, -3.2333975281561927`*^-10}, { 20.31505965440215, 1.9737267376029877`*^-10}, {20.31943790897425, 3.2104877523127284`*^-10}}], LineBox[{{23.980513064505338`, 3.2104877523127284`*^-10}, { 23.98164334049278, 2.1685231388346438`*^-10}, { 23.987623387222904`, -3.2333975281561927`*^-10}}], LineBox[{{20.62465342334998, -3.2333975281561927`*^-10}, { 20.63084316878347, -6.470152191795364*^-11}, {20.63694967022626, 3.2104877523127284`*^-10}}], LineBox[{{27.201708904876963`, -3.2333975281561927`*^-10}, { 27.209730162869274`, 1.6188672624650735`*^-10}, {27.219023640300314`, 8.543388219095505*^-12}, {27.22671978252165, 3.2104877523127284`*^-10}}], LineBox[{{14.67505918506897, -3.2333975281561927`*^-10}, { 14.682709999018009`, 9.311951210122515*^-11}, {14.692013658003379`, 9.926592881015495*^-11}, { 14.698501840764946`, -3.2333975281561927`*^-10}}], LineBox[{{29.84319613001277, -3.2333975281561927`*^-10}, { 29.845553262172224`, -2.9661484379772673`*^-10}, { 29.847260085852124`, -3.2333975281561927`*^-10}}], LineBox[{{29.714731988635084`, 3.2104877523127284`*^-10}, { 29.72199636170592, -2.714604097064921*^-10}, {29.73198045256907, 3.2104877523127284`*^-10}}], LineBox[{{23.949738849127733`, 3.2104877523127284`*^-10}, { 23.953892297468432`, -2.230685636206431*^-10}, {23.958436216020957`, 3.2104877523127284`*^-10}}], LineBox[{{20.43601238647131, -3.2333975281561927`*^-10}, { 20.44334670711956, -1.1293654900157435`*^-10}, { 20.44933595848539, -3.2333975281561927`*^-10}}], LineBox[{{27.18418647030772, 3.2104877523127284`*^-10}, { 27.191143208007194`, -1.333363419675493*^-10}, { 27.19775757364535, -3.2333975281561927`*^-10}}], LineBox[{{20.710548435709782`, -3.2333975281561927`*^-10}, { 20.719657282203222`, 6.607481228826373*^-11}, { 20.727657866276886`, -3.2333975281561927`*^-10}}], LineBox[{{20.495007286792376`, 3.2104877523127284`*^-10}, { 20.50112307653842, -3.2333975281561927`*^-10}}], LineBox[{{29.671656645302686`, 3.2104877523127284`*^-10}, { 29.676552331831385`, -3.2333975281561927`*^-10}}], LineBox[{{20.339361007355667`, -3.2333975281561927`*^-10}, { 20.34318723529898, 3.2104877523127284`*^-10}}], LineBox[{{23.934157493605706`, 3.2104877523127284`*^-10}, { 23.935256675337687`, -3.2333975281561927`*^-10}}], LineBox[{{27.017572499094662`, -3.2333975281561927`*^-10}, { 27.01840580656255, 3.2104877523127284`*^-10}}], LineBox[{{20.415017747799343`, 3.2104877523127284`*^-10}, { 20.419866623709197`, -3.2333975281561927`*^-10}}], LineBox[{{21.440542007366414`, -3.2333975281561927`*^-10}, { 21.445490321365238`, 3.2104877523127284`*^-10}}], LineBox[{{29.87714288410755, 3.2104877523127284`*^-10}, { 29.88640533334144, -3.2333975281561927`*^-10}}], LineBox[{{20.297850109051684`, 3.2104877523127284`*^-10}, { 20.303570763398024`, -3.2333975281561927`*^-10}}], LineBox[{{23.33844613949205, -3.2333975281561927`*^-10}, { 23.345564347280064`, 3.2104877523127284`*^-10}}], LineBox[{{21.36131428272246, -3.2333975281561927`*^-10}, { 21.36621609086967, 3.2104877523127284`*^-10}}], LineBox[{{29.69530731474486, -3.2333975281561927`*^-10}, { 29.69970909125158, 3.2104877523127284`*^-10}}], LineBox[{{20.356026119067515`, 3.2104877523127284`*^-10}, { 20.3604658680574, -3.2333975281561927`*^-10}}], LineBox[{{21.26999951219869, -3.2333975281561927`*^-10}, { 21.27368691249457, 3.2104877523127284`*^-10}}], LineBox[{{29.857390774271845`, -3.2333975281561927`*^-10}, { 29.864774574343897`, 3.2104877523127284`*^-10}}], LineBox[{{27.03515430329567, -3.2333975281561927`*^-10}, { 27.039042877062684`, 3.2104877523127284`*^-10}}], LineBox[{{29.615250654892982`, -3.2333975281561927`*^-10}, { 29.618997706553376`, 3.2104877523127284`*^-10}}], LineBox[{{21.345448855902667`, -3.2333975281561927`*^-10}, { 21.349623554063236`, 3.2104877523127284`*^-10}}], LineBox[{{21.45976000768798, 3.2104877523127284`*^-10}, { 21.46396066598573, -3.2333975281561927`*^-10}}], LineBox[{{21.307610575954573`, 3.2104877523127284`*^-10}, { 21.3105295760092, -3.2333975281561927`*^-10}}], LineBox[{{26.841001289579104`, -3.2333975281561927`*^-10}, { 26.849237222073313`, 3.2104877523127284`*^-10}}], LineBox[{{29.89709584090387, 3.2104877523127284`*^-10}, { 29.90368399695293, -3.2333975281561927`*^-10}}], LineBox[{{29.98154365657937, 3.2104877523127284`*^-10}, { 29.98917551137341, -3.2333975281561927`*^-10}}], LineBox[{{23.935917552144776`, -3.2333975281561927`*^-10}, { 23.940202206794947`, 3.2104877523127284`*^-10}}], LineBox[{{27.03140803030148, 3.2104877523127284`*^-10}, { 27.03256101653351, -3.2333975281561927`*^-10}}], LineBox[{{11.246115508038137`, -3.2333975281561927`*^-10}, { 11.252107221860058`, 3.2104877523127284`*^-10}}], LineBox[{{11.662067814461588`, 3.2104877523127284`*^-10}, { 11.666643902044738`, -3.2333975281561927`*^-10}}], LineBox[{{29.88709365763227, -3.2333975281561927`*^-10}, { 29.896944784562685`, 3.2104877523127284`*^-10}}], LineBox[{{20.465711990827057`, -3.2333975281561927`*^-10}, { 20.47248597872119, 3.2104877523127284`*^-10}}], LineBox[{{23.566667583368652`, -3.2333975281561927`*^-10}, { 23.57356377006016, 3.2104877523127284`*^-10}}], LineBox[{{21.354591262595616`, 3.2104877523127284`*^-10}, { 21.360417382367423`, -3.2333975281561927`*^-10}}], LineBox[{{29.95086253109501, -3.2333975281561927`*^-10}, { 29.957513929432125`, 3.2104877523127284`*^-10}}], LineBox[{{21.471740565283834`, -3.2333975281561927`*^-10}, { 21.476516329610362`, 3.2104877523127284`*^-10}}], LineBox[{{23.917269716022403`, -3.2333975281561927`*^-10}, { 23.918339489221193`, 3.2104877523127284`*^-10}}], LineBox[{{20.32590372768887, 3.2104877523127284`*^-10}, { 20.329958534547956`, -3.2333975281561927`*^-10}}], LineBox[{{29.99095056821441, -3.2333975281561927`*^-10}, { 29.999999387755103`, -3.161360062620133*^-13}}]}, Annotation[#, "Charting`Private`Tag$6329#1"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, BaseStyle->{FontFamily -> "Arial"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->400, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 30}, {-3.2333975281561927`*^-10, 3.2104877523127284`*^-10}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.684199345016055*^9, 3.6842026700485373`*^9, 3.726340546226101*^9},ExpressionUUID->"e405d557-733f-4740-8fd6-\ 73dfa1a41e18"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "f"}], "]"}]], "Input", CellChangeTimes->{{3.726342697117773*^9, 3.726342701089218*^9}, { 3.726342767387821*^9, 3.72634276825924*^9}},ExpressionUUID->"1f0f8b5d-f377-4b66-8d72-\ 306a70377389"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"eq", "=", RowBox[{ RowBox[{"4", " ", "x", RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"10", " ", "x"}], "-", "4"}], ")"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"f", "[", "x", "]"}]}], "-", FractionBox[ RowBox[{"3", " ", RowBox[{"(", RowBox[{"x", "-", "3"}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], RowBox[{"3", "/", "2"}]]]}]}]], "Input", CellChangeTimes->{{3.7138562299035063`*^9, 3.71385632402739*^9}, { 3.713856392279873*^9, 3.71385639360192*^9}, {3.713856527545884*^9, 3.7138565627836437`*^9}, {3.72634241764528*^9, 3.7263424735752363`*^9}, { 3.726342521205124*^9, 3.726342668406761*^9}},ExpressionUUID->"30fe631f-8e3e-4602-9d4f-\ 0e26bbb2a95f"], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "x"}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], RowBox[{"3", "/", "2"}]]]}], "+", RowBox[{"2", " ", RowBox[{"f", "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"10", " ", "x"}]}], ")"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", "x", " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}]], "Output", CellChangeTimes->{{3.726342687106379*^9, 3.726342708507038*^9}, 3.726342779240176*^9},ExpressionUUID->"1225f7bc-9dd6-4663-934c-\ 379f83952e9e"] }, Open ]], Cell["We want a solution f[x] that vanishes at x=0.", "Text", CellChangeTimes->{{3.726342895243475*^9, 3.726342934050399*^9}},ExpressionUUID->"42c506e5-8a01-455b-a99d-\ 89d03a4664ad"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fsoln", "=", RowBox[{ RowBox[{ RowBox[{"DSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"eq", "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"f", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], ",", "f", ",", "x"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "//", "FullSimplify"}]}]], "Input", CellChangeTimes->{{3.713856842521023*^9, 3.7138569257611628`*^9}, { 3.713856992258234*^9, 3.713856994405757*^9}, {3.7138570940967703`*^9, 3.7138571147736177`*^9}, {3.7138636463077393`*^9, 3.7138636531391068`*^9}, { 3.726342674768063*^9, 3.7263426800019417`*^9}, {3.726342791286069*^9, 3.726342794799222*^9}, {3.726342940117305*^9, 3.726342960897196*^9}},ExpressionUUID->"9c626f15-cd35-4088-9ff4-\ 7fc60786c756"], Cell[BoxData[ TemplateBox[{ "Part","partw", "\"Part \\!\\(\\*RowBox[{\\\"1\\\"}]\\) of \\!\\(\\*RowBox[{\\\"{\\\", \ \\\"}\\\"}]\\) does not exist.\"",2,51,2,19063148941477018512,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.7263429673391743`*^9},ExpressionUUID->"13c4c522-c207-452c-a34d-\ 77065f890169"], Cell[BoxData[ RowBox[{ RowBox[{"{", "}"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]], "Output", CellChangeTimes->{ 3.713856928868692*^9, 3.7138570407481833`*^9, {3.713857104868897*^9, 3.71385711604663*^9}, 3.7138636068416853`*^9, 3.71386365514895*^9, 3.713864391271743*^9, 3.726342802299975*^9, 3.7263429673486767`*^9},ExpressionUUID->"cf59fc3c-8b54-4fca-b4f4-\ 8783aaf430e7"] }, Open ]], Cell["\<\ Let us try again, and temporarily drop the condition f[0] = 0.\ \>", "Text", CellChangeTimes->{{3.7263429947188187`*^9, 3.726343051147483*^9}},ExpressionUUID->"2fae8cb8-2171-4357-9d00-\ 01c0a68e009d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fsoln", "=", RowBox[{ RowBox[{ RowBox[{"DSolve", "[", RowBox[{ RowBox[{"eq", "\[Equal]", "0"}], ",", "f", ",", "x"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "//", "FullSimplify"}]}]], "Input", CellChangeTimes->{{3.713856842521023*^9, 3.7138569257611628`*^9}, { 3.713856992258234*^9, 3.713856994405757*^9}, {3.7138570940967703`*^9, 3.7138571147736177`*^9}, {3.7138636463077393`*^9, 3.7138636531391068`*^9}, { 3.726342674768063*^9, 3.7263426800019417`*^9}, {3.726342791286069*^9, 3.726342794799222*^9}, {3.726342940117305*^9, 3.726342960897196*^9}, { 3.726343068456984*^9, 3.726343072786933*^9}},ExpressionUUID->"93a31143-ec7d-4ee3-a705-\ 8c16a62c2935"], Cell[BoxData[ RowBox[{"{", RowBox[{"f", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "x", "}"}], ",", RowBox[{ FractionBox[ RowBox[{"C", "[", "1", "]"}], SqrtBox[ RowBox[{"1", "-", "x"}]]], "+", FractionBox[ RowBox[{ RowBox[{"C", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Log", "[", RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "-", "x"}]]}], "]"}], "-", RowBox[{"Log", "[", RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "x"}]]}], "]"}]}], ")"}]}], SqrtBox[ RowBox[{"1", "-", "x"}]]], "-", FractionBox[ RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox[ RowBox[{"1", "-", "x"}]], " ", RowBox[{"Log", "[", RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "-", "x"}]]}], "]"}]}], "+", RowBox[{ SqrtBox[ RowBox[{"1", "-", "x"}]], " ", RowBox[{"Log", "[", RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "x"}]]}], "]"}]}], "-", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "-", "x"}]], " ", RowBox[{"Log", "[", RowBox[{"1", "-", "x"}], "]"}]}]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}]]}]}], "]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.72634307665737*^9},ExpressionUUID->"e278da50-195c-406d-9df7-f1f83fe6d9ff"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fser", "=", RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"f", "/.", "fsoln"}], ")"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.713863668223941*^9, 3.71386370254597*^9}, { 3.7138637360191936`*^9, 3.713863835358251*^9}, {3.713863899607912*^9, 3.713863903013382*^9}, {3.713932818416285*^9, 3.713932823681809*^9}, 3.726342862102865*^9, {3.7263431937497396`*^9, 3.726343210546612*^9}},ExpressionUUID->"d4e38391-7801-4642-b78d-\ 84152a9bdf42"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"C", "[", "1", "]"}], "-", RowBox[{"2", " ", RowBox[{"C", "[", "2", "]"}], " ", RowBox[{"Log", "[", "2", "]"}]}], "+", FractionBox[ RowBox[{"3", " ", RowBox[{"Log", "[", "x", "]"}]}], "2"], "+", RowBox[{ RowBox[{"C", "[", "2", "]"}], " ", RowBox[{"Log", "[", "x", "]"}]}]}], ")"}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"12", "+", RowBox[{"2", " ", RowBox[{"C", "[", "1", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"C", "[", "2", "]"}]}], "-", RowBox[{"4", " ", RowBox[{"C", "[", "2", "]"}], " ", RowBox[{"Log", "[", "2", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"Log", "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"C", "[", "2", "]"}], " ", RowBox[{"Log", "[", "x", "]"}]}]}], ")"}], " ", "x"}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "x", "]"}], "2"], SeriesData[$CellContext`x, 0, {}, 0, 2, 1], Editable->False]}], SeriesData[$CellContext`x, 0, { C[1] - 2 C[2] Log[2] + Rational[3, 2] Log[$CellContext`x] + C[2] Log[$CellContext`x], Rational[1, 4] (12 + 2 C[1] + 2 C[2] - 4 C[2] Log[2] + 3 Log[$CellContext`x] + 2 C[2] Log[$CellContext`x])}, 0, 2, 1], Editable->False]], "Output", CellChangeTimes->{ 3.713863704663176*^9, 3.713863804080887*^9, 3.713863837682179*^9, 3.713863905885532*^9, 3.713864403252522*^9, 3.713932825835148*^9, 3.7263428640870867`*^9, {3.726343196785059*^9, 3.7263432117166023`*^9}},ExpressionUUID->"8271646e-4a46-4b1d-8800-\ 216bf2ba954f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MapAt", "[", RowBox[{"Simplify", ",", "fser", ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.726343230577055*^9, 3.7263432483546553`*^9}, { 3.726343287206168*^9, 3.726343293137988*^9}},ExpressionUUID->"5ab4d21f-a250-473f-a757-\ 4ba40010ac80"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"C", "[", "1", "]"}], "-", RowBox[{ RowBox[{"C", "[", "2", "]"}], " ", RowBox[{"Log", "[", "4", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["3", "2"], "+", RowBox[{"C", "[", "2", "]"}]}], ")"}], " ", RowBox[{"Log", "[", "x", "]"}]}]}], ")"}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"6", "+", RowBox[{"C", "[", "1", "]"}], "+", RowBox[{"C", "[", "2", "]"}], "-", RowBox[{ RowBox[{"C", "[", "2", "]"}], " ", RowBox[{"Log", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", " ", RowBox[{"C", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"Log", "[", "x", "]"}]}]}], ")"}], " ", "x"}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "x", "]"}], "2"], SeriesData[$CellContext`x, 0, {}, 0, 2, 1], Editable->False]}], SeriesData[$CellContext`x, 0, { C[1] - C[2] Log[4] + (Rational[3, 2] + C[2]) Log[$CellContext`x], Rational[1, 4] ( 2 (6 + C[1] + C[2] - C[2] Log[4]) + (3 + 2 C[2]) Log[$CellContext`x])}, 0, 2, 1], Editable->False]], "Output", CellChangeTimes->{3.72634324936943*^9, 3.726343294206613*^9},ExpressionUUID->"dbbdbad2-9d06-4348-a690-\ dfc7de97f810"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fser", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"C", "[", "2", "]"}], "\[Rule]", FractionBox[ RowBox[{"-", "3"}], "2"]}], ",", " ", RowBox[{ RowBox[{"C", "[", "1", "]"}], "\[Rule]", " ", RowBox[{ RowBox[{"-", "3"}], RowBox[{"Log", "[", "2", "]"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.713863915133224*^9, 3.7138640067496233`*^9}},ExpressionUUID->"c7f1543d-2dd4-458e-828f-\ 4e5de0fc0cb4"], Cell[BoxData[ InterpretationBox[ RowBox[{ FractionBox[ RowBox[{"9", " ", "x"}], "4"], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "x", "]"}], "2"], SeriesData[$CellContext`x, 0, {}, 1, 2, 1], Editable->False]}], SeriesData[$CellContext`x, 0, { Rational[9, 4]}, 1, 2, 1], Editable->False]], "Output", CellChangeTimes->{ 3.726343323135206*^9},ExpressionUUID->"0f352f08-069a-4588-855d-\ 176418258f91"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"F", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"f", "/.", "fsoln"}], ")"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"C", "[", "2", "]"}], "\[Rule]", FractionBox[ RowBox[{"-", "3"}], "2"]}], ",", " ", RowBox[{ RowBox[{"C", "[", "1", "]"}], "\[Rule]", " ", RowBox[{ RowBox[{"-", "3"}], RowBox[{"Log", "[", "2", "]"}]}]}]}], "}"}]}], " ", "//", "Simplify"}]}]], "Input", CellChangeTimes->{{3.7263433638324547`*^9, 3.726343437824957*^9}},ExpressionUUID->"fa6a73d0-6239-495b-a0c4-\ ead85cd04006"], Cell[BoxData[ FractionBox[ RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"Log", "[", RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "x"}]]}], "]"}], "-", RowBox[{"Log", "[", RowBox[{"2", "-", RowBox[{"2", " ", "x"}]}], "]"}]}], ")"}]}], SqrtBox[ RowBox[{"1", "-", "x"}]]]], "Output", CellChangeTimes->{{3.726343396222028*^9, 3.726343439118403*^9}},ExpressionUUID->"1f57592d-a597-4566-a4ad-\ 5c5ae5e62d88"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Series", "[", RowBox[{"F", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7263434495053596`*^9, 3.726343480137035*^9}},ExpressionUUID->"717d5639-c5f9-4d37-b5f6-\ 58b0eca4a78b"], Cell[BoxData[ InterpretationBox[ RowBox[{ FractionBox[ RowBox[{"9", " ", "x"}], "4"], "+", FractionBox[ RowBox[{"75", " ", SuperscriptBox["x", "2"]}], "32"], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "x", "]"}], "3"], SeriesData[$CellContext`x, 0, {}, 1, 3, 1], Editable->False]}], SeriesData[$CellContext`x, 0, { Rational[9, 4], Rational[75, 32]}, 1, 3, 1], Editable->False]], "Output", CellChangeTimes->{ 3.726343481126786*^9},ExpressionUUID->"e21228a7-3af4-4b4e-9554-\ ef547a963b3b"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["A project to with the periods of a CY manifold", "Subchapter", CellChangeTimes->{{3.726345646931246*^9, 3.726345711213389*^9}, { 3.726345755870985*^9, 3.7263457614660177`*^9}},ExpressionUUID->"f2e408c3-feed-40fa-8ec6-\ 04ae54776bea"], Cell[BoxData[ RowBox[{ RowBox[{"Tpoly", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", RowBox[{"x", "+", FractionBox["1", "x"], "+", "y", "+", FractionBox["1", "y"], "+", FractionBox["x", "y"], "+", FractionBox["y", "x"]}]}]], "Input", CellChangeTimes->{{3.683944767893219*^9, 3.683944837672598*^9}},ExpressionUUID->"a1239445-95d1-4478-8cbe-\ 16cd61a40285"], Cell[BoxData[ RowBox[{ SubscriptBox["T", "k_"], ":=", RowBox[{ SubscriptBox["T", "k"], "=", "\[IndentingNewLine]", RowBox[{"Coefficient", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Coefficient", "[", RowBox[{ SuperscriptBox[ RowBox[{"Tpoly", "[", RowBox[{"x", ",", "y"}], "]"}], "k"], ",", "x", ",", "0"}], "]"}], ",", "\[IndentingNewLine]", " ", "y", ",", "0"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.683944842808281*^9, 3.6839448833338413`*^9}, { 3.6839450400461807`*^9, 3.6839450669542933`*^9}, {3.683945118979328*^9, 3.683945225419833*^9}, {3.683945266244997*^9, 3.6839452745863934`*^9}},ExpressionUUID->"3723251b-d3b6-4020-a4ee-\ ccc859dc97c1"], Cell[BoxData[ RowBox[{ SubscriptBox["\[Alpha]", "n_"], ":=", " ", RowBox[{ SubscriptBox["\[Alpha]", "n"], "=", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"OddQ", "[", "n", "]"}], ",", RowBox[{"2", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", "k"}], "]"}], SubscriptBox["T", RowBox[{"n", "-", "k"}]], " ", SubscriptBox["T", "k"]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", FractionBox[ RowBox[{"n", "-", "1"}], "2"]}], "}"}]}], "]"}]}], ",", RowBox[{ RowBox[{"2", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", "k"}], "]"}], SubscriptBox["T", RowBox[{"n", "-", "k"}]], " ", SubscriptBox["T", "k"]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{ FractionBox["n", "2"], "-", "1"}]}], "}"}]}], "]"}]}], "+", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", FractionBox["n", "2"]}], "]"}], " ", SuperscriptBox[ SubscriptBox["T", RowBox[{"n", "/", "2"}]], "2"]}]}]}], "\[IndentingNewLine]", " ", "]"}]}]}]], "Input", CellChangeTimes->{{3.683945297470026*^9, 3.683945338878929*^9}, { 3.683945388874042*^9, 3.6839456299161673`*^9}, {3.683945780334428*^9, 3.6839458138810062`*^9}, {3.683945853441077*^9, 3.6839458620003223`*^9}, { 3.6840232918544893`*^9, 3.684023292880287*^9}},ExpressionUUID->"2663b2ac-7961-4506-862a-\ f6996f5f0121"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ SubscriptBox["\[Alpha]", "n"], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "50"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.6839456958259172`*^9, 3.68394572103228*^9}, 3.683945845946809*^9, {3.6839461615770082`*^9, 3.6839461950693903`*^9}, { 3.683946364055847*^9, 3.6839463790230017`*^9}, {3.683948638557597*^9, 3.68394863876378*^9}, {3.683969224028224*^9, 3.683969225137722*^9}, { 3.683969568681562*^9, 3.683969568831348*^9}, 3.684023304974506*^9},ExpressionUUID->"872df4e3-4977-43f3-a2cb-\ 70cf83684d5d"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "12", ",", "24", ",", "396", ",", "2160", ",", "23160", ",", "186480", ",", "1845900", ",", "17213280", ",", "171575712", ",", "1703560320", ",", "17365421304", ",", "178323713568", ",", "1856554560432", ",", "19487791106784", ",", "206411964321420", ",", "2201711191213248", ",", "23642813637773616", ",", "255355132936441824", ",", "2772650461148938656", ",", "30248675037382538880", ",", "331438542846964180992", ",", "3645985314663912489984", ",", "40253352687777620374776", ",", "445899348810135736176960", ",", "4954599887270237905852800", ",", "55210013720527863783880320", ",", "616845490089371010724497840", ",", "6908835039102833099223965760", ",", "77558935621320663634645169760", ",", "872555336075039351141820542400", ",", "9836256654406990510063112404620", ",", "111093683696857593088076506055040", ",", "1256964832153899565798063964625360", ",", "14245801154241460321451736436267680", ",", "161711184920698116201513043068894000", ",", "1838422802677352902944026880120269760", ",", "20929968050634158361809598843821082720", ",", "238604084297865887503634354739682226880", ",", "2723604302705399110711864482680203408800", ",", "31127182673212368692213826730815487238400", ",", "356155829380376900900913291081937387488000", ",", "4079634680295870734083713299360651118873600", ",", "46780149321943165896822459952777274423385600", ",", "536958394984483586022362225192235106645985280", ",", "6169348420937264128969792709201188166008089600", ",", "70947930272537334350509861861788754738180700160", ",", "816629740093680630102475274822880521200882128120", ",", "9407624323260315606435813085689677006965402097280", ",", "108464914912610947331756997308308146813500741423712"}], "}"}]], "Output", CellChangeTimes->{ 3.68394574797012*^9, 3.683945825315937*^9, {3.68394615308956*^9, 3.683946185600751*^9}, {3.683946358540669*^9, 3.6839463809199047`*^9}, 3.683948640995089*^9, 3.68396931780971*^9, 3.683969580326233*^9, 3.684018323576127*^9, 3.684023424457595*^9, 3.684025776038218*^9, 3.684028538299985*^9, 3.726393334676791*^9},ExpressionUUID->"0aac9ce7-bb55-48ff-bcd2-\ 21c7f80126af"] }, Open ]], Cell[BoxData[ RowBox[{ SubscriptBox["\[CurlyPi]", "0"], ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "n"], " ", SuperscriptBox["\[CurlyPhi]", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "50"}], "}"}]}], "]"}], "+", SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], "51"]}]}]], "Input", CellChangeTimes->{{3.683946014478756*^9, 3.6839460594574137`*^9}, { 3.683946404516212*^9, 3.683946405356264*^9}, {3.683946448248506*^9, 3.6839464958451233`*^9}, {3.683969879855895*^9, 3.683969885166272*^9}, 3.684023306560648*^9},ExpressionUUID->"e36c77d9-84db-44fd-a065-\ 83cbac374fbf"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"\[Theta]", "[", "fn_", "]"}], ":=", RowBox[{"\[CurlyPhi]", " ", RowBox[{"D", "[", RowBox[{"fn", ",", "\[CurlyPhi]"}], "]"}]}]}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]", "[", RowBox[{"fn_", ",", "m_"}], "]"}], ":=", RowBox[{"Nest", "[", RowBox[{"\[Theta]", ",", "fn", ",", "m"}], "]"}]}]}], "Input", CellChangeTimes->{{3.6839470691118402`*^9, 3.6839471104887047`*^9}, { 3.683969913332347*^9, 3.683969917910274*^9}},ExpressionUUID->"a694fb4c-a36e-4b68-b961-\ 885c5ce7dd8e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Theta]", "[", SuperscriptBox["\[CurlyPhi]", "n"], "]"}]], "Input", CellChangeTimes->{{3.68394718941846*^9, 3.683947204955717*^9}},ExpressionUUID->"67e8eef7-4065-4f00-a53c-\ 40e958f89b72"], Cell[BoxData[ RowBox[{"n", " ", SuperscriptBox["\[CurlyPhi]", "n"]}]], "Output", CellChangeTimes->{ 3.6839472061514397`*^9, {3.6839484699572153`*^9, 3.6839484888416023`*^9}, 3.683969932163056*^9, 3.684018323725698*^9, 3.684023424646675*^9, 3.6840257761508293`*^9, 3.684028538483008*^9, 3.7263933937563763`*^9},ExpressionUUID->"312855ab-942f-45a5-8dd3-\ cc6f90c40257"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Theta]", "[", RowBox[{ SuperscriptBox["\[CurlyPhi]", "n"], ",", "4"}], "]"}]], "Input", CellChangeTimes->{{3.68394718941846*^9, 3.683947217427064*^9}},ExpressionUUID->"65931893-c3af-4047-a566-\ a304ebc06504"], Cell[BoxData[ RowBox[{ SuperscriptBox["n", "4"], " ", SuperscriptBox["\[CurlyPhi]", "n"]}]], "Output", CellChangeTimes->{ 3.683947219248438*^9, {3.683948469992137*^9, 3.683948488885973*^9}, 3.683969937742893*^9, 3.68401832379941*^9, 3.684023424685886*^9, 3.684025776208222*^9, 3.6840285385292807`*^9, 3.726393393856866*^9},ExpressionUUID->"67d18ec4-92b0-43fa-8e77-\ a250f6263877"] }, Open ]], Cell[BoxData[ RowBox[{ SubscriptBox["R", RowBox[{"j_", ",", "kmax_"}]], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["r", RowBox[{"j", ",", "k"}]], " ", SuperscriptBox["\[CurlyPhi]", "k"]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "kmax"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.683947253296406*^9, 3.683947315388988*^9}, { 3.6839480386756287`*^9, 3.6839480489311934`*^9}, {3.683948264282259*^9, 3.68394829560565*^9}},ExpressionUUID->"30bf7359-3c37-4aa2-84ad-\ 7230179d114d"], Cell[BoxData[ RowBox[{ RowBox[{"L", "[", RowBox[{"fn_", ",", "kmax_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["R", RowBox[{"j", ",", "kmax"}]], RowBox[{"\[Theta]", "[", RowBox[{"fn", ",", "j"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6839473288295193`*^9, 3.683947427758787*^9}, { 3.683948306616243*^9, 3.683948321303928*^9}},ExpressionUUID->"0fb3ea58-353b-45f2-a680-\ a8cca4cd1f7a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"kmax", "=", "3"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Union", "[", "\[IndentingNewLine]", RowBox[{"CoefficientList", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Normal", "[", RowBox[{"L", "[", RowBox[{ SubscriptBox["\[CurlyPi]", "0"], ",", "kmax"}], "]"}], "]"}], ",", "\[CurlyPhi]"}], "]"}], "]"}]}], " ", "\[IndentingNewLine]", " ", "]"}]], "Input", CellChangeTimes->{{3.683947512308634*^9, 3.683947687365563*^9}, { 3.683947755306613*^9, 3.6839477953785057`*^9}, {3.683947832666246*^9, 3.683947840895804*^9}, {3.683948360088979*^9, 3.683948391231901*^9}},ExpressionUUID->"3ab4e592-39d6-4dfb-975d-\ 28e399ce15e0"], Cell[BoxData[ RowBox[{"{", RowBox[{ SubscriptBox["r", RowBox[{"0", ",", "0"}]], ",", SubscriptBox["r", RowBox[{"0", ",", "1"}]], ",", RowBox[{ RowBox[{"12", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", SubscriptBox["r", RowBox[{"0", ",", "2"}]], "+", RowBox[{"24", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"48", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"96", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"192", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}]}], ",", RowBox[{ RowBox[{"24", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"12", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", SubscriptBox["r", RowBox[{"0", ",", "3"}]], "+", RowBox[{"72", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"24", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"216", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"48", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"648", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"96", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"1944", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"192", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}]}], ",", RowBox[{ RowBox[{"396", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"24", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"12", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"1584", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"72", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"24", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"6336", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"216", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"48", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"25344", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"648", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"96", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"101376", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"1944", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"192", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}]}], ",", RowBox[{ RowBox[{"2160", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"396", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"24", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"12", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"10800", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"1584", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"72", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"24", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"54000", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"6336", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"216", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"48", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"270000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"25344", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"648", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"96", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"1350000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"101376", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"1944", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"192", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"23160", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"2160", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"396", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"24", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"138960", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"10800", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"1584", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"72", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"833760", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"54000", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"6336", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"216", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"5002560", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"270000", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"25344", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"648", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"30015360", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"1350000", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"101376", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"1944", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"186480", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"23160", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"2160", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"396", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"1305360", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"138960", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"10800", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"1584", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"9137520", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"833760", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"54000", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"6336", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"63962640", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"5002560", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"270000", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"25344", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"447738480", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"30015360", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"1350000", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"101376", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"1845900", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"186480", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"23160", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"2160", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"14767200", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"1305360", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"138960", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"10800", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"118137600", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"9137520", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"833760", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"54000", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"945100800", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"63962640", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"5002560", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"270000", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"7560806400", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"447738480", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"30015360", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"1350000", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"17213280", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"1845900", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"186480", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"23160", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"154919520", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"14767200", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"1305360", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"138960", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"1394275680", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"118137600", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"9137520", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"833760", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"12548481120", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"945100800", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"63962640", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"5002560", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"112936330080", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"7560806400", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"447738480", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"30015360", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"171575712", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"17213280", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"1845900", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"186480", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"1715757120", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"154919520", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"14767200", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"1305360", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"17157571200", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"1394275680", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"118137600", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"9137520", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"171575712000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"12548481120", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"945100800", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"63962640", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"1715757120000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"112936330080", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"7560806400", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"447738480", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"1703560320", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"171575712", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"17213280", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"1845900", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"18739163520", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"1715757120", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"154919520", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"14767200", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"206130798720", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"17157571200", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"1394275680", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"118137600", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"2267438785920", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"171575712000", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"12548481120", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"945100800", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"24941826645120", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"1715757120000", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"112936330080", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"7560806400", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"17365421304", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"1703560320", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"171575712", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"17213280", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"208385055648", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"18739163520", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"1715757120", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"154919520", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"2500620667776", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"206130798720", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"17157571200", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"1394275680", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"30007448013312", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"2267438785920", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"171575712000", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"12548481120", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"360089376159744", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"24941826645120", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"1715757120000", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"112936330080", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"178323713568", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"17365421304", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"1703560320", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"171575712", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"2318208276384", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"208385055648", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"18739163520", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"1715757120", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"30136707592992", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"2500620667776", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"206130798720", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"17157571200", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"391777198708896", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"30007448013312", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"2267438785920", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"171575712000", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"5093103583215648", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"360089376159744", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"24941826645120", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"1715757120000", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"1856554560432", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"178323713568", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"17365421304", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"1703560320", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"25991763846048", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"2318208276384", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"208385055648", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"18739163520", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"363884693844672", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"30136707592992", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"2500620667776", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"206130798720", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"5094385713825408", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"391777198708896", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"30007448013312", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"2267438785920", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"71321399993555712", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"5093103583215648", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"360089376159744", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"24941826645120", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"19487791106784", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"1856554560432", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"178323713568", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"17365421304", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"292316866601760", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"25991763846048", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"2318208276384", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"208385055648", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"4384752999026400", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"363884693844672", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"30136707592992", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"2500620667776", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"65771294985396000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"5094385713825408", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"391777198708896", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"30007448013312", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"986569424780940000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"71321399993555712", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"5093103583215648", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"360089376159744", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"206411964321420", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"19487791106784", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"1856554560432", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"178323713568", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"3302591429142720", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"292316866601760", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"25991763846048", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"2318208276384", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"52841462866283520", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"4384752999026400", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"363884693844672", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"30136707592992", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"845463405860536320", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"65771294985396000", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"5094385713825408", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"391777198708896", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"13527414493768581120", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"986569424780940000", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"71321399993555712", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"5093103583215648", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"2201711191213248", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"206411964321420", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"19487791106784", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"1856554560432", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"37429090250625216", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"3302591429142720", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"292316866601760", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"25991763846048", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"636294534260628672", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"52841462866283520", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"4384752999026400", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"363884693844672", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"10817007082430687424", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"845463405860536320", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"65771294985396000", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"5094385713825408", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"183889120401321686208", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"13527414493768581120", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"986569424780940000", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"71321399993555712", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"23642813637773616", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"2201711191213248", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"206411964321420", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"19487791106784", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"425570645479925088", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"37429090250625216", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"3302591429142720", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"292316866601760", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"7660271618638651584", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"636294534260628672", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"52841462866283520", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"4384752999026400", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"137884889135495728512", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"10817007082430687424", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"845463405860536320", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"65771294985396000", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"2481928004438923113216", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"183889120401321686208", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"13527414493768581120", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"986569424780940000", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"255355132936441824", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"23642813637773616", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"2201711191213248", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"206411964321420", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"4851747525792394656", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"425570645479925088", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"37429090250625216", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"3302591429142720", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"92183202990055498464", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"7660271618638651584", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"636294534260628672", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"52841462866283520", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"1751480856811054470816", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"137884889135495728512", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"10817007082430687424", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"845463405860536320", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"33278136279410034945504", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"2481928004438923113216", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"183889120401321686208", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"13527414493768581120", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"2772650461148938656", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"255355132936441824", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"23642813637773616", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"2201711191213248", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"55453009222978773120", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"4851747525792394656", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"425570645479925088", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"37429090250625216", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"1109060184459575462400", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"92183202990055498464", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"7660271618638651584", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"636294534260628672", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"22181203689191509248000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"1751480856811054470816", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"137884889135495728512", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"10817007082430687424", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"443624073783830184960000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"33278136279410034945504", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"2481928004438923113216", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"183889120401321686208", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"30248675037382538880", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"2772650461148938656", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"255355132936441824", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"23642813637773616", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"635222175785033316480", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"55453009222978773120", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"4851747525792394656", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"425570645479925088", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"13339665691485699646080", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"1109060184459575462400", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"92183202990055498464", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"7660271618638651584", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"280132979521199692567680", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"22181203689191509248000", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"1751480856811054470816", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"137884889135495728512", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"5882792569945193543921280", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"443624073783830184960000", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"33278136279410034945504", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"2481928004438923113216", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"331438542846964180992", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"30248675037382538880", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"2772650461148938656", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"255355132936441824", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"7291647942633211981824", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"635222175785033316480", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"55453009222978773120", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"4851747525792394656", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"160416254737930663600128", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"13339665691485699646080", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"1109060184459575462400", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"92183202990055498464", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"3529157604234474599202816", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"280132979521199692567680", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"22181203689191509248000", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"1751480856811054470816", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"77641467293158441182461952", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"5882792569945193543921280", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"443624073783830184960000", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"33278136279410034945504", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"3645985314663912489984", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"331438542846964180992", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"30248675037382538880", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"2772650461148938656", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"83857662237269987269632", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"7291647942633211981824", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"635222175785033316480", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"55453009222978773120", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"1928726231457209707201536", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"160416254737930663600128", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"13339665691485699646080", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"1109060184459575462400", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"44360703323515823265635328", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"3529157604234474599202816", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"280132979521199692567680", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"22181203689191509248000", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"1020296176440863935109612544", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"77641467293158441182461952", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"5882792569945193543921280", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"443624073783830184960000", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"40253352687777620374776", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"3645985314663912489984", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"331438542846964180992", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"30248675037382538880", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"966080464506662888994624", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"83857662237269987269632", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"7291647942633211981824", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"635222175785033316480", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"23185931148159909335870976", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"1928726231457209707201536", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"160416254737930663600128", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"13339665691485699646080", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"556462347555837824060903424", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"44360703323515823265635328", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"3529157604234474599202816", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"280132979521199692567680", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"13355096341340107777461682176", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"1020296176440863935109612544", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"77641467293158441182461952", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"5882792569945193543921280", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"445899348810135736176960", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"40253352687777620374776", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"3645985314663912489984", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"331438542846964180992", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"11147483720253393404424000", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"966080464506662888994624", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"83857662237269987269632", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"7291647942633211981824", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"278687093006334835110600000", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"23185931148159909335870976", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"1928726231457209707201536", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"160416254737930663600128", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"6967177325158370877765000000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"556462347555837824060903424", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"44360703323515823265635328", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"3529157604234474599202816", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"174179433128959271944125000000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"13355096341340107777461682176", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"1020296176440863935109612544", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"77641467293158441182461952", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"4954599887270237905852800", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"445899348810135736176960", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"40253352687777620374776", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"3645985314663912489984", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"128819597069026185552172800", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"11147483720253393404424000", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"966080464506662888994624", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"83857662237269987269632", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"3349309523794680824356492800", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"278687093006334835110600000", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"23185931148159909335870976", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"1928726231457209707201536", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"87082047618661701433268812800", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"6967177325158370877765000000", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"556462347555837824060903424", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"44360703323515823265635328", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"2264133238085204237264989132800", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"174179433128959271944125000000", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"13355096341340107777461682176", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"1020296176440863935109612544", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"55210013720527863783880320", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"4954599887270237905852800", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"445899348810135736176960", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"40253352687777620374776", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"1490670370454252322164768640", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"128819597069026185552172800", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"11147483720253393404424000", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"966080464506662888994624", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"40248100002264812698448753280", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"3349309523794680824356492800", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"278687093006334835110600000", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"23185931148159909335870976", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"1086698700061149942858116338560", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"87082047618661701433268812800", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"6967177325158370877765000000", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"556462347555837824060903424", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"29340864901651048457169141141120", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"2264133238085204237264989132800", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"174179433128959271944125000000", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"13355096341340107777461682176", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"616845490089371010724497840", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"55210013720527863783880320", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"4954599887270237905852800", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"445899348810135736176960", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"17271673722502388300285939520", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"1490670370454252322164768640", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"128819597069026185552172800", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"11147483720253393404424000", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"483606864230066872408006306560", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"40248100002264812698448753280", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"3349309523794680824356492800", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"278687093006334835110600000", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"13540992198441872427424176583680", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"1086698700061149942858116338560", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"87082047618661701433268812800", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"6967177325158370877765000000", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"379147781556372427967876944343040", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"29340864901651048457169141141120", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"2264133238085204237264989132800", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"174179433128959271944125000000", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"6908835039102833099223965760", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"616845490089371010724497840", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"55210013720527863783880320", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"4954599887270237905852800", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"200356216133982159877495007040", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"17271673722502388300285939520", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"1490670370454252322164768640", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"128819597069026185552172800", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"5810330267885482636447355204160", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"483606864230066872408006306560", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"40248100002264812698448753280", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"3349309523794680824356492800", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"168499577768678996456973300920640", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"13540992198441872427424176583680", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"1086698700061149942858116338560", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"87082047618661701433268812800", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"4886487755291690897252225726698560", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"379147781556372427967876944343040", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"29340864901651048457169141141120", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"2264133238085204237264989132800", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"77558935621320663634645169760", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"6908835039102833099223965760", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"616845490089371010724497840", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"55210013720527863783880320", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"2326768068639619909039355092800", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"200356216133982159877495007040", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"17271673722502388300285939520", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"1490670370454252322164768640", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"69803042059188597271180652784000", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"5810330267885482636447355204160", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"483606864230066872408006306560", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"40248100002264812698448753280", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"2094091261775657918135419583520000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"168499577768678996456973300920640", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"13540992198441872427424176583680", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"1086698700061149942858116338560", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"62822737853269737544062587505600000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"4886487755291690897252225726698560", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"379147781556372427967876944343040", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"29340864901651048457169141141120", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"872555336075039351141820542400", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"77558935621320663634645169760", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"6908835039102833099223965760", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"616845490089371010724497840", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"27049215418326219885396436814400", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"2326768068639619909039355092800", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"200356216133982159877495007040", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"17271673722502388300285939520", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"838525677968112816447289541246400", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"69803042059188597271180652784000", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"5810330267885482636447355204160", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"483606864230066872408006306560", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"25994296017011497309865975778638400", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"2094091261775657918135419583520000", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"168499577768678996456973300920640", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"13540992198441872427424176583680", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"805823176527356416605845249137790400", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"62822737853269737544062587505600000", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"4886487755291690897252225726698560", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"379147781556372427967876944343040", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"9836256654406990510063112404620", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"872555336075039351141820542400", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"77558935621320663634645169760", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"6908835039102833099223965760", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"314760212941023696322019596947840", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"27049215418326219885396436814400", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"2326768068639619909039355092800", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"200356216133982159877495007040", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"10072326814112758282304627102330880", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"838525677968112816447289541246400", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"69803042059188597271180652784000", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"5810330267885482636447355204160", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"322314458051608265033748067274588160", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"25994296017011497309865975778638400", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"2094091261775657918135419583520000", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"168499577768678996456973300920640", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"10314062657651464481079938152786821120", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"805823176527356416605845249137790400", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"62822737853269737544062587505600000", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"4886487755291690897252225726698560", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"111093683696857593088076506055040", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"9836256654406990510063112404620", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"872555336075039351141820542400", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"77558935621320663634645169760", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"3666091561996300571906524699816320", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"314760212941023696322019596947840", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"27049215418326219885396436814400", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"2326768068639619909039355092800", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"120981021545877918872915315093938560", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"10072326814112758282304627102330880", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"838525677968112816447289541246400", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"69803042059188597271180652784000", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"3992373711013971322806205398099972480", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"322314458051608265033748067274588160", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"25994296017011497309865975778638400", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"2094091261775657918135419583520000", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"131748332463461053652604778137299091840", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"10314062657651464481079938152786821120", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"805823176527356416605845249137790400", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"62822737853269737544062587505600000", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"1256964832153899565798063964625360", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"111093683696857593088076506055040", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"9836256654406990510063112404620", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"872555336075039351141820542400", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"42736804293232585237134174797262240", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"3666091561996300571906524699816320", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"314760212941023696322019596947840", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"27049215418326219885396436814400", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"1453051345969907898062561943106916160", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"120981021545877918872915315093938560", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"10072326814112758282304627102330880", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"838525677968112816447289541246400", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"49403745762976868534127106065635149440", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"3992373711013971322806205398099972480", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"322314458051608265033748067274588160", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"25994296017011497309865975778638400", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"1679727355941213530160321606231595080960", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"131748332463461053652604778137299091840", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"10314062657651464481079938152786821120", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"805823176527356416605845249137790400", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"14245801154241460321451736436267680", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"1256964832153899565798063964625360", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"111093683696857593088076506055040", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"9836256654406990510063112404620", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"498603040398451111250810775269368800", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"42736804293232585237134174797262240", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"3666091561996300571906524699816320", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"314760212941023696322019596947840", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"17451106413945788893778377134427908000", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"1453051345969907898062561943106916160", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"120981021545877918872915315093938560", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"10072326814112758282304627102330880", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"610788724488102611282243199704976780000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"49403745762976868534127106065635149440", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"3992373711013971322806205398099972480", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"322314458051608265033748067274588160", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"21377605357083591394878511989674187300000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"1679727355941213530160321606231595080960", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"131748332463461053652604778137299091840", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"10314062657651464481079938152786821120", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"161711184920698116201513043068894000", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"14245801154241460321451736436267680", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"1256964832153899565798063964625360", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"111093683696857593088076506055040", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"5821602657145132183254469550480184000", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"498603040398451111250810775269368800", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"42736804293232585237134174797262240", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"3666091561996300571906524699816320", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"209577695657224758597160903817286624000", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"17451106413945788893778377134427908000", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"1453051345969907898062561943106916160", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"120981021545877918872915315093938560", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"7544797043660091309497792537422318464000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"610788724488102611282243199704976780000", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"49403745762976868534127106065635149440", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"3992373711013971322806205398099972480", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"271612693571763287141920531347203464704000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"21377605357083591394878511989674187300000", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"1679727355941213530160321606231595080960", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"131748332463461053652604778137299091840", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"1838422802677352902944026880120269760", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"161711184920698116201513043068894000", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"14245801154241460321451736436267680", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"1256964832153899565798063964625360", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"68021643699062057408928994564449981120", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"5821602657145132183254469550480184000", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"498603040398451111250810775269368800", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"42736804293232585237134174797262240", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"2516800816865296124130372798884649301440", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"209577695657224758597160903817286624000", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"17451106413945788893778377134427908000", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"1453051345969907898062561943106916160", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"93121630224015956592823793558732024153280", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"7544797043660091309497792537422318464000", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"610788724488102611282243199704976780000", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"49403745762976868534127106065635149440", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"3445500318288590393934480361673084893671360", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"271612693571763287141920531347203464704000", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"21377605357083591394878511989674187300000", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"1679727355941213530160321606231595080960", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"20929968050634158361809598843821082720", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"1838422802677352902944026880120269760", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"161711184920698116201513043068894000", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"14245801154241460321451736436267680", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"795338785924098017748764756065201143360", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"68021643699062057408928994564449981120", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"5821602657145132183254469550480184000", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"498603040398451111250810775269368800", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"30222873865115724674453060730477643447680", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"2516800816865296124130372798884649301440", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"209577695657224758597160903817286624000", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"17451106413945788893778377134427908000", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"1148469206874397537629216307758150451011840", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"93121630224015956592823793558732024153280", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"7544797043660091309497792537422318464000", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"610788724488102611282243199704976780000", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"43641829861227106429910219694809717138449920", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"3445500318288590393934480361673084893671360", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"271612693571763287141920531347203464704000", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"21377605357083591394878511989674187300000", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"238604084297865887503634354739682226880", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"20929968050634158361809598843821082720", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"1838422802677352902944026880120269760", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"161711184920698116201513043068894000", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"9305559287616769612641739834847606848320", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"795338785924098017748764756065201143360", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"68021643699062057408928994564449981120", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"5821602657145132183254469550480184000", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"362916812217054014893027853559056667084480", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"30222873865115724674453060730477643447680", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"2516800816865296124130372798884649301440", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"209577695657224758597160903817286624000", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"14153755676465106580828086288803210016294720", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"1148469206874397537629216307758150451011840", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"93121630224015956592823793558732024153280", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"7544797043660091309497792537422318464000", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"551996471382139156652295365263325190635494080", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"43641829861227106429910219694809717138449920", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"3445500318288590393934480361673084893671360", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"271612693571763287141920531347203464704000", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"2723604302705399110711864482680203408800", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"238604084297865887503634354739682226880", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"20929968050634158361809598843821082720", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"1838422802677352902944026880120269760", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"108944172108215964428474579307208136352000", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"9305559287616769612641739834847606848320", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"795338785924098017748764756065201143360", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"68021643699062057408928994564449981120", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"4357766884328638577138983172288325454080000", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"362916812217054014893027853559056667084480", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"30222873865115724674453060730477643447680", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"2516800816865296124130372798884649301440", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"174310675373145543085559326891533018163200000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"14153755676465106580828086288803210016294720", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"1148469206874397537629216307758150451011840", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"93121630224015956592823793558732024153280", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"6972427014925821723422373075661320726528000000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"551996471382139156652295365263325190635494080", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"43641829861227106429910219694809717138449920", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"3445500318288590393934480361673084893671360", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"31127182673212368692213826730815487238400", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"2723604302705399110711864482680203408800", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"238604084297865887503634354739682226880", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"20929968050634158361809598843821082720", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"1276214489601707116380766895963434976774400", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"108944172108215964428474579307208136352000", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"9305559287616769612641739834847606848320", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"795338785924098017748764756065201143360", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"52324794073669991771611442734500834047750400", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"4357766884328638577138983172288325454080000", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"362916812217054014893027853559056667084480", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"30222873865115724674453060730477643447680", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"2145316557020469662636069152114534195957766400", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"174310675373145543085559326891533018163200000", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"14153755676465106580828086288803210016294720", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"1148469206874397537629216307758150451011840", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"87957978837839256168078835236695902034268422400", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"6972427014925821723422373075661320726528000000", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"551996471382139156652295365263325190635494080", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"43641829861227106429910219694809717138449920", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"356155829380376900900913291081937387488000", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"31127182673212368692213826730815487238400", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"2723604302705399110711864482680203408800", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"238604084297865887503634354739682226880", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"14958544833975829837838358225441370274496000", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"1276214489601707116380766895963434976774400", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"108944172108215964428474579307208136352000", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"9305559287616769612641739834847606848320", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"628258883026984853189211045468537551528832000", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"52324794073669991771611442734500834047750400", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"4357766884328638577138983172288325454080000", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"362916812217054014893027853559056667084480", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"26386873087133363833946863909678577164210944000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"2145316557020469662636069152114534195957766400", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"174310675373145543085559326891533018163200000", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"14153755676465106580828086288803210016294720", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"1108248669659601281025768284206500240896859648000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"87957978837839256168078835236695902034268422400", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"6972427014925821723422373075661320726528000000", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"551996471382139156652295365263325190635494080", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"4079634680295870734083713299360651118873600", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"356155829380376900900913291081937387488000", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"31127182673212368692213826730815487238400", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"2723604302705399110711864482680203408800", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"175424291252722441565599671872507998111564800", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"14958544833975829837838358225441370274496000", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"1276214489601707116380766895963434976774400", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"108944172108215964428474579307208136352000", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"7543244523867064987320785890517843918797286400", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"628258883026984853189211045468537551528832000", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"52324794073669991771611442734500834047750400", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"4357766884328638577138983172288325454080000", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"324359514526283794454793793292267288508283315200", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"26386873087133363833946863909678577164210944000", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"2145316557020469662636069152114534195957766400", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"174310675373145543085559326891533018163200000", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"13947459124630203161556133111567493405856182553600", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"1108248669659601281025768284206500240896859648000", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"87957978837839256168078835236695902034268422400", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"6972427014925821723422373075661320726528000000", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"46780149321943165896822459952777274423385600", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"4079634680295870734083713299360651118873600", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"356155829380376900900913291081937387488000", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"31127182673212368692213826730815487238400", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"2058326570165499299460188237922200074628966400", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"175424291252722441565599671872507998111564800", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"14958544833975829837838358225441370274496000", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"1276214489601707116380766895963434976774400", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"90566369087281969176248282468576803283674521600", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"7543244523867064987320785890517843918797286400", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"628258883026984853189211045468537551528832000", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"52324794073669991771611442734500834047750400", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"3984920239840406643754924428617379344481678950400", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"324359514526283794454793793292267288508283315200", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"26386873087133363833946863909678577164210944000", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"2145316557020469662636069152114534195957766400", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"175336490552977892325216674859164691157193873817600", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"13947459124630203161556133111567493405856182553600", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"1108248669659601281025768284206500240896859648000", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"87957978837839256168078835236695902034268422400", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"536958394984483586022362225192235106645985280", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"46780149321943165896822459952777274423385600", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"4079634680295870734083713299360651118873600", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"356155829380376900900913291081937387488000", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"24163127774301761371006300133650579799069337600", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"2058326570165499299460188237922200074628966400", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"175424291252722441565599671872507998111564800", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"14958544833975829837838358225441370274496000", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"1087340749843579261695283506014276090958120192000", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"90566369087281969176248282468576803283674521600", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"7543244523867064987320785890517843918797286400", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"628258883026984853189211045468537551528832000", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"48930333742961066776287757770642424093115408640000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"3984920239840406643754924428617379344481678950400", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"324359514526283794454793793292267288508283315200", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"26386873087133363833946863909678577164210944000", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"2201865018433248004932949099678909084190193388800000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"175336490552977892325216674859164691157193873817600", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"13947459124630203161556133111567493405856182553600", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"1108248669659601281025768284206500240896859648000", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"6169348420937264128969792709201188166008089600", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"536958394984483586022362225192235106645985280", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"46780149321943165896822459952777274423385600", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"4079634680295870734083713299360651118873600", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"283790027363114149932610464623254655636372121600", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"24163127774301761371006300133650579799069337600", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"2058326570165499299460188237922200074628966400", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"175424291252722441565599671872507998111564800", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"13054341258703250896900081372669714159273117593600", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"1087340749843579261695283506014276090958120192000", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"90566369087281969176248282468576803283674521600", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"7543244523867064987320785890517843918797286400", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"600499697900349541257403743142806851326563409305600", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"48930333742961066776287757770642424093115408640000", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"3984920239840406643754924428617379344481678950400", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"324359514526283794454793793292267288508283315200", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"27622986103416078897840572184569115161021916828057600", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"2201865018433248004932949099678909084190193388800000", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"175336490552977892325216674859164691157193873817600", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"13947459124630203161556133111567493405856182553600", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"70947930272537334350509861861788754738180700160", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"6169348420937264128969792709201188166008089600", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"536958394984483586022362225192235106645985280", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"46780149321943165896822459952777274423385600", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"3334552722809254714473963507504071472694492907520", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"283790027363114149932610464623254655636372121600", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"24163127774301761371006300133650579799069337600", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"2058326570165499299460188237922200074628966400", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"156723977972034971580276284852691359216641166653440", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"13054341258703250896900081372669714159273117593600", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"1087340749843579261695283506014276090958120192000", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"90566369087281969176248282468576803283674521600", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"7366026964685643664272985388076493883182134832711680", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"600499697900349541257403743142806851326563409305600", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"48930333742961066776287757770642424093115408640000", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"3984920239840406643754924428617379344481678950400", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"346203267340225252220830313239595212509560337137448960", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"27622986103416078897840572184569115161021916828057600", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"2201865018433248004932949099678909084190193388800000", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"175336490552977892325216674859164691157193873817600", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"816629740093680630102475274822880521200882128120", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"70947930272537334350509861861788754738180700160", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"6169348420937264128969792709201188166008089600", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"536958394984483586022362225192235106645985280", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"39198227524496670244918813191498265017642342149760", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"3334552722809254714473963507504071472694492907520", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"283790027363114149932610464623254655636372121600", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"24163127774301761371006300133650579799069337600", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"1881514921175840171756103033191916720846832423188480", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"156723977972034971580276284852691359216641166653440", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"13054341258703250896900081372669714159273117593600", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"1087340749843579261695283506014276090958120192000", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"90312716216440328244292945593212002600647956313047040", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"7366026964685643664272985388076493883182134832711680", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"600499697900349541257403743142806851326563409305600", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"48930333742961066776287757770642424093115408640000", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"4335010378389135755726061388474176124831101903026257920", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"346203267340225252220830313239595212509560337137448960", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"27622986103416078897840572184569115161021916828057600", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"2201865018433248004932949099678909084190193388800000", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"9407624323260315606435813085689677006965402097280", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"816629740093680630102475274822880521200882128120", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"70947930272537334350509861861788754738180700160", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"6169348420937264128969792709201188166008089600", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"460973591839755464715354841198794173341304702766720", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"39198227524496670244918813191498265017642342149760", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"3334552722809254714473963507504071472694492907520", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"283790027363114149932610464623254655636372121600", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"22587706000148017771052387218740914493723930435569280", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"1881514921175840171756103033191916720846832423188480", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"156723977972034971580276284852691359216641166653440", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"13054341258703250896900081372669714159273117593600", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"1106797594007252870781566973718304810192472591342894720", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"90312716216440328244292945593212002600647956313047040", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"7366026964685643664272985388076493883182134832711680", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"600499697900349541257403743142806851326563409305600", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{"54233082106355390668296781712196935699431156975801841280", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"4335010378389135755726061388474176124831101903026257920", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"346203267340225252220830313239595212509560337137448960", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"27622986103416078897840572184569115161021916828057600", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}], ",", RowBox[{ RowBox[{"108464914912610947331756997308308146813500741423712", " ", SubscriptBox["r", RowBox[{"0", ",", "0"}]]}], "+", RowBox[{"9407624323260315606435813085689677006965402097280", " ", SubscriptBox["r", RowBox[{"0", ",", "1"}]]}], "+", RowBox[{"816629740093680630102475274822880521200882128120", " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "+", RowBox[{"70947930272537334350509861861788754738180700160", " ", SubscriptBox["r", RowBox[{"0", ",", "3"}]]}], "+", RowBox[{"5423245745630547366587849865415407340675037071185600", " ", SubscriptBox["r", RowBox[{"1", ",", "0"}]]}], "+", RowBox[{"460973591839755464715354841198794173341304702766720", " ", SubscriptBox["r", RowBox[{"1", ",", "1"}]]}], "+", RowBox[{"39198227524496670244918813191498265017642342149760", " ", SubscriptBox["r", RowBox[{"1", ",", "2"}]]}], "+", RowBox[{"3334552722809254714473963507504071472694492907520", " ", SubscriptBox["r", RowBox[{"1", ",", "3"}]]}], "+", RowBox[{"271162287281527368329392493270770367033751853559280000", " ", SubscriptBox["r", RowBox[{"2", ",", "0"}]]}], "+", RowBox[{"22587706000148017771052387218740914493723930435569280", " ", SubscriptBox["r", RowBox[{"2", ",", "1"}]]}], "+", RowBox[{"1881514921175840171756103033191916720846832423188480", " ", SubscriptBox["r", RowBox[{"2", ",", "2"}]]}], "+", RowBox[{"156723977972034971580276284852691359216641166653440", " ", SubscriptBox["r", RowBox[{"2", ",", "3"}]]}], "+", RowBox[{"13558114364076368416469624663538518351687592677964000000", " ", SubscriptBox["r", RowBox[{"3", ",", "0"}]]}], "+", RowBox[{"1106797594007252870781566973718304810192472591342894720", " ", SubscriptBox["r", RowBox[{"3", ",", "1"}]]}], "+", RowBox[{"90312716216440328244292945593212002600647956313047040", " ", SubscriptBox["r", RowBox[{"3", ",", "2"}]]}], "+", RowBox[{"7366026964685643664272985388076493883182134832711680", " ", SubscriptBox["r", RowBox[{"3", ",", "3"}]]}], "+", RowBox[{ "677905718203818420823481233176925917584379633898200000000", " ", SubscriptBox["r", RowBox[{"4", ",", "0"}]]}], "+", RowBox[{"54233082106355390668296781712196935699431156975801841280", " ", SubscriptBox["r", RowBox[{"4", ",", "1"}]]}], "+", RowBox[{"4335010378389135755726061388474176124831101903026257920", " ", SubscriptBox["r", RowBox[{"4", ",", "2"}]]}], "+", RowBox[{"346203267340225252220830313239595212509560337137448960", " ", SubscriptBox["r", RowBox[{"4", ",", "3"}]]}]}]}], "}"}]], "Output", CellChangeTimes->{3.683947688702547*^9, 3.683947852545001*^9, 3.683948350866125*^9, 3.683948393655818*^9, 3.683948501324192*^9, 3.6839700053003283`*^9, 3.683970092718886*^9, 3.6840183240285873`*^9, 3.684018387401569*^9, 3.684023425021893*^9, 3.684025776438283*^9, 3.6840285716619577`*^9, 3.726393516335559*^9},ExpressionUUID->"3f594f1a-3c87-4577-8b90-\ 2691ef9c3dce"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.6839485182942953`*^9, 3.6839485226446867`*^9}, { 3.683948587544921*^9, 3.683948588238224*^9}, 3.683970032842928*^9},ExpressionUUID->"271ff343-056d-4229-ba6f-\ 40452808397c"], Cell[BoxData["51"], "Output", CellChangeTimes->{ 3.683948524200967*^9, 3.683948589446992*^9, 3.683970035071686*^9, 3.683970092871867*^9, {3.6840183241429453`*^9, 3.684018350043727*^9}, 3.684018396155629*^9, 3.684023425115481*^9, 3.684025776524535*^9, 3.6840285956279497`*^9, 3.7263935555640507`*^9},ExpressionUUID->"54446805-aa4f-4539-9f25-\ 7a54d33e1639"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Solve", "[", RowBox[{"%%", "\[Equal]", "0"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]], "Input", CellChangeTimes->{{3.683948534704454*^9, 3.683948545338254*^9}, { 3.683970061279182*^9, 3.683970083061301*^9}},ExpressionUUID->"d2c11521-69a5-4874-aeda-\ 3d83621d9874"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["r", RowBox[{"0", ",", "0"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"0", ",", "1"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"0", ",", "2"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"0", ",", "3"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"1", ",", "0"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"1", ",", "1"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"1", ",", "2"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"1", ",", "3"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"2", ",", "0"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"2", ",", "1"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"2", ",", "2"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"2", ",", "3"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"3", ",", "0"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"3", ",", "1"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"3", ",", "2"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"3", ",", "3"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"4", ",", "0"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"4", ",", "1"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"4", ",", "2"}]], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", RowBox[{"4", ",", "3"}]], "\[Rule]", "0"}]}], "}"}]], "Output", CellChangeTimes->{ 3.6839485799044437`*^9, {3.6839700658499804`*^9, 3.683970092949998*^9}, 3.6840183242317257`*^9, 3.6840183577954483`*^9, 3.6840183962502823`*^9, 3.6840234251834517`*^9, 3.684025776573085*^9, 3.684028639156699*^9, 3.726393571822949*^9},ExpressionUUID->"75b3c85a-51c8-4e39-8cea-\ b299304c49bd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "While"}]], "Input", CellChangeTimes->{{3.683970266712425*^9, 3.683970269791444*^9}},ExpressionUUID->"84c175c7-0be9-4f85-866f-\ 3abf7d217c0c"], Cell[BoxData[ RowBox[{ StyleBox["\<\"\!\(\*RowBox[{\\\"While\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"test\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"body\\\", \ \\\"TI\\\"]}], \\\"]\\\"}]\) evaluates \!\(\*StyleBox[\\\"test\\\", \ \\\"TI\\\"]\), then \!\(\*StyleBox[\\\"body\\\", \\\"TI\\\"]\), repetitively, \ until \!\(\*StyleBox[\\\"test\\\", \\\"TI\\\"]\) first fails to give True. \"\ \>", "MSG"], "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/While"]}]], "Print", "PrintUsage", CellChangeTimes->{3.684028662002297*^9}, CellTags-> "Info153684057461-6161495",ExpressionUUID->"0b08efc9-7ad1-43d0-b35c-\ 266f50313b7d"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Rlist", ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"kmax", "=", "3"}], ",", "Rsoln", ",", RowBox[{"tempRlist", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"While", "[", RowBox[{ RowBox[{"tempRlist", "==", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"kmax", "++"}], ";", "\[IndentingNewLine]", RowBox[{"Rsoln", "=", "\[IndentingNewLine]", RowBox[{ RowBox[{"Solve", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Union", "[", "\[IndentingNewLine]", RowBox[{"CoefficientList", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Normal", "[", RowBox[{"L", "[", RowBox[{ SubscriptBox["\[CurlyPi]", "0"], ",", "kmax"}], "]"}], "]"}], ",", "\[CurlyPhi]"}], "]"}], "]"}], " ", "\[Equal]", "0"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tempRlist", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ SubscriptBox["R", RowBox[{"j", ",", "kmax"}]], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "4"}], "}"}]}], "]"}], "/.", "Rsoln"}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", " ", "tempRlist"}]}], " ", "]"}]}], "\[IndentingNewLine]", " "}], "\[IndentingNewLine]", RowBox[{" "}]}], "Input", CellChangeTimes->{{3.683970154865281*^9, 3.683970201961486*^9}, { 3.683970255161056*^9, 3.683970260435525*^9}, 3.683970343262549*^9, { 3.6839703995239277`*^9, 3.68397054112187*^9}, 3.683970593613941*^9, { 3.683970678391863*^9, 3.683970717119225*^9}, {3.683970756968211*^9, 3.683970851668535*^9}, {3.683970923476739*^9, 3.683971152588388*^9}, { 3.6839711941754417`*^9, 3.683971200125175*^9}, {3.683971252662312*^9, 3.683971317945737*^9}, 3.683971453000162*^9, {3.683971501400317*^9, 3.6839715123912992`*^9}, {3.6839715835303087`*^9, 3.683971601975441*^9}, { 3.683971782964346*^9, 3.683971793416066*^9}, 3.6839718512927513`*^9, { 3.683971923746788*^9, 3.683971945695725*^9}, 3.6839719844857407`*^9, 3.683972086145269*^9, {3.68397212459927*^9, 3.6839721763592377`*^9}, { 3.6839723587043543`*^9, 3.6839723601655293`*^9}, {3.683972398201645*^9, 3.6839724309431143`*^9}, {3.683972488622014*^9, 3.68397251160833*^9}, { 3.683972667099731*^9, 3.683972710536978*^9}},ExpressionUUID->"ee53d624-9b9f-4c7c-857b-\ 5673912a49fe"], Cell[CellGroupData[{ Cell[BoxData["Rlist"], "Input", CellChangeTimes->{{3.683971216170064*^9, 3.683971217997251*^9}},ExpressionUUID->"edb50252-7ae2-43dc-8d5e-\ 47f4c89b3d93"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "36"], " ", SuperscriptBox["\[CurlyPhi]", "2"], " ", RowBox[{"(", RowBox[{"36", "+", RowBox[{"9", " ", "\[CurlyPhi]"}], "-", RowBox[{"6182", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "+", RowBox[{"284", " ", SuperscriptBox["\[CurlyPhi]", "3"]}], "+", RowBox[{"132120", " ", SuperscriptBox["\[CurlyPhi]", "4"]}], "-", RowBox[{"130464", " ", SuperscriptBox["\[CurlyPhi]", "5"]}], "+", RowBox[{"34560", " ", SuperscriptBox["\[CurlyPhi]", "6"]}]}], ")"}], " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], ",", FractionBox[ RowBox[{"\[CurlyPhi]", " ", RowBox[{"(", RowBox[{"9", "+", RowBox[{"5532", " ", "\[CurlyPhi]"}], "-", RowBox[{"1584", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "-", RowBox[{"679952", " ", SuperscriptBox["\[CurlyPhi]", "3"]}], "+", RowBox[{"166288", " ", SuperscriptBox["\[CurlyPhi]", "4"]}], "+", RowBox[{"12372480", " ", SuperscriptBox["\[CurlyPhi]", "5"]}], "-", RowBox[{"12745728", " ", SuperscriptBox["\[CurlyPhi]", "6"]}], "+", RowBox[{"3456000", " ", SuperscriptBox["\[CurlyPhi]", "7"]}]}], ")"}], " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "1728"], ",", FractionBox[ RowBox[{"\[CurlyPhi]", " ", RowBox[{"(", RowBox[{"39", "+", RowBox[{"6917", " ", "\[CurlyPhi]"}], "-", RowBox[{"5250", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "-", RowBox[{"552220", " ", SuperscriptBox["\[CurlyPhi]", "3"]}], "+", RowBox[{"274360", " ", SuperscriptBox["\[CurlyPhi]", "4"]}], "+", RowBox[{"7771104", " ", SuperscriptBox["\[CurlyPhi]", "5"]}], "-", RowBox[{"8581248", " ", SuperscriptBox["\[CurlyPhi]", "6"]}], "+", RowBox[{"2419200", " ", SuperscriptBox["\[CurlyPhi]", "7"]}]}], ")"}], " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "1728"], ",", RowBox[{ FractionBox["1", "432"], " ", "\[CurlyPhi]", " ", RowBox[{"(", RowBox[{"15", "+", RowBox[{"1025", " ", "\[CurlyPhi]"}], "-", RowBox[{"1170", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "-", RowBox[{"47572", " ", SuperscriptBox["\[CurlyPhi]", "3"]}], "+", RowBox[{"36464", " ", SuperscriptBox["\[CurlyPhi]", "4"]}], "+", RowBox[{"473904", " ", SuperscriptBox["\[CurlyPhi]", "5"]}], "-", RowBox[{"577152", " ", SuperscriptBox["\[CurlyPhi]", "6"]}], "+", RowBox[{"172800", " ", SuperscriptBox["\[CurlyPhi]", "7"]}]}], ")"}], " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], ",", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "\[CurlyPhi]"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", "\[CurlyPhi]"}], "+", RowBox[{"115", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "-", RowBox[{"10", " ", SuperscriptBox["\[CurlyPhi]", "3"]}], "-", RowBox[{"2664", " ", SuperscriptBox["\[CurlyPhi]", "4"]}], "-", RowBox[{"864", " ", SuperscriptBox["\[CurlyPhi]", "5"]}], "+", RowBox[{"17280", " ", SuperscriptBox["\[CurlyPhi]", "6"]}]}], ")"}], " ", SubscriptBox["r", RowBox[{"0", ",", "2"}]]}], "1728"]}], "}"}]], "Output", CellChangeTimes->{3.683971954940199*^9, 3.6839720437128763`*^9, 3.6839721878986177`*^9, 3.6839725422228937`*^9, 3.6839726749476833`*^9, 3.6839727233603897`*^9, 3.6840184263767843`*^9, 3.684023425668583*^9, 3.684025777094859*^9, 3.684029460304941*^9, 3.726394006382255*^9},ExpressionUUID->"c0ae5609-874b-4c5b-bff5-\ ece30c2e50e1"] }, Open ]], Cell[BoxData[ RowBox[{ SubscriptBox["R", "j_"], ":=", RowBox[{ RowBox[{"Rlist", "\[LeftDoubleBracket]", RowBox[{"j", "+", "1"}], "\[RightDoubleBracket]"}], "/.", RowBox[{ SubscriptBox["r", RowBox[{"0", ",", "2"}]], "\[RuleDelayed]", " ", "1728"}]}]}]], "Input", CellChangeTimes->{{3.68397679641573*^9, 3.683976882521953*^9}},ExpressionUUID->"0e367a8b-328a-4d6f-a3f0-\ d774cd63ac57"], Cell[CellGroupData[{ Cell[BoxData[ SubscriptBox["R", "4"]], "Input", CellChangeTimes->{{3.6839768947602377`*^9, 3.683976898744624*^9}},ExpressionUUID->"810a1fbe-0dfe-4f7c-9d13-\ 4a88961fa6c0"], Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "\[CurlyPhi]"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", "\[CurlyPhi]"}], "+", RowBox[{"115", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "-", RowBox[{"10", " ", SuperscriptBox["\[CurlyPhi]", "3"]}], "-", RowBox[{"2664", " ", SuperscriptBox["\[CurlyPhi]", "4"]}], "-", RowBox[{"864", " ", SuperscriptBox["\[CurlyPhi]", "5"]}], "+", RowBox[{"17280", " ", SuperscriptBox["\[CurlyPhi]", "6"]}]}], ")"}]}]], "Output", CellChangeTimes->{3.6839769061601667`*^9, 3.684023457429987*^9, 3.684025777416635*^9, 3.684029582744323*^9, 3.726394093594352*^9},ExpressionUUID->"99c383e7-2eeb-48e3-a13c-\ ee7c06323ac8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Factor", "[", SubscriptBox["R", "4"], "]"}]], "Input", CellChangeTimes->{{3.683976914619128*^9, 3.683976930597136*^9}},ExpressionUUID->"654cf2c4-d5ab-4418-8d72-\ a44f58e3e3ad"], Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "\[CurlyPhi]"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"5", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"6", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"12", " ", "\[CurlyPhi]"}]}], ")"}]}]], "Output", CellChangeTimes->{3.683976932627269*^9, 3.6840184497795353`*^9, 3.684023457583765*^9, 3.684025777566977*^9, 3.684029604817317*^9, 3.726394106371687*^9},ExpressionUUID->"c6a79030-e331-4b80-857e-\ 397c104088ba"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], RowBox[{"Integrate", "[", RowBox[{ FractionBox[ SubscriptBox["R", "3"], RowBox[{"\[CurlyPhi]", " ", SubscriptBox["R", "4"]}]], ",", "\[CurlyPhi]"}], "]"}]}], "]"}], "//", "Factor"}]], "Input", CellChangeTimes->{{3.683977024429388*^9, 3.683977213347521*^9}},ExpressionUUID->"db9460a0-6bd9-421e-b1e1-\ 308208f5ab46"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "\[CurlyPhi]"}]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"5", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"6", " ", "\[CurlyPhi]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"12", " ", "\[CurlyPhi]"}]}], ")"}]}]]], "Output", CellChangeTimes->{{3.683977145206231*^9, 3.683977215566092*^9}, 3.684018450160784*^9, 3.684023457927857*^9, 3.684025777918086*^9, 3.684029688271797*^9, 3.726394127650729*^9},ExpressionUUID->"f69d58e4-b3ea-4611-8b49-\ 5f5d84c829ff"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"\[ScriptCapitalL]", "[", "fn_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["R", "j"], RowBox[{"\[Theta]", "[", RowBox[{"fn", ",", "j"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.684018606008717*^9, 3.684018629661916*^9}, { 3.684018661010459*^9, 3.684018697070593*^9}},ExpressionUUID->"083bb661-fa33-4b09-9af8-\ dbb2b676360e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[ScriptCapitalL]", "[", SubscriptBox["\[CurlyPi]", "0"], "]"}]], "Input", CellChangeTimes->{{3.68401914848958*^9, 3.684019173763008*^9}},ExpressionUUID->"1dfe80d1-d2c5-47c9-b5da-\ ae0bed55b6de"], Cell[BoxData[ InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], "51"], SeriesData[$CellContext`\[CurlyPhi], 0, {}, 51, 51, 1], Editable->False]], "Output", CellChangeTimes->{3.6840191760151587`*^9, 3.6840234585884123`*^9, 3.684025778594825*^9, 3.684029756150642*^9, 3.7263941950346317`*^9},ExpressionUUID->"2afaf69b-a50c-4baa-9b80-\ 30fcae1a3110"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"\[ScriptCapitalL]", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["A", RowBox[{"n", "-", "j"}]], "[", "\[Epsilon]", "]"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{"n", "-", "j", "+", "\[Epsilon]"}]]}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "8"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.684019315106278*^9, 3.684019422134742*^9}, 3.684020052828659*^9},ExpressionUUID->"148b2725-ea19-4ffe-83f4-\ e5098fad8b1e"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["\[CurlyPhi]", "2"], " ", RowBox[{"(", RowBox[{"9", "+", RowBox[{"5532", " ", "\[CurlyPhi]"}], "-", RowBox[{"1584", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "-", RowBox[{"679952", " ", SuperscriptBox["\[CurlyPhi]", "3"]}], "+", RowBox[{"166288", " ", SuperscriptBox["\[CurlyPhi]", "4"]}], "+", RowBox[{"12372480", " ", SuperscriptBox["\[CurlyPhi]", "5"]}], "-", RowBox[{"12745728", " ", SuperscriptBox["\[CurlyPhi]", "6"]}], "+", RowBox[{"3456000", " ", SuperscriptBox["\[CurlyPhi]", "7"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", "n"], "[", "\[Epsilon]", "]"}]}]}], ")"}]}], "+", RowBox[{"48", " ", SuperscriptBox["\[CurlyPhi]", "2"], " ", RowBox[{"(", RowBox[{"36", "+", RowBox[{"9", " ", "\[CurlyPhi]"}], "-", RowBox[{"6182", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "+", RowBox[{"284", " ", SuperscriptBox["\[CurlyPhi]", "3"]}], "+", RowBox[{"132120", " ", SuperscriptBox["\[CurlyPhi]", "4"]}], "-", RowBox[{"130464", " ", SuperscriptBox["\[CurlyPhi]", "5"]}], "+", RowBox[{"34560", " ", SuperscriptBox["\[CurlyPhi]", "6"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ SuperscriptBox["\[CurlyPhi]", RowBox[{"n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", "n"], "[", "\[Epsilon]", "]"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[CurlyPhi]", "2"], " ", RowBox[{"(", RowBox[{"39", "+", RowBox[{"6917", " ", "\[CurlyPhi]"}], "-", RowBox[{"5250", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "-", RowBox[{"552220", " ", SuperscriptBox["\[CurlyPhi]", "3"]}], "+", RowBox[{"274360", " ", SuperscriptBox["\[CurlyPhi]", "4"]}], "+", RowBox[{"7771104", " ", SuperscriptBox["\[CurlyPhi]", "5"]}], "-", RowBox[{"8581248", " ", SuperscriptBox["\[CurlyPhi]", "6"]}], "+", RowBox[{"2419200", " ", SuperscriptBox["\[CurlyPhi]", "7"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", "n"], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"\[CurlyPhi]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "10"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{"n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", "n"], "[", "\[Epsilon]", "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"4", " ", SuperscriptBox["\[CurlyPhi]", "2"], " ", RowBox[{"(", RowBox[{"15", "+", RowBox[{"1025", " ", "\[CurlyPhi]"}], "-", RowBox[{"1170", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "-", RowBox[{"47572", " ", SuperscriptBox["\[CurlyPhi]", "3"]}], "+", RowBox[{"36464", " ", SuperscriptBox["\[CurlyPhi]", "4"]}], "+", RowBox[{"473904", " ", SuperscriptBox["\[CurlyPhi]", "5"]}], "-", RowBox[{"577152", " ", SuperscriptBox["\[CurlyPhi]", "6"]}], "+", RowBox[{"172800", " ", SuperscriptBox["\[CurlyPhi]", "7"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", "n"], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"\[CurlyPhi]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "10"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{"n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", "n"], "[", "\[Epsilon]", "]"}]}]}], ")"}]}], "+", RowBox[{"\[CurlyPhi]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "10"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{"n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", "n"], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"\[CurlyPhi]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "10"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "11"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "10"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{"n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", "n"], "[", "\[Epsilon]", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "\[CurlyPhi]"}]}], ")"}], "2"], " ", "\[CurlyPhi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", "\[CurlyPhi]"}], "+", RowBox[{"115", " ", SuperscriptBox["\[CurlyPhi]", "2"]}], "-", RowBox[{"10", " ", SuperscriptBox["\[CurlyPhi]", "3"]}], "-", RowBox[{"2664", " ", SuperscriptBox["\[CurlyPhi]", "4"]}], "-", RowBox[{"864", " ", SuperscriptBox["\[CurlyPhi]", "5"]}], "+", RowBox[{"17280", " ", SuperscriptBox["\[CurlyPhi]", "6"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", "n"], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"\[CurlyPhi]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "10"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{"n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", "n"], "[", "\[Epsilon]", "]"}]}]}], ")"}]}], "+", RowBox[{"\[CurlyPhi]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "10"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{"n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", "n"], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"\[CurlyPhi]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "10"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "11"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "10"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{"n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", "n"], "[", "\[Epsilon]", "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"\[CurlyPhi]", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "10"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{"n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", "n"], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"2", " ", "\[CurlyPhi]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "10"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "11"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "10"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{"n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", "n"], "[", "\[Epsilon]", "]"}]}]}], ")"}]}], "+", RowBox[{"\[CurlyPhi]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "10"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "11"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "10"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{"n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", "n"], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"\[CurlyPhi]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "10"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "12"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "10"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "11"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "10"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "9"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "8"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "7"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "6"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "5"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "\[Epsilon]"}], ")"}], " ", RowBox[{"(", RowBox[{"n", "+", "\[Epsilon]"}], ")"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{ RowBox[{"-", "4"}], "+", "n", "+", "\[Epsilon]"}]], " ", RowBox[{ SubscriptBox["A", "n"], "[", "\[Epsilon]", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.684019425677314*^9, 3.684020075512396*^9, 3.684023491907837*^9, 3.6840258030076933`*^9, 3.684031740588647*^9, 3.72639492111679*^9},ExpressionUUID->"68981e8f-7a61-4523-91ea-0e848ade037d"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"recurrence", "=", "\[IndentingNewLine]", RowBox[{"Coefficient", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Collect", "[", RowBox[{ RowBox[{ SuperscriptBox["\[CurlyPhi]", RowBox[{"8", "-", "n", "-", "\[Epsilon]"}]], RowBox[{"\[ScriptCapitalL]", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["A", RowBox[{"n", "-", "j"}]], "[", "\[Epsilon]", "]"}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{"n", "-", "j", "+", "\[Epsilon]"}]]}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "8"}], "}"}]}], "]"}], "]"}]}], ",", "\[CurlyPhi]", ",", "Simplify"}], "]"}], ",", "\[IndentingNewLine]", " ", "\[CurlyPhi]", ",", "8"}], "]"}]}]], "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},ExpressionUUID->"e411308f-07cb-48d5-85fc-\ ec04600a13f2"], Cell[BoxData[ RowBox[{ RowBox[{"69120", " ", RowBox[{"(", RowBox[{"840", "+", SuperscriptBox["n", "4"], "-", RowBox[{"638", " ", "\[Epsilon]"}], "+", RowBox[{"179", " ", SuperscriptBox["\[Epsilon]", "2"]}], "-", RowBox[{"22", " ", SuperscriptBox["\[Epsilon]", "3"]}], "+", SuperscriptBox["\[Epsilon]", "4"], "+", RowBox[{ SuperscriptBox["n", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "22"}], "+", RowBox[{"4", " ", "\[Epsilon]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["n", "2"], " ", RowBox[{"(", RowBox[{"179", "-", RowBox[{"66", " ", "\[Epsilon]"}], "+", RowBox[{"6", " ", SuperscriptBox["\[Epsilon]", "2"]}]}], ")"}]}], "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "638"}], "+", RowBox[{"358", " ", "\[Epsilon]"}], "-", RowBox[{"66", " ", SuperscriptBox["\[Epsilon]", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["\[Epsilon]", "3"]}]}], ")"}]}]}], ")"}], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{"15000", "+", RowBox[{"61", " ", SuperscriptBox["n", "4"]}], "-", RowBox[{"16570", " ", "\[Epsilon]"}], "+", RowBox[{"6389", " ", SuperscriptBox["\[Epsilon]", "2"]}], "-", RowBox[{"1040", " ", SuperscriptBox["\[Epsilon]", "3"]}], "+", RowBox[{"61", " ", SuperscriptBox["\[Epsilon]", "4"]}], "+", RowBox[{"4", " ", SuperscriptBox["n", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "260"}], "+", RowBox[{"61", " ", "\[Epsilon]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["n", "2"], " ", RowBox[{"(", RowBox[{"6389", "-", RowBox[{"3120", " ", "\[Epsilon]"}], "+", RowBox[{"366", " ", SuperscriptBox["\[Epsilon]", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", "n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8285"}], "+", RowBox[{"6389", " ", "\[Epsilon]"}], "-", RowBox[{"1560", " ", SuperscriptBox["\[Epsilon]", "2"]}], "+", RowBox[{"122", " ", SuperscriptBox["\[Epsilon]", "3"]}]}], ")"}]}]}], ")"}], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"3594240", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"10274688", " ", "n", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"7180128", " ", SuperscriptBox["n", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"1829952", " ", SuperscriptBox["n", "3"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"155232", " ", SuperscriptBox["n", "4"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"10274688", " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"14360256", " ", "n", " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"5489856", " ", SuperscriptBox["n", "2"], " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"620928", " ", SuperscriptBox["n", "3"], " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"7180128", " ", SuperscriptBox["\[Epsilon]", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"5489856", " ", "n", " ", SuperscriptBox["\[Epsilon]", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"931392", " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[Epsilon]", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"1829952", " ", SuperscriptBox["\[Epsilon]", "3"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"620928", " ", "n", " ", SuperscriptBox["\[Epsilon]", "3"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"155232", " ", SuperscriptBox["\[Epsilon]", "4"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"2904192", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"3714112", " ", "n", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"1709320", " ", SuperscriptBox["n", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"337184", " ", SuperscriptBox["n", "3"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"24152", " ", SuperscriptBox["n", "4"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"3714112", " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"3418640", " ", "n", " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"1011552", " ", SuperscriptBox["n", "2"], " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"96608", " ", SuperscriptBox["n", "3"], " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"1709320", " ", SuperscriptBox["\[Epsilon]", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"1011552", " ", "n", " ", SuperscriptBox["\[Epsilon]", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"144912", " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[Epsilon]", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"337184", " ", SuperscriptBox["\[Epsilon]", "3"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"96608", " ", "n", " ", SuperscriptBox["\[Epsilon]", "3"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"24152", " ", SuperscriptBox["\[Epsilon]", "4"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"223392", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"593360", " ", "n", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"514780", " ", SuperscriptBox["n", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"184048", " ", SuperscriptBox["n", "3"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"23396", " ", SuperscriptBox["n", "4"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"593360", " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"1029560", " ", "n", " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"552144", " ", SuperscriptBox["n", "2"], " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"93584", " ", SuperscriptBox["n", "3"], " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"514780", " ", SuperscriptBox["\[Epsilon]", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"552144", " ", "n", " ", SuperscriptBox["\[Epsilon]", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"140376", " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[Epsilon]", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"184048", " ", SuperscriptBox["\[Epsilon]", "3"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"93584", " ", "n", " ", SuperscriptBox["\[Epsilon]", "3"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"23396", " ", SuperscriptBox["\[Epsilon]", "4"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"33480", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"60588", " ", "n", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"41646", " ", SuperscriptBox["n", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"12768", " ", SuperscriptBox["n", "3"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"1454", " ", SuperscriptBox["n", "4"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"60588", " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"83292", " ", "n", " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"38304", " ", SuperscriptBox["n", "2"], " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"5816", " ", SuperscriptBox["n", "3"], " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"41646", " ", SuperscriptBox["\[Epsilon]", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"38304", " ", "n", " ", SuperscriptBox["\[Epsilon]", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"8724", " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[Epsilon]", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"12768", " ", SuperscriptBox["\[Epsilon]", "3"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"5816", " ", "n", " ", SuperscriptBox["\[Epsilon]", "3"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"1454", " ", SuperscriptBox["\[Epsilon]", "4"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"1260", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"4392", " ", "n", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"4392", " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"11818", " ", "n", " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"11292", " ", SuperscriptBox["n", "2"], " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"3932", " ", SuperscriptBox["n", "3"], " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"5909", " ", SuperscriptBox["\[Epsilon]", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"11292", " ", "n", " ", SuperscriptBox["\[Epsilon]", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"5898", " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[Epsilon]", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"3764", " ", SuperscriptBox["\[Epsilon]", "3"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"3932", " ", "n", " ", SuperscriptBox["\[Epsilon]", "3"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"983", " ", SuperscriptBox["\[Epsilon]", "4"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"18", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"81", " ", "n", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"147", " ", SuperscriptBox["n", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"132", " ", SuperscriptBox["n", "3"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"48", " ", SuperscriptBox["n", "4"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"81", " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"294", " ", "n", " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"396", " ", SuperscriptBox["n", "2"], " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"192", " ", SuperscriptBox["n", "3"], " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"147", " ", SuperscriptBox["\[Epsilon]", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"396", " ", "n", " ", SuperscriptBox["\[Epsilon]", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"288", " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[Epsilon]", "2"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"132", " ", SuperscriptBox["\[Epsilon]", "3"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"192", " ", "n", " ", SuperscriptBox["\[Epsilon]", "3"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"48", " ", SuperscriptBox["\[Epsilon]", "4"], " ", RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"9", " ", SuperscriptBox["n", "4"], " ", RowBox[{ SubscriptBox["A", "n"], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"36", " ", SuperscriptBox["n", "3"], " ", "\[Epsilon]", " ", RowBox[{ SubscriptBox["A", "n"], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"54", " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[Epsilon]", "2"], " ", RowBox[{ SubscriptBox["A", "n"], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"36", " ", "n", " ", SuperscriptBox["\[Epsilon]", "3"], " ", RowBox[{ SubscriptBox["A", "n"], "[", "\[Epsilon]", "]"}]}], "-", RowBox[{"9", " ", SuperscriptBox["\[Epsilon]", "4"], " ", RowBox[{ SubscriptBox["A", "n"], "[", "\[Epsilon]", "]"}]}]}]], "Output", CellChangeTimes->{3.684019425677314*^9, 3.684019887764556*^9, 3.6840201798070993`*^9, 3.68402021497148*^9, 3.68402031221587*^9, 3.684023506457891*^9, 3.684025806246344*^9, 3.684031942182534*^9, 3.7263949497488947`*^9},ExpressionUUID->"ee48d72d-bc61-456e-b666-\ 91d4883a9a12"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"recurrence", "/.", 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"]}]}], " ", "}"}]}]], "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},ExpressionUUID->"1efadd76-df2b-4063-a8b0-\ c5067cef3a45"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"69120", " ", RowBox[{"(", RowBox[{"840", "-", RowBox[{"638", " ", "n"}], "+", RowBox[{"179", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"22", " ", SuperscriptBox["n", "3"]}], "+", SuperscriptBox["n", "4"]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{"15000", "-", RowBox[{"16570", " ", "n"}], "+", RowBox[{"6389", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"1040", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"61", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"3594240", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "-", RowBox[{"10274688", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"7180128", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "-", RowBox[{"1829952", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"155232", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"2904192", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"3714112", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "+", RowBox[{"1709320", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"337184", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "+", RowBox[{"24152", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"223392", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "+", RowBox[{"593360", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"514780", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "+", RowBox[{"184048", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"23396", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"33480", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"60588", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"41646", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"12768", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"1454", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"1260", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"4392", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"18", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"81", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"147", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"132", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"48", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"9", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", "n"]}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "638"}], "+", RowBox[{"358", " ", "n"}], "-", RowBox[{"66", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "16570"}], "+", RowBox[{"12778", " ", "n"}], "-", RowBox[{"3120", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"244", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "-", RowBox[{"10274688", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"14360256", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "-", RowBox[{"5489856", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"620928", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "-", RowBox[{"3714112", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "+", RowBox[{"3418640", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"1011552", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "+", RowBox[{"96608", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "+", RowBox[{"593360", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"1029560", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "+", RowBox[{"552144", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"93584", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "+", RowBox[{"60588", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"83292", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"38304", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"5816", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"4392", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"11818", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"11292", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3932", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"81", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"294", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"396", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"192", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"36", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{"840", "-", RowBox[{"638", " ", "n"}], "+", RowBox[{"179", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"22", " ", SuperscriptBox["n", "3"]}], "+", SuperscriptBox["n", "4"]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{"15000", "-", RowBox[{"16570", " ", "n"}], "+", RowBox[{"6389", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"1040", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"61", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"3594240", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "-", RowBox[{"10274688", " ", "n", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"7180128", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "-", RowBox[{"1829952", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"155232", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"2904192", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"3714112", " ", "n", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "+", RowBox[{"1709320", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"337184", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "+", RowBox[{"24152", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"223392", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "+", RowBox[{"593360", " ", "n", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"514780", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "+", RowBox[{"184048", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"23396", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"33480", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"60588", " ", "n", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"41646", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"12768", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"1454", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"1260", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"4392", " ", "n", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"18", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"81", " ", "n", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"147", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"132", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"48", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"9", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["b", "n"]}]}], ")"}], " ", "\[Epsilon]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"69120", " ", RowBox[{"(", RowBox[{"179", "-", RowBox[{"66", " ", "n"}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{"6389", "-", RowBox[{"3120", " ", "n"}], "+", RowBox[{"366", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"7180128", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "-", RowBox[{"5489856", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"931392", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"1709320", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"1011552", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "+", RowBox[{"144912", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"514780", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "+", RowBox[{"552144", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"140376", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"41646", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"38304", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"8724", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"5909", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"11292", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"5898", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"147", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"396", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"288", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"54", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "638"}], "+", RowBox[{"358", " ", "n"}], "-", RowBox[{"66", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "16570"}], "+", RowBox[{"12778", " ", "n"}], "-", RowBox[{"3120", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"244", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "-", RowBox[{"10274688", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"14360256", " ", "n", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "-", RowBox[{"5489856", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"620928", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "-", RowBox[{"3714112", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "+", RowBox[{"3418640", " ", "n", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"1011552", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "+", RowBox[{"96608", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "+", RowBox[{"593360", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"1029560", " ", "n", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "+", RowBox[{"552144", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"93584", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "+", RowBox[{"60588", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"83292", " ", "n", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"38304", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"5816", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"4392", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"11818", " ", "n", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"11292", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3932", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"81", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"294", " ", "n", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"396", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"192", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"36", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", "n"]}], "+", RowBox[{"34560", " ", RowBox[{"(", RowBox[{"840", "-", RowBox[{"638", " ", "n"}], "+", RowBox[{"179", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"22", " ", SuperscriptBox["n", "3"]}], "+", SuperscriptBox["n", "4"]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"1728", " ", RowBox[{"(", RowBox[{"15000", "-", RowBox[{"16570", " ", "n"}], "+", RowBox[{"6389", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"1040", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"61", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"1797120", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "-", RowBox[{"5137344", " ", "n", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"3590064", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "-", RowBox[{"914976", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"77616", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"1452096", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"1857056", " ", "n", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "+", RowBox[{"854660", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"168592", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "+", RowBox[{"12076", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"111696", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "+", RowBox[{"296680", " ", "n", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"257390", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "+", RowBox[{"92024", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"11698", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"16740", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"30294", " ", "n", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"20823", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"6384", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"727", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"630", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"2196", " ", "n", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["5909", "2"], " ", SuperscriptBox["n", "2"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"1882", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["983", "2"], " ", SuperscriptBox["n", "4"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"9", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{ FractionBox["81", "2"], " ", "n", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["147", "2"], " ", SuperscriptBox["n", "2"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"66", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"24", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", FractionBox[ RowBox[{"9", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["c", "n"]}], "2"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "22"}], "+", RowBox[{"4", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1040"}], "+", RowBox[{"244", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "-", RowBox[{"1829952", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"620928", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "-", RowBox[{"337184", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "+", RowBox[{"96608", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "+", RowBox[{"184048", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"93584", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "+", RowBox[{"12768", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"5816", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"3764", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3932", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"132", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"192", " ", "n", " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"36", " ", "n", " ", SubscriptBox["a", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{"179", "-", RowBox[{"66", " ", "n"}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{"6389", "-", RowBox[{"3120", " ", "n"}], "+", RowBox[{"366", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"7180128", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "-", RowBox[{"5489856", " ", "n", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"931392", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"1709320", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"1011552", " ", "n", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "+", RowBox[{"144912", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"514780", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "+", RowBox[{"552144", " ", "n", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"140376", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"41646", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"38304", " ", "n", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"8724", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"5909", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"11292", " ", "n", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"5898", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"147", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"396", " ", "n", " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"288", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"54", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", "n"]}], "+", RowBox[{"34560", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "638"}], "+", RowBox[{"358", " ", "n"}], "-", RowBox[{"66", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"1728", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "16570"}], "+", RowBox[{"12778", " ", "n"}], "-", RowBox[{"3120", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"244", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "-", RowBox[{"5137344", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"7180128", " ", "n", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "-", RowBox[{"2744928", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"310464", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "-", RowBox[{"1857056", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "+", RowBox[{"1709320", " ", "n", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"505776", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "+", RowBox[{"48304", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "+", RowBox[{"296680", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"514780", " ", "n", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "+", RowBox[{"276072", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"46792", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "+", RowBox[{"30294", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"41646", " ", "n", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"19152", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"2908", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"2196", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"5909", " ", "n", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"5646", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"1966", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", FractionBox[ RowBox[{"81", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "2"], "+", RowBox[{"147", " ", "n", " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"198", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"96", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"18", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", "n"]}], "+", RowBox[{"11520", " ", RowBox[{"(", RowBox[{"840", "-", RowBox[{"638", " ", "n"}], "+", RowBox[{"179", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"22", " ", SuperscriptBox["n", "3"]}], "+", SuperscriptBox["n", "4"]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"576", " ", RowBox[{"(", RowBox[{"15000", "-", RowBox[{"16570", " ", "n"}], "+", RowBox[{"6389", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"1040", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"61", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"599040", " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "-", RowBox[{"1712448", " ", "n", " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"1196688", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "-", RowBox[{"304992", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"25872", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"484032", " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{ FractionBox["1857056", "3"], " ", "n", " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["854660", "3"], " ", SuperscriptBox["n", "2"], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{ FractionBox["168592", "3"], " ", SuperscriptBox["n", "3"], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["12076", "3"], " ", SuperscriptBox["n", "4"], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"37232", " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["296680", "3"], " ", "n", " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{ FractionBox["257390", "3"], " ", SuperscriptBox["n", "2"], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["92024", "3"], " ", SuperscriptBox["n", "3"], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{ FractionBox["11698", "3"], " ", SuperscriptBox["n", "4"], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"5580", " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"10098", " ", "n", " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{"6941", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"2128", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "-", RowBox[{ FractionBox["727", "3"], " ", SuperscriptBox["n", "4"], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"210", " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{"732", " ", "n", " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["5909", "6"], " ", SuperscriptBox["n", "2"], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "-", RowBox[{ FractionBox["1882", "3"], " ", SuperscriptBox["n", "3"], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["983", "6"], " ", SuperscriptBox["n", "4"], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{ FractionBox["27", "2"], " ", "n", " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["49", "2"], " ", SuperscriptBox["n", "2"], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"22", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "+", RowBox[{"8", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", FractionBox[ RowBox[{"3", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["d", "n"]}], "2"]}], ")"}], " ", SuperscriptBox["\[Epsilon]", "3"]}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "\[Epsilon]", "]"}], "4"], SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 4, 1], Editable->False]}], SeriesData[$CellContext`\[Epsilon], 0, {(69120 (840 - 638 $CellContext`n + 179 $CellContext`n^2 - 22 $CellContext`n^3 + $CellContext`n^4)) Subscript[$CellContext`a, -8 + $CellContext`n] - ( 3456 (15000 - 16570 $CellContext`n + 6389 $CellContext`n^2 - 1040 $CellContext`n^3 + 61 $CellContext`n^4)) Subscript[$CellContext`a, -7 + $CellContext`n] + 3594240 Subscript[$CellContext`a, -6 + $CellContext`n] - ( 10274688 $CellContext`n) Subscript[$CellContext`a, -6 + $CellContext`n] + ( 7180128 $CellContext`n^2) Subscript[$CellContext`a, -6 + $CellContext`n] - ( 1829952 $CellContext`n^3) Subscript[$CellContext`a, -6 + $CellContext`n] + (155232 $CellContext`n^4) Subscript[$CellContext`a, -6 + $CellContext`n] + 2904192 Subscript[$CellContext`a, -5 + $CellContext`n] - ( 3714112 $CellContext`n) Subscript[$CellContext`a, -5 + $CellContext`n] + ( 1709320 $CellContext`n^2) Subscript[$CellContext`a, -5 + $CellContext`n] - ( 337184 $CellContext`n^3) Subscript[$CellContext`a, -5 + $CellContext`n] + (24152 $CellContext`n^4) Subscript[$CellContext`a, -5 + $CellContext`n] - 223392 Subscript[$CellContext`a, -4 + $CellContext`n] + (593360 $CellContext`n) Subscript[$CellContext`a, -4 + $CellContext`n] - ( 514780 $CellContext`n^2) Subscript[$CellContext`a, -4 + $CellContext`n] + (184048 $CellContext`n^3) Subscript[$CellContext`a, -4 + $CellContext`n] - ( 23396 $CellContext`n^4) Subscript[$CellContext`a, -4 + $CellContext`n] - 33480 Subscript[$CellContext`a, -3 + $CellContext`n] + ( 60588 $CellContext`n) Subscript[$CellContext`a, -3 + $CellContext`n] - ( 41646 $CellContext`n^2) Subscript[$CellContext`a, -3 + $CellContext`n] + (12768 $CellContext`n^3) Subscript[$CellContext`a, -3 + $CellContext`n] - (1454 $CellContext`n^4) Subscript[$CellContext`a, -3 + $CellContext`n] + 1260 Subscript[$CellContext`a, -2 + $CellContext`n] - ( 4392 $CellContext`n) Subscript[$CellContext`a, -2 + $CellContext`n] + (5909 $CellContext`n^2) Subscript[$CellContext`a, -2 + $CellContext`n] - (3764 $CellContext`n^3) Subscript[$CellContext`a, -2 + $CellContext`n] + (983 $CellContext`n^4) Subscript[$CellContext`a, -2 + $CellContext`n] + 18 Subscript[$CellContext`a, -1 + $CellContext`n] - (81 $CellContext`n) Subscript[$CellContext`a, -1 + $CellContext`n] + (147 $CellContext`n^2) Subscript[$CellContext`a, -1 + $CellContext`n] - (132 $CellContext`n^3) Subscript[$CellContext`a, -1 + $CellContext`n] + (48 $CellContext`n^4) Subscript[$CellContext`a, -1 + $CellContext`n] - (9 $CellContext`n^4) Subscript[$CellContext`a, $CellContext`n], ( 69120 (-638 + 358 $CellContext`n - 66 $CellContext`n^2 + 4 $CellContext`n^3)) Subscript[$CellContext`a, -8 + $CellContext`n] - ( 3456 (-16570 + 12778 $CellContext`n - 3120 $CellContext`n^2 + 244 $CellContext`n^3)) Subscript[$CellContext`a, -7 + $CellContext`n] - 10274688 Subscript[$CellContext`a, -6 + $CellContext`n] + ( 14360256 $CellContext`n) Subscript[$CellContext`a, -6 + $CellContext`n] - ( 5489856 $CellContext`n^2) Subscript[$CellContext`a, -6 + $CellContext`n] + (620928 $CellContext`n^3) Subscript[$CellContext`a, -6 + $CellContext`n] - 3714112 Subscript[$CellContext`a, -5 + $CellContext`n] + (3418640 $CellContext`n) Subscript[$CellContext`a, -5 + $CellContext`n] - ( 1011552 $CellContext`n^2) Subscript[$CellContext`a, -5 + $CellContext`n] + (96608 $CellContext`n^3) Subscript[$CellContext`a, -5 + $CellContext`n] + 593360 Subscript[$CellContext`a, -4 + $CellContext`n] - ( 1029560 $CellContext`n) Subscript[$CellContext`a, -4 + $CellContext`n] + (552144 $CellContext`n^2) Subscript[$CellContext`a, -4 + $CellContext`n] - ( 93584 $CellContext`n^3) Subscript[$CellContext`a, -4 + $CellContext`n] + 60588 Subscript[$CellContext`a, -3 + $CellContext`n] - ( 83292 $CellContext`n) Subscript[$CellContext`a, -3 + $CellContext`n] + (38304 $CellContext`n^2) Subscript[$CellContext`a, -3 + $CellContext`n] - (5816 $CellContext`n^3) Subscript[$CellContext`a, -3 + $CellContext`n] - 4392 Subscript[$CellContext`a, -2 + $CellContext`n] + (11818 $CellContext`n) Subscript[$CellContext`a, -2 + $CellContext`n] - (11292 $CellContext`n^2) Subscript[$CellContext`a, -2 + $CellContext`n] + (3932 $CellContext`n^3) Subscript[$CellContext`a, -2 + $CellContext`n] - 81 Subscript[$CellContext`a, -1 + $CellContext`n] + (294 $CellContext`n) Subscript[$CellContext`a, -1 + $CellContext`n] - (396 $CellContext`n^2) Subscript[$CellContext`a, -1 + $CellContext`n] + (192 $CellContext`n^3) Subscript[$CellContext`a, -1 + $CellContext`n] - (36 $CellContext`n^3) Subscript[$CellContext`a, $CellContext`n] + ( 69120 (840 - 638 $CellContext`n + 179 $CellContext`n^2 - 22 $CellContext`n^3 + $CellContext`n^4)) Subscript[$CellContext`b, -8 + $CellContext`n] - ( 3456 (15000 - 16570 $CellContext`n + 6389 $CellContext`n^2 - 1040 $CellContext`n^3 + 61 $CellContext`n^4)) Subscript[$CellContext`b, -7 + $CellContext`n] + 3594240 Subscript[$CellContext`b, -6 + $CellContext`n] - ( 10274688 $CellContext`n) Subscript[$CellContext`b, -6 + $CellContext`n] + ( 7180128 $CellContext`n^2) Subscript[$CellContext`b, -6 + $CellContext`n] - ( 1829952 $CellContext`n^3) Subscript[$CellContext`b, -6 + $CellContext`n] + (155232 $CellContext`n^4) Subscript[$CellContext`b, -6 + $CellContext`n] + 2904192 Subscript[$CellContext`b, -5 + $CellContext`n] - ( 3714112 $CellContext`n) Subscript[$CellContext`b, -5 + $CellContext`n] + ( 1709320 $CellContext`n^2) Subscript[$CellContext`b, -5 + $CellContext`n] - ( 337184 $CellContext`n^3) Subscript[$CellContext`b, -5 + $CellContext`n] + (24152 $CellContext`n^4) Subscript[$CellContext`b, -5 + $CellContext`n] - 223392 Subscript[$CellContext`b, -4 + $CellContext`n] + (593360 $CellContext`n) Subscript[$CellContext`b, -4 + $CellContext`n] - ( 514780 $CellContext`n^2) Subscript[$CellContext`b, -4 + $CellContext`n] + (184048 $CellContext`n^3) Subscript[$CellContext`b, -4 + $CellContext`n] - ( 23396 $CellContext`n^4) Subscript[$CellContext`b, -4 + $CellContext`n] - 33480 Subscript[$CellContext`b, -3 + $CellContext`n] + ( 60588 $CellContext`n) Subscript[$CellContext`b, -3 + $CellContext`n] - ( 41646 $CellContext`n^2) Subscript[$CellContext`b, -3 + $CellContext`n] + (12768 $CellContext`n^3) Subscript[$CellContext`b, -3 + $CellContext`n] - (1454 $CellContext`n^4) Subscript[$CellContext`b, -3 + $CellContext`n] + 1260 Subscript[$CellContext`b, -2 + $CellContext`n] - ( 4392 $CellContext`n) Subscript[$CellContext`b, -2 + $CellContext`n] + (5909 $CellContext`n^2) Subscript[$CellContext`b, -2 + $CellContext`n] - (3764 $CellContext`n^3) Subscript[$CellContext`b, -2 + $CellContext`n] + (983 $CellContext`n^4) Subscript[$CellContext`b, -2 + $CellContext`n] + 18 Subscript[$CellContext`b, -1 + $CellContext`n] - (81 $CellContext`n) Subscript[$CellContext`b, -1 + $CellContext`n] + (147 $CellContext`n^2) Subscript[$CellContext`b, -1 + $CellContext`n] - (132 $CellContext`n^3) Subscript[$CellContext`b, -1 + $CellContext`n] + (48 $CellContext`n^4) Subscript[$CellContext`b, -1 + $CellContext`n] - (9 $CellContext`n^4) Subscript[$CellContext`b, $CellContext`n], ( 69120 (179 - 66 $CellContext`n + 6 $CellContext`n^2)) Subscript[$CellContext`a, -8 + $CellContext`n] - ( 3456 (6389 - 3120 $CellContext`n + 366 $CellContext`n^2)) Subscript[$CellContext`a, -7 + $CellContext`n] + 7180128 Subscript[$CellContext`a, -6 + $CellContext`n] - ( 5489856 $CellContext`n) Subscript[$CellContext`a, -6 + $CellContext`n] + (931392 $CellContext`n^2) Subscript[$CellContext`a, -6 + $CellContext`n] + 1709320 Subscript[$CellContext`a, -5 + $CellContext`n] - ( 1011552 $CellContext`n) Subscript[$CellContext`a, -5 + $CellContext`n] + (144912 $CellContext`n^2) Subscript[$CellContext`a, -5 + $CellContext`n] - 514780 Subscript[$CellContext`a, -4 + $CellContext`n] + (552144 $CellContext`n) Subscript[$CellContext`a, -4 + $CellContext`n] - ( 140376 $CellContext`n^2) Subscript[$CellContext`a, -4 + $CellContext`n] - 41646 Subscript[$CellContext`a, -3 + $CellContext`n] + ( 38304 $CellContext`n) Subscript[$CellContext`a, -3 + $CellContext`n] - ( 8724 $CellContext`n^2) Subscript[$CellContext`a, -3 + $CellContext`n] + 5909 Subscript[$CellContext`a, -2 + $CellContext`n] - ( 11292 $CellContext`n) Subscript[$CellContext`a, -2 + $CellContext`n] + (5898 $CellContext`n^2) Subscript[$CellContext`a, -2 + $CellContext`n] + 147 Subscript[$CellContext`a, -1 + $CellContext`n] - (396 $CellContext`n) Subscript[$CellContext`a, -1 + $CellContext`n] + (288 $CellContext`n^2) Subscript[$CellContext`a, -1 + $CellContext`n] - (54 $CellContext`n^2) Subscript[$CellContext`a, $CellContext`n] + ( 69120 (-638 + 358 $CellContext`n - 66 $CellContext`n^2 + 4 $CellContext`n^3)) Subscript[$CellContext`b, -8 + $CellContext`n] - ( 3456 (-16570 + 12778 $CellContext`n - 3120 $CellContext`n^2 + 244 $CellContext`n^3)) Subscript[$CellContext`b, -7 + $CellContext`n] - 10274688 Subscript[$CellContext`b, -6 + $CellContext`n] + ( 14360256 $CellContext`n) Subscript[$CellContext`b, -6 + $CellContext`n] - ( 5489856 $CellContext`n^2) Subscript[$CellContext`b, -6 + $CellContext`n] + (620928 $CellContext`n^3) Subscript[$CellContext`b, -6 + $CellContext`n] - 3714112 Subscript[$CellContext`b, -5 + $CellContext`n] + (3418640 $CellContext`n) Subscript[$CellContext`b, -5 + $CellContext`n] - ( 1011552 $CellContext`n^2) Subscript[$CellContext`b, -5 + $CellContext`n] + (96608 $CellContext`n^3) Subscript[$CellContext`b, -5 + $CellContext`n] + 593360 Subscript[$CellContext`b, -4 + $CellContext`n] - ( 1029560 $CellContext`n) Subscript[$CellContext`b, -4 + $CellContext`n] + (552144 $CellContext`n^2) Subscript[$CellContext`b, -4 + $CellContext`n] - ( 93584 $CellContext`n^3) Subscript[$CellContext`b, -4 + $CellContext`n] + 60588 Subscript[$CellContext`b, -3 + $CellContext`n] - ( 83292 $CellContext`n) Subscript[$CellContext`b, -3 + $CellContext`n] + (38304 $CellContext`n^2) Subscript[$CellContext`b, -3 + $CellContext`n] - (5816 $CellContext`n^3) Subscript[$CellContext`b, -3 + $CellContext`n] - 4392 Subscript[$CellContext`b, -2 + $CellContext`n] + (11818 $CellContext`n) Subscript[$CellContext`b, -2 + $CellContext`n] - (11292 $CellContext`n^2) Subscript[$CellContext`b, -2 + $CellContext`n] + (3932 $CellContext`n^3) Subscript[$CellContext`b, -2 + $CellContext`n] - 81 Subscript[$CellContext`b, -1 + $CellContext`n] + (294 $CellContext`n) Subscript[$CellContext`b, -1 + $CellContext`n] - (396 $CellContext`n^2) Subscript[$CellContext`b, -1 + $CellContext`n] + (192 $CellContext`n^3) Subscript[$CellContext`b, -1 + $CellContext`n] - (36 $CellContext`n^3) Subscript[$CellContext`b, $CellContext`n] + ( 34560 (840 - 638 $CellContext`n + 179 $CellContext`n^2 - 22 $CellContext`n^3 + $CellContext`n^4)) Subscript[$CellContext`c, -8 + $CellContext`n] - ( 1728 (15000 - 16570 $CellContext`n + 6389 $CellContext`n^2 - 1040 $CellContext`n^3 + 61 $CellContext`n^4)) Subscript[$CellContext`c, -7 + $CellContext`n] + 1797120 Subscript[$CellContext`c, -6 + $CellContext`n] - ( 5137344 $CellContext`n) Subscript[$CellContext`c, -6 + $CellContext`n] + ( 3590064 $CellContext`n^2) Subscript[$CellContext`c, -6 + $CellContext`n] - ( 914976 $CellContext`n^3) Subscript[$CellContext`c, -6 + $CellContext`n] + (77616 $CellContext`n^4) Subscript[$CellContext`c, -6 + $CellContext`n] + 1452096 Subscript[$CellContext`c, -5 + $CellContext`n] - ( 1857056 $CellContext`n) Subscript[$CellContext`c, -5 + $CellContext`n] + (854660 $CellContext`n^2) Subscript[$CellContext`c, -5 + $CellContext`n] - ( 168592 $CellContext`n^3) Subscript[$CellContext`c, -5 + $CellContext`n] + (12076 $CellContext`n^4) Subscript[$CellContext`c, -5 + $CellContext`n] - 111696 Subscript[$CellContext`c, -4 + $CellContext`n] + (296680 $CellContext`n) Subscript[$CellContext`c, -4 + $CellContext`n] - ( 257390 $CellContext`n^2) Subscript[$CellContext`c, -4 + $CellContext`n] + (92024 $CellContext`n^3) Subscript[$CellContext`c, -4 + $CellContext`n] - (11698 $CellContext`n^4) Subscript[$CellContext`c, -4 + $CellContext`n] - 16740 Subscript[$CellContext`c, -3 + $CellContext`n] + (30294 $CellContext`n) Subscript[$CellContext`c, -3 + $CellContext`n] - (20823 $CellContext`n^2) Subscript[$CellContext`c, -3 + $CellContext`n] + (6384 $CellContext`n^3) Subscript[$CellContext`c, -3 + $CellContext`n] - (727 $CellContext`n^4) Subscript[$CellContext`c, -3 + $CellContext`n] + 630 Subscript[$CellContext`c, -2 + $CellContext`n] - (2196 $CellContext`n) Subscript[$CellContext`c, -2 + $CellContext`n] + ( Rational[5909, 2] $CellContext`n^2) Subscript[$CellContext`c, -2 + $CellContext`n] - (1882 $CellContext`n^3) Subscript[$CellContext`c, -2 + $CellContext`n] + ( Rational[983, 2] $CellContext`n^4) Subscript[$CellContext`c, -2 + $CellContext`n] + 9 Subscript[$CellContext`c, -1 + $CellContext`n] + ( Rational[-81, 2] $CellContext`n) Subscript[$CellContext`c, -1 + $CellContext`n] + ( Rational[147, 2] $CellContext`n^2) Subscript[$CellContext`c, -1 + $CellContext`n] - (66 $CellContext`n^3) Subscript[$CellContext`c, -1 + $CellContext`n] + (24 $CellContext`n^4) Subscript[$CellContext`c, -1 + $CellContext`n] + ( Rational[-9, 2] $CellContext`n^4) Subscript[$CellContext`c, $CellContext`n], ( 69120 (-22 + 4 $CellContext`n)) Subscript[$CellContext`a, -8 + $CellContext`n] - ( 3456 (-1040 + 244 $CellContext`n)) Subscript[$CellContext`a, -7 + $CellContext`n] - 1829952 Subscript[$CellContext`a, -6 + $CellContext`n] + (620928 $CellContext`n) Subscript[$CellContext`a, -6 + $CellContext`n] - 337184 Subscript[$CellContext`a, -5 + $CellContext`n] + (96608 $CellContext`n) Subscript[$CellContext`a, -5 + $CellContext`n] + 184048 Subscript[$CellContext`a, -4 + $CellContext`n] - ( 93584 $CellContext`n) Subscript[$CellContext`a, -4 + $CellContext`n] + 12768 Subscript[$CellContext`a, -3 + $CellContext`n] - ( 5816 $CellContext`n) Subscript[$CellContext`a, -3 + $CellContext`n] - 3764 Subscript[$CellContext`a, -2 + $CellContext`n] + ( 3932 $CellContext`n) Subscript[$CellContext`a, -2 + $CellContext`n] - 132 Subscript[$CellContext`a, -1 + $CellContext`n] + (192 $CellContext`n) Subscript[$CellContext`a, -1 + $CellContext`n] - (36 $CellContext`n) Subscript[$CellContext`a, $CellContext`n] + ( 69120 (179 - 66 $CellContext`n + 6 $CellContext`n^2)) Subscript[$CellContext`b, -8 + $CellContext`n] - ( 3456 (6389 - 3120 $CellContext`n + 366 $CellContext`n^2)) Subscript[$CellContext`b, -7 + $CellContext`n] + 7180128 Subscript[$CellContext`b, -6 + $CellContext`n] - ( 5489856 $CellContext`n) Subscript[$CellContext`b, -6 + $CellContext`n] + (931392 $CellContext`n^2) Subscript[$CellContext`b, -6 + $CellContext`n] + 1709320 Subscript[$CellContext`b, -5 + $CellContext`n] - ( 1011552 $CellContext`n) Subscript[$CellContext`b, -5 + $CellContext`n] + (144912 $CellContext`n^2) Subscript[$CellContext`b, -5 + $CellContext`n] - 514780 Subscript[$CellContext`b, -4 + $CellContext`n] + (552144 $CellContext`n) Subscript[$CellContext`b, -4 + $CellContext`n] - ( 140376 $CellContext`n^2) Subscript[$CellContext`b, -4 + $CellContext`n] - 41646 Subscript[$CellContext`b, -3 + $CellContext`n] + ( 38304 $CellContext`n) Subscript[$CellContext`b, -3 + $CellContext`n] - ( 8724 $CellContext`n^2) Subscript[$CellContext`b, -3 + $CellContext`n] + 5909 Subscript[$CellContext`b, -2 + $CellContext`n] - ( 11292 $CellContext`n) Subscript[$CellContext`b, -2 + $CellContext`n] + (5898 $CellContext`n^2) Subscript[$CellContext`b, -2 + $CellContext`n] + 147 Subscript[$CellContext`b, -1 + $CellContext`n] - (396 $CellContext`n) Subscript[$CellContext`b, -1 + $CellContext`n] + (288 $CellContext`n^2) Subscript[$CellContext`b, -1 + $CellContext`n] - (54 $CellContext`n^2) Subscript[$CellContext`b, $CellContext`n] + ( 34560 (-638 + 358 $CellContext`n - 66 $CellContext`n^2 + 4 $CellContext`n^3)) Subscript[$CellContext`c, -8 + $CellContext`n] - ( 1728 (-16570 + 12778 $CellContext`n - 3120 $CellContext`n^2 + 244 $CellContext`n^3)) Subscript[$CellContext`c, -7 + $CellContext`n] - 5137344 Subscript[$CellContext`c, -6 + $CellContext`n] + ( 7180128 $CellContext`n) Subscript[$CellContext`c, -6 + $CellContext`n] - ( 2744928 $CellContext`n^2) Subscript[$CellContext`c, -6 + $CellContext`n] + (310464 $CellContext`n^3) Subscript[$CellContext`c, -6 + $CellContext`n] - 1857056 Subscript[$CellContext`c, -5 + $CellContext`n] + (1709320 $CellContext`n) Subscript[$CellContext`c, -5 + $CellContext`n] - ( 505776 $CellContext`n^2) Subscript[$CellContext`c, -5 + $CellContext`n] + (48304 $CellContext`n^3) Subscript[$CellContext`c, -5 + $CellContext`n] + 296680 Subscript[$CellContext`c, -4 + $CellContext`n] - ( 514780 $CellContext`n) Subscript[$CellContext`c, -4 + $CellContext`n] + (276072 $CellContext`n^2) Subscript[$CellContext`c, -4 + $CellContext`n] - ( 46792 $CellContext`n^3) Subscript[$CellContext`c, -4 + $CellContext`n] + 30294 Subscript[$CellContext`c, -3 + $CellContext`n] - ( 41646 $CellContext`n) Subscript[$CellContext`c, -3 + $CellContext`n] + (19152 $CellContext`n^2) Subscript[$CellContext`c, -3 + $CellContext`n] - (2908 $CellContext`n^3) Subscript[$CellContext`c, -3 + $CellContext`n] - 2196 Subscript[$CellContext`c, -2 + $CellContext`n] + (5909 $CellContext`n) Subscript[$CellContext`c, -2 + $CellContext`n] - (5646 $CellContext`n^2) Subscript[$CellContext`c, -2 + $CellContext`n] + (1966 $CellContext`n^3) Subscript[$CellContext`c, -2 + $CellContext`n] + Rational[-81, 2] Subscript[$CellContext`c, -1 + $CellContext`n] + (147 $CellContext`n) Subscript[$CellContext`c, -1 + $CellContext`n] - (198 $CellContext`n^2) Subscript[$CellContext`c, -1 + $CellContext`n] + (96 $CellContext`n^3) Subscript[$CellContext`c, -1 + $CellContext`n] - (18 $CellContext`n^3) Subscript[$CellContext`c, $CellContext`n] + ( 11520 (840 - 638 $CellContext`n + 179 $CellContext`n^2 - 22 $CellContext`n^3 + $CellContext`n^4)) Subscript[$CellContext`d, -8 + $CellContext`n] - ( 576 (15000 - 16570 $CellContext`n + 6389 $CellContext`n^2 - 1040 $CellContext`n^3 + 61 $CellContext`n^4)) Subscript[$CellContext`d, -7 + $CellContext`n] + 599040 Subscript[$CellContext`d, -6 + $CellContext`n] - ( 1712448 $CellContext`n) Subscript[$CellContext`d, -6 + $CellContext`n] + ( 1196688 $CellContext`n^2) Subscript[$CellContext`d, -6 + $CellContext`n] - ( 304992 $CellContext`n^3) Subscript[$CellContext`d, -6 + $CellContext`n] + (25872 $CellContext`n^4) Subscript[$CellContext`d, -6 + $CellContext`n] + 484032 Subscript[$CellContext`d, -5 + $CellContext`n] + ( Rational[-1857056, 3] $CellContext`n) Subscript[$CellContext`d, -5 + $CellContext`n] + ( Rational[854660, 3] $CellContext`n^2) Subscript[$CellContext`d, -5 + $CellContext`n] + ( Rational[-168592, 3] $CellContext`n^3) Subscript[$CellContext`d, -5 + $CellContext`n] + ( Rational[12076, 3] $CellContext`n^4) Subscript[$CellContext`d, -5 + $CellContext`n] - 37232 Subscript[$CellContext`d, -4 + $CellContext`n] + ( Rational[296680, 3] $CellContext`n) Subscript[$CellContext`d, -4 + $CellContext`n] + ( Rational[-257390, 3] $CellContext`n^2) Subscript[$CellContext`d, -4 + $CellContext`n] + ( Rational[92024, 3] $CellContext`n^3) Subscript[$CellContext`d, -4 + $CellContext`n] + ( Rational[-11698, 3] $CellContext`n^4) Subscript[$CellContext`d, -4 + $CellContext`n] - 5580 Subscript[$CellContext`d, -3 + $CellContext`n] + (10098 $CellContext`n) Subscript[$CellContext`d, -3 + $CellContext`n] - (6941 $CellContext`n^2) Subscript[$CellContext`d, -3 + $CellContext`n] + (2128 $CellContext`n^3) Subscript[$CellContext`d, -3 + $CellContext`n] + ( Rational[-727, 3] $CellContext`n^4) Subscript[$CellContext`d, -3 + $CellContext`n] + 210 Subscript[$CellContext`d, -2 + $CellContext`n] - (732 $CellContext`n) Subscript[$CellContext`d, -2 + $CellContext`n] + ( Rational[5909, 6] $CellContext`n^2) Subscript[$CellContext`d, -2 + $CellContext`n] + ( Rational[-1882, 3] $CellContext`n^3) Subscript[$CellContext`d, -2 + $CellContext`n] + ( Rational[983, 6] $CellContext`n^4) Subscript[$CellContext`d, -2 + $CellContext`n] + 3 Subscript[$CellContext`d, -1 + $CellContext`n] + ( Rational[-27, 2] $CellContext`n) Subscript[$CellContext`d, -1 + $CellContext`n] + ( Rational[49, 2] $CellContext`n^2) Subscript[$CellContext`d, -1 + $CellContext`n] - (22 $CellContext`n^3) Subscript[$CellContext`d, -1 + $CellContext`n] + (8 $CellContext`n^4) Subscript[$CellContext`d, -1 + $CellContext`n] + ( Rational[-3, 2] $CellContext`n^4) Subscript[$CellContext`d, $CellContext`n]}, 0, 4, 1], Editable->False]], "Output", CellChangeTimes->{3.684020265732872*^9, 3.684020323570488*^9, 3.684020358654235*^9, 3.684021081030655*^9, 3.684021118163168*^9, 3.6840235354319057`*^9, 3.684025806657263*^9, 3.6840320506910067`*^9},ExpressionUUID->"dd1b88bf-783a-4cbc-a0d4-\ f62d214c2524"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"reclist", "=", "\[IndentingNewLine]", RowBox[{"Collect", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", "\[IndentingNewLine]", RowBox[{"CoefficientList", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Normal", "[", RowBox[{"recurrence", "/.", 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"]}]}], " ", "}"}]}], "]"}], ",", "\[IndentingNewLine]", " ", "\[Epsilon]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ SubscriptBox["a", RowBox[{"n", "-", "k"}]], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "8"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["b", RowBox[{"n", "-", "k"}]], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "8"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["c", RowBox[{"n", "-", "k"}]], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "8"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["d", RowBox[{"n", "-", "k"}]], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "8"}], "}"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", " ", "Factor"}], "]"}]}], ";"}]], "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.684021167315227*^9, 3.68402120579753*^9}, { 3.684021238329726*^9, 3.684021305592092*^9}, {3.684022394634728*^9, 3.684022535905566*^9}, {3.684023150024365*^9, 3.684023152237027*^9}, 3.6840235640497828`*^9, 3.684023604834915*^9, {3.6840239191865673`*^9, 3.684023934629755*^9}, {3.726395154892868*^9, 3.726395166212124*^9}, { 3.7263953009525146`*^9, 3.726395302445177*^9}},ExpressionUUID->"6e5181cf-c33c-4ad4-9a09-\ 9dcd94d11b08"], Cell[BoxData[ RowBox[{"Length", "[", "reclist", "]"}]], "Input", CellChangeTimes->{{3.7263953069102383`*^9, 3.726395326790015*^9}},ExpressionUUID->"d1b7b47e-43c5-4401-9417-\ e0647c2ba0c8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"reclist", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]], "Input", CellChangeTimes->{{3.726395362443277*^9, 3.726395376511627*^9}},ExpressionUUID->"66dc087c-d926-4d17-af78-\ 53c876ff7278"], Cell[BoxData[ RowBox[{ RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"9", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", "n"]}]}]], "Output", CellChangeTimes->{ 3.726395379340487*^9},ExpressionUUID->"7867782a-f449-4022-9a6b-\ 0fc5db22aea4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"reclist", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]], "Input", CellChangeTimes->{{3.726395362443277*^9, 3.726395376511627*^9}, 3.726395408243491*^9},ExpressionUUID->"3b270c3b-9436-4939-9454-\ 70627c7453b5"], Cell[BoxData[ RowBox[{ RowBox[{"138240", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"29", "-", RowBox[{"11", " ", "n"}], "+", SuperscriptBox["n", "2"]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"6912", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8285"}], "+", RowBox[{"6389", " ", "n"}], "-", RowBox[{"1560", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"122", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"576", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "17838"}], "+", RowBox[{"24931", " ", "n"}], "-", RowBox[{"9531", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1078", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "232132"}], "+", RowBox[{"213665", " ", "n"}], "-", RowBox[{"63222", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6038", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "74170"}], "+", RowBox[{"128695", " ", "n"}], "-", RowBox[{"69018", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"11698", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15147"}], "+", RowBox[{"20823", " ", "n"}], "-", RowBox[{"9576", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2196"}], "+", RowBox[{"5909", " ", "n"}], "-", RowBox[{"5646", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1966", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"98", " ", "n"}], "-", RowBox[{"132", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"36", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"9", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["b", "n"]}]}]], "Output", CellChangeTimes->{ 3.726395409926641*^9},ExpressionUUID->"873760f6-94b4-4beb-ae6b-\ 65d18d0e5eb1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"reclist", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]], "Input", CellChangeTimes->{{3.726395362443277*^9, 3.726395376511627*^9}, 3.726395431863524*^9},ExpressionUUID->"a58add0f-d0fa-4a2a-b892-\ c60620a4c03f"], Cell[BoxData[ RowBox[{ RowBox[{"69120", " ", RowBox[{"(", RowBox[{"179", "-", RowBox[{"66", " ", "n"}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{"6389", "-", RowBox[{"3120", " ", "n"}], "+", RowBox[{"366", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{"24931", "-", RowBox[{"19062", " ", "n"}], "+", RowBox[{"3234", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{"213665", "-", RowBox[{"126444", " ", "n"}], "+", RowBox[{"18114", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"128695", "-", RowBox[{"138036", " ", "n"}], "+", RowBox[{"35094", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"6", " ", RowBox[{"(", RowBox[{"6941", "-", RowBox[{"6384", " ", "n"}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"5909", "-", RowBox[{"11292", " ", "n"}], "+", RowBox[{"5898", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{"49", "-", RowBox[{"132", " ", "n"}], "+", RowBox[{"96", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"54", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"138240", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"29", "-", RowBox[{"11", " ", "n"}], "+", SuperscriptBox["n", "2"]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"6912", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8285"}], "+", RowBox[{"6389", " ", "n"}], "-", RowBox[{"1560", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"122", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"576", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "17838"}], "+", RowBox[{"24931", " ", "n"}], "-", RowBox[{"9531", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1078", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "232132"}], "+", RowBox[{"213665", " ", "n"}], "-", RowBox[{"63222", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6038", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "74170"}], "+", RowBox[{"128695", " ", "n"}], "-", RowBox[{"69018", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"11698", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15147"}], "+", RowBox[{"20823", " ", "n"}], "-", RowBox[{"9576", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2196"}], "+", RowBox[{"5909", " ", "n"}], "-", RowBox[{"5646", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1966", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"98", " ", "n"}], "-", RowBox[{"132", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"36", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", "n"]}], "+", RowBox[{"34560", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"1728", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"144", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "16740"}], "+", RowBox[{"30294", " ", "n"}], "-", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "-", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["3", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", FractionBox[ RowBox[{"9", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["c", "n"]}], "2"]}]], "Output", CellChangeTimes->{ 3.7263954336183577`*^9},ExpressionUUID->"8dee1b8f-a4df-467a-953a-\ d6f78517612c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"reclist", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]], "Input", CellChangeTimes->{{3.726395362443277*^9, 3.726395376511627*^9}, 3.7263954569050293`*^9},ExpressionUUID->"c63219db-6fc3-4fa5-a359-\ 2789a871e91f"], Cell[BoxData[ RowBox[{ RowBox[{"138240", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"13824", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "260"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"576", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3177"}], "+", RowBox[{"1078", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"32", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "10537"}], "+", RowBox[{"3019", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11503"}], "+", RowBox[{"5849", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1596"}], "+", RowBox[{"727", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "941"}], "+", RowBox[{"983", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"16", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"36", " ", "n", " ", SubscriptBox["a", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{"179", "-", RowBox[{"66", " ", "n"}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{"6389", "-", RowBox[{"3120", " ", "n"}], "+", RowBox[{"366", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{"24931", "-", RowBox[{"19062", " ", "n"}], "+", RowBox[{"3234", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{"213665", "-", RowBox[{"126444", " ", "n"}], "+", RowBox[{"18114", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"128695", "-", RowBox[{"138036", " ", "n"}], "+", RowBox[{"35094", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"6", " ", RowBox[{"(", RowBox[{"6941", "-", RowBox[{"6384", " ", "n"}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"5909", "-", RowBox[{"11292", " ", "n"}], "+", RowBox[{"5898", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{"49", "-", RowBox[{"132", " ", "n"}], "+", RowBox[{"96", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"54", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"29", "-", RowBox[{"11", " ", "n"}], "+", SuperscriptBox["n", "2"]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8285"}], "+", RowBox[{"6389", " ", "n"}], "-", RowBox[{"1560", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"122", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "17838"}], "+", RowBox[{"24931", " ", "n"}], "-", RowBox[{"9531", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1078", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "232132"}], "+", RowBox[{"213665", " ", "n"}], "-", RowBox[{"63222", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6038", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "74170"}], "+", RowBox[{"128695", " ", "n"}], "-", RowBox[{"69018", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"11698", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15147"}], "+", RowBox[{"20823", " ", "n"}], "-", RowBox[{"9576", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2196"}], "+", RowBox[{"5909", " ", "n"}], "-", RowBox[{"5646", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1966", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["3", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"98", " ", "n"}], "-", RowBox[{"132", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"18", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", "n"]}], "+", RowBox[{"11520", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"576", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"48", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["4", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{ FractionBox["2", "3"], " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "16740"}], "+", RowBox[{"30294", " ", "n"}], "-", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "-", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", FractionBox[ RowBox[{"3", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["d", "n"]}], "2"]}]], "Output", CellChangeTimes->{ 3.726395458695956*^9},ExpressionUUID->"f893b390-97b0-4b8d-a30b-\ dc869584a6aa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rhslist", "=", "\[IndentingNewLine]", RowBox[{"Collect", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Times", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "2", ",", "6"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"CoefficientList", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Normal", "[", RowBox[{"recurrence", "/.", 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"]}]}], " ", "}"}]}], "]"}], ",", "\[IndentingNewLine]", " ", "\[Epsilon]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ SubscriptBox["a", RowBox[{"n", "-", "k"}]], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "8"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["b", RowBox[{"n", "-", "k"}]], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "8"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["c", RowBox[{"n", "-", "k"}]], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "8"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["d", RowBox[{"n", "-", "k"}]], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "8"}], "}"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", " ", "Factor"}], "]"}]}]], "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.684021167315227*^9, 3.68402120579753*^9}, { 3.684021238329726*^9, 3.684021305592092*^9}, {3.684022394634728*^9, 3.684022535905566*^9}, {3.684023150024365*^9, 3.684023152237027*^9}, 3.6840235640497828`*^9, 3.684023604834915*^9, {3.6840239191865673`*^9, 3.684023934629755*^9}, {3.6840242007030363`*^9, 3.6840242145241117`*^9}, { 3.684024322448361*^9, 3.6840243815742598`*^9}, 3.684024430170298*^9, { 3.684024673621798*^9, 3.684024679380392*^9}, {3.684024716932494*^9, 3.6840247255766563`*^9}, 3.684024781608074*^9},ExpressionUUID->"5ceb48bd-e4b9-4aa9-b6d1-\ 9be45e9656f2"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"9", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["a", "n"]}]}], ",", RowBox[{ RowBox[{"138240", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"29", "-", RowBox[{"11", " ", "n"}], "+", SuperscriptBox["n", "2"]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"6912", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8285"}], "+", RowBox[{"6389", " ", "n"}], "-", RowBox[{"1560", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"122", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"576", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "17838"}], "+", RowBox[{"24931", " ", "n"}], "-", RowBox[{"9531", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1078", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "232132"}], "+", RowBox[{"213665", " ", "n"}], "-", RowBox[{"63222", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6038", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "74170"}], "+", RowBox[{"128695", " ", "n"}], "-", RowBox[{"69018", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"11698", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15147"}], "+", RowBox[{"20823", " ", "n"}], "-", RowBox[{"9576", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2196"}], "+", RowBox[{"5909", " ", "n"}], "-", RowBox[{"5646", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1966", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"98", " ", "n"}], "-", RowBox[{"132", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"36", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"9", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["b", "n"]}]}], ",", RowBox[{ RowBox[{"138240", " ", RowBox[{"(", RowBox[{"179", "-", RowBox[{"66", " ", "n"}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"6912", " ", RowBox[{"(", RowBox[{"6389", "-", RowBox[{"3120", " ", "n"}], "+", RowBox[{"366", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"576", " ", RowBox[{"(", RowBox[{"24931", "-", RowBox[{"19062", " ", "n"}], "+", RowBox[{"3234", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"16", " ", RowBox[{"(", RowBox[{"213665", "-", RowBox[{"126444", " ", "n"}], "+", RowBox[{"18114", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{"128695", "-", RowBox[{"138036", " ", "n"}], "+", RowBox[{"35094", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"12", " ", RowBox[{"(", RowBox[{"6941", "-", RowBox[{"6384", " ", "n"}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"5909", "-", RowBox[{"11292", " ", "n"}], "+", RowBox[{"5898", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"6", " ", RowBox[{"(", RowBox[{"49", "-", RowBox[{"132", " ", "n"}], "+", RowBox[{"96", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"108", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"276480", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"29", "-", RowBox[{"11", " ", "n"}], "+", SuperscriptBox["n", "2"]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"13824", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8285"}], "+", RowBox[{"6389", " ", "n"}], "-", RowBox[{"1560", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"122", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"1152", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "17838"}], "+", RowBox[{"24931", " ", "n"}], "-", RowBox[{"9531", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1078", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"32", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "232132"}], "+", RowBox[{"213665", " ", "n"}], "-", RowBox[{"63222", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6038", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "74170"}], "+", RowBox[{"128695", " ", "n"}], "-", RowBox[{"69018", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"11698", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15147"}], "+", RowBox[{"20823", " ", "n"}], "-", RowBox[{"9576", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2196"}], "+", RowBox[{"5909", " ", "n"}], "-", RowBox[{"5646", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1966", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"98", " ", "n"}], "-", RowBox[{"132", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"72", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"9", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["c", "n"]}]}], ",", RowBox[{ RowBox[{"829440", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"82944", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "260"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3177"}], "+", RowBox[{"1078", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"192", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "10537"}], "+", RowBox[{"3019", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"96", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11503"}], "+", RowBox[{"5849", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"48", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1596"}], "+", RowBox[{"727", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"24", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "941"}], "+", RowBox[{"983", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"72", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"16", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"216", " ", "n", " ", SubscriptBox["a", "n"]}], "+", RowBox[{"414720", " ", RowBox[{"(", RowBox[{"179", "-", RowBox[{"66", " ", "n"}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"20736", " ", RowBox[{"(", RowBox[{"6389", "-", RowBox[{"3120", " ", "n"}], "+", RowBox[{"366", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"1728", " ", RowBox[{"(", RowBox[{"24931", "-", RowBox[{"19062", " ", "n"}], "+", RowBox[{"3234", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"48", " ", RowBox[{"(", RowBox[{"213665", "-", RowBox[{"126444", " ", "n"}], "+", RowBox[{"18114", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"24", " ", RowBox[{"(", RowBox[{"128695", "-", RowBox[{"138036", " ", "n"}], "+", RowBox[{"35094", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"36", " ", RowBox[{"(", RowBox[{"6941", "-", RowBox[{"6384", " ", "n"}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"6", " ", RowBox[{"(", RowBox[{"5909", "-", RowBox[{"11292", " ", "n"}], "+", RowBox[{"5898", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"18", " ", RowBox[{"(", RowBox[{"49", "-", RowBox[{"132", " ", "n"}], "+", RowBox[{"96", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"324", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", "n"]}], "+", RowBox[{"414720", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"29", "-", RowBox[{"11", " ", "n"}], "+", SuperscriptBox["n", "2"]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"20736", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8285"}], "+", RowBox[{"6389", " ", "n"}], "-", RowBox[{"1560", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"122", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"1728", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "17838"}], "+", RowBox[{"24931", " ", "n"}], "-", RowBox[{"9531", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1078", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"48", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "232132"}], "+", RowBox[{"213665", " ", "n"}], "-", RowBox[{"63222", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6038", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"24", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "74170"}], "+", RowBox[{"128695", " ", "n"}], "-", RowBox[{"69018", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"11698", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15147"}], "+", RowBox[{"20823", " ", "n"}], "-", RowBox[{"9576", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2196"}], "+", RowBox[{"5909", " ", "n"}], "-", RowBox[{"5646", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1966", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"9", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"98", " ", "n"}], "-", RowBox[{"132", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"108", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"9", " ", SuperscriptBox["n", "4"], " ", SubscriptBox["d", "n"]}]}]}], "}"}]], "Output", CellChangeTimes->{ 3.684021265482071*^9, 3.68402130971574*^9, 3.684022537495199*^9, 3.6840231551512814`*^9, {3.684023598703491*^9, 3.684023611762216*^9}, 3.684023941395795*^9, 3.684024446206949*^9, 3.684024690523614*^9, 3.6840247323735733`*^9, 3.6840247840396748`*^9, 3.6840258447502813`*^9, 3.6840325013452673`*^9},ExpressionUUID->"a30931e4-bad1-4cda-9954-\ 17d49362ab5a"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["a", "0"], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["a", "n_"], ":=", RowBox[{"0", "/;", RowBox[{"n", "<", "0"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["b", "n_"], ":=", RowBox[{"0", "/;", RowBox[{"n", "<", "1"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["c", "n_"], ":=", RowBox[{"0", "/;", RowBox[{"n", "<", "1"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["d", "n_"], ":=", RowBox[{"0", "/;", RowBox[{"n", "<", "1"}]}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["a", "n_"], ":=", RowBox[{ SubscriptBox["a", "n"], "=", RowBox[{ FractionBox["1", RowBox[{"9", SuperscriptBox["n", "4"]}]], RowBox[{"(", RowBox[{ RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}]}], ")"}]}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["b", "n_"], ":=", RowBox[{ SubscriptBox["b", "n"], "=", RowBox[{ FractionBox["1", RowBox[{"9", SuperscriptBox["n", "4"]}]], RowBox[{"(", RowBox[{ RowBox[{"138240", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"29", "-", RowBox[{"11", " ", "n"}], "+", SuperscriptBox["n", "2"]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"6912", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8285"}], "+", RowBox[{"6389", " ", "n"}], "-", RowBox[{"1560", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"122", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"576", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "17838"}], "+", RowBox[{"24931", " ", "n"}], "-", RowBox[{"9531", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1078", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "232132"}], "+", RowBox[{"213665", " ", "n"}], "-", RowBox[{"63222", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6038", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "74170"}], "+", RowBox[{"128695", " ", "n"}], "-", RowBox[{"69018", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"11698", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15147"}], "+", RowBox[{"20823", " ", "n"}], "-", RowBox[{"9576", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2196"}], "+", RowBox[{"5909", " ", "n"}], "-", RowBox[{"5646", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1966", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"98", " ", "n"}], "-", RowBox[{"132", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"36", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}]}], ")"}]}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["c", "n_"], ":=", RowBox[{ SubscriptBox["c", "n"], "=", RowBox[{ FractionBox["1", RowBox[{"9", SuperscriptBox["n", "4"]}]], RowBox[{"(", RowBox[{ RowBox[{"138240", " ", RowBox[{"(", RowBox[{"179", "-", RowBox[{"66", " ", "n"}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"6912", " ", RowBox[{"(", RowBox[{"6389", "-", RowBox[{"3120", " ", "n"}], "+", RowBox[{"366", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"576", " ", RowBox[{"(", RowBox[{"24931", "-", RowBox[{"19062", " ", "n"}], "+", RowBox[{"3234", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"16", " ", RowBox[{"(", RowBox[{"213665", "-", RowBox[{"126444", " ", "n"}], "+", RowBox[{"18114", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{"128695", "-", RowBox[{"138036", " ", "n"}], "+", RowBox[{"35094", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"12", " ", RowBox[{"(", RowBox[{"6941", "-", RowBox[{"6384", " ", "n"}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"5909", "-", RowBox[{"11292", " ", "n"}], "+", RowBox[{"5898", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"6", " ", RowBox[{"(", RowBox[{"49", "-", RowBox[{"132", " ", "n"}], "+", RowBox[{"96", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"108", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["a", "n"]}], "+", RowBox[{"276480", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"29", "-", RowBox[{"11", " ", "n"}], "+", SuperscriptBox["n", "2"]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"13824", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8285"}], "+", RowBox[{"6389", " ", "n"}], "-", RowBox[{"1560", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"122", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"1152", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "17838"}], "+", RowBox[{"24931", " ", "n"}], "-", RowBox[{"9531", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1078", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"32", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "232132"}], "+", RowBox[{"213665", " ", "n"}], "-", RowBox[{"63222", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6038", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "74170"}], "+", RowBox[{"128695", " ", "n"}], "-", RowBox[{"69018", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"11698", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15147"}], "+", RowBox[{"20823", " ", "n"}], "-", RowBox[{"9576", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2196"}], "+", RowBox[{"5909", " ", "n"}], "-", RowBox[{"5646", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1966", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"98", " ", "n"}], "-", RowBox[{"132", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"72", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["b", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}]}], ")"}]}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ SubscriptBox["d", "n_"], ":=", RowBox[{ SubscriptBox["d", "n"], "=", RowBox[{ FractionBox["1", RowBox[{"9", SuperscriptBox["n", "4"]}]], RowBox[{"(", RowBox[{ RowBox[{"829440", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"82944", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "260"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3177"}], "+", RowBox[{"1078", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"192", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "10537"}], "+", RowBox[{"3019", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"96", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11503"}], "+", RowBox[{"5849", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"48", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1596"}], "+", RowBox[{"727", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"24", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "941"}], "+", RowBox[{"983", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"72", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"16", " ", "n"}]}], ")"}], " ", SubscriptBox["a", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"216", " ", "n", " ", SubscriptBox["a", "n"]}], "+", RowBox[{"414720", " ", RowBox[{"(", RowBox[{"179", "-", RowBox[{"66", " ", "n"}], "+", RowBox[{"6", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"20736", " ", RowBox[{"(", RowBox[{"6389", "-", RowBox[{"3120", " ", "n"}], "+", RowBox[{"366", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"1728", " ", RowBox[{"(", RowBox[{"24931", "-", RowBox[{"19062", " ", "n"}], "+", RowBox[{"3234", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"48", " ", RowBox[{"(", RowBox[{"213665", "-", RowBox[{"126444", " ", "n"}], "+", RowBox[{"18114", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"24", " ", RowBox[{"(", RowBox[{"128695", "-", RowBox[{"138036", " ", "n"}], "+", RowBox[{"35094", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"36", " ", RowBox[{"(", RowBox[{"6941", "-", RowBox[{"6384", " ", "n"}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"6", " ", RowBox[{"(", RowBox[{"5909", "-", RowBox[{"11292", " ", "n"}], "+", RowBox[{"5898", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"18", " ", RowBox[{"(", RowBox[{"49", "-", RowBox[{"132", " ", "n"}], "+", RowBox[{"96", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["b", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"324", " ", SuperscriptBox["n", "2"], " ", SubscriptBox["b", "n"]}], "+", RowBox[{"414720", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", RowBox[{"2", " ", "n"}]}], ")"}], " ", RowBox[{"(", RowBox[{"29", "-", RowBox[{"11", " ", "n"}], "+", SuperscriptBox["n", "2"]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"20736", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8285"}], "+", RowBox[{"6389", " ", "n"}], "-", RowBox[{"1560", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"122", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"1728", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "17838"}], "+", RowBox[{"24931", " ", "n"}], "-", RowBox[{"9531", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1078", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"48", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "232132"}], "+", RowBox[{"213665", " ", "n"}], "-", RowBox[{"63222", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"6038", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"24", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "74170"}], "+", RowBox[{"128695", " ", "n"}], "-", RowBox[{"69018", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"11698", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15147"}], "+", RowBox[{"20823", " ", "n"}], "-", RowBox[{"9576", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1454", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2196"}], "+", RowBox[{"5909", " ", "n"}], "-", RowBox[{"5646", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"1966", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"9", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"98", " ", "n"}], "-", RowBox[{"132", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"64", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}], "-", RowBox[{"108", " ", SuperscriptBox["n", "3"], " ", SubscriptBox["c", "n"]}], "+", RowBox[{"69120", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "7"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "8"}], "+", "n"}]]}], "-", RowBox[{"3456", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "125"}], "+", RowBox[{"61", " ", "n"}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "7"}], "+", "n"}]]}], "+", RowBox[{"288", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"624", "-", RowBox[{"1503", " ", "n"}], "+", RowBox[{"539", " ", SuperscriptBox["n", "2"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "6"}], "+", "n"}]]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "90756"}], "+", RowBox[{"93377", " ", "n"}], "-", RowBox[{"30072", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"3019", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "5"}], "+", "n"}]]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"55848", "-", RowBox[{"148340", " ", "n"}], "+", RowBox[{"128695", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"46012", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"5849", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "4"}], "+", "n"}]]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"16740", "-", RowBox[{"30294", " ", "n"}], "+", RowBox[{"20823", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"6384", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"727", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "3"}], "+", "n"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1260", "-", RowBox[{"4392", " ", "n"}], "+", RowBox[{"5909", " ", SuperscriptBox["n", "2"]}], "-", RowBox[{"3764", " ", SuperscriptBox["n", "3"]}], "+", RowBox[{"983", " ", SuperscriptBox["n", "4"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "2"}], "+", "n"}]]}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"21", " ", "n"}], "-", RowBox[{"28", " ", SuperscriptBox["n", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["n", "3"]}]}], ")"}], " ", SubscriptBox["d", RowBox[{ RowBox[{"-", "1"}], "+", "n"}]]}]}], ")"}]}]}]}]}], "Input", CellChangeTimes->{{3.684025156959437*^9, 3.684025161127201*^9}, { 3.6840253900871363`*^9, 3.684025513699705*^9}, {3.684025863319063*^9, 3.684025910320849*^9}, {3.726395550017826*^9, 3.7263955779524393`*^9}},ExpressionUUID->"1bf73cdd-fadf-47d7-ad4d-\ 213ff7d644e1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ SubscriptBox["a", "n"], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "50"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.684025178904869*^9, 3.6840252044752483`*^9}, { 3.6840252808497343`*^9, 3.6840253030337877`*^9}, 3.684025529324394*^9, { 3.6840259374560633`*^9, 3.684025944816329*^9}},ExpressionUUID->"71ef0237-4d73-4bf6-8e62-\ a47f78473ab5"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "12", ",", "24", ",", "396", ",", "2160", ",", "23160", ",", "186480", ",", "1845900", ",", "17213280", ",", "171575712", ",", "1703560320", ",", "17365421304", ",", "178323713568", ",", "1856554560432", ",", "19487791106784", ",", "206411964321420", ",", "2201711191213248", ",", "23642813637773616", ",", "255355132936441824", ",", "2772650461148938656", ",", "30248675037382538880", ",", "331438542846964180992", ",", "3645985314663912489984", ",", "40253352687777620374776", ",", "445899348810135736176960", ",", "4954599887270237905852800", ",", "55210013720527863783880320", ",", "616845490089371010724497840", ",", "6908835039102833099223965760", ",", "77558935621320663634645169760", ",", "872555336075039351141820542400", ",", "9836256654406990510063112404620", ",", "111093683696857593088076506055040", ",", "1256964832153899565798063964625360", ",", "14245801154241460321451736436267680", ",", "161711184920698116201513043068894000", ",", "1838422802677352902944026880120269760", ",", "20929968050634158361809598843821082720", ",", "238604084297865887503634354739682226880", ",", "2723604302705399110711864482680203408800", ",", "31127182673212368692213826730815487238400", ",", "356155829380376900900913291081937387488000", ",", "4079634680295870734083713299360651118873600", ",", "46780149321943165896822459952777274423385600", ",", "536958394984483586022362225192235106645985280", ",", "6169348420937264128969792709201188166008089600", ",", "70947930272537334350509861861788754738180700160", ",", "816629740093680630102475274822880521200882128120", ",", "9407624323260315606435813085689677006965402097280", ",", "108464914912610947331756997308308146813500741423712"}], "}"}]], "Output", CellChangeTimes->{ 3.684025242193389*^9, {3.684025297470584*^9, 3.6840253050618467`*^9}, 3.684025524429891*^9, {3.684025939249164*^9, 3.684025946454121*^9}, 3.68403269358867*^9, 3.7263956709166117`*^9},ExpressionUUID->"282ca236-16c4-4689-851f-\ a8f9a75781e5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ SubscriptBox["\[Alpha]", "n"], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "50"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.684025953644902*^9, 3.6840259752371063`*^9}},ExpressionUUID->"0f59cf64-7f07-455b-ac3a-\ 4704a3e51edf"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "12", ",", "24", ",", "396", ",", "2160", ",", "23160", ",", "186480", ",", "1845900", ",", "17213280", ",", "171575712", ",", "1703560320", ",", "17365421304", ",", "178323713568", ",", "1856554560432", ",", "19487791106784", ",", "206411964321420", ",", "2201711191213248", ",", "23642813637773616", ",", "255355132936441824", ",", "2772650461148938656", ",", "30248675037382538880", ",", "331438542846964180992", ",", "3645985314663912489984", ",", "40253352687777620374776", ",", "445899348810135736176960", ",", "4954599887270237905852800", ",", "55210013720527863783880320", ",", "616845490089371010724497840", ",", "6908835039102833099223965760", ",", "77558935621320663634645169760", ",", "872555336075039351141820542400", ",", "9836256654406990510063112404620", ",", "111093683696857593088076506055040", ",", "1256964832153899565798063964625360", ",", "14245801154241460321451736436267680", ",", "161711184920698116201513043068894000", ",", "1838422802677352902944026880120269760", ",", "20929968050634158361809598843821082720", ",", "238604084297865887503634354739682226880", ",", "2723604302705399110711864482680203408800", ",", "31127182673212368692213826730815487238400", ",", "356155829380376900900913291081937387488000", ",", "4079634680295870734083713299360651118873600", ",", "46780149321943165896822459952777274423385600", ",", "536958394984483586022362225192235106645985280", ",", "6169348420937264128969792709201188166008089600", ",", "70947930272537334350509861861788754738180700160", ",", "816629740093680630102475274822880521200882128120", ",", "9407624323260315606435813085689677006965402097280", ",", "108464914912610947331756997308308146813500741423712"}], "}"}]], "Output", CellChangeTimes->{3.68402597737928*^9, 3.684032704401412*^9, 3.726395679492908*^9},ExpressionUUID->"977f94bc-aad5-45e9-a7b9-\ 0e908b9f0458"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "-", "%%"}]], "Input", CellChangeTimes->{{3.6840259858539248`*^9, 3.684025988121908*^9}},ExpressionUUID->"360cc9b3-721a-4d8d-851e-\ f1374169322b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.684025990343409*^9, 3.684032721256761*^9, 3.726395685435574*^9},ExpressionUUID->"4d3b68a5-5116-4d73-b9cd-\ 391188c45ea9"] }, Open ]], Cell[BoxData[ RowBox[{"Remove", "[", "\[CurlyPi]", "]"}]], "Input", CellChangeTimes->{{3.684033001991187*^9, 3.684033019988525*^9}, { 3.684033305532542*^9, 3.684033369744245*^9}},ExpressionUUID->"23ebc44c-c5dc-446c-9c34-\ 04df4457bd00"], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["f", "0"], "[", "nmax_", "]"}], ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["a", "n"], " ", SuperscriptBox["\[CurlyPhi]", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nmax"}], "}"}]}], "]"}], "+", SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], RowBox[{"nmax", "+", "1"}]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["f", "1"], "[", "nmax_", "]"}], ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["b", "n"], " ", SuperscriptBox["\[CurlyPhi]", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nmax"}], "}"}]}], "]"}], "+", SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], RowBox[{"nmax", "+", "1"}]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["f", "2"], "[", "nmax_", "]"}], ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["c", "n"], " ", SuperscriptBox["\[CurlyPhi]", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nmax"}], "}"}]}], "]"}], "+", SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], RowBox[{"nmax", "+", "1"}]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["f", "3"], "[", "nmax_", "]"}], ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["d", "n"], " ", SuperscriptBox["\[CurlyPhi]", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "nmax"}], "}"}]}], "]"}], "+", SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], RowBox[{"nmax", "+", "1"}]]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[CurlyPi]", "0"], "[", "nmax_", "]"}], ":=", RowBox[{ SubscriptBox["f", "0"], "[", "nmax", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[CurlyPi]", "1"], "[", "nmax_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["f", "0"], "[", "nmax", "]"}], RowBox[{"Log", "[", "\[CurlyPhi]", "]"}]}], "+", RowBox[{ SubscriptBox["f", "1"], "[", "nmax", "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[CurlyPi]", "2"], "[", "nmax_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["f", "0"], "[", "nmax", "]"}], SuperscriptBox[ RowBox[{"Log", "[", "\[CurlyPhi]", "]"}], "2"]}], "+", RowBox[{"2", RowBox[{ SubscriptBox["f", "1"], "[", "nmax", "]"}], " ", RowBox[{"Log", "[", "\[CurlyPhi]", "]"}]}], " ", "+", RowBox[{ SubscriptBox["f", "2"], "[", "nmax", "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[CurlyPi]", "3"], "[", "nmax_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["f", "0"], "[", "nmax", "]"}], SuperscriptBox[ RowBox[{"Log", "[", "\[CurlyPhi]", "]"}], "3"]}], "+", RowBox[{"3", RowBox[{ SubscriptBox["f", "1"], "[", "nmax", "]"}], " ", SuperscriptBox[ RowBox[{"Log", "[", "\[CurlyPhi]", "]"}], "2"]}], " ", "+", RowBox[{"3", RowBox[{ SubscriptBox["f", "2"], "[", "nmax", "]"}], RowBox[{"Log", "[", "\[CurlyPhi]", "]"}]}], "+", RowBox[{ SubscriptBox["f", "3"], "[", "nmax", "]"}]}]}]}], "Input", CellChangeTimes->{{3.684032837989438*^9, 3.684032996286806*^9}, { 3.684033026716599*^9, 3.684033239299047*^9}, {3.684033277691537*^9, 3.684033278835206*^9}},ExpressionUUID->"35c88b5a-8b20-4480-b7c8-\ 23e35c36c7e7"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[ScriptCapitalL]", "[", RowBox[{ SubscriptBox["\[CurlyPi]", "0"], "[", "100", "]"}], "]"}]], "Input", CellChangeTimes->{{3.684033401271699*^9, 3.68403344238348*^9}, { 3.726395724975881*^9, 3.726395725761677*^9}},ExpressionUUID->"2b63e34f-6eee-4ca1-8851-\ a5c83774ee31"], Cell[BoxData[ InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], "101"], SeriesData[$CellContext`\[CurlyPhi], 0, {}, 101, 101, 1], Editable->False]], "Output", CellChangeTimes->{ 3.6840334461809397`*^9, {3.726395719756349*^9, 3.7263957281148787`*^9}},ExpressionUUID->"a4d7d952-4707-455e-8dfd-\ 14c91b7ff00b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[ScriptCapitalL]", "[", RowBox[{ SubscriptBox["\[CurlyPi]", "3"], "[", "100", "]"}], "]"}]], "Input", CellChangeTimes->{{3.684033401271699*^9, 3.684033460864447*^9}, { 3.7263957384859657`*^9, 3.7263957394331284`*^9}},ExpressionUUID->"e28740b5-1c2c-49bf-8e47-\ 7a82a7e0ecc9"], Cell[BoxData[ InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "\[CurlyPhi]", "]"}], "101"], SeriesData[$CellContext`\[CurlyPhi], 0, {}, 101, 101, 1], Editable->False]], "Output", CellChangeTimes->{3.68403346795474*^9, 3.726395745324848*^9},ExpressionUUID->"6548b101-6098-47a0-b3f9-\ f5113355b7c0"] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1680, 590}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \ 10, 2017)", StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Info283726339474-6760535"->{ Cell[16624, 582, 569, 13, 58, "Print",ExpressionUUID->"43fd55c1-de44-4214-a651-8885e6be82ff", CellTags->"Info283726339474-6760535"]}, "Info153684057461-6161495"->{ Cell[398288, 8687, 721, 16, 58, "Print",ExpressionUUID->"0b08efc9-7ad1-43d0-b35c-266f50313b7d", CellTags->"Info153684057461-6161495"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Info283726339474-6760535", 697676, 17373}, {"Info153684057461-6161495", 697846, 17376} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 218, 4, 86, "Chapter",ExpressionUUID->"56e80fe5-ce6c-41d1-b66a-0fb700393263"], Cell[CellGroupData[{ Cell[823, 30, 318, 5, 81, "Subchapter",ExpressionUUID->"9c021936-8713-467e-ba24-bab0ac8f2d19"], Cell[CellGroupData[{ Cell[1166, 39, 256, 4, 42, "Subsection",ExpressionUUID->"8b47b09a-2828-4b38-a1af-c65bb4cc607d"], Cell[CellGroupData[{ Cell[1447, 47, 420, 11, 51, "Input",ExpressionUUID->"e725b2dc-6034-4c54-bd2b-a7966a93bccb"], Cell[1870, 60, 257, 6, 51, "Output",ExpressionUUID->"eb22d96b-8184-4bb1-a9a4-d2aa1177ad93"] }, Open ]], Cell[CellGroupData[{ Cell[2164, 71, 370, 10, 51, "Input",ExpressionUUID->"8cae81b3-0181-4d6a-9c06-7492b45a3b4f"], Cell[2537, 83, 1037, 39, 51, "Output",ExpressionUUID->"9e52a5ce-de19-444e-b5a5-06b8c7692a41"] }, Open ]], Cell[CellGroupData[{ Cell[3611, 127, 186, 4, 51, "Input",ExpressionUUID->"47d3394d-44a1-49bb-b722-1c218f12bb8c"], Cell[3800, 133, 133, 3, 51, "Output",ExpressionUUID->"c1863746-c9c4-4ad1-8725-5737f305fe68"] }, Open ]], Cell[CellGroupData[{ Cell[3970, 141, 181, 4, 51, "Input",ExpressionUUID->"b2761d78-3dca-43c9-a768-033224d02b37"], Cell[4154, 147, 134, 3, 51, "Output",ExpressionUUID->"180dea7c-5a09-4551-b5ce-c24f20fe308e"] }, Open ]], Cell[CellGroupData[{ Cell[4325, 155, 182, 4, 51, "Input",ExpressionUUID->"b76aa6cd-14f7-49ff-86a8-969325f85660"], Cell[4510, 161, 159, 4, 51, "Output",ExpressionUUID->"3dcf28b3-baab-4b34-81a0-eaf693acc0f6"] }, Open ]], Cell[CellGroupData[{ Cell[4706, 170, 177, 4, 51, "Input",ExpressionUUID->"0e1c88f0-c366-48a2-afce-d9cb48a1e538"], Cell[4886, 176, 134, 3, 51, "Output",ExpressionUUID->"74e4856f-87c3-44c2-8007-1357edd91c4a"] }, Open ]], Cell[CellGroupData[{ Cell[5057, 184, 315, 9, 54, "Input",ExpressionUUID->"dde2347f-0f11-48c0-ae81-115d7e8eccc4"], Cell[5375, 195, 258, 6, 51, "Output",ExpressionUUID->"d210490e-94c4-4abf-804c-1ae57154041c"] }, Open ]], Cell[CellGroupData[{ Cell[5670, 206, 314, 7, 51, "Input",ExpressionUUID->"7d8aac7e-0e98-4ecb-8d8d-ed53aafbf386"], Cell[5987, 215, 176, 3, 51, "Output",ExpressionUUID->"ba44aed7-f9d4-4082-880c-e61cf60a876a"] }, Open ]], Cell[CellGroupData[{ Cell[6200, 223, 316, 7, 51, "Input",ExpressionUUID->"02d24d5f-f4fc-446a-9426-3f547c166055"], Cell[6519, 232, 178, 3, 51, "Output",ExpressionUUID->"f1907191-b980-44ae-b898-2ed90762dab0"] }, Open ]], Cell[CellGroupData[{ Cell[6734, 240, 195, 4, 51, "Input",ExpressionUUID->"a809bab6-622f-4097-9e32-91944a901caf"], Cell[6932, 246, 239, 5, 51, "Output",ExpressionUUID->"c754fc4b-ae06-41f3-baed-18df17f252e3"] }, Open ]], Cell[CellGroupData[{ Cell[7208, 256, 189, 4, 51, "Input",ExpressionUUID->"d24183f5-25c5-412d-9de2-16cabe21fb66"], Cell[7400, 262, 179, 3, 51, "Output",ExpressionUUID->"44baaf15-b05b-40b2-a64f-5c43bdc615e5"] }, Open ]], Cell[CellGroupData[{ Cell[7616, 270, 189, 4, 51, "Input",ExpressionUUID->"571e9a02-a4d6-499d-a577-3594fc75caae"], Cell[7808, 276, 192, 3, 51, "Output",ExpressionUUID->"76eb987d-3af5-4ce4-8193-46c9cd1a621e"] }, Open ]], Cell[CellGroupData[{ Cell[8037, 284, 189, 4, 51, "Input",ExpressionUUID->"38dc1a9c-3af8-44ef-8c9a-0c87b149eae5"], Cell[8229, 290, 423, 10, 51, "Output",ExpressionUUID->"8cb9724e-c7d0-42e4-a7e1-b2d6353e235d"] }, Open ]], Cell[CellGroupData[{ Cell[8689, 305, 196, 4, 51, "Input",ExpressionUUID->"a11a3471-a52d-4bc7-b508-cc9d912bb2b9"], Cell[8888, 311, 378, 9, 51, "Output",ExpressionUUID->"0a4447f2-5758-4e59-aee9-839a12d2e600"] }, Open ]], Cell[CellGroupData[{ Cell[9303, 325, 301, 7, 51, "Input",ExpressionUUID->"9ea1413e-ac93-47df-a087-8a94758c4b2b"], Cell[9607, 334, 803, 15, 51, "Output",ExpressionUUID->"cfcfe19d-6c8b-4d41-8670-66ca2c7b03b6"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[10459, 355, 172, 3, 41, "Subsection",ExpressionUUID->"e7f8e18f-e648-48ca-b3c5-8aea3c82cb5e"], Cell[CellGroupData[{ Cell[10656, 362, 218, 5, 51, "Input",ExpressionUUID->"57071f31-f78f-4022-b21d-24e45837092e"], Cell[10877, 369, 171, 3, 51, "Output",ExpressionUUID->"e6a5a6dd-d7b9-4f1a-845b-6ada9b11abef"] }, Open ]], Cell[CellGroupData[{ Cell[11085, 377, 189, 4, 51, "Input",ExpressionUUID->"d9fed124-4d5e-4a59-b907-b0cca1a5bda2"], Cell[11277, 383, 292, 9, 51, "Output",ExpressionUUID->"4300cca2-5e03-4e5d-bdf4-a83c4a620c71"] }, Open ]], Cell[CellGroupData[{ Cell[11606, 397, 177, 4, 51, "Input",ExpressionUUID->"baaa7e6a-2ca0-423c-8faf-c006035523c9"], Cell[11786, 403, 155, 3, 51, "Output",ExpressionUUID->"a12efb83-036f-4880-8fb6-6e5ffb734d4c"] }, Open ]], Cell[CellGroupData[{ Cell[11978, 411, 187, 4, 51, "Input",ExpressionUUID->"fadab43c-a838-499a-bd91-7b05ba5c252e"], Cell[12168, 417, 276, 9, 51, "Output",ExpressionUUID->"ff354f84-aab2-4d9c-9357-72a6a842ebff"] }, Open ]], Cell[CellGroupData[{ Cell[12481, 431, 181, 4, 51, "Input",ExpressionUUID->"fc64929c-5d6d-44e2-aa40-aacea0e67f73"], Cell[12665, 437, 148, 3, 51, "Output",ExpressionUUID->"9ceba168-1fe6-4fbb-a7bd-c815acfd298f"] }, Open ]], Cell[CellGroupData[{ Cell[12850, 445, 234, 6, 51, "Input",ExpressionUUID->"27b58367-132e-4d5e-9357-c219bd67323e"], Cell[13087, 453, 146, 3, 51, "Output",ExpressionUUID->"aee85aa9-99f1-4602-b69a-e546cfd68462"] }, Open ]], Cell[CellGroupData[{ Cell[13270, 461, 251, 7, 70, "Input",ExpressionUUID->"d1cf44bd-ddec-4cc0-971a-38662d2553cf"], Cell[13524, 470, 255, 5, 51, "Output",ExpressionUUID->"648ff4d1-619f-41c1-8215-3be7b0d245e4"] }, Open ]], Cell[CellGroupData[{ Cell[13816, 480, 193, 5, 71, "Input",ExpressionUUID->"18ec8907-9850-4097-a4f1-2d00221b02d8"], Cell[14012, 487, 257, 5, 51, "Output",ExpressionUUID->"81ca04d3-af0f-467a-8ec2-bd3155b71211"] }, Open ]], Cell[CellGroupData[{ Cell[14306, 497, 239, 6, 51, "Input",ExpressionUUID->"f2d63ad1-be13-46b5-aa78-9b6eaf33837e"], Cell[14548, 505, 133, 3, 51, "Output",ExpressionUUID->"862f2ab9-ab5e-43f3-8f66-c324aedc25c7"] }, Open ]], Cell[CellGroupData[{ Cell[14718, 513, 232, 5, 51, "Input",ExpressionUUID->"f4c92b12-63dd-4cee-a54d-cfe5e1b40ebb"], Cell[14953, 520, 175, 3, 51, "Output",ExpressionUUID->"0164f4bc-a99c-4889-8634-e3de95449571"] }, Open ]], Cell[CellGroupData[{ Cell[15165, 528, 367, 11, 70, "Input",ExpressionUUID->"a27929f3-b9a1-4190-a29d-ef0dfe6bbdbe"], Cell[15535, 541, 133, 3, 51, "Output",ExpressionUUID->"1270ca92-f4da-4fa7-8c9f-5e52e79c6068"] }, Open ]], Cell[CellGroupData[{ Cell[15705, 549, 190, 4, 51, "Input",ExpressionUUID->"d735eb03-3dbe-4df4-9df7-14f7e082ca18"], Cell[15898, 555, 150, 3, 51, "Output",ExpressionUUID->"a3c2815c-02b8-41e0-9389-a56afa552062"] }, Open ]], Cell[CellGroupData[{ Cell[16085, 563, 187, 4, 51, "Input",ExpressionUUID->"87aaf4e5-5e67-400b-89d9-fefbaed3d2fe"], Cell[16275, 569, 131, 2, 51, "Output",ExpressionUUID->"7839aaa2-a099-40cf-8c54-4bbedd4f01a0"] }, Open ]], Cell[CellGroupData[{ Cell[16443, 576, 178, 4, 51, "Input",ExpressionUUID->"614baffa-76aa-49d9-b8e9-f676ddac3da5"], Cell[16624, 582, 569, 13, 58, "Print",ExpressionUUID->"43fd55c1-de44-4214-a651-8885e6be82ff", CellTags->"Info283726339474-6760535"] }, Open ]], Cell[CellGroupData[{ Cell[17230, 600, 209, 5, 70, "Input",ExpressionUUID->"73e56809-9580-4058-a2a4-1c196fca00c1"], Cell[17442, 607, 140, 3, 51, "Output",ExpressionUUID->"e6a7dff3-8022-4d0e-a3ab-c9625ed84da2"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[17631, 616, 229, 4, 41, "Subsection",ExpressionUUID->"069cad79-7f19-4242-8d28-4c50463af459"], Cell[17863, 622, 688, 19, 71, "Input",ExpressionUUID->"5666267e-6e66-4952-ac62-c3c4b3980a96"], Cell[CellGroupData[{ Cell[18576, 645, 696, 19, 51, "Input",ExpressionUUID->"aae580fc-1216-4769-bca2-1402bb642040"], Cell[19275, 666, 33947, 606, 86, "Output",ExpressionUUID->"5352ae7a-4917-4d65-87e9-91954bf8602d"] }, Open ]], Cell[CellGroupData[{ Cell[53259, 1277, 487, 12, 78, "Input",ExpressionUUID->"7101710c-5af0-4e75-bde2-a5c623e53d3e"], Cell[53749, 1291, 25761, 442, 335, "Output",ExpressionUUID->"ac6b534a-7a15-4e2f-a2b1-0fda1c841a8e"] }, Open ]], Cell[CellGroupData[{ Cell[79547, 1738, 510, 12, 78, "Input",ExpressionUUID->"8220c195-e22a-476b-8ebd-6a607336a862"], Cell[80060, 1752, 70619, 1199, 308, "Output",ExpressionUUID->"3e857137-4da3-4c8a-8ccb-0efa236618d7"] }, Open ]], Cell[CellGroupData[{ Cell[150716, 2956, 888, 22, 104, "Input",ExpressionUUID->"ca4a5ee2-c8aa-42b7-9eb1-9bebe6702124"], Cell[151607, 2980, 11522, 231, 109, "Output",ExpressionUUID->"b63f75b8-5cc8-443f-9958-3f4842181ed1"] }, Open ]], Cell[CellGroupData[{ Cell[163166, 3216, 511, 12, 78, "Input",ExpressionUUID->"55847664-c365-4526-9b81-c5f6a00bf1d3"], Cell[163680, 3230, 25659, 440, 335, "Output",ExpressionUUID->"fabd9cef-833e-4112-a99b-ff29fe5d1c6d"] }, Open ]], Cell[CellGroupData[{ Cell[189376, 3675, 514, 12, 78, "Input",ExpressionUUID->"09d8b721-0f27-44f7-95e0-c79b3a18e6eb"], Cell[189893, 3689, 71309, 1222, 304, "Output",ExpressionUUID->"e405d557-733f-4740-8fd6-73dfa1a41e18"] }, Open ]], Cell[261217, 4914, 255, 6, 51, "Input",ExpressionUUID->"1f0f8b5d-f377-4b66-8d72-306a70377389"], Cell[CellGroupData[{ Cell[261497, 4924, 1065, 31, 77, "Input",ExpressionUUID->"30fe631f-8e3e-4602-9d4f-0e26bbb2a95f"], Cell[262565, 4957, 942, 31, 74, "Output",ExpressionUUID->"1225f7bc-9dd6-4663-934c-379f83952e9e"] }, Open ]], Cell[263522, 4991, 187, 3, 43, "Text",ExpressionUUID->"42c506e5-8a01-455b-a99d-89d03a4664ad"], Cell[CellGroupData[{ Cell[263734, 4998, 828, 19, 51, "Input",ExpressionUUID->"9c626f15-cd35-4088-9ff4-7fc60786c756"], Cell[264565, 5019, 339, 8, 29, "Message",ExpressionUUID->"13c4c522-c207-452c-a34d-77065f890169"], Cell[264907, 5029, 411, 9, 51, "Output",ExpressionUUID->"cf59fc3c-8b54-4fca-b4f4-8783aaf430e7"] }, Open ]], Cell[265333, 5041, 214, 5, 43, "Text",ExpressionUUID->"2fae8cb8-2171-4357-9d00-01c0a68e009d"], Cell[CellGroupData[{ Cell[265572, 5050, 746, 16, 51, "Input",ExpressionUUID->"93a31143-ec7d-4ee3-a705-8c16a62c2935"], Cell[266321, 5068, 1684, 55, 81, "Output",ExpressionUUID->"e278da50-195c-406d-9df7-f1f83fe6d9ff"] }, Open ]], Cell[CellGroupData[{ Cell[268042, 5128, 651, 15, 51, "Input",ExpressionUUID->"d4e38391-7801-4642-b78d-84152a9bdf42"], Cell[268696, 5145, 1725, 47, 68, "Output",ExpressionUUID->"8271646e-4a46-4b1d-8800-216bf2ba954f"] }, Open ]], Cell[CellGroupData[{ Cell[270458, 5197, 278, 6, 51, "Input",ExpressionUUID->"5ab4d21f-a250-473f-a757-4ba40010ac80"], Cell[270739, 5205, 1518, 46, 68, "Output",ExpressionUUID->"dbbdbad2-9d06-4348-a690-dfc7de97f810"] }, Open ]], Cell[CellGroupData[{ Cell[272294, 5256, 485, 15, 70, "Input",ExpressionUUID->"c7f1543d-2dd4-458e-828f-4e5de0fc0cb4"], Cell[272782, 5273, 454, 15, 68, "Output",ExpressionUUID->"0f352f08-069a-4588-855d-176418258f91"] }, Open ]], Cell[CellGroupData[{ Cell[273273, 5293, 701, 22, 70, "Input",ExpressionUUID->"fa6a73d0-6239-495b-a0c4-ead85cd04006"], Cell[273977, 5317, 476, 16, 81, "Output",ExpressionUUID->"1f57592d-a597-4566-a4ad-5c5ae5e62d88"] }, Open ]], Cell[CellGroupData[{ Cell[274490, 5338, 269, 7, 51, "Input",ExpressionUUID->"717d5639-c5f9-4d37-b5f6-58b0eca4a78b"], Cell[274762, 5347, 563, 19, 73, "Output",ExpressionUUID->"e21228a7-3af4-4b4e-9554-ef547a963b3b"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[275386, 5373, 245, 4, 81, "Subchapter",ExpressionUUID->"f2e408c3-feed-40fa-8ec6-04ae54776bea"], Cell[275634, 5379, 385, 11, 74, "Input",ExpressionUUID->"a1239445-95d1-4478-8cbe-16cd61a40285"], Cell[276022, 5392, 754, 18, 140, "Input",ExpressionUUID->"3723251b-d3b6-4020-a4ee-ccc859dc97c1"], Cell[276779, 5412, 1694, 48, 136, "Input",ExpressionUUID->"2663b2ac-7961-4506-862a-f6996f5f0121"], Cell[CellGroupData[{ Cell[278498, 5464, 594, 12, 51, "Input",ExpressionUUID->"872df4e3-4977-43f3-a2cb-70cf83684d5d"], Cell[279095, 5478, 2289, 40, 312, "Output",ExpressionUUID->"0aac9ce7-bb55-48ff-bcd2-21c7f80126af"] }, Open ]], Cell[281399, 5521, 686, 17, 55, "Input",ExpressionUUID->"e36c77d9-84db-44fd-a065-83cbac374fbf"], Cell[282088, 5540, 578, 16, 104, "Input",ExpressionUUID->"a694fb4c-a36e-4b68-b961-885c5ce7dd8e"], Cell[CellGroupData[{ Cell[282691, 5560, 220, 5, 54, "Input",ExpressionUUID->"67e8eef7-4065-4f00-a53c-40e958f89b72"], Cell[282914, 5567, 386, 8, 51, "Output",ExpressionUUID->"312855ab-942f-45a5-8dd3-cc6f90c40257"] }, Open ]], Cell[CellGroupData[{ Cell[283337, 5580, 244, 6, 54, "Input",ExpressionUUID->"65931893-c3af-4047-a566-a304ebc06504"], Cell[283584, 5588, 401, 9, 52, "Output",ExpressionUUID->"67d18ec4-92b0-43fa-8e77-a250f6263877"] }, Open ]], Cell[284000, 5600, 557, 15, 55, "Input",ExpressionUUID->"30bf7359-3c37-4aa2-84ad-7230179d114d"], Cell[284560, 5617, 541, 16, 54, "Input",ExpressionUUID->"0fb3ea58-353b-45f2-a680-a8cca4cd1f7a"], Cell[CellGroupData[{ Cell[285126, 5637, 778, 18, 156, "Input",ExpressionUUID->"3ab4e592-39d6-4dfb-975d-28e399ce15e0"], Cell[285907, 5657, 108936, 2917, 7615, "Output",ExpressionUUID->"3f594f1a-3c87-4577-8b90-2691ef9c3dce"] }, Open ]], Cell[CellGroupData[{ Cell[394880, 8579, 262, 5, 51, "Input",ExpressionUUID->"271ff343-056d-4229-ba6f-40452808397c"], Cell[395145, 8586, 375, 7, 51, "Output",ExpressionUUID->"54446805-aa4f-4539-9f25-7a54d33e1639"] }, Open ]], Cell[CellGroupData[{ Cell[395557, 8598, 335, 8, 51, "Input",ExpressionUUID->"d2c11521-69a5-4874-aeda-3d83621d9874"], Cell[395895, 8608, 2179, 68, 83, "Output",ExpressionUUID->"75b3c85a-51c8-4e39-8cea-b299304c49bd"] }, Open ]], Cell[CellGroupData[{ Cell[398111, 8681, 174, 4, 51, "Input",ExpressionUUID->"84c175c7-0be9-4f85-866f-3abf7d217c0c"], Cell[398288, 8687, 721, 16, 58, "Print",ExpressionUUID->"0b08efc9-7ad1-43d0-b35c-266f50313b7d", CellTags->"Info153684057461-6161495"] }, Open ]], Cell[399024, 8706, 2977, 63, 376, "Input",ExpressionUUID->"ee53d624-9b9f-4c7c-857b-5673912a49fe"], Cell[CellGroupData[{ Cell[402026, 8773, 157, 3, 51, "Input",ExpressionUUID->"edb50252-7ae2-43dc-8d5e-47f4c89b3d93"], Cell[402186, 8778, 3973, 105, 181, "Output",ExpressionUUID->"c0ae5609-874b-4c5b-bff5-ece30c2e50e1"] }, Open ]], Cell[406174, 8886, 414, 11, 54, "Input",ExpressionUUID->"0e367a8b-328a-4d6f-a3f0-d774cd63ac57"], Cell[CellGroupData[{ Cell[406613, 8901, 176, 4, 51, "Input",ExpressionUUID->"810a1fbe-0dfe-4f7c-9d13-4a88961fa6c0"], Cell[406792, 8907, 828, 23, 55, "Output",ExpressionUUID->"99c383e7-2eeb-48e3-a13c-ee7c06323ac8"] }, Open ]], Cell[CellGroupData[{ Cell[407657, 8935, 207, 5, 51, "Input",ExpressionUUID->"654cf2c4-d5ab-4418-8d72-a44f58e3e3ad"], Cell[407867, 8942, 1000, 31, 52, "Output",ExpressionUUID->"c6a79030-e331-4b80-857e-397c104088ba"] }, Open ]], Cell[CellGroupData[{ Cell[408904, 8978, 469, 15, 73, "Input",ExpressionUUID->"db9460a0-6bd9-421e-b1e1-308208f5ab46"], Cell[409376, 8995, 1016, 31, 71, "Output",ExpressionUUID->"f69d58e4-b3ea-4611-8b49-5f5d84c829ff"] }, Open ]], Cell[410407, 9029, 497, 14, 54, "Input",ExpressionUUID->"083bb661-fa33-4b09-9af8-dbb2b676360e"], Cell[CellGroupData[{ Cell[410929, 9047, 226, 5, 51, "Input",ExpressionUUID->"1dfe80d1-d2c5-47c9-b5da-ae0bed55b6de"], Cell[411158, 9054, 389, 9, 52, "Output",ExpressionUUID->"2afaf69b-a50c-4baa-9b80-30fcae1a3110"] }, Open ]], Cell[CellGroupData[{ Cell[411584, 9068, 585, 16, 88, "Input",ExpressionUUID->"148b2725-ea19-4ffe-83f4-e5098fad8b1e"], Cell[412172, 9086, 82047, 2235, 1248, "Output",ExpressionUUID->"68981e8f-7a61-4523-91ea-0e848ade037d"] }, Closed]], Cell[CellGroupData[{ Cell[494256, 11326, 1200, 28, 151, "Input",ExpressionUUID->"e411308f-07cb-48d5-85fc-ec04600a13f2"], Cell[495459, 11356, 20358, 623, 397, "Output",ExpressionUUID->"ee48d72d-bc61-456e-b666-91d4883a9a12"] }, Closed]], Cell[CellGroupData[{ Cell[515854, 11984, 1087, 30, 66, "Input",ExpressionUUID->"1efadd76-df2b-4063-a8b0-c5067cef3a45"], Cell[516944, 12016, 66500, 1748, 1003, "Output",ExpressionUUID->"dd1b88bf-783a-4cbc-a0d4-f62d214c2524"] }, Open ]], Cell[583459, 13767, 3053, 73, 301, "Input",ExpressionUUID->"6e5181cf-c33c-4ad4-9a09-9dcd94d11b08"], Cell[586515, 13842, 193, 4, 51, "Input",ExpressionUUID->"d1b7b47e-43c5-4401-9417-e0647c2ba0c8"], Cell[CellGroupData[{ Cell[586733, 13850, 228, 5, 51, "Input",ExpressionUUID->"66dc087c-d926-4d17-af78-53c876ff7278"], Cell[586964, 13857, 3552, 124, 113, "Output",ExpressionUUID->"7867782a-f449-4022-9a6b-0fc5db22aea4"] }, Open ]], Cell[CellGroupData[{ Cell[590553, 13986, 251, 5, 51, "Input",ExpressionUUID->"3b270c3b-9436-4939-9454-70627c7453b5"], Cell[590807, 13993, 6430, 223, 200, "Output",ExpressionUUID->"873760f6-94b4-4beb-ae6b-65d18d0e5eb1"] }, Open ]], Cell[CellGroupData[{ Cell[597274, 14221, 251, 5, 51, "Input",ExpressionUUID->"a58add0f-d0fa-4a2a-b892-c60620a4c03f"], Cell[597528, 14228, 8693, 302, 276, "Output",ExpressionUUID->"8dee1b8f-a4df-467a-953a-d6f78517612c"] }, Open ]], Cell[CellGroupData[{ Cell[606258, 14535, 253, 5, 51, "Input",ExpressionUUID->"c63219db-6fc3-4fa5-a359-2789a871e91f"], Cell[606514, 14542, 10555, 372, 334, "Output",ExpressionUUID->"f893b390-97b0-4b8d-a30b-dc869584a6aa"] }, Open ]], Cell[CellGroupData[{ Cell[617106, 14919, 3256, 77, 301, "Input",ExpressionUUID->"5ceb48bd-e4b9-4aa9-b6d1-9be45e9656f2"], Cell[620365, 14998, 30971, 1006, 777, "Output",ExpressionUUID->"a30931e4-bad1-4cda-9954-17d49362ab5a"] }, Open ]], Cell[651351, 16007, 34740, 1056, 1329, "Input",ExpressionUUID->"1bf73cdd-fadf-47d7-ad4d-213ff7d644e1"], Cell[CellGroupData[{ Cell[686116, 17067, 421, 10, 51, "Input",ExpressionUUID->"71ef0237-4d73-4bf6-8e62-a47f78473ab5"], Cell[686540, 17079, 2153, 38, 312, "Output",ExpressionUUID->"282ca236-16c4-4689-851f-a8f9a75781e5"] }, Open ]], Cell[CellGroupData[{ Cell[688730, 17122, 299, 8, 51, "Input",ExpressionUUID->"0f59cf64-7f07-455b-ac3a-4704a3e51edf"], Cell[689032, 17132, 2023, 35, 312, "Output",ExpressionUUID->"977f94bc-aad5-45e9-a7b9-0e908b9f0458"] }, Open ]], Cell[CellGroupData[{ Cell[691092, 17172, 178, 4, 51, "Input",ExpressionUUID->"360cc9b3-721a-4d8d-851e-f1374169322b"], Cell[691273, 17178, 736, 12, 51, "Output",ExpressionUUID->"4d3b68a5-5116-4d73-b9cd-391188c45ea9"] }, Open ]], Cell[692024, 17193, 243, 5, 51, "Input",ExpressionUUID->"23ebc44c-c5dc-446c-9c34-04df4457bd00"], Cell[692270, 17200, 3621, 112, 273, "Input",ExpressionUUID->"35c88b5a-8b20-4480-b7c8-23e35c36c7e7"], Cell[CellGroupData[{ Cell[695916, 17316, 306, 7, 51, "Input",ExpressionUUID->"2b63e34f-6eee-4ca1-8851-a5c83774ee31"], Cell[696225, 17325, 349, 9, 52, "Output",ExpressionUUID->"a4d7d952-4707-455e-8dfd-14c91b7ff00b"] }, Open ]], Cell[CellGroupData[{ Cell[696611, 17339, 311, 7, 51, "Input",ExpressionUUID->"e28740b5-1c2c-49bf-8e47-7a82a7e0ecc9"], Cell[696925, 17348, 316, 8, 52, "Output",ExpressionUUID->"6548b101-6098-47a0-b3f9-f5113355b7c0"] }, Open ]] }, Open ]] }, Open ]] } ] *)