(* 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[ 293939, 6023] NotebookOptionsPosition[ 284820, 5879] NotebookOutlinePosition[ 285214, 5895] CellTagsIndexPosition[ 285171, 5892] 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[5]:=",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[{"\"\\"", "\[Rule]", RowBox[{"info", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"info", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"info", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"info", "[", RowBox[{"[", "4", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Around", "@@", RowBox[{"dat", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Around", "@@", RowBox[{"dat", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Around", "@@", RowBox[{"dat", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[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", "[", "\"\\"", "]"}], "#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", "[", "\"\\"", "]"}], " ", 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[15]:=",ExpressionUUID->"1f73d2d8-b20d-4c2c-823a-fa4c0f5117da"], Cell[CellGroupData[{ Cell[BoxData["Ghs"], "Input", CellChangeTimes->{{3.8371515773959293`*^9, 3.837151577866794*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"3ee93332-7c5d-48bb-90b4-3574f92a50d7"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1.1216`"}], ",", "0", ",", "3.8592`", ",", "0", ",", RowBox[{"-", "105.11999999999999`"}], ",", "0", ",", "7539.84`", ",", "0", ",", RowBox[{"-", "943488.`"}], ",", "0", ",", "9.1010304`*^7", ",", "0", ",", RowBox[{"-", "2.2666355712`*^9"}]}], "}"}]], "Output", CellChangeTimes->{3.8371515785243893`*^9}, CellLabel->"Out[4]=",ExpressionUUID->"a35ae12f-1895-4423-91f7-893390ea4920"] }, Open ]], 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->{636, 528}, WindowMargins->{{Automatic, 2.25}, {Automatic, 17.25}}, FrontEndVersion->"12.3 for Linux x86 (64-bit) (May 11, 2021)", 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, 205, "Input",ExpressionUUID->"59b0d6d5-f932-48ad-b7c5-92faf52d8f31"], Cell[CellGroupData[{ Cell[3429, 86, 320, 6, 22, "Input",ExpressionUUID->"ab96e425-8378-4a9e-9559-f660294d52e5"], Cell[3752, 94, 312, 4, 25, "Output",ExpressionUUID->"af372458-f182-4c85-9f95-2f3841b3cb17"] }, Open ]], Cell[CellGroupData[{ Cell[4101, 103, 305, 5, 22, "Input",ExpressionUUID->"73cba23a-002d-479d-b60d-5c9a30ec8957"], Cell[4409, 110, 317, 4, 25, "Output",ExpressionUUID->"a9c41347-197a-4328-8b2f-473c7d296a16"] }, Open ]], Cell[CellGroupData[{ Cell[4763, 119, 270, 5, 24, "Input",ExpressionUUID->"4f550e51-f686-4c74-b7c7-60fd0aeb49f6"], Cell[5036, 126, 287, 4, 25, "Output",ExpressionUUID->"7e3ed6d9-eac9-4e37-ac23-850e314e158a"] }, Open ]], Cell[CellGroupData[{ Cell[5360, 135, 193, 2, 22, "Input",ExpressionUUID->"88fbe140-d167-4f1e-907c-8d3b0cdde179"], Cell[5556, 139, 236, 3, 25, "Output",ExpressionUUID->"5650dbe4-5015-4653-809e-4e219d50cd86"] }, Open ]], Cell[5807, 145, 3815, 80, 368, "Input",ExpressionUUID->"2d167be2-574f-49ef-862f-5770b5357339"], Cell[9625, 227, 2349, 63, 71, "Input",ExpressionUUID->"20da4923-a53a-490e-bc5f-36bcba68e245"], Cell[11977, 292, 2861, 72, 89, "Input",ExpressionUUID->"1f73d2d8-b20d-4c2c-823a-fa4c0f5117da"], Cell[CellGroupData[{ Cell[14863, 368, 175, 2, 22, "Input",ExpressionUUID->"3ee93332-7c5d-48bb-90b4-3574f92a50d7"], Cell[15041, 372, 466, 9, 27, "Output",ExpressionUUID->"a35ae12f-1895-4423-91f7-893390ea4920"] }, Open ]], Cell[CellGroupData[{ Cell[15544, 386, 176, 2, 22, "Input",ExpressionUUID->"8b406003-2d90-43d4-8e18-b505f40fff22"], Cell[15723, 390, 560, 11, 25, "Output",ExpressionUUID->"3b80f79f-8413-4aed-b0d7-0eba1da958cc"] }, Open ]], Cell[16298, 404, 1975, 50, 87, "Input",ExpressionUUID->"350a4d8b-bb31-4399-9d70-aac4c388ec17"], Cell[18276, 456, 486, 14, 24, "Input",ExpressionUUID->"fcfb10c1-3f9c-44a8-bf68-ec0a677ae045"], Cell[18765, 472, 4143, 115, 213, "Input",ExpressionUUID->"dec3dfec-fc66-4d85-b94e-5960af03c15a"], Cell[22911, 589, 227, 3, 22, "Input",ExpressionUUID->"7c3fa0b1-7769-4bc4-b087-6f591064d84d"], Cell[23141, 594, 810, 22, 24, "Input",ExpressionUUID->"fe45d206-4ada-477e-940c-6690c254c5a2"], Cell[23954, 618, 420, 8, 22, "Input",ExpressionUUID->"fd8e57a3-697a-49b8-a4de-640b45e20bc4"], Cell[24377, 628, 1526, 41, 40, "Input",ExpressionUUID->"9a9678e6-3f21-4ec0-8819-1d9d6b2376cc"], Cell[CellGroupData[{ Cell[25928, 673, 1420, 32, 59, "Input",ExpressionUUID->"6d35af15-cd9a-4061-a3d7-eee9182a1866"], Cell[27351, 707, 22999, 491, 243, "Output",ExpressionUUID->"4e02975f-1e2b-4ecf-9a5e-f04590940c37"] }, Open ]], Cell[50365, 1201, 4006, 94, 95, "Input",ExpressionUUID->"7feed7fd-3a21-49ba-b309-13ed123f34e0"], Cell[54374, 1297, 1988, 49, 79, "Input",ExpressionUUID->"d645d942-7a63-48b1-b8cf-35860cb66022"], Cell[56365, 1348, 1305, 36, 57, "Input",ExpressionUUID->"7317b43e-9f82-42e0-b48c-590814de53ad"], Cell[57673, 1386, 3051, 86, 163, "Input",ExpressionUUID->"be940035-ea15-46da-b5dc-c3fe4acf3416"], Cell[60727, 1474, 2980, 72, 100, "Input",ExpressionUUID->"64caadac-20e3-498f-8564-b1569b5c21cc"], Cell[63710, 1548, 2896, 69, 100, "Input",ExpressionUUID->"797dfe69-231b-4092-acad-c86ad74b864a"], Cell[66609, 1619, 3921, 105, 229, "Input",ExpressionUUID->"20e8ef60-1553-498f-a1bf-0a8c9e997006"], Cell[70533, 1726, 593, 11, 30, "Input",ExpressionUUID->"43352f46-5b8a-4529-aa46-36f7ef839e64"], Cell[71129, 1739, 1359, 40, 75, "Input",ExpressionUUID->"8703bff1-c4d8-44c8-a81e-e91d05b839fa"], Cell[72491, 1781, 1048, 27, 30, "Input",ExpressionUUID->"111f0497-d896-44fd-b69f-fe8d1e538181"], Cell[73542, 1810, 2557, 47, 33, "Input",ExpressionUUID->"848172c9-9dbd-49c1-961b-527564a6a5c6"], Cell[76102, 1859, 1060, 28, 33, "Input",ExpressionUUID->"759d587a-b40e-4347-9ab1-055ff4468616"], Cell[77165, 1889, 1355, 39, 53, "Input",ExpressionUUID->"f1feefae-d56e-4fb8-926a-d3cb8a1dea83"], Cell[78523, 1930, 1397, 38, 53, "Input",ExpressionUUID->"cd17946b-f377-476a-9e76-bdf8ba661a88"], Cell[79923, 1970, 389, 10, 30, "Input",ExpressionUUID->"c6ef8042-f2eb-43e8-a577-a92cd7e4b436"], Cell[CellGroupData[{ Cell[80337, 1984, 301, 6, 30, "Input",ExpressionUUID->"7de11d50-a8b6-4f54-9e3c-57c0e488da0c"], Cell[80641, 1992, 385, 5, 34, "Output",ExpressionUUID->"f8694ce6-dbbc-4dce-b399-525a3607ebb0"] }, Open ]], Cell[CellGroupData[{ Cell[81063, 2002, 8138, 148, 97, "Input",ExpressionUUID->"1ae89b03-fb34-4baf-9dc2-39badc95775d"], Cell[89204, 2152, 4722, 90, 104, "Output",ExpressionUUID->"b335e31f-78a3-42d8-8d8b-b21916452043"] }, Open ]], Cell[CellGroupData[{ Cell[93963, 2247, 691, 18, 30, "Input",ExpressionUUID->"5db0abac-6a0d-4905-a798-e9fd3825affe"], Cell[94657, 2267, 2130, 55, 101, "Output",ExpressionUUID->"ab5517b3-6b19-461d-a917-a713a705f833"] }, Open ]], Cell[CellGroupData[{ Cell[96824, 2327, 3449, 71, 75, "Input",ExpressionUUID->"120e6fb3-e50c-4047-adda-65f2ccd4187a"], Cell[100276, 2400, 15752, 265, 245, "Output",ExpressionUUID->"f64fff57-5a77-4411-9b77-9bd8f253d866"] }, Open ]], Cell[CellGroupData[{ Cell[116065, 2670, 286, 5, 30, "Input",ExpressionUUID->"e652987f-cbe8-428f-8fac-f903bdd8dad7"], Cell[116354, 2677, 559, 8, 34, "Output",ExpressionUUID->"50ddbbc6-17ca-4570-8e5b-a9a15c66e39a"] }, Open ]], Cell[116928, 2688, 2139, 45, 124, "Input",ExpressionUUID->"73340500-3bd1-4040-acba-9424125387d6"], Cell[CellGroupData[{ Cell[119092, 2737, 227, 4, 30, "Input",ExpressionUUID->"d5ca3013-fde9-4904-ae56-c25c52ef82e9"], Cell[119322, 2743, 303, 6, 34, "Output",ExpressionUUID->"786be9e7-3b0f-4136-b795-bf88f6c9420d"] }, Open ]], Cell[119640, 2752, 1637, 39, 77, "Input",ExpressionUUID->"ea2e280e-cafb-4dba-aebc-c60e354474ee"], Cell[CellGroupData[{ Cell[121302, 2795, 1578, 37, 105, "Input",ExpressionUUID->"25ce46ae-a037-410a-b355-2ba6668abcb8"], Cell[122883, 2834, 815, 16, 30, "Message",ExpressionUUID->"032b0621-d641-4884-9779-8ab1250fcaa0"], Cell[123701, 2852, 814, 16, 30, "Message",ExpressionUUID->"5947ac78-ae20-4d79-8d85-80319ca3b21f"], Cell[124518, 2870, 814, 16, 30, "Message",ExpressionUUID->"69083bcf-8b52-4191-99cf-2d7c7d6bf5cf"], Cell[125335, 2888, 779, 15, 21, "Message",ExpressionUUID->"5e95743f-cbd5-444a-8922-717f509c258c"], Cell[126117, 2905, 70721, 1268, 247, "Output",ExpressionUUID->"638615e4-4b3b-46bc-97f5-56e48378100b"] }, Open ]], Cell[196853, 4176, 421, 9, 30, "Input",ExpressionUUID->"6f0b335b-2af5-4960-bc18-dc31c8c414e6"], Cell[197277, 4187, 2161, 55, 75, "Input",ExpressionUUID->"00e7ab82-ed24-40a1-8c94-ca95a100b985"], Cell[199441, 4244, 1089, 30, 30, "Input",ExpressionUUID->"a197c3d3-d652-4961-8ba2-7d8fa24536b2"], Cell[CellGroupData[{ Cell[200555, 4278, 242, 5, 30, "Input",ExpressionUUID->"11ad639e-95b6-4d47-aa5e-9d78f136955e"], Cell[200800, 4285, 280, 6, 34, "Output",ExpressionUUID->"9c59e029-6ec8-44b8-8c76-99d1104d663b"] }, Open ]], Cell[CellGroupData[{ Cell[201117, 4296, 861, 17, 30, "Input",ExpressionUUID->"37820a0e-34e1-4dc4-b88a-0d793fa88c11"], Cell[201981, 4315, 53246, 885, 246, "Output",ExpressionUUID->"54bc905b-bc81-479e-9ae8-4e4e59ec8fae"] }, Open ]], Cell[CellGroupData[{ Cell[255264, 5205, 441, 8, 30, "Input",ExpressionUUID->"a458f12d-42ed-4fd1-ac57-6f52be1ea926"], Cell[255708, 5215, 233, 3, 34, "Output",ExpressionUUID->"afbc30d4-2d84-487f-9d95-0f522bdf72a4"] }, Open ]], Cell[CellGroupData[{ Cell[255978, 5223, 170, 3, 30, "Input",ExpressionUUID->"3c0265d1-fe83-47b4-b664-bf078a578205"], Cell[256151, 5228, 211, 3, 34, "Output",ExpressionUUID->"855c44ae-db8a-464e-be4f-c45718cdb430"] }, Open ]], Cell[CellGroupData[{ Cell[256399, 5236, 177, 2, 30, "Input",ExpressionUUID->"b8792676-8b87-4225-8913-6ea61774dc0a"], Cell[256579, 5240, 1942, 52, 57, "Output",ExpressionUUID->"63b59f3b-0dc9-43c1-9163-6628aa4b44a3"] }, Open ]], Cell[CellGroupData[{ Cell[258558, 5297, 650, 18, 30, "Input",ExpressionUUID->"da0b5e12-79b9-4500-a893-0ec36ebf0c73"], Cell[259211, 5317, 362, 7, 34, "Output",ExpressionUUID->"811eb66f-41cc-454e-bb34-6b97056bc05c"] }, Open ]], Cell[CellGroupData[{ Cell[259610, 5329, 969, 21, 30, "Input",ExpressionUUID->"50dc2600-956f-4e1b-ad5e-cdf7c3090763"], Cell[260582, 5352, 4302, 82, 61, "Output",ExpressionUUID->"9314e2f1-1173-4417-828c-19d51110cad2"] }, Open ]], Cell[CellGroupData[{ Cell[264921, 5439, 227, 4, 30, "Input",ExpressionUUID->"7a601c17-c92d-412e-b9f1-c761f9ad546c"], Cell[265151, 5445, 461, 11, 34, "Output",ExpressionUUID->"7299edfb-b88c-441f-8b19-3f03c3c52197"] }, Open ]], Cell[CellGroupData[{ Cell[265649, 5461, 1960, 47, 30, "Input",ExpressionUUID->"606b7912-51fc-46b1-82e3-66eb8d83d1a1"], Cell[267612, 5510, 15003, 302, 242, 8809, 205, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"fbfb5a63-410e-409b-87be-3b95b82332ee"] }, Open ]], Cell[CellGroupData[{ Cell[282652, 5817, 1881, 52, 97, "Input",ExpressionUUID->"0be23be9-4dec-467d-a73f-4b775dd902fc"], Cell[284536, 5871, 268, 5, 34, "Output",ExpressionUUID->"dbc83497-e48d-46f0-a544-2e458fdc94f3"] }, Open ]] } ] *)