diff options
author | Jaron Kent-Dobias <jaron@kent-dobias.com> | 2020-07-20 13:24:07 -0400 |
---|---|---|
committer | Jaron Kent-Dobias <jaron@kent-dobias.com> | 2020-07-20 13:24:07 -0400 |
commit | 89edb6b8f7ffb852382c5a13307ee405b87e6ea4 (patch) | |
tree | 95f5c50a280578b9632b535823a864b94fa97a2f /complicated_matching-3d.nb | |
parent | e860a427d3056e2f58e0a0123856454478a3347c (diff) | |
download | mma-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.nb | 6009 |
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 ]] +} +] +*) + |