(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 518635, 12743] NotebookOptionsPosition[ 486624, 12222] NotebookOutlinePosition[ 486958, 12237] CellTagsIndexPosition[ 486915, 12234] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"ClearAll", "[", "b", "]"}]], "Input", CellChangeTimes->{{3.755903284717009*^9, 3.7559032872318897`*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"478e8578-6729-440b-8da8-b832148e0b8c"], Cell[BoxData[ RowBox[{ RowBox[{"b", "[", "d_", "]"}], ":=", RowBox[{"Piecewise", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"7", "/", "3"}], ",", RowBox[{"d", "\[Equal]", "3"}]}], "}"}], "}"}], ",", RowBox[{ RowBox[{"(", RowBox[{"d", "-", "3"}], ")"}], RowBox[{"d", "/", "2"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.75587796566929*^9, 3.755878043438149*^9}}, CellLabel->"In[26]:=",ExpressionUUID->"9c5d2ef8-d44a-4a91-867a-85038c55da40"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalH]", "[", "d_", "]"}], "[", "X_", "]"}], ":=", RowBox[{ SuperscriptBox["X", RowBox[{"-", RowBox[{"b", "[", "d", "]"}]}]], RowBox[{"Exp", "[", RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "i", "]"}], "/", SuperscriptBox["X", "i"]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"d", "-", "1"}]}], "}"}]}], "]"}]}], "]"}], RowBox[{"f", "[", "X", "]"}]}]}]], "Input", CellChangeTimes->{{3.755875422421934*^9, 3.7558754760427647`*^9}, 3.7558759233177357`*^9, 3.7558763059407988`*^9, {3.755877345324197*^9, 3.755877349122547*^9}, 3.7558774030593557`*^9, {3.7558777815396137`*^9, 3.755877788841797*^9}, {3.755878100913015*^9, 3.755878108543408*^9}, { 3.755889382041131*^9, 3.7558893825297613`*^9}, {3.755889525110273*^9, 3.755889525444117*^9}, {3.756057072667481*^9, 3.756057088962357*^9}}, CellLabel->"In[59]:=",ExpressionUUID->"f115e671-e364-4c17-8cd5-0e618136d51f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["X", RowBox[{"-", RowBox[{"b", "[", "d", "]"}]}]], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "A"}], "/", SuperscriptBox["X", RowBox[{"d", "-", "1"}]]}], "]"}], RowBox[{ RowBox[{"f", "[", "0", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "A"}], "/", SuperscriptBox["Y", RowBox[{"d", "-", "1"}]]}], "]"}], SuperscriptBox["Y", RowBox[{"-", RowBox[{"b", "[", "d", "]"}]}]]}], ")"}]}]}], "/.", RowBox[{"X", "\[Rule]", RowBox[{"Y", "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["a", "n"], SuperscriptBox["Y", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"d", "+", "1"}], ",", RowBox[{"d", "+", "100"}]}], "}"}]}], "]"}]}]}]}], "/.", RowBox[{"d", "\[Rule]", "3"}]}], ",", RowBox[{"{", RowBox[{"Y", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.755953425332271*^9, 3.755953597896872*^9}, { 3.755953645115286*^9, 3.755953645178322*^9}, {3.755953795712057*^9, 3.7559538048771133`*^9}, 3.755954148531365*^9, {3.755954187092915*^9, 3.7559541942559958`*^9}, {3.755961563503296*^9, 3.755961573592606*^9}}, CellLabel-> "In[149]:=",ExpressionUUID->"388f6f91-566d-4160-a250-0df41602b59f"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"f", "[", "0", "]"}], "+", RowBox[{"2", " ", "A", " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "4"], " ", "Y"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["A", "2"], " ", RowBox[{"f", "[", "0", "]"}], " ", SubsuperscriptBox["a", "4", "2"]}], "+", RowBox[{"2", " ", "A", " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "5"]}]}], ")"}], " ", SuperscriptBox["Y", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"b", "[", "3", "]"}]}], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "4"]}], "+", RowBox[{ FractionBox["4", "3"], " ", SuperscriptBox["A", "3"], " ", RowBox[{"f", "[", "0", "]"}], " ", SubsuperscriptBox["a", "4", "3"]}], "+", RowBox[{"4", " ", SuperscriptBox["A", "2"], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "4"], " ", SubscriptBox["a", "5"]}], "+", RowBox[{"2", " ", "A", " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "6"]}]}], ")"}], " ", SuperscriptBox["Y", "3"]}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "Y", "]"}], "4"], SeriesData[$CellContext`Y, 0, {}, 0, 4, 1], Editable->False]}], SeriesData[$CellContext`Y, 0, { $CellContext`f[0], ((2 $CellContext`A) $CellContext`f[0]) Subscript[$CellContext`a, 4], ((2 $CellContext`A^2) $CellContext`f[0]) Subscript[$CellContext`a, 4]^2 + ((2 $CellContext`A) $CellContext`f[0]) Subscript[$CellContext`a, 5], ((-$CellContext`b[3]) $CellContext`f[0]) Subscript[$CellContext`a, 4] + (( Rational[4, 3] $CellContext`A^3) $CellContext`f[0]) Subscript[$CellContext`a, 4]^3 + (((4 $CellContext`A^2) $CellContext`f[ 0]) Subscript[$CellContext`a, 4]) Subscript[$CellContext`a, 5] + ((2 $CellContext`A) $CellContext`f[0]) Subscript[$CellContext`a, 6]}, 0, 4, 1], Editable->False]], "Output", CellChangeTimes->{{3.755953579986732*^9, 3.755953602136208*^9}, 3.755953645477916*^9, {3.755953799375855*^9, 3.7559538050840693`*^9}, 3.755954148935199*^9, {3.7559541889348087`*^9, 3.755954194700406*^9}, { 3.755961563871533*^9, 3.7559615739086723`*^9}}, CellLabel-> "Out[149]=",ExpressionUUID->"9f0187ae-fa3c-485d-92a2-a51c3d5728fd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["X", "n"], SuperscriptBox["x", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"d", "+", "1"}], ",", "20"}], "}"}]}], "]"}]}], ")"}], RowBox[{"d", "-", "1"}]]}], "/.", RowBox[{"d", "\[Rule]", "3"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"d", "\[GreaterEqual]", "2"}], ",", RowBox[{"d", "\[Element]", "Integers"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.755953904246234*^9, 3.755954134043172*^9}, { 3.75595421826197*^9, 3.755954218384008*^9}}, CellLabel-> "In[133]:=",ExpressionUUID->"59e89fd5-4d33-42d5-bad6-f528bcc2bb10"], Cell[BoxData[ InterpretationBox[ RowBox[{ FractionBox["1", SuperscriptBox["x", "2"]], "-", RowBox[{"2", " ", SubscriptBox["X", "4"], " ", "x"}], "-", RowBox[{"2", " ", SubscriptBox["X", "5"], " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"2", " ", SubscriptBox["X", "6"], " ", SuperscriptBox["x", "3"]}], "+", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{"18", " ", SubsuperscriptBox["X", "4", "2"]}], "-", RowBox[{"12", " ", SubscriptBox["X", "7"]}]}], ")"}], " ", SuperscriptBox["x", "4"]}], "+", RowBox[{ FractionBox["1", "7"], " ", RowBox[{"(", RowBox[{ RowBox[{"42", " ", SubscriptBox["X", "4"], " ", SubscriptBox["X", "5"]}], "-", RowBox[{"14", " ", SubscriptBox["X", "8"]}]}], ")"}], " ", SuperscriptBox["x", "5"]}], "+", RowBox[{ FractionBox["1", "8"], " ", RowBox[{"(", RowBox[{ RowBox[{"24", " ", SubsuperscriptBox["X", "5", "2"]}], "+", RowBox[{"48", " ", SubscriptBox["X", "4"], " ", SubscriptBox["X", "6"]}], "-", RowBox[{"16", " ", SubscriptBox["X", "9"]}]}], ")"}], " ", SuperscriptBox["x", "6"]}], "+", RowBox[{ FractionBox["1", "9"], " ", RowBox[{"(", RowBox[{ RowBox[{"54", " ", SubscriptBox["X", "5"], " ", SubscriptBox["X", "6"]}], "-", RowBox[{"2", " ", SubscriptBox["X", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"18", " ", SubsuperscriptBox["X", "4", "2"]}], "-", RowBox[{"12", " ", SubscriptBox["X", "7"]}]}], ")"}]}], "+", RowBox[{"30", " ", SubscriptBox["X", "4"], " ", SubscriptBox["X", "7"]}], "-", RowBox[{"18", " ", SubscriptBox["X", "10"]}]}], ")"}], " ", SuperscriptBox["x", "7"]}], "+", RowBox[{ FractionBox["1", "10"], " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SubsuperscriptBox["X", "6", "2"]}], "-", RowBox[{ FractionBox["7", "3"], " ", SubscriptBox["X", "5"], " ", RowBox[{"(", RowBox[{ RowBox[{"18", " ", SubsuperscriptBox["X", "4", "2"]}], "-", RowBox[{"12", " ", SubscriptBox["X", "7"]}]}], ")"}]}], "+", RowBox[{"32", " ", SubscriptBox["X", "5"], " ", SubscriptBox["X", "7"]}], "-", RowBox[{ FractionBox["13", "7"], " ", SubscriptBox["X", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"42", " ", SubscriptBox["X", "4"], " ", SubscriptBox["X", "5"]}], "-", RowBox[{"14", " ", SubscriptBox["X", "8"]}]}], ")"}]}], "+", RowBox[{"34", " ", SubscriptBox["X", "4"], " ", SubscriptBox["X", "8"]}], "-", RowBox[{"20", " ", SubscriptBox["X", "11"]}]}], ")"}], " ", SuperscriptBox["x", "8"]}], "+", RowBox[{ FractionBox["1", "11"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["8", "3"]}], " ", SubscriptBox["X", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{"18", " ", SubsuperscriptBox["X", "4", "2"]}], "-", RowBox[{"12", " ", SubscriptBox["X", "7"]}]}], ")"}]}], "+", RowBox[{"34", " ", SubscriptBox["X", "6"], " ", SubscriptBox["X", "7"]}], "-", RowBox[{ FractionBox["15", "7"], " ", SubscriptBox["X", "5"], " ", RowBox[{"(", RowBox[{ RowBox[{"42", " ", SubscriptBox["X", "4"], " ", SubscriptBox["X", "5"]}], "-", RowBox[{"14", " ", SubscriptBox["X", "8"]}]}], ")"}]}], "+", RowBox[{"36", " ", SubscriptBox["X", "5"], " ", SubscriptBox["X", "8"]}], "-", RowBox[{ FractionBox["7", "4"], " ", SubscriptBox["X", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"24", " ", SubsuperscriptBox["X", "5", "2"]}], "+", RowBox[{"48", " ", SubscriptBox["X", "4"], " ", SubscriptBox["X", "6"]}], "-", RowBox[{"16", " ", SubscriptBox["X", "9"]}]}], ")"}]}], "+", RowBox[{"38", " ", SubscriptBox["X", "4"], " ", SubscriptBox["X", "9"]}], "-", RowBox[{"22", " ", SubscriptBox["X", "12"]}]}], ")"}], " ", SuperscriptBox["x", "9"]}], "+", RowBox[{ FractionBox["1", "12"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", RowBox[{"(", RowBox[{ RowBox[{"18", " ", SubsuperscriptBox["X", "4", "2"]}], "-", RowBox[{"12", " ", SubscriptBox["X", "7"]}]}], ")"}], " ", SubscriptBox["X", "7"]}], "-", RowBox[{ FractionBox["17", "7"], " ", SubscriptBox["X", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{"42", " ", SubscriptBox["X", "4"], " ", SubscriptBox["X", "5"]}], "-", RowBox[{"14", " ", SubscriptBox["X", "8"]}]}], ")"}]}], "+", RowBox[{"38", " ", SubscriptBox["X", "6"], " ", SubscriptBox["X", "8"]}], "-", RowBox[{"2", " ", SubscriptBox["X", "5"], " ", RowBox[{"(", RowBox[{ RowBox[{"24", " ", SubsuperscriptBox["X", "5", "2"]}], "+", RowBox[{"48", " ", SubscriptBox["X", "4"], " ", SubscriptBox["X", "6"]}], "-", RowBox[{"16", " ", SubscriptBox["X", "9"]}]}], ")"}]}], "+", RowBox[{"40", " ", SubscriptBox["X", "5"], " ", SubscriptBox["X", "9"]}], "-", RowBox[{ FractionBox["5", "3"], " ", SubscriptBox["X", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"54", " ", SubscriptBox["X", "5"], " ", SubscriptBox["X", "6"]}], "-", RowBox[{"2", " ", SubscriptBox["X", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"18", " ", SubsuperscriptBox["X", "4", "2"]}], "-", RowBox[{"12", " ", SubscriptBox["X", "7"]}]}], ")"}]}], "+", RowBox[{"30", " ", SubscriptBox["X", "4"], " ", SubscriptBox["X", "7"]}], "-", RowBox[{"18", " ", SubscriptBox["X", "10"]}]}], ")"}]}], "+", RowBox[{"42", " ", SubscriptBox["X", "4"], " ", SubscriptBox["X", "10"]}], "-", RowBox[{"24", " ", SubscriptBox["X", "13"]}]}], ")"}], " ", SuperscriptBox["x", "10"]}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "x", "]"}], "11"], SeriesData[$CellContext`x, 0, {}, -2, 11, 1], Editable->False]}], SeriesData[$CellContext`x, 0, { 1, 0, 0, (-2) Subscript[$CellContext`X, 4], (-2) Subscript[$CellContext`X, 5], (-2) Subscript[$CellContext`X, 6], Rational[1, 6] (18 Subscript[$CellContext`X, 4]^2 - 12 Subscript[$CellContext`X, 7]), Rational[1, 7] ((42 Subscript[$CellContext`X, 4]) Subscript[$CellContext`X, 5] - 14 Subscript[$CellContext`X, 8]), Rational[1, 8] ( 24 Subscript[$CellContext`X, 5]^2 + (48 Subscript[$CellContext`X, 4]) Subscript[$CellContext`X, 6] - 16 Subscript[$CellContext`X, 9]), Rational[1, 9] ((54 Subscript[$CellContext`X, 5]) Subscript[$CellContext`X, 6] - (2 Subscript[$CellContext`X, 4]) ( 18 Subscript[$CellContext`X, 4]^2 - 12 Subscript[$CellContext`X, 7]) + (30 Subscript[$CellContext`X, 4]) Subscript[$CellContext`X, 7] - 18 Subscript[$CellContext`X, 10]), Rational[1, 10] ( 30 Subscript[$CellContext`X, 6]^2 + (Rational[-7, 3] Subscript[$CellContext`X, 5]) (18 Subscript[$CellContext`X, 4]^2 - 12 Subscript[$CellContext`X, 7]) + (32 Subscript[$CellContext`X, 5]) Subscript[$CellContext`X, 7] + (Rational[-13, 7] Subscript[$CellContext`X, 4]) ((42 Subscript[$CellContext`X, 4]) Subscript[$CellContext`X, 5] - 14 Subscript[$CellContext`X, 8]) + (34 Subscript[$CellContext`X, 4]) Subscript[$CellContext`X, 8] - 20 Subscript[$CellContext`X, 11]), Rational[1, 11] ((Rational[-8, 3] Subscript[$CellContext`X, 6]) ( 18 Subscript[$CellContext`X, 4]^2 - 12 Subscript[$CellContext`X, 7]) + (34 Subscript[$CellContext`X, 6]) Subscript[$CellContext`X, 7] + (Rational[-15, 7] Subscript[$CellContext`X, 5]) ((42 Subscript[$CellContext`X, 4]) Subscript[$CellContext`X, 5] - 14 Subscript[$CellContext`X, 8]) + (36 Subscript[$CellContext`X, 5]) Subscript[$CellContext`X, 8] + (Rational[-7, 4] Subscript[$CellContext`X, 4]) ( 24 Subscript[$CellContext`X, 5]^2 + (48 Subscript[$CellContext`X, 4]) Subscript[$CellContext`X, 6] - 16 Subscript[$CellContext`X, 9]) + (38 Subscript[$CellContext`X, 4]) Subscript[$CellContext`X, 9] - 22 Subscript[$CellContext`X, 12]), Rational[1, 12] (((-3) (18 Subscript[$CellContext`X, 4]^2 - 12 Subscript[$CellContext`X, 7])) Subscript[$CellContext`X, 7] + (Rational[-17, 7] Subscript[$CellContext`X, 6]) ((42 Subscript[$CellContext`X, 4]) Subscript[$CellContext`X, 5] - 14 Subscript[$CellContext`X, 8]) + (38 Subscript[$CellContext`X, 6]) Subscript[$CellContext`X, 8] - (2 Subscript[$CellContext`X, 5]) ( 24 Subscript[$CellContext`X, 5]^2 + (48 Subscript[$CellContext`X, 4]) Subscript[$CellContext`X, 6] - 16 Subscript[$CellContext`X, 9]) + (40 Subscript[$CellContext`X, 5]) Subscript[$CellContext`X, 9] + (Rational[-5, 3] Subscript[$CellContext`X, 4]) ((54 Subscript[$CellContext`X, 5]) Subscript[$CellContext`X, 6] - (2 Subscript[$CellContext`X, 4]) ( 18 Subscript[$CellContext`X, 4]^2 - 12 Subscript[$CellContext`X, 7]) + (30 Subscript[$CellContext`X, 4]) Subscript[$CellContext`X, 7] - 18 Subscript[$CellContext`X, 10]) + ( 42 Subscript[$CellContext`X, 4]) Subscript[$CellContext`X, 10] - 24 Subscript[$CellContext`X, 13])}, -2, 11, 1], Editable->False]], "Output", CellChangeTimes->{{3.7559539532618103`*^9, 3.755954134797855*^9}, 3.755954218732521*^9}, CellLabel-> "Out[133]=",ExpressionUUID->"c27f63f4-167f-427f-a08d-8a0e66d88379"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalH]", "[", "d", "]"}], "[", RowBox[{"X", "[", "Y", "]"}], "]"}], "/", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "A"}], "/", SuperscriptBox["Y", RowBox[{"d", "-", "1"}]]}], "]"}]}], SuperscriptBox["Y", RowBox[{"b", "[", "d", "]"}]]}], "/.", RowBox[{ RowBox[{"X", "[", "Y", "]"}], "\[Rule]", RowBox[{"Y", "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["a", "n"], SuperscriptBox["Y", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"d", "+", "1"}], ",", "\[Infinity]"}], "}"}]}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"Y", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.755907189847061*^9, 3.755907230651229*^9}, { 3.755907313711525*^9, 3.755907337528027*^9}}, CellLabel->"In[83]:=",ExpressionUUID->"8e569068-d7aa-4cc0-aca2-99cde3babe9e"], Cell[BoxData[ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"A", " ", SuperscriptBox["Y", RowBox[{"1", "-", "d"}]]}], "-", RowBox[{"A", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Y", "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", RowBox[{"1", "+", "d"}]}], "\[Infinity]"], RowBox[{ SuperscriptBox["Y", "n"], " ", SubscriptBox["a", "n"]}]}]}], ")"}], RowBox[{"1", "-", "d"}]]}]}]], " ", SuperscriptBox["Y", RowBox[{"b", "[", "d", "]"}]], " ", RowBox[{"f", "[", RowBox[{"Y", "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", RowBox[{"1", "+", "d"}]}], "\[Infinity]"], RowBox[{ SuperscriptBox["Y", "n"], " ", SubscriptBox["a", "n"]}]}]}], "]"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Y", "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", RowBox[{"1", "+", "d"}]}], "\[Infinity]"], RowBox[{ SuperscriptBox["Y", "n"], " ", SubscriptBox["a", "n"]}]}]}], ")"}], RowBox[{"-", RowBox[{"b", "[", "d", "]"}]}]]}], ",", RowBox[{"{", RowBox[{"Y", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Output", CellChangeTimes->{3.75590734464149*^9}, CellLabel->"Out[83]=",ExpressionUUID->"16ed5cb0-22c1-4624-aca9-f9f9f8ac9e92"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalH]", "[", "d", "]"}], "[", RowBox[{"X", "[", "Y", "]"}], "]"}], "/", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "A"}], "/", SuperscriptBox["Y", RowBox[{"d", "-", "1"}]]}], "]"}]}], SuperscriptBox["Y", RowBox[{"b", "[", "d", "]"}]]}], "/.", RowBox[{ RowBox[{"X", "[", "Y", "]"}], "\[Rule]", RowBox[{"Y", "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["a", "n"], SuperscriptBox["Y", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"d", "+", "1"}], ",", "\[Infinity]"}], "}"}]}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"Y", ",", "0"}], "}"}]}], "]"}], "/.", RowBox[{"{", RowBox[{"Y", "\[Rule]", "0"}], "}"}]}], "//.", " ", RowBox[{ SuperscriptBox["0", "_"], "\[RuleDelayed]", "0"}]}]], "Input", CellChangeTimes->{{3.755907562837792*^9, 3.7559076889949503`*^9}, { 3.7559077347472143`*^9, 3.755907734886273*^9}, {3.755907944504138*^9, 3.75590797581347*^9}},ExpressionUUID->"56748b37-be24-40c9-a42e-\ 474a26341196"], Cell[BoxData[ TemplateBox[{ "Power","infy", "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \ SuperscriptBox[\\\"0\\\", \\\"2\\\"]]\\) encountered.\"",2,97,6, 33107046524824295200,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.755907946882984*^9, 3.7559079548401403`*^9}}, CellLabel-> "During evaluation of \ In[97]:=",ExpressionUUID->"b3bc7fbc-cbd4-4bcc-bc4a-adb9210cc190"], Cell[BoxData[ TemplateBox[{ "Power","infy", "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \ SuperscriptBox[\\\"0\\\", \\\"2\\\"]]\\) encountered.\"",2,97,7, 33107046524824295200,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.755907946882984*^9, 3.7559079549567957`*^9}}, CellLabel-> "During evaluation of \ In[97]:=",ExpressionUUID->"728a828f-4b58-4ceb-9a3b-94e3273f35f5"], Cell[BoxData[ TemplateBox[{ "Infinity","indet", "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"ComplexInfinity\\\", \ \\\"+\\\", \\\"ComplexInfinity\\\"}]\\) encountered.\"",2,97,8, 33107046524824295200,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.755907946882984*^9, 3.755907954977296*^9}}, CellLabel-> "During evaluation of \ In[97]:=",ExpressionUUID->"20ebb82e-5bed-4909-bd77-9784075468d3"], Cell[BoxData["Indeterminate"], "Output", CellChangeTimes->{{3.755907574609667*^9, 3.755907617659193*^9}, { 3.755907649001555*^9, 3.755907691211156*^9}, 3.755907735191292*^9, { 3.755907946926383*^9, 3.755907954981471*^9}}, CellLabel->"Out[97]=",ExpressionUUID->"d56615c4-7037-49e2-b0ed-a315bc8e03f2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"d", "-", "1"}], ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.7560626582890387`*^9, 3.756062663198044*^9}}, CellLabel->"In[94]:=",ExpressionUUID->"1abe97fb-164b-4eec-bc51-c0649a7677e9"], Cell[BoxData[ RowBox[{ RowBox[{"-", "1"}], "+", "d"}]], "Output", CellChangeTimes->{3.756062663417444*^9}, CellLabel->"Out[94]=",ExpressionUUID->"7f1bee79-e79b-453d-8db9-609c611a3fb3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Binomial", "[", RowBox[{"d", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.7560635889430447`*^9, 3.7560635924451227`*^9}}, CellLabel->"In[95]:=",ExpressionUUID->"a53dc90c-5ecd-4d46-8c78-a740d38cb7bf"], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "d"}], ")"}], " ", "d"}]], "Output", CellChangeTimes->{3.756063592647056*^9}, CellLabel->"Out[95]=",ExpressionUUID->"868fd8a8-175e-45fa-b37e-78173abf56d2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Multinomial", "[", "2", "]"}]], "Input", CellChangeTimes->{{3.7560636632721977`*^9, 3.756063671805909*^9}}, CellLabel->"In[96]:=",ExpressionUUID->"cc94bd4f-8593-4972-9f23-ccdbd2ed0e37"], Cell[BoxData["1"], "Output", CellChangeTimes->{3.756063672024707*^9}, CellLabel->"Out[96]=",ExpressionUUID->"b771bb4b-6dbe-48e3-8464-a5ac18d62228"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c12", "=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalH]", "[", "d", "]"}], "[", RowBox[{"X", "[", "Y", "]"}], "]"}], "/", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"A", "[", "1", "]"}]}], "/", SuperscriptBox["Y", RowBox[{"d", "-", "1"}]]}], "]"}]}], SuperscriptBox["Y", RowBox[{"b", "[", "d", "]"}]]}], "/.", RowBox[{ RowBox[{"X", "[", "Y", "]"}], "\[Rule]", RowBox[{"Y", "+", RowBox[{ SubscriptBox["a", "2"], SuperscriptBox["Y", "2"]}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["a", "i"], SuperscriptBox["Y", "i"]}], ",", RowBox[{"{", RowBox[{"i", ",", "3", ",", RowBox[{"d", "+", "3"}]}], "}"}]}], "]"}]}]}]}], "/.", RowBox[{"d", "\[Rule]", "2"}]}], ",", RowBox[{"{", RowBox[{"Y", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.755875482189352*^9, 3.755875530092328*^9}, { 3.75587557737519*^9, 3.755875582869075*^9}, {3.755875659000474*^9, 3.7558757932595663`*^9}, {3.7558758838282022`*^9, 3.755875934803454*^9}, { 3.755876010959289*^9, 3.755876015261304*^9}, {3.755876053803957*^9, 3.755876107622567*^9}, {3.7558761543853607`*^9, 3.755876178799548*^9}, 3.755876310973308*^9, {3.755876584531127*^9, 3.755876594814355*^9}, { 3.7558767303875237`*^9, 3.75587673352853*^9}, {3.7558773548291273`*^9, 3.755877365678813*^9}, 3.755877409075362*^9, {3.755893419231349*^9, 3.755893466780015*^9}, {3.75590395814953*^9, 3.755903961810142*^9}, { 3.756056766118331*^9, 3.7560568550641212`*^9}, {3.7560569217586613`*^9, 3.756056923150683*^9}, {3.75605699323568*^9, 3.756056993280702*^9}, { 3.756057110277623*^9, 3.756057158025619*^9}, {3.7560574123480043`*^9, 3.7560574345523863`*^9}, {3.7560576959099903`*^9, 3.756057713627797*^9}}, CellLabel->"In[70]:=",ExpressionUUID->"04e2ca53-78cc-46c7-9cb4-df7379c535c9"], Cell[BoxData[ RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"A", "[", "1", "]"}], " ", SubscriptBox["a", "2"]}]]}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"b", "[", "2", "]"}], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "2"]}], "+", RowBox[{ RowBox[{"A", "[", "1", "]"}], " ", RowBox[{"f", "[", "0", "]"}], " ", SubsuperscriptBox["a", "2", "2"]}], "-", RowBox[{ RowBox[{"A", "[", "1", "]"}], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "3"]}], "-", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], ")"}]}]], "Output", CellChangeTimes->{{3.755875517854062*^9, 3.7558755304725246`*^9}, 3.755875579391144*^9, 3.75587562026398*^9, 3.75587567334341*^9, { 3.755875752815339*^9, 3.755875793423603*^9}, {3.7558758883202267`*^9, 3.755875935009924*^9}, 3.755876015688389*^9, {3.755876054859782*^9, 3.755876107943524*^9}, {3.755876159601807*^9, 3.755876179026613*^9}, 3.75587623887215*^9, {3.755876308110261*^9, 3.7558763113450747`*^9}, { 3.755876591091544*^9, 3.755876595069475*^9}, {3.755876730682897*^9, 3.755876733772119*^9}, {3.755877363436366*^9, 3.755877366546823*^9}, { 3.755877407288651*^9, 3.755877410122324*^9}, 3.755877790467352*^9, { 3.755893415387486*^9, 3.755893467042817*^9}, {3.7559032949738617`*^9, 3.755903315560001*^9}, 3.755903962242793*^9, 3.755904583639076*^9, 3.75590628152354*^9, 3.7559063496048594`*^9, {3.756056814910684*^9, 3.75605685605124*^9}, 3.756056924143176*^9, 3.756056994609556*^9, { 3.7560570982534447`*^9, 3.7560571599296703`*^9}, 3.75605743513109*^9, { 3.756057706383161*^9, 3.756057713950056*^9}}, CellLabel->"Out[70]=",ExpressionUUID->"0fc9a45b-a383-40e9-921d-5da3efd4e3c6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c12", "=", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalH]", "[", "d", "]"}], "[", RowBox[{"X", "[", "Y", "]"}], "]"}], "/", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"A", "[", "2", "]"}]}], "/", SuperscriptBox["Y", RowBox[{"d", "-", "1"}]]}], "]"}]}], SuperscriptBox["Y", RowBox[{"b", "[", "d", "]"}]]}], "/.", RowBox[{ RowBox[{"X", "[", "Y", "]"}], "\[Rule]", RowBox[{"Y", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "[", "1", "]"}], "/", RowBox[{"(", RowBox[{"2", RowBox[{"A", "[", "2", "]"}]}], ")"}]}], ")"}], SuperscriptBox["Y", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "1", "]"}], "2"], "/", RowBox[{"(", RowBox[{"8", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "2"]}], ")"}]}], ")"}], SuperscriptBox["Y", "3"]}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["a", "i"], SuperscriptBox["Y", "i"]}], ",", RowBox[{"{", RowBox[{"i", ",", "4", ",", RowBox[{"d", "+", "3"}]}], "}"}]}], "]"}]}]}]}], "/.", RowBox[{"d", "\[Rule]", "3"}]}], ",", RowBox[{"{", RowBox[{"Y", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Expand"}]}]], "Input", CellChangeTimes->{{3.755875482189352*^9, 3.755875530092328*^9}, { 3.75587557737519*^9, 3.755875582869075*^9}, {3.755875659000474*^9, 3.7558757932595663`*^9}, {3.7558758838282022`*^9, 3.755875934803454*^9}, { 3.755876010959289*^9, 3.755876015261304*^9}, {3.755876053803957*^9, 3.755876107622567*^9}, {3.7558761543853607`*^9, 3.755876178799548*^9}, 3.755876310973308*^9, {3.755876584531127*^9, 3.755876594814355*^9}, { 3.7558767303875237`*^9, 3.75587673352853*^9}, {3.7558773548291273`*^9, 3.755877365678813*^9}, 3.755877409075362*^9, {3.755893419231349*^9, 3.755893466780015*^9}, {3.75590395814953*^9, 3.755903961810142*^9}, { 3.756056766118331*^9, 3.7560568550641212`*^9}, {3.7560569217586613`*^9, 3.756056923150683*^9}, {3.75605699323568*^9, 3.756056993280702*^9}, { 3.756057110277623*^9, 3.756057158025619*^9}, {3.7560574123480043`*^9, 3.7560574345523863`*^9}, {3.756058159914452*^9, 3.756058242733674*^9}, { 3.756058283261827*^9, 3.756058311318864*^9}}, CellLabel->"In[81]:=",ExpressionUUID->"5a4623ed-04ee-47d4-b390-2c1d11b5f787"], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "1", "]"}], "5"], " ", RowBox[{"f", "[", "0", "]"}]}], RowBox[{"64", " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "4"]}]]}], "-", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "1", "]"}], "5"], " ", RowBox[{"b", "[", "3", "]"}], " ", RowBox[{"f", "[", "0", "]"}]}], RowBox[{"128", " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "4"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "1", "]"}], "3"], " ", RowBox[{"b", "[", "3", "]"}], " ", RowBox[{"f", "[", "0", "]"}]}], RowBox[{"48", " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "3"]}]], "-", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "1", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"b", "[", "3", "]"}], "3"], " ", RowBox[{"f", "[", "0", "]"}]}], RowBox[{"48", " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "3"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "1", "]"}], "4"], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "4"]}], RowBox[{"32", " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "2"]}]], "+", FractionBox[ RowBox[{"5", " ", SuperscriptBox[ RowBox[{"A", "[", "1", "]"}], "2"], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "4"]}], RowBox[{"4", " ", RowBox[{"A", "[", "2", "]"}]}]], "-", RowBox[{ RowBox[{"b", "[", "3", "]"}], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "4"]}], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "1", "]"}], "2"], " ", RowBox[{"b", "[", "3", "]"}], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "4"]}], RowBox[{"A", "[", "2", "]"}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "1", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"b", "[", "3", "]"}], "2"], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "4"]}], RowBox[{"4", " ", RowBox[{"A", "[", "2", "]"}]}]], "-", RowBox[{"4", " ", RowBox[{"A", "[", "1", "]"}], " ", RowBox[{"A", "[", "2", "]"}], " ", RowBox[{"f", "[", "0", "]"}], " ", SubsuperscriptBox["a", "4", "2"]}], "-", RowBox[{ RowBox[{"A", "[", "1", "]"}], " ", RowBox[{"A", "[", "2", "]"}], " ", RowBox[{"b", "[", "3", "]"}], " ", RowBox[{"f", "[", "0", "]"}], " ", SubsuperscriptBox["a", "4", "2"]}], "+", RowBox[{ FractionBox["4", "3"], " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "3"], " ", RowBox[{"f", "[", "0", "]"}], " ", SubsuperscriptBox["a", "4", "3"]}], "-", RowBox[{"2", " ", RowBox[{"A", "[", "1", "]"}], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "5"]}], "-", RowBox[{ RowBox[{"A", "[", "1", "]"}], " ", RowBox[{"b", "[", "3", "]"}], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "5"]}], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "2"], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "4"], " ", SubscriptBox["a", "5"]}], "+", RowBox[{"2", " ", RowBox[{"A", "[", "2", "]"}], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "6"]}], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "1", "]"}], "4"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], RowBox[{"64", " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "3"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "1", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], RowBox[{"8", " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "2"]}]], "-", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "1", "]"}], "2"], " ", RowBox[{"b", "[", "3", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], RowBox[{"4", " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "2"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "1", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"b", "[", "3", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], RowBox[{"8", " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "2"]}]], "-", RowBox[{ RowBox[{"A", "[", "1", "]"}], " ", SubscriptBox["a", "4"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "-", RowBox[{ RowBox[{"A", "[", "1", "]"}], " ", RowBox[{"b", "[", "3", "]"}], " ", SubscriptBox["a", "4"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "2"], " ", SubsuperscriptBox["a", "4", "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"A", "[", "2", "]"}], " ", SubscriptBox["a", "5"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", FractionBox[ RowBox[{ RowBox[{"A", "[", "1", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], RowBox[{"2", " ", RowBox[{"A", "[", "2", "]"}]}]], "-", FractionBox[ RowBox[{ RowBox[{"A", "[", "1", "]"}], " ", RowBox[{"b", "[", "3", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], RowBox[{"4", " ", RowBox[{"A", "[", "2", "]"}]}]], "+", RowBox[{ RowBox[{"A", "[", "2", "]"}], " ", SubscriptBox["a", "4"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{ FractionBox["1", "6"], " ", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}]}]], "Output", CellChangeTimes->{{3.755875517854062*^9, 3.7558755304725246`*^9}, 3.755875579391144*^9, 3.75587562026398*^9, 3.75587567334341*^9, { 3.755875752815339*^9, 3.755875793423603*^9}, {3.7558758883202267`*^9, 3.755875935009924*^9}, 3.755876015688389*^9, {3.755876054859782*^9, 3.755876107943524*^9}, {3.755876159601807*^9, 3.755876179026613*^9}, 3.75587623887215*^9, {3.755876308110261*^9, 3.7558763113450747`*^9}, { 3.755876591091544*^9, 3.755876595069475*^9}, {3.755876730682897*^9, 3.755876733772119*^9}, {3.755877363436366*^9, 3.755877366546823*^9}, { 3.755877407288651*^9, 3.755877410122324*^9}, 3.755877790467352*^9, { 3.755893415387486*^9, 3.755893467042817*^9}, {3.7559032949738617`*^9, 3.755903315560001*^9}, 3.755903962242793*^9, 3.755904583639076*^9, 3.75590628152354*^9, 3.7559063496048594`*^9, {3.756056814910684*^9, 3.75605685605124*^9}, 3.756056924143176*^9, 3.756056994609556*^9, { 3.7560570982534447`*^9, 3.7560571599296703`*^9}, 3.75605743513109*^9, { 3.7560581782568207`*^9, 3.756058243075766*^9}, {3.7560582837541523`*^9, 3.756058311748951*^9}}, CellLabel->"Out[81]=",ExpressionUUID->"5ae19b60-ab4a-4c65-82cd-6412b5ed59e7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c12", "=", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalH]", "[", "d", "]"}], "[", RowBox[{"X", "[", "Y", "]"}], "]"}], "/", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"A", "[", "3", "]"}]}], "/", SuperscriptBox["Y", RowBox[{"d", "-", "1"}]]}], "]"}]}], SuperscriptBox["Y", RowBox[{"b", "[", "d", "]"}]]}], "/.", RowBox[{ RowBox[{"X", "[", "Y", "]"}], "\[Rule]", RowBox[{"Y", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "[", "2", "]"}], "/", RowBox[{"(", RowBox[{"3", RowBox[{"A", "[", "3", "]"}]}], ")"}]}], ")"}], SuperscriptBox["Y", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "[", "1", "]"}], "/", RowBox[{"(", RowBox[{"3", RowBox[{"A", "[", "3", "]"}]}], ")"}]}], ")"}], SuperscriptBox["Y", "3"]}], "-", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "3"], RowBox[{"27", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "2"]}]], "-", FractionBox[ RowBox[{ RowBox[{"A", "[", "1", "]"}], " ", RowBox[{"A", "[", "2", "]"}]}], RowBox[{"3", " ", RowBox[{"A", "[", "3", "]"}]}]]}], ")"}], "/", RowBox[{"(", RowBox[{"3", " ", RowBox[{"A", "[", "3", "]"}]}], ")"}]}], SuperscriptBox["Y", "4"]}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["a", "i"], SuperscriptBox["Y", "i"]}], ",", RowBox[{"{", RowBox[{"i", ",", "5", ",", RowBox[{"d", "+", "3"}]}], "}"}]}], "]"}]}]}]}], "/.", RowBox[{"d", "\[Rule]", "4"}]}], ",", RowBox[{"{", RowBox[{"Y", ",", "0", ",", "2"}], "}"}]}], "]"}], "//", "Expand"}]}]], "Input", CellChangeTimes->{{3.755875482189352*^9, 3.755875530092328*^9}, { 3.75587557737519*^9, 3.755875582869075*^9}, {3.755875659000474*^9, 3.7558757932595663`*^9}, {3.7558758838282022`*^9, 3.755875934803454*^9}, { 3.755876010959289*^9, 3.755876015261304*^9}, {3.755876053803957*^9, 3.755876107622567*^9}, {3.7558761543853607`*^9, 3.755876178799548*^9}, 3.755876310973308*^9, {3.755876584531127*^9, 3.755876594814355*^9}, { 3.7558767303875237`*^9, 3.75587673352853*^9}, {3.7558773548291273`*^9, 3.755877365678813*^9}, 3.755877409075362*^9, {3.755893419231349*^9, 3.755893466780015*^9}, {3.75590395814953*^9, 3.755903961810142*^9}, { 3.756056766118331*^9, 3.7560568550641212`*^9}, {3.7560569217586613`*^9, 3.756056923150683*^9}, {3.75605699323568*^9, 3.756056993280702*^9}, { 3.756057110277623*^9, 3.756057158025619*^9}, {3.7560574123480043`*^9, 3.7560574345523863`*^9}, {3.756058159914452*^9, 3.756058242733674*^9}, { 3.756058283261827*^9, 3.756058389227251*^9}, {3.756058428316916*^9, 3.756058437705331*^9}, {3.756058478820581*^9, 3.7560585475377207`*^9}}, CellLabel->"In[93]:=",ExpressionUUID->"b164c883-bb64-4996-acce-0bbca33952db"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "8"], " ", RowBox[{"f", "[", "0", "]"}]}], RowBox[{"13122", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "6"]}]], "-", FractionBox[ RowBox[{ RowBox[{"A", "[", "1", "]"}], " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "6"], " ", RowBox[{"f", "[", "0", "]"}]}], RowBox[{"729", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "5"]}]], "+", FractionBox[ RowBox[{"5", " ", SuperscriptBox[ RowBox[{"A", "[", "1", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "4"], " ", RowBox[{"f", "[", "0", "]"}]}], RowBox[{"486", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "4"]}]], "+", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "5"], " ", RowBox[{"f", "[", "0", "]"}]}], RowBox[{"243", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "4"]}]], "-", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "1", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "2"], " ", RowBox[{"f", "[", "0", "]"}]}], RowBox[{"27", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "3"]}]], "-", FractionBox[ RowBox[{"2", " ", RowBox[{"A", "[", "1", "]"}], " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "3"], " ", RowBox[{"f", "[", "0", "]"}]}], RowBox[{"27", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "3"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "1", "]"}], "4"], " ", RowBox[{"f", "[", "0", "]"}]}], RowBox[{"18", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "2"]}]], "+", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"A", "[", "1", "]"}], "2"], " ", RowBox[{"A", "[", "2", "]"}], " ", RowBox[{"f", "[", "0", "]"}]}], RowBox[{"9", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "2"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "5"], " ", RowBox[{"b", "[", "4", "]"}], " ", RowBox[{"f", "[", "0", "]"}]}], RowBox[{"243", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "4"]}]], "-", FractionBox[ RowBox[{ RowBox[{"A", "[", "1", "]"}], " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "3"], " ", RowBox[{"b", "[", "4", "]"}], " ", RowBox[{"f", "[", "0", "]"}]}], RowBox[{"27", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "3"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "1", "]"}], "2"], " ", RowBox[{"A", "[", "2", "]"}], " ", RowBox[{"b", "[", "4", "]"}], " ", RowBox[{"f", "[", "0", "]"}]}], RowBox[{"9", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "2"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "2"], " ", RowBox[{"b", "[", "4", "]"}], " ", RowBox[{"f", "[", "0", "]"}]}], RowBox[{"18", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "2"]}]], "-", FractionBox[ RowBox[{ RowBox[{"A", "[", "1", "]"}], " ", RowBox[{"b", "[", "4", "]"}], " ", RowBox[{"f", "[", "0", "]"}]}], RowBox[{"3", " ", RowBox[{"A", "[", "3", "]"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"b", "[", "4", "]"}], "2"], " ", RowBox[{"f", "[", "0", "]"}]}], RowBox[{"18", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "2"]}]], "-", RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "1", "]"}], "2"], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "5"]}], "-", RowBox[{"2", " ", RowBox[{"A", "[", "2", "]"}], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "5"]}], "-", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "4"], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "5"]}], RowBox[{"27", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "2"]}]], "+", FractionBox[ RowBox[{ RowBox[{"A", "[", "1", "]"}], " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "2"], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "5"]}], RowBox[{"3", " ", RowBox[{"A", "[", "3", "]"}]}]], "-", RowBox[{ RowBox[{"A", "[", "2", "]"}], " ", RowBox[{"b", "[", "4", "]"}], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "5"]}], "+", RowBox[{ FractionBox["9", "2"], " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "2"], " ", RowBox[{"f", "[", "0", "]"}], " ", SubsuperscriptBox["a", "5", "2"]}], "+", RowBox[{"3", " ", RowBox[{"A", "[", "3", "]"}], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "6"]}], "-", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "4"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], RowBox[{"81", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "3"]}]], "+", FractionBox[ RowBox[{ RowBox[{"A", "[", "1", "]"}], " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], RowBox[{"9", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "2"]}]], "-", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "1", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], RowBox[{"3", " ", RowBox[{"A", "[", "3", "]"}]}]], "+", FractionBox[ RowBox[{ RowBox[{"A", "[", "2", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], RowBox[{"3", " ", RowBox[{"A", "[", "3", "]"}]}]], "-", FractionBox[ RowBox[{ RowBox[{"A", "[", "2", "]"}], " ", RowBox[{"b", "[", "4", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], RowBox[{"3", " ", RowBox[{"A", "[", "3", "]"}]}]], "+", RowBox[{"3", " ", RowBox[{"A", "[", "3", "]"}], " ", SubscriptBox["a", "5"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", FractionBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}]], "Output", CellChangeTimes->{{3.755875517854062*^9, 3.7558755304725246`*^9}, 3.755875579391144*^9, 3.75587562026398*^9, 3.75587567334341*^9, { 3.755875752815339*^9, 3.755875793423603*^9}, {3.7558758883202267`*^9, 3.755875935009924*^9}, 3.755876015688389*^9, {3.755876054859782*^9, 3.755876107943524*^9}, {3.755876159601807*^9, 3.755876179026613*^9}, 3.75587623887215*^9, {3.755876308110261*^9, 3.7558763113450747`*^9}, { 3.755876591091544*^9, 3.755876595069475*^9}, {3.755876730682897*^9, 3.755876733772119*^9}, {3.755877363436366*^9, 3.755877366546823*^9}, { 3.755877407288651*^9, 3.755877410122324*^9}, 3.755877790467352*^9, { 3.755893415387486*^9, 3.755893467042817*^9}, {3.7559032949738617`*^9, 3.755903315560001*^9}, 3.755903962242793*^9, 3.755904583639076*^9, 3.75590628152354*^9, 3.7559063496048594`*^9, {3.756056814910684*^9, 3.75605685605124*^9}, 3.756056924143176*^9, 3.756056994609556*^9, { 3.7560570982534447`*^9, 3.7560571599296703`*^9}, 3.75605743513109*^9, { 3.7560581782568207`*^9, 3.756058243075766*^9}, {3.7560582837541523`*^9, 3.756058345450099*^9}, {3.756058383658382*^9, 3.75605839171288*^9}, 3.756058441676079*^9, {3.756058492331149*^9, 3.756058547978654*^9}}, CellLabel->"Out[93]=",ExpressionUUID->"df1478bc-00d3-449a-9c73-bdeb93252e49"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{"A", "[", "3", "]"}], SuperscriptBox["Y", "3"]], "-", FractionBox[ RowBox[{"A", "[", "3", "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"Y", "+", RowBox[{ SuperscriptBox["Y", "2"], " ", SubscriptBox["a", "2"]}], "+", RowBox[{ SuperscriptBox["Y", "3"], " ", SubscriptBox["a", "3"]}], "+", RowBox[{ SuperscriptBox["Y", "4"], " ", SubscriptBox["a", "4"]}], "+", RowBox[{ SuperscriptBox["Y", "5"], " ", SubscriptBox["a", "5"]}], "+", RowBox[{ SuperscriptBox["Y", "6"], " ", SubscriptBox["a", "6"]}], "+", RowBox[{ SuperscriptBox["Y", "7"], " ", SubscriptBox["a", "7"]}]}], ")"}], "3"]], "-", FractionBox[ RowBox[{"A", "[", "2", "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"Y", "+", RowBox[{ SuperscriptBox["Y", "2"], " ", SubscriptBox["a", "2"]}], "+", RowBox[{ SuperscriptBox["Y", "3"], " ", SubscriptBox["a", "3"]}], "+", RowBox[{ SuperscriptBox["Y", "4"], " ", SubscriptBox["a", "4"]}], "+", RowBox[{ SuperscriptBox["Y", "5"], " ", SubscriptBox["a", "5"]}], "+", RowBox[{ SuperscriptBox["Y", "6"], " ", SubscriptBox["a", "6"]}], "+", RowBox[{ SuperscriptBox["Y", "7"], " ", SubscriptBox["a", "7"]}]}], ")"}], "2"]], "-", FractionBox[ RowBox[{"A", "[", "1", "]"}], RowBox[{"Y", "+", RowBox[{ SuperscriptBox["Y", "2"], " ", SubscriptBox["a", "2"]}], "+", RowBox[{ SuperscriptBox["Y", "3"], " ", SubscriptBox["a", "3"]}], "+", RowBox[{ SuperscriptBox["Y", "4"], " ", SubscriptBox["a", "4"]}], "+", RowBox[{ SuperscriptBox["Y", "5"], " ", SubscriptBox["a", "5"]}], "+", RowBox[{ SuperscriptBox["Y", "6"], " ", SubscriptBox["a", "6"]}], "+", RowBox[{ SuperscriptBox["Y", "7"], " ", SubscriptBox["a", "7"]}]}]]}], "/.", RowBox[{ SubscriptBox["a", "2"], "\[Rule]", RowBox[{ RowBox[{"A", "[", "2", "]"}], "/", RowBox[{"(", RowBox[{"3", RowBox[{"A", "[", "3", "]"}]}], ")"}]}]}]}], ",", RowBox[{"{", RowBox[{"Y", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.756056872680354*^9, 3.7560568893904333`*^9}, { 3.7560569299662933`*^9, 3.756056930943475*^9}, {3.7560569987063*^9, 3.7560570055043097`*^9}, {3.7560572115029488`*^9, 3.756057219641644*^9}, { 3.7560573463776627`*^9, 3.756057347159141*^9}, {3.756058400804391*^9, 3.756058416281137*^9}, {3.756058456260038*^9, 3.756058467186824*^9}}, CellLabel->"In[89]:=",ExpressionUUID->"cab0a3f1-46ff-4ae3-a5d6-96d42fec30af"], Cell[BoxData[ InterpretationBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", RowBox[{"A", "[", "1", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"A", "[", "3", "]"}], " ", SubscriptBox["a", "3"]}]}], "Y"], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "3"], "+", RowBox[{"9", " ", RowBox[{"A", "[", "1", "]"}], " ", RowBox[{"A", "[", "2", "]"}], " ", RowBox[{"A", "[", "3", "]"}]}], "-", RowBox[{"54", " ", RowBox[{"A", "[", "2", "]"}], " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "2"], " ", SubscriptBox["a", "3"]}], "+", RowBox[{"81", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "3"], " ", SubscriptBox["a", "4"]}]}], RowBox[{"27", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "2"]}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "4"]}], "-", RowBox[{"3", " ", RowBox[{"A", "[", "1", "]"}], " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "2"], " ", RowBox[{"A", "[", "3", "]"}]}], "+", RowBox[{"36", " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "2"], " ", SubscriptBox["a", "3"]}], "+", RowBox[{"27", " ", RowBox[{"A", "[", "1", "]"}], " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "3"], " ", SubscriptBox["a", "3"]}], "-", RowBox[{"162", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "4"], " ", SubsuperscriptBox["a", "3", "2"]}], "-", RowBox[{"54", " ", RowBox[{"A", "[", "2", "]"}], " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "3"], " ", SubscriptBox["a", "4"]}], "+", RowBox[{"81", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "4"], " ", SubscriptBox["a", "5"]}]}], ")"}], " ", "Y"}], RowBox[{"27", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "3"]}]], "+", RowBox[{ FractionBox["1", RowBox[{"81", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "4"]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "5"]}], "+", RowBox[{"3", " ", RowBox[{"A", "[", "1", "]"}], " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "3"], " ", RowBox[{"A", "[", "3", "]"}]}], "-", RowBox[{"72", " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "2"], " ", SubscriptBox["a", "3"]}], "-", RowBox[{"54", " ", RowBox[{"A", "[", "1", "]"}], " ", RowBox[{"A", "[", "2", "]"}], " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "3"], " ", SubscriptBox["a", "3"]}], "+", RowBox[{"567", " ", RowBox[{"A", "[", "2", "]"}], " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "4"], " ", SubsuperscriptBox["a", "3", "2"]}], "+", RowBox[{"108", " ", SuperscriptBox[ RowBox[{"A", "[", "2", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "3"], " ", SubscriptBox["a", "4"]}], "+", RowBox[{"81", " ", RowBox[{"A", "[", "1", "]"}], " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "4"], " ", SubscriptBox["a", "4"]}], "-", RowBox[{"972", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "5"], " ", SubscriptBox["a", "3"], " ", SubscriptBox["a", "4"]}], "-", RowBox[{"162", " ", RowBox[{"A", "[", "2", "]"}], " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "4"], " ", SubscriptBox["a", "5"]}], "+", RowBox[{"243", " ", SuperscriptBox[ RowBox[{"A", "[", "3", "]"}], "5"], " ", SubscriptBox["a", "6"]}]}], ")"}], " ", SuperscriptBox["Y", "2"]}]}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "Y", "]"}], "3"], SeriesData[$CellContext`Y, 0, {}, -1, 3, 1], Editable->False]}], SeriesData[$CellContext`Y, 0, {-$CellContext`A[1] + 3 $CellContext`A[3] Subscript[$CellContext`a, 3], Rational[1, 27] $CellContext`A[3]^(-2) ($CellContext`A[2]^3 + 9 $CellContext`A[1] $CellContext`A[2] $CellContext`A[3] - 54 $CellContext`A[2] $CellContext`A[3]^2 Subscript[$CellContext`a, 3] + 81 $CellContext`A[3]^3 Subscript[$CellContext`a, 4]), Rational[1, 27] $CellContext`A[3]^(-3) (-$CellContext`A[2]^4 - 3 $CellContext`A[1] $CellContext`A[2]^2 $CellContext`A[3] + 36 $CellContext`A[2]^2 $CellContext`A[3]^2 Subscript[$CellContext`a, 3] + 27 $CellContext`A[1] $CellContext`A[3]^3 Subscript[$CellContext`a, 3] - 162 $CellContext`A[3]^4 Subscript[$CellContext`a, 3]^2 - 54 $CellContext`A[2] $CellContext`A[3]^3 Subscript[$CellContext`a, 4] + 81 $CellContext`A[3]^4 Subscript[$CellContext`a, 5]), Rational[1, 81] $CellContext`A[3]^(-4) (2 $CellContext`A[2]^5 + 3 $CellContext`A[1] $CellContext`A[2]^3 $CellContext`A[3] - 72 $CellContext`A[2]^3 $CellContext`A[3]^2 Subscript[$CellContext`a, 3] - 54 $CellContext`A[1] $CellContext`A[2] $CellContext`A[3]^3 Subscript[$CellContext`a, 3] + 567 $CellContext`A[2] $CellContext`A[3]^4 Subscript[$CellContext`a, 3]^2 + 108 $CellContext`A[2]^2 $CellContext`A[3]^3 Subscript[$CellContext`a, 4] + 81 $CellContext`A[1] $CellContext`A[3]^4 Subscript[$CellContext`a, 4] - 972 $CellContext`A[3]^5 Subscript[$CellContext`a, 3] Subscript[$CellContext`a, 4] - 162 $CellContext`A[2] $CellContext`A[3]^4 Subscript[$CellContext`a, 5] + 243 $CellContext`A[3]^5 Subscript[$CellContext`a, 6])}, -1, 3, 1], Editable->False]], "Output", CellChangeTimes->{ 3.756056889813308*^9, {3.7560569244495783`*^9, 3.756056931478859*^9}, 3.75605700589386*^9, 3.7560572200645113`*^9, 3.756057347494473*^9, 3.756058416729932*^9, 3.756058467509244*^9}, CellLabel->"Out[89]=",ExpressionUUID->"3f58ba3e-72ca-4dd5-b9ab-8fd3df361bb7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s12", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"c12", "\[Equal]", "0"}], ",", SubscriptBox["a", "3"]}], "]"}]}]], "Input", CellChangeTimes->{{3.755893471542695*^9, 3.755893493019618*^9}, { 3.7559039639188967`*^9, 3.755903968646435*^9}}, CellLabel->"In[76]:=",ExpressionUUID->"b2b56ad6-73a4-4b5c-a74c-a5e583a79d30"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ SubscriptBox["a", "3"], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], RowBox[{"A", " ", RowBox[{"f", "[", "0", "]"}]}]]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.7558934933838663`*^9, {3.755903295304267*^9, 3.7559033181950893`*^9}, { 3.755903964245771*^9, 3.755903968959626*^9}, {3.7559045816238623`*^9, 3.755904584195568*^9}, 3.755906350301443*^9}, CellLabel->"Out[76]=",ExpressionUUID->"43ea4ae2-6743-48ee-908e-53a613bb567d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c22", "=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalH]", "[", "2", "]"}], "[", RowBox[{"X", "[", "Y", "]"}], "]"}], "/", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "A"}], "/", "Y"}], "]"}]}], SuperscriptBox["Y", RowBox[{"b", "[", "2", "]"}]]}], "/.", RowBox[{ RowBox[{"X", "[", "Y", "]"}], "\[Rule]", RowBox[{"Y", "+", RowBox[{ SubscriptBox["a", "3"], SuperscriptBox["Y", "3"]}], "+", RowBox[{ SubscriptBox["a", "4"], SuperscriptBox["Y", "4"]}]}]}]}], ",", RowBox[{"{", RowBox[{"Y", ",", "0", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.755875482189352*^9, 3.755875530092328*^9}, { 3.75587557737519*^9, 3.755875582869075*^9}, {3.755875659000474*^9, 3.7558757932595663`*^9}, {3.7558758838282022`*^9, 3.755875934803454*^9}, { 3.755876010959289*^9, 3.755876015261304*^9}, {3.755876053803957*^9, 3.755876107622567*^9}, {3.7558761543853607`*^9, 3.755876195399214*^9}, { 3.7558763915255527`*^9, 3.7558764140748167`*^9}, {3.755876624743107*^9, 3.755876631359199*^9}, {3.755877421574501*^9, 3.755877425211659*^9}, { 3.755893502541963*^9, 3.755893514052718*^9}, 3.755903971602705*^9}, CellLabel->"In[81]:=",ExpressionUUID->"fe287598-6d85-418b-ad70-75bd3a04b97a"], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"b", "[", "2", "]"}], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "3"]}], "+", RowBox[{ SuperscriptBox["A", "2"], " ", RowBox[{"f", "[", "0", "]"}], " ", SubsuperscriptBox["a", "3", "2"]}], "+", RowBox[{"2", " ", "A", " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "4"]}], "+", RowBox[{"2", " ", "A", " ", SubscriptBox["a", "3"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], ")"}]}]], "Output", CellChangeTimes->{{3.755875517854062*^9, 3.7558755304725246`*^9}, 3.755875579391144*^9, 3.75587562026398*^9, 3.75587567334341*^9, { 3.755875752815339*^9, 3.755875793423603*^9}, {3.7558758883202267`*^9, 3.755875935009924*^9}, 3.755876015688389*^9, {3.755876054859782*^9, 3.755876107943524*^9}, {3.755876159601807*^9, 3.755876195856427*^9}, { 3.7558763930016537`*^9, 3.755876414633679*^9}, {3.755876627837193*^9, 3.755876631667873*^9}, {3.7558774166766787`*^9, 3.75587742589657*^9}, { 3.755893511058223*^9, 3.755893514277576*^9}, 3.755903319864244*^9, 3.75590398146966*^9, 3.755904584932953*^9, {3.755906369650753*^9, 3.755906413755725*^9}}, CellLabel->"Out[81]=",ExpressionUUID->"b8168584-10da-4532-8a3f-886261464832"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s22", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"c22", "\[Equal]", "0"}], "/.", RowBox[{"s12", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", SubscriptBox["a", "4"]}], "]"}]}]], "Input", CellChangeTimes->{{3.7558764018445044`*^9, 3.7558764331795263`*^9}, { 3.755876472054039*^9, 3.755876481635989*^9}, 3.7558766354497633`*^9, { 3.755893524735218*^9, 3.7558935286849737`*^9}, {3.755903984680045*^9, 3.755903987847043*^9}, {3.755904563699418*^9, 3.755904565289103*^9}}, CellLabel->"In[82]:=",ExpressionUUID->"6c566026-c1ce-44ba-a694-f37333911a8c"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ SubscriptBox["a", "4"], "\[Rule]", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"b", "[", "2", "]"}], " ", RowBox[{"f", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"A", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "-", RowBox[{"A", " ", RowBox[{"f", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]}], RowBox[{"2", " ", SuperscriptBox["A", "2"], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.7558764244066896`*^9, 3.755876433550189*^9}, { 3.755876473748312*^9, 3.755876481964292*^9}, 3.755876636091487*^9, 3.755893528969228*^9, 3.755903324101378*^9, 3.7559039881323547`*^9, { 3.755904571741036*^9, 3.755904585719964*^9}, 3.755906374157235*^9, 3.755906415668818*^9}, CellLabel->"Out[82]=",ExpressionUUID->"487b6fbc-791e-4edc-8cd3-06510e74d100"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c32", "=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalH]", "[", "2", "]"}], "[", RowBox[{"X", "[", "Y", "]"}], "]"}], "/", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "A"}], "/", "Y"}], "]"}]}], SuperscriptBox["Y", RowBox[{"b", "[", "2", "]"}]]}], "/.", RowBox[{ RowBox[{"X", "[", "Y", "]"}], "\[Rule]", RowBox[{"Y", "+", RowBox[{ SubscriptBox["a", "3"], SuperscriptBox["Y", "3"]}], "+", RowBox[{ SubscriptBox["a", "4"], SuperscriptBox["Y", "4"]}], "+", RowBox[{ SubscriptBox["a", "5"], SuperscriptBox["Y", "5"]}], "+", RowBox[{ SubscriptBox["a", "6"], SuperscriptBox["Y", "6"]}], "+", RowBox[{ SubscriptBox["a", "7"], SuperscriptBox["Y", "7"]}]}]}]}], ",", RowBox[{"{", RowBox[{"Y", ",", "0", ",", "3"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7558764986142683`*^9, 3.755876516773336*^9}, { 3.755876642186904*^9, 3.755876647479589*^9}, {3.755893546112706*^9, 3.755893585281641*^9}, 3.7558936684688377`*^9, 3.755903990236388*^9}, CellLabel->"In[33]:=",ExpressionUUID->"0b5017ee-0ae5-428f-ab5a-c913a4e3ff13"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"b", "[", "2", "]"}]}], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "4"]}], "+", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"f", "[", "0", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "A", " ", SubsuperscriptBox["a", "3", "2"]}], "+", RowBox[{ SuperscriptBox["A", "3"], " ", SubsuperscriptBox["a", "3", "3"]}], "+", RowBox[{"6", " ", SuperscriptBox["A", "2"], " ", SubscriptBox["a", "3"], " ", SubscriptBox["a", "4"]}], "+", RowBox[{"6", " ", "A", " ", SubscriptBox["a", "5"]}]}], ")"}]}], "+", RowBox[{ SubscriptBox["a", "3"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["A", "2"], " ", SubsuperscriptBox["a", "3", "2"]}], "+", RowBox[{"2", " ", "A", " ", SubscriptBox["a", "4"]}]}], ")"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "-", RowBox[{ RowBox[{"b", "[", "2", "]"}], " ", SubscriptBox["a", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"A", " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "3"]}], "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "A", " ", SubscriptBox["a", "3"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{ FractionBox["1", "6"], " ", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}]}]], "Output", CellChangeTimes->{ 3.755876517077086*^9, 3.755876648127837*^9, {3.755893561636825*^9, 3.7558935855799427`*^9}, 3.755893669543519*^9, 3.755903330199628*^9, 3.755903993809931*^9}, CellLabel->"Out[33]=",ExpressionUUID->"c9c989af-e89b-44ae-98f9-a973b6c654cf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s32", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"c32", "\[Equal]", "0"}], "/.", RowBox[{"s12", "[", RowBox[{"[", "1", "]"}], "]"}]}], "/.", RowBox[{"s22", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", SubscriptBox["a", "5"]}], "]"}]}]], "Input", CellChangeTimes->{{3.755876520710517*^9, 3.7558765466133347`*^9}, { 3.755876660775591*^9, 3.755876661526739*^9}, {3.755876760850528*^9, 3.755876761288683*^9}, {3.755893600448748*^9, 3.755893609169582*^9}, { 3.755903996243135*^9, 3.755904001017695*^9}}, CellLabel->"In[34]:=",ExpressionUUID->"73ce0861-86ca-42e2-a377-0c0a1aa6f379"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ SubscriptBox["a", "5"], "\[Rule]", RowBox[{ FractionBox["1", RowBox[{"6", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", SuperscriptBox[ RowBox[{"b", "[", "2", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"12", " ", "A", " ", RowBox[{"f", "[", "0", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "+", RowBox[{"3", " ", "A", " ", RowBox[{"b", "[", "2", "]"}], " ", RowBox[{"f", "[", "0", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "-", RowBox[{"2", " ", SuperscriptBox["A", "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "3"]}], "-", RowBox[{"3", " ", "A", " ", RowBox[{"b", "[", "2", "]"}], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"3", " ", SuperscriptBox["A", "2"], " ", RowBox[{"f", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "-", RowBox[{ SuperscriptBox["A", "2"], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.755876532932132*^9, 3.7558765506123*^9}, 3.7558766618805532`*^9, 3.755876761481163*^9, {3.755893605095592*^9, 3.7558936098420773`*^9}, 3.755893670380773*^9, 3.755903331560048*^9, 3.755904001380454*^9}, CellLabel->"Out[34]=",ExpressionUUID->"e9d3a0b0-9eee-46d0-9632-40fa31d4feee"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c42", "=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalH]", "[", "2", "]"}], "[", RowBox[{"X", "[", "Y", "]"}], "]"}], "/", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "A"}], "/", "Y"}], "]"}]}], SuperscriptBox["Y", RowBox[{"b", "[", "2", "]"}]]}], "/.", RowBox[{ RowBox[{"X", "[", "Y", "]"}], "\[Rule]", RowBox[{"Y", "+", RowBox[{ SubscriptBox["a", "3"], SuperscriptBox["Y", "3"]}], "+", RowBox[{ SubscriptBox["a", "4"], SuperscriptBox["Y", "4"]}], "+", RowBox[{ SubscriptBox["a", "5"], SuperscriptBox["Y", "5"]}], "+", RowBox[{ SubscriptBox["a", "6"], SuperscriptBox["Y", "6"]}], "+", RowBox[{ SubscriptBox["a", "7"], SuperscriptBox["Y", "7"]}]}]}]}], ",", RowBox[{"{", RowBox[{"Y", ",", "0", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7558764986142683`*^9, 3.755876516773336*^9}, { 3.755876642186904*^9, 3.755876647479589*^9}, {3.75587668189727*^9, 3.755876703823423*^9}, {3.7558936399690037`*^9, 3.75589365575041*^9}, { 3.755904003442932*^9, 3.75590400525378*^9}}, CellLabel->"In[35]:=",ExpressionUUID->"9113eae8-9995-4066-b8cd-a03b38806f54"], Cell[BoxData[ RowBox[{ FractionBox["1", "24"], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", RowBox[{"b", "[", "2", "]"}], " ", RowBox[{"f", "[", "0", "]"}], " ", SubsuperscriptBox["a", "3", "2"]}], "+", RowBox[{"12", " ", SuperscriptBox[ RowBox[{"b", "[", "2", "]"}], "2"], " ", RowBox[{"f", "[", "0", "]"}], " ", SubsuperscriptBox["a", "3", "2"]}], "-", RowBox[{"24", " ", SuperscriptBox["A", "2"], " ", RowBox[{"f", "[", "0", "]"}], " ", SubsuperscriptBox["a", "3", "3"]}], "-", RowBox[{"12", " ", SuperscriptBox["A", "2"], " ", RowBox[{"b", "[", "2", "]"}], " ", RowBox[{"f", "[", "0", "]"}], " ", SubsuperscriptBox["a", "3", "3"]}], "+", RowBox[{ SuperscriptBox["A", "4"], " ", RowBox[{"f", "[", "0", "]"}], " ", SubsuperscriptBox["a", "3", "4"]}], "-", RowBox[{"48", " ", "A", " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "3"], " ", SubscriptBox["a", "4"]}], "-", RowBox[{"48", " ", "A", " ", RowBox[{"b", "[", "2", "]"}], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "3"], " ", SubscriptBox["a", "4"]}], "+", RowBox[{"12", " ", SuperscriptBox["A", "3"], " ", RowBox[{"f", "[", "0", "]"}], " ", SubsuperscriptBox["a", "3", "2"], " ", SubscriptBox["a", "4"]}], "+", RowBox[{"12", " ", SuperscriptBox["A", "2"], " ", RowBox[{"f", "[", "0", "]"}], " ", SubsuperscriptBox["a", "4", "2"]}], "-", RowBox[{"24", " ", RowBox[{"b", "[", "2", "]"}], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "5"]}], "+", RowBox[{"24", " ", SuperscriptBox["A", "2"], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "3"], " ", SubscriptBox["a", "5"]}], "+", RowBox[{"24", " ", "A", " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "6"]}], "-", RowBox[{"24", " ", "A", " ", RowBox[{"b", "[", "2", "]"}], " ", SubsuperscriptBox["a", "3", "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox["A", "3"], " ", SubsuperscriptBox["a", "3", "3"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"24", " ", SubscriptBox["a", "4"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "-", RowBox[{"24", " ", RowBox[{"b", "[", "2", "]"}], " ", SubscriptBox["a", "4"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"24", " ", SuperscriptBox["A", "2"], " ", SubscriptBox["a", "3"], " ", SubscriptBox["a", "4"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"24", " ", "A", " ", SubscriptBox["a", "5"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"24", " ", SubscriptBox["a", "3"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "-", RowBox[{"12", " ", RowBox[{"b", "[", "2", "]"}], " ", SubscriptBox["a", "3"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox["A", "2"], " ", SubsuperscriptBox["a", "3", "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"12", " ", "A", " ", SubscriptBox["a", "4"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"4", " ", "A", " ", SubscriptBox["a", "3"], " ", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}], ")"}]}]], "Output", CellChangeTimes->{ 3.755876517077086*^9, 3.755876648127837*^9, {3.755876686584494*^9, 3.755876704176655*^9}, 3.755893673157879*^9, 3.7559033326416607`*^9, 3.755904007190686*^9}, CellLabel->"Out[35]=",ExpressionUUID->"310b5372-fe11-4011-8dd5-0d8904e26b68"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"c42", "\[Equal]", "0"}], "/.", RowBox[{"s12", "[", RowBox[{"[", "1", "]"}], "]"}]}], "/.", RowBox[{"s22", "[", RowBox[{"[", "1", "]"}], "]"}]}], "/.", RowBox[{"s32", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", SubscriptBox["a", "6"]}], "]"}]], "Input", CellChangeTimes->{{3.755876520710517*^9, 3.7558765466133347`*^9}, { 3.755876660775591*^9, 3.755876661526739*^9}, {3.7558767552577753`*^9, 3.755876768744478*^9}, {3.7558936810155973`*^9, 3.755893687423382*^9}, { 3.755904010805686*^9, 3.7559040170918427`*^9}}, CellLabel->"In[36]:=",ExpressionUUID->"70b899c3-e437-421a-8895-987392ee433a"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ SubscriptBox["a", "6"], "\[Rule]", RowBox[{ FractionBox["1", RowBox[{"24", " ", SuperscriptBox["A", "4"], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "4"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "24"}], " ", SuperscriptBox[ RowBox[{"b", "[", "2", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"108", " ", "A", " ", RowBox[{"b", "[", "2", "]"}], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "+", RowBox[{"12", " ", "A", " ", SuperscriptBox[ RowBox[{"b", "[", "2", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "-", RowBox[{"60", " ", SuperscriptBox["A", "2"], " ", RowBox[{"f", "[", "0", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "3"]}], "-", RowBox[{"8", " ", SuperscriptBox["A", "2"], " ", RowBox[{"b", "[", "2", "]"}], " ", RowBox[{"f", "[", "0", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "3"]}], "+", RowBox[{"6", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "4"]}], "-", RowBox[{"12", " ", "A", " ", SuperscriptBox[ RowBox[{"b", "[", "2", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"60", " ", SuperscriptBox["A", "2"], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"12", " ", SuperscriptBox["A", "2"], " ", RowBox[{"b", "[", "2", "]"}], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "-", RowBox[{"12", " ", SuperscriptBox["A", "3"], " ", RowBox[{"f", "[", "0", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"3", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "-", RowBox[{"4", " ", SuperscriptBox["A", "2"], " ", RowBox[{"b", "[", "2", "]"}], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"], " ", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"], " ", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.755876532932132*^9, 3.7558765506123*^9}, 3.7558766618805532`*^9, 3.755876769240903*^9, 3.755893688726388*^9, 3.755903335008829*^9, 3.755904017522241*^9}, CellLabel->"Out[36]=",ExpressionUUID->"0632b902-dc0d-404b-ae51-3a79bbd9ad48"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c13", "=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalH]", "[", "3", "]"}], "[", RowBox[{"X", "[", "Y", "]"}], "]"}], "/", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "A"}], "/", SuperscriptBox["Y", "2"]}], "]"}]}], SuperscriptBox["Y", RowBox[{"b", "[", "3", "]"}]]}], "/.", RowBox[{ RowBox[{"X", "[", "Y", "]"}], "\[Rule]", RowBox[{"Y", "+", RowBox[{ SubscriptBox["a", "4"], SuperscriptBox["Y", "4"]}], "+", RowBox[{ SubscriptBox["a", "5"], SuperscriptBox["Y", "5"]}], "+", RowBox[{ SubscriptBox["a", "6"], SuperscriptBox["Y", "6"]}], "+", RowBox[{ SubscriptBox["a", "7"], SuperscriptBox["Y", "7"]}]}]}]}], ",", RowBox[{"{", RowBox[{"Y", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.755875482189352*^9, 3.755875530092328*^9}, { 3.75587557737519*^9, 3.755875582869075*^9}, {3.755875659000474*^9, 3.7558757932595663`*^9}, {3.7558758838282022`*^9, 3.755875934803454*^9}, { 3.755876010959289*^9, 3.755876015261304*^9}, {3.755876053803957*^9, 3.755876107622567*^9}, {3.7558761543853607`*^9, 3.755876178799548*^9}, 3.755876310973308*^9, {3.755876584531127*^9, 3.755876594814355*^9}, { 3.7558767303875237`*^9, 3.75587673352853*^9}, {3.7558773548291273`*^9, 3.755877365678813*^9}, 3.755877409075362*^9, {3.755893419231349*^9, 3.755893466780015*^9}, {3.7558940325678177`*^9, 3.755894064452505*^9}, { 3.755904020536221*^9, 3.7559040321239367`*^9}}, CellLabel->"In[39]:=",ExpressionUUID->"3f2a6676-1a4a-41b9-8975-78da98c9db4c"], Cell[BoxData[ RowBox[{ RowBox[{"2", " ", "A", " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "4"]}], "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]], "Output", CellChangeTimes->{{3.755875517854062*^9, 3.7558755304725246`*^9}, 3.755875579391144*^9, 3.75587562026398*^9, 3.75587567334341*^9, { 3.755875752815339*^9, 3.755875793423603*^9}, {3.7558758883202267`*^9, 3.755875935009924*^9}, 3.755876015688389*^9, {3.755876054859782*^9, 3.755876107943524*^9}, {3.755876159601807*^9, 3.755876179026613*^9}, 3.75587623887215*^9, {3.755876308110261*^9, 3.7558763113450747`*^9}, { 3.755876591091544*^9, 3.755876595069475*^9}, {3.755876730682897*^9, 3.755876733772119*^9}, {3.755877363436366*^9, 3.755877366546823*^9}, { 3.755877407288651*^9, 3.755877410122324*^9}, 3.755877790467352*^9, { 3.755893415387486*^9, 3.755893467042817*^9}, {3.755894041177959*^9, 3.755894069411105*^9}, 3.7559033361164703`*^9, {3.755904023806081*^9, 3.755904033250235*^9}}, CellLabel->"Out[39]=",ExpressionUUID->"bb6921ee-3572-4a1e-9715-426663da2003"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s13", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"c13", "\[Equal]", "0"}], ",", SubscriptBox["a", "4"]}], "]"}]}]], "Input", CellChangeTimes->{{3.755893471542695*^9, 3.755893493019618*^9}, { 3.755894073391698*^9, 3.755894073478023*^9}, {3.755904025990951*^9, 3.755904037441411*^9}}, CellLabel->"In[40]:=",ExpressionUUID->"026dbff9-6345-40c7-846b-ff24dc2b45da"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ SubscriptBox["a", "4"], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], RowBox[{"2", " ", "A", " ", RowBox[{"f", "[", "0", "]"}]}]]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.7558934933838663`*^9, 3.755894074138431*^9, 3.755903337456862*^9, { 3.755904028174037*^9, 3.7559040377099867`*^9}}, CellLabel->"Out[40]=",ExpressionUUID->"bfa005b0-cfce-4912-abe1-27728b8a57d9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c23", "=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalH]", "[", "3", "]"}], "[", RowBox[{"X", "[", "Y", "]"}], "]"}], "/", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "A"}], "/", SuperscriptBox["Y", "2"]}], "]"}]}], SuperscriptBox["Y", RowBox[{"b", "[", "3", "]"}]]}], "/.", RowBox[{ RowBox[{"X", "[", "Y", "]"}], "\[Rule]", RowBox[{"Y", "+", RowBox[{ SubscriptBox["a", "4"], SuperscriptBox["Y", "4"]}], "+", RowBox[{ SubscriptBox["a", "5"], SuperscriptBox["Y", "5"]}], "+", RowBox[{ SubscriptBox["a", "6"], SuperscriptBox["Y", "6"]}], "+", RowBox[{ SubscriptBox["a", "7"], SuperscriptBox["Y", "7"]}]}]}]}], ",", RowBox[{"{", RowBox[{"Y", ",", "0", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.755875482189352*^9, 3.755875530092328*^9}, { 3.75587557737519*^9, 3.755875582869075*^9}, {3.755875659000474*^9, 3.7558757932595663`*^9}, {3.7558758838282022`*^9, 3.755875934803454*^9}, { 3.755876010959289*^9, 3.755876015261304*^9}, {3.755876053803957*^9, 3.755876107622567*^9}, {3.7558761543853607`*^9, 3.755876195399214*^9}, { 3.7558763915255527`*^9, 3.7558764140748167`*^9}, {3.755876624743107*^9, 3.755876631359199*^9}, {3.755877421574501*^9, 3.755877425211659*^9}, { 3.755893502541963*^9, 3.755893514052718*^9}, {3.755894067187777*^9, 3.755894094231802*^9}, {3.7559040401529903`*^9, 3.755904048538026*^9}}, CellLabel->"In[42]:=",ExpressionUUID->"a12fb9de-9cdf-4485-b025-f9f3c4e7bfc3"], Cell[BoxData[ RowBox[{ RowBox[{"2", " ", SuperscriptBox["A", "2"], " ", RowBox[{"f", "[", "0", "]"}], " ", SubsuperscriptBox["a", "4", "2"]}], "+", RowBox[{"2", " ", "A", " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "5"]}], "+", RowBox[{"2", " ", "A", " ", SubscriptBox["a", "4"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", FractionBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}]], "Output", CellChangeTimes->{{3.755875517854062*^9, 3.7558755304725246`*^9}, 3.755875579391144*^9, 3.75587562026398*^9, 3.75587567334341*^9, { 3.755875752815339*^9, 3.755875793423603*^9}, {3.7558758883202267`*^9, 3.755875935009924*^9}, 3.755876015688389*^9, {3.755876054859782*^9, 3.755876107943524*^9}, {3.755876159601807*^9, 3.755876195856427*^9}, { 3.7558763930016537`*^9, 3.755876414633679*^9}, {3.755876627837193*^9, 3.755876631667873*^9}, {3.7558774166766787`*^9, 3.75587742589657*^9}, { 3.755893511058223*^9, 3.755893514277576*^9}, {3.75589408982563*^9, 3.755894094549667*^9}, 3.7559033389881773`*^9, {3.7559040418957863`*^9, 3.755904048938102*^9}}, CellLabel->"Out[42]=",ExpressionUUID->"199bdc71-89b8-4e78-9a5f-e432ddc48931"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s23", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"c23", "\[Equal]", "0"}], "/.", RowBox[{"s13", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", SubscriptBox["a", "5"]}], "]"}]}]], "Input", CellChangeTimes->{{3.7558764018445044`*^9, 3.7558764331795263`*^9}, { 3.755876472054039*^9, 3.755876481635989*^9}, 3.7558766354497633`*^9, { 3.755893524735218*^9, 3.7558935286849737`*^9}, {3.755894100311884*^9, 3.755894101318531*^9}, {3.75590405099885*^9, 3.7559040546341476`*^9}}, CellLabel->"In[43]:=",ExpressionUUID->"690bf8a4-9971-4d09-b95c-65cbb97b53dd"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ SubscriptBox["a", "5"], "\[Rule]", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"], "-", RowBox[{ RowBox[{"f", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]}], RowBox[{"4", " ", "A", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.7558764244066896`*^9, 3.755876433550189*^9}, { 3.755876473748312*^9, 3.755876481964292*^9}, 3.755876636091487*^9, 3.755893528969228*^9, 3.7558941016963797`*^9, 3.75590335110741*^9, 3.755904055081406*^9}, CellLabel->"Out[43]=",ExpressionUUID->"2c6a5a50-cb3b-4072-b847-336729e161bf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c33", "=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalH]", "[", "3", "]"}], "[", RowBox[{"X", "[", "Y", "]"}], "]"}], "/", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "A"}], "/", SuperscriptBox["Y", "2"]}], "]"}]}], SuperscriptBox["Y", RowBox[{"b", "[", "3", "]"}]]}], "/.", RowBox[{ RowBox[{"X", "[", "Y", "]"}], "\[Rule]", RowBox[{"Y", "+", RowBox[{ SubscriptBox["a", "4"], SuperscriptBox["Y", "4"]}], "+", RowBox[{ SubscriptBox["a", "5"], SuperscriptBox["Y", "5"]}], "+", RowBox[{ SubscriptBox["a", "6"], SuperscriptBox["Y", "6"]}], "+", RowBox[{ SubscriptBox["a", "7"], SuperscriptBox["Y", "7"]}]}]}]}], ",", RowBox[{"{", RowBox[{"Y", ",", "0", ",", "3"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7558764986142683`*^9, 3.755876516773336*^9}, { 3.755876642186904*^9, 3.755876647479589*^9}, {3.755893546112706*^9, 3.755893585281641*^9}, 3.7558936684688377`*^9, {3.755894129137804*^9, 3.755894139384581*^9}, 3.7559040570635023`*^9}, CellLabel->"In[44]:=",ExpressionUUID->"65446e1d-ab32-48e7-83fc-d6a5eaf55a6b"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"b", "[", "3", "]"}]}], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "4"]}], "+", RowBox[{ FractionBox["2", "3"], " ", RowBox[{"f", "[", "0", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["A", "3"], " ", SubsuperscriptBox["a", "4", "3"]}], "+", RowBox[{"6", " ", SuperscriptBox["A", "2"], " ", SubscriptBox["a", "4"], " ", SubscriptBox["a", "5"]}], "+", RowBox[{"3", " ", "A", " ", SubscriptBox["a", "6"]}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["A", "2"], " ", SubsuperscriptBox["a", "4", "2"]}], "+", RowBox[{"A", " ", SubscriptBox["a", "5"]}]}], ")"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"A", " ", SubscriptBox["a", "4"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{ FractionBox["1", "6"], " ", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}]}]], "Output", CellChangeTimes->{ 3.755876517077086*^9, 3.755876648127837*^9, {3.755893561636825*^9, 3.7558935855799427`*^9}, 3.755893669543519*^9, 3.75589413988035*^9, 3.755903353224431*^9, 3.755904058406502*^9}, CellLabel->"Out[44]=",ExpressionUUID->"e93135e8-3f38-495e-87eb-bec996b0d556"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s33", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"c33", "\[Equal]", "0"}], "/.", RowBox[{"s13", "[", RowBox[{"[", "1", "]"}], "]"}]}], "/.", RowBox[{"s23", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", SubscriptBox["a", "6"]}], "]"}]}]], "Input", CellChangeTimes->{{3.755876520710517*^9, 3.7558765466133347`*^9}, { 3.755876660775591*^9, 3.755876661526739*^9}, {3.755876760850528*^9, 3.755876761288683*^9}, {3.755893600448748*^9, 3.755893609169582*^9}, { 3.755894145225738*^9, 3.755894146703067*^9}, {3.755904060876693*^9, 3.755904066956912*^9}}, CellLabel->"In[45]:=",ExpressionUUID->"8f20dd13-db42-4729-b167-f229aa4a3b7e"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ SubscriptBox["a", "6"], "\[Rule]", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", RowBox[{"b", "[", "3", "]"}], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "-", RowBox[{"2", " ", "A", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "3"]}], "+", RowBox[{"3", " ", "A", " ", RowBox[{"f", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "-", RowBox[{"A", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}]}], RowBox[{"12", " ", SuperscriptBox["A", "2"], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.755876532932132*^9, 3.7558765506123*^9}, 3.7558766618805532`*^9, 3.755876761481163*^9, {3.755893605095592*^9, 3.7558936098420773`*^9}, 3.755893670380773*^9, 3.7558941471807833`*^9, 3.755903354622189*^9, 3.755904067253439*^9}, CellLabel->"Out[45]=",ExpressionUUID->"3bb7f71d-e257-46ba-9dea-7b580e6ba6ad"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c43", "=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalH]", "[", "3", "]"}], "[", RowBox[{"X", "[", "Y", "]"}], "]"}], "/", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "A"}], "/", SuperscriptBox["Y", "2"]}], "]"}]}], SuperscriptBox["Y", RowBox[{"b", "[", "3", "]"}]]}], "/.", RowBox[{ RowBox[{"X", "[", "Y", "]"}], "\[Rule]", RowBox[{"Y", "+", RowBox[{ SubscriptBox["a", "4"], SuperscriptBox["Y", "4"]}], "+", RowBox[{ SubscriptBox["a", "5"], SuperscriptBox["Y", "5"]}], "+", RowBox[{ SubscriptBox["a", "6"], SuperscriptBox["Y", "6"]}], "+", RowBox[{ SubscriptBox["a", "7"], SuperscriptBox["Y", "7"]}]}]}]}], ",", RowBox[{"{", RowBox[{"Y", ",", "0", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7558764986142683`*^9, 3.755876516773336*^9}, { 3.755876642186904*^9, 3.755876647479589*^9}, {3.75587668189727*^9, 3.755876703823423*^9}, {3.7558936399690037`*^9, 3.75589365575041*^9}, { 3.755894159906083*^9, 3.7558941703931007`*^9}, 3.755904069487954*^9}, CellLabel->"In[46]:=",ExpressionUUID->"94bea634-1ea8-450c-8712-a08a30280741"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"b", "[", "3", "]"}]}], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "5"]}], "+", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"f", "[", "0", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "9"}], " ", "A", " ", SubsuperscriptBox["a", "4", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["A", "4"], " ", SubsuperscriptBox["a", "4", "4"]}], "+", RowBox[{"12", " ", SuperscriptBox["A", "3"], " ", SubsuperscriptBox["a", "4", "2"], " ", SubscriptBox["a", "5"]}], "+", RowBox[{"6", " ", SuperscriptBox["A", "2"], " ", SubsuperscriptBox["a", "5", "2"]}], "+", RowBox[{"12", " ", SuperscriptBox["A", "2"], " ", SubscriptBox["a", "4"], " ", SubscriptBox["a", "6"]}], "+", RowBox[{"6", " ", "A", " ", SubscriptBox["a", "7"]}]}], ")"}]}], "+", RowBox[{ SubscriptBox["a", "4"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{ FractionBox["2", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["A", "3"], " ", SubsuperscriptBox["a", "4", "3"]}], "+", RowBox[{"6", " ", SuperscriptBox["A", "2"], " ", SubscriptBox["a", "4"], " ", SubscriptBox["a", "5"]}], "+", RowBox[{"3", " ", "A", " ", SubscriptBox["a", "6"]}]}], ")"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "-", RowBox[{ RowBox[{"b", "[", "3", "]"}], " ", SubscriptBox["a", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "A", " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "4"]}], "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["A", "2"], " ", SubsuperscriptBox["a", "4", "2"]}], "+", RowBox[{"A", " ", SubscriptBox["a", "5"]}]}], ")"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{ FractionBox["1", "3"], " ", "A", " ", SubscriptBox["a", "4"], " ", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{ FractionBox["1", "24"], " ", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}]}]], "Output", CellChangeTimes->{ 3.755876517077086*^9, 3.755876648127837*^9, {3.755876686584494*^9, 3.755876704176655*^9}, 3.755893673157879*^9, 3.755894170907789*^9, 3.755903356540062*^9, 3.755904071167697*^9}, CellLabel->"Out[46]=",ExpressionUUID->"5946d9da-f73a-4616-b6ba-3468fb7fc8b8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"c43", "\[Equal]", "0"}], "/.", RowBox[{"s13", "[", RowBox[{"[", "1", "]"}], "]"}]}], "/.", RowBox[{"s23", "[", RowBox[{"[", "1", "]"}], "]"}]}], "/.", RowBox[{"s33", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", SubscriptBox["a", "7"]}], "]"}]], "Input", CellChangeTimes->{{3.755876520710517*^9, 3.7558765466133347`*^9}, { 3.755876660775591*^9, 3.755876661526739*^9}, {3.7558767552577753`*^9, 3.755876768744478*^9}, {3.7558936810155973`*^9, 3.755893687423382*^9}, { 3.7558941753311872`*^9, 3.755894176111874*^9}, {3.755904072808035*^9, 3.7559040817175083`*^9}}, CellLabel->"In[47]:=",ExpressionUUID->"8d95964c-d1b9-4ea7-ad4d-3310eab145be"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ SubscriptBox["a", "7"], "\[Rule]", RowBox[{ FractionBox["1", RowBox[{"48", " ", SuperscriptBox["A", "2"], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "4"]}]], RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "+", RowBox[{"6", " ", RowBox[{"b", "[", "3", "]"}], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "+", RowBox[{"6", " ", "A", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "4"]}], "-", RowBox[{"6", " ", RowBox[{"b", "[", "3", "]"}], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "-", RowBox[{"12", " ", "A", " ", RowBox[{"f", "[", "0", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"3", " ", "A", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "+", RowBox[{"4", " ", "A", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}], "-", RowBox[{"A", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"], " ", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.755876532932132*^9, 3.7558765506123*^9}, 3.7558766618805532`*^9, 3.755876769240903*^9, 3.755893688726388*^9, { 3.755894171724524*^9, 3.7558941764918137`*^9}, 3.755903357703167*^9, 3.755904082091606*^9}, CellLabel->"Out[47]=",ExpressionUUID->"e5602d2f-bb91-4401-82d4-83d97e78675b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c14", "=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalH]", "[", "4", "]"}], "[", RowBox[{"X", "[", "Y", "]"}], "]"}], "/", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "A"}], "/", SuperscriptBox["Y", "3"]}], "]"}]}], SuperscriptBox["Y", RowBox[{"b", "[", "4", "]"}]]}], "/.", RowBox[{ RowBox[{"X", "[", "Y", "]"}], "\[Rule]", RowBox[{"Y", "+", RowBox[{ SubscriptBox["a", "5"], SuperscriptBox["Y", "5"]}], "+", RowBox[{ SubscriptBox["a", "6"], SuperscriptBox["Y", "6"]}], "+", RowBox[{ SubscriptBox["a", "7"], SuperscriptBox["Y", "7"]}], "+", RowBox[{ SubscriptBox["a", "8"], SuperscriptBox["Y", "8"]}]}]}]}], ",", RowBox[{"{", RowBox[{"Y", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.755875482189352*^9, 3.755875530092328*^9}, { 3.75587557737519*^9, 3.755875582869075*^9}, {3.755875659000474*^9, 3.7558757932595663`*^9}, {3.7558758838282022`*^9, 3.755875934803454*^9}, { 3.755876010959289*^9, 3.755876015261304*^9}, {3.755876053803957*^9, 3.755876107622567*^9}, {3.7558761543853607`*^9, 3.755876178799548*^9}, 3.755876310973308*^9, {3.755876584531127*^9, 3.755876594814355*^9}, { 3.7558767303875237`*^9, 3.75587673352853*^9}, {3.7558773548291273`*^9, 3.755877365678813*^9}, 3.755877409075362*^9, {3.755893419231349*^9, 3.755893466780015*^9}, {3.7558940325678177`*^9, 3.755894064452505*^9}, { 3.755894244032991*^9, 3.755894259161158*^9}, 3.7559040850816793`*^9}, CellLabel->"In[48]:=",ExpressionUUID->"64e531df-0654-4956-866a-23d26adf4575"], Cell[BoxData[ RowBox[{ RowBox[{"3", " ", "A", " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "5"]}], "+", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]], "Output", CellChangeTimes->{{3.755875517854062*^9, 3.7558755304725246`*^9}, 3.755875579391144*^9, 3.75587562026398*^9, 3.75587567334341*^9, { 3.755875752815339*^9, 3.755875793423603*^9}, {3.7558758883202267`*^9, 3.755875935009924*^9}, 3.755876015688389*^9, {3.755876054859782*^9, 3.755876107943524*^9}, {3.755876159601807*^9, 3.755876179026613*^9}, 3.75587623887215*^9, {3.755876308110261*^9, 3.7558763113450747`*^9}, { 3.755876591091544*^9, 3.755876595069475*^9}, {3.755876730682897*^9, 3.755876733772119*^9}, {3.755877363436366*^9, 3.755877366546823*^9}, { 3.755877407288651*^9, 3.755877410122324*^9}, 3.755877790467352*^9, { 3.755893415387486*^9, 3.755893467042817*^9}, {3.755894041177959*^9, 3.755894069411105*^9}, 3.755894259781522*^9, 3.7559033587669*^9, 3.755904087314369*^9}, CellLabel->"Out[48]=",ExpressionUUID->"371093d6-a8fa-4711-bf1e-983097d52f76"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s14", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"c14", "\[Equal]", "0"}], ",", SubscriptBox["a", "5"]}], "]"}]}]], "Input", CellChangeTimes->{{3.755893471542695*^9, 3.755893493019618*^9}, { 3.755894073391698*^9, 3.755894073478023*^9}, {3.7558942754442177`*^9, 3.7558942755214567`*^9}, {3.7559040890719137`*^9, 3.755904091284842*^9}}, CellLabel->"In[49]:=",ExpressionUUID->"3137ad4c-13ef-4a23-886b-c9e98bd71cf6"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ SubscriptBox["a", "5"], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], RowBox[{"3", " ", "A", " ", RowBox[{"f", "[", "0", "]"}]}]]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.7558934933838663`*^9, 3.755894074138431*^9, {3.755894271772336*^9, 3.75589427592701*^9}, 3.755903360017503*^9, 3.755904091682774*^9}, CellLabel->"Out[49]=",ExpressionUUID->"16c00e93-00b9-4fad-ba98-739421b88a09"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c24", "=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalH]", "[", "4", "]"}], "[", RowBox[{"X", "[", "Y", "]"}], "]"}], "/", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "A"}], "/", SuperscriptBox["Y", "3"]}], "]"}]}], SuperscriptBox["Y", RowBox[{"b", "[", "4", "]"}]]}], "/.", RowBox[{ RowBox[{"X", "[", "Y", "]"}], "\[Rule]", RowBox[{"Y", "+", RowBox[{ SubscriptBox["a", "5"], SuperscriptBox["Y", "5"]}], "+", RowBox[{ SubscriptBox["a", "6"], SuperscriptBox["Y", "6"]}], "+", RowBox[{ SubscriptBox["a", "7"], SuperscriptBox["Y", "7"]}], "+", RowBox[{ SubscriptBox["a", "8"], SuperscriptBox["Y", "8"]}]}]}]}], ",", RowBox[{"{", RowBox[{"Y", ",", "0", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.755875482189352*^9, 3.755875530092328*^9}, { 3.75587557737519*^9, 3.755875582869075*^9}, {3.755875659000474*^9, 3.7558757932595663`*^9}, {3.7558758838282022`*^9, 3.755875934803454*^9}, { 3.755876010959289*^9, 3.755876015261304*^9}, {3.755876053803957*^9, 3.755876107622567*^9}, {3.7558761543853607`*^9, 3.755876195399214*^9}, { 3.7558763915255527`*^9, 3.7558764140748167`*^9}, {3.755876624743107*^9, 3.755876631359199*^9}, {3.755877421574501*^9, 3.755877425211659*^9}, { 3.755893502541963*^9, 3.755893514052718*^9}, {3.755894067187777*^9, 3.755894094231802*^9}, {3.755894281606381*^9, 3.755894295291101*^9}, 3.755904094958068*^9}, CellLabel->"In[50]:=",ExpressionUUID->"163dac58-ced3-454e-8740-032104b4d6c5"], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"9", " ", SuperscriptBox["A", "2"], " ", RowBox[{"f", "[", "0", "]"}], " ", SubsuperscriptBox["a", "5", "2"]}], "+", RowBox[{"6", " ", "A", " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "6"]}], "+", RowBox[{"6", " ", "A", " ", SubscriptBox["a", "5"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], ")"}]}]], "Output", CellChangeTimes->{{3.755875517854062*^9, 3.7558755304725246`*^9}, 3.755875579391144*^9, 3.75587562026398*^9, 3.75587567334341*^9, { 3.755875752815339*^9, 3.755875793423603*^9}, {3.7558758883202267`*^9, 3.755875935009924*^9}, 3.755876015688389*^9, {3.755876054859782*^9, 3.755876107943524*^9}, {3.755876159601807*^9, 3.755876195856427*^9}, { 3.7558763930016537`*^9, 3.755876414633679*^9}, {3.755876627837193*^9, 3.755876631667873*^9}, {3.7558774166766787`*^9, 3.75587742589657*^9}, { 3.755893511058223*^9, 3.755893514277576*^9}, {3.75589408982563*^9, 3.755894094549667*^9}, {3.755894289479043*^9, 3.755894295682423*^9}, 3.755903361342042*^9, 3.755904096488941*^9}, CellLabel->"Out[50]=",ExpressionUUID->"423991ec-5677-4978-bbf0-cdd14ef9b3eb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s24", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"c24", "\[Equal]", "0"}], "/.", RowBox[{"s14", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", SubscriptBox["a", "6"]}], "]"}]}]], "Input", CellChangeTimes->{{3.7558764018445044`*^9, 3.7558764331795263`*^9}, { 3.755876472054039*^9, 3.755876481635989*^9}, 3.7558766354497633`*^9, { 3.755893524735218*^9, 3.7558935286849737`*^9}, {3.755894100311884*^9, 3.755894101318531*^9}, 3.755894299861044*^9, {3.7559040996656017`*^9, 3.7559041150284224`*^9}}, CellLabel->"In[53]:=",ExpressionUUID->"ad688161-f1fe-4e6d-a202-570a1b3c4a0a"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ SubscriptBox["a", "6"], "\[Rule]", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"], "-", RowBox[{ RowBox[{"f", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]}], RowBox[{"6", " ", "A", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.7558764244066896`*^9, 3.755876433550189*^9}, { 3.755876473748312*^9, 3.755876481964292*^9}, 3.755876636091487*^9, 3.755893528969228*^9, 3.7558941016963797`*^9, {3.755894297035943*^9, 3.7558943005027637`*^9}, 3.755903362564868*^9, {3.755904101634859*^9, 3.755904115397173*^9}}, CellLabel->"Out[53]=",ExpressionUUID->"f1a3af1d-6c9d-42a5-ae23-22e9ced916c4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c34", "=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalH]", "[", "4", "]"}], "[", RowBox[{"X", "[", "Y", "]"}], "]"}], "/", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "A"}], "/", SuperscriptBox["Y", "3"]}], "]"}]}], SuperscriptBox["Y", RowBox[{"b", "[", "4", "]"}]]}], "/.", RowBox[{ RowBox[{"X", "[", "Y", "]"}], "\[Rule]", RowBox[{"Y", "+", RowBox[{ SubscriptBox["a", "5"], SuperscriptBox["Y", "5"]}], "+", RowBox[{ SubscriptBox["a", "6"], SuperscriptBox["Y", "6"]}], "+", RowBox[{ SubscriptBox["a", "7"], SuperscriptBox["Y", "7"]}], "+", RowBox[{ SubscriptBox["a", "8"], SuperscriptBox["Y", "8"]}]}]}]}], ",", RowBox[{"{", RowBox[{"Y", ",", "0", ",", "3"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7558764986142683`*^9, 3.755876516773336*^9}, { 3.755876642186904*^9, 3.755876647479589*^9}, {3.755893546112706*^9, 3.755893585281641*^9}, 3.7558936684688377`*^9, {3.755894129137804*^9, 3.755894139384581*^9}, {3.7558943292605667`*^9, 3.755894342382369*^9}, 3.755904104539754*^9}, CellLabel->"In[52]:=",ExpressionUUID->"903f4b9d-b6bf-4bb2-94da-c185fe9001cd"], Cell[BoxData[ RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{"27", " ", SuperscriptBox["A", "3"], " ", RowBox[{"f", "[", "0", "]"}], " ", SubsuperscriptBox["a", "5", "3"]}], "+", RowBox[{"54", " ", SuperscriptBox["A", "2"], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "5"], " ", SubscriptBox["a", "6"]}], "+", RowBox[{"18", " ", "A", " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "7"]}], "+", RowBox[{"27", " ", SuperscriptBox["A", "2"], " ", SubsuperscriptBox["a", "5", "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"18", " ", "A", " ", SubscriptBox["a", "6"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"9", " ", "A", " ", SubscriptBox["a", "5"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}], ")"}]}]], "Output", CellChangeTimes->{ 3.755876517077086*^9, 3.755876648127837*^9, {3.755893561636825*^9, 3.7558935855799427`*^9}, 3.755893669543519*^9, 3.75589413988035*^9, 3.7558943452771597`*^9, 3.755903365898841*^9, 3.7559041064717407`*^9}, CellLabel->"Out[52]=",ExpressionUUID->"e16ebc0b-a0f4-4bca-8ce0-efa71a9faaee"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s34", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"c34", "\[Equal]", "0"}], "/.", RowBox[{"s14", "[", RowBox[{"[", "1", "]"}], "]"}]}], "/.", RowBox[{"s24", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", SubscriptBox["a", "7"]}], "]"}]}]], "Input", CellChangeTimes->{{3.755876520710517*^9, 3.7558765466133347`*^9}, { 3.755876660775591*^9, 3.755876661526739*^9}, {3.755876760850528*^9, 3.755876761288683*^9}, {3.755893600448748*^9, 3.755893609169582*^9}, { 3.755894145225738*^9, 3.755894146703067*^9}, {3.755894348956132*^9, 3.755894349234551*^9}, {3.755904109191625*^9, 3.755904136222446*^9}}, CellLabel->"In[54]:=",ExpressionUUID->"6dbd5634-089d-4b95-be3c-9e5cc68c1e20"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ SubscriptBox["a", "7"], "\[Rule]", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "3"]}], "+", RowBox[{"3", " ", RowBox[{"f", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}]}], RowBox[{"18", " ", "A", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.755876532932132*^9, 3.7558765506123*^9}, 3.7558766618805532`*^9, 3.755876761481163*^9, {3.755893605095592*^9, 3.7558936098420773`*^9}, 3.755893670380773*^9, 3.7558941471807833`*^9, 3.755894349614087*^9, 3.755903369927774*^9, 3.7559041365593433`*^9}, CellLabel->"Out[54]=",ExpressionUUID->"2fd182c2-a6a7-45fb-9411-33dd39630122"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c44", "=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalH]", "[", "4", "]"}], "[", RowBox[{"X", "[", "Y", "]"}], "]"}], "/", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "A"}], "/", SuperscriptBox["Y", "3"]}], "]"}]}], SuperscriptBox["Y", RowBox[{"b", "[", "4", "]"}]]}], "/.", RowBox[{ RowBox[{"X", "[", "Y", "]"}], "\[Rule]", RowBox[{"Y", "+", RowBox[{ SubscriptBox["a", "5"], SuperscriptBox["Y", "5"]}], "+", RowBox[{ SubscriptBox["a", "6"], SuperscriptBox["Y", "6"]}], "+", RowBox[{ SubscriptBox["a", "7"], SuperscriptBox["Y", "7"]}], "+", RowBox[{ SubscriptBox["a", "8"], SuperscriptBox["Y", "8"]}]}]}]}], ",", RowBox[{"{", RowBox[{"Y", ",", "0", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7558764986142683`*^9, 3.755876516773336*^9}, { 3.755876642186904*^9, 3.755876647479589*^9}, {3.75587668189727*^9, 3.755876703823423*^9}, {3.7558936399690037`*^9, 3.75589365575041*^9}, { 3.755894159906083*^9, 3.7558941703931007`*^9}, {3.755894361549576*^9, 3.755894373471024*^9}, 3.755904138361915*^9}, CellLabel->"In[55]:=",ExpressionUUID->"69b81d41-cdeb-4afc-9f3b-2bd7ffa8083d"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"b", "[", "4", "]"}]}], " ", RowBox[{"f", "[", "0", "]"}], " ", SubscriptBox["a", "5"]}], "+", RowBox[{ FractionBox["3", "8"], " ", RowBox[{"f", "[", "0", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"9", " ", SuperscriptBox["A", "4"], " ", SubsuperscriptBox["a", "5", "4"]}], "+", RowBox[{"36", " ", SuperscriptBox["A", "3"], " ", SubsuperscriptBox["a", "5", "2"], " ", SubscriptBox["a", "6"]}], "+", RowBox[{"12", " ", SuperscriptBox["A", "2"], " ", SubsuperscriptBox["a", "6", "2"]}], "+", RowBox[{"24", " ", SuperscriptBox["A", "2"], " ", SubscriptBox["a", "5"], " ", SubscriptBox["a", "7"]}], "+", RowBox[{"8", " ", "A", " ", SubscriptBox["a", "8"]}]}], ")"}]}], "+", RowBox[{ FractionBox["3", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox["A", "3"], " ", SubsuperscriptBox["a", "5", "3"]}], "+", RowBox[{"6", " ", SuperscriptBox["A", "2"], " ", SubscriptBox["a", "5"], " ", SubscriptBox["a", "6"]}], "+", RowBox[{"2", " ", "A", " ", SubscriptBox["a", "7"]}]}], ")"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"9", " ", SuperscriptBox["A", "2"], " ", SubsuperscriptBox["a", "5", "2"]}], "+", RowBox[{"6", " ", "A", " ", SubscriptBox["a", "6"]}]}], ")"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "A", " ", SubscriptBox["a", "5"], " ", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{ FractionBox["1", "24"], " ", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}]}]], "Output", CellChangeTimes->{ 3.755876517077086*^9, 3.755876648127837*^9, {3.755876686584494*^9, 3.755876704176655*^9}, 3.755893673157879*^9, 3.755894170907789*^9, 3.7558943740218477`*^9, 3.755903378759363*^9, 3.755904140108447*^9}, CellLabel->"Out[55]=",ExpressionUUID->"8eb46dea-5969-4ac6-80e6-17a50c8ef9da"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"c44", "\[Equal]", "0"}], "/.", RowBox[{"s14", "[", RowBox[{"[", "1", "]"}], "]"}]}], "/.", RowBox[{"s24", "[", RowBox[{"[", "1", "]"}], "]"}]}], "/.", RowBox[{"s34", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", SubscriptBox["a", "8"]}], "]"}]], "Input", CellChangeTimes->{{3.755876520710517*^9, 3.7558765466133347`*^9}, { 3.755876660775591*^9, 3.755876661526739*^9}, {3.7558767552577753`*^9, 3.755876768744478*^9}, {3.7558936810155973`*^9, 3.755893687423382*^9}, { 3.7558941753311872`*^9, 3.755894176111874*^9}, {3.755894382044684*^9, 3.755894383234964*^9}, {3.755904143036865*^9, 3.755904149095078*^9}}, CellLabel->"In[56]:=",ExpressionUUID->"eabad33c-1826-460a-a365-2831dcfa10d6"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ SubscriptBox["a", "8"], "\[Rule]", RowBox[{ FractionBox["1", RowBox[{"72", " ", SuperscriptBox["A", "2"], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "4"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "8"}], " ", RowBox[{"b", "[", "4", "]"}], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"6", " ", "A", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "4"]}], "-", RowBox[{"12", " ", "A", " ", RowBox[{"f", "[", "0", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"3", " ", "A", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "+", RowBox[{"4", " ", "A", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}], "-", RowBox[{"A", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"], " ", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.755876532932132*^9, 3.7558765506123*^9}, 3.7558766618805532`*^9, 3.755876769240903*^9, 3.755893688726388*^9, { 3.755894171724524*^9, 3.7558941764918137`*^9}, 3.755894383588084*^9, 3.755903379691135*^9, 3.755904149888774*^9}, CellLabel->"Out[56]=",ExpressionUUID->"69364d62-3113-439e-9388-f80165831e4a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["s22"], "Input", CellChangeTimes->{{3.7559039258694887`*^9, 3.7559039281386337`*^9}, { 3.7559041538289623`*^9, 3.755904172253008*^9}}, CellLabel->"In[60]:=",ExpressionUUID->"2e2e9a4a-fb1b-44f2-a3a9-873febe3e54b"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ SubscriptBox["a", "4"], "\[Rule]", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"b", "[", "2", "]"}], " ", RowBox[{"f", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"A", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "-", RowBox[{"A", " ", RowBox[{"f", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]}], RowBox[{"2", " ", SuperscriptBox["A", "2"], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.755903928527741*^9, {3.755904159075391*^9, 3.75590417245934*^9}}, CellLabel->"Out[60]=",ExpressionUUID->"329abf2f-b123-47c3-8b67-68d3640afbb2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["s23"], "Input", CellChangeTimes->{{3.755903929017992*^9, 3.7559039291223307`*^9}, { 3.755904174073635*^9, 3.755904174302741*^9}}, CellLabel->"In[61]:=",ExpressionUUID->"279e6e6a-61f7-4705-b216-c68f0acd02d5"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ SubscriptBox["a", "5"], "\[Rule]", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"], "-", RowBox[{ RowBox[{"f", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]}], RowBox[{"4", " ", "A", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.755903929751033*^9, 3.755904174662732*^9}, CellLabel->"Out[61]=",ExpressionUUID->"7d467daa-471b-4edb-8247-656f34b04a23"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["s24"], "Input", CellChangeTimes->{{3.755904176197721*^9, 3.755904177138619*^9}}, CellLabel->"In[62]:=",ExpressionUUID->"41d9dd4b-34b6-4473-844b-78edea0ce037"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ SubscriptBox["a", "6"], "\[Rule]", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"], "-", RowBox[{ RowBox[{"f", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]}], RowBox[{"6", " ", "A", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.75590417736556*^9}, CellLabel->"Out[62]=",ExpressionUUID->"7273c921-8a88-499f-93b8-05ab516bd5be"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.755903930287178*^9, 3.755903931777089*^9}},ExpressionUUID->"53b25dfc-8878-4e86-832d-\ 43564600a3dd"], Cell[CellGroupData[{ Cell[BoxData["s32"], "Input", CellChangeTimes->{{3.7559042558282146`*^9, 3.755904256779546*^9}}, CellLabel->"In[63]:=",ExpressionUUID->"72adc0a8-b70a-484c-ba2f-6d63c2ab7ba7"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ SubscriptBox["a", "5"], "\[Rule]", RowBox[{ FractionBox["1", RowBox[{"6", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", SuperscriptBox[ RowBox[{"b", "[", "2", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"12", " ", "A", " ", RowBox[{"f", "[", "0", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "+", RowBox[{"3", " ", "A", " ", RowBox[{"b", "[", "2", "]"}], " ", RowBox[{"f", "[", "0", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "-", RowBox[{"2", " ", SuperscriptBox["A", "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "3"]}], "-", RowBox[{"3", " ", "A", " ", RowBox[{"b", "[", "2", "]"}], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"3", " ", SuperscriptBox["A", "2"], " ", RowBox[{"f", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "-", RowBox[{ SuperscriptBox["A", "2"], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.755904257190454*^9}, CellLabel->"Out[63]=",ExpressionUUID->"25a6e489-fbe4-41fa-bda5-024df0c209d1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["s33"], "Input", CellChangeTimes->{{3.755904258257402*^9, 3.755904264528098*^9}}, CellLabel->"In[64]:=",ExpressionUUID->"8785a319-0a8b-4e48-a4da-1b52ce2f7f17"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ SubscriptBox["a", "6"], "\[Rule]", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", RowBox[{"b", "[", "3", "]"}], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "-", RowBox[{"2", " ", "A", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "3"]}], "+", RowBox[{"3", " ", "A", " ", RowBox[{"f", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "-", RowBox[{"A", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}]}], RowBox[{"12", " ", SuperscriptBox["A", "2"], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.755904264808003*^9}, CellLabel->"Out[64]=",ExpressionUUID->"080c2169-e2b4-47b6-b952-0af9ed1677c5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["s34"], "Input", CellChangeTimes->{{3.7559042652598047`*^9, 3.755904266454829*^9}}, CellLabel->"In[65]:=",ExpressionUUID->"750b159f-254d-4227-b07f-a39ae3575a1f"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ SubscriptBox["a", "7"], "\[Rule]", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "3"]}], "+", RowBox[{"3", " ", RowBox[{"f", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}]}], RowBox[{"18", " ", "A", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.755904266729335*^9}, CellLabel->"Out[65]=",ExpressionUUID->"6f1d7a29-fa8d-427f-8986-93f1a78e133b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"k", ",", "n"}], "]"}], RowBox[{"Binomial", "[", RowBox[{"n", ",", "j"}], "]"}]}], "//", "FullSimplify"}]], "Input", CellChangeTimes->{{3.7559604241797*^9, 3.75596044390387*^9}}, CellLabel-> "In[136]:=",ExpressionUUID->"bb086641-9b17-4e3d-bc50-a30ebbec12f9"], Cell[BoxData[ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"k", ",", "n"}], "]"}], " ", RowBox[{"Binomial", "[", RowBox[{"n", ",", "j"}], "]"}]}]], "Output", CellChangeTimes->{{3.755960436277548*^9, 3.755960444128693*^9}}, CellLabel-> "Out[136]=",ExpressionUUID->"a64d2464-0fd4-40a6-83d6-0f7b93ae65b5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Binomial", "[", RowBox[{"2", ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.755960534635902*^9, 3.755960549482841*^9}}, CellLabel-> "In[138]:=",ExpressionUUID->"2664ca36-c2c9-4955-86c1-d1c956205970"], Cell[BoxData["2"], "Output", CellChangeTimes->{{3.755960546595029*^9, 3.755960549658386*^9}}, CellLabel-> "Out[138]=",ExpressionUUID->"a6985493-6cfb-48ea-94d5-dfab7dc2f677"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"Exp", "[", RowBox[{"f", "[", "x", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.755960933757991*^9, 3.755960958051968*^9}, { 3.7559614343489027`*^9, 3.7559614345402822`*^9}}, CellLabel-> "In[143]:=",ExpressionUUID->"25b44ff7-a2e3-45e0-adbc-bcf926e782d7"], Cell[BoxData[ RowBox[{ FractionBox["1", "24"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"f", "[", "0", "]"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "4"], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "+", RowBox[{"4", " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}], ")"}]}]], "Output", CellChangeTimes->{{3.755960943984256*^9, 3.755960958275618*^9}}, CellLabel-> "Out[143]=",ExpressionUUID->"c517e23c-d502-4980-a3c5-c6ef05504e65"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"d", "-", "2", "+", "1"}], ",", "1"}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "1"], RowBox[{"Multinomial", "[", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "]"}]}]], "Input", CellChangeTimes->{{3.755961436709155*^9, 3.7559615220299597`*^9}}, CellLabel-> "In[147]:=",ExpressionUUID->"5a6b8954-3b00-46bf-9079-86481926ba1d"], Cell[BoxData[ RowBox[{"1", "-", "d"}]], "Output", CellChangeTimes->{ 3.755961446335869*^9, {3.755961482818041*^9, 3.7559615222224693`*^9}}, CellLabel-> "Out[147]=",ExpressionUUID->"5d179864-e60e-4392-ac88-4e71e6d58dcd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Series", "[", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"x", " ", RowBox[{"f", "[", "x", "]"}]}], ")"}], RowBox[{ RowBox[{"-", "7"}], "/", "3"}]], "/", SuperscriptBox[ RowBox[{"(", "x", ")"}], RowBox[{ RowBox[{"-", "7"}], "/", "3"}]]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{ RowBox[{"f", "[", "0", "]"}], "\[Rule]", "1"}]}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.7559645913429623`*^9, 3.755964698836399*^9}, { 3.755964868748763*^9, 3.755964872277699*^9}, {3.7559649100450783`*^9, 3.755964915740727*^9}}, CellLabel-> "In[164]:=",ExpressionUUID->"f1c7e4a9-74d2-40be-91c6-951654a8fd02"], Cell[BoxData[ InterpretationBox[ RowBox[{"1", "-", RowBox[{ FractionBox["7", "3"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], " ", "x"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["35", "9"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "-", FractionBox[ RowBox[{"7", " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "6"]}], ")"}], " ", SuperscriptBox["x", "2"]}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "x", "]"}], "3"], SeriesData[$CellContext`x, 0, {}, 0, 9, 3], Editable->False]}], SeriesData[$CellContext`x, 0, { 1, 0, 0, Rational[-7, 3] Derivative[1][$CellContext`f][0], 0, 0, Rational[35, 9] Derivative[1][$CellContext`f][0]^2 + Rational[-7, 6] Derivative[2][$CellContext`f][0]}, 0, 9, 3], Editable->False]], "Output", CellChangeTimes->{{3.75596459985271*^9, 3.755964699024963*^9}, 3.7559648727024117`*^9, 3.755964915969935*^9}, CellLabel-> "Out[164]=",ExpressionUUID->"eb0f5485-f16d-4d6f-a29e-5e5fc9aecd22"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Series", "[", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"x", " ", RowBox[{"f", "[", "x", "]"}]}], ")"}], RowBox[{"-", "b"}]], "/", SuperscriptBox[ RowBox[{"(", "x", ")"}], RowBox[{"-", "b"}]]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{ RowBox[{"f", "[", "0", "]"}], "\[Rule]", "1"}]}], "/.", RowBox[{"b", "\[Rule]", RowBox[{"7", "/", "3"}]}]}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.7559645913429623`*^9, 3.755964698836399*^9}, { 3.755964868748763*^9, 3.755964901387702*^9}}, CellLabel-> "In[163]:=",ExpressionUUID->"8071adea-9d0e-4c01-8a88-fb9f88973209"], Cell[BoxData[ InterpretationBox[ RowBox[{"1", "-", RowBox[{ FractionBox["7", "3"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], " ", "x"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["35", "9"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "-", FractionBox[ RowBox[{"7", " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "6"]}], ")"}], " ", SuperscriptBox["x", "2"]}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "x", "]"}], "3"], SeriesData[$CellContext`x, 0, {}, 0, 3, 1], Editable->False]}], SeriesData[$CellContext`x, 0, { 1, Rational[-7, 3] Derivative[1][$CellContext`f][0], Rational[35, 9] Derivative[1][$CellContext`f][0]^2 + Rational[-7, 6] Derivative[2][$CellContext`f][0]}, 0, 3, 1], Editable->False]], "Output", CellChangeTimes->{{3.75596459985271*^9, 3.755964699024963*^9}, { 3.7559648727024117`*^9, 3.7559649068294497`*^9}}, CellLabel-> "Out[163]=",ExpressionUUID->"73a4137d-b379-4558-8b05-09c618fee25d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"-", "7"}], "/", "3"}], ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.755965329365877*^9, 3.7559653499223843`*^9}, 3.755969564977599*^9}, CellLabel-> "In[172]:=",ExpressionUUID->"279f48f3-7e5f-42c6-9ac3-f1b0fa2b0a88"], Cell[BoxData[ RowBox[{"-", FractionBox["7", "3"]}]], "Output", CellChangeTimes->{{3.7559653313723087`*^9, 3.755965350125386*^9}, 3.7559695652092752`*^9}, CellLabel-> "Out[172]=",ExpressionUUID->"606cbbf8-c6a9-4e0d-811d-c12420b759e6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "@@", RowBox[{"Range", "[", "3", "]"}]}]], "Input", CellChangeTimes->{{3.7559782814243193`*^9, 3.755978282918523*^9}}, CellLabel-> "In[192]:=",ExpressionUUID->"d23f7910-15b0-40ac-a96c-152fbf9bfcfa"], Cell[BoxData[ RowBox[{"f", "[", RowBox[{"1", ",", "2", ",", "3"}], "]"}]], "Output", CellChangeTimes->{3.7559782831367693`*^9}, CellLabel-> "Out[192]=",ExpressionUUID->"14b9fe2b-11e7-4f19-ab6f-60cbaac06aed"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"y", "[", "d_", "]"}], "[", "m_", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"js", "=", RowBox[{"Tally", "/@", RowBox[{"IntegerPartitions", "[", RowBox[{"m", ",", "All", ",", RowBox[{"Range", "[", "m", "]"}]}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{ RowBox[{ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"k", "=", RowBox[{"Total", "[", RowBox[{"#", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"d", "-", "2", "+", "k"}], ",", "k"}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], RowBox[{"Multinomial", "@@", RowBox[{"#", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], RowBox[{"Times", "@@", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["a", RowBox[{"#1", "+", "1"}]], "#2"], "&"}], "@@@", "#"}], ")"}]}]}]}], "\[IndentingNewLine]", "]"}], "&"}], "/@", "js"}], "]"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.755977877105351*^9, 3.755978043602326*^9}, { 3.7559780856982718`*^9, 3.755978089143147*^9}, {3.755978121507155*^9, 3.75597843653721*^9}, {3.755978561666039*^9, 3.755978601959921*^9}, { 3.755978720337151*^9, 3.7559787205071287`*^9}, {3.756069534691251*^9, 3.75606955668981*^9}}, CellLabel-> "In[113]:=",ExpressionUUID->"bf97e302-d420-4600-b2ed-8de6bbfed674"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"z", "[", "d_", "]"}], "[", "n_", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"js", "=", RowBox[{"Tally", "/@", RowBox[{"IntegerPartitions", "[", RowBox[{"n", ",", "All", ",", RowBox[{"Range", "[", "n", "]"}]}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"Total", "[", RowBox[{ RowBox[{ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"k", "=", RowBox[{"Total", "[", RowBox[{"#", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", SubscriptBox["A", RowBox[{"d", "-", "1"}]]}], ")"}], "k"], RowBox[{"k", "!"}]], RowBox[{"Multinomial", "@@", RowBox[{"#", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], RowBox[{"Times", "@@", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"y", "[", "d", "]"}], "[", RowBox[{"#1", "+", "d", "-", "1"}], "]"}], "#2"], "&"}], "@@@", "#"}], ")"}]}]}]}], "\[IndentingNewLine]", "]"}], "&"}], "/@", "js"}], "]"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.755978846826869*^9, 3.755978990666059*^9}, { 3.75597903173485*^9, 3.755979041423291*^9}, {3.755979145035912*^9, 3.7559791452292023`*^9}, {3.755979217306438*^9, 3.755979219064712*^9}, { 3.755986256890113*^9, 3.7559862574001713`*^9}, {3.75606961690014*^9, 3.756069629778964*^9}}, CellLabel-> "In[117]:=",ExpressionUUID->"90960e42-55d9-4f2a-889a-34d281b6a743"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"w", "[", "d_", "]"}], "[", "m_", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"js", "=", RowBox[{"Tally", "/@", RowBox[{"IntegerPartitions", "[", RowBox[{"m", ",", "All", ",", RowBox[{"Range", "[", "m", "]"}]}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{ RowBox[{ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"k", "=", RowBox[{"Total", "[", RowBox[{"#", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"-", RowBox[{"b", "[", "d", "]"}]}], ",", "k"}], "]"}], RowBox[{"Multinomial", "@@", RowBox[{"#", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], RowBox[{"Times", "@@", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["a", RowBox[{"#1", "+", "1"}]], "#2"], "&"}], "@@@", "#"}], ")"}]}]}]}], "\[IndentingNewLine]", "]"}], "&"}], "/@", "js"}], "]"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.755979707706539*^9, 3.7559797809475527`*^9}, { 3.75606964587702*^9, 3.756069646323217*^9}}, CellLabel-> "In[118]:=",ExpressionUUID->"2b8c364c-0d48-4e6d-9dfd-5989133c72e8"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"v", "[", "d_", "]"}], "[", "m_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"z", "[", "d", "]"}], "[", "i", "]"}], RowBox[{ RowBox[{"w", "[", "d", "]"}], "[", RowBox[{"m", "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "m"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7559836304817743`*^9, 3.755983714992811*^9}, { 3.756069668741102*^9, 3.7560696920417433`*^9}}, CellLabel-> "In[119]:=",ExpressionUUID->"2efd5a3e-bf9a-4095-91b1-b411c8cf6683"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"v", "[", "2", "]"}], "[", "1", "]"}]], "Input", CellChangeTimes->{{3.75606969880529*^9, 3.7560697101384897`*^9}}, CellLabel-> "In[122]:=",ExpressionUUID->"b6947363-4ad3-429e-a2e4-ebcaa803d1c9"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"b", "[", "2", "]"}]}], " ", SubscriptBox["a", "2"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["a", "2", "2"], "-", SubscriptBox["a", "3"]}], ")"}], " ", SubscriptBox["A", "1"]}]}]], "Output", CellChangeTimes->{{3.756069700289723*^9, 3.7560697105001783`*^9}}, CellLabel-> "Out[122]=",ExpressionUUID->"bab73b33-0cec-490d-819a-4c2c68de2098"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ReleaseHold", "[", RowBox[{ RowBox[{"Hold", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"z", "[", "d", "]"}], "[", RowBox[{"m", "-", "i"}], "]"}], RowBox[{ RowBox[{"w", "[", "d", "]"}], "[", "i", "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "d", ",", "m"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"d", "\[Rule]", "3"}], ",", RowBox[{"m", "\[Rule]", "3"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.755984626181632*^9, 3.755984688218689*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"2c77d2c3-1722-4a99-a9e9-0ce2959d84aa"], Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{"b", "[", "3", "]"}]}], " ", SubscriptBox["a", "4"]}]], "Output", CellChangeTimes->{{3.755984641768325*^9, 3.755984688443892*^9}, 3.755986262458828*^9, 3.756045858315523*^9}, CellLabel->"Out[5]=",ExpressionUUID->"bb05cb9b-6f44-4197-bf9e-2d78726fc1c4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"w", "[", "3", "]"}], "[", "3", "]"}]], "Input", CellChangeTimes->{{3.7559847103021317`*^9, 3.755984713781591*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"e8109cfb-3bf2-49c8-bd8e-a127954efef5"], Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{"b", "[", "3", "]"}]}], " ", SubscriptBox["a", "4"]}]], "Output", CellChangeTimes->{3.755984714041144*^9, 3.755986265042262*^9, 3.756045859843993*^9}, CellLabel->"Out[6]=",ExpressionUUID->"9022701d-0b6a-4ced-a62b-2c41bcd9a2bc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"v", "[", "3", "]"}], "[", "3", "]"}]], "Input", CellChangeTimes->{{3.755983719791654*^9, 3.7559837219603233`*^9}, { 3.755983752976677*^9, 3.755983799383815*^9}, {3.7559838452274637`*^9, 3.7559838467523203`*^9}, {3.7559845901616096`*^9, 3.755984624036901*^9}, { 3.755984663724381*^9, 3.755984692630135*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"0dcbcc28-dc5c-4e60-91a4-1edcaf2fe4fb"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"b", "[", "3", "]"}]}], " ", SubscriptBox["a", "4"]}], "+", RowBox[{ FractionBox["4", "3"], " ", SuperscriptBox["A", "3"], " ", SubsuperscriptBox["a", "4", "3"]}], "+", RowBox[{"4", " ", SuperscriptBox["A", "2"], " ", SubscriptBox["a", "4"], " ", SubscriptBox["a", "5"]}], "+", RowBox[{"2", " ", "A", " ", SubscriptBox["a", "6"]}]}]], "Output", CellChangeTimes->{ 3.755984624391871*^9, {3.755984661787785*^9, 3.755984692884714*^9}, 3.75598626572145*^9, 3.756045864269354*^9}, CellLabel->"Out[7]=",ExpressionUUID->"d571957a-4183-44de-82a8-829e8646f463"] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", "r", "]"}]], "Input", CellChangeTimes->{{3.7560699312332373`*^9, 3.756069936910516*^9}}, CellLabel-> "In[126]:=",ExpressionUUID->"fd4325c7-04cb-4f7b-96ea-d9c5f77c6017"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"r", "[", "d_", "]"}], "[", "k_", "]"}], ":=", RowBox[{ RowBox[{"First", "@", RowBox[{"Solve", "[", RowBox[{ RowBox[{"0", "\[Equal]", RowBox[{ RowBox[{"y", "[", "d", "]"}], "[", RowBox[{"d", "-", "1"}], "]"}]}], ",", SubscriptBox["a", "d"]}], "]"}]}], "/;", RowBox[{"k", "\[Equal]", RowBox[{"d", "-", "1"}]}]}]}]], "Input", CellChangeTimes->{{3.75606982093225*^9, 3.756069844757066*^9}, { 3.756069876333453*^9, 3.756069908206272*^9}, {3.756069939857479*^9, 3.756069948722959*^9}}, CellLabel-> "In[127]:=",ExpressionUUID->"833fa001-f505-4ad7-b3ff-aebd9fe9ac82"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"r", "[", "4", "]"}], "[", "1", "]"}], "//", "Simplify"}]], "Input",\ CellChangeTimes->{{3.756069911030686*^9, 3.75606991983003*^9}, { 3.756069951209445*^9, 3.7560699513668413`*^9}, {3.756070081419346*^9, 3.7560700815206547`*^9}, {3.756070334191494*^9, 3.756070355613378*^9}}, CellLabel-> "In[147]:=",ExpressionUUID->"99843a25-5fc9-4908-9f2a-7dff30d0d370"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "\[Rule]", RowBox[{"-", FractionBox[ SubscriptBox["A", "2"], RowBox[{"3", " ", SubscriptBox["A", "3"]}]]}]}], ",", RowBox[{ SubscriptBox["a", "3"], "\[Rule]", FractionBox[ RowBox[{ RowBox[{"2", " ", SubsuperscriptBox["A", "2", "2"]}], "-", RowBox[{"3", " ", SubscriptBox["A", "1"], " ", SubscriptBox["A", "3"]}]}], RowBox[{"9", " ", SubsuperscriptBox["A", "3", "2"]}]]}], ",", RowBox[{ SubscriptBox["a", "4"], "\[Rule]", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "7"}], " ", SubsuperscriptBox["A", "2", "3"]}], "+", RowBox[{"18", " ", SubscriptBox["A", "1"], " ", SubscriptBox["A", "2"], " ", SubscriptBox["A", "3"]}]}], ")"}]}], RowBox[{"81", " ", SubsuperscriptBox["A", "3", "3"]}]]}]}], "}"}]], "Output", CellChangeTimes->{{3.756069913298991*^9, 3.75606992012185*^9}, 3.756069951585792*^9, {3.7560700786416063`*^9, 3.756070081817371*^9}, 3.75607016711383*^9, 3.756070214502339*^9, {3.756070251189437*^9, 3.756070298486103*^9}, {3.756070330370308*^9, 3.756070355824041*^9}}, CellLabel-> "Out[147]=",ExpressionUUID->"c2350950-99a3-4a63-935e-b30184369e38"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"r", "[", "d_", "]"}], "[", "k_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"Thread", "[", RowBox[{"Rule", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", RowBox[{"(", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "/.", "#"}], ")"}]}], "]"}], "]"}], "&"}], "@", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"First", "@", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["A", RowBox[{"d", "-", "1", "-", "k"}]], "/", SubscriptBox["A", RowBox[{"d", "-", "1"}]]}], "\[Equal]", RowBox[{ RowBox[{"y", "[", "d", "]"}], "[", "k", "]"}]}], ",", SubscriptBox["a", RowBox[{"1", "+", "k"}]]}], "]"}]}], ",", "#"}], "]"}], "&"}], "@", RowBox[{ RowBox[{"r", "[", "d", "]"}], "[", RowBox[{"k", "+", "1"}], "]"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.7560697721417637`*^9, 3.756069814974059*^9}, { 3.7560699593752823`*^9, 3.756070037689073*^9}, {3.756070073129727*^9, 3.7560700738818083`*^9}, {3.756070161562011*^9, 3.756070164587282*^9}, { 3.756070197837528*^9, 3.756070328014134*^9}}, CellLabel-> "In[144]:=",ExpressionUUID->"fdf466b2-7782-4013-b18c-65d28449fd80"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"s", "[", "d_", "]"}], "[", "0", "]"}], ":=", RowBox[{ RowBox[{"r", "[", "d", "]"}], "[", "1", "]"}]}]], "Input", CellChangeTimes->{{3.756043925880432*^9, 3.756043931754118*^9}, { 3.756070434992779*^9, 3.7560704551111403`*^9}}, CellLabel-> "In[152]:=",ExpressionUUID->"8c10c55b-bc30-4973-8fd1-b6265a896d3c"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"s", "[", "d_", "]"}], "[", "k_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"First", "@", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", "d", "]"}], "[", "k", "]"}], "\[Equal]", SubscriptBox["B", "k"]}], "/.", "#"}], ",", SubscriptBox["a", RowBox[{"d", "+", "k"}]]}], "]"}]}], ",", "#"}], "]"}], "&"}], "@", RowBox[{ RowBox[{"s", "[", "d", "]"}], "[", RowBox[{"k", "-", "1"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.756042985771059*^9, 3.756043122429172*^9}, { 3.7560431674635563`*^9, 3.756043171167472*^9}, {3.7560439019501543`*^9, 3.7560439395022697`*^9}, {3.756070401961018*^9, 3.7560704039351883`*^9}, { 3.756070441447977*^9, 3.756070442543042*^9}}, CellLabel-> "In[153]:=",ExpressionUUID->"cad6feb2-2d32-476e-82c5-16259329f218"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"s", "[", "2", "]"}], "[", "4", "]"}], "//", "Simplify"}]], "Input",\ CellChangeTimes->{{3.7560704435145397`*^9, 3.756070498795183*^9}, { 3.7560705320107718`*^9, 3.756070551219037*^9}, 3.756073314937757*^9}, CellLabel-> "In[186]:=",ExpressionUUID->"3e5411bd-cf39-498b-bccb-2a6902ad309f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "6"], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"16", " ", SubsuperscriptBox["A", "1", "2"], " ", SubsuperscriptBox["B", "1", "3"]}], "+", RowBox[{"3", " ", SubsuperscriptBox["A", "1", "3"], " ", SubsuperscriptBox["B", "1", "4"]}], "-", RowBox[{"12", " ", SubscriptBox["A", "1"], " ", SubsuperscriptBox["B", "1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{ SubsuperscriptBox["A", "1", "2"], " ", SubscriptBox["B", "2"]}]}], ")"}]}], "+", RowBox[{"12", " ", SubscriptBox["B", "1"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"3", " ", SubsuperscriptBox["A", "1", "2"], " ", SubscriptBox["B", "2"]}], "+", RowBox[{ SubsuperscriptBox["A", "1", "3"], " ", SubscriptBox["B", "3"]}]}], ")"}]}], "+", RowBox[{"6", " ", SubscriptBox["A", "1"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SubscriptBox["B", "2"]}], "+", RowBox[{ SubsuperscriptBox["A", "1", "2"], " ", SubsuperscriptBox["B", "2", "2"]}], "+", RowBox[{"2", " ", SubscriptBox["A", "1"], " ", RowBox[{"(", RowBox[{ SubscriptBox["B", "3"], "-", RowBox[{ SubscriptBox["A", "1"], " ", SubscriptBox["B", "4"]}]}], ")"}]}]}], ")"}]}]}], RowBox[{"12", " ", SubsuperscriptBox["A", "1", "4"]}]]}]}], ",", RowBox[{ SubscriptBox["a", "5"], "\[Rule]", FractionBox[ RowBox[{ RowBox[{"9", " ", SubscriptBox["A", "1"], " ", SubsuperscriptBox["B", "1", "2"]}], "+", RowBox[{"2", " ", SubsuperscriptBox["A", "1", "2"], " ", SubsuperscriptBox["B", "1", "3"]}], "+", RowBox[{ SubscriptBox["B", "1"], " ", RowBox[{"(", RowBox[{"6", "-", RowBox[{"6", " ", SubsuperscriptBox["A", "1", "2"], " ", SubscriptBox["B", "2"]}]}], ")"}]}], "+", RowBox[{"6", " ", SubscriptBox["A", "1"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["B", "2"]}], "+", RowBox[{ SubscriptBox["A", "1"], " ", SubscriptBox["B", "3"]}]}], ")"}]}]}], RowBox[{"6", " ", SubsuperscriptBox["A", "1", "3"]}]]}], ",", RowBox[{ SubscriptBox["a", "4"], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"2", " ", SubscriptBox["B", "1"]}], "+", RowBox[{ SubscriptBox["A", "1"], " ", SubsuperscriptBox["B", "1", "2"]}], "-", RowBox[{"2", " ", SubscriptBox["A", "1"], " ", SubscriptBox["B", "2"]}]}], RowBox[{"2", " ", SubsuperscriptBox["A", "1", "2"]}]]}]}], ",", RowBox[{ SubscriptBox["a", "3"], "\[Rule]", FractionBox[ SubscriptBox["B", "1"], SubscriptBox["A", "1"]]}], ",", RowBox[{ SubscriptBox["a", "2"], "\[Rule]", "0"}]}], "}"}]], "Output", CellChangeTimes->{{3.756070444487845*^9, 3.756070499112976*^9}, { 3.756070532755418*^9, 3.7560705517828617`*^9}, 3.756073316005653*^9}, CellLabel-> "Out[186]=",ExpressionUUID->"8f17414f-c38b-4592-bfed-69e9325df181"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"test", "=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"ss", "=", RowBox[{ RowBox[{"s", "[", "2", "]"}], "[", "10", "]"}]}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", RowBox[{"1", "+", "#"}]], "/.", "ss"}], "/.", RowBox[{ SubscriptBox["B", "j_"], "\[RuleDelayed]", SuperscriptBox["c", RowBox[{"j", "+", "1"}]]}]}], "/.", RowBox[{ SubscriptBox["A", "_"], ":>", RowBox[{"1", "/", "c"}]}]}], ")"}], "&"}], "/@", RowBox[{"Range", "[", "10", "]"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.756047291186379*^9, 3.756047344324526*^9}, { 3.756047434334147*^9, 3.7560474475390043`*^9}, {3.756070578097666*^9, 3.756070600634191*^9}, {3.756070654050292*^9, 3.756070696588372*^9}, { 3.756070922270885*^9, 3.7560709545586157`*^9}, {3.756071477747998*^9, 3.756071499393449*^9}, 3.7560732064399137`*^9}, CellLabel-> "In[183]:=",ExpressionUUID->"3290d682-9201-4813-bdfa-777ffc301378"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"ListLogPlot", "[", RowBox[{"Abs", "[", RowBox[{"test", "/.", RowBox[{"c", "\[Rule]", "10"}]}], "]"}], "]"}], ",", RowBox[{"LogPlot", "[", " ", RowBox[{ SuperscriptBox["10", RowBox[{"2", "k"}]], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "20"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.756047348344548*^9, 3.7560474228616047`*^9}, { 3.756047488285391*^9, 3.756047493843354*^9}, {3.756055752351158*^9, 3.756055806516362*^9}, {3.7560706264687347`*^9, 3.7560706589459343`*^9}, { 3.756073216704916*^9, 3.756073219309371*^9}}, CellLabel-> "In[185]:=",ExpressionUUID->"47f5f503-5c21-4f53-b03c-7df66970460e"], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{2., 6.907755278982137}, {3., 10.819778284410283`}, {4., 15.184997800767784`}, {5., 19.51372198757102}, {6., 23.887051695496652`}, {7., 28.280129327494546`}, {8., 32.689436036057735`}, {9., 37.11089353105344}, {10., 41.541902043804875`}}]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV0Hk4lAkAx3FnPQnL6rLCGBMZQ8Nbu5Lm/UUHhglj3intsjO5qjE2GUk6 KMm2WpXkWInpeCpDtWqzRaIcOUoK+9DmISWZLjvMYNn2j+/z+f9rI44NitDR 0tLy/9L/Fu4Xz3IJL+DIzt6Pn59xj/Ogg+YnpO0hyw9N56UofyNn6qsP0WgZ JCO/I91TWUoW1mRa69PySMmS6mm68i4pWS2LGbe+TJrsINzNlC1kx2R09kfr SrLP6L1wrrKXnN3Tb6+0biI3hDVHzlaOkMWPina+s/6LnJztLtVXTpFl5Rk9 EudhsqrgRt0uhjGiyPa8kbhR0tjoeb1r+AJIBx0GKso05Gaeh+22E5YwsDls /9JNC6ULPbMdFXQcN2lmFv+oi2cpnHr6RjuIe4Lv6bbMwvNVV1tUHCZ2Pjws jrU3wKtbrcejFjvj+k+G/EU+RmgTMGpKe9go3rtjmC00wUK1udzsiStSi6YC /xkxxYquO4Xu8uXQ6ujD3SQzdOe4jbFjvoVdfGRiMHM+tu1Xus0PdcMr1Rlq btUCtJbwTlU6ucN3cPu+kzsXwerDmy4uwwO8V1mOVlbfYNzi+ySFKQfDdeKD jQoLyNOSlz9+QcLZtNPSK8wSZ49tl8QOAQakStQ7aoVnnyW+wvY12KAMGacL aNCWHrO81eqJ7tpw7RCWDeI2nylKfuiFm0cfhNJUNvDbusdJXroWkfqyvrY2 OixTdl/DpXXYGrf3pmG+LTZVcUnOifVYFuXY5idioHOb0T55wgY8/po1V7Zy CbjMd+UHYr1xpyy1gKVrB4c5Re/vCH2wV5sZ0PLCDtOTUnos3xcGvUne0gp7 LAxj6f/sy8XgRZvsouSlyOu7N6rn4ofspeZ6lQIHmCXEdo0x/ZGVH9kgojEx 5qCq957HQ0j2D22Gb5iw5EVH6Gh4UK+9oCmqdoT7kXG166eNGBj0TKxNZ0Ek dW4RSQJQstrFolXkhHO2sTmDbwOgSJOZRjk5Y95QfqR5WCDSBVu5uipnXAlf baz9NBAreosvp7cuw6p3MezzvCDkOhQoWrls6KRkbBqvDcKBmsxcbiUbdTRi Un8NH/4WgguPGC64mMiXNd7lY420YYtphguqXoaq3NnBKFosZrSoXPAkQP0h WhEMRt2lHN4WV5i3J39cTxcgy6mW+bTaFYfmJDZ2ZwsQOarX3sQkMMTVtrAz pSC+/pmW8SuB1ELZLts0CpJU/pTvCQLFja6hDukUZPyKLsNTBKpHP3gvy6Bw VCU7npVDYMJnu9WqTAplKzWTZwoJxI2FNgWdpqC5P9N58SoB0UZv69QLFLKe GmY+aCAAbYvmvocU8uUx0UeaCISyum++bqAgj2/z8m4mkCw8fW6kicKtBVkT zW0Ebiu+SlC3UugNMYvueE6AHaJnY9JJwX7A3Kt/gID178oE8jUFdkWS1flB Ah5/XxGtG6LgntajiXhDYMucaD/uMAU/+8Jrb4cJnA7rtxG+pxC3g2b16RMB I8OuFukYhWSPFM2NUQKs77L/iFdTSDPqfxavIuAjDixJmqCQWy4/plYTSLvd vPvINIWSg3pRf04QOD9wVPyLlhBXAyM8k6cI3Dde739SR4gKer0lZ5rAy5W6 brl6wi/f7DQzMwT+Da+hn50lxH/6mSaG "]]}, Annotation[#, "Charting`Private`Tag$8025#1"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 4.393986562180487}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->{483., Automatic}, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Exp[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Exp[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 10}, {4.983636014269762, 41.541902043804875`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->FrontEndValueCache[{Automatic, Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{6.907755278982137, FormBox["1000", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {16.11809565095832, FormBox[ TemplateBox[{"10", "7"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {25.328436022934504`, FormBox[ TemplateBox[{"10", "11"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {34.538776394910684`, FormBox[ TemplateBox[{"10", "15"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {9.210340371976184, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {11.512925464970229`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {13.815510557964274`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {18.420680743952367`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {20.72326583694641, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {23.025850929940457`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {27.631021115928547`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {29.933606208922594`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {32.23619130191664, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {36.841361487904734`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {39.14394658089878, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {41.44653167389282, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {43.74911676688687, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {44.44226394744681, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {44.84772905555498, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {45.13541112800676, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {45.35855467932097, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {45.540876236114926`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {45.69502691594218, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}]]], "Output", CellChangeTimes->{{3.7560473502106247`*^9, 3.7560473767131968`*^9}, { 3.75604740714773*^9, 3.756047440536327*^9}, {3.7560474789105883`*^9, 3.756047494537959*^9}, {3.756055754363693*^9, 3.7560558071271067`*^9}, { 3.756070604554096*^9, 3.7560706798597393`*^9}, {3.756070934500585*^9, 3.75607096320077*^9}, 3.7560715403882303`*^9, {3.756073207499793*^9, 3.756073219675445*^9}}, CellLabel-> "Out[185]=",ExpressionUUID->"d0abd33e-d67c-4105-91c2-0840fec737bb"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"coeff", "[", "d_", "]"}], "[", "k_", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"ss", "=", RowBox[{ RowBox[{"s", "[", "d", "]"}], "[", "k", "]"}]}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"CoefficientList", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", RowBox[{"d", "+", "#"}]], "/.", "ss"}], "/.", RowBox[{ SubscriptBox["B", "j_"], "\[RuleDelayed]", SuperscriptBox["c", RowBox[{"j", "+", "1"}]]}]}], "/.", RowBox[{"A", "->", RowBox[{"1", "/", "c"}]}]}], ",", RowBox[{"{", "c", "}"}]}], "]"}], "&"}], "/@", RowBox[{"Range", "[", "k", "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.756043634767688*^9, 3.7560436568795633`*^9}, { 3.756044016899808*^9, 3.756044059551148*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"75fce757-ae3e-44f4-a573-646fcf6e4852"], Cell[BoxData[ RowBox[{ RowBox[{"cc", "=", RowBox[{ RowBox[{"coeff", "[", "2", "]"}], "[", "14", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.756044061912179*^9, 3.756044082348341*^9}, { 3.756044184311449*^9, 3.756044184930992*^9}, {3.756044218928982*^9, 3.756044221782112*^9}, {3.756044296192256*^9, 3.75604429635876*^9}, { 3.7560449241942873`*^9, 3.756044924664535*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"4e43644a-65dd-4e4e-b6b4-e59e7aacde51"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"Max", "/@", RowBox[{"(", RowBox[{"cc", "/.", RowBox[{ RowBox[{"b", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "1"}]}]}], ")"}]}], "]"}]], "Input", CellChangeTimes->{{3.7560448086660213`*^9, 3.756044823839981*^9}, { 3.756044856476042*^9, 3.7560448685658073`*^9}, {3.756044901524192*^9, 3.756044901834292*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"05684c40-35c5-4c43-9cb7-360252747ab2"], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 1.}, {2., 0.}, {3., 1.}, {4., 0.}, {5., 1.8333333333333333`}, {6., 0.}, {7., 6.333333333333333}, {8., 0.15714285714285714`}, {9., 16.666666666666668`}, {10., 0.2849206349206349}, {11., 53.99166666666667}, {12., 2.5795855379188715`}, {13., 214.2}, {14., 5.7338263588263585`}}]}, {}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 14.}, {0, 41.66666666666667}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.756044824214217*^9, {3.75604486041496*^9, 3.756044868906663*^9}, 3.75604490211598*^9, 3.756046019873962*^9}, CellLabel->"Out[12]=",ExpressionUUID->"53328a90-5baf-4e81-a2c6-0728ff9a5853"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"data", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "+", "#1"}], ",", RowBox[{"Length", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"Length", "[", "cc", "]"}], "]"}], ",", "cc"}], "}"}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.756043671982542*^9, 3.756043708832818*^9}, { 3.756043974965466*^9, 3.756043984600878*^9}, {3.756044227706231*^9, 3.756044275441964*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"1b97a152-c9db-4582-89ac-fe86460cd647"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.756046091925165*^9, 3.7560460928667173`*^9}},ExpressionUUID->"0cc0ba07-a5ae-4566-b4cf-\ 5c08d95a344a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"ListPlot", "[", "data", "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"2", "x"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "16"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.7560436979867773`*^9, 3.7560436996165667`*^9}, { 3.756044544079154*^9, 3.756044561720997*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"1a4c5d8c-b72f-47cf-9b12-bae7177839bb"], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{3., 4.}, {4., 6.}, {5., 8.}, {6., 10.}, {7., 12.}, {8., 14.}, {9., 16.}, {10., 18.}, {11., 20.}, {12., 22.}, {13., 24.}, {14., 26.}, {15., 28.}, {16., 30.}}]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJw9xX1MFHQcB2DAa6AU70nyfsfxdhz8CBF5/36KFgZSA23kQmSkZvSmxma2 ml3jzFSCNTIKUBS0jMlpHK7FWU5vbjlfInDohkfRzWGg6AYybHHV+HR/PHu0 NW+Xb/Ly8PAo/dd/F28aHzh7+/OChY8WaArDto4uq5OF62X5oZa2XvfNUnJ5 +Lt2911SsXH2zGfurXJTfVzY4N4uHY+/sHuv+yEx+fQmfOLeKS+tO2y5d/// p8XXZaosipriLokruzt+ft8012DHlWxpmZ6ThRcj1Bro8PR0ycL+OD1WeOlq nhcPwrna9vB1kxoegpn4fP8Tb3rzUHjNdQeExy3hYch0VZ9e0/Moj8Cl+owr Fwz+PBrRTRNzx+8G8BhMzI46rqUFcR26/uy/6PdpMI+FX+TXU05nCNdj/2t9 mzv0S3k8HqDbuWVXKE9AXbrduvT8EzwRoz32fQPaMG7AX7VDrUnvhfNkJD/l Pb+5P4IbUXRE++qp0Cieih2RG3S/V0ZzBePki77DpTE8DcH+93zsD2N4GjQ/ tVpi27T8Sbye0X9jcYmOp6P7uZqOHx/oeDpmJsICbh2I5cvRt6ZoUfMzep6B XavMh6y39DwD2pvF1zvNcXwFclbWNy9Lj+eZqIy6Ouc5GM8zMXOxYWyrKYGv RIumqq5cn8izEOzoO+JlT+RZeOQD09rsbUk8Gx7HqyxjQQaeg+1fWRqCzhl4 Ds4k7/EJfCuZ5yKweLvxIz8jz8NIyi+DO21GnoeTB0XvrErh+VhvyQyMnE/h +fjQfNg08m0qL8CJ8chWv9WKC/a0m6sdzysu2Fh+J66nTHFBhM12srRCccHe xpcv7K9RXLAl88v7S3YqLtDVh6zyPqa4YD7r/ceGv1FccOPOH78e61Zc0FTR u/7ZU4oLXIbyd8w2xQUjA40HFw0qLvh+9+wrg9cUFzTnbkjqvK64oORoqvVp h+KCH969/LPptuKCAykrGssmFRdsG2tbq51SXJC4+o3Rs9OKCzSeQ11Ns4oL fuvLra1+qLjAVtup0v5WXPBFtO+My6W44B89jSMW "]]}, Annotation[#, "Charting`Private`Tag$2387#1"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{2.7968750000000004`, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{3., 16.}, {0, 30.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.756043700216913*^9, 3.756044240545435*^9, 3.756044276785468*^9, 3.756044425066293*^9, {3.7560445528869667`*^9, 3.756044562021286*^9}, 3.756046095102582*^9}, CellLabel->"Out[15]=",ExpressionUUID->"9d403b3d-7438-4d62-95c5-d7f386c91678"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"cc3", "=", RowBox[{ RowBox[{"coeff", "[", "3", "]"}], "[", "13", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.756044061912179*^9, 3.756044082348341*^9}, { 3.756044184311449*^9, 3.756044184930992*^9}, {3.756044218928982*^9, 3.756044221782112*^9}, {3.756044296192256*^9, 3.75604429635876*^9}, { 3.756044595044525*^9, 3.756044596625977*^9}}, CellLabel-> "In[159]:=",ExpressionUUID->"1560eb7d-4dfa-4579-bec8-49ba80245127"], Cell[BoxData[ RowBox[{"cc3", "/"}]], "Input", CellChangeTimes->{{3.7560446399113207`*^9, 3.756044666840147*^9}},ExpressionUUID->"2413e870-0807-4641-9e85-\ c92b8b36361b"], Cell[BoxData[ RowBox[{ RowBox[{"data", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"3", "+", "#1"}], ",", RowBox[{"Length", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"Length", "[", "cc3", "]"}], "]"}], ",", "cc3"}], "}"}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.756043671982542*^9, 3.756043708832818*^9}, { 3.756043974965466*^9, 3.756043984600878*^9}, {3.756044227706231*^9, 3.756044275441964*^9}, {3.756044601416918*^9, 3.756044605288805*^9}}, CellLabel-> "In[160]:=",ExpressionUUID->"4031f3cb-9ab3-4501-9ecc-5dcee1471df4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"ListPlot", "[", "data", "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"2", "x"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "16"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.7560436979867773`*^9, 3.7560436996165667`*^9}, { 3.756044544079154*^9, 3.756044561720997*^9}}, CellLabel-> "In[161]:=",ExpressionUUID->"3e641a6f-a31b-4a0a-b0ad-b1b88af26d0b"], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{4., 4.}, {5., 6.}, {6., 8.}, {7., 10.}, {8., 12.}, {9., 14.}, {10., 16.}, {11., 18.}, {12., 20.}, {13., 22.}, {14., 24.}, {15., 26.}, {16., 28.}}]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJw9xX1MFHQcB2DAa6AU70nyfsfxdhz8CBF5/36KFgZSA23kQmSkZvSmxma2 ml3jzFSCNTIKUBS0jMlpHK7FWU5vbjlfInDohkfRzWGg6AYybHHV+HR/PHu0 NW+Xb/Ly8PAo/dd/F28aHzh7+/OChY8WaArDto4uq5OF62X5oZa2XvfNUnJ5 +Lt2911SsXH2zGfurXJTfVzY4N4uHY+/sHuv+yEx+fQmfOLeKS+tO2y5d/// p8XXZaosipriLokruzt+ft8012DHlWxpmZ6ThRcj1Bro8PR0ycL+OD1WeOlq nhcPwrna9vB1kxoegpn4fP8Tb3rzUHjNdQeExy3hYch0VZ9e0/Moj8Cl+owr Fwz+PBrRTRNzx+8G8BhMzI46rqUFcR26/uy/6PdpMI+FX+TXU05nCNdj/2t9 mzv0S3k8HqDbuWVXKE9AXbrduvT8EzwRoz32fQPaMG7AX7VDrUnvhfNkJD/l Pb+5P4IbUXRE++qp0Cieih2RG3S/V0ZzBePki77DpTE8DcH+93zsD2N4GjQ/ tVpi27T8Sbye0X9jcYmOp6P7uZqOHx/oeDpmJsICbh2I5cvRt6ZoUfMzep6B XavMh6y39DwD2pvF1zvNcXwFclbWNy9Lj+eZqIy6Ouc5GM8zMXOxYWyrKYGv RIumqq5cn8izEOzoO+JlT+RZeOQD09rsbUk8Gx7HqyxjQQaeg+1fWRqCzhl4 Ds4k7/EJfCuZ5yKweLvxIz8jz8NIyi+DO21GnoeTB0XvrErh+VhvyQyMnE/h +fjQfNg08m0qL8CJ8chWv9WKC/a0m6sdzysu2Fh+J66nTHFBhM12srRCccHe xpcv7K9RXLAl88v7S3YqLtDVh6zyPqa4YD7r/ceGv1FccOPOH78e61Zc0FTR u/7ZU4oLXIbyd8w2xQUjA40HFw0qLvh+9+wrg9cUFzTnbkjqvK64oORoqvVp h+KCH969/LPptuKCAykrGssmFRdsG2tbq51SXJC4+o3Rs9OKCzSeQ11Ns4oL fuvLra1+qLjAVtup0v5WXPBFtO+My6W44B89jSMW "]]}, Annotation[#, "Charting`Private`Tag$33293#1"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{3.8125000000000004`, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{4., 16.}, {0, 28.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.756043700216913*^9, 3.756044240545435*^9, 3.756044276785468*^9, 3.756044425066293*^9, {3.7560445528869667`*^9, 3.756044562021286*^9}, 3.756044607123878*^9}, CellLabel-> "Out[161]=",ExpressionUUID->"1753f01a-1e37-45cf-8c3f-b827e2793d8d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"coeff", "[", "3", "]"}], "[", "8", "]"}]], "Input", CellChangeTimes->{{3.7560436590203247`*^9, 3.756043664006461*^9}}, CellLabel-> "In[130]:=",ExpressionUUID->"df2d3f0c-5184-4f8d-8e87-e954e5488a63"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", FractionBox[ SuperscriptBox[ RowBox[{"b", "[", "3", "]"}], "3"], "16"], ",", RowBox[{ FractionBox[ RowBox[{"21", " ", SuperscriptBox[ RowBox[{"b", "[", "3", "]"}], "2"]}], "32"], "+", RowBox[{ FractionBox["1", "16"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"b", "[", "3", "]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"b", "[", "3", "]"}], "2"]}], "+", FractionBox[ SuperscriptBox[ RowBox[{"b", "[", "3", "]"}], "3"], "32"]}], ",", RowBox[{ FractionBox[ RowBox[{"31", " ", RowBox[{"b", "[", "3", "]"}]}], "16"], "+", RowBox[{ FractionBox["3", "16"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"b", "[", "3", "]"}]}], ")"}], " ", RowBox[{"b", "[", "3", "]"}]}]}], ",", RowBox[{ FractionBox["53", "16"], "-", FractionBox[ RowBox[{"17", " ", RowBox[{"b", "[", "3", "]"}]}], "8"], "+", FractionBox[ SuperscriptBox[ RowBox[{"b", "[", "3", "]"}], "2"], "8"]}], ",", RowBox[{ RowBox[{"-", FractionBox["191", "32"]}], "+", FractionBox[ RowBox[{"247", " ", RowBox[{"b", "[", "3", "]"}]}], "192"], "-", FractionBox[ RowBox[{"7", " ", SuperscriptBox[ RowBox[{"b", "[", "3", "]"}], "2"]}], "192"], "+", RowBox[{ FractionBox["1", "192"], " ", RowBox[{"b", "[", "3", "]"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"b", "[", "3", "]"}]}], ")"}]}]}], ",", RowBox[{ FractionBox["111", "16"], "-", FractionBox[ RowBox[{"5", " ", RowBox[{"b", "[", "3", "]"}]}], "8"]}], ",", RowBox[{ RowBox[{"-", FractionBox["95", "16"]}], "+", FractionBox[ RowBox[{"b", "[", "3", "]"}], "4"]}], ",", RowBox[{ FractionBox["1817", "480"], "-", FractionBox[ RowBox[{"b", "[", "3", "]"}], "24"]}], ",", RowBox[{"-", FractionBox["7", "4"]}], ",", FractionBox["1", "2"], ",", RowBox[{"-", FractionBox["1", "16"]}]}], "}"}]], "Output", CellChangeTimes->{3.756043664589617*^9}, CellLabel-> "Out[130]=",ExpressionUUID->"13439632-f5a9-46e1-9c97-b5f30d8be1f3"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"g", "[", "d_", "]"}], "[", "n_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"v", "[", "d", "]"}], "[", "n", "]"}], "-", RowBox[{"A", RowBox[{"(", RowBox[{"d", "-", "1"}], ")"}], SubscriptBox["a", RowBox[{"d", "+", "n"}]]}]}]}]], "Input", CellChangeTimes->{{3.755995321919333*^9, 3.755995345431901*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"daa5ca2d-fa0c-4401-9a60-391d8e6dca68"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"g", "[", "2", "]"}], "[", "5", "]"}], "/.", RowBox[{ RowBox[{"b", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "1"}]}]}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.7559953504886312`*^9, 3.7559953758552103`*^9}, { 3.755995451221616*^9, 3.755995458572054*^9}, {3.756042468806717*^9, 3.756042494249666*^9}, {3.7560428849178343`*^9, 3.756042896639387*^9}, { 3.756046323695932*^9, 3.7560463363196077`*^9}}, CellLabel->"In[21]:=",ExpressionUUID->"f3030bd6-e5b6-40dc-8a6d-e2472c4b836e"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "3"]}], " ", SuperscriptBox["A", "3"], " ", SubsuperscriptBox["a", "3", "4"]}], "+", RowBox[{ FractionBox["1", "120"], " ", SuperscriptBox["A", "5"], " ", SubsuperscriptBox["a", "3", "5"]}], "+", RowBox[{ FractionBox["1", "6"], " ", SuperscriptBox["A", "4"], " ", SubsuperscriptBox["a", "3", "3"], " ", SubscriptBox["a", "4"]}], "+", RowBox[{ SuperscriptBox["A", "2"], " ", SubscriptBox["a", "4"], " ", SubscriptBox["a", "5"]}], "+", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["A", "2"], " ", SubsuperscriptBox["a", "3", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", SubscriptBox["a", "4"]}], "+", RowBox[{"A", " ", SubscriptBox["a", "5"]}]}], ")"}]}], "+", SubscriptBox["a", "6"], "+", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["A", "2"], " ", SubscriptBox["a", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"A", " ", SubsuperscriptBox["a", "4", "2"]}], "+", RowBox[{"2", " ", SubscriptBox["a", "6"]}]}], ")"}]}]}]], "Output", CellChangeTimes->{{3.755995353876137*^9, 3.755995376100444*^9}, { 3.755995452751554*^9, 3.7559954589491*^9}, {3.756042471107218*^9, 3.756042494601718*^9}, {3.7560428857186127`*^9, 3.756042897096599*^9}, { 3.756046315213716*^9, 3.756046336602889*^9}}, CellLabel->"Out[21]=",ExpressionUUID->"67e8ec8f-369d-4c59-95b0-58b9a783afa2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t1", "=", RowBox[{ RowBox[{ RowBox[{"v", "[", "3", "]"}], "[", "8", "]"}], "//", "Simplify"}]}]], "Input", CellChangeTimes->{{3.755983719791654*^9, 3.7559837219603233`*^9}, { 3.755983752976677*^9, 3.755983799383815*^9}, {3.7559838452274637`*^9, 3.7559838467523203`*^9}, {3.755986245663477*^9, 3.755986246683507*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"da24f07f-294f-40bb-8afa-b87c0b00f28d"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["2", "315"], " ", SuperscriptBox["A", "8"], " ", SubsuperscriptBox["a", "4", "8"]}], "-", RowBox[{"2", " ", SuperscriptBox["A", "2"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"b", "[", "3", "]"}]}], ")"}], " ", SubsuperscriptBox["a", "5", "3"]}], "+", RowBox[{ FractionBox["2", "3"], " ", SuperscriptBox["A", "4"], " ", SubsuperscriptBox["a", "5", "4"]}], "+", RowBox[{ FractionBox["2", "45"], " ", SuperscriptBox["A", "5"], " ", SubsuperscriptBox["a", "4", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "45"}], "-", RowBox[{"6", " ", RowBox[{"b", "[", "3", "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox["A", "2"], " ", SubscriptBox["a", "5"]}]}], ")"}]}], "+", RowBox[{ FractionBox["8", "15"], " ", SuperscriptBox["A", "6"], " ", SubsuperscriptBox["a", "4", "5"], " ", SubscriptBox["a", "6"]}], "-", RowBox[{"3", " ", "A", " ", SubsuperscriptBox["a", "6", "2"]}], "-", RowBox[{"2", " ", "A", " ", RowBox[{"b", "[", "3", "]"}], " ", SubsuperscriptBox["a", "6", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["A", "2"], " ", SubsuperscriptBox["a", "7", "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", SubsuperscriptBox["a", "5", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"b", "[", "3", "]"}], "+", SuperscriptBox[ RowBox[{"b", "[", "3", "]"}], "2"], "+", RowBox[{"8", " ", SuperscriptBox["A", "3"], " ", SubscriptBox["a", "7"]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "6"], " ", SuperscriptBox["A", "2"], " ", SubsuperscriptBox["a", "4", "4"], " ", RowBox[{"(", RowBox[{"75", "+", RowBox[{"42", " ", RowBox[{"b", "[", "3", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"b", "[", "3", "]"}], "2"]}], "-", RowBox[{"20", " ", SuperscriptBox["A", "2"], " ", RowBox[{"(", RowBox[{"6", "+", RowBox[{"b", "[", "3", "]"}]}], ")"}], " ", SubscriptBox["a", "5"]}], "+", RowBox[{"8", " ", SuperscriptBox["A", "4"], " ", SubsuperscriptBox["a", "5", "2"]}], "+", RowBox[{"8", " ", SuperscriptBox["A", "3"], " ", SubscriptBox["a", "7"]}]}], ")"}]}], "+", RowBox[{"4", " ", SuperscriptBox["A", "2"], " ", SubscriptBox["a", "6"], " ", SubscriptBox["a", "8"]}], "+", RowBox[{ FractionBox["8", "3"], " ", SuperscriptBox["A", "3"], " ", SubsuperscriptBox["a", "4", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "-", RowBox[{"2", " ", RowBox[{"b", "[", "3", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox["A", "2"], " ", SubscriptBox["a", "5"]}]}], ")"}], " ", SubscriptBox["a", "6"]}], "+", RowBox[{"A", " ", SubscriptBox["a", "8"]}]}], ")"}]}], "-", RowBox[{ RowBox[{"b", "[", "3", "]"}], " ", SubscriptBox["a", "9"]}], "+", RowBox[{"2", " ", "A", " ", SubscriptBox["a", "5"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["A", "2"], " ", SubsuperscriptBox["a", "6", "2"]}], "-", RowBox[{ RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", " ", RowBox[{"b", "[", "3", "]"}]}]}], ")"}], " ", SubscriptBox["a", "7"]}], "+", RowBox[{"2", " ", "A", " ", SubscriptBox["a", "9"]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "3"], " ", "A", " ", SubsuperscriptBox["a", "4", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "12"}], " ", SuperscriptBox["A", "2"], " ", RowBox[{"(", RowBox[{"9", "+", RowBox[{"2", " ", RowBox[{"b", "[", "3", "]"}]}]}], ")"}], " ", SubsuperscriptBox["a", "5", "2"]}], "+", RowBox[{"8", " ", SuperscriptBox["A", "4"], " ", SubsuperscriptBox["a", "5", "3"]}], "+", RowBox[{"3", " ", SubscriptBox["a", "5"], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"2", "+", RowBox[{"b", "[", "3", "]"}]}], ")"}], "2"]}], "+", RowBox[{"8", " ", SuperscriptBox["A", "3"], " ", SubscriptBox["a", "7"]}]}], ")"}]}], "+", RowBox[{"6", " ", "A", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["A", "2"], " ", SubsuperscriptBox["a", "6", "2"]}], "-", RowBox[{"3", " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"b", "[", "3", "]"}]}], ")"}], " ", SubscriptBox["a", "7"]}], "+", RowBox[{"2", " ", "A", " ", SubscriptBox["a", "9"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SubscriptBox["a", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{"b", "[", "3", "]"}], "+", SuperscriptBox[ RowBox[{"b", "[", "3", "]"}], "2"], "-", RowBox[{"12", " ", SuperscriptBox["A", "2"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"b", "[", "3", "]"}]}], ")"}], " ", SubscriptBox["a", "5"]}], "+", RowBox[{"8", " ", SuperscriptBox["A", "4"], " ", SubsuperscriptBox["a", "5", "2"]}], "+", RowBox[{"8", " ", SuperscriptBox["A", "3"], " ", SubscriptBox["a", "7"]}]}], ")"}]}], "+", RowBox[{"2", " ", "A", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "-", RowBox[{"2", " ", RowBox[{"b", "[", "3", "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox["A", "2"], " ", SubscriptBox["a", "5"]}]}], ")"}], " ", SubscriptBox["a", "8"]}], "+", RowBox[{"2", " ", "A", " ", SubscriptBox["a", "10"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "A", " ", SubscriptBox["a", "11"]}]}]], "Output", CellChangeTimes->{ 3.755983722175646*^9, {3.7559837532809887`*^9, 3.755983808965115*^9}, 3.755983847096236*^9, {3.755986247150073*^9, 3.7559862667355347`*^9}}, CellLabel->"Out[9]=",ExpressionUUID->"226117a7-858e-4561-8b04-253742f8c5e4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Y", "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["a", "n"], SuperscriptBox["Y", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"d", "+", "1"}], ",", RowBox[{"d", "+", "100"}]}], "}"}]}], "]"}]}], "/.", RowBox[{"d", "\[Rule]", "2"}]}], ",", RowBox[{"{", RowBox[{"Y", ",", "4"}], "}"}]}], "]"}], "/", RowBox[{"4", "!"}]}], "/.", RowBox[{"Y", "->", "0"}]}]], "Input", CellChangeTimes->{{3.755989774725753*^9, 3.7559898095132008`*^9}}, CellLabel->"In[42]:=",ExpressionUUID->"7a2c7d58-8792-4fe7-9fc8-1b8c5bfed781"], Cell[BoxData[ SubscriptBox["a", "4"]], "Output", CellChangeTimes->{{3.755989784745599*^9, 3.7559898097959347`*^9}}, CellLabel->"Out[42]=",ExpressionUUID->"974a6c06-b7cd-4aa6-9657-ad9563df6b29"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t2", "=", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["X", RowBox[{"-", RowBox[{"b", "[", "d", "]"}]}]], RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", SubscriptBox["A", RowBox[{"d", "-", "1"}]]}], "/", SuperscriptBox["X", RowBox[{"d", "-", "1"}]]}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["A", "i"], "/", SuperscriptBox["Y", "i"]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"d", "-", "1"}]}], "}"}]}], "]"}]}], "]"}], SuperscriptBox["Y", RowBox[{"-", RowBox[{"b", "[", "d", "]"}]}]]}], ")"}]}]}], "/.", RowBox[{"X", "\[Rule]", RowBox[{"Y", "-", RowBox[{ RowBox[{ SubscriptBox["A", "1"], "/", RowBox[{"(", RowBox[{"2", " ", SubscriptBox["A", "2"]}], ")"}]}], SuperscriptBox["Y", "2"]}], "+", RowBox[{ FractionBox["3", "8"], FractionBox[ SuperscriptBox[ SubscriptBox["A", "1"], "2"], SuperscriptBox[ SubscriptBox["A", "2"], "2"]], SuperscriptBox["Y", "3"]}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["a", "n"], SuperscriptBox["Y", "n"]}], ",", RowBox[{"{", RowBox[{"n", ",", "4", ",", RowBox[{"d", "+", "5"}]}], "}"}]}], "]"}]}]}]}], "/.", RowBox[{"d", "\[Rule]", "3"}]}], ",", RowBox[{"{", RowBox[{"Y", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.755953425332271*^9, 3.755953597896872*^9}, { 3.755953645115286*^9, 3.755953645178322*^9}, {3.755953795712057*^9, 3.7559538048771133`*^9}, 3.755954148531365*^9, {3.755954187092915*^9, 3.7559541942559958`*^9}, {3.755961563503296*^9, 3.755961573592606*^9}, { 3.7559784567339153`*^9, 3.755978456816216*^9}, {3.755983737426729*^9, 3.755983803397403*^9}, {3.75598384943009*^9, 3.7559838551858664`*^9}, { 3.755984542780919*^9, 3.755984543024828*^9}, {3.75606627642898*^9, 3.756066365784556*^9}, {3.7560664015211353`*^9, 3.7560664488083897`*^9}, { 3.75606649524175*^9, 3.7560664965516148`*^9}, {3.756066538586203*^9, 3.756066566913178*^9}}, CellLabel-> "In[109]:=",ExpressionUUID->"58776c0d-ed85-4f55-865c-1da528d38732"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"5", " ", SubsuperscriptBox["A", "1", "3"]}], RowBox[{"8", " ", SubsuperscriptBox["A", "2", "2"]}]], "+", FractionBox[ RowBox[{ RowBox[{"b", "[", "3", "]"}], " ", SubscriptBox["A", "1"]}], RowBox[{"2", " ", SubscriptBox["A", "2"]}]], "+", RowBox[{"2", " ", SubscriptBox["a", "4"], " ", SubscriptBox["A", "2"]}]}]], "Output", CellChangeTimes->{{3.755953579986732*^9, 3.755953602136208*^9}, 3.755953645477916*^9, {3.755953799375855*^9, 3.7559538050840693`*^9}, 3.755954148935199*^9, {3.7559541889348087`*^9, 3.755954194700406*^9}, { 3.755961563871533*^9, 3.7559615739086723`*^9}, {3.755983737870796*^9, 3.7559838052338133`*^9}, 3.755983855597596*^9, 3.755984543877799*^9, 3.755986272441601*^9, {3.756066300035973*^9, 3.756066366803513*^9}, { 3.7560664318842*^9, 3.756066450625702*^9}, 3.756066496856854*^9, 3.756066567272808*^9}, CellLabel-> "Out[109]=",ExpressionUUID->"7529d7ab-9e56-4bc2-9cb9-39916068dcfc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"d", "+", "1"}], ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.756068262469352*^9, 3.756068267490964*^9}, { 3.756068342724084*^9, 3.756068346388097*^9}}, CellLabel-> "In[112]:=",ExpressionUUID->"8212b325-0c78-4677-88ea-cdb29cbb0048"], Cell[BoxData[ RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "d"}], ")"}], " ", "d", " ", RowBox[{"(", RowBox[{"1", "+", "d"}], ")"}]}]], "Output", CellChangeTimes->{3.756068267752173*^9, 3.756068346658709*^9}, CellLabel-> "Out[112]=",ExpressionUUID->"fa677f31-4770-454c-8b44-9b5a36061a28"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Multinomial", "[", RowBox[{"1", ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.7560682817326736`*^9, 3.756068284693227*^9}}, CellLabel-> "In[111]:=",ExpressionUUID->"df551726-5857-4a47-a581-12f69f25ecb7"], Cell[BoxData["2"], "Output", CellChangeTimes->{3.756068284986973*^9}, CellLabel-> "Out[111]=",ExpressionUUID->"0d9af583-264c-4807-ae2f-d797c0ea6bf5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Series", "[", RowBox[{ RowBox[{ FractionBox[ SubscriptBox["A", "2"], SuperscriptBox["Y", "2"]], "-", FractionBox[ SubscriptBox["A", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{"Y", "+", RowBox[{ SuperscriptBox["Y", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["A", "1"]}], "/", RowBox[{"(", RowBox[{"2", " ", SubscriptBox["A", "2"]}], ")"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["Y", "3"], " ", SubscriptBox["a", "3"]}], "+", RowBox[{ SuperscriptBox["Y", "4"], " ", SubscriptBox["a", "4"]}], "+", RowBox[{ SuperscriptBox["Y", "5"], " ", SubscriptBox["a", "5"]}], "+", RowBox[{ SuperscriptBox["Y", "6"], " ", SubscriptBox["a", "6"]}], "+", RowBox[{ SuperscriptBox["Y", "7"], " ", SubscriptBox["a", "7"]}], "+", RowBox[{ SuperscriptBox["Y", "8"], " ", SubscriptBox["a", "8"]}]}], ")"}], "2"]]}], ",", RowBox[{"{", RowBox[{"Y", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.756066378446228*^9, 3.75606638380457*^9}, { 3.756066523449925*^9, 3.756066525936351*^9}}, CellLabel-> "In[108]:=",ExpressionUUID->"5d367f3b-6f2b-4125-8342-21d218b7f254"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", FractionBox[ SubscriptBox["A", "1"], "Y"]}], "+", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"3", " ", SubsuperscriptBox["A", "1", "2"]}], RowBox[{"4", " ", SubscriptBox["A", "2"]}]]}], "+", RowBox[{"2", " ", SubscriptBox["a", "3"], " ", SubscriptBox["A", "2"]}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", " ", SubscriptBox["a", "3"], " ", SubscriptBox["A", "1"]}], "-", FractionBox[ SubsuperscriptBox["A", "1", "3"], RowBox[{"2", " ", SubsuperscriptBox["A", "2", "2"]}]], "+", RowBox[{"2", " ", SubscriptBox["a", "4"], " ", SubscriptBox["A", "2"]}]}], ")"}], " ", "Y"}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "Y", "]"}], "2"], SeriesData[$CellContext`Y, 0, {}, -1, 2, 1], Editable->False]}], SeriesData[$CellContext`Y, 0, {-Subscript[$CellContext`A, 1], Rational[-3, 4] Subscript[$CellContext`A, 1]^2/ Subscript[$CellContext`A, 2] + 2 Subscript[$CellContext`a, 3] Subscript[$CellContext`A, 2], 3 Subscript[$CellContext`a, 3] Subscript[$CellContext`A, 1] + Rational[-1, 2] Subscript[$CellContext`A, 1]^3 Subscript[$CellContext`A, 2]^(-2) + 2 Subscript[$CellContext`a, 4] Subscript[$CellContext`A, 2]}, -1, 2, 1], Editable->False]], "Output", CellChangeTimes->{3.756066384289703*^9, 3.7560665262673683`*^9}, CellLabel-> "Out[108]=",ExpressionUUID->"ee99f0c2-e439-4a4d-8fe4-274d91a8d394"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t1", "\[Equal]", "t2"}]], "Input", CellChangeTimes->{{3.7559838574788094`*^9, 3.755983858170805*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"7c3544b6-f791-402f-b763-8ab9eac5b7b9"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.755983858436735*^9, 3.755986273379781*^9}, CellLabel->"Out[11]=",ExpressionUUID->"247f7916-6198-4764-ae25-025257e0bfe1"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"y", "[", "d_", "]"}], "[", "m_", "]"}], ":="}]], "Input", CellChangeTimes->{{3.755977778250719*^9, 3.755977784168833*^9}},ExpressionUUID->"101be1fd-bb0e-4747-9643-\ 3921da67ae3f"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Constants", " ", "fixed", " ", "for", " ", "the", " ", "2", "D", " ", "square"}], "-", RowBox[{"lattice", " ", "Ising", " ", "model"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalDelta]", ":=", RowBox[{"15", "/", "8"}]}], "\[IndentingNewLine]", RowBox[{"\[Gamma]", ":=", RowBox[{"7", "/", "4"}]}], "\[IndentingNewLine]", RowBox[{"\[Beta]", ":=", RowBox[{"1", "/", "8"}]}], "\[IndentingNewLine]", RowBox[{"\[ScriptCapitalM]0", ":=", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["2", RowBox[{"5", "/", "2"}]], RowBox[{"ArcSinh", "[", "1", "]"}]}], ")"}], "\[Beta]"]}], "\[IndentingNewLine]", RowBox[{"Tc", ":=", RowBox[{"2", "/", RowBox[{"Log", "[", RowBox[{"1", "+", RowBox[{"Sqrt", "[", "2", "]"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ SubscriptBox["A", "1"], ":=", RowBox[{ SuperscriptBox["Tc", "2"], RowBox[{ RowBox[{"\[ScriptCapitalM]0", "/", RowBox[{"(", RowBox[{"16", " ", "\[Pi]"}], ")"}]}], "/", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", RowBox[{"ArcSinh", "[", "1", "]"}]}], ")"}], "2"], RowBox[{"(", RowBox[{"Ch", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"2", RowBox[{"ArcSinh", "[", "1", "]"}]}], ")"}], RowBox[{"-", "\[CapitalDelta]"}]]}], ")"}]}], ")"}], RowBox[{"-", "1"}]]}]}]}]}]}]], "Input", CellChangeTimes->{{3.7138208469838247`*^9, 3.713820849646833*^9}, { 3.71383052920462*^9, 3.7138305296005993`*^9}, {3.7142151732571373`*^9, 3.7142152150054703`*^9}, {3.7561470279524097`*^9, 3.756147036758465*^9}, { 3.7561473995021544`*^9, 3.7561474038927937`*^9}, {3.7561492378522882`*^9, 3.7561492430752296`*^9}, {3.756149551762288*^9, 3.756149552647532*^9}}, CellLabel->"In[67]:=",ExpressionUUID->"b9bdff2c-d0c6-47fd-8a10-904aab671281"], Cell[BoxData[ RowBox[{"ClearAll", "[", "Subscript", "]"}]], "Input", CellChangeTimes->{{3.756316289717658*^9, 3.75631629159007*^9}, { 3.756316356729248*^9, 3.75631637077739*^9}}, CellLabel->"In[82]:=",ExpressionUUID->"064b90dd-8bd7-4836-9e8f-25f5de9ccf79"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Constants", " ", "from", " ", "Mangazeev", " ", "et", " ", "al"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Ch", ":=", "0.838677624411"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Ghs", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "1.8452280782328"}], ",", "0", ",", "8.333711750", ",", "0", ",", RowBox[{"-", "95.16896"}], ",", "0", ",", "1457.62", ",", "0", ",", RowBox[{"-", "25891"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gls", ":=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1.3578383417066"}], ",", RowBox[{"-", "0.048953289720"}], ",", "0.038863932", ",", RowBox[{"-", "0.068362119"}], ",", "0.18388370", ",", RowBox[{"-", "0.6591714"}], ",", "2.937665", ",", RowBox[{"-", "15.61"}], ",", "96.76", ",", RowBox[{ RowBox[{"-", "6.79"}], " ", SuperscriptBox["10", "2"]}], ",", RowBox[{"5.34", " ", SuperscriptBox["10", "3"]}], ",", RowBox[{ RowBox[{"-", "4.66"}], " ", SuperscriptBox["10", "4"]}], ",", RowBox[{"4.46", " ", SuperscriptBox["10", "5"]}], ",", RowBox[{ RowBox[{"-", "4.66"}], " ", SuperscriptBox["10", "6"]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalPhi]s", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "1.197733383797993"}], ",", RowBox[{"-", "0.318810124891"}], ",", "0.110886196683", ",", "0.01642689465", ",", RowBox[{ RowBox[{"-", "2.639978"}], " ", SuperscriptBox["10", RowBox[{"-", "4"}]]}], ",", RowBox[{ RowBox[{"-", "5.140526"}], " ", SuperscriptBox["10", RowBox[{"-", "4"}]]}], ",", RowBox[{"2.08856", " ", SuperscriptBox["10", RowBox[{"-", "4"}]]}], ",", RowBox[{ RowBox[{"-", "4.4819"}], " ", SuperscriptBox["10", RowBox[{"-", "5"}]]}]}], "}"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.75614689958223*^9, 3.756146955989298*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"754eb2ca-63de-438d-baee-8894c7d76dee"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Translation", " ", "between", " ", "the", " ", "variables", " ", "of", " ", "Mangazeev", " ", "et", " ", "al", " ", "and", " ", "our", " ", "own"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"G2C", "[", RowBox[{"G_", ",", "n_"}], "]"}], ":=", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", RowBox[{"ArcSinh", "[", "1", "]"}]}], ")"}], "2"], SuperscriptBox[ RowBox[{"(", RowBox[{"Ch", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"2", RowBox[{"ArcSinh", "[", "1", "]"}]}], ")"}], RowBox[{"-", "\[CapitalDelta]"}]]}], ")"}], "n"], "G"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gs2Cs", "[", "Gs_", "]"}], ":=", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"G2C", "[", RowBox[{"#1", ",", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}]}], "]"}], "&"}], ",", "Gs"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalPhi]2C", "[", RowBox[{"\[CapitalPhi]_", ",", "n_"}], "]"}], ":=", RowBox[{ SuperscriptBox["Ch", RowBox[{"2", "/", "\[CapitalDelta]"}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], RowBox[{"ArcSinh", "[", "1", "]"}], SuperscriptBox["Ch", RowBox[{ RowBox[{"-", "1"}], "/", "\[CapitalDelta]"}]]}], ")"}], "n"], "\[CapitalPhi]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalPhi]s2Cs", "[", "Gs_", "]"}], ":=", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPhi]2C", "[", RowBox[{"#1", ",", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}]}], "]"}], "&"}], ",", "Gs"}], "]"}]}]}]}]], "Input", CellLabel->"In[11]:=",ExpressionUUID->"20480ec1-2852-4039-beb5-39084353bc4a"], Cell[BoxData[ RowBox[{"ClearAll", "[", "B", "]"}]], "Input", CellChangeTimes->{{3.756147042416091*^9, 3.7561470444622707`*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"0adfbc83-67d5-482f-a14c-4995d005a937"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cs", "=", "Gls"}]], "Input", CellChangeTimes->{{3.756146785977566*^9, 3.756146855215311*^9}, { 3.7561482951809893`*^9, 3.756148297994709*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"c3768c23-2c6f-43d3-ae10-ea36ad104537"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1.3578383417066`"}], ",", RowBox[{"-", "0.04895328972`"}], ",", "0.038863932`", ",", RowBox[{"-", "0.068362119`"}], ",", "0.1838837`", ",", RowBox[{"-", "0.6591714`"}], ",", "2.937665`", ",", RowBox[{"-", "15.61`"}], ",", "96.76`", ",", RowBox[{"-", "679.`"}], ",", "5340.`", ",", RowBox[{"-", "46600.`"}], ",", "446000.`", ",", RowBox[{"-", "4.66`*^6"}]}], "}"}]], "Output", CellChangeTimes->{ 3.756146793251371*^9, {3.756146827437461*^9, 3.7561468556535892`*^9}, 3.756146973591395*^9, 3.7561482982131243`*^9, 3.7563162812329407`*^9}, CellLabel->"Out[16]=",ExpressionUUID->"4b177b6a-d29b-4f5b-b4ea-a0a979f07414"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalF]series", "[", "d_", "]"}], "[", "n_", "]"}], ":=", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "+", "n"}]], " ", SuperscriptBox[ SubscriptBox["A", RowBox[{"d", "-", "1"}]], RowBox[{"-", FractionBox[ RowBox[{"n", "+", RowBox[{"b", "[", "d", "]"}]}], RowBox[{"d", "-", "1"}]]}]], " ", RowBox[{"Gamma", "[", FractionBox[ RowBox[{"n", "+", RowBox[{"b", "[", "d", "]"}]}], RowBox[{"d", "-", "1"}]], "]"}], " ", SubscriptBox["B", "0"]}], RowBox[{ RowBox[{"(", RowBox[{"d", "-", "1"}], ")"}], " ", "\[Pi]"}]], "/;", RowBox[{ RowBox[{"n", "+", RowBox[{"b", "[", "d", "]"}]}], ">", "0"}]}]}]], "Input", CellChangeTimes->{{3.7561465625186462`*^9, 3.756146599982173*^9}, { 3.75614663644077*^9, 3.756146658169519*^9}, {3.756147060547866*^9, 3.7561470773207817`*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"fdff31f6-3614-477c-b49c-b02646eabd5a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"ListLogPlot", "[", RowBox[{"Abs", "@", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"cs", "-", RowBox[{ RowBox[{"\[ScriptCapitalF]series", "[", "2", "]"}], "/@", RowBox[{"(", RowBox[{ RowBox[{"Range", "[", "15", "]"}], "-", "1"}], ")"}]}]}], "/.", "s1"}], "/.", RowBox[{ SubscriptBox["A", "1"], "\[Rule]", "1.15"}]}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.756316883897736*^9, 3.756316995842103*^9}, { 3.756317029565057*^9, 3.7563170888037243`*^9}, {3.756317119871421*^9, 3.7563171857041473`*^9}}, CellLabel-> "In[103]:=",ExpressionUUID->"759425ae-77fd-4d49-8004-d1c7dcbd9e9f"], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{4., -5.598302541433281}, {5., -5.172685916164882}, { 6., -4.684019069020701}, {7., -4.376485637051542}, { 8., -4.071453286896929}, {9., -0.9888017511100617}, {10., 1.3880657032553942`}, {11., 3.519347066498723}, {12., 5.670963964788034}, {13., 7.897180908354783}, {14., 10.165402908623431`}, {15., 12.532745383828553`}}]}, {}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., -6.914265697299061}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->{428., Automatic}, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Exp[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Exp[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 15.}, {-6.605582981725605, 12.532745383828553`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->FrontEndValueCache[{Automatic, Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-6.907755278982137, FormBox["0.001`", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0., FormBox["1", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {6.907755278982137, FormBox["1000", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-4.605170185988091, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-2.3025850929940455`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.302585092994046, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4.605170185988092, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9.210340371976184, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {11.512925464970229`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {13.815510557964274`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {14.508657738524219`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {14.914122846632385`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {15.201804919084164`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {15.424948470398375`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {15.60727002719233, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {15.761420707019587`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}]]], "Output", CellChangeTimes->{{3.756316984964592*^9, 3.756316995989621*^9}, { 3.756317032412005*^9, 3.756317042641144*^9}, {3.756317073874555*^9, 3.7563170892784653`*^9}, {3.756317121742775*^9, 3.756317186157452*^9}}, CellLabel-> "Out[103]=",ExpressionUUID->"cd0afb62-3d8f-45cf-bdc5-9ed9b1b85bf8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"LaguerreL", "[", RowBox[{"#", ",", "x"}], "]"}], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "x"}], "/", "2"}], "]"}]}]}], ")"}]}], "&"}], "/@", RowBox[{"Range", "[", "10", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7563176823602123`*^9, 3.75631775910286*^9}, { 3.75631779045487*^9, 3.7563178080241623`*^9}, 3.756317908252989*^9}, CellLabel-> "In[112]:=",ExpressionUUID->"87a49bcf-31a6-4239-834b-5abc1a20391b"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVjXk01AkcwF0z8jMy/HrKEqO1TY6UbXfTSt9v7OsiTzFpWMXkyjFizStp OkhST6tSlNU8KWlDuXaxkuTILVcHFo1xDWKmqTE0tv3j8z7v89fHjBOxP0BN RUWF/ZX/nXmaQ7X1j92mT9ss3Oh/eVttF8PFk8GGWr+IOMmqo7BUXxXPYByF 2sNVGWy9GMisTjalMGLAZ2jA7pxaEoQ58MI/myYB1S2VayBKh66F4NRZ01vg 8WYp4OWfuaDZ9545bfoQ4lOvayo3l0FWkyBSbFoOIaXK+SB2AxQ8TuoLs2kC 1+LugnZ+LwTBq1tTUV3QLikTOKwYBK7IQlhS8Bb2GYk0y82EQJidZw7aDcFT nbxKCncUrtCbLbN8hUDPKyr7gToB5ZtXl7pyhXA8UJ6YSJ+AkUMRsBgrhLFt x0c6v5kA+3zSwzNNCJ3q3Wz3DRMwvvtXvk7b13bg1S94ToBT/HR7jP0IHDyw 99sPDyZALtPl7TcQwaqADla84yRw+jyeqbeMQlpRXRXviBiIjOHwyLej8JRr rCsOFUORF9d4cHQU2o2/9/WKFoP6u8SYCtUxWEgxN2AmiOHem4pNkZvHQIcR 5xyTI4bRHkbuv3fHYMSmMldjXAwhHVMp5THjoKF6xaYncAoi685zIpiT4Ff/ ibXTYxoKj9HcV+2ehs49h5UX+2YgKzZ0cqPnLMithxurzWYhTrC47+PUHFB6 K9MvFc6CStcQVp6Ugogh735uPQdrowNPeFjKoPmPM9cTsudgRJZ2QPvpJ7DJ O30japkE9ohC+Nci5XCc3jTHjJCA60iKlYmJAvjNAz5vOiQw+YJz9mX+AoTr G4wqrKRgo9e72unwF/g0ZEW9dFUKBMj8+qVK8E7r3UCRSWHntNfnNSwV3CF9 7qkM+ghvavxVvaxVkWX0k9nE8EcovVh7iCFTxST34lodHxkEUnhDbW1qmCrI dNSckcGRqNhS2m11VKxgjy8/9wk2BFm1ufhpYGzFhzNdxp+hXd9am7eFgnns tSvDuj7DPwVxGdbqVOQbjI2oX5ZDrKqlW8sAFVMp+uWlvvNA9J/cxS3RRJfu blb6dgWIcsxSBaeW4WzAKcE4YwFS1xlqlLO0cL9DjaLfbBFSbgc2+DEIjMxt 9k4w/QJeqT5ttDEC+UYxwXJzJch/uT8vqNJGLyo3t851CYQixxM1iTQUuPMk rXYqeNfB1qjVTwcjrjZ+9B5QwfwEnl7Q+uWocJMePcBXxUTWEWd12XJcbG+/ NWOqhj/2Zz1MbNXFQWImNrFXDdMtMvJbnek4VOVDpF9QxzPVyenO5XSks4Lf 7nXWwL1GrPtN5nqoYiEustSn4HZug7dekh4mVL8rvNZBQYExx7xFpof8dznD jHtUNH/x4Kartz5ayy+X23I1MWV9jWVnlT52JL9uOGi3DAOlGq8aLUncc59S p1iphZxCCSPpdxLHepQmsVNaGBbnvrjnKolnO9mE3awW8txLXtOuk/j+BNVe JtXCizLelZSbJMavoIUdW9DCgi3zC2mZJN6htRAhBIHzz5d6cx6RaHUHrELW EZjSSUuubSCRedcxJtOfwNvZ4cEXGklMNi8Tc4IJzI5uc9rVTCKdvzVrXRiB fxmkKJrbSNQrtegp+Y3Afi8yuKuHRNviO4c64ghkCg2d3gtJ9NtnP05mEbix 5KTJPRGJl1ps4wfuEfhzQt98wBiJxX0rfR/kEujCzHwyMUlii2HooP0TAqNC GSZzcySGfbdFEvSMwFNbz80XSb/+d/x9e9MLAhN03ndHy0gkJm+cX6onMP1x 9mW5nESh23rj9DYC757VCKpQkKjNqWn07yTw0b4Ax1OLJBpeP1Zm20tgyZr6 1duUJBrprh1XviWwSrp2fmmJxBy1VwdbBgj8D0bRocA= "]], LineBox[CompressedData[" 1:eJwVkGk8FPoChu2VVJgWU0QnS9ni3DaR91+OhNKClETI0kJRSGhDFE6SZdLi orIlKgqVCiHE2IlpVgZRMUZGyu1+eH/Pl+fD83tXuJ3c6yEhJiaW9Wf/593z bjKGR0JMG95U1RsciTGtalXb4aB2AJ8P36qRXngUM9Xl4WpqRxGhkqYfMSsY d9/GqUqrBSNkTDDZ9zUaJzYH+PxQvYpMasJ/VcppaP3pnfhd9Ray1t9yrj+U jVk9HK0R1RyE2ug716a/QNfb1wHDAzlQPJ0ZM7K3BLkPaZVfnuRCOS9952HJ Utj427gMmT3Cu8XGVQZuZUieU5bM9yrAq+S/mbFLXkPxTq3EaOdTpH+f+NVu 8A7pdWl+X1RLce+klvt942qM04q1mbGleJyosXFFfDW2edVzW0SlCEvaYA1e NYYlf9iXtZZB/ZB82OGYGmzcbLPpatQr5KQlgLTXgl4wLaH17Q3mx9ZolDvU 40KdrpWhSyXYnfbxk3J0ZD95oZmXVAm1/SmfUw3paKFtldRoqMT+gYt9ivvo UPfa/0rJqAqxu6PLIu7RUScZoS9GeQ+jHu0Pp/WasXhzj2JTdTWYK3/5pJu1 4HHB1Z4T+nXYrs75bb63DUOKQ7FWrnVY+WTnrpaTbdAKtDJdlVgHj9UefZvj 2vBfk7npXFEdxiXeH3hW04aED7Geju/rYZMsnrHUuB2B3OujFk4fsVq/zW98 WQfS5taHK5jTsT7TojetuhOmm0OcLjrTwR2WObWT1YleX51134LoOK7wgscQ dUKpJaa/IZeO9mtbWFm6XbhB22EZLd8M5d4Fq7jxXQjXaJw/09OMnWy3OQvs uuGF5lvD/q1YwdwSKHr/CWIZE2U9Ma0QDJhE1vZ8Ak1Kubfufitc9b+2nB/9 hNoPnstzOloRmuoSm67cg1V20xkem9rQKzf7rwq/Hgx4az36LN6OtMt/i0cu 6cWxhLByenwHygsMVpbsYUBCmMF8k9OB5n+Gw+4eYSDVoVasoKID+bcL5/kE MVCnTDGLG+/ASZdXWvV3GNDJyq6x3N+JU9zJish+BoZfttIrVLsQUh9oPzvw M3z7VnOLHncjKCzM4XMkEyzn7tnvPnQjTaPWOSWFCduuaP2PvG60pQkkN+Uw sbGeH9y39BMe6D1ONGlgQvLJA/nFUZ9gdyiPc2c2C7TQFaZBLj3wW2I4kmTN wjsK9ZaRPAN02NJaP7CwNq623FyHgcbZScXuzSw8lDnL27ONAb0H68yHuliI FXWsORbKwOwK/sgnPgv7mInVqQMM1CtlVVpLszGUKz/+8+1n+Ic+Pxhoyobs iggt5kYWbFWsL/+Ty0atyY01581ZEH8jlbSjkI0r++9tUNnLwnZG58Odz9mQ iC+xOHichT2Vt0c2VbAx9XvYq/MuC0sUlRZUdrPxpdc+u0mCDc0FYfU3ZnHQ QNNa/baBDfF1NLujzhxcK1pr6PLHO5fC+TvTnYPt9C1Gv/vY2OhlvrbTm4Oq WU6WJjNsJDp7V+qd5uBVYPzREkMOrA9cmZUcxUG+nSinMJkDSyGjxLGAg3/l 67XTD3NxV1HH+PsUB6UbVIptfLmo3rgonjXDAc/5JKZDuFiz+wupl+LCOJ9i 55DCRVxGIfP6fC4GLJ3C5jVy4X/zlGHnCi7Mwkeago15CBbkzfOy4GJSuCBg 7+I+SJmGXm7+lwu3Hrs3kg39MJ+TtXtIngfZ22wfv+5+bF8/d/DRQh6eOvoq M/v7Ua14wemEEg+Sn6KCy8T52LztkpCtysP9rrL/+G3g4/Qv1fZsfR7629Wy P2fwYe+R7/rImodj9OH40uABlKYOk4pwHvzeR7id1BrCgblyWa0jPDw5JWer ZDmCnx4dK8Oy+5AecnzIwOE7fKIa480D+3E5bXrP+PAockoMurCDj90GJX46 glHs0y+RqN7Fx/J3p2+4iUbxRuymk40tH2WcITpdegzjItdcD0c+xjS6d+Uv H8Mak0KJAm8+3B4V7/TcPYbUqFmkIJKPLaW+ll3PxrChaZnRuXd8iLWyyKtz AnipHPVpIwOIGCxPP3dJgKozVrYO5gOYI3ZXwihagJrW4FsMywEo6h2oKk4S QCpcw3Z87wA0opotCgoFyGoqarbyGICVcYVNRr8Audtvpd+7NoCbmZlO0XvH kUHUlk50DkDzjOdZO20h8ix9ZWbCBqG3iWmbZiAEIuyWUsIHsVZs/5qh9UII MnKfa0cPYmusZf8FMyGeydnFH0kYhPN9Xbs8JyH0pPqnJbIGkdw2tkbiuhDy 5TTnYfogpNdd4BcIhHiwa+FE2J/fecKUfXNfTyBbfjj8J3MIVn3HwhL8JmEm TwsUzxqGDS9eZ/nyKTRUl4zmPfuKoUq3i7X5P3Ee7/eLn/4OfYUOFTOXX8hf VKjZ3jAKWQhdewW/od39YsB6vQAWI44//rIXI9qWfbnd/HF0VRwRd9QVJ1Yz IUzKywkUR1c5qwnFSTTzi99UwiQ8pQNYjY0SZNlL9VGHkim4+4cUy6VKkoOH WhhiPdNY46XTuMNVioSryFTVys+gSVF3boCRNHnW1Ln7a50Yefn48m1dSRnS bnosLE5agoSIa+9uYMgQ3/V7Tuh6SxLZ3nPbfYtmkSPEaEMXXYr0PVyRmBY6 m1yyl5+3Q0eGJK6iSpXazyHGN7M+vnw0i8Sneta4qsmSb5bX/a8pzyGOiYca 5fiy5DZ3q+hmjCyZ/OeBKK18LqmRbXKZUpUj3L6tZyui5IgPu6NY+t48krHZ cNlH13nEVnhv2oQsIPmRAQpeevPJyEiCVcMReRJl724tKZxPGFhSE6GpQNb1 pudEfVxArODiZihSILTVt/M/WsuTL05BnsOvFcmFt3E061J5IuY2YfcxgUJ2 LrN/UKeuQLjfYi0WuS8kW3xrDipcVSCXg85GeaovImnKbuoNQgXylRu48N74 IqJemZVsc1CR2HOKHhwtXkzi9Sq0W8oViZ6F7PzHp5YQT4FU8wdtCknodnyf Y6RE3J6MqV29TiFJ12r7v48pkROXbaetblCIncc2geaEEgmwLeqUu0khg6PB dCeREokWBvwbn0wh+atqpmtmlMhjI9HPlLsUsnrMedkdOSoRvZvpeJhHIRSj KndjTSqJb5GLq6qhENOgH6/sD1BJaqaP95UPFHIuWacq0olKMs80mm2vpxB3 3R2pxS5U8nxx/FR9I4U4X1/2bKEnlfQ6Urxb2ylE/rZ/Et2fSrS4VDMOl0IU 7yxSQCyVGBSdW36/70+PS47YietUsimyR+TBpxAzy93ltAQq2aF1t3BwiEJK TTMyR2lU4n9cbfnoKIWkq3MXpj+gklCTS6KnAgp5ZX/ndEM2lUTO47SdEVLI osbfaT/yqIRWkBkzOUkhlwxjXHc+pZKMi1JeZVMUEvErdSKomEry9nhsDZ2m kJQW1QMZJVRS9Fe1iulvCrn1TO5qw0sqKRdoimZmKKQy1+7KRDmV/A/HoB6O "]], LineBox[CompressedData[" 1:eJwVj3k4FXgDhW2ZCllucWtkaUiINJmJJp1fSSSEXBVFJGtJJhOlSLKMlEpl GRQzhRZtwg0hW/Yly110F9d27Vui7ev74zznef95n3PU3U/aHxMTEREp+JH/ d9oFd8mNHue2pf5p/9LAI25bZbua1X61gxBPs5FYJeuD79Wll9TUfFBeuDf9 +ddgpJXFqy5SC0HDyBd1J1YMjpsEnZhTjYXODR9N9ztJaP/snTihmoxvhvHq 5fLZ+InF1xpVzYE+1UDZUrYA3WUlQSODOXgjWh0ZXlCA3PtJb4ef5SLEaVVm tUshbAJtXIWmj+C2WbAmKrcIt5fQbw945cFiWldv/PdiKPxTKzbZ9RznZNL2 at0ow726jFPDqkU407zYV2N9FWaS8nU4V4ogO/9aTTG4Cru86nvb5otwo240 MP5tFUbE52j0djryjaUPyB6shpGJzZbY6GJ8iEqWPXWhBi15X8S0xt9AwntY 5tcX7xBWt95yo+tb2Bdnvy+vbUT2s4K1D2+9BTNIbTZOsgltSTvENRve4uD2 Issx0yZoeB0ophpXIsPgQv35kibUiUfqi1CqEEddGt31sBmKJiyF5upq2EbL t83RW/AkL5Z1XL8OjOWtzvlubRAqCK9YutWhwZd99GtwG7T+sty2LrEOtJau aNWENtzdKnWvd74OsuG9M1Mlbbjx7oqnU1U9rni0UdhK7fir99qk+aFGaHhc Oy6obEeGVP0lebMWfFi3eYX+og5sMzl3KNylBdZS/A3K1A6w/XV/Gz/TArql Wo5QpwPUtrj+htwWbD4s/5e2bQeuJ1ntjpFrhRFHOmdTcgcuaTYt+85qhZom NSRLsxNeaE0eCWyHTWtc6UbtLohkfqSz4toR+Ff3ayOjLiRJKLPr/m3H6p6y +rXmXah956mS09kO/12N1YUeXVjn8CXz2Jb3OK4xllKY3oVBb61HH0Q7UDh1 nmO5rBu+N86XtiR04uCkXHUDuxtis5mcNzmdGCJzX8WGupGyv1Ykr6IT3fXf tTVnu1GnTDGNn+mExurBKT0ZBnQfZNfsPvDDu5ZhS9vKwMjr9pYK1W4oSVho /nyHAf8+7d6XTxho7rbICgUTXBfG4vJ3DAgSP8zZWDKxrztGv1HAgL2+yPgy GhNG9QMhfauY6MwLCDjgy4T4s//kFKOZcL51z1sxkYmkUPVtZ1xZEPglzrsL mCinrEw2lutBntHQucMhLBjG15aa6fZgjY1dhGEEC/clgwV2u3pgkTi1/dvf LFyZ79zgG9qDJ1FHo3z/YcGRk1idMtiDUG+RvbmlLAhz5WY+l32A+/yZ6gER NpaqR2pxjLjYWXH9jtN5Nmq3Xt9wwYyLX323+9lFshF1IH3zansubBwVMkkc G2IJhebOflxoKTlmL05mY+HbiFdXGhfaWZXKO16yMcymZTeL8bAjdjA8cIiN hiQt7bIGHo69WGFwaW8PrsrV69w70ourHup9A7I/drAc3og39KOz3XDlmVwO lqbyTpxi9MPKm3Na8RkHz538lTn9/XgdsM+EXsCBODM6hC46gNWGBcdkqzj4 t5u+6dTmAdwUmplPcTjo71DL/pA5gLM+jAaaFBe+LSMJRSGDSPsQ/YvxTi4U EkKgFT0I07EH/nxzLuh7JccSEwfRG+Wgem0PF1LNqnsC8gZhU+jyfurH70eN 9ou0+gYRL2MULnDjYqyuMCTRdggRIs8cgsO5OFUV6X5SS4hfGDUXU8u4UBHs kvy4SQgXU6re2Uou6sWW5IYSIe7H++QdquVCk8RPxh4U4siIh51eCxcM+q3w f+OE6A668OIrh4vtT++nM8aFuFJprXJEhAf51FqmaeEwbs99urxvJw+lRX9f qKschkt7mH2hBQ9+3VZr7FqH4Tkm+VDdmoeqFa0+LsJhzCvylos58hCSwPgU rDwC4asu5wUvHniXhYpPwkcwbGWt3niFh2cB0vuou0eh6BgWsZrJQ0MKJeSx 4yicml/dieXw0F+5KmOHxyisztTQPwt4WLVSe/h42CiGRGrJ1DgPkeVml8rz RxHY97B/nSQfjgphL3zXjOEf5xV25Zv4WHgxSSn5PIZb5/dmVNzkY/mHT8b2 S8ZhFybIWEjmQ3+xyJEBxXGsU+XbGt/l4+ihZY/kfx3HQqpZZ90jPhokdHd6 eo+Dtt1oZFs1H+k0j9OyHeM4fT1Y6eQCH/fO+QkN9k9gc53/CWnvXhiULfkU fXgCXOmyiRz/XpRJZC/iHP3BFoRuHdQLbrxALT5gArq7o3WzI3qhcvfw/qHY CTjEynVnp/UipXJv5b3iCdyvtW1ive/FDRnDdIU1k9hwlVG+ykKAiIwvdjMj k/DhfAwM39EHW4PCU7rTk/j7vjA92bIPKuV/Xnefn0SUD8u1yL4PdL6wpWXR FNZHSTyQPtqHKU3G3scqU7BxKgkSi+yD+6N8a0/bKWjscXBbX9OH7UX+u7tf TEHfvvVrhH0/RNq5pPjsNMTOb3p69vwAIodK7529OI21MjYbqTEDWCKSJmYc M42UZpfKkhsDUNA7WJl/axpC64u/qGcPQDO61Tzv6TSCQq8xLdoHYPlHhU1m /zSS/bZVKOsO4mZW1qEY+xlsmkg1ZHIHsfa0Z7CDziz8yt6X0D2EEMzecZQq +QjaQfOCnddGYdnne/7GqU+4mS7X6FoyARtBgq6KygKKXbeMbu2fgvCte3jt 48/w8B5UpCjPQl++c7Wp61fQjG7m1L+Yw1LMurGnv6GzeOKO2e4FmI86za2h iZDHo2MBZSZf0V3hIeq0XpQccn2iq/WLCMmPqXRRmxUlrDTm6YxkUeK5KIjb 1CRGLJmXrHqMxcnRwHP50iniJCC9ymNPlQTZ4KXbZOUmQZQj6I7vrCRJs8J6 qSDjReR7ufCC3NxP5PWTiNT14pKkc/a59tilJeScqI5tQ48kEX8hveuSvhRZ yj5r4f/yJ1JXb3X9cL006buvnpgRupigKIdmZLaMJK5bKVFEW0LCTg57b+mQ JQkpnjVuakvJ874HPh8z5IhT4uEm6YGlpE76s4OilTz5tPO/+YxSKfKG/XiL 8Ls86e3bEVwRLU1u6y3EPL2rQDJNNv7c6CZD/ExuveHtopDHl4PkvfSWkbGW hudqTAqJph3dIz67jKQXHc9pdF9OfmPfy4lulCVuGvIs07HlJEk79XHjHjmi 5Lzlspz3ChJWFp+0p0iOzKhE/izgryDWP9P+q9OQJ7lCG5axvSLZ7l/jLB8r T4zzTWUFzxRJhrK7RsOsPJF52cZrlVMiGm8f3LZxViCy6Qk1B92USIJehU5b qQIJyH61fzBbiXhOS7S+06EQj7sz1lFjSsT92ZRa7DUK8Xp+kvbHOio5HrHv i+V1CtnS9ipWT5tKgva97JK+SSEPmZuMVHWoJGY26GrCbQpxmDaSEF1PJU+M 5z/fSaOQUyb2zqUbqGS+/Hvn/YcUInVyRlltM5UktEnHV9ZQSOJ+khNuRiUp WSe8o95RiE0Ff7/7LirJOt1kalFPIbYGKyJNzanklWLCQn0ThRSfvEOT2E0l bCeKd3sHhcykyXHDrKhEq3elKb+XQk7UDuS67KMSg5dnVf7to5A1Bb4wcqCS LZdZ88cGKKTr4u/75GlUYqWV9nRISCFhA0rz5Y5UEuinpjI5SSGrDJdtX+1E JaFbL84/n6aQ/bKCtqkffFmG//70LIVIf+UJapypJCkvK+7TJwppM6yODThM JZnhEl70BQqxyBIo73Shkod2x3aEfqGQ6eOpBkquVPJyTfXqbd8ohJEvWTX0 g0un185//04hK3J2MF8foZL/AbaxkWc= "]], LineBox[CompressedData[" 1:eJwV1nc8Vu8bB3AjJfOc5yn9GnYhREYD5bpKIYXKVvIluxKKEhWhkpQkoTSk oiWSIkRk772y98heJf3u/npe79frnPs+5zzXdd0fUevTh23ZWFhYTrOysPz7 jb5kvVTBxkv9omT7w802Qeq51SIHTETMYDbBebs8lyP8zcv0ExFxhErD0oHu yfMQnRUszCHiCVnlva9/5F+HkzvdT80KB0Kacn16l0sEVP92CBsTjoQ9qzwT X+a9hGXNnZIjwvEQE8V8esYnBRqyMtyH++OB5/rWAabIJ3j1IiJnKPEV+I/4 GAVlfgI9Nz3LQY03EFM2smfp3GcIX54W3mefAJzh0w3mFl+A8bCAbbw+CYw/ aPONTHyFp0WPXYeEU6GdSyr8tHQuTEV8lG67mQq1GWf0A5xzQdO+uKtqPhX2 Gj86w5WUC8Pss0Zp1WngWmheYrftO2zfqacaeC0ddh5/qnZFLQ8qEhbYJEe/ QpH0/5aulC4ABiw/xiuXBZxt0SN3bAtATSJM9ZpNFiQUjq4KflIAt6biJy9U ZsGko3oJ68pCUL5Ta2v9OhtS25Rf/JkthMtFsjoKljnwMzWsj/1lMcQlfpJ4 fS8HPjzxGytrKoaqiN3sG0pywMHMZasEXwmstzdN/59KLrBct23yPlMCRez+ cizM7+Ae47XQsb0UBHY2M8rz8mBybnvBnoQyeJcQ2HxSrggOf+J6xBFXAYOM wZs6VkVw4qMcbk6rAEkPHXWpsCJwNpz0UyqpgCc7uJ92zRfBdzNzye+jFRBa eNPO/HsxzE046gluqQSPrtvjWkdLgafNMbnrcyUkaY7FbLhdCjq6n3TSCyph NP6gIfu3UvC/ErLTraESHFzoT5mSZdCUVGpxbrYSzP+Eem+ZLAP980ZeP5Wq 4DF3sR+9twIOtQ83l72oAvWdXkd9jlXAOdfahUfJVdDiLLNl9FwFZNiq/jz4 rQr+VxXUW/KqAnxSOI2P/KiCOxEH9l2nKqHGt/IDzagGvw1lfH+bK2H27+2H 4FEN9lAZOexWDUIWCypOMjXAEjOT1hxUDb3BazBrSw1ELFnXUhRbDXdenOFn xRooKLQTiq+rBt6Mmp8ahjUgZbgQY6taA/UrknprvGqg30HyTStrLRSFZScZ 5teAU+jFzIqQOmgbOPJL61AtsE3HtH2Nr4PrD4d6rcxqIcqkgCXhWx08TIw1 O2VF7lvH1AieqgOnob4oM9dakHkZl7/PtB5slnmwBYfUwvCX6opvwg1wKaHb /kZJLTj3bOxKftcI0XUHeDbtqIP2Y42c2YWNIF8we9FWow4MGq7LlXY3wp3z 0613depge3GfZ8+aJlJ3BvrVpnXAnvicErjWBOatLX86z9ZBhLeo+jnLZoj5 yGfu/roOspmrI1WoH6BYNz1cx6wHLlF/ybbt7dCSdYRXs6UeCnbckb+0tx26 sPWGSGc9XDV9tE3wcDvQJzyLFvrqgS3ks9aRE+1wNih+xZfJevi1OGxfH90O Q5ohJw9zN8BQi1FcOVsH6NuOHuNUa4CSCMmNWSUdcEBhZ4hTdAPcSFZWsGzs gBKHg0FpzxpAu2KXymJPB+QfWSJCvWqA3GVH9+342wE35luvlqQ0QLpHiONn hU44EzVlFFzRAG8N5+Pfh3eCncFsoyZHI9yiiqWf/tcFQju/NB082wip2wQ/ 6jl3wSkl4yox70boPnYaFry6QGtGXe6vXyOovWUamtzvAq6p2hv1dxuhf9/R i7xlXeDyJIbJldwIGn4j5Z5q3aDjb/Xm9kwjzE3zux8W6IHoVds///BvAnFB 679/xXvAOiuuUvFWE+jtSQ58q9ADT649+njvfhM8DzV9xKnbA+yOIuoBr5rg sPzT/Ey/HhhZu2uUt7IJ3joorpEZ74HZz4rKTSLNYN1s+JW9pBdSCwWK54qb getBxynXxl5ItC24uljXDEnmzuvaenvhToeb7IrOZmBvuuaZxtoH88dEL52e a4bYhjQl1219sDjHkOvf0AK9tSJxrTF9MDa9q2fMrwWcKoZDUj37oVCX+3Pl gR/ACPEEyWv9cHpKS2Ha7Aek6S/9GRbWD8Lpsfek7X8Ad7nwfpeEfvhtKGhS 7PsD3pQe5pDs6Qcn3yiV3k8/4GfRZ8+wgwMQpcc7f1OyFVy/+1uflhwEm8Cu 7skVbSDUrbl0RmkQJqtpJ2vxNihmW/7KGweB1eRrdYdCG2zA4PFAs0FIzFBy Z+q3QWPaPZ/YoEGY5eWo2H2jDXa9f/GocXQQMoS8dIdZSd09KGjS+DwEfjXy E5xX2iEz9calotwhUHk4Fml0ox1ONBwQO1Q5BAY7DMVeh7bD95WVjscGh2Cf 7cZ2l2ft4BnSOHd+3TCEq44fsf/eDh0BgwLvfIZBO/D5XTbuDkh04TH4374R aOdhX8EWTeoyiun51ngEdL3Nr6q97IDe3DWPd9uMgGFke/rlxA5Ys3rj0MnL I9CkX3BJKq8D/LP3+mV/HIGJU2HBv0c7wJhx+YOT2E9o3td8Mn5vJ/z6MM7M +P0TLBxv+cnNd8JTrxODm03GQG2Nyjse327YnLV87prFGAgcYRaKB3dD1pI4 jrbjY4AOSc57IruhPbhbJNhlDJ4tnjCNSewGoScWJgOBY8Dg97tf0dkNUbn6 uU/Tx+CVmr3ajGYPhPIqP2KIjUO/ZvaZ/wR64crjhUNTw+PQuk8pwrmyD1iq 2zH9wiSotfjM4ZMhkDhrd95QehpEIU7gqswYdE/fN+bOmAGd96KcO6InQKfH 6WKo6xy8TVfo57g0DXrdITJCQr/A5YO/+jPfORjMsfYpePsbVi30/Sfv9hvk 6DpBDcs/4C/RKS75ZRG4YNqqZXIRZOP54x4Ps6DWiPmsmBELapwzF8t7xIYN 32xYzWVZ8eLw7/iEvUvw4/XcYyLTrJisGBnMKORAOw739rIyNgzckaG71WoZ Hnfz+sgTxY5nk0Mrass5Ud5epuyA1RK0tM0rpiS5sJwhy+2uwoHrjR3MK65y 45d3Vx7Isi9F59aJ2IZUHvRilT5Y8mMpfrlo8ezHCC9ytVzQdk5ehr80NvEw 2fix54Vo2GNvTmwbCap+P8SPYVKrl6QaLcfhOx5sOvYUhkTZ5VuJcOGY5N2N FbkUmodZlPH0caGnGWfpypU0zu15Pv84kxt7f4XE5VjS6P3lsV9uNjdqt6lf /PYfjSyKUbwDudxoYDUdm2VF4zLh26KKxdxYe35uJO04jQLz5/fl1nPju+Fs x5f2NCq9PRDZP8aNTSHL1/93mkbnlVPbFcR50OBNeMChSzR29ew+/+0aD97z emuuFkXj7sdlMdJBPDg76Fwi+oDGJ6bmpaG3eDBVpM972UMajxW7ih2/x4O/ LD5FVUTT2PT+SQn7Mx5Mmf1TZvaUxiqvRZG9mTz45EiqhnYcjd/otML8KR4U 1Dr5PvwjjaLFe6fk53iQ9fW0kW0KjT7+lUIRv3lQmdJGpU80qs/2n3Fg40Vl a7q75DONaS2rhJZTvHg4PPPU7Bcak166u+nI8OK7WMGUjd9ojNmpsLbUiheN tQQClpSR/fS4/H7b8CLL+dvs74k7LbsGNzrw4jIT127zchrFr9xLu+rMiyvC BMveVdAYmzdvhl68uBc79upX0/hc/1vEhzBelJR4MOLWQGOclYFAVD4vStl9 MtLspLHATfZSQREvLsoJnmsl7vfj6J0p5cWdd31ZPLpolHrx6aNBDS9me/3Z /6ybxvjBtUa8HbyoH1VQNNNL46sz3Xd9fvHiV77VIb5DNL4NcKftN/Fh9tnj PpJTNA7vsLgSsJkPf6rKWL4ilp3aM/lMiQ87SjwSZafJ/dYrattV+JCO1k2U nyHPBx8izDX5UGNxUEx+jrzP/JiwniUfmmRFTTMXaIw6dVJuyx0+LNPVivRg Z2DTesPHBmF8mEm1YT/x6hY1yu0+Hw5VpliZLWFghA73xLtosp9GB78qBwPv Sb76KPWKD/ea7hKfXsrAkI6+Hety+PBWxGH9w1wMvGZ0fD/7NB/e/J855yuK gTH6LUdt5/hwdbyVA5NmYPo+I+f833y4jb11szfxxE6tO0GkT/IPyizsZzDw qIRMPZPix59m9Ve6mQxUnJ2wXi/Dj2dtH1+dF2Bga8SVC3ut+HGl5IF1H9cx cD70d9BLG360XKnHziPIwBXBZ6OXO/CjL8tdc2vifb52WaXOZD3tLnNeIQYm O+osNfbmR4WJW/FHhRl4Q5URanefHw+7FaS0izJwS8vT+Gul/HhiI/OQjwQD KTmHuYQKfmw7sk04m3j4spxWQzU/tv4ROscqycBY8S/dUk38uJjI/d2HeMWJ GuGiXn60ey3W5inFwF/e7PuXslCoefqpqrE0A/uf27lFsVJ4S7sk4zZxXVlh pBw7heqTXGUFxEkiIf3GSyk8ORsRriLDQKfcdVdf8lDYvaKsdKUsAxu5t2Zr r6bwwm5H9tRNDMxTjuxvWUNhn0OryxBxssUCv+s6Cg0bvjoLypH/J+HbsUhh CuPSHq3zIdY20F8Y2EDhzO73mijPwM9RDtuCFClMfm/C/mYzA1/kFB8TVqbw q2B9SD1x2LDc1Q9bKPzxUSyJTYGBLurTNc3bKTxgMPvehFiq09dNFii8I3v1 +QJxxMYHb0v3UxgsWh6pqMTAqUnN5366FHat7r1lTqyfOfFQRZ+8z9oxzivE Sw10bj4/TOEfk8mb5cTu3vNOF80oXAkGLTbKDDxcbiK1icxJp/Zztee3MPBd JLtIlwOFjwLsVSOJl9skrIp0ItfrvJBKJc6aW7qMw5nC+b0bY2aJ5cVSelrO UuiuOkqd3spAHvcVz25eoXCTbPca7W0MdICsqN3+FBpvfbnFijhn+cnQuQAK VcbXtXoSX3iU42sTSGHxAdXGeOKBfLf/doRQqFc6cXnJdgbuCRUynbhD4UYr VmoN8ZOjRfpxdymsmJiRlyc2HReFFfcpNHmTKGJKnLemUnA4msL7tGhpLLFY j/fKmMcUsrOJd6cQX0yQ4jV9SuFszq7gAmLlPT4LObEUUivGwweJY07JNz94 TeFDn/rbG1UYuLituerQW/I9XXxgO7EZ27WiZQlkP5eLfprE1P3W1DNJ5Hme 3C60Ir6cFRyxP5VCSbYmo7vEgz+ywubTKFTY0OX1iNj492TIy3QKzydq7ogn lt1qHsieRWGspXRwBvF9g+CAxGwKrVQUhPKJ2VyzfC1zSD0NPdapIG54LXHh Sx6F2he+eXQQaxSaeTgWUJgp/8djgPhd7023VUUU2rm+ZY4Tr1mS5fy9mNRT ioDuHHGA6KTTmVIKvT29xf8Sj6lL2IuWUzimInafQ5XMh6Nmx8srKLx6YX8c N7Hi/a9HZGoo/BS1NVaAODp5wqSxlkL67uXba4k5qzYYXqsn9+8wXy1CfHbU 9OCWRgr7N3HtXk/cxnPzQFcThRJ/q5ZLEetIf9W+00KeT3fORYY4RWtiD7RS 2PY545wcsajthl0jbaRfe+yEFIhvXjHd+aCDwkjPbbZKxLOPg1T2dVFoIXLm wBZi64zMLbPdpP+vWdRsJS5rGld43kuhkaXqn23EKnPr5Qz6Kcw4qpu/nTh2 pak06yCFLVubFFWIKaUgiYQhUq9x6/GfvQ5milmMkP2dXUb/Xd97alyIe5TU wz7WXf98KGj92tQxCqv/rNnyb/30OJNV9hMUmh1iLfn3PFJ5N5grpyi8zDvH oUx8tyuDP2eaQrfF3V3/3meRZZzbdZZCsckNNvLETkLrOYXnKVTN6L4uS1yr ZrKk9BeFqxRyDm0kRrMbLF4LFKZu4Pi6gfi1R8aC1CKFKWd/VogSC4SNzdX9 pXDzr2/XBImvJIpP+7PSWBiW1/U/4pEy43FFdhrDNuzsYRKbDgeOtC+hkS/E 6SYfce7yjIFbS2nkSQtt5CSO2iPeObicxjOjnXYLpD44rI1bI7hp7KsMfTlN 7HI5sEmTl8ZWUd3bP4m10karYiga6YoxwzbipHqx8oMMGo0FrJXqiYWmjYoX mTQyo0ZSy4in5NNzzFf9O0ePZ6UTW+qOfuVcTSOnWS1+IC5yEktPWUNj8yNX p3/98eT59WSGEI0BSdvTwoh11xo9L1pPY72jq4E9cUS3XNYRCRo1jPPnjhB3 v+VsHpak8WS7teFBYm9Mp/hlaJT+piX/r3/f2Ip7GyjQeOpJtecS4jm5P+Hd ijTKm1rVz/ybN3N1ie7KNI69+zncT9x840bf/W00Buv0YAkx1/vxwy07yfrN uqG3iY09i0+dAhp9Jbo/Xv43P3Y/v76INFJ7le+eJlapNc0U2UPjTbE2Lz1i h19fN9rqkO/pd4J7OXH+nlssP41pXH0g28CVzD8Gn8Pay6Y0jq5pl7UgPla/ aytlTuP7y5ty/s3TGcfpE4oWJCfuVpASJpa4fbTeg+TQSqWBxgIyf/0bpd/9 JblTIPISD0W8yzn/CB1Iru/SUzhN5v2vhgHN3Bs0Hrp/Le0gcbIGj+K5mzR2 Nxj/USCWWH2I88dtGnd8rXo/Sc4Lntym5LhwGmfbJ+vOEDes/smLsTTe6ztr Ya9I6uH7iiznrzTqmXeCIDnPpDdvey2aTWOq9h7/GXL+dUWZhdeQ3DiptSyo nNjY5dFJ1TwaPbcVtvsQ71grtXppKcmNFwaS28n5yemq5hbdROMds9kd98h5 +3id9foSksM0GwJSqsn5raokI2c9S6PaUFlLHHHNvqltcySHebD8rblIzHnu 6v71JIf1HpxVkyR2qXzl5s1GcsGXi4PnNpJ+ujqZJctP5qKM72+K5IfOUX+L YPJryfjgKb6BgetzXobrHSF9ZBOws47kmZBN36SrMkmfdgXmC5E8ZTe5pLJQ mokdKivn/rCQ+ZM4IRJ4m4lX/DxOPhsndXHFYEHnDhPjBh54WBK7GyTX89xl omKaVdBa4uvT7rdCwplY799Ze3eMxncq87/vRzNRzWTXjP8ojfPZf+tevGai On3rieMIjSFVPMG5+WT9FX6e6gMkXz475XC1kIltd22OLvTT+OxsmYZ2MRNf Fpw8nEacIhDyq7iMie2Ri+e3EreYMx2qa5m4vdz3k3wfjZJdqzU6u5g4Nhqn LNFD4+bkC0KxPUx89tzesYfkZ9WA5nnbPiYu++n1MZb4gGT0+4FBJo4sTQgT J3Y7ISI0Ps5ElmkfDzGSv713+M4nTTJxjbrcqU6SzwN4O2vOTjNRYb/GxRji iIRnQXNzTMxPfzMoRhzjs8Q+7RcTLdgDtLs6aHx9yHa39wITV1WVZD0jThbL E1RfZKLWzHcDG+LMSYn5v3+ZOCiXxLqB+P8Qh0Z2 "]], LineBox[CompressedData[" 1:eJwV13c8lW8UAHCy7n3ve7nvvZWMjBQlWQ0Nv55DkaQloyRxK4QGWaGoRGUk yaoopaUUyU72XiGyimzJTJHk9/iHz/d+7n3Hc85zznlkuWcMTyzg4eERx3/m /9+/yBVUO+651bn11FXV4wFbC+tlDExlDqG3G5qP6QicRHPFOVdkZE6i9h2L WBKD7uh+bpC0gMx5tKQkLvhsyjXk8J/Lqd/S19HB6TL5OP1IVD9jGzYqHYUM eCUWXvB6ilxLpFRHkqIRbDcTd2h+hsRvN1T82HYPyZXabTRc+wJxFYHvu00s SpAvO77ky0vk/pKRMd4Uh1RUnP4yaUlIqPWbwg/p5+hGst+F9ZPv0Ofc9y5D /c9RU82MfnhgKnrxJLLge9IL9Fo3uSJ6WRra47Tn6OC2l2hHrURkpH46Cqdn hvfZvEZXfti8eHEjE7HvlS4Ya0pGH/WHhLdU5aCH5bGO36UzULBKgA1rQwH6 GflO8WtgBlL35+wbcypAujYVXXXTGUiYLXRJ9XUBGuL7bZxZn4nUVjDka1YU oo3/7dl83T8bXdkhSbxlFKHa138XKIx8QFTzwjuaWcWIjegWTOVcxPIX1ng4 XIy2yIdt9j+ei8Z2zS46L1uCgn8+n/D4iD1ZGep/tQStu/XpBDchD42UJJzS 3lGKvMuV9NWOFqD0Z9J82sll6FlSmnzCnQIkujPT7HR7GaqL1OZbUVmA+NOe nJCllaPlNgezl2wqRHycpyBjXo7K+XyVeThF6GBsqd3Df+Vo8X+t7JriYqTn LDD9WrkSwXLrEb3ZYtQ6LpdUa1iJTjLGKvLXliAjJ6GVN1wrUXaz4NXUByXo 4Onl8RXZlYjrqv77vkcpcoummp5sr0KJr6+3OiiXo9wXH+88165Gg+zBQH2r chRX2UN9tqhGCq76W1eGlaMjina0LI9q9ECT8bBruhwp8xx+8jCpGoWWBVqb FVWgtXwCW2iSNci16+bYDvMqpN81s2eoqwYl647GrbhZhSZUc+TzZ2rQyPN9 Rnz5VWjxa+trL+m1yPYslZajUI1ocd4hvTK1yGw21Gv9RDWaUd55a2x3LYpl VFyhdGqR9lGvu+/iatHW/zzNfSxqUWWjluunl7Wo7fTq9SNu+HODmdetqbVo SV1Ab+WLWnQpRv7JvfJadCvSYOc11kd0I3J295/RWnRlRbXwXOtH5PVhy5Oz mz4iG/QxasipHgkw3ZaEZX1EPHG/MlsD6pGi7aKtc/kfUSS/ZFv543qUFa6a cbj8Iyots5Z63liPHMV+Vw98/ohWGv2NO7G5AfWYyWzlTn5E/bYKL7/wfkLn V71V4FWqQ3ahF3JqQxpR31HXwMpbdeh0z6qulMRm9Kfx4YaVu+tRh0UzLa+s GXkrGpVyD9SjA5+vKVd1N6N4ubeiMYfq0caKvvM94i2o6uDicVHresSXFM9a 7N+COF9mQqS961Gkl+xWt6OtaPUeA953SfUojyMWtYnVjnSczPZHijegdUGl OTqr25H3jumDlrIN6Imge/d+3XY06jjipLqyAQVON6rYebWjP3cWvR5Y34BM voYVR/e3I22vs0NF+xvQ4AvWz5ncL6jZaO/Z/QENiJD1Vfi6sQP9Tn0zzCv0 CZVq3lK5qNOBuO0j7FjhT8jvYIzGUsMONFwcc0hv8Se0ICR9x2H7DkSFtTZ8 WPEJ/fk3ZNN0vwPF6crJ6ep8Qt/bjJ/VLOhEX4oyTSv9PqHKSIVVuZWd6HjB k9thCxvRjZR1akebO5Guq13a+NJGpFertelfTydC56w/WCo0okIh852ac51o GVeyx2FzI8p2DTmZrvYN0RbMmulZNaJXRtPP34R/Q7mW+5plkxtRMKtC8aFl FypdzHbls2pCGRpL3+053YUywp+vuXqqCXVbnEF/PbElv/+U9GhCW15xjEwj utDuzfmLb95uQv07zS8wq7uQUJSFqU9JE9p25UfN+S3d6Fyn+pmEtZ/R1KSI i+HiHhRc5lKetbQZyS3lzs3J9SDSNHzz6jXNaM/2lOuv1HqQ/43rVm81cZxD D8bQdvegE8HRS4TNm5GhysOSnCs9yPWoy9zw3Wb0ylZdfPVYD/L8UBjqINOC uK1GH/gqe1FtnYl5pmYrIu52nnJs7kVGR+PcBPe2omSz05Jfe3vR8Cc5EQer VsTX4n8+k7cP+V+sa77i14oef85c66jRh+ITGrp7P7ai3k8yz77E9aE+2Rdn L59qQ3a1QyEZ5/tRKm/j4m3p7Ygdch4p+Pej0GOfoLqqHWXuFRwOC+tHFtSq snNd7YhRI73r7Ot+RCRXCwiLfEEvqwwFFHr60cuJLfe9bb6g4fL082H7BlBA f4G62dKvyLHIl3tGYRD98mvcfHFPB5Lq1hX8tXYQpdg0LF5s1oEqFtBfeMEg ktW54ZdxogOtgKCx64cG0cFFljJyFzpQc+Ydn8cBg+j74KP1l152IK03T2Ka RwbRB/+HnrbMTkTdLW3Zlv4dra46HtDe1ImSzpIHluz8gXit3Z8ybnahymjO +VcmP9A5c7InLaYL9RaKx2of/4EeP7y2zTGxC4mLrfru4P0DddLqDzBwnH3z dK7kvfuB2kp5DrQxu5EJ2/ut3bJh5KwqrzR8sxv9eTvGeT8zjNT9ZvOT7veg h572g6qmo+jkatdn4V/60OXYv/t/Do2h82dTrWNuDiGe+g7I9phABhWml5o/ jyJ5Z2t3I8VJZLkk41vJlwnUPRlhwnj/C0nKiKfdbfmF9HvsLoQ6TiHaPVOu uvoftKc7ZLWU1B+00zQ+O8Z3Fg0WcH1KX83gPNiwBhnwgDLVuHTb0Vm05rKT j/MPXiDQpFXbxD9kl+8kGHGMD3b8MPu9zJgH6nT/pRV+44fP+cd5zZR4IdWA qO1HgvDuWqGFzCQvKGgsoRvYCYG1gEtHdfUCCDv8TC40iAbHnDzfkdF8cPXM vuSWC3RQsVldbWDFD2OcejHFXQR8OSl95tVxfnAyut3G3UNAoAOHJWzLD2H8 5g5R+wkYcJzZX3OaHy7aB03MmRLwyKvi034vfjjup/84+TgBoqH27SYR/JAs c+VN4gUC5rIThiyr+EHL1/jJgkQCathKDJdNAvAuSFhInsaAradODdzVFIDz 22n18QQDEksSS/KRAOx2Ec+TYzIg2EvNl6UrALf3B/KLsxlg0LthNsFQAIp/ fVEZlWBAeYbWyDd7AYhe8fbANhUGFFma1u+LEYCCXFqxnxED1mVFJrk9FICQ rlvmFSYMeLyo5WbMYwG406UnJXyIAb7l5gZDLwSAKeC7PPgIA7TXcYv80wTg 9e5lOu7WDMgVOpWWUysAXGKVzKQbA7ISL99V4hMEwckNsbejGCBoYCweISgI RRPL/5TdZcD+AYUoXkIQfvcZbfl3nwF9clXhjSxB0JbkOlnGMYATJRrqIyUI Bo1PcxkJDLC/8vJawyZBEFoWvOtfFgMkDja6eJ0VBH6u81OTNgZYTz772XtO EO5eEsnX/8KApFDPc/vdBCHwlX69ZgcDdlTJOMpfFITsN/Wt4t0MOKdt71Ab IAglR5LCcr4zoEKJ59jyp4Kw9IizXPwfBnjyKu6rbBeE6pozueOLSejdzvgs 3ykIB7LCPscsIWHftaGjl7oFwUx2BblTnITlIq/PbPguCEEO7SURS0molFx3 88GUILi2iMVJLSdBauPWameOEKS4ZljXqZKQf9rQYOlOIThld/Rsox4JSslr G9wMhEAwplt6hz4J4ZMLzev2CkFB/JF/73aRYO/VZO9vIgRm4xn6wXtIWHjD PGDsmBDUPxBfu8qIBOt46/Kii0JgbttUTztKAtHmoXc6RQjWG+VPnjtHwga3 58ybaULwqnNhW7gzCVbsz3WvM4UgM0YH0l1ISNdbf2QsVwgkuy76/nLD13s3 4uhcJQQtFkzSyouEvODjdz16haBk3dnwYV8S3LX2DPstocGR1Gf3R8JIeNzm 9fapBA365T6Ydd0hocYtwb1UigarKPlnn8JJkE+k8REraJCbo/PrXSQJ9eIF okFqNCiQvHD2xD0SlH9qaN3WpwGfgcIxn0ck9DyRDYv1okGk5b5LL96QMOTb Oc3nQ4PKdjm1y0kkjHMfHrW9QgPzGv8dB5NJ4JGWXa12gwZa1aoJc29JEI+Q yc+PoEEzv83xLWk4Xv7Soz3JNDDysDa0eU+C6YmvxvqpNDgpfrFiRQ4JFtti sxIzaJA9Rkv/hm0/J+XvlkuD395Zw6a5JPi5SUnRq2kwtcBzQKWAhGybpQZK AzSIXhxYGV5KQoFOe1LIEA2GE/d91SwjoVzuvujkCA1od1OdOrGbvkp2vf+F 3y8jS0q+Aj+/qaTHXn46zCmLPLpfRcJKPYlnTtJ0OD7eskS3jgQV+VZm0zI6 FDyH6AbsDfx3z22Rp8NEQNZzq3oStuWKI/41dPAsMXF1a8DPv1G88c5mOhjn /Gm/1UhC2Eox/gxjOoSGXX5yuYUEcwv5p10H6XD3jeiVcezlYWv1hc3pwE3Y uMqqlYSUud0hx7h0aNMebtjcRkJD42VJ4TN02Fve+f5rOwmcq0Prjl2jw5/V O5xHO0hoyZxuCgqgw2Zx4627O0mIGxX0TA+mg1+EdvszbHVz2TzmHTqIDoTf M/9GguFak93pD+nQxV25PrWLhNDODyeYWXQ4fC/wtHovCWaiVbSNOXQYaLja 5oW9bHdLAjePDjWrWhWLsZPTf46lldBhif9Fe+M+EupurrrIbaDDioThEOt+ EqKLNsgGNdHB1lx48TNs7sy2wrQWOnyLMrnUjz1ubUEwO+mQG7WTaT1AArX1 dnjaDzocPSMtYjRIwudzDzZ9G6VD1q7+5kDsB89ftZE/6eA4lRhSiK26qHQZ 9w8dGgeXFal+x/k09DeRFCIg5upKi7/YS5YRhhoEAYP63PtKQyR0mIpOWjEJ mPV1qz6MfbZAbUsahwDdoBX0NOyQaOsSKxkCpv5TmbT8QYKb6+VzXnIElM4e oq5hWxjGSEfIE1BvF6KSiK1ENLpVKhGgdX7A+Tc2p3dMrk+FAMvJs/fFh0n4 k8es5V1LwMf6qnJN7LLzOis1NhFQe6duw0XsN8ZWDfs1CehR7HC9jx2pdsHH AREw4huck4VtPZDy+aEOAf1EtM0k9oJDy6+ThgScDKGvOzJCwsA6WK9gTIB1 SUahM3Yty7xT6yABty2ecAOwY0tvb3KzIEDbiL/sHbbf49c9t6wIeJzfHlqG fdqn4tZL3Pci3hQ4tGFrbuQb7LQjYFTV78ActtxC6fC/pwgoC6mwEhnF9Wt0 s7aoIwFJxMhlKeyxCpNhNWcChFF8mhL256dO0QZuBPD0xPFsxv5wJVjXxoMA 1fJ7FrrYT46+GL+E++q9uh11+7GDtxTH3PMh4NjUQXNzbBfRb/ppVwiI3XV1 9gS2+cTsr49+BKwYv5R6Gnt7jdijoesEHFHgv+aKvTph/V6hIAIozTynC9hs //0zsiEEbAw/7XYFe5p76qnmbQLy3+SFX8Pu2Hr9gGk4AU4SZz8GYpeIx885 RuE5wENlZQh24q/chMB7BEj6v7sbin2nrs30aSwB7cx0pTBsr8Qpvvw4vD4j Q63zPn5j4Zu2eAI2LCNezHuXtar572cEaL4qiriNra5tQGO/JID31af4W9ji UrYpSq/xHLFvtCEYm/fPFcsdyQTwt1asCMDu/xRLct/heD+QivLDrknKSvdK J8CZiFW5hJ0a1HQ8IosApVC+QQ/s+ycnWMk5BPQVLig7h+2rI/K+Mo+AOK0D VfbY9rKrT/YVErAvI+E3F9twVnfRglICXgzn6x3Cln138ZRGNYHnARp3Gzbt VrSY4UcCnsfFr9bAHnVILXJoIKC5uE1KETtn+fDSuBYCMnp/+TKx43mI8ux2 Agp19KZncb4Etq1wbeogILWTFf0D2yzsSDXZR4Djzp5j5diSbwkJ+0ECJAzs Bufz8evHNJuyHwRkte31fIB9XITN6/cTvy+r74MTtrzyh93dv3F8JU+7mM3n u4FDtPYMAcv9eDZpzefvjeK1c7wMCJSf+MHAVn1+zueIAAMarFd1juD9MlEi U5WF57SuJaK9ddjuAp7W7iIMIDKLVoZjX/ZRiRqTZMAJI+UECnt7bFvPXhkG WM216wzj/SyUc109UY4B5kUPpsuwA2e6KuwUGXCkQPjNRexw18h/XRoM6OEz c2rH9eO5A+/xRkMG5FgbSDji+uMQkPhmHZ7bvFUa3iFs5ReHZ0Pn57ZAdXcm dnLfu/C9lvh+ZSvcn+B6ls21Kys9xYDDlpUXq3E9rD1Yr5x1jQGHnp1x/Y3r a6ibj6dYIAPKMu1n07GNw9eUut1kwJ+rwlnnsVvq/a3WhTNgZ/xs+xSuz917 NMNePWJAtcX5th89JExtj5+OzWHAe3ZGwFtc772yYq8U5jFA4Gzv2ClsHvVo 5kAhnsO4Ce8UsIWkb8qqVzDgNpfnUBTuF4un3XcWNjGgcXZSzgX3k7WvDKL6 RxnQpks5i3zF8Vj0c6OaHO6TLpY6Dc24vgcM5xvLk/DsVV6DJ7bLggEDj1X4 d4odzcuwvUbaLQtUcJyDD+md+UxCQFnJNWNNEuh1Ryp4m/DvLtz9fN6YhNkN D9nCuJ929Wi75/uTsFt5aKgU92ft2Oo4xQASXgQpdppiPzhoVhUaTIJJmene 3kpcrysclx3Dc08ew+g+L3bLmweVfHiOGR2KF1cvx/3K85+MDp4rlpVIOHoW 4/mPyiwr+UmCkYnk1lT8edx/ahJVVkxQyl3ykjeRhFdXXSibNcKwb9J3NxVI gr/xsV18k8LwlVu9sfQkCevbHj73rxKBqIoLbq90SWAp2069rhUBN7GJF+rY Q97KOz7Xi0Cu/LBiug6ez+Syule2iMCLI2Kcwu14frRvkC7vFYGIwNTwr9q4 f3jx7RLkYUHPUvF/KxAJzYwNeXpiLNB0jGj/qUFC8bqo/jZxFni4ruj1xU45 8lfEUZIFuUeIfYuwQ17nW0RJsyCdaauvsYEEvQN7/w6sYIHSVqPv3uvwfBlt qxGgzoJSl1MOy9Vw/1l191XVLhaIaiU05iiS8HNCN/7KbhYEahwmjLD35ozf 27SXBXXchaUDOI6CB/QD4w1ZoLK+tHsxtovXtN2FQyww1FbLcFPA9abGdOUa GxYM8S25YITn7cQoPpkuWxZcUdF/PY7zhH78tWiUHQtWpvG438LOnRIUEjjN gnVCVG3tMpxHy1J72pxZYP9z1xsTWRJIl4WPAi+zYO5wQZu3FAm2KDda25cF Cir76hWwC+gOoVNXWSDNuO9Qi+d9j5iCS8evswAmvW7IYQ+UOFlqhrBA9pfj tY8SeP3EPy4dus/CfU1z/W4xErxzgyJ3ZbCg9qHy1dKFJAy254ZNZ+L7mW8/ 749tMjMR8jSbBTHlTNkd2EobzK7z5bJAoMU9uJSD+1+CvEdWMQt0iqsm6tm4 /kd8OLy6Ab/Pr1AfJoXrdcq4afMnFpihG7yfWbje1q0w8m9igeIUqfUI+ysZ aNDVguM7ZvVvC3bg5YP/3e1kwazPlK+rCD7vnBqTYoywYPyduwlLmIT9Acsl MkZZcMh4WKSPievHM1NRm3EWyFH+oTnYt7veixRMsqB5KGfyDDYcusHj+ZcF 1gev6raRJCS4vv+78h8LqosMD2dgLw4bnWqcY4FfhevWCOwf1SZj6nwUfLlk 6mSMHb1d7tsgnQIdG++4VgYJAlyTL5EMClaoCGl+wD7rfb1Fl0nBo8e054+w d2SO1MWxKOBsFeA5g53ctKxmH5sCBxHd78bYUpPGFf84FCwaCHj5H/ZPlewC M1EKNDRevxXBPrp75ANNjIKnurV/pgk8v9sty04Vp2Br2AXxHuwH8ddS2FIU cLfz9r7HZhRkvcmVpuDNGrHbCdiuHcMvT8tScJ0LEtHYuyWM48uXU3Dti+aH 89iR3cq5h+UpyJY89Mkeu/sVrXVIgYJCEY2XFtiqbt8mL6yioKDVdLshthdk s0RWU7DSSTNGF7uUHr76gRIFkbdOZG7BXlh/RldNmYKBogNRatiW93Za5atQ IGbrv2Ul9ssTcl4H1CjYFuPzUBp7Snk2vFudgrDDHypEsbdPNSa5rKNA37Ig k4UdkvemUnADBTGbyDMEduuNG30RGhSUaYkN8GPLGx1fsGoTBcOxJ1fxYDst 3bo0czMF4npeqn/puF/3im7cpYnXc6bm3xQ28WbMsO0/Cvh3dIX9wjY5X3Hq FKKA6bdu4id2nHb8tX9AwYOvWuLzHmZ4P7qpjddjx3Vi3ps+HcyR2U7Beu9r hfP2jVFvTtKhwJTzXm/+erU25E/tHRQoWzyOmL+fpFqvcIMeBSZ+WUkz2LZ/ Pqw6oU/BzEXviDnslIKo7b92UVAjdGrn/PvwBJ076r8bP98rnlI6toHJbo8l eymAklTO/HpESivceb6PgihPxpr59eru53mz2RDHM8tj4fx6qia3lFccoKB3 u0+5wny8PFN6zI0p6HgYsXc+HiXbg3mGTSgYXan5eD5ebGFbCe+DFDT87S+d j6dFk9YGlhnOF1IsZz7ev05O2qsfwe8X+UPiFLb22hq/AgsK9o34XfXEDv77 7KGRJQWVGkF5N+bjcdO8yfUYBapLSpPn88/p4IZxoRMUPPk+YjufnzmyLGaU NQXPFewnarCNUwq0s05SoLcQ/H9j+zYrJs6doeDfrztp+3D+18bxl4U4UrAk OXDpSWxJhy9dsufw/uOJPnwZ++2/W2LbXXE8GI1Wadjf5KZ9r3lRMGXx+dFq vF+Vf9TFil2koOvR9SZ9bI/Ul5kvvCmwvyPUZ4fN3mk5WnmZAr6ncPcVttbp ksPUdQoGl1088R+uF38+D+gW3qCgZLNhkTV2yjZS3S0Q5zP5ffUtbHmx/bT2 mxRs+JUpMoBNFrakPAunIC/5p1Y8rk/FyrOxhyMpOG5B9Tdie0dJBwhHU9AY EhBFx/Vs/PRxK+f7FNT6fpVxwv4sNsyExzi/fXpr9+L6F+rLmh6Pp2DV5rrO 69i7RtS7459S4DP3cEERdk6hWyYjgQIb79WuW3F9fXyG16YpCa/XjN+6rbj+ ni1amHv6AwWhKeduOOJ6raiqkSCbR4GLk25bNnZX9KHwhnwKzq6q16Uvwvvh bIzD5mIK0vp1bOOxNSVWiglW4Xq28833wcW4XjtucbrfQkH5zTiHBNwv8luP HNnXRoF75K0bNHESPHV99Pi+UHDycXGZNfawRJHUyU4Kph9JJMrjftNQvKdi XT8FC0RElqZI4vOZJHd55STef4WLaIIyJGxeu1qZ+5uC1C0L6aexG3b+1Jia wvkge5TZhE1z89u1/C+OL+Ej+xL3w7MfXzh5LWBDeaTdFS7un+A3kaskwoaR B8R1Htx/W+5ll+ez2FDXVzriju389mrDQTYbnOX2W45jP+sQ7fddxIaTC00t +1fi8/cWTZF2CTZcfra/rwP3+28jvkeCVrJhKT/zJD+e07wE99jIKbJh8kv6 3SDsxUtFHTNW4+vrn/siqkqCvv5z3x5lNjxRvX9HBc8TyY+rEv5bz8bnVI9P 9mtJuHJo8Z8fWmxQydAZFd1IwvKCp+F7DrNBMad6jRaed6qVph63mbNhNC8i fQDbPVzvrZ0FGzrK/zO6vY2EipMDNX5WbDgf6/5hAM9LTqzV9A82bJh+ynfm 0Q583jyS6KnizIa1umFe+rvx+WMqxZIVxAZLj+GIk4dI4OcKnIkJZsPu4O8d 68zwPFJhfEEphA2R1lI6vIfxeSz2V5TebTaQj7iW983x+uhsrPeJYgPtrOD3 b0dJmAzN0hmLZwM1tPjOI2tcn9fkK9blsOHN26NGs874+xsP0y/nsqHeK/YP jyt+nm0/+9Ty2XC3+/y0gBvOh0Py8beK2BBb7bhg4Xmcz343pPdXsqE733cX XMDz1FfDhbXNbOBbMEtvuYrzKaRrtuonGzLZ9k8XRuL9cNer7cIvNuimOIhs j8Jz75NFWWum2CD8WrTVORrvn+wd7kEzbEh3So9puUfChoGEcYMFHLCP0uxI fYjnXi3nvgoRDggukgxLTiDBeoL/Y5kiB7J1MofTc3H9e7G92lyJA5esw0T+ 5eH9YOVbMbKGA0Lx2ae3F5CgW8NXvEiNA+Gyg/0NRXj/JyzIstLggMPLvfX8 FST0cHnip7dxwFJPN+XBJ3yeq5txX3UEf78lc0s5Pu9wk8Zlrt/kgM1CNeNR CSY4XD7wV/8WB6rTj0mnLmWCy4GUJvI2B4aSRP0vSDPh2qRLcEg4B7bfoqtS ckxI3DQ9E3GfA/uPKo3sUmTCdN5c45MEDviXLjET2cSEkDoyqLCEAxeyB4Jr TJkQ/eiUrV8ZB2Lu0S+XHWLCI+fqbXoV+H1vaooXHWZC6uKQPxXV+PnN0zfn HWVCmxnHtv4TB87Y/dOqsmGCQpfYtm9dHHi5+0zkOncmqKZ4SD3u4UDr3YlJ PQ8mbL7aOn2ijwMa6Z9nLLyYYKBw/83AIAdsXwTxhvgwwcleRmpsjAN7vhF/ BK4zwUvz0nTyBAe+7+B5oBDAhKvMbw3Okxx49vXLiH4QEyJfPwqYmuLAgqZF weG3mBDnw2+T+YcD965WtuXcZkLC/hPaXn85cIp/VWP/HSakLCteuvUfB04n HfJYGMmEnAn56bk5DiyMDizTimbC/xDljMI= "]], LineBox[CompressedData[" 1:eJwV13c8lV8cB3Bc9z6Xey/XSL9KRpSSCKWSOl8NUUaIlBLKiqyMrFKKJBkp I1sKRQtZSWTvPcueKQlZye/0D6/3y+N5znOec76f7xE1tdMxY2NhYeHHP/79 jrluSpG95HHwetDylZ2XAg5+bhZRPy1yBp1pvOJ7jsUKrZYV+oiIWKH29ZuZ en3XUExRoDBZxA2Nb91czJtwF9kccL4yL+yP5HdfFIsRj0DNy5ZhP4UjUT+h qYPknyOXcqGdU2+iUOv2bxRRvxS0/mFL9ffD0eiF5H8iN9pTkakkkL5ZxKFw 14jpmisv0bWXtNxf7Ymo89d+ybyc14joHpD4LpyK+mJ/OHpfyUIdRR+cJ8dS EXVbl9PvP1ko7VlEybc3aWjxg25a/71spOmoeWHi8EskHnmjXzzxPXrMkfd4 1OIV2vPM9E9uYS7ija5gm25/i+S2lzV8f/sBLXNlp9orvUN57jFpitsL0dDN pJM/498hsuu7LJnEQpRtcT12yioThbh8CBe6/xGdld+l+GM5C91qNhSRSylC CVVxDt+Ec5HcaOGxMM1iNBuRJdl7PxclPmPp6L1djFQsqgebFnMRiXdUySuv GE2S5vXymvNQlkVKVqZYCdp7QFPR368AaTxbklH9UYIaXv1hk5j6iF55B77y MytFvIjDiCFdhCibq/eWhJSi/VvCFP0uFaF12Q/B5kMpejCbOuPeWIReKVea MvjK0K6QVjPTF59QuHNBcO77MnSjSuq47IUS/B27WIXHylHKm/dbXjwqQdnb Kk1maBWoKeIQaXNNCXpQFxWqKVOBxC0MCv7b9xnlL363iXOqQFWk29IsfKUo +hdHZstiBRI40M1bX1aGRoxPzjRPVSIQN59SXSlDpqWTkaX0KmRFm64uli9H ofr3ZPS2VaGCTsqd7PhyZPnRJlnXpAqZusjNx7hXoPZBiZyZmiqU8cq/20a6 Cp0Mevp2/GE1muCduH8cX2fNvXCzPrUaSbgcP7g1rArtLmb85/ixGsUr0RIG F6tQ6CeZ1OnxahRaed/8bGk14s7pvPl7fw1yGQyaPnauFtW2BZ2faalBb1V+ Jm4OqkV9f+b9BUdr0FTqyVOk4lp00a9zLe9iDbK053lfKFGHmk6xMswFa9HZ lVDP3TN1qOCOBFu1cS2Ko1X78BxtQEvXij5r99eigwc8znkbNSCFzEzz9J+1 qMd2++4p1wakL/c6bnC1Fv3XFDBSk9aAFiI1dg9urEMhEepqd5mNaK3iGiUV gzrks7mOa7W7EbHoPBjWLq9DFqgxctKxGRUWeHBOPaxHLIm/87oDmlHZ/Bz/ RFw9imAX7Kl62ozOsf8o6nhRjyoqzYVS25qRtGTYo4cl9WjrqT+JZootqCog XzjkVz0as5R4+ZW1FW1IG+h8ItGALod6FTYEt6EQw1LzDJ8GxDaX2PsxtQ1N v37E4+XfgKJOV7C8Km5DfY/EZjSDGlCVIN/hwNk2ZJ+6zXwlqgFtf55SrmbQ jnaxmh++/7YBTeY3NxQLd6D2on5m2kADsh3eNpiZ0Yk2ZZgOBKk2oj6jTuqn yk5kVyz2tV6rEel23JWuHepEbJt73AVPN6K91aNuw+u7EGlx49Mes0ZEepPM FPDrQh9GTv5c9WlEEZ6iB10vdCPlQ9ZWnCWNiPN3w0Uf927k4OFWI1fdiLzs vP2DHuG/2y0VWzc3IlPT3pbn1d0oXPSjLnOoEUmpxlh37OlBdB4nVUlKE/rE ty5yH/MLumkuM9qo0YR2BVYUHt3+Bd16z1O68XQTeka5NqSt8gXF+NrEeRk3 ofuLbTKXPb8g2o5fPO5Xm5B+b1hZ1NgX5CRopGEd1YQm0pizy0VfkXt8ppfB ZBPiFL0t0bu3D70KtfkRlNCMKpRCZK4f7UN5knrygy+bka9B7J6NOn1IJjfQ Xz2nGbEF5xwztO5DqixLPSb1zWjp76RFe0wfKmCyykf9bUbfevRS6tn60W/Z P5JnTFpQTYTEtqKafvTL7WVgwd5WdC9zl+yFzn7k4vGjmnSsFak2KO/7O9yP nkf8Eryk14o+E+fUlFb70ffz7w/bO7aiApdgqxzZASQW0PciJ70VpZ9aTH39 eAA9FdA9uG5bG3rArJZMMB5EW/727vGVb0e5ezZmadoOolgj/c67Ku1oyMgO /fEYRHEeVuIvzrSj/el8p06HDyJi4vwPTe92NKZ2zotRN4jG9s995K9vR4d9 vte77R9C0YnuH5McO9DCHLezjsAwOtsWRedt6kRiG01XV8WG0SPzFX+h8U6k eSTTP112GE3OdDacYOlCyaEGsVSNYeRkYVBNlelCOjIJ5YU+w8h88WYb/UEX SreUW799ehhtMiO8kE43Mu0+9ZFUM4IE1HV26c70IM4n/VccOkfQ6uzd/D+M L+jtWVvB3pER5K0i0l+69Qsidfm55bGOooroRwvZRl/Q0448eYc9o4hffXiI r+YLGmkVSfmaOIpSwjZbZb78ii43TAbnuo2h92988t4c6kMOpbdN7SQmULr9 qZADagNIaEiF8lt+ArEIZWnBmQFUzcaR5gkT6LZqfLmW1QDaDIHT/mcmUNyT HTVh/gOoM++R99OACZRPGvPKrhpAyq+fxXZOTaC3s58IXa1BxPOkoutwzjd0 wL9No9hkCL2xp+v+p/Ydbbhy/3Z/6ghK8LCe2Hn6J6oyPJx0U2oS3Yr7oz07 OY1c3kyp/p76iVia+6DAfQaZ/xB27h6bQVuczK+dkpxD/pkCpw4dmEdDc+H6 tA+/UbMjt8eac0vo+PBlr1CHBTSrXMl0fLGCNIeCtwsJLaGSveQv10xZYKLE 1LsifRkFFe0ZWlPACtI8bRsPX1hBoosvykR4ScCJ5kx6Zv6iz5WjC3bS7HBN eSs1e+kv6rDNvDctxw4jhw0zglhX0d/dbXb2e9ihWPXT0iHuVfTgeJesObCD u07gw1TJVfSJK+SOrA47fDPbXOpisoqMlpZ/qzizQ819va089auoxHklxyqX HY59Pzu/SY8F6rqVJd33kSGW36f5hgELpPZqXN1/gAyz+1+86jFkgdr/xniX gAzx95YtHuP3aKxV0bNTJcOSRHQHhz0LnFK4MbjvNBlemn7J/XmPBWRrT/No OZGB2XHBs7CIBda0mJ1ze0mGjuJLrGelWKHXrL2wnp8CP5W71nvJsIKZcXPc m7UUID5p7YqXY4Wx2QS5kPUUUPioaDGylxVipp1t1UQoEJbPrHU8ygrKry8f id1OAa3MgogAI1awGT4T0alMgbJk/p0fglkhdm/SvQgbCnwVv6fW95AVjJd3 r5G1o8Bc0qopKZwVaIVOZ8odKCCeOPFILYYVHvyRZX53ocCt2KLl1lRW4J26 iTbepMDBcJvyH8WsUNS4b4r5iAJZdz8bicyxwkgN8KjmUyDlePV/fgv4fdxd jlR9oEAUvanp+zIrIOe2DrUiCngH96rks7FBLI+ShHIpBdQjlqT1mWwwavDT illPgYHnO1cDtrPB3jQXstwABbjKo+PmTdhAP39N2R0KAaz+SWeMzNhAPigS ZVEJmD2exldqyQa2pJwdA5wEdNa99wu1Y4OZiuuXd3ET8LStyW6HFxvcHPV1 y1tLgOIIFS5G4OdzpQRobCXAnOzcV1fHBvctJFPDjhGwXriyfbmRDdSzS0xO qRFQt3dj/dZWNhhsUJ7nOUGAgk3ph1vdbBC+FJzvq0kApXnNE4UxNmCX3Fyg r0dAcny2XiwrCTaKjOwKMSVgaP9C1ZVdJDjFLjzu5EFAhJ56cdQeEliO/3w4 7UmAul18brkiCajnd8rZXCcgM1E1RVSZBGrHFk4Y3iTgNkfknVYNEtx0auEQ 9SNAvH0fHLAgwRqq/NkToQRcdPTIokeRQKzwcbXIczw+ua9Z22JI8M1zWfZ0 CgGcvyBbJZ4E2QGuOQGpBLx2oLz3fkaCdqJ969QLAv7Yh+TMviUBR55Setxr Ah7bPc/vqSZBW1f+7+e5BFTaNH96uUICC3LoPsMqAqKlFIorWdjh95ezsqer CbCfjCgeIbEDm4XGRe0aAgRsjEpEONnB3I3fDeoIMLUe/xwmwA6N76m3OZrw 86xWyz1l8D605O041kmAjMX2OnUTdvDdVvXIY4SAr1bCdumX2GGDQvgm7VEC 7tvwMbks2SFc0yRPfIyAcYdl7Xpbdnj0N5C7bJyAJM/qVm1PdhiktthPTxKw NtT6i344O/RTdNZM/iKgLOzC9fdR7PDkM9fXxBkCnMJ1hf+LZYc0y5DPp2cJ aIzeb9L5lB2izDKm8ucICHhOGzZ8yw4yNfW9VxYIWC14MWlcyw62d97vdlsh IONjXOCnBnaIAXFr3r8EnCt+KL2phR1Ojr5sTMXOLfewH+xih32JiwrNqwRc bToxazbGDo/tf91mslFhdPTb8mUSGTbuvndYgUKFxxO90dUUMpTE9gm9wz7y vfmAFCcZvI9KImmCCgm/8m98Z5KhPT1GV5hKBcOVAJK9EBl2Mk5MTXJQoZ5X iuaM69SbUnPGHgYVDl65Mv5EiQwaYXOnQrEzyjPKixEZeDmPS01iP/CUvc1U IUNgrd2DJ1xUUB9RWHmhQwYP9ZkD49xUKIBr3U16ZNiRNS2yj0kFqSe5uYsG ZNAOWhPth007qeRy7AIeP5AuiPBQoSpXeWrAmgxtmX93KfNSQZHfp5bDjgyf MzJ+38FOs/38YqcjGS5T5w0qsf3Fjllev0aGF5VBJHU+KqgGqvevu0OGhOxU LmV+KuSMBn6Eu2RQ6B/45Y4tcag+xiKADDHe+7zfYVPmtc9mhZDhXqtvlMga KpQan24+GUsG/fRn3yawd+VHvHFNIEOjXZ3CegEqPF3TFRT7lAw2Y6nyqti3 q86pT6aRYWy1WiUee1Y8VpIvgwwM5f0XqrAv3uilKr4hw4THqx0z2Id2mZb6 vSeDS9fST1hLhbcPkpIy8sjgE/5n1Ax70/jQzdYPuK57G0T6Y7PGWhwU+0wG 9xQXmVps+4UUwePlZLhuZSbwHbtPZ2LJvooMJqeJAtp/VCgirrwvbCCDnFrR saPYO00zHg0341x4Rt5pjB1fMHWV3k6Gr4Nnu92wbzg47jz7hQwFEmE3UrF/ VL/jutlHhjztFPeP2EZb5iafD5LBPl7qQAv2wW7X1LlxMjTpjQkuYWfszvUT /E6G1UhtJdo6KmwMXjI7/JMMcwUPJDZg35/Yf+TyDBmm5HN7t2H/OeK1KeQ3 GTalTpjtwbaJK2TJWSTDvmWl/MPYPYurX7/+IcOkUlWfJrb6KeUPZBZc5zNf thtg52fceiJFwrnU/TfeBJuirrc+nEKBS86Pm62wtcclIlk5KaAd8eyZPXa0 79JaGwYF1//wDS7Yo2K1j9uYFNig1yTvji33KW6NMs5JUd+PPz2xvYwcw17g nBy1qdC9jl2xfIRPYAMFWt31jf6ZL3JtqLcQBaxMm3m8sI0UJpjfRCkQKpBq 9+9+qc0FQXqbKfCrUtnt3/Nm7YO4irZSYN8PYqcDNuIyDZSUooC7vPmjy9j3 XuyiP5KhgL1feZopdqsqEbAqR4F+/nCHM9giI50clxUo0HsIvv2bD2ufl3db 9lFgW6b0un/zlS1yg0AHKOCmUvdnNzZrobZvKlCgmScgXOLf/BmKk/mP4Jy2 aJxYix2+8Nvn+jEK7GlmLFCwBx5Vso0fp0C5QHrRLP6eO+Sjb+pqUoB7h6BK P3bJFeUbW/UoMF0rFJiNzUXj/xtqQIHk84HacdhnUkY8Vwxx7lfc7PDFnhoI cG8ypYCRd6a8Drait9GikjkFuq7Wcypg39koe+25FQVMg7el/Ye9waDN2dOe Aj9y9Y914fVsPpcyO3IVz8cyoZqL/SbU46q2KwUSajMFwrGP1Yo4bLlOgYzH H8W0sK8esrZpCKAA+UuH+Bu8vwp7D3xTDMLjcX36wRebw4t5OTkUz8+67zKG 2HHvsyzcI3EfZJz7jAW7WorlovhzCpwzTyQfxPtdoKqp/0EaBf665oZyYptY JBsvplOgxa2TvQ3Xi/mE40Z1mRSoWLMSY4UttvbRmWvFFFAbPF3jg+uPB6vk yZovFNix9Ov8HVzPRo7QOrb0U8DPOGX7IeyTdycv3ByiwCnRhb8ruP6Jc7+y U/iG+6pdo/mO2DWCu4LiF/D6M7qfdRLXT6G9B+uc+HAO7PPu6aVT4a6HsH69 AAG/k/5LDcT+Vcjyddt6Atp2nA5RxC4/WvL9qwjuC9ap54XQcL3QVWWoSRPQ 21UYtpuTCsW2OuobcR8SQ0IJp3AeSL2Vb3FVJ+CM+WLt7L/8mOM/16RFgFuA s1QYtrVnu7WfPgGe5/bfbiBTgf/euYDpiwQoy+SUInb8vZLNq0pxn3Hox/my RRYqcPa4q9pmYnu0XhlexP2Dayoj6D0BIHXO1wXbhLej6VUeAbtPDvEQ2Dmq u89PFxEgH+jsuwXno3nWlINTLQEqV9nIF34T8OnBpSfuOMcP93zReY/z95qy 5o9/6wxpbKQyvhEw/Ew0LM6TCnvzjhoGdBEQtnUde64eB2QMrRVKf0dAcJR5 uYkIJ7w9ahb0MIgAV5dbVz3FOGFHQoM5HdtIJ1Y4fAsnJEat873zgAApzjbX GilOcK7ZHX8tEPcrbke37tnHCfreYkamAQSwnRH3p+twQoCcdc8R3D85rx04 /t6HE7x5rd6q38D5PbPyu9GXE8RzW6wa8LwcqV+XNOnPCZxRO++ewub1014W DeYEvqP3Vs574fz/XfTifjQniDLshp1xPzfWGkc3zeKEtSM21/NcCTgbdr6O PsoJZY5Ol2PsCRB8x7nBeoIT1Pm6fbdg9za+t6j8zgln+UbRazsCLnHzsvrO csLO+MT7pbYE2N4rk19lpcHUO7c38zYE3PKWiZwWpMGhweEdHlZ4fHE9w1oi NJDKbY3nwiYK/eUyxGjwYTtnSaIl7peWB6svS9Lg/K2udbUWuJ9zifg7uIcG N0R3y0qaE5Bqw3qpTYcGD4f0KQReFzYBGa936dPgs1jW72Tcr0qnGa6EnqHB lr0PUo5ivx3NeqxlTAP9HBk9PxMCCkwvV1ZcoUHBxuBpPmMCGgyapfPv0vA8 G+3UPU9AqKu3x7r7NIiWvlT49xwBeo93VLgG0eCuWYbwC+yuZj+TXY9pwCN5 1ZiCPaSpFJaeRIO+ZsPFsrMELBxJXowrpMHAXXFPBwO8jvPjfD5/ouHoHXWR wWaRi2KMf6ZB5/mYvT9O4/cXDhKVq6aBTK8Rvy22wOI1tc/tNLilcfWoK94H UXZXm8e6aEBd4A/ej71x5Mp5xlcaHJMPS2HBFm82ddAfooF3RqRKIO7f5dPV I8d+0oAr7I3m61MEZIsdE2PM0uAep7yIB7ZilHK67DwNXN6YlalgH/JT+OS+ QgO1YuWwPl0CTpqIjNM56TD80lVDCNt2zexeWTE6CM9VTBdrE/Ar4Eex3hY6 eM0duvoE25ltXN19Gx10eJvanLA9p74Yl8jQQVLO85gkdkBl+V09JTr8nCON xJ0kgAuKed0RHRSP7Ai6gR2aXRAde4gO6MayiDF2VNKb16OqdMioK2cVx07x etLhpkeHV4LNddm4TkjNPjKNNaBDalxncwz268vBk8WGdOCrXSm/g/3+9B0W uikdDsW3eBtgK9bduLfTjA4q60SPHcYuPOLOr2dJh8WBwlVp7DJZu62xtnTY wCl0ggP7eIrV22IHOpA0XXrn8fmoVuiS0qgTHc690rAaxT75yKiMdo0OD7Jt x9uxW2hnTu70oMN4YJJxJbbBLd2uU9fp4MOaXZ+P3bOgccntJh1Eb9jteYVt bKf6I+Y2HYQEIiOSsAeHD10r9qODtuvyTAT2obi6RMkAOrxVHLvzADve4Gxt 6AM6cBnWojvYqzwj80shdDhOS93khW1U7bDp4iM67Fy+JuOC/eH2inp1BB00 Tyta2GMLHvR3lY+mQ1nFeJU1tsc8f+KTODrsdvYxtMTueh1fQ0qiw72/bOvN sfddlpq3fkaH3lsXCTPsCLEc0ZZUOuhFx4n/83zPYXWldDrMGr9x/He9/uN6 l6ev6eBnGvrr3/2ytAwT6Jl0cMjYn2yDzc8xWu30ng4Pa5MDHLCvFjv+7smj g/jnimeu2E0ef0WOFtIhhCd6/jq27O57J9I/4ee9Frjhhx38Y43LmlI69KyR ORiCPfU8Id6rgg4mct27o7E1TXZUD1fT4bM90yIFO3197pxGPR2cs0uasrDp LUdEspvooHZx3O0zdpXKOWffTjqMtZy9Poy9jWUs7kcPXo8F97/8+953c69W 6ffR4ZrWigcNrwcVqQBhiVE6cC8buytgJw8LHA+aoAOdXaFHA5s9LtFp/jsd /kQybppjF/PkVZbP4vm+fSv8CbZo9dFZmQU6WIStcOZge99uFIpYxuN5plDa in1wfuyqJRsDal0jeNbg9R7z2im2gcwAt5yoZIWT/86bLJV7ORiwf4Vx+wx2 Xs9aIQ4mA858mhVLwl73OEnVgY8BB28fGK3EvqYlc7VTgAH8TQkL09gKxSoV qRsZ0FNgwqGC9+Pb586Ox7cz4Gih6J8VbB4T1pi30gww9k5Xk9HB5+H1geXr 5RiwTSN40gRbOvCp4Le9DHgX92N3NXaaY3NZgAoDknUWp9JxfeCQujA9o8aA ezpSrBPYlsMTG85pMIAjut5WAteXLQZsDlKnGODvNG76DDvxgOyGWhMG5I30 lGXielWsyemzfIkBejWO/PPYAxcGJ7ZZMiBobW+4Iq5vYrce5fnaMkDTjXq4 FPtp2eIZ8GCAaNCWg+O4XiZrFUe8C2NAgZ6LqQ2uv2XGT1gGwhlQM/3KuBh7 xMHJkvmEAVpXy+LWGeLxhG3ZeyWBAYdVDgxWYz/ruNe+JYMBfYUioQjX/xQT XYGocgZMJbeKX8L5UOEodb2iigEuUX+967DHfMgjv2sZYBsdv1UR58nWZ++z dFsYIC0/dm4NzpvUiQ16jH4GPBaMtO7G+ZR2deih9xIDhJoKXj/DeZZ+x5nH YgcX9PZVHziI83RS6fytOzu5IECwVLfB/l99OzKTJM8FOUN38i864P835W/t 28cFMZYxtx444vGhdxFnVbhgn13l3xknPB+LP4U1L3BBZ+Cc5Kobrp9XbKR3 h3BBguGq4Po7eH+Ln4rTDeOCvzXbPNqx1/XsZzqGc+Fzk77SY1+8v4/TfmXE cIEW6fP42rsEPJJIy9qaxgX04/Kr23H/Edw/qiRYwgXZ/x24Ex5CgJ/exROk OS74pMOwvxGHv6dWzzmzBS64NOuz9no8zlc1PdvyZS5odN909XoCzosDx0IC 2Lgh7OQutdtJuF/Zsr2dj8kNryT/u/n0OQFy879Mxbdzg22KZ8Ke1wR8jbjl ftSEG1o+tYS9LCZgMXQ54PklbvhIInoGSnA9CXSK4bDkBraYg+PrSwlQu2le VGvLDbsbW04HlxOQaXWcou/JDYKewmHBNQTcU+QNNQ/nhggZp+WRNtwH9iSk +tVyQ8GWJ0s/JglgSlsuvGrghmvcsSYqP/D3uCF9rKOZGwx7C0zipvD8iuUP be3ihtBbFdL6uB/kt24RrhrhBo92A0r7PAFLnqQTFBYmaPDS/mwmUaGTpvBJ dR0T5ke9HJbXU3GfHTnWs54JiVIOL3wFqZB5/g+3gyATLqf7+/MJUSH4VbFR pDATXpPt5eVEqaCqq/VnfDMTxh4OqPhIUCEnynJPgBwTltIC3jjtokLEtifp tSeYIBMylPpYC5/3ZlSSfTSY0Cp1NcxTmwpahb+i92kxQe2Bs+slXXxe1T1+ P1mHCRdNZbcqnqaCs+fiZa8zTDA7OXZgxYgKOvWnt+6wYAL5crjPgC0V6M78 SfdvMUH7wuzT7cH4vF4UGHEilwnWi/SO8g4qTHwpClvMY0JmNdufTd1U0F+e CX5ewATnpBUB7y+4v1c4608qYoLWkzI5GKBCx4st7vllTDihNErp+IbPv+Ef Dbe34OslatXMV/F55cq0EG2KCVXqthf/SnCAxga95CpxHrhGEn0ofoMDlG3L DXn8ecDE7N3b9Xs4IU7QVLxmjgdmzaKCCCEaiJc8f6xpyAtzVmKLbbx0CN5R LNlUyAu33+1Pi8B1z3yGvbFSkg9qJZZ+fzfkAtM3v0T8g/jwuXQ4oTOWG2xu 6f45HsIHGyqX17x9yg3Oupnt9Id8INN/3eh+GjfcnXN+EPyYD1K3xl9WyeaG jH2Ly+ExfNDYTzJuwOto8dNq27MXfPCJ9u3w/hVuCG6iB34u54NdVzRvZUoz cT9zxdK3kg8iqefcPsgyIcmp7rBqNR/olcdrl+9iQrZA8FJ1HR903El++kWR CT1n+SybW/nAJMGmhv8YEyQG1x0eGOSDUt7lvpcXmLAz013o6TAfiBxVqigx ZYLine5Fs1E+kFtdCug2Y4K6RMzr8Qk+6Ar/8JxhwwRHaxGh6Wl8f/VRCc9r TPBUurn4doYPBDOSJyI9mHCHMdDiNMcHBwhXv5zrTIh4lRSwsMAHdq/Xay7c xuvWm90ib4kP3F6ddF13lwkvtM0Oef7hg7vsJm77A/A62FS28eBfPuiXXtE1 esCEwpkti6urfJB+r41yK4QJ/wPQR2wH "]], LineBox[CompressedData[" 1:eJwV13c81d8fB3D3fj7ce61wfUuyCSGRSiTnXZpSaShKZCs7o5IkiuwVkWQ1 kFKiMrM32SOyqUTDyorf+f3D4+l+7sfnvs857/frips6nLSgsrCwcOMf//8d 72nKpmx+QzNey/+MknmgZnmrmM5ZMQO0S5Iz0WXJGq1WFvmIiV1CLv6L3yI6 rqH44mBRVrHrKMbFQrM8+B6y3e1q91fUHy24z11pW3mAWpes7/8WjUXL+9mu TYw/Q25VIkq/3jxEGpKny35uT0WCkW11k1qPkK/tDTTvkYZM5YD4YZWAWM6c 2nhg9QW6lsGRO9WZjDwvMxS/XX6NaD1DMpOiaWityuSV/d+zUVdxoevEtzTk MfrxkqRTDkp/FlP24006mh2T6NL5m4OOXTlmPK6VgTjBSyNy5R2KZuRFf7XK RHwry3nmCx8Q36Nq6p/OLLRx/MfX/JQCtMT9Ls1R4y3ayeP78wBfIRq5naL7 O/EtyjN8vs/4ViF6Z+X5+NelbBSbYB94UK8InVPZpv5zKQcF2DUsmf7+iJJq E5x+iOaiiPUbbgQ6l6CZmBy5/qBcxP9sIac7pQQdsKobblnIRQ4RXE+dWkvQ BPFXL681D3k1+eT5KZWinbuPqfv7FaC/SY5vAodKUSCH+bTHTAHSV70fbclV hvq6r2c4mhQi/jsctHjVMnTH7amI/q4ipMTqqLwxoAw1ZS5TZX59ROdi9W70 yZQjPsQw4lIsRk5CuinNR8vRLun76n7mxai6zVdb2bkchcykTbs3F6PVmK5j mgXlaFt4u4XpixKU4PFvoepgBbpVq6CtbFyGqMUNynoHKlHqm/fSL6LKULD2 xYlVs0rUErOX2FhfhvZoC/jsuF2JpKz0CwTUytGntcNpx/IqUS1xR5GFWYEU F7omL8hUobW7e/g+VVaiUYvIaN+fVQikLH8d+leJ5NPtL1WyVqNLHH/qSlWq EOmTsfeVUDUq6Ga7+y6xChlNmaZ6HK5Gpm5b/8a7V6OH2vTlPQnV6FWmf4+t Yi0K1O5gtmrUoHG+8SBtk1qUtazEK3SsBsm4aWvK3q9FSbufqCsa16BEDY6k 4YVaNNh4cyjLqwZF1ARZnquoQ1ZuBRVGJTXIbTj0z0HDBvRBcX7tPvValMBR 58O7vwlVN6n5z/LWIc3dNwy9jJrQqmNzUYRIHeq1l9/+62oT+mwGLRvk65BA S+BYfXoTSnS/aj2rVYfCY3QO3+NpRgaHLSoGXOqQz8ZG7tWeZtRk4Ldo0Yb/ L2qOnbjSir5L7c7SCKtHLMlzeT2BrSgnWce2La4exZBCvbVPWtGMkBe/8/N6 VF1jKZLW0Yo0l+6vVhXVI9nTy8kW6m2ohLmYODxZj75Zy2T0UdrRw4xV02vH GpBXnU5Dg2A7kjqwzr7pXAMSULzys0ClHX2V/ExVt2pAh6YLlOIs2pGlsR/a 59WA0m6ezDlb0456W+dn9r9tQJcjbhY1hXWgtAfI4bZwI6LOJvd/TOtAvzxO yqnJN6KHZ6tZMks7UMx4/0sOtUZUK8TUCp7pQOo5PUqEXiOSf55adVi/EyVO 6DZrhzSiifzWplLRLjT270fVS7ZPyH5003D2q26U66NA0hhNaMCom15S042O Mawf1/M1oVNd9xQbRrqR9D30Nl2oCe2s+3p9VPAzWiOSefiNUhMi3jzlWev3 GW1Y8hj/adCEYjzENa8a9yDNvujHxm+aEPtck5mPew86mCFLrSloQjcdvPxD o3oQ68i7W8eqm5CpaX/b87oeFHz0+4NX/U1I4VC8TZdqL7pp41JcvaYZ13V9 rBrPF2Tgqtkf4tqMtgVXF+2X/4K+5OeWN3k3o2ds10ZOHPiC6l9eeasc1oyC Fjq2XPbA15s2nDjxohmd6b9f+fDbF2Q7mDDNMdyMxtN5ZpaK+xDDza0jVL8F sYvfkenfOYCkQ/Rv5Bu2omqN8C2e+wdQ7TxfxbxtK/LVf6wqfHIAzQXGxp6+ 2YqoYR8OnrcZQCZHKYrWj1vR4sqEVWf8AAr8yrrEMtSKfvTqpX6iDqLeMXos zaEN1cfIbCquH0SO71RWqhPbUUD2NmXj7kEku9+6YSa7HR1q2qO2MjqI0n7f qwG87uU0w8Maq4NIj2FuoTbVjgrcwi59UB5Cf7Mkhl/u70AvTy+kvY4eQjI6 s89TpzpQCE+dXNLFYSSptViyaN6FclWFc47ZDyO9iJhxjVtdaMTIAS3fGEYB xK1dT2O70K6XzNNnHwyjKX1V7W+NXejbYcObXI3D6Jaf/lvVXd1Iy2fy0/Vd I6hw9u3Bv3id52fXuJ5cO4peGXCtL5/rQaY9pz8S9WOo+KmFqRP3AGKPG7Rz 6h5DJQ+PyfSJDqCsc/ZC/WNj6ONO/5LzygOI+Ox3PY/yFUX5Nen4nx5AT7ry VJxUv6LUbVMxGXEDaKxdLLUv+Sv64Dh5l33zILrcNBGWe/0bsv6ak9lyfgg5 VdwxdZAZR07rL5tUjI2gN46cpwQOT6LdYn1+9UrjKOmGzbjS2d9o5YOt/8u9 v5F3wvKJmYk/yKJMlNXJeBqxtA5Agfs08g66TL5znUPSLpbXTsvNIma90xXl ggU0MvvgDEfhHNq9oJgpmbSMtEcv34xwmkfaLtJrM26vomMjYfIiIovIfRk8 U1goUC8/0mYotYhC33A8myMpcMRZ1TNObhFdyF275yCDAoeofU0Cqosoidnf MMBLgb1i8m5M3UV0wnrf5lkJCmw3rCimey+is/VWpsn7KCDUtqA3PbqIHt8S orP7UmC8zNSr+uUSev73desvFiqIhnddDsnGHt5rPE5S4bTRMb3T+UtIL/F5 2SCdCkXzanID1UvINtnnvyoeKkRs5m37O7yEeK/qtNmIUWHXg48yMoLL6G9R nocwokLQZaFPd32X0Wqjx5SoOxVKVCNyjwQvI/Zxzg05N6kwR9Kf8N5fRqw8 fGsP3qbCxYTpa/G4LgYhej4m96iwra1WIqdgGR35qqnuGE2FL7uvu41MLSPT STPh2TdUUOTtENYy/oeybQ6fih+jwljwmHeUxT/0dzs1Nfo7FeLZ/379avMP /ajqUQ+eoAInKZAVdO0fUrtWvuHKFBXG5wwOdIT/QyIfw5sEV6jwtPeL/aXy f6jzTavGN34ChFJHP4ZuWkFG5zg2uwIBbVJzUkNbVlCRdHPdWi0CApPYArbt WEG7Mm9m5ewnYPGhzOnuvSvojqGSwQ9tArqCL32TMFxB1ryf1+3QIyDSeZLn XcgKMlTVKTp8iQB2NGvSO72CIl4kitmFEnBtjyz93eIKSjeKSfweTsCY1vlX oZRVxKqznWp2n4DSQyWLe9esoov77e10YglwPxkcmSa3ijYOvV9YSCbgh8XG CjeTVZR9cfZxcQ4B9UF6sryfVtEN/lB5ajcB6qH3GsfbV9HSAVMvoR4CUsPz Xcp7V5FuPLVV5QsBd6LFS66Or6KyUxmuBoMEiDTNKfyiskCjMLPB6zsBHd2l FXoiLPBI0uklLBBwcPLcXwk9FlBS5+4OWkvCY36f1lv6LEDZmf0dBEiY2fUi s/c8CxyR+7d9aj0JiQFLVtGmLJAqscZXR5iERZlHXQxHFnixNVVqQJKEDNMv ub8DWOBTtYD5HSUSqAGs0UdD8P23pOdzbiVB/83mK+nhLNBvPGwSoUICK4un nHkMC0RMoYSoHSQYxYvEdT5lAZNPESweGiTwdBl7FBWzQMzN+Os1B0mwXPXT 31DOAtfNp0/KHCahQPr1tmtV+P4FBqHe2iRccmWZVG5kgYwTiTuUj5JQypd0 4WkPC1SrGJg7nCTB5eiQZtAcC0R3lV92NCShq9Scck6BAlpnnnaE2JPwe89n wZtbKCD393OJvwMJtJLj2xK3UoDnUHKwtyMJOz6qW43tpMCuzxl1dldIuJ/P 03BlPwXOj+kS8m4kHM8uiAk0osBX1zuOe27i51XZmvXKhAIP9vfMCnqS4Jn1 vK7ZnAIJPzQdprAzXkesrLOhwL0nMlpxXiSwv7Q2f3IVX//GN6LNh4TKp/xK hWEUaHurMT7mT0KfVMDhgUgKrAgZH0wMIGE2ZdWUeECBKtuWjLOBJEglj0cd jsfP/6EjqjiIBO/HxUvtabgPtaaTN0JJ0HxgW/WzlAI/j7u5R94n4czaoQHe SgqknpVe2BxFgl3U2cVtNRS4ayMVVYn9KHLv5hufKHCwyURuKhqvd6hAJK2X AtX9Vr+2xpKQc6/cSGyWAjt2/uI1jCchVbtOwG+eAoUmOVeHsR9ytrRMLlFA wzn1o/VjErzC+g/kU6ngZ7Pun20CCToxi4pncB/aaK9nbJhEAjpH+V7ApMKd D7m0VuytQvQUyXVUiD1mnngwmYR1if+t+yNMheHdqWlyKSQMPVdaDZSnAmtR 99GuJyS0X1LNnVKkwk97g3TNpyRUy2s6G2ylQqCiDWsK9svMI1+l1ahwk3m9 yOIZCdfeW34qOUAFe3q7fetzEmyu2/nLauM+dNdtalMq3o+7XLRCj+K+aLHR xxNb6+Pt94anqbDj6lyLeBoJ3FWPEv6aUOFHwUPjE+kkUPxTDIwsqHBEsdMz BntGO51ZYU0FKeGa3C/Y3Y3v/SIcqJCoohhg+oKE+rCiPQtXqDB/7pRkMnbR yYolYzcquC+H9/djP+locdiM+6xudmW1XgYJD2K6N933okJ2v/NCMHbAuYHh RR/sjNTT5dgOfZNnqwOo0C4mEiH/kgT1MTqYxVDh/WzQhRHszalrFmvicP3O V63lfkWC2OW12UoJVNDs8mbswGb9KSm78pQKSiNkihf2fKbckHkaFV5XhB1N wR53Un5Ul4HraSSrVo7dNKvJE/uWCsdcOHpYMkkoe7+/dvUdXr8MsSgh7HfX de5Y5uH14Wl/sAM7ddcpzYZCKrS0cI8ew477ZzCvUkIFx8xsTwvskI8Xsx6W U+Hl6EtLd2yv21a2lGoqgNrQ42BsZy17aes6Kvj8VtuUgG3J6jrQ2EgFgdZ4 Wia2oGhN51IzFSpNxs4WYDfuFP4k206FfgmDHdXY3iedKvW6qICYd5+0YO+w rSj07qGCRMhCSg/2+N31OZl9eG7qHNgxjP04wS6jd5AKCmZLht+xT+aWpDBG cb210tb/xGZr/S9uxzcqZOQO2P3Bzpu4FGH2gwofxreen8a2ZyvyD/uJ76en PPx/S4jx3S78QwWeJjva/92hZnltfIYKd++51/zGDjiV57BuHn8+6rjcJLam HbfVviUqCK47vvkb9pSvqZETnnMF0xotg9hPE9/pPaYQoLP+4IbP2Pp57Efr SAI0z1PYm7E524z2zdMISO9bTajELp7M2rWRgwDr9Z19edguNJrKSW4C5Jo3 VL/ElhU/L3eLF885QbML/69vr3qmeAaeoyf09yaGYu+zP8vDtoEApwLR7bbY 834vaCoiBJhKawfoY2ckra4YixNAsFtEamHztz+fzJUhQGC2quo/7OqfSyNj cgTUBmnOLeP940HX7WUqEjBQQO0fwh7ZNV9rt42AA2vaRtOxY/R0Sh+qEiA2 xUsLxtZxSMytUifg1cTKNzvs7ORDqeJ7CKgI1J6Vx7YueJRwbB8BM2SvBANb qON39I2DBFju9l43ivf/HUbs3fajBCTouhrGYu+UnPSgniBAYX4u0wl7QmOP y5bTBFTPzTUdwj7t+N3U/xwB+TJ9t6fx+ZLqVIPdVgS81jpSr47d9TtY9fJl AiS/ffzAwA5iH1J8YEfAMmv4rU58fmd2Bwj/cSYgpzY/2QG7/MnnxSdeBDRZ mdtG4H5gduVGDudDAjTyZa6m4P6yY2tfzqZ4AlhMaMKm2OxT8O5AIgH/bPxK RLFfO7G993pGQBjTjzMG96tlx/APM1kEXP91sd0D97Noh+f5vXUE+CrU+Qvg fnhpC3vBQiMBMhV3mqtwv9T4ZVuwtoUAvkJLJTfsYfuthbpdBPDG1ag14f6q ZF9YVD5CQEuFwLPruP/W2LaWZPwjwGBbyO4U3L8fKeworWHB55Bq/XoftuNE TOkYgc9VFPupUdzv19oalYmxk6BysW2zFLapzffy+zhX2Jo/NY+Jw897abXK YwsJim5ZSoYxJGyxkm/UMSFh4IbsGsNwPN8uiTq8NCeh4ZynW28Yrqctk4fb Gu+jTjZJQ+zvTksnPuE5bZMaesoAz7MUj7r2Ex4knAuMP3wkGM+HCJsvZx6Q QESf3bsGz8vVghcTFxvwXIFu6Y14vn7iU+BwVWOFa1PzOnO2JOS/8o5TINhg b8ghX3WcL9h09AQfsLGB8ZpCp5gDJJz4LhNLYWcDK7Pj4XP7Sfgq2RDdwYNf f3bZ5e0+Epix6yK8RNjgrFvG6pa9+Ll8Mu61qbHBTMSBlu27Sdig3+Hq4cgG DloXgm7jvGM5mzoz5swG/WJKyd9xHnoTccP5xFU26AjllT2JfbBBzEnakw3+ Kp0LlFLGdd5rY9sUyAY9y/rDjYok1CmwmEk9ZwNSusdplxwJNyhyuvVf2EC8 W/O1lzgJY/s4uqQH2aBr+2rRshgJuvcmjG+PsEG42Qmn69hSazIddvxgA+fc M1Uuonj+CG0LTZxnA1cTFytnnOdEdmo2ujBpcOGo23g4znv3boie+bSWBhxZ CgsC2FNFLH2bBGkg6dZbkYjzYdX+ssk+MRo8OpORkLUO74dTh7gOK9Jg8pmf d/9/OH/Zn9QRPkyDgpJRe2M+EhSyVNqu6tBAzNhYdJoX79dZfsOW4zQo+y/2 uR+2jUenjd8ZGuwufb7/LQ9e9wDDwD9mNAjK9B/hX4Pr99SytsKTBnmff3AR nHj+fDt4UsybBr1er/4+4cDzTmHTZ/e7NPjlebzlIPaatz++bwmiQZe+4cUw vC8/FDsyHsbSoKakhn0zA5+vXvdD9tk0MP40+SuKDZ+/q2lcoe/x/fP29Opg m/B1tWTm0eB1i04mif3h0PYLf4ppQEu4xH2VFT9Pzi8nlwYaJP+rbLEkSYjQ FVGNaqJBoMXg2o3YhT90lnNaaTDLbXVkBJ8Tfol037/dNPjZ7hNggV0SYh7n PkaDU5oR3s5U3H82RV6M+06DuZBYGzVsgYqSjQUTNBjYEn+MBdt+SeT1vyka +FuepYVTcH+z7i73WqXBw4B08yJ8Lg8R9IAkKh38JF5oBv3/nD7ecbyUlQ7K Qf8JnceubYvsJjjpIPmjdXRp9f/fV4799BWgw+/awPbD2E96Pd4+30CH/W3O P0SxP119ca1ahA4J4mu4/64QIP2KTrBvpEOD08LNVOwTh1Wr5WTpQC5FNnhj e4xYBB+Rp0NY2zVFI+xWwbJ1wcp0iNiWJSuAvZLzp/flNjpcSD1aPof7itwJ seRGVTqkHShx7cD28rupwKNJB2vvDyKx2BkSGX+U9tAhz9ZTwAO7s/DzuxP7 6NApmKRwEVtxRnVPpDYd1P66p8pjnwu1ZMs+SofXtQ58TOy7clF1bbp0GH+h Ebe0TEDvxSm9tWfpcMC5lasJm74stkH1HB0Gj3cs5GOrPDg+cPYCHfKlJRlp 2AENGZdjzejQrcoW7Yv9zrpnS54lrldW039XsQcJ9tnPl+jgmXa00BqbM2Fn 3pItHa6XRAWfx96pbnVLyJEO6xklfsexzdqj9u12psP9ubGMfdghjuUMIzc6 UKxFVtSx8zimGz2v04En5abHVuzRZ+L3Ezzo0H9acJM89sSdwQXCiw5bj2wN kcKeMk0ytvahw4NaUwNR7AUwqaj3pcNYJEfQBmwWUXF55QA6NEYGyqzHZvs3 EBYVTIe7Q7BZAJurJ3FuIYwON8vuPf6/+XMvGhrdp4Pw048egtiCD8RKSx/Q wVVsT40wtrjrgIxMHB1m5q3uSmDLnkoMDnyMrxcKyZLFVlS+OP0rCe+fJM6T Stjb14gZnH5Kh4M1uyzUsDUm+4s+pNJBfeXKpBb23roEKeEMOii20if+X5/D acYBtzPp8JU4ZXoBW9dP9PdoFh3CXZ6dsMU+a9Gvp/2ODreUz+Z7YBtpJeS/ ysXX239IDME2FzcWZxbSIfaeEJGMbbMq4ne1mA4llPbhd9hXvvRN9JTR4dGd rfsasK/lPz4JVXTQGLqzcRTb96qICKORDklbtRzX4/0TrNfnY9dMh+N+2r3b se+rPP7e3EaH/9xvNp7CTvolnPOwhw7ujyK172OnNnwRXO2jw/lzHJ3vsF+9 iPcyG8L7vaXz52fsAithHYXv+P1JIRUy+DyU7f/yJmyCDjfS2fx0sWsl49fN /qLDZMvPLnfszn6h4cI5vF4O4ipt2H2FvYckFukg/nZqN4HP50jco1e+/+iw K3tPnwr21Fkh9+MkA4o5L4zEYi9s7+1/S2PA3KE0nU/YLPyP9gtwMKCaw/k4 G+4HXE0beAd5GdBr5rrpOrbsoQ2pV0QZsHKh+MQV3F+2SPdwdUowIGXQ/3U2 9g4yznmXNAPEKp69ncfWKhZE5GYGDFFyXtzF/clop2BHlDoDfj8cv/MW97f7 suvJXD0GXNDl+2qM+6ehkfTzYX0G/Nq37fM7bKn7KtrchgzQiNigs4aG89zq 0TAzUwasUVvNLMdu6/AW4nZggCOhH7EH92vm3YltZvcYILubGn4H9//PeQud wYEMUGaRG5jGTv7NduNDCAMc3vcWmHPh74+G4iVcUQwQTfeQOMKN87vKmaMf khhwmTP7vRyeLxGDHy248hlQla7YtJ0f54h1DfSdRQy4nRpvWoQtcfTzC9MS BqxnyQw7hOdZ1oeZP++rGPDjkXSZCc41LaGbPE3bGKCguC/2OZ6HvJqR0e8n GZBmWld5G8/TsIeWVSZi7ND96uJXV1kSrrp5O3tIsoN6+WrNlk24Xicfiz6Q ZgdYf/jED2wF9o6r9QrscEqlVNdKHuev6/tlVdXw+1duyTjj+U81kPLnPMkO TzY9av28jQTXdUPa733Y4cMsH8svnD8Mp//NNfuyg2A0o61PC+f1T+tTJvzZ QS7opWkTzit8fieWxMPYwfJBRNYHnG9ezRW/CHrEDonFxYqPtUn41p7AaZrD DgfOs0sXnsT1uH+hkfMrO9yQ2mVwHOcyobfsG2zG2aHlYDEZbkFCf/N7q5pJ dhD2tmtqsyTBfA0fxXeGHaRuSdSZXsLzKqBSZZXCAXZyMyYxOLd5e22J/SPE ARFRSlmXr5OQZksx7zjJAZyx5VGvcb6zDXz1etsZDpBc+v1QNQLnxPTz/yIM OGDlfVJ7cSSu/9ec6OMXOcC5bHWyO5qEAtPLNdV2HNARdy9fGufNJv1Wxfx7 HJDYlnVUHufr+X1PFxKKOOCobbnmSAX+vpGf4FNewgEC8z9WIqtIYNn6kOt7 OQc4WLXk7a8hgSYaKr61jgNSNrrLZNbjPLtw7XB5JwfEEGb9sa04177Uif32 mwOqXneIfRrEn++/mZ3KkpyQlsJ/O38V56PAn6V60pwQuG6d6wsKK7hSv+u4 b+IEcZY7jvEEK3j8+nKxbAsnRPKOefrRWCGwpuqengYnmBk+obqsYYXUm3Fd 1/U44a1a6vgrUVYYHt17rdSPE3JkVNGrPaywN6ExWS6QE4it8v+497FCov65 hogQTrgiJit75QArGNU5SZhFccKkikslOsIKn18n1hMpnCBV+1xh/jQrtNxY EdtfxAncGyT6v1izQilvXk3VDCfQ9JvTPSNYIXm38oYGEy7Yc2DBRnwSv36M 3WfJnAuCDx2/OvGLFYaMh8c3WXOBIrHhRe4UK0h6R+X52nOBgs75oHPzrPCk csEAbnCBdI6u6jucq58eL415e58L6t957moXZINUk1NrH1ZxQaZcq2aWNhu8 vOvKa7WZG9K1QfHbazbw0zM7QsxyA7n37tyRCBps701K82tYA2EbWm/6v6BD zKa4lw1HeEC+wJWp28qAW8XBMUdyeWBa1+eJ7A68zhv0ntZK8UJkAMeZj1mc sMe+6jyvPy9w2/18P7KFGxKETKXqZ3nBcXIi3mpsDUiVPY8+dp4Prjpt4xeu 5YGwzaVyLUV8MOd2aX3JE16wnCaba+SY8IhiO/ovhg9M30yJ+YcyoU2xYe3r 20yw9T61rB3OBKNCxnjlXSa4nsru5IxkQtlsx+wXfybcm3UNCYvGf/cuzuaM YMIrtYWlB/FMGBIQ/mibzISFktWOZy+YoBV1zWtHGRPCWjiDy6uYoKfIEThB 8sPDFDtr3xom9PpMH2Iw+CHFpVHrUB0T+vJMFaS5+OHd2rDFukYmbGxyM7n4 Hz/0nmNat7YzwW6iz7ljIz/IDK/XGhpmQvWAUE71AX5QynYXeTLKhIRMqztf tflB/W7PgsVXJtTqlTqwHecHHZn419/HmVC5pB2z7yw/XLERE/nzhwkRO2XE Sq34wUPj9kLWNBOm5uw+Dtrww12uoTaXWSasu8XlRnHkh5jMlMD5eSb8NlqW 3nONH5K9SKu8RSYUhouImXjww4sTFns9lplQtQ8p3vbih2yJSmHNFSbspFfr Jt3hh6Jp6YXVVSaccpfwK7nHD/8DCPF8hg== "]], LineBox[CompressedData[" 1:eJwV13c4VW8cAPBzrnuvVZIrVFZRMhoilcr3q4lUFJJESVRKSiSUkqJElIyM KIqGFZWSvVf2FhFKtOz9e3//3Pt8nvOc857zvu93vEsszu0/waAoikl+/v8P v2rBVrZ00fg8KgJrLL018mqkdQ9KH4KG6geJPiMnYbYg44a09CmQdX8QUlvm BOFZPlIs6cvQpW826eHsBWe2OJwdlboNWi689buagqBm8mTAH6kQ4IzoBrg/ fQaOhZJrfic9gofUYEN193NY9KC2dGBbGHxNr7/6QSYOLBSQ66f1Y5Axzdnn dv8lOL3iT/vX8AT6HvVueCCZCNwtnXIDUnHA4O+NcDiZAo1Znxz6v8fBFmEV yzk/UuDFs+Dcn0kvIKd9p2uxdSrsvbDXvG/bK4hZ3b2wzPwtBPJ+COy1TgCR pg/HPNXfQ8olnQv2YolQ2ntGr/vVewjrW79w0DURfE98fPxAIg1sK4Ws/+1I Aj+zb4XD42kgFFbE+NuQDD194buOPP4IkwJv4+w2vwHuvLyrpcx0+Hb9qd6f yDfwJGnh/OST6fDW+mrE71MpENrW8mJS8ROYqKiq/5pMBXHBvHh2VAZElTw+ /1MqDbTv7BC6HZ0FQ8GpCu1300DeXiTn9Ocs2Gld2lVNxj0+9Ja+P54F/Vyj hh9qPkDSpaN70ndnw4Yte9Vve6bDRKxebllvNnjzWw66DqWDhmNTjtzcHPjS dPmV3bFPYNakyPNFOQc8HGMkjTdlQIrIRLvV5RyoTJhiyP3OhL/PfnPW0rkg BLxmc1dlQRufUUrCklzYtDxA3dMyC960r+OEa+aC71DcoHNVFvTyqwxUuuWC qn/dCYuX2TASELj663AuuJUo6Sib50IapzU0tSQPYpPeLX/5MBdihYTr9nTl QXXwVq5lZbkgo9+m5jKZB7LWxuliG/OAvapxTYRCPpRweayiOPmwadkZFU2P fBjqE+B31s4H36VSrMyQfJCoDukddMuHGk1lnq74fLCLTIjs7c+Hd/tf1S1r zAeRLS1CnwsKwLxaj+/z8gJAWavfWtMFECHMR7/bWACn+P+W5qgUwpM7jjKG ugWQ3sS++TayEFotoh99tCsAC8e1o+HORTAyT3Kz1dsCiE+43XJmVQmsOeQd XaZWCH1CfXd1jpVA69/6r8PbC0HOUUdjRUAJVL/f2TO6vxAiN/NHdY2XwEyv zSdv20K4X3zXyiS/FI4YGhmKRReCY9e9v7tMyyH2a13oD94ieMxfemP+jkpo NZCU4SouAo0tLqbXzCqhatLb5H1tEbTaKq77fakSIsptqLMdRSBW7d1T9qIS eiPSshtHi8A/WFfbS7AKTmzgT69fXgw3llUIzLZUQbfUm6/at4rBGqpC+i/U QIjllhI3/RKgnox8aPGugT1vvTzfmZVAMFO8tSS6BkSjDO/ynSmBomIrybj6 GohIyN/D8iyBFQZTT06o1wJ9xcvuWEYJfD8p9+oLXQf+aV3KuiqlcK1Ut7x8 UR0kjkZO3dlaCmKrLvxKV6mDZVRE5m/9UtAaTF8TeqIOxp6ohK08XwpxV/an Hiyug1+b3ul5J5XC6ftXMir96kGVGbZsr3oZMIaftGfG1cO/W2eqlXXL4NHB Iiohpx74qH6b7WZlUCLO2eYzVA9Whb9OjrmXgeLz2EJt4wbo+Z6+N66iDPo/ 1lTmSDVCWNey+qBz5WDbLd+VEt8ES3Vcf0Y1V0CHWRNPdnETeNs2Wh4aroAD jV6ryr81wdns0fSDgp9hQ2nv5e5FzbAXveIVdn0GrqQYQRHPZni+pCFF9f1n CHZdonHJvAXur1NUEzGoBL6RyuM3nFsgp80gPfN4JVw5d+32vYctMHvP8+E9 +0qwsGivfV7aAsslF7Y+eVAJSlrhNo3rW8EmJ6M4tK4SsjkLQzYKtoFJhDH3 8NEqUPUpytih2AbfbYdR2L4KnrGdvunvbAMt94S2wzer4O54/erTrm2grfcy zvJFFRi1BxQ8+t4Gb9wWbjMfqYK+F4JDk1lfYIe5ext/YDXwLfGQa9/QAesy qnPThmqgaLP/6qs7OqB/+8kzLny1cMs4Yr3E/g5YOKdj4ph0LTD83u86bNMB rNOXm8N1a2Fipt+6IbwDIg8lMKqe1cLPVsPYz4yvoGZwym25RR2UBcvJZ5V9 BUkLqXQPsi53UlSVzZu+graz4YkugQbQqtTcONP9FZa8cUm2km+APG5T7c2z X6FTJUmkxawB0h39Tr1X7gSj+E6Wc2kDvDYYj0sM7IRh6+smni8bwVewVCHq aBeIv5uTePNWM6Stl0jda9sFR07DyvHnzfDN7BxMuXSBfrb4+4fFzbDpNcfg YFAXeOXVBmvPbYHv2qZX5lZ0wWmGQ3tIYAtsuzHw+fKmb8B2XCBZkNgKY8Pz HPaLdEPqPcU7Xox2sGgxyOQq64GZhy6/tfk6gS/069nzTT0Q8+Xwdx2pTkg2 sRVv7+kBzSShhMOqncDV7Hn5A90LV/VcjV+ZdUJ04weV8+t74W76l1HulE7o qZOO/fKkF34uaeILOkbeo7LfL+3ydzDN8U+/WfgNzud7WJyT64NgyXsRU2m9 kGQ354CY9gCc/RU/7ho1AFEuNn1rDv6Bkelr8xSV/oH74yn9of6/8LflB7Vo zzBQNR2Y7jwITQ4PAxs3j8Hyi1ZOBgrD0Kl00btKfhK+DQcZ8X8agYGL3GGx /tPwRFPFvi13BJbPWO7QC50Gc5+KewklI+BfMMX/N3oammVZxQcaR6BSQ79b 4v00VB24sClscATmtidflv0yDRlJutIrFUaBf7/o584VMxB0lu7bGzQKi/YU SnHSZsAgLYy9JGIUaiKcrzRlz4AQa4PMYPQoSNf6vQoumQHfMFvToORRyAyM vkS3zoBHaUtFe/kocHjs/VxnZsBO/u0bO+YYbKcVj4punQWd7tNX7p8fg6xV B3Lqcmdh5xWZV9udxmBAR+Spb+ksbF3Q2jxydQwyNahzWDML6jv2bDh8dwwU mzHft3MWFGJWD8o8HwOvzj5FG4pC/hNDJ1Nbx+BMDLcWjySFZd+uGDTuGocj 62N0g4woLHJVu3Fn7zh80jcfpU0ozBP+nbTZcBzeVJgInTpCYfr2o/OiLMbh GMswRMmSwlfRW0tOXRkHmxPlA17nKfSx5MbJ5HFo8fX6HOhN4d5vfoqSkhOg /v3IQt5PZDzFb7WmshOgsXX+VEUmhbvt118NVZgAF5/fZf45FGoxvlSKrZ+A saFEdYEiCrdKKzpy9Cbg2k0r/c5qCteZ5mfxuE/A9ODmstFeCsVrxw0Huydg ULDkYss8Gh8t3jOr3D8B3pOWTBSiceHxyFi7fxNwJir2fpQwjSL/dk4OzExA UWrF68MLaRQUDIj8LjoJ0+K+f18upZFLd9XPNu1JsOny2/NJlca+XItrRa8n YYtNyIdYIxql/BtP+6ZMwgNb0c3NxjQamO01NPg4CTuU1+znOUxjxthGhY6i SdB51oEm5jTeXzm/drRrEuxDQrTrrGncFJQpJ7doCp6dH1os70Tj3dPin2/e mgIzjze9eoE0Zq+/n7bbZwpOPTS6IBpM4wiTJ3p+wBTUcQY/NofQePTxoFN4 1BTU+vLePxhOo2ptydLU9Ck4s6fIXiGaxrYtlx2//ZuCfG2GlVoSjavm10ts M5+GJflq8K+Ixh6fHveHJ6aBE5uEm0toDOcb7e21mYbV7OshN0ppnMMUS77r NA2bqXojvgry/SOHdtaTuGnwTV8xVk1jTGub7ak8EjdtfueNWmk0PfSr5mPJ NKjHSAc5ttEoXD+zQaBqGm6uDVIM+EKj+2cprjdt0+CfpPe8sIO8f86xoKmR aXh8Y0BYsJtG8djuzHvyM7Big/yyFQM01sqOyHaunoGPMx3/pH7R6B3FvqOq NgOnG65rLfhN48QjOYOmrTMwv/OX/9gfGht9Tn1fajoDTp8qS6KGaHxgPyD4 1ncGWtdmb7s2SaPOn2kHnoczECfRekB/ikbGWYEWk9AZCHm2ji09TaOd1eqY 2eczEBlxwvjtDI17D53fqE3i1jdhW2cBzUA+GD7WOjgDzbsU5lzmZqCT5gqe txMz8KmQ94AKDwN7th2Ov0fPwh9L5cE+4hyt7Imt82YhznOf1n4+Bjrv93kQ pzALtxyaPOi5DPxukLXxhvIsLFlF1z0jNjo42G66YRZedHj4aQswcK3pISXB nbPA1Z+/33MeA3+eWJbveGwW6PW3tn+bz0CTk8Y2eidnwXpty2oHIQYWnfae r3BuFjQ2TwVzcRgYfe7vkTbXWRgvGhoQE2ag6eVPI9uCZyFqSufbMhEGlrj8 CZN4PAuuvO6zT4g3XJXZNhozCx56ui8lRBkofOP2vRdvZsGtSySDX4yBZXcN V8z/PAvnlyhzShcyUP2eV0Vf3SxoTsQMqy5iYKz/x4t5rbNgubnQJYzYI3BJ 9qW+WaisS3a1XMxAycoRpd8MChXv/wxoFGegob4gZcqmMPesU+NqCQberZav KeKlcOaLaI0H8USt6eUnghRuMT84KifJwPqmnHxDkqcEKwPwgBQD5x5uDc5Z QuHZo6evBxNvbx22Wb2MwtR3lE8LcfKXFUK8ShT+lTkscFiagT/Mt3Y7rKaw 4obo7SBi6a+H33eupfDhppuNVcS+Xb5m6RsplLlkRxaFgfmWscryWyjcdfhX iz3xVHc2MxApXHVAMiiG+PT3oRfndlE4wIh8w1jKwKhTAldbdcj9XeMLVxE3 9snpa++lkCMjcuog8a4Bk9GlhhQOn0ksfUocIXyjxs2YQv9/h3cUEA9tepnQ ephC3yOVeT3EOsdrvDeaU2jZflGXJcPAyDuT1oEWFA65Jn1ZQjySJLN98ASF NnN+X9lMvKdpt7TeKQqZKkFKhsTR1MWpV2co7LcQHrAhnpALa+S1I3myqSr7 GrHevrwUK3sKl4duev2A+Jljv1+uI4WSDhlJ0cRT4cJnpZ0ptBstrHpDfCB/ s/aVKxS+uVgwL5v4Rb/lsuZrFAbOrrAtI6aEfej1HhTGnzT/XUdstCm17YEn hRabmx+2Eb+yaEv7c4esdxafZRcx4w4rcI8vhRcGLUx7iY2TVl544U+hk6fh 9R/E8Y2Ge7kfUrihy7Duf7OoqwqWwaROSDaafCc2lXvGzg6l0HhWT7ibOHlv RafEYzLfE+uYHcQ8jiMZzk8oFFg5rdREbBYuGdoQQ2GCuYR/JXFK3s5LqnEU zqUEVAqI+fptD/i/ovCr9K4FH4iPcoJW/0og++uSpvor4nfqmfy731B4+pBj dBixgEVv7/O3FP77YG7kTWx5e14e8wOF9kpO+52IBRvNXTOyKJR2l1HZQ2w1 62m8OI9CUfd48XXE6csTVZ0KKXTMNzZZTHzKgRpQriDjPaFbO8n6Z4WtKPat ovBL75RsHrFInl7Mz1oK9fIEy/7fPzlCUUdiWsj8BlzXMCMWUy/eyGin0MO9 XWAjse2xvwvMOymMGTu4S4h4caJmhdgPCoU5kROZZP9e3NOpcXeEQpVHbYk8 xCUX+Rb/GKeQt8iUp+H/+AhbO7pjmuxvZaHWp8Tlfe4Js1w09hqqMTYSL/eS kbafT+MimUV++iTeXBN2T30mdfWs7sw8YeLqevtGJTEaz9XoSdeR+HVblufX I0njrkjLqf3EjTmWtIkSjWN7DX9sIfH+R7N50ZXVNAYNe0hNkPzAnb1PNXIt ef5LI7lUYrVMdeueDaROBMqmyBEHfBQsv7CDxl9FhlMzJN/sS0kP9jajcfKp pKgTyVdWKmuT44+ROsLTY76U+Gry89IqSxpv3LscWkry26vE+zOiNjROs40G FxHzvT5pSTox7FOUPfp6AQMLYoTXfPIjddPenXpK8usX2TvaHQ9oVEquObeF ePjprAVXEI2nDm0frCf5WPZJ30NtUoctD7ZqcBO7R2RN1sXRqKthJHOE5G+N oDOFv3JovFQnNtzOz8BUrzwz6WEaB24eMtFjkvypUyrmOUbq5hr/xwVcDHw0 p7p6gNQtfWtNyc3E1/zad35kMHDVmvhqWfKvGzyxykiQzOPTZRYDszR2Pl8z 661IrktdsT1C7hMoDHs8eoxcn5oqKf1LoxXLoaOigoEr9x5SdCD1eZFUccNk FQN5D0a+aCL1u2KDxOcVdQx84HVkngax2pn8T+4tDLxgGuXPbqGRXbMgVO07 A7cl8aYENpL6H/nWMILmwvNqndtTa2j8tmms5KwqF9bk28tOFNN4/IJL6pxH XPijRfvjgnfkeWu/pMqHc+E+yufdrbc08v3DtzsjudD7wqToWCqNiefZ7649 40L37aVzWlNonLLzfz+UzIUz0SsnYpNpDDz3/GNrKRdeu1l23TiexuIzNdmv prkQLO04i5/RGKakllNMMfH2eIJsWAyp5/3BOT1cTDTIvlorQSxyxixXmo+J PXv7RWRIf2Rh8yMvQISJJ1VqjNc9IeOdmi10Xc1EO5FpU+cIGldbK1boHmMi txtG3yfr/OWU1LnXpJVcGHBcaSnx3TMcQYGTTMwL/5uYTPq1H+cn9T/bMvEJ 79i7+oc0PnUtrdN3ZeIKa9EJhQAaRe/btBkFMbFO9dYqtj+NBQHmV989YuLA Go7bM7LPLgYdkBKLIOMJbfy1i7gqbNOxpmgmrld+u8b3Hul/nvN3H05moo8P z/UVvjTOpr/sP1rOxL0OC6QDvWmMz3zsk13JRFeXqQPaxKY5D1YtrWUiUzek cPoOjWmFLnZdzUz0pBY4nia2r949dOI7E2N/fFhx4DaNS+vgYcFPJp7aMnNf kLiyQUVN7jcTl/ku3vPZi8aVbYudvg8zsSin470ecW/vz8nTXCy8mb/l2XFP sj597WGlbBa+0qALFYm3D9RsUeJj4b5lzruGb9EY9e+j24AgC/XnWp67S6w3 nCC9V5iFOwQzFpkQz4w+zY4XZaGP++OV8sSHp7257CRZeKHzk3/pTbJfqGvR lUtY+MypuSeC+D3j4g7lZSycX7HlpT3xAh5Tz3+KLIxa4H17CfFnISV+h40s lDjzpcrXg0aNs2d/hG5m4fiK0ZlzxPGF8YU5wMKl38Qu7yf2dVX2ENzJQhGp RyaLiWfqL1is12bhVDpPPk18VjkFzXRZGBAQ4f7jBonrHrXpl/tZ2C1lMJ1O nI5OLdWGLNwa6fIpllgpNC1t3JiFmf+a6h8Shw1PBEmbsvBX4h8dD2J+vc2O u8xZKOOFiy8SO7+4YmBrwULRjdraJ4j7mJlrH54g3x90u/4gsYk5NT/9JAud b7vl7SYuSdP83WnDwgjuWGFNYnXhG+W851i4SNytaD3xC9u8l2susPBBp9vX 1cSLill3DjqwMMVT9pg88W2ZXSevOrGwUKtHS5Z47IrXzhgXFprbb3kkTXyy sVi27CoLf1pGGUkSN67l5xq8zkKzO15uEsRaPrpfF95kYbn5SZH/r7/v9clE L7Iedqni/98vt/VzuLU3C60Nuh7IEAeGCbr6+rJwQYrllRXE7FF9k1R/Fs7d /rJ5FbGj/oMNrQEsvFcg91qNuOdlrQhXMAsr+XRGgNiILTIsH8rC0P5r73SI 848erNGLYCFloP7PiFj1Y3DSpSgWDqh2Pbckjl7QfC8imoUdvr1N9sTCdott 85+z8M6Z5Nv/z79Hialu/wsyn12v3wcSD8lGKHDiWZjH2XbyBfFxt3Ye9SQW xso1h2QSb1W1yPd8x0K12jivX8TJvk+fxn8g+/vvay0esj+W/vh2ve4TC9Un dPxkiOkIaw2ZPPI9G1o/mhHbjcWK6xSyMFkt4MlV4o79fRN2JSy8nHRGJJI4 i/vsu4xKFp6npl70Eq+xiH/YXUPWv8G2Yi7Zz5Hpv+3nNLBw4Rpnj3XEbucv rDFpY6FBYuHr28S/St8IXO8g+4svQ+Ytsdny4f7nXSwM0k1V/kas0XIpbvgH C7cvZS7eQeIrfl2ap/gAC3/M4xm/RCzhN3Fi2x8W6gSduPiKeGr7laX+Iyxs 1nPRWkTi+WO8e6gSFxsllCbv8JL4Z+saLgpis9FTJrZ3L7H+D7kQmo+Npq+N 1QL/zw8y5YH1gmx0mG+aqEDyCSdE9P41STaq6uRttyH5x0ytT/DnEjbWhZ4z zyKOq0m/Z7iMjXSP/GVRkr9AwMJHQYmNOc1qiaXENjdeedVuZGN5i8EhXR8a 30q7ccMWNl5cJxuSRExn6N+KQzb+Ppz6TYzkx6CxkRtXd7HRhm0aM0Cce1bT bYUhG8P2LRtLIPl1sXG9g6sdG4t0LdRDSH62Go4d6rFn47oFxb+kSP5Ouu9i r3+JjY0tOoWxxLvKpc8vv8pGcwuPviyS7+232pyp9Gaj8UTOUn5yHi9Voo7L PmfjMfbxcB5SP0RKqr/6vmBjkq+5ZjLxMeuYo+Ov2aigbyVt9pjG0Sgds4oU NiraiT9Mj6RRRvThIacccv+RSLeApzS60Ap6ZW1sZLpPeSaRPqJnO3/j8q9k fs7+eOfyguRPr37z69/YaDCnf6nWSxpl5yWcU/vJRiFYmND7isYycdV7kWNs TNgqlqOZSKPkBo2KixxuXHzH+osFqcdeLlJGn0W4MeDV8D799zT+y6C+yC/i Rm3JkHlb02gs3JE78EWaG8MzE68ofCT794DWXO1V3LhCvlxVNJPGHNv9uhLa 3PjBPoL7WOH/fZFK7SVdblSvj++4WETifVjYtHofNz5e77LQm/QDNq4NNp5G 3Ohm5B6fUUri8Y6p99/j3LiwKfDG1koy/zFWJflXubHeqiLzUxPJ963OWrYp 3Niszzp1m5z/1S7Fzb33jhtvV+vsriHn/2NCjdUJH7hxttvqkBTpb95rrTvy N4sb77Qypz4Nkuel/j5/sZwbN2qW2y4YpzHb1zLUuYcbD+S0PlvJ/P/8vvfX LTEe1HEKmctD+snoVtc3zxfz4LhRc3ow6Uc/X3rpVCTJg4xigdeKpJ9dHs/D xbeMB4u8k/Ybk366ZlGuqI8yDzKdILdsBem7htZrPtDhwY3dSmlL1RjY/WxJ wGNXYkn7rFv7Gdjv8XWc6xoPimkfz/YyYOA/iyjzkzd4sPN+v6uPETk/SS1R VL7Dg5EeCssfmzBwUZB0Tk4QD87rj9HvsiDnNU+pP93JPJitHHrntz05P1hL 6Cr94MG2HXmKi4MZmLujLcmvnwflTZbcdXhE+nmZcNHh3zwoaW3/rjqMgQ3t 4l2fRnhQIy7G7mEUGf+guPM+Ji/W8GQ7bX7JwBVai2MvSPHi8qe66+dnkv56 xUJmmiEvju8+0NlA+j5Ts+XPu4x5MVV1rorZT9LvBqjoCJjyolTqtqmeAXKe mt3jd9yCF+02jY/N/mNgbb27uMA5XrxHz4/aN81Azs1+1eNevJhlOVF7QogL 73/NPDH3Iy/qtBu022pwod8jq8Jj0nzI4YlrGSN94iVHd3tXGT6019K3Foji QrP9EVJBy/nQ7CDDeHk0Fyrx1V8qU+LDG8KHTh55wYXFl3esWL+RD6P9H2/7 /pYLGYdkb8/Zz4dDqn0NdpVc6CDaqfPuBh/mBv77pstioknAkYo5vXx4/wlH Rd6RiWPbY8YfZ/Dj84Vmbw+TutXVvdUpx3MObpXLfnaJxOmTLcqLy4/NxT/f B6guCR58fdNhvvVKAezvzP8n58+LnobHd3MNC+Cc/kUyuxfy47rWqDjP8nk4 6RxWkdA2B4PlQ1+X7xbEn+5H3DODBdAtyyd4d5og9uaLmYrtEMQ9iw1jSmTn Y0aaTJY6zEdN28LD82/Pxzb1sTpjRSF8LG4hWzY8H6dHP9knKHJQNvd54N7D QhgqbyzYJiaMfitzFKozhLDsbHnH2mlhtBpkVhUrcFBed/n46MACtEj6J337 HgcTV67+vaRABM+4H5jS8edgzszV7KpiEXQ4kNIw5wEHNdl5ZdfKRdBr2MHX L5CD4vfGvFtrRTB+4/hkUDgH+WVjw+90ieB49mz9s5ccPHuYEZBFiaJf9Ryf vEIOhu705vdTF8VHT8+evFXMwesTF/4s0xDFpxcrtmmVcjBXXH36g6YovhXx myit4GCpvfHdTi1RbDXhnKyp42Dw5hsX5A6KolzXwm2dXRz0pFkDnvaiuCbF WTK6m4N5SW1CgpdEUf1my/iJXg7+5b5uHOQsirpy4Yk/+jjYY7VS8+l1Ubxg Iy359y8HscHIOfGeKLpuvj6ePMhB7jPpfsoPRPHm3M7ai8Mc3G1C5SYFimJw wlPvsTEOVkqoXE4IF8Un15jWHyY4uPSlwpRSlCi+1D+x1XWKg2oMoZC4aFFM WVogoTHDwS06tvuWxYpixuDy8dlZDhZM5klGvhTF/wAmmEIA "]], LineBox[CompressedData[" 1:eJwV13c4lW8fAPDjHCt7FNqUKEkayOp7ZzSEJFLyo2RmJKNklKjMFFkN2WmI MrN39t4rZSRCZDvjee/3L9fnujznnt9xi5nf1Lckk0ikv0wk0v//xt4zZz1k 4Xl8U1qypKxF8PGqDlFtI9HL0Bc4lpc6bwPEtxI/UVFb2CAxK7ql0h1iy57s ZBG9C9+fcs8bWAeAvaqbw8rOQBAZv8C9khUNWZ0/khfVQ6BOxSJrwf0lrNtp D85bPwWpiSvUS0diQaMpbM9yTzikwsUL9hoJ0EG1iZjb+QK8nqrkEyZv4XbN Dtm/X16Cnp1WW31UKmx53tkwo/4aumqmGyoa3oG5FKL8sY4DL+vFOhfJj+Ce xpn/rycRitySeRxSM4BtYERyZud7+FwSdIr8Jwt6y4rdpn+/h5y7ZV3xFtnw 4W1M5Z8vH+CwRBJdYzAbdJ11zabU0yCaefT41+ociNpQEDVhnQEXQ76tMR7k QfYdLWcXkc8gVpuw5f50HryeUti84PUZbnfkzSkYfgXHVgHrf5pfwHYDw8le LB8EXteS53sywTaMRzU4pQCoPLnvnVSy4BF4tHuSC2HsQZLeXHwWbBbbYdH1 XyHkWt9789c2G34YPmzu5y0C4yNHlWapOTAVb5XScq0YEurjbv3ZmQ/SEqN5 mhWlsBiTIzUckg/Z+7mbxdjK4KR1w2j7Wj4EvZXvtJQug2nKimFBRwH4bL1/ tt61DI6p6ioF+hfBAHU1zYxeBsGcFgtei0VwccpRYWR7OXzvu5vmhMfZGbzb t1K1HB7eTtlxSbkEfkglpKd7lkNrBo0s+bcUUrQM9LzmykEANphyy5TBdavf K2e4KkBZIkLJ36IM2FiTzEMlKyB08f2CR1sZmIyUsfubVMDRsC5L84/lYKDK NPW4rALu10trHTKrhMyZ4XOSLpXw7kuexMfISkh+8l4q3b8S2mPUKHsaKyF2 8vbWnleVIG59qUhEsQqy6qrVNldWQj3loQxJsBrUdYR8krirQEh1QKDl2zeQ 2ps+PxpRBUjc6u9p+je4H6Q0nJZcBbac8w0VR2pA9vhZS9XsKijqY32UG18D s2q1g8XtVWB++/BKrEct5J12LrvDXQ3pGYED9jL1sM9oQ06MZzVMCUyFaF2r ByNT8+oF/2qQvK11fG9EPajv80hQjKiGeBXOhNG1evhhoVganFYN4XUhVsbV DSCyT6TbebAabo8+nT9l0gSNy5KTQUrfII6zwY9fsxU+rL7PFlv7BsdVPU18 TFsh0Cxe1ZulBgYd98v9vdMKfE+DBGb4a0CkPfhX44dWODXye5l7fw2ExWif CeBrAzmas5mzaQ347WnmIQba4LiyTtL7+hrYZXRvwmGpDYy05iere2ugLECm bJCnHcdfpg/rRA3Q/oTeKjjRDtb+d5RXKbXglnmu0y21HYY6U6JyoRasoe3F tHMHjN/4EH6ltBZIicsFA8EdcI4cO97cUgsxzNsG65M7oEy/ovPWj1qorbPa 8b67AyQEnumdIdfBXgNaoqVSJ+z+0Fd4/nQd/LaRTPvO1AUsX3MmLn2vA58G 7aamLV3ArmvUu/FfHYjIOM8WHemCqdAjDzlY6+H0QpHsK8suiPU4dSYFn8N7 b/0co7ouyEubzkn1rYcb4d4lrc+64d4BpRZ9+QYgLyUOl77vhtI3YYcndRrg pVEtKaOiG4x51y+UWzZA/TZB9SeL3WB/YibkWFQD7E99V3PmUg+c/ZYcprve ANOFHa0VO3uBEX4i3amlERzH941mp/fB0i7G+9mMZvhh2sdeXtcHDTM3C+U7 muFCb4BM01gfkDcGBfQuN8Oxhom741v6gb7FyFUKWoDyJYVPyL8fFk48WODp bIEYL7Hjd8wG4DUvl4u/fytwLLde9/MYgDNBNAr761bwvukT+DRyALbs26aU 97kVzM2HO1MbBmCdeDOe0N8K0qdj7XoVBiF2eOnIB9k2KBfc/EKRbwiiJhqC n4+3wdEntSWa+4dg0vfPLxZ6G7xldR87f3IIDknsLUnd2A4ha90Hb3gNwbZP 6at3Ndrh4nDEt5e/h+BaW4jQ5bftMPWBb5Fa9h2KzRd3U1w6gEPsoeTwsR/w Jfxv5u+DXVCrEnbwnuYP2ODjoa93tgseX3qjsF3/B4zwi+X8sOoC8rOvp67Y /YDFgp8hnm+6YJ0xbd0T+wOOX9kzHc3bDX8GDd+1kH+Cu4bkzv/WuqExRnJf WeNP6GRpSX021QuhfA1SCVdHIbIujEvk+BDkK2zP0XUcBVK7VcZWqyEYM70J NM9R8DRPiz4VOgTKnwQNjKJHofjkUx/h4SH4fcbEm7t5FLIyrF+E+34Hdb+Z lrvKYyDqmcDZ2DoMq0u8bvpC45DYQJ25rfETzAcMSimNv0DNoo6yWWYMblU/ NL8pOQVNH672nHKbgi9OXBdEzswA838Xej9cmIMET7spWaM5IOeKhnB/WADf ONr5xel5GOtuSb8Yswykjh+oyGMBiIzl+gTpNXg4WZLg8WABNJXMVLgV1mAD KZasGLAAsYODr2+dWAOBA5erciIXgPm1hPCei2uwx7/tVMbnBdgqxGMjf38N tJQrdBN/LYBdzn4TRssaPE9KMgnQXwRDSvRGFvt1kHC1cjeQWgLfNo4rYk+o cEBp+EKc7BKk6HzkEI6kwlHSpYNT8kvANG7TwhJLBbWQM7/uqy/hc4gPa06j gmmytMFHkyUoKXzbyNVIhajOfwfJT5fA3mKkS2kDDVjk7k9kLCzBsn9xpsE9 GnBRVyrW15bA68nyrRuPaCBQ7vRGk7QMPqK2YndDaCCqY244wLUM0j2+ug9e 0kDFUrOSVWIZVq8z2lRyaeAayRn336VlSF0o3np1mgZjS9EXOYuXYaFP5sTF C3RIPHHEZahyGYo+8F/hMaaD2ZPmpxn1y8B9a9/ukqt06BdnqbvQuwwvPUtL mR3p0HbBWfn1wjLMsR9VlAmgQ8kXbdEDUivQ3FpU+a+ADtEOTFO60Svw4y8x f3oLAwzyX7OKvVmBh/lBdqs7GSDAcmz3QvIKNJpezY7bw4DQ144m0ZkrwOz6 tKBLlgEPGwaah5tWINDIrW74JAOc9uVmOTGvwt3rM+EOtxigNX7DO/zWKvyr Fs66V8aAk9670zTcV8H1xm5xoWoGqG0a7F++twqqJr8XUuoYoKSpc+xKyCpk bqAUpLczQCrl4MLu1FWoMh2XshxjAKflok3O4Cpkm8lw2rASwE5Pi7YeXQUB VvGMxxwEMEdafts8tQrOmd++x/IQQKvq3n1vZRU+SJ6byREiYFo8//tJgTWY tIvd8USCgMYxb4PeU2vgfjcxsV+DgFoveb8g3TW4abJ4z+80AVUb/35RMVyD zmDOrXu0CSjSuMqbYL4Gouz34vUvEJCWrFZv670G8/bh6kbXCHhiwYaomWuQ eqhKhMOLAN2xZ/t37FiHY9JrRbJpeLz9Y50m4usw0EVhq0sn4KyLwr1XUuvw 7M6Ew5UvBJwmf28VUViHgw5s8Y65BKiJ7r8tqLcOvw4rruiWESBnUl3G7rsO +h6xwevtBGQnidw4FbAOMk6cWvJdBBz+Yyf4OHQdOGUcTe17CJDxELCivFqH d3IT0TUDBOyNMeNkZK2D/GWjXKUxArZ1rhkujK8DxUB/QWiRgJdbdYhD0+uQ UcrRvbZEwObr8e+c/q1DMFF3tmeFAKF/J6kzjHVgH91N8qUSwMcXEf9bmAo7 +Eq9zzKREEVb5s/QGSrUcfNc+8lGQr7PH0Rs06NC344543fsJEQa6FS9cpEK Rr7pJfYbSIhm6/ms15wKu1r4G2c4SGjZv1auw5MK54zZFdu4SWiq0tyn9hMV Rt68ltspSEI7w3pvhGZTocVmXrgB28BU19CgkApn+Z4Ku24koZJVRakftVSI 31Fxt3gTCYUf4O9cGaXCwDENERkREqpZf1xSPEUF9vs8RyqxaTW0d37zVPg9 9fSB4WYSsjL/7c1LUGE0ZGP1rS0kpBxdKim5hQbtQZvkA7eRkJOFnMCMKA3M 1j2Ps28nobeHPtIyJWmgvtEv7CE2X2NU23E5GlTPc+x220FCYyRHz4t6NCg0 D9KUFyWhzc2jltuMaCB5x3kxDlv31WW9kf9oMKV6iYVNjIS+ymnucbSjwQP2 6UtN2CE3trU8ekwDX0PlLcq7SahcITz/7BMaZPRxSj/DXmZmT+aPoEHTSmLe CPbVuAX32AT8ez2Sp33ESSjS3vb69Xc0WBjZcqEBu15xWGdfBg0CBYZHBfeQ 0NHO+l05RXh+4suJsdi2CYjbs5IGRebGPd+x3zjmrqB6GsS7ZsZulyAh9g2J jY09NLjR7zT9HFu1Wzgv/DsN+PcsejRgOyc9Sbg0ToPSfSmpJEkSGlK9e3vs Hw1CCvsmrmMLcP69+mGNBi8sHjGFY5/utTjrRKKDzGp6dTG2d0q/nDwbHXxG HBQmsDOd9URp3HTgHum/zLOXhCbgG0fFRjqQmflkj2Bv41ZZ8t9Kh9D4vcWG 2I9TJesF99HBj9OdPQK70DU2u+8gHfJ+/GnMwJ47IRgXJ0+HEfligzrsPbyB gZaqdJh5y530A9t4kOGyX4MOPARRsIT99L2r6bwWHQ7B1zj2fSRUdXvqdN55 OlhGXjHYjL2mfvWI9yU6gDHfoCS2DH/3dnUzOuhyMxSPYv968ss30pIO7hHb O1WxYzlWJibs6BA8tz1ME9vAn01HyZkOmlbhLmexuZhFMkPc6VDDy3vv3P/H 89krPHyPDpL9e7POY3vSj3kdekSHPl+3TfrYhz3O/PQLpoNyZHCqHvbU8uWT 3WF02GxDttfBTnS58XFvDB3Etjpbnsa+POfB5/mGDs4RLlEnsPkcgt2akumw 9V48kyJ27eSr/p0f6fBW/fl7Gez7Vmng/IUO4bwTz3Zhy48WJVfl0WGyVqFg I/asWdMG4RI6VPHt2suCnTI45GhbRYdmUB9awPtncnm2o7CeDgPXFQf/v78b uxnHeNro+B2cJNmI3aDP++ZqDx1UVUUrcrB9W3ZSsobw/z/QS4/FVtKWtWEZ o8OBrs5ZP+z5WtRkNEUH9g+6j22wr1Zci6Yt06Hw58cqaWwRcKbp0vH5Xety 4sJuKfS9lkBhAHOUz70pfJ+O5yTtP8nHgHHJv7UJ2NvejZc+3ccAV9MLFnR8 fzvFl8VHDjLAMynNqhU7OIE16Kg8A/7rKhpOwF5/KWnQp8aAbrlUhLB7n9j+ 3mXCgG3emux2OF6ecXjouJkzgP/3Asdh7FP+QZk1NgyYmfj8YgXHX67PRy97 NwZcTOe0uof93GWGLzeUAZOheiyeOH615uhu7JEMuBLolSWPTXbgGTB+hevm fWnK/C6cf6wOphCpDFAe6w+7hq17+ZbimXIGTKn05h3G+YIDlq4NLjCAy+aT bzTOP+4n9rLnrjPgQrwZrwL2L/Ur6U+ZCFg4HXikC+eritPl62q8BCwqc+tx Y3voP3n+XoqAmM5bSg5bSeiP5Z7q27iuBVjf6J8VJqHGEMO9/C0EXKe+vM/P h8/naUDzFK47T8TKPwXxktC7sELXqkECauI2jZCxH0aJld+ZIuCF5x67OZzP d7QuS/8lkxBryLBZGScJdfdVVBviedEPXxqQx/Xi1Izxyi5DPA7N45U0ri9v Nvp13L9EQqFZlQULa/+f58eMwSs4Dg7YNOWvEhAfRLWOMsf3Pqz6l9oyAeuS r3s3OP0/7j7FnZnH9dl8KH8uCJ9blkq3zASuV71mXiVlJHRu4JbfI1w/eyss mIylmdA+mRDDuncEzJ3o3+J9kAnllF6bikwlgK383NH4w0yI54bGivlbAuRL lax/HWNCrbVyTxhJBEQU8jU5azIhY4kXcipxBJzLLooJNmVCygnc7V2RBHxL 2Shb/IwJvaTy5yb7EfBdPOjMj+dMaEpLdyTQl4ClJMKcEs2EorKbdzs9IEA8 cSryTCwTctPqXIP7BPi+KaN2vWdCK4lb3Gc8CDgebV8zW4HnZz7728+ZgJyA KlPRJSbk+EEkstScgHdaDSL+q0xIr4A/qAif20uu9vYZKhNqe8Ryu/AqAT7P hk8WkskozlVcq9SUAO2YdZmLfGTUnhv+aNiYgJFUWSJ4PxlV6Rjp++P+pstW If+fDBmZM67ZvdXH/dH+4y6XD5NRxkm5nprzBHzKODshoUhGykPlxfx6BLjn WbWUnySjAfW46xW4X+KpeR23co2MdkmVzL86SQBTYNJlU0syUtRx7BrRxOep 9UGw2oaMLBqzLKSx+5rz/MNvkhFPSNWrGnUCkrvbbx7wJqOhh18oO08QEB3T ty/Ch4y+yvQMeCICgox/jK77kVEPpT5oAAi4+X3GqDaIjH4+cvNNOk6A0i92 dD2GjNg8yhwuqhBw4B3vet0rMnLpUAurVyZA9IZQtmwcGVEs13JOYLPM7t7L SCGj2bcrwopKBLQuHed7kUVGu5v3t2ofI6AyT7OeyMXrv2b8tE+BgNy72g+t CsjouY/uXVvsV/TLq0fKyUgzlHckXJ4AKxa3H83NZPSYMhvJJUfAlp11PdQ2 MiIf9+POP0pA87HtLXu78O9/4bezwZa3ry72HSAjo5g7v1uOEDD1aHNOxncy Stl4hy8A+02cQ9rgTzLi7imVUcdm7dj0Sv43Xs+kmWnFYQIKpm3Dr/8ho7Kx ujuPsR1ZSwKfzZJRy93EaB3sXaICD4rnychYc7pcGLtb0cp9apGM2A+lro8d wvt5oeCm8CoZbXVu1czBPu7AY61BJaN+f/PUAOyU+FzDN0wUFBsTW3wM+1IB h04DMwVNrhzw2ITN1WmqscpGQV/ml0yWZAkom8lU3sNJQX7mI7a92K5sbEf0 efD3NkPJJdh7xa5I3eenoADzZv532INKGWJpGymocOZFdgT2MwPK5j5hCtIa Fwt7iK3haMTHupWC/K9qfryDver/ke3IDgrK/PKD1RE7LYFgmIlRUKJFU6o1 9tXCC8sh4hR0W3UkzAJ7Y1fqTL4kBZ1XWKj9v2tnqWO/pCiI2a9Nzwbbi11v UFCGghoenT1wE1t2V3IHOkRBLL3S5nexx5RX6x2OUtCK+vGFx9gxhtoVLxUo yLtKcywaW/tmfH6NEgUN+7EqpmGTAhc/L6pSUGA/WqrEzk48/U7sBAW16GRu G8a2KXodp6tBQaWhm7Lo2Nu656I8T1HQhPuuop14P1v/aoS+06IgSf5QZU3s hxtePOrSweM95JBzxD62e8aLfJ6CuiVOpb3EnlY54XrQgIKmb80l12PHX4y0 MzGiIGHmz7sY2AZOk+aBxhQkESe9Tw6fP3uQqnHufxR0QpKj6CZ2UVLY+dGr FFSZMPn9E7Z4jyJStaag/F3io0fxfeude6Jw4wYFjbdkNnhjh3CMyEQ7UFBO wQf9euxF1aDt8y4UtNq8XcsR3+d3Rt837rhDQY1eOeXV2Ca3DnOd9aCgMce/ 46I4HqqS+9eTfSiI5/B1tRFs9xKZf21+FKShnvjgNI4f6V7fScZjCloTCvXM xI7g3N976QkF/Wd+8VMYjrfrzp45XC8p6Mx3B1tvRRw/h7/n7IulIPk7EcoE Nsc/lHsynoKOqn0qfojj+fMt1jyftxTUnH73+0sc7zSnsK+LmRSU5aL2Z0GV gBbZxa/8uRSkot4e+Rznj8S5i/ky+RTUGRK5QQHnlzNO2wpsSinoD23X5UCc f6JuphYONuDvy3Nmr+B8ZXuQo2itGZ/PpvOKW/B7UuWvfZFQOwXZjH22HMQe dTxcrNdLQcX1bTftcT6UdSwuqRqjINci/9jCMwTU2XeUp9EpSGGj4JIIzq+v peUr6kjM6PVn3zIhnH+dpmMqflGYEfOWitciOD8L2ZtWinIwo6hJvud7DQkw t5usihBiRkXui9V3L+P12RI1XgeZUW1RftYorg8t+8xrXxxmRsr+rwd2W+D1 TVbV5soxo3BGALKxxOuzDaqbU2ZGpNl9jXRrvD6bTQ0Wp5nRxoKYoyYOBBy0 3t+sfY0ZFXQeCPvtjuuZ7c6bnyyYkfOLBnoork8h9oJ8PDbMiEK/GKOE37+T t6jnWxyZUS7j9/UEXM+SvBq6znsxo+dM1LRPjwkQDrcbuhjNjMQPVeRX/r9e Rpjdy3vJjJq0B+6WRON8EX1hp8gbZtRWMBBT8oKAttfK1/qSmZFxgQbRHEtA cCrn+JVMZiTll1Mii+szUfRx+moTM5oXavddzyMgvTTuSXkrMzqWO+uvXYDv X8VzmV2dzEih8bdIchEB+TWeTqP9zGhuds/k9XICXNrPLlr+ZkY35HJDJBoI mJj4Q71BYUEaUb67Cobx/glIc7opsqAo/cLRSFbcTzo4TL5SYUFsl9N4SPh9 m16TXlMBLOhFRkb1/9+3oV6HHvKdZEGzwq4DOlwkpP1Lnv5RnwW5FeiUyAjg 91j+ib8jdiyIVY93pz3ug6qvGnXovWFBIZHUqf5j+H1WGPPlTgILuiSTIhuj RELJm/qfvknG49mkb72kgvurehPt6Q8syMQqaWwYSEjtqHm1fx4LElDdZsh7 ioTK2BzySlpZUMfL2+qzuK8qTPd9JU1hRR9VZ+M+u+E+TNtwSzQrKwp0c3Oa u0NC5yclXzBxsKLMt+dcjnjg99bupqhuPlZUeylYoPIeCQm+EA732cGKJG+H 1bIHkJCdX1pApyIrynVNjZZ5RUJbL3W7eTmxIrleMe+JSvyeXnq3+MuFFV02 0E0P/UZCX8I9Xc7fYUUm5ld2Kdbhfq9J9JbEPVbksjOhM7qZhFzU7Oxbg1lR xSlZe68+/D6QJl0XT2VFRTl3skb+4r6PSUqvcYgV3X+u8GrPTib0S4OzV+In K/rQY2IruQv3PQHTZg/GWFFzvoWF9B4mJM6bcVP+Dyv6LZn4E/YzocZtR5/G r7KinBfCtBAFJrTj2PFmV0E2pNsgVV2qx4QqHPW1t59hQyorftP+j5gQx6DH acdsNrTAybHyBvdV8nfecz/NY0M3ilOMpWhM6JpAb3tGARtKVWvz+kowoa+n 5f6bL2NDnGbfqYOsZGSV8/eWaxMb0nfMHzq5iYzKQy1eefxiQ4k67xdicR/l fkJ39rEIOzojM3nCCPc942/FIuK82NFbMR/Nn3NkFLF3M3O+4Qb0mOdgQMcB ZvTspVXNNVEO5Hcovzv0PgsyjvivmWuCA+XwJZ8Qm2VFqxopa3ElnOjoeb1L j9+wo9FxNfcKfy6kM9MaRtPmQImqh7Y2XeNGBlFVm6zkudCnR2781gd40Hbv W8UneXiQv+H1s5QlHrRi3bySOMaL5AYT3vs38SJWGZ1TWv/4UMy+V5+azvIh blcydeA7P7pf9iTmbD4fSohqmD7XJ4B0thqm1Ivzo/KBd0L83wTRCceaK/yB /Ih14ddj+ZiNKG6buXjjEv7ucq/OksMmJF6ZGqV7RQBt4vC2vSghhJ4dqJBq LxFApUuxn6wahJDVAnNbnZQgWmoulUi1E0bmX/6JBj4VRH3faK2fZoWRve8F mlaYIJKXNLnZNCeM3C5k93A9F0Qvgr3i/vwTRgFLbqHPogQRY/FV9u4VYZSu uEaNjhVEQY1fMnwJYbRWTnS//SiIuAK+dlF5RdCzdq4nVTWC6HJpsWn/QRH0 MsnB5nGdIDq6uZ278ZAISnJtVj/dIIj4h29pFx0RQblCz9YbmgWRxfUD7jEK ImjQWNCmo0sQiQklBQCIIMnRzeojo4JIhS3M/7SuCJLN9tiRPC6IAgYG9+/W E0FKjwbWLCcEUc9/+ma08yJIWzL28+SUIHqdnOnywVAEOduJ7pifF0S9atL6 SyYiyEvlwVrmgiA6pvr2ZpWpCHrEPdLpuiSIhOJPbgu/KoJiMpKCV1fxfP4x 7d5nIYISfZitC9YFkdpXMe9/liLo43lLNS8aPpfnt6wKrEVQ9q5v248z8P5s WfruYyuCShYk1ggCr8/s8y9NOxH0P5TkqCs= "]], LineBox[CompressedData[" 1:eJwV13c8ld8fAPB7r1GhcC83LSNCVpISyecgQkulVKQo0aKU8S2aQoWMQpJR 9oisMrL3zpaRskXZ7njwO79/eL1fz733eZ5zPutIWNmfsKaQSCRd/Of//98/ sOLeefm+1u2LKgLKl19qlbWIHzYVPwub53uzSiZsYaWi4Km4+FWYrFr94FKO C7wv8hHjEv8PGJJ316uaeMGN/Y43F8Weg7F+Ydcv32DIaO2PntP1hkqf85+t jEKBdf1wz7TNK/gxYT9+lBUGB+r9ty10BEB7WoHzyqYoaGHbvp4Sewv/Rgi2 5fpYcKoUVf73ORS4jxLQahAHGwNbayd1wyBkmLFhnWM8WMkhjj82ESA7v2NB tCARXJJ5c2Y6PsB9Xs2SUKFUWNX9W2ZSLAFMhc5O9NzKgM6ib44TowngWXL9 StNABiTGhpT++ZwIlCl5SopJJhx1OHphXDcZnJPkypByFgStyQ0asUmFOpMd IgmN2ZDpbORwRyQNPqD7GfkqXyBsXG3DrGsa5GmHKywEfgG7JqrNjN5n+Hpf d3HR+CtQw6oo0x3pMMFUv0bKzgH2uuyEW5oZsNYsoIuPNxcGH380norMAMFm d2kXi1zItnkQ/u9qJnTIcVd4kPLg3C5Vjb/sLAhT8SGQSj5E1UTc/iOWA9Ka X1N+Hy+AuZAsuZ/eOVAg6igv8aYA9G1qB5qZOeCa3fXyX3sBTHAsnsptyYWe 7YLu504Xwt79RzWee+aDQcn3xPdbi+Al7+VZ17l8EN6UkTWkVQR9Xf8l37L8 Bu6PY84FnisCd6cY0TP7CuBFvUaUol8RNKUSFJl/hVCzavZ54VwRUGGNxVql IlCKa+EJ4iuGfdKvNTwvF8GeQkrcpGQx+M4lzN77XgTDaxknFY8Xg6p/m7VV UjEMFe5PMYgthoc1CkY7L5SCseTFrNj9JRD/+Yt00ptSyNA+67j6WAk0h+hw bKsrhU1GjnqbL5aAlM2ZfBH1MvAedDpo/bgEajjclUi0cqjLnfevLioB+v5u amNFBdzwn0vevrsUPqU+776hVAP9OZUbjnOVwTh13NvIsgbO1WfsWCVYBjJO Rlqyr2uA6zyzKm9zGURq8kYNMGsgVdh4Ulq1DAKqva+cK6+FpqDN7cqXysBp 4NX0QfN6mPkgeflSaRmk60992PaqHp5v3xrxtbEM/iUYm3CU1ENC3j5CsqcM bG8JfimQaYAuaT57nfkyOLcU4Lp7tgFOn3saUCJbDhG8tU8F9ZqgaP/nl0Nv ykFr/33zRxZNcGHqoYZqdDn02Mnv/ufcBNkx1z2S08tBpPnlcF1iEwiVpR8R bSoH/5DDhl4C3yGI0aQqtbYCnm5rWLfS/R12Kpy+GepXAVtNH4zcnP8OA9md pUtRFVDkpVTUs64ZpJrlXEIzKoD443s7V7sZEtJv337aUQGO6cdaHeOawcDq qLL81kqwge9vJxxa4InErpCnpZVA+rCQ2/2yBTzerJNx6KyEEM7NPTXRLaDd 2lrycbISqqqviCa0t4D7+by4ZpEqkDUhPlhrtEKFRqzmLYcqGLWVSe4jt4Hw ymZ3uV3V8Kj2cH39xjaw5arc7He4GkSUHP7m72qD9vWaCdpXqsFgNl/5nXUb tIVMuL0IrYYEtxNZptX4+pzC50LuGrgW4FbQ5NcO8Tv9Dwv/rQHK/IefhQnt 8Pe6tttNvloINa0ipZa0Q7b6OUER+Vqo2UzT9Zlrh5nEvWnWV2tBPi6+0vBM B/Q30G3+jNXCRF5LU4lYJzSMhpX3serAbmj7QOanLsg2kz03cb4R+i26VhdX d0Hvtn7Ply8a4WSnl1L9YBcsC/y9GPilEfbWjvw3tPEHpKQXFdmtaQKOzzEC dM8f4Di0j6lk0wQhrhJazhe6oauQNOej8B2KaRveqgv0gviWyIbCvmZQ9akq 0JPvBX/O/voIdjPEcrsMHtfvhWcJtg0ZIi3gzWzfcc21FwL7n3s5n2yB0z9f V4SO9oLCY6HY67UtMJ4oMMcu6gPLEq3l6bJW4JFwl/m5tx+mrlwOTuxthypN /x0P9PqBaa+2wW25HTzOhKttOdEPHBn+If+JdQDF7+tBs+v9sEu+adWUZQew lidsOt73g6bZZHvDaAf86TkV30j5BfaKo1qqy51QFyKzvajuF3BLjqLn+t3g K1ArF3VxAHy+8jdVSfRDjtqWrKN2A/D8c9s5P/wcgxb2QNwfgNzYrrGrx/ph XwrNxDR4APKP3Hp5wq0fRg3N3dY2DEBAR6/wQlc/6D6dbPxv3yA4dDal2QT9 AsY8v+MJ+hDEBJ+QYm8cAKtuk0KOumHI3hLd0mU0DLfL3a3sZcYhMsPU3GBw Aj7f4jspYjgJaU3w5LbXNETdvz6ubDoFG6408/1InAPlojUMz/NT0Li6bnYw aw6KOOO5fl6aAqNTtTvGi+ag32dQ3OfWFIRsmfccaJ8D0cjzpmPPp4Al83rA jzIPoWXHyqLyp0Dc61VV45l5CFirGk7dOg3vePRWp5AW4EkEcXxuYhosc77/ 8dBcBGPlr7flZ6eh9V+pWqneIogW3/G3Yk7D4s+Ot4yji5D7e7ypiWsG3v76 +uqo5SLMbOs6liI6A1b+B5tiny2CVXLWkSvGM3Ak+KcGV/0iaOfYGXZmzMCK 8FDLxdMMWGckd5U/dwbaKK5pXy0Y0PNjyEu/aAYyTUxU19gwwIUwr8qsmwHb xwzp184MSINDB/2HZuDSUJfd8RAGiFfI6Bmtn4U8x3eXbToZQGrpR/n3ZoHd 9pI6c4IJ7mMFUfcez8LFmYuG7HNMWEN6T1H3moVAibM+bCsmUBXPlmW9mYW6 Zxx7fjkwYZvn94OpabMQZJrdhwKYYLSv5OiH4Vk44R1nadzIhMCPH829TswB n/L9qgQdFojkPv6mf3YOrmRJ3A8wZEFY0wVRrotzoDsuLuFgzILYpU39j2/O gWJi1EG6BQu+mr6+dN9rDmzipzlnXFjQw/vsml3BHDB37Y9YTGaB9N0rLiZy 80Bi9RJoHRsUNX6ejFCeh3RF6RexNDaoks7sGN8zD+uEQ45xbmCDjrfh8EPd eUgSCPeKl2SDRbSCSZL5PHi+KugJ3MuGoNaZHZRX8yA32eG8eJENXLsfjqTO zsN0dFzMShIb+NiLJSzmPCheL4iwT2MDtfhWuB6OA9LtowKdmWwQP2J1qptv AXp6RiwCvrFB01qvlFt6AS42KrKSG9hw9w1vxPkzC7DpvdIz139sGJwPPs37 bQHGdRTs38oT8EF7153e0gWYTROZsd1BwAWfhlepNQugNvuER3kXAT+kuKpP di7AP883a2M0CPh+0mFf2OwC7Irc3y1nSEDB58PiinKL0LF2JD7hMgGuSyOa K8qLEH2AlTxnQ4C64dOz39UWoX8LZ4DadQIy+3MCHHGcppyXosXcJiCRX4ar 4OIiHOb4/EjsAQHBN8njR4MXwTZlU0TQGwJMcsK4JcJxXLpMSViFEEDl2is5 G70I6To2P7a9I8A3zM48OH0R3v0IpARFEuBe293wE8fxhuuyDRuSCLi1PTvj FicDFJuGLDILCFByPN6kw8uAquydf7iKCfhTNDEhRGUA96ISj3EpAVfOSErn iDEg3jJQpKGSgPOefiHkfQz4rkWSdGgiwGjomlvAbQaw+c5eudBPgL6bZPIB FwbU2puZqf4mQEe458fCAwYkUju9KIMEaOgd2WvmzYArmQsxL0YIkIvZMSsZ x4AvfFLBRn8JkN4/KtGewgCvYOnlsX8EbG2LNPbKZEAy+XPjk2kCNnJRP00U M8BZpaM2co4AXus526weBnwI5urxZRGweik52GaAAQqZOUYsNgGcb6wrNowz 4P2hR6YXlgggytolHywyoOSSkzWdtAQTUjl9+lQm+HK/4VXnWoLR/NtrmSJM aDQ6IOnAvQSDJnKaSWJMkBxaWBuzagl63N+95VdkQvyKrjNjzRLUDbqZdB5k wkxv6unT65agynXP0xdHmUD0eZRa8C9BmdC/z5qnmFBeHaVuKbAE+Qcu8kfh PJ5z2XrehLoEydE6NVfdmPD4SrvOnPASxGuyGZvccZ4b7cyrpy9BdGuGTMML JsivN7obtX4Jwji3PVMJYcKm1JoytQ1L4HN5FWKnM0GiNChafPMSvCAK7VJy mLA7+9hoHbbHa5f3F4qYYDp9KebOliV4UDbGKq1nwkS6Vnya6BLcM/+w3amV CYmtFwh9sSVwmjt3RrabCXcv+A93YNtJ1WV5jzKBK3lV6Jj4ElzLdx/U+seE UsvK29ckluCKyX7a9DwTBE76EEPYFu6fbp3iYIHJt8MG9VuX4Nxmm4hVPCyY lu9fry65BKczxRpyBFhAS075EoF9dNBPXlSUBScHTz47L4XXU36w1VyKBW+S i9akYh+6o/bgnRwLZjMeSRHYNbkvZH4os4BrOaD7wLYlMKD0NYmoseDPbqbq c+wKw533TPezoDX2y55qbD1/d8kgXRbEqLYNc0ovgY64vBMN17l7XKev2WMX 2TwQO3GaBbuqWwzDsSH1e5WfOQsehg39q8IuWJByaLTCdXMq3OoftqaWy6Z1 V1mwP0o4XlBmCXKf1ZYdtmfBnRnLih3Ye+tF7V46skDKPbzUEDtbyGF9zX0W OB0ZjbmAvdu8vGj1ExaMv7a4cxs786PItYNeLNg+tlXlIbbKn+s0D18W5G84 O+qFnaZSmF/2mgUDO2TCfLGV7lGvcLxjwRGbrJN+2MnF1vw6USyYlFYS/v91 +TU5Xx/FsaCO+W3YEzvRmM+qMIUFDZ6BDW7YsiEXeJczWBDu+7PZHjv2Z3qm Zi5ejx+tzPPY22S4Le4XsUAU4g0NsKPtzq7KrWBBkJ9flRL21uzkNEYdCxTC Klz///6RSytn1VpYcEbi2Y0pvD5ieic5nLpYEFmzOrwWO9w7NjnzJwteSfut /4i9uZV5anaIBYmRZj+dsEM3HVnZOcEC63spbH3sDZci42/N4PuXVTvQsOkz +uzJZRaEVt97EYX387V6aLQCFxtKbkeqXcKmPZ48cp2XDdkm6WcksAUEXkeO rmfD7N5G/kAcL76mI4Yyomygebqk62OvjdCYtZZiQ9s7o98LOP54lH7pDSiz IWv9F8oRbI7DSn96DdkgOyjDaMLx/CTw8evNxmy40/Qk6yo2qbt1v9lpNuxh Vqms4Hwgrt7367RiQzIR4CGOveBZtbvlPhtibGr09uP8utu46afgEzY4KW/N ysf5N0u39zL2YoOUzIP16thTMcLd9a/ZoNs11CCL83W81OpRVQobJhZl8gdx fov5d17zxX0tFZXdAWwTi6OnTPLYMKT77XuQCI5PhrpcfxUbDpbFRO3D9SFA UbB1cYANfe3ZzhZCS7AvuFBGZiMBYuMfdgng+nTr8m7qpDgBcWlxiupr8f7v TCLSZQhYV8Z94gIfXr+6oO9au3HdrJjW+MiD6x/J7v5pYwLYOfaOPLj+eV/b 3PjMg4C7nWcazq8QUKwWkHPIhwDmjkjj88sELHCujhZ8TcDe5unH53C9vRgx 6/I+igBFfDI8iuuxamsNXggCPuV+at+4SEDv/v+cBmcIIK85tv0Erv9Kgu1b dC/8P241eR26CRj2GX7yxho/55GpR4d/EPCeZ3Fk5PoSkBciO7d1EcDHKZLu 7YLz/EKdQVs7AeMLZ/Xb/ZdgZnFyRKaZgJieXrurZUvwkTePHVVFwOb4ocJX 25fhgfT2jSJZBPDAvGXP7DLwVHtouOH3cNGWXZ3NWobfC9p75Lzx/XXNPr0i r8CUhGBTxwsCSgyKWTr8K8AAg2VVLwLunfAJTJBbARBZJcN4gvun9bZyJ8sV 8PxekRrvQkCd9ylZwcYVqHQ9u2MczwMar7waxttWwIJSZpV7iYB4/7y7ZT0r YO9is9PbCvfrIIli5/EV2Ci/tVD1IgGiTQsK/ygkNPhvy51QMwLau0rKT4mS UEjA8nDBCQIOTp5b3HqKhPqoOp6ROgSECz1teXiGhEIvxdK+aBMwty8ptceM hLbNV1ObEAGRL9g2QVYkpBES5r4GCDxnh3WuuUVCZ5oz50L3EWB8rCzzyh0S 4pC701aO55tYpwm/UicSos1uuzCrTsDJck1DNzcSYrWreZ3eS0CyVW/O1AsS +qLQ8mc/jhvKC66gI74kJHJqfeMDVQLOfFZ0SPQnoe273P1K8PzERXogdzmE hP5ISFWdUCHA4r3ou44YEuL2jisOwvNWZpm+s2oCCf1d/d+Rf0p4fybsTvon kxDvlfA/RthfNAp5D2WQ0Ju/CS68igQIdF5wLSgioQdr9j5Pl8PzyornmU1l JPRCRMNMCjtfOk3VpZKEsk4kOrzdTsBVR9LkzgYS6q3nf+kjS0BRmGy173cS OnIiOIQPm15mHPOnlYRSH3/mfIXzooQadT6mm4TmvvoLhksTIKJRrU75SUIm LyoK5LDtLKeFL/wmocqA6wO52wjYlKbdIDJGQgmv05OGpHCeHPmt5b2Ar4dN DlhLElBzl2fTGJOEJvNcGeuwxcNUFvWWSEhqyCIrbysB9eNPUlc4yChytRoS x5aiJr00X0VGue1KGzslcLypt9jk8JCRmbFbZiC2tJek+B1BMkKMv9p0bNfU Q0SjEBkxfvxFvTjPm9vvdCqIkNF47fL6eGzZ5XeZzzeR0YwDud4J++G2Mr9h UTKqKWu1NsRuPzxxQ3crGfGTToyKYSvcFTKM3EZGholHzrHECHjyTnPbkiwZ rfIJLu7E7iy5TD6nQEasdJZkHvaU9o+NbjvIqESWLfoRe1XxMdVIFXx/6vtQ X2xRVH6kdDcZESeev3PD3lOoYTO8l4yWt1tL38I+qpX2aI0mGT3Y0wxXsK2/ bQtVADJ672A3cQHbVfNdxjEdMtqg0qp8Hvt1nkC9gx4Z3RIPFbTATtbwGH5j gO+ndTLQCrs0h73y9RAZ5f32zb2G/WPv7Q09R8lIJqPzpRP2zJdhlZXjZBQW 95XXA3uNmvnhrafI6BdXhtZbbPHs79Z6Z8jI6KLB9jTsvbsPPrQ1I6O6wPnG GuxjmfkhLy3I6EzFLrUx7Cu7VNI/WZLR38sul3jx+j1Ij6v9fhlbYvfZndhv dm4ZmrMho2OzHZvNsJPTApbXXyejMYHadC/ssh2rRfbZkVHKzF2xXOzuT247 LW6TEeexvTb/sHlSbC9HO5PRyoOnb63xfm9V6HOrvEdGNqPfvGOx1ZNOBo+7 4feZc7rxB9s2QatG2Z2MUh9GUh7jeHokmzlw0pOMTurFFH/HDo7bvuT0gozW 7z3+QBrHY0WMkPI3PzJKMHpP7sHuk3ph2B9IRpI7Mpo0cTzPf1yx4ggmo9WV Zp+isKU+jL8xfE9GdnbSsc44/jUlLqbeiMTr8SqiahT7ZGRb1auPeD+fnuWx wPnyJLyI3ZZARgOhNMIE51folj3CzGQyGp44lNmO/TksSWlzGhn9vrE7zBzn Y39okKVVNn7fOEteR5y/WsE3Kv+W4PXoVOjsxOe10/Tf/YIVZKTmvf6hqwIB N9+YslSryejxjS5HKVwfwgJ1FO83klGBSZLVY1w/WK9EAlf1kJH5iEyc/U58 fuL3TZb7SUaX/Dw19uB6tN2Xo+LIbxwv+8Y0ybhenfH+ywgcJaOX48T7aFzP srzKLMTnyUjC6dU+CVz/4o1qRTwZZFTsmBEthutjKF9z8ySbjJ6xBmwkcf18 5PdTP49CQdd+avPv0yTgcAhL6bQABU1LhF9OwvUYzpHH8mkUJLrIFG/D9Vpl 8+qPkuspyL3mkTmnLgHrI4XXT2+hoGe8uy/d0SPgd5zyykt5CiJKuBVfGxHQ dlUtZ0aJgk4fTrs4foiAKnmtO2dVKCiqTktN/wgBKamHRqTVKchUx61vHe7j Ll+uNBbrU1DLdhvfwVO471eGRSxaUlCyQaJsDO4/5Ocfz1pYU1CBss0LU9yv 5owSaeW2FDRqrNfMf4WAroYvngH2FOSjYicVcJWA6PZme0U3Cvrvr4N23y3c 34ZXo0shFOS8Kqw0+BHu+/H8rOp3FHTbP808EfdH8Wv0TOUICjpv47ih1B33 g7+SsssxFDTYksS36jkBTfNaAm8zKMhoul6ryx/nE5djf0MDBY3Zy44kROPz n1h1B/s7BSm8Ur+4EEtAw94tjbJtFMRn1HPJIAHXkxvl35504/tF+wsvpRDA 3SL8bs8oBSV+HLyR8AXPA5HZp8LJHKgkTERJoA7vby7PkVpODvTAdOvz7AY8 T7RaHGCs4kDNuZ+Crb7j+r1q1a4T6zjQieiZzlo8XxywMxXg3sSB1LbGKw38 ImBwH6PmpioHqjF1UZBhEhBy6nBJqBoH2sLK79hO4P22j8yp1OBA4CVspoLn pcwPBvES2hxIPdtnxgSfN93XvH3WdoQD3Rm/G9EvuARSHepovw0H2iUTlUNT WIJLDvez+EI5kGd46dGFy0uwR6Uva/t7DuRhxd0bbYvn1xmUrR/JgYqsenXO 3sDnhdvcXx7F4t/bZviu5Q6eT2/5f51L50DlcRC/7ukSBNnH5fXUcqAU+3a7 iA9LUH2jpTh5iQP9ZGQVqg7j86XCnpJqEieyvz/aGzmO58WJkJJhDk7EjJUm qP/wPH7DolSchxO9yanTXMNYAqvrY2Wv6ZzITUpofD/PMp6HVypdd3CiJ9o2 JVU7lmGHjXzDYUtONHJmx9prD5eh76qYfcplTmSkaf1+9bNl8L5BE1hny4lW vY0+9+nFMozdZh9vtONEFfzjFvxBy/DRtbbtuCsnas4XjJRJWYb1Add7Twdz ohtm6Q8/9yzDSn7SxMV6TsTiVr+nqL0CjVQFXkd1LsS88/vXED8Jad28OfZO kwudSelQN6eR0KfKT5UlwIU2xnWmt9FJyNd1p7uAPhdK2bBqVfMWEjo8vGcp 6QQXMpicUp6SJ6GaHO1/v69zocKaX4dKDEio/KJpi3E4F1Ke+Hgwz52E8j49 eafAwY2kYzSGRrjIiPvwqY3B3NyovCHF4QHu08fHZN6SebhR9mjdCxF+MhqR rA9qF+BG1pEfTU1xX6a9XR/wSJQb7aYbHFqRI6PrT5O9WtW50eh//Y2LxmS0 6Uy7o+stbmRvcd3LPYKM7pPljOt68e/x/E1oxHnM03PPwC5zFfpIZURHZHKg oViJ1xGuq1FL0vWh+Z1c6LXsBs6cU2uQ7Zxn9JE5buQXeqXSUpwH8Xxt3D6Z sRqde32+gW+EB+lpXo/76cqDGAdimBEFvOis9lTsXRc+NDCk41LiyYdQsyM/ 5dQ69GH/zk31lmtRQsnoGEVOAKU8cxS0UVyHBF6F/9lMFUSepy4d4phfh+js OA+dCUG0uycqwbOeH/WUFYbx1FJRyPZ3KfWHBNDIaKWm0UsaeljkE3IoRwDN rGM8XmcghI5sOhVTIyWIrj28WxX/RwiFDCoVmUkLIr2hP0H9k0JoMGV194SM IJrh4pNePyWEXFG+AL+8IIJEh2eP5oRQsrWk68mdgmiXuazugSUhxJM2faJn vyDKMpLzfbVOGFUe8CX9PS2I3h/m3KiqLIy07SrNBJ8LIjFSPEq2F0aszjH9 sheCaLiH2pl3Wxhl6vKpOHsLIv2w8InqO8JIesPx1b2vBFEZZ7j3L2dhxFf2 IzM+SBBdCuOIWX4ojDo3/F2LogWRaHy02NQrYXSrXKjIrhB/X5U/PPWTMIrY bCVVNy+I3h5Vr34/Iow0dskrWS0Koo+iXf47xoRRq+GcGoMhiPqKMriLxoXR amePQ1IEfp+9KvM9k/j3vic6uFKoqK9/wzD3nDBCHrNFCvzYO/eIbSLR0e9/ 7ud9ZKlIdl2ejt56OnLlPmojKUdFz9+uxCaL0BF9y/rbOfJUtHVmYw51Ix0Z GSW4DylRUXCk9MiPzXSUHl2ftH83FUnw9d0w20pHT8/SWZPa2LWvVbYo0pFU aVzQUTMqMhOKNYvWpqMGBUZ0jzkV2VRvv9WtQ0cuQQYZ1yyoKN23X0fwAB3V Xh1r9LCkIiHOK5L/6dORg4D8mkIbKtolcL5V/RAdFZ7/dH/HXSp6khNOe2hC R+cYmRcFfKhIe7Xp6o1X6IjTiss+3JeKjHkqZLbb0NGn2lNuCn5U9IhK51Gz pSNyxMJbg0Aq0hhcJXLsGh3F6+1tefSWigQ711rcsqOj+YA8vekYKtKPSM11 dqIjP8USueYCKkq1TVjz7hn+/F6zNU+KqKhZjdc9yAM/j+7cyM4SKvo9Yu3n 50lHf89Kx/iXUxHXsNjFR8/p6JDHC7HjdVSUecp54KgPHXH/PCHU1EVF6hea cuJe09F9v4Gl+jkqavcTLDT6QEcB71x73BaoSJFvJ8+Gj3SUGCucp8igotdd 5Okh7M78gy4+bCpiNawNvB9DR3vGkmYOU2jo/SM9laB4OprSvjtSy09DSpWX 5Z5/oqMrs5zfq+VoaFvBgye2OXRkkXigwVyBhgYlt4iTcunotKV77T9FGkr+ 7OEfhK3fyFEhvJOGGj1Wpgrz6Eg6iZJnqUZD/ZtckjgL6GjIihTD1KWh+BIh 09MldNSzAX3w1qMhD4rgmW7s1qaHEWIHaah0dJ3KhVI6KtNaeatnREPI2dbh UhkdRW9c9vU3pqE344JKFhV0dLmZ7bL9PA05+0Pf5ho6Mn++zynfgoasoi+H vMI2QffvHLtIQ9K91J3kWjo68Il10/ESDRXedl7px5Z6wbQqvorrgsD1jYH1 dDSgvXj4rBP+/iPD0OImOvrB2GM04UxD7cctbLd+p6PmVKeDD/+joU8izRuf YJdsWdCOcaWhjBunlbSa6egDc27P9BMaMv5ruTGhhY6sPs+IP39FQ/OXFs2M 2unoxpOThJE/DU2K7i/9gO14MrODLxCv/9ryJia217yjr18QDVVH1PZ/7MDx p85kB7+noZO/Ng+OdNLRV55zHWcjaGjk2g/v3V10VNydm74pioZ68/X6H2O3 urlejYimoeLyS8/pP+iIWbzSHptEQwZ1nnM7uumIEngx3TaFht5O36Pcwea7 XOwjl0pDv0Q+FmZii3I/PfApHa/Xlj5D1R68Xkbc6Vk5NBR6TPaTZC8dHd1k 4+OcR0Pl/WN65timE5W26t9o6HnWE/9A7Gu+z8W+FeHnUQrUX8b2a+bzKauk IbEHWXvL+ugo9ONNW49qGoq5lPlwBvvj3QZdg1oa8tt78KHYTzrKpvuxahto KCDPN9ERu2hkqs2niYZW33LuCMeu/nr887FmGloWMy+swO45R7NtacPv8/tZ CbWfjobl7+q+6aAhIXnKzz3Y/4hWUdMu7B+jX89iUyKC2n700BBN0TbuHTbv rcW0sD4aMlfY9y0XW0j7jLdFPw3JGEwGdGLLDGzQ/T2A47nF5pHALzpSzrwn Gj1EQzdzb76Vw9Z41s20HqEh+8T6u7rYh2Xep42N05B2w0bH29inGUsvkyZo SOuFwTsP7AvVFjY3/9LQ8QvHPUKxHa6Li05P09BV//9SCrBdNR8z02dpaMqt Z7wB+9na361352mIERX1rxfbt08nbc8iDfFkXc//gx2S+vElg0FDaxp6jzOw PzzitMll0VC31bs0jt90lHTcWseVoCEJA4OutdiZWyu2aC3TUF+aVx0du2BW mrmyQkNySuSXotj/AzemW1g= "]]}, Annotation[#, "Charting`Private`Tag$13994#1"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, 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, 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, 5}, {0., 6.436487292211214}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.756317702898321*^9, 3.756317759582011*^9}, { 3.7563177981517982`*^9, 3.756317808511766*^9}, 3.756317908846867*^9}, CellLabel-> "Out[112]=",ExpressionUUID->"546d5a4c-749c-4696-9b98-a6bf7101163f"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.7563177693847313`*^9, 3.756317787086705*^9}},ExpressionUUID->"c40feeea-4731-469e-878c-\ 86e8d34f14dd"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalF]series", "[", "2", "]"}], "[", "1", "]"}], ":=", RowBox[{"Gls", "[", RowBox[{"[", "2", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.756147324776352*^9, 3.756147331403034*^9}, { 3.756148892919414*^9, 3.7561488961570253`*^9}}, CellLabel->"In[21]:=",ExpressionUUID->"a5368558-8afd-4b9d-a56b-08439c16cf62"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", "\[ScriptCapitalM]0", "]"}]], "Input", CellChangeTimes->{{3.756147461151421*^9, 3.7561474626131277`*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"cb87a772-1cbc-4de9-81d2-0b8d8b0bc7df"], Cell[BoxData["1.222409953716735`"], "Output", CellChangeTimes->{ 3.756147462824327*^9, {3.756316283043679*^9, 3.756316296271015*^9}}, CellLabel->"Out[22]=",ExpressionUUID->"91a22ae4-3740-4441-828a-497e033c7d41"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}], RowBox[{"10", "!"}]}]], "Input", CellChangeTimes->{{3.7561481837468653`*^9, 3.75614819348151*^9}}, CellLabel-> "In[109]:=",ExpressionUUID->"216fa489-443e-4ec9-9417-7a8008940c1b"], Cell[BoxData[ RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "10", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]], "Output", CellChangeTimes->{3.756148193682949*^9}, CellLabel-> "Out[109]=",ExpressionUUID->"4a8b362f-6f05-4b0c-b448-264112a6cea3"] }, Open ]], Cell[BoxData[ RowBox[{ SubscriptBox["A", "1"], ":=", "1.15"}]], "Input", CellChangeTimes->{{3.756317997348439*^9, 3.756318006260545*^9}}, CellLabel-> "In[116]:=",ExpressionUUID->"b56744cc-a469-404f-8664-07188b9ae2ee"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.756318393315962*^9, 3.756318394552073*^9}},ExpressionUUID->"6db19498-70d7-4a31-b94a-\ fb123666ac15"], Cell[BoxData[ RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", RowBox[{"x", RowBox[{"(", RowBox[{"1", "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["a", RowBox[{"1", "+", "i"}]], SuperscriptBox["x", "i"]}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", "12"}], "}"}]}], "]"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.7563181770211887`*^9, 3.7563181926048527`*^9}, { 3.7563183984201603`*^9, 3.756318398489237*^9}, {3.756318482117462*^9, 3.756318483362877*^9}}, CellLabel-> "In[175]:=",ExpressionUUID->"2029d5bd-52b1-4908-8a48-485536e69250"], Cell[BoxData[ RowBox[{"ClearAll", "[", "f", "]"}]], "Input", CellChangeTimes->{{3.756149659435717*^9, 3.756149661400956*^9}}, CellLabel-> "In[176]:=",ExpressionUUID->"4475a5ee-4adb-4d65-8679-439fce28abcd"], Cell[BoxData[ RowBox[{ RowBox[{"s1", "=", RowBox[{"First", "@", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"cs", "[", RowBox[{"[", RowBox[{"1", "+", "2"}], "]"}], "]"}], "==", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"g", "[", "x", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "2"}], "}"}]}], "]"}]}], "/.", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "n_", "]"}], "[", "f", "]"}], "[", "0", "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalF]series", "[", "2", "]"}], "[", "n", "]"}], RowBox[{"n", "!"}]}]}]}], ",", SubscriptBox["B", "0"]}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.7561471314904747`*^9, 3.756147284122757*^9}, { 3.756147343870466*^9, 3.756147390732924*^9}, {3.756147435759054*^9, 3.756147488438939*^9}, {3.756147582383609*^9, 3.756147582968615*^9}, 3.756147707101336*^9, {3.7561477845429173`*^9, 3.7561477847720747`*^9}, { 3.7561481986294527`*^9, 3.756148198874875*^9}, {3.756148304439522*^9, 3.756148304532578*^9}, 3.7563168505947533`*^9, {3.756317951141168*^9, 3.756317985811832*^9}, {3.75631803562996*^9, 3.756318039555221*^9}, { 3.756318199905466*^9, 3.756318200454669*^9}}, CellLabel-> "In[177]:=",ExpressionUUID->"f5e2337f-6a07-4028-a75f-a54b5279226c"], Cell[CellGroupData[{ Cell[BoxData["s1"], "Input", CellChangeTimes->{{3.756317987317328*^9, 3.756317987409946*^9}}, CellLabel-> "In[178]:=",ExpressionUUID->"3b8d2618-be88-4d38-99c9-3c8452692a68"], Cell[BoxData[ RowBox[{"{", RowBox[{ SubscriptBox["B", "0"], "\[Rule]", "0.17685998965641545`"}], "}"}]], "Output", CellChangeTimes->{{3.756317987664682*^9, 3.7563180084109793`*^9}, 3.7563182037063017`*^9, 3.756318499285166*^9}, CellLabel-> "Out[178]=",ExpressionUUID->"e05c30cb-ef36-467c-a6a5-c8320b4600e8"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"s2", "=", RowBox[{"First", "@", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"cs", "[", RowBox[{"[", RowBox[{"1", "+", "3"}], "]"}], "]"}], "==", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"g", "[", "x", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "/.", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "n_", "]"}], "[", "f", "]"}], "[", "0", "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalF]series", "[", "2", "]"}], "[", "n", "]"}], RowBox[{"n", "!"}]}]}]}], "/.", "s1"}], ",", SubscriptBox["a", "3"]}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.7561471314904747`*^9, 3.756147284122757*^9}, { 3.756147343870466*^9, 3.756147390732924*^9}, {3.756147435759054*^9, 3.756147488438939*^9}, {3.756147540537282*^9, 3.756147587568799*^9}, 3.756147711205501*^9, {3.7561477859025507`*^9, 3.756147786092229*^9}, { 3.7561482040091753`*^9, 3.7561482042511044`*^9}, {3.756148307767613*^9, 3.756148307883068*^9}, 3.756316848642622*^9, {3.7563180190352583`*^9, 3.756318044980089*^9}, {3.756318207985362*^9, 3.7563182093429327`*^9}}, CellLabel-> "In[179]:=",ExpressionUUID->"ebc352c5-fe8a-4584-ac63-2f85071f3c69"], Cell[CellGroupData[{ Cell[BoxData["s2"], "Input", CellChangeTimes->{{3.7563180469182653`*^9, 3.756318047034308*^9}}, CellLabel-> "In[180]:=",ExpressionUUID->"905163be-4177-45b3-8429-4a92056ce579"], Cell[BoxData[ RowBox[{"{", RowBox[{ SubscriptBox["a", "3"], "\[Rule]", "0.002727972766430912`"}], "}"}]], "Output", CellChangeTimes->{3.756318047269418*^9, 3.7563182112187*^9, 3.756318499832567*^9}, CellLabel-> "Out[180]=",ExpressionUUID->"e9c45a4f-3ec4-4d70-a46e-6c28a9f0d0e2"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"s3", "=", RowBox[{"First", "@", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"cs", "[", RowBox[{"[", RowBox[{"1", "+", "4"}], "]"}], "]"}], "==", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"g", "[", "x", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "4"}], "}"}]}], "]"}]}], "/.", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "n_", "]"}], "[", "f", "]"}], "[", "0", "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalF]series", "[", "2", "]"}], "[", "n", "]"}], RowBox[{"n", "!"}]}]}]}], "/.", RowBox[{"Join", "[", RowBox[{"s1", ",", "s2"}], "]"}]}], ",", SubscriptBox["a", "4"]}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.7561471314904747`*^9, 3.756147284122757*^9}, { 3.756147343870466*^9, 3.756147390732924*^9}, {3.756147435759054*^9, 3.756147488438939*^9}, {3.756147540537282*^9, 3.756147604729485*^9}, 3.756147715373518*^9, {3.756147794574839*^9, 3.7561477947803917`*^9}, { 3.7561482080935097`*^9, 3.756148208275079*^9}, {3.756148311191593*^9, 3.7561483113030643`*^9}, 3.756316845882742*^9, {3.75631805983946*^9, 3.7563180661526833`*^9}, {3.756318216089089*^9, 3.75631821858976*^9}}, CellLabel-> "In[181]:=",ExpressionUUID->"780abd11-8470-4e7f-b307-9f2346871bc7"], Cell[CellGroupData[{ Cell[BoxData["s3"], "Input", CellChangeTimes->{{3.756318071222228*^9, 3.756318071339473*^9}}, CellLabel-> "In[182]:=",ExpressionUUID->"0f9d1348-9727-4ef6-a3eb-9add0816c286"], Cell[BoxData[ RowBox[{"{", RowBox[{ SubscriptBox["a", "4"], "\[Rule]", RowBox[{"-", "0.004371954547366299`"}]}], "}"}]], "Output", CellChangeTimes->{3.756318071670439*^9, 3.756318220035276*^9, 3.756318500352702*^9}, CellLabel-> "Out[182]=",ExpressionUUID->"6a0d7fdc-5a5c-4311-b0d2-f53f04004d0f"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"s4", "=", RowBox[{"First", "@", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"cs", "[", RowBox[{"[", RowBox[{"1", "+", "5"}], "]"}], "]"}], "==", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"g", "[", "x", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "5"}], "}"}]}], "]"}]}], "/.", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "n_", "]"}], "[", "f", "]"}], "[", "0", "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalF]series", "[", "2", "]"}], "[", "n", "]"}], RowBox[{"n", "!"}]}]}]}], "/.", RowBox[{"Join", "[", RowBox[{"s1", ",", "s2", ",", "s3"}], "]"}]}], ",", SubscriptBox["a", "5"]}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.7561471314904747`*^9, 3.756147284122757*^9}, { 3.756147343870466*^9, 3.756147390732924*^9}, {3.756147435759054*^9, 3.756147488438939*^9}, {3.756147540537282*^9, 3.756147631038917*^9}, 3.756147718582081*^9, {3.756147799018648*^9, 3.7561477991882553`*^9}, { 3.7561482113174353`*^9, 3.7561482114992228`*^9}, {3.756148314943677*^9, 3.756148315051283*^9}, 3.756316844411141*^9, {3.756318080019507*^9, 3.7563180843365517`*^9}, {3.756318234810039*^9, 3.75631823614211*^9}}, CellLabel-> "In[183]:=",ExpressionUUID->"06a2ae82-4418-456f-b4f5-1b9f39c49158"], Cell[CellGroupData[{ Cell[BoxData["s4"], "Input", CellChangeTimes->{{3.756318085830123*^9, 3.756318088595845*^9}}, CellLabel-> "In[184]:=",ExpressionUUID->"fb6f2cb2-7cba-4724-9583-4f330a20bd07"], Cell[BoxData[ RowBox[{"{", RowBox[{ SubscriptBox["a", "5"], "\[Rule]", "0.007378059825837999`"}], "}"}]], "Output", CellChangeTimes->{3.756318088956551*^9, 3.7563185008935328`*^9}, CellLabel-> "Out[184]=",ExpressionUUID->"15593303-625b-4e2e-8d1d-ba3a7faaa52d"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"s5", "=", RowBox[{"First", "@", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"cs", "[", RowBox[{"[", RowBox[{"1", "+", "6"}], "]"}], "]"}], "==", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"g", "[", "x", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "6"}], "}"}]}], "]"}]}], "/.", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "n_", "]"}], "[", "f", "]"}], "[", "0", "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalF]series", "[", "2", "]"}], "[", "n", "]"}], RowBox[{"n", "!"}]}]}]}], "/.", RowBox[{"Join", "[", RowBox[{"s1", ",", "s2", ",", "s3", ",", "s4"}], "]"}]}], ",", SubscriptBox["a", "6"]}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.756147648146731*^9, 3.7561476782344418`*^9}, 3.756147721581562*^9, {3.7561478069109573`*^9, 3.756147807124679*^9}, { 3.756148215125565*^9, 3.756148215387376*^9}, {3.756148318817175*^9, 3.756148318910726*^9}, 3.756316842187614*^9, {3.756318099920137*^9, 3.756318103265397*^9}, {3.7563182410473413`*^9, 3.75631824190347*^9}}, CellLabel-> "In[185]:=",ExpressionUUID->"f2a84d32-c59c-46b0-b67a-418c0339def1"], Cell[CellGroupData[{ Cell[BoxData["s5"], "Input", CellChangeTimes->{{3.756318104670274*^9, 3.756318104819955*^9}}, CellLabel-> "In[186]:=",ExpressionUUID->"526bbaca-17aa-4e92-a53e-66d81e1f638a"], Cell[BoxData[ RowBox[{"{", RowBox[{ SubscriptBox["a", "6"], "\[Rule]", RowBox[{"-", "0.010795334971149897`"}]}], "}"}]], "Output", CellChangeTimes->{3.7563181051765137`*^9, 3.756318501417638*^9}, CellLabel-> "Out[186]=",ExpressionUUID->"7215d2d5-3799-46cc-a537-5bcc23f2066d"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"s6", "=", RowBox[{"First", "@", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"cs", "[", RowBox[{"[", RowBox[{"1", "+", "7"}], "]"}], "]"}], "==", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"g", "[", "x", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "7"}], "}"}]}], "]"}]}], "/.", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "n_", "]"}], "[", "f", "]"}], "[", "0", "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalF]series", "[", "2", "]"}], "[", "n", "]"}], RowBox[{"n", "!"}]}]}]}], "/.", RowBox[{"Join", "[", RowBox[{"s1", ",", "s2", ",", "s3", ",", "s4", ",", "s5"}], "]"}]}], ",", SubscriptBox["a", "7"]}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.756147648146731*^9, 3.7561476782344418`*^9}, 3.756147721581562*^9, {3.7561478069109573`*^9, 3.756147844187436*^9}, { 3.756148220205553*^9, 3.7561482204514713`*^9}, {3.756148322321295*^9, 3.756148322445093*^9}, 3.756316840858306*^9, {3.7563181134563713`*^9, 3.756318117353677*^9}, {3.756318247466488*^9, 3.756318248071858*^9}}, CellLabel-> "In[187]:=",ExpressionUUID->"776d66d3-6bfa-4e1f-a081-33aa26303ef2"], Cell[CellGroupData[{ Cell[BoxData["s6"], "Input", CellChangeTimes->{{3.7563181185257607`*^9, 3.756318118804282*^9}}, CellLabel-> "In[188]:=",ExpressionUUID->"80c64682-c6cc-4e0f-b500-a77e45b9bdf1"], Cell[BoxData[ RowBox[{"{", RowBox[{ SubscriptBox["a", "7"], "\[Rule]", RowBox[{"-", "0.008191308327932398`"}]}], "}"}]], "Output", CellChangeTimes->{3.7563181192239237`*^9, 3.756318249927265*^9, 3.756318501904809*^9}, CellLabel-> "Out[188]=",ExpressionUUID->"92dcb0bb-3ae0-493c-b4f5-a229b621428c"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"s7", "=", RowBox[{"First", "@", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"cs", "[", RowBox[{"[", RowBox[{"1", "+", "8"}], "]"}], "]"}], "==", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"g", "[", "x", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "8"}], "}"}]}], "]"}]}], "/.", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "n_", "]"}], "[", "f", "]"}], "[", "0", "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalF]series", "[", "2", "]"}], "[", "n", "]"}], RowBox[{"n", "!"}]}]}]}], "/.", RowBox[{"Join", "[", RowBox[{"s1", ",", "s2", ",", "s3", ",", "s4", ",", "s5", ",", "s6"}], "]"}]}], ",", SubscriptBox["a", "8"]}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.756147648146731*^9, 3.7561476782344418`*^9}, 3.756147721581562*^9, {3.7561478069109573`*^9, 3.756147890148263*^9}, { 3.756148224994526*^9, 3.75614822516343*^9}, {3.7561483259038773`*^9, 3.756148326010647*^9}, 3.756316835634478*^9, {3.756318126086348*^9, 3.756318130006537*^9}, {3.756318254834443*^9, 3.7563182584158173`*^9}}, CellLabel-> "In[189]:=",ExpressionUUID->"63e0c88c-7398-40e3-b4b8-7f575ab6afcf"], Cell[CellGroupData[{ Cell[BoxData["s7"], "Input", CellChangeTimes->{{3.756318131462134*^9, 3.756318131772496*^9}}, CellLabel-> "In[190]:=",ExpressionUUID->"8e5793a0-a564-4698-bffd-0d21360746db"], Cell[BoxData[ RowBox[{"{", RowBox[{ SubscriptBox["a", "8"], "\[Rule]", "0.2607341726893066`"}], "}"}]], "Output", CellChangeTimes->{3.756318132579927*^9, 3.756318502439548*^9}, CellLabel-> "Out[190]=",ExpressionUUID->"30a3762a-27d5-45c6-8483-834d62397b51"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"s8", "=", RowBox[{"First", "@", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"cs", "[", RowBox[{"[", RowBox[{"1", "+", "9"}], "]"}], "]"}], "==", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"g", "[", "x", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "9"}], "}"}]}], "]"}]}], "/.", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "n_", "]"}], "[", "f", "]"}], "[", "0", "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalF]series", "[", "2", "]"}], "[", "n", "]"}], RowBox[{"n", "!"}]}]}]}], "/.", RowBox[{"Join", "[", RowBox[{ "s1", ",", "s2", ",", "s3", ",", "s4", ",", "s5", ",", "s6", ",", "s7"}], "]"}]}], ",", SubscriptBox["a", "9"]}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.756147648146731*^9, 3.7561476782344418`*^9}, 3.756147721581562*^9, {3.7561478069109573`*^9, 3.756147917732798*^9}, { 3.756148229557692*^9, 3.756148229795514*^9}, {3.756148330602446*^9, 3.756148330709302*^9}, 3.7563168306906347`*^9, {3.756318139742751*^9, 3.756318148544838*^9}, {3.756318263386506*^9, 3.756318264632038*^9}}, CellLabel-> "In[191]:=",ExpressionUUID->"4f0ae511-477c-4ea3-9b25-e6ac9e3cab18"], Cell[CellGroupData[{ Cell[BoxData["s8"], "Input", CellChangeTimes->{{3.756318150031145*^9, 3.7563181507799377`*^9}}, CellLabel-> "In[192]:=",ExpressionUUID->"fb097fd5-fc15-481f-a4da-dc6f9cae3f70"], Cell[BoxData[ RowBox[{"{", RowBox[{ SubscriptBox["a", "9"], "\[Rule]", RowBox[{"-", "2.9089715438924455`"}]}], "}"}]], "Output", CellChangeTimes->{3.75631815110573*^9, 3.756318502999918*^9}, CellLabel-> "Out[192]=",ExpressionUUID->"15a15847-ad25-460c-b177-35344808f0c6"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"s9", "=", RowBox[{"First", "@", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"cs", "[", RowBox[{"[", RowBox[{"1", "+", "10"}], "]"}], "]"}], "==", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"g", "[", "x", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]}], "/.", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "n_", "]"}], "[", "f", "]"}], "[", "0", "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalF]series", "[", "2", "]"}], "[", "n", "]"}], RowBox[{"n", "!"}]}]}]}], "/.", RowBox[{"Join", "[", RowBox[{ "s1", ",", "s2", ",", "s3", ",", "s4", ",", "s5", ",", "s6", ",", "s7", ",", "s8"}], "]"}]}], ",", SubscriptBox["a", "10"]}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.756147648146731*^9, 3.7561476782344418`*^9}, 3.756147721581562*^9, {3.7561478069109573`*^9, 3.756147917732798*^9}, { 3.7561479711843576`*^9, 3.756147984365773*^9}, {3.756148248573999*^9, 3.756148248819899*^9}, {3.756148334128064*^9, 3.756148334205196*^9}, 3.756316825610066*^9, {3.7563181585830717`*^9, 3.756318161634911*^9}, { 3.756318269354926*^9, 3.756318271335086*^9}}, CellLabel-> "In[193]:=",ExpressionUUID->"739763d3-b7d8-49d5-a063-fadaa2ffb319"], Cell[CellGroupData[{ Cell[BoxData["s9"], "Input", CellChangeTimes->{{3.756318162487234*^9, 3.756318162708955*^9}}, CellLabel-> "In[194]:=",ExpressionUUID->"d12c402b-f73f-433c-993b-ae25b08e04ee"], Cell[BoxData[ RowBox[{"{", RowBox[{ SubscriptBox["a", "10"], "\[Rule]", "24.76041836973494`"}], "}"}]], "Output", CellChangeTimes->{3.756318162977748*^9, 3.75631850350289*^9}, CellLabel-> "Out[194]=",ExpressionUUID->"701d65ae-f210-49f9-8695-172a58a67ec7"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"s10", "=", RowBox[{"First", "@", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"cs", "[", RowBox[{"[", RowBox[{"1", "+", "11"}], "]"}], "]"}], "==", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"g", "[", "x", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "11"}], "}"}]}], "]"}]}], "/.", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "n_", "]"}], "[", "f", "]"}], "[", "0", "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalF]series", "[", "2", "]"}], "[", "n", "]"}], RowBox[{"n", "!"}]}]}]}], "/.", RowBox[{"Join", "[", RowBox[{ "s1", ",", "s2", ",", "s3", ",", "s4", ",", "s5", ",", "s6", ",", "s7", ",", "s8", ",", "s9"}], "]"}]}], ",", SubscriptBox["a", "11"]}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.756147648146731*^9, 3.7561476782344418`*^9}, 3.756147721581562*^9, {3.7561478069109573`*^9, 3.756147917732798*^9}, { 3.7561479711843576`*^9, 3.756147984365773*^9}, {3.756148248573999*^9, 3.756148288756596*^9}, {3.7561483379601183`*^9, 3.756148338051984*^9}, 3.756316817945969*^9, {3.756318277466614*^9, 3.75631828230441*^9}}, CellLabel-> "In[195]:=",ExpressionUUID->"02fcbe73-d415-4683-bde3-db70f64f57b1"], Cell[BoxData[ RowBox[{ RowBox[{"s11", "=", RowBox[{"First", "@", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"cs", "[", RowBox[{"[", RowBox[{"1", "+", "12"}], "]"}], "]"}], "==", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"g", "[", "x", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "12"}], "}"}]}], "]"}]}], "/.", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "n_", "]"}], "[", "f", "]"}], "[", "0", "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalF]series", "[", "2", "]"}], "[", "n", "]"}], RowBox[{"n", "!"}]}]}]}], "/.", RowBox[{"Join", "[", RowBox[{ "s1", ",", "s2", ",", "s3", ",", "s4", ",", "s5", ",", "s6", ",", "s7", ",", "s8", ",", "s9", ",", "s10"}], "]"}]}], ",", SubscriptBox["a", "12"]}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.756147648146731*^9, 3.7561476782344418`*^9}, 3.756147721581562*^9, {3.7561478069109573`*^9, 3.756147917732798*^9}, { 3.7561479711843576`*^9, 3.756147984365773*^9}, {3.756148248573999*^9, 3.756148288756596*^9}, {3.7561483379601183`*^9, 3.756148360299959*^9}, 3.7563168172560453`*^9, {3.756318286959422*^9, 3.756318287455036*^9}}, CellLabel-> "In[196]:=",ExpressionUUID->"eaacc5fe-d679-4223-9913-84fcc8df1499"], Cell[BoxData[ RowBox[{ RowBox[{"s12", "=", RowBox[{"First", "@", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"cs", "[", RowBox[{"[", RowBox[{"1", "+", "13"}], "]"}], "]"}], "==", RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"g", "[", "x", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "13"}], "}"}]}], "]"}]}], "/.", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", "n_", "]"}], "[", "f", "]"}], "[", "0", "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalF]series", "[", "2", "]"}], "[", "n", "]"}], RowBox[{"n", "!"}]}]}]}], "/.", RowBox[{"Join", "[", RowBox[{ "s1", ",", "s2", ",", "s3", ",", "s4", ",", "s5", ",", "s6", ",", "s7", ",", "s8", ",", "s9", ",", "s10", ",", "s11"}], "]"}]}], ",", SubscriptBox["a", "13"]}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.756147648146731*^9, 3.7561476782344418`*^9}, 3.756147721581562*^9, {3.7561478069109573`*^9, 3.756147917732798*^9}, { 3.7561479711843576`*^9, 3.756147984365773*^9}, {3.756148248573999*^9, 3.756148288756596*^9}, {3.7561483379601183`*^9, 3.756148360299959*^9}, { 3.7561484588565083`*^9, 3.7561484713577633`*^9}, 3.75631681620724*^9, { 3.7563182918349123`*^9, 3.756318292328499*^9}}, CellLabel-> "In[197]:=",ExpressionUUID->"ae6a545b-4a50-4ea0-984b-48c7cf96808c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["y", RowBox[{"-", RowBox[{"b", "[", "2", "]"}]}]], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", SubscriptBox["A", "1"]}], "/", SuperscriptBox["y", "1"]}], "]"}], SubscriptBox["B", "0"]}], "/.", RowBox[{"y", "\[Rule]", RowBox[{"g", "[", "x", "]"}]}]}], ")"}], "/.", RowBox[{"Join", "[", RowBox[{ "s1", ",", "s2", ",", "s3", ",", "s4", ",", "s5", ",", "s6", ",", "s7", ",", "s8", ",", "s9", ",", "s10", ",", "s11", ",", "s12"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.756149434525546*^9, 3.756149462503139*^9}, { 3.756318330596437*^9, 3.756318331079452*^9}}, CellLabel-> "In[198]:=",ExpressionUUID->"7a4b1d3f-69b0-4867-9dc7-ce6838fa479e"], Cell[BoxData[ RowBox[{"0.17685998965641545`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["1.15`", RowBox[{"x", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"0.002727972766430912`", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"0.004371954547366299`", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"0.007378059825837999`", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"0.010795334971149897`", " ", SuperscriptBox["x", "5"]}], "-", RowBox[{"0.008191308327932398`", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"0.2607341726893066`", " ", SuperscriptBox["x", "7"]}], "-", RowBox[{"2.9089715438924455`", " ", SuperscriptBox["x", "8"]}], "+", RowBox[{"24.76041836973494`", " ", SuperscriptBox["x", "9"]}], "-", RowBox[{"213.7144687697903`", " ", SuperscriptBox["x", "10"]}], "+", RowBox[{"1982.964576402642`", " ", SuperscriptBox["x", "11"]}], "-", RowBox[{"19173.037113711183`", " ", SuperscriptBox["x", "12"]}]}], ")"}]}]]}]], " ", "x", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"0.002727972766430912`", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"0.004371954547366299`", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"0.007378059825837999`", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"0.010795334971149897`", " ", SuperscriptBox["x", "5"]}], "-", RowBox[{"0.008191308327932398`", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"0.2607341726893066`", " ", SuperscriptBox["x", "7"]}], "-", RowBox[{"2.9089715438924455`", " ", SuperscriptBox["x", "8"]}], "+", RowBox[{"24.76041836973494`", " ", SuperscriptBox["x", "9"]}], "-", RowBox[{"213.7144687697903`", " ", SuperscriptBox["x", "10"]}], "+", RowBox[{"1982.964576402642`", " ", SuperscriptBox["x", "11"]}], "-", RowBox[{"19173.037113711183`", " ", SuperscriptBox["x", "12"]}]}], ")"}]}]], "Output", CellChangeTimes->{3.75614946286729*^9, 3.756149672369154*^9, 3.756318296383964*^9, 3.756318331277514*^9, 3.756318414512698*^9, 3.756318504692894*^9}, CellLabel-> "Out[198]=",ExpressionUUID->"3ff44560-6de3-4db3-a7a7-cee161f35388"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"g", "[", "x", "]"}], "/.", RowBox[{"Join", "[", RowBox[{ "s1", ",", "s2", ",", "s3", ",", "s4", ",", "s5", ",", "s6", ",", "s7", ",", "s8", ",", "s9", ",", "s10", ",", "s11", ",", "s12"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", ".5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7561485618185997`*^9, 3.7561486379038467`*^9}, { 3.756148912504231*^9, 3.756148953197178*^9}, {3.756149357359333*^9, 3.756149424414464*^9}, {3.75614946888211*^9, 3.756149514886841*^9}, 3.756149680067787*^9, {3.756318303155777*^9, 3.756318381689519*^9}, { 3.75631842927744*^9, 3.756318443866081*^9}}, CellLabel-> "In[199]:=",ExpressionUUID->"ee6a5bed-323d-46a0-adb8-bbb4b15b8d1c"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJw1lnlUTd/7xyspkpKhFGkSDVQaUOFtKEShwVCSJAqRoUgooqJEKUpJUaRU lNBAV3MauN3uOefe7r3JRyilhNKE3/Zd6/fXa73W2mevvZ+9n/c+Gh6+Dnsk xMTEVMXFxP5x3Z6Opled1sv+n5KrVA6/U56N7Aa1/9EkJeHWE2VTCCty/8f1 jUx+srIVchyNnvzjVs9fL68pOyFH05n1jyLD8FVRyp4I2TnB5h9Tp20Mi1D2 w9dKm1v/eG7ck7mXlC8gPqs36B+3Od959K0vDs9Hhk2+E074e851zawUnC+l VtoSatv3dFREpmPtsHjAa8ITb8yR8DMTxsZ5a9IIlQoUWsXFH2HCamevqYTP /lvV8HZJPqQ+dD9oJSzfnzzDubsAq88sWexL2D9nqXzOweeYW6CfW08oMfRw 0gztYpz+3P3binDhX/dnjrkvUB+QuCaCsOGC6ZtqPRYOtO2un6DPglp011Bm zyvYmx/fRxF2/XrXShmVwzzz6VWZBeVI/1JSJ3elAkb/VUzZQCinmtHb3l6J b2aJRgYfK3F539O9qbOr0Ws1ofQb4cDyh+3ewTVY/qHhfjGhn3FlgWJFLSYq dLjvIHyXWxnZpFEHJXep+32EI/u5SbqB9QgtOq7+/WQ99FdI/9lb0gCeabbX 1eIGrLmr4ZWn9Aaxhaf/3pz2BidUd2q+d32LvYue173Y9hbzujdPYOzY6Dd5 P1d5HRtT5L+Nqxxmo2xL8sHxP9mQZCU90rrVBO7r7qCu6CYcMC3hj1/PgS8O nJi+mIOHNh6ppQMc3BnYH81jOOjvUpn06UYztp0ZkZ/g1YynjmvGxFlxccg5 +MOEoWYErw1NKfjEhbHOOLrBjwuOm7erUScXt+ynpsUe52K2/3rl7C4urMXs vZ0DuKi7oxCb9o2LRIpPvT/FxdSR5LBrw1woty9R/BTCxYOcZwcPy1HY22Lf WxzNBXtyh+W8hRQqhg+zIh9yoalbP5ixmMKvmWI1Bjlc+CP3qZYlBe0w13h2 LhcqPn6GM5ZTeHpL8fKkfC48q8S0ZNZRcDm9JeFcIReDJ5RlOnZQCNHg18+p 4kJDtI6XFkrhAFNXcETERUS55aPNFykoafUmyLzj4nvGvDDpSDL+SUHjnTYu yo/KmR6IpnAj/b5a/Qcy/zjOVeMkCumXJmmO/0LWb+K8puwxhS4pkyCjAS4M IryetQooSIa9o1Umku98t0VFt1LYWXp6JIDs86+TjefK9xSEgbWzKHkKbDX9 yfc/USg5tmFL+GQKR572HDzYR2FL4QWLZiUKBW3+2qNSNN5YHt0qpUnBYtGF OGVjGg9eGGlWmVKgPZQXJpvSOFpiX15nRuHYlVxGfRGNn78cN70hdcz+yFPR WULjWekR/bekjrPi5t9ZuJqGd+zt2OdLKEj00TmOLjR6HH41qltRuD3TZyPj SuP8lJjxktYULNeK97nspPH+VqD0R+J+KfqmHp40Wlmdy1LXUPhkd7b48CEa XMrCdoTUvT5LtyYqhIacVOfmFfYUvOlSb4VQGspzv27/S1xSwknmejiNYh2/ /mIHCsucg+xuXaZxbs17Ws+JwmPp5uasGzTYNQ6/u7dQsDXx9je4ScOxJtUm fiuFTrffivlJNKz/q5iEbRQ0n811KUql8e5Cr0S4M4U4z9NtNVk0lnu1qg5u p2AUrRCyPodGyFDv5yhXCo0l97XePqKRY2w9RYPcC6kpTXvpAhqaedln4UYh oEz7a3spjTGL4eLqTmHq1+Ir3mXE+7dwhMTzpm8y6q6g4ckzi3HZReGLb+Cx H7U0rnlXUHYeFFxnvR0Sb6Yxc2qqyhRPCnLKR5+WUDSeVCxYHEa8bMq0I/48 Gh0LmsQHiM8Zv72jQ0Qjle8WXr+HAm/Mn7S7bTRGVzpYLNhLIeJP6k7XDzTy S3eExxLv/fGJfttBw2Y0QmTnReFuz6Vrl7rI/vtCRfeIO3XO27Cqh4b+5vV7 hokXth6tevaD+NGsoQRvCvv5084dHqDRdufb6H/EVbmFS/SGyP7UXPx195F7 //rPk+Q/NBpC8/IfEjetvOO7VZyB3u5Zhz4T/1xqpa8gyaDbOztSbT+FxKLP n+qkGBy7f1nKibhtQcTdC+MZXNv+hX+B+J/c+W7LZBk4fv8ilk/8cSZbeVCO QcxgznEBcY/0Y1SeAoMUZbuF4gcoTEtRjDkwlUGLktBCi3jtzSJbbSUGW6u9 g1cQD4xzHfdOmcFmiZE/24nPu/q3ImEmA1F2XMFR4q2X7gY7qDEwS1+QFEo8 +oK1pawmg0Mva3LiiK8K7hioms2g5uXqzynEB05G5gfPZWDglLAyg/gDP4ND 5noMUienFmcRd/Ft0v0xj0Gcl+W6fz5xv9/HbEMGG+JXdN8j/spT6c5eYwYr n55PSiZ+dGexq7oZA/fkBocY4rNddkxvWcTA4Wub7DnitJMYN9aCAf93UKUP 8Ysb067aLWXQL3DzcyJuuW71eunlDLRXGistJt5j1SlVtpLB1Zj0DCXiqbhc HmjNwKLeRf0HqZ+DhWGQ6VoGapd+nKojLmnGMe9ZR9b3S+ppMvFnhv79GXYM JjTOqfYhvk9vet6uTQzeWrdmLiL+Rs1Nh9rMIP+kevMrcr5nVcTbr2xjoCVx Z2IwcZNp6SlrtzMwKk6XNCeeIPNF8YU7g9I8nkIquT/rxkZx/HczuF7zeqYd 8d9/Da8Y7mVw8CGrsZ/cP49+/7FpBxiE5fbJWBCf+m16meshBq9rCyMpcp9r vpScVjzCIDIhMcmH+Lw28Z+XjpP6mZ20jyL90F8X9d/hcwyC2h8eSdhNcnMC 5T16nsEv20lD04mX287sDQ9jEPvkQMB10n/Rb7JGbkcy6JL1XR9C+lOPUzO1 8TqDop12hXo7KUyaIp+0LYHBzkxT/wjS778ct2i0JzJ4d95J4hPJg0qqff5I CjnPeQMB0SQv3Pjia3SzGIyMxqzNJ/lipWLTWJBNxs83G+wl+aO/Pdpx+SMG wb69G3SJDwpnuW8tYJB+PVt4heTXtTbLk6GlZP9psz7OdqRQ/dn/4XsOg7s7 PPtPrCf5rPNywUGKgZ9Zc9xBkp+x+yQLBxkG3qqvLrjZUHDvulYpL2LQwbkF Y5K3wz2PREs/M9h1tiYkdSUFw4FO+cQRBrWZ+WaxJN8VFy24of2HQcn2xQaW iyiMngiYmSfGg6RzlEoreR/qhqR0a8fy4Lsp6dlUEwqev7VWDsjzIJx+3cFq PjlfSTc/h9k8LGurf5ahTvp3t5JZ0xweFNR+n5ZUI+Mr2P0bdXm4nT003lWV 5GvIqhN2BjxQ+2e4jyiTfv2rE7h2MQ9Vx2Uchsl79mv4R/AyWx6GtO69+zGG 5KNLzvKXG3ho+XTSYFicnF/RXvEl9jzI5Vi1Df/l4koAP8R8Cw/HTr1z6Brh Ys5AaaipOw/J39Nfhv/gYkvfpUg9Px7635e3PnjPxYtNq2wzj/PAdu1Z7UDe b83Ho7I6J3mIkAzO6Bdy0XPI94p2EA8s44UL9XhchHY7xahf5GGjwKzG5g0X BZ/V4hVv8XBk0oFLrkVcTGl9eleikgeVwPj45AiyHtkzZ55X87CiKCvBJJwL GUurbT6veXAM2exTdp4LiQTORPoND/cuueyuPE3+H+x7AzL5PDR8nei/9xD5 n6nS2bipl4dIGVvdyZu4sP3Zqzv2Ow8CsVeX1G25qNV8Lln8kwftFzZKc9Zy wQq2LtYa5uHzugdXFJdzkWvuof1Lko/ebEtWpCEXl3OSRpJV+OgLCAp9KcvF OKEH7aDKx0fL2Ovm47i4IKOXJ63Oh9HmAxrZY7g45VW494g2H2Vmu4L8hpux X4NqsjLiI3fJ2XExn5ux9rrcgy5rPmpH3GR7Wc0Ye+ack/kRPho0PsV3ejej oK97iHWMj0Ny3+ed290Mz73bUlYf5+PJMUNNebdmVG40/OJ4ig+Tt14Sco7N uKApCj4UysdJy6sHbixphmTt4odpN/kwHixaVzuxGRJTvonLlfMR4RyFXQ84 yA/fnhFXyUdi9vDaR3c48Bittp1Rw8es8+dXf0/koPxjcrxOAx8yYs5ft0Rx EFK4fv4qmuxv5HzszSMciLtlbAv4wkd6zeQ9Q4s4EMt0e/Tf5BYs/9mS9rqk CdXdzKGUaS2QTryi25PfhMtG9gau01vwZ1YVe0xWE5QKV+VQqi3ofFq2VCKh CQY1Og9rdVogsJmUbnOsCa4fv9/PXUbmWxny8/ucJhRphN8O3N8CPyp5qUEI G0F7xNwWHWzBppPO6Y4n2LDKPKn607cFjVoU4+XDBtvI59ZB/xaYVelvdt3C RgfsE93PtsAu85r/MV02FN1m3Fh9owVzh+dwohPe4mjio6jJ5S1Q3Bk38l36 DZ6PJoaXV7bgvbT+tRk9jRh1Czt3tKYF1pzRNlVuI8K1dvhzGlqQv1x+JDel EbeyZXZcY1qgnnZi1x/TRlSV7pk3+WsLIoKN9ulva8D0DzPqFaYLEL26N/5s cB12WEtXlakIUHJYePiSex3uZnwvPaIqQM0OaZu9K+owz+d1fpOmAFRWjEmS RB1W9B9PjJkvQNjw2CvdIa+xX5qzT2GVAHYZbxPET9Xipf7FcQqHBNCS5Udd XlONhVylxmuHBUB6o4KBdjUen86ImXpMgI+Gbx+kSVTjbmO1yvQAAS6eNXGV eVmFi75j56uFCJC8v6/9lWEVHJ6E2M+/IUBS4NCWLNlKfLY4k2hTKsD52LoH s9PK4P5Bdmf9KwHMF4w69ASWoSXylpZdhQDTeprUwhzK0CAsyd5UK4BycPZW NfEy5AcNl27lCJCVWpv3ffsrnC4/8WHPJwHUR0fHtsmXQmHd0XkhckJk3RNU 3/MtRGqZ/AQLBSEe9/znIytTCCPznM6+KUJ8u3lbtSftOTbodNzfpSzE0j5f N3X6GSKk3DRWzBbCMUrspJHpU0hW2CiKWQjRolc0LYjOw4ClhljQHiE4Pntq 7HfeQ+iT0lYzbyEmVC8NTz6cjqn6ri+/7hdi+eCgWtHZNJioxAfuOCxE1Z/C SpfkOzg8KNu/5JQQ5fJh7Wuik9BZMNg5Ei3EEHWNnxkRDuF8dvPJF0LEjU6v yi65zkrpUjgzhiXEzVfDgklV8SyPTMc5UWVCNK6tXcph32R1zmYCUquFYKvb WRzvTWYNzGhVrWEL4R/DDyyfncZSkOn2mvpRiOsv9fL2FT1krf4kPZo7UQTz XSbW1JdnrPHpNvcWTxJhQaqnr9W556yGXZEbyieLMNh3Jt1teiHLUSR3h1IS QeJqe/2NtUUsd+601aMaIjyO9zqhk1fCOlWuFW2zUITTGuELn9i/Yj2+jdnt biJEmGysi7hYxfoR+EN61y4RrOX/DO8RVbEWbs3oEu0WYcf64W/JxtWsEnn5 J4y3CHkhnpe1W6tZ1WdbV9QfFUFReqtBsnktS+BxZmd+mAjlV89eOC1Rz5Ka W5J4NleEMUdKHeDLZtmM8Q36/ViEi6f0ljalsFmX32l6BD4RISH0gUM8m81S SIjQ9SsUoTTIt/yVcRNr5niXQq9yETrWbFe6MtTEMu4apDbQInge9zFeFtPM 2vFooYLqHxFkh7sY5y8065nLoBxbrBU6ctLyl+cwLDmpYtnzY1oh7tRtPWY3 w3rlunRc57hWBHXTtWVChlWXTE1ZotAKrrhYk2QSj/V/NM8BXg== "]]}, Annotation[#, "Charting`Private`Tag$18798#1"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, 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, 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, 0.5}, {-0.3844615975395105, 0.33469646668553743`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.7561485963243856`*^9, 3.756148638267477*^9}, { 3.756148908343822*^9, 3.756148953511476*^9}, 3.756149262343197*^9, { 3.7561494122882357`*^9, 3.756149424816127*^9}, {3.756149470901289*^9, 3.756149515199387*^9}, {3.756149673325081*^9, 3.756149680988163*^9}, { 3.75631829811685*^9, 3.756318335943342*^9}, {3.75631837667435*^9, 3.7563183821869717`*^9}, {3.7563184151021557`*^9, 3.756318444170249*^9}, 3.756318505204883*^9}, CellLabel-> "Out[199]=",ExpressionUUID->"9fb5751b-09cc-4a85-b184-f10491b06a7b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Gls", "[", RowBox[{"[", "2", "]"}], "]"}]], "Input", CellChangeTimes->{{3.756149037433765*^9, 3.756149041111251*^9}}, CellLabel-> "In[200]:=",ExpressionUUID->"e4561e06-905f-4c39-8e8b-097ef9db1978"], Cell[BoxData[ RowBox[{"-", "1.3578383417066`"}]], "Output", CellChangeTimes->{3.756149041375127*^9, 3.756318416069252*^9, 3.756318506339218*^9}, CellLabel-> "Out[200]=",ExpressionUUID->"216c461d-db22-4188-b5a0-2387b87b96de"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogPlot", "[", RowBox[{ RowBox[{"Abs", "@", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"a", "\[Rule]", RowBox[{"Gls", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "s1", ",", "s2", ",", "s3", ",", "s4", ",", "s5", ",", "s6", ",", "s7", ",", "s8", ",", "s9", ",", "s10", ",", "s11", ",", "s12"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "/.", RowBox[{ SubscriptBox["A", "1"], "\[Rule]", ".01"}]}], "]"}]], "Input", CellChangeTimes->{{3.7561483774921093`*^9, 3.756148399252618*^9}, { 3.756148511905546*^9, 3.756148513134862*^9}, {3.756149004553083*^9, 3.756149022663352*^9}, {3.7561490593068438`*^9, 3.756149067302891*^9}, { 3.7563164151620398`*^9, 3.7563164973802347`*^9}}, CellLabel-> "In[201]:=",ExpressionUUID->"85f17b37-fa91-4ed8-94fc-546e4de955ef"], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 0.3058939805973418}, {2., -1.7323968783191395`}, { 3., -5.904196522030623}, {4., -5.4325451050241975`}, { 5., -4.909244571160941}, {6., -4.528641185283742}, { 7., -4.80468164687506}, {8., -1.3442538861216395`}, {9., 1.0677995973725574`}, {10., 3.209246344674246}, {11., 5.364640866021879}, {12., 7.5923482647206235`}, {13., 9.861260254044426}}]}, {}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., -7.048463546100589}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Exp[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Exp[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 13}, {-6.780055231812571, 9.861260254044426}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->FrontEndValueCache[{Automatic, Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-6.907755278982137, FormBox["0.001`", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-2.3025850929940455`, FormBox[ TagBox[ InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {2.302585092994046, FormBox["10", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {6.907755278982137, FormBox["1000", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-4.605170185988091, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4.605170185988092, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9.210340371976184, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {11.512925464970229`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {12.206072645530174`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {12.611537753638338`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {12.89921982609012, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}]]], "Output", CellChangeTimes->{{3.756148379454566*^9, 3.756148400180973*^9}, 3.75614851341536*^9, {3.7561489960035553`*^9, 3.756149022990449*^9}, { 3.756149059924506*^9, 3.756149067759342*^9}, {3.7563164200704193`*^9, 3.756316497939509*^9}, 3.7563183445890703`*^9, 3.756318416992405*^9, 3.756318506759302*^9}, CellLabel-> "Out[201]=",ExpressionUUID->"51e89cbc-f0a2-4dd4-8023-3496b614f57a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.756148008108568*^9, 3.756148015078742*^9}}, CellLabel-> "In[108]:=",ExpressionUUID->"539f5741-8fad-4a07-a76a-87f3cc414748"], Cell[BoxData[ FractionBox[ RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "10", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}], "3628800"]], "Output", CellChangeTimes->{3.756148015259964*^9}, CellLabel-> "Out[108]=",ExpressionUUID->"0c15c51c-9889-4e87-9ae3-b6488476b465"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.756147893106865*^9, 3.756147894195971*^9}},ExpressionUUID->"907cbcc9-e4ba-4cde-a936-\ 11fe50f13a54"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"\[ScriptCapitalF]series", "[", "3", "]"}], "[", "2", "]"}]], "Input", CellChangeTimes->{{3.756146670351677*^9, 3.756146713760792*^9}, { 3.756147083912532*^9, 3.7561471140866127`*^9}}, CellLabel->"In[61]:=",ExpressionUUID->"3851471e-6913-4b9d-a263-b5e8786a9d2a"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Gamma", "[", FractionBox["13", "6"], "]"}], " ", SubscriptBox["B", "0"]}], RowBox[{"2", " ", "\[Pi]", " ", SubsuperscriptBox["A", "2", RowBox[{"13", "/", "6"}]]}]]}]], "Output", CellChangeTimes->{{3.756147094752083*^9, 3.756147114377037*^9}}, CellLabel->"Out[61]=",ExpressionUUID->"80405869-9d0d-4f31-b835-fea5e2eeb6bd"] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", "a", "]"}]], "Input", CellChangeTimes->{{3.756147142145719*^9, 3.756147143639929*^9}}, CellLabel->"In[62]:=",ExpressionUUID->"fe9eabdd-9122-4e50-ada7-78e3950b9bd6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{ FractionBox[ RowBox[{ SubscriptBox["B", "0"], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"n", "+", "1"}]]}], "\[Pi]"], RowBox[{"Integrate", "[", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", "X", ")"}], RowBox[{"-", RowBox[{"b", "[", "d", "]"}]}]], RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "A"}], "/", SuperscriptBox["X", RowBox[{"d", "-", "1"}]]}], "]"}], "/", SuperscriptBox["X", RowBox[{"n", "+", "1"}]]}]}], ",", RowBox[{"{", RowBox[{"X", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"n", "+", RowBox[{"b", "[", "d", "]"}]}], ">", "0"}], ",", RowBox[{"A", ">", "0"}], ",", RowBox[{"d", ">", "1"}]}], "}"}]}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.756146114382412*^9, 3.756146115879637*^9}, { 3.756146204448526*^9, 3.756146356228191*^9}, {3.7561464093991623`*^9, 3.75614642347545*^9}, {3.756146468612537*^9, 3.756146549640934*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"6be233ca-b95f-4a35-931f-f2a7712ee211"], Cell[BoxData[ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "+", "n"}]], " ", SuperscriptBox["A", FractionBox[ RowBox[{"n", "+", RowBox[{"b", "[", "d", "]"}]}], RowBox[{"1", "-", "d"}]]], " ", RowBox[{"Gamma", "[", FractionBox[ RowBox[{"n", "+", RowBox[{"b", "[", "d", "]"}]}], RowBox[{ RowBox[{"-", "1"}], "+", "d"}]], "]"}], " ", SubscriptBox["B", "0"]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "d"}], ")"}], " ", "\[Pi]"}]]], "Output", CellChangeTimes->{{3.756146347689114*^9, 3.756146356998108*^9}, { 3.756146410213119*^9, 3.7561464281405687`*^9}, {3.756146473765655*^9, 3.7561465079459677`*^9}, {3.756146540504715*^9, 3.756146550360112*^9}}, CellLabel->"Out[15]=",ExpressionUUID->"b6554a5a-a9d1-40d0-959c-aeeea7e75a61"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "/.", RowBox[{ RowBox[{"b", "[", "d", "]"}], "\[Rule]", RowBox[{"-", "1"}]}]}]], "Input", CellChangeTimes->{{3.756146410726206*^9, 3.756146438764554*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"59f4d7c3-31bc-41dd-89b1-76d598a3395c"], Cell[BoxData[ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "+", "n"}]], " ", SuperscriptBox["A", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "n"}], RowBox[{"1", "-", "d"}]]], " ", RowBox[{"Gamma", "[", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "n"}], RowBox[{ RowBox[{"-", "1"}], "+", "d"}]], "]"}], " ", SubscriptBox["B", "0"]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "d"}], ")"}], " ", "\[Pi]"}]]], "Output", CellChangeTimes->{ 3.7561464390142307`*^9, {3.7561464974127703`*^9, 3.756146508659766*^9}, { 3.756146542082902*^9, 3.7561465519899473`*^9}}, CellLabel->"Out[16]=",ExpressionUUID->"22cd78b5-c968-4202-9d34-07d97235746d"] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", "b", "]"}]], "Input", CellChangeTimes->{{3.756228246282179*^9, 3.7562282479674273`*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"6449ae2c-1578-4822-92de-6650bea5c849"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"0", "==", RowBox[{"D", "[", RowBox[{ RowBox[{ SuperscriptBox["X", RowBox[{"-", "b"}]], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "A"}], "/", SuperscriptBox["X", RowBox[{"d", "-", "1"}]]}], "]"}]}], ",", "X"}], "]"}]}], ",", "X"}], "]"}]], "Input", CellChangeTimes->{{3.7562282322023478`*^9, 3.756228277096583*^9}, { 3.7562285458472843`*^9, 3.756228546283895*^9}, {3.75622877740093*^9, 3.756228780759955*^9}, {3.756228811714822*^9, 3.756228811719017*^9}, { 3.756228844906363*^9, 3.756228867245256*^9}, {3.756228952565091*^9, 3.756228969531336*^9}}, CellLabel->"In[31]:=",ExpressionUUID->"975b9032-9a07-4662-a33e-7145ac1d3dac"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"X", "\[Rule]", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Pi]"}], "-", RowBox[{"Log", "[", "b", "]"}], "+", RowBox[{"Log", "[", RowBox[{"A", "-", RowBox[{"A", " ", "d"}]}], "]"}]}], RowBox[{ RowBox[{"-", "1"}], "+", "d"}]]]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.7562282683569098`*^9, 3.756228277801897*^9}, 3.756228546689384*^9, 3.756228781282853*^9, 3.756228845592667*^9, 3.756228969765421*^9}, CellLabel->"Out[31]=",ExpressionUUID->"9f28f254-c6f6-4c75-9161-213e818af1d9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"0", "==", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"X", "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"b", " ", SuperscriptBox["X", "3"]}]}], ")"}]}], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "A"}], RowBox[{"(", RowBox[{"1", "/", SuperscriptBox["X", "1"]}], ")"}]}], "]"}]}], ",", "X"}], "]"}]}], ",", "X"}], "]"}]}]], "Input", CellChangeTimes->{{3.7562295350133753`*^9, 3.756229554046912*^9}, { 3.756231501031888*^9, 3.756231574437511*^9}, {3.756231604779117*^9, 3.756231607825807*^9}, {3.756232124524014*^9, 3.7562321699392023`*^9}, { 3.756232319462789*^9, 3.75623233854205*^9}}, CellLabel->"In[86]:=",ExpressionUUID->"f70d7ca6-ab12-4ef9-aedf-1cf978fe8905"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"X", "\[Rule]", RowBox[{ FractionBox["A", "8"], "-", RowBox[{ FractionBox["1", "2"], " ", SqrtBox[ RowBox[{ FractionBox[ SuperscriptBox["A", "2"], "16"], "-", FractionBox[ RowBox[{"3", " ", "A"}], RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]]}]], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]], RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", "b"}]]}]]}], "-", RowBox[{ FractionBox["1", "2"], " ", SqrtBox[ RowBox[{ FractionBox[ SuperscriptBox["A", "2"], "8"], "+", FractionBox[ RowBox[{"3", " ", "A"}], RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]]}]], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]], RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", "b"}]], "-", FractionBox[ RowBox[{ FractionBox[ SuperscriptBox["A", "3"], "8"], "+", FractionBox["4", "b"]}], RowBox[{"4", " ", SqrtBox[ RowBox[{ FractionBox[ SuperscriptBox["A", "2"], "16"], "-", FractionBox[ RowBox[{"3", " ", "A"}], RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]]}]], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]], RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", "b"}]]}]]}]]}]]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"X", "\[Rule]", RowBox[{ FractionBox["A", "8"], "-", RowBox[{ FractionBox["1", "2"], " ", SqrtBox[ RowBox[{ FractionBox[ SuperscriptBox["A", "2"], "16"], "-", FractionBox[ RowBox[{"3", " ", "A"}], RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]]}]], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]], RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", "b"}]]}]]}], "+", RowBox[{ FractionBox["1", "2"], " ", SqrtBox[ RowBox[{ FractionBox[ SuperscriptBox["A", "2"], "8"], "+", FractionBox[ RowBox[{"3", " ", "A"}], RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]]}]], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]], RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", "b"}]], "-", FractionBox[ RowBox[{ FractionBox[ SuperscriptBox["A", "3"], "8"], "+", FractionBox["4", "b"]}], RowBox[{"4", " ", SqrtBox[ RowBox[{ FractionBox[ SuperscriptBox["A", "2"], "16"], "-", FractionBox[ RowBox[{"3", " ", "A"}], RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]]}]], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]], RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", "b"}]]}]]}]]}]]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"X", "\[Rule]", RowBox[{ FractionBox["A", "8"], "+", RowBox[{ FractionBox["1", "2"], " ", SqrtBox[ RowBox[{ FractionBox[ SuperscriptBox["A", "2"], "16"], "-", FractionBox[ RowBox[{"3", " ", "A"}], RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]]}]], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]], RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", "b"}]]}]]}], "-", RowBox[{ FractionBox["1", "2"], " ", SqrtBox[ RowBox[{ FractionBox[ SuperscriptBox["A", "2"], "8"], "+", FractionBox[ RowBox[{"3", " ", "A"}], RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]]}]], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]], RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", "b"}]], "+", FractionBox[ RowBox[{ FractionBox[ SuperscriptBox["A", "3"], "8"], "+", FractionBox["4", "b"]}], RowBox[{"4", " ", SqrtBox[ RowBox[{ FractionBox[ SuperscriptBox["A", "2"], "16"], "-", FractionBox[ RowBox[{"3", " ", "A"}], RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]]}]], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]], RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", "b"}]]}]]}]]}]]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"X", "\[Rule]", RowBox[{ FractionBox["A", "8"], "+", RowBox[{ FractionBox["1", "2"], " ", SqrtBox[ RowBox[{ FractionBox[ SuperscriptBox["A", "2"], "16"], "-", FractionBox[ RowBox[{"3", " ", "A"}], RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]]}]], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]], RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", "b"}]]}]]}], "+", RowBox[{ FractionBox["1", "2"], " ", SqrtBox[ RowBox[{ FractionBox[ SuperscriptBox["A", "2"], "8"], "+", FractionBox[ RowBox[{"3", " ", "A"}], RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]]}]], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]], RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", "b"}]], "+", FractionBox[ RowBox[{ FractionBox[ SuperscriptBox["A", "3"], "8"], "+", FractionBox["4", "b"]}], RowBox[{"4", " ", SqrtBox[ RowBox[{ FractionBox[ SuperscriptBox["A", "2"], "16"], "-", FractionBox[ RowBox[{"3", " ", "A"}], RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]]}]], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{ SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"104", " ", SuperscriptBox["A", "3"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{ SuperscriptBox["A", "6"], " ", SuperscriptBox["b", "4"]}]}]]}], ")"}], RowBox[{"1", "/", "3"}]], RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", "b"}]]}]]}]]}]]}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.756231505610416*^9, {3.7562315485715313`*^9, 3.756231575283608*^9}, 3.756231608619032*^9, {3.756232138900846*^9, 3.756232170111383*^9}, { 3.756232321430813*^9, 3.756232338905355*^9}}, CellLabel->"Out[86]=",ExpressionUUID->"50dec67f-dfe5-4098-846c-bd34289eb44f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"X", "/.", RowBox[{"s", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "\[Equal]", "A"}], ",", "b"}], "]"}]], "Input", CellChangeTimes->{{3.75623158741789*^9, 3.756231597025342*^9}, { 3.756232163924045*^9, 3.756232184155179*^9}, {3.7562322256208677`*^9, 3.756232229572051*^9}, 3.756232326470851*^9}, CellLabel->"In[87]:=",ExpressionUUID->"49c72fce-e4dd-4ce9-a8da-a490e4376c94"], Cell[BoxData["$Aborted"], "Output", CellChangeTimes->{ 3.7562315972736473`*^9, {3.756232166090753*^9, 3.7562321846485777`*^9}, { 3.756232226130578*^9, 3.756232229920475*^9}, {3.756232322753297*^9, 3.756232326980291*^9}, 3.756232465479632*^9}, CellLabel->"Out[87]=",ExpressionUUID->"4435c2fb-6fd1-4eb2-a44d-279039aa9322"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"-", "b"}], "-", "d", "-", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "b"}], ")"}]}]], "Input", CellLabel->"In[37]:=",ExpressionUUID->"73c8eea4-d4a4-453f-8833-d229c0fc3175"], Cell[BoxData[ RowBox[{"1", "-", "d"}]], "Output", CellChangeTimes->{3.756229740986614*^9}, CellLabel->"Out[37]=",ExpressionUUID->"aebf1f12-4bf0-44b3-a5d4-0a20c1f5a4b2"] }, Open ]], Cell[BoxData[ RowBox[{ FractionBox["b", RowBox[{"A", RowBox[{"(", RowBox[{"d", "-", "1"}], ")"}]}]], "\[Equal]", " ", SuperscriptBox["X", RowBox[{"-", RowBox[{"(", RowBox[{"d", "-", "1"}], ")"}]}]]}]], "Input", CellChangeTimes->{{3.756229691432335*^9, 3.756229772529271*^9}},ExpressionUUID->"0da9e65f-55f4-48d9-ba34-\ 65e4c5d8feff"], Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["b", RowBox[{"A", RowBox[{"(", RowBox[{"d", "-", "1"}], ")"}]}]], ")"}], RowBox[{ RowBox[{"-", "1"}], "/", Cell[ "(d-1)",ExpressionUUID-> "a50ec181-e586-4616-bcef-46b17dc5eb3b"]}]]], "Input", CellChangeTimes->{{3.756229788327608*^9, 3.756229797268004*^9}},ExpressionUUID->"540d1f78-77af-49b9-a447-\ 24b4b3932215"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Pi]"}], "-", RowBox[{"Log", "[", "b", "]"}], "+", RowBox[{"Log", "[", RowBox[{"A", "-", RowBox[{"A", " ", "d"}]}], "]"}]}], RowBox[{ RowBox[{"-", "1"}], "+", "d"}]]], "/.", RowBox[{"b", "\[Rule]", "2"}]}], "/.", RowBox[{"d", "\[Rule]", "4"}]}], "//", "FullSimplify"}]], "Input", CellChangeTimes->{{3.75622916519069*^9, 3.756229201951314*^9}}, CellLabel->"In[35]:=",ExpressionUUID->"ceb50802-9d95-47c5-9af6-06e0caeafb33"], Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Pi]"}], "+", RowBox[{"Log", "[", RowBox[{"-", FractionBox[ RowBox[{"3", " ", "A"}], "2"]}], "]"}]}], ")"}]}]]], "Output", CellChangeTimes->{{3.7562291775424232`*^9, 3.7562292031151543`*^9}}, CellLabel->"Out[35]=",ExpressionUUID->"cdb02cbb-5aec-4176-8cf4-3f32d0098ce8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Pi]"}], "-", RowBox[{"Log", "[", RowBox[{"b", "[", "d", "]"}], "]"}], "-", RowBox[{"Log", "[", SubscriptBox["B", "0"], "]"}], "+", RowBox[{"Log", "[", RowBox[{ RowBox[{ SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "d"}]], " ", SubscriptBox["B", "0"]}], "-", RowBox[{"d", " ", SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "d"}]], " ", SubscriptBox["B", "0"]}]}], "]"}]}], RowBox[{ RowBox[{"-", "1"}], "+", "d"}]], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["B", "0"], ">", "0"}], ",", RowBox[{ SubscriptBox["A", RowBox[{"d", "-", "1"}]], ">", "0"}], ",", RowBox[{"d", ">", "1"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7562282996636066`*^9, 3.756228321480444*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"56635cfb-2049-47de-8743-981e268587f0"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"Log", "[", FractionBox[ RowBox[{"b", "[", "d", "]"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "d"}], ")"}], " ", SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "d"}]]}]], "]"}], RowBox[{ RowBox[{"-", "1"}], "+", "d"}]]}]], "Output", CellChangeTimes->{{3.756228314918723*^9, 3.7562283218200617`*^9}, 3.756228547705492*^9}, CellLabel->"Out[19]=",ExpressionUUID->"54d42bbf-4611-4d81-9b71-fe38c8aca03d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"Log", "[", FractionBox[ RowBox[{"b", "[", "d", "]"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "d"}], ")"}], " ", SubscriptBox["A", RowBox[{ RowBox[{"-", "1"}], "+", "d"}]]}]], "]"}], RowBox[{ RowBox[{"-", "1"}], "+", "d"}]]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"d", "\[Rule]", "4"}], ",", RowBox[{ RowBox[{"b", "[", "d", "]"}], "\[Rule]", "2"}], ",", RowBox[{ SubscriptBox["A", RowBox[{"d", "-", "1"}]], "\[Rule]", "1"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.756228404610585*^9, 3.75622841465856*^9}, { 3.756228462834785*^9, 3.756228508612195*^9}, {3.7562285890314093`*^9, 3.756228620394246*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"5d02740a-e5b0-40c1-a3c3-48eea3f711ae"], Cell[BoxData[ RowBox[{ FractionBox["1", "3"], " ", RowBox[{"Log", "[", FractionBox["3", "2"], "]"}]}]], "Output", CellChangeTimes->{ 3.756228414860186*^9, {3.7562284728414583`*^9, 3.75622850892664*^9}, { 3.756228591466531*^9, 3.756228620634259*^9}}, CellLabel->"Out[23]=",ExpressionUUID->"2ff2e042-eba3-4510-8633-7e3546aec8af"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox["b", RowBox[{"A", RowBox[{"(", RowBox[{"d", "-", "1"}], ")"}]}]], ")"}], RowBox[{ RowBox[{"-", "1"}], "/", Cell[ "(d-1)",ExpressionUUID->"ee9e6b5b-a333-4268-8c86-7ffad92a65b7"]}]], "/.", RowBox[{"{", RowBox[{ RowBox[{"d", "\[Rule]", "3"}], ",", RowBox[{"b", "\[Rule]", RowBox[{"7", "/", "3"}]}], ",", RowBox[{"A", "\[Rule]", "1"}]}], "}"}]}]], "Input", CellLabel->"In[41]:=",ExpressionUUID->"fa3beba8-deb4-4335-8c3c-b1f633ff4b2c"], Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["7", "6"], ")"}], RowBox[{"-", FractionBox["1", InterpretationBox[Cell[ "(d-1)",ExpressionUUID->"2b2fb340-cee0-4b28-88ec-795c5431cdd8"], TextCell["(d-1)"]]]}]]], "Output", CellChangeTimes->{3.756230198179253*^9}, CellLabel->"Out[41]=",ExpressionUUID->"5fa7663c-f3be-40c6-86e7-8ec1c6b47acf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox["b", RowBox[{"A", RowBox[{"(", RowBox[{"d", "-", "1"}], ")"}]}]], ")"}], RowBox[{ RowBox[{"-", "1"}], "/", RowBox[{"(", RowBox[{"d", "-", "1"}], ")"}]}]], "/.", RowBox[{"{", RowBox[{ RowBox[{"d", "\[Rule]", "2"}], ",", RowBox[{"b", "\[Rule]", RowBox[{"-", "1"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.756230244114882*^9, 3.756230255786006*^9}}, CellLabel->"In[44]:=",ExpressionUUID->"e57b76eb-1ca4-4632-ab6b-1f3ecd7782b1"], Cell[BoxData[ RowBox[{"-", "A"}]], "Output", CellChangeTimes->{{3.756230246336422*^9, 3.756230255991004*^9}}, CellLabel->"Out[44]=",ExpressionUUID->"e1a5bbbe-f89c-4da8-8d58-f1b517e8ae37"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ SuperscriptBox["X", "1"], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "1"}], "/", SuperscriptBox["X", "1"]}], "]"}]}], ",", RowBox[{"{", RowBox[{"X", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox["b", RowBox[{"A", RowBox[{"(", RowBox[{"d", "-", "1"}], ")"}]}]], ")"}], RowBox[{ RowBox[{"-", "1"}], "/", RowBox[{"(", RowBox[{"d", "-", "1"}], ")"}]}]], "/.", RowBox[{"{", RowBox[{ RowBox[{"d", "\[Rule]", "2"}], ",", RowBox[{"b", "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{"A", "\[Rule]", "1"}]}], "}"}]}], "}"}], ",", "None"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.756228426994399*^9, 3.756228455707407*^9}, 3.7562285129620953`*^9, {3.7562286112907963`*^9, 3.756228639901946*^9}, { 3.7562286955908527`*^9, 3.756228764688662*^9}, {3.756229819723646*^9, 3.756229843367875*^9}, {3.756229873560066*^9, 3.756229873611905*^9}, { 3.756230107799925*^9, 3.7562302215694427`*^9}, {3.7562304507833967`*^9, 3.756230473350346*^9}}, CellLabel->"In[45]:=",ExpressionUUID->"2014fd9c-aabf-4b79-ba93-3ed77090f29c"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVlnk4ldsXx1Hve44hs3ORKUIpkaEkaaBoIJWkpFAkZB5KGTIlRSqprrqV hmuokEKktZJUVOgYM1yzYzqOYzohfu/vj/3s5/M8ez1r+u619zIXn/2uAnx8 fJ3U+v8e1m/FXViQQpfJq7yUM7LYd54x2TInhS39mieiPWTRWvy/6cLfUpgx y2H6nZJFlQ2+f3zGpfDprNwXa2dZLEu4Qe/ok8JF/Mqz9IOySF/TqITfpXBG 721SuIkspgQ67Y5Mk8Jd+hjlLSyL2fwBT/jWS+G38yJHXDL/QsLVQk/OURIf WCSdWVPPQKmmT17p1yXw2F91tBQxBu7/+PeJlZXieMdTnuZjLYPnRzd5JXeL YfrQeNKLMGksCvnbI2evKEbtFLufWyKF1jcOqszfFcF0oapPVwYl0eJ+qbXl sBDaj6rEX1aSxGefzzUEOAiit4z/0+fOlJ+YFJnqDBq29gtM/0gVx3CnRS+F pUgk1/6z52ihGPJpK4NZ7GI8+0XRpM5KFH9duXspu14ARRvNIm2/i6CCkHvm xDZ+rPSnrdH3FUZPQy2iRWEB5BzaXQwXC+GJ9e0ZHz/OQljdX3TIp6PWWeMF 7yc80H9k4Fd6i4bYZq3VncqDsfptbL3rNLQzO3Hw0GUefKpK9M++SsMo0avZ m7154Ol7KvNpNA2bn7QdEjfiQdTi7Ajwo2F8bWRuXtU0+H1yjU6ypmGf1mfn Ce4UcHeAV5UQDS8kt1x1750CrYoWkRyShpJTo4WtjVPwUDPlXqoADU0/yIp+ ejcFBdzbL/xmSLx1yKP4VtwUbFIqS7IfJNE8ZonUevkpIGdsvcYqSXzUdqD8 3NZJ4MvvvpZ6jUS9Hr2ZOoNJcBbJOmxxlcTyQQld3RWTEPw7Nn8unsS+6eq0 PtFJ4Oe+3hIURaKW5J6AA60TYB20nvVPEImvdpiraodMQNVCk3j7URLNrNTs 4z0mgLtYYLz1MIl1BwSSuh0nQIC9INtpR+KUE/6+az4BWwkLl982JG48b1JL Sk7Aso36ez23U/5zDCI7no/DyS0BZk46JB4skCrY+HAcHMucE9+upuJ5xx1K vTkODuxNk7JaJNIrcw9ZhY5Da2iww+ByEq16VusUW4yD7rZBw2Z5Ehtk1dtv dnHhwfVE30kaiaeUF0uP1nOh/IKsWhFBIk+9e+eur1zIaXgxf3ERifL6j97w 5XJBcajo/KoFAo9ZKSaeCeOCWEz9s8YpAvsvyphYyHIht7XI+1k/gUJhOaM3 hbiwxc6SCb0Erjm783HH3BgYvnfX6O4mMNg7TCi0cwwK3/FELTsIJB16m55n jcEDs/Nbk5oJ1LKLuPr73hgUyT/3mWkk0Hqf3JYd18agupkd69dA4C0Lq3// CxiD0uI2TiSTwOUGb4IkN43BQ9Pxyyt+EGips3flcZ0xqJIrfj/6jUAvrYHW 7GVjkFNnNVVWReBrFUXz7eQYrEw3I5O+Eti0tHD6Oo8DsrvcV8d9IXCOsS+7 fZAD+QG9nITPBJotiZU8W82B+cRr08WfCHSjK1eUf+DAk69wta+cwIRFb89J vObAC2M7N2WKX87v1z72jAOZv1JyXD8S+PP3cEfWHQ40vAxJeVtG4NREXMp0 AgeY/xZtXUqxPEfF0jyMA6y7zJ6EDwSaDhXPJvtwIMta6DmdYpc+25w2Zw7c z3WvSEEC4zrZLlq2HCiS+HpCh+Ks1nhGyA4OnEpset0EBP5oVK38aMQBkUtL h5Ip5v58Fya+igP3tnON7Clm/LBb66jIAb8X92vXUGz8ldOTKcYBATnzAWmK j5Un3Jni50DMvqnXQhQLROy8E8caBa+M1x7iFO8KCltQ/j4K7/UCt2pQfN0z z+1t3iiYaC7320Nxk3Pv9/2poxDglK8XTbGKvZzhcOgo1CxiYCXF7tZW92KP j0KV9W5bNSr+XPOLi5TNR8HxyolViRTzjN94FK0YhZHVcVH/z3/z2oHafUtG gf8v3u1bFMdpKm4YGmMDS1Q124Cq3w/FfQ9jGthQffj2XC/FDOlYmlIJG2Li FX5kUvU/JvTWu/ABGzz9X7pEUv15xjdSbxPDBk3ny/OnqX6OTKlsGnRng4O3 br9bBYEXuuOFFfXY0PQ7vCSN0kN58zv/AgYbSvuYRnWUXkRqOM17Z0fgymIn jWWUntLe2WdElY+Aqh5/7O/vBHa9uiqmkDkCS/7eeDO2mtJzJga/SRyBuT+C ezRrCSy+tWI7y24EeJdL6S/qCKQ79J/gNxmBV9FDL+MpfdupPIuSXzYCinHW YaFNVP+y1HDP0DD03kjofdRK4BbfrnbXmmGImZ1e3dROYJLhoz/hb4bBrqVx Wr2TwJWotDEvYhiO61rGCfZR9y227XDlyWE41H2XeMii8tl172z3zmGIK52O 2DtEoFO9XIGM9DD0h0dyZzgE3hmUXhuaMQTWJnvkr/0hsC+Hufdm4hC0Cm3L 5fGRaBB0w/u5/xCcdL50PXwxidULYs/bTYag6JOCYKcw9c7ICGua1Q7CbFqv kqgCiba/vm4/WjAI7T1p+06pkJj+IP5kUNogBM+tfdtBzSdTLTL9X9dBkFuW arNuDYlBm/kVRWYGgLXuj++FbSSWLcaN6v8NwFntK7R+CxLFK8OPmJYPQISz w7lgKxKf287d9k0agF07naNJar72nJ6WrFcdAMOGfXLzftQ81ylYy6YNgNb3 1MPpZ0mMnAi0oY2wICuRn/SLIHFpBDdxQyEL3jeGlSYnkrg/ZYT+z24WOG3M OcPJJvHh4eeahbossGoYKJjPJ5Gt5LmjRoY6X01TM31HYkImK1qgox+ENf01 bL+T+OF997xbYD9wTnhG88ZIFI1JV4w83A/3P252y54l8ehOZ5O7pv3g4xuR epugIY/Zfq6K3g8Oer9DVORpqDvQPKFzvw98vwQsZ+ygYSBHe+VfMX1wsD/Q f8iGhkXTFx3nPfpg3i7DbNaBhltJrYpvRn1wL12KVu1Pw/1qobdP1/VCeFVG t/tjGqZq/aiyKekF1uzxYf1cGrasVeUzSu8FdYXlwWalNDy5pdKd9O2F71LB uYZNNAxylDd+LNwLb2zXnUiWoGPxSW/vBG4PJJ5iNGeo0HHesyzdr7kHdC3d VSV16RgX6iG85d8eYH+b1W7fS8c7t4tbW7f1gEJgLufaTcq+9kgEI7QbLq1h 5mpqC+J808v8P07dMKjvYW+yTRC3dQiweiy6QckpJLb8kCBWsbNs8mW6IYRh mWwcI4itwrPLbPK6wL6IYSneLYgqUnvt1t/pgokDrWek5gTRVf5xglJEF/hs 5atIlxFC9ord48N7usDY7cGRwF1CuLA9rfwyqxNC8w3mrEqE0NxqlOdb3Qkr orPbFJqFMN7WTNu+oBMWDYX8uj0thOInhm5pxHSCaEXFtyfrhFE1cuOpj8qU fZzGlWelwuh26VpaFtkJCbW/jZw7hTErqbv6+kgH/BCO6x8jRFD//hUjp5IO eGr6bP7FPhE0L24R/GPXAXukCdfdEyL4Muvphs8bOyBsDNUV1ZagbJrP6esq HWDX1kbXPrAEG6bJG7vr/oNLNTnTawuXoPp5O/H7M+1Ae/MrhZEsijyHQZ+1 5e1wbVK3SKFSFL+ZhFd/SmwH1vqjHz8SYhg4/zSJrdIOqVYr1NZGiWHZxUmR LRZt0H68TPSFpTimulz2qhNvA/1KHW35M+J42kzxm/uvVmAwneL+uSGO4sT2 K9fPtEJ2wxyfXKc49vQ2Daqvb4WWkgspGkISWFThtauYrxVWqz+yDzWQwOPx KYLdN1tgof3Qdq1ECdQ7veJ0iGMLvDY9oPy4RALJXe++CGu2gGLonidpQxL4 UrjnkkHxL7iz5viYlY0kziXpk3EdzUCQb7rfrZHCGp/PrvJZzcDqEpDT95TC xzYOn14GNMMrhqDrl0zq3y0ZHdNINkNt/oGkQm1pVBpn9HjWNIETzs5bBkgj l5llxvd3E9h9DGa5l0jj3Vs/BVZqN8HFGI5O4wEZ9Ap2cymdagTLJ/HWXk9k cMuhmQ/7sBEOS+sUK/JkkCWrejH0QCOk6+Rlh2UycN09v4Wqcw1gfE25xm+D LPW/IY47mTUALKS+kcuQxTbHu+8nRBrAa7wvMnqpHMYofwhTfFgPm5fz1pdK yKM938G2vNP1cPDyUL/WLXlc3cky2aFfD35oLHBbaSky08XnvCvq4KH606Zh cwV8Fv3EYVFyHdA7f9KzuxQw9KRRye3DdXCxyo4mGa+IqhpOoTjMhCmmusTA kBJOkRPNtgVMmNlV6XghWxm/9l/aMBDBhAi/G+mRxirom5nDk5BiwoO8V98d pZehrqh39LaOn2DYusl0c9QyHPNfLRrw4id4TH79xJxchv4mmWp1Fj8hxXp0 Z9GoKuo/OvVyscxPYMzVsDjBajhBaGww7KqFn7adwznEcgyqTrdOvVALh0pu BEuYqOM6A+fmip21cKGxkbnQo45Td5RPTjNqwRCu3hC7o4EFf9rYmj010CdP V5K008QQl3vn7PNqYGtymQxbeQUafT6y+HJ4DYSde9rxaGoF8lbJXXu7uwZU ee/v72hZieODq3YafquGC+X78pyZqzDwdcaxVLdqiMpbeJU7sBrVS10E8mnV YHl3092RBW38H69cbV4= "]], LineBox[CompressedData[" 1:eJwVlHc81fsfx60Ujs65vm72VcjMFbKK8/4UMkIiM/e62Ul2drKS0Q3JaVBm ikj2iHPI3ntkx8E1sgmRX78/Xo/n4/H87/nP65SVi4EtHQ0NTdqv/Z8RDXtd pvyOoMp7+1uanaDgOFf+Mgs+ADRKdObVvA1kDGWHKsMvhsFyzNZYkIqdfMkX k5CH/lHQgxlNDQ/FKbJWLwrWmceCti4n2wjtgpKb3e35uqckaDlbS3UbCrqQ piShU5//ApJ9vg/NK9Ip9+EWP9R3JEF+m2n3ykd7ZcbJ7N8aFpPBoszpe49G hXKSmdx567BUeM1Wttwidagsp5pwe5otHbwe8F0zPq6g0nFmK8k6NQNYjNfj NVPsVexPGHVMS2XCfpAyH90fT1RoaIoPrclvIfjOex1D2hKVF/Ps0lSdLLDS FdqP5RhQken1tLIZyQZncz8Rwvq6SmtlXzz1Vg5IDlt0UfxwRJvMc/U2O7lw K7q/KOu0IPEg5uk2NTwP0vgdUwYdFIitynvxBVEfYUVaxf66pTbxuXR2zvq1 fHBYpc/Vzr1BtBE2r5fhKoBVSEUzureJZ3mYx90nC6Dgw0hCZKgv8QBfsV3w thDGuM9f7i8PJ7YwOOI3nItgU+ywL8Eunkja5RKVlS8GdJHVqZKaTLRabkYe B8VQgxugCzPJIv457WtWWFcC1BNWPtIRhcS9QTH3jehSKHE6wtCmXUVsbPsS JWtYBkJiG9U9TvVEB5/hxhsS5fDkL7WnYo87iceERhjC6CugrKh7NDhvgJjV OXIxZ6QCkm4O6jEvTBC1/UcD+wo/gVYc7h6Vdpa4IDz2aT+6Eh45HcxHdXwj RveM7QjZVAGZLvWj8/AG8UzguJyuMhkSixInFXF7xDaxCfe77BTgoSiSXnyh Aaf+ibxXSxTgM4tfufzgCIQj120rq2og4MJwW6IsYExaZffuqAb9oYMQjQ0C iCy5ykafr4GgLx9mfqyyw87FtWvJmTUwlVNe55bCBU3P3FwL2T7DesEjRpPf +eH5t7XHjYGfAc9FrWIpEAAHVffckYXP8DgxSmBaXxgUX6y3rhjXwkyWgAu9 uzgcW3FfoK+thSAWRbz/SSkYUts4xilVB2cKs0frZGUg66WHyJnEOhgNqE7X FpMDv9UNdXS0Hu78u+4W46UI2pc9ba571MNQLMdVi1PKwJ20GeIwUQ/6FcHj ZA4EC2ueqQFXGkACOoIsDS9BhcYWJba0AU74yoy6N6hB1Ku74xmCjfDTU3tw wEMDzDe29stiGiEkpemB1d/aIKHlxdP+oxGO8MlbUyN0Yf/1ttJX+ybgWWYy J/jrQ9uml+lWbxP0MtxidLhuAE4p3gl8Oc3wV5btWrynMShvfy+U5mwBQ46Z hYMqU8Dp+PSoh7XA9MnByStSNyD3uw/e2aIVWuWKbWQ0/oFA3V3JkKZWSGWw X0GUm6CX7qtDOtcGxZalJvG61rCs5xdJxrXDs5rHJwTy7ICcsfe2x6cdFHyY b98MdYDHe34Ns9R2iFrGhy64OIJUpj89vqoDTCatc7PinYFm/8cpQbFOYJpl fTVm6wpd1wKQQkInWDp2180+doOyQDI5T74LcjmbmyqOeUJK1s/2cqcu6PhH +duE2V2I6COO1aZ1wdDwa6yizAtMxSk/Bo93w272tqZoii8go0PmKbVu+CMm XJhBzB9Eg4B7ya8beHVGyoWqA2C3n6JIM9cN0/2Js/24IJiiodFk5usBRlOJ MKHlIGiRQCbshj0gGkxRaxsIhpfB1XdFKT3wJNWL25AcCuclawr0n/WCJUe+ LXHuIcj1DZDIzb0gOFmey74WAWf9l/zO7PcCS/sVu0jaKBBu5lA9drMPYqR7 NS3kHwFm69xLEe+HxajPetvesXAcF1Yq+Vc/DIokZd/niAPmwheJiTH9v7xY pmVFHNDQ1lt7b/ZDin5TiQBzPCwl8Wz+SR4APc5z0RndCTCnKj2UtDoAe1cL anujSTC1cLmSWXAQEqbNWAy1nsEXRfew2YeDkKq7JHOh4zk09DWxv742BJha TYb/YSIk47zkWGe+wEy+nkZXYCq8LIzm8ucYhtNHoslTW6lAMk89+E9rGPhg 8WuEcxo8etdWX/dhGLjfq9pF2qSDj5qgcYDPCJylIh5x6zdgENDltcgyBtaX tAY1s7KAzuv3URuuSVCU6+wNeJMP5v9k95Sdm4T9SIMwy8N8KNCGZpz+JOh8 UqAwmReAFf+tkqLwSTirOO+a91shfG6qjGXYnAT7+0WnuaOKIJTHRj2j4yvc mVXVvvS6FBhqCj5Mh07DuQOF9w3aZLB4r/FGIXkaWOrdtQifyFCUMJoYXTEN T8a1XXckKGDjyBgpuzYNqZlKPZ1Hq6EeM7cO/ZsK/ybcJ7GvVEO4HS2noNIM tMUEkRNaP8NRnH6w1fIs/B5o96CkrAFMRcyr5ZnmwEhXHxe60wDZl2wOmYXm oJTgURit2Ah6vj73Cs3mwDt3NPVqeSOQZlN8GernwGTC4FtCVRMI16y5ZSb+ B3G7vP+Su1pA3SveakFzAfyWdOPJf3RC6OSAqnv6NyD4h7DsC/TBx8Rw/cD1 NRgXR7H5LmPgkmZDoBpv/fqxvRFMnAp/O77kexi8A+3d96tEQuch8pqXkmzS D3inLyC9vLwMDOwJs/f3fsJ9yYhNF/91GGx9sBqGp0XpveW7xmZbYORvJf+y lg6hB4yP3IN2wIllUaDDnAHt3y6Zz/X7AfzvG0iMC0fQk8NBeg+nn+BfpmqI TzyKDHJyFg67aZBrplOJvBQTCpw5JZ18nQ7h6BSs/pxhRlkGNaYfd+mR+p3r CeLxOLSnfFAz/vwI4iznc1EXOo56fEvZw/mOoifuEXFnB/GIM6ZMT77uGDII vyr5qoSAKmjv9I5dZUbiN8KMMu79ht6dxEikPhY0MMuUFm/EhrQ4zDzE/FlR h9XMRTZ+DN2SC/IWZ8SjrwxvdxIEMMSusZ6CZ8WjzUyHPC5hDHFjvAObGB5x LS7ynpLEUMVEoDXlFB7ZeKx/l7qAoUWjYSYjFTzaCz3M1TXB0FdV8v0QTzwS fsPFHRmDobHh4rmZKTxS0hjpwsVjiE2+PaBtHo905pMexpIwpE9D5S1cxSM3 yZNbz15hSGho917QTzyqLBbuynyP/eojfWVlJSCDBtnwukYM+XH5imeLEpCt w5ayZiuGWl3LW/nOEJAPc+lGaweGeIl67nFSBPRK7/zN3n4Mpb5z7PSRJ6D/ BpDy1DSGNvlPN2uoEdCeD92G7RyGcu9Rnn7SICBWnrqs+QUMqZu/sJW6QkAy lhoca2sYEpGj5eAwICB1WqYOzy0MEZmjvkcZEZBpekvYzg6Gmlg0x36aEpCj +qMLAfsYss5SbHK3IKB7c7rrh4cYsrxuVjZrSUD/AxH81bk= "]]}, Annotation[#, "Charting`Private`Tag$3623#1"]& ], {}}, {{}, {}, {}}}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{{-1}, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-5, 5}, {-14.99985960843027, 4.093653564884419}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.7562301283371773`*^9, {3.75623016546052*^9, 3.756230180909937*^9}, 3.756230222318284*^9, 3.756230473632948*^9}, CellLabel->"Out[45]=",ExpressionUUID->"d8549b05-64bb-486e-9980-a41260b01aee"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"X", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "A"}], "/", "X"}], "]"}]}], ",", RowBox[{ SuperscriptBox["X", "1"], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "A"}], RowBox[{"(", RowBox[{ RowBox[{"1", "/", SuperscriptBox["X", "1"]}], "+", RowBox[{ RowBox[{"2", "/", SuperscriptBox["A", "2"]}], " ", "X"}]}], ")"}]}], "]"}]}], ",", RowBox[{ RowBox[{"X", "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"1", SuperscriptBox["X", "3"]}]}], ")"}]}], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "A"}], "/", "X"}], "]"}]}]}], "}"}], "/.", RowBox[{"A", "\[Rule]", "1"}]}], "]"}], ",", RowBox[{"{", RowBox[{"X", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.756231668739176*^9, 3.756231739635553*^9}, { 3.7562317727776127`*^9, 3.7562317905647907`*^9}, {3.756232264405724*^9, 3.756232304518921*^9}, {3.756232659116987*^9, 3.7562326871665983`*^9}, { 3.756232887960579*^9, 3.756232897871813*^9}, {3.756234633850582*^9, 3.756234639037499*^9}}, CellLabel->"In[98]:=",ExpressionUUID->"f6de5376-4aa5-4d69-a190-93ec6a31f0bc"], Cell[BoxData[ TemplateBox[{ "General","munfl", "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \ \\\"4895.104895104895`\\\"}], \\\"]\\\"}]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"",2,98,114, 31079175122089511229,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.756231711507893*^9, 3.756231750658662*^9}, { 3.756231780954235*^9, 3.7562317908883877`*^9}, {3.756232276289069*^9, 3.756232304869416*^9}, {3.756232659415544*^9, 3.7562326878108187`*^9}, { 3.756232888303709*^9, 3.756232898804175*^9}, {3.7562346342330027`*^9, 3.7562346392875357`*^9}}, CellLabel-> "During evaluation of \ In[98]:=",ExpressionUUID->"5e8670f8-0732-4fd3-b34f-e18cf804c51a"], Cell[BoxData[ TemplateBox[{ "General","munfl", "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \ \\\"4895.105303676323`\\\"}], \\\"]\\\"}]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"",2,98,115, 31079175122089511229,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.756231711507893*^9, 3.756231750658662*^9}, { 3.756231780954235*^9, 3.7562317908883877`*^9}, {3.756232276289069*^9, 3.756232304869416*^9}, {3.756232659415544*^9, 3.7562326878108187`*^9}, { 3.756232888303709*^9, 3.756232898804175*^9}, {3.7562346342330027`*^9, 3.756234639312743*^9}}, CellLabel-> "During evaluation of \ In[98]:=",ExpressionUUID->"67f2fba3-df64-404e-b8ee-b8ddc80e345c"], Cell[BoxData[ TemplateBox[{ "General","munfl", "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \ \\\"4895.104895104895`\\\"}], \\\"]\\\"}]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"",2,98,116, 31079175122089511229,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.756231711507893*^9, 3.756231750658662*^9}, { 3.756231780954235*^9, 3.7562317908883877`*^9}, {3.756232276289069*^9, 3.756232304869416*^9}, {3.756232659415544*^9, 3.7562326878108187`*^9}, { 3.756232888303709*^9, 3.756232898804175*^9}, {3.7562346342330027`*^9, 3.756234639329503*^9}}, CellLabel-> "During evaluation of \ In[98]:=",ExpressionUUID->"5348226a-b7ca-482b-81f3-87b2bec1826d"], Cell[BoxData[ TemplateBox[{ "General","stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"",2,98,117,31079175122089511229,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.756231711507893*^9, 3.756231750658662*^9}, { 3.756231780954235*^9, 3.7562317908883877`*^9}, {3.756232276289069*^9, 3.756232304869416*^9}, {3.756232659415544*^9, 3.7562326878108187`*^9}, { 3.756232888303709*^9, 3.756232898804175*^9}, {3.7562346342330027`*^9, 3.756234639334796*^9}}, CellLabel-> "During evaluation of \ In[98]:=",ExpressionUUID->"562a6c01-79fe-4fc3-9f1f-a49f7087e09e"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwtlYc71osCx4WU3pJxdFOOUSGFlHEy3t/XTZIZSjmSdWREiMx0UMp6ZWRf 5TXLzggN+7X3lhWRvV7em1NS99zn3u/zfJ7Pf/D5Cls6GdxkZmJi8v2b//rZ n5Zsp61CCab/j9YrpH1NyA5p+6bt9/mzHPnZUPlQSMgLN1t4541YG6SfVYcJ 7hQKRgmngfmbf0mfdSC73d4UTIDqHH/6j4klpeK+iXSGahJUfTo8VvyvKX+z 1x6l2yRjXCBKNDI8X5m6YzR4Uy0FAx3+DRLXGcrn2yNFvgym4vfyp1orttLk uXj1GoZdOpLSK/KomxZkitW2ycZWBty1dc6LsYaRpaWL/6KHvcCFtd1CPteL yL1bttFrglnYc1+elkjqJbs3CkivFmbD9c7KC/2GNfKhp32ty6q5+Ba2IeDU wE5UmobYLPXn4Z4em1lEhjBheUKFZdGmAFqu2ZvVs3IE85Z3J8PnFfTMW0Ya f1wk+iYMf2WoFQKbAcNOAcZEZoO0/QZHEd55sjuJ2twiPHNJb9YHixBkejz6 l3FPQjNqhm2dWgz9Nb0mGZ3HBL9nzRW6XQlYUkNupYg+JVZuJKWunXmNk376 w9PpyUS1qsfa6tZryK1PhPj/M4uIEjcgVmml0NwVV5AZUkxY7ZekrISVYVCE NYbPtoKQ//eu4eWr5SgLJ6Tqo+qJXSOfxJYF36CmzlnLZLWDGKqucFuae4OG B7mtlPJ+Ijszvm6x8C2KdRRX9i2PET4UV65F73fIXiGB/9w0oeuia7ag+h43 IvL8S7YXCCEj8bz5vRWw0J8zp5bRiXUy69ZcfwWcP5J4tuhfCNrRjxfnnldC pWCBzm+0TcSyv42dtanCD/qo9ngoM0o8NF1cD1bDeZSneUt6F5IWfuPb8KlG ftCpuNjXe/Hohki1y2Q1aNTfnpckcsGxi9tmXa0Gtzb8uLqseXFNlYnDJbsG hc8Uhc06+KBSulxC56iFeR3vJiYFIC4+cv2Oay3mpy9xr147Au6kJmb6YC1u cfi5RWaIYIujNMtZuQ6+gdJpZyzFMe2fprdGrcMfcnlfcmMl0c6I2HTaSYPh 47oRJtHTKLX58/mqHQ3FCaoZL+tlkDxsr+bUQUNnplTLfL48gnR+X1o5U4+r Ppk6tjMKuFN94aljXD3UadfftDmTYSwjq7iyVQ8HBU1T8ywVqGYKT942b0AC /dOWW9M5SPDtD1qmNSBvIPbeX/9QAy/lu9Rt8UZ8jWA5JZeojh8/5vuXwhph 9zJN+K6+JmbvDPo4rDeC/vLAxBfooGuadnTpahPeZx3O3ZLRQ0pL8p1FwWaM Fsr4xpZeBiP+9YmPlGZ4yj7JT+gxxAWb1qmer81QYuuXfMhrhAS5yaQG6xbk RGmJJvkZY4ll0/Btbws6aqQPivDeAHr27s9XacUvXLz3DPvMEEU90pSS14pO NkppnpkFzpJ1FYMD27DAtedQ+RMrhJKsNnwYbaDkpMkbalhj/INXrrNFOxIo P41389siwD1DwEipA8+uzLunkxwweP7doNbLDsiG+AV4izviBE93BHg7ceHm +h9UaWd0FXxnFlvtxMwkab9QhAu4wW66T6oLGQbhYwJ9rlASjVYMtOpCdcwB s2ERNzxhZG14d3dhcCxq7+kND5SPyHYxdnXD0ZOV87CTFyZrq3IdiW6QxBxC zb56Qzay/6ZlTjfyae9sfRT+hKmn+bnRyW6ov6eER676ItBsUeDqwR58l9Sw Iw/7YVhyx5DGox6cKn0rEPv6AXxbJDRPm/XiorN8n1jjY7wsLBPNiekFc55J Re54IHriz7GItPXC3nei8/N2EI7ZGL0/qNAH3Ug79uDLoWhhCZBi4umHJJfB 3HfJCDAWOEjeGv0QNfJYqh+KwK89CbMbvv3oe6R19m5gJJypBdTZpX5snORk 91uLwgHyCHdnwwAE4tzKVegxUDlmvXpxewDfIj5cOvIuFnYkemutzCAOF89y TwbF4f0Htkel1EGsMKKjlk8lwNL9zOYz7yFcZFdv2cpJQn5B8IiD1DD6lM7b xkikYoF7gaJpMYxpZz6vHS9SIeauSRyPHkaqLk/pzqNpoCqTUqa+DmNANDq0 UzAdUc0Ua+P6EUj0GNBkJTLhPhVOVzcZQxCHaGnEk2wUXVhLFQkfQ1baK91E 4RysZuldYakdw+nE4CD+0hzYOnOVVYqNg2IhYPVgKhfG21E+chvjuL//1nDc pQIkk1ofcqlNoO7xSeaHckUgyPdM/EwncOzpwKRWSBFGHU/KrXpMIJYa3Vb1 sQgHe0Jn2rIn4LJ+/XY6pRiR8doaQZyTUGKtSTy3UoKHIh0cP0cmYXJyNvNT Zxls0J2w5DKFR6FVZRY7K8GU+uXtSOgUbr8aoty1r0Q8K/9oS/oUemJMOPb2 VKKp2Voga2AKKY0kv3pqFY5f+Z56U3EaU1e7Mo6lVmPOVix3fMdnBEzVKdjp /92hqPuVXREzeG6WuMQ1Wg/Hz+JTJfnzSD6losse1o4J0w+7a5rnwSY/Wra7 tx2Xh4Kk2qfn4ed8LFORrwNnW2e9Ph9agOeM8nPZzA6wFGZwHghcgFedFZtH bSfifYQJD7NFaMuvEYwd3ajh4UtQ4FyG24jTKv+VXuwRDhD7eHYN87kqrzRk hmBkfenB/ap1/O/dJ/AfeN/tLw== "]]}, Annotation[#, "Charting`Private`Tag$110494#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwtl3c4l9//x41s2dn7rVBoyUjO64Qy0pBdyJbIXh8jQtkZCVH2eL+RUlQa 9shWiKJS9t7Z+fpd1+/+476vx3Xf53U9n8/XOfe5joil81UbCjIyshd7t/97 Pr1jSX3cOgqR/f9V3y2sbShsD1w+6ddCLSlFdxsrQ4SF/wPKHJX9GVUNx55W xwhRCUeA8X/XhIpljyk4KnveXhN6DHWSgXF/70wrveoZyl1RfQLvUsTLy5HB mU0H7cFFuwy4blDyiKuy+Ewm+WDE2rksCEqakJGgWT6j1h5/8G9fNvj4l37M CpBRnkhRr1mxz4W30UoxnMnmytHWOybLW3ngVixeOZQZqXzs2Kv1xZgCMLr1 nMay8oVy99bNxAUhEqi/OJ3XrfpZ2atJ8Nh8aSFEXFC9cuj0nDLvw57WWdVi 2OhryC3ioEGVZpF2M73P4L9Tn+KO2Ashy8OYctruOZTkZORfNT+JKLZ8O1f8 X8D3cWZ9+41zqGdIX2DlXCmMsu/q+R4xRPmNxxyWmV5Cs35HS8OsLfIpZqhY 6nsJW9PrVU+9PJFWwhj1UuYrUG0Wf3JfJATx+9ToLdqXwUnLM+vjunFozvRJ 9sKJciDhKxWeXamoWtV7YX6rHDK//74ifS4PJUheRfP1r6Eg0DHL/voLZM0s HT0X8waYjjdQNnm9RXKrNN9nDd5CqVKR8s2vNYhm4I/4rFAFlHC+qlt0aEb9 1R89ZyYqwHUicuPRx8+oMD+lbrr0HTx8nnZjUqsf+Ue7s077voeH7sQwAaMh dMnt0o0p1Q9w909cS1ruKBI2knw2yfgRCvmpLloqz6Al5X1bE70fYVjS2qtY agnVE35pTKRXwgPdB85feNZQEt27pHG7KsCFfCalVDuozFvLzZ27GvjVMph7 aSngyZQ8z7J/NZgkCTJaHKOGe6YHq91+V8ObtiMRbxkYwKmLzW7pXA0I8aqy DxiwgKEqGZNbYQ3IOXmODSSyA349W7bIVAvSN6zMajS5QFJy4Lqrey2I/3as exjIB2xPPlEs9tVC0ZrKQ0VhYdhiek1yOVMH0HZjXK1VFEbu5lxZyKyDZSnX qN2Gg9C+ErfmTFUPaPaAo+cBSXhtdyd93r4epFv7P+RWSkHGd4dzzh31kFn6 XPqM1TEIv2g8M3eiAXia3LR+p5wA1+rzD52SG0Dy8DXJJxSn4NpJ2dNzWw0g PXLM6HW2PKjmi/y+bd4IWfR379j6nQYpHubw2fpG6PkU8rDjgTIciN6WuS3Z BGu8hmIBzhj+/ZvsnYlpgjDhru45ORUYd+3zd1xqgktKkwskQTXoGqknzBh8 gkBKaolY8fOQ1ZLhOi3UDN71nxK5MrVgJaX88K/oZqALLp92Ub8I5+1ah79s NIOAksjFQsYrMEO5pv+uuwUE48J0B4R0Ab4wMpfgVuiX3flV3aIHCZmin7Ke tYLKSRZ7hWgDUFC+dDoirA1sYufvV+legygG62X/lTZgGzwaJ3HNBH5++6/Y xaId+OqIA1+9zSDUK0/QSKkDvv7qVCX5W0DX820K8flOUDoe/yU60hbYgM5s v0wXVLtjd+FpO1A6lHg6zLoLHkkpF58xtIcHK6Rl389dIHXO9NwHHUeQje+1 sSz6DNnPbTo8bV3BzMdcZfD3Z9A8rfzPW9UNwm5MCxpwfwG2MI+8xoPu8F2a vF/z3hcwxNwsfzc8ILBFSuv4jW7QuLK7K/LTB4ilbw4VPeqGyPiiQI7h/+BL igrlwbZuyH4sF5U04wtidkYfuBV7ILNLtOgHYwC0UIbKkLH3gixBuuB1VRBw Kg+wdTZ+BaBVD0qPuAclzyMGHGW+Q7JAOFUnXRxMsU1Fa1l8hwQjyvja63Eg 7qWFJBK/g0gd8efsszjIPMOQNbzxHXyvXhn8ejUeEpqjba81DEBMneWyVXoC eA3HLqqb/ACJm9+nTyg8ggyG1hDWc0PQXZZX2GaUCkjZzyTIbAhWHraprBFT YdDpyKl57yFYWy5g+rqeCtxfosbaCoeg0fjN29zkNIhP0dYMZ/kNbuVGLoqf n0DIwQ6m3YHfEEEbRMV6IgPs4PPjGbdhiLt+YkygIwvIsv++G4gaBsXH04yZ c1mQso9/sCV3GDoXlxd/MWXDp2ZbQdLXYeBxYtlNupQNEnrb2TanR2AzPSG4 tyUbJm6KF/8kHwV9pcTL8DoHglq129t5R+GgMVOJ45cc4JZxm/twchSUuz6L Xp3LAY3lD8fSbEbBaHgiSO1gLpACrpYbNo+CtS/P+drYXLiVEFDZFTcGt9op 39AY5gHFavavKtLYXr87qPKd8iDV8BPZ89oxuETe/HXzXh608LOrxqyMgW7x BcZPr/LgSAGxSdNoHFjKfnxcZMiHerqOCQXXcaBIiCA/J5IPJo7LdBKR47AS mSNxWS4foo8jbeoP4/BEuS04/EY+zLzv7qoVmgAKGH2UUJIPoYIbi6UKE1Ab cIstsyYf+O8KsmfpTICBFYOrTU8+aJ+31w8MmQDetlx/7o18eNb175vS+ARk +gd8FoMCcBqVHC4rmYRyDlXHfZUFMGT2jbameRI4Vn7M/G4vAN3+cJn2kUmY IcakO/0oAIXW8f9GeaeAbunpYtJWAVCW5rFwhk3BqcESZWlZIngd1pcTzZ6C Fs6/wg/OEmEiZ5+JzMcpELsnw5N1iQgdSVYF55enYEOVo++nHRFS/EWQ941p OFtD87Y+iQj0f7usQnynwX2B/WZNFhECnIMiYh9NQ9vRllvuxUSwtPzVU9A6 DRX5vvwb1UToGXiw+WpsGrKfUBPbW4igro+Eq8lnoF/zAhj3EEFK46lDv/wM 9B1Z100eI0J6jXb8yNUZ2CgcK9OaJwKr0vbrhdszkHkubOL1GhH+Sl+noMud gW6LA8nvaUhQw87zWJFlFna/KwwFi5FANuZT5bkjs+Dw8UIm3RES5FP7jOic n4XugOu/tY+TIHrj69Fb/rNwrP9eE70yCf653df3St7j1yfM7quQwHXmlF/w y1mgE10yqlYngcGvxMbUiVkw+vPWwlWHBJ+M1GbyKefgyl1a60l9Eih9WWZ9 JTgHfM9nX4pcI0HJhRz5KsU5aHeTaeY1I4Fww1XTVr05sPvTINJrQYIERBHS 5zwH+37+kNexIQHV21LicOQcmM9/uh97kwQ+xy065vPm4ObF7Yg4BxJMFbKs bFXPAQcl/Uc9JxKYiFXz0A7OQadCWtqgCwk6nzoDx9ocEDJvZUm4k0CFS8hG mG0enpGBlqInCcriOiKlpOeBYWyUldmbBOL0d14oaMyDkJOMR6EPCVJDpL+q Wc3DltzIDIMvCRh3Breu3JmHfY4tayf9SBDoFS1i+ngeSItJLAR/EizNK6nb l83DmT2/3/bY2n7a0bNzHlT+Xr9mFECCvj+pCXen5uEttV5wxh4flDk42Eix ANvPJfKf7/HPqe05bZYFcNtPdzZij1MKesi7BRagy2y7XWqPdayLOYyPLIDs 1o+m1L369CKh4r8UFqDDzJjUvafn05n4o3fOLYCiaca1qT29943S5QWuLgDR 53ha938kUPMogg9mC/BZUK0jds8fRdxb9esOexw/aCC057+6qOHypvcCpLh1 JAfv5XOn6Yvh49AF2H+9YrliL78zw79uKMQvQFIYdXuDKwk2/83Y9T1dgB+x Y/fynUnwlnfT2atwAUxkLgeZ3CaBlxyNz4E3C5DFuSEwcWsvn9si4bpde/6+ lX+6u9ffFxEycUuDC9Cu/jc5zpIETnlKKfGTC6Aj1/nA6wYJpgf1iZ0UizAw lufRbESCwnXLF07Mi8Bt/pggvze/bnK4vN3PvwhNsN83YG/+jVyI/HTh1CKY FLKlPtIkweC7yokmu0XAZ9l2duT3+vm1dcHWYxG0aDOx0kkSGC31r1PdXQTL Nm9+PRkS9Egu06qlLoLh8CoT7956aUsRl6xuWwR/qtAJMiYSRJbJHr/xbRH+ mxDfFKMlgUbXWcV/o4tAYe90R5yCBPU0JppndhdB0f+nWvMqET54xdm/Pb4E IadpAyIGiPBMb4P0ImkJeEzMhjX2/g+OLtQvL+cswSnj32cCHhPhcDT7u7nn S5Dw5pnro3gi5NdJt0g1L4H4SNBbt7t76/+E5RRxawkORXG9nLxBhAcsrYez zJehYzEyhZmbCBXyAuWXnJbhv0TZicH9RBgxc4Ztv2UgUE/RxVISQekZu55h 8jJES91Uy5krgAlNk4D9HctQ/W5t/VFdAaiGzHb+p7QCDGUrdqs3C2B9ldnz KucqfPuZ5UKZmw+WA3pVlG1/4fMv08HImVxwbQi1dBbfhFYWjQgatSwodWHU 5dbcgecir+NyJ9KgLZX9v2cGO3DC64z7xfY0GKvnzVCx3gGB0RPl+16mAS+P 5LRj4A7wLlRXpPulQWjNuZCa8h24JVtpGsKcBgZsga9uif6D8KAyH9HTqbD5 apH949Y/yDhHX47SUiDLz2HqmCEZJqa1ypDHPYJj1XTrYaZk2PVz75iO7yOo 3kek+mVFhuUI1BwvrR/BUMyIcIwLGU512j+QqfgIBDNNDScjyPCqT4aTwkgi pNZfrs/6sDfeeOmtzplESNgvm84mSo5rgw2lTq0nQHDGts7KDDlu/CvdFpce B1eOvXU9skyOmXep63lj4kCwxj3ecoMcK1dYGb7yi4N3f6a6uqgoMNNFE2Ax joOlg98uPxOkwINp9Mk+HHFgWVx+0fYKBVY+1XDnH18snK1w0ux/RYEbqKIz A7ligEnrsD3zOwpMfbWHW3w9Gga/j4afr6bA+h4/3ab6o8Fn2+RTWRsFjt2e fVyfGg0v4IJ6/CgF/mpacKlBKBqEG8XPaXFR4vGntwdnZKKArHsIf/ClxPzs Qw89LCIgdLIyy/cuJT59w4dcSDUC6MieUiiGU+LPyXXyE2IRwCZtXF/+iBIH L2+Ufp0Ih4Nhn9Wfv6DEjlY+NSJu4aClVHspe4wSr5p+kr8RGQYPc3JMwq/u w1EKxJrprnvA/e7ux/PG+zCvqAuN5ut78KTrhiCV+T7sx8ryqDbtHuTv8A3d vb0Pe8rUydLb3YO3holWfuH78Ef6FjT5LxQGGe7dcqrch8e4yY72nAyFQx62 PnqHqbD/0V2ultJgkD79SzfjGBV2fvpX/8CTYJAlMzo6JUeFWRqGJ73uB4NK tOZYoCoV3lip7fC/HgxmuVJ6RSZUmNyguDCeOhiSepaOUsRS4a8UYhld5neB 6lTg+PNlKkx5mdP3yMEgYNxaq93coML3dj/ICbMFAVuNS/o5Mmp8tbzgwtV/ gSB80VJ/gJEaszKZP597GQhnbM7VUR+ixqpPjayoBQPB4xFDhqkRNR4kSh1I 3AqAkdVkA4aP1JhmUTkKuv0g++xJ9x911DjWU2ns8HM/uBHTEfu8hRpHezr2 4Cg/+C5G1azbT43NGD0aplX94LOum9KTZWrMsZTnp/jGFypLtYWlD9NgGdbw +3F5/0HybfKpS8k02LJlvYc90xv0Kp5Qi6TT4DoyhpOUd72BjUqBsJxLg0sa o8W4Lb3hwRMnk+SXNPjr0Cfxl2LeENo60PGrnQaLmjQFZBd5gYvk61cu+2ix iEKZlG61J2iN3gpIcKXFRq89e+YpPeB8AKFYzYcWMyzXn2uYdAeVA4Pf/96h xZ5ZDD7vOt3h9LmLCtejabGlddpjyifucDjv6DKhgBYb+A1K7ZdzBwablZvl g3vfp4/WDzm7QdtIgF6/Oh1+s7B7mbjhAp/85UIiL9FhB2uTXrlhF6jnmC89 o0+HU6k8+X63ucAHNXPmLEs6LJR4xSU80wWKc1Va7APocI3s9XlBTReIsabB Wy/psPiGo242coZLI3FHBAXp8eLu/sqdj47QdmSkx0SMHlcVzlZLpzrCBXf5 O2mH6XHA4dr6MC9H0KD42cUtT49n0vgFK446gorwES/2K/SY1spVnTHXAU6Z NFTTBtPj7x6qjpcSbwF/z4b+8ig9fidPUOJJuAmpfBd3j8/Q442tKpBzvwk8 VplElyV6XJqbQu6jdxM4l85vzf6jx4+WVwTsuW4CC0ti5gQXAyakfbPbSbcD Sm2Z6R+aDJisrka8rcwWpuosgz49Y8D76GvL1zesQSi+/9aDMgbM0/nxsdgP a9Azu6Sv954BE43jxL2qraFyXfHw0CcGzHTpV1REmDUkSLP2rA0zYHILxVhH LmtQSq4SF+dlxLKXJfq2la0g+hZ/5737jJjzw1td3jwLqJFPqLgQw4j1BrSO FkRbwN99tLmsiYx4WzrESs/DAswzln2eZjHiY15H5ZnVLEC2p0W0/AMj/hXx Spli1Bx+KP/nNbLEiCdvk/68lzIHGdavAqo39uML2XTE2VxTGIsZC35ksx+/ +vqbT+uOKTylXxsfd9iPW6qYe74amgLjPu6X0T778Wwu+7EgBlOY+mt8/mv8 fjyzQe3L6GkCeYM/nOzr92N+YwbpgSvXgZ84WhUryYTVaU9ZDUgaQ4/YX7E/ R5lwiXaASx+tMURlUUfKyjHhl7HShJ1xI9hMFdf7psKEzy4qvqrPN4L+GPsJ URMmvKJTIgqHjOCh+yzL6wdM+F7KIeY3UoZAD6sWg8tMOEHEkd3RQB98zkrQ vt5kwvxzxN/j8vowpnq9JJacGY+ki9fH8OhDrUbNpgozMzbWTJgy+KG3d06N eUg6zIwNCOOt/bZ6MG1zsMHLghnbdNtKOt7VhbZofQnWTmb8R+6M881uHTgd G94x1cuMK6fJZGsqdIAY/96jfpAZH7zQQVLO1IHQJJEa7ylmTC/3bTrztg4I dv2VmqdgwWvd8c8Y6HXg67faBn1BFnysnZdMS/MKqM9eWxPVZ8GFoWbjdtUX IZ0jpDvQiAVL6ytfF0q6CCtKRc8Hr7NgGY8rjKyOFyEzcssuyZIFszRuLWdx X4RN8Sf9dC4suIZfLNbVQxuKLX9ULESyYD4X3677cheApf+Gf2X13vvvQ5UJ fzTAdjfMiK+eBX8pM9DYV6UBHw69kPVpYsE/7+pKFqRpgL0n2ezxDhb870rG dKC+BtSyZZnmDbBghzu+hl6t6uBx8Q+K/suCleqdKaH6PPTXWpNfk2LFB2tr HeJb1WDh7HfegKOsuHq3Xa/suRrQ1FyWzTzBiv+bPpew9VAN5KpO240psOKR UFe9vyZqkPiepd3tHCs+rCBJk7KgCpfLPqREmbHiS0LHbtgIqkJjHsexj3Gs +LrY7snthLPwUyxSc+ghK3aYuWuo73cWVnN2LSmTWTFVkP/ddquzIJY99Ujz KSume0+pzXvqLASnV2/1kljxUGCdn8g3DCjZsWmulhWrmP4cqj+EoTy83kx4 lRWrTyrlvC9RBqJWK3fYOit22WnchhBlSGX88mV2ixUnH04MpTBShqC4X+ff U7Bhzou+TZhCGbRTNmUMWNiwG/P7jhTjM/Cn4Nhu1BE2fPb55sJtdiVganqS sWbBhsmcrtL4lSoAeUSOsZkNG44OeNR/KEYBVrQK2RtusmGNe02T1PYK8K3j TViCMxvm9dshWoooQO7XL87SAWx4WGzpXVCiPJweo8VWKWz4UvicLU+oHNhS eQ51dLDhTvekx7/vywKvUHPf1mc2fH/5xmzcLVnoUBDolOhlw0+qZQJsL8mC nGPDx+ABNixueDc8hFMWqLsPpMlNsGFF6dO/A4knIS/ztX46OTt2Pr+1a9B9 AkaU1ltuy7LjrLhoZznV45Cir12bKs+OeyvK31w5chy0nTMrmk6zY/emXoco 9uNQlq1BFDnLji9orjtajByDULrH93ovsmNXoZjjUWHHQKxPESvbsePLHSJf LAuOgpWbXzlj6h5TzJaa75MGuRM/yyWfsuNyqW6nwUEpoF/Cr89nsmNDhdq1 6HIpeOFK/SYonx1r99Ncj7KTgm2X+LcrL9lx6RXetdX2I5DkXPB+sJUdP4hP 4dXIPQzNjt01xTvsmFG/47GApwQ8kZKrbSbjwPR0dYuvdCXAZSaldoySA0eL nxfwPiEBnI5mdcL0HDgo7/a+kAVxsHSYrE/k5MB05UUVhU7isG2/2+R/lANf M7f6Q+N+CI7aHenQtuDAF0zzG3xSxeCnvZDzM2sO/J2h5cM3PzGIdmRnYbrJ gauELZztTMVg0nVLp9OJAyu+rqShFRGDHP/WXh1/DtxrriloWEgArgSHHwbJ HFi2irrpb70o7H4omjFv58C0H6WMn3CLQElVRkxNFwd+cDr3ttCuMJjUPpQR 7dljWtmRplFhqGjycxn+zoGtahREwl8Jg/uXCys2Exz4DbsNU/UVYRgfn966 RXkAf7ZeCakmCEEnmxSDp+IBHLgIm3TX+QHdvj2ZduYA7pVwrvM6yQ8lTSVN tXAA58yUzfEw8sMD/+OhLOcPYNOlmfMUlXygPSa3U3T1AH4y9ZlNV4wPWirO zv9xOICb2hmWX2/yQIO5YfeV9AN4ZvKQGamNC2Tfp5R6Zx3Ago1R964XcUHu ge+x6bkH8LPI2ylKkVwQ2mKiPVN4AHsW3A0P1eACFVnLhrA3B7DHsfLvJ5o4 oZrm9pvKrgP4YFVDYlvbAXhfEpwmRcmJs/cJV5mtsQO1tj5vMjUnNnB5+nrf N3bQmRR/TE7PiXvfckj1v2OHcUJ70lcWTjx7wecedSA7sD/mSggS5MQyRa9f /0fHDg4hxeE9ipxY9F2D491DbMBn9NXT34UTJwe7p1kFsoDtKnFlzJ0T6ycc TkK2LFCa4Oeu482Jt37VmsNFFlBvF3Y9dIcTe+3TvV/KxwLuKg6OXVGceDP3 EnuuBzO0SpFZiRVwYhXO17qk7f3gR374StsPTtw8QuU7DQwwpsbQf+g3J068 x5ZMz8UAV8Jnbtwd4cTF1+jBdo4exJifO8tNc2K7R/qdn5/SQxu/bGzmOiee oFyyd9mlA0EF1OHBzoVtml78CmqnhVqnq9oCmlzYlXrlb2kCNUi9PNnjrc2F H3BEFle7UEPSKofJl8tc+KoeUzv5ZWpw8O9zCDPgws48OhK8jNTAEWkStWjF hX+wd1xJC6cC2zzbloY7XPhFsQRVVuQ+oB/01XAq48IaxQl6Ay8oQM6btD/2 DRfm5K/cn5hEARZs/V+ev+PCHQz7L7j6U8BbjVOmi9Vc2LpZLzJFgwJsy+dd Pdq5sOLnsVeJf8ih5oF1mu8YF+aoKL/II0C+t59fmrvPzY0Nunsp+Qx2Ue6g /6sCPm7MzU4RsSq5izq9i3w+CXLjKMeKmP3//qFDJbSU9Ae5cf5VnfqV/H+o m7eOK+Y4N77nW1SftLWDZFbkzz7U4sZOhvIev59vo9F8kcQMf278Hb37dEtl E82E/t6gDOLGhkqjI6d5N9GSZdaNmyHceFAuuV99aQORCYkcOR7JjcdVwgc4 czYQb7JwbW0yN/6h7hIYSLOBroQJLYy+5MZ0AkX2MgNr6IOdgLbUJDfeuOgy W160iurO/SiNm+HGLlkHknwjV1EL4SnX6jw3PmwWVOJqv4r6fvEPf/zLjUfT G8j+iq+iJUN+38v7eLDjLUmKywUrSEKDj+gmxIPZ9CCJ4vkySpTg2Vehz4NT UXrQ/aFFZGJ2qGDYiAcT6V/L/m5cRGKJJ7WYTHiwqtdxA/Nni6hs92KclSUP ntQWO9Dqu4h6vgbzMznzYCMLlh1trkXEfm9G1iqcB9/QMpfoM1hACb+rbPa/ 58GWun5+Lj9m0TWudlqFSh68bvDS897LWSR68XuRZQ0PdirhDOsLm0Uv364s vmniwfYUHCnHT86iL7GSdyx7ePD5zDDJsugZxIoeJr2Z5cHJUyPKhVrTKC7V tslCmBfX1J+YPLwwgby9gt39CbyYvV3AeaNtApldTRdKPsSLpT/wHNkgTSAp +q/ebVK8OAPcTkVZT6Dm/85JyCvyYmUFbsWlgXFEYSwWwXiVF1/kydBJ6B5D nlx/tN6E8OItHhufGyMjyGR55+/n+7y44B7hWV/jCFLr5MmZieDFKs1Hz/5H GkFsYTpbInG8OIFfNFveeQSV/K0uin7Ci5msWA6kbQ+jid4MRstyXuzqNyDe JjiMriWadjCO82JFc5pgi8DfiP8VPZ/DFC++JXBKNtj6N/r1+Y1d8+yeHurg z62av5E1Mxv5/RVevLpzpK+f4zdyimw8uUvOhy+8SrbtLh5CwUFHHy/y8+Fi hz8rUp9+IZIjufXXq3xYup/jWeTgIHKMKnkha8CHez73KR58MYhkCq/vJBjz 4e4V9WDK0EH0crw86bI5H55zDX0WITWIPljeav50mw+rFK1YlAYNoC6jbpn3 4XzY5fZyJ9ep72hdLW8jo5IPP6xNKSxs7UP+7zNC6mv4sBzZ9m0PUh8iO5G6 f7KeD/v2ru84hfUhGqFYkROte/V7DVxWVfsQ54aPZn0fH/724/0RXPUVnXym /XhigQ8nWDSkJlT2IqcDKwrHCfxYKoh2+dbPbrQUNVerf4gf8/ySf9NZ0408 KSa1fSX5MSinXzPN60b+8z/M647y43XnWcMlx24U1dwUrn+GHy8NqM5s73xB xIC0/v/0+fEVV94AK/EvaHhUxac2jB8zbyz+23nUhVQyOrIPR/FjF6FkD3b/ LpRpdK094QE/5rfx49ex7EJmra6iVo/4cZzJMUa1o13o+4vMNsocfozKGIIo kzrRF79/wucq+XHzsYMpV9g7UC3ru+amlT293FkmB9VakUjruZWj6/z4BYsW tR9PKwoK/SyYssWPw4MUNtjmWxBam3C/SSGArXqYCLRpLejdIJcgHYsAfiz9 5O72ajN6WeDppnVEAEeFesq+efMJZSsf52u3EMA7TVVtQ3aNqPYSfciWtQBW LBlL41RvRH9uDE9J3hTAa/Us7P6HGhEh+NG7+04C+Mx7qvGe0QaU27hhjP0E cNW1qYrXtg0o73JtyqtEAazsXTVJ5lqPiBa6nKlNAtj1W4z5Yl4t+uQmdedT iwBmesmlkB5ZiyZCqMb+tgtgrwLFXjfnWiSR/6Zct0cAu/8e9E1QrEWkKT79 /b8FMEtkJuR11qBC95GHQZsCOKU/gHOCogY9u+fJaictiPXOx58epK1CM2dM g+8dE8QVp8NiFAYrkdSK2nLOSUHc4vqiqOd5JSq05OgdUhTExqLyQy2GlYgI r1KunRfETJrrVnmFH1HuxoLQpRuCuDhOXLnx+geUettR5lS8IO49bsvmMFmB vovpZegmCmLaU+dqeesrEM+gEotbsiB+qFDYt5tegVK0GJZKngriBy0M++z1 K9Aj8cJyiUJB7LAee/x5/VsU93v8DH+dICbfliW1FL9BYfpWFyhXBfHQ4yR6 naxylH150MRmXRCbdISJBwWWow+a+k5NW4K4M169a9i0HC0pq8dHUQjhg1N2 d9X5ypHJoSN97CxCeK0jOds7pQydWFuyFDsihJWCqFzlnrxCP1OCfc9ZCOFM g4Ei0aZStJGwFVVgLYTP9BgdvVxUijhiPJ7S3RTCIZ85dvNjS5HmXdvqdqe9 8ZcZffqMSlGZvRa1gb8QTrHNTpadfYEiT7Ml2CYL4Wu9M2wFAi/QqcEsUli7 EHasuP/tP/lniEXm5vrzLiFMfPpy8wPjMzQTKKPe3y2EX4YPqaE/xSiX8H5E 4rsQJssJm92IKUYcDj1CLWNC2MxuYvDCRBHa9Ke8QE0mjO/kd8gzEQvRNwa5 Gg0eYXye332yQYeIGmUfTwzyCmMF5eX7kjJEVGa6zezKL4zbfr/ZraYnorjn tWaPhYSxxC8zw8j6AqShe3l78qAwzt2sC71zugC9Tb0pH3VCGNueArNnR/NR imTas/YLwviKnyIPUs5FK8vn80IuCmMtSQpJXoFcdLly6Yni5T22btqW2MlB 1Lpa0XlXhbFTI83LHx9zkKf/xq0AY2Hsx5D1LvVsDrraaSghbSeMM/7dZhC+ mo0YPTlyooOFcdSnb536jzLRTahOVQkVxq9GZ7bWfTNRHZ1jwvq9vXqH6vob zDORb3rdXeuIPX3X/qUPSGWiySY38zNxwthFLid5KCYDNfJ+Fph5Kox7wbhy P1U6CqyOSblQIYzNZzvrQo+koakf1Ykb74SxvWz9JVbyNGSwtRxX8EEYs57w 6fv1NRVJyV2LoKzey7enRetsSCrqLzrk+75RGJ9GvW/ofz1GJ5Krrh/pEcYH MjSSLLJT0NjtRUGGeWE83X96Mlo/CelEifFVLAjjSq3S2fQTSegD0ZDLbkkY 2/SYXhpnTkIPhz8y160KYzWVGz08rY8QNo4k89sWxh33tX9tqz5CqWqEP1N0 IpjpwvSCOySii3z6eS1iItiXfmuR+noCShmRqb5+SARbviqOkccJaOQZ7cCM uAhuDzslGnswAfnjDyzMR0Twy+YavZcL8ajYhuCve1wEfyNjb6kNj0f0Lxav DiqLYCNf1wuDVXGoSe0B2ZyBCC5hnaOkjX+A2Jhu8gUaieBmAzRqZP0AmfWd lWO5JoJjDC+2Tsk/QH/tVx1OmIrgFOom6a5fMehQrEmfl5UIFu/yEk0+EYNC vx0u2XUWwUdN6Y82Dkehs05N11kjRPDoKJY87xaBNvsnz9dHimAP7lTJKc0I VKbKeMI7WgRz4rU/7SIR6BCPDu2PWBG8svpv4eqXcMRY/72MmCSCu8JpSzTk wlE/z9x+nCuCE+Oo0AO6MOTSwFHtVCWCc5hHTbe/h6LDx+SLRGpE8MbdjtGh ilA0nGqc1FMrgov8uWs2UkKRgUu64+lGEex5UkqyyTAUneGT4KFuF8H9VD9/ NvWFIFpXJben30XwpJGKD9/vYJTBbynWtrrnV9t7fJ3zLjp98oiM5ZoIrjja RZa+E4R6NFfk19dFMGmCEHtzJAjRet+/ILa9l6dPi8ztl0HI5XOhmz+FKOa3 2A6TuRKE9g7+1VLMojjbXO5Qo1gg+jMfahojIYrld0MumJr7I3/qS3aEw6L4 SmcXs5KcP+IU4HKtOCKKaQp/Chsy+iMtLVLoqIwoVtpmeK9R4Yde5rYXKZ8S xdzFdydpOP1QiDHn5uxZUaz35UYR8ft/SKyuIOnSdVF87w9jisgDb9QhtZ47 aCKKLZV333U5eCOfJI1Xt8xEcarbdEGppjdqtZ/svG8hipUHfatpqL2RG8sR uio7UWxW4yyxE+SFqkxL/I56iOIts0f/OgM90bX1MnOWGFFMP/maWzXDHe2z pHJOfyCK00+efFYQ7I5KWvUDpOJEcZWacNspW3dEnvH3scZDUXxG26WiXdod Ec8pdAc9FsVxI6Te0Uo3tJrw/txinigOdzRRD51wRXHStYe/VIriYeV1kxVD F0RUuE4XXC2KT16cAS7kgqpUV8aP14ri6mr5CUsxFzRnfCgvvkEUX1aLYhv/ 44wu3I8U0mkTxQkHeLTHeJ0R9a+rHF3fRLHmxQ+ZDo9vI7+44Z32FVFst6H5 zKj9FkpI8x8M+CuKvVPfXxnLvoUK8w+8l14XxY5BJjOvfW6h/g/qPjFborhh estO6OAtJDdZtKRNQcCnw0W5KO7ao4WzHuOtzAS86VOSVK52E9ku7/vcfJiA WXvOdcts2CCzQrUOEykC/pqjS1vSb4MMLEJb56UJWJ14Wsz0rQ0630nZeOA4 Af861rim6WODDhVRvLeQJ+Db6ve9DDat0aglWd6GKgFbJKla7FJbI+svWz6S pgTcNiOn1IwtkUmEktcHMwJeG2OIrj9oifSwn/tlcwJW5jv2epzeEqmVbN72 tCLgUu3Hxbm9FkgscsOyxp6AO9YXO5ccLdDw2TVtYy8CfpFD416SbY4sS5eE I2IJWOntVPzlq2bIMVh3WyuegNPuJF06LmyGPHXL+hgf7vlT+ZVsM2eKwlc9 H8QlEfAshfOruihTVKK4sZX8lIDZvj/zUG8xQRs1u1/ziwiYyT+EfUv/Oor7 whhT30TAJ/OMvhXnGqHUnNs37zcTsPF7p/pJPyOU49GhqtFKwM/jt4bsdY3Q a864zdYOAv5M7F09TmmEBq+x3+zuJWCx6+dJvTaGSHyYR/XPMAFP2uOLTPIG 6FiZr2DuKAFnt+/waLMZoNP3BjZsxgn47ZOp0MZZfaQt/vTF5BQBJ+RmFDjn 6SM3B2HBxUUCJovasgrn0kf+Z+5uvFwmYO/pUxaZK3ro3v4/PR6rBFxCilpc /KyHUp7nRK2vE3CFxlsdHKOHsoP22b3bJGDbQgnbMw56qEjHRsV/m4D7PUaT XDT1UJloowD6R8Cu22/DBsX1UOXyoY3dXQJ+6bPvRyC1HvofTtTKFQ== "]]}, Annotation[#, "Charting`Private`Tag$110494#2"]& ], TagBox[ {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwtV3k0ld/7NVVCA1ERwiVFRClluPstZKxPg6E0yBBRhBCiQspYoiQlQ0LK GEKUTPdFGStCSWSe7oCk+N7fWr/zz1l7nWed9Tz72c8+60jbXDxylouDg0OG k4Pj//aEqzZLVe3CqRz/v6rbpEwspBzhMuhusyKAW2ax9m2QlJQP1jm1xRzj qVVJqIjcuEQqFEoln069fqSy+4K2p/PsxoewzQ3J+fljTPPVpx+pLJ3HoOy3 FWwMsND6c96km+6QCFfldVYWd7K1kji7Q2f1kvFTVjRyzpKlpfvxrtxMewq+ vryQU3xORXsoTv89yzEV25dPCZjPWmtH2P07yZx/hoe+HG+juCO1VVRe/aZH pkNlhevi0hP52m3z5+5NbXyO+YerjJfxt2l70SRVJvMyEXmF2l1YM6UtFvOp YVznJUwCzGeO1Cynvj0d5jD2OQutMy7RL1KlqTYKBPeoQw4uJAgXew7spHLN +zax/HKRXRdyROifAfXTDzMJll4etolxK1kGWlLTalXOM1fmo3yK14Bm50T1 fslfwmjPB/fs9r6wLm+qUfTAUkbSK9hG6u1NNrpJFfd+b0p3LMB8nvFxOdkY 6sSpxylT2wsRUhk2apyUSK3QuTw1OV+IHZHJ/xy1n1OjtxyhTlYXgdu4R0Pm 1iuq3SqliInI1xD/OhCvbVNO3TW9rHPcvBgHD++SWHa7hrqs66f8+MYSmGwO v9872EjtqCj3HBsqwYXaSwH1+Z+pmWlxVaN5pegwvZJypv8b1S/ikuCo7xtk fpoQLdDspx50P2g1olOGu2f+NDmxRqhSx7ZkDQuUQzR7hQRXHp3K0OaZH/pc jqFLX+3zh2ao1ZQeg6EnbzGbvv+OvvE/auzy0thBh3fQJfMMJYO4UHDZyP3S +gpsGipu2iG3DI9H1EWZfhUw33CscPiZAIJPyVW491Yguf6GjV2UIFyahRwY eu+hSo0rtD4uAgsdjpXume/BcfvdO4FyURBF4wX0lZVQyN+9VqJBElu2dJ1w u1SJw3JGEsOGMhB6THLR2yuxaa1yAT1GDvMri567alWBlvHzrrrJFvQHPD00 lVSF6R6xU55XlPCRFTV7cUk1Kh9PXtYVUUWRw9Unk47VOHK86unOvB1I7Dyv d7GxGgX/zR8Rjt2FkAPHxya210Citcn7ArkHbhX7Y1we1MDcNWXbBxNtWO5Q 05iYr8E757gNP2II6KRJ9zqfqYXoqXf/DWXvw1bRVSHj1bWo7vRteTunC5GI v8rOW2jYdKjo2BMvfSwsDH8ei6QhOy3kS6m8EQbd2v0uMGg4/aRuK7HqAJr7 qylj5iQ6wo9fy1h3iM1botvoxjrMTg/6FUYdBSuuUKEnog60QeWEG2lm2O/Q 0Nc6Vwc503Y5x58WeLiz93GtfT2K6+7ceqBniTHuWbPStnq8tnuppNFyEmgV WJVNNKC46I2w200rRCfJkMlZDWDOKRZv3mGN3doHNUJvfcBenxtfRMzsEM5v x/RjfcAdy74mfl57fP/q89LV+iO69syfM2h1wA2vZ5LHNBtxgzd3h372ebTr vmk3zmBj2WHntgpnKKxpiYJIE0TbrUw1xi6iOecvl/xkE5zCw7w99d0hhOWn Vyg3Y8oxLdMh6BI0N93TuGXXDKrs9jHrDx64zXrO9G1pxsSGhkvDwZdR3KXW zFrWgpaPf4SyZrzRW/nupQu1BT++iYT88vCF2t3PZ21etCBFNdSZO94fp73P 7OvubcEZdQHv5Xuv4ZbVqKT5+lbINEu3/fS9jk4lzg7D4FZMXZuv2qcbiGv1 W41UrdpQo314pmnLTWTkvd704n4bTupQOtzVbqE1bh+33Ic2rD3/xHJWLwSy DsfK1u/5hPmc2dQY/zDUc99Q5ljzGatjZv/ZU++ANbKS39fwM84N1PEUIYqt q4eDzGufoThmbx3eFwXXpJykwbHPeC/OY7xuZzTWancJNdV+AW/ZIYH5hXsg ZO0nDf59QYPWKsfTJffhyE9vqNzRjjU9Q6bdXrEo+7o0uCipHQXvhUyWzD+A jdf22QTfDvQVhD9ZLv8I2TmhXReUO7Gud3qZL1cyRoRGIoysO/EzVqntqksy 5L2MqJvvdcJOas75flcykrT4k/vmOmGqnov+4hRE10XYW9Z0If3N5nu+11Lh 1XeHrn/yG94Efw+fUc9AIn9DkKDeD9i2cc9xr8+FA1oejrn3QTrXYdzwRjE4 UmZKu8L7cOk55+p1tcWI4xHvrk/tw5Ct0kzNshKQdfaSz7/0gcZJL6oIK8Fm 078pZzX6sdfWcwn9dimGzsm//M75CwK0xTuht8vgFO3/tjlqAAuvviiqbKsA 13RKz7vnA+hjJrw4b1KBeAuSI6dyACGHHi/3d6xAvfganUjWAPJl14xKPq2A YnoGzfDYIDxEDnccFH6PsTdtzZUbhyBcafRycPw9XH5t6SvIHkaX6gnLGd8q /Dj9lfd93TAGw0rcp2KqcLQjRPlj/zAq3V7ff/6yCrsbBn1+iY0g4KPLosW3 KnDnPVu99tYIzrs/O5OoWY04P2nqZatRJDLlNxeOVoNvptk2yHcUpEF6eBhH DfwvXg+9c38UKDzQIC5SAxubnk/pDaMYTyhpuaxdg60GCec71Meg3BR0lDe8 Bu/XiD7cs3ocf83EuZNEa6EWSb7VUxzH9ey9/AYKtUhb6t1/eP84nqneFsvW qEXE3JdtTn7jMM50mSuwrIV5z73a+KFxnNcaH8p/UAvymO5YGvcELttsMzyU VgvNVqbgK8kJbOI03ZdVUAupmiOnGkwnYBhhRk9rrsVI5mrWfMUEUn4wDyQt oeGkbIUob/cEFucM3PcK0dCUcBHCsxMovfZFN1WShoKoxrCtSpPYk5YhlbuL hmteEdKnHk5in0gAddiWBsakpr5jwSQecq4xTXKhwc5x9IJn0yR0OSZiN/jQ IKcs113LNYXSEokFK7Zv8knfkO/ZPYUYj3W8Cq9oILXubruqN4Wtb66pe72h 4eaxJ+oSR6aweMa0NKqKBq6oYv0T56cw15kyodpGw5+FMYf2hClcXbuQqjRF Q7HYn4temVNYWfPxH2uGBq9dy7xFXk9BjZiQifzHzs9ZOuRo8xR+3OYQVeUj MdptltHERYfkN+3yQ9IkMn/b5LqsosOp6YN/+iYS54Rdi1eI09H2WPFpiyKJ fuMw0ngnHQYnqReTd5JIcXjQPLKXDg15wQp9DRJnglI7Qg/S0e40UFdJJdFd +naI5kDHoRhTq936JOK/NEzZe9Dhn/w+docxiWOMjt9LAuiAatN3nv9IfNrC 5NWNp8MnZsUfBfa7Ea3HIdiXxj4Hxff6cRKHrFeIBr6iQ/TxQ7uskyQ+xMlv qfhAx8YI9bbbNiTCCtRUrb7S4e5axqN7loRB8949C7/oyB84Ot/iQGLp2MG9 CQw6dD5mr9jjRKJ62UlDrUU67M0vR/tcIBFIcTzcxc8AOWfyI8aFBAGv477r GdjuX3EgxJXEgmWQtagcA3LCh1Qt3EmUeUU5FqsysCrWtpfDg4RvdIKbBZWB yXqDgmBPEruzM31mjBjQb9zGMeBFYqbudcB9CwZYt+Q3yHiTKPhVHapmx0CX htgJDR8S7pytd9tcGVi3pV5kmy8JFYmeh+7+DFw50JjEcYXExO6xZMEwBjYo 3Dmcw8ZZpnPPc2MZyHyh46/pR+KC69L8/54y4CM94f2MjRUi1pRO5DDwyvD4 w3E2HkqXqowsY6DMTWSHsD+JtCql+q11DDhmesaLsrFdj0Zrw2cGKlZFUhbY 8TLz+p1OPxkQk90qU8nGP9aa/Vw+yYAe9fvwWTZ+st1mJGOegTC+wY/D7HxO HrzI0OdlQlOSkD7IxmJOfn8GhJkISojdFcOupyM4lOumNBNHmAZnStj1xibH 8skpM8H3yG6qgs2HaflToWoNJnLmn+7OvExC6GuumK0+E1amF8I82fw1s8pl uEyZqC9p2EVh83t7dYNC8hkmnGUv3351iUSJukThQRcmXNtcT/Gw+9N/+iL+ XmFiZSLdfwe7f5pZa0wtHjARcE/KQJndb/tPZ7/zPGPi7+WG0j+ObL3Nvz6X n8/EqCJjdTpbL0OGJ/1XNDIR/7uImcTWl7Bb9rI3XUxcOkrXnbQigTiO6HPD 7Ps4urk2nmLXM5CaVsXDgvntTH1ZCxI6QeNNPposiFw5ea7ZkIRLJizlDVm4 bnMgVm0/ex5a7vZ/Mmfhz5iCvP8+ElMbd81tc2fhd61Ebxl7np6UXZUZyGDh Zv3lJxwKJOr6ml/GFLFwVOld8105Eiw+ivreahaeTmio8bHn1/g4zfhxDwvJ 9k+H89aR+D29yvPI2mkcPiVydoCbBEXCZnGRMo0eeVe/0gUaDuoWhGapTiP0 yiVH7zkankUfe8J7YBrKGsv4Xk3QcGRbMu1t0DRqbH9t2tpBQ9a57WKK9Gm4 11Iz3NJp6LhzI7VjYRoKLxW/L0umgef1F+WbAjPQO3Y8PyKeBsslV3R65Wdg Mq57yJbtd7wpVRcenJ5B4MKGOWN3Gmy6TN9xf2DHbx+J0tvD9sNHvc5uX2dQ VKXDxbudhnxLF/GegRlkCWu+KFeggbvzlk8p5ywGI8tDuMVpSO0o3eGmPguz B9wxi/9qMfBZKuN7yiyeSDUJDr2rhVPzWFSJz28kJjiHtmvVwq3mhs1F+T/s /4BFg5tsDfJcBY6uN/wHo2cHSl4sqULylfMjKhYcxPz8Pk/RTxUITPx7mDXG Sahnvoz4O1sOjrYfRJkvNyGzRqC3jVaKTR723qYKS4itaR5qirTX6J9+YM5f vpTYzffbcfFEIYx+OflHu/ESHZ4iKUKir3CwP0pRUpKPyK0rbhNUycNIlc11 MoufSDEx6H+tnwNlwS8SOlYriJQGnnYPy5fgw7R1N3Ml4Vv2rbZ15jn0xy1n ZcxWE419GSqjuenoqLTjtNwqSHzbxjMo/OYZCkOqT0tNCxI3fNIb2zekwn6J 54/GRiFiY3rnG/HwFNi6XykUiF9DtEkkv1ijnYxtDoqNJtbCxDYfjwC1tUlo EtrK77lHhCibvxKlOZaAN9mBj7ZyryVyBlgV5NLHuMKpcOjDt7WE76iirJdC PPi6fQ1cCtYRpxNHFsSD4vArTfpeot96IsDIWlZiwwPc2yzKU2ImSiym8QjZ FN1HVLw9zVpKjNi5//qLm8H3YHnvVKPAoBgxGKTlp+keg9+6z+YS324gdsvJ bdhsFY2+X/u8K2+JE2qProt6uN9Firbqho/WEsS1v44WdsFRyAr2FHRQkiS2 fL73RNntDm6Z2RpzT0sSlpubswrmI7GzO/n5rY8biYsysYXSQRGI2/Io66Ox FOHWq+e9XCsc1yoi44xLpIip8lTjInooDmwwe1YvK00ELdm3P6MqBHtdaCcE Q6WJUyYd7bxlt5AobiP7YVqa+KlCkzfJvQnZqvTYgydkiEvlYq9ZNcGIUqpU aH0rQ6TA4b/c8RuwZ/K01ClQCKnQmVfM1Tdgk8eQCr1DIfbWBdOW/heEC4FH /xrdpRDtcb4D5cZB8Dxa0C4Qw44f9+jyNAhCyLTn7ahYCpGacGz/0N4gZO+Z m3+QQCFkJH6va1cLwtz7xS9pLyiEQ0fn+W6xIES1CkRW0yiE84zTQNBgIOKf Op+7WUchrgbwa5n1B+KpR6OOQQOFcLL/flq+NxBFa6P+NDRSiF1BvPyNnYHo tlxzru0zhQhSoU/LNgZCvk9U52cfhXj7Pazzd0EgVAp8JVN/UYhuMcu+L3mB 0Ajumjs7SCGWp0oUFmYHwkQ+IXd4hEJ8o3vme2YEwv28lCSdTiEWv25csfgo EH5aAXP5TArBJ6Zn3hcXiOAVPz95TFMIno1G9uT9QMTlPA3//ZtC3KaOfr13 JxAp13kcSv9QiL7r3Np+EYF4cfjsPr+/FCKynXnWLjQQBTK1EtQFChES72t6 4GYg3jI3zbENjpjQMudVDwrE/wAu0ux3 "]]}, Annotation[#, "Charting`Private`Tag$110494#3"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, 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, 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., 9.999999795918367}, {0, 0.5}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.756231711524808*^9, 3.756231750689517*^9}, { 3.756231781011859*^9, 3.756231790917742*^9}, {3.756232276468837*^9, 3.756232304978105*^9}, {3.7562326595094976`*^9, 3.7562326879476357`*^9}, { 3.756232888417676*^9, 3.7562328989193087`*^9}, {3.7562346342844067`*^9, 3.7562346393504267`*^9}}, CellLabel->"Out[98]=",ExpressionUUID->"27b35305-56be-4114-ac78-77463220cbbb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Xp", "/", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["Xp", "b"]}], ")"}]}], " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "A"}], "/", "Xp"}], "]"}]}], RowBox[{"Xp", "+", "X"}]], ",", RowBox[{"{", RowBox[{"Xp", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"X", ">", "0"}], ",", RowBox[{"A", ">", "0"}], ",", RowBox[{"b", ">", "2"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.756231860166916*^9, 3.756231900342329*^9}, { 3.7562319314647617`*^9, 3.756231932087323*^9}, {3.756232066946086*^9, 3.756232113130064*^9}, {3.756234554175756*^9, 3.756234558100246*^9}, { 3.756234645649914*^9, 3.756234651287368*^9}}, CellLabel->"In[99]:=",ExpressionUUID->"79574766-1a43-4bf7-9635-4149f940d556"], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["A", "Xp"]}]], " ", "Xp"}], RowBox[{ RowBox[{"(", RowBox[{"X", "+", "Xp"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["Xp", "b"]}], ")"}]}]], ",", RowBox[{"{", RowBox[{"Xp", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"X", ">", "0"}], ",", RowBox[{"A", ">", "0"}], ",", RowBox[{"b", ">", "2"}]}], "}"}]}]}], "]"}]], "Output", CellChangeTimes->{ 3.756231902637813*^9, 3.756231937047072*^9, {3.756232075688158*^9, 3.756232105208271*^9}, 3.756234546044178*^9, 3.756234585393394*^9, 3.756234663349443*^9}, CellLabel->"Out[99]=",ExpressionUUID->"eb280c9f-1110-41a0-9025-ba02fef63b8f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "A"}]], " ", RowBox[{"(", RowBox[{"\[Pi]", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", "A"}]], " ", "\[Pi]"}], "-", RowBox[{"\[ImaginaryI]", " ", "\[Pi]", " ", "X"}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", "A"}]], " ", "\[Pi]", " ", "X"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", "A"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], "+", "X"}], ")"}], " ", RowBox[{"ExpIntegralEi", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "A"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"\[ImaginaryI]", "+", "X"}], ")"}], " ", RowBox[{"ExpIntegralEi", "[", RowBox[{"\[ImaginaryI]", " ", "A"}], "]"}]}], "-", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"A", " ", RowBox[{"(", RowBox[{"\[ImaginaryI]", "+", FractionBox["1", "X"]}], ")"}]}]], " ", "X", " ", RowBox[{"ExpIntegralEi", "[", RowBox[{"-", FractionBox["A", "X"]}], "]"}]}]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["X", "2"]}], ")"}]}]], "/.", RowBox[{"A", "\[Rule]", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"X", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.756231954200506*^9, 3.756231959967703*^9}, { 3.756231990513883*^9, 3.756232026968809*^9}, {3.7562346030827417`*^9, 3.756234614407552*^9}}, CellLabel->"In[96]:=",ExpressionUUID->"f649aa49-5afa-4daf-aacd-27f69f6b3b1a"], Cell[BoxData[ TemplateBox[{ "General","munfl", "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \ \\\"9799.398928374116`\\\"}], \\\"]\\\"}]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"",2,96,109, 31079175122089511229,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.756231960216709*^9, {3.7562319908587103`*^9, 3.756232027168392*^9}, 3.756234614849684*^9}, CellLabel-> "During evaluation of \ In[96]:=",ExpressionUUID->"ceffc3ae-0814-438c-9ff0-eda2f03c7ff8"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV0ns803scx/Eh8Rg6LgkJ4ycKkU6dKHy+pVKoI3I6SXWsjFMiZR5FqaZC osW6SMyi0pHr0Tmh8NuFMWaMjY1TWY5H0sVlNJTj/PF+vB7P/9/W5JjAcHUC gXBgYf83L4m82PVYupeePHr9zbQ+4IpJ/vtJv8MBnVDez7Q+mG+qTyaRzsFx tSebTBP7IK8xw0qTlAbVbHStMaoPojypJ6etcmAy9Vx+VEAfiGcjGV+snkKy tkMpZtYHWvJB+49WNSA0tbNjlfcCq5UZ+8GqBSgrBt3NPklh8t5zh9c3WmC2 0itweFgKOyIEii5VC9hoqzTq3kphVGM6uFbcCk6BF4lneqTg5rlnU1pKGxif 2pZu+0oKovI5dfvPHSDM6VVeyZDCxVYnX9cjYphcW5bzzVUKZeVp8ihnGeRo TVLtUiUwYjhywzdMBkx6v0lMsgTs4329VjFksM21cKY2SQIFHjoshUoGLsqw 2FCqBLJablBCeHJYJ2sq4ZElEK+4OeYTOgD+u36oWuMlAaaOINlg+xuIuz7D cpvugQjozBk9rYAfs89ei4/tgeih1YrqsvegnRQSqH6tG4jWV+xfu32B8UCZ aPCxGDL1BQ6s3yagaMWWl7mfuoAs39eg0TYFvYfT48Y2d0Es7wo5xn4G/ILs 3AzzO6HylG6Q6a5vYOXFW/nRpBNYiSdG1u4nIMbug5SCLBHQmHN7J0fV0NbM PwK1SSIgiN+glwkayHxq++34mA6wi6Oc3eegiQqSmRsnHgjhnfLuLzqvFiPi 0yR6yVA7+A4dv5AVq40KGjwv1zq2w553dEdLSyJK+GxIrLrUBiMc8iV+qQ7a dprNPjEiAGcDiYX3ET1UVXVpICVAAERQhvVPLEHjpqVuxfxW8PkYMm0TrI96 jLmpJM9W6GUfUwtxMkD+46WaW+pa4Hkq9zBJaYBOTXn/NOqz8AtN6huh0BAF FZooa0R8OHo68bnufSN03c74BY3CB5cIR6F/2FJk+F58oUWdDx2GTjpUd2NU v5Ib7pLbDHVltFwnjWXI3Pskn+bVDIlqDgFtA8tQ/jv5nM0/TUDsT9gZXW2C CgmvtA4lN8HQY2sG87wpcrEekw27NgFjldmimmAzlO2e6d/XzwP6fUpzGGk5 kjRQHX6l8yCEcUioO7wcqRubVv/rw4Ov2x6pmPXmyGi8gfNtlguKoa1n2Skr kFOu1tvMv7nw0NPVvD3MAnGCi2U9MVwovUo1iFhjieai5Zv1XLiQEnzUT0Np iZZm4azEMQ5s6Gc9TWm3Qhbnnk9xKjhwb3VuabsfCb0JPUTcEM+Bi40Z9/xq SChltHFnsRsHdpsHP2q1tUZ5MzyG/nc2bIluPmiQZo3SWN3d03w2MFeQbduU 1ij/durxRbfYYMt5cmfPQRv0gnyI7HGYDfQ1bIeuehsUP/AsBF/DBsrEos4W BwyJJASXjBkcyJXjpLSbGBpfJ0pZ3IZDFC1ozvcWhswNas+4C3CgBlVLdbMx FDBaFx/VikOqkppJv4Mhn7gpvIuPQ5m7avZuHoZK1TqiCng4qPB5yeMSDMVQ g/RRAw70Lt0MbjOGviuWxNKrcLhfeDLyWguGEm0aNjZV4lAYJ/TeKcBQsz/B eK4Ch7+W0WcEQgwVCWyNIstx6A8xihT3YEjnIs1iyzMc7BVm3oMKDNWxJinT j3BYW51gWTSEIWcFh+G84E1X5arwYQx9th/sDS/Cwd8+r+L9CIb8KLOF3Q9x OH2CZDk2hqEd+c7b/2TicN7jsqpqAkNUmcbKD/k4XNUb7I5TYmh9upY5tuB7 5YXpX79iqH/Z9V3ZD3B4eGlRRO0Mhh7ICDRBLg4le8O3np/DEPPdbZHGgqtt miy8vmNo0HH7Bo/7ONRP2Knm5zFEKyZWxOXg8B9q37LG "]]}, Annotation[#, "Charting`Private`Tag$110376#1"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.13749559970648667`}, 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, 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, 10}, {0.13749559970648667`, 0.39902095909512597`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.7562319602548447`*^9, {3.756231990897192*^9, 3.756232027260557*^9}, 3.756234614866877*^9}, CellLabel->"Out[96]=",ExpressionUUID->"9430d860-e877-483a-a503-ac9a375923a9"] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", "g", "]"}]], "Input", CellChangeTimes->{{3.7563220409420137`*^9, 3.756322051453816*^9}}, CellLabel-> "In[202]:=",ExpressionUUID->"275e1cde-4322-42fc-b96d-b8c290d08a97"], Cell[BoxData[ RowBox[{"ClearAll", "[", "f", "]"}]], "Input", CellChangeTimes->{{3.7563220527193403`*^9, 3.756322054341959*^9}}, CellLabel-> "In[205]:=",ExpressionUUID->"7e5cacfd-96c7-42b0-84ac-b1c6274eb93b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x", "]"}], "=", RowBox[{"g", "[", RowBox[{"y", "[", "x", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.756322055271574*^9, 3.7563220768786497`*^9}}, CellLabel-> "In[204]:=",ExpressionUUID->"3c3e4784-c7cf-4706-a7ae-1a06fc5548dc"], Cell[BoxData[ RowBox[{"g", "[", RowBox[{"y", "[", "x", "]"}], "]"}]], "Output", CellChangeTimes->{3.75632207729678*^9}, CellLabel-> "Out[204]=",ExpressionUUID->"d2b747c5-0f1b-410b-9ffb-6b6d5a3cd838"] }, Open ]], Cell[TextData[{ "Let yp=y(xp). Then dyp = y\[CloseCurlyQuote](xp) dxp, ", Cell[BoxData[ FormBox[ RowBox[{"xp", "=", RowBox[{ SuperscriptBox["y", RowBox[{"-", "1"}]], "(", "yp", ")"}]}], TraditionalForm]], FormatType->"TraditionalForm",ExpressionUUID-> "3dfa29c8-051f-4d5f-80bb-ba2819813199"] }], "Text", CellChangeTimes->{{3.756323269658092*^9, 3.7563233387889557`*^9}},ExpressionUUID->"06da8123-c2af-49e5-a57f-\ 97e24bfe5b8b"], Cell[BoxData[ RowBox[{ FractionBox["1", "\[Pi]"], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "0"], RowBox[{ FractionBox[ RowBox[{"Im", "[", RowBox[{"g", "[", "xp", "]"}], "]"}], RowBox[{"y", "-", "xp"}]], RowBox[{"\[DifferentialD]", "xp"}]}]}]}]], "Input", CellChangeTimes->{{3.756323386044703*^9, 3.756323418861184*^9}},ExpressionUUID->"95b365fa-df4b-483a-a1b3-\ 5cf02317570f"], Cell[BoxData[ RowBox[{ FractionBox["1", "\[Pi]"], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "0"], RowBox[{ FractionBox[ RowBox[{"Im", "[", RowBox[{"g", "[", "yp", "]"}], "]"}], RowBox[{"x", "-", RowBox[{ SuperscriptBox["y", RowBox[{"-", "1"}]], "[", "yp", "]"}]}]], FractionBox["1", RowBox[{ RowBox[{"y", "'"}], "[", RowBox[{ SuperscriptBox["y", RowBox[{"-", "1"}]], "[", "yp", "]"}], "]"}]], RowBox[{"\[DifferentialD]", "yp"}]}]}]}]], "Input", CellChangeTimes->{{3.756322092880144*^9, 3.756322131367614*^9}, { 3.7563223144507027`*^9, 3.756322353539707*^9}, {3.7563223853722353`*^9, 3.756322427972773*^9}, {3.756322491221879*^9, 3.7563224929341288`*^9}, { 3.756322629592431*^9, 3.756322630912422*^9}, 3.7563227764983797`*^9, { 3.756323198873953*^9, 3.756323218473778*^9}, {3.756323344548374*^9, 3.756323368324808*^9}},ExpressionUUID->"7bcba897-ba3b-4b3c-98b8-\ 268ff5d9bcac"], Cell[BoxData[ RowBox[{"Series", "[", RowBox[{ FractionBox[ RowBox[{"Im", "[", RowBox[{"g", "[", "y", "]"}], "]"}], RowBox[{"x", "-", RowBox[{"y", " ", RowBox[{"h", "[", "y", "]"}]}]}]], RowBox[{"(", RowBox[{"D", "[", RowBox[{"y", "["}]}]}]}]}]], "Input", CellChangeTimes->{{3.756322653250744*^9, 3.756322654787459*^9}, { 3.7563227470900183`*^9, 3.756322767658465*^9}},ExpressionUUID->"654d28e5-ccb0-4935-83ed-\ 3a1ff8ed10fb"], Cell[BoxData[ RowBox[{ RowBox[{"\[CapitalGamma]", "[", RowBox[{"m_", ",", "h_"}], "]"}], ":=", RowBox[{ FractionBox[ RowBox[{"\[Sigma]", " ", "h"}], RowBox[{"2", " ", "\[Pi]"}]], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{"\[Pi]", " ", SuperscriptBox["m", "2"]}], RowBox[{"2", " ", "\[Sigma]", " ", "h"}]]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.763208042046925*^9, 3.7632080794367456`*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"115bf7c3-d098-4d8b-a159-1af2e3115a49"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalGamma]", "[", RowBox[{ SuperscriptBox[ RowBox[{"f", "[", "h", "]"}], "2"], ",", RowBox[{ SuperscriptBox[ RowBox[{"g", "[", "h", "]"}], "2"], RowBox[{"h", "/", RowBox[{"(", RowBox[{"2", " ", "\[Sigma]"}], ")"}]}]}]}], "]"}], "/", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[Pi]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "4"], "/", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"g", "[", "0", "]"}], "2"], "h"}], ")"}]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"h", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.76320812768954*^9, 3.763208145477357*^9}, { 3.76320844930233*^9, 3.763208471203129*^9}, {3.763224977410864*^9, 3.7632251578996696`*^9}, 3.7632252153766127`*^9}, CellLabel->"In[78]:=",ExpressionUUID->"ee8647e1-7d5f-4307-ad48-444a1bce2dc1"], Cell[BoxData[ InterpretationBox[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"2", " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"], " ", RowBox[{"g", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "4"], " ", RowBox[{ SuperscriptBox["g", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"g", "[", "0", "]"}], "3"]]], " ", SuperscriptBox[ RowBox[{"g", "[", "0", "]"}], "2"], " ", "h"}], RowBox[{"4", " ", "\[Pi]"}]], "-", RowBox[{ FractionBox["1", RowBox[{"4", " ", RowBox[{"(", RowBox[{"\[Pi]", " ", SuperscriptBox[ RowBox[{"g", "[", "0", "]"}], "2"]}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"2", " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"], " ", RowBox[{"g", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "4"], " ", RowBox[{ SuperscriptBox["g", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"g", "[", "0", "]"}], "3"]]], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "\[Pi]", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"g", "[", "0", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"g", "[", "0", "]"}], "3"], " ", RowBox[{ SuperscriptBox["g", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "-", RowBox[{"8", " ", "\[Pi]", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"], " ", RowBox[{"g", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["g", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "4"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["g", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "+", RowBox[{"2", " ", "\[Pi]", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"g", "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "-", RowBox[{"\[Pi]", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "4"], " ", RowBox[{"g", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["g", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], ")"}], " ", SuperscriptBox["h", "2"]}]}], "+", RowBox[{ FractionBox["1", RowBox[{"4", " ", "\[Pi]"}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"2", " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"], " ", RowBox[{"g", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "4"], " ", RowBox[{ SuperscriptBox["g", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"g", "[", "0", "]"}], "3"]]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox["g", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"], "+", RowBox[{ RowBox[{"g", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["g", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"2", " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"], " ", RowBox[{"g", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "4"], " ", RowBox[{ SuperscriptBox["g", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"g", "[", "0", "]"}], "3"]]], " ", "\[Pi]", " ", RowBox[{"g", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["g", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"8", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["g", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], SuperscriptBox[ RowBox[{"g", "[", "0", "]"}], "3"]], "-", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "+", RowBox[{ RowBox[{"f", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"g", "[", "0", "]"}], "2"]], "-", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["g", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "-", RowBox[{ RowBox[{"g", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["g", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"g", "[", "0", "]"}], "4"]]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"2", " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"], " ", RowBox[{"g", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "4"], " ", RowBox[{ SuperscriptBox["g", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"g", "[", "0", "]"}], "3"]]], " ", SuperscriptBox[ RowBox[{"g", "[", "0", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"8", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["g", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], SuperscriptBox[ RowBox[{"g", "[", "0", "]"}], "3"]], "-", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "+", RowBox[{ RowBox[{"f", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"g", "[", "0", "]"}], "2"]], "-", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["g", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "-", RowBox[{ RowBox[{"g", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["g", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"g", "[", "0", "]"}], "4"]]}], ")"}], "2"]}], "+", RowBox[{"2", " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"4", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["g", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "+", RowBox[{ RowBox[{"f", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"g", "[", "0", "]"}], "3"]], "-", FractionBox[ RowBox[{"4", " ", SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "3"], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["g", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "2"]}], "-", RowBox[{ RowBox[{"g", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["g", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"g", "[", "0", "]"}], "4"]], "-", FractionBox[ RowBox[{"2", " ", RowBox[{"f", "[", "0", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "3"]}], "+", RowBox[{"9", " ", RowBox[{"f", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], RowBox[{"3", " ", SuperscriptBox[ RowBox[{"g", "[", "0", "]"}], "2"]}]], "-", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"f", "[", "0", "]"}], "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "12"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["g", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "3"]}], "+", RowBox[{"9", " ", RowBox[{"g", "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["g", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], " ", RowBox[{ SuperscriptBox["g", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"g", "[", "0", "]"}], "2"], " ", RowBox[{ SuperscriptBox["g", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], RowBox[{"3", " ", SuperscriptBox[ RowBox[{"g", "[", "0", "]"}], "5"]}]]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["h", "3"]}]}], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", "h", "]"}], "4"], SeriesData[$CellContext`h, 0, {}, 1, 4, 1], Editable->False]}], SeriesData[$CellContext`h, 0, { Rational[1, 4] E^(2 Pi $CellContext`g[ 0]^(-3) ((-2) $CellContext`f[0]^3 $CellContext`g[0] Derivative[1][$CellContext`f][0] + $CellContext`f[0]^4 Derivative[1][$CellContext`g][0])) Pi^(-1) $CellContext`g[0]^2, Rational[-1, 4] E^(2 Pi $CellContext`g[ 0]^(-3) ((-2) $CellContext`f[0]^3 $CellContext`g[0] Derivative[1][$CellContext`f][0] + $CellContext`f[0]^4 Derivative[1][$CellContext`g][0])) Pi^(-1) $CellContext`g[0]^(-2) ( 6 Pi $CellContext`f[0]^2 $CellContext`g[0]^2 Derivative[1][$CellContext`f][0]^2 - 2 $CellContext`g[0]^3 Derivative[1][$CellContext`g][0] - 8 Pi $CellContext`f[0]^3 $CellContext`g[0] Derivative[1][$CellContext`f][0] Derivative[1][$CellContext`g][0] + 3 Pi $CellContext`f[0]^4 Derivative[1][$CellContext`g][0]^2 + 2 Pi $CellContext`f[0]^3 $CellContext`g[0]^2 Derivative[2][$CellContext`f][0] - Pi $CellContext`f[0]^4 $CellContext`g[0] Derivative[2][$CellContext`g][0]), Rational[1, 4] Pi^(-1) (E^(2 Pi $CellContext`g[0]^(-3) ((-2) $CellContext`f[0]^3 $CellContext`g[0] Derivative[1][$CellContext`f][0] + $CellContext`f[0]^4 Derivative[1][$CellContext`g][0])) ( Derivative[1][$CellContext`g][0]^2 + $CellContext`g[0] Derivative[2][$CellContext`g][0]) + 2 E^(2 Pi $CellContext`g[ 0]^(-3) ((-2) $CellContext`f[0]^3 $CellContext`g[0] Derivative[1][$CellContext`f][0] + $CellContext`f[0]^4 Derivative[1][$CellContext`g][0])) Pi $CellContext`g[0] Derivative[1][$CellContext`g][0] ( 8 $CellContext`f[0]^3 $CellContext`g[0]^(-3) Derivative[1][$CellContext`f][0] Derivative[1][$CellContext`g][0] - 2 $CellContext`f[0]^2 $CellContext`g[0]^(-2) ( 3 Derivative[1][$CellContext`f][0]^2 + $CellContext`f[0] Derivative[2][$CellContext`f][0]) - $CellContext`f[ 0]^4 $CellContext`g[0]^(-4) ( 3 Derivative[1][$CellContext`g][0]^2 - $CellContext`g[0] Derivative[2][$CellContext`g][0])) + Rational[1, 2] E^(2 Pi $CellContext`g[ 0]^(-3) ((-2) $CellContext`f[0]^3 $CellContext`g[0] Derivative[1][$CellContext`f][0] + $CellContext`f[0]^4 Derivative[1][$CellContext`g][0])) $CellContext`g[0]^2 ( Pi^2 (8 $CellContext`f[0]^3 $CellContext`g[0]^(-3) Derivative[1][$CellContext`f][0] Derivative[1][$CellContext`g][0] - 2 $CellContext`f[0]^2 $CellContext`g[0]^(-2) ( 3 Derivative[1][$CellContext`f][0]^2 + $CellContext`f[0] Derivative[2][$CellContext`f][0]) - $CellContext`f[ 0]^4 $CellContext`g[0]^(-4) ( 3 Derivative[1][$CellContext`g][0]^2 - $CellContext`g[0] Derivative[2][$CellContext`g][0]))^2 + 2 Pi (4 $CellContext`f[0]^2 $CellContext`g[0]^(-3) Derivative[1][$CellContext`g][0] ( 3 Derivative[1][$CellContext`f][0]^2 + $CellContext`f[0] Derivative[2][$CellContext`f][0]) - 4 $CellContext`f[0]^3 $CellContext`g[0]^(-4) Derivative[1][$CellContext`f][0] ( 3 Derivative[1][$CellContext`g][0]^2 - $CellContext`g[0] Derivative[2][$CellContext`g][0]) + Rational[-2, 3] $CellContext`f[0] $CellContext`g[0]^(-2) ( 6 Derivative[1][$CellContext`f][0]^3 + 9 $CellContext`f[0] Derivative[1][$CellContext`f][0] Derivative[2][$CellContext`f][0] + $CellContext`f[0]^2 Derivative[3][$CellContext`f][0]) + Rational[-1, 3] $CellContext`f[0]^4 $CellContext`g[0]^(-5) ((-12) Derivative[1][$CellContext`g][0]^3 + 9 $CellContext`g[0] Derivative[1][$CellContext`g][0] Derivative[2][$CellContext`g][0] - $CellContext`g[0]^2 Derivative[3][$CellContext`g][0]))))}, 1, 4, 1], Editable->False]], "Output", CellChangeTimes->{{3.763225044115782*^9, 3.7632250528350782`*^9}, { 3.763225115733904*^9, 3.763225158729478*^9}, 3.763225216018067*^9}, CellLabel->"Out[78]=",ExpressionUUID->"6c73d924-a33c-4c0b-9134-c418d0f230a0"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.7632251331213627`*^9, 3.763225135482133*^9}},ExpressionUUID->"2dffb761-e25b-4268-83b9-\ 0ff49aa646b4"], Cell[BoxData[ RowBox[{ RowBox[{"int", "[", RowBox[{"n_", ",", "m_"}], "]"}], ":=", RowBox[{"Integrate", "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["x", "n"], " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "1"}], "/", "x"}], "]"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "m"]], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{"y", ">", "0"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.763221462937625*^9, 3.7632215620936327`*^9}, { 3.763221594449231*^9, 3.763221615383012*^9}, {3.763222060944474*^9, 3.763222070574812*^9}}, CellLabel->"In[51]:=",ExpressionUUID->"12fc88f4-cb1b-43cb-a447-139b196f0433"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ SuperscriptBox["x", "2"], ",", "x", ",", "x", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.763221707138867*^9, 3.763221719902907*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"e0b8e4c6-761f-4ffd-8a29-7e6a33ce40fa"], Cell[BoxData[ FractionBox[ SuperscriptBox["x", "5"], "60"]], "Output", CellChangeTimes->{{3.763221716989985*^9, 3.763221720317008*^9}}, CellLabel->"Out[24]=",ExpressionUUID->"8125dfdb-9536-4fc9-aaa7-a482977baa5d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"test", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"A", " ", RowBox[{"int", "[", RowBox[{"1", ",", "3"}], "]"}]}], "+", RowBox[{"B", " ", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"int", "[", RowBox[{"2", ",", "4"}], "]"}], ",", "y"}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.763221645438252*^9, 3.763221677183313*^9}, { 3.763221722586137*^9, 3.763221737344351*^9}, {3.7632218119317913`*^9, 3.763221812369815*^9}, {3.763221864303968*^9, 3.763221871555028*^9}, { 3.763222056145197*^9, 3.763222083110484*^9}}, CellLabel->"In[57]:=",ExpressionUUID->"63651aa3-bc00-4dbe-abb9-a75dd8756b7f"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"y", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "A", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "y"}], ")"}]}], "-", RowBox[{"B", " ", "y"}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox["1", "y"]], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "A"}], "+", RowBox[{"B", " ", "y", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "y"}], "+", RowBox[{"2", " ", SuperscriptBox["y", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"ExpIntegralEi", "[", RowBox[{"-", FractionBox["1", "y"]}], "]"}]}]}], RowBox[{"6", " ", SuperscriptBox["y", "3"]}]]], "Output", CellChangeTimes->{{3.763221646768148*^9, 3.763221678100853*^9}, { 3.763221731962682*^9, 3.7632217386403227`*^9}, 3.763221813832883*^9, 3.76322187448955*^9, {3.7632220579849167`*^9, 3.763222084186201*^9}, 3.763222146975143*^9}, CellLabel->"Out[57]=",ExpressionUUID->"894f74ab-43fc-423d-80ca-312ad0f1dd00"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"test2", "=", RowBox[{"Simplify", "[", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "A"}], " ", RowBox[{"int", "[", RowBox[{"1", ",", "4"}], "]"}]}], "+", RowBox[{"B", " ", RowBox[{"int", "[", RowBox[{"2", ",", "4"}], "]"}]}]}], ",", "y"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.7632220857669363`*^9, 3.763222125311212*^9}, { 3.763222218811028*^9, 3.763222236881112*^9}}, CellLabel->"In[69]:=",ExpressionUUID->"45d0c759-ab9c-453b-9bc7-c8a74f2ce56b"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"y", " ", RowBox[{"(", RowBox[{ RowBox[{"A", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "y"}], ")"}]}], "-", RowBox[{"B", " ", "y"}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox["1", "y"]], " ", RowBox[{"(", RowBox[{"A", "+", RowBox[{"B", " ", "y", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "y"}], "+", RowBox[{"2", " ", SuperscriptBox["y", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"ExpIntegralEi", "[", RowBox[{"-", FractionBox["1", "y"]}], "]"}]}]}], RowBox[{"6", " ", SuperscriptBox["y", "3"]}]]], "Output", CellChangeTimes->{{3.763222113929743*^9, 3.7632221494971447`*^9}, { 3.76322222171766*^9, 3.763222239782604*^9}}, CellLabel->"Out[69]=",ExpressionUUID->"89d2bb57-ca68-4528-98b5-4ffc4c09f17a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"{", RowBox[{"test", ",", "test2"}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"A", "\[Rule]", "1"}], ",", RowBox[{"B", "\[Rule]", "0.1"}], ",", RowBox[{"CC", "\[Rule]", RowBox[{"-", "0"}]}], ",", RowBox[{"DD", "\[Rule]", "0"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "100"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.76322181441158*^9, 3.763221999339964*^9}, { 3.763222129553796*^9, 3.763222202179368*^9}}, CellLabel->"In[70]:=",ExpressionUUID->"2ba91c24-8862-4f6c-82ed-0f40ef248826"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV13k4lF0bAHB6bZGyb0mEYRgMSSHvuSvJni3GWiLZikgqZc2+JITKWtaS NfV5ZjAztigqUbZSociSJFvke96/nut3Xc911vu+zzkyp/2szmxhYWHZxsrC 8t/3SqXP0ayqLTB/XaUKKtuRoLeCoOjEFuhz4eYsi29HX2Y/uF7+/Q90NzaI c31oQ+9SEutTtdlgWaexI/xJG+pS095afp0NmM4HLywmtaHaCxnVg+zsYBnl VPMI2lDEb+NNHREOeJl4hzWmthVdzFyxsnbgAD2nhNHN1Fbkub+kxCePAwzV +sV1/VuRxRVW8xwCJ6TPKSp/JLci6Y1nORtaXDAqNiiKsBYklHdmXjiEC+g9 /a5KeS2ICwnqqzZzAUuIStHjyBb0I/z8tMuxrXDostoPb7MW1MQmr0O344Yh j38PWk4xUW1xb/LAPW7YO+JWnfiGiUoMwj/Pj3LDG9P2PIQxUUrccJyMJw/4 sT7YxZnMRM7b0t5HXt4G5beC2Bn7mcjiMVK+R9sGIGT9LkCWifTNZ0PrWHjB Oi5QJXYHE5FSDQnjcbzwsq6isnuSgdYFNy8evbMdksNIbGn5DNTNq7WVzZkP UpZ2dJAlGajXRCC75xofNO7M1OfezkAD8XOEOzl88FcX/KVYGGicvVRfdYQP ND0mln+O09H6hmg4xZEf/uVPzpavoaMtBxe3y4bwQ0zPvNiTIjriuvo6d/Yu PzAca1wuZtOR4FIcNXKIH4g7t5nHhNOR0tzqUoW9AHS+zirqt6IjMulddPAV AciixnANHKMjLe9aocN3BEBn54ElNj06OvzVW+P9gAC8Y43VGVagI/uPw+dY KYKwh14g8PxvM4rraRw/YSsEY+fHmRnezShl291A6UtC8Nya3VLPvhllGF/a Mn1bCBJWFA3kDZtRfruqdHi/EEQURLBUEZrR06Z8x4c2wpAfxmuc9LUJTVRG 9P61EgGPG4eMbvs3oe8zzq6dASLQO9rvQDvdhOaVdObT00RAgle5RfBEE1ov WeAl9orAuG7sNQudJiSU72ZkbSkKfweu18xwNKHDN4/SS4+LwUQBTV+4rBGF Gz8p7z0vBq4t6pxyuY2oiV02fSNZDHRcyd9s0xqRzjUWD+uXYjDbZT1KuN6I 9npReTYNxSHBlGDvatOI5I6o29keloAmdk2Xfq5GdPpvPkS4SsCJsWCh6U0a KmjYrlQRLgFWM8cv7FqmIUnyzDprswSYqQTGvZugIeFdpfcf6+6ElyfDA262 0hDHsuQc2z5JuGP4lfkihob0axPfq9lIQg4t7FlYGA1FnlujOwRKgnOOYL3x ZRr6O/Y+vbpGEqzNnTPlvGlo+XWatpPqLnBkm28bNaehyYdc0XUKUiAepGKn JUlDBI/g8x8NpKDl+GdZbREacpf5arfVQwqwwd2Pzflo6FNWi9LJIim4yknj qGGjocEboa+5ZXaD0/4dN0znqOiM2hqvOq80eEkkfa1spSLT4dhiMSlpMH9c b2LfTEWascJ6LGrSEOY91imMURHbKNn3lYU0dA/aybZWUdH9lLNd5zKkYYbH YePHPSoane2LebhTBlJqdrbbBFNR+53TUmkkGVjF3Go5Aqmo8uh8/RU9GQja eOfecZ6KQnN5JgxPyoDhXV63ix5UJGl2+Mi3+zIw+2tzKNiWiuwrqjZllfbA vklG8uYBKgKKXhaP7h4QivoZE7+PihTZXqj+MtkDv/YdrditQUUrjl+dmef2 AI+v9ZSfMhVl8uyinarZA9m7h0xypKjorXfC5dwDsiBTKKbPyUlFmIgYX7SR LLBEjU8dYcPnwywu9XWQhWDS2qMEVioKkGC8070mCwtf4/i01jHE17WsOdQs C8WuXw+xLmDIjHjmp8gxOZDXbX9iOYqhtcQg6gdbOZhOczls+AFDZXPR0UUe cpD9wEDNYBhDbE9KxDVi5OAZM3vI7j2GsH8nD5m1ycHvffvOvX6FIc/CFR6h fjkYnU2c2uzGkDDb1ndD43KQ4PevhtZLDPl3Er092eQhbM517OlzDBFsfNKi jsiDSkXPdw4mhvqehjgZW8sDla16zpuOoQjxJAK/mzzsWInU7m/C0MjHCiwv Uh7GYNWdRsVQutfclwaGPDDHDdzf1mOIJezC3nlEADs1c2nRRxiq/Byx8fQ4 AZI4olIGyjHkqJ/Wcf0kAZbG/+eYX4ahp1vrHHnCCGAy0fPxYAmGfDMWowhN BFB76inztBBDEsts5rPdBOApsZcuLMBQh72w2JMPBED69uK38jG0Z7dWxaEN AgyequoMy8XQYHlwn9NBBWjW/3ck8w6GYrbF5cmaKoCk6H63smwMafple353 VAD1gJ+xTVkYStVsWA8OUYCQq2OhK7cxZNC8JpeOKYBuxrelwjQMLcrw/LDv UgBSqC56fwtDhTd2NkgPKQBNqPM1H+51o4NmlasK0MfmX5p6E0O1fdeDOg8o gpjN2g5mEr5/0e6nvxgpwm25tkRu3HlaJsf/OCjC9KjuE7tEDCVkixFVrivC 9WXHkc14DIUbbQobpCjC3a0LrQ64L61NbDmZrwg9N7aRsDgMuTnVjaQyFKHS XdgoJhZDDrx3O8t7FeHhyPLkQgyGLJrCnzLHFCGX3WDYDfdBafPURXYijFw9 m2QVjSGh8ckjFGMi+E+Q112jMMR9+xX5giMRuJbZuecj8f0zeLorwZcIJ2be ikbinimNWqamEIF7Q39bbQSGvlC8x/vyiSAucH/0OO6BrZZvZquJUHvUJ+ln OIbafKQe7X5LBL66EVPATZNkzz4wToRvwYLms2H4+nRP37D8TQSx1t5/8nDn qTW4RIkqwYEnu724cWd8yjfJUVSCgDx2zvZQfH1uxRyo11aC1FVZrWjcl35Z C3xzVIKtQq3y23H7FulsbvoqQdQD5/731zF0+oTMjFioEjx+6LJYhJvCwTWo flMJHkYkXQ3Cbf5srs24QAl0FpknjXDre/bXutUowYuVX/ekceuI0/KvMZXg o6eCwp9rGCJ33U+6/VYJXLCrqwO4FULir1SOKwE3Js2D4ZYi+Xt0/FaCtwau Nnm4hT7YWn/iUAbf7Xe6o3Fzp+jBqqgypBtr+/njZkFyKgJEZcgM61B3wb30 g1tCWUcZinU/8B7HPVPwk0PfRBmE3iusH8b9xXLgl5OTMjzZ5/lbG/fAluZP QeeU4XNcwMJe3D11xd0pocqQKKA6Q8bd6p6Eld5UBu2pjOH/jAkHltILlKGC Vtfw3/817fYZgzW475WH/ddeWTBELDCV4QxWSvivvzxFhfM8fcrQov2z1Ax3 xiCvo9yEMkT+GFp3xJ2QsHhMb0kZ5NVeSJ3DHa47rGnLSYJ76dqcEbgvzTBk /MRIUNdZWZWF2ze3bHsckQRnHVv5a3CfNr/5p0CHBK0hcgrduCmbQZMNJiS4 +zZ+ahq3ebVTf68TCVbNm6148f3QFVCqYgsjAU+MCCsFdw+rQ2f3TRJcj+0I DMd96mf8WGYBCWaUop0f4b7xekqUyCSB3eRIGBceHyJ0cY2FXhJMGwc91sFd XmVkSh0jQWKyyEE/3D0p5eFm7Cqg28VxdhT3qdDBuyIiKhDxP/qKBB6PC+e2 1o8SVCBD2v4dBbeomdfUBUMV2L6WcGoY9ykeolVmogp87AiT/YPH+8Iaxfdk jgr4NbvEGOL5ceN7XIziYxXwzyfxZuMu75zEsB4VSH0ZFaiH59dCbJnsKL8q /LmjKl2I5+MNNsXfCtmqUBqYyPEcz1+RRbsdP8tU4bTu/ah9eL6XjcUSsQZV qN/l9aEIdzfzm7PpsCqYahaLxOP1QSSitN1fSg3KWgzUzibg/W0QshuK1CBG 0Dn9UgpeD2ZtayPr1YDgEPYPC16vekZiXpq0q4G+z6ZAIu4F6leWj9/U4DFa Zi1JxeNb761mhDAZ7IcLm+bwenj2T1puMYUM+5OyWp7j9TPDfKblyikyaJli JSfx+kovPPrdzJMMdx47tC3jFjNc0VoKJkNcrewj5bsYep7h/Nogiwzu5R59 hTkYIqoq/jPZTwajzhcJbXi9nz7V6KlkrQ7T6enfhyow5Nf+bW+VmQbEpH5I 7GnD24cKH5KtBrBHaOTXt+PnKdX/QbmLBuioX03L7cBQddWqQJGfBkxlHuP3 78Tnk82zkH1LA46GROruxs/DSz5q1ZH9GsD38XxFUR+GrvEFk2yd98IWj64d MI7HtwOH/IavJjgdERZwZ6cit44QD3VPLWg9c+avpSEVMTjFLX3sD8DnI2Xz i8lUpM4fnjl1UQeWBJK3DwxT0alfeiRz34PgTdMOdJWnocK8Nsnl5H/h08Nk ye1BNFSXojPcawXQ+OKHWDaThi5ieha5poegFKulz25tRM1dxQvxjofh1qu/ rSsnGpHXMe1GL8oRsPFo5k6514hyytTrfbz1YfXkwyTbiUZ061djhH/wUTh5 qy1XjNSEvj4MuuQZYABHHA3isnybUKtBWnZk5DEwfbtm9Km6CbEeH/pyM9wQ yjltrCV/NCGWQ09ZC64YgazZs9OYEn5fF1026401BrJkyLvPXs3I38GNuRxl AmT+6C3nHzSjzxGa7ui2KTQs06RtPzUjofQ7Q/GFZiBY65xpz0tHJXxKVzru mcPEIc4Hv/D3ACNg91GFR8ch8+bO5wR9OsqTLpDUs7EA0/BEvzFnOmq8tsbi +doCpn364zIv0ZGMCee6rJ0lfDL4IfsmlY6evCImDvZZgp/bsGNbGR0ltf8l SztbQWhJcLc6k47SA6e8T41YgarYGY0Lg3R0TVhqxx57a+hXucXT9YOOyons XRc/WcM0/IhK4mQgjkVWcYaLDUD/m02jXQxUSq4JzftmAx2qv+TdNRmIePqh +ca5E8D6ZI9zgTEDDRs11J6YPgHTFyzG/7jg77EHV1VQoC2c1KaRSy8y0Eqd 5cE9C7aQ8WdV9kYcA23+L6A+5rwd0Ny8fpXeYyATssHRa7/tIOfQo4Yd1QzU 4azm5RNIAcpQsVM7k4EE3DypuUEU6Dqy7YB4CwO5eBbyvg6mwClRB15f3EsB grWa1ygw5V1VzN/KQHJxy2sbNyiwQqUkO7UxUHhtc1JqJgVmDp7R/tnBQDqc FtX1DRQg19hyi3Qz8PtP/JZJKgXOXbOQ88T9hp9pI9FEAcPXpgcw3J6Smquh TAoUeFuYu/QwUJa62GHDFxT40H1Xo+QVAy06fno7NEIBva9LI5q9DASu4gTe UQr4mVzPisGd6GF1GX3G5xMvaDqAe8+FVsmiCQrUfQh4EPKWgSxjys6cm6PA x3+EeJh9DJST+PlZ/jwF3E3ImYL9DDSZKsHdu0ABIpvbzjO4w+8lVWot4+MR 2CHE9Y6BXha0sXitUiB6W0KsPW7Rkr9W9/5QQIgu9fsh7tOP9hd3b1Dgz99u p3XcldX+y5ubFHh5N7vJ7D0D/R8Vzcrd "]], LineBox[{{0.0306717920557554, 0.0593636206931928}, { 0.030671792055785504`, 0.1771927695617559}}]}, Annotation[#, "Charting`Private`Tag$137492#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV1mk4lVsbB3BknmIb6ziiQXSIHQc5dN+lVELGbEplnssUQkIToUKSkjSg VDx7b/Ow7R2pjOWQipMGQ6WQacv4Pu+Hda3r92Gt57n/677WtVTdjtt68vHw 8Dwnx//n9xIHZ3M7W2D8lFYJFjfBi5TOPdPeHVCY/V9HBusZjJ8VH44seg33 VNUlVLoa4VRDiQY3718wFvTQDeVtBFE+u4ATWd3Q0NeeIm/aANdwpngytQcW 54cUTa49hXWns38Fn30H0cd0i2/OcoCoM9Ybj+qF/DfvFCx8OPDS6EzVD+9+ MJ4wvXPBlw2PjGVi/y75CBM/Mjfp/KqHX70et8OKPoFxyZvCD2vqwTC6nM3M /wxFnGmVABcWxK4W/jyR9wUiQ70N3R/UQWOV04otOQNw3OFcYOxyLYg6PVof nDUIwwKnUvNcayEry8p7LHUYVCkZpzeZ1sAH/bzEzUlfISAu0H+MXQ3r3/x6 GHj2Gwj2+vQEmlUDIZv5YyRqBD4y6wd0vapghjkk8Vf4D6jpCDINWq4EEztD bb/gn1AeMdWxL7cSmtN6g796j4HsgmWnxUgFJF6/9jKDOg7lb13c669XgKYP OOuWjEOlZOE+X/MKCBFKiw4p+gXh+hIXLKvKQa5nqzhFfQIoe6vCxMLLobLg cw49fwKuNjlwBPXLYWmXHms8bxK0V5WrjLPK4I7cf1ZXlKfgkiNn9uyFMtg5 eK5fO2cKto968t+3LYPksz08x7OmgXV0Ter4WClsto9Lk5Sbge6jJw/1cUqh c53G2uL0GZALTElrzywFxYYo05+pXFi4buDnbFoKNenrulLEZsFC7Mn9p0ql cNit1UMzaRYsb0ipt3OZcJ9X+bz/2d/grJUxEMNgwu7XTfJifHNwLuyXyVwa E77nHS8sOj0HCbSa0fYQJlCR8+Jb1Dxor8gs2GbIhK6Vfk5Js/OQX6evWavE hMh+ynf18AWwKZj74sDHBFash5hP8CJ4sVe3PXrFAPM6Iash72UYi5qhPohk AHXZbVp+fBkWv5y7u8GdASkqR9rXGfOg1M8NgalWDAhzqz5h38iDKlwJ+8mN DPBZ4fMyQJgXrRdfhH6QY8Ch+3J/nrPgxWdE06dUfgbsHApqLOvixY3ln3hX DdDB8IKyYrsiH87aXz022EUHTfVW/6FDfFgivS7NsYkOMn4bZRQG+bCA8uAM 5REdBMW6vbQ1VuALbZvvVrl0mHuUUL07cAVOif6zSTGdDp9//ucaOb0CXRVZ af9E0+HNpeSyK1v5sX5vy8XkIDo0a28VeXiKH5eLz87aedGBEXyVeCcggA1u 1APGdnQooOzgn9grgCmRxDs7czrcYI45il4SwKeDuyY7t9Mhftp82UheEG85 SEr+ptIh7NqsrZ2zILq3hYhkb6KDj0FBgX+uIAaPTF1MX0cH65O8VjlqQril JKf4nDwddq4uuVPqJ4SziSH+J6XI+msOTbcWC6FUvsfHalE6qCxW5CzqC6PM +F9hSjx0kM31HJeLFkYxt2dZBvMECIPMzs31wmjWfyjq2gwBC/3sLLMVIih3 KaZPf4KAsbhjI4d3i2Bvtl+m/CgBn1WVICJZBMW4sum63wl48/Rl+uUOEXyR Jt6VPEQAi3+DEdtRFG/o3Lo81E8AI78z9e1NUdwlqeI/2EdAgVncp/F+UeTu VLBSfE/AjWGtv0XWi+FEaFfGqR4CLiX2Jqr6iGG7BRbKdBOQoJHUt/WxGJpl afC96yQgvFlfx3ZcDLUCbmm2viLAz3/gjJ+eOE6u2lM70k6Ai3h6T0KkOO7V /mCn30aA9RP462atOD7USb1b1ELATqufsUweCbQ5H+q+u5kAw7EbnS07JdDH YI2L2EsCNK/sURtIlECUlHGdfk6ACnXm5EKrBCq9sNnHT1q2816brLQkfpsd 5TVoIvMLtVHVcpDEn9b5YSnPyPxklsN2ZUtiLTc4ZwXp8dLHL1z+k8SgUr3o m40EDDg4K4WrrsTO2/Z/2JF+OyMUdMlzJaqq+l7WIN2SVdZQ8HAlKs4N/fqT NMvQXaH+50rM2/TaQ5v0u4DEshFFKcyOCJR2IW1ncqSfaySFbPeFjQWk2yT0 RfhdpHBvQFi/CPn9zn2U6+0xUthTcd8plvTbpFG17BwpvHJx9rkw+f8fnjeX uddKoa93VOYD0gMChTs390nhRFY21YWs97vpmX9n56VQYYlPSu0FWU/8EbeG P6TROjb6AR+Z18KiQhztoDSGRlnNTZF58hlPSa6LlkYbj8BykVYyn6hXt37e kMZu5S9UHfI8ZGYSaxLeS+MmXoUMooMART1Pc8s5aUwX1coSeU2Acsj2dwqr KSi4gZIVQp73ptHfM4+dKLiNr/1rCNkPOppvzkWcpGDID7lgEbJf9P0Ysjuy KZhV3e9a/JaAHUN+W3reUjCNeVpoLdlvTh96A3lpMki13FxR8IWAw0qVCy0R MrhFrauxYJAAD+erydeyZPAPluIlxjABQW8sHv7VI4P3FyvVfowQkNheN+Bw QBZtjt2+2z9F9qf4jVCVcFmMCe4l/uYScNU8nG8kUxbN6yNtMn8TcLtps0pc tyxGKDQ6BC0RUM66fbDIXg43GN2jXBamw2BxfOeSrTxeEF1W3a5Mhx2Xd7EL 9ytiguTc9R1WdIgzL33YeUwRC0v42w7Z0IElsC5jMVURZ7onxaLt6WAUw+Nl 16qI9i0u2OBMB13fGrHlPatQNehV7WlvOqw3pToe2LEaG4+bXbkaT95vXKVR /r+VkHFwSftuBR08teckqBIqWCzXcUFenQGWGp6/5Hevx95nDmYcZSYwuk6d eGmojmrxrACTeSb8Q9lUwn9aE4MK7R45vC8F7/n0W/k0HeQmtg0J5JfB8aZh 3RLLLdi2Xkw1yb4cLjoLblgM0MOlu+w7qQIV4P482ovqo4/PDzSmFt2uAI7Q Kht/J0M056ylhmpVAlU67tq3MCOkNFyW5WFVwtFJE02rAGPMERLzljWpgju5 z5S4qdvQ7sbvtwb1VcC8ZNTbaYvYvLlHXcKwGsKqTaxvWWzHD7Tf29TvVUN9 c/5E0sEdGL0xSKtVugZ8d2+t86WZ4j7XL5IOYTWQ84Ba5u+3E5/w337v/r4G 0ibr4oMidqHtmyBdQ6NaGCo6Ee4TYoZeFCtboSu10GiWfj0hYTcmRnpLhn6r Bd797z9fjtuDs5UCfc1b64Bnezlv3sm9eNrcV/T1uTpIVOBadl4wR4NDva7H uusgyNn9KffMPhzeLrJg8CcLPsXreUCmBVpkR9VG+LBANiP7fdIdS7Q8R+0f KWFBgdSmk89vWqGKjeTTpHEWcELW7Nr4aD8Gjq3OvKBXD7kqeUom9tboIuF8 eWNIPdTFzPH4vLLGlbvkno0+rgfVfUIL6xxtcN5w1n7+ez2Udmgkv+uywSce e1uKpNmQ0rSko+Jii1knxOP9tNmQEfrN72ifLW4ZKJCJMWdDjJzyyrVOdii/ LaDU3YMNDzUEmsM+2mFrwhatV6fZIDjFu4pz2B67IyYftV1nQ6EOPTZ32B4L 36pc285kg4ZbkdVioAMe7rKsy21lQ+/eKobDiAM+7uHXafjChs57UVoQegB9 bBSrrBfYMMu0MV47cQAv5tsfYlM4sFwZUnb+mCNafDy1Zr86B/bpmO2KmXbE lKNPLI2AA89dtH39Q2loebzpgo49ByjuPjW3TtAwiK27NZX0YZ87Eq8iaNie ++LzN9IzITIMvRga9lkdU77nwIH1idy5xbM09ItuN5Bz5EAcoz7lyjVy/bDw FNeJA0ZC1kRZFQ0PNCXfrDjCgfPiSXxfa2gornbCXuYoB15LP7VfzaJheEeJ wHHSPkp6v2Of0nCjqrKNmisHsqiKO/a00DDhBl/KVTcOTB38+O/7Php+fiyc cdyTA+i6Sk2in4YNk7dfN5NO9rKNhE/kfkM5wmpeHFgb3Kh0f5CGr/taj/SR tjn/wDNwlIYjTurMPeT7Oyf5U8XtcRqaWkmV3SP99cpq0c4JGurz+pQskY67 mVKsz6WhW4F/aqkvB1rznvH4/qZh6qrVwSv9OKBQsGR7c56G2yxNLP1Iuz0y yG9bpOH6+Deqz0gXE0Hc5WUaPpgaGl3jz4H/AcgH2BY= "]], LineBox[{{0.0306717920558098, 0.0593636206931928}, { 0.030671792055900107`, 0.1771927695617559}}]}, Annotation[#, "Charting`Private`Tag$137492#2"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.0593636206931928}, 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, 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, 100}, {0.0593636206931928, 0.1771927695617559}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.763221828223776*^9, 3.763221847328966*^9}, { 3.763221878649907*^9, 3.7632219238547564`*^9}, {3.763221955963235*^9, 3.763221999623062*^9}, {3.763222139434455*^9, 3.763222239832561*^9}}, CellLabel->"Out[70]=",ExpressionUUID->"c3ad4bfd-1ed6-46d2-ac8d-33bf2dee9ddd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"int", "[", "2", "]"}], ",", "y"}], "]"}]], "Input", CellChangeTimes->{{3.763221626169365*^9, 3.76322163936662*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"964dc3a0-273c-4d37-a14a-1bae597fe234"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"y", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox["1", "y"]], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "y"}], "+", RowBox[{"2", " ", SuperscriptBox["y", "2"]}]}], ")"}], " ", RowBox[{"ExpIntegralEi", "[", RowBox[{"-", FractionBox["1", "y"]}], "]"}]}]}], RowBox[{"6", " ", SuperscriptBox["y", "2"]}]]}]], "Output", CellChangeTimes->{{3.7632216275981483`*^9, 3.763221639989242*^9}}, CellLabel->"Out[19]=",ExpressionUUID->"39771f52-a583-465b-89d5-0c5c7571b597"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{"x2", ",", "y"}], "]"}], ",", "y"}], "]"}]], "Input", CellChangeTimes->{{3.763221565107686*^9, 3.763221580997492*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"061269b2-f62d-4813-9ceb-051d0e9cb478"], Cell[BoxData[ RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "y"}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox["1", "y"]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "y"}]}], ")"}], " ", RowBox[{"ExpIntegralEi", "[", RowBox[{"-", FractionBox["1", "y"]}], "]"}]}]}], ")"}]}]], "Output", CellChangeTimes->{{3.763221571080494*^9, 3.763221581224246*^9}}, CellLabel->"Out[15]=",ExpressionUUID->"ea851468-05f4-40ab-8ad8-cc0d97b2d0f9"] }, Open ]] }, WindowSize->{1277, 1076}, WindowMargins->{{Automatic, 2}, {Automatic, 2}}, FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 208, 3, 31, "Input",ExpressionUUID->"478e8578-6729-440b-8da8-b832148e0b8c"], Cell[769, 25, 523, 15, 31, "Input",ExpressionUUID->"9c5d2ef8-d44a-4a91-867a-85038c55da40"], Cell[1295, 42, 1072, 25, 40, "Input",ExpressionUUID->"f115e671-e364-4c17-8cd5-0e618136d51f"], Cell[CellGroupData[{ Cell[2392, 71, 1565, 45, 39, "Input",ExpressionUUID->"388f6f91-566d-4160-a250-0df41602b59f"], Cell[3960, 118, 2506, 62, 53, "Output",ExpressionUUID->"9f0187ae-fa3c-485d-92a2-a51c3d5728fd"] }, Open ]], Cell[CellGroupData[{ Cell[6503, 185, 977, 28, 39, "Input",ExpressionUUID->"59e89fd5-4d33-42d5-bad6-f528bcc2bb10"], Cell[7483, 215, 10486, 280, 218, "Output",ExpressionUUID->"c27f63f4-167f-427f-a08d-8a0e66d88379"] }, Open ]], Cell[CellGroupData[{ Cell[18006, 500, 1084, 32, 39, "Input",ExpressionUUID->"8e569068-d7aa-4cc0-aca2-99cde3babe9e"], Cell[19093, 534, 1552, 47, 65, "Output",ExpressionUUID->"16ed5cb0-22c1-4624-aca9-f9f9f8ac9e92"] }, Open ]], Cell[CellGroupData[{ Cell[20682, 586, 1319, 39, 39, "Input",ExpressionUUID->"56748b37-be24-40c9-a42e-474a26341196"], Cell[22004, 627, 419, 10, 52, "Message",ExpressionUUID->"b3bc7fbc-cbd4-4bcc-bc4a-adb9210cc190"], Cell[22426, 639, 419, 10, 52, "Message",ExpressionUUID->"728a828f-4b58-4ceb-9a3b-94e3273f35f5"], Cell[22848, 651, 435, 10, 23, "Message",ExpressionUUID->"20ebb82e-5bed-4909-bd77-9784075468d3"], Cell[23286, 663, 307, 4, 35, "Output",ExpressionUUID->"d56615c4-7037-49e2-b0ed-a315bc8e03f2"] }, Open ]], Cell[CellGroupData[{ Cell[23630, 672, 255, 5, 31, "Input",ExpressionUUID->"1abe97fb-164b-4eec-bc51-c0649a7677e9"], Cell[23888, 679, 189, 4, 35, "Output",ExpressionUUID->"7f1bee79-e79b-453d-8db9-609c611a3fb3"] }, Open ]], Cell[CellGroupData[{ Cell[24114, 688, 233, 4, 31, "Input",ExpressionUUID->"a53dc90c-5ecd-4d46-8c78-a740d38cb7bf"], Cell[24350, 694, 269, 7, 53, "Output",ExpressionUUID->"868fd8a8-175e-45fa-b37e-78173abf56d2"] }, Open ]], Cell[CellGroupData[{ Cell[24656, 706, 211, 3, 31, "Input",ExpressionUUID->"cc94bd4f-8593-4972-9f23-ccdbd2ed0e37"], Cell[24870, 711, 149, 2, 35, "Output",ExpressionUUID->"b771bb4b-6dbe-48e3-8464-a5ac18d62228"] }, Open ]], Cell[CellGroupData[{ Cell[25056, 718, 2176, 49, 40, "Input",ExpressionUUID->"04e2ca53-78cc-46c7-9cb4-df7379c535c9"], Cell[27235, 769, 1865, 39, 40, "Output",ExpressionUUID->"0fc9a45b-a383-40e9-921d-5da3efd4e3c6"] }, Open ]], Cell[CellGroupData[{ Cell[29137, 813, 2806, 67, 40, "Input",ExpressionUUID->"5a4623ed-04ee-47d4-b390-2c1d11b5f787"], Cell[31946, 882, 7689, 230, 168, "Output",ExpressionUUID->"5ae19b60-ab4a-4c65-82cd-6412b5ed59e7"] }, Open ]], Cell[CellGroupData[{ Cell[39672, 1117, 3548, 86, 65, "Input",ExpressionUUID->"b164c883-bb64-4996-acce-0bbca33952db"], Cell[43223, 1205, 8082, 244, 115, "Output",ExpressionUUID->"df1478bc-00d3-449a-9c73-bdeb93252e49"] }, Open ]], Cell[CellGroupData[{ Cell[51342, 1454, 3069, 89, 64, "Input",ExpressionUUID->"cab0a3f1-46ff-4ae3-a5d6-96d42fec30af"], Cell[54414, 1545, 6480, 163, 110, "Output",ExpressionUUID->"3f58ba3e-72ca-4dd5-b9ab-8fd3df361bb7"] }, Open ]], Cell[CellGroupData[{ Cell[60931, 1713, 361, 8, 31, "Input",ExpressionUUID->"b2b56ad6-73a4-4b5c-a74c-a5e583a79d30"], Cell[61295, 1723, 630, 16, 58, "Output",ExpressionUUID->"43ea4ae2-6743-48ee-908e-53a613bb567d"] }, Open ]], Cell[CellGroupData[{ Cell[61962, 1744, 1448, 34, 39, "Input",ExpressionUUID->"fe287598-6d85-418b-ad70-75bd3a04b97a"], Cell[63413, 1780, 1554, 35, 53, "Output",ExpressionUUID->"b8168584-10da-4532-8a3f-886261464832"] }, Open ]], Cell[CellGroupData[{ Cell[65004, 1820, 623, 13, 31, "Input",ExpressionUUID->"6c566026-c1ce-44ba-a694-f37333911a8c"], Cell[65630, 1835, 1285, 33, 62, "Output",ExpressionUUID->"487b6fbc-791e-4edc-8cd3-06510e74d100"] }, Open ]], Cell[CellGroupData[{ Cell[66952, 1873, 1350, 38, 39, "Input",ExpressionUUID->"0b5017ee-0ae5-428f-ab5a-c913a4e3ff13"], Cell[68305, 1913, 2216, 70, 53, "Output",ExpressionUUID->"c9c989af-e89b-44ae-98f9-a973b6c654cf"] }, Open ]], Cell[CellGroupData[{ Cell[70558, 1988, 682, 16, 31, "Input",ExpressionUUID->"73ce0861-86ca-42e2-a377-0c0a1aa6f379"], Cell[71243, 2006, 2650, 72, 57, "Output",ExpressionUUID->"e9d3a0b0-9eee-46d0-9632-40fa31d4feee"] }, Open ]], Cell[CellGroupData[{ Cell[73930, 2083, 1396, 39, 39, "Input",ExpressionUUID->"9113eae8-9995-4066-b8cd-a03b38806f54"], Cell[75329, 2124, 4720, 132, 81, "Output",ExpressionUUID->"310b5372-fe11-4011-8dd5-0d8904e26b68"] }, Open ]], Cell[CellGroupData[{ Cell[80086, 2261, 744, 18, 31, "Input",ExpressionUUID->"70b899c3-e437-421a-8895-987392ee433a"], Cell[80833, 2281, 5306, 145, 89, "Output",ExpressionUUID->"0632b902-dc0d-404b-ae51-3a79bbd9ad48"] }, Open ]], Cell[CellGroupData[{ Cell[86176, 2431, 1786, 43, 39, "Input",ExpressionUUID->"3f2a6676-1a4a-41b9-8975-78da98c9db4c"], Cell[87965, 2476, 1134, 20, 35, "Output",ExpressionUUID->"bb6921ee-3572-4a1e-9715-426663da2003"] }, Open ]], Cell[CellGroupData[{ Cell[89136, 2501, 408, 9, 31, "Input",ExpressionUUID->"026dbff9-6345-40c7-846b-ff24dc2b45da"], Cell[89547, 2512, 564, 15, 58, "Output",ExpressionUUID->"bfa005b0-cfce-4912-abe1-27728b8a57d9"] }, Open ]], Cell[CellGroupData[{ Cell[90148, 2532, 1729, 42, 39, "Input",ExpressionUUID->"a12fb9de-9cdf-4485-b025-f9f3c4e7bfc3"], Cell[91880, 2576, 1333, 28, 55, "Output",ExpressionUUID->"199bdc71-89b8-4e78-9a5f-e432ddc48931"] }, Open ]], Cell[CellGroupData[{ Cell[93250, 2609, 624, 13, 31, "Input",ExpressionUUID->"690bf8a4-9971-4d09-b95c-65cbb97b53dd"], Cell[93877, 2624, 893, 23, 62, "Output",ExpressionUUID->"2c6a5a50-cb3b-4072-b847-336729e161bf"] }, Open ]], Cell[CellGroupData[{ Cell[94807, 2652, 1342, 37, 39, "Input",ExpressionUUID->"65446e1d-ab32-48e7-83fc-d6a5eaf55a6b"], Cell[96152, 2691, 1595, 49, 53, "Output",ExpressionUUID->"e93135e8-3f38-495e-87eb-bec996b0d556"] }, Open ]], Cell[CellGroupData[{ Cell[97784, 2745, 731, 17, 31, "Input",ExpressionUUID->"8f20dd13-db42-4729-b167-f229aa4a3b7e"], Cell[98518, 2764, 1678, 45, 62, "Output",ExpressionUUID->"3bb7f71d-e257-46ba-9dea-7b580e6ba6ad"] }, Open ]], Cell[CellGroupData[{ Cell[100233, 2814, 1364, 37, 39, "Input",ExpressionUUID->"94bea634-1ea8-450c-8712-a08a30280741"], Cell[101600, 2853, 3029, 95, 53, "Output",ExpressionUUID->"5946d9da-f73a-4616-b6ba-3468fb7fc8b8"] }, Open ]], Cell[CellGroupData[{ Cell[104666, 2953, 795, 19, 31, "Input",ExpressionUUID->"8d95964c-d1b9-4ea7-ad4d-3310eab145be"], Cell[105464, 2974, 2993, 82, 57, "Output",ExpressionUUID->"e5602d2f-bb91-4401-82d4-83d97e78675b"] }, Open ]], Cell[CellGroupData[{ Cell[108494, 3061, 1808, 43, 39, "Input",ExpressionUUID->"64e531df-0654-4956-866a-23d26adf4575"], Cell[110305, 3106, 1128, 20, 35, "Output",ExpressionUUID->"371093d6-a8fa-4711-bf1e-983097d52f76"] }, Open ]], Cell[CellGroupData[{ Cell[111470, 3131, 460, 9, 31, "Input",ExpressionUUID->"3137ad4c-13ef-4a23-886b-c9e98bd71cf6"], Cell[111933, 3142, 583, 15, 58, "Output",ExpressionUUID->"16c00e93-00b9-4fad-ba98-739421b88a09"] }, Open ]], Cell[CellGroupData[{ Cell[112553, 3162, 1761, 43, 39, "Input",ExpressionUUID->"163dac58-ced3-454e-8740-032104b4d6c5"], Cell[114317, 3207, 1425, 30, 53, "Output",ExpressionUUID->"423991ec-5677-4978-bbf0-cdd14ef9b3eb"] }, Open ]], Cell[CellGroupData[{ Cell[115779, 3242, 653, 14, 31, "Input",ExpressionUUID->"ad688161-f1fe-4e6d-a202-570a1b3c4a0a"], Cell[116435, 3258, 970, 24, 62, "Output",ExpressionUUID->"f1a3af1d-6c9d-42a5-ae23-22e9ced916c4"] }, Open ]], Cell[CellGroupData[{ Cell[117442, 3287, 1392, 38, 39, "Input",ExpressionUUID->"903f4b9d-b6bf-4bb2-94da-c185fe9001cd"], Cell[118837, 3327, 1589, 43, 53, "Output",ExpressionUUID->"e16ebc0b-a0f4-4bca-8ce0-efa71a9faaee"] }, Open ]], Cell[CellGroupData[{ Cell[120463, 3375, 777, 17, 31, "Input",ExpressionUUID->"6dbd5634-089d-4b95-be3c-9e5cc68c1e20"], Cell[121243, 3394, 1387, 37, 62, "Output",ExpressionUUID->"2fd182c2-a6a7-45fb-9411-33dd39630122"] }, Open ]], Cell[CellGroupData[{ Cell[122667, 3436, 1414, 38, 39, "Input",ExpressionUUID->"69b81d41-cdeb-4afc-9f3b-2bd7ffa8083d"], Cell[124084, 3476, 2508, 77, 53, "Output",ExpressionUUID->"8eb46dea-5969-4ac6-80e6-17a50c8ef9da"] }, Open ]], Cell[CellGroupData[{ Cell[126629, 3558, 839, 19, 31, "Input",ExpressionUUID->"eabad33c-1826-460a-a365-2831dcfa10d6"], Cell[127471, 3579, 2480, 68, 57, "Output",ExpressionUUID->"69364d62-3113-439e-9388-f80165831e4a"] }, Open ]], Cell[CellGroupData[{ Cell[129988, 3652, 229, 3, 31, "Input",ExpressionUUID->"2e2e9a4a-fb1b-44f2-a3a9-873febe3e54b"], Cell[130220, 3657, 1065, 30, 62, "Output",ExpressionUUID->"329abf2f-b123-47c3-8b67-68d3640afbb2"] }, Open ]], Cell[CellGroupData[{ Cell[131322, 3692, 225, 3, 31, "Input",ExpressionUUID->"279e6e6a-61f7-4705-b216-c68f0acd02d5"], Cell[131550, 3697, 720, 20, 62, "Output",ExpressionUUID->"7d467daa-471b-4edb-8247-656f34b04a23"] }, Open ]], Cell[CellGroupData[{ Cell[132307, 3722, 174, 2, 31, "Input",ExpressionUUID->"41d9dd4b-34b6-4473-844b-78edea0ce037"], Cell[132484, 3726, 697, 20, 62, "Output",ExpressionUUID->"7273c921-8a88-499f-93b8-05ab516bd5be"] }, Open ]], Cell[133196, 3749, 152, 3, 31, "Input",ExpressionUUID->"53b25dfc-8878-4e86-832d-43564600a3dd"], Cell[CellGroupData[{ Cell[133373, 3756, 176, 2, 31, "Input",ExpressionUUID->"72adc0a8-b70a-484c-ba2f-6d63c2ab7ba7"], Cell[133552, 3760, 2456, 69, 57, "Output",ExpressionUUID->"25a6e489-fbe4-41fa-bda5-024df0c209d1"] }, Open ]], Cell[CellGroupData[{ Cell[136045, 3834, 174, 2, 31, "Input",ExpressionUUID->"8785a319-0a8b-4e48-a4da-1b52ce2f7f17"], Cell[136222, 3838, 1460, 42, 62, "Output",ExpressionUUID->"080c2169-e2b4-47b6-b952-0af9ed1677c5"] }, Open ]], Cell[CellGroupData[{ Cell[137719, 3885, 176, 2, 31, "Input",ExpressionUUID->"750b159f-254d-4227-b07f-a39ae3575a1f"], Cell[137898, 3889, 1145, 34, 62, "Output",ExpressionUUID->"6f1d7a29-fa8d-427f-8986-93f1a78e133b"] }, Open ]], Cell[CellGroupData[{ Cell[139080, 3928, 347, 9, 31, "Input",ExpressionUUID->"bb086641-9b17-4e3d-bc50-a30ebbec12f9"], Cell[139430, 3939, 317, 8, 35, "Output",ExpressionUUID->"a64d2464-0fd4-40a6-83d6-0f7b93ae65b5"] }, Open ]], Cell[CellGroupData[{ Cell[139784, 3952, 233, 5, 31, "Input",ExpressionUUID->"2664ca36-c2c9-4955-86c1-d1c956205970"], Cell[140020, 3959, 177, 3, 35, "Output",ExpressionUUID->"a6985493-6cfb-48ea-94d5-dfab7dc2f677"] }, Open ]], Cell[CellGroupData[{ Cell[140234, 3967, 415, 10, 31, "Input",ExpressionUUID->"25b44ff7-a2e3-45e0-adbc-bcf926e782d7"], Cell[140652, 3979, 1368, 42, 53, "Output",ExpressionUUID->"c517e23c-d502-4980-a3c5-c6ef05504e65"] }, Open ]], Cell[CellGroupData[{ Cell[142057, 4026, 468, 13, 31, "Input",ExpressionUUID->"5a6b8954-3b00-46bf-9079-86481926ba1d"], Cell[142528, 4041, 226, 5, 35, "Output",ExpressionUUID->"5d179864-e60e-4392-ac88-4e71e6d58dcd"] }, Open ]], Cell[CellGroupData[{ Cell[142791, 4051, 823, 25, 63, "Input",ExpressionUUID->"f1c7e4a9-74d2-40be-91c6-951654a8fd02"], Cell[143617, 4078, 1295, 36, 55, "Output",ExpressionUUID->"eb0f5485-f16d-4d6f-a29e-5e5fc9aecd22"] }, Open ]], Cell[CellGroupData[{ Cell[144949, 4119, 806, 24, 63, "Input",ExpressionUUID->"8071adea-9d0e-4c01-8a88-fb9f88973209"], Cell[145758, 4145, 1286, 36, 55, "Output",ExpressionUUID->"73a4137d-b379-4558-8b05-09c618fee25d"] }, Open ]], Cell[CellGroupData[{ Cell[147081, 4186, 305, 8, 31, "Input",ExpressionUUID->"279f48f3-7e5f-42c6-9ac3-f1b0fa2b0a88"], Cell[147389, 4196, 245, 6, 53, "Output",ExpressionUUID->"606cbbf8-c6a9-4e0d-811d-c12420b759e6"] }, Open ]], Cell[CellGroupData[{ Cell[147671, 4207, 233, 5, 31, "Input",ExpressionUUID->"d23f7910-15b0-40ac-a96c-152fbf9bfcfa"], Cell[147907, 4214, 215, 5, 35, "Output",ExpressionUUID->"14b9fe2b-11e7-4f19-ab6f-60cbaac06aed"] }, Open ]], Cell[148137, 4222, 1891, 51, 207, "Input",ExpressionUUID->"bf97e302-d420-4600-b2ed-8de6bbfed674"], Cell[150031, 4275, 1962, 53, 238, "Input",ExpressionUUID->"90960e42-55d9-4f2a-889a-34d281b6a743"], Cell[151996, 4330, 1624, 46, 206, "Input",ExpressionUUID->"2b8c364c-0d48-4e6d-9dfd-5989133c72e8"], Cell[153623, 4378, 599, 17, 31, "Input",ExpressionUUID->"2efd5a3e-bf9a-4095-91b1-b411c8cf6683"], Cell[CellGroupData[{ Cell[154247, 4399, 232, 5, 31, "Input",ExpressionUUID->"b6947363-4ad3-429e-a2e4-ebcaa803d1c9"], Cell[154482, 4406, 451, 14, 40, "Output",ExpressionUUID->"bab73b33-0cec-490d-819a-4c2c68de2098"] }, Open ]], Cell[CellGroupData[{ Cell[154970, 4425, 685, 19, 55, "Input",ExpressionUUID->"2c77d2c3-1722-4a99-a9e9-0ce2959d84aa"], Cell[155658, 4446, 311, 7, 35, "Output",ExpressionUUID->"bb05cb9b-6f44-4197-bf9e-2d78726fc1c4"] }, Open ]], Cell[CellGroupData[{ Cell[156006, 4458, 228, 4, 31, "Input",ExpressionUUID->"e8109cfb-3bf2-49c8-bd8e-a127954efef5"], Cell[156237, 4464, 286, 7, 35, "Output",ExpressionUUID->"9022701d-0b6a-4ced-a62b-2c41bcd9a2bc"] }, Open ]], Cell[CellGroupData[{ Cell[156560, 4476, 427, 7, 31, "Input",ExpressionUUID->"0dcbcc28-dc5c-4e60-91a4-1edcaf2fe4fb"], Cell[156990, 4485, 664, 19, 53, "Output",ExpressionUUID->"d571957a-4183-44de-82a8-829e8646f463"] }, Open ]], Cell[157669, 4507, 212, 4, 31, "Input",ExpressionUUID->"fd4325c7-04cb-4f7b-96ea-d9c5f77c6017"], Cell[157884, 4513, 679, 19, 31, "Input",ExpressionUUID->"833fa001-f505-4ad7-b3ff-aebd9fe9ac82"], Cell[CellGroupData[{ Cell[158588, 4536, 412, 9, 31, "Input",ExpressionUUID->"99843a25-5fc9-4908-9f2a-7dff30d0d370"], Cell[159003, 4547, 1397, 41, 65, "Output",ExpressionUUID->"c2350950-99a3-4a63-935e-b30184369e38"] }, Open ]], Cell[160415, 4591, 1545, 45, 78, "Input",ExpressionUUID->"fdf466b2-7782-4013-b18c-65d28449fd80"], Cell[161963, 4638, 365, 9, 31, "Input",ExpressionUUID->"8c10c55b-bc30-4973-8fd1-b6265a896d3c"], Cell[162331, 4649, 980, 27, 55, "Input",ExpressionUUID->"cad6feb2-2d32-476e-82c5-16259329f218"], Cell[CellGroupData[{ Cell[163336, 4680, 341, 8, 31, "Input",ExpressionUUID->"3e5411bd-cf39-498b-bccb-2a6902ad309f"], Cell[163680, 4690, 3547, 106, 200, "Output",ExpressionUUID->"8f17414f-c38b-4592-bfed-69e9325df181"] }, Open ]], Cell[167242, 4799, 1178, 31, 71, "Input",ExpressionUUID->"3290d682-9201-4813-bdfa-777ffc301378"], Cell[CellGroupData[{ Cell[168445, 4834, 742, 18, 69, "Input",ExpressionUUID->"47f5f503-5c21-4f53-b03c-7df66970460e"], Cell[169190, 4854, 7440, 153, 318, "Output",ExpressionUUID->"d0abd33e-d67c-4105-91c2-0840fec737bb"] }, Open ]], Cell[176645, 5010, 1028, 29, 125, "Input",ExpressionUUID->"75fce757-ae3e-44f4-a573-646fcf6e4852"], Cell[177676, 5041, 471, 9, 31, "Input",ExpressionUUID->"4e43644a-65dd-4e4e-b6b4-e59e7aacde51"], Cell[CellGroupData[{ Cell[178172, 5054, 471, 11, 31, "Input",ExpressionUUID->"05684c40-35c5-4c43-9cb7-360252747ab2"], Cell[178646, 5067, 1654, 42, 247, "Output",ExpressionUUID->"53328a90-5baf-4e81-a2c6-0728ff9a5853"] }, Open ]], Cell[180315, 5112, 652, 18, 31, "Input",ExpressionUUID->"1b97a152-c9db-4582-89ac-fe86460cd647"], Cell[180970, 5132, 154, 3, 31, "Input",ExpressionUUID->"0cc0ba07-a5ae-4566-b4cf-5c08d95a344a"], Cell[CellGroupData[{ Cell[181149, 5139, 459, 11, 31, "Input",ExpressionUUID->"1a4c5d8c-b72f-47cf-9b12-bae7177839bb"], Cell[181611, 5152, 2873, 63, 243, "Output",ExpressionUUID->"9d403b3d-7438-4d62-95c5-d7f386c91678"] }, Open ]], Cell[184499, 5218, 474, 10, 31, "Input",ExpressionUUID->"1560eb7d-4dfa-4579-bec8-49ba80245127"], Cell[184976, 5230, 174, 4, 31, "Input",ExpressionUUID->"2413e870-0807-4641-9e85-c92b8b36361b"], Cell[185153, 5236, 704, 19, 31, "Input",ExpressionUUID->"4031f3cb-9ab3-4501-9ecc-5dcee1471df4"], Cell[CellGroupData[{ Cell[185882, 5259, 463, 12, 31, "Input",ExpressionUUID->"3e641a6f-a31b-4a0a-b0ad-b1b88af26d0b"], Cell[186348, 5273, 2867, 64, 243, "Output",ExpressionUUID->"1753f01a-1e37-45cf-8c3f-b827e2793d8d"] }, Open ]], Cell[CellGroupData[{ Cell[189252, 5342, 237, 5, 31, "Input",ExpressionUUID->"df2d3f0c-5184-4f8d-8e87-e954e5488a63"], Cell[189492, 5349, 2363, 79, 195, "Output",ExpressionUUID->"13439632-f5a9-46e1-9c97-b5f30d8be1f3"] }, Open ]], Cell[191870, 5431, 461, 13, 31, "Input",ExpressionUUID->"daa5ca2d-fa0c-4401-9a60-391d8e6dca68"], Cell[CellGroupData[{ Cell[192356, 5448, 566, 12, 31, "Input",ExpressionUUID->"f3030bd6-e5b6-40dc-8a6d-e2472c4b836e"], Cell[192925, 5462, 1532, 46, 94, "Output",ExpressionUUID->"67e8ec8f-369d-4c59-95b0-58b9a783afa2"] }, Open ]], Cell[CellGroupData[{ Cell[194494, 5513, 438, 9, 31, "Input",ExpressionUUID->"da24f07f-294f-40bb-8afa-b87c0b00f28d"], Cell[194935, 5524, 6495, 199, 367, "Output",ExpressionUUID->"226117a7-858e-4561-8b04-253742f8c5e4"] }, Open ]], Cell[CellGroupData[{ Cell[201467, 5728, 745, 22, 57, "Input",ExpressionUUID->"7a2c7d58-8792-4fe7-9fc8-1b8c5bfed781"], Cell[202215, 5752, 196, 3, 35, "Output",ExpressionUUID->"974a6c06-b7cd-4aa6-9657-ad9563df6b29"] }, Open ]], Cell[CellGroupData[{ Cell[202448, 5760, 2702, 72, 195, "Input",ExpressionUUID->"58776c0d-ed85-4f55-865c-1da528d38732"], Cell[205153, 5834, 1036, 25, 64, "Output",ExpressionUUID->"7529d7ab-9e56-4bc2-9cb9-39916068dcfc"] }, Open ]], Cell[CellGroupData[{ Cell[206226, 5864, 306, 7, 31, "Input",ExpressionUUID->"8212b325-0c78-4677-88ea-cdb29cbb0048"], Cell[206535, 5873, 352, 10, 53, "Output",ExpressionUUID->"fa677f31-4770-454c-8b44-9b5a36061a28"] }, Open ]], Cell[CellGroupData[{ Cell[206924, 5888, 238, 5, 31, "Input",ExpressionUUID->"df551726-5857-4a47-a581-12f69f25ecb7"], Cell[207165, 5895, 153, 3, 35, "Output",ExpressionUUID->"0d9af583-264c-4807-ae2f-d797c0ea6bf5"] }, Open ]], Cell[CellGroupData[{ Cell[207355, 5903, 1439, 44, 181, "Input",ExpressionUUID->"5d367f3b-6f2b-4125-8342-21d218b7f254"], Cell[208797, 5949, 1639, 47, 64, "Output",ExpressionUUID->"ee99f0c2-e439-4a4d-8fe4-274d91a8d394"] }, Open ]], Cell[CellGroupData[{ Cell[210473, 6001, 205, 3, 31, "Input",ExpressionUUID->"7c3544b6-f791-402f-b763-8ab9eac5b7b9"], Cell[210681, 6006, 174, 2, 35, "Output",ExpressionUUID->"247f7916-6198-4764-ae25-025257e0bfe1"] }, Open ]], Cell[210870, 6011, 230, 6, 31, "Input",ExpressionUUID->"101be1fd-bb0e-4747-9643-3921da67ae3f"], Cell[211103, 6019, 2141, 57, 185, "Input",ExpressionUUID->"b9bdff2c-d0c6-47fd-8a10-904aab671281"], Cell[213247, 6078, 261, 4, 31, "Input",ExpressionUUID->"064b90dd-8bd7-4836-9e8f-25f5de9ccf79"], Cell[213511, 6084, 2289, 61, 294, "Input",ExpressionUUID->"754eb2ca-63de-438d-baee-8894c7d76dee"], Cell[215803, 6147, 2063, 62, 158, "Input",ExpressionUUID->"20480ec1-2852-4039-beb5-39084353bc4a"], Cell[217869, 6211, 208, 3, 31, "Input",ExpressionUUID->"0adfbc83-67d5-482f-a14c-4995d005a937"], Cell[CellGroupData[{ Cell[218102, 6218, 248, 4, 31, "Input",ExpressionUUID->"c3768c23-2c6f-43d3-ae10-ea36ad104537"], Cell[218353, 6224, 716, 14, 87, "Output",ExpressionUUID->"4b177b6a-d29b-4f5b-b4ea-a0a979f07414"] }, Open ]], Cell[219084, 6241, 1131, 34, 114, "Input",ExpressionUUID->"fdff31f6-3614-477c-b49c-b02646eabd5a"], Cell[CellGroupData[{ Cell[220240, 6279, 746, 21, 78, "Input",ExpressionUUID->"759425ae-77fd-4d49-8004-d1c7dcbd9e9f"], Cell[220989, 6302, 4195, 93, 282, "Output",ExpressionUUID->"cd0afb62-3d8f-45cf-bdc5-9ed9b1b85bf8"] }, Open ]], Cell[CellGroupData[{ Cell[225221, 6400, 711, 20, 55, "Input",ExpressionUUID->"87a49bcf-31a6-4239-834b-5abc1a20391b"], Cell[225935, 6422, 83383, 1394, 244, "Output",ExpressionUUID->"546d5a4c-749c-4696-9b98-a6bf7101163f"] }, Open ]], Cell[309333, 7819, 154, 3, 31, "Input",ExpressionUUID->"c40feeea-4731-469e-878c-86e8d34f14dd"], Cell[309490, 7824, 382, 9, 31, "Input",ExpressionUUID->"a5368558-8afd-4b9d-a56b-08439c16cf62"], Cell[CellGroupData[{ Cell[309897, 7837, 218, 3, 31, "Input",ExpressionUUID->"cb87a772-1cbc-4de9-81d2-0b8d8b0bc7df"], Cell[310118, 7842, 215, 3, 35, "Output",ExpressionUUID->"91a22ae4-3740-4441-828a-497e033c7d41"] }, Open ]], Cell[CellGroupData[{ Cell[310370, 7850, 373, 10, 31, "Input",ExpressionUUID->"216fa489-443e-4ec9-9417-7a8008940c1b"], Cell[310746, 7862, 286, 9, 37, "Output",ExpressionUUID->"4a8b362f-6f05-4b0c-b448-264112a6cea3"] }, Open ]], Cell[311047, 7874, 224, 5, 31, "Input",ExpressionUUID->"b56744cc-a469-404f-8664-07188b9ae2ee"], Cell[311274, 7881, 152, 3, 31, "Input",ExpressionUUID->"6db19498-70d7-4a31-b94a-fb123666ac15"], Cell[311429, 7886, 643, 19, 40, "Input",ExpressionUUID->"2029d5bd-52b1-4908-8a48-485536e69250"], Cell[312075, 7907, 210, 4, 31, "Input",ExpressionUUID->"4475a5ee-4adb-4d65-8679-439fce28abcd"], Cell[312288, 7913, 1513, 36, 101, "Input",ExpressionUUID->"f5e2337f-6a07-4028-a75f-a54b5279226c"], Cell[CellGroupData[{ Cell[313826, 7953, 177, 3, 31, "Input",ExpressionUUID->"3b8d2618-be88-4d38-99c9-3c8452692a68"], Cell[314006, 7958, 325, 8, 35, "Output",ExpressionUUID->"e05c30cb-ef36-467c-a6a5-c8320b4600e8"] }, Open ]], Cell[314346, 7969, 1527, 37, 101, "Input",ExpressionUUID->"ebc352c5-fe8a-4584-ac63-2f85071f3c69"], Cell[CellGroupData[{ Cell[315898, 8010, 179, 3, 31, "Input",ExpressionUUID->"905163be-4177-45b3-8429-4a92056ce579"], Cell[316080, 8015, 295, 8, 35, "Output",ExpressionUUID->"e9c45a4f-3ec4-4d70-a46e-6c28a9f0d0e2"] }, Open ]], Cell[316390, 8026, 1589, 39, 124, "Input",ExpressionUUID->"780abd11-8470-4e7f-b307-9f2346871bc7"], Cell[CellGroupData[{ Cell[318004, 8069, 177, 3, 31, "Input",ExpressionUUID->"0f9d1348-9727-4ef6-a3eb-9add0816c286"], Cell[318184, 8074, 313, 8, 35, "Output",ExpressionUUID->"6a0d7fdc-5a5c-4311-b0d2-f53f04004d0f"] }, Open ]], Cell[318512, 8085, 1601, 39, 124, "Input",ExpressionUUID->"06a2ae82-4418-456f-b4f5-1b9f39c49158"], Cell[CellGroupData[{ Cell[320138, 8128, 177, 3, 31, "Input",ExpressionUUID->"fb6f2cb2-7cba-4724-9583-4f330a20bd07"], Cell[320318, 8133, 274, 7, 35, "Output",ExpressionUUID->"15593303-625b-4e2e-8d1d-ba3a7faaa52d"] }, Open ]], Cell[320607, 8143, 1462, 37, 124, "Input",ExpressionUUID->"f2a84d32-c59c-46b0-b67a-418c0339def1"], Cell[CellGroupData[{ Cell[322094, 8184, 177, 3, 31, "Input",ExpressionUUID->"526bbaca-17aa-4e92-a53e-66d81e1f638a"], Cell[322274, 8189, 290, 7, 35, "Output",ExpressionUUID->"7215d2d5-3799-46cc-a537-5bcc23f2066d"] }, Open ]], Cell[322579, 8199, 1483, 38, 124, "Input",ExpressionUUID->"776d66d3-6bfa-4e1f-a081-33aa26303ef2"], Cell[CellGroupData[{ Cell[324087, 8241, 179, 3, 31, "Input",ExpressionUUID->"80c64682-c6cc-4e0f-b500-a77e45b9bdf1"], Cell[324269, 8246, 315, 8, 35, "Output",ExpressionUUID->"92dcb0bb-3ae0-493c-b4f5-a229b621428c"] }, Open ]], Cell[324599, 8257, 1495, 38, 124, "Input",ExpressionUUID->"63e0c88c-7398-40e3-b4b8-7f575ab6afcf"], Cell[CellGroupData[{ Cell[326119, 8299, 177, 3, 31, "Input",ExpressionUUID->"8e5793a0-a564-4698-bffd-0d21360746db"], Cell[326299, 8304, 270, 7, 35, "Output",ExpressionUUID->"30a3762a-27d5-45c6-8483-834d62397b51"] }, Open ]], Cell[326584, 8314, 1515, 39, 124, "Input",ExpressionUUID->"4f0ae511-477c-4ea3-9b25-e6ac9e3cab18"], Cell[CellGroupData[{ Cell[328124, 8357, 179, 3, 31, "Input",ExpressionUUID->"fb097fd5-fc15-481f-a4da-dc6f9cae3f70"], Cell[328306, 8362, 285, 7, 35, "Output",ExpressionUUID->"15a15847-ad25-460c-b177-35344808f0c6"] }, Open ]], Cell[328606, 8372, 1581, 40, 124, "Input",ExpressionUUID->"739763d3-b7d8-49d5-a063-fadaa2ffb319"], Cell[CellGroupData[{ Cell[330212, 8416, 177, 3, 31, "Input",ExpressionUUID->"d12c402b-f73f-433c-993b-ae25b08e04ee"], Cell[330392, 8421, 269, 7, 35, "Output",ExpressionUUID->"701d65ae-f210-49f9-8695-172a58a67ec7"] }, Open ]], Cell[330676, 8431, 1542, 39, 124, "Input",ExpressionUUID->"02fcbe73-d415-4683-bde3-db70f64f57b1"], Cell[332221, 8472, 1557, 39, 124, "Input",ExpressionUUID->"eaacc5fe-d679-4223-9913-84fcc8df1499"], Cell[333781, 8513, 1622, 40, 124, "Input",ExpressionUUID->"ae6a545b-4a50-4ea0-984b-48c7cf96808c"], Cell[CellGroupData[{ Cell[335428, 8557, 855, 25, 63, "Input",ExpressionUUID->"7a4b1d3f-69b0-4867-9dc7-ce6838fa479e"], Cell[336286, 8584, 2389, 58, 155, "Output",ExpressionUUID->"3ff44560-6de3-4db3-a7a7-cee161f35388"] }, Open ]], Cell[CellGroupData[{ Cell[338712, 8647, 848, 19, 101, "Input",ExpressionUUID->"ee6a5bed-323d-46a0-adb8-bbb4b15b8d1c"], Cell[339563, 8668, 7742, 144, 227, "Output",ExpressionUUID->"9fb5751b-09cc-4a85-b184-f10491b06a7b"] }, Open ]], Cell[CellGroupData[{ Cell[347342, 8817, 228, 5, 31, "Input",ExpressionUUID->"e4561e06-905f-4c39-8e8b-097ef9db1978"], Cell[347573, 8824, 232, 5, 35, "Output",ExpressionUUID->"216c461d-db22-4188-b5a0-2387b87b96de"] }, Open ]], Cell[CellGroupData[{ Cell[347842, 8834, 938, 22, 78, "Input",ExpressionUUID->"85f17b37-fa91-4ed8-94fc-546e4de955ef"], Cell[348783, 8858, 3802, 85, 239, "Output",ExpressionUUID->"51e89cbc-f0a2-4dd4-8023-3496b614f57a"] }, Open ]], Cell[CellGroupData[{ Cell[352622, 8948, 331, 8, 31, "Input",ExpressionUUID->"539f5741-8fad-4a07-a76a-87f3cc414748"], Cell[352956, 8958, 318, 10, 58, "Output",ExpressionUUID->"0c15c51c-9889-4e87-9ae3-b6488476b465"] }, Open ]], Cell[353289, 8971, 152, 3, 31, "Input",ExpressionUUID->"907cbcc9-e4ba-4cde-a936-11fe50f13a54"], Cell[CellGroupData[{ Cell[353466, 8978, 303, 6, 31, "Input",ExpressionUUID->"3851471e-6913-4b9d-a263-b5e8786a9d2a"], Cell[353772, 8986, 417, 11, 72, "Output",ExpressionUUID->"80405869-9d0d-4f31-b835-fea5e2eeb6bd"] }, Open ]], Cell[354204, 9000, 206, 3, 31, "Input",ExpressionUUID->"fe9eabdd-9122-4e50-ada7-78e3950b9bd6"], Cell[CellGroupData[{ Cell[354435, 9007, 1307, 38, 93, "Input",ExpressionUUID->"6be233ca-b95f-4a35-931f-f2a7712ee211"], Cell[355745, 9047, 894, 26, 75, "Output",ExpressionUUID->"b6554a5a-a9d1-40d0-959c-aeeea7e75a61"] }, Open ]], Cell[CellGroupData[{ Cell[356676, 9078, 272, 6, 31, "Input",ExpressionUUID->"59f4d7c3-31bc-41dd-89b1-76d598a3395c"], Cell[356951, 9086, 807, 26, 74, "Output",ExpressionUUID->"22cd78b5-c968-4202-9d34-07d97235746d"] }, Open ]], Cell[357773, 9115, 207, 3, 31, "Input",ExpressionUUID->"6449ae2c-1578-4822-92de-6650bea5c849"], Cell[CellGroupData[{ Cell[358005, 9122, 782, 20, 39, "Input",ExpressionUUID->"975b9032-9a07-4662-a33e-7145ac1d3dac"], Cell[358790, 9144, 694, 18, 51, "Output",ExpressionUUID->"9f28f254-c6f6-4c75-9161-213e818af1d9"] }, Open ]], Cell[CellGroupData[{ Cell[359521, 9167, 898, 24, 39, "Input",ExpressionUUID->"f70d7ca6-ab12-4ef9-aedf-1cf978fe8905"], Cell[360422, 9193, 23706, 655, 2097, "Output",ExpressionUUID->"50dec67f-dfe5-4098-846c-bd34289eb44f"] }, Open ]], Cell[CellGroupData[{ Cell[384165, 9853, 495, 12, 31, "Input",ExpressionUUID->"49c72fce-e4dd-4ce9-a8da-a490e4376c94"], Cell[384663, 9867, 331, 5, 35, "Output",ExpressionUUID->"4435c2fb-6fd1-4eb2-a44d-279039aa9322"] }, Open ]], Cell[CellGroupData[{ Cell[385031, 9877, 223, 6, 31, "Input",ExpressionUUID->"73c8eea4-d4a4-453f-8833-d229c0fc3175"], Cell[385257, 9885, 171, 3, 35, "Output",ExpressionUUID->"aebf1f12-4bf0-44b3-a5d4-0a20c1f5a4b2"] }, Open ]], Cell[385443, 9891, 373, 12, 59, "Input",ExpressionUUID->"0da9e65f-55f4-48d9-ba34-65e4c5d8feff"], Cell[385819, 9905, 410, 13, 61, "Input",ExpressionUUID->"540d1f78-77af-49b9-a447-24b4b3932215"], Cell[CellGroupData[{ Cell[386254, 9922, 663, 18, 47, "Input",ExpressionUUID->"ceb50802-9d95-47c5-9af6-06e0caeafb33"], Cell[386920, 9942, 482, 13, 44, "Output",ExpressionUUID->"cdb02cbb-5aec-4176-8cf4-3f32d0098ce8"] }, Open ]], Cell[CellGroupData[{ Cell[387439, 9960, 1099, 34, 88, "Input",ExpressionUUID->"56635cfb-2049-47de-8743-981e268587f0"], Cell[388541, 9996, 551, 17, 69, "Output",ExpressionUUID->"54d42bbf-4611-4d81-9b71-fe38c8aca03d"] }, Open ]], Cell[CellGroupData[{ Cell[389129, 10018, 891, 27, 73, "Input",ExpressionUUID->"5d02740a-e5b0-40c1-a3c3-48eea3f711ae"], Cell[390023, 10047, 344, 8, 53, "Output",ExpressionUUID->"2ff2e042-eba3-4510-8633-7e3546aec8af"] }, Open ]], Cell[CellGroupData[{ Cell[390404, 10060, 569, 18, 61, "Input",ExpressionUUID->"fa3beba8-deb4-4335-8c3c-b1f633ff4b2c"], Cell[390976, 10080, 376, 10, 59, "Output",ExpressionUUID->"5fa7663c-f3be-40c6-86e7-8ec1c6b47acf"] }, Open ]], Cell[CellGroupData[{ Cell[391389, 10095, 567, 18, 58, "Input",ExpressionUUID->"e57b76eb-1ca4-4632-ab6b-1f3ecd7782b1"], Cell[391959, 10115, 190, 3, 35, "Output",ExpressionUUID->"e1a5bbbe-f89c-4da8-8d58-f1b517e8ae37"] }, Open ]], Cell[CellGroupData[{ Cell[392186, 10123, 1459, 40, 91, "Input",ExpressionUUID->"2014fd9c-aabf-4b79-ba93-3ed77090f29c"], Cell[393648, 10165, 9879, 181, 245, "Output",ExpressionUUID->"d8549b05-64bb-486e-9980-a41260b01aee"] }, Open ]], Cell[CellGroupData[{ Cell[403564, 10351, 1551, 43, 159, "Input",ExpressionUUID->"f6de5376-4aa5-4d69-a190-93ec6a31f0bc"], Cell[405118, 10396, 754, 15, 43, "Message",ExpressionUUID->"5e8670f8-0732-4fd3-b34f-e18cf804c51a"], Cell[405875, 10413, 752, 15, 43, "Message",ExpressionUUID->"67f2fba3-df64-404e-b8ee-b8ddc80e345c"], Cell[406630, 10430, 752, 15, 43, "Message",ExpressionUUID->"5348226a-b7ca-482b-81f3-87b2bec1826d"], Cell[407385, 10447, 719, 14, 43, "Message",ExpressionUUID->"562a6c01-79fe-4fc3-9f1f-a49f7087e09e"], Cell[408107, 10463, 25390, 436, 255, "Output",ExpressionUUID->"27b35305-56be-4114-ac78-77463220cbbb"] }, Open ]], Cell[CellGroupData[{ Cell[433534, 10904, 957, 25, 64, "Input",ExpressionUUID->"79574766-1a43-4bf7-9635-4149f940d556"], Cell[434494, 10931, 914, 26, 75, "Output",ExpressionUUID->"eb280c9f-1110-41a0-9025-ba02fef63b8f"] }, Open ]], Cell[CellGroupData[{ Cell[435445, 10962, 2148, 54, 159, "Input",ExpressionUUID->"f649aa49-5afa-4daf-aacd-27f69f6b3b1a"], Cell[437596, 11018, 557, 13, 23, "Message",ExpressionUUID->"ceffc3ae-0814-438c-9ff0-eda2f03c7ff8"], Cell[438156, 11033, 3564, 76, 234, "Output",ExpressionUUID->"9430d860-e877-483a-a503-ac9a375923a9"] }, Open ]], Cell[441735, 11112, 212, 4, 31, "Input",ExpressionUUID->"275e1cde-4322-42fc-b96d-b8c290d08a97"], Cell[441950, 11118, 212, 4, 31, "Input",ExpressionUUID->"7e5cacfd-96c7-42b0-84ac-b1c6274eb93b"], Cell[CellGroupData[{ Cell[442187, 11126, 285, 7, 31, "Input",ExpressionUUID->"3c3e4784-c7cf-4706-a7ae-1a06fc5548dc"], Cell[442475, 11135, 207, 5, 35, "Output",ExpressionUUID->"d2b747c5-0f1b-410b-9ffb-6b6d5a3cd838"] }, Open ]], Cell[442697, 11143, 459, 13, 36, "Text",ExpressionUUID->"06da8123-c2af-49e5-a57f-97e24bfe5b8b"], Cell[443159, 11158, 456, 14, 59, "Input",ExpressionUUID->"95b365fa-df4b-483a-a1b3-5cf02317570f"], Cell[443618, 11174, 1031, 27, 63, "Input",ExpressionUUID->"7bcba897-ba3b-4b3c-98b8-268ff5d9bcac"], Cell[444652, 11203, 481, 15, 59, "Input",ExpressionUUID->"654d28e5-ccb0-4935-83ed-3a1ff8ed10fb"], Cell[445136, 11220, 544, 15, 61, "Input",ExpressionUUID->"115bf7c3-d098-4d8b-a159-1af2e3115a49"], Cell[CellGroupData[{ Cell[445705, 11239, 1041, 30, 39, "Input",ExpressionUUID->"ee8647e1-7d5f-4307-ad48-444a1bce2dc1"], Cell[446749, 11271, 20447, 495, 488, "Output",ExpressionUUID->"6c73d924-a33c-4c0b-9134-c418d0f230a0"] }, Open ]], Cell[467211, 11769, 154, 3, 31, "Input",ExpressionUUID->"2dffb761-e25b-4268-83b9-0ff49aa646b4"], Cell[467368, 11774, 831, 23, 61, "Input",ExpressionUUID->"12fc88f4-cb1b-43cb-a447-139b196f0433"], Cell[CellGroupData[{ Cell[468224, 11801, 275, 5, 39, "Input",ExpressionUUID->"e0b8e4c6-761f-4ffd-8a29-7e6a33ce40fa"], Cell[468502, 11808, 218, 4, 58, "Output",ExpressionUUID->"8125dfdb-9536-4fc9-aaa7-a482977baa5d"] }, Open ]], Cell[CellGroupData[{ Cell[468757, 11817, 695, 17, 31, "Input",ExpressionUUID->"63651aa3-bc00-4dbe-abb9-a75dd8756b7f"], Cell[469455, 11836, 1118, 32, 80, "Output",ExpressionUUID->"894f74ab-43fc-423d-80ca-312ad0f1dd00"] }, Open ]], Cell[CellGroupData[{ Cell[470610, 11873, 581, 16, 31, "Input",ExpressionUUID->"45d0c759-ab9c-453b-9bc7-c8a74f2ce56b"], Cell[471194, 11891, 958, 29, 80, "Output",ExpressionUUID->"89d2bb57-ca68-4528-98b5-4ffc4c09f17a"] }, Open ]], Cell[CellGroupData[{ Cell[472189, 11925, 693, 18, 31, "Input",ExpressionUUID->"2ba91c24-8862-4f6c-82ed-0f40ef248826"], Cell[472885, 11945, 11857, 213, 233, "Output",ExpressionUUID->"c3ad4bfd-1ed6-46d2-ac8d-33bf2dee9ddd"] }, Open ]], Cell[CellGroupData[{ Cell[484779, 12163, 260, 5, 31, "Input",ExpressionUUID->"964dc3a0-273c-4d37-a14a-1bae597fe234"], Cell[485042, 12170, 628, 18, 80, "Output",ExpressionUUID->"39771f52-a583-465b-89d5-0c5c7571b597"] }, Open ]], Cell[CellGroupData[{ Cell[485707, 12193, 293, 6, 31, "Input",ExpressionUUID->"061269b2-f62d-4813-9ceb-051d0e9cb478"], Cell[486003, 12201, 605, 18, 60, "Output",ExpressionUUID->"ea851468-05f4-40ab-8ad8-cc0d97b2d0f9"] }, Open ]] } ] *)