summaryrefslogtreecommitdiff
path: root/complicated_matching-3d.nb
diff options
context:
space:
mode:
authorJaron Kent-Dobias <jaron@kent-dobias.com>2020-07-20 13:24:07 -0400
committerJaron Kent-Dobias <jaron@kent-dobias.com>2020-07-20 13:24:07 -0400
commit89edb6b8f7ffb852382c5a13307ee405b87e6ea4 (patch)
tree95f5c50a280578b9632b535823a864b94fa97a2f /complicated_matching-3d.nb
parente860a427d3056e2f58e0a0123856454478a3347c (diff)
downloadmma-89edb6b8f7ffb852382c5a13307ee405b87e6ea4.tar.gz
mma-89edb6b8f7ffb852382c5a13307ee405b87e6ea4.tar.bz2
mma-89edb6b8f7ffb852382c5a13307ee405b87e6ea4.zip
Much work.
Diffstat (limited to 'complicated_matching-3d.nb')
-rw-r--r--complicated_matching-3d.nb6009
1 files changed, 6009 insertions, 0 deletions
diff --git a/complicated_matching-3d.nb b/complicated_matching-3d.nb
new file mode 100644
index 0000000..01115be
--- /dev/null
+++ b/complicated_matching-3d.nb
@@ -0,0 +1,6009 @@
+(* Content-type: application/vnd.wolfram.mathematica *)
+
+(*** Wolfram Notebook File ***)
+(* http://www.wolfram.com/nb *)
+
+(* CreatedBy='Mathematica 12.1' *)
+
+(*CacheID: 234*)
+(* Internal cache information:
+NotebookFileLineBreakTest
+NotebookFileLineBreakTest
+NotebookDataPosition[ 158, 7]
+NotebookDataLength[ 293033, 6001]
+NotebookOptionsPosition[ 284139, 5861]
+NotebookOutlinePosition[ 284530, 5877]
+CellTagsIndexPosition[ 284487, 5874]
+WindowFrame->Normal*)
+
+(* Beginning of Notebook Content *)
+Notebook[{
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{
+ "Constants", " ", "fixed", " ", "for", " ", "the", " ", "3", "D", " ",
+ "simple", " ", "cubic"}], "-",
+ RowBox[{"lattice", " ", "Ising", " ", "model"}]}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[Delta]", "=", "4.78984"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"\[Beta]", "=", "0.326419"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"\[Nu]", "=", "0.629971"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"\[Gamma]", "=", "1.237075"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"\[Alpha]", "=", "0.11008"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"\[CapitalDelta]", "=",
+ RowBox[{"\[Beta]", " ", "\[Delta]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Tc", "=",
+ RowBox[{"1", "/", "0.22165455"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"\[ScriptCapitalM]0", "=", "1.6919045"}], ";"}], " ",
+ RowBox[{"(*",
+ RowBox[{"Talapov_", "1996", "_The"}], "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"\[ScriptCapitalS]0", "=",
+ RowBox[{"10.083", "/",
+ SuperscriptBox["Tc",
+ RowBox[{"2", "\[Nu]"}]]}]}], ";"}],
+ RowBox[{"(*",
+ RowBox[{"Caselle_", "2007", "_The"}], "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"B", "=",
+ RowBox[{
+ FractionBox["1", "2"], "\[ScriptCapitalM]0",
+ SqrtBox[
+ FractionBox["3", "\[Pi]"]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FractionBox["1", "\[ScriptCapitalS]0"], ")"}],
+ RowBox[{"3", "/", "2"}]]}]}], ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.7138208469838247`*^9, 3.713820849646833*^9}, {
+ 3.71383052920462*^9, 3.7138305296005993`*^9}, {3.7142151732571373`*^9,
+ 3.7142152150054703`*^9}, 3.799283952019582*^9, {3.7993324038921623`*^9,
+ 3.7993324050113564`*^9}, {3.799332436123906*^9, 3.799332547262203*^9}, {
+ 3.799332674152836*^9, 3.7993326790140944`*^9}, {3.799341241483255*^9,
+ 3.799341278283351*^9}, {3.799341545312736*^9, 3.799341578609338*^9}, {
+ 3.7993416690030127`*^9, 3.7993416724760237`*^9}, {3.799341766132057*^9,
+ 3.7993417924598303`*^9}, {3.7993419968802*^9, 3.7993420479441357`*^9}, {
+ 3.7993424713688173`*^9, 3.799342473415454*^9}, {3.799342579706215*^9,
+ 3.799342609601501*^9}, {3.7993429587131433`*^9, 3.799342960471808*^9}, {
+ 3.799342991985297*^9, 3.799342994400504*^9}, {3.799343034434518*^9,
+ 3.799343034633624*^9}, {3.79934401625327*^9, 3.799344016868445*^9}, {
+ 3.799344103087044*^9, 3.799344107286085*^9}, {3.799344153631687*^9,
+ 3.7993441689433117`*^9}, {3.799345367119074*^9, 3.7993453672943068`*^9}, {
+ 3.7993454658337584`*^9, 3.799345473419073*^9}},
+ CellLabel->"In[1]:=",ExpressionUUID->"59b0d6d5-f932-48ad-b7c5-92faf52d8f31"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ SuperscriptBox["2.08",
+ RowBox[{"3", "/", "2"}]]], "Input",
+ CellChangeTimes->{{3.799343857298977*^9, 3.799343858889276*^9}, {
+ 3.799344089573373*^9, 3.7993440977510843`*^9}, {3.79934412927203*^9,
+ 3.799344142822464*^9}},
+ CellLabel->"In[11]:=",ExpressionUUID->"ab96e425-8378-4a9e-9559-f660294d52e5"],
+
+Cell[BoxData["2.9998186611860396`"], "Output",
+ CellChangeTimes->{{3.799344093771037*^9, 3.799344097926145*^9}, {
+ 3.799344132600494*^9, 3.799344143164551*^9}, 3.7993453699973927`*^9,
+ 3.799345475093199*^9, 3.79975807104173*^9},
+ CellLabel->"Out[11]=",ExpressionUUID->"af372458-f182-4c85-9f95-2f3841b3cb17"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Exp", "[", "0.4", "]"}]], "Input",
+ CellChangeTimes->{{3.799342456440476*^9, 3.7993424612148323`*^9}, {
+ 3.799342589698038*^9, 3.7993425897449903`*^9}, {3.799342629642695*^9,
+ 3.799342630553625*^9}},
+ CellLabel->"In[12]:=",ExpressionUUID->"73cba23a-002d-479d-b60d-5c9a30ec8957"],
+
+Cell[BoxData["1.4918246976412703`"], "Output",
+ CellChangeTimes->{{3.799342458319031*^9, 3.7993424617085333`*^9},
+ 3.7993426307244473`*^9, 3.799342962917036*^9, 3.7993453702693043`*^9,
+ 3.7993454753436213`*^9, 3.799758071315126*^9},
+ CellLabel->"Out[12]=",ExpressionUUID->"a9c41347-197a-4328-8b2f-473c7d296a16"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"10.083", "/",
+ SuperscriptBox["Tc",
+ RowBox[{"2", "\[VeryThinSpace] ", "\[Nu]"}]]}]], "Input",
+ CellChangeTimes->{{3.7993426054669456`*^9, 3.799342605617268*^9}},
+ CellLabel->"In[13]:=",ExpressionUUID->"4f550e51-f686-4c74-b7c7-60fd0aeb49f6"],
+
+Cell[BoxData["1.5107071956398241`"], "Output",
+ CellChangeTimes->{{3.799342602695939*^9, 3.799342605817115*^9},
+ 3.7993429633862133`*^9, 3.7993453705336*^9, 3.799345475695509*^9,
+ 3.799758071508375*^9},
+ CellLabel->"Out[13]=",ExpressionUUID->"7e3ed6d9-eac9-4e37-ac23-850e314e158a"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\[ScriptCapitalS]0"], "Input",
+ CellChangeTimes->{{3.7993424629060183`*^9, 3.7993424642149467`*^9}},
+ CellLabel->"In[14]:=",ExpressionUUID->"88fbe140-d167-4f1e-907c-8d3b0cdde179"],
+
+Cell[BoxData["1.5107071956398241`"], "Output",
+ CellChangeTimes->{3.799342971498179*^9, 3.799345370997978*^9,
+ 3.799345475970985*^9, 3.799758071709878*^9},
+ CellLabel->"Out[14]=",ExpressionUUID->"5650dbe4-5015-4653-809e-4e219d50cd86"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"data", "=",
+ RowBox[{"Dataset", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"With", "[", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"info", "=",
+ RowBox[{"ToExpression", "/@",
+ RowBox[{"Rest", "[",
+ RowBox[{"StringSplit", "[",
+ RowBox[{
+ RowBox[{"FileBaseName", "[", "#", "]"}], ",", "\"\<_\>\""}],
+ "]"}], "]"}]}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"dat", "=",
+ RowBox[{"Import", "[", "#", "]"}]}]}], "\[IndentingNewLine]",
+ "}"}], ",", "\[IndentingNewLine]",
+ RowBox[{"<|", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"\"\<D\>\"", "\[Rule]",
+ RowBox[{"info", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"\"\<L\>\"", "\[Rule]",
+ RowBox[{"info", "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"\"\<T\>\"", "\[Rule]",
+ RowBox[{"info", "[",
+ RowBox[{"[", "3", "]"}], "]"}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"\"\<H\>\"", "\[Rule]",
+ RowBox[{"info", "[",
+ RowBox[{"[", "4", "]"}], "]"}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"\"\<Me\>\"", "\[Rule]",
+ RowBox[{"Around", "@@",
+ RowBox[{"dat", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"\"\<Mm\>\"", "\[Rule]",
+ RowBox[{"Around", "@@",
+ RowBox[{"dat", "[",
+ RowBox[{"[", "2", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"\"\<Mt\>\"", "\[Rule]",
+ RowBox[{"Around", "@@",
+ RowBox[{"dat", "[",
+ RowBox[{"[", "3", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"\"\<Ma\>\"", "\[Rule]",
+ RowBox[{"Around", "@@",
+ RowBox[{"dat", "[",
+ RowBox[{"[", "4", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"\"\<\[Chi]e\>\"", "\[Rule]",
+ RowBox[{"Around", "@@",
+ RowBox[{"dat", "[",
+ RowBox[{"[", "5", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"\"\<\[Chi]m\>\"", "\[Rule]",
+ RowBox[{"Around", "@@",
+ RowBox[{"dat", "[",
+ RowBox[{"[", "6", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"\"\<\[Chi]t\>\"", "\[Rule]",
+ RowBox[{"Around", "@@",
+ RowBox[{"dat", "[",
+ RowBox[{"[", "7", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]",
+ RowBox[{"\"\<\[Chi]a\>\"", "\[Rule]",
+ RowBox[{"Around", "@@",
+ RowBox[{"dat", "[",
+ RowBox[{"[", "8", "]"}], "]"}]}]}]}], "\[IndentingNewLine]",
+ "|>"}]}], "]"}], "&"}], "/@",
+ RowBox[{
+ "FileNames", "[",
+ "\"\<~/doc/research/first_order_singularities/data/3d_ising/metastable_\
+3_*_m.dat.processed\>\"", "]"}]}], "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.797705522745611*^9, 3.7977056916202297`*^9}, {
+ 3.7977057959926157`*^9, 3.7977058113183813`*^9}, {3.797706405946889*^9,
+ 3.797706407954214*^9}, {3.7983210304741507`*^9, 3.79832106378587*^9}, {
+ 3.798364439869031*^9, 3.7983644506237392`*^9}, {3.798365938561242*^9,
+ 3.7983659437041597`*^9}, {3.798366645212805*^9, 3.7983666891482162`*^9}, {
+ 3.798736002164524*^9, 3.798736005852274*^9}, {3.799150074106604*^9,
+ 3.799150074698133*^9}, {3.7991526508389063`*^9, 3.7991527437272863`*^9}, {
+ 3.799153379138743*^9, 3.799153410482788*^9}, {3.799332570903906*^9,
+ 3.79933257104727*^9}},
+ CellLabel->"In[15]:=",ExpressionUUID->"2d167be2-574f-49ef-862f-5770b5357339"],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"t", "[", "Tc_", "]"}], "[", "T_", "]"}], ":=",
+ RowBox[{"Abs", "[",
+ FractionBox[
+ RowBox[{"T", "-", "Tc"}], "T"], "]"}]}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"sus", "=",
+ RowBox[{"data", "[",
+ RowBox[{"All", ",",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"#H", "/", "#T"}], " ",
+ SuperscriptBox[
+ RowBox[{
+ RowBox[{"t", "[", "Tc", "]"}], "[", "#T", "]"}],
+ RowBox[{"-", "\[CapitalDelta]"}]]}], ",",
+ RowBox[{
+ RowBox[{"#\[Chi]e", "[", "\"\<Value\>\"", "]"}], "#T", " ",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{
+ RowBox[{"t", "[", "Tc", "]"}], "[", "#T", "]"}], "\[Gamma]"], "/",
+ SuperscriptBox["#L", "#D"]}]}]}], "}"}], "&"}]}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"mag", "=",
+ RowBox[{"data", "[",
+ RowBox[{"All", ",",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"#H", "/", "#T"}], " ",
+ SuperscriptBox[
+ RowBox[{
+ RowBox[{"t", "[", "Tc", "]"}], "[", "#T", "]"}],
+ RowBox[{"-", "\[CapitalDelta]"}]]}], ",",
+ RowBox[{"#T", " ",
+ RowBox[{"#Me", "[", "\"\<Value\>\"", "]"}], " ",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{
+ RowBox[{"t", "[", "Tc", "]"}], "[", "#T", "]"}],
+ RowBox[{"-", "\[Beta]"}]], "/",
+ SuperscriptBox["#L", "#D"]}]}]}], "}"}], "&"}]}], "]"}]}],
+ ";"}]}], "Input",
+ CellChangeTimes->CompressedData["
+1:eJwd0V9IUwEYBfDrtgg1lJI0KjUrMXNY+CdXSu6StkFDZW7CpqJMZoIDERQM
+poKghQzdi+It5kRXMLsb6Jgi6irwIRSCofgHp+KgVVwXCIbbg6Pv+x4Ov+dz
+TpahQ20UMQyTDUEjtQPnT94LLG+1RdGMsHxZA26Z5Cvoff/0uBbM0nMcOniU
+364DixSJJlT1MWmmBWz0N5OP524rnKCm5i554Pgu+gw+uvyDjCk18Qvg19c6
+ckMUXb4A62wXpKxh6Bsq9oyRsVBUJv4gsP37PU/RzetJHpSR/iKnjXslEtBi
+0MvQ+on4Z8lg8E53KXotJGlLAd+Ii9vRhRT1ThpapiOv/LuZNgyuW/6QMdua
+VWYT2J6KbdKb2GWeB63u0T401Bqu1k8KbCRVV4Mu9vo6T8AhyzH5d7Xzd5Nd
+YPOfvyMdhUGfE+R/JnxBT/Mku35wK66NjIwoD1Bz0ESqRgon62ahX0416fIE
+KtS8wHakWyrRG8LZK1T7llGhlVftU83gYWlgBi1qSL6ldcEP0u4MVLrNu7yg
+mVsjJblhvt4NO14adqHlud7M0aoTtkDvu4e6lXGBT2Cr0R1CH3DyMOp44SRf
+Ppw6Q9PLuHNUMFgVs2D5kp38D+wuNko=
+ "],
+ CellLabel->"In[16]:=",ExpressionUUID->"20da4923-a53a-490e-bc5f-36bcba68e245"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{
+ "Coefficients", " ", "from", " ", "Butera", " ", "and", " ", "Pernici"}],
+ " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Ghs", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"#",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"(", "#", ")"}], "!"}], "&"}], "/@",
+ RowBox[{"(",
+ RowBox[{"Range", "[",
+ RowBox[{"Length", "[", "#", "]"}], "]"}], ")"}]}], ")"}]}],
+ ")"}], "&"}], "@",
+ RowBox[{"-",
+ RowBox[{"{",
+ RowBox[{"0", ",", "0.5608", ",", "0", ",",
+ RowBox[{"-", "0.1608"}], ",", "0", ",", "0.146", ",", "0", ",",
+ RowBox[{"-", "0.187"}], ",", "0", ",", "0.26", ",", "0", ",",
+ RowBox[{"-", "0.19"}], ",", "0", ",", "0.026"}], "}"}]}]}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Gls", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "\[ScriptCapitalM]0"}], ",",
+ RowBox[{
+ RowBox[{"-", "0.99051"}], "/",
+ RowBox[{"(",
+ RowBox[{"2", " ", "1"}], ")"}]}], ",", " ",
+ RowBox[{"Tc", " ",
+ RowBox[{"6.015", "/", " ", "\[ScriptCapitalM]0"}],
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Ghs", "[",
+ RowBox[{"[", "2", "]"}], "]"}], "/", "4.78"}], ")"}], "2"], "/",
+
+ RowBox[{"(",
+ RowBox[{"2", " ", "3"}], ")"}]}]}], ",",
+ RowBox[{"Tc", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Ghs", "[",
+ RowBox[{"[", "4", "]"}], "]"}], "/", "9.2"}], "/",
+ RowBox[{"(",
+ RowBox[{"3", " ", "4"}], ")"}]}]}]}], "}"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"\[CapitalPhi]s", "=",
+ RowBox[{"{",
+ RowBox[{"-", "4.268216450407312`"}], "}"}]}], ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.799332828731876*^9, 3.799332843338925*^9}, {
+ 3.799333171088188*^9, 3.7993333118267813`*^9}, {3.799333353236157*^9,
+ 3.79933337320909*^9}, {3.7993334975265617`*^9, 3.7993336190432653`*^9}, {
+ 3.7993336766747923`*^9, 3.799333693441553*^9}, {3.799334248620784*^9,
+ 3.799334253124778*^9}, {3.799335261663274*^9, 3.799335266238493*^9}, {
+ 3.799335432162546*^9, 3.7993354524338617`*^9}, {3.799335486234418*^9,
+ 3.799335537547391*^9}, {3.799335672246469*^9, 3.79933573047106*^9},
+ 3.799336753315345*^9, {3.7993368514207077`*^9, 3.799336851515593*^9}, {
+ 3.799338407023141*^9, 3.799338409182716*^9}, 3.799338739725066*^9, {
+ 3.799360187486464*^9, 3.799360215533842*^9}, {3.799360267079852*^9,
+ 3.7993602673989*^9}, {3.799361412236751*^9, 3.7993614168621607`*^9}},
+ CellLabel->"In[19]:=",ExpressionUUID->"1f73d2d8-b20d-4c2c-823a-fa4c0f5117da"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["Gls"], "Input",
+ CellChangeTimes->{{3.7993343291183777`*^9, 3.799334329470421*^9}},
+ CellLabel->"In[22]:=",ExpressionUUID->"8b406003-2d90-43d4-8e18-b505f40fff22"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "1.6919045`"}], ",",
+ RowBox[{"-", "0.495255`"}], ",", "0.14718111649754292`", ",",
+ "0.15770721484909936`"}], "}"}]], "Output",
+ CellChangeTimes->{
+ 3.799334329707273*^9, 3.799335283670458*^9, {3.799335521974536*^9,
+ 3.799335538187503*^9}, {3.7993356955469007`*^9, 3.799335731386338*^9},
+ 3.799336852585793*^9, 3.7993384110923433`*^9, 3.7993602310930147`*^9,
+ 3.7993602704853687`*^9, 3.7997580742082777`*^9},
+ CellLabel->"Out[22]=",ExpressionUUID->"3b80f79f-8413-4aed-b0d7-0eba1da958cc"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{
+ "Set", " ", "the", " ", "rules", " ", "for", " ", "expansion", " ",
+ "coefficients"}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ClearAll", "[", "Gl", "]"}], ";",
+ RowBox[{"ClearAll", "[", "Gh", "]"}], ";",
+ RowBox[{"ClearAll", "[", "\[CapitalPhi]", "]"}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Thread", "[",
+ RowBox[{"SetDelayed", "[",
+ RowBox[{
+ RowBox[{"Evaluate", "[",
+ RowBox[{"Gl", "/@",
+ RowBox[{"Range", "[",
+ RowBox[{"Length", "[", "Gls", "]"}], "]"}]}], "]"}], ",",
+ RowBox[{"Evaluate", "[", "Gls", "]"}]}], "]"}], "]"}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Thread", "[",
+ RowBox[{"SetDelayed", "[",
+ RowBox[{
+ RowBox[{"Evaluate", "[",
+ RowBox[{"Gh", "/@",
+ RowBox[{"Range", "[",
+ RowBox[{"Length", "[", "Ghs", "]"}], "]"}]}], "]"}], ",",
+ RowBox[{"Evaluate", "[", "Ghs", "]"}]}], "]"}], "]"}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Thread", "[",
+ RowBox[{"SetDelayed", "[",
+ RowBox[{
+ RowBox[{"Evaluate", "[",
+ RowBox[{"\[CapitalPhi]", "/@",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[",
+ RowBox[{"Length", "[", "\[CapitalPhi]s", "]"}], "]"}], "-", "1"}],
+ ")"}]}], "]"}], ",",
+ RowBox[{"Evaluate", "[", "\[CapitalPhi]s", "]"}]}], "]"}], "]"}],
+ ";"}]}]}]], "Input",
+ CellChangeTimes->{{3.713827899563285*^9, 3.713827910207541*^9}, {
+ 3.713828180184713*^9, 3.713828181056987*^9}, {3.71382826859536*^9,
+ 3.713828438887127*^9}, {3.713828681601102*^9, 3.713828682285378*^9}, {
+ 3.714215528007637*^9, 3.714215554531211*^9}, {3.7993342642850857`*^9,
+ 3.799334281164487*^9}, {3.799334336118576*^9, 3.7993343494697847`*^9}},
+ CellLabel->"In[23]:=",ExpressionUUID->"350a4d8b-bb31-4399-9d70-aac4c388ec17"],
+
+Cell[BoxData[
+ RowBox[{"Integrate", "[",
+ RowBox[{
+ RowBox[{"Exp", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "X"}], "]"}],
+ RowBox[{"Exp", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], "/",
+ SuperscriptBox["X", "2"]}], "]"}],
+ SuperscriptBox["X",
+ RowBox[{"7", "/", "3"}]]}]}]], "Input",
+ CellChangeTimes->{{3.799345591076426*^9, 3.799345621115266*^9}},
+ EmphasizeSyntaxErrors->True,
+ CellLabel->"In[27]:=",ExpressionUUID->"fcfb10c1-3f9c-44a8-bf68-ec0a677ae045"],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]", "[",
+ RowBox[{"A_", ",", "B_"}], "]"}], "[", "X_", "]"}], ":=",
+ RowBox[{"With", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"Y", "=",
+ RowBox[{"B", " ", "X"}]}], "}"}], ",",
+ RowBox[{
+ FractionBox[
+ RowBox[{"2", " ", "A", " ",
+ SuperscriptBox["B", "2"]}], "\[Pi]"],
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"54", " ",
+ SuperscriptBox["Y", "8"]}]],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "6"}], " ",
+ SuperscriptBox["Y", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Y", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "6"}], "+",
+ RowBox[{"13", " ",
+ SuperscriptBox["Y", "2"]}]}], ")"}], " ",
+ RowBox[{"Gamma", "[",
+ FractionBox["2", "3"], "]"}]}], "+",
+ RowBox[{"3", " ",
+ RowBox[{"(",
+ RowBox[{"3", "-",
+ RowBox[{"8", " ",
+ SuperscriptBox["Y", "2"]}]}], ")"}], " ",
+ RowBox[{"Gamma", "[",
+ FractionBox["7", "6"], "]"}]}]}], ")"}]}], "+",
+ RowBox[{
+ SuperscriptBox["\[ExponentialE]",
+ RowBox[{"-",
+ FractionBox["1",
+ SuperscriptBox["Y", "2"]]}]], " ",
+ RowBox[{"(",
+ RowBox[{"18", "-",
+ RowBox[{"69", " ",
+ SuperscriptBox["Y", "2"]}], "+",
+ RowBox[{"35", " ",
+ SuperscriptBox["Y", "4"]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "Y", " ",
+ RowBox[{"ExpIntegralE", "[",
+ RowBox[{
+ FractionBox["5", "3"], ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SuperscriptBox["Y", "2"]]}]}], "]"}], " ",
+ RowBox[{"Gamma", "[",
+ FractionBox["2", "3"], "]"}]}], "-",
+ RowBox[{"3", " ",
+ RowBox[{"ExpIntegralE", "[",
+ RowBox[{
+ FractionBox["7", "6"], ",",
+ RowBox[{"-",
+ FractionBox["1",
+ SuperscriptBox["Y", "2"]]}]}], "]"}], " ",
+ RowBox[{"Gamma", "[",
+ FractionBox["7", "6"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}]}]}],
+ "]"}]}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]f", "[",
+ RowBox[{
+ "A_", ",", "B_", ",", "h0_", ",", "\[Theta]c_", ",", "f_", ",", "Y_"}],
+ "]"}], "[", "\[Theta]_", "]"}], ":=",
+ RowBox[{"With", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"x", "=",
+ RowBox[{"h0",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"-",
+ RowBox[{
+ RowBox[{"f", "'"}], "[", "\[Theta]c", "]"}]}], ")"}], "/",
+ SuperscriptBox[
+ RowBox[{"Abs", "[",
+ RowBox[{
+ SuperscriptBox["\[Theta]c", "2"], "-", "1"}], "]"}],
+ "\[CapitalDelta]"]}]}]}], "}"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]", "[",
+ RowBox[{"A", ",", "B"}], "]"}], "[",
+ RowBox[{"x",
+ RowBox[{"(",
+ RowBox[{"\[Theta]c", "-", "\[Theta]"}], ")"}]}], "]"}], "+",
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]", "[",
+ RowBox[{"A", ",", "B"}], "]"}], "[",
+ RowBox[{"x",
+ RowBox[{"(",
+ RowBox[{"\[Theta]c", "+", "\[Theta]"}], ")"}]}], "]"}], "+",
+ RowBox[{"Y", "[", "\[Theta]", "]"}]}]}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.7992864929128017`*^9, 3.7992864934010773`*^9}, {
+ 3.799294959002634*^9, 3.799294959113867*^9}, {3.7992954856104107`*^9,
+ 3.799295498642445*^9}, {3.799334381150672*^9, 3.799334392689096*^9}, {
+ 3.799337712259521*^9, 3.799337717770121*^9}, {3.799340622721396*^9,
+ 3.799340629434267*^9}, {3.799340973048769*^9, 3.799340983638776*^9}, {
+ 3.799341495631761*^9, 3.799341496214933*^9}, {3.799361174385144*^9,
+ 3.799361188080359*^9}},
+ CellLabel->"In[27]:=",ExpressionUUID->"dec3dfec-fc66-4d85-b94e-5960af03c15a"],
+
+Cell[BoxData[
+ RowBox[{"ClearAll", "[", "\[ScriptCapitalY]num", "]"}]], "Input",
+ CellChangeTimes->{{3.7993593258380423`*^9, 3.799359332588441*^9}},
+ CellLabel->"In[29]:=",ExpressionUUID->"7c3fa0b1-7769-4bc4-b087-6f591064d84d"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]dat", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"10", "^", "x"}], ",",
+ RowBox[{"Re", "@",
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]", "[",
+ RowBox[{"1", ",", "1"}], "]"}], "[",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
+ SuperscriptBox["10", "x"], ",", "60"}], "]"}], "]"}]}]}], "}"}],
+ ",",
+ RowBox[{"{",
+ RowBox[{"x", ",",
+ RowBox[{"-", "7"}], ",", "7", ",",
+ RowBox[{"1", "/", "10"}]}], "}"}]}], "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.799359510628241*^9, 3.7993595288324747`*^9}, {
+ 3.799359577682379*^9, 3.799359593249929*^9}},
+ CellLabel->"In[30]:=",ExpressionUUID->"fe45d206-4ada-477e-940c-6690c254c5a2"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]num", "=",
+ RowBox[{"Interpolation", "[", "\[ScriptCapitalY]dat", "]"}]}],
+ ";"}]], "Input",
+ CellChangeTimes->{{3.799359261017185*^9, 3.799359368405304*^9}, {
+ 3.7993594366241198`*^9, 3.799359496279955*^9}, {3.799359604955986*^9,
+ 3.799359607593967*^9}, 3.7993609498121233`*^9},
+ CellLabel->"In[31]:=",ExpressionUUID->"fd8e57a3-697a-49b8-a4de-640b45e20bc4"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]fnum", "[",
+ RowBox[{
+ "A_", ",", "B_", ",", "h0_", ",", "\[Theta]c_", ",", "f_", ",", "Y_"}],
+ "]"}], "[", "\[Theta]_", "]"}], ":=",
+ RowBox[{"With", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"x", "=",
+ RowBox[{"h0",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"-",
+ RowBox[{
+ RowBox[{"f", "'"}], "[", "\[Theta]c", "]"}]}], ")"}], "/",
+ SuperscriptBox[
+ RowBox[{"Abs", "[",
+ RowBox[{
+ SuperscriptBox["\[Theta]c", "2"], "-", "1"}], "]"}],
+ "\[CapitalDelta]"]}]}]}], "}"}], ",",
+ RowBox[{
+ RowBox[{"A", " ",
+ SuperscriptBox[
+ RowBox[{"(", "B", ")"}], "2"],
+ RowBox[{"\[ScriptCapitalY]num", "[",
+ RowBox[{"x", " ", "B",
+ RowBox[{"(",
+ RowBox[{"\[Theta]c", "-", "\[Theta]"}], ")"}]}], "]"}]}], "+",
+ RowBox[{"A", " ",
+ SuperscriptBox[
+ RowBox[{"(", "B", ")"}], "2"],
+ RowBox[{"\[ScriptCapitalY]num", "[",
+ RowBox[{"x", " ", "B",
+ RowBox[{"(",
+ RowBox[{"\[Theta]c", "+", "\[Theta]"}], ")"}]}], "]"}]}], "+",
+ RowBox[{"Y", "[", "\[Theta]", "]"}]}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.799359635618381*^9, 3.7993596971959352`*^9}, {
+ 3.799360945286153*^9, 3.799360947283763*^9}, {3.799361132640252*^9,
+ 3.799361164135839*^9}, {3.799361194928516*^9, 3.7993611971925907`*^9}},
+ CellLabel->"In[32]:=",ExpressionUUID->"9a9678e6-3f21-4ec0-8819-1d9d6b2376cc"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Show", "[",
+ RowBox[{
+ RowBox[{"ListLogLogPlot", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"#1", " ", ",", "#2"}], "}"}], "&"}], "@@@", "sus"}], "]"}],
+ ",", "\[IndentingNewLine]",
+ RowBox[{"LogLogPlot", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "2"}],
+ RowBox[{"Gls", "[",
+ RowBox[{"[", "2", "]"}], "]"}],
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]num", "[",
+ RowBox[{"B", " ", "x"}], "]"}], "/",
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]series", "[",
+ RowBox[{"1", ",", "1"}], "]"}], "[", "0", "]"}]}]}], ",",
+ RowBox[{"{",
+ RowBox[{"x", ",", "0.001", ",", "10"}], "}"}]}], "]"}]}],
+ "\[IndentingNewLine]", "]"}]], "Input",
+ CellChangeTimes->{{3.799340806500203*^9, 3.799340852403414*^9}, {
+ 3.799340884891883*^9, 3.799340927804905*^9}, {3.799341000335532*^9,
+ 3.7993410239986553`*^9}, {3.799341091985899*^9, 3.7993412102736263`*^9}, {
+ 3.799341257252809*^9, 3.79934125818671*^9}, {3.79934152216079*^9,
+ 3.799341530193762*^9}, 3.799341567865222*^9, {3.7993428473033457`*^9,
+ 3.799342853765827*^9}, {3.7993436337746677`*^9, 3.799343645296091*^9}, {
+ 3.799344162224451*^9, 3.799344162391449*^9}, {3.7993453977762527`*^9,
+ 3.7993454057509527`*^9}, {3.799360018124671*^9, 3.799360107627818*^9}},
+ CellLabel->"In[49]:=",ExpressionUUID->"6d35af15-cd9a-4061-a3d7-eee9182a1866"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
+ AbsoluteThickness[1.6], PointBox[CompressedData["
+1:eJw9zWk81HvfwPExqzG2kSVCiyIKIXRV/P85SSFbq5RjOyRkp5IsSSot5BBJ
+EioOByFZ+v4oypooiixjG/s6g7He9/XkevB5vR9+tjp4Wv1FJBAIn/+//5o9
+Fa8pEM9EboZBkv+eioKbdnslnwyIIhlKSRC3OgL6DHq8XEgiaMzSN/StfSh0
+Wnhm3EwVQo+W+O9HB3nDPc0s9+d6gkjYcxuYXI4FTrgvraxDAHW5DbyMn0uG
+G+fa+74H0tH24Fc5PSgfeuOsFGbF+f/3K6vgdxYqoKIR1cbAjuP58MLy+15l
+cwrCfJ7e1LTNhoJojtORcRLitAm7nVYpBCdqnKP9HSKy0T2sJylWDubtg/o3
+FPmQ4a8HLXwJRTC680Ki1u118AunGsWHAXisuBm7Va6A0b1Uz3S9KrB0iVd9
+ucwD6gKBs2N3NbyKMVvr0F6A+Ytdm0y7amCO0Sst5sUB7LxbjaliHQT0TNYd
+y5qBeInAiEn/rxDfwJoTqJ0AF0IYU26tBf4cSVv10RuG94VFUiHH2mC+q3ov
+K78PVF3j9GtYbaDsdEbxiWkH/KroPfPBshNcT2h18S41AWk+yJjL7IGQIENu
+yNU88DvPp0nKZkF9T5qlcH8Z5lbRoFVfOwA3jls+6BNpwT4+Nbt9oWkQVOrO
+idCVurBy2/yZ2MhhCLlrSdiweQCjjRGiUpdGYeRvtdr0rBHMcuEPWVWrScjt
+3XZkr84U1qXYa/vLaRoeJaY+7rObxYa7ZVPWRWdBty9jPUuRiyUOpFUptMzB
+uIv4gO/4ArYtvNo6V58L4RIlDL2CJSyJo3C0RX0BhhkRPtQrq1haoUmA2z4e
+JITEYEPyBJx+7dwfdRNL4FP1Jb8ujA+fTC5OmmxYAb3EJMN/B4h4SI2CXFL8
+GtCf2AXHGpFxr9Yb1wSuEtAGYYv1gCwKLi6h90L0PB+atLjtbSNEw80sfwTy
+somoRMmagnvx4y/HM/nVU0goQnVqSaGVjr/m+BLcSsjoYbIw0HQYuKqH9xmP
+Mgpy7THUGH8iiNtx6WrLI1S0aYdOK9wXQxNNoY5ywb5Qa+rPMf3NRBM5lbrV
+z8OBV7s1uEOFibwWqYZl67dgSUDuVPw1UcRQ9bFr1fEBZ+UZ+4mHIuido6vk
+4YxgkGTsVqarCqN22zQNJ60AgNK/ju+oE0SmGiYuFX1pMBOd5oG7MBA3iNi3
+apcAo0maaefJAujYN5K3RvFTSLru4XrlBT8K4NmcmD/nDqRGHXKcPg2VvHiQ
+fa/0DdxPT+rJ6aSgzZXk1gjnlzDVLbGl/goZ7WTfTuw+nQd1tAaHIQkSsv90
+Odf6dzHkPU3QIL7lQ+T5npLnSQVQ1fbOfrMFAb2zvriV2oSAnZqL/DpWQbXl
+6uIr3nuoMLAKzBVfhoVHoSNrEh+AXtEfO2i2CIW7/4k4V1cJ0Y9m/5C7w4Wz
+z8Yi5mVqwWtZVunUx1nYcfIfqSGjerhrkjUlvTwFep/R+G9mMyjgjYpRnqNw
+Sqju2qaub6DMHo1a6B8AMU+RnhMvfsDLka7Grrxu8CYpXUChP0FXwY6Vk9gK
+rZVq6q4JndC40fS5OKUSzl2mT33j9sD4OZ/k9fR0rOz5WQ091AevGE9OB5yp
+x9pe56wUdvTDa4s42Z9VP7FoR5rInvIhKNdSal8dZ2HSRQdSj28fgbAbm07e
+v8LGcmwYtjL64/DrYGrcFvIEdttuOF07dRK2aaRFthvNYM1mfeH5MjPQVizq
+lirEwU6E2MpC6Szs+31X+WLrPMZX1PTm5l0OeFNkkvYk8rCkb6/evzs1D9Jm
+m6k82xXsSKp7RlDNAjS23h+t3L6O0ZaFBKZ7eFCANt4x5BLwdCPFzDO9yzBY
+duOgylkinumAyXz0X4Uo7SYDoTISHtYZpqCZtQ4OVyhFM3IUPPP09kTzSgJS
+NW8/2hZKxXNJ9P0Fv/nQ0vFnoe/7aXiKNemUdh0RkT9FE1OO0PFOd9d1FoGM
+uqmf/MLfCOBKmYSeyBUyetP1N7+LoCDej0aOKktSkX//rjVjTyH8LN/t9i2n
+aSjUyqRKrUUYH6+YtcAi+FGO8aGkOzKi+PnKfBbvAR1Jf37gP0QURby98idF
+fKLgYddTVXaaMNJSNnauyQ6HqXaOPhEXQk5Tx0rKcy7DtPXY5NUeBnKTOuBv
+a2SPOXikZe6/JoBYv+uoyf4h2AbzLo/TUnTEuEb77gVpUL4mGetTSEMPTFmx
+9Vf9YLL5RMF9Syo6rkKfyKhKAnZ3/9CbSTIKEixOppvEQAKSz62+R0KSCar5
+HoUvYV10+ChrJxGZudTyyz0rgrvDJtuXqwlIPiJyG66TDT8NH9TuqVkD2dLw
+tdG/K+FBwpKZC2EFcuuzP2Y8KwVriBlP2c+DKts5Xn0eguvaLaa//OaB7iN3
+SKO6Blg7mcYi/86BRzl2wd69ForrCgnHRqZB68+KArnUWiDfjd5HMBoHT8U0
+2KzwFQQ0spI8y4bgkmvcj3+KWuE7dd2uR50FsZ6v3v9q+wnLxd3klKPtIDAn
+mP7W7BdY4ceGOA5f4NHGXaQzk11g0r/m/zgjBv4iFCWp3uoFzri6tBfvIxYW
+J7u+jvdDf7kEj73hB7apmyI4HD0InSMu1bckejF3+XHBgOZhKJcgsmVeDGJX
+uz3ah3JHYX62N/z17jGMqHXvwu2ZCdgTXRW86fw09tRSxtf14TQMMjUcBrbO
+YZF7/kwTQTNgpJu95R82F7tJzTpF0Z8D3/gJ5J+ziNmE7TBkmXJh5xts9aDv
+MmYzHDbaLLMAXWq5LMp/1rDggYPUCzcXYYuKeLNzCAHPn/vRUJ2/BOUfbPhN
++vjw1FhSyemAFRB1tNVXNyThGaNbvb3012A04++8Da/JeKnh+xEdXQIquu5y
+eFGAipsNergZ4HxoOLBx4bcHDT8ZiPgNnYgoekZ2DZr58YnLt/qVD5CQ896T
+XulaArj84rdyv6NkpMFQJN+JZ+AbLxx9JX6Dgtbo4wfceYJ4ucbeP4ajqIgW
+2llhcV4Y7/5aTdkcR0N9VWJ7tEEEj5HzZKICftRmOssSjBHFHY+cln/CpqNy
+84rfNwyYOFV63c2ZzkAGtMYP03NM/HqZv8sBKUH07+vhBYcMMRw3qCsMdRZC
+JxUcXlicoiF9LTHqhHkS5Pn09l+apaC6h3tyfYXSgOnxH+6th2R04mOjl2ZR
+FCY2pZ6xqkZCQe2fGHlfcuEWkX3+Qy0f8hVmZD2OiAHtga3bO5wJKNC+62XQ
+2bdQofTu0ThtDTSyd/X5NL+DrQ17vm0zWAZrzrdo672lwBy22G9zfRF2zjze
+vORZBD7ZNV9ii7nAHyTDQn9VwWFT67Xa6Vlwb0/eZtfeAGeXtxStqkzD8y5H
+74/BDbC/V83dq24U1D7kNuzub4L0m7TALv1BEBXvPl6s2wJXM92cEp17QCjO
+Ct95sR0oIR6D4ebfIZChFDp5rxN2J7YUFnlVgZu2quRcVTdYVYbnDYw9w1RK
+prJ9zvVC3a2I9x/HajFmMM8yUmAAOjiRG0lCP7F9jE0n5EYG4WX6ZDUzloWN
+qfu0sUeGYcn8xvY0OTa2PP/11si3UXCwsZnQejOOXfqwr8iPOgFqHSmGDjIz
+mFy8I9c4ZgqsW5PjFXvnsH0/NrG702aAc7g8ZjZjHtuftPFtJY0Dr+tUAsrc
+eBhfr9LImDEXEnsXqJEaK9iJOmtli+gF0DFnfzddWMPochs/D8nxYD4vmf9u
+NwGPuXIWLbQtQfNc67XLh4h4emDzANt8BcKpzHNW6SQ81illiOO6BlI6miq6
+NAq+2NwsyzxKQD6YzReZS1TcpEm+4fFFPmQaHrt/vYGGyxpza5fUiGg17qt0
+vzodr7LQXHxnR0JJylJWn2MF8APcpQJVnIwmG6WjsrkM/FLCBalD7hT0RdRy
+6eFZIbyb2DKaa05FsextD/zKhPFtH7bSBS/TkKP3p9TdIqK4jGPpk4D7/Ehb
+bVwhBYni/nSOMOsuHaV9pV0Q9WHiXrNKGwgFAohWNp0ZriCGH3c8EGg+zECX
+S1sNON/F8AHe/t6GeUHk619/0zlyA26/lLnuelAY9Uqyy3/qiuO75h+V4kdE
+kCGxmWoyIo53hB0a2qwuinZRnvJVJEng96Sym959EUX55Vn9aqaSeIthSV64
+CxPJ29bIvliVxKsMN4T6rTHR/wHFSXH1
+ "]]}, {
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+ 0.009166666666666668], AbsoluteThickness[1.6]}, {}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+ 0.009166666666666668], AbsoluteThickness[
+ 1.6]}, {}}}, {{}, {}}}, {{{}, {},
+ TagBox[
+ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6],
+ Opacity[1.], LineBox[CompressedData["
+1:eJwVlGk4FI7bhRlbZBtmjK1C9kq2UJYZIkQlJCI7ya+SyBb9RdllMJbsJBEV
+WRM9T0ipaLVGSBJRJLJEr/fDuc6H+77OxyPp6mPpQWBiYurdyP93X+uvhLhC
+MVxYv6ChbR0NK6pZ3CV5Ysg5KBm2ahMNYkX6CU+yxfANj8OTZrtocAynxy+l
+iaHVI3UTE6do+KKjFOcZJ4ZzucxBF72jYbb2dLSBnxhef9x1W+VKNHCWjlxZ
+MRTDNv+wx9qV0bAvoSvA+5soso3tFP9BigFx7X8VxuOieN//zlC4cAysTe4e
+k/4siouK2WeExGMAjZOPDH8Uxb2cBaum22PAmMVa3vq1KArKbRV/rxID1iH9
+/bp1G7zzg73PkRjw8fqiQ7wqiuE9fgPDCTFQbLhCaNgmih88qUxyxFiwPaB1
+5oW4KI56Mxr2kGNhs0lA96CIKD6+cvy0sUgsXDD7dZuZJIopJv1NfpKxQLOc
+MjfbJIp97WtesyqxMOg0kP5pVgQbJwvaLlnFAvlSoyJbiwi2zhQcm8qMhaiq
+EEtLdxHUvi/z6s6uOGA/9tPHz0UEZ04lm/iqxsG1JbdEhqMIxrhJqWprxsFV
+6qHnPbYiWLY/2qafFgcRndv07A+JYPfiVQWqdRxcnmxTcNcQwW0P3eSqL8VB
+gCQfc8AmEQz68NfucGcceCTfvH+jQhgrHK5d/HopHor9CyNDy4SR19elXzgi
+Hr4czz/uVCKMnvQGPouYeHDfmv1PukAY3X90EzoZ8eBannKkMlUYXw67nGG+
+Fw+OT6/8bA8RRuadbDePj8aD7bLT7t8mG/uF+TMfzBLA3EX8/uFxCrK4jOX/
+UU4Exwy5Os/PFCwqSbZY00wEn07V5svDFIyUkxTdRE2ElL2mL+/1UzDD+A77
+rkOJ0EcMmODtomDE8VN3a04ngnvL622v6yjo5uEf8vhmIoRuj6QfiaHgKcmR
+yR6x61A+PulrsYOCdf9YpVfFkyDU/vJuRXkKzmvmJonKJsHhtwIzLDIU5Biv
+ktPfnQS/mrS96rdSMPZA9/xN/STQYiQ6bhWgoJJOdhZ6JkGbgYrZ9JIQasX4
+yNg/SIJP+UHSMe1CGM+giOfL0YF4gqMXXISwOvDAeuwbOtzzfWdS6iiELW4i
+03+76WAem9tItxfCl+9kef0/0iGmQS3P5ZgQVt0ZXT33lQ7rQs4eLKZC+Pb3
+776Mv3SYet8wf0BZCI9nPAhpUEiG1kPe/F3rZBx2UPxuHp0MF/U7TQezyeiW
+HZQXbZECX8pv/VjOJON/0dvHKm1SwFrociolnYxCCWtpnxxSQPW70pAlnYy8
+vXOWxqdTYJZBP99xdcN/qBd5OCIFznyzyqg7S0YlynqSRm0KuCUNfKFTyegT
+7OZ1dWsqHB2a+J/RGAmfHzbx6P2XCuHRph+lR0g4uwzbezgYUKlSrsE6REJz
+a84tH/kYwB91bqalh4Q+7Z7v/2xjQJfSwgnaCxIaZfj3htIYcDCcoKFdRUJ/
+9/NxDyMYYLB9y7Ty/0jodXfnWwnuNFA/bWkrLkbCs70ZCZ1q6aDh+eSrsjAJ
+lyw+kD/ppIOmm/JFIzIJ6SPiexaM0mHfSd6Uc3wkvK46aKJpmw60oy9eIgsJ
+G+ooZpvD0sFsrwHVY1oQ/Z6PLyw+SwdXTlXZe82CmKZlFfjPNQOSyoi/qc6C
+qN09xVi4lwkOJvUabicFUWBIPTbnYSYoTjgER50QxMS6EKJZWya0SZeuv7IW
+RAMBz/nH/Zmwkq/HecJUEG/NXkklsN0Aj/T/tvqrCqINnORYd7gB2pFPTUpZ
+BdE9SCR7WiALNuZy+csEkIdz3m46Ixv8tUvTF24J4LCqsXzjrWwgiPYmDRQJ
+4GL986yU6mzY0qseUZwjgLoHRhPcXmeD1dFZTy26AHKG5cZFceQAGJ1Sdg4U
+wL/eyop9wTmQoXSs9b6RAC4UmKqNe+aCMZPK5OHPRCxJTcpMc8+HEpWz5NPD
+RBwMhngV/3xgdyvTjxwkYpNSTXVfZD60PZXMqu8h4hfJjicmN/PBIF7ATOIl
+ES9XjNVVfs4HXaHfFXPVREy/eCvhvUoBqO2sP8+4RsQzX8+2q9UXwDZb3aV+
+eSJ6xXr7JnwoBL0OwsdaGSJySDJkyj8VguO+583JUkTMs5uqffutEHLFrSJN
+xYlIW9SN1FgrBLFRL96HfERM/nAqxEm2CCjeDOnMRX6MalzZqx5SBHyh3y1s
+2vhx9HzGMEn+JvzLv1H2zokfnwVa5EnmFcPUgzRaswM/svg+0lO+Uww9T5N7
+b9vxI7fFIS6TumKo+B7LFmbFj/pkF73UrmI4oRniImfMj7uewMfMf8VQ13VC
+JFSJH417MzlOud2CgRVNAbMVPkyaOEfRVy2B+lqdt7PqfPibktuf8OM2qF45
+4qG8mw9PyDgPbv97GyrMXZd9FPjw7OSRkDbOUigai5b8uYUP2564FknJlEIC
+8b3vDDsf1t7f7GTlUAquZ08LTPXxImW5PyDhVSlwy6RbjYXyYoqtp19iTRk4
+M352d7fxoC+3XotDcTnYD5N6Mx/z4JiE2PW52nKwUdzXZ9/AgwK5Dc9Tn5WD
+OV4dGC3nwb3Dzg+YvpeD5rTI8EwKD/Ys7bwQploBvIaG39hceNDQpjh5c1sF
+NM1nruxZ40aVJHf91rm7IGxlsC19DzeuCqdfYtKthLr9EVGtu7nxztwZppkD
+lXBMvWVmVoEbbwUG00csKiGFbNBktpUbP/ZUjA+6VwJPn74dMwc3+kiHzygm
+VgLhpH7qmb7NyFIW+FRiuBKmPWkc+y9txnPeRj3pMVWAIXo/fyIX3rwQ4PP2
+1wMYnqK3FjRyoYrxv28l/x7A+omxjKM1XKj6qEw9irsadLRjaNW3uVB2zzs3
+V9lqqF99mxxwnQsDU9+NJZ+ohnuhHupr9lwof1u+431bNeRcTgjm+sOJ47Ps
+C5TCGgiMGGCR2cWJ4lZcqXYhdaCkkUWbl+XE/a/JDRmxdfBl0i7siQQnXmuS
+0h3NrAPLo/2LJ0mc+B6+R6fXb/gSfZPpq5tQKozMHr+w4Td3v970YhOaZdcu
+FfnVg8Xym+xpz0341P7GWkdQAyicf6ZWU8CBJUcOan0qbYSrHYU901kcOC0/
+G/f3YSN8kgoNlknjQCZvtUrZl43A6FaG9NgN3vowOW+mEdb3ZR0MvsCBs5SR
++C1qj+Ad21kXPUMOpC+0GzrhIwjJFkh6PsGOPJ1vbBS/NMHL9pNTg0rsGNZ8
+bXuVJUBJ/sGVTHl25HI0OfLICyA8SJPrmBQ7Onh693ZfBtBQJCp2ktmxMuOu
+ok45QFFi2+nmv2wYWDqfdIqAEGS9YzL3BRsGuertTTiJIP15acLRkw2NLF68
+MRJ9AqFrqeMjuax4u+eA1od7LbByKdueI5MV+87LCqs9aoHglaK3u1JYcX+Z
+9IWsZy0Q8KeqOSSKFc8OSd2JGGmB83Ov00g+rPh32/GWhwKt4D6++YAJjRV1
+lFmdngW1gnlnZMn9zyyYTvc2jDZrgy25fqcuy7EgU6CByxB3OzRIFbMGNDBj
+kIFe5vB8B7jG+H81UWRCI9ph8vJSFyzfHcz1PrsG9wcsFkb134H5Zv6lZeMV
+KBvNbY7p7AaG+niMrsof8A6rtzs41Q9Nu3nkao78Bn4p54tL7p+A5bv/4dHd
+c7Bf3uazEPtnsJ51ZI+Mm944z58cQaRxSCiiDJW/+wpS/owI1YhvwNx9pF0/
+bwTiDGudqS3TcMbGnnGptBuEXi89Ny6chVz2nRHZGi3AkFzPprrNg5+BxETe
+t2Jq0tUEG1HjRVB+fpdmuucVNXykbjjLexm84IWeffIAtaa3Y2fPjjXIKVt+
+XyQyRq3kudGTE86Exn68i4qnJql6eUo0lqcE3HRr+M7BjJ9UHWKzyKIyG167
+cU0q4t4vqoFhl4JdLgd6Fdh7lr5eoPL+HV0t9OLC/7o/5WQ/WqK+c1qZDVbg
+wWA9zBnIXKWaRUnUpazzodeEi6BbzTp1hjvrElsREXWcbPUcOplogTuuXnfd
+K4h7Jr+ldr9nok0rLEtE0wRRyS948vAAE60t5tWbUmNBlIjOYuhPMNG8nVaV
+x44JItv9wSlZZmZaw9M9tSoXBLFr3TljTp2ZdqVq+03ZO4LonHd6NiqHmfYk
+sUrjsCgJ7eRXjJhuMtPGK87ZLUiS0PJBXHZwGTPNjKpUkatAQsP28gNn6php
+1kUPfee0SKjwYybn6Btm2lHtALui4yT8pXvBVJyVQNN91evLl0bC788I+Wlc
+BJrD+aVnj3JI+OVo6m9eIoFW8lvS+1QxCXs9avKZtxJoyZ8ViU3VJGxKXFz4
+qkmgsVen2B1/R8JaSrSZsx6B9kf2VfhKPwnvFVIK+w0JtKGdPT+yR0lYUKtl
+/uoogUZP0RPvnyXhDWpHoZEtgeanppPlv0TClA67P48dN/iE7SAPExkTrKbM
+tTwINP83Gi3FHGS8NhRSVPUfgbaloHTHXj4y/h9Qedll
+ "]]},
+ Annotation[#, "Charting`Private`Tag$27512#1"]& ]}, {}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{-5.075689593679163, -4.851467865055216},
+ DisplayFunction->Identity,
+ Frame->{{False, False}, {False, False}},
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->{{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Log, Exp}]}, {
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Log, Exp}]}},
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ ImageSize->{496., Automatic},
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Exp[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Exp[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& )}},
+ PlotRange->{{-5.075689593679163, 5.747684907538796}, {-4.851467865055216,
+ 0.012064355914590463`}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->FrontEndValueCache[{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledTicks[{Log, Exp}]}, {{{-4.605170185988091,
+ FormBox[
+ TagBox[
+ InterpretationBox["\"0.01\"", 0.01, AutoDelete -> True],
+ NumberForm[#, {
+ DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01,
+ 0.}}, {-2.3025850929940455`,
+ FormBox[
+ TagBox[
+ InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True],
+ NumberForm[#, {
+ DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, {0.,
+ FormBox["1", TraditionalForm], {0.01, 0.}}, {2.302585092994046,
+ FormBox["10", TraditionalForm], {0.01, 0.}}, {4.605170185988092,
+ FormBox["100", TraditionalForm], {0.01, 0.}}, {-6.907755278982137,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-6.214608098422191,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.809142990314028,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.521460917862246,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.298317366548036,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.115995809754082,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.961845129926823,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.8283137373023015`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.710530701645918,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.912023005428146,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.506557897319982,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.2188758248682006`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.995732273553991,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.8134107167600364`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.659260036932778,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.5257286443082556`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.4079456086518722`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.6094379124341003`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.2039728043259361`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.916290731874155,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.6931471805599453,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.5108256237659907,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.35667494393873245`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.2231435513142097,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.10536051565782628`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 0.6931471805599453,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.0986122886681098`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.3862943611198906`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.6094379124341003`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.791759469228055,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.9459101490553132`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.0794415416798357`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.1972245773362196`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.995732273553991,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.4011973816621555`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.6888794541139363`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.912023005428146,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.0943445622221,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.248495242049359,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.382026634673881,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.499809670330265,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 5.298317366548036,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 5.703782474656201,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 5.991464547107982,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.214608098422191,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.396929655216146,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.551080335043404,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.684611727667927,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.802394763324311,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.907755278982137,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 7.600902459542082,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 8.006367567650246,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 8.294049640102028,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}}, {{-4.605170185988091,
+ FormBox[
+ TagBox[
+ InterpretationBox["\"0.01\"", 0.01, AutoDelete -> True],
+ NumberForm[#, {
+ DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01,
+ 0.}}, {-2.995732273553991,
+ FormBox[
+ TagBox[
+ InterpretationBox["\"0.05\"", 0.05, AutoDelete -> True],
+ NumberForm[#, {
+ DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01,
+ 0.}}, {-2.3025850929940455`,
+ FormBox[
+ TagBox[
+ InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True],
+ NumberForm[#, {
+ DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01,
+ 0.}}, {-0.6931471805599453,
+ FormBox[
+ TagBox[
+ InterpretationBox["\"0.50\"", 0.5, AutoDelete -> True],
+ NumberForm[#, {
+ DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, {0.,
+ FormBox["1", TraditionalForm], {0.01, 0.}}, {-5.298317366548036,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.115995809754082,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.961845129926823,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.8283137373023015`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.710530701645918,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.912023005428146,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.506557897319982,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.2188758248682006`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.8134107167600364`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.659260036932778,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.5257286443082556`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.4079456086518722`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.6094379124341003`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.2039728043259361`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.916290731874155,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.5108256237659907,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.35667494393873245`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.2231435513142097,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.10536051565782628`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 0.6931471805599453,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.0986122886681098`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.3862943611198906`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.6094379124341003`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.791759469228055,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.9459101490553132`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.0794415416798357`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.1972245773362196`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.302585092994046,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}}}]]], "Output",
+ CellChangeTimes->{{3.799340891591709*^9, 3.7993409287598124`*^9}, {
+ 3.7993409931221857`*^9, 3.799341028927863*^9}, {3.799341099859418*^9,
+ 3.7993412110495768`*^9}, {3.799341253587982*^9, 3.799341269667615*^9}, {
+ 3.799341498456978*^9, 3.799341584378201*^9}, 3.799341680409337*^9, {
+ 3.799341771140027*^9, 3.799341796730298*^9}, 3.799342002278626*^9, {
+ 3.79934204067772*^9, 3.799342054015304*^9}, 3.7993426156154613`*^9,
+ 3.799342848730857*^9, {3.7993429776070433`*^9, 3.799343001226215*^9},
+ 3.799343039061928*^9, {3.799343634625263*^9, 3.79934364668987*^9},
+ 3.799344115813506*^9, {3.799344159117386*^9, 3.7993441728749533`*^9}, {
+ 3.7993453779612093`*^9, 3.799345406545928*^9}, {3.799360087075965*^9,
+ 3.799360107919652*^9}, 3.7993602793018*^9, 3.799361242476914*^9,
+ 3.799361426901524*^9, 3.799758074829802*^9, 3.7997581173633537`*^9},
+ CellLabel->"Out[49]=",ExpressionUUID->"4e02975f-1e2b-4ecf-9a5e-f04590940c37"]
+}, Open ]],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]series", "[",
+ RowBox[{"A_", ",", "B_"}], "]"}], "[", "n_", "]"}], ":=",
+ RowBox[{
+ FractionBox["A", "\[Pi]"], " ",
+ SuperscriptBox["B",
+ RowBox[{"2", "+", "n"}]],
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"-", "1"}], ")"}], "n"], " ",
+ RowBox[{"Gamma", "[",
+ RowBox[{
+ FractionBox["13", "6"], "+",
+ FractionBox["n", "2"]}], "]"}]}]}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]fseries", "[",
+ RowBox[{
+ "A_", ",", "B_", ",", "h0_", ",", "\[Theta]c_", ",", "f_", ",", "Y_"}],
+ "]"}], "[", "n_", "]"}], ":=",
+ RowBox[{"With", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"x", "=",
+ RowBox[{"h0",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"-",
+ RowBox[{
+ RowBox[{"f", "'"}], "[", "\[Theta]c", "]"}]}], ")"}], "/",
+ SuperscriptBox[
+ RowBox[{"Abs", "[",
+ RowBox[{
+ SuperscriptBox["\[Theta]c", "2"], "-", "1"}], "]"}],
+ "\[CapitalDelta]"]}]}]}], "}"}], ",",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"-", "1"}], ")"}], "n"],
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]series", "[",
+ RowBox[{"A", ",",
+ RowBox[{"x", " ", "B"}]}], "]"}], "[", "n", "]"}], "/",
+ SuperscriptBox["x", "2"]}]}], "+",
+ RowBox[{"SeriesCoefficient", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]", "[",
+ RowBox[{"A", ",", "B"}], "]"}], "[",
+ RowBox[{"x",
+ RowBox[{"(",
+ RowBox[{"\[Theta]c", "+", "\[Theta]"}], ")"}]}], "]"}], ",",
+ RowBox[{"{",
+ RowBox[{"\[Theta]", ",", "\[Theta]c", ",", "n"}], "}"}], ",",
+ RowBox[{"Assumptions", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]", "<", "\[Theta]c"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{"f", "'"}], "[", "\[Theta]c", "]"}], "<", "0"}], ",",
+ RowBox[{"\[Theta]c", ">", "1"}], ",",
+ RowBox[{"B", ">", "0"}]}], "}"}]}]}], "]"}], "+",
+ RowBox[{"SeriesCoefficient", "[",
+ RowBox[{
+ RowBox[{"Y", "[", "\[Theta]", "]"}], ",",
+ RowBox[{"{",
+ RowBox[{"\[Theta]", ",", "\[Theta]c", ",", "n"}], "}"}]}], "]"}]}]}],
+ "]"}]}]}], "Input",
+ CellChangeTimes->{{3.7138296581714573`*^9, 3.713829668897043*^9}, {
+ 3.714216282324894*^9, 3.71421631629377*^9}, {3.714216406562893*^9,
+ 3.714216407106579*^9}, {3.714216493489238*^9, 3.714216495003374*^9}, {
+ 3.714216957160618*^9, 3.7142169586640577`*^9}, {3.714220514613604*^9,
+ 3.714220516363096*^9}, {3.714220562215344*^9, 3.714220567084944*^9}, {
+ 3.714220621206888*^9, 3.714220623255495*^9}, {3.714220659529737*^9,
+ 3.7142206915448503`*^9}, {3.7142207580076*^9, 3.714220760391014*^9}, {
+ 3.714221997768456*^9, 3.714222001894022*^9}, 3.714222038869793*^9, {
+ 3.7142221234176073`*^9, 3.714222127286632*^9}, {3.714222408524426*^9,
+ 3.7142224257214403`*^9}, {3.7142253359951*^9, 3.7142253369214163`*^9}, {
+ 3.7142255474140453`*^9, 3.714225552328629*^9}, {3.71422569985991*^9,
+ 3.714225702239896*^9}, {3.714226457371253*^9, 3.7142264701915903`*^9}, {
+ 3.714226649819853*^9, 3.7142266556523438`*^9}, {3.7142275062267427`*^9,
+ 3.71422753824463*^9}, {3.714227821773532*^9, 3.714227853822549*^9}, {
+ 3.714308832227326*^9, 3.714308854627388*^9}, {3.71430992385946*^9,
+ 3.714309936004583*^9}, {3.715719069142599*^9, 3.7157190767737007`*^9}, {
+ 3.799334568667444*^9, 3.799334591058519*^9}, {3.799337722427945*^9,
+ 3.7993377268104677`*^9}, {3.799338095801531*^9, 3.7993381450414743`*^9}, {
+ 3.799338176834179*^9, 3.799338182202796*^9}, {3.799340390805626*^9,
+ 3.799340397852758*^9}, {3.799340654281107*^9, 3.799340661536374*^9},
+ 3.799341513272867*^9, {3.7993612127219753`*^9, 3.79936123113737*^9}},
+ CellLabel->"In[50]:=",ExpressionUUID->"7feed7fd-3a21-49ba-b309-13ed123f34e0"],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"ff", "[",
+ RowBox[{"\[Theta]c_", ",", "a_", ",", "N_"}], "]"}], "[", "\[Theta]_",
+ "]"}], ":=",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ FractionBox[
+ SuperscriptBox["\[Theta]", "2"],
+ SuperscriptBox["\[Theta]c", "2"]]}], ")"}], "\[Theta]", " ",
+ RowBox[{"Sum", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"a", "[", "n", "]"}],
+ SuperscriptBox["\[Theta]",
+ RowBox[{"2", "n"}]]}], ",",
+ RowBox[{"{",
+ RowBox[{"n", ",", "0", ",", "N"}], "}"}]}],
+ "]"}]}]}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"YY", "[",
+ RowBox[{"a_", ",", "\[Lambda]_", ",", "N_"}], "]"}], "[", "\[Theta]_",
+ "]"}], ":=",
+ RowBox[{"Sum", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"a", "[", "n", "]"}],
+ SuperscriptBox["\[Theta]",
+ RowBox[{"2", "n"}]],
+ RowBox[{"Exp", "[",
+ RowBox[{
+ RowBox[{"-", "\[Lambda]"}], " ",
+ SuperscriptBox["\[Theta]", "2"]}], "]"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"n", ",", "0", ",", "N"}], "}"}]}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.713819190380546*^9, 3.713819190896842*^9},
+ 3.713819260499408*^9, {3.713819290861274*^9, 3.713819356919717*^9}, {
+ 3.713819648160975*^9, 3.713819710244134*^9}, {3.713819845919544*^9,
+ 3.713819847441774*^9}, {3.713819902140151*^9, 3.7138199025005493`*^9}, {
+ 3.713819942289647*^9, 3.7138199425167418`*^9}, {3.713819973169775*^9,
+ 3.713820057727282*^9}, 3.7138201025878477`*^9, {3.713820148943947*^9,
+ 3.7138201499010763`*^9}, {3.7138276879408207`*^9, 3.713827743698628*^9}, {
+ 3.713829466133606*^9, 3.713829467045795*^9}, {3.714216516733247*^9,
+ 3.71421653223547*^9}, {3.7148313145378532`*^9, 3.714831366113224*^9}, {
+ 3.714833366883547*^9, 3.714833368025641*^9}, {3.714838905090252*^9,
+ 3.71483891316218*^9}, {3.7148389441709414`*^9, 3.714838966882984*^9}},
+ CellLabel->"In[52]:=",ExpressionUUID->"d645d942-7a63-48b1-b8cf-35860cb66022"],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"F1", "[", "G_", "]"}], "[",
+ RowBox[{"t_", ",", "h_"}], "]"}], ":=",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"Abs", "[", "t", "]"}],
+ RowBox[{"2", "-", "\[Alpha]"}]],
+ RowBox[{"G", "[",
+ RowBox[{"h", " ",
+ SuperscriptBox[
+ RowBox[{"Abs", "[", "t", "]"}],
+ RowBox[{"-", "\[CapitalDelta]"}]]}], "]"}]}]}], "\n",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"F2", "[",
+ RowBox[{"tc_", ",", "hc_", ",", "\[CapitalDelta]_"}], "]"}], "[",
+ "\[CapitalPhi]_", "]"}], "[",
+ RowBox[{"t_", ",", "h_"}], "]"}], ":=",
+ RowBox[{
+ SuperscriptBox["h",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"2", "-", "\[Alpha]"}], ")"}], "/", "\[CapitalDelta]"}]],
+ RowBox[{"\[CapitalPhi]", "[",
+ RowBox[{"t", " ",
+ SuperscriptBox["h",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "\[CapitalDelta]"}]]}], "]"}]}]}]}], "Input",
+ CellChangeTimes->{{3.714216533397884*^9, 3.714216534509766*^9}, {
+ 3.714992630182323*^9, 3.714992639533628*^9}, {3.7156798761100492`*^9,
+ 3.715679881342327*^9}, {3.715679930887027*^9, 3.715680028928712*^9}, {
+ 3.799334630652339*^9, 3.7993346360591917`*^9}, {3.799334745022382*^9,
+ 3.79933476374367*^9}},
+ CellLabel->"In[54]:=",ExpressionUUID->"7317b43e-9f82-42e0-b48c-590814de53ad"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"dF2", "[",
+ RowBox[{"tc_", ",", "hc_", ",", "\[CapitalDelta]\[CapitalDelta]_"}],
+ "]"}], "[", "\[Phi]_", "]"}], "[",
+ RowBox[{"t_", ",", "h_"}], "]"}], ":=",
+ RowBox[{
+ FractionBox[
+ RowBox[{"1.88992`", " ",
+ SuperscriptBox["h",
+ RowBox[{
+ RowBox[{"-", "2"}], "+",
+ FractionBox["1.88992`", "\[CapitalDelta]\[CapitalDelta]"]}]], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "1"}], "+",
+ FractionBox["1.88992`", "\[CapitalDelta]\[CapitalDelta]"]}], ")"}],
+ " ",
+ RowBox[{"\[Phi]", "[",
+ RowBox[{
+ SuperscriptBox["h",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "\[CapitalDelta]\[CapitalDelta]"}]], " ",
+ "t"}], "]"}]}], "\[CapitalDelta]\[CapitalDelta]"], "-",
+ FractionBox[
+ RowBox[{"3.77984`", " ",
+ SuperscriptBox["h",
+ RowBox[{
+ RowBox[{"-", "2"}], "+",
+ FractionBox["0.88992`", "\[CapitalDelta]\[CapitalDelta]"]}]], " ", "t",
+ " ",
+ RowBox[{
+ SuperscriptBox["\[Phi]", "\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{
+ SuperscriptBox["h",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "\[CapitalDelta]\[CapitalDelta]"}]], " ",
+ "t"}], "]"}]}],
+ SuperscriptBox["\[CapitalDelta]\[CapitalDelta]", "2"]], "+",
+ RowBox[{
+ SuperscriptBox["h",
+ RowBox[{"1.88992`", "/", "\[CapitalDelta]\[CapitalDelta]"}]], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["h",
+ RowBox[{
+ RowBox[{"-", "2"}], "-",
+ FractionBox["1", "\[CapitalDelta]\[CapitalDelta]"]}]], " ", "t",
+ " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "1"}], "-",
+ FractionBox["1", "\[CapitalDelta]\[CapitalDelta]"]}], ")"}], " ",
+ RowBox[{
+ SuperscriptBox["\[Phi]", "\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{
+ SuperscriptBox["h",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "\[CapitalDelta]\[CapitalDelta]"}]],
+ " ", "t"}], "]"}]}], "\[CapitalDelta]\[CapitalDelta]"]}], "+",
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["h",
+ RowBox[{
+ RowBox[{"-", "2"}], "-",
+ FractionBox["2", "\[CapitalDelta]\[CapitalDelta]"]}]], " ",
+ SuperscriptBox["t", "2"], " ",
+ RowBox[{
+ SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{
+ SuperscriptBox["h",
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "\[CapitalDelta]\[CapitalDelta]"}]], " ",
+ "t"}], "]"}]}],
+ SuperscriptBox["\[CapitalDelta]\[CapitalDelta]", "2"]]}],
+ ")"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.715680224930174*^9, 3.7156802402967567`*^9},
+ 3.799334736445837*^9, {3.799334796785338*^9, 3.799334801254966*^9}},
+ CellLabel->"In[56]:=",ExpressionUUID->"be940035-ea15-46da-b5dc-c3fe4acf3416"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{
+ RowBox[{"coeff", "[",
+ RowBox[{
+ RowBox[{"F_", "[", "\[ScriptCapitalF]_", "]"}], ",", "R_", ",", "h0_",
+ ",", "f_", ",", "\[Theta]0_", ",",
+ RowBox[{"ass_", ":",
+ RowBox[{"{", "}"}]}]}], "]"}], "[", "n_", "]"}], ":=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"SeriesCoefficient", "[",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Derivative", "[",
+ RowBox[{"0", ",", "2"}], "]"}], "[",
+ RowBox[{"F", "[", "\[ScriptCapitalF]", "]"}], "]"}], "[",
+ RowBox[{
+ RowBox[{"R",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Theta]", "2"]}], ")"}]}], ",",
+ RowBox[{"h0", " ",
+ SuperscriptBox["R", "\[CapitalDelta]"],
+ RowBox[{"f", "[", "\[Theta]", "]"}]}]}], "]"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"\[Theta]", ",", "\[Theta]0", ",", "n"}], "}"}], ",",
+ RowBox[{"Assumptions", "\[Rule]",
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"R", ">", "0"}], ",",
+ RowBox[{"\[Theta]", ">", "0"}], ",",
+ RowBox[{"\[Theta]c", ">", "1"}], ",",
+ RowBox[{"\[Theta]", "<", "\[Theta]c"}]}], "}"}], ",", "ass"}],
+ "]"}]}]}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"f", "[", "0", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Derivative", "[", "m_", "]"}], "[", "f", "]"}], "[", "0",
+ "]"}], "\[RuleDelayed]",
+ RowBox[{"0", "/;",
+ RowBox[{"EvenQ", "[", "m", "]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"f", "[", "\[Theta]c", "]"}], "\[Rule]", "0"}]}], "}"}]}], "/.",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Derivative", "[", "m_", "]"}], "[", "\[ScriptCapitalF]", "]"}],
+ "[", "0.", "]"}], "\[RuleDelayed]",
+ RowBox[{
+ RowBox[{"m", "!"}],
+ RowBox[{"\[ScriptCapitalF]", "[", "m", "]"}]}]}]}]}]], "Input",
+ CellChangeTimes->{{3.713804490404098*^9, 3.713804575731625*^9}, {
+ 3.713804617059729*^9, 3.713804802262732*^9}, {3.713805086437069*^9,
+ 3.713805087761485*^9}, {3.713805360047653*^9, 3.7138054175525007`*^9}, {
+ 3.7138055032059917`*^9, 3.7138055066345863`*^9}, {3.7138055455373096`*^9,
+ 3.713805547201209*^9}, {3.71380560417803*^9, 3.713805605069154*^9}, {
+ 3.713805641936936*^9, 3.713805644083353*^9}, {3.713805677768579*^9,
+ 3.7138056794005527`*^9}, {3.713805797365593*^9, 3.713805804323051*^9}, {
+ 3.7138058557084503`*^9, 3.713805917862014*^9}, {3.7138059745918617`*^9,
+ 3.713805981692251*^9}, {3.713806052016163*^9, 3.713806135527362*^9},
+ 3.7138303636972713`*^9, {3.71422851067774*^9, 3.714228510951538*^9}, {
+ 3.714235902144133*^9, 3.714235903653194*^9}, 3.799334996026928*^9,
+ 3.799336926886084*^9, 3.7993370194393044`*^9},
+ CellLabel->"In[57]:=",ExpressionUUID->"64caadac-20e3-498f-8564-b1569b5c21cc"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{
+ RowBox[{"dcoeff", "[",
+ RowBox[{
+ RowBox[{"dF_", "[", "\[ScriptCapitalF]_", "]"}], ",", "R_", ",", "h0_",
+ ",", "f_", ",", "\[Theta]0_", ",",
+ RowBox[{"ass_", ":",
+ RowBox[{"{", "}"}]}]}], "]"}], "[", "n_", "]"}], ":=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"SeriesCoefficient", "[",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ RowBox[{"dF", "[", "\[ScriptCapitalF]", "]"}], "[",
+ RowBox[{
+ RowBox[{"R",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Theta]", "2"]}], ")"}]}], ",",
+ RowBox[{"h0", " ",
+ SuperscriptBox["R", "\[CapitalDelta]"],
+ RowBox[{"f", "[", "\[Theta]", "]"}]}]}], "]"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"\[Theta]", ",", "\[Theta]0", ",", "n"}], "}"}], ",",
+ RowBox[{"Assumptions", "\[Rule]",
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"R", ">", "0"}], ",",
+ RowBox[{"\[Theta]", ">", "0"}], ",",
+ RowBox[{"\[Theta]c", ">", "1"}], ",",
+ RowBox[{"\[Theta]", "<", "\[Theta]c"}]}], "}"}], ",", "ass"}],
+ "]"}]}]}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"f", "[", "0", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Derivative", "[", "m_", "]"}], "[", "f", "]"}], "[", "0",
+ "]"}], "\[RuleDelayed]",
+ RowBox[{"0", "/;",
+ RowBox[{"EvenQ", "[", "m", "]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"f", "[", "\[Theta]c", "]"}], "\[Rule]", "0"}]}], "}"}]}], "/.",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Derivative", "[", "m_", "]"}], "[", "\[ScriptCapitalF]", "]"}],
+ "[", "0.", "]"}], "\[RuleDelayed]",
+ RowBox[{
+ RowBox[{"m", "!"}],
+ RowBox[{"\[ScriptCapitalF]", "[", "m", "]"}]}]}]}]}]], "Input",
+ CellChangeTimes->{{3.713804490404098*^9, 3.713804575731625*^9}, {
+ 3.713804617059729*^9, 3.713804802262732*^9}, {3.713805086437069*^9,
+ 3.713805087761485*^9}, {3.713805360047653*^9, 3.7138054175525007`*^9}, {
+ 3.7138055032059917`*^9, 3.7138055066345863`*^9}, {3.7138055455373096`*^9,
+ 3.713805547201209*^9}, {3.71380560417803*^9, 3.713805605069154*^9}, {
+ 3.713805641936936*^9, 3.713805644083353*^9}, {3.713805677768579*^9,
+ 3.7138056794005527`*^9}, {3.713805797365593*^9, 3.713805804323051*^9}, {
+ 3.7138058557084503`*^9, 3.713805917862014*^9}, {3.7138059745918617`*^9,
+ 3.713805981692251*^9}, {3.713806052016163*^9, 3.713806135527362*^9},
+ 3.7138303636972713`*^9, {3.71422851067774*^9, 3.714228510951538*^9}, {
+ 3.714235902144133*^9, 3.714235903653194*^9}, {3.71568026174824*^9,
+ 3.715680271588414*^9}, 3.715680326295926*^9, 3.7993349974828587`*^9},
+ CellLabel->"In[58]:=",ExpressionUUID->"797dfe69-231b-4092-acad-c86ad74b864a"],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"eql", "[",
+ RowBox[{"n_", ",", "m_", ",", "r_"}], "]"}], ":=",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"coeff", "[",
+ RowBox[{
+ RowBox[{"F1", "[", "Gl", "]"}], ",", "1", ",", "h0", ",", "f", ",",
+ "\[Theta]c", ",",
+ RowBox[{"{",
+ RowBox[{"\[Theta]", ">", "1"}], "}"}]}], "]"}], "[", "n", "]"}],
+ "\[Equal]",
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]fseries", "[",
+ RowBox[{"A", ",", "B", ",", "h0", ",", "\[Theta]c", ",", "f", ",",
+ RowBox[{"YY", "[",
+ RowBox[{"b", ",", "\[Lambda]", ",", "r"}], "]"}]}], "]"}], "[", "n",
+ "]"}]}], ")"}], "/.",
+ RowBox[{"f", "\[Rule]",
+ RowBox[{"ff", "[",
+ RowBox[{"\[Theta]c", ",", "a", ",", "m"}],
+ "]"}]}]}]}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"eqh", "[",
+ RowBox[{"n_", ",", "m_", ",", "r_"}], "]"}], ":=",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"coeff", "[",
+ RowBox[{
+ RowBox[{"F1", "[", "Gh", "]"}], ",", "1", ",", "h0", ",", "f", ",",
+ "0", ",",
+ RowBox[{"{",
+ RowBox[{"\[Theta]", "<", "1"}], "}"}]}], "]"}], "[", "n", "]"}],
+ "\[Equal]",
+ RowBox[{"SeriesCoefficient", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]f", "[",
+ RowBox[{"A", ",", "B", ",", "h0", ",", "\[Theta]c", ",", "f", ",",
+ RowBox[{"YY", "[",
+ RowBox[{"b", ",", "\[Lambda]", ",", "r"}], "]"}]}], "]"}], "[",
+ "\[Theta]", "]"}], ",",
+ RowBox[{"{",
+ RowBox[{"\[Theta]", ",", "0", ",", "n"}], "}"}], ",",
+ RowBox[{"Assumptions", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]", ">", "0"}], ",",
+ RowBox[{"h0", ">", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{"f", "'"}], "[", "0", "]"}], ">", "0"}]}], "}"}]}]}],
+ "]"}]}], "/.",
+ RowBox[{"f", "\[Rule]",
+ RowBox[{"ff", "[",
+ RowBox[{"\[Theta]c", ",", "a", ",", "m"}],
+ "]"}]}]}]}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"eqm", "[",
+ RowBox[{"n_", ",", "m_", ",", "r_"}], "]"}], ":=",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"dcoeff", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"dF2", "[",
+ RowBox[{
+ RowBox[{"ArcSinh", "[", "1", "]"}], ",", "Ch", ",",
+ "\[CapitalDelta]"}], "]"}], "[", "\[CapitalPhi]", "]"}], ",", "1",
+ ",", "h0", ",", "f", ",", "1"}], "]"}], "[", "n", "]"}], "==",
+ RowBox[{"SeriesCoefficient", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]f", "[",
+ RowBox[{"A", ",", "B", ",", "h0", ",", "\[Theta]c", ",", "f", ",",
+ RowBox[{"YY", "[",
+ RowBox[{"b", ",", "\[Lambda]", ",", "r"}], "]"}]}], "]"}], "[",
+ "\[Theta]", "]"}], ",",
+ RowBox[{"{",
+ RowBox[{"\[Theta]", ",", "1", ",", "n"}], "}"}], ",",
+ RowBox[{"Assumptions", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Theta]", ">", "0"}], ",",
+ RowBox[{"h0", ">", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{"f", "'"}], "[", "0", "]"}], ">", "0"}]}], "}"}]}]}],
+ "]"}]}], ")"}], "/.",
+ RowBox[{"f", "\[Rule]",
+ RowBox[{"ff", "[",
+ RowBox[{"\[Theta]c", ",", "a", ",", "m"}], "]"}]}]}]}]}], "Input",
+ CellChangeTimes->{{3.713830432409966*^9, 3.713830504946588*^9}, {
+ 3.7138305454404173`*^9, 3.7138305500421*^9}, {3.7138308771739197`*^9,
+ 3.713830877615706*^9}, {3.713830909452053*^9, 3.7138309608613787`*^9}, {
+ 3.71383378581046*^9, 3.713833801775017*^9}, {3.714130485551214*^9,
+ 3.714130523143881*^9}, {3.7148313838292027`*^9, 3.714831393076005*^9}, {
+ 3.714833632393415*^9, 3.7148336942949533`*^9}, {3.7156803530538197`*^9,
+ 3.715680361902071*^9}},
+ CellLabel->"In[59]:=",ExpressionUUID->"20e8ef60-1553-498f-a1bf-0a8c9e997006"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"Nf", ":=", "0"}], ";",
+ RowBox[{"NY", "=", "0"}], ";"}]], "Input",
+ CellChangeTimes->{{3.714234089654488*^9, 3.714234115594863*^9}, {
+ 3.714237522277643*^9, 3.714237529143321*^9}, {3.714238174543392*^9,
+ 3.714238207037031*^9}, {3.714833890793818*^9, 3.7148339330028563`*^9}, {
+ 3.714834707807682*^9, 3.7148347130470753`*^9}, {3.714838980409649*^9,
+ 3.714838999273652*^9}, {3.799285622440748*^9, 3.799285625431714*^9}, {
+ 3.7997605520851097`*^9, 3.7997605553806*^9}},
+ CellLabel->
+ "In[100]:=",ExpressionUUID->"43352f46-5b8a-4529-aa46-36f7ef839e64"],
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"eqsl", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"eql", "[",
+ RowBox[{"#", ",", "Nf", ",", "NY"}], "]"}], "&"}], "/@",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[", "2", "]"}], "-", "1"}], ")"}]}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"eqsh", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"eqh", "[",
+ RowBox[{"#", ",", "Nf", ",", "NY"}], "]"}], "&"}], "/@",
+ RowBox[{"(",
+ RowBox[{"2",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[", "2", "]"}], "-", "1"}], ")"}]}], ")"}]}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"eqsm", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"eqm", "[",
+ RowBox[{"#", ",", "Nf", ",", "NY"}], "]"}], "&"}], "/@",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[", "1", "]"}], "-", "1"}], ")"}]}]}],
+ ";"}]}], "Input",
+ CellChangeTimes->{{3.714833304993925*^9, 3.714833335986959*^9}, {
+ 3.714833507091832*^9, 3.714833526852247*^9}, {3.714833616613831*^9,
+ 3.71483362647795*^9}, {3.7148337096633883`*^9, 3.714833713847344*^9}, {
+ 3.714833744167742*^9, 3.7148337447918653`*^9}, {3.799285636169566*^9,
+ 3.799285646200262*^9}, {3.799335126013014*^9, 3.799335126612948*^9},
+ 3.7993357464560547`*^9},
+ CellLabel->
+ "In[101]:=",ExpressionUUID->"8703bff1-c4d8-44c8-a81e-e91d05b839fa"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ysave", "=",
+ RowBox[{
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]fseries", "[",
+ RowBox[{"A", ",", "B", ",", "h0", ",", "\[Theta]c", ",", "f", ",",
+ RowBox[{"YY", "[",
+ RowBox[{"b", ",", "0", ",", "NY"}], "]"}]}], "]"}], "[", "n", "]"}],
+ ",",
+ RowBox[{"{",
+ RowBox[{"n", ",", "0", ",", "13"}], "}"}]}], "]"}], "/.",
+ RowBox[{"f", "\[Rule]",
+ RowBox[{"ff", "[",
+ RowBox[{"\[Theta]c", ",", "a", ",", "Nf"}], "]"}]}]}]}], ";"}]], "Input",\
+
+ CellChangeTimes->CompressedData["
+1:eJxTTMoPSmViYGAQBmIQ/Y6nuGD1mteO4vW7wfTWw0o1IHq3tHI9iP7AGzMH
+RBe0VSwE0U7yYfN81752tMhIANMqoRefg2i56VfBdEfLs9hQIP2l9SOYZvlS
+UACip84VKAHRahdW14DoQ07/wXTcSp5ZIHrWAX4w/WN6tEUTkK6aEwem1SfP
+3dwMpDetOgOmJ6Udku4A0pfenVUC0ScMFdRBtISmFpi+EPys6CeQbjvBUAyi
+n9zt2RK97rWjvOACMJ0mO6PZef1rRyGjOWD6n5Uhywq/N46mPd5gmsffzmkr
+kH4i7A2m5birbpT7v3F0kqgF0wCw1Z8p
+ "],
+ CellLabel->
+ "In[104]:=",ExpressionUUID->"111f0497-d896-44fd-b69f-fe8d1e538181"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"yy0", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"SeriesCoefficient", "[",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"g", "[", "x", "]"}], "2"], "-", "1"}], ")"}],
+ "\[Gamma]"],
+ RowBox[{"y", "[",
+ RowBox[{"g", "[", "x", "]"}], "]"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"x", ",", "0", ",", "i"}], "}"}]}], "]"}], ")"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "0", ",", "13"}], "}"}]}], "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.714397726972864*^9, 3.714397751073696*^9}, {
+ 3.7143981156387367`*^9, 3.71439813569718*^9}, {3.714398316550803*^9,
+ 3.71439837502754*^9}, {3.714398492188398*^9, 3.714398606265719*^9}, {
+ 3.7144005390322733`*^9, 3.7144005746383247`*^9}, {3.714400913261546*^9,
+ 3.7144009779264812`*^9}, {3.7144010194203568`*^9, 3.714401019608659*^9}, {
+ 3.71440118486922*^9, 3.714401207801647*^9}, {3.7144014569558372`*^9,
+ 3.7144014918236923`*^9}, {3.714409856652216*^9, 3.714409880467578*^9}, {
+ 3.71473989581593*^9, 3.714739930891138*^9}, {3.714740036996564*^9,
+ 3.7147400372140427`*^9}, {3.714756749870006*^9, 3.714756760772558*^9}, {
+ 3.714756994632874*^9, 3.714757001432166*^9}, {3.714757085226145*^9,
+ 3.714757101025296*^9}, {3.714760509192546*^9, 3.714760520294705*^9}, {
+ 3.714765788216507*^9, 3.714765789010638*^9}, {3.7148593594708223`*^9,
+ 3.7148593599345303`*^9}, {3.714860766342791*^9, 3.7148607664368563`*^9}, {
+ 3.7148658314067163`*^9, 3.714865832005816*^9}, {3.714997994583008*^9,
+ 3.714997994718102*^9}, {3.7150917149706707`*^9, 3.7150918284300117`*^9}, {
+ 3.71509253906538*^9, 3.715092587937275*^9}, {3.715092987220375*^9,
+ 3.7150929944957027`*^9}, {3.7150932000251303`*^9, 3.715093200727252*^9}, {
+ 3.7152925923543873`*^9, 3.715292593346168*^9}, {3.715339210262291*^9,
+ 3.715339231174551*^9}, {3.715713301416644*^9, 3.715713350688313*^9}, {
+ 3.715713500561357*^9, 3.715713504001852*^9}, {3.715713555906253*^9,
+ 3.715713612042965*^9}, {3.71571734136075*^9, 3.715717346519842*^9}, {
+ 3.7157671847358627`*^9, 3.715767185246996*^9}, {3.715767318097472*^9,
+ 3.715767318489037*^9}, {3.799334896769145*^9, 3.7993348990479794`*^9},
+ 3.799334950881859*^9, {3.7993358962028847`*^9, 3.7993358972440777`*^9}, {
+ 3.799362073499237*^9, 3.7993620735703793`*^9}},
+ CellLabel->
+ "In[105]:=",ExpressionUUID->"848172c9-9dbd-49c1-961b-527564a6a5c6"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ds", "=",
+ RowBox[{
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"D", "[",
+ RowBox[{
+ RowBox[{"h0", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ff", "[",
+ RowBox[{"\[Theta]c", ",", "a", ",", "Nf"}], "]"}], "[",
+ "\[Theta]", "]"}], "/",
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Theta]", "2"], "-", "1"}], ")"}],
+ "\[CapitalDelta]"]}]}], ",",
+ RowBox[{"{",
+ RowBox[{"\[Theta]", ",", "n"}], "}"}]}], "]"}], ",",
+ RowBox[{"{",
+ RowBox[{"n", ",", "0", ",", "13"}], "}"}]}], "]"}], "/.",
+ RowBox[{"\[Theta]", "\[Rule]", "\[Theta]c"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.7157186101628428`*^9, 3.7157186683574142`*^9}, {
+ 3.715720355154047*^9, 3.7157203589663*^9}, {3.715767192271344*^9,
+ 3.715767192447032*^9}, {3.7157673089932547`*^9, 3.7157673134649267`*^9}},
+ CellLabel->
+ "In[106]:=",ExpressionUUID->"759d587a-b40e-4347-9ab1-055ff4468616"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"dinvs", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"D", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"InverseFunction", "[", "X", "]"}], "[", "x", "]"}], ",",
+ RowBox[{"{",
+ RowBox[{"x", ",", "n"}], "}"}]}], "]"}], ",",
+ RowBox[{"{",
+ RowBox[{"n", ",", "0", ",", "13"}], "}"}]}], "]"}], "/.",
+ RowBox[{
+ RowBox[{
+ RowBox[{"InverseFunction", "[", "X", "]"}], "[", "x", "]"}], "\[Rule]",
+ "\[Theta]c"}]}],
+ StyleBox["/.",
+ FontWeight->"Bold"],
+ StyleBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Derivative", "[", "n_", "]"}], "[", "X", "]"}], "[",
+ "\[Theta]c", "]"}], "\[RuleDelayed]",
+ RowBox[{"ds", "[",
+ RowBox[{"[",
+ RowBox[{"n", "+", "1"}], "]"}], "]"}]}],
+ FontWeight->"Bold"]}]}],
+ StyleBox[";",
+ FontWeight->"Bold"]}]], "Input",
+ CellChangeTimes->{{3.7157184824662333`*^9, 3.715718607838035*^9}, {
+ 3.715718691760157*^9, 3.715718736887754*^9}, {3.715720032173438*^9,
+ 3.7157200612049227`*^9}, {3.7157203055775337`*^9, 3.715720333433764*^9}, {
+ 3.715767195959816*^9, 3.715767196199415*^9}, {3.7157673312316093`*^9,
+ 3.715767331367716*^9}},
+ CellLabel->
+ "In[107]:=",ExpressionUUID->"f1feefae-d56e-4fb8-926a-d3cb8a1dea83"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"yy1", "=",
+ RowBox[{"yy0", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"g", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"dinvs", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Derivative", "[", "n_", "]"}], "[", "g", "]"}], "[", "0",
+ "]"}], "\[RuleDelayed]",
+ RowBox[{"dinvs", "[",
+ RowBox[{"[",
+ RowBox[{"n", "+", "1"}], "]"}], "]"}]}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Derivative", "[", "m_", "]"}], "[", "y", "]"}], "[", "_",
+ "]"}], "\[RuleDelayed]",
+ RowBox[{
+ RowBox[{"m", "!"}],
+ RowBox[{"ysave", "[",
+ RowBox[{"[",
+ RowBox[{"m", "+", "1"}], "]"}], "]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"y", "[", "x_", "]"}], "\[RuleDelayed]",
+ RowBox[{"ysave", "[",
+ RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.7157133687280893`*^9, 3.715713370526977*^9}, {
+ 3.715718745758847*^9, 3.715718805464264*^9}, {3.7157188468729067`*^9,
+ 3.71571885292091*^9}, {3.715719871049404*^9, 3.715719872680334*^9}, {
+ 3.715720086966139*^9, 3.715720090581489*^9}, {3.715720128014287*^9,
+ 3.715720170573407*^9}},
+ CellLabel->
+ "In[108]:=",ExpressionUUID->"cd17946b-f377-476a-9e76-bdf8ba661a88"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"\[Theta]cf", "[", "xc_", "]"}], ":=",
+ RowBox[{"1", "+",
+ RowBox[{
+ RowBox[{"1", "/", "6"}],
+ RowBox[{"(",
+ RowBox[{"1", "+",
+ RowBox[{"Tanh", "[", "xc", "]"}]}], ")"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.71572046017805*^9, 3.7157204911070766`*^9}},
+ CellLabel->"In[71]:=",ExpressionUUID->"c6ef8042-f2eb-43e8-a577-a92cd7e4b436"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"Gh", "[", "2", "]"}], "/",
+ RowBox[{"Gl", "[", "2", "]"}]}]], "Input",
+ CellChangeTimes->{{3.799323235659622*^9, 3.799323252330057*^9}, {
+ 3.799323282588118*^9, 3.799323298899173*^9}},
+ CellLabel->"In[72]:=",ExpressionUUID->"7de11d50-a8b6-4f54-9e3c-57c0e488da0c"],
+
+Cell[BoxData["2.2646919263813587`"], "Output",
+ CellChangeTimes->{{3.799323237973813*^9, 3.799323252507463*^9}, {
+ 3.799323284364008*^9, 3.799323299127087*^9}, 3.799324577753537*^9,
+ 3.799334955109556*^9, 3.7993427740488443`*^9, 3.799343134460778*^9,
+ 3.799360343753956*^9, 3.7997586378580933`*^9},
+ CellLabel->"Out[72]=",ExpressionUUID->"f8694ce6-dbbc-4dce-b399-525a3607ebb0"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"sol1", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{"FindRoot", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{"eqsl", "[",
+ RowBox[{"[",
+ RowBox[{";;", "2"}], "]"}], "]"}], ",",
+ RowBox[{"eqsm", "[",
+ RowBox[{"[",
+ RowBox[{";;", "1"}], "]"}], "]"}], ",",
+ RowBox[{"eqsh", "[",
+ RowBox[{"[",
+ RowBox[{";;", "1"}], "]"}], "]"}]}], "]"}], "/.",
+ RowBox[{"\[Theta]c", "\[Rule]",
+ RowBox[{"\[Theta]cf", "[", "xc", "]"}]}]}], "/.", "#"}], ",",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"A", ",", "0.1"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"b", "[", "0", "]"}], ",", "1"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"h0", ",", "1"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"xc", ",",
+ RowBox[{"-", "1"}]}], "}"}]}], "}"}], "+",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"0.01",
+ RowBox[{"RandomReal", "[",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}]}]}], "}"}],
+ "&"}], "/@",
+ RowBox[{"Range", "[", "4", "]"}]}], ")"}]}], ",",
+ RowBox[{"MaxIterations", "\[Rule]", "3000"}]}], "]"}], ",", "#"}],
+ "]"}], "&"}], "@",
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Lambda]", "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "0", "]"}], "\[Rule]", "1"}]}], "}"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"a", "[", "n", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{"{",
+ RowBox[{"n", ",", "1", ",", "14"}], "}"}]}], "]"}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"b", "[", "n", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{"{",
+ RowBox[{"n", ",", "1", ",", "4"}], "}"}]}], "]"}]}],
+ "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.714830189789303*^9, 3.714830247113008*^9}, {
+ 3.714830370291354*^9, 3.7148304020998793`*^9}, {3.714830438333508*^9,
+ 3.714830492396922*^9}, {3.7148315519116983`*^9, 3.714831586639285*^9}, {
+ 3.714831775402582*^9, 3.714831788201981*^9}, {3.714832864307414*^9,
+ 3.714832868444124*^9}, {3.714833031190621*^9, 3.714833044877865*^9}, {
+ 3.714834919749164*^9, 3.71483502667636*^9}, {3.714836043615963*^9,
+ 3.714836044589387*^9}, {3.714836290637068*^9, 3.714836324225964*^9}, {
+ 3.714836388083845*^9, 3.714836388262471*^9}, {3.714837415845621*^9,
+ 3.714837426131487*^9}, {3.7148377212331553`*^9, 3.714837747792254*^9}, {
+ 3.7148392507136106`*^9, 3.714839277104413*^9}, {3.71483978480295*^9,
+ 3.714839809483008*^9}, {3.714839847371202*^9, 3.714839847406069*^9}, {
+ 3.71483988740263*^9, 3.714840005018692*^9}, {3.714840743913506*^9,
+ 3.7148407501038113`*^9}, {3.714862699130905*^9, 3.714862699795854*^9}, {
+ 3.714862738005735*^9, 3.71486273821253*^9}, {3.71486289724051*^9,
+ 3.714862979688342*^9}, {3.714863014778574*^9, 3.714863050057831*^9}, {
+ 3.714863159717188*^9, 3.7148631737709723`*^9}, {3.714865798463542*^9,
+ 3.714865812385675*^9}, {3.714865849921479*^9, 3.714866147921616*^9},
+ 3.714866191109682*^9, {3.714866464163389*^9, 3.714866480144454*^9}, {
+ 3.7148666669176483`*^9, 3.714866669139514*^9}, {3.714903915141719*^9,
+ 3.7149039311237593`*^9}, {3.7149046080389223`*^9, 3.714904609087657*^9}, {
+ 3.714905323493993*^9, 3.714905334954818*^9}, {3.714906611952711*^9,
+ 3.7149066120629663`*^9}, {3.714906866596887*^9, 3.714906961540287*^9}, {
+ 3.7149071038967953`*^9, 3.714907104412897*^9}, {3.7149923930685177`*^9,
+ 3.714992452722431*^9}, {3.714992654434724*^9, 3.714992661113427*^9}, {
+ 3.714992698244532*^9, 3.7149927088787117`*^9}, {3.7149927510117188`*^9,
+ 3.714992795766477*^9}, {3.714992843752101*^9, 3.714992844373947*^9}, {
+ 3.7149991209025583`*^9, 3.7149991752794027`*^9}, {3.714999246991078*^9,
+ 3.714999269005369*^9}, {3.714999341558049*^9, 3.7149993418802223`*^9}, {
+ 3.714999448571619*^9, 3.7149994488392973`*^9}, {3.7149997002343683`*^9,
+ 3.714999700405889*^9}, {3.7149999100114326`*^9, 3.714999965622673*^9}, {
+ 3.715000333336094*^9, 3.7150003519450274`*^9}, {3.7150070937897377`*^9,
+ 3.715007146386731*^9}, {3.715007310448257*^9, 3.7150073258686323`*^9}, {
+ 3.715007418053814*^9, 3.715007433977274*^9}, {3.715007485969714*^9,
+ 3.71500748626674*^9}, {3.715007610422008*^9, 3.715007645328251*^9},
+ 3.715007730432694*^9, 3.715007796730187*^9, {3.715007870534253*^9,
+ 3.715007897053793*^9}, {3.715007964185762*^9, 3.715007987473125*^9},
+ 3.71500808240378*^9, {3.7150081322619*^9, 3.715008133401146*^9}, {
+ 3.715008182582288*^9, 3.715008183020303*^9}, {3.715008317908987*^9,
+ 3.715008335583222*^9}, {3.7150085862079563`*^9, 3.7150086653393517`*^9}, {
+ 3.7150088206256533`*^9, 3.715008825537745*^9}, {3.715359332388937*^9,
+ 3.715359361532488*^9}, {3.7153594920147133`*^9, 3.715359492608306*^9}, {
+ 3.715359532303096*^9, 3.7153595531693163`*^9}, {3.715359628424592*^9,
+ 3.715359628600811*^9}, {3.715359794477854*^9, 3.715359797773241*^9}, {
+ 3.715369111630156*^9, 3.715369167534336*^9}, {3.715369206716189*^9,
+ 3.715369254736014*^9}, {3.715369289042774*^9, 3.715369324177082*^9}, {
+ 3.715369396026218*^9, 3.715369461504559*^9}, {3.715369533436697*^9,
+ 3.715369550636325*^9}, {3.715369585854053*^9, 3.715369669350461*^9}, {
+ 3.715369700920062*^9, 3.715369713222768*^9}, {3.715369752443164*^9,
+ 3.715369795768187*^9}, {3.7153783486290703`*^9, 3.715378363055706*^9}, {
+ 3.715379103573955*^9, 3.7153791036833467`*^9}, {3.7153792221685953`*^9,
+ 3.715379291750197*^9}, {3.715379325103009*^9, 3.715379395127963*^9}, {
+ 3.7153794533719177`*^9, 3.715379542562405*^9}, {3.715379708253914*^9,
+ 3.7153797096451397`*^9}, {3.7153798148789167`*^9, 3.715379844847281*^9}, {
+ 3.715379886280575*^9, 3.715379886560041*^9}, {3.715379972458128*^9,
+ 3.715379984145411*^9}, {3.71538001875729*^9, 3.715380019652261*^9}, {
+ 3.715380131884206*^9, 3.7153801348598337`*^9}, {3.715380765078636*^9,
+ 3.7153807651660337`*^9}, {3.71538090726449*^9, 3.715380907360579*^9}, {
+ 3.715381044282898*^9, 3.7153810464824877`*^9}, {3.715381447569056*^9,
+ 3.715381454353322*^9}, {3.715382076114991*^9, 3.715382076402755*^9}, {
+ 3.715382185117015*^9, 3.715382199860681*^9}, {3.715382668012575*^9,
+ 3.715382668108261*^9}, {3.715383209221393*^9, 3.715383209300844*^9}, {
+ 3.715410730977353*^9, 3.7154107310809917`*^9}, {3.715469168703465*^9,
+ 3.715469193909027*^9}, {3.7154701335953207`*^9, 3.7154701336683702`*^9}, {
+ 3.715471026116494*^9, 3.71547102662507*^9}, {3.715471230036982*^9,
+ 3.715471250428534*^9}, {3.715472099374197*^9, 3.7154721072112503`*^9}, {
+ 3.715472270485623*^9, 3.715472271103024*^9}, {3.7157205077825527`*^9,
+ 3.715720523460494*^9}, {3.715720703289529*^9, 3.715720743391803*^9}, {
+ 3.715766745682043*^9, 3.7157667464805098`*^9}, {3.7993238696099997`*^9,
+ 3.799323907817671*^9}, {3.799324952317952*^9, 3.799324954804793*^9}, {
+ 3.799325477336255*^9, 3.799325479054367*^9}, {3.7993350959658213`*^9,
+ 3.7993351192043962`*^9}, {3.799335342377965*^9, 3.799335343744336*^9}, {
+ 3.7993359290768957`*^9, 3.799335938891279*^9}, {3.7993365286473217`*^9,
+ 3.799336568999043*^9}, {3.799338286558119*^9, 3.799338316437047*^9}, {
+ 3.799338468321772*^9, 3.799338477249758*^9}, {3.79933876918217*^9,
+ 3.7993388600466423`*^9}, {3.799343152229542*^9, 3.799343163076515*^9}, {
+ 3.799343234631291*^9, 3.799343235246173*^9}, {3.799343315536179*^9,
+ 3.799343391281185*^9}, {3.799346833508469*^9, 3.799346852547297*^9}, {
+ 3.7993613585733013`*^9, 3.799361380742424*^9}},
+ CellLabel->"In[73]:=",ExpressionUUID->"1ae89b03-fb34-4baf-9dc2-39badc95775d"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"A", "\[Rule]",
+ RowBox[{"1.8607378684081919`", "\[VeryThinSpace]", "-",
+ RowBox[{"1.4743279935141688`*^-12", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{
+ RowBox[{"b", "[", "0", "]"}], "\[Rule]",
+ RowBox[{"2.2413689409195725`", "\[VeryThinSpace]", "-",
+ RowBox[{"7.204729206917607`*^-16", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"h0", "\[Rule]",
+ RowBox[{"1.1843036897731938`", "\[VeryThinSpace]", "-",
+ RowBox[{"2.5481786805164208`*^-14", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"xc", "\[Rule]",
+ RowBox[{"0.3476779616074355`", "\[VeryThinSpace]", "+",
+ RowBox[{"4.730531665844747`*^-14", " ", "\[ImaginaryI]"}]}]}], ",",
+ RowBox[{"\[Lambda]", "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "0", "]"}], "\[Rule]", "1"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "1", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "2", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "3", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "4", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "5", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "6", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "7", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "8", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "9", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "10", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "11", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "12", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "13", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "14", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"b", "[", "1", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"b", "[", "2", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"b", "[", "3", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"b", "[", "4", "]"}], "\[Rule]", "0"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.7153697101111517`*^9, 3.71536979608549*^9},
+ 3.7153698311576853`*^9, {3.715378357564209*^9, 3.715378374093108*^9}, {
+ 3.715378657188444*^9, 3.715378696907753*^9}, {3.715379091259631*^9,
+ 3.71537912483786*^9}, {3.715379205267564*^9, 3.715379233391788*^9}, {
+ 3.715379286079441*^9, 3.715379350717908*^9}, {3.715379386250176*^9,
+ 3.715379416443823*^9}, {3.715379446735611*^9, 3.715379657488537*^9},
+ 3.7153796933678627`*^9, {3.715379821467957*^9, 3.715379909109627*^9}, {
+ 3.7153799648416224`*^9, 3.715379984413221*^9}, 3.7153800200052643`*^9, {
+ 3.715380132508038*^9, 3.71538013546671*^9}, 3.7153807656311274`*^9,
+ 3.715380907863069*^9, 3.715381046708146*^9, {3.71538144798356*^9,
+ 3.715381454782566*^9}, 3.715382076955702*^9, {3.7153821857217216`*^9,
+ 3.715382200207038*^9}, 3.7153826686730747`*^9, 3.71538321055962*^9,
+ 3.715410731765565*^9, 3.715465930202009*^9, {3.715469182320891*^9,
+ 3.7154691941735086`*^9}, 3.7154701341044703`*^9, 3.715471026973749*^9, {
+ 3.715471230718367*^9, 3.7154712513876877`*^9}, {3.715472100152028*^9,
+ 3.715472107492736*^9}, 3.7154722715985193`*^9, 3.715680589382949*^9,
+ 3.7157127216108294`*^9, 3.715718879614915*^9, 3.715719285031939*^9,
+ 3.715720363921194*^9, {3.715720512279315*^9, 3.7157205237783127`*^9}, {
+ 3.715720704456159*^9, 3.715720743685074*^9}, 3.7157667470036*^9,
+ 3.7992843960410748`*^9, 3.799285803659287*^9, {3.799323895506317*^9,
+ 3.799323908538344*^9}, 3.799324577993289*^9, 3.799324955063458*^9,
+ 3.7993254846385508`*^9, 3.799334955706381*^9, {3.79933501013615*^9,
+ 3.799335030446347*^9}, {3.799335102769919*^9, 3.799335119743435*^9},
+ 3.799335151034751*^9, {3.799335321873047*^9, 3.799335344040934*^9},
+ 3.79933557645611*^9, 3.799335764307292*^9, {3.799335932046138*^9,
+ 3.7993359391564093`*^9}, {3.799336552228381*^9, 3.799336569189948*^9},
+ 3.799336783716237*^9, 3.7993369507543907`*^9, 3.799337196595656*^9,
+ 3.799338207064389*^9, {3.799338286995867*^9, 3.799338316717136*^9},
+ 3.799338439660445*^9, 3.799338478114798*^9, {3.7993387866986094`*^9,
+ 3.799338797882937*^9}, {3.7993388371037683`*^9, 3.799338860524074*^9},
+ 3.7993427742517557`*^9, {3.7993431453062*^9, 3.799343163665594*^9}, {
+ 3.799343326502533*^9, 3.799343391620515*^9}, 3.799344041075913*^9,
+ 3.7993468528500032`*^9, 3.7993603439411182`*^9, 3.799361024920051*^9,
+ 3.799361260894652*^9, {3.7993613695955353`*^9, 3.7993613812778587`*^9},
+ 3.799361458914669*^9, 3.799758638024788*^9},
+ CellLabel->"Out[73]=",ExpressionUUID->"b335e31f-78a3-42d8-8d8b-b21916452043"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"sol1", "=",
+ RowBox[{"Thread", "[",
+ RowBox[{"Rule", "[",
+ RowBox[{
+ RowBox[{"sol1", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
+ RowBox[{"Re", "[",
+ RowBox[{"sol1", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], ",", "20"}],
+ "]"}]}], "]"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.799353319995723*^9, 3.799353355121139*^9}, {
+ 3.799358076654545*^9, 3.799358081941317*^9}, {3.7993591771401453`*^9,
+ 3.7993591788655863`*^9}},
+ CellLabel->"In[74]:=",ExpressionUUID->"5db0abac-6a0d-4905-a798-e9fd3825affe"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"A", "\[Rule]", "1.86073786840819188626028335420414805412`20."}],
+ ",",
+ RowBox[{
+ RowBox[{"b", "[", "0", "]"}], "\[Rule]",
+ "2.24136894091957250552127334231045097113`20."}], ",",
+ RowBox[{"h0", "\[Rule]", "1.1843036897731937795441581329214386642`20."}],
+ ",",
+ RowBox[{"xc", "\[Rule]", "0.34767796160743552613681117691157851368`20."}],
+ ",",
+ RowBox[{"\[Lambda]", "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "0", "]"}], "\[Rule]", "1.`20."}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "1", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "2", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "3", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "4", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "5", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "6", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "7", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "8", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "9", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "10", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "11", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "12", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "13", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "14", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"b", "[", "1", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"b", "[", "2", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"b", "[", "3", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"b", "[", "4", "]"}], "\[Rule]", "0"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.799353348813414*^9, 3.799353355630628*^9},
+ 3.799358082190954*^9, 3.79935917904836*^9, 3.799360369079527*^9,
+ 3.799361025044374*^9, 3.799361260973165*^9, 3.79936145997184*^9,
+ 3.799758638057022*^9},
+ CellLabel->"Out[74]=",ExpressionUUID->"ab5517b3-6b19-461d-a917-a713a705f833"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]f", "[",
+ RowBox[{"A", ",", "B", ",", "h0", ",",
+ RowBox[{"\[Theta]cf", "[", "xc", "]"}], ",",
+ RowBox[{"ff", "[",
+ RowBox[{
+ RowBox[{"\[Theta]cf", "[", "xc", "]"}], ",", "a", ",", "Nf"}], "]"}],
+ ",",
+ RowBox[{"YY", "[",
+ RowBox[{"b", ",", "\[Lambda]", ",", "NY"}], "]"}]}], "]"}], "[",
+ "\[Theta]", "]"}], "/.", "sol1"}], ",",
+ RowBox[{"{",
+ RowBox[{"\[Theta]", ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"\[Theta]cf", "[", "xc", "]"}]}], "-", "1"}], "/.", "sol1"}],
+ ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[Theta]cf", "[", "xc", "]"}], "+", "1"}], "/.", "sol1"}]}],
+ "}"}], ",",
+ RowBox[{"GridLines", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[Theta]cf", "[", "xc", "]"}], "/.", "sol1"}], ",",
+ RowBox[{"{",
+ RowBox[{"Red", ",", "Thick"}], "}"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"\[Theta]cf", "[", "xc", "]"}]}], "/.", "sol1"}], ",",
+ RowBox[{"{",
+ RowBox[{"Red", ",", "Thick"}], "}"}]}], "}"}]}], "}"}], ",",
+ "None"}], "}"}]}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.7137866834085007`*^9, 3.713786686617977*^9}, {
+ 3.7137867217375593`*^9, 3.713786743847704*^9}, {3.7137868182565737`*^9,
+ 3.713786841939253*^9}, {3.713786924527413*^9, 3.713786974385107*^9}, {
+ 3.713787042137055*^9, 3.713787053211768*^9}, {3.7137870901431293`*^9,
+ 3.713787090608033*^9}, {3.713787341082642*^9, 3.713787364514805*^9}, {
+ 3.713787741825034*^9, 3.713787770799416*^9}, {3.713787886687026*^9,
+ 3.7137878869430323`*^9}, {3.7137888266494427`*^9, 3.713788842463161*^9}, {
+ 3.713792007167099*^9, 3.713792021787199*^9}, 3.7137922767568893`*^9, {
+ 3.7137944309219913`*^9, 3.713794435906933*^9}, {3.713796878199485*^9,
+ 3.713796887244006*^9}, {3.713796921081345*^9, 3.713796926722969*^9},
+ 3.7137971807617273`*^9, {3.713827438749836*^9, 3.7138274538037987`*^9}, {
+ 3.713827581712484*^9, 3.713827582113104*^9}, {3.714130909227974*^9,
+ 3.714130935160301*^9}, {3.7141311982159986`*^9, 3.714131202051044*^9}, {
+ 3.7141312471974087`*^9, 3.714131274688491*^9}, {3.714131759254038*^9,
+ 3.714131761606591*^9}, {3.714132524986391*^9, 3.7141325265937033`*^9}, {
+ 3.7141337230994473`*^9, 3.714133746090554*^9}, {3.7141354101671886`*^9,
+ 3.714135444491536*^9}, {3.7141356514052277`*^9, 3.7141357777377653`*^9}, {
+ 3.714136651714642*^9, 3.714136680207863*^9}, {3.714137789157419*^9,
+ 3.714137796981852*^9}, 3.7141379430983753`*^9, {3.714138196842355*^9,
+ 3.714138197292419*^9}, {3.714222654297492*^9, 3.7142226816813173`*^9}, {
+ 3.7142241379694967`*^9, 3.714224153092409*^9}, {3.714230783232278*^9,
+ 3.714230783558969*^9}, {3.714230818213155*^9, 3.714230826884192*^9}, {
+ 3.7142341440952263`*^9, 3.714234196383806*^9}, {3.714234229569173*^9,
+ 3.714234230040387*^9}, {3.714831591839006*^9, 3.7148315929177227`*^9}, {
+ 3.7154691998249702`*^9, 3.7154692338848047`*^9}, {3.715720529255381*^9,
+ 3.7157205704517508`*^9}, {3.799284568846949*^9, 3.799284569085812*^9}},
+ CellLabel->"In[75]:=",ExpressionUUID->"120e6fb3-e50c-4047-adda-65f2ccd4187a"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {},
+ TagBox[
+ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
+ 1.], LineBox[CompressedData["
+1:eJw12Xc4lt//AHBuKzIie2+yirKizm2Vj5WSlSikjKbskkr2SKGBUIQkySYc
+RCibyN57PU9GQvqe+3ddv7+e63Wd57qe+36f93mf8z6PiMONM04YBQXFK0oK
+CuLzrmRGZ9BHMuRQ2DFsARh+9d9lV/pcMvxeVkL/BPnuU6m97PfIsOxr74ds
+NQwfTgcXOHzI0FMtV3JIFcPxEssCTncyZHbJamJDph4MseG5TIY3Eo4ahyhj
+eITE7HtBEzL8yHYlMVYJwxNKs4wOCJKhszgznbw8hu98q06V4SZD/7EW4wg5
+DLcb+rkmy0aG9D45kwuyGC6K0b9SoCXDPSdmegpkMDzb0GXp8DIJOnwTzrKV
+xvCy4QPRx6tIUEaMJXafOIYXl2XGZpSSYJeKZstzMQwvjJN4yVxAgpKs2mHC
+yHkGIunDmSToq/jrmooohmcVc5ffe0KC8if8tG8LY/iLaLrpqksk6K51WVNO
+AMOfuQQtSF4gwcDVzOlGfgyP06UiR1uToLnQ4YrLyDFbu9t2JiS4tPSn5y0f
+hode3mD9p0qCygdbTBV5Mdz7+NQxsJcEW1jCvvhyYbgnj6NOJg0J0jyIkZVC
+vr02qs9CQYLqlgcDfnCi+J4ty6yaW4Hqkx8HjiC3yGV17VaswNsHPJl32TE8
+ZzBINsBxBap0n/hYwobhLppaAwF5y/CfYQRzETOGG8TNXbuQvgxPvgx390SW
+W3xCAV4sQzOm26EqyMuJ4xK7Actwzo2hupwJwz22A2/ePbUM33pQ8H1nxPB7
+5V9pfJeXYNzpvmD6vRh+ke3GC6vxJfhGW2StiwHDtVy5ZNV6luACFTMpGZma
+19n0d+USHGLWilRBDvOlT/SMWoJ8zfmiV+lRvNSMDrnLLUHF6zJ6K3QY7hWz
+VntaeAlu/u1srEG2nE0yV2RfguEq/NVxyLwvlvxI24twyLqYShM55Xd0/fXv
+i3Dm+9mSx7Ro/os7zrm5LsK23VvpBjQYDo9YBl3KWoDBAkmqtFQYXuHjNng3
+aQHqaPBYTmEYXl4RcDg+ZgE+/bteU4dcrJs1Vu+zAPdFOHg9Qs49++eY1H8L
+8LZMlTYdcpJH4sbc3DzExFJLeSiJfP1ojA3PQ+9tX/m/FCg/dr6k83bOw1MK
+JmOjyHGPFs8Yls/DyFdSVO+QI+KOfcwJn4diG8v8msh+hSNXbsjOQ4q6Z7zX
+/lHiPpurVSFC8zA0xkvxLLKX5h7O1P3z0Pm0pb8Gsnvdobr27TkIdyc+MSC7
+dD8QVmqeg5Sv6QPe71LiVmtifWtX52D1GTmVjb+UuPIRZwO/3FkYo5falrND
+ibvS61NfTJuFwvR3hhKQU4elqvRezML7DlmMYciMYTOKrA9nYR7N1xYn5Mmh
+yzxZ5rMw/ej3TmHkpyFOsz92ZqBOUEpW0jYlTup3CFY0nIEZ54/lvduixCXz
+tHEufAZeSyu1T0Q+HyS6tXNkBv4qMpOLQm48OH6tUXAGrjqwMN5CTnlkb37h
+1zR8GN+woo5sonBRPOrlNGS7f46v/Q8lnvPAtnZ2ZgoOBIYWMyI3bs5RDQ9M
+QXDI7DAF8sQNL72utilYENr0dXWTEue1e9xYWTIFdUzIhwaQQ47WtD4NmYLt
+Nl2M75EdVsUHNKWmIMcDWGaCzOW0uBpzeRIOUW+WpP+mxJUGfZSDz01CK8PM
+/ARkEzMa7zsmk5CqMbsqBvmRluCWk8oknLwsxOCP/EvAlEKDdhLK2M+7WiA3
+9xQwTr2dgJ22D1UYkR/q35FQnxqHTPI3eQM3KPEe066m7b5xyMF/NfwO8gFr
+2etVreOwgkuK1gO53WWgWKd0HE65Bgk7IQtEaOibRIxDsZCk4ZPIpS3bro6K
+41BlKP46C/Lymbt5Uf5jsFC+3DpjnRLXtuk+a+o+BskvBvhSkeMd5f6wXRmD
+KYkuMy+RNT0GtV6YjsGaqxEJUchh8Zpdb8TG4DKlwg1PZPGfO+slTaPw9/fE
+uhPI1rb+GuMcozCmkbpiZQ3NP93DK4X0o9Bgt154HvmZI5MU0/YIlJIJip5E
+9mUU7jX/NgKDz8JHfci4nZ7qjPMIFFP16f+C3EIZ85s+YxgKMXMKJiDP6kv4
+nBIegqWGDm+NkM+9UmhfpRuCFH7azPrIzWRV6Rcrg/CM+7V7OsgfEwx+jlYN
+QrsVD4+jyF6LN9TcbQfh7W26YmlkqpjyzbiEAVj4714QLbJg7ynffvZ+yH0z
+mLFhlRJvolI8R9rpgwe5z9p8QfY4xKZBO9UHdV8tfITEeFj3jmJRH0wMsXAt
+JcY1re+HmffBsorDYtnE+GuHELVnPyGzBFVyNDF+1TP+GVcvTE5jCLRBFnpp
+4ZXzrweqr2/fsUL+Vq9qWTvTA5MzGn3NiXGhLe7lkh74Wbs/8BQx3nEvSc+q
+B3bQyXXoIAurhqatvfgBdfaKGsojf6dM/HSGtxvel38XS4U8bbrfioq6G/at
+vD1BiUyRGrFbsNQFV6OP/d39RYmrHL9ryFHTBZuV5T23kFP9bKd6r3RB9jfJ
+j8nIXqtCPLZFnZBX/YrbKLLoVPr9K6Yd8FPGbno18rEjAlLcRzugJpmlrgrZ
+KjC+pVGsA8716E9XIEeJBPPK/G6H5v3iR8qQN22vFC6+aodKawrrn5ATP5i1
+T/S0QWW/Ofp05F8xtimbjC0w6ZaoazhyVTHF3heDzdChT6oxFDlsMM1LNacZ
+njH3PRCCLCw9b+xl2AzTFdfWA5GNodfOath3OJOxVuSPnLX02HqF9htkxZ60
+3UL22H+4PrqnCQbTr128iQzUew4pZDTB52se69eRex7x77mmh9xbL3UVmYr/
+XfF8YCPUWzr36TKynUHt/mmKBlioI2xxHlnmplNAUPtX+N3qELcN8nr8ngXx
+1K9QEq04a+TIMZNaR/AVKnkI3LRELvMZuDnmXw87/NnLziCzZ661DG59gf76
+zT/+Qx5tfq5+99sXeNH0+Fd95Pe/jr7lS/gCxcWCyk4iax9/cPec+heo8zgs
+Sw/55g8m2Z/etfDYffUsLeTvVFKhXWvV8GZ4ptxRYv6ub97LaqiGM6GhVurE
+/PU1efonVEPD/U3Basi+uVcdpfBqGJrnOK9CxC//kv8GJ4R60oMth5Gpbe/M
+6+lWwLwnbdQKyDZKgj9X5j7D24LcFvLI+XQ19S8ff4YBoR/eySFfzKd9vdRf
+Dv81l1vKIn+me2oZf6sMLnZot0kju+dn1U0mF8OUl0qy4shNIYb50brF0Gyl
+K1WMmE/b5RS1+SJoKlvATbiV7sidSOUi+ItDmkUU+YAtVDzSXAAflf3gFEa+
+r+QgNHyrAFrLmSYLEfNHR8MUylUA9S9i0oQf5RvMDjjkQw6NvdqCRHzpepID
+/+TBiW+JMfzIqkM+kfIpebBcs+YA4eh8Pr9e3TxoI81Tz4fsXV6bbSH8EZ5m
+sMMIKzj1cWUY50A1arnnPMiDLEKrf168h59Uf2gRDi+/1Go8mQ3jvHOWuZGn
+WEiP1v3ewSGJCRPCSeW0v3SzMmCY2qUDXMhs6Dgs8fstXP1dPc2JHBrLokJz
+4i0kJytlEL59lduvfiINjsqbyRKe/cmf9FYpDcY4UJI5iHzUE6kKevAGmnJ/
+KSVsICiDnRB6DXdqAkwIV4criEteT4UYnx8/4avLTpGMfinwBAxeZEfWSfVm
+jypKgjw/fjwlrOB738rYLBHufuFyIcx7JiyJifwStm26ahH+RZUoHi33HAqY
+6m7uRx4eTHM2+RYPufd86yHcVJSTw+wcB3cOXSwhXBhdRGqliYVMr2gTCKde
+qTryOO0JjBepvEc4Em/wOaUVA0eeBToRXlFK9RWqioLKP61NCH+d/ESZ+icc
+Tn4B6oSTn30JE1YOhWoaypKEPfV/sL6+GQTviR7lIGy0Nf1SJOchxOxNaAmf
+tCLr6LYFQJaxW3/YkDc+s5/VO+EHSY/TlwmnC6ldOlHpAUm201OEM2hLZqOd
+r0PL46ojhKla/+55YuEIr0o97ydcLRN2RjLMFHqw0f4kzM37tsDcTQUUbQf2
+Em4usZHrqLIBt8b39REOY5/xvEx2BvONOYOEn0m2y+RTugO7QstxwrO1Obyf
+wr0B0wfWecLqF8IY8vb7A6Wq/lXC9X+V/C1NHoC9G/n/CC8biqz3sD0CHU4J
+TMT7cSWwXLPoDQaVIk8ECOOzfyd/JIYBBq3nBwk7qyyeN78YCZaHcnQIP3nU
+390t/hikcXRaE7Z1uSSZvRYD7PfQuRO+FWMzPmfxFNj3GUYSThj+75wLXzxg
+yadpIJxLo8X5zv8ZUGG5M0O4Vk6tc3bkOXiyTsFA5MeCn6SBc3oCWD4AzAlT
+vBGgzaJNAgFTv/0Jszex1844vwKONLVZhJMjKF8VcKYC7+sR1ER+Sgv99etq
+SAUXj0UoE87P37Ra9XkNWO6+cibc0LfCfnjgDQjz3OomTJIajsxPeQvuaaZ8
+JdaH6CsWUt+FDMDJMsVErC9zNi0zSuFM4HYm2ZJw+U4aj2lqFlCWufaLcGCH
+S8ZS6nswQR2hR6zf4hOJ9Bz2OeCc5J1UwrOfm69qinwAihITfwkbZRw8HPE6
+F+RqC1TzIkdUbl1g78gDhulGDkT9EPeJZZVW/ASkjjJ3EK5Skvui8eQTUJE3
+1hYgnjfTVtLxdD64d+yEHFGPzj6tXvzUUQCe39MQJOqZ4JVg31OdxSCzYc2P
+qI8lIkKyjkol4GAgmVUC2XSwZNDraQkImvV9Tzjw9BxIPlMKZMYUpyWJ59Uw
+ol3qLAPaI+f9DiB/2scWG95VAfrnUwUPEvXhe7Zu8uFK0Bc8Mkx4Mkhn41Ns
+Jah9V/H6EDLntod1n1kVEB2zPKiE7DfVKyTdDYHFRzVXZSK+QyY9Dq414OWH
+2QuaRL1cXxRTfV4D6rXWjx5D3maKuLW3rgYYGtpxH0fuPt7AWChQC4T4DPsB
+cnAq0KHpqAXRbMV+OkS+OB7Ky1StAz9iWA8aIlvdbf1751IdsI+MPmSEXBd3
+1dD0SR14djzgiDGRL/VZ05vzdYBDslbnFBEPKREBg+R6MBO8HWBG1Jt51vBF
+6gaQUFV8k9ifhanyeqsVG0Azj2qCLXIUn4lEvF0D4Ht54qsd8mWj8OpjpQ3A
+yJdX0p5Yz7nY72i3RnBy9Rs1sd/fvbXqqNjZBEpj6XDivKC32X3MK6UZfE7J
+qwhG5g+rvsrY3gy2vIzPE+eTXzw5iW8oWoD0lOa/MKLeaQT+abVvAfpywqei
+kLfuKRZJibeCy7FnuOL+bz1Fy/VltQEa89NGb4h6GJbGJGjdAfbp59rXIP8+
+zSPhcqsDqJufcf+C7MD7WLMwrAN8vVAZXE/Ui/d+bgblHYBP/U95E/J08+km
+L75OoJYUcLqTqAf7KILahjrB+IO0o5PI68/O79x36AZHC9UE96LzoHTIVvg5
+v27A8zwsnQn5nPcLniNPu4GQMdvBfchVlt0qMzXdIGfPqCkHcii30S1jkR9g
+m4qyUQiZN0Fjmmf0B3h0RzhMGfn4K972fNteIHAiMOAS8s2oUrtIz15wJ6D2
++RXkN/4WS05RvYBic6PQFZnO7ikDT2UvOPr53O5N5HZBBr0A/p+AA7S2+CM7
+pv4pMxz4CQ7oJDq9IH4/7WfapFU/uCSQ+6ED2eDWyFWxG/0g9n2B4g9kRjCt
+7BDUD+IURsp/Ij/pX20Y+dQPQjPqBkeQE1hZFvsZBoB1aNyFZeScAL0jHRUD
+YDSr4wojOv+32+TXVQoPAV1XzXKiv3h6oCxqR2UI/NpYJ5sin/0NLTSMh0D2
+m96D5sh9T1tmS33R91nUqmyRx5tmGQs7h4C6k7vkDeQ1VSHz7EfD4NeKsnws
+Mg975NSz2RFw2d7TZhR5T1vSKRuKUSB6G++bQqaOuy3nxjgKcso6LiwgbwuI
+TIeLjwKKuMCQDeR5xbvW386OApeFbm0m1G81WCvh/xWNAnthaW9N5AfvkplO
+eo2BiPCTJm+Q7173nLd4OAZOF1HQvEP2OWzUcDl6DHDv5H79iHyz8s/94Iwx
+8Pyfhlslsl3H2bX6njGg6XtOow9Z4w/DgK7qOEgYcWTYj/rHdX3vLO3NcVB4
+/xl1DNFf3n0oGkQ1AXho5UufI6PuMqmBeQJkNg55pyBTc6fHGElMgLLzM3wf
+kdlm2n0szkyAu9lcf1qRDwXJ/OeaMwF2aEL4WVH/61ozNPfk4iS4RL5SmoKs
+sD7r2O02CdLqSwXfIZOl14Y4vSfBvgrbuHxknxiGzsSoSRDtzp9bjxxyQbX8
+bfkkkGBvTF5ETv8bE17GPgVyhnJjjqH+fVhdV3ascQroNz/MWEQOejAxOt81
+BaLquP/+RpZrevhsbXgK0PKkXKb6g+qfVQ3lnvUpoCXAfZsXmcv7+E8FkWmg
+YLvP6z9k00K1oLu+0yAphl3/PXKtgvwIl8wMeGyhaBawRYm7eDXHiSjPgHAJ
+KhviPmNflZuBLD4DTEo97hD3HXbG2UXHLWaAngMzXSnytptUpNPDGfD2oeCp
+X8hH3omoF/TPgFW5qm63bUo8U4wz1iRiFrQV2Tp77KD9vWlPjf7zWTAWb+IT
+gixzY3tZO20WPF1LzyXua3LLRw1UP8+CWBJdTA1y4en3mPDCLOhoenqI9S96
+3gDcnWwwB74Ga+mWIj+SOJy6YDEHXuu0zrcg632XaJ1ymAOblW5VE8iNnHtl
++v3mQC5/4TLLLiXe9uHHWG32HJh3br3vijw44Ho6jmEe/KvcOyD9D9XrB7YB
+0ZzzIK49KUoL+YKU6YdQ0Xkg537F8xzyuLsyvf/ReZAoS56ORJ6jp6hxcp0H
+T/SPOqwhb6jGH1L9Ng/cv9/TaaXA8H1xkKU/bAGs3l/2yscwPCFrup82fgEU
+d/SOtyOLVTJloDcAXK6fYlaQVaZtNKOKF8ADN7YieSoMt1XbdMYnFgDjaxHl
+D8jZg4dqMzQXAb11GSyjxvAjZMuorpOLYMB7+u0gciVNgBWF2SJwS87u/4fc
+rtCybO2yCMSzgw+fpMHw3/dd+JieLQL9V9IVfci6Em88bq8sgkhBVkoWOgxv
+VW8CqVuLQOyUtbYqcT9pQmJooVkCTLuU4xeQXb2Pv5bkXwJhq/Ool8LwJ039
+LX36S6DnpvYrmz0YPnxtvxT+ZgkA9rmRGnoM9y1+1Mdovgz8C26zTTNiuOCB
+f/wy9stgT4cpEGHC8NpE34snry0DJvvr+2yRGR5cn3kQtAxSst9n9SAnGFqt
+bxQtA1k3sNbBjOEVo7KsY5wrICuOW3lhH4ZfNMs4uyu6AnI3bnUqsmI49Vfh
+F3wHV0DMY9XjvshG7zmELE6ugObvplEMbBg+5PlP7rv3Cnggs+Gguh/Ddxm6
+9It+roBo3ra5Cg4M1XvjyM7JFRBvXbfLyonhJ0kNbSukFVT/4nmdkRtd7WTj
+qUkArNt7c3Gh+TU1y2/jJ4FW5yvHA7kxPJX3WLWuMQmEKXHsj+XD8F9mW/Zm
+ZiSwP5hctIWsG1VC5WBNAp4GkTmO/Bg++0/xZIATCXQc73yvLoDhilOSrWX+
+JKBcAl5uCKL4fNw3qJBLAv1doKtMFMN9hJ2bewpIIJZhWFBRDMMVnsCKe2Uk
+8F+Zz8o75AT3669a60hg2KVUPVUcw92Vm+2uD5AA3bfiQ6mSKN8+h4x92EMG
+edLFPGsyGN4vO9JhzkwGf8UHWUNkMTwmSaX2734yyML46PnlMHzHf+qNsRAZ
+6F6K5TGSx/BuXOfSkjIZWJtvtdYfxPBHX3en5RzJIEdUMk9aGcOPqlr0djuT
+gd2Ki+0oMinzQ8Pd62Sg9Tm5JEEFw8+Hnc9q9iWD2aKWTC41lL9G5S5XY8ig
+lEpp57AGhs9XsJ5jf0YG8rp9sZgmiqe8i0FFIhmwq4oZdiMzsnDLMmaSgWLW
+stWD4xieJyXE7PyRDP7//5v/AV0DQNU=
+ "]],
+ LineBox[{{-1.2345639289714019`,
+ 2.2811532913526755`}, {-1.2345639289708172`, 2.220676462517075}}],
+ LineBox[{{1.211124107388679, 2.2811532913526755`}, {1.2111241073890227`,
+ 2.220676462517075}}]},
+ Annotation[#, "Charting`Private`Tag$135045#1"]& ]}, {}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{0, 2.220676462517075},
+ DisplayFunction->Identity,
+ Frame->{{False, False}, {False, False}},
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
+ GridLines->{{{1.2223857725160114`, {
+ RGBColor[1, 0, 0],
+ Thickness[Large]}}, {-1.2223857725160114`, {
+ RGBColor[1, 0, 0],
+ Thickness[Large]}}}, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ ImagePadding->All,
+ Method->{
+ "DefaultBoundaryStyle" -> Automatic,
+ "DefaultGraphicsInteraction" -> {
+ "Version" -> 1.2, "TrackMousePosition" -> {True, False},
+ "Effects" -> {
+ "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
+ "Droplines" -> {
+ "freeformCursorMode" -> True,
+ "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" ->
+ AbsolutePointSize[6], "ScalingFunctions" -> None,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ (Identity[#]& )[
+ Part[#, 1]],
+ (Identity[#]& )[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ (Identity[#]& )[
+ Part[#, 1]],
+ (Identity[#]& )[
+ Part[#, 2]]}& )}},
+ PlotRange->{{-2.2223857725160117`, 2.2223857725160117`}, {2.220676462517075,
+ 2.2811532913526755`}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.05],
+ Scaled[0.05]}},
+ Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{
+ 3.7137868428211517`*^9, {3.713786876436328*^9, 3.713786880892294*^9}, {
+ 3.713786911917448*^9, 3.713786975636983*^9}, {3.713787043580344*^9,
+ 3.713787054112487*^9}, {3.713787091884612*^9, 3.7137871303293543`*^9}, {
+ 3.7137873441971073`*^9, 3.713787366054718*^9}, {3.713787744869535*^9,
+ 3.713787772248114*^9}, {3.713787873953774*^9, 3.713787896994111*^9}, {
+ 3.7137880959645233`*^9, 3.7137881089961042`*^9}, 3.71378817266117*^9, {
+ 3.713788840185727*^9, 3.713788843629333*^9}, {3.713792008614105*^9,
+ 3.713792022973323*^9}, 3.713792277625108*^9, {3.7137944343878193`*^9,
+ 3.71379443703505*^9}, {3.713796880744809*^9, 3.713796888383353*^9}, {
+ 3.7137969255232973`*^9, 3.713796927819489*^9}, 3.71379718348458*^9, {
+ 3.713827434665268*^9, 3.713827443488235*^9}, 3.713827482758223*^9, {
+ 3.71382758304496*^9, 3.7138276201271763`*^9}, {3.714131200316176*^9,
+ 3.7141312045699244`*^9}, {3.714131254215077*^9, 3.714131277251986*^9},
+ 3.7141317655386057`*^9, {3.714132521860244*^9, 3.714132531422585*^9},
+ 3.714132594800725*^9, {3.714133724809444*^9, 3.714133751537928*^9}, {
+ 3.714135421393217*^9, 3.714135451507843*^9}, {3.71413567570129*^9,
+ 3.7141356998242083`*^9}, {3.714135733025814*^9, 3.7141357840691547`*^9},
+ 3.714136120052483*^9, {3.7141366600281467`*^9, 3.7141366864873533`*^9}, {
+ 3.7141377784504833`*^9, 3.7141377991028967`*^9}, 3.7141379539677057`*^9,
+ 3.714138050818244*^9, {3.714138200060054*^9, 3.7141382064545603`*^9},
+ 3.7142171461980963`*^9, 3.7142188447804413`*^9, 3.714222440250145*^9, {
+ 3.714222657733528*^9, 3.714222683268447*^9}, {3.714224133382696*^9,
+ 3.7142241549538307`*^9}, 3.714225354640583*^9, 3.714225714002556*^9,
+ 3.714227554313645*^9, 3.714227908653563*^9, 3.71422857576338*^9,
+ 3.714228696834524*^9, 3.71422909104809*^9, 3.714229141599442*^9,
+ 3.7142292486960983`*^9, {3.714230780456892*^9, 3.714230785679422*^9}, {
+ 3.7142308157519608`*^9, 3.714230828606016*^9}, 3.7142340780685377`*^9, {
+ 3.714234224600782*^9, 3.714234237139142*^9}, 3.714234307673902*^9,
+ 3.7142348074233837`*^9, 3.714235165607085*^9, 3.714237644331621*^9,
+ 3.71423838237761*^9, 3.714239395610619*^9, {3.7143082194063873`*^9,
+ 3.714308247142568*^9}, {3.714308319830029*^9, 3.7143083930961514`*^9}, {
+ 3.714308799382699*^9, 3.714308818140257*^9}, {3.7143090986415577`*^9,
+ 3.714309199096778*^9}, 3.714309603240282*^9, 3.7143097173721027`*^9,
+ 3.714310140061274*^9, 3.714310672380919*^9, 3.714310721292274*^9,
+ 3.71439357126875*^9, {3.7143937330438223`*^9, 3.714393762637719*^9},
+ 3.7143937939425077`*^9, 3.714400449835739*^9, 3.714739171437193*^9,
+ 3.7147392613657093`*^9, 3.714755299481934*^9, 3.7148067784238777`*^9,
+ 3.714807443165606*^9, 3.714808174359345*^9, 3.714808692060326*^9,
+ 3.7148090847780457`*^9, 3.71483049403199*^9, 3.7148315942188587`*^9,
+ 3.7148317908338337`*^9, 3.714832871422695*^9, 3.714833048025202*^9,
+ 3.7148350215333233`*^9, 3.7148350520243893`*^9, 3.714836047598082*^9, {
+ 3.714836304567871*^9, 3.714836327074108*^9}, 3.7148363910890007`*^9,
+ 3.7148374291199207`*^9, {3.714837724270095*^9, 3.714837750461904*^9},
+ 3.714839281594843*^9, 3.714839485997526*^9, {3.7148399217687073`*^9,
+ 3.714840006646434*^9}, 3.714840752854959*^9, 3.714862651360503*^9,
+ 3.7148627021396103`*^9, 3.714862740801112*^9, {3.714862969293866*^9,
+ 3.7148629824280033`*^9}, 3.714863054085867*^9, 3.71486317733552*^9,
+ 3.714865815026454*^9, 3.7148658759899273`*^9, 3.714865938320684*^9,
+ 3.714866099372448*^9, {3.714906902368848*^9, 3.714906964342436*^9},
+ 3.7149071068285093`*^9, 3.714992401471239*^9, 3.7149924647613163`*^9,
+ 3.71499272340639*^9, {3.714992783201962*^9, 3.714992810689834*^9},
+ 3.714992857604124*^9, 3.714998519298162*^9, 3.715000485307694*^9,
+ 3.7150072939574223`*^9, 3.715007338683172*^9, 3.715008679832819*^9,
+ 3.7150087425044003`*^9, 3.715093138103307*^9, 3.715097504769623*^9,
+ 3.715097672970394*^9, 3.715355281265408*^9, 3.715359544903166*^9,
+ 3.715359799972622*^9, 3.715368503925208*^9, 3.715369266042727*^9,
+ 3.7153696466716003`*^9, 3.715369680270297*^9, 3.7153697982211237`*^9,
+ 3.715369833127049*^9, 3.7153792367576237`*^9, 3.715379353669621*^9,
+ 3.7153794693369417`*^9, 3.7153799919059668`*^9, 3.7153800219739523`*^9,
+ 3.715380137520944*^9, 3.7153807680415697`*^9, 3.715380909939959*^9,
+ 3.715381048917873*^9, 3.7153820791572447`*^9, 3.715382202952688*^9,
+ 3.715382670493622*^9, 3.715383212766765*^9, 3.715410733790126*^9,
+ 3.7154659319412394`*^9, 3.715469196563748*^9, 3.715469236490838*^9,
+ 3.7154710297069397`*^9, {3.715472100645568*^9, 3.715472110495318*^9},
+ 3.715472274463047*^9, 3.715680593645351*^9, 3.7157127247545357`*^9,
+ 3.715718882482428*^9, 3.7157192871537447`*^9, {3.715720562070365*^9,
+ 3.7157205734647017`*^9}, 3.715720707390379*^9, 3.715720746768032*^9,
+ 3.715766750288303*^9, 3.799284401216453*^9, 3.7992846953256483`*^9,
+ 3.7992858059269867`*^9, 3.799323912055357*^9, 3.799324580480316*^9,
+ 3.799324958397791*^9, 3.799325487523485*^9, 3.799335159000587*^9,
+ 3.7993353476231823`*^9, 3.7993355786743717`*^9, 3.799335766508*^9, {
+ 3.799335934360017*^9, 3.7993359414136543`*^9}, 3.799336571533412*^9,
+ 3.799336786749714*^9, 3.7993372000126953`*^9, 3.799338208400776*^9,
+ 3.799338319448285*^9, {3.7993384529406776`*^9, 3.7993384804907103`*^9},
+ 3.799338800554653*^9, 3.799338862932829*^9, 3.799342774353046*^9,
+ 3.799343172333232*^9, 3.7993433391933403`*^9, 3.799353361219552*^9,
+ 3.79975864026094*^9},
+ CellLabel->"Out[75]=",ExpressionUUID->"f64fff57-5a77-4411-9b77-9bd8f253d866"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"\[Theta]cf", "[", "xc", "]"}], "/.", "sol1"}]], "Input",
+ CellChangeTimes->{{3.799284946143475*^9, 3.799284958684032*^9}, {
+ 3.79936725201728*^9, 3.7993672537375193`*^9}},
+ CellLabel->"In[76]:=",ExpressionUUID->"e652987f-cbe8-428f-8fac-f903bdd8dad7"],
+
+Cell[BoxData["1.22238577251601146753051986174900112705`21.278168878232684"], \
+"Output",
+ CellChangeTimes->{3.799284958958112*^9, 3.799285805980298*^9,
+ 3.799323913596155*^9, 3.79932458056277*^9, 3.799324959995474*^9,
+ 3.799325489406755*^9, 3.7993353491451*^9, 3.799335579446251*^9,
+ 3.7993357666315193`*^9, 3.799335943992426*^9, 3.799336786800413*^9,
+ 3.7993372019462833`*^9, 3.7993382084681597`*^9, 3.7993427744185457`*^9,
+ 3.799367254374248*^9, 3.799758640285673*^9},
+ CellLabel->"Out[76]=",ExpressionUUID->"50ddbbc6-17ca-4570-8e5b-a9a15c66e39a"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"func", "=",
+ RowBox[{"Re", "[",
+ RowBox[{"Sort", "@",
+ RowBox[{"(",
+ RowBox[{"Reverse", "/@",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"\[Theta]", ",",
+ RowBox[{
+ RowBox[{"h0", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ff", "[",
+ RowBox[{
+ RowBox[{"\[Theta]cf", "[", "xc", "]"}], ",", "a", ",",
+ "Nf"}], "]"}], "[", "\[Theta]", "]"}], "/",
+ SuperscriptBox[
+ RowBox[{"Abs", "[",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Theta]", "2"]}], "]"}],
+ "\[CapitalDelta]"]}]}], "/.", "sol1"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"\[Theta]", ",", "1.00001", ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Re", "@",
+ RowBox[{"\[Theta]cf", "[", "xc", "]"}]}], "-", "0.00001"}], "/.",
+ "sol1"}], ",", "0.0001"}], "}"}]}], "]"}]}], ")"}]}], "]"}]}],
+ ";"}]], "Input",
+ CellChangeTimes->{{3.7142298098317432`*^9, 3.7142298123326817`*^9}, {
+ 3.7142298482193117`*^9, 3.714229970202634*^9}, {3.714230013902568*^9,
+ 3.714230017096983*^9}, {3.7142301874072742`*^9, 3.714230189981579*^9}, {
+ 3.7142343285785217`*^9, 3.71423437965909*^9}, {3.714234573883163*^9,
+ 3.7142345750236673`*^9}, {3.714310207432946*^9, 3.714310214897394*^9}, {
+ 3.714393666840551*^9, 3.714393672892824*^9}, {3.7148630616658983`*^9,
+ 3.714863062345354*^9}, {3.715469253144979*^9, 3.715469255605259*^9}, {
+ 3.7157205795656*^9, 3.7157205858306303`*^9}, {3.7993372210502567`*^9,
+ 3.799337223417515*^9}, 3.799338333053911*^9, {3.799343190181904*^9,
+ 3.799343226221447*^9}, {3.7993468644843407`*^9, 3.799346871227331*^9}, {
+ 3.7993574871394453`*^9, 3.799357489522564*^9}, {3.799358668801352*^9,
+ 3.799358705313229*^9}, {3.799358918262423*^9, 3.799358950053699*^9}, {
+ 3.799359741341753*^9, 3.799359745436941*^9}, 3.799361363964263*^9},
+ CellLabel->"In[77]:=",ExpressionUUID->"73340500-3bd1-4040-acba-9424125387d6"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"func", "[",
+ RowBox[{"[", "1", "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.799358895726183*^9, 3.7993588975802917`*^9}},
+ CellLabel->"In[78]:=",ExpressionUUID->"d5ca3013-fde9-4904-ae56-c25c52ef82e9"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"0.0005404597505202151`", ",", "1.22231`"}], "}"}]], "Output",
+ CellChangeTimes->{
+ 3.799358897699623*^9, {3.7993589410974207`*^9, 3.7993589511733713`*^9},
+ 3.7997586404143457`*^9},
+ CellLabel->"Out[78]=",ExpressionUUID->"786be9e7-3b0f-4136-b795-bf88f6c9420d"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"susData", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"#", "[",
+ RowBox[{"[", "1", "]"}], "]"}], ",",
+ RowBox[{"Re", "[",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"#", "[",
+ RowBox[{"[", "2", "]"}], "]"}], "2"], "-", "1"}], ")"}],
+ "\[Gamma]"], " ",
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]fnum", "[",
+ RowBox[{"A", ",", "B", ",", "h0", ",",
+ RowBox[{"\[Theta]cf", "[", "xc", "]"}], ",",
+ RowBox[{"ff", "[",
+ RowBox[{
+ RowBox[{"\[Theta]cf", "[", "xc", "]"}], ",", "a", ",", "Nf"}],
+ "]"}], ",",
+ RowBox[{"YY", "[",
+ RowBox[{"b", ",", "\[Lambda]", ",", "NY"}], "]"}]}], "]"}], "[",
+ RowBox[{"#", "[",
+ RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "/.", "sol1"}], "]"}]}],
+ "}"}], "&"}], "/@", "func"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.7993575106208878`*^9, 3.7993575134109287`*^9}, {
+ 3.799357682447205*^9, 3.799357687318323*^9}, {3.799358087695345*^9,
+ 3.799358110846257*^9}, {3.7993584482373953`*^9, 3.7993584591487017`*^9}, {
+ 3.799359015497401*^9, 3.799359015614896*^9}, {3.799359047888939*^9,
+ 3.79935905274689*^9}, {3.799359143251062*^9, 3.799359143446994*^9}, {
+ 3.799359709645504*^9, 3.799359709812381*^9}, {3.799360557133856*^9,
+ 3.799360568236702*^9}},
+ CellLabel->"In[79]:=",ExpressionUUID->"ea2e280e-cafb-4dba-aebc-c60e354474ee"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Show", "[",
+ RowBox[{
+ RowBox[{"ListLogLogPlot", "[", "sus", "]"}], ",",
+ RowBox[{"ListLogLogPlot", "[",
+ RowBox[{"susData", ",",
+ RowBox[{"Joined", "\[Rule]", "True"}], ",",
+ RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",",
+ RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",",
+ RowBox[{"LogLogPlot", "[",
+ RowBox[{
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "\[Pi]"}], " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Gl", "[", "2", "]"}], "/",
+ RowBox[{"(",
+ SuperscriptBox["B", "2"], ")"}]}], "/",
+ RowBox[{"Gamma", "[",
+ RowBox[{"13", "/", "3"}], "]"}]}]}], ",", "B"}], "]"}], "[", "X",
+ "]"}], "\[IndentingNewLine]", "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"X", ",", "0.001", ",", "1000"}], "}"}], ",",
+ RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], "]"}]], "Input",
+ CellChangeTimes->CompressedData["
+1:eJxTTMoPSmViYGCQAGIQrWZ82C1ozWvHVI0DHiB6U4uAL4i2PFoHpm9I7fof
+DKT3u/0D035LbrwOAdK2DHZvQLRJv2NhKJD+yZrcCKL1xdflhQNp1jfc+SC6
+jeFCTzWQnhj6CEwL3Xq3oGrta0cOo39gmqGx8efGda8dH1xm+QWi//AwbtJZ
+/9pxSfBcMH21lUVhhd8bx58tUWDaxXlzDoj+vW9zIYgWuBhfAaJPXVwFpiON
+c3aAaEPxzt0g+tWLhDcg+lu96wcQzTBvKf9KIH1ArlwSRC9nadUE0W0Lp4Dp
+nMvSxiD6xqw6MP1OfIIliNbY/s0aRHP885kPoq/MqgfTXg3pB0C0lOlGMH1M
+ZIbjKiD9+vFFJxD9KUNSbg2QvnRyNZj+5dTHtRlIt3xeB6YBsiLJcQ==
+ "],
+ CellLabel->"In[80]:=",ExpressionUUID->"25ce46ae-a037-410a-b355-2ba6668abcb8"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "munfl",
+ "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \
+\\\"5.042346297677069`*^6\\\"}], \\\"]\\\"}]\\) is too small to represent as \
+a normalized machine number; precision may be lost.\"", 2, 80, 2,
+ 31364452629816565769, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.799357851391233*^9, 3.799358392543879*^9,
+ 3.799358606574564*^9, 3.799358962490044*^9, 3.799359041535931*^9,
+ 3.7993590741737127`*^9, 3.799359203592618*^9, 3.799359720061693*^9,
+ 3.7993598349495068`*^9, 3.79936046285426*^9, 3.79936087457568*^9,
+ 3.799361088475091*^9, 3.799361318698229*^9, 3.7993614734436293`*^9,
+ 3.799758644461357*^9},
+ CellLabel->
+ "During evaluation of \
+In[80]:=",ExpressionUUID->"032b0621-d641-4884-9779-8ab1250fcaa0"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "munfl",
+ "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \
+\\\"5.04234629767707`*^6\\\"}], \\\"]\\\"}]\\) is too small to represent as a \
+normalized machine number; precision may be lost.\"", 2, 80, 3,
+ 31364452629816565769, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.799357851391233*^9, 3.799358392543879*^9,
+ 3.799358606574564*^9, 3.799358962490044*^9, 3.799359041535931*^9,
+ 3.7993590741737127`*^9, 3.799359203592618*^9, 3.799359720061693*^9,
+ 3.7993598349495068`*^9, 3.79936046285426*^9, 3.79936087457568*^9,
+ 3.799361088475091*^9, 3.799361318698229*^9, 3.7993614734436293`*^9,
+ 3.799758644497005*^9},
+ CellLabel->
+ "During evaluation of \
+In[80]:=",ExpressionUUID->"5947ac78-ae20-4d79-8d85-80319ca3b21f"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "munfl",
+ "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \
+\\\"5.04234629767707`*^6\\\"}], \\\"]\\\"}]\\) is too small to represent as a \
+normalized machine number; precision may be lost.\"", 2, 80, 4,
+ 31364452629816565769, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.799357851391233*^9, 3.799358392543879*^9,
+ 3.799358606574564*^9, 3.799358962490044*^9, 3.799359041535931*^9,
+ 3.7993590741737127`*^9, 3.799359203592618*^9, 3.799359720061693*^9,
+ 3.7993598349495068`*^9, 3.79936046285426*^9, 3.79936087457568*^9,
+ 3.799361088475091*^9, 3.799361318698229*^9, 3.7993614734436293`*^9,
+ 3.799758644533684*^9},
+ CellLabel->
+ "During evaluation of \
+In[80]:=",ExpressionUUID->"69083bcf-8b52-4191-99cf-2d7c7d6bf5cf"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "General", "stop",
+ "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
+\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
+during this calculation.\"", 2, 80, 5, 31364452629816565769, "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.799357851391233*^9, 3.799358392543879*^9,
+ 3.799358606574564*^9, 3.799358962490044*^9, 3.799359041535931*^9,
+ 3.7993590741737127`*^9, 3.799359203592618*^9, 3.799359720061693*^9,
+ 3.7993598349495068`*^9, 3.79936046285426*^9, 3.79936087457568*^9,
+ 3.799361088475091*^9, 3.799361318698229*^9, 3.7993614734436293`*^9,
+ 3.799758644559175*^9},
+ CellLabel->
+ "During evaluation of \
+In[80]:=",ExpressionUUID->"5e95743f-cbd5-444a-8922-717f509c258c"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
+ AbsoluteThickness[1.6], PointBox[CompressedData["
+1:eJw9zWk81HvfwPExqzG2kSVCiyIKIXRV/P85SSFbq5RjOyRkp5IsSSot5BBJ
+EioOByFZ+v4oypooiixjG/s6g7He9/XkevB5vR9+tjp4Wv1FJBAIn/+//5o9
+Fa8pEM9EboZBkv+eioKbdnslnwyIIhlKSRC3OgL6DHq8XEgiaMzSN/StfSh0
+Wnhm3EwVQo+W+O9HB3nDPc0s9+d6gkjYcxuYXI4FTrgvraxDAHW5DbyMn0uG
+G+fa+74H0tH24Fc5PSgfeuOsFGbF+f/3K6vgdxYqoKIR1cbAjuP58MLy+15l
+cwrCfJ7e1LTNhoJojtORcRLitAm7nVYpBCdqnKP9HSKy0T2sJylWDubtg/o3
+FPmQ4a8HLXwJRTC680Ki1u118AunGsWHAXisuBm7Va6A0b1Uz3S9KrB0iVd9
+ucwD6gKBs2N3NbyKMVvr0F6A+Ytdm0y7amCO0Sst5sUB7LxbjaliHQT0TNYd
+y5qBeInAiEn/rxDfwJoTqJ0AF0IYU26tBf4cSVv10RuG94VFUiHH2mC+q3ov
+K78PVF3j9GtYbaDsdEbxiWkH/KroPfPBshNcT2h18S41AWk+yJjL7IGQIENu
+yNU88DvPp0nKZkF9T5qlcH8Z5lbRoFVfOwA3jls+6BNpwT4+Nbt9oWkQVOrO
+idCVurBy2/yZ2MhhCLlrSdiweQCjjRGiUpdGYeRvtdr0rBHMcuEPWVWrScjt
+3XZkr84U1qXYa/vLaRoeJaY+7rObxYa7ZVPWRWdBty9jPUuRiyUOpFUptMzB
+uIv4gO/4ArYtvNo6V58L4RIlDL2CJSyJo3C0RX0BhhkRPtQrq1haoUmA2z4e
+JITEYEPyBJx+7dwfdRNL4FP1Jb8ujA+fTC5OmmxYAb3EJMN/B4h4SI2CXFL8
+GtCf2AXHGpFxr9Yb1wSuEtAGYYv1gCwKLi6h90L0PB+atLjtbSNEw80sfwTy
+somoRMmagnvx4y/HM/nVU0goQnVqSaGVjr/m+BLcSsjoYbIw0HQYuKqH9xmP
+Mgpy7THUGH8iiNtx6WrLI1S0aYdOK9wXQxNNoY5ywb5Qa+rPMf3NRBM5lbrV
+z8OBV7s1uEOFibwWqYZl67dgSUDuVPw1UcRQ9bFr1fEBZ+UZ+4mHIuido6vk
+4YxgkGTsVqarCqN22zQNJ60AgNK/ju+oE0SmGiYuFX1pMBOd5oG7MBA3iNi3
+apcAo0maaefJAujYN5K3RvFTSLru4XrlBT8K4NmcmD/nDqRGHXKcPg2VvHiQ
+fa/0DdxPT+rJ6aSgzZXk1gjnlzDVLbGl/goZ7WTfTuw+nQd1tAaHIQkSsv90
+Odf6dzHkPU3QIL7lQ+T5npLnSQVQ1fbOfrMFAb2zvriV2oSAnZqL/DpWQbXl
+6uIr3nuoMLAKzBVfhoVHoSNrEh+AXtEfO2i2CIW7/4k4V1cJ0Y9m/5C7w4Wz
+z8Yi5mVqwWtZVunUx1nYcfIfqSGjerhrkjUlvTwFep/R+G9mMyjgjYpRnqNw
+Sqju2qaub6DMHo1a6B8AMU+RnhMvfsDLka7Grrxu8CYpXUChP0FXwY6Vk9gK
+rZVq6q4JndC40fS5OKUSzl2mT33j9sD4OZ/k9fR0rOz5WQ091AevGE9OB5yp
+x9pe56wUdvTDa4s42Z9VP7FoR5rInvIhKNdSal8dZ2HSRQdSj28fgbAbm07e
+v8LGcmwYtjL64/DrYGrcFvIEdttuOF07dRK2aaRFthvNYM1mfeH5MjPQVizq
+lirEwU6E2MpC6Szs+31X+WLrPMZX1PTm5l0OeFNkkvYk8rCkb6/evzs1D9Jm
+m6k82xXsSKp7RlDNAjS23h+t3L6O0ZaFBKZ7eFCANt4x5BLwdCPFzDO9yzBY
+duOgylkinumAyXz0X4Uo7SYDoTISHtYZpqCZtQ4OVyhFM3IUPPP09kTzSgJS
+NW8/2hZKxXNJ9P0Fv/nQ0vFnoe/7aXiKNemUdh0RkT9FE1OO0PFOd9d1FoGM
+uqmf/MLfCOBKmYSeyBUyetP1N7+LoCDej0aOKktSkX//rjVjTyH8LN/t9i2n
+aSjUyqRKrUUYH6+YtcAi+FGO8aGkOzKi+PnKfBbvAR1Jf37gP0QURby98idF
+fKLgYddTVXaaMNJSNnauyQ6HqXaOPhEXQk5Tx0rKcy7DtPXY5NUeBnKTOuBv
+a2SPOXikZe6/JoBYv+uoyf4h2AbzLo/TUnTEuEb77gVpUL4mGetTSEMPTFmx
+9Vf9YLL5RMF9Syo6rkKfyKhKAnZ3/9CbSTIKEixOppvEQAKSz62+R0KSCar5
+HoUvYV10+ChrJxGZudTyyz0rgrvDJtuXqwlIPiJyG66TDT8NH9TuqVkD2dLw
+tdG/K+FBwpKZC2EFcuuzP2Y8KwVriBlP2c+DKts5Xn0eguvaLaa//OaB7iN3
+SKO6Blg7mcYi/86BRzl2wd69ForrCgnHRqZB68+KArnUWiDfjd5HMBoHT8U0
+2KzwFQQ0spI8y4bgkmvcj3+KWuE7dd2uR50FsZ6v3v9q+wnLxd3klKPtIDAn
+mP7W7BdY4ceGOA5f4NHGXaQzk11g0r/m/zgjBv4iFCWp3uoFzri6tBfvIxYW
+J7u+jvdDf7kEj73hB7apmyI4HD0InSMu1bckejF3+XHBgOZhKJcgsmVeDGJX
+uz3ah3JHYX62N/z17jGMqHXvwu2ZCdgTXRW86fw09tRSxtf14TQMMjUcBrbO
+YZF7/kwTQTNgpJu95R82F7tJzTpF0Z8D3/gJ5J+ziNmE7TBkmXJh5xts9aDv
+MmYzHDbaLLMAXWq5LMp/1rDggYPUCzcXYYuKeLNzCAHPn/vRUJ2/BOUfbPhN
++vjw1FhSyemAFRB1tNVXNyThGaNbvb3012A04++8Da/JeKnh+xEdXQIquu5y
+eFGAipsNergZ4HxoOLBx4bcHDT8ZiPgNnYgoekZ2DZr58YnLt/qVD5CQ896T
+XulaArj84rdyv6NkpMFQJN+JZ+AbLxx9JX6Dgtbo4wfceYJ4ucbeP4ajqIgW
+2llhcV4Y7/5aTdkcR0N9VWJ7tEEEj5HzZKICftRmOssSjBHFHY+cln/CpqNy
+84rfNwyYOFV63c2ZzkAGtMYP03NM/HqZv8sBKUH07+vhBYcMMRw3qCsMdRZC
+JxUcXlicoiF9LTHqhHkS5Pn09l+apaC6h3tyfYXSgOnxH+6th2R04mOjl2ZR
+FCY2pZ6xqkZCQe2fGHlfcuEWkX3+Qy0f8hVmZD2OiAHtga3bO5wJKNC+62XQ
+2bdQofTu0ThtDTSyd/X5NL+DrQ17vm0zWAZrzrdo672lwBy22G9zfRF2zjze
+vORZBD7ZNV9ii7nAHyTDQn9VwWFT67Xa6Vlwb0/eZtfeAGeXtxStqkzD8y5H
+74/BDbC/V83dq24U1D7kNuzub4L0m7TALv1BEBXvPl6s2wJXM92cEp17QCjO
+Ct95sR0oIR6D4ebfIZChFDp5rxN2J7YUFnlVgZu2quRcVTdYVYbnDYw9w1RK
+prJ9zvVC3a2I9x/HajFmMM8yUmAAOjiRG0lCP7F9jE0n5EYG4WX6ZDUzloWN
+qfu0sUeGYcn8xvY0OTa2PP/11si3UXCwsZnQejOOXfqwr8iPOgFqHSmGDjIz
+mFy8I9c4ZgqsW5PjFXvnsH0/NrG702aAc7g8ZjZjHtuftPFtJY0Dr+tUAsrc
+eBhfr9LImDEXEnsXqJEaK9iJOmtli+gF0DFnfzddWMPochs/D8nxYD4vmf9u
+NwGPuXIWLbQtQfNc67XLh4h4emDzANt8BcKpzHNW6SQ81illiOO6BlI6miq6
+NAq+2NwsyzxKQD6YzReZS1TcpEm+4fFFPmQaHrt/vYGGyxpza5fUiGg17qt0
+vzodr7LQXHxnR0JJylJWn2MF8APcpQJVnIwmG6WjsrkM/FLCBalD7hT0RdRy
+6eFZIbyb2DKaa05FsextD/zKhPFtH7bSBS/TkKP3p9TdIqK4jGPpk4D7/Ehb
+bVwhBYni/nSOMOsuHaV9pV0Q9WHiXrNKGwgFAohWNp0ZriCGH3c8EGg+zECX
+S1sNON/F8AHe/t6GeUHk619/0zlyA26/lLnuelAY9Uqyy3/qiuO75h+V4kdE
+kCGxmWoyIo53hB0a2qwuinZRnvJVJEng96Sym959EUX55Vn9aqaSeIthSV64
+CxPJ29bIvliVxKsMN4T6rTHR/wHFSXH1
+ "]]}, {
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+ 0.009166666666666668], AbsoluteThickness[1.6]}, {}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+ 0.009166666666666668], AbsoluteThickness[
+ 1.6]}, {}}}, {{}, {}}}, {{}, {{{}, {},
+ {RGBColor[0, 1, 0], PointSize[0.004583333333333334], AbsoluteThickness[
+ 1.6], LineBox[CompressedData["
+1:eJwUV3c8lu8XtmdZGZFKQ6FvshooT0miQmhJKBEaSioVWtKgkhARyYjI3onr
+sffmtcf72nvv9fP76/ncn3Puc13neu5z3+dsM72rZ85AR0cXy0ZH9/8vO1M3
+fajQFpLdNymkzOc1pAR0JvXTREjiTUHv6IoztKNrNO0GN5IOmnWs283fonTj
+qOBslBBpthKy0azkHVaWpBCVLki2yU7vTZZ1QcHMeHH4rAB5fYej4UYfV1jJ
+MkzR6QuQ/cuDiS4rH3CGo30Pcx4/qTHeq7Xe/BP4niymy2rwk/ZBQkqBJW4o
+cXjoUd6wgbx+/3X+tm+fYXIqUEz5wQbyre6+KPsz7ogYIb+5bNxAzlIKm1pX
+3fHI5elWzVw+cm/UBgONhC84wciw++IjPlIpoUU2/YYHDD+UZlft5SNVTAqs
+D4h4IqWVPZlhgJf8vPpO+G+ZJ3hfxtw7H8FLylKZDqu/9EJ79m4VHWteMvRX
+enuTwldMXuX49n4/L9ljq8f1uO8rTlU5zEWt8pBZvTZVm797Y1uqdNj9Uh7S
+QplfvlTHB8b2rZd8/HjIvxMeh50Yv+Ge29ipvts85J+j9rOqKd9gmHS0VO4o
+D/lv/7U7nLd8kb/1GZ+2AA9J39MW1rLFD2W3XnhJNXCTzCd445Kr/cD48U5M
+xTtu8iav4pdvb76jcGfbDd3D3GSTQdg5ZyV/2BspNdlPcJETSa30T0f8Ueel
+/1QskovsyjAJtgsKQLSu3AWBG1zkMGeC6rMLP0CcSHdS2MFFZno2TakzB0Lq
+StkPQ9p6Uvmvlq6+SSBkWb9fuxW8nqz4MaBklhaIBVrPkZM31pOFpWbJTzb8
+xOkDhkJ1UutJovheocedn+AwG59fGltHsojlPowv+IlZpZft4anryJeXBHLq
+tgVhYsMmh9yX68h7i5uSlu2DUOY7zXPkzDoyRCLmrBQlCFLbp9XoN64jJ7m8
+/QxlgpE6uEhP381JTo9d/ObuEoz1lucv7E3gJP+NeGmXdgXjSmCEweNXnORF
+iRlwEiF4ycIsUKfHSYpnbJnQ+RYChj67Owd3cpLjpcn9PpMhuOqwkddzhoP0
+s7sR2aMVig7nefOOIg7St5WirBgeitk7A0/5AjjI81vjf3xm+AWvmux5MVsO
+Ms44uHnoyi9kK3FuYtTkIF+eNJ7RSvkFjblG39itHOQz1bmJBN4wFE6R0dtm
+2cln2l51W26Hwcolakm7gp1culwY9Ck/DCYJP77IhrOTrhfFTRi3hcNq97b2
+7Jfs5LDcMW5H+3AojFlELBmykwqtcSmLdeHY4MDH03iAnRxQ5TJ6LvMb2Zfv
+PNHjYyefXBhhZHP9DbUMBZ/rI2wkhWkw1qv7N/QN8q6xlrCRfSoBlhJHI5Bf
+EcehGM5G/pwO2kf6RoC3M55hypmN9BXx4jCajsDv9v4xeTM2csshRYZVnUjw
+v78TO6XKRnqJuAj9ioiEc4KIltx2NlJY+522HvMfHLcIouunZyOT5OIjGa/+
+QRl35T4BGiuZLPFW/u/fP/AvYbBMyGYlrdzeDjwUiMLfW3VXyGBW0jlfoe7A
+vSj8kRjvPuTMSv7eyzu3VByF2Pusy8IWrGTYzsCLheLRmPIfTb+qyUrarrsx
+5/MiGi/tuy9z/MdKHlPva7Nujkbu/h5pfm5WskQ+ivvUgRhwMUuG20+wkLcO
+HXaTco+B7Ke4syoUFjIkdbMpz1AMTgzMFxv8ZSH/fLyT77gjFnou8ZUlASxk
+qOkq+8zZWPyn8VX2ixMLKZcRT2fzLBYm0rrVEZYspEMuJXIkMhZM7x5HbtBm
+IS3fLHHebYyFzeqXwmJ5FvL6y4s7JljiwPNj38ly4bV1wqYpO4U4rIZyXBCl
+YyFbfR1f0JnG4eJBQiGhh5lMPhBf7OoWh610zjLuZcxkD/NorXBGHBJWHocn
+JjKTV9hu/owYiMOtqDFW0e/MpG6mgZzKxni8arpQmOfETHJKTr+vPRGP9a68
+92JvMZPGxbYRd2zjkaY95t6kz0w6hK7/yv4zHulPgkpVDzOTx1QWtcPL4zFP
+KhT37mQmWXwf1msuxeN6lhdRuJ6ZDCWSZUckE1DDsG2INsNE9h+YNfG6mADv
+9TLfDnQwkRIctmaEcwL0DsQJZxcxkUI5ZseG4hMQhhzN1wlMpMcY67xfRwKE
+OAy4HPyZyGMHPD9pcyWi+XHTufC3TKTSvBIH0+FEWJTV8LHdZyKZSy5a/LNK
+BHPczxO+V5hI74e84Xbeibgmu3PC6CQTaarmVr4/LxHPpx7s1JNjIqMZ51tm
+JhIxPBw4+nAzE5lGZ1f3VywJ666b3ylkYyI/cMj9famdBAWusQyNKUYywUb/
+42mHJIgdCGKdaWckl1iZdTdGJOHSR8qjihJG8tU2G9a++iTsSf59pDaFkYzz
+yI7/y5yMS8fzPBhDGMkbyTvPf5ZPhq3g3uQrnxlJu+s5Y5bXkpE1z9Xb5sBI
+zswUv1VzS8aeS5533lsxki46lqI7MpIxOJvkZXiBkTQrL4xlGkyG7Hfe2HPH
+GUneiyIn+zemoO1BFu8DGUYy96wrtVI9BcIn9/OnbWYk3wefepX+IAVb5NcL
+7OBkJGkZb/f8DkqBJ+fMw7g5BnLPp/vt3ypTsLD17ffrPQzkvnfKgR9XUiBv
+s23iUC0D6R604d7r/1Jx91Blp0w2A2l38T/dZ5dToZAgRTsVy0Ayh6acsH+X
+itUdB6+9CWAgFyPfnbNPToXjnHYD7QMDydpe+vpZVyr2sjFlm9gzkKuGChWv
++dKg2cbyfcmKgTxs3Lj/09E0RNNz9aZeYiA/hFD++lqnQVUmc5fnSQbS9t7J
+qxHf01D10oP68QADyfX2pERGcRouWJYEhoozkDEyk/w1c2mwddIZa+JnIM8p
+WkgM7fqLzSo/jfcyMZCuY6QZ2/m/+PRfvsP3SXqyUHJL6W6nvxDasb9tdyc9
+ee2I/9VTcX+hvZKzsaKanrzLbLTzXvtfRPF8zXXPpidjOx2Ev61Px4UDnA53
+4+nJp+miqnnK6Vh4FtNsEURPWs1cCZyySscv6z2vnn6hJ4+9Mj6w2ycd1GIF
+nrBX9ORklSqLUX46hMaeSwzfpyfNW/fwfZ1KR1143N0z19f4bDt8pXr7Pxx5
+pfshV5+eDP/5tYdX9x8KvP/tOq9GT+7oNk449/wf/Ko29i8r0JNnF1JzfaP+
+Icld43mmOD0Z/KBItKv5H0SL275+FaQnN1snZchwZKDx8YZ2Z1Z6svZN0O8X
+hzJg5pzK9mGOjgzvSqbV3MiA/aJ0fng/HVmnIHxLyisDMoFXSpqb6MjmiDG1
+1zkZuNv6s2xnKR3JRW9+nzqeAU66SienDDqy93HA9DGxTGTkb/01G01H1jbl
+VYZqZ6L+sMTIi0A68qAdE8t6x0xc7agT3PqFjrwiE/jHLjIT1HWmLVVOdOT8
+j09J3Y1r9uhTSz4P6chXmvu2XmQDPsud2v/AYg2fw32w5AAwmK5z8roBHemt
+kSOqZg5oudtNmp+mI18O1yXCA9hcyLhkf4SOzLrVmKSSDRTsPr8zdB8d2fqv
+bVvWGMCn1iVD3UZHWsXaOwZzk7AuUerdx09HrsT4buvbRUKOfXi9OwsdORdy
+/pm0CokfMrsb2SZWsSyS7PnoPInfLi7eG+pXwUfLMydvk8g6sn3g2L9VjK13
+m+B8TeKL6bi5x89VRM9sOmzgR0KgufYn69tVBByyOx4eT8LC5vGBgNuriE2M
+ZJ8vIiGucSbzgt4qOt1y3U5TSbR7Pq2TObSKbQpllB9zJL79ahX+b8sqKnSq
+2qe5s6ArPyOlwbQKDUpLpNbuLEgPUn+/HljB3tVF5TCVLOho6SlSK1fgeFLZ
+neFCFuIynRyNUlZwwybsj8mdLHxsVxCd919Bu5OWW+brLASLBvxLeL2CnSVK
+Slu/Z0HF3or1460VVDU4RL9MyIJCQMSv13or4Hi9bbi7OAst9PUnfBVXwLZ2
+YZ+mZUH4dqZ7mdgK2G+WlCXMZ2Gvu9OhLWwrqI8ettnMm42f/Z79rqPLoIT8
+6XonkY3elNDzgvXLsHsutHuGyMarI2HSGZnLOJB6RMn8YjbObs7e/eLXMu5x
+7dtKsc7GWJ/OtPGnZZS+XaRovMnGjcbaMwaPlrH9XoJphn82vGPnu6yNl0Ea
+WOTIJ2UjPtv54Q/1ZZzfLLEQWZoNvl0GKQPSy7jcxMK2qysbWzgszM4KLYN5
+hn/k52I2HkvHHqxcXcJOl/ysrRtywPf6yLBV3xL0q+Pu/ZDKwVK/iOrmqiX8
+6RJZFFPNwTluvan+tCUo9TKZhhjkYNi2O7siaAlT6ra/JG1yYPu+5E656xJC
+k62KYt/lYMd4f1L3gyWYyAyVKAbmQLWRx0jAeAmnp1aic1NyUPBgRtzo5BLS
+3/+y1a3IWTvPcrX/ZJbQltkr0tGTg63qSv8piCzhb3hB6L2VHLhlGk5mMy7B
+Lfi0AKNgLuw3/x21HF7EiN6Tm957c/HniWafeP0iIn9e+LX3RC4MJ4pD5slF
+5Gb1F+VdyUV+U+FwZ8Qi9PcqUkwe5EJ/+cuHLs9FfAw9XbromgvKpNLpxWeL
+SJKXiPoWnAuJr5+ndlstYlmC8kQxPRdcjlvO3dRfhMcWI/nm6lww+O06kH1k
+ES1TuU3PBnKxpzvAYp/EIkQpAjY7GfJQwC+dHMe3iAvyl2ZLhPPg9EhiTGN5
+AQ35ntYPZfOgWPGha6p3Aac9auvFNPOwUZf+elL1AiI7xRTKr+ah8WelskvG
+Ao6ccXrt+DgPspM9hG34AgJ+MxdLf85DuGTF0XseC+jdFs9MC8vDfYFYnpfP
+FkDu8DjkjTwMpmq+CrVawD2LhOva9Wv4PyYsW88twGxk8zvW0TwQx718JI4u
+4Dpj269slnykP4/qfrNnAf1Kq+TzLflo2aAuPie4AGbbj/UqB/LxUXbmPweG
+Bbyr8Rxc1cqHqXB7Nd/IPE6Vb1vJNs9HYu7v4fTGeXRsOcbzzjEfe/1en7PL
+m4dNyep2Ha980PZva1eLm4fFjlsHN0blg+W/ePOd/vOQyP6s3ZmbD7bRPlLg
+/TwaXJ9Zxbbkwzp6smjjw3nsj1V9/3wqH8ka9pf3XpuHy+/B6LPrCkB38ucZ
+fa15NB1+17xjZwEKactPXRTnwfd0N8+8cgHkBQPIavF5HPzXoFWpX4D/kunn
+9/DNw/d3pNfvWwUY/ipM93VlDr7ysX2vnQpgmnYinmdwDsreMydN/Qpw6JX+
+kF/9HFauuCUeSyjAqQV714O5c7AwCjq6o6QAFUKmdzpj58ArsTzM0lmAVG7e
+ez/853AraP2foYUCaMcu2NxymYPXxzr7Wr5CtOVM6560mwNt+oJxplQhDtsf
+HpUzmwO3vOe5CNVCfOy4KSmtO4fkPjcTn8uF2Knr2HFIZQ5HWLRevLtfiIXV
+8im9PXOgKyhPeepSiNVnG086bJxDaNxG1rtBhVinbZ2ayDwHV1/pu+Z/1/wf
+EFJLE7PwDeQfN6ouxJut557pdczCVKbi46WBQngeL/2aUjaLZwzX1c8zFCHv
+zJYLe9JnoSFat+mcSBF2lwv8iAqfRXeFFPd5uSJkKFWfU/k6i2//rLZdOlWE
+2eC8y61Oa/HKvfWNTIvQ6Zjg6WIzi1qV9F9mT4tQbxXTc8JkFl89mzZZfynC
+ThbR/dxas8gNXkp4ElEESs5vsx6lWZz6JHHvbXYRyrPOXy6RmMWPHHNd76Yi
+XIyyXMwQnAU//b9LvyeKEBH2cG8m0yy49OTfZnAUI1XGgFIyMQM+ntrWmu3F
+OCV0qKWnYwadtF9GQ0rFCLjzTJy7YgavyERWVv1iZL5q81HLmEHDMEvrjlvF
+4KPqbH4bOYMTK7/aVJ2KYabL5Uv5NgPPmoD1Zn7F8Kf6zMi9m8FqwNzNtwnF
+aByLFfn+aAZlHZmzf0qKEUUYjPCaz8DEcimxtrMYCkx1Bp76M9A79y94ZbEY
+7gxhJ3aozmCAjyNPir8EZ35/9s2UmcHitXFhg/9KUC/rfuzG1jX+Os+C36uV
+oCG3a4cI1wyKD2aY/rtSgmNBjHualqbhXvT30viDEohq/Tz6a3AaKgyv30h8
+LAFbeqT2s6ZpRO3bNXwttATKb08RpkXT8B2L/uifUQJBybYl3dRpzMj/Z9Vc
+V4Lxvas2WmHT8Ff882LTSAk+PXJ8f+7rNG59OVJnxFKKCDsTaQvnabCJjVoE
+bSnFD0fqaecH03AWqFTsP1CKO5MPyqKvT0NzdvS0nE4pPKMQ0Kk3DWNf4x+O
+FqVYt98vcofqNLh2/7e/5HkpmEX4O6xlp/FbwIprk08pUtWsJPLE1vBkd/13
+J7YUxBlOm10807jv/cAtq7AUk+V+v76sTqE02VxxI7UUBWVDSeyjUxg7y7nH
+Zr4U5znoPri2TWH9UzvzUt4yXLNgEdxYPoW/Pv/6JaXK4HPG5FhMxhT23BhO
+fa9ahmecPotno6ZANypaO3i5DKTGLbnl71M4/8X48FnbMtDMyZqED1NYx5g/
+kexahuOjEWUPHNbw1S3mtoaUoYzjJtfR21MwTLmg7fqvDHIDFq8FrkyhnP73
+9FxtGaCiuGX69BRC6D8IWA2XwT/me3Gb8hS6sg74NjOXg0/v6ePqPVNwrcix
+PbulHPt2dgpWbpoCn6xicMGBcsi85/Gq51zjd8xf8phOOeILr9P6FifBHzXD
+mmFRjoxP5iOMQ5N4a3eGUH5RjlvWeeESLZMQnA2tTPcph7SFAf3F0klconBk
+qMSV4+LNzX2f/k2ilN+JObeoHEe75LQq/0zCmUUo8jStHMLqHWKb/Cehea4i
+um6hHJ3un/XvflzDW0rkNd1QgWN91XWljpPYrFtVO7anAuwbL/vIW08iZnHv
+/Eu1CsjvW3INNp5E9XztcwGjCmzgiv8pqjMJhh+VVpEPK2C3+LU4gJhErOee
+1OOfKrBduW9WUmYSe5rGbrX9qoBMKNOmTLFJMOfteWOPCjwjbosb8k5ila6P
+dVNDBe40gI2eYRL2n2Un/o1VYG8wmRwzMYFdNziCY5kqoVOns82icwL/yekw
+MPFWIkPdWml37QSOxtzxvrS5Er94Dk+N5k6g7sOQabRkJYpl545mJU1gOUTP
+nPlAJer20W3w+zUBxZVdP4xUK/Eko+KKo/cEHhWP8aRoVyLKhI7X8t0EUiwO
+pvMaVsJRQHO74ZO1/SavAu5YVCKe7pnThZsTkLYySC+2rYQJ9+fdlw0nYGuu
+xif5ohJnwz7Q3zgzgYPXS4LffaiEup4/09MjE5D0f3Sv36cSlbdYd36VnoDG
+0/LHp0MrcbFij/7frRPQ/GSYER1XibZ3b5x7eCYg8e2XyobMSvA4R0eLMEyg
+/e2h5cfFlbiqdj77wuQ4Km1959splbD8qJ7o2zWOG8HnFTQ6K/Fzm+Xjnrpx
+LL6fjIobXdPnfhqDUsE4MguWb4guVYLeQP+kV+o4BKVWTN6xVUG32EJp7vc4
+oiOffZvmr0KEx7FKU79xMDxg5zfbVoVqHrXl2g/jSG6QqKzZW4XmvoEk7Wfj
+mDC0KFdTqoJXQdFIxd1xcEfrcKeoV4F104fvl66NI/XPbQ8p/SrsrpxK6NMb
+h/l1TcMfJlVg4m2TfKE2DgNOGwuB21VYZFSc3HJgHH8576Z+eFyFr67rmfN2
+j+PzfLk2s3MVpFifnrsvPA5WH9E9z92r4MyfQNnFOY4nDZ1aC/5VsNdjfElb
+GoNFU2zKo4gqCOws0QgdGUP2ILfVVHLV2vz/YsfdjjGUvvtoaptThVeO0SxH
+q8dgdSU5ZLKiCinvp3uFcscwSwjJPGypwrdMjoyZpDEEKx9hnuurwhQ1xb4l
+bAx6b5J2OkxXgXd7s3DRtzHMO693o2eoxp72Gx//uY5horxa7R1XNSRtr5Um
+O44hQtxDnWdTNbhXukpT7o4hw6HF89vuanDs2+qMa2N4O3NYZqdCNQp5dAfL
+9McQ06UqHHu0Gt/ryqdpJ8agVOhw9ohWNc6GrPquHBxDpe4TSolBNWrNjarE
+pMbgc60g0vBGNbQ8Hrhpio7hFetM5dD9avAxd5U85lrTw8lT/fnzamzIvuIY
+TTeGMTW59Rs+VONU4PH9dd2jKBg0Fg/3qcYqG8/+y8WjSDsZ4aYSusY/YrB3
+MHoUlZdCzlDiqmFyPl/ZxWMUF3Rar9zNrMbbG/Fb9j8exaprN8leUo1jN7ue
+DV0ZxcoPrSeh9dWg5cafij02isuVRq6qXdXYbeh178WuUbRfWBKijlXjo7J4
++xXOUUR5Ni+8WK5GiIao84mxERw+7KywnaMGwj3ndJXqRsAv45SXK1iDz0FF
+csp/R/DptUm05Y4aFPR5btT4MYJFx5DR9TI1CIwcG7/6egRKX1reJx6uwXOh
+A9HOViNgs/zieEWzBpKqrYeTtUdgXX+2hPlCDRhbHT5OyI8goT/INta0Bla9
+RW5KwiP40LjB7srdNTxTb/lPK8PYvWEfhd2hBpPMFMvhzmFcUHjhnvquBnFT
+HlsvFQ0jZJ3Hb0uvGvA9WDpZHj0MK//JLSJBNRgOulit4zkMirD0RGl0DWJl
+OWJangxDurd8x8v0GjBt8ip/YDKMzu+miQcKa/DW2GvbxhPDeMn0KGS4tgaf
+/ub45EsNg0Hk61QotQZ3Lad2vuAZBsl5NtRkpAZ+DYIpajNDCFCSTRFZrMHN
+u/uP8rcM4YhSgVQ9ay1uHH8YN5I1BMaqH3Re/LVoahFYqgkbQvWshuK5bbVw
+nbzHm/txCDNNZ+v4pWsRJrNAy7QdwqvGE3UUpVpcHVExzTUYAv2bZEXfk7U4
+s9j9opYYQl+oLKPJuVpIGcbIjIoP4Zacupz4tVqUcD64zr9uCMMXnQqG7tTC
+skCcU21iEIGPHuckPa2FQXG58LOGQZhvT9r14m0tNvm4v8zOHETj9qLx0561
+YMkKV+ANHcQPWzVx4Z+1sPh9Q/ym6yAOq6Vk9UbVQunsfvUym0GEz8UVpPxd
+wxP6+l7p0iBKJfIOvi+oBd+nbbQ4lUHw/HzJd6W2Fs/2v1WVFx/ETdPHl2So
+tYjX+eifyTkI9SAlDpaRWhiG8fToTwygrNhAonWhFhsMmbgnGwagYG+RkMRa
+h38RNpzfMYChN9ORbvx18CftyrV/DeDBrBffrW11GH15+jTnxwF84GjuPSld
+hzSDgw+rbAcQKH/xv13KdUhk9SN+Xh6AzSb/DmaNOjRbD/o/PTYA5UCCufdc
+HYLN4p2MJNbw66p8i67VQfHFpy5N7gGAufdnlHUdHAflEomZfpyP4dvkYV+H
+ejmLHpXWfsy97WN5+q4OhBDr3ZO5/Vh8umRu6lUHJxMGVYPIfnT+ph06E1SH
+sogr+g++9OPr7X0vDsbUwfL4Xm+fJ2vxdO0O7/xXhw0TAfT5V/vRIKpjzVdU
+h5iq0TdLJ/vhXHxakIFSh8AdNpsO7+vH9w8M+ydpdTDa+TbhtWA/BErZSrpH
+6zDdEX6cstwHVsmphsalOtxdd5WU6e7D26eXTSrYKcip09jiWdoH8Yoq43xB
+CuLBq0eX2Ae922P1mTsoqHxof/ahXx9MKs6UpMpQ8Dz0Etfkqz6IRTkqJh6h
+QLzu44snN/uwbkJ4R9wpChSP8H5n0+vD1ezUdzEXKWj7MXA+ULEPLk/Hb8aY
+UXB2h3zw0W19+BdtWBxrQ0GLlMCTfrY1PnvcwhKeUUDKlJb6jvUiZXoHY6or
+BemBIR7nGnqReCq+NcOHAsuExWxBshfigdUH80IpsNIgzlLDehEdspmvPJ4C
+SvawTKJbL3yI/9ZaEwqGurwuu9n1You7t2ZXKQUn/lCy75v0wm5iLmy8kYIE
+aRMT45O9ODzT/46ulwI7uxFxvX294LFkGuaZouC4mf46baFeHNei1W6nr8d3
+p9tseqs9+Na1+dgBrnrsm9zNY9zbg/2/dOVOb6pH2mEn4fsVPYhT2/j7mkQ9
+Lh90FfmU0oOxyHW/nuyvR2+XIXv8jx7IMxRLeqjWQ0ZPrKX1bQ8awwYVonXq
+8fMR33veez34fXB9YfGVenTz27NoXepB4pvizj6rerT5xp36fHRtHYJ3bHb1
+YGcUPdMs0QOelncpkq/rsSdJml6atwd08dn3zrjXQ93y9tV3892I7mFPuhdQ
+jyHGG1cHqN24+XDx9dfIenS++jurX9yNAE8FakZqPSprBTfnxXdDMlmvuCev
+HsVZ+wuO+HXjzNvJo7w19fhT2j6U4dSNkbHEE0c66vFJcPD1idvdKBXa33hz
+uB7PVZXf1J7rxsUrfEvfFuqxzSCr9+aRbmwxHIwuZm2AYpR9INuubvBd2MS5
+zN+AA3gYFsXVDc3bq5tktzfg+47CSYPZLnzeM555Y18D1M19HNZ3dKFT9v2U
+/+EGJAxvVCws7ELXpasZFM0GSPS9E3OJ68LZFG4R3osN8JRQkNL37YJxoAyn
+ltkaHq+t1g6nLhwKueLuYtMAuicRLxdudYH/896oomcN2PDldGbDuS7IWB8x
+4fjQgBeVNQsZR7og9mZX+JlvDbCuKpWO2NWF1itO7z7/agCTaqmuP3cXVhJH
+6CgJDTAqsDX0nutE0CdGvs1ZDajvvnfch9qJkd1G/8zLG2Db70AfWNyJiqWv
+dLHNDQgvu/IxOqET9wvOtC/2NYB9F7Ut53snNF6IGGjONGCMpWe43bkTdMbf
+rX0YGyE1ohfPcLcTTBRrsX6eRuz4I7Lzv0udMPsufVd5SyNOaisrXznWibfB
+jw3d9jQigjlz9ItUJ4o3D3R3HWqEN3+KYuWGTgTbi3EfVm9EStIJXv5lGs7c
+Sav31G/EMVZPa+MeGnRoekdHrzZCfpqiGVNBQxG7q+Zp60YI7dT2Y0mj4ake
+3VS4fSNimo8bmgXRMHRT9yjb+0b0j697VehKQ8SxzfusvjZiLomNTf4hDfeZ
+GbNKghsx2BzYHWxMg7R40My+uEYIWGpu2KRBg8ZZ30qvzEYM+7547yNLw7dH
+rjrLJY1obyk/KrqJho5CgQc3GhsREJEv+4uJho+pjSpVPY0wesl0/sAIFbvm
+7GKPTDWCqUQ6uLSeCnN796JI+iY4lEzzW2VRoWVX4LKJuwlyHzcEc0ZSoWqa
+PvVBtAl85afVEz2pMJziYqOTasLroVuzps+ocNttlvfgYBOEKKdihCypUDlo
+tHdQrQlhE4U3qnWpSPn5/eh1vSZU8VcKeihT8WtX3mqLSRMazPVTDcSp8Ct8
+cuvSnSYEndNR28VNxeNSo9d1T9f2OxUlzM11oCON//S5d01QSqlcraR14IKh
+Klnr1QTjXIdtMaUdOJ3p0nUhuAlPno/weiR34Lz8l9Sm2CZkROgUOwR2QF97
++fDVzLV43dXHb7t0IK7n3v3ekiZQ/RLsrj3owDWhLwb3GpvwbWq/yRXjDhwg
+WCYXepqwP/vX5BWNDlTQ2RJvp5oQamMofV2uA3OqzwgBhmZsXIhjuyvagXyZ
+8skQ7mbIl/E4vGDpQJIiu9GBzc2o+1jGuI/ajmhein2RVDNClS/stkxqx7O4
+5rPGh5oxFfr3/J/37Si/kNUydaIZOMHxatGoHQ9eS4t91G/G6JDZj/Ny7djA
+ULJp97VmqIUuBP5lacf6VpXKbOtmbPHkfCrV3AZ5SzmVqw7NuNvcuzk0pg0K
+h7VvrL5vhoDj6HOp123QOqisGei9xu/wF4+/l9rA+CyoVzW0Ga4vdM6c39u2
+9r7uVe2Nb0ahYrL/An0bxNudDT6SzXiSbWYfQWkFd9B56f3lzRDJYWs0i2zF
+NP3JrLbmZlQLmkRIvmjFsBPTBpf+ZlCi5TvnzrWCb+rQzoOzzVhnd82uWrIV
+SeZu091MLZhQrL6cvNKCN/IJb7/yteD4m2cvQ2pakLqq06wh1oKDHnfav4e3
+4FAi7/jS3hZEiSdZ/nBsQf2rkKJ45RaIP3rC+0evBfe7E81varZgneBwWfbu
+FvwXMJq342ILIilnv3QuNWNzCv1gm1kLliMn9biqm5Hn5FPnd78Fjd5yTMfD
+mvHux7U3l1+04PyHx74v13TbN8qxIvKpBR3nVDiKdZvxMFD1SKtfC/Y4cGiI
+7m6GgVSK2s/fLeiRt9F4vNQEFS0hAYuUFuQo89O1VTXhyAa+GOm8FlwuCrqu
+FdYE7soLG+aqW9B1t9Ei32GtrrZ5qeZ0tKCV9RW95lodPB11OPJ5pAUF3rbi
+dbubcPB2JpPJ0loeh78U3lxuhA0/x7d9HK14ylPRzl7TCMcYnkX6ja14LSRx
+NT68EaE6Tnso4q2o2BmuYvasEZv0Nuz5I9+K23k37m0914jbJvcXnI6t6S75
+bqBTshGXbun5Gums2bmOBMWtNsA4yZxT0agV339lf3hX14DYQmNtwVut0Hc2
+/WEZ2QAvh7Hr049bIfr+foXuywYwT5WdobxpxUzOOT61tXciICCCPc2zFUct
+7IyIvQ14c0jJzz+oFQrR534dZ1yLXyzD8Dq2FYcK79PONtaj6LcqcTuzFYG5
+11ktYuph8mSn/oXSVrA65nG8ca7HqISrimpTK6peHKNFGdaDMr2HQaavFeN0
+H53aZOsxffNfwNaZVnxLt+wSYqvHyNUJfl6mNnzvDVwwaKPAbMXJnImvDaZi
+6/+FJFJApO52n9/ahmC9z1vmXCiI1vX0GVs756thGzeeu0bBk5YXDv3KbRix
+/RGQepCCrWkhR7o029CzVTJcnIuCTd4pLR0X2zC4MU/Kr6sOiw9sLrebt0E4
+/aOocPpaHxnoktJu2wbOo+G2P9zrgJT0KerLNuj8UdslbVmHkV8ZfD1ubfiV
+5i+Vp1KHxkhNviH/NmgUzT0yE6iDnr7w1GRkG8bKQunXDdWi5WlP6nJaG3Yr
+r5Lp2bW4f/bWNfbCtbqdsIq0/VaLcj3TEUFKG9jlzqfI36uFre6bq7u62iDm
+pNS8qF6LlJ7j2Qcn2vAqzH996eZaOAbW652ma4fru3UnQqZqkPebteQqVzv2
+7Nr6+HVJDTZsc9nzWLQdba/t/G+vzXGhjwQeuku1Y/h7VuSVJzXIvn01/M+h
+djhqJnw7d7YGENqeX6TejkOH1hmf212DfW28FX3n2jFJ8Ro1XKnGiye9OezX
+2/HkxI4Tt+qq8Wb6cuh/Nu14q+p+/tWfapjG7Xyg+7wdW7fkC/10qgaLybLM
+44/tyP0V96rg8trczhTQEujXjiQRrY/TstUg52FX8rsdr4T9pPewV+PDkCjj
+XEo7vrmFGVl2VKGh1fr5rvx2vPzzljcqpQoa2+8NX6htR22ZwbH5T1UIv96s
+9Z7Wji7bE11nblRh6cetnxlj7Ti7z3487EgVbki19E2utEPGU+Eqh0AVLM8/
+4Pu6dm+3SiTufjBUCUO3XXsS1nes9UkniO6cSpgM0VSq+DugYnY4wMivErkk
+q/bYpg60684ot96vBOk6eYlnRwfsOxq4zU5V4uss01VZqQ7sfKzHO7GtEmmN
+vtf1ZTugeCDxLtdkBfrl+M0eHeqAd1zbtHpQBY7vq7zmS3SAxUEh5KNuBWx2
+SRtBvQMfP1OsaHQV+OX38UK3VgfIPzP7T8SWg3ZEW3vd+Q7YHqifTTIpx1Rv
+hZrClQ5s3F4SoMBdjtuB95WMrnfgS8V+kazMMpj6ft339mYHnBdcDAyty+Cs
+8H1nvE0Hqj21zzBuKcPehU7htscdEIvjp6WWlWImqJyb80UHmixecjg4lmKC
+L4NF8W0HXNI0ks7sLcXUZZ5Vi08dePJEulqqtQRXUyXnvb06QEiz6Ap+LMEX
+r5vThd87sG45fhv3kRJkvleYWgjugJTrbgWB4WKoGvRP743swPte88cS/sX4
+NT2wcC2+AwX3nrdpaBUj0dGP0TutAzfTPS88Wi5C0BEjnjKyA/ce11XGRhXh
+WMyXbUyFHRg3enFkzqgIC08CDh6uWMPj6vxwhqsIA/c79R5SOvByySAmKrMQ
+8v65tjGtHSg1OOu16W4haiVDfQe6OhA7S+z7urUQXI/7CnYNdazNtXF3NlcW
+4JjAxOL1yQ7MtCkdi3tRAMEM8YNBC2v7t7/y1ZUtANPl3idUeip67yndXKHm
+4zeTX+42diqEzMV/pnzJRxhTqNB1HioMYvlkHI/nw7jSyjZUiIoDjB2sOlN5
+EF+v3dC3hYrjM4+F94bm4YJbsvreXWt90jjlvNCFPPhdZsP9vVSsCtNHr2fN
+Q/XP8GNpClTsPrBuA09qLq4WLJXTHabiur/Ioy1WudhmdNNC8zgVApuvFB4S
+yUXGzoucHqeoeNe9ftG4JAf+3JLprWt92KDt09XPDjngJdTtJA2oGLGfzy/f
+m4MXTAJHH12l4lT1qOrG9mw8py4K5FpQUXepwuzO52xMvr02z3eXire9glvK
+j2VjX9OfAdNHVGgq6l1VmszCukG1gQRHKu7WCW+OD8nCtpXPc8zOVIwv8qnv
+v5CFqrdzAgYfqJD9Mlqaw5oF/b2dqlEeVJzltA42SiPBlZf6nMGPitcXDNIZ
+bpHwukAtvRRExYOidywJoiRKRfKkYn9TwbCJHG75DqxzKP3GFkeFnWDAkhUd
+ICd4VcQ0dW0dFbx5vVkmqMl9f/6BirQDVIX8ggy4G1Xobiygopvv+S6vPRmI
+VHZkf1hOhf/rDMoTt39ITTSsra6j4r93U5IPJtPx2rg2XraVCtYED6bXF9Mh
+TK8b6t5FRQ7L9tO/0/9ip7fyn4lBKjwqjtA6t/5Ft9ZKwbnJNf/n36PlX6fh
+gjPjfMoCFYHOHF4+fakwrEwiRBlo0P3v1lM+rVQMTj3//pKdhh0PUo//jEuB
+8FApdx8PDZcHGShqgim4QmP11dlIwxVPG8Hlp8k4f/C7cupWGhhijw0UtSch
+4tn01LbdNPRF5R+IVEvC8efP8z9I05A5b0UN/J0IUYVfsXP7aXjZFlERwZUI
+mdK6BPMja/imW3oLbRPwOuJpZY0aDfM7765fbIjHlRv0rMfP0DChZCRxTCUe
+N0soFxP0adDizNzsFxyHsUaLnJ2GNPDJONSwscehIH/bKW9TGoLPeu9zsY5F
+3KLNEMdNGh6wasiohMdAWyg/4rkNDYLnvXs+2UbDfNjVefoxDWSwjzYLEYXh
+N7KOt1/QICI2rhDC8Qcntot/6XpLA3u+9Q1LSgQuydflGrnR8HMHW6xe0G8k
+Xo8VaPhKg4FQS5updTiCv4g76wfQcOm9LOmjFAaXuuANlaE0zO632zbF8gvZ
+dr5ZWlE07DQ9XvmgJgR0i4/dShNp8I/W9xUJDIaAUIzjmX801Cd90Oq+HYTO
+v38+lOXQcHNlPqVW8SeucNL+6ZTQ8MS9LKyPJRB/zMBVU72Wfygox8L90WKQ
+9OpiEw3Lz42DFlT9wJikINxKpcHXnNRZbPXBZ7vo6uv9NMipPnE4/uQrLjd5
+xAyO0dBdYpFfze+JDK0LsQ/maHBjSioJj3VH4xOLupVVGiQ+h513+fYJP1UU
+t7qwdiLwGx2zTvV7CCce+STI3YkXD593BnA647JU7/YQwU4kG2DfkxMv0C8Z
+3iq3pRM2KxTdv6uPEGk7mZkt3glVjnklicGbkKM/XLBWc3j5j2HjxHUdtDJN
+z3QrdCKMsWB0u/UFYrzfXfvJ4U7cuC6VxnTCmqg+96Z8vVonaobWb7oX/pjo
+365uF3y6E6He+9N+C74knt06oamk3wmTaf2Rrw3OROezObXqy50ozbpgRefr
+Qtzqrbl5y7QT4n5SPT2X3QgNqzPpzDc7cfS6yOfQ9V8IJ4b6Az9tOpG7Tar/
+6x1Pwnmwr/XIk861ftqm+WTZV2L262xs84tOuDA15aT+942YjXsc+/RdJ5ZH
+1632u/oRNjtpLSKfO5Hecq+/ecCfWOGJOPDPe23uL/G6W7AzkFCpU880/tGJ
+KyK8AfTnfhL0HPseMIR1optcihJ1CiIuOTVeCovuhLYCZ9nG+GCi9GzGba3k
+TmjsrZCY6QghvDN0Y6cyOrFUnz6SyP2LiD/LtdM/rxNFbOJnzquEEaxlNwvV
+y9b0vUdY198OJ0Jl2/3HazvhUCb2StnvNzGZ1hni39KJy2Jk4suiCKK8daz1
+VFcndpVPy0XMRhLXdJ9rzg92onLGXjJJPIpQY2HrC5/sxJZHI7lB+tHEDSmm
+vwaLnTBSLJG1fRlD7JAcBidjF0RkFbU9LsYSgpGHFzI5umB+2MPHeCSWMPh6
+28qWrwuyWiyfNjnHEWFcs+slRbogfv6rWvGmeOLBwwt97du6sC7rUPXN+HiC
+EnqE00eyCw6fa88sayQQO5T3vNWV7cLR26rFL9sTiP1vHJXWKXaBgzxzde5h
+IhH6OEq88GgXeCpidl5bl0R4qCpoOmt04XaZ8N5/QUkEvb5r6PGzXeiYknJj
+V0wmKBf/U2a81IXDAQ+valYkE3tU3DlyTbowc/5Zsr15CmEip8D/xqILU5Pp
+vwIXU4hzgW6XNO92oTDBWz3VPZVIlt/SsN6uCznH70Rm704jMusve9Q864Jg
+n8sAMtIIoVTSxfdNFwReyQrH6v8llI+WZJp+6oJfvOcZj/6/hLbozL7/vnZh
+qK/pm9XzdKLvUEbbjH8XrtlvFpQX+Ec8yPlekh3ahf/SLSmjEf8IRSneWbeo
+Lsxy/hv9cTSDCBH1vmac1AWjOXa745QM4rFrJKd0Rhdi1Q+9bLqVSUyGl0yv
+5HbhIJfYDnN6EMN9D8SqSrtwteyjTedXEBL04h9CarvwCoGklCBJ2PYbKD5p
+6YLtBbuE1qskUd7sLqHT1YV3xwP8XCJJIubc6cu7hrqwc9HUSXaGJEQ3MFes
+THYhunHdw+qjWcTwRpW3DYtd4P+v9ekd1yxiLOKhUwJjN9SVuX8wULKIrbp7
+ct04u2FzoWHQXSybaKe0ad7Z0I2QFotbm25lE5KneQTObOqGxfHe3T+Ssolr
+dEd3/bejGx5ST/dspsshnn8ccVy/pxvMBiovvE7lEFOl30XH5LpRWnlahs0r
+h+huLWGoVepGbW3iiYftOcTQjmWZNNVumE44F7dI5hJnT8aH/TjVDeV1+YUq
+D3IJrf13LN7qdUP1+qNTfpm5hLRY7L17l7thHvjFYIItj/B6vpxz2bQb+W08
+dGr6eUQcT8M19ZvdaEugnvzsn0doU7JPyd/vRofSmFJ9bx5xSPjY821P1+KJ
+bu/cKJdPaFlSVnledcPB++Kp8w75xC8fljJ6l268+HTr6Yf8fII9/3zvpHs3
+TrrKO2byFBB5eho6vd+68bP0+ZXBywXEwT5T5paf3fiktWn7htACouaRFEf1
+725IlJfU7x8tIE4f2GlcFLeWb6vuW33FQmImtI4+O60bdF2WSredCgnqh9zp
+9KxuHN5dsPC8rJDom3+klFLUDYWmzdWfhIoIVTXbyoSqbuzaJlzsc62IMOU8
+mhrXuPa/RK8O+UcWEVcPmk3EUrvROuqpGjBdRHDP33ge198NufJzlG9EMXGq
+uMIkYbwb0SsH4z6/Lyb4rHd5Js9342VfVcurmmKid2xCNJ2+B2bCcab3NpcQ
+deEZCyR7D+x1TM4YWJQQRfu5pQt5eyD26lrwkbgSouzlvZRK4R5I9B+02bxY
+Qohk3fRu2taDPBZjzKmVEg7335Z3S/bAMOaUd8WnUuKWyVmjCdkeMPPeYwhq
+KCUOftdRo1PqgW2mMse97WXEy3fcr7lVeyCaJJiqeLuM2FMhslnsVA84bpgL
+rCaVEVE3lrjl9HpwB2/3kKtlhLU7YXTicg/6ZRoZHTXLCefWu8yXTXuwMz02
+bL9HOVEsLsx+72YPHEavig20lBNi7gWWb+/34MvKQTvfXRWEsQereODTHjj/
+e56kfq+C2DxsrvL3VQ+k/zh2jaRVENp/7ibVufQg/2XamyL6SmL9f/EuE196
+UGxY/v3brkripEB6Jo9fDwhSOM3idCXharxRTya4BzYT+zvk71USP89cOqEb
+2YPWremCK56VxKf77N9sE3qwy4y4lp9WSdTH/dXyTl/Tt+xC7oe2SqJIafH6
+v5weKFz1UNNlrCJSP1xuoZX04JmIc88GiSpi2yPLFI7aHtTPpUXXnqki2AWS
+puVbesAyn/HTw6aKEKqv9Dbu6kHdlk25Z79WEaNPzgS4DPVgs52ByLr0KkKX
+M409daoHx0VXw/Paq4in/WFNPUs9CFb8/MCRqZrQyIngFWLuhTyX20t5yWqC
+8NGP0VjfC5Ep+9perWrCK00h0V6gF1+N62x871cTh4o6xGI392KVJmR82rua
+2Jo+MN0t3ouXipn+C+nVxHRtt/xm6V5wqB7bH95RTXhEmzefP9CL7awbJc8x
+1xAb5FaG3FR6YZ6d4rgiWUMc+X7cqkS9F+/aPQ6GadcQPx2Kz7Lp9OIo3RZD
+bdsaoj9pd4j6xV7w0OUPTXrXEGLPxq6/MenFz9n5Me9/NQTV+O/nAoteLBK7
+bitRa4iv+zft4bjXi4lHSabNzLVEnvxvee3HvVB4xdP4VKqWMGxfiPB40Yvs
+LwE1G3VqiQK+MPemd70olMi7kGRbS1gtq/Vtd+9FgWDfjbM+tUTYjtsxt7/1
+4q+zFdvAv1rijklib8rPXlTM/CZeUWuJwfYkd6aIXjw+xcYrzFJHkFLs0Xrx
+vVAB9UW0VB2xa9PJI0F/ezEw5+6hqlNHcHWyHZ3M7kUgg61WnW0dwcjZl3yi
+pBd1uq3xN3zqiGf3nwV9q+mFcvHuwpl/dcSGszcYR5t7EZoV5u5MrSPmZJWa
+TnT1YgtD3IYNLBSib9lzd8BQLyjlXno/pChE5Tjv0OxULya7f+lJ6VCI8OAz
+EvrLvTBwlt+YaEshNjFQW2KY+yB4533YYR8K4XnuFgcXVx/aaFNMuf8oxHPl
+d3F3BPvgmkQqnKJSiIjY2uryLX34cPSAcgVzPfGedcRadncf/lj7i+pL1RNm
+wzZvvPb1YTnjcGuddj2RZrUivHiwD1aqBi8v2tYTlm2yUqZH+5D1+8D6Bu96
+QpAtMqVYow9pKkLOF//VE/dX2HIUdPtwbUB5uK6jnhBWGDwTaNCHauUuTX3m
+BqLKbvz8etM+7Lqh/aNCsoGImExvs7/ZhyX1lPFT2g0En/Rg7+D9PjRbXj6R
+d7+BqGYXu29k34fjLPcDVLwbCKv8RcdKpz7ErDtIn5LeQKjRia078aEPsmJU
+G+mOBmJLnPTmdM8+iAT8mgphaiSkZIrj5Pz74Bf476OIZCPxUc6rODK0D5fp
+Lx5z02okrEvkLHdF90HfKHwD4/1G4ultddeg5D5wC9HYHn1tJBa7bRXE0Ien
+lxXE+/42EqctTMx+FPQhaWv5bYP2RkLwedQmsco+LOxt7SxibCJcNzEaBjX0
+Yd/WT58UJZqIZhfmHbuofXA0XWcTfqaJ0LG//CCyvw/CxCs3QZsmImQxTEdu
+og/5DRtHnLyaCHd7z6S/C2v6y8x9HktrItJL8n+pMfZjUuqkw5W2JkJ6S8+O
+Ss5+WH7ak1jA0Ez8ZvHda8TfD03O4sNyu5sJdnuX3EHRfpQqq4t8P91MmNeY
+9NuL98MhLPss871m4nZx9vf10v1oy7/adcezmchzvNIeeKAfW1iONdalNhOG
+1pS4/UQ/vApeyR9pbSa+vGjiLz3ZDzsLtdlg+hYib4mP3exsP+RVgiU4drUQ
+V92k3JYv9aMjOL3k7qkWwkyzNMznWj8eToR31Vq3EG6Bwfr7b/Yj6L2znaJH
+C1F894pHzf1+KFbdfOef0kLYzAZZ2Nr3g+mwzSb6lhYitHVHFf/rfjieilUw
+o2sl3kh/qEz50I+uTyoN+TtbidIr729c8eqHdrQsh6RmK5F+rMiDIaAf+80D
+yl3utBLFmxcuRfzqx8d3PpJD7q2Ep09xsn5MP55wym/VSm4lWrL6o1ZS+vF+
+5XlCVFMrscrDSkSS/bjl9Xlg/WorMWBefdOgqB93JB4W3tnRRhxnX5Jlr+7H
+8sEjumUn24ikPwpef5v6MWQ9++6/223EmVt7ve50ruUTGmfr+rmNiC3ylts+
+1I+6zscCA4ltRH6yuHXDVD/+u2FwX6OxjQhxfa/xebkfv/yNP/1abiNk1j3K
+1mQZgKuCxx2m7e2EsUVACxP3AGJ46PlN1duJgIPJ3llCA/h8Ps4ZN9uJ8Vc2
+U8/FBvDU8k++qNuaPf31JCE5AOGJ+aYnCe2EDhniRS83gE/UwHxKfTth3fKm
+OVdpAPZ3wz7KL7UTboUdee+PD+DGZ3YRDZ4OoirC8vzZMwOwNJsyfrS9g9go
+VOey8fwAPqp/9Q5R6CB+cLfeoBkNYO/kWF61egfRyXRoIOrGAGKrmYfoDDoI
+P4q/gP3dNftCHee+Wx3E15r8fs3HA2Daa7rbyLGDuPT3loXIywEItEUcdXXr
+IPTTTrgNvR+AhmysQdrPDsLwLpcp+WUA7Us2D3oTOgj6oecdXn4DSCse/SKQ
+30F0xZzjvBMygFeNEinHGzoI5qiTnSeiBhC5RbTTZqCDMD3JbyWWPACKeuHG
+wKUOYuLcI/+lzAGIpe65XM5FJQ4dVv/eVDAAty9qv5fEqESdWK/138oBHIvn
+YdsjTyUMKTYTfo0DkI39+NjgBJX4/V/Q7ue0AXzvTF16e5FK+FoocJsNDsDp
+utvXZCsq8ZTo/n1qagCLrFwa3fZU4jbVZk5ueQAGt2Q38H+iEvGj3ouiLINw
+GJyeVw2kEuyvBBLZuAcRG3lxxSaeSpjs+r19RmgQOZ5623/mUgm3Dl6NbrFB
+hF+kWVRSqITdHm5xiuQgtlszVK32UYnVuat/C+UGoSQabbJvkUp4xhewZSgP
+wtKmQ8BkPY14osjEm6A2iGFNz+lPW2nEkd76mgitNf+zuXSQpRGin5j0Qi4M
+4sTKTcXR4zTiwZMzH36YDCIi4NXPrRdohID1fafvloMY0mJWPmtJI3wjFA/5
+2QxCfWmI9eVTGrG5zzzS7+kgNlrLc8R/oBG7Lqe3+jsNYq9K9fHOABrhE7NS
+8fPDIBjbspP542iEH9/0qzCvQdD7rJip59CIW5Jms9EBg1D5/Ozs4zoa4SbI
+J50aNoiYPGX7iF4aceBJ3u6c2EFQN+zrbZmnEaV3TnRXpA1is4LuV+51ncT1
+TwYWbdmD2JHp66K6pZPARFH0SMkgjKWY8h/KdBLXZE3+0dUN4lm186nfqp3E
+fRPaZ/62Nb6TQiKt5zqJu7yb90r1DiLyT/wBXotO4pFho/uxsUEIMGsHnXjS
+SVRXUXF5fhClfVTjp66dxLH39P9juLrjqf7C8N3XtaWSaNdPQ2RERZ2DllFI
+CRGVEYWKjNAgiYZRqYwSUUkoKVrnFBmVkYaVSva+e+He3/3zfN73fd7ned73
+ez7fU3GSNIqUdX2DSrJ7QKIGJSpNYRT5XW5p6S3pAZ3XyhlPZ46iiqfzr879
+0APMb/7z/jpvFO3Ut8x1+N4D2s1drnD+G0Wj8cZqCf0y/MW9cRprRpFkydiv
+t8IeYBKw23rj+lH0yu8QnSffC96/DP/tbTmK+HevpunO6wXrjOdtvmo7ih4r
++Z711u8FI5dnRlXuHkXC3r8tWRa9gMZdfb7fYxQd28m/9MOpF8xctMFrlt8o
+Onc4+4myby844yivuvXYKKrc3rB+e0QvkGw/dj0ichSpT0cbxib1gtm7No0X
+xY6iuMt5t99kyfpt2ja/59IosheZHhcU9wLsu3+Z1o1R1G5h8NrwfS9Y+mQv
+Zc+dUZR24EJk0LdesCeK/iblwSh6t0uvuLCvFwRUW+5oLB1FtioL9w0IekE/
+5U+F0qtRZJ22K3apfB9wtHom3Vk1ija1v1l2ULsPvFC9tjjtyyha27dnW45e
+HyAkuixu/TGKpK9nDv2GfeCkU4d03p9RlOPPVJzv1Ad25DFf+w6Oogji3+ce
+Pn1g4brQvU9Zo+j43Y5/2eF9wHb/pm/T4lEU6N9663diH0ifWL7GjjIm27eG
+tgVZfSDSSTk4S2kMGTo+v3+guA80n6lPGZ89hkwFsZI83AcsRWvTLReOIblf
+awb7W/rAs2/6Z2+tGENX/csPrezrAz+fXbNnGo6h8rlyIUGCPnDu0yaqjfkY
+2hmzcE4Zox/4/FHOzd8yhnSN+LuFWv0gY9u//8j2Y6iXfXbVJr1+8HH45vWD
+LmMoPrEi+zzsB2OWKqNVB8bQ087rTz7v6gft7sv1dI6MIaUBJQ91n37wtK1q
+3+XQMcT8oFW8L7wfmA5/OMmJGUNBuS9y7yf2g2JXeox7whgSfv9pPp7ZDxad
+DzlRmzKGvtWGnl5X3A9+7xt2Ns4YQ+70RP843A+W+NuvyssbQ85QkdDU0g9u
+fLrAVH8yhqRQYKXV1w9erz354MKLMRQrtjQ9LOgH1wRSh0k0hobPDXaWMwYA
+hac4frx+DDWpdRtRtAdA2uPYM8MtY0hP4T8LJ70BUGCwnebzawx18EupeXAA
+OJtuievuG0ODF6LiOLsGQCftoMBzYgwl3TzzZrPPAJCcTzj0VziGPNa8fJYe
+PgCeGdytO0gaR6suaB8eShwANcuv6QwojKOTk49+m2cNAKPFO88FzhpHlxe7
+zUktHgCCE69/8uaPo+dvdTT68QCASrXLzy4fRzffK3WZfRsAnuc8IhQNZfV7
+6EfT+gbAxPSRmgyzcbTxh0rNkGAA/HD4q75qyzg60LJ4zEJ+EEQMPDzwduc4
+Iswy78nQHgTHmp6XOrqMo5DsvYVcvUEw9yWHOHhgHJ3KP77Z3mIQmIzvcT57
+ZBwdvnehrNBpEPj6fimee3IcWVhcE9F8B8Gjsu2KL0+Po/gT1+d4RwwCW6W3
+wXsujqOnXgkzPiQNAt4O7Q5e6jjaEu4/tDB7EFRxXe1uZY6jMwfX3T1bMgji
+lwXUmuePoy5V9tru94Mg7pGFXU/xOPpddr3E8vsgqJz40XmpYhxlfpivnN8/
+CCyU54WbfBhHq0VXneREg6DlvdKCns/j6Mq+3nNHFYaAdfDd76k/xpFo7fzM
+r/OGAFry6Zbln3F0bb75PdM1Q8DlxoWjvMFx5MvfmH7HcgjULGl0KGSPow/D
+S6Jpe4bA77aMrQemxlFD2PjuYL8h4Oc/sHMubQJ5eN9Z3B45BC6sLQn4oTKB
+DjUYD1hdHgIHrMcz0jQnkO28svsld4ZAk8e9v45LJtCmGVoe2k+HALn9o7n6
+6gm0513QjKSqISDX5Fr602QC1V8srRH+GAInSO7mWXACRer3RB0elMX7Pncf
+splAK+sYxu3iIRB469G91bsnUNp7HZaN0jC4P86LFnlMoOFeWP52wTD4FfAs
+tNZvAnGcXWMNDIcB06I78ebxCfTh9km3gs3DYOO++Lf+URNIejkDaO8dBp0O
+uaqb4idQyLEGo2v+w+DPMfPzM5MnUGmv+nqF6GGQ+9ZFc+zWBDIeDXE8f3UY
+BIxPNdfmTqBVY5zTkpxhYHlMv+h+0QTa+yyjKrJsGET6Ch7HvZhAgUeDF/E/
+DoPNj92/euMJhMoiM0LahkF5s9+87Z8m0LzE92vYw8NAY9Hi1NXfZX7tte8/
+Pj0Mnt+9sXrW7wnkzV31lq0yAm4zGjiSARnfXK+XoYtHwNKf33qHWRMoS13w
+U2A8AupMXxDbJyeQmq9oXvS2EeBzFef3kpgofeWJq0S3EdCrca+7i85Eew4d
+XXnx6AiwGyWvbVNkopx4DkflzAgIuXMs55saE6lEqY/dSpXVLwxe2jybifzz
+2jSW3B8BfVUJ7xu0mMj3h31Y8YsRULDBKuLLQiZy8rogb1Y/AirTV1p/WcZE
+RKWkn3WdMj42tcYNK5moeIH/r73jI+DOyjyzJn0mIrgazh8kjIJjR7bvbzFm
+oisCbnak+igwv2+R/XM9E0krsIfif6NgXqOmqHMTE+3ozPfMWTcKCje7n/hn
+xUSv55fnr7UdBcE11xnD25loZ43U4IvHKNA6aY/YO5ho4vZNmvexUaD+c871
+qV1M5DJwddl07CgoaYm5SHdhoqA4YcrNG6PgboVCtroHE/39PGBj9HAU7Nvg
+0LLwIBOBh8f2NL8aBYHB7cv1/Zgo+tKDZ0ENo2Dg+9p7m44y0ZGT97yV/44C
+vINrZn9cxocTEljCHgXLl9wXeYUxUceStU2O1DFAoP7oCIliouayyUs8jTGw
+XF7jb8JZJjLr/Z2fsXIMkJ6KGdnxTFR5kT/fYuMYSP+j6lqWxEQ35feJBu3H
+gH3vcMOnZCZS919mmnZwDMwNm+vfc13G3yy4w/zkGBh5brBq+jYTaT3b1TeY
+MAYWr6yaOecuEyncGnZNzxgD/XUH/jO+z0TU3bs2bHkyBi6M53g5PmKirOH8
+izw0BhQOzawOLmaiDxLitgctY+CAq4NjchkTtX2LC3frGwNjwUNypRVMhHda
+a6sIx8BgaejI17dM9FRwzPSj/DhoTUsQcT8w0Q+x5ufoeeOgSvjSSLOOiZ6v
+9G5fu2YcTBhmZWxqYCIW4Zg303IcUKWf9HxamKj27v6goj3jIP1iJ/NyKxNR
+vjuK/A+Pgyx/n+7yX0z0btZR+oqocfCukED8281Eq5KaM4aujIPvVVscFAaY
+SJeaV/44Zxx4ZTU0mY4yUbK8nFtw2TgYvGRw1ofFRCZNS5OMa8aBi5vCwet8
+JjI1W7B9sm0cZELeyepJJhoanpdeNTIOBgYT3/AILHR+zfawK5Jx2f3obbKc
+xkIBs2qGXdQmwPSBhb37FFioeB/mLVs6AX6/d61JUWWhnDNet7kmE4BNetJV
+M4uFfCubW6utJ0Cj4suVkrkspCUxK0t3nwDiDbOKTRay0Ati4+qA4AkQ7+Fz
++NgyFlqzrswaxE4A58otbo9XstCO1jmM2TcmAJbbc35An4VaW3WDxh9MgK4o
+w4Gla1nIQTAvqu7VBFCvjIk7tIGFIiq1DO83TIC0rp+ueYCFXvo73zj3dwKU
+x/wO6N3MQiHa0gIvzgSIzF/78j8bFrrTlvd8IZkJlrTHgAB7FmryN5hIVWSC
+2FmulJLdLLRLYkGhzGaCQ83+NJ4rC918NcENW8AETqJdW809Wcht1Z4Pw8uZ
+oFn0svq8Nwtd33ol0NOQCfrKzWMb/VkIHi0TfDdjgoeX489oBrPQbL+eA7Zb
+mOCRi+lbn1AWsgpc/+TDTiY4ekxgVhYpw1vU0rHBhQl4BUemiGdYSOnap5Gy
+A0xgZ7dB6niehf4A2L36CBP8Xi2/JS+RhZRnOr55GMoEWjdjG3lXWcjuiNbp
+paeZoNvRNsv6Ogslq73TuZfABEoPFEvu3Gahn1Yur+anMsHE/mA67w4LqT5l
+mGZnMMGP99oFdvdZ6PUp9h3t+0yQcOvdpfxHsvy1RpysJ0zQpCutkBaz0KuR
+UeP5L5mAbJOot+85C+G5Fj45mAmiNsqNvayU6XvpGL/kExPMbNXhzUIsNLbK
+Iv3BNybo97++7WQ1C8XtM7yt28UEh7+Ie3/Us9DHnO3Jz/qZwNNVrtG0SYbf
+9CByPZMJ9JkB5MzvLBRtEur6XsQEMbzmeGk7C1Vlt+jbkFkgyWloj88fFvrP
+ZnD6myILEKIOhX7pZaGsqY7q/bNZYNuhiW7jYRby5zTHDy9ggUWXNt69M8FC
+K0eYFuErWMBRJCli8Fho64KDYooRC3DM+xTCxCw039au9Jo5CxgF5b7pkcr2
+obDVe8lWFvipN4R2UdloaFJX87k9CzwrPDq7Sp6Nok6fbNziygKut/5iY1U2
+6ud1xLcdZIGC9SL0YBYbnXuUAI8eZYEV7kdmamux0RefAikhjAX4rqPvUhey
+kXLMwer0MyxAnmuI5f5jo8i6geTViSzAUuXMObeKjXY/PHjoY5qMj0V/vXgN
+Gy2lEeD+LBbwMK/6dtKEjRbvHvtPmM8CQ4stTdlmbLQi2UXzWgkLBOZr8YIt
+2EgeHJujX8kCvykM5YmtbPQo/NCyLx9YYKt6dWywHRv1tB+wCPjCAvuM6btZ
+jmzkcD0zkPGTBdT3X4kN3ctGG7wtHj/6wwIaiosXiNzZKC39/KTNEAtYu8St
+PnOQjTrkbnqOsVlAnOWfSTvMRoMrHrelTLFA+qlU/+RANiJMcvzW0tig/b+K
+W5ohbHRLNV+5U4UNDgZmrsiPYCPva+yGc5ps4Fcq0jY8LdNjofZgxRI2WDuU
+GoLj2Cgv0CSzRZcN+A+X6DkkslEh+dbjaBM2MNQM3tF9VdY//mi7DmSD2Cnj
+lpDrbPRGZWTZd2s2gCUmb+kZbFTqbJt2zokNNJebqGTflc2r8OOCNR5skCbk
+1Rnls1EXP63pjy8biHasH/lcyEZrqkdzU46xQTerKsynlI2s1yllWp5iA2Tj
+dpTwgo2yNfQreXFs8NT9/Zes12ykWHNF8ugKG9A+vbu14T0bSbf5HPW8KTt/
+n/O1vYaN3K3Y5Nn32CB9X3rYqS9s5E84UdNQyAY/uyWJ2i1s1BCwuPzCczZo
+uzhXEbfK8GdYfoXv2MBh5rNp7y42clqtqj1Vywbbhq96KvSw0fv0L+kVX9ng
+jXqUYdkgG81reWkZ1skGvhstwt3H2Ygjr75obR8bOFcU6dG5bARnLzTijbPB
+q1OJrmUiNtoZsujUCyEbxCy8L/SSstFPOzdBBIkDlEbrFVWpHKRwSrnIXJED
+VGrr0rE8B8Wdib1NnM0BylbBN0+ocpBTyiSuXcABGzIuq/w3m4P+XEVLkldw
+gKiEKe3Q4qADyrOq9hpxAE/tqH/qIg466mSVs2gjByQJm+ysdTjIZU/am9Gt
+HPBg23ghaTUHkZCNZqUDB4Qn3z7/1pCDljLLX15w4wB9pfyOyHUcNFcy7/Ye
+bw5Aj3ufmG7ioNXlDe+WBXHAbcpqKd+Kg9Juq64UhHNAhJdT00trDjoxaPir
+/hwHqFesXnDKnoN4t879zL7EAf+ep01s3MNBJz1s5obc4IDRp64W5H0cdOl+
+50Pruxxw+Y3brE9eHKSUcT5u0SMO+O9G0NE0Xw5yWH7jsfgZBxBLg7a5H+Wg
+2SKPxT/ecADBZO0DnRMcVBW2Zqi0hgNCqNmXueEclNSwn3i1mQPGnp0Tfojh
+oKhRs6NHOziAmoRG0uI4yO6C1iq7Xg7gXDHy807koHnqu8DqcQ6oOPX6iGky
+B5l+NS5UEXLAm49rxQo3OGh5jWYgh8gFl++cU/+XwUEaeG9imwIXtE2crqjM
+4aDnzlsJaBYXaHgpD6cVyPwY3fitYAEXxO1SexRYJPOz9CY5ZQUX1A74862f
+cZBK9pO0U0ZcIJGIW3QqOGhFTMc5341c4GnyENDfcVD9UGSL0zYuMBnds3Gw
+ioNYdoPxlo5cUA6Gvnyq5yD/f7HZhvu4oEpt+0RxEweNVjyYu9SHC75TXfOv
+/+Cg9LJyyexgLpiIJTOjOjnoaZKirUIkF2x/rt/s3S3bjwZFIjGOCwKSarba
+D3CQ+z+NxcLLXND4+uluszEOymCklDDTuUD6sVO8nMNBwKOtcDiHC5zG9TfM
+EXHQVMvuWf2FXPDHMkOdIeUg9Y0BzH/PuQBm0i9OUrio3fb0xu53XFB62+fW
+hDwXEZMF03/ruGDgce6WPlUuuhi20ehfCxd0KhSn/JrNRWt2V/zu/cUFDTj8
+1A9tLmpy/0oc6ucC0xwmuXkxF/k+YmePM7ng7k55vS/LuSh9XcJznpgL7sGX
+ono9Wb8J8VYJhQfaXw/71Rtz0YesV85yKjxQ23or8tMGLtrMN+pT1+SButMv
+9BsgF82/84OzcAkPKAavv/R1KxdpL1Y5r7+aBzLN5lxpteOifdMON4EpD+jt
+sDH5s4uLrt9W1He0kJ17ahMGXbjojcNzO29bHvgxMymWs5+Lvge+ZkXs4YHu
+r0k6BB8u+qSXviDZU8anpzpc+QgX3f5Y2VrgzwPMcaPQ+ce5yN41SwuH8ED9
+ie/z1oRzkbpc+WhHDA+Mfc47aRXDRXKDUXaCBB44YpwT7RIn0ycXYD4rjQeU
+PtYZBSfK+J8UvTXO4gHHsHlZCclc9MAov2VPAQ/4LLr74t4NLqJYD0VFlPKA
+5Tn7828zuai2wvJ11iseyDMyoHXe46LZCfppH6p54L9X2zaKH3DRRKUeabiR
+BzZF3VypVcxFr92wono7D3hWLWva+JyLMsJ9yjb28AD7o3DVwVdcNLY0R+A/
+xgORdzQsL2IuajzN6bgp4IF8x6QZpTVcFFTYs7+WyAf7Gl3vtH/hotOtvPNC
+BT74OJ7cT/nGRWKL0p2rZvPBzUjTUYN2LlpllPHWcyEf9C52L/X6w0V3yObf
+bqzkg9gr8sapfbL90F6Q2mDMB122DhFVI1ykKWwQ0gAfHOs2Oy1gyfxd9l3B
+0poPvKp+bV0t5KKo7e8+n3biAxM3q2/eEi6anjt3w1sPPiggnVt6h8JDnsFh
+LtN+fFCu/NCsXZ6HvhgcWg5O8IF27WfN2Wo8dML/+OPYaD5YfJSAd2vwkPsG
+o57aC3wgNdmnf2MeDwn7zb4qp/KBxI19uHUJD936uiB8byYfpNK6ArVW8tDs
+06E/7+XzQZ63ETiwhofOX2tmjpXwAc5W/v3QRIbf9bnW7BUf6LRftGWb89DU
+Dqn7pWo+WL/p7cWNVjykJqU8+9Uo08+rTU+y5iEb44g6/XY+UFxZE9Zuz0Oh
+7rx753v4IEn+54qVzjzZ/TUXdo7xQfqn2U+j3Xno1OL4+0ZCPpjMe6j09SAP
+dZ7/2XyFJAAjrUVQx5+H0n1LaoYUBcCldIvtmWAe2q/zLGGbhgAonUvXaz/J
+Q5rusbMeLBIAuUdVI8bRPNTSXH1cTlcA/l1jx6XFyvglLbhzxEQAhl5ZC1my
+l1pTzfqsZigASQVMa6dkHlpOehNoaisAWRMqp17c4CEqz35mzh4BuA+/Jmpl
+yfBu5qTKewnAwr2ep2JzeShlqdtAWIAAKFL77UYeyvybs1KjL1QAxg3SSM4l
+PORtjBbvOSMAob9Ssz6U85B6bL1CbaIAFGrN1DZ4w0M6u8TfNlwXALuF1rH3
+PvAQHVJiSu8IwBaTg83q9TxkZZQpt/yRANBrUukXm3ho74HQiHtlAtC5R2GF
+5AcPhdtvbdR+JwAOl8gmYb9kfL7XKWTUCUCRbqk+8x8PaWuVG2p+E4C9i7dr
+HB3iocncj5szugRgfQR5fGhCFrd6YTVvUABmeWqV+/N5qGHVZoNctgDo630K
+HJniIbfB1SorpgUg3dtWM5jMR4sOGP15SheC0sLOCi6Dj5y6ZuWZzxCC298q
+dkSr8pGAcsu9XlsI8n8vaqdq8NHQvxglFx0h6BU6u6fO46OW/ssvBw2EIO/0
+7bb5S/mIPnDJPcpcCL5PrbIvXslH9xZbSVS2CUGZ4a73wICPDlpF3ylwFIKV
+6o5rvpnyUasnCQB3IThZE5R9eBMfGUzf6273FYK0x2wGYQsfxautuBh2XAiG
+XZeF37blo0yqn/GsaCHAuQ79xrv4SOel7mD5BSH4nYZcWlz4qO2UXb5LqhAs
+Dn3XdNyTj6znZwROZwoBqSnDTt2Xj2yGhy3vFwjB1qN5zS+O8lHd/Vk6O54K
+wWnn5R7uIXykd42tJXwtBG2dpzjkU3wkF71vSX6NELgmj11/cpaPvj9aBXZ/
+FQKq7XdL1wQ+ujMKjlN/CcESg/MS2lU+isoKe13RLwRzi53qX1zno9OZJQuC
+WELAi8y4fziTj+a6fLm7bEoIDDOepmrn8pFFU8nGPzQR8D/ESW15yEfXrm6a
+zFATAc6p1wVJJXz08sX+DhdtEShv8/26+QUfHZsW/JqjIwIf6pzUiW/5SKmU
+Q+k0EAGDse5AVMVHV8rNd981l8XBiX9nPvEROVX2xNgmAq/U/U5YfuWjmkMB
+x/R2icBFjaUL6G0y/yd0LUTuIvDIWXm44TcfbckQwho/EThmdvl7ep9sXoH4
++I0TIvA+hfr3wCgfaWpF/vCNEYGOuB4lfQ4fVUrnBG24KAIhBSmeEhEfhS65
+tVH1mggQmBE/mwgCVL2RuWUwWwSWYEZoHl2ANr/UTvzwUATW/n26PlJZgA4W
+zWXcLRMBh/ju5Y6zBChkYrA25p0IjDrKW63SFqA8hYu1++tFYIHL3UT6EgFa
+tE3MsPwuArZasyR9KwQoP98qVeePCKimdd+rWSNAciP+nirDImCzPDrskakA
+fc0ODRNxRUDxvUfM1U0CdIcR2NYnFYHQCkLFyS0C9M1if8J3eTGo6/ur42kn
+QApL98R/nCUGu7OjGm2cBKjbzet7xUIxOP/M/sk6NwHa5ZUSVrxKDL5Fdn1c
+fkCAzp8VBBaYiEHrpwJNrcMC5Pfr0ZscCzHYT9IvVAkWILujb72z7cTAgzIZ
+QQsToCskm8NZe8VAflNqgjRagJx2+tdnHxQD0YPIVnGcAAX8Nkm6FygGNnUb
+A4RJAnR0SXPRgwgxCHh+2EKYKsML2W1UGicGT9QT9otvCdAZhb4Fr6+KgdYi
+nSrJXYHs/Z8fWndbDF49aTtGfSBAhrmVRm33xSBv8Wp/5WIB2vLa2nO4RAxg
+3MsnmuUClL33tEjySgxOBytCnTcCtMMnljK7Rgz4yz4sMq0SIOGn2Fj9r2Kw
+5MKx3dafBKg9oPik7S8xKJ7xtN3jqwA9XGby139ADEo488tC2wTIs8uuOokt
+Bp1C539X/sjOETpLi6fFYDBTcPhRvwCZ9E4Rv8tNgreke9trx2T7MYfmNaU+
+Cf4RebEDXAGao3Ua6iyYBOXzb2rKTwnQVUJu/u6Vk6AlVVdZnyxE/azS1PNr
+J0GEtftBZ3khstQbpb2Ek2BkpFHjrJoQfVC6SR+1nQSh7XpriuYIEZ0muLFk
+7yT4oL/8SccCITr62Om5x8FJMOfz4RQFHSG6V873zgicBE+tczo36QnRVpJu
+YXvEJPipdDYldK0Qyd+yuKB1fhLsgq9Li8yFSL0wYdIzeRIofaNtGrASotWZ
+DooPMibBhTjNDUtthYhFYL1i5k8Cu67HBYd2yeofIMbGp5Mg2TwiPt9ViB6l
+zZq89GYSVDZvaBvyEiJM3ZnaVTsJ6Hef5qw5LEQbYmsaDb5NAnJ81t/IYCG6
+3vC7/OLvSWBj9vb2xzAhknCE2/8NTQKGS2uD+mkhmraNTNrEmwRVjqWnveNl
++JE10dmEKfD3nErxy8tCZHfCerFUYQpE6rzzULouRE/OBMYc0pgCbP+EZJ9M
+ISqzykn5tHgK1OxbtwXnCpHqG8f9xnpTwGP67tl5hUK0dgt3MGf9FAgEyVYx
+T4Wo6M6UoeqWKbCD1p78p0KITMe7N8U6TAE/3V1+m7EQBVTNUxHsmwJK8V8/
+P64VogIt3YIgvylw+Y8+mtUkRJE+l2hDJ6ZAI2O7VexPIXI9/8bQ9/QUsP3G
+d2V1CVH0d8vV/YlTgKyqRT3UJ0QxeveFh29MAfvMG1tbR4VId+TwzfGcKTDg
+Zr1wJ1c2zwEtxfCiKfDbQut67aQQtSfYuJIqpoDsjZ9nRRahzjfnz6VUTYGo
+gpeOH+RFaCfNI2FR0xR46+d812qGCBWEHw4s75gCxV2vr9ZqilDO600mdv1T
+QP1I66Kdi0QoZM6p3j7WFNibluHWulyEskNenoqdngKnhMINh9aIkLpz+uQi
+xjTYf3iwmmUqQlrMCv/qmdOg4YeXOBaI0MN51bX+C6dBk5d71+xtIkQJ8Jwz
+Q3ca5Li0Bj/ZKUKHZ67d/9Z0GhiD5rKtziIkUGdnHrGaBm5ftj3+5yFC37W2
+fte2nwZjTOhyzkeELtztYXx1mwZbO/CbxYGy/q1nwEXfaXCU19hREypCQVUt
+4ZYnpsE1dujzwGiZHsOb5dKYaeBU985W47wIbahOmkSJ00D35avcqksiVDMW
+aBd3Yxrw7CJfn7gmQlQp+bH1vWmw9rDSraWZIrTnP/W56k+mQYbZ5Q3tuSKU
+etI760/FNHjhqJSfUijT019lXFItw0spbLd5JkL2HoT+c83TINzsbAf9lQh1
+PR15tvfXNAgRFz2qfS/zo8TtzprBaUDocLROqhchP+1ljxW5srhD2mv7ryI0
++mbZrxGprJ/FddKcdhFiuG4wblSQgGHi2YU9f0WIj61elGlIQJnbWY2ngyLU
++HWZT9YSCbh+5cPQOaYIhZ2qtbqoLwE+LmG39whFyBrP2BNuJgEdwoblugQx
+MqnmZvpvk4DTayS3qXJi5FfroeXpJAFB2zdNdKuI0Zk1Fj/3ekqA06y6le81
+xMg65UaT0xEJMJxs3Zm3QIxEBbvlncJl+awij4s6YmTkH5W4J04C6i5cdD2m
+L0YqVHmHfckSYNNXvHmfqSw+QD7gnSkB23/6LrIGYrQEB6NjDyTgUo2ItX6b
+GJ1K3Bt0tkwCDn4qq1htL0aspLpj15AE5N/rCV+6V4yknt/qH32WAMqbDoP5
+nmLUMnUpuqpVAlQ2jg3O9RMjxnPG5b89EpBGOHF3brAY1Zv5TRKYEvD0zoe9
+88LF6GrZh4alUxLgdsxs5pIzYrT80UaanZwUOF0za12VIEZd86cfhM2Ugp7x
+pXmmyWIUn7Lixf2FUsA1dT+19abMH9G40U9dKcjkbfd0uStGv9ujlyqsl4KU
++D27Ax+IUZ857ZLVFimIXzixL75EjNTfvQ844ygFrb/jI3JeitGq5KGadx4y
+vDeXi94hMVp5+nUuMUAKZuREiv/UihFbHEHcHiYFZeW/YijNYnR4nl9/aqwU
+vBAmrdJtE6MDjxt3/7kqBR0d2WLnv2J0ff6U/ZpMKfhQkD52flCMcgpB5/kH
+UrD8gYj2gilGcVZjol9lsn6rdloPC8VIL8+9ZB2WgsKr818uIk6iQw5Dkptf
+pOCNqXCXO2MS2d5nj4jbpICSd2RBhtokSv3aGXmgTwrMfRQXdGpOoltDCkWf
+WVKwec3x3QsWTyLj3rH49RIpILQbffBdOYnu7oqI30MlwK59rICnhpPowTmr
+BSkKBKj6z9pRumESrRpQT/uiRoB1NX/DHawm0X8jBX/k5xBgUJZ7933bSdQi
+fM2wnU+AFQZ+KVNOk2he7MwZV5YSoObNJwl73ScRjxQqbl5JgIIlf+vLvSdR
+FSWnerYBAS6NfuaqETiJGhd5ndhvKjvf6FwffXISlcudpj7cSIBvXs8K7I2Z
+RNNnPp7hWBHgydvz+fYXJtFZf0oPtCFAuQ0vW99dnUSij/IGKQ4ESFK7P9Pg
+5iR6VFF4pNuZAI9Ii0oK7k4iZlLFdWMPAoxyzX684OEk6iiRL048RIBrRq0U
+skon0VBtZOVffwLcRA75qlU5ifLu/61Yf4wAnwURiHffT6IYO+3i62EEqJL4
+MWvZp0kEJQqZrGgCfGV+90FJyySyXpt6ziGOANPlg5Zu7JxE0qLkQ08TCTBW
+Zfbsxp5J9NN7zHJmCgE+kD9z5uCozL/7aYsi0wkw7tD1Q2LuJKJJ/Il/swhQ
+qr/l443pSeS8x6t3ex4B1m44/8CYNoUy/3p/KXtEgF6M7UqtylNonp7/64Wl
+BJj/L0kUrTGFfuocKEt+QYD87zbB/y2cQnc1rF4Q3hLglzeJx78tn0KrHtNr
+QqoIkGa7g3zeYApZCx/1DtYTYLLCXZ11G6YQ45zOTK9mAmQdudw9YTmFekzP
+Orf/JMCO9/8ZP7adQoK4F092dxFgq2Pc4oDdU8hrS5NWSw8Baju/LtH1mEKX
+27/mOg4T4B7q6G+2zxQKWVC3+RuTAD1um5S9CZpCBtHvyHsFsnk4Y/2k8Cmk
+/qeq+9c0ASalPtu77+wUiq8Z+utNIcItFRv01iROIdPNm8kT8kS4eW/SC7m0
+KfSVOGwTpUaEuYtaOb0ZU+jUFm4lYw4RLhe6DVXnTaGj/NO7MuYToT/TKeNh
+0RQquvdw9uplRGjjTpFPKZ9CT06nyX1YRYRWX5+ZRb2bQtMhXitdDYmwXr/Q
+MKB2Cm3TXn+avY4I5z9ez3ZvnkIfP22hXQVEeLz5eYxT+xSKSHlWvWorEYqv
+hrTt+DeFGmHx6892ROgLWqh2IzK/wwLGAp2IsPixAWMndwqtva3lPsONCKWz
+BX1O01NoV7eQUelFhA+2XL7rQZtGBvvNRQf8iHD6vOf6IyrT6Lp4sa5SkAyv
+rOdF9JxppBs7ev9VKBG+3Z6ilbZoGl0o6PQJiCJCvf3dAY9XTiNAMTmuHUuE
+YS/2PqwzmkY5yzfXN18kwts1Ea1D5tPoY7rjsYRkIpz7rnFSees0avlSdBim
+E6Fp8uCcdfbTqMz6wfPJLCIcELga+rhMo/1pN5wr84jQIOm1bfqBabTbtMkh
+spAIe58XHv4cMI1OdBTnmz0lwkdf6i9TQqfReuO0vYQKIgyfiV9bxEyjcs2O
+w7XviLClZr0o9sI00o8d7kz5SIR4/uD2uuRp9O3yyjL3L0T4yetcsdrtaXTv
+AoW18hsRbuvFqz1zp5Eds+/mZLvMH22/T6WPp5HqeVDY+JcIi3LXX6SVT6MX
+ZvEr7w8QYf9G8hGvd9PovrOeVvQ4EcLxa2HvaqeRyLP8tDOPCAt4uHjh12l0
+2/jWXqMpIrzZ7a2R0DGNDjFcHs4gk+DQdc/nrJ5pVHg8MoTLIEHirvREr7Fp
+NOl9/nWbKgkSqjkZ3/gy/7dS4pAGCTYyDo/aECTIaCjhy8P5JOiNBs/VMCSI
+mnEv4/oyEkyXO+65VV2CehYPTMTqkqB2JjHxk7YE0b6xGkOMSHC6Lofk9J8E
+2cbv3+C3gQRNLrk1/9GXIEFBg7GHBQlaX4b8Y+slyH1TD96znQR/GgZE0Kwk
+qJ21tdvBngRvFXHdcuwkKEf5/q2dziSoKSLlbnKWoM/Jj4Z2epBgN/etY7en
+BG1ZJt/q6E2CQd67gy76SxDDLPrQ3iMkeEEqnjQKkaBlhFepnidI0C96VNIT
+LUFqQee8AyJJ0CbTP+rWBQmasr/+O/wsCfIMKk86pkiQok0F6WICCeqbLmcr
+Z8j0dr/4lnGVBOsaGbzmPAkKPOexu/SGLH/3y9ibTyQoLCEmoS6LBN8HpNw9
++FKCcreOBvfkkaAGadLe8L0ErVSLUyU+JsEk/0O3aJ8lSAcuOLroGQkucTWP
++fNdgozNcuM3V5JghERCevtbgrzPsjwDMAlCxiq9u4MS5FrEn06rJcF5FVvJ
+F9gS5BF79+C7RhLc0/f7wvEpCQrldqWM/iDBfPWEtwdoUpS76uGleV0k6BDV
+/thZVYq2pwj3OPaSoK1GuLPDXClKaWlgJ4yQYOoz+oedS6Womb3S5z2bBL14
+6zmOelK02kajdFpEgn9OVI27rpOizdfu/DQnkuG3F16VvpZS1MZu7jwtR4bb
+nH7sjbCTomxC1YcqFTKMHh9pvOosRfrNV64qaJChmmPYkkIvKZop3mnpPJ8M
+14bucPsUIEUf7y/vzltGhqJkx4iJUFn9FYsgri4ZHl8REKt5Roouz/g4us2Y
+DDmLLsRsT5SihWY9nnfMyDDoY2ZQ9DUp0vzQ/ElgSYax7Q/dyrOlqGR+7Zrd
+NmRoVvRsK+eBFCVfpdwocyTDyiU1pibPpMhmwRfxLFcyNG0QGJ5+I0WGFT4+
+UV5kmDZ6aOPnGilyWTq/rcePDGdc1nOf91WKzmtvc7YPJsM1l+Ouh3ZK0UZH
+0563YWQYWJY+0twnRXNP2sTqnybD3Hd5voZMKeJu7Ta5H0+Gc46Py98WS9HR
+rAMU7StkeHNXd1AsiYB3HDUZT79Ohgf1NrBf0QnYvr1JMDOLDOcO6c/gKxJw
+kXne0vQ8MkysDv1qNIOAVQ1WRcx9TIav9JFhqAYBZ2YP8O49I8OHTfXrXmoT
+8C3scU/3FRlWJzj1Ty0i4Blmc06/ek+G1LgFm7boEHC/1oNk23qZfnOeZYou
+ARuO3G3/00yGlxNzBF0GBFxfnu0Z3kaGyTms/XqmBMyaY7Fsxl+Zn0vfRp0z
+J+DpHWv0SgfIkLL6l0OrBQFvN9E47TghOzvodutvI2ADvwdz+Hwy3PQ4Wf+S
+HQEvN7lFvCMhQzw2umnIkYAHqgvMrWkUeP2A/gybvTI+SukNAiUKvMnbWvTE
+nYC/MfUqHs2iQKdty1VnHiRgbQAJnvMocKjoC4zxI+CWujuPNJZRIACGFkNH
+Cdjbf1nFN10K1OjdN9PlBAE3zyzXv2ZMgcdcHN/WhxPwnV7jmc7mFPh9wwKw
+KYaAHZel+WtvpkDurNas8lgCbjyEjfptKXDDkeR2/YsEzDlVGVbmRIGpbw8J
+i64QsMK9GJPz+yiQkhU6pXuNgBeFqYe7HKJA5ScDgyW3CLhG7aL5miMUGFM5
+gNfeIeAVahNJCiEUmPnyfsK7PAJOyT/oO3yKAm//dII2jwj4US7525dYCuxP
+1B9vK5bN/4ro+7MkCmy7Hn494DkBLys8cSwrTaZv9nETaSUBlynef5SYQYHb
+rvu2piMCDiyoP38qlwID5B6eMvhIwKN7/qMFF1JgyEjSkqZPBOzMJxv6PaPA
+JxYBP4KbCVgluEzx0CsK3P6g4Jr6TwIOr7qccfADBTa6Fxx41UnA7xZP/PH5
+RIH5Tj8svbtl8xLC7qMtFDiyIX+D2gABr5qcyA3voMD1l6/YvR8lYLrsS7zw
+jwJf3lKIDmUTsP92i8hbwxS4Mz33y0ohAZvP7E0vZlPgaFGnRe80AfsY9l2o
+E1NgPXnrnxwyEYe3tO7oJ1Hhvqawh14MIm784cykK1Bhz37GvSUqRKzdTQlZ
+rU6FNivvfhmaScS7gi53OGtRof3fP3plc4k45vfdVeeXUGFOaOTnMwuJWPWy
+KKB8FRW66i0ssP+PiFd07cseNqLC4BdXPyzWJWIb59TaJeZUeOa/C0tFBkQs
+LTo67rWZClM0GptaTImY2Fk3O9eOCg2fGteVbCTiYIPELQO7qbC04qpaipUM
+7+jtM2s8qNA352VJiDURR34cq4/xoUKLm6kFbvZEbCAft6IpkAqf3qKKN+8h
+4sNP9uctDaNCGE0uNtxHxLDrqvnp01RIoMXWLDlAxPI3V4o7L1BhFP/0tjl+
+RHz2jWP3xmQqjNSSGqsGEvHD5asFeTep8KyX8jWFECL+UT0OlXOo8Nwf5CMf
+KfPrzteq6IdUuJW9+qniGSJWl2jGT5RS4R6rU5Ez4ol496lZSb6VVPj4T8MH
+rUtEvFdNq637PRWqbXdNXZ5KxM0bL4Ue+ESFBnG7h9bdJGJD5WbvvhYqTNWX
+NtplE/F9M4/iwE4qbLmRs9U7T8bPotRZ3EOFRq8Tdp95RMRyJx0OXRqV9QtV
+mM4uIWL6vKb2hTwqZIcnbcblRByUVIteTVOh7Ykj+v2viThxzZ+5rjQadJwz
+74PKByJmv/3InFSmQU+z2cSNdUScsnbttjwNGiR3/WAGNhLxGJ29xH4hDVKt
+em7kfidi49WfL0uX0+CYQiO3o4OIKzdlJDw3oMFtVnozNLqJuDbVam7QBhqs
+DrvPdh4g4gbHFza6VjQo/NSekTEm05s5On/Clgbl1c6q/OPI9uv2SNaL3TT4
+s9Nxz2qxbF6ZVZ9iPWhwRfqM49EEEr68LqXYyZcGi29d9WuikfBv34idK4Jp
+0B1mbvxPiYQrbxeXkiNkeFQN4Vl1En7w+1jnv7M0GJYylPlHk4QvieV+1CTS
+oM8Psp7lQhKOS/iSV5JGg2Y6XmUP/yPh9hnzdmZn0mChI8lAfTUJ3zQ73JF8
+nwYHSgWPzxmRsOlXHfuEJzQ4br13BXc9CU+xu5/FvaDB7T0WxQFQxk9/hWI8
+okHV+f9A31YZ3v2sA5fqaHB18tGeQztI+NzCwcr0rzTIbVtwp9+JhIdhtdaD
+Dhq0+7j5ZKAbCaum86+86ZHp89QLEnqRcFiVo0brqCxfZcPVBD8SNs8tf8fn
+0eCu8qaOuUEk7HlI5ZKWlAZD3x9wfRZKwr3PXOO2yNHhlt2BKjujSHh3Z1Zx
+qBodUlxOkcbPkbD70Lj6o7l0GJattS7tIgkbNYe8+reEDh8Jx8s3JJOw31WP
+R4tW06H2/uxzAzdI2MBpdMDHhA7XEjpzbmWRMP1+UEwJoENGoJ/mzjwSJsdZ
+HJdsp8PnRUoseiEJn7rR/GnXLjr843l/dU0pCbvZpqcW7aPD4d9KPy6+JOFa
+mnaDgg8dbnBdN2b/Tpa/WXz+WBAdGvDmRWt9JOEb1W24I5wOg5jVCSOfZfMt
+C7poc44OwzGYjVtIOP9HbA9KosN2oyerb7eTsH3xSPuG63T46dq672F/Sdip
+ODnkdTYd6tdoqroOkHCJh0+FxQM6JB67MQDGSdjyYkhpQykdusyZ9lrFI+GQ
+gK+HPF/RYY1tSazWlEz/74IOfhUdamINJ1UyGdsk6c673kCHgoiSNoY8Gb9S
+LjIybaXL/j+mNOXUyFjV5Ox/f//S4ewV1+cpzCFjraWzJFeH6TBYPHt4xgIy
+/nVh8IMVlw5rVddeWPAfGV+sTYyRTNOhq06RcM1qMt5vnmGC6HLw16rt22X/
+TTh2XwM/Xk0Olvn2RB00I+M3Y4M1u7Tk4OI834xYSzLmWX4sWbZMDla51Bc+
+sCbjvb47Xkn05OC372rPvzqQsfHuMxNd6+RgrfeetwQXMu7UP+pSZSkHR85W
+NBh7yvqfWicptpODbYKg0UBfMl5lqz2c4ywHr8x9s7AokIzbLxxadttLDs4f
+Yh+fCCXjEc2gypsBcvAPCBswjSbjTYalJVmhcjCcWnkxPo6MhZHP1B6eloN+
+rps82pJk+p1mDFVelIOLqm4fXZNGxodnxoKWNDlofjD43ZXbZFyytX4+K0sO
+Ds8PdWPmkDGxpzpl9gM5uLYzcLvLQzKmp/ndtXwqB+flG6V8LCFjvdHK3Sdf
+y0H7oSfr170k44RXHa+KP8rBxIKfdqXvyHhqnbRzvEkOjt6r/Lq6howXu4Z8
+WNshB7szQ5tLG8h4Ji0jIq5XDtbHmzqu/0HGL/zH5NrG5SCu2Oxe+4uMXQ2l
+MUYiOfhGlyVy6yXj1+0R/26QGfBF6X1D7ggZm45pWUiVGLBuSYfyNQ4Z33f+
+cD94DgO2FC+4aTpJxsUF++cMLGZAa+ns790kCp7tNVXgs5oBP8SebEyVp2C+
+Fd43YsqAO/MoydtmUPDpu4MWEZYMOEbJnU+eS8F3Mxq8FXcw4LcqcKF6kSye
+0N30YC8D2pX1Nl5aQcGxxk+v2hxkwKt3ioiuBhT8YmNvEfcoA5ok1unorqdg
+uQMbTQrCGbCDddqGakHBn1syTDxjGZA7UzekdzsFc67xKxdcYcAZBpaP6x0o
+OK/e98vATQac/8V66rkLBTNmzz/1MpcBi0TdwQVeFBzEPtJ09QkDmuZilTuH
+KXha/m1bYAUD4s/P+jKPyfhmZuburmLArT1Zk3cjZHiNJeutGhmwgB61r/As
+BV/QxoXr2xnQZ88BldcXKTj9yVPSul4GnDCKXtSSQsE1by7u3DTBgB/zVLMm
+blGw+9ThTDsxA+pcjU5Uv0fBi6du8A9S5eHgLFPuxkcUrJgaEnhOVR6eHGru
+D3pKwQWbLig91JKHMJ17pKCSgoNzQ3p//icP73f5Xu19T8Gb/pIIyobysFye
+7rriEwU7qM0L2rFRHmrYNP0MbaHgU88bzG9sl4evSD9m1HZQ8IaFVqf6nOSh
+zhrrOQt7KHiM32i8yVMe+r+LYJ8ZoeDqrP5TdwPkoefAl6J+DgXHlyzZxwiT
+h+dSP+/aPUXBfmc390adk4eWpRrMOgoVS5N1lwkuy8OlBcdTNitR8WrFPt2o
+W/LQ4eFLUDuLiofss+Xl7svD10v6GY7zqTjd53FDdok8NF86Z7L7Pyqedely
+vPlreaj6NmHBKX0qjqnos+itkfEJuRqnuY6Ks5efn3GjRR5GFOYbYUjFdr0e
+dPvf8jBTzc88yFqGZ5+2ZsawTO/MK4VLdlHxi8qAO7958lBqw0n660bF+ybc
+DjwnKsAxZvrw/UNU7NFETLqmpADz9978eewoFbd0r1gRrakAH3uauG8+ScXh
+7Hr7oGUK0JPddnHBaSquLqKqBBgowPMx9ABSAhU/NNOLCN6oAG8dD1IaS6Zi
+i5EPWaetFWDj+99n/9yi4rqG41dv7lGASb47W9rvUXHcoTmerw4owE3/2lR+
+FVKx5ZbqhQOBCnBHHdrWX0bFm1vK+uadUoAFW49cFL6hYkq3M95/QQFmPQ34
+O6OGisUn7KsepSnAFTNO7l/bRMWTR04QpXcUoOSFv5pXGxUfsau7sv+xAvxW
+6yB3rZuKN0xciap7qQDfdu7b1ThMxT9s1v42r1aALan9EjUuFauZ+Na/blaA
+PN3wefunqVhvjdRhS5cCnGWI3j6j0fCY7uzE9iEFWMzImlBRpeHxQ6L4CL4C
+bMrTqDqpScNJS9e4LyYrwjcL/Lf3Lqbhp0VRC1tVFCH7JC95ny4Nz6O0DaRr
+K8L0ZQ6FnWtp2OtXdO2BFYqwtM/soTeg4Rchv7+bmijCxy6PM/jbaXhFTPEy
+TStFOFX1Pi11Fw2HKHY1UR0U4cdP3+6tdafh9xduD027K0In3cPt/3xoOOOm
+UyIxQBH2xK+zvR1Mw59XvvmoGq4I984xZLhG0nBfQE35qvOKMDs1bNniOBoO
+rn54bFeqInzd7v6Me5mGz453KcXfUYQreo9/aE6n4SnBsvyqx4rw9/nIwy9y
+aHiNW8JO5UpFeMk6+GV+IQ2vVXNY7FOjCCP3Jny485yGyypmr6/7pgh/2eln
+33tHw5klrx+bdivC6zoq+4rraNgXBlwrG1eE9/TlVT+20HB1022G+ZQizOoH
+zX2/aDhITWX5V4YSpE0plqoO0LCrZZdciIYSHNiiWL2FRcM7AvxqFi1TglZI
+Y1H8JA235h6I6jJUgjjJ+lcjlY7P+7RYFkAlOG9ySn6JKh3n/FVfF71TCX7J
+afpwbi4dF+36EebprgR/uedqjiylY9tAbS2HACVYH5mxzFOfjnegrRY7I5Tg
+RP3i6a71dJy7TIHmdkEJnvo8+sJvMx3Lb4m6EHJdCa79xvKf2knHx+WpfzNy
+lWCBeejqLFc6fm8Uuqa5VAn25hA0t3nT8YFuzg11pAQNZgZvng6iY76eqr5P
+gxIM8++tfRdJx/9+vJz7sVMJ7o359vrSeTrWaNsYYTQs05sgWeedTMctRvv8
+SoVK8II73W97Bh2T7q2RM6crQwWrNqd1+XSs7rI96ucsZTi3X3O2cSkd2/y7
+2X1mqTKUXGmvNXtNx1Hcc+7rjJThif5TcfY1dHzKqU2JYKkM2TGVh4K/0rF9
+dZdGq4MydN5ZGJf5i46bqNuz33oqw692byXfBuhY8sPifVmQMtxPRsw5HDre
+Rw58UBmjDCONOk4GSOj49sXekKbLytD03O3COoYclpRvsuVlKkPFFUOPjWbJ
+4UCf5F2rHivDJe/m3Hy8UA6/NQ8oOf5KGQ5yfiWu0ZXDXZO9CXX1ylB8zDH3
+g6kc/tV2m7SmXabniVhywEoONw892vpwUBnKd9S+U7aXw+VZKMpAqAxjW2cS
+693k8M2Nap8+01XgScOivhRfObzu8iG3cA0VeGFN/WXfE3LY1UvR2VhHBRoP
+aGrYnJbD5/fz+kmmKnDI832+WZIctn9zx7RnqwoMqnN1M0uX8Z+1OOSHswok
+PeU7W+fK4Y+7135s91WBj/fqvPMplsMRBavdmGEq0JooepbySg7nXCR5aiao
+QMkBkcunGjkc3etA3HNTVq++/vuMb3I4HuwPznugAgvn7LQO+COH2RKtNkqF
+Cjwb7tzVPCKH36OVRyLrVGBau7h8q1AO21Z3uRDbVWDt5uOizxQGFp3c1JI1
+pALXdJ9p9FJj4A6JCsNOrAINWs64U+czsEv00M0EqirMW+j1uXIlAytm9Jpz
+lFThgoqHVqdNGZj8JVrJf7YqPBoeM75rMwNTlOYuHZqvCrN23+OZOjLwrMGk
+zBAdVXjgRmTc6v0MXHCVliy3RhX6aqtVGR1h4PopvbkP16nC6i9af20iGLhi
+pbrrLgtVeJckpoXEM3DTDoPDdBtVqL/0jXdRGgMn6UR61+5Shezt/+kI7jIw
+03vnkbR9qrBLXBbt9ISBaxUvZRz2VoXTylnX379iYDfpOVWbQFX46/b3OxZ1
+DHz0AnHUJEwVxkzP/vLtBwNP8/fY6Z9RhWnqvTsiehh41NvO0eiiKhSEXHTW
+ZzGwrf9aLatUVfi6baGmSMLA1lMDn/ZnqELde3fqfyjKY/2D1ecu5KlCrZAv
+WR/nyuPfq18eeFWkCpUlu+rqlsvjZ3vNr4jLVeHP329j/5jI4wcBB3W2IVVo
+X3CWLL9FHpvVNTjl1KnCWZSp2O1O8vgQ+Y0JrUUVfpoVtyHzgDwm7abzIjpV
+4bwuL2/SMXm8ccnK58JeVbiyq8vs9Gl5fOWpZUb8uCrM/LtlWvmKPO5tnd24
+QKgKrw+P9T3PlMdzezXCa4lqsHvXBuNjhfLYN833bbSCGiSq5utYVMr4L22t
+B7PU4Av9asLyOnkcfoP3UXWBGmSfcSAua5XHyWzGr4nlapAZoHt0Xb88XtWo
+bdplqAa9aUfiD/LkcX37JKndXA3quO5Ny6MoYKt7m472bFWDAW1R7ZPqCngy
+wDZnykENDs4vzD2yRAG7bnJvWLpPDT76SzLlGCrgCtXzi9191OBjLcnfNEsF
+bKD9vCk3WA2+TgoZtdmlgOM931NFkWrwqGtegdZBBSy2CeDvP68GVy8A+6kn
+FPDv2+7fv19Vg8KFIYfkYhVw7j6zb263Zfm/J+jL0hQwTS9fh5WnBsNHOXf2
+5SpgjcIN9FvFavDYQueYomcKeIia/9C+Ug0WK6eINKoUsNtYltWcajX439+6
+I3e+KeD/GyzveKoXPw7TkpzxHWdbByU5Sa6RET5RGkRLdcMpRYRISpKR0RCS
+boVU3CtKuor6GXH1CQkVQiSVhlnhpG3k15/v1/P89fz1/v7XJ2KkgYSY6Nd6
+0K2EqlNOrXrZQUKf8aH0iS9KmJNxQvK8mwSdMCbVPp2Bcb/Esv5hEubv7pc9
+4jGQMfDgqeIYCSbBdmldcxn4+paBsuUMCu7EbvZnmzGws2OjXAxJwYXs9U9d
+VzGw7U1ETacKBdXCSONaFwaq/LXy5nIdCjT7bH6s3c3AqkMl8g8MKdD6YBI3
+GsHA7/WmclusKdDZ+8fGylMMzI79d0TOnoK1rq6Nuf8wUEaEapRvpOCvFguv
+gtsMLJAktsVvp+B+Wt3pjhoGHjH1c9vjT0Hb16g6zQ4GekxaTfUJpUBqd+BI
+4gcGLmrr5B08SkEJeNqKfjHwxOLW/ounKSjoro6uI5joMRT18NklCm7Of3M/
+XYuJa4M4tG4eBaHRH5OTTZhoop/BPV1MwRp5fkDeSiZOjs6VkNUUKCVl9w+4
+MhHti/690kRBSpti4uo9THQf3P7T+SUFE5KxwbYYJu7809tP5T0Fnl6nMo+m
+MHHXTUOvsW+//XtbLN3ymGjqFuzweSoN78qjtrncZeKAj2nUNJKGNfNe50a1
+MHHD2Q9++mo0XHXS/K+pj4mPVCMP7pPQMGd9z5KV40ycuXsf3WpKw6P29ncf
+CBY6JnzJdbSjQTrRua50DgvJqN787vU03EFd20JzFnqcnZFyzp2GvpaQ3e1O
+LBSc/9XhEUCDk7xq0jxPFi5YEDniFE5D8HxTn9xQFvYIt0g3x9PwdEbX/U2n
+WPij/uKliDQaNpxc5m+cw8ICucJFVVdoOO/30ci2nIVbS/cXaBfR0L+uSRbV
+zMInAdKU3Goa8nelR4z0s/BZeWqIQwsNcZ+f4dlJFvr66/az39IQby3J9OOx
+kaPLC/8io2GEEasUosdGyD/cPDpJQ1Tk1h8lS9lY+Kj9mBabA+2P5XcsdGVj
+5h9jEKDGAe/6YseuIDZ2KnvlvNLjQNB+UU1NPBubZrl77rXkwFt07uzLYqP9
+Ze2FktWc3/9371XbcjbKNahVKLpxQGaU7dTZysZrBsxHrN0cKPO/OHZjkI0F
+K1eoWIRzILxsKMB9KoEzVEeCkxI5wIuJuzCLIHBlq+E1xiUOyL+9o92qQiDD
+OezErXwOPJl/tqhiHoG6ZOVI7F0O9Kxy/llvQmCbVW11VBMHBkLT/v5pS2DK
+Da+Ba284UP/lvJf9WgI3Hu5cI/+ZA1SKj+I9KYF1b8nPR6Zx4UTzQnsXPwLd
+beWbzHhcWKEY+F0USuAbzhSZqg4Xpqev6ZI7TuDeZD0PQ3Mu9Lx885x5jsDn
+VffsDjlwQbgsqM7mMoHBpvFl36RcmCr/LjmzkMD5tzfIcgK54L7ju6bOPQKd
+trmpJsZyYf3W8qDnjQSWvnh65FoKF95E9MaUvCKQXewRIpfHBddCC9eqQeJ3
+v0KnUxVc8PSYwh4fJ1DBSC7IpZkL5ssPlOxgkPjDoHLjjl4u/LFlVeSYMomr
++fbhuaNcGLypdbZaQqLsTNgBfTYPbicvXIQWJB7ec6TnmxYPuhNL84ftSYwP
+zDsgb8aDLrvKtRtcSUwO0xxe48iDnZm3Yob9SBzr/6TWt4MHzsZkUWU4iVom
+Ax/vH+TBx6/muxpPkrhsW/a64SQeBA5a6PEzSTxjfFXqmcODwWVX/kkvIPGG
+Xoyx7n88OF4We0haReJ1Xz4NrTyAxtVh7k9JDCn/aJ/7gQch8ybCcvpIbE39
+29F7Kh90Hxj46I+SqOQWnB2pzIdz+V52vxgUbtD/9v2TIR8MxCskXDGFN1Yg
+o9KBD0ZetH2wIYWJl/c9HPHkQ+d17RGt5RQ6+j2wOhbJh3WBmcfFLhTy2yvO
+RafxYSBd+4x/AIX+GeqS/lt8sPR6UkrEUpiex4goa+BDXaMVKqZRWEx2Wcm9
+58NEWnOyaz6FYovFq+9MF0BE5FxrRjWFzn/vKR/UEIB3VpG8ynMKZT689ktW
+ApCyy6ySZBTG8gitZhcBiAs3ndilQKNB0GvPhIMCIA0U8vLVaNy72Se3OUUA
+05rcLm43oXHaiNaSa0UC6HmonRrnSKMu/bBR0CaA5Ed9hI4XjcUvc1fP/iaA
+guNtaHOYxkiDcHYLTwhGvo7XXqXR2NhNNEhMhTCD1aYmf/s3v3o133iLEMKy
+a+7faKBRZ8zJ4UeYEKItr2XJBmhsSNKvPJQphIut3pr10znY+qdScW21EI7q
+bRPZanJQmaR8+geEYH/56Ivt1hy8Wq53r5stgoorFZYGbhxMfMz4s9ZEBKG1
+R7OKDnFw6/DslEtSESgNmFHj5znosmD8v6BjIhjXV7FUKvu9FehpzgUiuLsz
+LHWok4M2tc//XfNCBCN3rfwLJjgoMzeVBM9UBt5yk69bxVw8VykxazNWhk9z
+a3wVlnJRnbVpZoyHMvREuJoUeXNR+sFq16kzynDpQfCUsJNcNE/aNEnXKINa
+w/ThXf/j4s+0OWFzfiqDeL9J2emXXJx/S7H7lZ4KJAS+Hp+lwMOlWddfuXqo
+gLNAZ9uAAQ/jHodx715QgZ15S0bspDx84e+QpdOuAr7j9w5aJ/Awe99QKtKq
+wDod3/WpjIeM1Ir0wnWqIKqzvH54kIeHD3hf1j+jCrnRczMoDT62+Wr2+j9T
+BedjFp4tG/n4crbKQL66GlQqHw/5cpKPN+ZJe0181ID/er9hfh0fq9L1QzaX
+qMGPnX3aSxQEqDX+viRwljpcjCp98H25ACUTQ5+Ht6lDTtyrJJ0EAZqHJYnW
+l6vDDpuTd0xbBRhYPqmRxhLDqKygJUMsxAsKCY1iGzFkHf/q+zFQiO9adBfp
+HRRD/IWZPvW1QpyWHztqc1sM9Ztabihpi3Bm1F3pjC9iUNq9dOHtEyL8urh7
+sZ2ZBnTNemyl9EOES9JZYsYRDdBc2En8L0AZq++Lm28/04AIUzKl47Myvls1
+3YZvogm/Pt1S2n5MBTtbj+rdz9AEPckyu60LVNFOscwoXKgFHat8oWJIFQsT
+Jr9NzdWC1KpfVzKeqOHXyRD24KbZMFbspCDpVcfNfetrhhbNAWuHvU8ML4vR
++oDUoDdAG6JfRxS+P6+B14sMf5bu14HU5eZeMUZaaOZz9sH+r/rwNFI2y1lr
+Hv4fpCob9w==
+ "]]}},
+ {RGBColor[0, 1, 0], PointSize[0.004583333333333334], AbsoluteThickness[
+ 1.6]}, {
+ {RGBColor[0, 1, 0], PointSize[0.004583333333333334], AbsoluteThickness[
+ 1.6]}, {}}, {
+ {RGBColor[0, 1, 0], PointSize[0.004583333333333334], AbsoluteThickness[
+ 1.6]}, {}}}, {{}, {}}}, {{{}, {},
+ TagBox[
+ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.],
+ LineBox[{{-1.8353702226737514`, -3.126046756490153}, \
+{-1.8336643701492554`, -3.12648896430401}}], LineBox[CompressedData["
+1:eJwBoQNe/CFib1JlAgAAADkAAAACAAAA1yoilmyNwb9LbN1WjTkQwIjxyPSM
+EcG/4yv4Vy09EMCAYRNl6arAv+0jNh4wQBDArA8/C0fpvr/8OWf7UUkQwGbr
+hMb+Tr2/PnmcE2hPEMB/oNDiLZy6v5/+wYenWRDAJMLzkfsBsr+LudUb0XoQ
+wMZ58OFOKa6/NTBVsXCGEMDgrUAH3rJpv78vI/QivxDA/rmcKZnNwD+DXslb
+5E8RwP+YCf/pENs/u/mNNDuwEsBkmyPeF2rbP+X8KGjGtxLA3/SpjOo95j99
+TQ9maikUwOTcD348ru8/aHzP4Dj3FcD1YhjojCbxP0A11CVJhhbAhTDI5Th5
+9D8vf/f/GfEXwMg3jPiGy/g/7kehosL1GcDdnnA9Q3v9P9h5sO3DUxzAkWUs
+d5ntAEB0hNmm5LAewLwipyaKEgNAx07+j7+RIMDQDzLvMWYFQGlvakdd9iHA
+fN++bfORB0C5iP9b1VAjwBHfWwVs7AlAW5ZQFmPVJMA+wfpS/h4MQNcZcben
+SibAdEqgd4lGDkCiGKzc7sAnwMoBq9plThBARRliB8ZeKcCmz4bUk2URQJdz
+sR4x5yrAd7XqWh2UEkCAtCREAZYswMzu0UwjvRNAJXes6JVBLsBtGboZNtIU
+QIXj76XP0y/AAlwqc6T+FUCz+c2pdcUwwOOPm6cfFxdARhCgl5CTMcBIF5BH
+FyoYQKBqe6d4XjLAorYMdGpUGUCl56NYYTszwEhHinvKahpAMvPnPRcKNMDD
+rrZ7pW8aQGfS9FGzDTTAPhbje4B0GkB9ZLduTxE0wDPlO3w2fhpAhWM6wocY
+NMAeg+18opEaQHHpQtD4JjTA875Qfnq4GkA4tNGA3EM0wJ42F4EqBhtA54Mm
++al9NMAZnkOBBQsbQMwkcBNHgTTAlAVwgeAPG0D0xmQ15IQ0wInUyIGWGRtA
+G74vkB6MNMB0cnqCAi0bQIzgcqCTmjTASa7dg9pTG0AeUfkkf7c0wMQVCoS1
+WBtApsVWthy7NMA+fTaEkF0bQEVJ5U66vjTANEyPhEZnG0Ag/XeV9cU0wB7q
+QIWyehtAPxynd2zUNMCZUW2FjX8bQNvcv0EK2DTAFLmZhWiEG0BWYc8SqNs0
+wAmI8oUejhtASRS2yePiNMCE7x6G+ZIbQBADf6+B5jTA/lZLhtSXG0BTNiKc
+H+o0wHm+d4avnBtAQp+Yj73tNMD0JaSGiqEbQOI124lb8TTA97y4ng==
+ "]],
+ LineBox[{{-1.650924918462707, -3.1778999397629346`}, \
+{-1.6477264449792783`, -3.1788741305904487`}, {-1.6443147399302878`, \
+-3.1799160761330136`}, {-1.639708938114151, -3.1813275597610713`}, \
+{-1.6347086579017243`, -3.182866355311455}, {-1.6304546881687645`, \
+-3.1841806513382296`}, {-1.6264032884230883`, -3.1854367054814503`}, \
+{-1.6221386571118503`, -3.1867636335499148`}, {-1.6136093944893743`, \
+-3.1894320681466266`}, {-1.5965501185871362`, -3.194827674754219}, \
+{-1.5917109348457177`, -3.196372831143968}, {-1.5888745328841933`, \
+-3.1972810810444345`}, {-1.5844521541492502`, -3.1987024728910862`}, \
+{-1.57949234399947, -3.2003017709661084`}, {-1.5756541758193556`, \
+-3.201544414384469}, {-1.570963081376994, -3.2030688012855926`}, \
+{-1.566698450065756, -3.204459890572919}, {-1.5630735134512035`, \
+-3.205646198606444}}],
+ LineBox[{{-2.1186507551246665`, -3.061125354881779}, \
+{-2.109512673432701, -3.062974205513453}}],
+ LineBox[{{-1.6904687122961632`, -3.1660754102151243`}, \
+{-1.689731246685458, -3.1662922265095768`}, {-1.6859381671230937`, \
+-3.16741002882328}, {-1.6822699586003065`, -3.168494242255474}}]},
+ Annotation[#, "Charting`Private`Tag$135192#1"]& ]}, {}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{-5.075689593679163, -4.851467865055216},
+ DisplayFunction->Identity,
+ Frame->{{False, False}, {False, False}},
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->{{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Log, Exp}]}, {
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Log, Exp}]}},
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ ImageSize->{370., Automatic},
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Exp[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Exp[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& )}},
+ PlotRange->{{-5.075689593679163, 5.747684907538796}, {-4.851467865055216,
+ 0.012064355914590463`}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->FrontEndValueCache[{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledTicks[{Log, Exp}]}, {{{-4.605170185988091,
+ FormBox[
+ TagBox[
+ InterpretationBox["\"0.01\"", 0.01, AutoDelete -> True],
+ NumberForm[#, {
+ DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01,
+ 0.}}, {-2.3025850929940455`,
+ FormBox[
+ TagBox[
+ InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True],
+ NumberForm[#, {
+ DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, {0.,
+ FormBox["1", TraditionalForm], {0.01, 0.}}, {2.302585092994046,
+ FormBox["10", TraditionalForm], {0.01, 0.}}, {4.605170185988092,
+ FormBox["100", TraditionalForm], {0.01, 0.}}, {-6.907755278982137,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-6.214608098422191,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.809142990314028,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.521460917862246,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.298317366548036,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.115995809754082,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.961845129926823,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.8283137373023015`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.710530701645918,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.912023005428146,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.506557897319982,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.2188758248682006`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.995732273553991,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.8134107167600364`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.659260036932778,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.5257286443082556`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.4079456086518722`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.6094379124341003`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.2039728043259361`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.916290731874155,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.6931471805599453,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.5108256237659907,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.35667494393873245`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.2231435513142097,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.10536051565782628`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 0.6931471805599453,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.0986122886681098`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.3862943611198906`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.6094379124341003`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.791759469228055,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.9459101490553132`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.0794415416798357`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.1972245773362196`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.995732273553991,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.4011973816621555`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.6888794541139363`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.912023005428146,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.0943445622221,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.248495242049359,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.382026634673881,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.499809670330265,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 5.298317366548036,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 5.703782474656201,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 5.991464547107982,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.214608098422191,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.396929655216146,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.551080335043404,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.684611727667927,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.802394763324311,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.907755278982137,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 7.600902459542082,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 8.006367567650246,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 8.294049640102028,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}}, {{-4.605170185988091,
+ FormBox[
+ TagBox[
+ InterpretationBox["\"0.01\"", 0.01, AutoDelete -> True],
+ NumberForm[#, {
+ DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01,
+ 0.}}, {-2.995732273553991,
+ FormBox[
+ TagBox[
+ InterpretationBox["\"0.05\"", 0.05, AutoDelete -> True],
+ NumberForm[#, {
+ DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01,
+ 0.}}, {-2.3025850929940455`,
+ FormBox[
+ TagBox[
+ InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True],
+ NumberForm[#, {
+ DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01,
+ 0.}}, {-0.6931471805599453,
+ FormBox[
+ TagBox[
+ InterpretationBox["\"0.50\"", 0.5, AutoDelete -> True],
+ NumberForm[#, {
+ DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, {0.,
+ FormBox["1", TraditionalForm], {0.01, 0.}}, {-5.298317366548036,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-5.115995809754082,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.961845129926823,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.8283137373023015`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-4.710530701645918,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.912023005428146,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.506557897319982,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-3.2188758248682006`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.8134107167600364`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.659260036932778,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.5257286443082556`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.4079456086518722`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.6094379124341003`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.2039728043259361`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.916290731874155,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.5108256237659907,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.35667494393873245`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.2231435513142097,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.10536051565782628`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 0.6931471805599453,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.0986122886681098`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.3862943611198906`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.6094379124341003`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.791759469228055,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.9459101490553132`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.0794415416798357`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.1972245773362196`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.302585092994046,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}}}]]], "Output",
+ CellChangeTimes->{{3.714231218528014*^9, 3.714231255059382*^9}, {
+ 3.7142313035157547`*^9, 3.714231308612544*^9}, 3.714231351814006*^9,
+ 3.714235201839225*^9, 3.714235263324795*^9, 3.714237651648513*^9,
+ 3.7142383916598387`*^9, 3.714239403751025*^9, 3.714309211850031*^9,
+ 3.714309261042088*^9, 3.714309732210947*^9, 3.714310154972595*^9,
+ 3.71431023276715*^9, 3.714310694480132*^9, 3.714310740933058*^9,
+ 3.714393602935491*^9, 3.714393680229053*^9, 3.714393739396183*^9,
+ 3.714393770144878*^9, 3.714393800313098*^9, 3.714806781373952*^9,
+ 3.714807455026805*^9, 3.714808697123797*^9, 3.714809086773779*^9,
+ 3.714830497321988*^9, {3.714831620188748*^9, 3.7148316289374733`*^9},
+ 3.7148317985123463`*^9, 3.714833059002692*^9, 3.71483505932909*^9,
+ 3.714835112635359*^9, 3.714836052389894*^9, {3.714836320367176*^9,
+ 3.714836330124798*^9}, 3.7148363927162323`*^9, 3.714837433922267*^9, {
+ 3.714837726830574*^9, 3.714837753898795*^9}, 3.714839493280683*^9, {
+ 3.714839926507812*^9, 3.714840015177497*^9}, 3.714840754831308*^9,
+ 3.7148626520471*^9, 3.714862703968164*^9, 3.71486274283499*^9, {
+ 3.714863057019565*^9, 3.714863064309969*^9}, 3.714863178562976*^9,
+ 3.714865816451881*^9, 3.714865877028667*^9, 3.714865940494349*^9,
+ 3.7148661019375687`*^9, {3.714906904061393*^9, 3.71490696741742*^9},
+ 3.714907109369018*^9, 3.714992528875145*^9, 3.714992733123209*^9, {
+ 3.714992795935729*^9, 3.714992822718759*^9}, 3.714992865411003*^9,
+ 3.71499852779346*^9, 3.71500734721968*^9, 3.715008750375513*^9,
+ 3.715093149566228*^9, 3.715097512401636*^9, 3.715097680180244*^9,
+ 3.715355282381174*^9, 3.715359802419551*^9, 3.715368505193512*^9,
+ 3.715369098833323*^9, 3.715369270969144*^9, 3.715369649416274*^9,
+ 3.7153696826957808`*^9, 3.715369801017415*^9, 3.715369835119905*^9,
+ 3.7153792390133867`*^9, 3.715379358519333*^9, {3.715379993391427*^9,
+ 3.715380023194332*^9}, 3.715380139289197*^9, 3.715380769431817*^9,
+ 3.7153809108144817`*^9, 3.7153810505479*^9, 3.715382080378707*^9,
+ 3.715382205104259*^9, 3.715382671550989*^9, 3.7153832134838343`*^9,
+ 3.715410734865239*^9, 3.715467181251769*^9, {3.7154692636257887`*^9,
+ 3.715469266001438*^9}, 3.715471031892529*^9, 3.7154721126421013`*^9,
+ 3.715472275927952*^9, 3.715712726366378*^9, 3.715718883951441*^9,
+ 3.715719288466812*^9, 3.715720599432063*^9, 3.715720748131956*^9,
+ 3.7157667548030024`*^9, 3.799284417867214*^9, 3.7992854774363823`*^9,
+ 3.799285807946724*^9, 3.799323916811674*^9, 3.799324582127002*^9,
+ 3.799324962219495*^9, 3.799325492377431*^9, {3.799335171858121*^9,
+ 3.799335179860608*^9}, 3.799335357722909*^9, 3.799335587788084*^9, {
+ 3.799335772777996*^9, 3.799335787598695*^9}, 3.799335882987012*^9,
+ 3.7993359505862083`*^9, 3.799336576272534*^9, {3.799336790622302*^9,
+ 3.7993368272177963`*^9}, {3.7993371259902887`*^9, 3.7993371694306192`*^9},
+ 3.79933720575359*^9, 3.7993372370626183`*^9, 3.799337374365662*^9,
+ 3.7993374060838223`*^9, 3.799337452671547*^9, {3.7993382421048822`*^9,
+ 3.7993382540502872`*^9}, 3.799338336056411*^9, {3.799338459189561*^9,
+ 3.799338503096511*^9}, 3.7993388054466743`*^9, 3.799338871878414*^9,
+ 3.7993395506541243`*^9, 3.799340795349463*^9, 3.799342776418363*^9, {
+ 3.799343354137212*^9, 3.7993433997105503`*^9}, 3.7993440538314342`*^9,
+ 3.79934685941818*^9, 3.799346893975091*^9, 3.799353382836946*^9,
+ 3.7993575358921432`*^9, 3.799357852215169*^9, 3.799358393308949*^9,
+ 3.7993586073535633`*^9, 3.7993589633154707`*^9, 3.799359042294606*^9,
+ 3.799359075124887*^9, 3.799359204416299*^9, 3.799359720879678*^9,
+ 3.799359835734948*^9, 3.799360463609886*^9, 3.7993608753154573`*^9,
+ 3.7993610893363743`*^9, 3.799361319468627*^9, 3.799361474252829*^9,
+ 3.799758644928434*^9},
+ CellLabel->"Out[80]=",ExpressionUUID->"638615e4-4b3b-46bc-97f5-56e48378100b"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ "\"\<~/doc/research/thesis/data/essential/3d_scaling_1.dat\>\"", ",",
+ "susData"}], "]"}], ";"}]], "Input",
+ CellChangeTimes->{{3.799356430639045*^9, 3.799356444318798*^9}, {
+ 3.799356474377462*^9, 3.799356483440167*^9}, {3.799357869890086*^9,
+ 3.7993578699612913`*^9}},
+ CellLabel->"In[81]:=",ExpressionUUID->"6f0b335b-2af5-4960-bc18-dc31c8c414e6"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"i1", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"#", "[",
+ RowBox[{"[",
+ RowBox[{"i", ",", "1"}], "]"}], "]"}], "+",
+ RowBox[{"#", "[",
+ RowBox[{"[",
+ RowBox[{
+ RowBox[{"i", "+", "1"}], ",", "1"}], "]"}], "]"}]}], ")"}],
+ "/", "2"}], ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"#", "[",
+ RowBox[{"[",
+ RowBox[{
+ RowBox[{"i", "+", "1"}], ",", "1"}], "]"}], "]"}], "-",
+ RowBox[{"#", "[",
+ RowBox[{"[",
+ RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"#", "[",
+ RowBox[{"[",
+ RowBox[{"i", ",", "2"}], "]"}], "]"}], "+",
+ RowBox[{"#", "[",
+ RowBox[{"[",
+ RowBox[{
+ RowBox[{"i", "+", "1"}], ",", "2"}], "]"}], "]"}]}], ")"}],
+ "/", "2"}]}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{
+ RowBox[{"Length", "[", "#", "]"}], "-", "1"}]}], "}"}]}], "]"}],
+ "&"}], "@", "susData"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.714253437402265*^9, 3.7142534724354877`*^9}, {
+ 3.714253563304009*^9, 3.714253722476042*^9}, {3.714254476615617*^9,
+ 3.71425448002065*^9}, {3.71425510271012*^9, 3.714255104325654*^9}, {
+ 3.714393591583131*^9, 3.714393604335699*^9}, {3.714831650720236*^9,
+ 3.7148316512479*^9}, {3.7154692706538363`*^9, 3.7154692733017*^9}, {
+ 3.715720605159677*^9, 3.715720610919311*^9}, {3.799338880071315*^9,
+ 3.7993388802646093`*^9}, {3.799339201467791*^9, 3.799339211930553*^9}, {
+ 3.799339248644033*^9, 3.7993392804354486`*^9}, {3.799339453631219*^9,
+ 3.799339458047187*^9}, {3.799357889491406*^9, 3.799357911307431*^9}},
+ CellLabel->"In[82]:=",ExpressionUUID->"00e7ab82-ed24-40a1-8c94-ca95a100b985"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"i2", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"\[ScriptCapitalM]0", " ", "Tc"}]}], "}"}], "+",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"#", "[",
+ RowBox[{"[",
+ RowBox[{"i", ",", "1"}], "]"}], "]"}], ",",
+ RowBox[{"Total", "[",
+ RowBox[{"Take", "[",
+ RowBox[{
+ RowBox[{"#", "[",
+ RowBox[{"[",
+ RowBox[{"All", ",", "2"}], "]"}], "]"}], ",",
+ RowBox[{"i", "-", "1"}]}], "]"}], "]"}]}], "}"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"Length", "[", "#", "]"}]}], "}"}]}], "]"}], "&"}], "@",
+ "i1"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.714253865375753*^9, 3.714253984848627*^9}, {
+ 3.714254040978917*^9, 3.7142540416013527`*^9}, {3.7993395925040903`*^9,
+ 3.799339603368465*^9}},
+ CellLabel->"In[83]:=",ExpressionUUID->"a197c3d3-d652-4961-8ba2-7d8fa24536b2"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"i2", "[",
+ RowBox[{"[",
+ RowBox[{"-", "10"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.79935992758705*^9, 3.799359943544394*^9}},
+ CellLabel->"In[84]:=",ExpressionUUID->"11ad639e-95b6-4d47-aa5e-9d78f136955e"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"6938.840301827888`", ",", "33.87763081327365`"}], "}"}]], "Output",\
+
+ CellChangeTimes->{{3.799359929259769*^9, 3.799359943775353*^9},
+ 3.799758645186672*^9},
+ CellLabel->"Out[84]=",ExpressionUUID->"9c59e029-6ec8-44b8-8c76-99d1104d663b"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Show", "[",
+ RowBox[{
+ RowBox[{"ListPlot", "[",
+ RowBox[{"mag", ",",
+ RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",",
+ RowBox[{"ListPlot", "[",
+ RowBox[{"i2", ",",
+ RowBox[{"Joined", "\[Rule]", "True"}], ",",
+ RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",",
+ RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.714253985859055*^9, 3.714254037488164*^9}, {
+ 3.714254070388905*^9, 3.714254079756922*^9}, {3.7142541248098183`*^9,
+ 3.7142541467481003`*^9}, {3.7142545552141523`*^9, 3.714254573165605*^9}, {
+ 3.714254614496805*^9, 3.714254694969582*^9}, {3.799338895784511*^9,
+ 3.7993388997183104`*^9}, 3.799339515143626*^9, {3.799359977402214*^9,
+ 3.79935998083328*^9}},
+ CellLabel->"In[85]:=",ExpressionUUID->"37820a0e-34e1-4dc4-b88a-0d793fa88c11"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
+ AbsoluteThickness[1.6], PointBox[CompressedData["
+1:eJw11HlYzNsfwPHSJBUqIeI7+1RT0Uo3E5+PSIuhjZJwE7IV2tCtqxJarC0a
+S2hRki4xU1S0Kakw3C5JRaVuurJVJJHf/B5n/jjPeT7POa//3s+H5bvTbdMY
+BQWFWtn5/23NsS+yF8RDX01pUHUchd6N6Sx/xWNwv3Ak+atsZpnS3qdanYTD
+5eMzB49T+Ov/abi9f9sCE5H8/3kwtrn5IEA2r8t8w9nclAHXWLaMlHMU+p3Q
+unXWKhsirIp1JdkUrmlcNsNJcBmM8j0dr+dRmG5x9e0uxavQJkyw7SiiMNrt
+Q9zWputQvUOL96KMQs3nUaUnrQrBVTF2QVuD3BeDQYnJeLVmCh3DqQ/bFMvA
+v2OG0aMPFHp8yUnwa6qEpBczj3oo0omvgTM+rW+P6tDRbI8yZS+og7Rp1pOe
+zqUT/wjMM1ed9fSkE/8EXKP+i7v8h9w/BcdPi3bFXqTji7IQ5kJBM/AUGxZM
+eSb3L+H5VBWdqeMZxHeAxxNp83shA20s64pPWXVDT+MoRJ1ioH02P81B0AtN
+WbZcQS+D+PcQayQuWcFmEv8J1hSNm5TuzkTlyvcjKVaf4YuHwpuCo0zih6Eo
+LWp/Uz2T+FHorlH9FqrBIl4R9dLcCpeuZhGvjF3LTrlSeSzM325zZ4lAFX8/
+sfxz4Bg28RMxatGA9PHvbOK1MD65Kgmr2Zj+reVFqtUUnL06Pl5kwsHOl1PD
+nQTTcXhV3dUVGRzi6bjJ2ZOWNZ1LPAs3lJicPHCaSzwPvezmKoUyeNj2qOah
+nYCPCSIn5eR8HvGz8Rt/QqYn6BFvhmXH3xWzm/WIn4NBWsKbqmH62O6xg+sg
+sMaJV/ZmTmcYEL8Aa0KSHWkNBsQvxN3rWh/+iODj6InZJb7SGEjT9juiep3C
+Rb1lVP+xWNBZa7RrVNZbkPeSexNoRyAgTKupW0xh5/6cjPNZJ6BRQHWkl1AY
+P/lBhJ80GXZf3Dh64Jbci+B+qc7BpeUUvmnKVVKjpcHfqW89V96lMJZtcPhQ
+bjq01kVGTa6V+yxY5/lm0uJ6ub8E06c4jhg+o/Cv00Nd6rR8cBpekxHbSeGk
+nJplCbkFkKi6Jm9rN4XOz3TXbZGKoVFn7iB/hMJH/mvaPx+7CSMrRMF7xtDR
+ijp5SYN2G85e8OZf0KLjxcqoMwdzKyAk6HmCBZ9O/F24tuXD4+SFdPSJ05n1
+6VgtHBSG38pyo2P9by6DarQHcKcOmcnBcv8Yeor28d+doeO0jXtpftJGqOTM
+e+xcJfdNoFk15GHfL/etoOwzi9GvxyC+HerKWnNnbWZgXqSF63rpa7AIiLl/
+PZ9BfA8w/bMcNb4ziO8D4+D4nAxDJrZacAZjcz9C3dAta21vJlqeczTbLB2A
+gYqDcUpJTOKHQL3Aes/ux0ziv4O7r22KtTYLp/Km0Q7mKuA0lw7kerOIV8KI
+w9ynXbL+f3kVpBzNqzYqsokfj9YuysnNa9nEa2IyJPmdqGTjkymLizdJtfHG
+bVrjtFkc4nUwzTuyxfY8h/iZqCkuPCfQ4WJYPhVxKJeJweeVrniJuJjKdb68
+RcrB+PSfYc50HvH6mNkwUhko6/+XN0bRk9g/h1CPeFM0fpvLutKqhwy3hT82
+Si1wUvXtLzsj9Ym3wsY2515dvgHxNji357mudbMB8YjnrLRnJh7no7fAodFP
+ughtmXENJ4WGxNuj9h+ROZ0aRsQL0Sf0e0nzcyMc62XsVylOgqSBH5bZb2R9
+Z+SvyJmfCjN1vQcL+ii80+wy72PQGVjGaXMals1tNc7BtdsugP6MveGnhync
+c3mgv1qcCS2jxafLZH3+8jlgeOCfvoQfFC6Nj/+rLygPeJtfGl/VpOOWq5sa
+1EKuQY9d1Ln1U+jE34CL69buWMaW+yKojFF5Oc6MjjFm74LfB5VAz7kXiYk2
+dBQ6D3ZphZRDW9PZaRtk+7vA1bP4nrgK5lQKelMC6OjdH9xxef498Evdf2lp
+FB0/R0sU+oPqwUus1jIg2+emY8coq4ZIYX+EnmboXbn/G5K+Tni3p4+ODx7+
+EZg9/xn4LPMxDpjBwC1rS0+8C3oBtr39Dv5ODOJfQYJQNbPwsOy9fHV0tbgT
+Yuyjj+U+YRD/L9QlcF/9O55J/H8QGnJ51U9rJvEf4OHxj9XPtsv6P7Neq0Lc
+D3u8InXLzzOJ/wLXVs58Fd0q99+g9FvRXl86C8sNR0ImhPyErtJqjf98WXh0
+nNe5GvEYDGwZDqwvZBE/Fi+u/Sw5qsomXg1PLbC8kefHRvU7Sr0qIRpos5of
+vbyBTfwkVHZyiK2YwyF+KjZ2X8tryuYQr4vC5NdpfzK5xDOw1+xO/uZ0LrJm
+ec+rFrNx+s7wF018HvF62LKxTTD/Fo94Q1y+NyxOvFwPu4J/XlULMcFwQaol
+970efnvtoVArNkerlCyGe4o+8XMx3MI+Ws3WgPh5uP6BqPvnZwPiAWmjnCfz
+bvBxG7TG3RXbYtkm3obnoYbEL8Fmm+lDoWhEvBOebKys2DTJmHhnrO9rybN8
+a4w3Ek8vrhG7YXlll2ZU/SziPXCx8cvC+ILZxK/Gya3Kfj/TTLB5Ee1bq+QK
+RF52dM61p2O7aKxdSFgBzN+SrXzdgY6pepZKO0Vi4OzQ/2fdGjrauZurHLK7
+CX6KJTsuhdBxYtFKm05JKUyMCC+oCJX7Clji1u/zdzQdwwPUff1Fd8Eh7niF
+i2wfr14ZetRXWAs2aozckQdy3wDS+KEp4S/l/jEIVD3iY2gMHFd/4UaAqBHK
+iueZXjRn4Inae9LNwiYwf98ZafI7Aw127mvrkrTAnqgW61OJDBxxMfl3d1g7
+TDffDa8aGMiJue++S/QafhNwn8+S9fvwa7vNemEPvPF++qelDZP4t8D/8TXw
+zAYmnt56Oy047COsrRTZHTjFxKqzK9UCRAMwKPwePyyV+yHY15JRaKfFwnux
+6ikdkhGIc6z4Oijb17+8Ah5wu2BccYFFvBLON52/b9Mwi3gVbEuwmqDqzEZa
+MU+xRaKORw59T9EsYBOviaE1givnp3KI18YeacjnXYc5aNLufmijUAd3K4fq
+949ycO9I9W+vJTPwmaHnopRwLvFMnDw4vD+JxiOeg8r6aw9SyTwcXHBgm49Q
+H+scMwPrDPWIN8K5j694tt3XI94UF0a0HD7mr0+8BaZylh1vmWFAvBVu36mz
+wb3RAFsN2ww7JAKs+UdjgJ7EJx6RMY7X99cqQ+IXYUDYWW2hoREmavjv9RXa
+o05K8FdPRWOc8iB/SbdkKdon2np5dRgT74KxTlWKTrJ+f3l3rHp3jfakdDbx
+nliiWDPHtdAEj9j2ctol3lgrNHWs8DYl3geFXZLcpnZT4jegVqyWRLrVjPjN
+qJ6RwdcdMkNXlaWFnZLtOPuTw7BXnDnxu7Dqi+M0V8qC+GAUqXBeGxRZ4P8A
+VaSFZg==
+ "]]}, {
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+ 0.009166666666666668], AbsoluteThickness[1.6]}, {}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+ 0.009166666666666668], AbsoluteThickness[
+ 1.6]}, {}}}, {{}, {}}}, {{}, {{{}, {},
+ {RGBColor[1, 0, 0], PointSize[0.004583333333333334], AbsoluteThickness[
+ 1.6], LineBox[CompressedData["
+1:eJwU2Xc81t8XAHBkl75GkfWMJERGQqmcS5KQKBJKEoqMoiJFRgiZDSTKSCoj
+W0bZe++Zvffe/O7vL6/36/k8z+eOc88594VsZH3VhIqCgiKJnoLi/39bE0d3
+y+9fBjp1yQvnXxOQ3PqdMAszPXiTku+xhb2hZnpLlOUuhN1PGE73IqDyL6eV
+w2bvg2o3lZG1NwGRfuWPbtdZwd0XlZuCPgREn7XHR1jXBvSymVIHsI9JlLde
+U30C+oytnp/eEBC13Q9Fezl7uDQo4nDdl4BuNhgphJ54Dvl/uL2Z/QhIRGH4
+XKaAExzkjM+sxHZv+3V13M8ZdB+NUrn7E1ATddTiE0ZXMLjU9gACCCj8DNdv
+Fw83yOR3X1jHXsj26dy3xx1++258SAskoHwqT38OZw9w2Suvax1EQPfGs/+L
+2vaEJWGj08feEtDDuKWg+Ode8NfpnswwttoWUVNmwxu0P+hd+/KOgNCJi64K
+z94AI/0FX/33BGQg9dagds0Xlh6ID7N/ICDxZFVCl70/bN88qt+Ize4/+SLt
+RQAM2ovP+gYT0JRZz4Gz5wJB3vBG5KUQvL4Bl22pdwIhIOPbI5pQAvJKDE9j
++hsEhw8LGhZg01PBso7zWyCoDVo4fiSgVMMUzUH5d+DZNxB8OoyA7BVfjyTt
+eQ8qfuL9y9iv2gzr80regxJdq3LKJwJS3pwUZnr9Ac5R9NRahRPQO63xgxEq
+wfBP/IqtcAReXx3Bnw+ZQiDrmrT0GDbhymt69/oQkDj6iePrZwJ6b7am0vU2
+FL7d9+Yw+kJAHoV2/rY6H8H5H6M0MZKAWK0OLl7mDgOiuoBtN/as61yQeW8Y
+dDmP14ZGEZAS36k3FdGfgPG8/iWdaAI65CW8ZX4/HJbuegwciME+wEVx5XgE
+9Kc//tiIna5+N/3JQgR0MYk/CvhKQPc3n57uzfwMC+cLTdVjCcgxYKK5RO4L
+PJGUer7vG14/BrqgvMgv8Cc7KLES+6Rc/0ArdSRI5AxReMURkHSmZivL/UhQ
+4JSyufgd76fk6edWVZHwKNeXivYHfj7RuW9KNAo0/NeSi7HTTDgP+gZFwcuX
+L53dfhJQZu+WwJWVKEh3FLFSiCegxBkRQUm9aNB3ZHhOmUBA5lmpR07/iYa2
+x6Rv+dimOdEidw7HALPB84WXiQR0tYnjyk+PGOCTPnILkgjoA0iGcUzGgOb2
+kdEdbP3vZFLsla+wm+EZ8OcXAVkJcExfT/sKeWbXdZ2SCUhBSYPlGGcsnCOG
+yculEJDFPtZPRKdYMBm6fWkHu2fn+yeZQfx5ReLDP6kE9EbI6rCN8jfY6QvM
+dEojoBS+vLN1Cd+AWYGNAOkE9O3AzoY6Wxww0p6L2cVuzP5iMW8fB5PKnCr5
+GQSU94g3MuNfHFQLpfznkonjTXr5W4Tid6ioYlmWz8Lrl5Qc8P3Hd9DWVtig
++k1AvGLD5m3MP0Bo7jKxGNsi75iSoN0PkK+QM3bPJqCX3EdPfOr5AYPMxAql
+HAIaqHCTk1T8CR831i7T5xJQ9f51h+kfP+FsXutCBbb61vnVSpZ4mA4qzPTJ
+w/HxRLioyj4eeH6Xfrr8h4AEJV/OzPbGw6uH05H//SUgo1oOL5mLCXByG5U1
+YJ8vbI2KSkyAN7FV+97lE1Dxo1hVCfZEkMsMtrleQEBZ4g5vBx0TQdUxae1Q
+IQEtKat7/x5OBPZLvJ+7sKe2BVDq5ST4ZjlpElFEQN3vD5bUpyfBfYUjl+8U
+ExC3WPABhv9+QdXhRq0jJQTEqXvpz5nzvyDRcvfFKHY5RcY9Z7tfcMs9o+RH
+KQFVmK8cavv5C97WUYpZlRHQ4APBTuj7BXbpk1kS5TifWFilZh9Ihrhop7vL
+2FfNZ+MvXkqGk4wlor8rCIhup7V2xDEZom5WcDlWEtCIvjY5JCUZplk+CMhX
+EZDsjc/x+qPJ4B0jpU1TTUCM5jP2EjwpcC8oJboCOzfR2Y9TMwVmb3Kw+dUQ
+UNVUyDKbRwowellFX60lIMtgpwxSTgoQPhdqcdTh/FDv2AFzKXBImCDQjf3F
+ctT0EX8q6OX6cEXWE9DFDeZ76Xqp0DV8UMy0AZ+HbK2BvQGp8P1cmbFwIwHN
+JLH0Py5JhXS9Hzlz2PEffz6Y20iF2rYKyYwmvN873t5O4mlAcV285nkzPp9H
+eZWIpmmw9GzMU76FgE4daY5tDEuD5cmtu3StBFTbfjQ9pCENJnXs79RgX18K
+ePaILh1MLE2c37bh87YRtHXzXDqE9Nbm67bjfHAhRUnfNh1umvw9TOrA9Yjh
+maHF93SQ+i0fO4Ltp/P0akBvOmiEGqomdOL6cFiOv+xgBniWHWV93IXzubxZ
+P7NaBhgxfN6Q7SagkIfv/S1dM4BdsJmaqgfvj67JqZ6sDPCbqxevwKYOch66
+PZsBppJfnAL+ERBP9NtPy/yZMFusNqPTS0CiDBpmETczQdKx/yWxj4CoZC2u
+6b3NhGkZM8lR7GPfou8KVWZCVPMMfVI/AbXnZ0TtpcwCF2lHCrsBAorbMOek
+PJUFHopELhgkoIka73oG6ywwGe/VphsioH95w/X8sVkQzFaZWocdp6fBp92T
+BTfSxyRDhgloVTGmPvjAb2grVGo1HMHfl8jvn1b9DSrisx+FRgmIa8bzto7b
+b3i4OuWygH3mztDV5uzfEMap6pMzRkCdgUXFxgu/YSvsQOarcZwf4w79oT+W
+DXGeWjTqEwSkt9R1Mf9ONoSOH3zKMYnzyRTjA5/QbEhuvMvQjz0iHSdu3pAN
+WTqX/v6YIqA9cTmRNxly4G5gQ/DjaZwvVK6WGcnngNYnurdyM7i/MHD68eJZ
+DvCGrvyin8X5y0hH60dyDpyK/z7fiD3BslEzOZ4D5B1h7fA5Aloxf02SP5wL
+p3Jed92bx/kpVUj7h14u9LNVvTqxQEB7HRifCLzNhYdndzS2sbk+3fTKqsLP
+Wx5H5YsEtH5RJ+wWdR64D9y9+naJgHQpZdLYz+VBbHe8p8EyATnHnOsZfJIH
+I5/Z+oRW8PqapxBLEvPg3eNo/WVs1+n+V9mjeUD97d5G/irOr8cI7MWkPxDk
++SD3zRrOn55/uvt1/0CEeXbkjXW8ni3EAba3fyA47vaPIxsENKYdI6ZX/QeW
+w01b57D5c1Nr02j+gvzPTv68TQKKkcwp54O/cECqLMRri4B+GR0X+Gb/Fw7F
+yIhd3yag21aui3Ipf+E/E5nxwzsE9HRHRmZy8i/UjjWUzmJf/zK23cKaDxdj
+WMtzdwlo6+mDr/li+UBPTzPtRUFE1bGTH9LV8uGUZ5qUDiURMfNItqWZ5cOj
+SJGoI1REFOu3/8Efj3zY121/YgFbzO2yTmN0PoTkx4z83UNEupcLv8zl50Nv
+d84fX2oiomZVUOP8lw8ThRXZ+jREVFUeY6C2mQ+0DJ2dQrREpCZX0u11qABy
+L60R1rDPsrtUNUgVQC+fuGcpHRGx12SJHblWAJ6yvmzv6YnodfaV/S4PC+Cg
+FHfxXQYiOskmYjHmWwDSf4dDTjASUdSEtLrezwIYfr0WSLmXiJ5I3fzdWl4A
+Fkq3k+qxQ6q8U26NFIDJL/75z/uIaMUsTW52TyEUu+noWDMR0Zu0GiMfciFU
+u1AMyO0nos5TtXwnoBAID0UC9/9HRDHWvzwGbxZC+qFR43/YjX8eBXx2KITx
+S2dvJTITUflzViXTkEKwaJVxcGIhosrp9/EyGYVw4/1wjjorEX25QlXB1lwI
+x4w0DxPZ8Ho2GH7ZmMfv5/FMmMUW/ZQnM/VfEVh/D7qVf4CIghoE3o0dL4L+
+uZcnAg8S0cGA5OxZ1SI406cnYsRORPJL1r8ozYtgv5mYqiQHER3ifu5AeF0E
+t1wY/KkP4fHxzfAqxRZBBN/yagu2wYnRz/bFRZCjvuP+jZOIQh950mQMFAE3
+rcTpZ1xEdOzg4rUdimII1wxlUeXG49fXDNAkFkPYufP/8fIQUXBg9d+kc8Ww
+2Cl7YhabnTVo9NDNYqCANw4FvET0UKVxn69DMcS4nR97S8DxlJN/cl9oMSiV
+WTw3JRLRv623xh8yi6FN5MDJ0yQiksxzjxRuLYaargus+8hEVFfaOFe1VAwW
+s0zsvdi1u9k6dmwlkOxhDymHiSjD0qXr+IkSGGkJ9HPnIyIlGQuXWY0SiGY3
+3aN7hIgcY4vVc61LQMyTMkKEn4hYhduU3/mVgLP5QwOKozg+bi4+tksogYv0
+fxWbsfdtP2g3qS6B0fh1jTgBIsrf+GB/e7IEXL6LuL0QxPO3qdEzZiyFuWvG
+XRpCRGSY+uDVY6FSqKNN0OU/RkQH5Bo2/JVL4TmZbWcdm1RpWJRxrxQO0keX
+1woTUaKS8+CYRym84jP7HS1CROo9IYZHY0vBvv9Rvf1xvN5L7Mi6pBQs0yqY
+1EXx+RE39ywaKoVENsdHfGJEdNue5iwfdRloPQ/ZXMP2WzG468dXBuoWgvG1
+4kT0h2uOiuZ8GRhZnHaLkSCit+FSJE+jMhCgbXd2OEFEYa5J+Qdcy4Crgvmr
+hiQ+r1z94wmRZeBzaW726En8e9SakVcLyiCZ5HZnGztW0muKqr8MYqZa1puk
+iGh3mr3hD0U5GGgsZ/2QJqLmem8tD1I5lC9OR7jIENG7RvsXuqgcEtyqf944
+RUTXL9irnzIsh+rk8F6x00R0ooOv/rBzOdSdtJKlkyUips+cdJxfyuF6uUru
+P2wPxs01rvxyWBFBJhlniChuyeKnYF85SAvqS/mdJaKsCI4jChQVEP4qTsT0
+HI6XtNj790gVkMQipSonR0ROlyucQlAFTEUzBbIDEbkuSFi0GFZA5wHYmcHe
+H/5BmuBSAVTnW4PKEI6HnF+DNpEVsMzSp/5FHs9H4tyzpoIKUDM3O/FMAZ8v
+w60tGKiAtNMvz109T0R8pJTHWVSV0G8j+lBYkYj0qvhHzvJVwmemV5XUF4hI
+5OxhnZrzlTgefNX+YYfUP6kxM64EM8PrK5lKRDRgsaDO6l4JL8nTZYEXieiC
+k2V/6ddKQNcNCh4oE9Hd7b/enqWVsPtf5sCFS/i8PizV0BqthOMm1CIkFbz+
+s4anj9NXwd1H18I3sGP4bVVYhbC1k6VbVIlI4OqQ1x6VKnATFF5LUsP5S/3z
+NsWDKlhbren3vkxEsv5BPxnfVMGHodhFE3UiunL0VygpoQqc+YqOy1/B+aB0
+ukahtgqOz4oF8Gjg/FGiqP5otgrue25wrWGfIaSQ4pmr4ZqEeG2TJhEdeSqt
+uihRDZYy/74nXSWiIe7WJqVr1eA/zpLocw3nb6bQ/NjH1TD7qb3znhbO72ve
+HGwfqkEqHsQVtfH+yeX888msBn07rUTSdZwPVs7ysHRUQ+PdI9rb2IULR1uj
+NqrBtjv3SKcOEa3nvWWV56kBd01h3swbRHQ4OrJt8lwNFJ1ylHunS0RTCTbC
+0bdr4CZT/utHevg8JoocuOdSAytXKLfU9fH+y64Hy0TXQJqHeojITXyek2ny
+DpTUgPS59FuMt4goTd7Na2ekBsKpz6uNYd8fjt2zTF8LfrY0xqUG2ObfJdaO
+1YL0UcavMbeJiNG2jJP+ci2o/DH4z80Qx+8z+cIj1rWwf5A5+s4dIvrUqC+h
+HlgLN+RFDZEREWn8MrB8lVoLvj7FSsS7RHSU/8OLspZa+PGs//oO9sTRqyYc
+a/j3KoICeozx54Ejxx9z1UHEuZHFXBMieir4s7vnbB04fB53/mSK1yd8007r
+dh1czfsh8+IezmcBMrTtLnWg9EDm0M37RHQnqND3fkwdcLuFHz5rhscrRH2Q
+tqwO5IcmrvOY4/k03ov6NV4HHbbH07ewXdxECSdp6yGTx/ZczwMiehHx8/EH
+jnowqauYzbMgIs/lEZ1dwXo44grVEZZE1HKBUGUlWw+L4gONL62IaO5KYMOQ
+aj349fzdc8ca1+MOF6s7t+rBzn/EQOEhEV1LkPw6ZFUP89eMh/geEdHw5yl7
+K+d62Ct38R2NDd4/36WpncB6+GwabjWKfeX2e+oP0fVwY+qxbYUtrt/03EWS
+6fXwa7Er6udjHG8+TcLtpfWwFdu35fsEr+/mfgW39nq4Lx3o8vApEfU9IzJI
+TeDxtW2KX7MjIqNzuq+mN+vBv0x0r7Q9rnf+rJnxTA2wo3SKmfMZzuf10TE2
+xAZYCj+KtrCbnt7TAIkGYOCiD+t1wOePNTuP9XwDFO+fJBU9JyL7KxuzU1oN
+8KmlpyH2Be5vFl9P1Jg2wGbNTIK3I/ZA+a90+wZQuCWSbuVERAokolKMdwNU
+zcSMXn2J62PjQkLopwaYXzS9IONMRCWQMPk+sQEYh5xruV2I6EfTb6rQ/Aaw
+P0vpRuGKv0/0WIlqbIBw5xWjYWzpLpfK1KEGmDxtbVXphuvNOMG1aqUBBlaf
+fU16hc+bdgNpgr4RFo7z0793JyLjG//9+I+7ETiUXn5w8MDnQ1eTfPZ4I8g1
+ftAw9CSi3GkWb2tohJxnDtJKr4lorKdm9LtmI/BOnFIW8SIi+iPUcpN3G+F4
+W587qzeOx1mpAMmnjbC94Ty7hv3360i/6+tGGDko6N7rg9dnKEy642MjeMwM
+KZW+wevh1hMondAI9ZqlJxN8iYjhndTqx7+NQM3Wpf7OD9e3e+LmtI2NkLX3
+xPvn/kT02+fmjP1QI3Rxd9LdDSAi5XoVz4WVRvgtNBCrEoj7ISW/U7YMTbBJ
+1rU5EYTno5hLs8ndBGmrl8253hIRrbHFgpdoE+jE1PlRvSMiHq9TVCT5JigX
+mO6dwD7Xm3sq71oTXH+dfqvpPRFp9QSH3jFtgqJGGfrcD/j7F80FmZ41gQqX
+W29MMBE9Fm0b++vTBJ/sYwd9Q/Dvrbj9exbRBBNMyQfsQolI8eohpjPJTTBG
+kWJj+JGIrqrK2e8pboJip6ztS2H4c4jia2ptgks5TemSn3C8Di6w/hhvguw5
+1jDecPx7Sv2XXm81wdpt9wS6CCJCDaRqy/+awUZDdnoeW0n1Xrje4WYQZ5bX
+6/6MP++wKFCXaoaOxbil0i+4P6KYOqOi3AyJ111ykyOJaOt7JPNl/Wb48LEj
++VMUEVGRL5/XsWqGw4IFzZ7RRLTD8avtvkszvLG6yG8bQ0R7v/s1uLxrht+D
+z6MNvhIRxY2kk1HfmuEStdUVlVgi0jnQRV2Z3Qxe144LSX/D+eRMz4X1Gvx9
+/Qrxw3G43oe4bYr1NwNngqbp/u84fswihKyWmuFvb0vFBraDIUVzKl0LtASa
+6I/+IKLSSKcdCu4WsLvPzN38E/dHlXPx2qItEPTfCH1BPBFlz4kPJsu3wNjp
+lSOJCTjeYri/HtRuAcZIDeuwRCLiWPRfcb7fAtY0NGOvk3C+uG/dtfi8BW6J
+8vk//YXzOXOEjpV/CzBMZBsbJ+P9fk5lPRfVAl5M3fevphCRd447v0NGC3Q/
+/hCGUoko5QHby72VLbBEtbElmobrfWLoy5ieFkiJZPflTcfnQ4xB+MJ8C8zI
+b6nuy8D3ASFt92nqVnjWlX16E1vJ2DYo/FArHLU0uj6RSUTCMjeva4u0QuUW
+VVRHFu6PfRlbDqBWkAuO56n4jfdj+Dlr97VWMNewLs3KJiJTrV+sP++1gvx5
+/c9xObj/9/rR4fK8FWoCnb+F5OJ6VWX9wNC/FURNZv+9zsPzpaSvVopuhYjp
+zAvP/hARZ4Lj7snMVnhhNNFl9peIAhZ7GISr8PuogiP18omoPuzUrGBvK4Sw
+1n5QLcD1geVLquhiK2j1fc45W4jr4z0h/bN0bfD8Lw+zaBE+vzemxjW520Bp
+r/Y7YjGOV7U9xtZibSB4VFeZpYSIzK/71Lw73wb1z06L7CnF+fx0zLFCnTYQ
+t6NFy9jqDx6+XH3QBi4f6t1Gy3D/xnqw/qRzGyjqxK12lOP7EVM2yeFdG6ih
+iLDqCiIan/d6UhbXBtm9hdZ/K3E/uT+lkSevDRirjj5OqcLnydrorENDGxz8
+3Bn3tRr3Cz01Gb3DbcBMMcsUWkNEZkNCSpc32iA49HH0m1qcj+oSZwr3t0MC
+4YWZcx2ub8nBaYivHSoQu+HjerxfRoc/lcq0wxGba573G4ho2c3/u5ZaO/Sc
+VOy92Yjf73a4f8KwHUZvrN/TbML54BP5oteTdqhOdyMrNeP9bG/pFfNuh4Jj
+S3vPtOD3H/BJ+hfRDu8i9AXEW4lInCog+31qO5TuVtrytxERl5A0jXZ5O7xU
+vDbP1Y779fGGtzw97fj+T/OFuYOIyl5mm0/Nt8Nvu4WXtJ1EdIlaxa+YtgOI
+z4QDt7C3rHuovnJ3wJBbQdNCF+4vwpurfcU7oDut5OJ4NxGdUguac7rQAd/F
+L0339uD6Tn5hY6/XAbl8t4pb/+H5/Ny47mDdATqFrDU1vfj+bPws6tWrDnir
+/JyupA/HS6qpbnBoBzzY+Gab209EvbOSzimJHZDB94MlbYCIto20uVuLOkD6
+0Nv+n4NEtKCiIEbV0QHvJB8PRg/hetz9OF96pgMsOgw4Pg3j/vuieZPtnk64
+8sTY8d0IEY2kRVn8PtQJ5Q4fDvqO4vFdjgygE+0EPRPaPvcx3I/LTp03ON8J
+77JKup3GiWgmdp9P3o1OoKUY2Ws/gfvjEj9zfqtOuF5nb/lokojiaylH37t1
+gkShP+WDKRyftGvU/4V2gumLs+XG0/j9ubQVAYmd0PI9oMBgBvfTGqUy3MWd
+8HonfPrGLK6PJxu1Ezs64Yf0U7Vrc/g+NFUuoDLbCQHswv8uz+N8dkAtZYa6
+CwrNa6OUF3C83qHYCOPqgnU6m4/nF3F/89V3z1XxLhCpEiiRW8L1qSaiiVmp
+C3xDKflkl4nIebzfql2/C94asqRJrRCRlwh9Z9yjLtg9aGYvsUpEyTMlnK6e
+XfAvk+vh8TUiavjVeMI4vAsC1U6FCa3j/E4YF7qS2gUtA03r/Bv4fspctud8
+RRdkBu76HN7E4/M/XgK9XZBjX6NJ3ML1qa3P5sIy9t8rqjzbuF/QjWPR2tsN
+e4JD7Dl3cP+Tpx77gNwN2jLZHey7RNQ2Ein1RqYbFh/elWGkIKHCZZvi9Mvd
+cPLhGLcX9sSlDzpjd7vhtcITLnpKErrvPrjI59ANagfZJD2xzfylIu4HdAMf
+V5UJLRUJ/f5grp8R2w3rHrEp7th+B4zFmfK6gfZDIifNHhI6Wkd72LKpG+rc
+pz6+wn7aLSvVOt4Nx0LNpKmpSWgsZtJKmaIH5DnEptywWUfomovYeyBQVSl3
+Dw0JvUh3MVM+3gNL7lmxbtgqbuonW8/3QDiX/889tCREwXvvtKVeD/AYNVW6
+Ydv/KnNketQDxr/9qKnpSEio1po207MHql0qb7zCVrEwajeL6AEmckAZNT0J
+NY5/XeNP7wE1ynENd+wJZkWLySr8e4H/lmgYSCiXU+VU9kAPOJx3SPXAdkgo
+vxO03gMt/iVv6BhJSGy8adqW+R8cWKhwfo19ydCt30DgHwRMBPgz7CWhZuKC
+/DW5f0DY4fvtjX0tWe6ApvY/2J/xZnvvPhJS5/W5dcPiH0h8ab7pi201s3XY
+zO0ftKvTtO1nIqGXJ/PM3D7+g84bghYB2Ps916S/Jf+D97oXeVj3k9Ab+l7/
+5vJ/sDD3YPQtNjKLeba37x+YFn2uOfgfCbFNvFxXXf0Ha8+maoOxE2/HH/iw
+vxdQof4kJzMJGUvdrx/n7wVr9dXDn7AbrZclLp7rBdWW8icEFryfv0LlErV6
+QYa1c/AL9p9TEZsEi16QLjlpycdKQu2TV6xC3XphMmWAJRZb7NpuGG9YL4TH
+TDcIspFQ9RcK758pvXDm/u2En9g3U36eO1/ZCwb18jGiB0hI88DN3KH+XlBP
+i8hIxl6hfrQ3YL0XdmdfDp08SEL5OUdDouj7gMd49ngW9oe9IodcD/QBzcpK
+0Bl2Ejr21fG1KakPGvy/sP3FLvzYOHlFpA+uk1aSFDhISK93UFHuVB8cDaO8
+X4p9Qtnig4RiH4SsVZ9ROURCqn6Cg0IafVAiZSRci31Eo+24wM0+CNSqkr7K
+SUIybKefCd3vg+/6rAat2CEXmMvFH/eB13X5SD0uEnIFMu855z5w0jai6MVm
+u3DiufqbPmDVevn8LjcJpXjuHTYO6YOW41GsY9gTAna3nGP6wLq7ucSCh4SW
+peVHv/zqgw1X8vt5bLEsGffS3D54einI+SkvCdFHH5OdL++DzpsSrzexHw9N
+0pNb+oBllj7emUBCPwyvLGn398G2NN8UDZGE/i4d2/Wf7oMXD72VfbA17a+L
+1K33gUW3cgEziYQk//50YqPthx/5969/wD4cRrt+k7UfOO8v0fGQSehhj2LE
+T0I/fD280hKJHX9D6dHusX5QvGCfL3CYhAwGph7fkOmHbSH3sgTsNC2e+Izz
+/TAiJjApyUdC5wOyObk0+kEk575wNnayY1K+681+OCCl9Rodwefzv+Houfv9
+sLN3ibIM+9f5i6V3n/SDeerVkMv8eH78xce6XfphK9pBtRlbpE61WdevH+z0
+n3LrHyUhSov6ku6P/dBwU4N+ANvwtBKVybd+OCLOxmomQEKnvKLfLKT2Q55R
+xak57FdFfffc8/uBx9PxhZ0gzi/31z7w1vTD2knZnh1sBeZRnpyOfkAMjPoe
+QiT07+HPrVsj/UCOXV1mOkZCs/pKp2kX+4EhlSnxPbZrYXZL6m4/fO++7sYr
+TEI2GUwtpvsGYKu558lXbGShJEvkHIAL1xLcj4uQ0OhZK/oe/gFgP1Cfko6d
++C1A4cuJAbjWobF97jgJrV/LmbwPAyBtLmtSii3HtkMrozYAGm+DJ9RF8fkZ
+MA9m1B2AwKO2vm3YgdMHvwya4N/fbLtsKEZC7H4HjxTaDABhpl54HNtew/Vo
+7MsBkOy/L2AjTkJbi09/+L8ZAIbcH2gTW8GSOdUpdAC8H0TavZIgIY4xy/O2
+sfj7AzrVTCdISLDil4Fl6gAEc3TIBWOf/rVFZ5mP38cgXkeSJKHeZ3YKNjUD
+sPD7nuMPbD/5SyyOnQMwLuFz6eRJnB/vfrLzHR2ANaevkn+wHzqF20cvDcDj
+tIIzylIkNPXkOcdfykE4OzlxpxF7/+N7On37ByFPXiT2pjQJOU6+O0PHMwhr
+XQH0o9gOoafLJIUGwXmQz+uRDD7fnr7bJtKD4O45J7CFHbi/qj/8/CA0bFEO
+e5zC+bpV1K5LYxDqHe/ms5wmoS9dq/kEg0EIUiFlf8LmsLxXeO8B/jzufKOA
+LAl5SRQ4ZdgPwvRgO30q9j5B1XVGj0HYVpu8JXeGhMx/XJYyeTsIZbIeDRXY
+Y1Zs0iVfBqGKIf2u9lmcD7zHd44lDoIcj9uBfmx7W+LbDzmDwNW5OWhxjoSM
+qOhW6CoG4VDyscY1bNKTpWMvWwch+wB37ys5EnJ5KCe1NTgIl5zaGVkAz4dK
+7tDL+UHos7DSDsf2i1Fvo9sdhPsmY3+EEAkxnqt98mHfEEQtaF7MwBY8zLt6
+jGsIBL5mzCjI4/PEHWFQIjAED9kOp9dhk00ykkykhqC14/PHmwokNJRUM733
+/BAEfzzzeRzbiV+dJ0tjCDq3KYqensfn3SxGztxgCDKTN2moFUnI5xPcOGwx
+BBLmMvcDsUduBlr0PRuCC/1/xwkXSEijkulljOcQjLd+8Y7H1vIUfmv1fgj2
+s4yoyCrh+pRzN14uegji9MOOlWOfYD9ReyB5COJfVwtdv4jHV39ga+7PEBx+
+6K48hD2b8OZ0U/UQHJhr8LBRJqFnVLzeOZ1D8HUqb4jiEgnN/VKd/z42BIwa
+2kb+2KJikTYRK0PwnjFml1cFx7tnHEso9TAks2bkxmNr3ZptCGUdhlnj4NAz
+qjhfTtBkfiENwx5qrQ+V2Ep0L4sTRIehZm01RVcNr7/g3Hb+2WHQu+o/O4at
+bzxv2qkyDFP8R9XsL+N6YMu7Z+PGMKz6lZfTqeN6mcLSSrw3DGJJribB2KqC
+VoOqT4bhVaLhYYEreP9cW0Sd3IZBKMdqNwM7hWc6JyNwGD4y/N5S0iAhHYpb
+fsufhyGiWZWrDZtrrO67bOIwqN2SvHFPk4TW5BdZPHKHgWXyecYqtruEXWVb
+JZ5flYTU66t4/4L2t4l14Oev3Wk+dA2Pd9PqjN/oMBh3s7/7ju36V2NzYXkY
+BssMHstqkVDrvBWXAfUIcDleeFKFfeSe56c61hGoNGv7cFMbjzdLz/0ieQT4
+qcgd09iiSvHtJWIj0JovevbldZzvTit8VJEbAWoBpnxmHfy853BNi9oIaOWW
+G0dhH1i6Y3dPfwRm91sdO3kDv5/N4+Ou2Qh4pzKwlGJnX+Y7E2E/AsYX4g7d
+0CUhjz6mW+c9R0DD9Lr8BLbkAA/17PsRyPxD8nmhR0IExWMnI2NGIGybbWW/
+Po6fFtZ53dQRiGw/6xqJHaqYIcdZOAL798WJnbyJ+6sjq6Te+hFo1DPaKcV+
+PZkd9rN3BHz87Gd0b5FQ7Pp4itPMCLjare5OYWeEWJvf2B6BgqnJE84GJFS5
+e7r01L5RoKk28mS7jfvL67KVRO5RqFq/vx2LvT/d2IHp2CjcuLP3vawhCXUK
+/+qkPD0KmUvX1Wuxjxawz25dHIWC+BtCRnfw+X/6Pmfn+ijMOPIeXcFWUhFR
+pDMdBQrmFEVvIxJyPvPvDfuTUZDh4XMn3CUhW9XkUJFXo7CY7jiagr3PJdHq
+0ttReL1a++CiMQlZTvb/Zxk1CojqCGs39ocYPZfg5FEw2fHqfGiC+6vmY2Xl
++aNwhnt/CY0prg+p94Yp6keBzT+v4SO28RuhPugdBcXgrxTi90iIutAnx31m
+FE7ZN2mWYH+ojX/euD0K5o5aJXr3cT5RTjxylGkMbNel9OewBYfTsp15xoBe
+yZ3Nwwzvr8OY/IDwGOwUXZnhNsfxsOfxH5UzY6DfFTWZjC0a5X4yW2UMVDZ9
+9io/wP1/lHqcuN4YiH48pP4P+6bjHkKi2RhESF1PfWxBQuVdXaEnno2BzdWr
+Z/ZakpBpKCvpz+sx+PuCayQSO7JsOE0jZAyGLuamnrIiId9fH25OfBsDb/UL
+MXXY6x1m3D6ZY5BwoijT1BrXU/pvyyfKxiA8/PzMNra6fOhsf+sY0KHmi+8f
+4v2u82MKGRmD1QbXYpFHJDR+oeOa9soY9LPeMi7GdnOuKeWkHYeoiocCN21I
+iPijyHz44Di8Lq5iWsLeOMehmMU/Djodzzne2OL8sFdAJ0hqHNSG/RSPPCah
+IBntONsL43C0hvV9Ljb9ebqzN7WxHQ8yaD/B68UYy65mMg6k8Zgv09isVeFn
+zz8Zhwf76vQ9nuL94zdIkXcfh53xSFmiHe5niXovLr4fB9M3wueysLWO0X/W
++joOjTQOdzXt8fnhGyCYpY8D+8OwhAlsDh0TCveScUiaCud+9Qz3Zx6synEt
+41AX45/A64DvK6OWG43D43CjwuluJrblsV1umpVxmA56dk7zOV7vF5rJcrQT
+MCvvd2YSe8h78c9L9glwJ1Tdcn9BQhHudpfKj05AtL1cDNGRhOr4bLUPyUzA
+f3Er+7Ox5WJfjlpfnACTfVQRWk443rpOU9fpTACByVpzFjuTpPBL6v4EBHOq
+CXm/JKE8s7Nz0fYTwPb9Gz+/M+7/ob6c02sCimQDlPKxa0rj5IJDJ6Ba+8Ab
+fRccjwWPr/P8mABVL4WVFeyrQSMHvmdPwG0LIfcgVxJSU0hzOlc1AQIRbadE
+3fB+uASHdHRNQG2JPksltmD85XuOUxMQGFS83/QVrh/VwbOC2xNQkEOSoHIn
+oc+RstLdTJNQSfHSPgL7U/gOBBMm4azQzJCsBwlRzSSx6IlNQg2149M27PoX
+hF9H0CQYPpA9/tiThAKWeEmrGpOw95wUA8trnM+L3E0b7kwC0egFYyK2Ilni
+darNJByrIkioeuH1Zdr1CnebhN2Hwo5j2IJ6jQ/9301CnlbyjLs3CWXFBcp7
+fZ2Elpd/3fl8cD9nI0DpkzEJ+6lNFAqwuRlc096VTYLP5q8jt9+Q0MCnt4ax
+7ZPQ9DpFZBtbUe4qY/74JLS32uuF+eL7/UBmRv/GJKwfYks87UdCLaaF5nv3
+TQGjT4BAO7bCe1vhc7xTYPCIouypP75PCzRsPxWdgtJDNm8OBpDQ24qhkSyY
+gi+tS3Zp2MWk3EkqzSlopA/xuhZIQoeq77NoG01B98EHBQvYHWYUt5Jsp6DF
+wpEYFERCtGGfmljcp8DO/V+0xFsc/3T6Di8+TMGRvnD1BuyF27euz36bgnGa
+KuKjdzheTCoszH9Pgc/rJxws7/H6TpQXTldOgQdVglQydmOr161n3VNwiMPF
+QfMDzvcicgpMM1Nw0YZyZB6bfh/P0++7UzBcfs4+KJiE+jJu7VxmmYaP7Rck
+JENIqOGdfN/G4WkYuyfE0ox9XYaR/OvkNEgorXE8CcX93a2dEkulaShWLbzA
+/pGEzq7db5a8MQ2NusEfM7EdRUM1qcynIUjPk103DN/HDAcUOp5Pg6B81O8N
+7KzjnxKyfKchn2HN7dMnXN+eHg7+8nka/H+HPJELx/MzbKEOTJ6GToN3fn3Y
+QQacW15F07DGvFnrGoHrh5iOq0/LNBjNdUvzf8b90NDmp/ej05ByVKW0DNtu
+zF4zbn0a4keuOpp/wf3w9vmvRXtnQMmC7iZTJAnVXmwLH+WdgcQtO6Nf2Ccu
+J6MD4jOgOZIWcC0K55strbeXFGag37l2ZAU7MfFSmKfWDNw63mL8MRrfz8S4
+DWpNZ4DjegejXAzO33m6/bzPZuCP1WR7P7Yh88djT33w80vcde5fSej3rSfQ
+Fj4DVpbPp4Vicb656cUv/2sGWs24TtZiVyrbD6QWzsCiK0O0zTc8/4mx52It
+MxCmryvLEUdC2iEeq6mjM3DyC9dGDvaaLKW+/MYMRNEaDBh+x/2LFlN8275Z
+uKd+cpHmB74vUBrPPSXOwkeUKPIT24Cy6DjxxCwsJnX7afwkoZjMKbN6xVlo
+tq/nXMGmPhH3w1tnFtRdPtaExePPRQqWL5vPgvBv1R/yCbg/YKfX5HKchQXO
+5aRR7CMcVwtn/WdhOvbbP99EfD5Znl2pjZoFGcvH0ieTSKg/Tn8nPX0W/rpZ
+ZHZiH1XuaY4tn4XLeyPvuPzC/R3fSPuXrlnwF+WTEkwmoc2zd5ljZmaB5zD1
+iTpsS+lo1E4xBy+PaN94mkJC4hJFh+4yzsEZJ4E43lT8Pm3/twtsc9Dm8oZc
+gj3VQZfmwTsH3T7viy3S8H3EXMyRKDAHM1RagQfSSYhGcO9Crvgc5Ot0eOZi
+f/wZdfC27BwI0sjEGWeQkDUDxSSN4hwcDXBa2JeJ80Wj2JPky3Mw5Flgmo7N
+xSmfeUdnDsrcWWgMsvB5sL6Qxn5nDmyOO9fQ/iahqGkN63rzOagWIeYnYctK
+Okz6PZ4DprMUPTey8fqadQpfdZqDQl6pI1Q5JHRS0VeS6/UctEbUvf+JnUuf
+TDMaOAcfP/RLaOfi9/uYfs0Kw7838mJtB/ufdMNB/69zEPk8dTwuj4R0GTj0
+zJPmoEY1mObaHxLaCTN8ovJ7DjxvyKptYx/m6zAXK5qD9wmJed/+ktDdR4nn
+OGvmQPsOrd7VfBJS3mCep2vD6/HuGnkbO75Z8vVm3xzY28axxRXg+2WeGu3S
+xByUS3JIXCvE90Pud1bzS3OQx57ybAdbeVexeHFnDjju+0x/L8LrKRjOuEk/
+D3ec0t9oF5PQEl2PIh3bPKxlK+hQluD7UcHFp4d454HZ+8LlBOxpUb4oUYF5
+yDWqt9Itxfe5ocyqSxLzsFq6nENThu8nYporZmfmIYy1/GQKtjrxHL//hXnY
+vKLbYVCOx+dSrf/7yjzUFed831uB89f41fAx3Xlo56WKzcLWSz46zWM8D0us
+UGtSie9vm1/Ur1vNg8g998NsVSR0MYu35J39PGSNjUblY2fEbl5rd50HhkfP
+rlhV4/i+8WmH5DsPjUNqgjw1eD4njMutgueB5eST45XYWk+y0woi54FTj+a2
+fS0JqZxiKOOMn4e3t5jzjtbhfsYmj8ouYx6CNb5fbKn7/31E6UFH/jxEawzu
+uNXjz30PUctXzUOSR8PAiQYSelj5rT6hZR5OCngu9mOnnLVsJvbNwwkbDonA
+RhKy0h9iDZ6Yh7Op78NQE74/+/r4sy3Pg7P8Qck57JhjQ5ff785D/cvvq5+b
+SUjE1UaTh3EB4rtNxq+04PF25oXHHVgA5cZb9BStJCT9RENalrgAH0ditH5h
+33ubSWgQWgCjn7h9b8P7YeemZ3lyAUT/WD1hacf3fdOL0/thASzKD6kUYvsm
+h3amX1qABy8N1Ww7cH75xXbUSAs7RvfFkU4SSqvUbGK7vQBR1Ic6W7C5ni0O
+V5rh9z9LMvHswvNRDrvj+XgBIkYliae7Saioe+bSpZcLsIN+005iMy9/iGL2
+XoBm12s84T0kxGMF1j3vFqA4g93wyj98n7kQnJr0eQHeLbA3UvbifB+uYev5
+YwFUbty3ScN2+ktKMU5fgJPsRPl7fbg/JebbXsxfgDHTK3Jc/fg83JnIEata
+gOuBTOY12K90DPx4Wxegccyy2HkAxxPjvxnm/gVgr3l1+eQgri85ov0MU/j5
+H6Y0Y9hvRg6Z0a8uwPl1gamwIRKCC/e991EtAif0UGoMk5B/86QyO9MifGUK
+U6Iewfvd+iSO/9AiaO55mp2FTW7tipflWwTJKtdblqN4PX6s6GqLLgIjb6vY
+4THcjzhEpT45vQg38l5JtGHz5P/JC1NcBGPHaKM347jeqom+KLuyCOjMxSL5
+CRKKu9S2sKa3CD39r66tYpeiaH5x00VgMXvEljCJ44H75SHLR4sQ1kLec3eK
+hE4J6NclvVgE2dM/D3NO43rGLay+5rkICSmHbeqwZblGQpTeLkKJZfi8+ww+
+v+keqR8jFuFetHjk2VlcX+YZo5a+L8KX0HnnRWySyuP7WumLEBu9HPBjDvcr
+aWWM2fmLMEW+2nBnHt8fvjL58lcvgoArjwLnAt5flquLH9rw/MB8sB6bYBMj
+v3/w/+PXSH+9iPNjNccLn5lFsNkdzkRLJPQlqTB2/8YiKJ2ByTVsjnN/S4Jp
+loBSyeZK8jLuR4WEe46yLEFVz7shsxXc7xYKzOfwLMGd2twfh1dJiG6ug0ZH
+cAnY53cju7DNz5gT1ySXYEjkceW7Nbz+9dQKn2EJ7J+KHVFfx/dx145HaqpL
+cKL+YhLdBj6f9dypu9eX4IJK04MC7NFRKsbfRkvwk2pM9/kmvq99r3Cwt1oC
+Bf5Pz6S2SGgmIZFBzmEJaidpqmaxSReXshk8loAh4oz6j+3///+iL6grcAni
+Aq/tMdnB66uQ9z41fAlsjhlPEHdJ6PaB9rLA70twrtNtTxd27l3X40/Tl4CG
+XKH+gYKMGk1YqgwLlmDpjUq1JiUZ5/t/MZo1S2CeTXjBREVGBs8v/FXuWIL9
+WjcNKrAfC8URlIaXoIOVy9Z9Dxnll5mXXZpfAt4/Vtny1GQk0rycd217CUKE
+H53cwdZKS6c1ZlgGOzjVn01DRqW/uWIdDi6D5VRnvh0tGYkeDf0STF6GNMmH
+TSfpyOib2PeN7OPLQOb/j3MBO526LGvo9DKI9tYGJtGTEU2DTe8BpWXY8is9
+Z8lARncKxG1Vry6Dw0MmXmFGMpqi87J/bbAMarXZYuPY7X10S1Xmy7BGOfLk
+214ycv5wbuKg3TL02cbOmuzD83f/c9vUbRmuh7GFH2Eio5zDfLp5/ssQvaPo
+NIgdsUXXxfVpGQ5JXn0btZ+MMgqZJpzisHuudt/5D3+u3OE9nrYMR38Z6JKZ
+yajJm61Qr2AZ5q18GfuxuVLN3jXWLIPR5MrsFxYyIvH60mp2LkMMbSrDHVYy
+YtOX5G0dWQbp5A4dMhsZCcqy99xZxOOdcO3sx5YpW1RZ2l0GiaLSwKgDZGR0
+ze+B774V+Hojz/HuQTIqso8/f5xzBT51OEUcYSejCQJnexP/Csy78S0NY/e9
+jD7ucmIFeL4WOX3jIKMkEeIlKViBSx/t5MwOkdE2i7HYnOoKXK/XkRTmJCNp
+R/Xh5BsrMFn04tY0Nj35r7WDyQq8ptzNTeIio1NcYU2XbFbgDf+qpg03GcUu
+VR0kvVwBhW5HHikeMqL7BWe2fVZgo/8nzxp2Y/GYcn/ICtDu+Xg1hxfHh9Cf
+89VfV6CV+84fJwIZtWnniP9JWcH3JS5DBSIZnVXtO5D5dwVOrfbI0JLISOmD
+xHJG9QqEFJVcqMR+oZ3VmtexAtZhE15+ZDJilXP9UzWyAlbxJtTXDpPRzJfI
+5L7FFfh1UiOdgw/Hp/Xx9C2KVah0LfrUjS2oIF9L3L8Krcvt2ZFHyKhBb5tS
+hXsVXLe//3ePn4yK4z20nwuuApFLI0zkKBlJ9NHWpkqtQkr30K0FbNEb8Q8X
+FVZhacRFJ0uAjKpkfijIaqyCwyR67SRIRrT3Tl16fWsV4hLOzCkKkZFHyFuv
+HvNVaKJ847/3GBnVqG/Ty9qvwoUaVdNGbOf+nOpw91XQpH3/OFSYjLpduTrp
+366CQZpLtqEIjp8LZtLPv6zC2qzwKcHjZDRA3B5ZSliFfwMJ07PY+cti809y
+VuG/cnJXpigZJYYa6u2Ur0LXZCSFsxgZ148FAb9WPN6fygbK4mT0x/zKbf6h
+VXhqJ77ELEFGKeQhmuL5VdiutS3swPYq4SOb7+L5Kh6viDqB413UI4ODaQ2u
+v7Cjt5Ako9SLr6uqudbghrCls9RJMvJljTfxElyDgUNCErvYHYn23pelsXlL
+uSqkcLzedgBOxTU4wn/73FtpMir3V/Ce0lwDfeH/Qm/JkJFd572HZbfXQAzm
+jwueIqP3+z1Wv1uugYYLaWsBu1VKjv/d8zV4fSRrz5/TZCT7UXrX3WsNyiyb
+FL1kyYivmsvnZTD+fprvX60zZHQ7LqzW+esaiN6hekw6S0ZUBtZ1Xqlr8GpO
+zWgK2/mx5tuPBWugN/faO+scGeU1UJFS69bgCmXj1Cs5HJ/5l5439ayBe+t5
+L00go86l+R+bk2vwW2rjNgGR0Y/31WnCG2ugtsr8aBI7CH5F3KVfh+u0MblZ
+8ng/9j2zimZfh2zDOgUPBTKq+Eh/bPLIOohxJO3ROo/jj0WpTVZyHbQu394l
+K5KRtQDhRZD8OpSd3pKaw/4s7EZYuLIOQkejvv25QEYu9JbFugbrIGttqeWr
+REaqah22FRbr0PfK4ezNizjfiVadkH++Dhcnhm8LK5ORcYgqXYHXOvRIVf/Z
+wH4nYLaqHLIOT1hUdCsv4fg4dYqhI3Yd1GVfiH1UwedzslHhUfo6CLu8lDdX
+xfEirPuDpXgdDCof+suqkVF26tyF7MZ16Gay5Nx7mYwOHirhftC/Dho6gb1d
+2JOVdCeOzOHxlm70x6uT0Q7fnN/wzjok+ZaSnK6Qkfa9nFNJTBvAuszy6YoG
+fr4qXsqFZwOcdDaukTXJKM2V6Y2+8AYIHglXXsT2yxNRkJPdALN/HA4lV8lo
+b8ZtA6FLG1DK+3os+BoZeadRjvLc2AA6v73vzLXISJ3j8cChextwafbvi3Pa
+ZGSjS9DhfboB/7EXRTFfJyMeLivVY+4boDV5gnYI24avrQTebUCUxfFvmTpk
+NPyoqfpW9AZwxte7+9wgo8Azg6avUjbAv1426rYuGV1YffMxtWADPh703pLU
+w+fz7i2ryfoNiK3qfkevT0Yh/qNjwn0bQHND80EPtndvMfOTWWwpWueUm2S0
+xv5+qnRnAygXOJs8b+H1N9hxJe/fhKeSP41vGZBRslpC5yveTWBObT8peRvH
+16TWxpzIJpRCwXkGQzJyKEwcMzm7CUN5boG92J1dDvGDqpugXS1HyLhDRrs1
+L9XM9TeB8I154o0RGZkVetetm29C4TrH8t27ZGThaH02yGETNrZs4Ywxzpem
+9B8lvTdBcfd8BasJGVH4Sc/2hG7CqvG3oAlsud/9CoHfN0EvLi+s0JSM9puu
+hV3+vQmpurFDH++REaHFmpKtYhNuEl0sbe+TkRSLokN/+yb0pVtKq5mRkcqq
+HdPvsU3YmvUBfnMyGpQ7WBi6hueTsfl6B5vCVeSzG/0W/GboYW1/QEaKF1p+
+Pj20BdU7V3qSLXD/QSE6ayO4Ba8KH4/5WJKRMP/Nh/antoAh5MFJUysyenjs
+jbSn8hac7dAqQNa4nwicV/58YwtqVjT8uR+SEft8aWL+/S1Qs3eOWMGm3Lxs
+PWm/BfJbe2YbHpHRSc+6QKLXFiie2nJOsMHjCQvjvRW6BXTrXlpetrh+PmLg
+ivm+Bc8P15qZPCYj5GHnt/R7C9qSxvPln5DRYqiqq3rlFmSlbusSnpLRf38X
+tpI7t0DihrDUJvYXw34a4uQW9P17e7XdDtdH1bcx7ze3gD7yRkq6PRn9zPTp
+O7hvG779F6b19hkZ1V7RLvjMsw0uqS9OP3LA+3vGVV3y+DYoHyfeufKcjI4K
+xfvXn9uGaKmYquMvcPxce/zGTn0b1MOPP9vniPOJv5ua4O1tELzcYzaJLavh
+3TZgvQ0aSi3hlU44ntKR1DfnbTgTJXPwx0sySgg0tXwSuA0lQUfrvZzxftsW
+eV6Ows8bFdeaueD9Szr6Rix1G5ptJVlUXMnorvk9V+7ibVhT+BB8zI2MDkUZ
+27C0bMNx4/+M9r7C/aE0jTHLyDbkvSp4OIV9d1HmNvfqNkyY1xXVuOP1CVt8
+IEa/A1Qr+vpJHmSUOyMddJlzB+wI3jKBnmTUlUXf+eTYDqwuv7hh+5qM6lvt
+VOPO7IDzN50/2l5kNKIQNjOktgNOdufMTnmT0RlCUJWwwQ70FWnqcvvg+pLt
+NvHCegfEqbP8drA/Rn++1u68A7EVbxkG3pCR2E/e/+SCduDSX/rKEl/c38yf
+40+M3gHaH7L13/3weZ5RjhBM34Gi+5d5/PxxPnL2d00o3QGHJeNEmwBcb+fM
+O8+278A1w68eOoG4P6U8l9g6vgO5HSe+ng3C9XHVmvb55g64xUkwHn5LRuEx
+TyeFmHZhSrQ0ne4dGRk+qjYZJOxC7fiBuGlsktmy4zfxXfj2UKG/6T3ez/NO
+Z58q7ELuE9s72R9wv/xw6/sVrV04XlotGBmM8yFpf52k6S6wqdjKvA7B/dxV
+vbTD9rvwjvqNr3UoHn9PgBGP9y5QHTgrrPMRx/Nz8wHSp11YSo5jhjAyKmiI
+OyueuAsGkqvnBD6R0StXdgeV/F1IpL+c+l84Gf2T8Iy2btyFvry6h2vY+961
+FXwe2oUvGzFP+yPIaMxuuqdzZRdMXReKKz+T0ZFxfecAagrkcfKfftoXMio0
+Dub8zUSBru7zOxMRSUYv+4RglJ0CSZMFjV9HkRGkhCxzkShQY2xji000GS10
+WMprCVEg5unUgFsxuJ+jOyXw9gQFUjZceKf8lYweffH+2XaGAml7pQ1IxuLz
+XLrdSL5AgZKZyA7Eb2R0VV806pE6BQpKMtDfG0dGnxj/8JbpUCBG9Xceq9gM
+atdUDt+hQNzDY5uD38lI+UGoiJs5Berwdcup/4HH64sqxm0pkLOTT0neT1zf
+sraPXHekQGGMglw/4/F+tXkrlntQoAPRzr9DEnC+K4gVQQEUSLc1N9ojkYz+
+wsGBvFAKZK9B3fE4Ccfbwc9m8tF4vl1Ound/4fsJNWt5ZTwFkjDQ4r+aTEbB
+DYhKL4MC7fyLPyufQkZvNfbwzv6lQAouvz6Lp+J+10Sa17uCArV6eKqT0shI
+bV8unXATBeq8oneJOR3ft+4872/opkC9epoBFBn4PvPVMMlphAJtKr7nm8dO
+Ubr1VGKOAk1VqO8ZyMT95eC9MxPreDzFsWJNWbhfvf5iz/c9lEjueGlc8W/c
+T2WENVkyUSJz3larjGwyMjGp/nWKgxIpVu+6xOXg87ef6wsDmRIFBVgMfMwl
+I4W097F9xyjRk74LAb55ZDSUrF2Rd5ISBWim+zj/wetX8oQpUo4S8YQONdv+
+xfvBzmHvrUyJWN9sP7iXj/vXM4b7Ha5SovPEY5r6BWR0Czm2WN+kRM/uvXt1
+pZCMniZ/bnxgSonehZrSKhbhfBuxw2j18H8UV3c81f8Xzt6y9/zce91rb8nq
+sUeRlawQkhFZydcoLSKaKrSEVEpJkSgtlRBCiEKSrKyUkvL7/P48r/c673Oe
+8zznMKGGu7nbsIFcL+o+kJDEhM1aUz/UX5D99bcwi0MHmRBcuBBEeUnyo+2q
+DQVHmbBdcLWi5CtSj6W/XqnKY8JV7xB1sifGWGrMpp4iJljE0zLZXpP8qv3L
+f+UmE9x379ZbJu2Xle+b1O8zQeRihub3JpJvjJLOBT5lwpLlvqSJZtJusuy5
+0MyE3i/HRIdbFBGuXXpg8B0TWInBVX1vFHFcSLyUPsSExJoCk45Wsr+cEbRK
+mGDCVNZ0Y1ObIiQ1JIKaF5jAfIG99Hk7yS8KdzjpK0wIElnd9fAt+T5fuFEm
+FzM+Geq5VXeQ+VzT/XdOmBnn4osoFZ0kvkaOem6VY4a8e7p1WZcinEN0nXsY
+zMhJ531Q8o6MLxE24abLjIcft+651E3293n9aj2mzHBzunu6oId8L8pEdqsd
+M5Zm1FdO9ypiMc7y6ZwrM/77+6/2xHuS/2/eksvcwoyuLrfXOX2KUNlsYUwP
+ZUbyopdKVj/Jr78aZVpimRHEvW4g/YMifvoLv96dygzNbq0vBz4qoqLyl7XK
+YWZstt2ybt8AWZ+xHvmfTzLDNmp+as+gIuTTBV4XX2DG4b1y0ylD5HuWgv3h
+18j/dq62TP5Ezne77N8Z3mXGnrGFyf+GSXyHVDziq2eGuP/yWOJnct6csCwY
+b2SG0D93o8QRUn+3csa0dDKjrEJ9aPcXRVx7zWlXPUDuz6jq2z2qiKp6D9rV
+cWbcrpZWSfxK6mMm9+pLC8xYXXCsNXGM1GOqJc/FFWZY3kHjf+MkP9grKZRw
+s2Disp948gQ5f8QPud0RZYHfGsmHKZNk/OdLbr5QYEF3YGH1nilFiH8t1/qk
+yoIzxlSOfd8UUeRhMsqyhgX8K13lB6bJ+tLM61S3YAGX4Oey9BmyH3QXWPFz
+ZEHbnz3/MmdJfS1eijrryYL10e+v5cwp4uaqe8o9QSwwsaGUnZhXxIOAQn25
+nSxwS8lhPvNdEdntKvk7klgQZGhfWbBAzhd7X3g/O8SC9FcZDy79IPPVNJ4m
+f4IFNheTJK78VMR+cwmhg+dZ8NrTra1skex/7/eKzF5lwY9ay4GKXyTerGuP
+Bd1lwfmKVOv7vxVx0cctc6CeBTcdddnqlxSx9Nycc2sT6V/rGdkXf0j+uaMi
+PPmOBQJn+462LCti4VVtRconFijqa3t1/SX1XKn0q+g3FoT6vUn58E8RJbHX
+6qt/saBy7tPvkRWyXxs6aOLPyoqxn5fbv60isGTGHrpagBXql8C0yESgkmnF
+9pU0KwSt546sYiHw28H+czqdFfU7vkZzsxI48/MlnHRZIdPgUSHCRmBnydbt
+sutYwUyJc5BnJyD+nNtvwYEVoUei16lwEIgtqFPt9GDFAeUDx/Q5CeR67Op5
+EMgKNvdBI3MuAoVC5qHXolhhkv3A3JGbwNHPml8uJrHCfo9NiRcPAZ3P3psu
+pLPCgqkuMISXQLjx58fFJ1mxQ3xDahwfgRWtedXKi6wImtZYSOMnwKX5oLCx
+jNw/mPfq6GoCtI4Y2tdqVgxGPV48L0Dg5vctT/mes2LWsffgDUECqHqVbNLG
+CkMvyZ21QgTsspl84/pZ8TS/pvq1MAFrx5Cwyq+sWGU95fNehMD5NV43fn9n
+BcejCb9xUQKeTDbK9qvYUHd84vFvMQL9w4UThbxsWE4m9nJLELhXNPpzlSQb
+Bre/Pi8tSeDg5fObwmhs6AwXk1SXIsA66szfp82G941YMJMmwFAuYLiZsaHy
++14NFxkCBsPiN7sc2CB2hKcxSJYAk1tsod9mNvT7Sj9NkCNgluvNNxfEBr1t
+XyWz5AmMXc5aOhLNhu7Wqx0XFMh8bn+xUzOVXP+eO3lHkcDpN93x/ZlsKPf+
+GvySIJDccErw+Bk21D/sMeunEFhw7XN0LGaDyapL/81SCYxePqEtXMGGVOME
+UXYlAnlcZQ2fHrLh1L0zQjJ0ApfkZFc/eM2GtE9rY3QYBCrqv0nkd7Nhe2i+
+tr0yAWY5xsS+z2x4KD/jFqBCIL3rU1bcLBsO8e/q3a1KQGByLUvUXzYc3rHt
+8TE1Al1jnj4x3OxIKVrivKZO4MNQ9LlUcXY4OOyseqJBIG3vo+aTVHYYav5r
+eK9JQE7i4EKFNjsUnIbXfNciMF0pLNdrxo6Kdx78fDoEaqReOHNuYMdZpbN2
+dF0CLyaWcs292PG4c2DUXI/A7HnF7wdC2JFeFDbuq0/m6+ztuLY4dixkxTkn
+GhAINKHJU/ex4/t9Q5ncNQTif/D+23eU3J/xY0OFIYFhqz8S4+fYwXZkdLhl
+LYGLHUcTva6zwyXDbmDciIBJcjSts5odQrs813GYEDjh58bwaGDHtzQ3dpop
+Ab/phczht+x4wrNb19KMQPRfGbfEQXZ0l616tXUdAafWC9ni39ihydB4mgbS
+JtzXPVlix9X9pkShOQF+e3p8LCcHzKd3TDy2IPGlyaWnIcaBLV1LkkOWJJ53
+/sz4TuHAz07anVXWZLz8fiY+0+ZA11O1CkUbAkWy0gLn1nGg+5qTuKUtgedl
++zxSHTlAa2oaDbYj8Oyby6YwHw7EXRiSy7An8fG6XtQ/jANmb9seX3cgUK3O
+ftlvNweY1/e+bllP4DYRsyr0EAf20Y1MZzcQGPnoZpp8igMrtfpSIk4EuNv5
+tuZd5kDyCZ6thhsJSFVz7Xp8m/QvallwizOBK9cf7Z99xIGbG+3V97uQfKF9
+45RqCwc8QnXvXnUl8NPV/050HwcilJaL37gRpE7Efnk8xgFfrS8r390JWLlm
+rpVc5MDgNq1XUh4EJOzd7qewcUJiSH7JfDOJL/Xs0AlhTqya/5EX5knAI/mP
+RyDBiTTGj+ITXuR/TsRnj2hxotUhQLrWm8znq26hmHWcKPJOWhn2IUCk8C1w
+OHFiT266M+8WEo8MAaPrvpyY3dnIb+BHxidmeNo9ghOdlw4YBfiT9WOcK8OT
+RN6X8qczK4CAQq35m+bDnIgZi+2v2krW/wFhnrNnOVGWq+7yKZDAv8tmQztK
+OeGjGK3PF0zGp4x1s2MVJyQj9h5eu42sr8a7/xk2cCLsSKFDSAgBjd5SV41O
+Tqx+L5FyajsZ3zjrKY1hTjiPqcs+DSX5iJ3VxWiOE4ZHaBozYaS/X4OOOK/i
+wuhb69uyEQT2B36/ErOaC23c7wo37CDx0OF444IcFzifS7KkRBKQvytd2qXO
+hZMvvbtvRBEovSt0WcyUC2cVBqU+7CT5v+VHadAGLjyXnm7njSEw7nL6WZ0P
+FzIs2n6ZxhJY5mz7JxfBhQD/ppM740j8Gh8NyUniAi2VfulyPMlPzc2sHFlc
+cP2qIde1i0CHw9GRI/mkraIswLGbQDvPhIDMdS68EfbfZZRI8sVaptP3a7iw
+UCnpFPUfmb9xlhS/Ri40ehYVFCURmNLTeivQy4XYPAufnmQCnxw6LrV+5UK6
+rdVx3lSyPtKtvp9d5MLmPXNrLfaQeDo4072DgxvWebmeiXsJfDdy8HAU5waX
+XuLUrTTSP+6+lLX0/9tff3zZR+Dbex0P7TXcKKpX2yV7gIA2Y/Gbni03ks1y
+wzcdJPNB691otZkbfYFh3TmHSP5+dTrDfzs3ZuV/1bxMJ//36V9h+m5uqNzO
+Flp1mECrydzVBxnc2Hcs7vPaTHL/Da9rv86S5w/9Vo3PIhBG6N2yvMYN2wsR
+U7eOkHr69siLghpuhNPFaRPZpF4aJi/9beTGo4f23bSjBHqh5hX5nhvTJi6r
+Ao+ReHDv/TY2zg2NtuTii8cJlMU3NkQvcePYsPiT/hMkvjw2TbDy8MBNI95D
+8hSBofiv4VekeWBZORiyOZfUF81FV1c1HrDfvz53+jSBPx95b/OY8mBPq+Ji
+1xkCMt+eHHnryAOJrrO7RfLI937U/Sj244HKN58493ySPzqrf+/fyQO7zPqJ
+3AICei+TSqLSeHA5UGDg3TkS7/s+MW8/wUPmo8hR/AIBw43vFHcU8aBP7eVa
+r4tkvgkX/j13yfPcb4rOXSKgVRXw7nwDD6r+cWYOFBLwLlE42PiOByVmLVOK
+RaS+pNfTmb7ywGV9WOu2YgItnP+9sfnFA8HvOhplJaTecxXuz+fixV2XFN6Z
+KwSEKnPdf0vxor89L0zvKomX3NfOIWq8CGZ8sE66RvL3y2cHh0x5UedXcPnJ
+dQKuv0X/bd/IC+vX9FSOGwS6z4U3LQfw4gHv+16nm6T/8/8tXozlxSFZlqoz
+5aR+6a4+5XSQFzr4Izh4i8zXVY4bPGd4Uc8lPkuvIPXkiatj91VecATc3Bhz
+h8A7o/mMWw94oZYkqF1XSdbL2qXQ3GZeTA6dz2W7R0Az8MS/jI+8EN55Jcm5
+igD731mPzBle9Lrs/3yumtRngW1peUx8sOc60vb1Pql/aRsyq4T5cDNUfJ3e
+AwKpapJpQzQ+jJ/Zq7OvlsATXuc4SUM+TPHLlLXWEZB0y4wJcOCDaKF1qcwj
+ki8OR2dW+fKhKGoTPaKeQMDNhtcSO/nAv1CiXvuYgL67p3nWPj7sX8l5wPWU
+1PtmwRWuXD5YVIc3ez0j86U9KZhXygeh3NNBZc9Jfj0/f1jvAR+uRoTt/9NA
+6t9ah7jBZj4IbjdnOL4k4x3GGMob4IMK53+bLr0i+60vPQMBc3xgVt7BPd9I
+QGzo/p41rPxwWk6wtW4i0EgxaZMR50c/30/e/GbSNvg2KKDCj98WNj7fWki8
+pYQ+ETblx0Rfg45FK4lPj4A0mjM/Ane2nTrbRmCX7XlNmyB+DCw83/OtnewP
+xX9/3JXAD4O6VQuWHQSMFkLP3cvkx1LkyPeCTpLvcr/vZr7AjzGR1j3zXWS9
++VYf8K/gR7SI7GmHbgIF+0dam5/zQ1xDe01xD4EUzVdhtj38WE4L37bcS8an
+9FFwxwQ/rLOUFTz6yHrbZtq+4x8/ztHatlf0k+87dzwUE1qNkpyHJjwfCXxu
+lTNup61Ggq/bpZABAio/+n3y166GRPaPY88GCQxcf68Z67gavxLYVst/IvuZ
+pn+vvLeuxvbeLzIpwyS/udnru+0i97/5/eD9ZwIPD7Ye9slcjbzOktE1X0h9
+5qjrjLuwGh0tDsVnRgm8knSjn7+zGkeWN87++Er2FxXzuV0vVqOXS7J10zgB
+2ct8GrJ9q3Fvhdu0eoKMZ4sma8L0agQ7HjEVnyIQVbgndyeTAMRerbQlfiP1
+W09y800eATiUti70TRNwluhwnRMVQFSW303TWZLvxAuPmykIYN1/YouFcwSS
+tqdL5qoI4L/BLe9Yv5PzRn3uzzk9cv3EeduwBVKvQr5qea4TQGmTkVPrD1Jf
+Xa++fWkvAHuty+O6iwQiDLiHTd0F8KzNUKrgF4HQPNeIR34CMFKIGFq1RNbf
+RFuCdZgAfjIXmYT+IdBwcYCvO04AH57barYvE/AyHVu7c48AmKRe1Rj+IyCa
+HMQqmEmeZxx5f3mFwIONXQl1pwRwMXXlBA8TBZd5WwqiLgpAUez48C5mChLj
+xv9TuS4AWZ/rzUMsFOi96ZWduSuAz5Qaxw1sFFCZ3I8/rBeAU7VyWA07BfY3
+if6TrwXg+CpCjsZJwaChFGdslwAOJE9FnuSigPunrKL3oADat0t5ruKhoExT
+Xmv9hADmTgR/jOKlwNpGdp31DwGwxxj9+8hHwf5XNE+7VYLQmeapc1xNIfXO
+/ZA7jyCMttmL1AtQEHevsz1MTBD8V4K4NYUoiP/db3VYURCRs80XCoUpOJNz
+b/K2miD2/fveKiRKAbPr3bahNYKI++N48ZAYef+EyR8pS0FwZm7g/S1OgVBP
+Q6KfkyA2PA6UjJSk4GbOG9cbXoKQUWd9+UmKvD937BTTNkH09pYIbZahoOFc
+tc3WaEEs4cFKiywFD/O+7mpKFkSNb3WOpTwFvweN1EwzBHHtvOCjWgUKdmBv
+/IOTgoiYxFEdgoIAuVNe6y4KwvZWLdMNCgV9R4NHW68Lou3FD3EqjQKduDla
+aJUgjh0Ne3tBiYLOXFsKz1NBVH3K0ZBgUMD79OD4/RZBVIv2a55SpiD0S/eB
+qF5BzP97/Y5flQINtZS/GiOCiJrtVDiiRsE/iedbf88I4r+HsYKcGhTcvcL9
+8M0fQfhUKVw7pElBiv8z8ZscQmC+5fmFRZsCp4PhabnCQqhYOv16vw4FBxRy
+mTLkhXA3xn0Tsx4FFWqfSg+oCkFkh0Dmfn0K6m+wpmStEYLDS5ttLGsosHz9
+LPucpRCmh+InDhpSIPdrdqR6oxBiL0tIchhR4CiYcPyDjxD6YyvmMo0p4I9z
+OMcbKoRom7p4PlMKDBQSBW3jhXAgt6bohBkFLwalVo6kCUFqCyNFDBQM+wZE
+92cLoZZxhOm8OQWjNodj9POFIMsVqEtYUtAeM8JfcEUIs/kaQtetKJj+2evO
+VSmEM0xxF7VsyHhv+rDxQL0QJubu9NbYUnD89G5ezmYh/L0W9dTcngKuEJuz
+Z3uE0DOn5tXsQIGYxeKy9ogQ7GkxhZs2UOBwYr1Dz6wQrqk8OTvkSIFvk3h2
+xl8h5CVeWrdjIwWNpy3bLLiF8U70dN4vZwpezr5W4BIXxr98evEhVwp2Oj/I
+6aMII1BjwF/YnQKbF7qU+1rCeHkUbZc3UcAuv3P6oqkwLLh75rQ2U1AtULV8
+woE8f0Cl8YknBTKbgnyObxaGSHyDq4s3eV/npHhBsDC8xzRODvtQ4NfQte52
+jDCMDi2kx28h/eupGWrbI4x96YXaHP4k/jxtOZePCANP6k8WBFDwbpNVg26+
+MC5d6i/TCCT9f3mY2F0qjBrVg0nPg0j/7zBrv7wrjJ3sNsxe2yjIcKv6q/BU
+GFsib1vMhFBgYfPgTEarME4abTRJDyXjed2Ee6lfGLlf7s3IhlOg5nAgJHFc
+GNoHo7dUR5D4bhp9wLwojPBmofSNkRS0vu4WymcVwXoB9fDxKNJfgfd7jYVE
+MGDnwn0wmoLDVZmrJ+RFwM8ntF0+lgKp9efaS9RFcPQs8766OApEOHreRhiL
+oOlltafnLrI+pmWIdfYi6JJ9Pv0jgYLZv0HtcptFYPfioWVuIgVaXrWT3NtE
+4JC91lM3icR7rPUBljgR7BxvU+tMpuDxGotSzn0iuPdH7FlcKgUMsAVLHRNB
+zJFSCdG9FNAXl5oNL4jAlUdc+34aiYemq9+CbojAJZ+J13s/BXs9rvWeeyCC
+8pWV638PkO+fvnN+6JUIRqtu8hQdoiCY/4S9TrcI6j8VadtmUHBlRW3m+IgI
+zDz3yHw7TPLPyYMXludFUHixv+VUFgXmXBXBu5hEET+52dI4m4Lyb0Puf1aL
+4ij9RNrnHBKfloF7jsqJQmyGdij7GAW61XlzGuqiOHKyysXgBAVHW5kffzAW
+xTvxodGhk2S8FNYunnUQJecYG+vsXApWUqbLArxE0RGdGWl4huQTxuyEQago
+mkfWB3w5S/6PS6lRarco7FK15E7lk3z38aQbb7ooRPr7rpqfo+BDlPtFntOi
+eOk983f2PAUCL4ofSJSIYkhUWPHyRQqafN9V694VxfDnSUHXQpI/fbyu+j4T
+RaSPwluWIpJPXtadP/VWFP6dm/2ri0k+ul9yrXdIFAtBRo/CrlCwdKr3g+qs
+KCa/Rk/KXqXglpXh+pwVUZT9LZnouEaBRORTtr/8YnDh3Fd3uIyCtOKjcsly
+YpDSrvBbd5MC/+s9Vzk0xGASOtD1s5ysnytzd4tMxeAcUiN3+zYFXj4bN21w
+FEN4+aRJ6B2Sf8L2XWTdIgaHLCUt4i6pf3sNipp3iCFPVOL3h3sUeJ83jrtM
+MpG4fnReXjUF8/Yp1PRsMXw4P8i/qYaCvz3Mr/87L4b0dvEtQrUkHxf8iku5
+SdrU5gPtdeR9tFLDow/F4P745oFjjyhoy45Tud0ihnsF0Vs2Pib1omjMd/CD
+GFYdahYUeEoB9Mo/y30TQzARd/ntMzK+jpkdkX/FoD0ty5fbQEFC/DbTFj5x
+UEwObNr8kqznGQdDIzlx3FnrkyzdSNYvS3DPfQ1x+M747R16TUGUwbKG9Tpx
+MFvYBZY2UzByIs1teKM4zBbeUiPfUFD8da/XsQBxlFy9/0qvjYJnIjc2bYgR
+h/lA1fq/7RQo27zzldwvjoE/mXdedlDAarZw4OdJcQTazv8+3kXiM19h6HOx
+OKymymm+3aT+iJ9J/3RPHJ/+pOgzeim4OHQ3e+aFOMajFFR+vKegp3mZg79H
+HE1K3qzP+ylYfUOc33RMHLIzUw0nPpL/Pdl2L+W3OET2nt+xdZCCDgURoTfc
+ElhIUl/W/kTqd+tvYw0ZCezZtS2e5TMF53Vq7QrVJZAwx939boTkp033nCjr
+JCAU9EXx+igFJxd3BN93lkCa9iPP1DEKjD8fLfQNlEBQjU+y6wQFZoaTksLx
+EvCxP5LFmCLxW/ff175DEshQF89Y+UbBJ7qXwr2zEhC72hzTM0NBc3Jb/8Xr
+Eng9v2t9xRwF8o4O2ufqJJBrPyKS9Z2CGkl/w+tvJCA1/KU1+AcFRQXNnK8H
+JeA975CERQq2iifULs1JwOzOiLjsb5KPaiO3mbFKYo3noWtLSxRUfplQzBWT
+xCB1lfr7ZVIPMjdyLjMkke+tXFrzj+zHkunaCcaSMLXqFslfRcVUE6OK2UkS
+tfof/0tipqJGTq/8coAkmnJEu31ZqZDn3qTjFieJi/c3q4CdiqLQZ1vE0yVx
+Wi11N5WTip81A3bTeZIY3xVQz8VNRUuiIV/vDUmkaHxcmeGhImFfVkNXvST2
+s7ab9PCR69seHh55K4kNdWIJj1eTdvtwHMcXSQioH795TZCK0ZF1haa/JHFr
+g8ynk8JUlJy3ZGTwSCGefl5kjygVy6rZSiNyUlj1dc42XJyKA4GjVe46Ulju
+WJWyWZIKsdVOc73WUuB0K79jLU3Fr6Dp79FeUjg2+2FcT5YKDl/ivUykFEo9
+E2g0eSrEFXc9/JAmhbEtW7eJKVKhFVf0oCJXCiFL6WWcFCqGBc5O5V2TwmGX
+tz/+UKk4pxATc/qhFFgrVe1mlahYLEgLLm2Xwquz+4u+MKjYXG073DwihZny
+52wfVKiwd0vmYP8thab2j7GdalSsCmeZc+eTRtPqpxPNGlTI/venrkZRGkdv
++0W90KIi+0flIW0DaYyoXv/3WIcK1JVHPHaQxoe1uefr9Khw2ltyJNBfGi9f
+i9jXGFAhYHmIRTpeGr5cimzVhlQkNcbNjR2WxpNtFW/vGVFRwNEU13JBGuU5
+dbfvmVCx8YrE9ReV0siKMymsMqOCJYJe0fVKGmc2apTcBxX9j39c/f1BGqxF
+OQ9rLaiQo9Td1puXhom+50S9FRU5V7+OHuKQwV/5HI0GGypCo6mR32RkUPBK
+LavJjgpXTffACB0ZGAwb/nvrQMWT4lOjK7YyWEm8d6RvAxWXpI2kbmyRQeJE
+se6IExWWP97LRsbJ4MkU7+K0MxUPCHMhm0wZDB772b3kSkXgrf8kDC7J4GPJ
+9i6OTVSsNm9yMa2SAfP57bOim6nYcL160KdZBsGDq9RoXlQwB68aOfFJBscW
+1x3W96FiXulq2uCiDBo7dNhtt5D42DHeY8Uvi2Ovxkq9/Kmo/2fF+4wqi7kz
+sRGRW6kQztqNzcayUNg57L4/iAod5b1nWV1l8ebb+uC8bWT8fxXoNYXKooNo
+KLi9nYqhq+uNr+2Vxb6TW3+/CqPijKB728UzsogyNNn3KYKKhjcPRG6Vy+J9
+ZqTuciQZ/+YXmt0NsnBMFBCUiKaCaZzVWvyDLBBvLq0fS4XFcbv/Yr7Lom6n
+nJtbPBUnXK7OjXDLYWHo5YPYBCpK96d2xhBy4Hnh43wqkQqjgUgrCSM5VBSt
+iFclUbGHFhje6yKHiexuwd4UKgyeH4moDJNDC4193fIeKlqjg6NK98lh3eWq
+QsV9pP8fbuXfy5dDxys+Q7sDVBx22y3y8Y4cDv42ZI8+RMXtUBF2hSY5XNIK
+4s3PIONRQj+TOiyHPNba9c8zqTiqeXHqxxLp380dL6aPUFFx6I52prA8NFlv
+JkkfJe+jjuWsUZNHdVbZDvvjVBRCTIXJWh5vw86fTzxJhXmSn+boFnnUJNzn
+uZ5LBetpnVejCfKI09et6ztDRZS2uzTLcXmIfLC7yZdPxVjGu03G1+VxbZPu
+kPk5KoKVpC4feyYPf2tNz90XSL643UNf9UEeN7mSRW9doqLjvJhozg95BD/2
+kBy9TNZXmqTDOQ4F/LVi3SZfQsXNq1Ghe0QUcMv01W+vUrKeTuT82amogOci
+X3pPX6NigLlEMlpDAa2rrrB0llFhQvC832OsADYO52TBcvL/fbbO5+0UkPZP
+y9zlNhV/rXnONG5SwPVTuR4n75D8Iab7lCVIAbnrXz/suktFInPTmGO0AsIz
+5HdJVJP8p8ZJvZqqgJ6M8bQtNeR7p92yVh9RwJHo5E/FtVR0Z0A3I08B9etV
+8yYfkvhiP2nAX6qAm3wupXqPqXCH0c2Suwowy7Ph2/uUilsr3jcdnpL+1G9v
+bXpO4lneZuOqNgXssBOaFH9J1vPf1PIXHxSQ8vNKcEgj6f981WDBhAICDx00
+qW4i6/l1x7+9vxTQckcwnuMNySf6k5Rd7IqQMrnL691G8pGTXWiSiCJMpto5
+br2lgp075MsxQhFJp7tCWLqouF/7/V6VliLcpFRUvbupeHmka3bSTBEp0es8
+KnvJ+mdSuKvjqIiykoPjPP1U1CYRYlk+iqgeiBgN+Ujad7bozYcpIn1bmNPz
+QSrCzTMZEYmKkC7+TigOU0FVOcX3I10RNYwD29JGqLjoWfjv2GlF/Kg8Kf5p
+lMyPBp+4SYkiZtUvGVmOU2HGExX7u1IRux7Q20snST7uO6bW+FQR7uXl73mm
+qTC8kLj1Wrsici/c84ydpcJ0ebt6waAiHvo9c+qbpyKmu+fmhWlyP7f/I8sf
+JH46U5Yr/yrCgEW09NYiFb2LNmv7eAnM/47mll4i87U2ME1YhkDoHNPU4WUq
+NCTXzPipEjCy9Nrw6x+pR2siih8aEfAr4VYPY6Ih9MenWjUHAi3KN4/1s9Bg
+w/3I7bYXASHH7l0b2Wk4Qt+SbRVG2nOUTw2cNOScCTwwlUjgSYhOpzEPDVL9
+5ZuvHibwNeay4z0+Gso3BzB25RFgdRJ21RCgwfX7BxGPawRU7qoNXxei4fDT
+RhOHGgKjfbkrSqI0WN3keeLSSMD00I8bV8RpWJB/W7+jl8C9v0tjNCkaQh4c
+9jo3RiBYwb3mqgwNj36MVnz8RUDAv1JaVZ6GoZEvX3S5KHAhBalCkYaAjy8k
+L0qSfSKzyxUDKg2CuvxRMioU1IYwtdUr0dA+k8N6m5zrj0+fOWWnTIPAUd+V
+TevJud62faFTlQaiui9N0JecezqiFgI0aPD4W3nj0w4KCssNcme0aKi52lf0
+kpyzHKqn3+3VpUFhx8nMJ0cpmDkWUCdoQEOs0fYDbZfIOfG6p80VQ9J/Vt17
+3yvIOcGqNNHImIbHh2WhTvbFlbul3d+a0jCrcGF9SicFfIY5fWGgwf7E7j9D
+ZB+46NvJx2pJw73+Z/E+PylIL22cuWRNw5LI6IdJDioOPnfYb2pHQ5FJgddJ
+su+I3Gz06oMDaYtPCmxUJXGyKvlJqiMNqXyGyoQpFQy/7zsVnGnYzKn/mmcj
+FffEcnoaXGk4uHlSnJfUHcqA3u/wTTTwn641ocSROE/p6xbyJPN11MvfheTh
+mx3RsQ+9yXhr9lw9c5aKkJFvb7ZvIf2LOWf2/Tp5f7/DpEgADecdQjdsJ3ni
+Kv/BlueBNMgWey/Nt5K6x5MfF7+NBlbHyZgzn6j4cDZ7WCmUhq6/Mx9cFqjY
+WR8s3R9Og8qG89toHDTovFVROBFJg2PFfgNBEgf+sZPzdtE0aBw+nSSqTgPX
+uerTzHE0lMkxtuiQcTMpusRdv4uGn1UzXKFuNFCtHrklJ9KQeJq1vDqEXL+u
+HGeUTAOkP8fKJZHnIpkj/qTS8LR9x+FLOTRcuhZqWp9GA9+BcSmjyzQ8+542
+tf8ADZ1+nJ7T92ioj41Lsk+ngU3gU+TDRhqG+yLGBTNJfH1ZyCr5QMPbpHzj
+D0do2PdDc6B0lgZbC824a0dp4HScOPOcVQkDr4NOJpygwVtqfGRJQgmKPjHn
+bHLJ/Z/8f21QV0LKr9PHJc7SYFg5x1RrrgS/bcLxU/k0XAys1LHwUIKjhqbd
+s/M0/HlDf/glXAmb7+isLrhEw1rx9e0le5WwXimiOa6IBqHZzMt7c5VgcFV5
+78YrNESMvApMuK6Eb4bP1dSv0dB43d82s14JlZ3Hu3lvkPiMox6o6VTCYMTM
+nulyGqodghxYx5XwZGkdo6OChvAdI293/FNCdMbXrvt3aRApm3KaF6bjq+bG
+jEvVJD7azRZzlelYpTNinvmAhjEhWaZN6+ioWxDn2PWQxFeSQ7HOJjoSBQPe
+Bz6mYcKHV1Qjgo7QLQZ1rs9IvmlXPWq7jw7e7xK3rV7Q4K63aLP3LB0Vxln3
+Dck4l920THxXTofVb4EejWYaSm9F+Tg00CHhbChAb6Vh4Ki/ykAfHS/aj21T
+fEvmTzRT/sQcHRr7b7yX7aLBSXRyVxAnAzcnKTtlemiY4hcJ2yTPgJH8GYZs
+Hw0r7YT+dgMGBp4Xcyp8pGEPtVEs35EBCYXvgrQhGmRS7NZPBjOQSNW0VftM
+g0NZqoBfCgMOCRw39EdJnF3oLZk7xUBkkhbMx0k+UwiyLb3BgFVAENfGKRpm
+Sp6uSXnOQK2aH5f/DMkPAvrVcf0M7H7x2SJmnoZfx8+z5HxngLFcV3PoB4nH
+xN1bG3mUsZB/N/L8Lxq+yX8VVKIqYzn8fHDVHxr031RsLjVRhoyDY2H7P7Ie
+rqxLsN+kjNtqRZRpJiXIFZbeWR2ljGMaKXN8bErIyChy+p2uDI6LT3m1OJXw
+YencSfZCZZhw+iW68yjhfNL152seKCPW2mJNMr8SIpNPMHI6lLHvUPCGEkFy
+Pa2Fk2NKGcd9n9S2iShBzCzj5hU2Fbxs8zj0V1wJhs9KfMPkVeAUqHFbXVoJ
+vlefBLquVYE34WYcIKeEEkdtrq1uKgir7lY7raiEgzLc505HquBaeHt6C5W8
+v0U2eDZDBQlmWzawM5SgVrvqTkyRCgTmL6VZqCqBEzxtko9U8J/IU6V9GkqY
+lPLlHe9RIfE0Y/5MWwkd7/ruD86roHad3zs2fdKfdUaK//hUYTRjN7LeUAnB
+X5fyrJRVcWf3TEyusRI0rkVG37VShbNt3r5BMyX80q/+7RCgiry5Y2LqFkpo
+ePAmgydFFQFmynqp1kp4s+tQ1I+zqpgyfPSxzU4JsvGZzFz3VJG27oYYbYMS
+GGZB+SSG0SHkNZyyUQlRl1Iyb02p4vUXHaseVyU4xBIq5lxqiI+8sU6PrGPP
+3Rmd/2hqkJsz7j3lpYSCNa8Gvlqo4Y53sOBPXyUcmBu7suyvBortjWnvACXo
+nBg+YJqqBjPxi3HPgsj83T3XVVaghqRVb4vVtpPxuT+7YFWjBkJucH8+yQuy
+nVUWvN1quL4/XIQrSglN5rUyTAtqULGX8U2OUYJWTPMwRUgdcldLtszGK6HI
+ouZHvJY6ov7VyoQmKsHdw/3+gpM6EmdkLwwnK6E0KDmrOFIdlyJODfuTPBN2
+UaRzX7Y66l+NzQ7uV8JrZbGfx26oQ61tvjkwnfz/2cNerU3qeNKds3ssUwlX
+dmUFm06og7n9wmJ0jhK4J932fuTSwJIvv/PycSUwBxgJ31bWQMPnjoNZJG/1
+GNzLqrTXQGPRaL50nhL0Tvq6jIVp4H3DhlO3zynBSXWx0zlLA0O7BHbZXCLx
+ahCfNlWmgeJFK8uhIiVg88KLumYNtFazMaeWKsHoSovI4ykNrA9IqJIpU4L2
+46yBn3yaGP/5bOvjciUszPw6HaSpCZFxeZ5td0geDiJus7loQoXeVMVXRdbP
+js2XPsZqonEtR8iDGiV092t/nMzVxFFPmkLoQyWkheYPad3XhMS+5DHJJ0ro
+U2kkyt9rwvJo2PPW50poZGyU27qsidGNnlXpr0geTcq5WrpaCweLHjwzbyb/
+p2UiuVZRCxUZnLMrrUqwLcymjOloIdzstfnTDjLexdns96y0IOOb+fBQtxIe
+JTCxXPDQwuEvg8GOfaS/JuHexaFapB+R6yQGlLA/nXnjK5KLjop+cB79pIQ9
+kw0UrhwtaPUNXrj/hcR7aaRM2CUtINlANZvkeSWr1NSvd7Tw8fbVv0HflPDJ
+zTj7YIMWckzYpNbNKWFR/cFR9Gihm1/1kOwPJSw96mqWntCClNeK5covJbT7
+GB8R+6uF2VuxPiPLZP1V7BDVFtBGtWJae8sqOiqvPLobQdFG+Rb1azWsdBzb
+5lPx0kAbwa+yvl7lpOPmVicPCwdtpOXfPVXAS8eeiNS5gS3amGFuvXNcgI5P
+PRWt52O0UWbNY5slQoddxWnjlEPaOPbuqmeGBB1i80/SU/O18XP35GSGDB0O
+/ZUrheXaOBmkzJ6tQMdF676fo0+1cTPgyc1TVDpSBPIebewm7x+X+nKRQepK
+vkVp/4Q2qhxv3ytXo+O4hTLrkRVtZLWtKDzRooPKk6fqJ6IDr6YCzW49OpL1
++mM2KeuApVNqdMaQ1K3fFuoxZjpI7Fdy4DOlY9mVXnXHTQdaHrFbNczpCOuc
+3CoepgMH70fabtZ0nMliySnaowP2xq4nyfZ0eDL9OO6Wq4OByJMi1xzpkLLy
+e61SpgMRjY86vS50/Fv5dZLxRAcN1OuKvB508FdeXO/YrYPzrYujlt50yI1v
+cM2f0sGUZu/hvX50zBcoc/Cx6CJ8OYTvcSAdLdkZzdckdXH4cWsS83by/bYJ
+pkgtXdiy2fXYkzqc6MzH722ri9IDksqnd9KhsOeze7SfLiqt8hJG4uh4wHzZ
+pGKXLjTe0l+uSaSj79QjNakcXdz0MZI7lkJHUO/vnFsl5Pkp50MTaXREBwc3
+RT7URd/RP0wOh0gdbvFz9OzSxZ6U9wXlmXQYtBYdiJrSxfKGfA/Ro6TOn7bt
+r2DVw17Kb+N9J+kIF3n1XF5WD9wDL13mztARm8Byq05fDzbWQxe3naPD/dYG
+3kNOetAy1VUZuETiSTrENWW7HhR+PlryLqHDZ332j8tpemCWPyb+4Rod3l1J
+O37m6+GN+MuMrWQfIeUUq5l0Vw86tFOuk3fokA82q1F/o4d7JWv2/ldN+stu
+sl/wqx4qzdlFeevo6K7y51Zi0oexapB08WM6SueM2yKk9XHToSHfjOxDDB5z
+uHzW1wd/8p2zA4107He/IpjjrI/wpw0yB97QcW/oWm5YhD5GD5VpqXXQQST4
++/+Xro/iN4r977vJ/4t2/3p4WR8Nu5Yp2f105PYPjes90ofCTnlhyyE6nDYS
+jz71kueX9lf8GyH/0yO08nxBH6ZjOqyPx+noceY0+yBggIEOJ7GD03SktZhy
+q6obYH8g94zjd7L+Yvp/VNgbIOFI+RmZX3Q0Z/zLjQoxgFB7rujsMh0DV5+m
+Bh8wgMYB7fhGJgYKxKztThWS9/Fw111hZ8DM9v7RP48MMKJcO5/Bw0Bu5pZv
+F/oNEGX8nbJTgIHu4fPMyb8N8O1AymYfUQa+C7HsPCW+BmNxumc2SDHg82rj
+u6/6ayA1zzNuQfZdt/6k9iW6r0HJFQEvMyoDMllvaLZxaxBsHjRjpkzun2oJ
+cDu5BhfbTaqsNBjQVw9ac/HOGrSxTt/dqMuAHX/fZsbbNUg/OLjgb8jAcMBY
+7PzsGmianNy3y5SBpFMPjf8KGMLu9qWg4xYMeCdwhNprG+La+tqSClsG5g04
+KnpcDFH0qNypewMDpbknW6/FGqLJ2j+CyZWBhxup+x6dMgSvQCurzmbyvs7R
+DLEqQ5hlC9NCfRkIkX1y5V63Ibgbg7qLtzIwObylMO+XIVKa+ChfQhh49dMc
+z6XWYn42WVRtBwO9M63O+qZrcctRryYxhoH3QpsKZ/zXYprjvWhzAgMn0+RX
+fd+/FhWPGGspZF+pXLbPCqVrwfz1n9q+fWS8+b5Y9b5eCxFj9+WRdLJvNe7p
+r/u2Fv/E1lU6ZZN9q5LE10lBI2iMfveqP8GAxctrtmEGRijLfvFP9ywDGv/e
+f9LzMYJFJ+3m7fMMNA35XNiYZgS8uxKpXcSA5zrHbbVXjPBf9E+nB1cZWD62
+npHQbISp6jEf23IGNFUP9B6YM0J4YFRhfyUDZ4cfR4yIG8PfoYCRUMPAr/nU
+/jwzYxzrL1wlXk/iwe0PtWibMUZO9OrVk31v+nZ7e6YcY4TE176NeM3AIz5/
+x/v3jBF1avizfBsDJVKqRi8+GIMjUyCxr4uBl/pXZdTYTLDnD/3cuT4G+CiT
+bN/UTRBNaHsHDTFwJBE8XJtNwOnk9Ux7lIHB5wY2+9JM0BH9fYh9igF2oqbL
+o8wEvTcSnw/PMXBmg9z7rC4T7P54ePeLRRLP8nZJcismOKkzyX37LwN6+bc/
+C6mY4kzt0SOXWJQx7ZtmHbbJFEL/sjjOcilj751bXcQ+U0jlKeScXq0MK+7V
+zSg3hW3HA5VzospgF4/a3vDeFJxWk9NXpZWRFnD92y12M7jEx4/VKSrDc1dj
+KZOeGdr3QKmHroytZWKfHm01w8O6kPu/1ZVRE2c6O3LMDKwRqjcoesrw8fJX
+T6w3Q0XgKsFNRsoYOqK7mPjNDNufHPqVA2UIyBGVYzLrEHUxK6bVRhm3RgMa
+Gzesw6oWvmwxR2UQAoJlUqnrwJtp5hnipgw17y1vBsvXod46dfSRlzJOCOXf
+khxch+htvrayAcr4MKI5FswJpLNdPnIwRBlGI30fExWBX68sG77vUIZUqUja
+axIu05djmCPilHHSdil/szsgdyt788R/yhh0FliiRAEHWdTfxaSR+4+6x2oe
+BpiPK+YwZZDx83DuTSoCbixGn8jPUcYnK1U2jkfA/G7vhbW5yvANqX/X1UO+
+3+bROFxA/mfoqsqXeUBDVVIh97IyVoT9xwz5zXFZ7Di/0zVl2JjYL7Yrm+NW
+7GipwG1lJJ1utbxlbQ7+6IPL/VXK8GaPrn+71RyRxwQoFQ+VUbjpo4/JHnNE
+l0Zr5DxXxq9vPKIzBeZQm2jSiWtShqye09eJ++aY+pduFfhWGXrxEV1a78yR
+wLcx0btXGZvDa4afzptDZUDgs8+gMu6Fa8leErBA7e9/+SGjyujQOHbqtYYF
+JtpOVCZ9I+OzPsLbwtECt0YOW+QtKGNmk8sR7h0WGGae8n/8h1yvG7SiHLGA
+WQKv4iyzCu66fS7LKbOAyvr08yrcKnC9HT/q0GSBgtPm41GCKuBXF1PynbDA
+fH2c3CMJFRT0dFx4xm2J/X2FbqIKKjgv4pexV9US80wXCnfTVdCgrEfkbrBE
+dE2O7IiGCjov1d1lirLEz02Tw94GKpDO3J7x+pgltJL2c30wVUH03b7pqTuW
+cM7YVbbdmjzfwmMR2WWJAJrZ4N8NKlhMCx9cv2iJvje3nl50V4FcAZtalpQV
+7vgvRDj4quC6SuUpZTMrvHt49teqYBVMN+pmqgZawSB67/5nESpoGd2WfiLd
+Cv5b5qjH4lQQuCGEd8sNKyz9l/snJFkFY4+fFB9rt8LB47GEwwEVGH4590Hl
+pxWe8y1VGR5RQfCWr05aMtbw7l3p0DmlgmfaRwouW1jDaPLBGcNzKnA/nbc9
+LcwaVl0v5RyKVdDKnhLSetwasRcNM7ffUEHaoJZzTo01OignFo7fVcFx74TR
++iFrHD/1bO/LOhUYEOwLwVw26MvRduBsUEFZVMuGfTo2YHa8H+fRQr7/XLFV
+1NcG1/uKZe50qcDFh92fmm6Di65Ptkl8VMHZjf6ztypskKnrEp39RQVHM/VT
+7/fbYOGhhB/ftAoGjv7kBoctTvp6uZz7qYKpNfevO+jaIli5d4fBigrYAxPj
+3/vbgnvnYOcAhyqEyiNPTGfb4q+teVmugCoWPG10smttoWfnLeIpqYpQ98Tc
+e2O2iDYUWaNMqCLkeA5TuLgdkobH1nCqqiKhPK7tlo0d3k6PmPzQJW3x1oBD
+CXa421W2Y9ZEFatKHWizpXYI/LBr+re1Kux6f+XP9dhhWk92QnCjKkwaiu2z
+uezhKSt+2NBTFT/earx5ZmwPVyJlLnKrKj77/Gg+G2WPB9HczpXhqjB3UV/m
+K7KHr6lyK1u8KnYtbKAwuu3x1HLqTGiqKoI74sTGuR3wxFu8uy9dFZVCPbVu
+cEC4IlHje1wVJWba7BEJDmh/bhw+na+KJ5f1V7TLHTDS6yR1vFgV7UEc9TdG
+HJDtzbZoXq6KT/vu7eiXWY+k+y2arPdV4dd8z7Zh03qEMvUtdD8h48MZeTHs
+2HoMG2jsrm1Sxbb46s7W1+txsKxg7FaXKkqrwv0WWTcg7fCL5HsDqphLXXg9
+ig34l6QR3DymCjPmL9WFqRtwNEq3+/u8Kojko/2Mug2o2S3KofFXFeEfi1kP
+/N4Asf6/akkcaghhGhC9a+iIoTUse3sF1VATVcr9KNER7L0a+vYyalBgb/xZ
+8sARddT9h1uU1BDWQOPY+ccRNMvlykBtNfh93L1f3swJHT2XZnhM1LAjZnVT
+7T4nCP1ITGq0UYOB/GVv65dO8NAtPp7noob7tWJvnvNsxLqfG6NTfNVQEBfa
+Y+S6EcGDLZ7x29XAVJfqeDt/I3Kis7LSYtXgskaMUBreiNBBwvZyqhoEj33U
+7RB1Bq/01rfdh9XAfvXDNXFjZ6hw2EUq5qphyvyk1GiAMwqnJAP2XVLDGc55
+K2Q4o5oImP1Zpoa8hyM/GLecUTk/v21/tRpUK3r5it85w+M+Ezf1mRrqCzen
+3fnrTPYp0vQPb0hbo8h9s5IL8jYbcN14rwYBHZfSsxtdwNNd+/f4FzWoqf29
+sus/F/DnZbkdnVPDc5mp/IViF/Cx8/gU/1VDNNPLAfE2Fxx/rRHSzqUOw/XO
+Y8NLLgju2tsoKqaOzee0LLzorpi6r9wTR6iDkLp/fI+7K3ydWccnNNQR/Lji
+hMd+VxS/uOiRbKyOJ+Pmsl8qXOE86pBEs1NH35XXShpDrnAdZFSMu6uDja/1
+kb6AG1zddT0at6rDjjbPv8rcDb8+rG95GqWOt1U/gk/EukFl3Da+O1kd9emP
+ladL3CAl/O8Oe6Y6LLNiv0r1usFkyG3S9Yw6kuKP2svwuqPy1/rDdcXqEN0g
+I7cId6j1iHzHHXVUZ371qEhwR9mieN7nenU4BTRwO5a7YyqTa7S4RR0hHZ8T
+OkbckX3zl+P+PnUIWhisspHdhECDAMu9Y+rg1f2oV+6xCS4ihibnfqpjZOXm
+G74Tm5BtznGnm1UDY46Pb0e2bMLBgJ8yOsIaSBMXn+7g9AD+DP8tV9TAF93N
+zZY2HliOiety0NKAikN23cuDHpgoVKVyrdNArhZPSGCDB+rM98eNO2pg4FXw
+VVm2zegWWVw/5UveHxl9asVmM6lLykZCOzQgZxy1e3XWZqQJzb/xSdZAiZ3F
+B/fWzdjRuLvgdZYG9m9qOtwj7ImS1Y4GvgUaYDfYePCStyemCw8bi5SR92cK
+S1YVeWJryCfb+QcaOOzK1KMw5Ynjos3LP19rIEQq8cykgRd+fzq1QvRp4EqC
+abLcAS90uR34nTChAaE3JxaftXuhxnnp7PclDcxsi2gblvdGYXBudj6PJgrm
+3ksfjvaGk7dDTpiMJnje5Do9euaN/Tpn3IPVNVGxu1o/R8wH57PyLmeZaaK0
+5+oK8w4fxB9cZ/hxoyZiV5utU3nug5sWOz/5btVEdz/fLL+ML0a51SK44zTR
+dWUx6VGCL5apL6+NHtREY9FMrUWnL2yyOeLmz5D7L7Ax39Tegr7DQdc0rmui
+zLJCjuPkFtitZ6ifr9PERZ6ArYELW/CrqHLSuFUTTVS/ohZPPwxNFnfxf9LE
+sMSy7abHfhjZKDUouqAJNS1JR16GP2we7WK9zqKFDUvMdsyn/OE1G60ayKcF
+1cB+Q+qqAFT67ZkwENfCSfEXHr/WBEByl1czXVEL2S8LG9ljAmDle95HX1UL
+lWfeGHjdCEBM8ohagL4WCi/euPF7NAAnS391XVunBW6LwLx5ylZorZ77ttpB
+Cycivr13CtwKqtBWsTPuWtALTaiXLNoKyT/754z9tTCb+Zfb//NWpPZvozOH
+a2Fa2ptJVSkQ0idlt43Ha6Go8ExIVngg3Kg/fOf3aiGv7XZmVkUgxjOLX8oe
+0QKn3SOHtb8CsVnogP+OM1oYSTlCXDEPwqeM5omBy1rYteq2ysfsIJwzadNO
+KNdC9R9Jpbn3QbisZsyq+0ALUz6mWXOMYKwL8TYUe6GF1dxPDs/8F4yGCd8b
+Cm+1oBXUI/m3JRjvzYrM3T5qwUPakUOd2IaBLxxfb41roenJul8n/9uGPHaT
+Y3o/tZCPm6mWndtwJlXE4AuzNlq42+XdNUMQXzox+HS1NkQ+xO/ozwmBlvJy
+frOMNlgfGbLPTYeAV/FtEouKNsqiR++Vu27HzsWrReFrtDEUsZCg+mA7hN2/
+GjNba6M12SL3EBGKzuwzyc2u2ojfr1XZezQUoewfL78K0IbcGtVxi3+hWFyV
+ubQYpY1zZ1v7P0eHwdLj4sctqdo42Pmk7cNoGDLvf7u9dITc/yGi0TkgHENc
+VZ/bCkh/cx4XB38MByXd/vfAdW1YlaqsXecXgUceLXuVH2gjNPhvEtfnCKgl
+TojeadSG1ExkwXTEDhyruha+u1cbx2NTNGR+78D1GyZme8a00RT1Z8uzrEgE
+dXwPfPVLGz9XOPhEFKMgUKJc786lgxgxG37bh1FgEXayZ0jpQOa5qWeu704U
+5f8VslLVQUhWobwMUzRSnNVQZkKutyp5P/CIhnn+Nr4tTjoQ+3yvwfJ2NNIF
+iXa/AB1472f3G+SOgWG5/q87sTrgNJQMqgyLIecXT0GvQzpINAlO/tIcg2y5
+1w0eeTrY+JEYL9aOxX0F0f7yGzowKFeslz4Xi7Hnv023PtYBf3a26B7OOGjH
+RS/FdeqAvmu928p/cahLG7IY/6oDbfajYT0zcbAgUmMalnVQ4WdEswiPR8WG
+Tm4uIV1MV/Ds3zsejwHm7Ce1dF0sr7bj6IrchRh6aPxHU114+ItoZC7uQsd/
+yca73HVhv/NEx7f0BHBwl29Nj9DFDVnxOx4yu9GkeTBS9IAu4muF5uRqdqPh
+iz2Vfk4XJro2j695JyLZP+Pok7u6MPgT8nsL63+YapxcHm3RRRN36LeKqv/w
+wLuEr3BUF+Z1wpqyO5NwfYtu5dwqPRwUYMlgaCdjwLtLf1haDx3eyf+ClpMh
+dDrVKnGNHkbPbOCNfJuCa+In5mvd9BD8O+HrdEUqJumuL+5E66HNRoWt5Nwe
+/C84A8f8psw2vGSONEDMnKTIV5J/QJiEMFvcrDRAdzhMNvRKgEBRMQu2Icw0
+QFKojpek04BAW9UFfT7sNECra2hlwmOBQP8wzgo9DTVAEt7iJOD7gUA5kg50
+KC81QGHwoCCfnIJADLbEmAxSNUCUmBlEsUaDQDpooTf2dTVAzivnPtv6g0BR
+GLsD85o1QOZcEf32uYRA9BzqvBHBNUBguOSD9oSFQNVgNEti6DVAXlQ6Rudc
+hkCSMMDd9RA2QGi+MAf2QodAZp/bDd86NkANGX1ncziIQMM9wAYyZjZAMHvz
+P9k+iUC47dqyBJM2QLp2EvTQV4pAVLuG727BNkCWRcLxOoWLQHPAWciK8TZA
+JUXDoDfJjEBail67dCM3QC48ZRUyJo5AFEXeB0xXN0DY0FHw7J6PQPA0vAkz
+jTdAxt0X+UibkEAA9tajT8U3QM5WBHhieJFAqL52vMv/N0CQN/yD3WiSQKLV
+is/VPDhAcVW1nCtvk0DOZGiboXw4QMoZ2e8mjpRAfE3z7Wi/OEBoeFGFKMmV
+QC5nrplsBTlAZAiCLiQkl0ACbUWc9U45QELVYwTMo5hARH3mglacOUD5+Ozp
+vU2aQP6bdhzt7TlAi7J+er4onEDk4bSOJEQ6QNiKiCsGPZ5AMOFH6nefOkC6
+fBK3U0qgQKlwSmN1ADtAo+I70gueoUCgXXRhwmc7QDVBJq50IaNAweZVriDW
+O0DMOje3Zt6kQNj8QCR1TDxAfOUQBn7hpkC2SiRq0Ms8QHeYkK0cO6lAR/aD
+h3pVPUBcHKEt5ACsQOmn03wC6z1A5o1aOupPr0CSIAamU44+QMgV83AOqLFA
+zjzLptNBP0B8CFhw0Ry0QBaHSqFGBEBAiHVNkdgut0BWTuSsN3NAQIxFBR7X
+GrtAcXzcNFbwQECCc7E5nh/AQIxQqFcof0FAFmBQdiibw0CTqqVSnCRCQESY
+3EgShshA8H5H293nQkBaf4S6p9zPQMX/yLjg00NAQtODdEjY1UCgIri8e/pE
+QCgv13xNRuBAB1pqFW57RkB+IKc09xPsQMApexYcl0hAAhCQqoYMAUGgeOli
+wu9LQE8+XFaH/lBBVHagAqaEUUD9M2Fe
+ "]]}},
+ {RGBColor[1, 0, 0], PointSize[0.004583333333333334], AbsoluteThickness[
+ 1.6]}, {
+ {RGBColor[1, 0, 0], PointSize[0.004583333333333334], AbsoluteThickness[
+ 1.6]}, {}}, {
+ {RGBColor[1, 0, 0], PointSize[0.004583333333333334], AbsoluteThickness[
+ 1.6]}, {}}}, {{}, {}}}},
+ 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]],
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Identity[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Identity[
+ Part[#, 2]]}& )}},
+ PlotRange->{{0, 313.4641211837844}, {0, 19.71156138997284}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{{3.71425398741232*^9, 3.714254043061407*^9},
+ 3.714254073991085*^9, {3.714254126500804*^9, 3.714254147404223*^9},
+ 3.7142544887654533`*^9, {3.714254561554706*^9, 3.714254573654634*^9}, {
+ 3.7142546289379387`*^9, 3.714254695623906*^9}, 3.7142551123343973`*^9,
+ 3.714393618323738*^9, 3.714393685657749*^9, 3.7143937466169157`*^9, {
+ 3.714393777573605*^9, 3.714393805653455*^9}, 3.714806784231585*^9,
+ 3.7148074572881613`*^9, 3.7148087044817057`*^9, 3.714809089134021*^9,
+ 3.714830502018724*^9, {3.714831646222509*^9, 3.714831657107243*^9},
+ 3.714831800997868*^9, 3.714833060836087*^9, 3.714835117877409*^9,
+ 3.714836054773896*^9, 3.714836332648387*^9, 3.7148363942998753`*^9,
+ 3.714837437799202*^9, {3.7148377294221067`*^9, 3.714837756637006*^9},
+ 3.7148395004069643`*^9, {3.714839931209778*^9, 3.714839993182786*^9},
+ 3.714840024665745*^9, 3.714840757038682*^9, 3.714862653542861*^9,
+ 3.714862705599581*^9, 3.714862745224374*^9, 3.714863066907661*^9,
+ 3.714863181424206*^9, 3.7148658178761387`*^9, 3.714865878050193*^9,
+ 3.714865942261485*^9, 3.7148661039636803`*^9, {3.714906907358387*^9,
+ 3.714906969499626*^9}, 3.714907112060355*^9, 3.714992596011608*^9,
+ 3.714992743235569*^9, 3.714992834920061*^9, 3.7149928741665993`*^9,
+ 3.714998536099903*^9, 3.715007354707636*^9, 3.715008757754031*^9,
+ 3.715093160267744*^9, 3.715097519239346*^9, 3.71509768726827*^9,
+ 3.715355283453212*^9, 3.715369100203763*^9, 3.715369273308754*^9,
+ 3.715369685001832*^9, 3.715369805189568*^9, 3.715369837392754*^9,
+ 3.7153793645988827`*^9, {3.715379994742784*^9, 3.715380024349226*^9},
+ 3.715380140979781*^9, 3.715380770786323*^9, 3.715380911612279*^9,
+ 3.715381051877514*^9, 3.715382081518139*^9, 3.715382206250902*^9,
+ 3.715382672546783*^9, 3.7153832141215897`*^9, 3.715410735827977*^9,
+ 3.715467182784034*^9, 3.715469275675643*^9, 3.7154710339900084`*^9,
+ 3.715472114697591*^9, 3.7154722772877703`*^9, 3.715712728042234*^9,
+ 3.715718885383276*^9, 3.7157192897626247`*^9, 3.715720622532432*^9,
+ 3.7157207494435987`*^9, 3.715766756322934*^9, 3.7992845092678633`*^9,
+ 3.799285482725342*^9, 3.799285809593052*^9, 3.7993239212023087`*^9,
+ 3.799324583508896*^9, 3.799324967915509*^9, 3.799325495941605*^9, {
+ 3.7993388865277557`*^9, 3.799338899935699*^9}, 3.799339220973935*^9,
+ 3.799339395450635*^9, 3.7993394717323503`*^9, 3.799339515514598*^9, {
+ 3.799339586003913*^9, 3.7993396058231983`*^9}, 3.799353401499704*^9,
+ 3.7993579910624523`*^9, 3.799359730155229*^9, 3.799359906215023*^9,
+ 3.799359981796376*^9, 3.79936134029207*^9, 3.799361482181985*^9,
+ 3.799361718031057*^9, 3.7997586452483997`*^9},
+ CellLabel->"Out[85]=",ExpressionUUID->"54bc905b-bc81-479e-9ae8-4e4e59ec8fae"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Export", "[",
+ RowBox[{
+ "\"\<~/doc/research/thesis/data/essential/3d_scaling_m.dat\>\"", ",",
+ "i2"}], "]"}]], "Input",
+ CellChangeTimes->{{3.799356430639045*^9, 3.799356444318798*^9}, {
+ 3.799356474377462*^9, 3.799356483440167*^9}, {3.7993571344602833`*^9,
+ 3.799357138451614*^9}, {3.799361736733829*^9, 3.799361736853738*^9}},
+ CellLabel->"In[86]:=",ExpressionUUID->"a458f12d-42ed-4fd1-ac57-6f52be1ea926"],
+
+Cell[BoxData["\<\"~/doc/research/thesis/data/essential/3d_scaling_m.dat\"\>"],\
+ "Output",
+ CellChangeTimes->{3.799361740561384*^9, 3.799758645338695*^9},
+ CellLabel->"Out[86]=",ExpressionUUID->"afbc30d4-2d84-487f-9d95-0f522bdf72a4"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"\[Theta]cf", "[",
+ RowBox[{"xc", "/.", "sol1"}], "]"}]], "Input",
+ CellLabel->"In[90]:=",ExpressionUUID->"3c0265d1-fe83-47b4-b664-bf078a578205"],
+
+Cell[BoxData["1.22238577251601146753051986174900112705`21.278168878232684"], \
+"Output",
+ CellChangeTimes->{3.7997604153009453`*^9},
+ CellLabel->"Out[90]=",ExpressionUUID->"855c44ae-db8a-464e-be4f-c45718cdb430"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["sol1"], "Input",
+ CellChangeTimes->{{3.7997604176590643`*^9, 3.799760417954047*^9}},
+ CellLabel->"In[91]:=",ExpressionUUID->"b8792676-8b87-4225-8913-6ea61774dc0a"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"A", "\[Rule]", "1.86073786840819188626028335420414805412`20."}],
+ ",",
+ RowBox[{
+ RowBox[{"b", "[", "0", "]"}], "\[Rule]",
+ "2.24136894091957250552127334231045097113`20."}], ",",
+ RowBox[{"h0", "\[Rule]", "1.1843036897731937795441581329214386642`20."}],
+ ",",
+ RowBox[{"xc", "\[Rule]", "0.34767796160743552613681117691157851368`20."}],
+ ",",
+ RowBox[{"\[Lambda]", "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "0", "]"}], "\[Rule]", "1.`20."}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "1", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "2", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "3", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "4", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "5", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "6", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "7", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "8", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "9", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "10", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "11", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "12", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "13", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "14", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"b", "[", "1", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"b", "[", "2", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"b", "[", "3", "]"}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"b", "[", "4", "]"}], "\[Rule]", "0"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.799760418178685*^9},
+ CellLabel->"Out[91]=",ExpressionUUID->"63b59f3b-0dc9-43c1-9163-6628aa4b44a3"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"SetPrecision", "[",
+ RowBox[{
+ RowBox[{"yy1", "[",
+ RowBox[{"[", "8", "]"}], "]"}], ",", "50"}], "]"}], "/.",
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"\[Theta]c", "\[Rule]",
+ RowBox[{"\[Theta]cf", "[",
+ RowBox[{"xc", "/.", "sol1"}], "]"}]}], "}"}], ",",
+ RowBox[{"sol1", "[",
+ RowBox[{"[",
+ RowBox[{";;", "6"}], "]"}], "]"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.799763446459498*^9, 3.799763547900633*^9}, {
+ 3.7997640342221403`*^9, 3.7997640606132917`*^9}},
+ CellLabel->
+ "In[125]:=",ExpressionUUID->"da0b5e12-79b9-4500-a893-0ec36ebf0c73"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"-", "4.3049031837965975672`9.629295643060336"}], "+",
+ RowBox[{"0``9.047355987569839", " ", "\[ImaginaryI]"}]}]], "Output",
+ CellChangeTimes->{{3.7997635229824677`*^9, 3.7997635486352997`*^9}, {
+ 3.799764038280257*^9, 3.799764062009346*^9}},
+ CellLabel->
+ "Out[125]=",ExpressionUUID->"811eb66f-41cc-454e-bb34-6b97056bc05c"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"yy2", "=",
+ RowBox[{
+ RowBox[{"SetPrecision", "[",
+ RowBox[{"yy1", ",", "50"}], "]"}], "/.",
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"\[Theta]c", "\[Rule]",
+ RowBox[{"\[Theta]cf", "[",
+ RowBox[{"xc", "/.", "sol1"}], "]"}]}], "}"}], ",", "sol1"}],
+ "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.714757114551498*^9, 3.714757118639502*^9}, {
+ 3.714806862165043*^9, 3.714806862268298*^9}, {3.714807726915642*^9,
+ 3.7148077351230183`*^9}, {3.714808950711543*^9, 3.714808968350219*^9}, {
+ 3.7148092086525373`*^9, 3.714809223996085*^9}, {3.7148626846920967`*^9,
+ 3.71486268497886*^9}, {3.715469291205818*^9, 3.715469292773713*^9},
+ 3.715719995726717*^9, {3.715720628495644*^9, 3.715720631260846*^9}, {
+ 3.715767612966428*^9, 3.715767640845504*^9}, {3.799764065590818*^9,
+ 3.799764068861459*^9}},
+ CellLabel->
+ "In[126]:=",ExpressionUUID->"50dc2600-956f-4e1b-ad5e-cdf7c3090763"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"0.99050620662695357351065876103577370556`19.804517632709747", "+",
+ RowBox[{"0``20.814634428871237", " ", "\[ImaginaryI]"}]}], ",",
+ RowBox[{
+ RowBox[{
+ "-", "0.88308705172906516551285101136130867412`19.40409857380777"}], "+",
+
+ RowBox[{
+ "1.417599968393970663`0.9329296032127206*^-20", " ", "\[ImaginaryI]"}]}],
+ ",",
+ RowBox[{
+ "0.97576595418054362110829499325598947695`18.92861508507407", "-",
+ RowBox[{
+ "2.173674001422271091`1.0296973507568639*^-20", " ", "\[ImaginaryI]"}]}],
+ ",",
+ RowBox[{
+ RowBox[{
+ "-", "1.17984002007372078158116077187897110795`18.41068113419083"}], "+",
+
+ RowBox[{
+ "2.859355843260911038`1.025747162664125*^-20", " ", "\[ImaginaryI]"}]}],
+ ",",
+ RowBox[{"1.51517353992620295181799782337497546796`17.880710135197525", "-",
+ RowBox[{
+ "3.621576394039453812`0.9830051909140137*^-20", " ", "\[ImaginaryI]"}]}],
+ ",",
+ RowBox[{
+ RowBox[{
+ "-", "2.04662504954800449443550001243114506146`10.799016514174468"}], "+",
+ RowBox[{"0``10.546539778129842", " ", "\[ImaginaryI]"}]}], ",",
+ RowBox[{"2.8992662280113293878`10.081237021966365", "+",
+ RowBox[{"0``9.673421474961671", " ", "\[ImaginaryI]"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "4.3049031837965975672`9.629295643060336"}], "+",
+ RowBox[{"0``9.047355987569839", " ", "\[ImaginaryI]"}]}], ",",
+ RowBox[{"6.6970975848269602347`9.319610188923253", "+",
+ RowBox[{"0``8.544104254640718", " ", "\[ImaginaryI]"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "10.9007138230106729646`9.104034114383639"}], "+",
+ RowBox[{"0``8.115773523252994", " ", "\[ImaginaryI]"}]}], ",",
+ RowBox[{"18.5128527018510702191`8.957220013889764", "+",
+ RowBox[{"0``7.73803938958006", " ", "\[ImaginaryI]"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "32.6773259323022897241`8.863378117269205"}], "+",
+ RowBox[{"0``7.396712922284604", " ", "\[ImaginaryI]"}]}], ",",
+ RowBox[{"59.6781781560664408344`8.81158058517497", "+",
+ RowBox[{"0``7.082769210046291", " ", "\[ImaginaryI]"}]}], ",",
+ RowBox[{
+ RowBox[{"-", "112.2572055570777512225`8.793798164163244"}], "+",
+ RowBox[{"0``6.790110875391983", " ", "\[ImaginaryI]"}]}]}],
+ "}"}]], "Output",
+ CellChangeTimes->{
+ 3.71477901399013*^9, 3.71480673059066*^9, 3.714806862701418*^9,
+ 3.714807677595922*^9, {3.714807727445833*^9, 3.7148077355298643`*^9}, {
+ 3.714808951442019*^9, 3.7148089686904917`*^9}, {3.714809209175044*^9,
+ 3.7148092244041224`*^9}, 3.714830983386425*^9, 3.714836848165016*^9,
+ 3.7148626556760397`*^9, {3.714862688599277*^9, 3.714862707425961*^9},
+ 3.714862747017076*^9, 3.714863068275054*^9, 3.714863184422464*^9,
+ 3.7148658196662607`*^9, 3.714865878928565*^9, 3.714865943943626*^9,
+ 3.7148661057452383`*^9, {3.714906910760145*^9, 3.71490697150111*^9},
+ 3.714907113842649*^9, 3.714992838269166*^9, 3.714992878655348*^9,
+ 3.714998538346133*^9, 3.715007359750689*^9, 3.715008759458663*^9,
+ 3.715093164971981*^9, 3.715097522443336*^9, 3.715097690853794*^9,
+ 3.715355287520076*^9, 3.71536910442132*^9, 3.71536927810951*^9,
+ 3.715369690169937*^9, 3.7153698422711906`*^9, {3.715379999283853*^9,
+ 3.715380028326559*^9}, 3.715380144814118*^9, 3.715380775202957*^9,
+ 3.715380915388361*^9, 3.7153810563544283`*^9, 3.715382085307644*^9,
+ 3.7153822107814913`*^9, 3.715382676781605*^9, 3.7153832179425507`*^9,
+ 3.715410739607786*^9, 3.7154671891529922`*^9, {3.715469283692979*^9,
+ 3.715469298607283*^9}, 3.715471042046177*^9, 3.71547212276337*^9,
+ 3.715472285959066*^9, 3.715712736912558*^9, 3.715718889566806*^9,
+ 3.715719293915031*^9, 3.7157199969077797`*^9, 3.715720141667803*^9,
+ 3.715720374195362*^9, 3.715720633227068*^9, 3.715720751057508*^9,
+ 3.7157667577243357`*^9, 3.715767611760889*^9, 3.715767724036398*^9,
+ 3.799284690216956*^9, 3.799285612209935*^9, 3.799285854877514*^9,
+ 3.7993239720707808`*^9, 3.799324629136137*^9, 3.7993250177474537`*^9,
+ 3.799325543078876*^9, 3.799339630682643*^9, 3.799353496491765*^9,
+ 3.799361764107688*^9, 3.799362050004332*^9, 3.799363669218196*^9,
+ 3.799759111804521*^9, 3.799761595634602*^9, 3.799764439807755*^9},
+ CellLabel->
+ "Out[126]=",ExpressionUUID->"9314e2f1-1173-4417-828c-19d51110cad2"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["Gls"], "Input",
+ CellChangeTimes->{{3.799324306087994*^9, 3.799324314241115*^9}, {
+ 3.799339636481372*^9, 3.799339636839764*^9}},
+ CellLabel->
+ "In[919]:=",ExpressionUUID->"7a601c17-c92d-412e-b9f1-c761f9ad546c"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "1.6919045`"}], ",",
+ RowBox[{"-", "0.495255`"}], ",", "0.14718111649754292`", ",",
+ "0.15770721484909936`"}], "}"}]], "Output",
+ CellChangeTimes->{
+ 3.799324314389289*^9, 3.79932462922313*^9, 3.799325017830668*^9,
+ 3.799325543139814*^9, {3.799339631591257*^9, 3.799339637071517*^9},
+ 3.7993534965747766`*^9},
+ CellLabel->
+ "Out[919]=",ExpressionUUID->"7299edfb-b88c-441f-8b19-3f03c3c52197"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListLogPlot", "[",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]series", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "2"}],
+ RowBox[{
+ RowBox[{"Gl", "[", "2", "]"}], "/",
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]series", "[",
+ RowBox[{"1", ",", "B"}], "]"}], "[", "0", "]"}]}]}], ",", "B"}],
+ "]"}], "[", "#", "]"}], "&"}], "/@",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[", "13", "]"}], "-", "1"}], ")"}]}], "]"}], ",",
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"#",
+ RowBox[{"(",
+ RowBox[{"#", "+", "1"}], ")"}]}], "&"}], "/@",
+ RowBox[{"Range", "[", "3", "]"}]}], ")"}]}],
+ RowBox[{"Gls", "[",
+ RowBox[{"[",
+ RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",",
+ RowBox[{"Abs", "[", "yy2", "]"}]}], "}"}], "]"}]], "Input",
+ CellChangeTimes->{{3.714397130193721*^9, 3.714397156754507*^9}, {
+ 3.714401420222559*^9, 3.714401435542419*^9}, {3.7147400059859953`*^9,
+ 3.714740013317212*^9}, {3.714779019835246*^9, 3.7147790236354313`*^9}, {
+ 3.7148070307042303`*^9, 3.714807066415826*^9}, {3.714998804197263*^9,
+ 3.7149988426914997`*^9}, {3.715100156017366*^9, 3.715100163607444*^9}, {
+ 3.715767758199541*^9, 3.715767758663892*^9}, {3.799324897485523*^9,
+ 3.799324922395719*^9}, {3.7993396426811523`*^9, 3.7993397025929747`*^9}, {
+ 3.79933982894858*^9, 3.7993398428912354`*^9}, 3.7993420767537603`*^9, {
+ 3.79934215221154*^9, 3.79934215989809*^9}, {3.799353515196189*^9,
+ 3.799353517203179*^9}, {3.799354262614167*^9, 3.799354274520774*^9}, {
+ 3.799354304737102*^9, 3.799354305950704*^9}},
+ CellLabel->
+ "In[128]:=",ExpressionUUID->"606b7912-51fc-46b1-82e3-66eb8d83d1a1"],
+
+Cell[BoxData[
+ GraphicsBox[{{}, {{
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+ 0.012833333333333334`], AbsoluteThickness[1.6],
+ PointBox[{{1., -0.009535316983338928}, {2., -0.4893671575040618}, {
+ 3., -0.8547814000471151}, {4., -1.1269738757895933`}, {
+ 5., -1.3205378614059868`}, {6., -1.44612686295659}, {
+ 7., -1.5118574770630988`}, {8., -1.5241177933066987`}, {
+ 9., -1.4880657131032655`}, {10., -1.40795270921585}, {
+ 11., -1.2873432409843542`}, {12., -1.1292686956272266`}, {
+ 13., -0.9363385658161061}}]},
+ {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+ 0.012833333333333334`], AbsoluteThickness[1.6],
+ PointBox[{{1., -0.009535316983338817}, {2., -0.1243318963519187}, {3.,
+ 0.6378916141982106}}]},
+ {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+ 0.012833333333333334`], AbsoluteThickness[1.6],
+ PointBox[{{1., -0.00953914670773357}, {2., -0.12433149690785769`}, {
+ 3., -0.02453252237043745}, {4., 0.16537885307757716`}, {5.,
+ 0.415529980207308}, {6., 0.7161921191871347}, {7.,
+ 1.0644576801525674`}, {8., 1.4597546483809531`}, {9.,
+ 1.9016742362458154`}, {10., 2.388828275440433}, {11.,
+ 2.918465231504316}, {12., 3.4866814408269438`}, {13.,
+ 4.088966428553989}, {14., 4.720792716607378}}]}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+ 0.012833333333333334`], AbsoluteThickness[1.6]},
+ {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+ 0.012833333333333334`], AbsoluteThickness[1.6]},
+ {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+ 0.012833333333333334`], AbsoluteThickness[
+ 1.6]}, {}, {}, {}, {}, {}, {}, {}}, {
+ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+ 0.012833333333333334`], AbsoluteThickness[1.6]},
+ {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+ 0.012833333333333334`], AbsoluteThickness[1.6]},
+ {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+ 0.012833333333333334`], AbsoluteThickness[
+ 1.6]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}},
+ AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+ Axes->{True, True},
+ AxesLabel->{None, None},
+ AxesOrigin->{0., -2.012817480761146},
+ DisplayFunction->Identity,
+ Frame->{{False, False}, {False, False}},
+ FrameLabel->{{None, None}, {None, None}},
+ FrameTicks->{{
+ Charting`ScaledTicks[{Log, Exp}],
+ Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}},
+ GridLines->{None, None},
+ GridLinesStyle->Directive[
+ GrayLevel[0.5, 0.4]],
+ Method->{
+ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
+ "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+ Identity[
+ Part[#, 1]],
+ Exp[
+ Part[#, 2]]}& )}},
+ PlotRange->{{0., 14.}, {-2.012817480761146, 4.720792716607378}},
+ PlotRangeClipping->True,
+ PlotRangePadding->{{
+ Scaled[0.02],
+ Scaled[0.02]}, {
+ Scaled[0.02],
+ Scaled[0.05]}},
+ Ticks->FrontEndValueCache[{Automatic,
+ Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-0.6931471805599453,
+ FormBox[
+ TagBox[
+ InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], NumberForm[#, {
+ DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {0.,
+ FormBox["1", TraditionalForm], {0.01, 0.}}, {1.6094379124341003`,
+ FormBox["5", TraditionalForm], {0.01, 0.}}, {2.302585092994046,
+ FormBox["10", TraditionalForm], {0.01, 0.}}, {3.912023005428146,
+ FormBox["50", TraditionalForm], {0.01, 0.}}, {4.605170185988092,
+ FormBox["100", TraditionalForm], {0.01, 0.}}, {-2.995732273553991,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.8134107167600364`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.659260036932778,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.5257286443082556`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.4079456086518722`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-2.3025850929940455`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.6094379124341003`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-1.2039728043259361`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.916290731874155,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.5108256237659907,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.35667494393873245`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.2231435513142097,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}, {-0.10536051565782628`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 0.6931471805599453,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.0986122886681098`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.3862943611198906`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.791759469228055,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 1.9459101490553132`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.0794415416798357`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.1972245773362196`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 2.995732273553991,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.4011973816621555`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 3.6888794541139363`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.0943445622221,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.248495242049359,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.382026634673881,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 4.499809670330265,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 5.298317366548036,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 5.703782474656201,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 5.991464547107982,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.214608098422191,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.396929655216146,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.551080335043404,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.684611727667927,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.802394763324311,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 6.907755278982137,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 7.003065458786462,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 7.090076835776092,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 7.170119543449628,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 7.24422751560335,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 7.313220387090301,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
+ 7.3777589082278725`,
+ FormBox[
+ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
+ 0.}}}}]]], "Output",
+ CellChangeTimes->{
+ 3.714740013729273*^9, {3.714779016092326*^9, 3.714779023940958*^9},
+ 3.714806732903997*^9, 3.7148068647733803`*^9, 3.714807066951405*^9,
+ 3.714807678966655*^9, {3.7148077287353783`*^9, 3.7148077379434757`*^9}, {
+ 3.7148089588534193`*^9, 3.714808970053562*^9}, {3.7148092108135777`*^9,
+ 3.714809225878975*^9}, 3.714830983950481*^9, 3.714836849826356*^9,
+ 3.714862656238078*^9, {3.7148626890323343`*^9, 3.7148627076539173`*^9},
+ 3.714862747461363*^9, 3.714863068753543*^9, 3.7148631864026203`*^9,
+ 3.7148658203011723`*^9, 3.7148658793114023`*^9, 3.714865944416368*^9,
+ 3.714866106227007*^9, {3.7149069109587317`*^9, 3.714906972088879*^9},
+ 3.714907114225905*^9, 3.7149928386570377`*^9, 3.714992879204486*^9,
+ 3.714998539296205*^9, {3.7149988266810226`*^9, 3.7149988432292337`*^9},
+ 3.715007360796103*^9, 3.715008759949441*^9, 3.715093165741823*^9,
+ 3.7150975226844873`*^9, 3.7150976912669907`*^9, {3.715100156967689*^9,
+ 3.715100163993832*^9}, 3.715355287563285*^9, 3.715369104614422*^9,
+ 3.7153692783042192`*^9, 3.715369690354393*^9, 3.71536984242426*^9, {
+ 3.715379999331674*^9, 3.7153800283667793`*^9}, 3.7153801448564777`*^9,
+ 3.715380775250495*^9, 3.715380915430154*^9, 3.715381056395095*^9,
+ 3.7153820853508587`*^9, 3.7153822108214817`*^9, 3.715382676823763*^9,
+ 3.715383217984967*^9, 3.715410739660235*^9, 3.715467189199884*^9, {
+ 3.715469284220578*^9, 3.715469298661447*^9}, 3.7154710421039343`*^9,
+ 3.715472122809923*^9, 3.715472286006555*^9, 3.71571273706364*^9,
+ 3.71571888961236*^9, 3.715719293964395*^9, 3.715719998969393*^9,
+ 3.715720142857798*^9, 3.715720374255104*^9, 3.715720634358427*^9,
+ 3.715720751106544*^9, 3.715766757771916*^9, {3.7157677489290037`*^9,
+ 3.715767759114511*^9}, 3.799284690365823*^9, 3.7992858549974747`*^9,
+ 3.799323972214488*^9, 3.799324629571525*^9, {3.7993248982619667`*^9,
+ 3.799324922830556*^9}, 3.799325018045065*^9, 3.79932554326967*^9, {
+ 3.7993396446781597`*^9, 3.7993397029758263`*^9}, 3.799339843136347*^9, {
+ 3.7993420667738113`*^9, 3.799342077430211*^9}, {3.799342152770303*^9,
+ 3.799342161118189*^9}, 3.799353496661952*^9, {3.799354270608079*^9,
+ 3.7993542750308523`*^9}, 3.799354306157835*^9, 3.7993617693667994`*^9,
+ 3.799362052451503*^9, 3.799363669339308*^9, 3.799759111897946*^9,
+ 3.79976159569825*^9, {3.799764439854373*^9, 3.799764469210732*^9}},
+ CellLabel->"Out[128]=",ImageCache->GraphicsData["CompressedBitmap", "\<\
+eJztW3lsFccZX/z8DMUthATSVpUCaklSStKoldq/W0iJVClVqv6TJlIlGmFs
+rhhjToO4sV1A3IfE5Qb+qMFGKmAIwpzlkkDlmSMUI4QNNjanhSmYezq/b2fm
+7dud3Z3n9+watSu9fbNzfPd8+803sx8PL8wdMXZ4Yd4Xwwd8VDA8PzfviwkD
+hn1ZwKsi3SyrW65lWfUDLJQZL4obXXm4iYeQ8hD6i7Da2lqWk5PDJk2aZGXQ
+PcJOnz7NxGX9RPSrq6tjxcXFjrooe/DgAVuyZAmbPn06tTU0NKi2CxcusFmz
+Zqm2xsZG611qywYWlp+fz8aOHUvl69evE7J79+6x0tJSqlu+fDlra2uzBtKY
+Hmzt2rWssLCQ5ebmUvvhw4dpzMiRI9mECRMk6Vu3blWk/1CQohlqZQq2QMLT
+p0/pKSNRMi9evGBr1qxhu3btsj4IkEJ5eTnbv38/4YzFYmzBggWqDWgvXbpE
+bSdOnGCLFi2yfixgHTt2jG3ZssWBOsrKyspYdXU19a+oqGA7duyw3hb979y5
+w2bMmOHoH2H79u1jy5YtY8+fPxfSTewX9WdzqGh69uwZyGJHjhyxBlNdFtuz
+Zw9JaurUqWzixIls1KhRUIjkCtU3btwgKgF1zJgx1iAxFOBGjx4tlcBaW1sB
+Iojp8ePHs4cPH1J3gJ0zZ46W6Yi4b9++nW3YsIG9fPnSekegdfSj6/Lly7ZZ
+cFr5EFjJlClTyKIE/x8KaI8ePWJz585lNTU1Sm2YFOvXrydIQuWiLQtYWV5e
+HsxCqZUbrRy6ceNGdvbsWWo6ePAgjE9oPMvJvJId14xUJieOFRQU0NNADf/S
+Zjdt2sQqKyvpyZZTTw//kCcMVShdGoAtQus3AtKtW7fY5MmTIQPBXyaZIExW
+8O1km+sZFknzGvO+ublZso3eMHZAmzZtGtRuyvbjx4+N2IZlzZ49G6oNmBNR
+Qrdz504n28J0rGFi2NKlS9n58+fpaZBAAme2cOFCduXKFfA9WHQFRjCHp/cE
+Bj7DaaZLHW/evDlwVpsauJytu3fvVgrWSSQiSMbMv337tku5Q4TYW1paSJHQ
+HJiDariHlozx+c7WrVtHtj1YoD906BA5XmgI7o87ZDUnwPTFixeJiePHj7MV
+K1aI2ZdJlosZB6fMmY+IIW5vxrWi+AFl9fX14MmS/U+dOkVa5t6MrVy5kh04
+cEDbP1OghSzh3HX8R4l/WCkcGUySUyI0GCGZ4E3jZB51oFKaMV4TknkYxbx5
+88jyIQj+xlLMw8PBgWJ2OJgHeqCAs4RMuZkrZuAkuHdKYB7CAlq4KZS5ILT9
+pZHAC+LF7TDvN0UTqsVlv/M/6Zz23nYdb/4Utwz/UT00dd9Koa6rw3sVae5K
+Msii+/9N6RWluSvJIMCU3utCda8+mXTvpDdPp7RnoPkru9TS2tZPlVb5Aymj
+eybbWv0v9qfZVfTj5Tf01XGQM/xBlqpOfUUrL0ooPObE3a6TI3ob9uujp2q6
+Py0lQeylj7DXkmGARJPjT3NxatLwUZ0py6/ph49Ind7XFfP9EktebK8bgvyz
+P1UFCkdfPY4PVQdT0QRgG6/H0Vfh+FzfIS6J3/kDzzek78swsX6cOo75hv1+
+m7SsSlKH/JkSwJuq9Jcwwf/SAY886Gf6ES7H6u3wC3/CPjXkrcqw38+7BKo/
+6uWwN2nxxPW2T6sW3YvvA9Wzf0jPn+rpect/2FAFu8lQSj9wACMjGqpHeqMd
+8FzE/doQREPSbJtCbjQR/RA9emrsaQ+TaRKkTpCGR3ahoqLCXpbbGfWTJ0/S
+iG3btlGiF7kS5DKampoyNUjjiqPnbBuPnX3oTQmUoqIidu3aNcoelZSUqOQ3
+Eih3796lcnNzM/XFhYwR72fpsNH9EyeOLCSwkD6TfSj9Vl5e3l0MF6lF8WQG
+8ty5c0hmKZDI7HHZ2BRFKb3z5MkTonjv3r2Uwqe2OGQXQGQWnQBramqcAMEy
+kjlIDK1atQqZvaTYR7JaXkjYcfblcIBGgtbubAYSfME6nFqrra01BUnZs7hJ
+/MgGLk0PiXRkLcFrZWVl1CGCcePGkbnhx7WoFYHMSeuM3N7dcbgEuVMVNr3o
+3t8x2oV0UJrgmBJvJFDzBQrV/j6JUWmBKqi+f++bMKqlWKoPfM6W/P1n9EM5
+RCxSK8AghnGt4B5RWJlLK73oT78BGFGsiVCl8XrsDUMcItL+d9stehZuUC5m
+dHsXTk7UAmL7H5QAeFlWu+Qio+uj3yxX1Sjj6pkcYhn1c0497KFO9uujdCkX
+mODUPUJyr4TePYQaIsaUhnfTidlMAYPTJ2mxLuEMva9MpZ8qPbCB9RIDnTsb
+UQ0wGQa66GpNhKLbItDFrWECbbHBBoW+KYAI5iUgdo2LrSNSPQUKyWX/TnJd
+5aK91n+EXPSFCexih4JInm4jcYhY8PnDm/Sc7d9Thqotpxay+vUD6Ycyrp7+
+w2S4DAxiGGcd94jCylwuIBU4v1JcH3UAS1htuDiQjLkk+w8ToclTJmGKPeQP
+rDh1EDJ/Z85BqVZKaZ6Pqbb/VRFZ4d9JpmZdvG/zH7HJUOB/c4Ag+ylrx8CU
+qTUSQkdrItX2rxUTziQ7CfVrvURW+gPbbaiGZWkD8R36i9KSFwGDPFRVVVWl
+DRz2BPJkQ8uisyT379+nIVie4lQCX3TqFrwe+fURnXC+BMtZPGVoBjoVI+No
+hD24ZPjDIxc7jvYshXsJPhB1Y3E5c+ZMLPLClrkymMEw2a4LZtIzxiZPrkGL
+iorCyDNfLtUosQds5JwRVLiUHbDd8k9RF2Z9U9MLgliKJU1tzEQI7ZMv1Xbo
+ItcOKLJ9z53qzqqG2Y/cotadWtOd/EwFnu7MmRk872HKgHOK8enfZIuRazsn
+KWjO4386D2andD12NyJ9ImgUdWFTQuxPyVyj7gSb7sRbGlHqzo3pzpnpUAbL
+UTdJPBrtigHCK9FOQgzYgaRcuFc3AfuJL0RdmAEF7OalAYQB3XHH2s1EEp2i
+jv+l9rj8v28/cvmH7f19l4oetQbsMNJdNoQZVMCWZ1rhtJON7xnL6b8ftgS0
+25s1+qWHfEO2J4ix4X7bbxFCz5pgJgysnQjq4VyX6F7gYWDsN2V33VJFBh5W
+cByjg+ZaxlAXN7SwOMYLN3HNIt/nSQVuYpee22r/cMimwQnd5a6+a/K85UTj
+WUBJuzKNSej+vmgIm+6eMwAOOpMbnTy/Ycck4grows6i012QveNEH9E5l1BH
+j1LqUOd9qB670Ih0UY/PbxoaGjK19Mupd/PmTXI/eLLrsnUuiMr4dGX16tW0
+7Y3vtNR2fgAf/nh66KarYvrMmTNyKPgX3ULTLXZ7lhMdXQkLp6jTfdE3KXV1
+dQo0zgg0NjbG0XlcmyESh1ej78mcSObPn5+IRMfTR7bm+ATpnpowY7FYUsIc
+RkXPhLZfX+KEAr0Wrl69CkJsL+k1HPkpGb7zAx24cGRk8eLF/oYjP7AL80qR
+BGrwUSOE7aBG40mpK+YIKEU9pITPa9NFje+0Dhap7zCPCXSJwLgD26ksvrO2
+uv0HAxcLOQ==\
+\>", "ImageResolution" -> \
+72.],ExpressionUUID->"fbfb5a63-410e-409b-87be-3b95b82332ee"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Export", "[", "\[IndentingNewLine]",
+ RowBox[{
+ "\"\<~/doc/research/thesis/data/essential/3d_coefficients_1.dat\>\"",
+ "\[IndentingNewLine]", ",",
+ RowBox[{"Thread", "[",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"#",
+ RowBox[{"(",
+ RowBox[{"#", "+", "1"}], ")"}]}], "&"}], "/@",
+ RowBox[{"Range", "[", "13", "]"}]}], ")"}]}],
+ RowBox[{"PadRight", "[",
+ RowBox[{
+ RowBox[{"Gls", "[",
+ RowBox[{"[",
+ RowBox[{"2", ";;"}], "]"}], "]"}], ",", "13"}], "]"}]}], "]"}],
+ ",",
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]series", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "2"}],
+ RowBox[{
+ RowBox[{"Gl", "[", "2", "]"}], "/",
+ RowBox[{
+ RowBox[{"\[ScriptCapitalY]series", "[",
+ RowBox[{"1", ",", "B"}], "]"}], "[", "0", "]"}]}]}], ",",
+ "B"}], "]"}], "[", "#", "]"}], "&"}], "/@",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Range", "[", "13", "]"}], "-", "1"}], ")"}]}], "]"}], ",",
+
+ RowBox[{
+ RowBox[{"Abs", "[", "yy2", "]"}], "[",
+ RowBox[{"[",
+ RowBox[{";;", "13"}], "]"}], "]"}]}], "}"}], "]"}]}],
+ "\[IndentingNewLine]", "]"}]], "Input",
+ CellChangeTimes->{{3.799357171042617*^9, 3.799357201637072*^9}, {
+ 3.799357258824184*^9, 3.799357267872611*^9}, {3.799357385498197*^9,
+ 3.7993573894967327`*^9}, {3.799363736895035*^9, 3.799363760679574*^9}, {
+ 3.799759239934532*^9, 3.7997592534075413`*^9}},
+ CellLabel->
+ "In[129]:=",ExpressionUUID->"0be23be9-4dec-467d-a73f-4b775dd902fc"],
+
+Cell[BoxData["\<\"~/doc/research/thesis/data/essential/3d_coefficients_1.dat\"\
+\>"], "Output",
+ CellChangeTimes->{3.799363768560903*^9, 3.79975925376305*^9,
+ 3.7997644700449257`*^9},
+ CellLabel->
+ "Out[129]=",ExpressionUUID->"dbc83497-e48d-46f0-a544-2e458fdc94f3"]
+}, Open ]]
+},
+WindowSize->{1916, 1056},
+WindowMargins->{{2, Automatic}, {2, Automatic}},
+FrontEndVersion->"12.1 for Linux x86 (64-bit) (March 14, 2020)",
+StyleDefinitions->"Default.nb",
+ExpressionUUID->"3bbd257e-a2c2-4e58-8248-e69fe89ad897"
+]
+(* End of Notebook Content *)
+
+(* Internal cache information *)
+(*CellTagsOutline
+CellTagsIndex->{}
+*)
+(*CellTagsIndex
+CellTagsIndex->{}
+*)
+(*NotebookFileOutline
+Notebook[{
+Cell[558, 20, 2846, 62, 280, "Input",ExpressionUUID->"59b0d6d5-f932-48ad-b7c5-92faf52d8f31"],
+Cell[CellGroupData[{
+Cell[3429, 86, 320, 6, 30, "Input",ExpressionUUID->"ab96e425-8378-4a9e-9559-f660294d52e5"],
+Cell[3752, 94, 312, 4, 34, "Output",ExpressionUUID->"af372458-f182-4c85-9f95-2f3841b3cb17"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[4101, 103, 305, 5, 30, "Input",ExpressionUUID->"73cba23a-002d-479d-b60d-5c9a30ec8957"],
+Cell[4409, 110, 317, 4, 34, "Output",ExpressionUUID->"a9c41347-197a-4328-8b2f-473c7d296a16"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[4763, 119, 270, 5, 32, "Input",ExpressionUUID->"4f550e51-f686-4c74-b7c7-60fd0aeb49f6"],
+Cell[5036, 126, 287, 4, 34, "Output",ExpressionUUID->"7e3ed6d9-eac9-4e37-ac23-850e314e158a"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[5360, 135, 193, 2, 30, "Input",ExpressionUUID->"88fbe140-d167-4f1e-907c-8d3b0cdde179"],
+Cell[5556, 139, 236, 3, 34, "Output",ExpressionUUID->"5650dbe4-5015-4653-809e-4e219d50cd86"]
+}, Open ]],
+Cell[5807, 145, 3815, 80, 449, "Input",ExpressionUUID->"2d167be2-574f-49ef-862f-5770b5357339"],
+Cell[9625, 227, 2349, 63, 96, "Input",ExpressionUUID->"20da4923-a53a-490e-bc5f-36bcba68e245"],
+Cell[11977, 292, 2861, 72, 101, "Input",ExpressionUUID->"1f73d2d8-b20d-4c2c-823a-fa4c0f5117da"],
+Cell[CellGroupData[{
+Cell[14863, 368, 176, 2, 30, "Input",ExpressionUUID->"8b406003-2d90-43d4-8e18-b505f40fff22"],
+Cell[15042, 372, 560, 11, 34, "Output",ExpressionUUID->"3b80f79f-8413-4aed-b0d7-0eba1da958cc"]
+}, Open ]],
+Cell[15617, 386, 1975, 50, 119, "Input",ExpressionUUID->"350a4d8b-bb31-4399-9d70-aac4c388ec17"],
+Cell[17595, 438, 486, 14, 33, "Input",ExpressionUUID->"fcfb10c1-3f9c-44a8-bf68-ec0a677ae045"],
+Cell[18084, 454, 4143, 115, 80, "Input",ExpressionUUID->"dec3dfec-fc66-4d85-b94e-5960af03c15a"],
+Cell[22230, 571, 227, 3, 30, "Input",ExpressionUUID->"7c3fa0b1-7769-4bc4-b087-6f591064d84d"],
+Cell[22460, 576, 810, 22, 33, "Input",ExpressionUUID->"fe45d206-4ada-477e-940c-6690c254c5a2"],
+Cell[23273, 600, 420, 8, 30, "Input",ExpressionUUID->"fd8e57a3-697a-49b8-a4de-640b45e20bc4"],
+Cell[23696, 610, 1526, 41, 33, "Input",ExpressionUUID->"9a9678e6-3f21-4ec0-8819-1d9d6b2376cc"],
+Cell[CellGroupData[{
+Cell[25247, 655, 1420, 32, 75, "Input",ExpressionUUID->"6d35af15-cd9a-4061-a3d7-eee9182a1866"],
+Cell[26670, 689, 22999, 491, 325, "Output",ExpressionUUID->"4e02975f-1e2b-4ecf-9a5e-f04590940c37"]
+}, Open ]],
+Cell[49684, 1183, 4006, 94, 95, "Input",ExpressionUUID->"7feed7fd-3a21-49ba-b309-13ed123f34e0"],
+Cell[53693, 1279, 1988, 49, 79, "Input",ExpressionUUID->"d645d942-7a63-48b1-b8cf-35860cb66022"],
+Cell[55684, 1330, 1305, 36, 57, "Input",ExpressionUUID->"7317b43e-9f82-42e0-b48c-590814de53ad"],
+Cell[56992, 1368, 3051, 86, 163, "Input",ExpressionUUID->"be940035-ea15-46da-b5dc-c3fe4acf3416"],
+Cell[60046, 1456, 2980, 72, 100, "Input",ExpressionUUID->"64caadac-20e3-498f-8564-b1569b5c21cc"],
+Cell[63029, 1530, 2896, 69, 100, "Input",ExpressionUUID->"797dfe69-231b-4092-acad-c86ad74b864a"],
+Cell[65928, 1601, 3921, 105, 229, "Input",ExpressionUUID->"20e8ef60-1553-498f-a1bf-0a8c9e997006"],
+Cell[69852, 1708, 593, 11, 30, "Input",ExpressionUUID->"43352f46-5b8a-4529-aa46-36f7ef839e64"],
+Cell[70448, 1721, 1359, 40, 75, "Input",ExpressionUUID->"8703bff1-c4d8-44c8-a81e-e91d05b839fa"],
+Cell[71810, 1763, 1048, 27, 30, "Input",ExpressionUUID->"111f0497-d896-44fd-b69f-fe8d1e538181"],
+Cell[72861, 1792, 2557, 47, 33, "Input",ExpressionUUID->"848172c9-9dbd-49c1-961b-527564a6a5c6"],
+Cell[75421, 1841, 1060, 28, 33, "Input",ExpressionUUID->"759d587a-b40e-4347-9ab1-055ff4468616"],
+Cell[76484, 1871, 1355, 39, 53, "Input",ExpressionUUID->"f1feefae-d56e-4fb8-926a-d3cb8a1dea83"],
+Cell[77842, 1912, 1397, 38, 53, "Input",ExpressionUUID->"cd17946b-f377-476a-9e76-bdf8ba661a88"],
+Cell[79242, 1952, 389, 10, 30, "Input",ExpressionUUID->"c6ef8042-f2eb-43e8-a577-a92cd7e4b436"],
+Cell[CellGroupData[{
+Cell[79656, 1966, 301, 6, 30, "Input",ExpressionUUID->"7de11d50-a8b6-4f54-9e3c-57c0e488da0c"],
+Cell[79960, 1974, 385, 5, 34, "Output",ExpressionUUID->"f8694ce6-dbbc-4dce-b399-525a3607ebb0"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[80382, 1984, 8138, 148, 97, "Input",ExpressionUUID->"1ae89b03-fb34-4baf-9dc2-39badc95775d"],
+Cell[88523, 2134, 4722, 90, 104, "Output",ExpressionUUID->"b335e31f-78a3-42d8-8d8b-b21916452043"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[93282, 2229, 691, 18, 30, "Input",ExpressionUUID->"5db0abac-6a0d-4905-a798-e9fd3825affe"],
+Cell[93976, 2249, 2130, 55, 101, "Output",ExpressionUUID->"ab5517b3-6b19-461d-a917-a713a705f833"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[96143, 2309, 3449, 71, 75, "Input",ExpressionUUID->"120e6fb3-e50c-4047-adda-65f2ccd4187a"],
+Cell[99595, 2382, 15752, 265, 245, "Output",ExpressionUUID->"f64fff57-5a77-4411-9b77-9bd8f253d866"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[115384, 2652, 286, 5, 30, "Input",ExpressionUUID->"e652987f-cbe8-428f-8fac-f903bdd8dad7"],
+Cell[115673, 2659, 559, 8, 34, "Output",ExpressionUUID->"50ddbbc6-17ca-4570-8e5b-a9a15c66e39a"]
+}, Open ]],
+Cell[116247, 2670, 2139, 45, 124, "Input",ExpressionUUID->"73340500-3bd1-4040-acba-9424125387d6"],
+Cell[CellGroupData[{
+Cell[118411, 2719, 227, 4, 30, "Input",ExpressionUUID->"d5ca3013-fde9-4904-ae56-c25c52ef82e9"],
+Cell[118641, 2725, 303, 6, 34, "Output",ExpressionUUID->"786be9e7-3b0f-4136-b795-bf88f6c9420d"]
+}, Open ]],
+Cell[118959, 2734, 1637, 39, 77, "Input",ExpressionUUID->"ea2e280e-cafb-4dba-aebc-c60e354474ee"],
+Cell[CellGroupData[{
+Cell[120621, 2777, 1578, 37, 105, "Input",ExpressionUUID->"25ce46ae-a037-410a-b355-2ba6668abcb8"],
+Cell[122202, 2816, 815, 16, 30, "Message",ExpressionUUID->"032b0621-d641-4884-9779-8ab1250fcaa0"],
+Cell[123020, 2834, 814, 16, 30, "Message",ExpressionUUID->"5947ac78-ae20-4d79-8d85-80319ca3b21f"],
+Cell[123837, 2852, 814, 16, 30, "Message",ExpressionUUID->"69083bcf-8b52-4191-99cf-2d7c7d6bf5cf"],
+Cell[124654, 2870, 779, 15, 21, "Message",ExpressionUUID->"5e95743f-cbd5-444a-8922-717f509c258c"],
+Cell[125436, 2887, 70721, 1268, 247, "Output",ExpressionUUID->"638615e4-4b3b-46bc-97f5-56e48378100b"]
+}, Open ]],
+Cell[196172, 4158, 421, 9, 30, "Input",ExpressionUUID->"6f0b335b-2af5-4960-bc18-dc31c8c414e6"],
+Cell[196596, 4169, 2161, 55, 75, "Input",ExpressionUUID->"00e7ab82-ed24-40a1-8c94-ca95a100b985"],
+Cell[198760, 4226, 1089, 30, 30, "Input",ExpressionUUID->"a197c3d3-d652-4961-8ba2-7d8fa24536b2"],
+Cell[CellGroupData[{
+Cell[199874, 4260, 242, 5, 30, "Input",ExpressionUUID->"11ad639e-95b6-4d47-aa5e-9d78f136955e"],
+Cell[200119, 4267, 280, 6, 34, "Output",ExpressionUUID->"9c59e029-6ec8-44b8-8c76-99d1104d663b"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[200436, 4278, 861, 17, 30, "Input",ExpressionUUID->"37820a0e-34e1-4dc4-b88a-0d793fa88c11"],
+Cell[201300, 4297, 53246, 885, 246, "Output",ExpressionUUID->"54bc905b-bc81-479e-9ae8-4e4e59ec8fae"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[254583, 5187, 441, 8, 30, "Input",ExpressionUUID->"a458f12d-42ed-4fd1-ac57-6f52be1ea926"],
+Cell[255027, 5197, 233, 3, 34, "Output",ExpressionUUID->"afbc30d4-2d84-487f-9d95-0f522bdf72a4"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[255297, 5205, 170, 3, 30, "Input",ExpressionUUID->"3c0265d1-fe83-47b4-b664-bf078a578205"],
+Cell[255470, 5210, 211, 3, 34, "Output",ExpressionUUID->"855c44ae-db8a-464e-be4f-c45718cdb430"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[255718, 5218, 177, 2, 30, "Input",ExpressionUUID->"b8792676-8b87-4225-8913-6ea61774dc0a"],
+Cell[255898, 5222, 1942, 52, 57, "Output",ExpressionUUID->"63b59f3b-0dc9-43c1-9163-6628aa4b44a3"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[257877, 5279, 650, 18, 30, "Input",ExpressionUUID->"da0b5e12-79b9-4500-a893-0ec36ebf0c73"],
+Cell[258530, 5299, 362, 7, 34, "Output",ExpressionUUID->"811eb66f-41cc-454e-bb34-6b97056bc05c"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[258929, 5311, 969, 21, 30, "Input",ExpressionUUID->"50dc2600-956f-4e1b-ad5e-cdf7c3090763"],
+Cell[259901, 5334, 4302, 82, 61, "Output",ExpressionUUID->"9314e2f1-1173-4417-828c-19d51110cad2"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[264240, 5421, 227, 4, 30, "Input",ExpressionUUID->"7a601c17-c92d-412e-b9f1-c761f9ad546c"],
+Cell[264470, 5427, 461, 11, 34, "Output",ExpressionUUID->"7299edfb-b88c-441f-8b19-3f03c3c52197"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[264968, 5443, 1960, 47, 30, "Input",ExpressionUUID->"606b7912-51fc-46b1-82e3-66eb8d83d1a1"],
+Cell[266931, 5492, 15003, 302, 242, 8809, 205, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"fbfb5a63-410e-409b-87be-3b95b82332ee"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[281971, 5799, 1881, 52, 97, "Input",ExpressionUUID->"0be23be9-4dec-467d-a73f-4b775dd902fc"],
+Cell[283855, 5853, 268, 5, 34, "Output",ExpressionUUID->"dbc83497-e48d-46f0-a544-2e458fdc94f3"]
+}, Open ]]
+}
+]
+*)
+