diff options
| author | Jaron Kent-Dobias <jaron@kent-dobias.com> | 2020-05-24 10:58:23 -0400 |
|---|---|---|
| committer | Jaron Kent-Dobias <jaron@kent-dobias.com> | 2020-05-24 10:58:23 -0400 |
| commit | e860a427d3056e2f58e0a0123856454478a3347c (patch) | |
| tree | bac14680de24b7acc0df41c5f3d3aa7eddef9642 /analyticity.nb | |
| download | mma-e860a427d3056e2f58e0a0123856454478a3347c.tar.gz mma-e860a427d3056e2f58e0a0123856454478a3347c.tar.bz2 mma-e860a427d3056e2f58e0a0123856454478a3347c.zip | |
First commit.
Diffstat (limited to 'analyticity.nb')
| -rw-r--r-- | analyticity.nb | 12751 |
1 files changed, 12751 insertions, 0 deletions
diff --git a/analyticity.nb b/analyticity.nb new file mode 100644 index 0000000..ecfa8d2 --- /dev/null +++ b/analyticity.nb @@ -0,0 +1,12751 @@ +(* 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 ]] +} +] +*) + |