path: root/complicated_matching-3d.nb

(* 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  ]]
}
]
*)